y=13:k=8
screen 6
line(0,0)-(239,63),1,B
for x=5 to 203 step 16
line(x+3,y)-(x+10,y),1
line(x+11,y+1)-(x+11,y+10),1
line(x+1,y+11)-(x+10,y+11),1
line(x,y+3)-(x,y+10),1
line(x+1,y+2)-(x+2,y+1),1 
next x
line(x+3,y)-(x+16,y),1
line(x+17,y+1)-(x+17,y+10),1
line(x+1,y+11)-(x+16,y+11),1
line(x,y+3)-(x,y+10),1
line(x+1,y+2)-(x+2,y+1),1
for i=1 to 14
glocate y+4,8+(i-1)*16:read a$:gprint a$
next i
for i=2 to 13
glocate y-9,8+(i-1)*16:read a$:gprint a$
next i
y=y+16:x=188
line(x+3,y)-(x+10,y),1
line(x+11,y+1)-(x+11,y+10),1
line(x+1,y+11)-(x+10,y+11),1
line(x,y+3)-(x,y+10),1
line(x+1,y+2)-(x+2,y+1),1
glocate y+4,x+3
gprint "003840424178"
x=x+16
line(x+3,y)-(x+10,y),1
line(x+11,y+1)-(x+11,y+10),1
line(x+1,y+11)-(x+10,y+11),1
line(x,y+3)-(x,y+10),1
line(x+1,y+2)-(x+2,y+1),1
glocate y+4,x+3
gprint "003048487e010201"
x=x+16
line(x+3,y)-(x+10,y),1
line(x+11,y+1)-(x+11,y+26),1
line(x-8,y+27)-(x+10,y+27),1
line(x-9,y+19)-(x-9,y+26),1
line(x+1,y+2)-(x+2,y+1),1
line(x-7,y+17)-(x-8,y+18),1
line(x-6,y+16)-(x,y+16),1
line(x,y+15)-(x,y+3),1
line(x+8,y+5)-(x+8,y+23),1
y=y+16:x=178
line(x+3,y)-(x+10,y),1
line(x+11,y+1)-(x+11,y+10),1
line(x+1,y+11)-(x+10,y+11),1
line(x,y+3)-(x,y+10),1
line(x+1,y+2)-(x+2,y+1),1
glocate y+4,x+3
gprint "00003842454238"
x=x+16
line(x+3,y)-(x+10,y),1
line(x+11,y+1)-(x+11,y+10),1
line(x+1,y+11)-(x+10,y+11),1
line(x,y+3)-(x,y+10),1
line(x+1,y+2)-(x+2,y+1),1
glocate y+4,x+3
gprint "0000043f444106"
glocate y+4,x+25
gprint "000010387c1010101010"
glocate k+20,5
gprint "e01008080810e000f88888888870003048880810000080601860800000080888483800f88888080800f818e08000f800fa01"
gprint "",,,,"f88040a0100800f800000000000080601a6180000038c000c03800f88888080800304888081000f818e08000f800f800e0100808081000f888880808"
gprint "",,,,,,,,,,,,,,,,"000000807c00fc007c80"
gprint "",,,,,"e010c828280810e000002010f80070888888f00070888888f00080402010c8"
glocate k+28,5
gprint "03040808080403000f0808080807000408080906000c03010101030c000e09080808000f08080808000f0000030c0f000f00"
gprint "",,,,"0f000000030c000f08080808000c03010101030c0000010e0100000f08080808000408080906000f0000030c0f000f00030408080804000f08080808"
gprint "",,,,,,,,,,,,,,,,"0808040300000f000003040808"
gprint "",,"0304090a0a080403000000000f00000808060100000808060100010101010f"
glocate k+34,5
gprint "f830f800f828d00008f8080038c03800f04cf2000000f830c800f8808000f04cf20038c03800f8a8a80090a84800f048f000000000080cfe0c08",,,,
gprint "38c0380018e0180038c0380070887000f8808000f04cf20038c03800f04cf2000000728c8a00fc0290a84800f8808000f80070888800f8a8a8",,,,
gprint "f048f000000000f8887000f800f048f000f830c800f828d000f80008f80800f80070888800f830c800f04cf2"
glocate k+42,5
gprint "c8a89800f870f800f048f000f830f800f8ac8a00f870f800f830c800f048f0",,,,,
gprint "101010000000000038c03800f8a88800f8808000f830c800f04cf2000000f8281000fc0290a84800f830f800f8a88800f870f800f048f0",,,
gprint "f828100070887000f830f8007088700070888800fc02000000f830c800f8808000f04cf20038c03800f8a8a80090a8480018e018",,,,
gprint "90a84800f820f800f800f828080008f808"
wait
screen 7
end
1000 data "7c54004834003844","000004027f","000062514946","000022494936","001814127f10","00002f494931"
1001 data "00003e494932","000001710907","000036494936","00000649493e","00003e41413e","0050300002510e"
1002 data "40201020400106","10387c1010101010101010"
1010 data "00007884868578","000078a5a6a5b8","00004895969665","00007885868548","0000fc09060508","000084c5a6958c"
1011 data "00008488720904","000060949695f8","0000000084fe81","000078a4a6a5b8","","00080cfefffe0c08"
end