Metropoli BBS
VIEWER: 0643014t.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 06 02  00 00 58 02 00 00 BB 03  00 00 13 06 00 00 03 00  00 00 16 06 00 00 00 00  .kR.....X.............
00000020  00 00 16 06 00 00 8A 00  00 00 A0 06 00 00 00 00  00 00 1B 30 36 34 33 30  31 34 54 20 53 74 61 69  ....è...á......0643014T Stai
00000040  72 73 20 4C 2D 53 68 61  70 65 20 54 6F 70 01 7D  00 ED 0B 00 00 00 02 00  08 00 00 00 00 00 00 00  rs L-Shape Top}.φ...........
00000060  00 00 00 00 00 00 6F 12  C3 3F 6F 12 43 40 4A 01  00 00 4A 01 00 00 96 01  00 00 D6 01 00 00 D6 01  ......o?oC@J..J..û....
00000080  00 00 08 01 00 00 00 00  00 00 00 00 00 00 00 00  6F 12 43 40 0E 00 20 20  20 20 20 20 20 20 00 00  ..............oC@.        ..
000000A0  08 01 1E 16 6A 3F 6F 12  43 40 1E 16 6A 3F 20 16  6A 3F 0E 00 20 20 20 20  20 20 20 20 00 00 08 01  j?oC@j? j?.        ..
000000C0  6F 12 C3 3F 00 00 00 00  6F 12 C3 3F 1E 16 6A 3F  0E 00 20 20 20 20 20 20  20 20 00 00 08 01 6F 12  o?....o?j?.        ..o
000000E0  C3 3F 1E 16 6A 3F 1E 16  6A 3F 20 16 6A 3F 0E 00  20 20 20 20 20 20 20 20  00 00 08 01 6F 12 C3 3F  ?j?j? j?.        ..o?
00000100  00 00 00 00 00 00 00 00  00 00 00 00 0E 00 20 20  20 20 20 20 20 20 00 00  08 01 1E 16 6A 3F 6F 12  .............        ..j?o
00000120  43 40 00 00 00 00 6F 12  43 40 0E 00 20 20 20 20  20 20 20 20 00 00 08 01  26 18 EA 3E 1D 0C 6B 3F  C@....oC@.        ..&Ω>k?
00000140  1E 16 EA 3E 6F 12 43 40  0E 00 20 20 20 20 20 20  20 20 00 00 08 01 ED 24  B0 3F 1E 16 6A 3F 6F 12  Ω>oC@.        ..φ$?j?o
00000160  C3 3F 1E 16 EA 3E 0E 00  20 20 20 20 20 20 20 20  00 00 08 01 ED 24 B0 3F  1E 16 6A 3F ED 24 B0 3F  ?Ω>.        ..φ$?j?φ$?
00000180  00 00 00 00 0E 00 20 20  20 20 20 20 20 20 00 00  08 01 ED 24 B0 3F 00 00  00 00 6F 12 C3 3F 1E 16  .....        ..φ$?....o?
000001A0  EA 3E 0E 00 20 20 20 20  20 20 20 20 00 00 08 01  EC 1B 69 3F 3C 18 EA 3E  ED 24 B0 3F 1E 16 EA 3E  Ω>.        ..i?<Ω>φ$?Ω>
000001C0  0E 00 20 20 20 20 20 20  20 20 00 00 08 01 1E 16  6A 3F 20 16 6A 3F 26 18  EA 3E 1D 0C 6B 3F EC 1B  .        ..j? j?&Ω>k?
000001E0  69 3F 3C 18 EA 3E 0F 00  20 20 20 20 20 20 20 20  00 00 08 01 1E 16 EA 3E  6F 12 43 40 DB E8 52 3E  i?<Ω>.        ..Ω>oC@ΦR>
00000200  6F 12 43 40 E7 5B 35 3F  6F 12 43 40 0F 00 20 20  20 20 20 20 20 20 00 00  00 00 00 00 6F 12 43 40  oC@τ[5?oC@.        ......oC@
00000220  00 00 00 00 00 00 00 00  6F 12 C3 3F 00 00 00 00  6F 12 C3 3F 1E 16 6A 3F  1E 16 6A 3F 20 16 6A 3F  ........o?....o?j?j? j?
00000240  1E 16 6A 3F 6F 12 43 40  1E 16 EA 3E 6F 12 43 40  6F 12 C3 3F 1E 16 EA 3E  21 31 2F 34 20 74 75 72  j?oC@Ω>oC@o?Ω>!1/4 tur
00000260  6E 20 74 6F 70 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 20  n top!Pal GSCNE '91Material 
00000280  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 31  M_if c<>0 goto 1let c=3.01
000002A0  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 32   : if d<>0 goto 2let d=0.172
000002C0  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 0A   :if e<>0 then 5let e=0.80
000002E0  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 32  5: let x=(tan (45)-tan(25))*(e/2
00000300  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 29  +e/20)let p=(b-e/2-x)*((c/d)
00000320  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 69  -2)/(a+b-e-(2*x))!number of ri
00000340  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 2E  sers 1st flightif fra (p) < 0.
00000360  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 3D  5 then 3let p=p+0.53: let p=
00000380  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 64  int (p)let q=(a-e/2-x)*((c/d
000003A0  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
000003C0  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 30  isers 2nd flightif fra (q) < 0
000003E0  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 71  .5 then 4let q=q+0.54: let q
00000400  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 3D  =int (q)!step heightlet d=
00000420  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 69  c/(p+q+2)!step depth 1st fli
00000440  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 65  ghtlet k=(b-e/2-x)/p!step de
00000460  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 2F  pth 2nd flightlet l=(a-e/2-x)/
00000480  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 20  qaddy brotz -90call st1 
000004A0  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 74  k,e,d,0,-25/exp (p)for i=1 t
000004C0  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 20  o p-1addx kaddz dcall st2 
000004E0  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 70  k,e,d,0,-25/exp (p-i),-25/exp (p
00000500  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 63  -i-1)next iaddx kaddz dc
00000520  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 74 6F 70  all st2 x,e,d,0,-25,-45del top
00000540  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 6C 20 73  addx e/2addz p*d+dcall s
00000560  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 7A 20 64  t2 x,e,d,0,45,25addx xaddz d
00000580  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 6C 20 73  for i=q-1 to 1 step -1call s
000005A0  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 65 78 70  t2 l,e,d,0,25/exp (q-i-1),25/exp
000005C0  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 69 0D 0A   (q-i)addx laddz dnext i
000005E0  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 31 29 2C  call st2 l,e,d,0,25/exp (q-i-1),
00000600  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 00 6F 12  0del topend{}.......o
00000620  43 40 6F 12 C3 3F 8F C2  75 3E 00 00 00 00 43 02  0D 53 74 61 69 72 73 20  48 65 69 67 68 74 00 6A  C@o?Åu>....CStairs Height.j
00000640  80 80 80 80 20 00 40 80  9A 0A 00 18 00 00 00 00  97 90 2F 40 44 02 0C 52  69 73 65 72 20 48 65 69  ÇÇÇÇ .@ÇÜ.....ùÉ/@DRiser Hei
00000660  67 68 74 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 53 74 65  ghtt.jÇÇÇÇ .@ÇÜ.....oC>ESte
00000680  70 20 57 69 64 74 68 68  74 74 00 6A 80 80 80 80  20 00 40 80 9A 0A 00 18  00 00 00 00 1E 16 6A 3F  p Widthhtt.jÇÇÇÇ .@ÇÜ.....j?
[ RETURN TO DIRECTORY ]