Metropoli BBS
VIEWER: 05010wbm.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 7C 01  00 00 CE 01 00 00 0A 02  00 00 D8 03 00 00 03 00  00 00 DB 03 00 00 00 00  .kR...|...............
00000020  00 00 DB 03 00 00 3E 00  00 00 19 04 00 00 00 00  00 00 11 30 35 30 31 30  57 42 4D 20 57 65 62 20  ....>.........05010WBM Web 
00000040  42 65 61 6D 00 40 00 0A  00 4C 00 DC 00 00 01 89  00 ED 0A 00 00 00 00 00  04 00 00 00 00 00 00 00  Beam.@..L...ë.φ............
00000060  00 00 00 00 00 00 BF 0E  9C 40 A9 13 D0 3D 2C 01  00 00 2C 01 00 00 2C 01  00 00 4C 01 00 00 4C 01  ......£@=,..,..,..L..L
00000080  00 00 09 01 00 00 00 00  00 00 00 00 BF 0E 9C 40  00 00 00 00 0E 00 4C 69  6E 65 2D 30 30 31 00 00  ..........£@.....Line-001..
000000A0  09 01 00 00 00 00 A9 13  D0 3D BF 0E 9C 40 A9 13  D0 3D 0E 00 4C 69 6E 65  2D 30 30 31 00 00 09 01  ....=£@=.Line-001..
000000C0  BF 0E 9C 40 00 00 00 00  BF 0E 9C 40 A9 13 D0 3D  0E 00 4C 69 6E 65 2D 30  30 31 00 00 09 05 00 00  £@....£@=.Line-001....
000000E0  00 00 BF 0E 1C 3D BF 0E  9C 40 BF 0E 1C 3D 0E 00  4C 69 6E 65 2D 30 30 31  00 00 09 05 00 00 00 00  ..=£@=.Line-001......
00000100  4A 0C 82 3D BF 0E 9C 40  4A 0C 82 3D 0E 00 4C 69  6E 65 2D 30 30 31 00 00  09 01 7C E5 18 40 28 1A  Jé=£@Jé=.Line-001..|σ@(
00000120  A5 3D 6C 64 1A 40 66 3B  A7 3C 0E 00 4C 69 6E 65  2D 30 30 31 00 00 09 01  6C 64 1A 40 66 3B A7 3C  Ñ=ld@f;º<.Line-001..ld@f;º<
00000140  2C 06 1C 40 AC 75 4D 3D  0E 00 4C 69 6E 65 2D 30  30 31 00 00 09 01 DC 26  1F 40 28 1A A5 3D EC A7  ,@¼uM=.Line-001..&@(Ñ=º
00000160  1D 40 64 3B A7 3C 0E 00  4C 69 6E 65 2D 30 30 31  00 00 09 01 EC A7 1D 40  64 3B A7 3C 2C 06 1C 40  @d;º<.Line-001..º@d;º<,@
00000180  AC 75 4D 3D 0E 00 4C 69  6E 65 2D 30 30 31 00 00  09 01 00 00 00 00 A9 13  D0 3D 00 00 00 00 00 00  ¼uM=.Line-001......=......
000001A0  00 00 0E 00 4C 69 6E 65  2D 30 30 31 00 00 00 00  00 00 00 00 00 00 00 00  00 00 A9 13 D0 3D BF 0E  ...Line-001..............=
000001C0  9C 40 A9 13 D0 3D BF 0E  9C 40 00 00 00 00 21 57  65 62 20 62 65 61 6D 0D  0A 4C 65 74 20 6E 3D 69  £@=£@....!Web beamLet n=i
000001E0  6E 74 20 28 28 2E 34 31  2A 61 29 2F 63 29 0D 0A  6C 65 74 20 6A 3D 28 61  2D 38 22 29 2F 6E 0D 0A  nt ((.41*a)/c)let j=(a-8")/n
00000200  61 64 64 7A 20 2D 63 2B  31 20 31 2F 32 22 0D 0A  61 64 64 78 20 6A 2F 32  0D 0A 0D 0A 61 64 64 79  addz -c+1 1/2"addx j/2addy
00000220  20 31 20 31 2F 32 22 0D  0A 62 6C 6F 63 6B 20 61  2D 6A 2C 31 2F 34 22 2C  20 31 20 31 2F 32 22 0D   1 1/2"block a-j,1/4", 1 1/2"
00000240  0A 61 64 64 79 20 20 33  2F 34 22 0D 0A 62 6C 6F  63 6B 20 61 2D 6A 2C 31  2F 34 22 2C 20 31 20 31  addy  3/4"block a-j,1/4", 1 1
00000260  2F 32 22 0D 0A 64 65 6C  20 32 0D 0A 61 64 64 7A  20 20 2D 31 2F 32 22 0D  0A 62 6C 6F 63 6B 20 61  /2"del 2addz  -1/2"block a
00000280  2D 6A 2C 34 22 2C 20 31  2F 32 22 0D 0A 64 65 6C  20 32 0D 0A 0D 0A 61 64  64 7A 20 63 0D 0A 62 6C  -j,4", 1/2"del 2addz cbl
000002A0  6F 63 6B 20 61 2C 62 2C  20 31 2F 32 22 0D 0A 61  64 64 7A 20 2D 31 20 31  2F 32 22 0D 0A 61 64 64  ock a,b, 1/2"addz -1 1/2"add
000002C0  79 20 20 31 20 31 2F 32  22 0D 0A 62 6C 6F 63 6B  20 61 2C 31 2F 34 22 2C  20 31 20 31 2F 32 22 0D  y  1 1/2"block a,1/4", 1 1/2"
000002E0  0A 61 64 64 79 20 20 33  2F 34 22 0D 0A 62 6C 6F  63 6B 20 61 2C 31 2F 34  22 2C 20 31 20 31 2F 32  addy  3/4"block a,1/4", 1 1/2
00000300  22 0D 0A 64 65 6C 20 34  0D 0A 61 64 64 79 20 62  2F 32 2D 31 2F 34 22 0D  0A 61 64 64 78 20 34 22  "del 4addy b/2-1/4"addx 4"
00000320  0D 0A 66 6F 72 20 7A 3D  31 20 74 6F 20 6E 0D 0A  61 64 64 78 20 6A 2F 32  0D 0A 72 6F 74 79 20 2D  for z=1 to naddx j/2roty -
00000340  61 74 6E 28 28 6A 2F 32  29 2F 63 29 0D 0A 6C 65  74 20 6C 3D 73 71 72 28  28 6A 2F 32 29 5E 32 2B  atn((j/2)/c)let l=sqr((j/2)^2+
00000360  63 5E 32 29 0D 0A 62 6C  6F 63 6B 20 31 2F 32 22  2C 31 2F 32 22 2C 6C 0D  0A 64 65 6C 20 31 0D 0A  c^2)block 1/2",1/2",ldel 1
00000380  72 6F 74 79 20 61 74 6E  28 28 6A 2F 32 29 2F 63  29 0D 0A 21 6C 65 74 20  6C 3D 73 71 72 28 28 6A  roty atn((j/2)/c)!let l=sqr((j
000003A0  2F 32 29 5E 32 2B 63 5E  32 29 0D 0A 62 6C 6F 63  6B 20 31 2F 32 22 2C 31  2F 32 22 2C 6C 0D 0A 64  /2)^2+c^2)block 1/2",1/2",ld
000003C0  65 6C 20 31 0D 0A 61 64  64 78 20 6A 2F 32 0D 0A  6E 65 78 74 20 7A 0D 0A  7B 0D 7D 01 00 00 00 00  el 1addx j/2next z{}....
000003E0  00 00 00 A9 13 D0 3D BF  0E 9C 40 A9 13 50 3E 00  00 00 00 43 02 0A 42 65  61 6D 20 44 65 70 74 68  ...=£@P>....CBeam Depth
00000400  80 FF FF 00 FF FF FF 00  FF FF FF 00 80 FF FF 00  18 00 00 00 00 BF 0E 9C  3E                       Ç  .   .   .Ç  .....£>
[ RETURN TO DIRECTORY ]