10 SCREEN1,2,0:COLOR 2,1,1
20 CLEAR 200,&HDFFF:GOTO 220
30 A=USR(0):LOCATE RND(1)*26+1,5:PRINT"±"
40 S=STICK(0):VX=(S=7)-(S=3):D=0
50 X=X+VX-(X<3)+(X>27):PUTSPRITE0,(X*8,136),K+11,0
60 PUTSPRITE1,(X*8,136),6,1
70 PUTSPRITE2,(30,144),C(0),P
80 PUTSPRITE3,(90,144),C(1),P
90 PUTSPRITE4,(150,144),C(2),P
100 PUTSPRITE5,(210,144),C(3),P
110 V=VPEEK(&H1A20+X):V1=VPEEK(&H1A21+X):V3=VPEEK(&H1A40+X)
120 IF V=177 OR V1=177 THEN PLAY"T164s12m19O4gb":K=K-1:IF K=0 THEN 860
130 IF V3=177 THEN SC=SC+10:PLAY"T164s10m1001O4ccd"
140 P=P+1:IF P>3 THEN P=2
150 IF TIME>600 THEN C(0)=C(0)-1:C(1)=C(1)-1:C(2)=C(2)-1:C(3)=C(3)-1:TIME=500 ELSE 170
160 IF (C(0)=0)+(C(1)=0)+(C(2)=0)+(C(3)=0) THEN 840
170 LOCATE 0,1:PRINTUSING"SCORE #####ööHIGHSCORE #####";SC;HS:SC=SC+0:IF HS<SC THEN HS=SC
180 GOTO 30
190 FOR H=0 TO 3:IF ABS(X*8-(H*60+30))>3 THEN 210 ELSE C(H)=C(H)+1
200 SC=SC+10*(C(H)-2):PLAY"S10M1001L8O5CE"::TIME=C(H)*80+120
210 NEXT H:RETURN
220 KEYOFF:DEFUSR0=&HE000:DEFINT A-Z:WIDTH 28:ONSTRIGGOSUB190
230 FOR I=384 TO 976:VPOKE I,VPEEK(I) OR VPEEK(I)/2:NEXT
240 FOR I=&HE000 TO &HE02B:READA$:POKEI,VAL("&H"+A$):NEXT
250 FOR I=0 TO 9:READ A$,B$:A=ASC(B$)*8:FORB=0TO7:C=VAL("&H"+MID$(A$,B*2+1,2)):VPOKEA+B,C:NEXT:NEXT
260 FOR I=0 TO 3:B$="":FOR A=0 TO 31:READA$:B$=B$+CHR$(VAL("&H"+A$)):NEXT:SPRITE$(I)=B$:NEXT
270 VPOKE &H2016,49:VPOKE &H201E,97:VPOKE &H201F,43:GOSUB 580
280 FOR A=0 TO 29:VPOKE A+&H1801,246:VPOKEA+&H1AE1,246:VPOKEA+&H1841,246:NEXT
290 FOR A=0 TO 23:VPOKE &H1801+A*32,246:VPOKE &H181E+A*32,246:NEXT
300 FOR A=19 TO 21:LOCATE 0,A:PRINT"ûûûûûûûûûûûûûûûûûûûûûûûûûûûû";:NEXT
310 FOR A=0 TO 27:LOCATE A,3:PRINT"ç":VPOKE &H1AC2+A,252:NEXT
320 FOR A=4 TO 21:VPOKE &H1802+A*32,145:VPOKE &H181D+A*32,145:NEXT
330 VPOKE &H1AC2,147:VPOKE &H1862,236:VPOKE &H187D,236:VPOKE &H1ADD,147:GOTO 30
340 DATA21,80,18,11,00,f0,01
350 DATAe0,01,cd,59,00,21,00
360 DATAf0,11,A0,18,01,c0,01
370 DATAcd,5c,00,06,0c,21,e3
380 DATA07,cd,4a,00,0f,0f,0f,cd
390 DATA4d,00,2b,05,c2,1d,e0,c9
400 DATAFFFFFFDE8E0C0C08,"ç"
410 DATAFFFFFF7E7E7D3C7E,"ì"
420 DATA3F7C1F3E7C3E3F7E,"‘"
430 DATA3E1C3E1EBEFFFFFF,"“"
440 DATA18244281266EFFFF,"ü"
450 DATA010609080462928C,"±"
460 DATAFEFEFE00EFEFEF00,"ö"
470 DATA1824428118244281,"û"
480 DATA00305F815F300000,"¼"
490 DATA000CFA81FA0C0000,"Ê"
500 DATA 0,0,1,7,1,3,1,1,0,1,1,1,0,0,0,0
510 DATA 0,c0,e0,f8,60,e0,e0,e0,c0,e0,e0,e0,0,0,0,0
520 DATA 0,0,0,0,0,0,0,0,0,0,0,0,ff,7f,3f,1f
530 DATA 0,0,0,0,0,0,0,0,0,0,0,0,ff,ff,ff,fe
540 DATA 0,0,0,0,0,0,0,0,3,7,7,7,3,1,f,f7
550 DATA 0,0,0,0,0,0,0,0,80,c0,c0,c0,80,0,e0,de
560 DATA 0,0,0,0,0,0,0,0,3,7,87,47,23,11,f,7
570 DATA 0,0,0,0,0,0,0,0,80,c0,c2,c4,88,10,e0,c0
580 PUT SPRITE3,(0,208),0:PUT SPRITE0,(36,66),14:PUT SPRITE 1,(36,66),6:SC=0:X=20:P=2:K=3
590 RESTORE 630:FOR I=0 TO 22:READ A$:LOCATE 0,I:PRINTA$;:NEXT:FORH=0 TO 3:C(H)=2:NEXTH
600 PLAY"t128V10L8O4S10M1001CCDDDEEFGABDGDEAB"
610 FOR I=0 TO 250:NEXT:PUT SPRITE2,(36,82),4,P:P=P+1:IF P>3 THEN P=2
620 IF STRIG(0) AND NOTPLAY(1) THEN CLS:STRIG(0)ON:TIME=0:RETURN 280 ELSE 610
630 DATA"öööööööööööööööööööööööööööö"
640 DATA"öö
R
W
Yö
R
W
Yö
X
W
Yöö
X
W
Yö
Rö
Rö
R
W
Yöö"
650 DATA"öö
T
R
[ö
T
Söö
Z
W
Yöö
Vööö
Vö
Vö
T
Sööö"
660 DATA"öö
V
Vöö
Vööööö
Vöö
Vööö
Vö
Vö
Vöööö"
670 DATA"öö
Q
Z
[ö
Q
W
[ö
Z
W
[öö
Z
W
[ö
Z
W
[ö
Q
W
[öö"
680 DATA"öööööööööööööööööööööööööööö"
690 DATA"ö                          ö"
700 DATA"ö  ± ..... SNAKE -20 Pts.  ö"
710 DATA"ö      (KILL SNAKE 10 Pts.)ö"
720 DATA"ö    ..... RESCUER (YOU)   ö"
730 DATA"ö                          ö"
740 DATA"ö    ..... DROWNING PEOPLE ö"
750 DATA"ö           10~ Pts.       ö"
760 DATA"ö                          ö"
770 DATA"ö               [MOVEKEY]  ö"
780 DATA"ö             [LEFT][RIGHT]ö"
790 DATA"ö                
X
W
Y
X
W
Y    ö"
800 DATA"ö    [HELPKEY]   
V¼
V
VÊ
V    ö"
810 DATA"ö  
X
W
W
W
W
W
W
W
W
W
W
Y  
Z
W
[
Z
W
[    ö"
820 DATA"ö  
V   SPACE  
V            ö"
830 DATA"ö  
Z
W
W
W
W
W
W
W
W
W
W
[            ö"
840 DATA"ö  HIT [SPACE] KEY !!      ö"
850 DATA"öööööööööööööööööööööööööööö"
860 STRIG(0)OFF:RESTORE 890:FOR I=5 TO 11:READ A$:LOCATE 2,I:PRINTA$;:NEXT
870 PLAY"L8V10O4S10M1001GGGAFFDECBBBAGFEGFAG"
880 IF STRIG(0) AND NOTPLAY(1) THEN GOSUB 580 ELSE 880
890 DATA"
X
W
Y
X
W
Y
X
R
Y
R
W
Y
X
W
Y
R 
R
R
W
Y
R
W
Y"
900 DATA"
V 
V
V 
V
V
V
V
V  
V 
V
V 
V
V  
V 
V"
910 DATA"
V  
T
W
S
V
V
V
T
S 
V 
V
V 
V
T
S 
T
R
["
920 DATA"
V 
Y
V 
V
V
V
V
V  
V 
V
V 
V
V  
V
V "
930 DATA"
V 
V
V 
V
V
V
V
V  
V 
V
V 
V
V  
V
V "
940 DATA"
Z
W
[
Q 
Q
Q 
Q
Q
W
[
Z
W
[
Z
W
[
Q
W
[
Q
Z
["
950 DATA"   HIT [SPACE] KEY !!"
960 REM 1984
H 9
A 17
G 
AÖ³
G
970 REM    programmed by
980 REM    TUKEMONO ICI