5 COL 0,$e6,0
8 CROFF 
10 CLS 
15 MOUSE 1,1
20 TLOAD 1,"font1.dat",16,11
30 STILE 1
35 MAP w
40 TILE 165,0,$92,0,2,2
50 FOR i=3 TO 25
60 TILE 157,0,$92,0,i,2
70 NEXT i
80 TILE 143,0,$92,0,26,2
90 FOR i=3 TO 10
100 TILE 138,0,$92,0,2,i
110 TILE 138,0,$92,0,26,i
120 NEXT i
130 TILE 156,0,$92,0,2,11
140 FOR i=3 TO 25
150 TILE 157,0,$92,0,i,11
160 NEXT i
170 TILE 149,0,255,0,11,11
180 TILE 132,255,$92,0,26,11
190 TILE 155,255,$92,0,15,11
200 FOR i=12 TO 20
210 TILE 131,0,$92,0,2,i
220 TILE 131,0,$92,0,15,i
230 TILE 131,0,$92,0,26,i
250 NEXT i
260 TILE 159,0,$92,0,15,21
270 TILE 132,0,$92,0,26,21
280 FOR i=16 TO 25
290 TILE 157,0,$92,0,i,21
300 NEXT i
310 TILE 157,0,$92,0,14,21
320 TILE 165,0,$92,0,13,21
330 TILE 131,0,$92,0,2,21
340 FOR i=22 TO 25
350 TILE 131,0,$92,0,2,i
360 TILE 131,0,$92,0,13,i
370 TILE 131,0,$92,0,26,i
400 NEXT i
410 TILE 144,0,$92,0,2,26
412 FOR i=3 TO 25
413 TILE 157,0,$92,0,i,26
415 NEXT i
420 TILE 154,0,$92,0,13,26
430 TILE 142,0,$92,0,26,26
450 FOR i=3 TO 10
460 FOR x=3 TO 25
470 TILE 108,$56,$10,$20,x,i
500 NEXT x
510 NEXT i
520 TILE 103,0,$f0,$80,8,6
530 TILE 42,0,255,0,14,4
540 FOR i=1 TO 7
550 x=RND (20)+3
560 y=RND (8)+3
570 TILE 124,0,255,0,x,y
580 NEXT i
600 FOR y=12 TO 20
610 FOR x=16 TO 25
620 TILE 128,0,$1f,0,x,y
650 NEXT x
660 NEXT y
700 FOR y=22 TO 25
710 FOR x=14 TO 25
720 TILE 129,0,$c0,$f0,x,y
730 NEXT x
750 NEXT y
800 FOR y=12 TO 20
810 FOR x=3 TO 14
820 TILE 35,0,255,$fc,x,y
830 NEXT x
840 NEXT y
900 FOR y=21 TO 25
910 FOR x=3 TO 12
930 TILE 35,0,255,$fc,x,y
940 NEXT x
950 NEXT y
1000 TILE 115,0,255,0,16,12
1010 TILE 98,0,255,0,24,12
1020 FOR y=15 TO 17
1030 FOR x=19 TO 21
1040 TILE 61,0,$fc,0,x,y
1050 NEXT x
1060 NEXT y
1070 TILE 114,0,$92,0,20,16
1080 TILE 149,0,$fc,0,20,11
1090 TILE 149,0,$fc,0,18,26
1100 TILE 168,0,$fc,0,21,21
1110 TILE 167,0,$fc,0,5,26
1120 TILE 62,0,$fc,0,3,3
2060 TILE 125,$80,$1f,0,23,22
2070 TILE 47,$80,$fc,$54,15,24
10000 POS 30,3:PRINT MX ;" ",MY ;" "
10010 GOTO 10000