Energy Field 277
1090 FOR Q=13 TO 19:LOCATE 0+1,20:PRINT CHR$(143);:LOCATE Q+1,21:PRINT CHR$(143) ;:NEXT
1100 FOR SS=5 TO 15:SOUND 1,(SS*15),3:NE XT
1110 FOR Q=13 TO 19:LOCATE 0+1,20:PRINT " ":LOCATE 0+1,21:PRINT " ";:NEXT
1120 PEN 1
1130 IF A<>1 THEN 1170
1140 S=S+20
1150 G=0
1160 RETURN
1170 PEN 2:LOCATE X+1,Y+1:PRINT CHR$(238 );CHR$(239);
ileca FOR R=1 TO 10
1190 LOCATE X+1,Y+1:PEN 3:PRINT CHR$(240 );CHR$(240);:PEN 1
1200 SOUND 1,(R*100),3
1210 ' LOCATE X,R+1:PRINT CHR$(240);CHR$ (240);CHR$(240);
1220 LOCATE X+1,Y+1:PRINT " "'
1230 FOR XX=1 TO 40:NEXT
1240 NEXT
1250 LI=LI-1:LOCATE 28,22:PRINT INT (LI) ;" ";:IF LI<=1 THEN 1280
1260 PEN 2: LOCATE X+1,Y+1:PRINT CHR$(23 8);CHR$(239);
1270 RETURN
1280 LOCATE 9,11:PEN 1:PRINT CHR$(24);"G A M E OVER";CHR$(24);:PEN 1
1290 IF S>H THEN H=S
1300 LOCATE 1,22:PEN 3:PRINT CHR$(24);" PRESS ANY KEY TO PLAY AGAIN	";CHR$(24
);:PEN 1
1310 IF INKEY$<>"" THEN 1310
1320 IF INKEY$="" THEN 1320 ELSE RESTORE :CLS:GOTO 100
1330 GOTO 1320
1340 SYMBOL AFTER 230
1350 SYMBOL 231,40,84,186,124,186 84,40, 0
1360 SYMBOL 232,0,16,40,84,40,16 0,0 1370 SYMBOL 233,0,0,0,24,24,0,0,0
1380 SYMBOL 234,0,0,0,16,0,0,0,0