12 Chomper
170 LOCATE X+1,Y+1: CALL 360:KK=PEEK(36 7):LOCATE 1,4:IF KK=46 THEN LOCATE X1+1, Y1+1:PRINT CHR$(243);:SC=SC+1:C1=C1+1:LO CATE 7,1:PEN 2:PRINT MID$(STR$(SC),2);:F EN 1:SOUND 1,60,2:IF C1=C THEN 570
lee IF Y=11 THEN X=X-30*(X=1)+30*(X=31) 190 P=X:O=Y:IF R>0 THEN P=31—X:0=21—Y:R= R+1:IF R=50 THEN SOUND 1,100,3:BORDER 0: R=0
200 LOCATE N1+1,Y1+1:PRINT" ";:LOCATE X+ 1,Y+1:PRINT P$
210 Y1=Y:X1=X
220 IF Y=F AND X=G THEN IF R>0 THEN 520 ELSE GOTO 3e0
230 F1=F:G1=G:G=G+DG:F=F+DF
240 LOCATE G+1,F+1:GOSUB 100:IF FL=1 THE
N	310
250 IF F<>0 AND DF=0 THEN LOCATE G1+1,F1 +1—(F1<=0)+(F>0):GOSUB 100:IF FL =0 THEN 320
260 IF G1<>P AND DG=0 THEN LOCATE G1+1—( Gl<=P)+(61>P),F1+1:GOSUB 100:IF FL=0 THE
N	350
270 IF F=11 THEN G=G-30*(G=1)+30*(G=31) 280 PEN 2:LOCATE G1+1,F1+1:PRINT CHRS(MK 1);:LOCATE-G+1,F+1:CALL 360:MK1=32-14*(P EEK(367)=46):PRINT CHR$(248);:PEN 1
290 IF Y=F AND X=G THEN IF R>0 THEN 520 ELSE GOTO 380
300 GOTO 120
310 IF DG=0 THEN 350
320 IF DF=0 THEN DF=(F1>Q)—(Fl<=0):DG=0: G=G1:F=F1+DF
330 LOCATE G+1,F+1:GOSUB 100: IF FL=1 THE
N	DF=—DF:F=F1+DF
340 GOTO 270
350 DG=(61>P)—(61<=P):DF=0:F=F1:G=G1+DG 360 LOCATE G+1,F+1:GOSUB 100:IF FL=1 THE
N	DG=—DG:G=G1+DG
370 GOTO 270
380 FOR F=1 TO 15
390 LOCATE X+1,Y+1:PRINT CHR$(244);:SOUN
N	1,(F*2),3