Flying Geese 295
160 CLS:PEN 3:LOCATE 1,I:PRINT"SHOTS: ";:LOCATE 31,1:PRINT"SCORE:	";:PEN I:L
OCATE 22,14:PRINT STRING$(3,235);:LOCATE
21,15:PRINT STRING$(5,235);:LOCATE 20,1 6: PRINT STRIN6$(7,235);:LOCATE 20,17:PRI NT STRING$(7,235);
170 LOCATE 21,18: PRINT CHR$ (235) ; CHR$ (14 3);:LOCATE 22,18:PRINT CHR$(235);:LOCATE 23,16:PRINT CHR$(234);CHR$(235);CHR$(23 5);: LOCATE 23, 19: PRINT CHR$(234);:LOCATE 23,20:PRINT CHR$(234);
180 LOCATE 32,13: PRINT STRING$(3,235);:L OCATE 31,14:PRINT STRING$(5,235);:LOCATE
30,15:PRINT STRING$(7,235);:LOCATE 30,1 6:PRINT STRING$(7,235);
190 LOCATE 31,17:PRINT CHR$(235);CHR$(14 3);:LOCATE 32,17:PRINT CHR$(235);:LOCATE
33,17: PRINT CHR$(234);CHR$(235);CHR$(23 5);:LOCATE 33,18:PRINT CHR$(234);:LOCATE
33,19:PRINT CHR$(234);
200 LOCATE 1,21: PRINT STRING$(10,235);" ";STRING$(22,235);:LOCATE 1,22:PR INT STRING$(40,143);
210 LOCATE 2,19:PRINT CHR$(243);:LOCATE 2,20:PRINT CHR$(244);
220 LOCATE 25,19: PRINT CHR$ (243) ; : LOCATE 25,20:PRINT CHR$(244);
230 GOTO 60
240 REM END ROUTINE
250 FOR X=-20 TO 40:SOUND 1,(X+60),3:NEX T
260 IF B> TOT THEN TOT=B
270 LOCATE 12,9:PEN 2:PRINT"GAME 0 V E R":PEN 1
280 LOCATE 5,12:PRINT"LAST SCORE:";B;:LO CATE 20,12:PRINT"HIGHEST SCORE: ";TOT; 290 LOCATE 9,15:PRINT"PRESS ANY KEY TO C ONTINUE";
300 IF INKEY$<>" THEN 300
310 IF INKEY$=" THEN 310 ELSE SH=0:B=0: GOTO 150
320 REM INITIALISE
330 REM