3330IF Z3=0 THEN 2960
3340PRINT "*** STAR BASE DESTROYED *** .......CONGRATULATIONS"
3350B3=B3-1
3360 A$="   "
3390GOSUB 5510
3400G(Q1,Q2)=K3*100+B3*10+S3
3405 IF Z(Q1,Q2)<1 GOTO 3410\Z(Q1,Q2)=G(Q1,Q2)
3410GOTO 3430
3420PRINT "TORPEDO MISSED"
3430GOSUB 3790
3440IF E<0 THEN 4000
3450GOTO 1270
3451REM *** SHIELD CONTROL CODE BEGINS HERE
3460IF D(7)>=0 THEN 3490
3470PRINT "SHIELD CONTROL IS NON-OPERATIONAL"
3480GOTO 1270
3490 PRINT "ENERGY AVAILABLE =";E+S
3500 PRINT "   NUMBER OF UNITS TO SHIELDS:";\INPUT X
3510 IF X<0 GOTO 1270
3520IF E+S-X<0 THEN 3490
3530E=E+S-X\S=X
3550GOTO 1270
3551REM *** DAMAGE CONTROL REPORT CODE BEGINS HERE
3560IF D(6)>=0 THEN 3590
3570PRINT "DAMAGE CONTROL REPORT IS NOT AVAILABLE"
3580GOTO 1270
3590PRINT\PRI