Energy Field 275
460 IF S<>O THEN LOCATE 17,(11-2*F)+1:PE
3:PRINT CHR$(240);:PEN 1:FOR SS=10 TO 20:SOUND 1,(SS*10),3:NEXT:LOCATE 17,(11- 2*F)+1:PEN 0:PRINT CHR$(240);:PEN 1 470 PEN 1
480 IF S=0 THEN LI=LI-0.2:LOCATE 28,22:P RINT INT (LI);" "
490 GOTO 150
500 0=S:FOR F=1 TO 5
510 A=3
520 LOCATE (15-2*F),11:PRINT MID$(B$,F,1 );
530 GOSUB 170
540 SOUND 1,(F*40+F*2),3
550 PEN 0:LOCATE (15-2*F),11:PRINT MID$( B$,F,1);:PEN 1
560 GOSUB 170
570 SOUND 1,(F*40+F*2),3
5130 NEXT F
590 IF S<>0 THEN LOCATE (15-2*F)+1,11:PE
3:PRINT CHR$(240);:PEN 1:FOR SS=5 TO 1 5:SOUND 1,(SS*15),3:NEXT:LOCATE (15-2*F) +1,11:PEN 0:PRINT CHR$(240);:PEN 1 600 PEN 1
610 IF S=0 THEN LI=LI-0.2:LOCATE 28,22:P RINT INT (LI);"	"
620 GOTO 150
630 0=S:FOR F=1 TO 5
640 A=4
650 LOCATE (18+2*F),11:PRINT MID$(B$,F,1
660 GOSUB 170
670 SOUND 1,(F*40+F*2),3
680 PEN 0:LOCATE (18+2*F),11:PRINT MID$( B$,F,1);:PEN 1
690 GOSUB 170
700 SOUND 1,(F*40+F*2),3
710 NEXT
720 IF S<>0 THEN LOCATE (17+2*F)+1,12:PE
2:PRINT CHR$(240);:PEN 1:FOR SS=5 TO 1 5: SOUND I,(SS*15),3:NEXT:LOCATE (17+2*F) +1,I2:PEN 0:PRINT CHR$(240);:PEN 1 730 PEN 1
740 IF S=0 THEN LI=LI-0.2:LOCATE 28,22:P RINT INT (LI);"	"