Metropoli BBS
VIEWER: 0643014b.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 24 02  00 00 76 02 00 00 C0 03  00 00 36 06 00 00 03 00  00 00 39 06 00 00 00 00  .kR...$..v....6.....9....
00000020  00 00 39 06 00 00 8A 00  00 00 C3 06 00 00 00 00  00 00 1E 30 36 34 33 30  31 34 42 20 53 74 61 69  ..9..è.........0643014B Stai
00000040  72 73 20 4C 2D 53 68 61  70 65 20 42 6F 74 74 6F  6D ED 0C 00 00 00 02 00  08 00 00 00 00 00 00 00  rs L-Shape Bottomφ...........
00000060  00 00 00 00 00 00 6E 12  43 40 6F 12 C3 3F 68 01  00 00 68 01 00 00 B4 01  00 00 F4 01 00 00 F4 01  ......nC@o?h..h......
00000080  00 00 08 01 00 00 00 00  00 00 00 00 00 00 00 00  6F 12 C3 3F 0E 00 20 20  20 20 20 20 20 20 00 00  ..............o?.        ..
000000A0  08 01 1E 16 6A 3F 6F 12  C3 3F 1E 16 6A 3F 1F 16  6A 3F 0E 00 20 20 20 20  20 20 20 20 00 00 08 01  j?o?j?j?.        ..
000000C0  6E 12 43 40 1F 16 6A 3F  6E 12 43 40 00 00 80 33  0E 00 20 20 20 20 20 20  20 20 00 00 08 01 00 00  nC@j?nC@..Ç3.        ....
000000E0  00 00 6F 12 C3 3F 1E 16  6A 3F 6F 12 C3 3F 0E 00  20 20 20 20 20 20 20 20  00 00 08 01 1E 16 6A 3F  ..o?j?o?.        ..j?
00000100  1F 16 6A 3F 6E 12 43 40  1F 16 6A 3F 0E 00 20 20  20 20 20 20 20 20 00 00  08 01 00 00 00 00 00 00  j?nC@j?.        ........
00000120  00 00 6E 12 43 40 00 00  80 33 0E 00 20 20 20 20  20 20 20 20 00 00 08 01  3E 16 EA 3E 85 DA 69 3F  ..nC@..Ç3.        ..>Ω>ài?
00000140  3E 16 EA 3E 6F 12 C3 3F  0E 00 20 20 20 20 20 20  20 20 00 00 08 01 D2 A6  69 3F 8B 16 EA 3E 6E 12  >Ω>o?.        ..ªi?ïΩ>n
00000160  43 40 8B 16 EA 3E 0E 00  20 20 20 20 20 20 20 20  00 00 08 01 6E 12 43 40  20 16 EA 3E FB 73 3A 40  C@ïΩ>.        ..nC@ Ω>s:@
00000180  1F 16 6A 3F 0E 00 20 20  20 20 20 20 20 20 00 00  08 01 FB 73 3A 40 1F 16  6A 3F A8 E1 39 40 1F 16  j?.        ..s:@j?¿ß9@
000001A0  6A 3F 0E 00 20 20 20 20  20 20 20 20 00 00 08 01  FB 73 3A 40 1F 16 6A 3F  FB 73 3A 40 00 00 80 33  j?.        ..s:@j?s:@..Ç3
000001C0  0E 00 20 20 20 20 20 20  20 20 00 00 08 01 FB 73  3A 40 00 00 80 33 6E 12  43 40 20 16 EA 3E 0E 00  .        ..s:@..Ç3nC@ Ω>.
000001E0  20 20 20 20 20 20 20 20  00 00 08 01 1E 16 6A 3F  1F 16 6A 3F 3E 16 EA 3E  85 DA 69 3F D2 A6 69 3F          ..j?j?>Ω>ài?ªi?
00000200  8B 16 EA 3E 0F 00 20 20  20 20 20 20 20 20 00 00  08 01 1E 16 EA 3E 6F 12  C3 3F FE A3 4F 3E 6F 12  ïΩ>.        ..Ω>o?úO>o
00000220  C3 3F 1E 2D 36 3F 6F 12  C3 3F 0F 00 20 20 20 20  20 20 20 20 00 00 00 00  00 00 6F 12 C3 3F 1E 16  ?-6?o?.        ......o?
00000240  6A 3F 6F 12 C3 3F 1E 16  6A 3F 1F 16 6A 3F 6E 12  43 40 1F 16 6A 3F 6E 12  43 40 00 00 80 33 00 00  j?o?j?j?nC@j?nC@..Ç3..
00000260  00 00 00 00 00 00 6E 12  43 40 20 16 EA 3E 1E 16  EA 3E 6F 12 C3 3F 21 31  2F 34 20 74 75 72 6E 20  ......nC@ Ω>Ω>o?!1/4 turn 
00000280  42 75 74 74 6F 6D 0D 0A  21 50 61 6C 20 47 53 43  4E 45 20 27 39 31 0D 0A  4D 61 74 65 72 69 61 6C  Buttom!Pal GSCNE '91Material
000002A0  20 4D 5F 0D 0A 69 66 20  63 3C 3E 30 20 67 6F 74  6F 20 31 0D 0A 6C 65 74  20 63 3D 33 2E 30 0D 0A   M_if c<>0 goto 1let c=3.0
000002C0  31 20 3A 20 69 66 20 64  3C 3E 30 20 67 6F 74 6F  20 32 0D 0A 6C 65 74 20  64 3D 30 2E 31 37 0D 0A  1 : if d<>0 goto 2let d=0.17
000002E0  32 20 3A 0D 0A 69 66 20  65 3C 3E 30 20 74 68 65  6E 20 35 0D 0A 6C 65 74  20 65 3D 30 2E 38 30 0D  2 :if e<>0 then 5let e=0.80
00000300  0A 35 3A 20 6C 65 74 20  78 3D 28 74 61 6E 20 28  34 35 29 2D 74 61 6E 28  32 35 29 29 2A 28 65 2F  5: let x=(tan (45)-tan(25))*(e/
00000320  32 2B 65 2F 32 30 29 0D  0A 0D 0A 6C 65 74 20 70  3D 28 62 2D 65 2F 32 2D  78 29 2A 28 28 63 2F 64  2+e/20)let p=(b-e/2-x)*((c/d
00000340  29 2D 32 29 2F 28 61 2B  62 2D 65 2D 28 32 2A 78  29 29 0D 0A 21 6E 75 6D  62 65 72 20 6F 66 20 72  )-2)/(a+b-e-(2*x))!number of r
00000360  69 73 65 72 73 20 31 73  74 20 66 6C 69 67 68 74  0D 0A 69 66 20 66 72 61  20 28 70 29 20 3C 20 30  isers 1st flightif fra (p) < 0
00000380  2E 35 20 74 68 65 6E 20  33 0D 0A 6C 65 74 20 70  3D 70 2B 30 2E 35 0D 0A  33 3A 20 6C 65 74 20 70  .5 then 3let p=p+0.53: let p
000003A0  3D 69 6E 74 20 28 70 29  0D 0A 0D 0A 6C 65 74 20  71 3D 28 61 2D 65 2F 32  2D 78 29 2A 28 28 63 2F  =int (p)let q=(a-e/2-x)*((c/
000003C0  64 29 2D 32 29 2F 28 61  2B 62 2D 65 2D 28 32 2A  78 29 29 0D 0A 21 6E 75  6D 62 65 72 20 6F 66 20  d)-2)/(a+b-e-(2*x))!number of 
000003E0  72 69 73 65 72 73 20 32  6E 64 20 66 6C 69 67 68  74 0D 0A 69 66 20 66 72  61 20 28 71 29 20 3C 20  risers 2nd flightif fra (q) < 
00000400  30 2E 35 20 74 68 65 6E  20 34 0D 0A 6C 65 74 20  71 3D 71 2B 30 2E 35 0D  0A 34 3A 20 6C 65 74 20  0.5 then 4let q=q+0.54: let 
00000420  71 3D 69 6E 74 20 28 71  29 0D 0A 0D 0A 21 73 74  65 70 20 68 65 69 67 68  74 0D 0A 6C 65 74 20 64  q=int (q)!step heightlet d
00000440  3D 63 2F 28 70 2B 71 2B  32 29 0D 0A 0D 0A 21 73  74 65 70 20 64 65 70 74  68 20 31 73 74 20 66 6C  =c/(p+q+2)!step depth 1st fl
00000460  69 67 68 74 0D 0A 6C 65  74 20 6B 3D 28 62 2D 65  2F 32 2D 78 29 2F 70 0D  0A 21 73 74 65 70 20 64  ightlet k=(b-e/2-x)/p!step d
00000480  65 70 74 68 20 32 6E 64  20 66 6C 69 67 68 74 0D  0A 6C 65 74 20 6C 3D 28  61 2D 65 2F 32 2D 78 29  epth 2nd flightlet l=(a-e/2-x)
000004A0  2F 71 0D 0A 0D 0A 61 64  64 79 20 62 0D 0A 72 6F  74 7A 20 2D 39 30 0D 0A  63 61 6C 6C 20 73 74 31  /qaddy brotz -90call st1
000004C0  20 6B 2C 65 2C 64 2C 30  2C 2D 32 35 2F 65 78 70  20 28 70 29 0D 0A 0D 0A  66 6F 72 20 69 3D 31 20   k,e,d,0,-25/exp (p)for i=1 
000004E0  74 6F 20 70 2D 31 0D 0A  61 64 64 78 20 6B 0D 0A  61 64 64 7A 20 64 0D 0A  63 61 6C 6C 20 73 74 32  to p-1addx kaddz dcall st2
00000500  20 6B 2C 65 2C 64 2C 30  2C 2D 32 35 2F 65 78 70  20 28 70 2D 69 29 2C 2D  32 35 2F 65 78 70 20 28   k,e,d,0,-25/exp (p-i),-25/exp (
00000520  70 2D 69 2D 31 29 0D 0A  6E 65 78 74 20 69 0D 0A  61 64 64 78 20 6B 0D 0A  61 64 64 7A 20 64 0D 0A  p-i-1)next iaddx kaddz d
00000540  0D 0A 63 61 6C 6C 20 73  74 32 20 78 2C 65 2C 64  2C 30 2C 2D 32 35 2C 2D  34 35 0D 0A 64 65 6C 20  call st2 x,e,d,0,-25,-45del 
00000560  74 6F 70 0D 0A 0D 0A 61  64 64 78 20 65 2F 32 0D  0A 61 64 64 7A 20 70 2A  64 2B 64 0D 0A 63 61 6C  topaddx e/2addz p*d+dcal
00000580  6C 20 73 74 32 20 78 2C  65 2C 64 2C 30 2C 34 35  2C 32 35 0D 0A 61 64 64  78 20 78 0D 0A 61 64 64  l st2 x,e,d,0,45,25addx xadd
000005A0  7A 20 64 0D 0A 66 6F 72  20 69 3D 71 2D 31 20 74  6F 20 31 20 73 74 65 70  20 2D 31 0D 0A 63 61 6C  z dfor i=q-1 to 1 step -1cal
000005C0  6C 20 73 74 32 20 6C 2C  65 2C 64 2C 30 2C 32 35  2F 65 78 70 20 28 71 2D  69 2D 31 29 2C 32 35 2F  l st2 l,e,d,0,25/exp (q-i-1),25/
000005E0  65 78 70 20 28 71 2D 69  29 0D 0A 61 64 64 78 20  6C 0D 0A 61 64 64 7A 20  64 0D 0A 6E 65 78 74 20  exp (q-i)addx laddz dnext 
00000600  69 0D 0A 63 61 6C 6C 20  73 74 32 20 6C 2C 65 2C  64 2C 30 2C 32 35 2F 65  78 70 20 28 71 2D 69 2D  icall st2 l,e,d,0,25/exp (q-i-
00000620  31 29 2C 30 0D 0A 64 65  6C 20 74 6F 70 0D 0A 0D  0A 65 6E 64 0D 0A 7B 0D  7D 03 00 00 00 00 00 00  1),0del topend{}......
00000640  00 6F 12 C3 3F 6E 12 43  40 8F C2 75 3E 00 00 00  00 43 02 0D 53 74 61 69  72 73 20 48 65 69 67 68  .o?nC@Åu>....CStairs Heigh
00000660  74 00 6A 80 80 80 80 20  00 40 80 9A 0A 00 18 00  00 00 00 97 90 2F 40 44  02 0D 52 69 73 65 72 20  t.jÇÇÇÇ .@ÇÜ.....ùÉ/@DRiser 
00000680  20 48 65 69 67 68 74 00  6A 80 80 80 80 20 00 40  80 9A 0A 00 18 00 00 00  00 6F 12 43 3E 45 02 0A   Height.jÇÇÇÇ .@ÇÜ.....oC>E
000006A0  53 74 65 70 20 57 69 64  74 68 67 68 74 00 6A 80  80 80 80 20 00 40 80 9A  0A 00 18 00 00 00 00 1E  Step Widthght.jÇÇÇÇ .@ÇÜ.....
000006C0  16 6A 3F                                                                                            j?
[ RETURN TO DIRECTORY ]