Metropoli BBS
VIEWER: 03413pc3.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 8E 01  00 00 E0 01 00 00 5D 01  00 00 3D 03 00 00 03 00  00 00 40 03 00 00 00 00  .kR...Ä..α..]..=.....@....
00000020  00 00 40 03 00 00 64 00  00 00 A4 03 00 00 00 00  00 00 16 30 33 34 31 33  50 43 33 20 53 74 61 69  ..@..d...ñ......03413PC3 Stai
00000040  72 73 20 4C 69 6E 65 61  72 4C 00 DC 00 00 01 A5  00 ED 08 00 00 00 01 00  09 00 00 00 00 00 00 00  rs LinearL...Ñ.φ...........
00000060  00 00 00 00 00 00 E7 8C  88 40 24 12 9C 3F F0 00  00 00 F0 00 00 00 16 01  00 00 5E 01 00 00 5E 01  ......τîê@$£?........^..^
00000080  00 00 01 01 00 00 00 00  C0 0E 9C 3F 00 00 00 00  00 00 00 00 0E 00 20 20  20 20 20 20 20 20 00 00  ......£?.........        ..
000000A0  01 01 00 00 00 00 00 00  00 00 E7 8C 88 40 00 E0  D8 38 0E 00 20 20 20 20  20 20 20 20 00 00 01 01  ........τîê@.α8.        ..
000000C0  E7 8C 88 40 00 E0 D8 38  E7 8C 88 40 24 12 9C 3F  0E 00 20 20 20 20 20 20  20 20 00 00 01 01 E7 8C  τîê@.α8τîê@$£?.        ..τî
000000E0  88 40 24 12 9C 3F 00 00  00 00 C0 0E 9C 3F 0E 00  20 20 20 20 20 20 20 20  00 00 01 04 00 00 00 00  ê@$£?....£?.        ......
00000100  C0 0E 1C 3F E7 8C 88 40  88 15 1C 3F 0E 00 20 20  20 20 20 20 20 20 00 00  01 01 3F 8B 7E 40 E9 11  ?τîê@ê§?.        ..?ï~@Θ
00000120  9C 3F 3F 8B 7E 40 00 E0  D8 38 0E 00 20 20 20 20  20 20 20 20 00 00 01 01  3F 8B 7E 40 E9 11 9C 3F  £??ï~@.α8.        ..?ï~@Θ£?
00000140  E7 8C 88 40 88 15 1C 3F  0E 00 20 20 20 20 20 20  20 20 00 00 01 01 E7 8C  88 40 88 15 1C 3F 3F 8B  τîê@ê§?.        ..τîê@ê§??ï
00000160  7E 40 00 E0 D8 38 0E 00  20 20 20 20 20 20 20 20  00 00 01 01 00 00 00 00  C0 0E 1C 3F 00 00 00 00  ~@.α8.        ......?....
00000180  EE 44 3B 3E 00 00 00 00  22 A6 84 3F 0F 00 20 20  20 20 20 20 20 20 00 00  00 00 00 00 00 00 00 00  εD;>...."ªä?.        ..........
000001A0  00 00 00 00 C0 0E 9C 3F  00 00 00 00 C0 0E 9C 3F  E7 8C 88 40 00 E0 D8 38  E7 8C 88 40 00 E0 D8 38  ....£?....£?τîê@.α8τîê@.α8
000001C0  E7 8C 88 40 00 E0 D8 38  E7 8C 88 40 24 12 9C 3F  00 00 00 00 C0 0E 1C 3F  E7 8C 88 40 88 15 1C 3F  τîê@.α8τîê@$£?....?τîê@ê§?
000001E0  21 53 74 72 61 69 67 68  74 20 73 74 72 73 20 73  74 20 68 65 69 67 68 74  0D 0A 21 50 61 6C 20 47  !Straight strs st height!Pal G
00000200  53 43 4E 45 20 27 39 31  0D 0A 4D 61 74 65 72 69  61 6C 20 4D 5F 0D 0A 69  66 20 63 3C 3E 30 20 67  SCNE '91Material M_if c<>0 g
00000220  6F 74 6F 20 31 0D 0A 6C  65 74 20 63 3D 33 2E 30  0D 0A 31 20 3A 20 69 66  20 64 3C 3E 30 20 67 6F  oto 1let c=3.01 : if d<>0 go
00000240  74 6F 20 32 0D 0A 6C 65  74 20 64 3D 30 2E 31 37  0D 0A 32 20 3A 20 6C 65  74 20 6E 3D 63 2F 64 0D  to 2let d=0.172 : let n=c/d
00000260  0A 0D 0A 69 66 20 66 72  61 20 28 6E 29 20 3C 20  30 2E 35 20 74 68 65 6E  20 33 0D 0A 6C 65 74 20  if fra (n) < 0.5 then 3let 
00000280  6E 3D 6E 2B 30 2E 35 0D  0A 33 3A 20 6C 65 74 20  6E 3D 69 6E 74 20 28 6E  29 0D 0A 0D 0A 6C 65 74  n=n+0.53: let n=int (n)let
000002A0  20 64 3D 63 2F 6E 0D 0A  0D 0A 6C 65 74 20 6C 3D  61 2F 6E 0D 0A 0D 0A 63  61 6C 6C 20 73 74 31 20   d=c/nlet l=a/ncall st1 
000002C0  6C 2C 62 2C 64 0D 0A 0D  0A 66 6F 72 20 69 3D 31  20 74 6F 20 6E 2D 32 0D  0A 09 61 64 64 78 20 6C  l,b,dfor i=1 to n-2addx l
000002E0  0D 0A 09 61 64 64 7A 20  64 0D 0A 09 63 61 6C 6C  20 73 74 32 20 6C 2C 62  2C 64 0D 0A 6E 65 78 74  addz dcall st2 l,b,dnext
00000300  20 69 0D 0A 09 61 64 64  78 20 6C 0D 0A 09 61 64  64 7A 20 64 0D 0A 09 63  61 6C 6C 20 73 74 32 20   iaddx laddz dcall st2 
00000320  6C 2C 62 2C 64 2C 30 2C  30 2C 30 2C 32 0D 0A 64  65 6C 20 74 6F 70 0D 0A  65 6E 64 0D 0A 7B 0D 7D  l,b,d,0,0,0,2del topend{}
00000340  02 00 00 00 00 00 00 00  24 12 9C 3F E7 8C 88 40  8F C2 75 3E 00 00 00 00  43 02 0C 53 74 61 69 72  .......$£?τîê@Åu>....CStair
00000360  20 48 65 69 67 68 74 00  00 73 01 1A 7F FF 00 00  FF FF FF FF FF FF FF FF  7F FF 97 90 2F 40 44 02   Height..s ..         ùÉ/@D
00000380  0C 52 69 73 65 72 20 48  65 69 67 68 74 00 00 73  01 1A 7F FF 00 00 FF FF  FF FF FF FF FF FF 7F FF  Riser Height..s ..         
000003A0  6F 12 43 3E                                                                                         oC>
[ RETURN TO DIRECTORY ]