10 COL 0,$e6,0
20 CROFF 
30 CLS 
40 TLOAD 1,"font1.dat",16,11
50 STILE 1
100 MAP w
120 TILE 166,255,$80,0,0,0
130 FOR i=1 TO 38
140 TILE 148,255,$80,0,i,0
150 NEXT i
160 TILE 143,255,$80,0,39,0
170 TILE 131,255,$80,0,0,1
180 TILE 131,255,$80,0,39,1
190 TILE 147,$56,$80,0,0,2
200 FOR i=1 TO 38
210 TILE 148,$56,$80,0,i,2
220 NEXT i
230 TILE 132,$56,$80,0,39,2
240 TILE 147,$56,$80,0,0,3
250 FOR i=1 TO 38
260 TILE 148,$56,$80,0,i,3
270 NEXT i
280 TILE 132,$56,$80,0,39,3
290 FOR i=4 TO 23
300 TILE 131,$56,$80,0,0,i
310 TILE 131,$56,$80,0,39,i
320 NEXT i
330 TILE 144,$56,$80,0,0,24
340 TILE 142,$56,$80,0,39,24
350 FOR i=1 TO 38
360 TILE 148,$56,$80,0,i,24
370 NEXT i
380 TILE 166,$56,$80,0,0,25
390 TILE 144,$56,$80,0,0,29
400 TILE 143,$56,$80,0,39,25
410 TILE 142,$56,$80,0,39,29
420 FOR i=26 TO 28
430 TILE 131,$56,$80,0,0,i
440 TILE 131,$56,$80,0,39,i
450 NEXT i
460 FOR i=1 TO 38
470 TILE 148,$56,$80,0,i,25
480 TILE 148,$56,$80,0,i,29
490 NEXT i
500 TILE 146,$56,$80,0,19,3
510 TILE 145,$56,$80,0,19,24
520 FOR i=4 TO 23
530 TILE 131,$56,$80,0,19,i
540 NEXT i
550 TILE 147,$56,$80,0,0,5
560 TILE 145,$56,$80,0,19,5
570 FOR i=1 TO 18
580 TILE 148,$56,$80,0,i,5
590 NEXT i
600 TILE 158,$56,$80,0,19,5
610 TILE 132,$56,$80,0,39,5
620 FOR i=20 TO 38
630 TILE 148,$56,$80,0,i,5
640 NEXT i
1000 POS 10,10