Metropoli BBS
VIEWER: 13020pse.gsm MODE: BINARY (HEX)
==============================================================================================================================================
OFFSET    00 01 02 03 04 05 06 07  08 09 0A 0B 0C 0D 0E 0F  10 11 12 13 14 15 16 17  18 19 1A 1B 1C 1D 1E 1F
----------------------------------------------------------------------------------------------------------------------------------------------
00000000  00 6B 52 00 00 00 22 02  00 00 74 02 00 00 40 01  00 00 B4 03 00 00 03 00  00 00 B7 03 00 00 00 00  .kR..."..t..@...........
00000020  00 00 B7 03 00 00 B0 00  00 00 67 04 00 00 00 00  00 00 16 31 33 30 32 30  50 53 45 20 53 68 65 6C  .......g......13020PSE Shel
00000040  6C 20 34 35 B0 20 45 6E  64 4C 00 DC 00 00 00 78  00 ED 0F 00 00 00 00 00  06 00 00 00 00 00 00 00  l 45 EndL....x.φ............
00000060  00 00 00 00 00 00 F6 97  FD 3F 4A 0C 82 3F C2 01  00 00 C2 01 00 00 C2 01  00 00 F2 01 00 00 F2 01  ......÷ù²?Jé?........
00000080  00 00 01 01 00 00 00 00  90 C2 F5 3C A5 B6 B2 3F  90 C2 F5 3C 0E 00 20 20  20 20 20 20 20 20 00 00  ......É<Ñ?É<.        ..
000000A0  01 01 00 00 00 00 00 00  00 00 F6 97 FD 3F 00 00  00 00 0E 00 20 20 20 20  20 20 20 20 00 00 01 04  ........÷ù²?.....        ..
000000C0  15 D6 93 3F 9A 99 99 3E  90 31 D7 3F 9A 99 99 3E  0E 00 20 20 20 20 20 20  20 20 00 00 01 04 32 9D  §ô?ÜÖÖ>É1?ÜÖÖ>.        ..2¥
000000E0  A5 3F CC CC CC 3D 29 CB  F0 3F CC CC CC 3D 0E 00  20 20 20 20 20 20 20 20  00 00 01 04 A5 B6 B2 3F  Ñ?=)?=.        ..Ñ?
00000100  90 C2 F5 3C EC C0 F9 3F  90 C2 F5 3C 0E 00 20 20  20 20 20 20 20 20 00 00  01 01 00 00 00 00 4A 0C  É<?É<.        ......J
00000120  82 3F F5 17 10 3F 4A 0C  82 3F 0E 00 20 20 20 20  20 20 20 20 00 00 01 01  00 00 00 00 4A 0C 82 3F  é??Jé?.        ......Jé?
00000140  00 00 00 00 00 00 00 00  0E 00 20 20 20 20 20 20  20 20 00 00 01 04 F5 17  10 3F 4A 0C 82 3F 00 00  .........        ..?Jé?..
00000160  80 3F 4A 0C 82 3F 0E 00  20 20 20 20 20 20 20 20  00 00 01 04 78 10 1F 3F  80 6A 7C 3F 0A D7 83 3F  Ç?Jé?.        ..x?Çj|?â?
00000180  80 6A 7C 3F 0E 00 20 20  20 20 20 20 20 20 00 00  01 04 0D E8 2F 3F FA 7E  6A 3F CD CC 8C 3F FA 7E  Çj|?.        ..Φ/?·~j?î?·~
000001A0  6A 3F 0E 00 20 20 20 20  20 20 20 20 00 00 01 01  00 00 00 00 80 6A 7C 3F  78 10 1F 3F 80 6A 7C 3F  j?.        ......Çj|?x?Çj|?
000001C0  0E 00 20 20 20 20 20 20  20 20 00 00 01 01 00 00  00 00 FA 7E 6A 3F 0D E8  2F 3F FA 7E 6A 3F 0E 00  .        ......·~j?Φ/?·~j?.
000001E0  20 20 20 20 20 20 20 20  00 00 01 01 00 00 00 00  C7 4B 37 3F 12 DF 99 3F  C7 4B 37 3F 0E 00 20 20          ......K7?Ö?K7?.  
00000200  20 20 20 20 20 20 00 00  01 01 00 00 00 00 9A 99  99 3E 15 D6 93 3F 9A 99  99 3E 0E 00 20 20 20 20        ......ÜÖÖ>§ô?ÜÖÖ>.    
00000220  20 20 20 20 00 00 01 01  00 00 00 00 CC CC CC 3D  32 9D A5 3F CC CC CC 3D  0E 00 20 20 20 20 20 20      ......=2¥Ñ?=.      
00000240  20 20 00 00 00 00 00 00  00 00 00 00 00 00 00 00  00 00 00 3F 00 00 00 00  00 00 00 00 00 00 80 3F    .................?..........Ç?
00000260  00 00 00 3F F6 97 FD 3F  00 00 00 00 00 00 00 00  4A 0C 82 3F 21 73 68 65  6C 6C 5F 34 35 65 6E 64  ...?÷ù²?........Jé?!shell_45end
00000280  0D 0A 0D 0A 6D 75 6C 7A  20 32 2A 63 2F 62 0D 0A  69 66 20 65 3D 31 20 74  68 65 6E 20 31 0D 0A 20  mulz 2*c/bif e=1 then 1 
000002A0  20 20 6D 75 6C 7A 20 2D  31 0D 0A 20 20 20 61 64  64 7A 20 2D 62 2F 32 0D  0A 0D 0A 31 3A 20 69 66    mulz -1   addz -b/21: if
000002C0  20 66 3D 30 20 74 68 65  6E 20 32 0D 0A 20 20 20  6D 6F 64 65 6C 20 77 69  72 65 0D 0A 0D 0A 32 3A   f=0 then 2   model wire2:
000002E0  20 75 3D 31 38 30 2F 64  0D 0A 20 20 20 74 3D 39  30 2D 28 31 38 30 2D 75  29 2F 32 0D 0A 0D 0A 6B   u=180/d   t=90-(180-u)/2k
00000300  3D 62 2A 73 69 6E 28 75  2F 32 29 0D 0A 72 3D 39  30 2B 74 0D 0A 72 6F 74  78 20 72 0D 0A 0D 0A 66  =b*sin(u/2)r=90+trotx rf
00000320  6F 72 20 69 3D 31 20 74  6F 20 64 0D 0A 20 20 20  72 6F 74 78 20 2D 75 0D  0A 20 20 20 72 3D 72 2D  or i=1 to d   rotx -u   r=r-
00000340  75 0D 0A 20 20 20 70 6F  6C 79 20 34 2C 30 2C 30  2C 0D 0A 20 20 20 20 20  20 20 20 20 20 30 2C 6B  u   poly 4,0,0,          0,k
00000360  2C 0D 0A 20 20 20 20 20  20 20 20 61 2D 6B 2A 63  6F 73 28 72 29 2C 6B 2C  0D 0A 20 20 20 20 20 20  ,        a-k*cos(r),k,      
00000380  20 20 20 20 61 2C 30 0D  0A 20 20 20 61 64 64 79  20 6B 0D 0A 20 20 20 61  3D 61 2D 6B 2A 63 6F 73      a,0   addy k   a=a-k*cos
000003A0  28 72 29 0D 0A 6E 65 78  74 20 69 0D 0A 0D 0A 65  6E 64 0D 0A 7B 0D 7D 04  00 00 00 00 00 00 00 4A  (r)next iend{}.......J
000003C0  0C 82 3F F6 97 FD 3F 8F  C2 75 3E 00 00 00 00 43  02 06 48 65 69 67 68 74  80 DD D8 00 80 00 6F 92  é?÷ù²?Åu>....CHeightÇ.Ç.oÆ
000003E0  B6 00 6F 00 6F 92 BC 00  80 3D CC 00 18 00 00 00  00 4A 0C 02 3F 44 00 08  53 65 67 6D 65 6E 74 73  .o.oÆ.Ç=.....J?D.Segments
00000400  D8 00 80 00 6F 92 B6 00  6F 00 6F 92 BC 00 80 3D  CC 00 18 00 00 00 00 00  00 40 41 45 00 18 4F 72  .Ç.oÆ.o.oÆ.Ç=.......@AE.Or
00000420  69 65 6E 74 61 74 69 6F  6E 20 31 96 55 70 20 20  30 96 44 6F 77 6E CC 00  18 00 00 00 00 00 00 80  ientation 1ûUp  0ûDown.......Ç
00000440  3F 46 00 18 54 72 61 6E  73 70 61 72 65 6E 74 20  20 31 96 59 65 73 20 20  30 96 4E 6F CC 00 18 00  ?F.Transparent  1ûYes  0ûNo..
00000460  00 00 00 00 00 00 00                                                                                .......
[ RETURN TO DIRECTORY ]