10 REM AIR2.ECB 15 REM ...AIR RAID by JBR, Eagan Minn. UNIVAC UTS400 20 PRINT "&K&J&J": REM ...Modified for SOL-20 R.E.H. 30 LET N=6: REM ...Number of missles 40 DIM R(N),R$(9),X$(N) 50 DATA 12,21,30,39,48,57,0,0,0,"123456789" 60 FOR X=1 TO N: READ R(X): NEXT X 70 READ S,T,W,R$ 80 PRINT TAB(19);"-=<<<<<<<*>>>>>>>=-" 90 PRINT ," -=< >=-" 100 PRINT ,"-=< A I R R A I D >=-" 110 PRINT ," -=< >=-" 120 PRINT TAB(19);"-=<<<<<<<*>>>>>>>=- 3-20-82" 130 PRINT : PRINT 140 PRINT "Enter 1 to 6 to fire a missle at the aircraft '>'" 150 PRINT "You have 6 shots to hit 6 of the '>' aircraft.&J&J" 160 INPUT (1,0)"Enter any letter to start ---=>",I$ 170 SET DS=0 180 DEF FNM(M) 190 IF M/3=INT(M/3) THEN LET M=1 ELSE LET M=0 200 RETURN (M) 210 FNEND 220 PRINT "&K": REM ...New game entry 230 FOR X=1 TO N: REM ...Missle launchers 240 CURSOR 14,R(X)-1: PRINT R$(X,X);CHR(7); 250 NEXT X 260 LET X$=">>>>>>" 270 LET X=1,F=1,W1=0: REM ...Column #, pause counter 280 LET C=13: REM ...Number of vertical lines on the screen 290 LET F=F+1 300 IF FNM(F)=0 THEN 380 310 SET DS=0: REM ...MOVE Air ships 320 FOR I=1 TO 2 330 CURSOR I,X-1: PRINT " "; 340 NEXT I 350 CURSOR 1,X: PRINT X$(1,3); 360 CURSOR 2,X: PRINT X$(4,6); 370 IF X+4=64 THEN 690 ELSE LET X=X+1 380 IF S=1 THEN 470 ELSE CURSOR 15,1 390 PRINT "Enter number ---=>";: INPUT ,(1,1)I$ 400 SET DS=0 410 IF LEN(I$)=0 THEN 290 420 LET Z=ASC(I$)-48 430 IF Z<1 OR Z>N THEN 290 440 REM ...This area starts the shot going 450 LET S=1: REM ...Missle in flight 460 LET R=R(Z): REM ...Horizontal column 470 REM ...Shot in progress 480 CURSOR C+1,R: PRINT " "; 490 LET C=C-1 500 CURSOR C,R: PRINT CHR(7); 510 CURSOR C+1,R: PRINT "^"; 520 IF C>0 THEN 560 ELSE LET S=0 530 CURSOR C+1,R: PRINT " "; 540 CURSOR C,R: PRINT " "; 550 GOTO 280 560 REM ...Decide if a HIT was made 570 IF C>2 THEN 290 580 IF R=X-1 THEN 610 590 IF R=X THEN 630 600 IF R=X+1 THEN 650 ELSE 290 610 IF X$(4,4)=">" THEN LET X$(4,4)=" " ELSE LET X$(1,1)=" " 620 GOTO 660 630 IF X$(5,5)=">" THEN LET X$(5,5)=" " ELSE LET X$(2,2)=" " 640 GOTO 660 650 IF X$(6,6)=">" THEN LET X$(6,6)=" " ELSE LET X$(3,3)=" " 660 LET S=0 670 CURSOR C+1,R: PRINT " "; 680 GOTO 280 690 FOR Q=1 TO N 700 IF X$(Q,Q)=" " THEN LET W1=W1+1 710 NEXT Q 720 CURSOR 12,1: PRINT "Score: ";W1;" ships destroyed."; 730 CURSOR 13,1 740 INPUT (1,0)"Try again? (Y or N) ---=>",I$ 750 LET T=T+1 760 LET W=W+W1 770 IF LEN(I$)=0 THEN LET I$="Y" 780 IF I$="Y" THEN 220 790 IF I$="y" THEN 220 800 PRINT "TOTAL: ";W;" out of";T*N;" ships destroyed." 810 PRINT "Shooting percentage: ";%6F2;100*(W/(T*6));"%" 820 END