5 A$="V1M9000S11T220O4L4"
6 B$="V1M9000S11T220O3L4"
7 PLAY A$,B$
10 SCREEN1:COLOR 15,1,1:KEY OFF
20 DATA 0,12,24,56,108,70,2,0
30 M=ASC("m")
40 FOR I=0 TO 7:READ S:VPOKE M*8+I,S:NEXT I
50 DATA &h24,&h99,&h42,&h18,&h3C,&h7E,&hFF,0
60 FOR I=0 TO 7:READ S:VPOKE 48*8+I,S:NEXT I
70 VPOKE 8198,&H81
80 DATA 127,127,127,0,239,239,239,0,195,255,255,195,195,255,255,195
90 FOR I=0 TO 7:READ S:VPOKE 102*8+I,S:NEXT I
100 FOR I=0 TO 7:READ S:VPOKE 106*8+I,S:NEXT I
110 VPOKE 8204,&HC1
120 VPOKE 8205,&H51
130 SPRITE$(0)="~Û"+CHR$(255)+"f<Z¥¥"
140 PRINT" j":PRINT" j":PRINT" j"
150 PRINT" j            0       0"
160 PRINT"fffffjf ffjfffff    ffffjfffj";
170 PRINT"     j    j             j   j";
180 PRINT"0    j    j             j O j";
190 PRINT"fffffj    j             j j j";
200 PRINT"     j    j             j j j";
210 PRINT"    0j    j          0  j j j";
220 PRINT"fffffff  ffffff     ffffj j j";
230 PRINT"0        ffmfff       0 j j j";
240 PRINT"fff        j         jf j j j";
250 PRINT"           j         j  j j j";
260 PRINT" 0         j         j  j j j";
270 PRINT"ff       0 j         j  j j j";
280 PRINT"        ffffffjff    j  j j j";
290 PRINT" ffffff       j      j  j j j";
300 PRINT"  fff         j      j  j j j";
310 PRINT"  fff         j      j  j j j";
320 PRINT"              j      j  j j j";
330 PRINT"            fffff    j  j j j";
340 PRINT"                   ffffff fff";
350 X=184:Y=10
360 A=X\8:B=(Y\8)*32
370 ON STICK(0) GOTO 390,470,410,470,430,470,450
380 GOTO 470
390 IFVPEEK(BASE(5)+A+B)=106THENY=Y-8
400 GOTO 470
410 IFVPEEK(BASE(5)+A+B+1)<>102THENX=X+4
420 GOTO 470
430 IFVPEEK(BASE(5)+A+B+32)=106THENY=Y+8
440 GOTO 470
450 IFVPEEK(BASE(5)+A+B-1)<>102THENX=X-4
460 GOTO 470
470 GOSUB 560
480 PUTSPRITE0,(X,Y),15,N
490 IFVPEEK(BASE(5)+A+B+32)=32THENY=Y+4:PUTSPRITE0,(X,Y),15,N
500 IFVPEEK(BASE(5)+A+B)=48THENAL=AL+1:LOCATEA-2,Y\8:PRINT" "
510 IFVPEEK(BASE(5)+A+B)=ASC("m")THENK=5:LOCATEA-2,B\32:PRINT" "
520 IFVPEEK(BASE(5)+A+B)=ASC("O")THENCOLOR1,15,15
530 IFAL=9THEN1000
540 A$=INKEY$:IFA$=" "ANDK>0THENK=K-1:LOCATEA-2,B\32+1:PRINT" "
550 GOTO 360
560 IF PLAY(0)<>0THENRETURN
570 IF NU=4 THEN NU=0 ELSE NU=NU+1
575 ON NU+1 GOSUB 580,620,650,680:RETURN
580 A$="E-.E8E-R8E-8GA-B-8A-8G8E8E-.E8E-D-CD-E-2"
590 A$="E-.E8E-R8E-8GA-B-8A-8G8E8E-.E8E-D-CD-E-2"
600 B$="E-GE-GE-GE-GE-GE-GE-GE-2"
610 PLAY A$,B$:RETURN
620 A$="G.A-8GR8G8A-BO5D8O4B8B-8A-8G8A-8B-8A-8GEE-.E8E-8."
630 B$="EGEGEGEGE-GE-GE-GE-"
640 PLAY A$,B$:RETURN
650 A$="L8B-A-B-BO5DE-L4DO4BB-.B8B-"
660 B$="GE-GO2B-O3GE-GO2B-O3"
670 PLAY A$,B$:RETURN
680 A$="L8B-A-B-BO5DE-FE-DO4BL4B-.B8B-8"
690 B$="GE-GO2B-O3GE-GO2B-8O4E-8G8B-8O3"
700 PLAY A$,B$:RETURN
710 GOTO 560