1 REM SHIPS X003A SJD 25-OCT-77 1000 PRINT "THE GAME OF BATTLESHIPS" 1010 PRINT "PLEASE GIVE ME A FEW MOMENTS TO DECIDE WHERE TO PUT MY SHIPS" 1040 DIM A(10,10),C(7),D(7),E(12) 1045 DIM F(12),G(12),H(12),K(10,10) 1050 LET Z8=0 1060 FOR W=1 TO 12 1070 LET E(W)=-1 1080 LET H(W)=-1 1090 NEXT W 1100 FOR X=1 TO 10 1110 FOR Y=1 TO 10 1120 LET B(X,Y)=0 1130 NEXT Y 1140 NEXT X 1150 FOR X=1 TO 12 1160 LET F(X)=0 1170 LET G(X)=0 1180 NEXT X 1190 FOR X=1 TO 10 1200 FOR Y=1 TO 10 1210 LET A(X,Y)=0 1220 NEXT Y 1230 NEXT X 1240 FOR K=4 TO 1 STEP -1 1250 LET U6=0 1260 GOSUB 2910 1270 DEF FNA(K)=(5-K)*3-2*INT(K/4)+SGN(K-1)-1 1280 DEF FNB(K)=K+INT(K/4)-SGN(K-1) 1290 IF V+V2+V*V2=0 THEN 1260 1300 IF Y+V*FNB(K)>10 THEN 1260 1310 IF Y+V*FNB(K)<1 THEN 1260 1320 IF X+V2*FNB(K)>10 THEN 1260 1330 IF X+V2*FNB(K)<1 THEN 1260 1340 LET U6=U6+1 1350 IF U6>25 THEN 1190 1360 FOR Z=0 TO FNB(K) 1370 LET F(Z+FNA(K))=X+V2*Z 1380 LET G(Z+FNA(K))=Y+V*Z 1390 NEXT Z 1400 LET U8=FNA(K) 1410 FOR Z2=U8 TO U8+FNB(K) 1420 FOR Z3=1 TO U8-1 1430 IF SQR((F(Z3)-F(Z2))^2+(G(Z3)-G(Z2))^2)<3.59 THEN 1260 1440 NEXT Z3 1450 NEXT Z2 1460 FOR Z=0 TO FNB(K) 1470 LET A(F(Z+U8),G(Z+U8))=.5+SGN(K-1)*(K-1.5) 1480 NEXT Z 1490 NEXT K 1500 PRINT "ENTER CO-ORDINATES FOR ..." 1510 PRINT "BATTLESHIP" 1520 FOR X=1 TO 5 1530 INPUT Y,Z 1540 LET B(Y,Z)=3 1550 NEXT X 1560 PRINT "CRUSIER" 1570 FOR X=1 TO 3 1580 INPUT Y,Z 1590 LET B(Y,Z)=2 1600 NEXT X 1610 PRINT "DESTROYER " 1620 FOR X=1 TO 2 1630 INPUT Y,Z 1640 LET B(Y,Z)=1 1650 NEXT X 1660 PRINT "DESTROYER " 1670 FOR X=1 TO 2 1680 INPUT Y,Z 1690 LET B(Y,Z)=.5 1700 NEXT X 1710 PRINT "DO YOU WANT TO START (1=YES,0=NO) "; 1720 INPUT J9 1730 IF J9<>2 THEN 1890 1740 FOR Z=1 TO 12 1750 IF Z=1 THEN PRINT "BATTLESHIP" 1760 IF Z=6 THEN PRINT "CRUISER" 1770 IF Z=9 THEN PRINT "DESTROYER " 1780 IF Z=11 THEN PRINT "DESTROYER " 1790 PRINT F(Z);G(Z) 1800 NEXT Z 1810 GO TO 1710 1890 LET C=0 1900 PRINT "DO YOU WANT TO SEE MY SHOTS (1=YES,0=NO) "; 1910 INPUT K9 1920 PRINT 1930 IF J9<>1 THEN 2620 1940 REM START 1950 IF J9<>1 THEN 1990 1960 LET C=C+1 1970 PRINT 1980 PRINT "TURN ";C 1990 LET A=0 2000 FOR W=.5 TO 3 STEP .5 2010 FOR X=1 TO 10 2020 FOR Y=1 TO 10 2030 IF B(X,Y)=W THEN 2070 2040 NEXT Y 2050 NEXT X 2060 GO TO 2080 2070 LET A=1 2080 NEXT W 2090 FOR W=1 TO 7 2100 LET C(W)=0 2110 LET D(W)=0 2120 LET F(W)=0 2130 LET G(W)=0 2140 NEXT W 2150 LET P3=0 2160 FOR X=1 TO 10 2170 FOR Y=1 TO 10 2180 IF A(X,Y)>10 THEN 2200 2190 LET P3=P3+1 2200 NEXT Y 2210 NEXT X 2220 PRINT "YOU HAVE ";A;"SHOTS" 2230 IF P3>=A THEN 2260 2240 PRINT "NO. SHOTS EXCEEDS NO. BLANK SQUARES" 2250 GO TO 2890 2260 IF A<>0 THEN 2290 2270 PRINT "I HAVE WON" 2280 STOP 2290 FOR W=1 TO A 2300 INPUT X,Y 2310 IF X<>INT(X) THEN 2370 2320 IF (X-1)*(10-X)<0 THEN 2370 2340 IF Y<>INT(Y) THEN 2370 2350 IF (Y-1)*(10-Y)<0 THEN 2370 2360 GO TO 2390 2370 PRINT "ILLEGAL CO-ORDS, PLEASE TRY AGAIN" 2380 GO TO 2300 2390 IF A(X,Y)>10 THEN 2440 2400 LET C(W)=X 2410 LET D(W)=Y 2420 NEXT W 2430 GO TO 2460 2440 PRINT "YOU SHOT THERE BEFORE ON TURN ";A(X,Y)-10 2450 GO TO 2300 2460 FOR W=1 TO A 2470 IF A(C(W),D(W))=3 THEN 2540 2480 IF A(C(W),D(W))=2 THEN 2560 2490 IF A(C(W),D(W))=1 THEN 2580 2500 IF A(C(W),D(W))=.5 THEN 2600 2510 LET A(C(W),D(W))=10+C 2520 NEXT W 2530 GO TO 2620 2540 PRINT "YOU HIT MY BATTLESHIP" \ GO TO 2510 2560 PRINT "YOU HIT MY CRUISER" \ GO TO 2510 2580 PRINT "YOU HIT MY DESTROYER " \ GO TO 2510 2600 PRINT "YOU HIT MY DESTROYER " \ GO TO 2510 2620 LET A=0 2630 IF J9=1 THEN 2670 2640 LET C=C+1 2650 PRINT 2660 PRINT "TURN ";C 2670 LET A=0 2680 FOR W=.5 TO 3.1 STEP .5 2690 FOR X=1 TO 10 2700 FOR Y=1 TO 10 2710 IF A(X,Y)=W THEN 2750 2720 NEXT Y 2730 NEXT X 2740 GO TO 2760 2750 LET A=A+INT(W+.5) 2760 NEXT W 2770 LET P3=0 2780 FOR X=1 TO 10 2790 FOR Y=1 TO 10 2800 IF B(X,Y)>10 THEN 2820 2810 LET P3=P3+1 2820 NEXT Y 2830 NEXT X 2840 PRINT "I HAVE ";A;"SHOTS" 2850 IF P3>A THEN 2880 2860 PRINT "NO. OF SHOTS EXCEEDS THE NUMBER OF BLANK SQUARES" 2870 GO TO 2270 2880 IF A<>0 THEN 2960 2890 PRINT "YOU HAVE WON" 2900 STOP 2910 LET X=INT((RND(-1)*10)+1) 2920 LET Y=INT((RND(-1)*10)+1) 2930 LET V=INT(3*RND(-1)-1) 2940 LET V2=INT(3*RND(-1)-1) 2950 RETURN 2960 FOR W=1 TO 12 2970 IF H(W)>0 THEN 3800 2980 NEXT W 2990 REM RANDOM 3000 LET W=0 3010 LET R3=0 3020 GOSUB 2910 3030 RESTORE 3040 LET R2=0 3050 LET R3=R3+1 3060 IF R3>100 THEN 3010 3070 IF X>10 THEN 3110 3080 IF X>0 THEN 3120 3090 LET X=1+INT(RND(-1)*2.5) 3100 GO TO 3120 3110 LET X=10-INT(RND(-1)*2.5) 3120 IF Y>10 THEN 3160 3130 IF Y>0 THEN 3270 3140 LET Y=1+INT(RND(-1)*2.5) 3150 GO TO 3270 3160 LET Y=0-INT(RND(-1)*2.5) 3170 GO TO 3270 3180 LET F(W)=X 3190 LET G(W)=Y 3200 IF W=A THEN 3380 3210 IF R2=6 THEN 3030 3220 READ X1,Y1 3230 LET R2=R2+1 3240 DATA 1,1,-1,1,1,-3,1,1,0,2,-1,1 3250 LET X=X+X1 3260 LET Y=Y+Y1 3270 IF X>10 THEN 3210 3280 IF X<1 THEN 3210 3290 IF Y>10 THEN 3210 3300 IF Y<1 THEN 3210 3310 IF B(X,Y)>10 THEN 3210 3320 FOR Q9=1 TO W 3330 IF F(Q9)<>X THEN 3350 3340 IF G(Q9)=Y THEN 3210 3350 NEXT Q9 3360 LET W=W+1 3370 GO TO 3180 3380 IF K9<>1 THEN 3420 3390 FOR Z5=1 TO A 3400 PRINT F(Z5);G(Z5) 3410 NEXT Z5 3420 FOR W=1 TO A 3430 IF B(F(W),G(W))=3 THEN 3500 3440 IF B(F(W),G(W))=2 THEN 3520 3450 IF B(F(W),G(W))=1 THEN 3560 3460 IF B(F(W),G(W))=.5 THEN 3540 3470 LET B(F(W),G(W))=10+C 3480 NEXT W 3490 GO TO 1950 3500 PRINT "I HIT YOUR BATTLESHIP" 3510 GO TO 3570 3520 PRINT "I HIT YOUR CRUISER" 3530 GO TO 3570 3540 PRINT "I HIT YOUR DESTROYER " 3550 GO TO 3570 3560 PRINT "I HIT YOUR DESTROYER " 3570 FOR Q=1 TO 12 3580 IF E(Q)<>-1 THEN 3730 3590 LET E(Q)=10+C 3600 LET H(Q)=B(F(W),G(W)) 3610 LET M3=0 3620 FOR M2=1 TO 12 3630 IF H(M2)<>H(Q) THEN 3650 3640 LET M3=M3+1 3650 NEXT M2 3660 IF M3<>INT(H(Q)+.5)+1+INT(INT(H(Q)+.5)/3) THEN 3470 3670 FOR M2=1 TO 12 3680 IF H(M2)<>H(Q) THEN 3710 3690 LET E(M2)=-1 3700 LET H(M2)=-1 3710 NEXT M2 3720 GO TO 3470 3730 NEXT Q 3740 PRINT "PROGRAM ABORT:" 3750 FOR Q=1 TO 12 3760 PRINT "E(";Q;")=";E(Q) 3770 PRINT "H(";Q;")=";H(Q) 3780 NEXT Q 3790 STOP 3800 REM USING E ARRAY 3810 FOR R=1 TO 10 3820 FOR S=1 TO 10 3830 LET K(R,S)=0 3840 NEXT S 3850 NEXT R 3860 FOR U=1 TO 12 3870 IF E(U)<10 THEN 4020 3880 FOR R=1 TO 10 3890 FOR S=1 TO 10 3900 IF B(R,S)<10 THEN 3930 3910 LET K(R,S)=-1.00000E+06 3920 GO TO 4000 3930 FOR M=SGN(1-R) TO SGN(10-R) 3940 FOR N=SGN(1-S) TO SGN(10-S) 3950 IF N+M+N*M=0 THEN 3980 3960 IF B(R+M,S+N)<>E(U) THEN 3980 3970 LET K(R,S)=K(R,S)+E(U)-2*INT(H(U)+.5) 3980 NEXT N 3990 NEXT M 4000 NEXT S 4010 NEXT R 4020 NEXT U 4030 FOR R=1 TO A 404 LET F(R)=R 4050 LET G(R)=R 4060 NEXT R 4070 FOR R=1 TO 10 4080 FOR S=1 TO 10 4090 LET Q9=1 4100 FOR M=1 TO A 4110 IF K(F(M),G(M))>=K(F(Q9),G(Q9)) THEN 4130 4120 LET Q9=M 4130 NEXT M 4131 IF R>A THEN 4140 4132 IF R=S THEN 4210 4140 IF K(R,S)R THEN 4190 4170 IF G(M)=S THEN 4210 4180 NEXT M 4190 LET F(Q9)=R 4200 LET G(Q9)=S 4210 NEXT S 4220 NEXT R 4230 GO TO 3380 4240 END