16 Chomper
900 A$="	FAAE FE FAAAE FE FAAE
FAAJ	HAAE	B C
C C C HAAAJ HE	CB	BBBBBB
BB	BB	BBDDBD DBC
B	B":GOSUB 1290
910 PRINT:A$="	B B	B	B D C
BB	BB	B HAAAJB DBB
BB	BB BB	BB	BD
DD DD		FIB
GAAAAAAAAAAAAAAAAAAAAA AAI":GOSUB 1290
920 LOCATE 6,3:PEN 3:PRINT"*":LOCATE 26,
•	PRINT "*":LOCATE 6,21:PRINT"*":LOCATE
26,21:PRINT "*":PEN 1
930 C1=0:C=5:FOR F=2 TO 20:FOR 6=5 TO 27 940 LOCATE 6+1,F+1:CALL 360:KK=PEEK(367) :IF KK=32 THEN LOCATE G+1,F+1:PEN 2:PRIN 1".";:C=C+1
950 NEXT G:NEXT F
960 LOCATE 2,12:PRINT " ...":LOCATE 29,1 2:PRINT "...
970 X=16:Y=5:Y1=Y:X1=X:R=0:P$=CHR$(246) 9e0 F=16:G=X:61=G:F1=F
990 D6=-1:DF=0:LOCATE 6+1,F+1:PEN 2:PRIN T CHR$(248);:PEN 1
1000 LOCATE 1,1:PEN 3:PRINT "Score:":LOC ATE 18,1:PEN 2:PRINT "High-Score:";MID$( STR$(HS),2);:PEN 1
1010 LOCATE 12,1:PRINT "	";:LOCATE 12,
1:IF LI>1 THEN PRINT CHR$(244);:1F LI>2 THEN PRINT" ";CHR$(244);
1020 RETURN
1030 SYMBOL AFTER 230
1040 SYMBOL 231,0,255,0,0,0,0,255,0 1050 SYMBOL 232,66,66,66,66,66,66,66,66 1060 SYMBOL 233,0,24,36,66,66,66,66,66 1070 SYMBOL 234,66,66,66,66,66,36,24,0 1080 SYMBOL 235,0,246,4,2,2,4,248,0 1090 SYMBOL 236,0,31,32,64,64,32,31,0 1100 SYMBOL 237,66,65,64,32,32,24,7,0 1110 SYMBOL 238,0,7,24,32,32,64,65,66 1120 SYMBOL 239,66,130,2,4,4,24,224,0 1130 SYMBOL 240,0,224,24,4,4,2,130,66 1140 SYMBOL 241,66,129,0,0,0,0,255,0