Metropoli BBS
VIEWER: 13020psc.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 84 01  00 00 D6 01 00 00 3F 01  00 00 15 03 00 00 03 00  00 00 18 03 00 00 00 00  .kR...ä....?..§.........
00000020  00 00 18 03 00 00 B0 00  00 00 C8 03 00 00 00 00  00 00 1A 31 33 30 32 30  50 53 43 20 53 68 65 6C  .............13020PSC Shel
00000040  6C 20 51 75 61 72 74 65  72 20 34 35 B0 00 00 79  00 ED 0A 00 00 00 00 00  05 00 00 00 00 00 00 00  l Quarter 45..y.φ............
00000060  00 00 00 00 00 00 F6 97  FD 3F 4A 0C 02 3F 2C 01  00 00 2C 01 00 00 2C 01  00 00 54 01 00 00 54 01  ......÷ù²?J?,..,..,..T..T
00000080  00 00 01 01 00 00 00 00  9A 99 99 3E 67 21 88 3F  9A 99 99 3E 0E 00 20 20  20 20 20 20 20 20 00 00  ......ÜÖÖ>g!ê?ÜÖÖ>.        ..
000000A0  01 01 00 00 00 00 CC CC  CC 3D D8 DC 9F 3F CC CC  CC 3D 0E 00 20 20 20 20  20 20 20 20 00 00 01 01  ....=ƒ?=.        ..
000000C0  00 00 00 00 90 C2 F5 3C  94 9B AC 3F 90 C2 F5 3C  0E 00 20 20 20 20 20 20  20 20 00 00 01 04 67 21  ....É<ö¢¼?É<.        ..g!
000000E0  88 3F 9A 99 99 3E 99 99  D9 3F 9A 99 99 3E 0E 00  20 20 20 20 20 20 20 20  00 00 01 04 D8 DC 9F 3F  ê?ÜÖÖ>ÖÖ?ÜÖÖ>.        ..ƒ?
00000100  CC CC CC 3D 33 33 F3 3F  CC CC CC 3D 0E 00 20 20  20 20 20 20 20 20 00 00  01 01 00 00 00 00 4A 0C  =33?=.        ......J
00000120  02 3F 90 75 4D 3F 4A 0C  02 3F 0E 00 20 20 20 20  20 20 20 20 00 00 01 01  00 00 00 00 00 00 00 00  ?ÉuM?J?.        ..........
00000140  00 00 00 00 4A 0C 02 3F  0E 00 20 20 20 20 20 20  20 20 00 00 01 04 90 75  4D 3F 4A 0C 02 3F 00 00  ....J?.        ..ÉuM?J?..
00000160  C0 3F 4A 0C 02 3F 0E 00  20 20 20 20 20 20 20 20  00 00 01 01 00 00 00 00  00 00 00 00 F6 97 FD 3F  ?J?.        ..........÷ù²?
00000180  00 00 00 00 0E 00 20 20  20 20 20 20 20 20 00 00  01 04 94 9B AC 3F 90 C2  F5 3C EC C0 F9 3F 90 C2  .....        ..ö¢¼?É<?É
000001A0  F5 3C 0E 00 20 20 20 20  20 20 20 20 00 00 00 00  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  <.        ....................
000001C0  00 00 00 00 00 00 00 00  00 00 4A 0C 02 3F F6 97  FD 3F 00 00 00 00 21 73  68 65 6C 6C 5F 31 2F 34  ..........J?÷ù²?....!shell_1/4
000001E0  5F 34 35 65 6E 64 0D 0A  0D 0A 6D 75 6C 7A 20 63  2F 62 0D 0A 69 66 20 65  3D 31 20 74 68 65 6E 20  _45endmulz c/bif e=1 then 
00000200  31 0D 0A 20 20 20 6D 75  6C 7A 20 2D 31 0D 0A 20  20 20 61 64 64 7A 20 2D  62 0D 0A 0D 0A 31 3A 20  1   mulz -1   addz -b1: 
00000220  69 66 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  if f=0 then 2   model wire
00000240  32 3A 20 75 3D 39 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  2: u=90/d   t=90-(180-u)/2
00000260  6B 3D 32 2A 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  k=2*b*sin(u/2)r=90+trotx r
00000280  0D 0A 66 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  for i=1 to d   rotx -u   r
000002A0  3D 72 2D 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  =r-u   poly 4,0,0,          
000002C0  30 2C 6B 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  0,k,        a-k*cos(r),k,   
000002E0  20 20 20 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         a,0   addy k   a=a-k*
00000300  63 6F 73 28 72 29 0D 0A  6E 65 78 74 20 69 0D 0A  65 6E 64 0D 0A 7B 0D 7D  04 00 00 00 00 00 00 00  cos(r)next iend{}.......
00000320  4A 0C 02 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  J?÷ù²?Åu>....CHeightÇ.Ç.o
00000340  92 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  Æ.o.oÆ.Ç=.....J?D.Segment
00000360  73 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 C0 40 45 00 19 4F  s.Ç.oÆ.o.oÆ.Ç=.......@E.O
00000380  72 69 65 6E 74 61 74 69  6F 6E 20 20 31 96 55 70  20 20 30 96 44 6F 77 6E  00 18 00 00 00 00 00 00  rientation  1ûUp  0ûDown.......
000003A0  80 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 6E 00 18  Ç?F.Transparent  1ûYes  0ûNon.
000003C0  00 00 00 00 00 00 00 00                                                                             ........
[ RETURN TO DIRECTORY ]