Metropoli BBS
VIEWER: 09950brf.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 BC 00  00 00 0E 01 00 00 C2 02  00 00 D0 03 00 00 03 00  00 00 D3 03 00 00 00 00  .kR...................
00000020  00 00 D3 03 00 00 D6 00  00 00 A9 04 00 00 00 00  00 00 12 30 39 39 35 30  42 52 46 20 42 72 69 63  .............09950BRF Bric
00000040  6B 66 61 63 65 40 00 0A  00 4C 00 DC 00 00 00 EA  00 ED 02 00 00 00 00 00  0A 00 00 00 00 00 00 00  kface@..L....Ω.φ............
00000060  00 00 A9 13 50 BC BF 0E  1C 40 00 00 00 00 3C 00  00 00 3C 00 00 00 3C 00  00 00 8C 00 00 00 8C 00  ..P@....<...<...<...î...î.
00000080  00 00 08 01 00 00 00 00  00 00 00 00 BF 0E 1C 40  00 00 00 00 0E 00 20 20  20 20 20 20 20 20 00 00  ..........@.....        ..
000000A0  08 01 00 00 00 00 A9 13  50 BC BF 0E 1C 40 A9 13  50 BC 0E 00 20 20 20 20  20 20 20 20 00 00 00 00  ....P@P.        ....
000000C0  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  00 00 00 00 00 00 BF 0E  9C 3F 00 00 00 00 BF 0E  ......................£?....
000000E0  1C 40 00 00 00 00 00 00  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  00 00 00 00 00 00 BF 0E  @............................
00000100  9C 3F 00 00 00 00 BF 0E  1C 40 00 00 00 00 21 47  53 43 4E 45 20 27 39 30  20 20 6E 6F 20 72 65 6E  £?....@....!GSCNE '90  no ren
00000120  64 65 72 69 6E 67 0D 0A  4D 61 74 65 72 69 61 6C  20 4C 5F 0D 0A 0D 0A 20  20 20 20 4C 65 74 20 6D  deringMaterial L_    Let m
00000140  20 3D 20 64 2D 66 72 61  28 66 2F 64 29 2A 64 0D  0A 20 20 20 20 4C 65 74  20 6E 20 3D 20 66 72 61   = d-fra(f/d)*d    Let n = fra
00000160  28 67 2F 65 29 2A 65 0D  0A 20 20 20 20 4C 65 74  20 6C 20 3D 20 64 2D 66  72 61 28 66 2F 64 2D 2E  (g/e)*e    Let l = d-fra(f/d-.
00000180  35 29 2A 64 0D 0A 20 20  20 20 4C 65 74 20 72 20  3D 20 66 72 61 28 69 6E  74 28 67 2F 65 2B 31 29  5)*d    Let r = fra(int(g/e+1)
000001A0  2F 32 29 0D 0A 20 20 20  20 4C 65 74 20 70 20 3D  20 73 67 6E 28 6C 2D 6D  29 2A 64 2F 32 0D 0A 20  /2)    Let p = sgn(l-m)*d/2 
000001C0  20 20 20 49 66 20 6E 3D  30 20 74 68 65 6E 20 31  31 0D 0A 20 20 20 20 4C  65 74 20 6B 20 3D 20 65     If n=0 then 11    Let k = e
000001E0  2D 6E 0D 0A 20 20 20 20  47 6F 74 6F 20 32 32 0D  0A 31 31 3A 20 4C 65 74  20 6B 20 3D 20 30 0D 0A  -n    Goto 2211: Let k = 0
00000200  0D 0A 32 32 3A 20 49 66  20 20 28 6E 3D 30 20 61  6E 64 20 72 3D 30 29 20  6F 72 20 28 6E 23 30 20  22: If  (n=0 and r=0) or (n#0 
00000220  61 6E 64 20 72 3D 2E 35  29 20 74 68 65 6E 20 34  34 0D 0A 0D 0A 33 33 3A  20 4C 65 74 20 71 3D 30  and r=.5) then 4433: Let q=0
00000240  0D 0A 20 20 20 20 46 6F  72 20 7A 20 3D 20 6B 20  74 6F 20 63 2D 65 20 73  74 65 70 20 65 0D 0A 20      For z = k to c-e step e 
00000260  20 20 20 20 20 46 6F 72  20 78 20 3D 20 70 2A 71  2B 6D 20 74 6F 20 61 20  73 74 65 70 20 64 0D 0A       For x = p*q+m to a step d
00000280  20 20 20 20 20 20 20 20  6C 69 6E 5F 20 78 2C 30  2C 7A 2C 78 2C 30 2C 7A  20 2B 20 65 0D 0A 20 20          lin_ x,0,z,x,0,z + e  
000002A0  20 20 20 20 4E 65 78 74  20 78 0D 0A 20 20 20 20  20 20 4C 65 74 20 71 20  3D 20 6E 6F 74 28 71 29      Next x      Let q = not(q)
000002C0  0D 0A 20 20 20 20 20 20  6C 69 6E 5F 20 30 2C 30  2C 7A 2C 61 2C 30 2C 7A  0D 0A 20 20 20 20 4E 65        lin_ 0,0,z,a,0,z    Ne
000002E0  78 74 20 7A 0D 0A 20 20  20 20 6C 69 6E 5F 20 30  2C 30 2C 7A 2C 61 2C 30  2C 7A 0D 0A 45 78 69 74  xt z    lin_ 0,0,z,a,0,zExit
00000300  0D 0A 0D 0A 34 34 3A 20  4C 65 74 20 71 3D 30 0D  0A 20 20 20 20 46 6F 72  20 7A 20 3D 20 6B 20 74  44: Let q=0    For z = k t
00000320  6F 20 63 2D 65 20 73 74  65 70 20 65 0D 0A 20 20  20 20 20 20 46 6F 72 20  78 20 3D 20 70 2A 71 2B  o c-e step e      For x = p*q+
00000340  6C 20 74 6F 20 61 20 73  74 65 70 20 64 0D 0A 20  20 20 20 20 20 20 20 6C  69 6E 5F 20 78 2C 30 2C  l to a step d        lin_ x,0,
00000360  7A 2C 78 2C 30 2C 7A 20  2B 20 65 0D 0A 20 20 20  20 20 20 4E 65 78 74 20  78 0D 0A 20 20 20 20 20  z,x,0,z + e      Next x     
00000380  20 4C 65 74 20 71 20 3D  20 6E 6F 74 28 71 29 0D  0A 20 20 20 20 20 20 6C  69 6E 5F 20 30 2C 30 2C   Let q = not(q)      lin_ 0,0,
000003A0  7A 2C 61 2C 30 2C 7A 0D  0A 20 20 20 20 4E 65 78  74 20 7A 0D 0A 20 20 20  20 6C 69 6E 5F 20 30 2C  z,a,0,z    Next z    lin_ 0,
000003C0  30 2C 7A 2C 61 2C 30 2C  7A 0D 0A 65 6E 64 0D 0A  7B 0D 7D 05 00 00 00 00  00 00 00 A9 13 50 3C BF  0,z,a,0,zend{}.......P<
000003E0  0E 1C 40 8F C2 75 3E 00  00 00 00 43 02 0E 50 61  74 74 65 72 6E 20 48 65  69 67 68 74 6A 80 80 80  @Åu>....CPattern HeightjÇÇÇ
00000400  80 20 00 40 80 9A 0A 00  18 00 00 00 00 97 90 2F  40 44 02 0C 42 72 69 63  6B 20 4C 65 6E 67 74 68  Ç .@ÇÜ.....ùÉ/@DBrick Length
00000420  68 74 6A 80 80 80 80 20  00 40 80 9A 0A 00 18 00  00 00 00 BF 0E 1C 3E 45  02 0C 42 72 69 63 6B 20  htjÇÇÇÇ .@ÇÜ.....>EBrick 
00000440  48 65 69 67 68 74 68 74  6A 80 80 80 80 20 00 40  80 9A 0A 00 18 00 00 00  00 4A 0C 82 3D 46 02 11  HeighthtjÇÇÇÇ .@ÇÜ.....Jé=F
00000460  48 6F 72 69 7A 6F 6E 74  61 6C 20 4F 66 66 73 65  74 80 80 20 00 40 80 9A  0A 00 18 00 00 00 00 00  Horizontal OffsetÇÇ .@ÇÜ......
00000480  00 00 00 47 02 0F 56 65  72 74 69 63 61 6C 20 4F  66 66 73 65 74 65 74 80  80 20 00 40 80 9A 0A 00  ...GVertical OffsetetÇÇ .@ÇÜ.
000004A0  18 00 00 00 00 00 00 00  00                                                                         ........
[ RETURN TO DIRECTORY ]