Metropoli BBS
VIEWER: 0643014m.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 0E 02  00 00 60 02 00 00 EA 03  00 00 4A 06 00 00 03 00  00 00 4D 06 00 00 00 00  .kR.....`..Ω..J.....M....
00000020  00 00 4D 06 00 00 8A 00  00 00 D7 06 00 00 00 00  00 00 1B 30 36 34 33 30  31 34 4D 20 53 74 61 69  ..M..è.........0643014M Stai
00000040  72 73 20 4C 2D 53 68 61  70 65 20 4D 69 64 01 7E  00 ED 0B 00 00 00 02 00  09 00 00 00 00 00 00 00  rs L-Shape Mid~.φ...........
00000060  00 00 00 00 00 00 E7 8C  08 40 E7 8C 08 40 4A 01  00 00 4A 01 00 00 96 01  00 00 DE 01 00 00 DE 01  ......τî@τî@J..J..û....
00000080  00 00 08 01 E7 8C 08 40  00 00 00 00 00 00 00 00  00 00 00 00 0E 00 20 20  20 20 20 20 20 20 00 00  ..τî@.............        ..
000000A0  08 01 00 00 00 00 00 00  00 00 00 00 00 00 E7 8C  08 40 0E 00 20 20 20 20  20 20 20 20 00 00 08 01  ............τî@.        ..
000000C0  00 00 00 00 E7 8C 08 40  1E 16 6A 3F E7 8C 08 40  0E 00 20 20 20 20 20 20  20 20 00 00 08 01 1E 16  ....τî@j?τî@.        ..
000000E0  6A 3F E7 8C 08 40 1E 16  6A 3F 1E 16 6A 3F 0E 00  20 20 20 20 20 20 20 20  00 00 08 01 1E 16 6A 3F  j?τî@j?j?.        ..j?
00000100  1E 16 6A 3F E7 8C 08 40  1E 16 6A 3F 0E 00 20 20  20 20 20 20 20 20 00 00  08 01 E7 8C 08 40 1E 16  j?τî@j?.        ..τî@
00000120  6A 3F E7 8C 08 40 00 00  00 00 0E 00 20 20 20 20  20 20 20 20 00 00 08 01  B5 45 6A 3F 34 16 EA 3E  j?τî@.....        ..Ej?4Ω>
00000140  E7 8C 08 40 34 16 EA 3E  0E 00 20 20 20 20 20 20  20 20 00 00 08 01 1E 16  EA 3E E7 8C 08 40 00 00  τî@4Ω>.        ..Ω>τî@..
00000160  00 00 7A ED FF 3F 0E 00  20 20 20 20 20 20 20 20  00 00 08 01 00 00 00 00  7A ED FF 3F 1E 16 6A 3F  ..zφ ?.        ......zφ ?j?
00000180  7A ED FF 3F 0E 00 20 20  20 20 20 20 20 20 00 00  08 01 1E 16 6A 3F 7A ED  FF 3F 1E 16 EA 3E E7 8C  zφ ?.        ..j?zφ ?Ω>τî
000001A0  08 40 0E 00 20 20 20 20  20 20 20 20 00 00 08 01  66 16 EA 3E 5E BB 69 3F  1E 16 EA 3E 7A ED FF 3F  @.        ..fΩ>^i?Ω>zφ ?
000001C0  0E 00 20 20 20 20 20 20  20 20 00 00 08 01 1E 16  6A 3F 1E 16 6A 3F 66 16  EA 3E 5E BB 69 3F B5 45  .        ..j?j?fΩ>^i?E
000001E0  6A 3F 34 16 EA 3E 0F 00  20 20 20 20 20 20 20 20  00 00 08 01 E7 8C 08 40  1E 16 EA 3E E7 8C 08 40  j?4Ω>.        ..τî@Ω>τî@
00000200  02 A6 32 3F E7 8C 08 40  70 C0 5D 3E 0F 00 20 20  20 20 20 20 20 20 00 00  00 00 00 00 00 00 00 00  ª2?τî@p]>.        ..........
00000220  00 00 00 00 E7 8C 08 40  1E 16 6A 3F E7 8C 08 40  1E 16 6A 3F 1E 16 6A 3F  E7 8C 08 40 1E 16 6A 3F  ....τî@j?τî@j?j?τî@j?
00000240  E7 8C 08 40 00 00 00 00  00 00 00 00 00 00 00 00  1E 16 EA 3E E7 8C 08 40  E7 8C 08 40 1E 16 EA 3E  τî@............Ω>τî@τî@Ω>
00000260  21 31 2F 34 20 74 72 6E  20 6D 69 64 6C 65 0D 0A  21 50 61 6C 20 47 53 43  4E 45 20 27 39 31 0D 0A  !1/4 trn midle!Pal GSCNE '91
00000280  6D 61 74 65 72 69 61 6C  20 4D 5F 0D 0A 0D 0A 72  6F 74 7A 20 2D 39 30 0D  0A 0D 0A 69 66 20 63 3C  material M_rotz -90if c<
000002A0  3E 30 20 67 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  >0 goto 1let c=3.01 : if d<>
000002C0  30 20 67 6F 74 6F 20 32  0D 0A 6C 65 74 20 64 3D  30 2E 31 37 0D 0A 32 20  3A 0D 0A 69 66 20 65 3C  0 goto 2let d=0.172 :if e<
000002E0  3E 30 20 74 68 65 6E 20  35 0D 0A 6C 65 74 20 65  3D 30 2E 38 30 0D 0A 35  3A 20 6C 65 74 20 78 3D  >0 then 5let e=0.805: let x=
00000300  28 74 61 6E 20 28 34 35  29 2D 74 61 6E 28 32 35  29 29 2A 28 65 2F 32 2B  65 2F 32 30 29 0D 0A 0D  (tan (45)-tan(25))*(e/2+e/20)
00000320  0A 6C 65 74 20 70 3D 28  62 2D 65 2F 32 2D 78 29  2A 28 28 63 2F 64 29 2D  32 29 2F 28 61 2B 62 2D  let p=(b-e/2-x)*((c/d)-2)/(a+b-
00000340  65 2D 28 32 2A 78 29 29  0D 0A 21 6E 75 6D 62 65  72 20 6F 66 20 72 69 73  65 72 73 20 31 73 74 20  e-(2*x))!number of risers 1st 
00000360  66 6C 69 67 68 74 0D 0A  69 66 20 66 72 61 20 28  70 29 20 3C 20 30 2E 35  20 74 68 65 6E 20 33 0D  flightif fra (p) < 0.5 then 3
00000380  0A 6C 65 74 20 70 3D 70  2B 30 2E 35 0D 0A 33 3A  20 6C 65 74 20 70 3D 69  6E 74 20 28 70 29 0D 0A  let p=p+0.53: let p=int (p)
000003A0  0D 0A 6C 65 74 20 71 3D  28 61 2D 65 2F 32 2D 78  29 2A 28 28 63 2F 64 29  2D 32 29 2F 28 61 2B 62  let q=(a-e/2-x)*((c/d)-2)/(a+b
000003C0  2D 65 2D 28 32 2A 78 29  29 0D 0A 21 6E 75 6D 62  65 72 20 6F 66 20 72 69  73 65 72 73 20 32 6E 64  -e-(2*x))!number of risers 2nd
000003E0  20 66 6C 69 67 68 74 0D  0A 69 66 20 66 72 61 20  28 71 29 20 3C 20 30 2E  35 20 74 68 65 6E 20 34   flightif fra (q) < 0.5 then 4
00000400  0D 0A 6C 65 74 20 71 3D  71 2B 30 2E 35 0D 0A 34  3A 20 6C 65 74 20 71 3D  69 6E 74 20 28 71 29 0D  let q=q+0.54: let q=int (q)
00000420  0A 0D 0A 21 73 74 65 70  20 68 65 69 67 68 74 0D  0A 6C 65 74 20 64 3D 63  2F 28 70 2B 71 2B 32 29  !step heightlet d=c/(p+q+2)
00000440  0D 0A 0D 0A 21 73 74 65  70 20 77 69 64 74 68 20  31 73 74 20 66 6C 69 67  68 74 0D 0A 6C 65 74 20  !step width 1st flightlet 
00000460  6B 3D 28 62 2D 65 2F 32  2D 78 29 2F 70 0D 0A 21  73 74 65 70 20 77 69 64  74 68 20 32 6E 64 20 66  k=(b-e/2-x)/p!step width 2nd f
00000480  6C 69 67 68 74 0D 0A 6C  65 74 20 6C 3D 28 61 2D  65 2F 32 2D 78 29 2F 71  0D 0A 0D 0A 61 64 64 79  lightlet l=(a-e/2-x)/qaddy
000004A0  20 62 0D 0A 6D 75 6C 78  20 2D 31 0D 0A 72 6F 74  7A 20 2D 39 30 0D 0A 63  61 6C 6C 20 73 74 31 20   bmulx -1rotz -90call st1 
000004C0  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
000004E0  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 
00000500  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
00000520  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 0D  -i-1)next iaddx kaddz d
00000540  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 74  call st2 x,e,d,0,-25,-45del t
00000560  6F 70 0D 0A 0D 0A 72 6F  74 7A 20 2D 39 30 0D 0A  0D 0A 6D 75 6C 78 20 2D  31 0D 0A 61 64 64 78 20  oprotz -90mulx -1addx 
00000580  65 2F 32 0D 0A 61 64 64  7A 20 70 2A 64 2B 64 0D  0A 63 61 6C 6C 20 73 74  32 20 78 2C 65 2C 64 2C  e/2addz p*d+dcall st2 x,e,d,
000005A0  30 2C 34 35 2C 32 35 0D  0A 61 64 64 78 20 78 0D  0A 61 64 64 7A 20 64 0D  0A 66 6F 72 20 69 3D 71  0,45,25addx xaddz dfor i=q
000005C0  2D 31 20 74 6F 20 31 20  73 74 65 70 20 2D 31 0D  0A 63 61 6C 6C 20 73 74  32 20 6C 2C 65 2C 64 2C  -1 to 1 step -1call st2 l,e,d,
000005E0  30 2C 32 35 2F 65 78 70  20 28 71 2D 69 2D 31 29  2C 32 35 2F 65 78 70 20  28 71 2D 69 29 0D 0A 61  0,25/exp (q-i-1),25/exp (q-i)a
00000600  64 64 78 20 6C 0D 0A 61  64 64 7A 20 64 0D 0A 6E  65 78 74 20 69 0D 0A 63  61 6C 6C 20 73 74 32 20  ddx laddz dnext icall st2 
00000620  6C 2C 65 2C 64 2C 30 2C  32 35 2F 65 78 70 20 28  71 2D 69 2D 31 29 2C 30  0D 0A 64 65 6C 20 74 6F  l,e,d,0,25/exp (q-i-1),0del to
00000640  70 0D 0A 0D 0A 65 6E 64  0D 0A 7B 0D 7D 03 00 00  00 00 00 00 00 E7 8C 08  40 E7 8C 08 40 8F C2 75  pend{}.......τî@τî@Åu
00000660  3E 00 00 00 00 43 02 0C  53 74 61 69 72 20 48 65  69 67 68 74 8C 00 6A 80  80 80 80 20 00 40 80 9A  >....CStair Heightî.jÇÇÇÇ .@ÇÜ
00000680  0A 00 18 00 00 00 00 97  90 2F 40 44 02 0C 52 69  73 65 72 20 48 65 69 67  68 74 8C 00 6A 80 80 80  .....ùÉ/@DRiser Heightî.jÇÇÇ
000006A0  80 20 00 40 80 9A 0A 00  18 00 00 00 00 6F 12 43  3E 45 02 0A 53 74 65 70  20 57 69 64 74 68 68 74  Ç .@ÇÜ.....oC>EStep Widthht
000006C0  8C 00 6A 80 80 80 80 20  00 40 80 9A 0A 00 18 00  00 00 00 1E 16 6A 3F                              î.jÇÇÇÇ .@ÇÜ.....j?
[ RETURN TO DIRECTORY ]