276 Energy Field
750 GOTO 150
760 ON MV GOTO 870,970,770,1070
770 REM FIELD 3
780 PEN 3
790 FOR Q=5 TO 17 :LOCATE 28,Q+1:PRINT S TRING$(3,143):NEXT
800 FOR SS=5 TO 15:SOUND 1,(SS*15),3:NEX
810 FOR Q=5 TO 17 :LOCATE 28,Q+1:PRINT " ":NEXT
820 PEN 1
830 IF A<>4 THEN 1170
840 S=S+20
850 G=0
860 RETURN
870 REM FIELD 1
880 PEN 3
890 FOR 0=5 TO 17:LOCATE 3,0+1:PRINT STR ING$(3,143);:NEXT
900 FOR SS=5 TO 15:SOUND 1,(SS*15),3:NEX
910 FOR 0=5 TO 17:LOCATE 3,0+1:PRINT" ":NEXT
920 PEN 1
930 IF A<>3 THEN 1170
940 S=S+20
950 G=0
960 RETURN
970 REM FIELD 2
980 PEN 3
990 FOR Q=13 TO 19:LOCATE Q+1,2:PRINT CH R$(143);:LOCATE 0+1,3:PRINT CHR$(143);:N EXT
1000 FOR SS=5 TO 15:SOUND 1,(SS*15),3:NE XT
1010 FOR 0=13 TO 19:LOCATE 0+1,2:PRINT " ":LOCATE 0+1,3:PRINT " ";:NEXT
1020 PEN 1
1030 IF A<>2 THEN 1170
1040 S=S+20
1050 G=0
1060 RETURN
1070 REM FIELD 4
1080 PEN 3