10 REM ...RADAR.ECB ..by WALT KAILEY MECC H7LT564 2-13-78 20 REM ...REVISED 78/02/07. RHS 77/11/10 30 REM ...Revised 03-07-81 R.E.H. 40 PRINT "&K&J&J" 100 PRINT "RADAR VERSION 1.2 REVISED." 110 PRINT "A FEW MINOR BUGS HAVE BEEN EXTERMINATED. " 120 DIM K$(40) 130 LET D$=":D" 140 PRINT 150 PRINT TAB(25);"*****RADAR*****" 160 PRINT 170 PRINT "WOULD YOU LIKE INSTRUCTIONS ---=>"; 180 INPUT (1,0)A$: LET A$=A$+"N" 190 IF A$(1,1)="H" THEN 240 200 IF A$(1,1)="Y" THEN 260 210 IF A$(1,1)="N" THEN 430 220 PRINT "ANSWER YES OR NO YOU BLOCK-HEAD!" 230 GOTO 170 240 PRINT "SORRY WALT, I DIDN'T KNOW IT WAS YOU." 250 GOTO 460 260 PRINT 270 PRINT 280 PRINT "THE OBJECT OF RADAR IS TO SINK ENEMY SHIPS. TO DO THIS" 290 PRINT "YOU MUST THINK FAST BECAUSE THE SHIPS ARE CONSTANTLY IN" 300 PRINT " MOTION. YOUR MISSION IS TO SINK 12 POINTS WORTH OF ENEMY" 310 PRINT "SHIPS. SHIPS AND POINTS ARE AS FOLLOWS:" 320 PRINT "1=PT BOAT","2=DESTROYER","3=BATTLESHIP","4=CARRIER" 330 PRINT "COMMANDS ARE: WAIT","RADAR","GUNS" 340 PRINT "PLANES","STATUS","TERMINATE." 350 PRINT "YOU HAVE A TOTAL OF 15 PLANES. THEY MAY BE SHOT DOWN" 360 PRINT "BY THE ENEMY. PLANES ARE MORE POTENT BUT LESS" 370 PRINT " DEPENDABLE THAN ARTILLERY FIRE.": PRINT 375 INPUT (1,0)"<*> Type any letter to see more ---=>",A$ 376 PRINT 380 PRINT "YOU MAY FIRE UPTO 5 SHOTS AT A TIME.(RANGE=720 METERS.)" 390 PRINT "YOU MAY FLY UPTO 10 PLANES AT A TIME.(RANGE=2000 METERS.)" 400 PRINT "YOU HAVE ENOUGH AMMO TO FIRE 40 ROUNDS." 410 PRINT "YOU HAVE ENOUGH BOMBS TO MAKE 45 BOMBER RUNS." 420 PRINT "BUT WATCH OUT FOR PILOT FATIGUE!!!" 430 PRINT 440 PRINT TAB(15);"<<<<<<<<<****GOOD LUCK****>>>>>>>>>" 450 PRINT 460 PRINT 470 LET K$="PT. BOAT DESTROYER BATTLESHIPCARRIER " 480 LET X=45,Y=40,P9=15,G=0,P=0 490 REM ...TARGET SELECTION 500 DEF FNA(X)=INT(RND(0)*X) 510 LET J=FNA(3.5) 520 IF J>2 OR J<1 THEN 510 530 FOR A=1 TO J 540 LET S(A)=0 550 LET K(A)=FNA(5) 560 IF K(A)>4 OR K(A)<1 THEN 550 570 LET L(A)=FNA(380) 580 IF L(A)>360 THEN 570 590 LET I=FNA(3.6) 600 IF I<=1.5 THEN 640 610 LET M(A)=FNA(2000) 620 IF M(A)<300 THEN 610 630 GOTO 670 640 LET M(A)=FNA(800) 650 IF M(A)<300 THEN 640 660 IF M(A)<425 AND K(A)=4 THEN 640 670 NEXT A 680 PRINT "CMD ---=>"; 690 INPUT (1,0)B$ 700 PRINT 710 IF B$(1,1)="W" THEN 820 720 IF B$(1,1)="R" THEN 960 730 IF B$(1,1)="G" THEN 1120 740 IF B$(1,1)="P" THEN 1750 750 IF B$(1,1)="S" THEN 2540 760 IF B$(1,1)="T" THEN 3160 770 GOSUB 2770 780 PRINT "THE COMMANDS ARE: WAIT","RADAR","GUNS" 790 PRINT "PLANES","STATUS","TERMINATE, YOU STUPID PIN-HEAD!" 800 GOSUB 2770 810 GOTO 680 820 REM ...WAIT SEQUENCE 830 PRINT TAB(20)"**>>WAIT<<**" 840 PRINT "WAIT how long ---=>"; 850 INPUT F 860 IF F<=10 AND F>=1 THEN 890 870 PRINT "1 THROUGH 10 TURNS YOU POLLOCK.**" 880 GOTO 840 890 LET G=G-FNA(F) 900 IF G>=0 THEN 920 910 LET G=0 920 FOR A=1 TO F 930 GOSUB 2770 940 NEXT A 950 GOTO 680 960 REM ...RADAR SEQUENCE 970 PRINT "RADAR REPORTS:" 980 LET T=FNA(7) 990 IF T=1 THEN 1070 1000 IF T=4 THEN 1090 1010 FOR A=1 TO J 1020 LET B=K(A)*10 1030 LET C$=K$(B-9,B) 1040 PRINT C$;" AT";L(A);" DEGREES;";M(A);" METERS." 1050 NEXT A 1060 GOTO 1100 1070 PRINT "ENEMY TRANSMISSIONS JAMMING RADAR." 1080 GOTO 1100 1090 PRINT "RADAR DOWN, TECHNITIONS AFFECTING REPAIRS." 1100 GOSUB 2770 1110 GOTO 680 1120 REM ...GUN SEQUENCE 1130 GOSUB 2770 1140 LET G=G-FNA(3.4) 1150 IF G>=0 THEN 1170 1160 LET G=0 1170 LET N(1)=0: LET N(2)=0 1180 IF J=2 THEN 1210 1190 LET A=1 1200 GOTO 1280 1210 PRINT "TARGET ONE OR TWO SIR"; 1220 INPUT (1,0)" ---=>",A 1230 IF A=1 OR A=2 THEN 1280 1240 PRINT Z$ 1250 PRINT "CANT YOU PICK AN INTEGER BETWEEN 1 AND 2 YOU NUMBSCULL?" 1260 PRINT "I AM GOING TO LOG YOU OFF. BYE BYE..." 1270 GOTO 3490 1280 PRINT " DIRECTION, RANGE, SHOTS ---=>"; 1290 INPUT D,R,Q 1300 GOSUB 2770 1310 IF Y>0 THEN 1340 1320 PRINT "YOU HAVE NO SHOTS LEFT SCHLEPPROCK!!!" 1330 GOTO 680 1340 IF Y-Q>0 THEN 1370 1350 PRINT "YOU HAVE ONLY";Y;" SHOTS LEFT." 1360 GOTO 1280 1370 IF D>=0 AND D<=360 THEN 1400 1380 PRINT "YOU MORON DIRECTION IS BETWEEN 0 AND 360." 1390 GOTO 1280 1400 IF R>=50 AND R<=720 THEN 1430 1410 PRINT "RANGE MUST BE BETWEEN 50 AND 720, PIZZA-FACE." 1420 GOTO 1280 1430 IF Q>0 AND Q<6 AND Q=INT(Q) THEN 1460 1440 PRINT "SHOTS MUST BE AN INTEGER 1-5." 1450 GOTO 1280 1460 LET Y=Y-Q 1470 FOR T=1 TO Q 1480 IF ABS(D-L(A))+FNA(4)>3.5 THEN 1520 1490 IF ABS(R-M(A))+FNA(75)>100 THEN 1520 1500 LET S(A)=S(A)+1 1510 LET N(A)=N(A)+1 1520 NEXT T 1530 IF N(A)=0 THEN 1550 1540 ON N(A) GOTO 1570,1590,1590,1610,1630 1550 PRINT "ALL MISSES WHAT A WASTE OF AMMO**>>" 1560 GOTO 1680 1570 PRINT "PEGGED THAT PINKO ONCE. " 1580 GOTO 1680 1590 PRINT N(A);" HITS; GOOD SHOOTING." 1600 GOTO 1680 1610 PRINT "FOUR HITS . THEY'RE CRYING in MOSCOW!" 1620 GOTO 1680 1630 PRINT "**********************************************************" 1640 PRINT "HOLY OVERKILL BLEW HIM CLEAR BACK TO PEKING**" 1650 PRINT "'AT A WAY TO SHOOT THOSE REDS" 1660 PRINT "'CAUSE THE ONLY GOOD COMMY IS ONE THAT'S DEAD." 1670 PRINT TAB(25)" ***** 5 HITS ***** " 1680 IF S(A)0 THEN 1810 1790 PRINT "ALL OUT OF BOMBS DORF!" 1800 GOTO 680 1810 IF P9>0 THEN 1840 1820 PRINT "PLANES ALL SHOT UP SON." 1830 GOTO 680 1840 IF J=1 THEN 1900 1850 PRINT "TARGET ONE OR TWO"; 1860 INPUT (1,0)" ---=>",A 1870 IF A=1 OR A=2 THEN 1910 1880 PRINT "YOU PATHETIC PUMPKN HEAD! 1 OR 2??????"; 1890 GOTO 1860 1900 LET A=1 1910 PRINT "HOW MANY PLANES ARE YOU SENDING ON THIS ONE ADMIRAL"; 1920 INPUT P1 1930 IF P1=INT(P1) THEN 1960 1940 PRINT "YOU PRETZEL BRAIN! YOU CAN'T SEND A FRACTIONAL NUMBER OF PLANES." 1950 GOTO 1910 1960 IF P1>0 AND P1<11 THEN 1990 1970 PRINT "NO MORE THAN 10 PLANES LAME BRAIN!" 1980 GOTO 1910 1990 IF P1<=P9 THEN 2020 2000 PRINT "YOU HAVE ONLY";P9;" PLANES REM AINING IN YOUR COMMAND." 2010 GOTO 1910 2020 LET N(1)=N(2)=0 2030 FOR N=1 TO P1 2040 IF G=0 THEN 2090 2050 LET P2=FNA(20)+G 2060 IF P2<16 THEN 2090 2070 LET P3=P3+1 2080 GOTO 2120 2090 LET P4=FNA(100)+2*K(A) 2100 IF P4<80 THEN 2120 2110 LET P5=P5+1 2120 NEXT N 2130 LET G=INT(G+P1/1.5) 2140 IF P3=0 THEN 2190 2150 IF P3=1 THEN 2180 2160 PRINT P3;" PLANES SHOT DOWN DUE TO PILOT FATIGUE." 2170 GOTO 2190 2180 PRINT "THE REDS GOT ONE OF OUR BOYS BECAUSE FOF PILOT FATIGUE." 2190 IF P5=0 THEN 2240 2200 IF P5=1 THEN 2230 2210 PRINT P5;" PLANES WERE NAILED BY ENEMY FIRE." 2220 GOTO 2240 2230 PRINT "CHALK ONE UP FOR THE BOLCHAVIKS. ONE PLANE SHOT DOWN." 2240 LET P1=P1-P3-P5 2250 LET P9=P9-P3-P5 2260 LET X=X-P1 2270 IF P1>0 THEN 2300 2280 PRINT "ALL PLANES SHOT TO HELL** >><<" 2290 GOTO 680 2300 FOR N=1 TO P1 2310 LET P6=FNA(35) 2320 IF P6<14 THEN 2350 2330 LET N(A)=N(A)+1 2340 LET S(A)=S(A)+2 2350 NEXT N 2360 IF N(A)=0 THEN 2450 2370 IF N(A)>3 THEN 2430 2380 IF N(A)=1 THEN 2410 2390 PRINT N(A);" BOMBS HIT THE TARGET. YOU WIN A BANANA!" 2400 GOTO 2460 2410 PRINT "ONE MEASILY HIT, SIR. NOT TOO IMPRESSIVE." 2420 GOTO 2460 2430 PRINT N(A);" HITS! WHAT ARE YOU TRYING TO DO?? WIN A MEDAL??" 2440 GOTO 2460 2450 PRINT "NO HITS. GOOD GOING ACE!" 2460 IF S(A)>K(A)*2.5 THEN 2490 2470 PRINT "YOU HAVEN'T SUNK THE MARXIST SKUNK!! " 2480 GOTO 680 2490 LET B=K(A)*10 2500 LET C$=K$(B-9,B) 2510 PRINT "SUNK A ";C$;"!!! WAY TO GO JOE" 2520 GOSUB 2980 2530 GOTO 680 2540 REM ...STATUS SEQUENCE 2550 PRINT "AMMO LEFT:",Y 2560 PRINT "BOMBS LEFT:",X 2570 PRINT "PLANES LEFT:",P9 2580 PRINT "POINTS:",P 2590 PRINT "PILOT FATIGUE:",G 2600 PRINT "ACTIVE TARGETS:",J 2610 ON J GOTO 2620,2660 2620 PRINT "TARGET",J 2630 PRINT "VALUE",K(1) 2640 PRINT "HITS",S(1) 2650 GOTO 2690 2660 PRINT "TARGET",J-1,J 2670 PRINT "VALUE",K(1),K(2) 2680 PRINT "HITS",S(1),S(2) 2690 GOSUB 2770 2700 GOTO 680 2710 LET A=1 2720 LET S(A)=S(A)+12 2730 GOSUB 2980 2740 LET A=2 2750 LET S(A)=S(A)+12 2760 GOSUB 2980 2770 REM ...SINK SEQUENCE 2780 FOR Z=1 TO J 2790 LET L(Z)=L(Z)-RND(0)*1.5+.75 2800 IF L(Z)>360 THEN 2830 2810 IF L(Z)<0 THEN 2850 2820 GOTO 2860 2830 LET L(Z)=L(Z)-360 2840 GOTO 2860 2850 LET L(Z)=L(Z)+360 2860 LET M(Z)=M(Z)-FNA(54) 2870 IF M(Z)<100 THEN 2940 2880 LET E=RND(0) 2890 LET U=.08*(K(Z)*223.333+200*E-M(Z)/2) 2900 IF U<70 AND K(A)=4 THEN 2920 2910 IF U>60 THEN 2940 2920 NEXT Z 2930 RETURN 2940 PRINT "BOOM BANG**POW KRUNCH**SMACK CRACK** " 2950 PRINT "THE S.S. RADAR HAS BEEN BLOWN OUT OF THE WATER!!" 2960 PRINT "TOO DAMN BAD!" 2970 GOTO 3170 2980 REM ...ERASE AND REPLACE 2990 LET P=P+K(A) 3000 IF P>=12 THEN 3090 3010 IF J=1 THEN 510 3020 LET J=1 3030 IF A=2 THEN 680 3040 LET K(1)=K(2) 3050 LET L(1)=L(2) 3060 LET M(1)=M(2) 3070 LET S(1)=S(2) 3080 RETURN 3100 PRINT 3110 PRINT "YOU WON!!!!!!! ***** " 3120 PRINT " MECC, YOUR COUNTRY AND WALT KAILEY ARE PROUD OR YOU! " 3130 PRINT "*******************************************************" 3140 PRINT TAB(25);" CON GRATULATIONS" 3150 GOTO 3370 3160 REM ...END SEQUENCE 3170 PRINT "YOU ONLY GOT ";P;" POINTS! WHAT ARE YOU?--" 3180 PRINT "A PINKO OR A COWARD ---=>"; 3190 INPUT C$: IF LEN(C$)=0 THEN LET C$="WALT" 3200 IF C$="WALT" THEN 3340 3210 IF C$="JOHN" THEN 3340 3220 IF C$="PINKO" THEN 3280 3230 IF C$="COWARD" THEN 3320 3260 PRINT "ANSWER YOU PERVERT!" 3270 GOTO 3170 3280 PRINT "YOU LOW DOWN TRECHEROUS SNAKE-IN-THE-GRASS!!" 3290 PRINT D$ 3300 PRINT "YOU SUCK***********************" 3310 GOTO 3300 3320 PRINT "YOU CRINGING, SHAMELESS YELLOW FOOL!" 3330 GOTO 3370 3340 PRINT "OF COURSE YOUR WORSHIP KNOWS I WAS ONLY JESTING" 3350 PRINT "... AND KNOWING YOUR HONOR'S DELIGHTFUL SENCE OF" 3360 PRINT "HUMOR, I AM SURE YOU WILL TAKE IT WELL...(?)..." 3370 PRINT "WOULD YOU CARE TO PARTAKE OF ANOTHER ROUND" 3380 PRINT "OF THIS FOOLISH FORM OF ENTERTAINMENT ---=>"; 3390 INPUT A$: LET A$=A$+"Y" 3400 IF A$(1,1)="Y" THEN 130 3410 IF A$(1,1)="N" THEN 3490 3420 IF A$(1,1)="B" THEN 460 3430 IF A$="HELL NO" THEN 3470 3440 PRINT "I DONT LIKE PEOPLE WHO CAN'T ANSWER A" 3450 PRINT "SIMPLE QUESTION!!!!" 3460 GOTO 3490 3470 PRINT "SORRY WALT!!!!!!!! ***" 3480 DATA "PT BOAT ","DESTROYER " 3490 DATA "BATTLESHIP","CARRIER " 3500 END