Chomper 13
400 LOCATE X+1,Y+1:PRINT CHR$(246);:SOUN
D	1,(F*2),3
410 LOCATE X+1,Y+1:PRINT CHR$(245);:SOUN
D	1,(F*3),3
420 LOCATE X+1,Y+1:PRINT CHR$(247);:SOUN
D	1,(F*4),3
430 NEXT F
440 FOR F=1 TO 200:NEXT
450 LOCATE X+1,Y+1:PRINT" ";:LI=LI-1:IF LI>0 THEN GOSUB 970:GOTO 120
460 CLS:LOCATE 7,8:PEN 3:PRINT"You score d";:PEN 2:PRINT SC;:PEN 3:PRINT"points": PEN 1
470 IF sc>hs THEN hs=sc:LOCATE 11,11:PRI NT" WELL DONE!!":PEN 3:PRINT:PRINT" Th at is the new best score":PEN 1:GOTO 490 480 LOCATE 7,11:PEN 3:PRINT"The high sco re is";:PEN 1:PRINT HS
490 LOCATE 4,20:PRINT CHR$(24); "PRESS A NY KEY TO PLAY AGAIN";CHR$(24)
500 IF INKEY$<>" THEN 500
510 IF INKEY$=" THEN 510 ELSE CLS:GOTO 70
520 LOCATE X+1,Y+1:PRINT CHR$(249);:FOR FF=1 TO 5:SOUND 1,(FF*5),3:NEXT
530 BORDER 0:R=0
540 SC=SC+50:LOCATE 7,1:PRINT MID$(STR$( SC),2);
550 GOTO 120
560 STOP
570 CLS :LOCATE 1,4:PEN 3
580 PRINT" W	W EEEEE L
590 PRINT" W	W E
600 PRINT" W WW W EEE
!I
610 PRINT " WW WW E
620 PRINT " W	W EEEEE LLLLLL LLLLL
L	":PEN 1
630 LOCATE 1,11:PEN 2
640 PRINT " DDDDD	0000 N	N EEEE
E	";
650 PRINT" D	D 0	0 NN N E