2 FOR I=1 TO 128
4 READ X
6 F$=F$&CHR$(X)
8 NEXT I
10 DATA 0,0,0,0,226,0,215,224,1,40,215,204,216,32,131,78,131,212,215,224,131,212,215,224,1,245,4,224
12 DATA 131,196,2,12,67,0,16,17,7,248,55,215,158,142,0,0,0,64,0,21,8,159,212,0,0,3,33,111
14 DATA 0,0,0,0,0,0,0,0,25,202,81,5,77,0,215,224,131,249,215,204,143,60,212,224,0,5,2,140,67,16,17
16 DATA 247,215,224,0,51,215,204,16,0,212,224,0,166,215,224,0,63,215,224,1,153,115,12,212,204,6,12
18 DATA 22,253,4,91,53,103,0,0,131,80,2,4,5,255
110 CALL CHAR(146,"0")
120 CALL CHAR(147,"0")
135 CALL CHAR(152,"1122334455667788")
136 CALL CHAR(153,"99AABBCCDDEEFF10")
140 CALL CHAR(154,"1010101010101010")
150 CALL CHAR(155,"1010101010101010")
155 CALL CHAR(159,"0")
160 CALL CHAR(96,"0F1F1C1C1E1F0F03")
170 CALL CHAR(97,"0303070702020203")
180 CALL CHAR(98,"84C4241424C4841F")
190 CALL CHAR(99,"C43C040480804070")
200 CALL CHAR(100,"0F1F1C1C1E1F0F03")
210 CALL CHAR(101,"0303070703030303")
220 CALL CHAR(102,"80C0201020C18204")
230 CALL CHAR(103,"A8502840000080E0")
240 CALL CHAR(104,"0F1F1C1C1E1F0F03")
250 CALL CHAR(105,"030307070305080E")
260 CALL CHAR(106,"80C0201020C08000")
270 CALL CHAR(107,"0040FF4080008070")
280 CALL CLEAR
290 CALL SCREEN(2)
292 OPEN #1:F$
294 CALL HCHAR(18,1,168,192)
300 CALL COLOR(1,8,8)
310 CALL COLOR(2,1,1)
320 CALL COLOR(4,1,16)
330 REM     sprite walking below            
340 MSB=1
350 LSB=1
360 CALL COLOR(2,MSB,LSB)
370 CALL COLOR(3,13,1)
380 GOSUB 490
390 CALL COLOR(2,MSB,LSB)
400 CALL COLOR(3,13,5)
410 GOSUB 490
420 CALL COLOR(2,MSB,LSB)
430 CALL COLOR(3,13,9)
440 GOSUB 490
450 CALL COLOR(2,MSB,LSB)
460 CALL COLOR(3,13,5)
470 GOSUB 490
480 GOTO 360
490 MSB=MSB-(LSB=16)
500 LSB=LSB+1+16*(LSB=16)
510 CALL KEY(0,K,S)
520 IF S=0 THEN 560
530 CALL CHAR(146,"F008")
531 CALL CHAR(146,"FA08")
532 CALL CHAR(146,"0608")
533 CALL CHAR(146,"1008")
534 CALL CHAR(146,"0")
535 CALL COLOR(1,8,8)
550 MSB=MSB+1
560 MSB=MSB+16*(MSB>16)
570 RETURN