274 Energy Field
180 IF INKEY(0)=0 THEN DR=1:MV=MV-1*(MW 4)+3*(MV=4):X=P(DR,MV):Y=Q(DR,MV):FOR PS =1 TO 100:NEXT
190 IF INKEY(2)=0 THEN DR=2:MV=MV+1*(MV> 1)-3*(MV=1):X=P(DR,MV):Y=Q(DR,MV):FOR PS =1 TO 100:NEXT
200 LOCATE X+1,Y+1:PEN 2:PRINT CHR$(238) ;CHR$(239);
210 IF INKEY(47)=0 THEN IF G<>0 THEN GOS UB 760
220 NEXT
230 RETURN
240 O=S:FOR F=1 TO 4
250 A=1
260 LOCATE 17,(11+2*F)+1:PEN 2:PRINT MID $(A$,F,1);:PEN 1
270 GOSUB 170
280 SOUND 1,(F*10),3
290 PEN 0:LOCATE 17,(11+2*F)+1:PRINT MID $(A$,F,1):PEN 1
300 GOSUB 170
310 SOUND 1,(F*15),3
320 NEXT F
330 IF S<0 THEN LOCATE I6,(11+2*F)+1:PEN
2:PRINT CHR$(240);:PEN 1:FOR SS=I0 TO 2 0:SOUND 1,(SS*10),3:NEXT:LOCATE 16,(11+2 *F)+1:PEN 0:PRINT CHR$(240);:PEN 1
340 PEN 1
350 IF S=0 THEN LI=LI- 0.2:LOCATE 26,22: PRINT INT (LI);"
360 GOTO 150
370 O=S:FOR F=1 TO 4
380 A=2
390 LOCATE 17,(10-2*F)+1:PEN 3:PRINT MID $(A$,F,1);:PEN 1
400 GOSUB 170
410 SOUND 1,(F*10),3
420 PEN 0:LOCATE 17,(10-2*F)+1:PRINT MID $(A$,F,1);:PEN 1
430 GOSUB 170
440 SOUND 1,(F*15),3
450 NEXT