100 REM ...ICBM.ECB ..by Chris Falco 110 REM ...GLEN RIDGE HIGH SCHOOL, NEW JERSEY 120 REM ...Converted : CDC CYBER 70/73-26 BASIC 3.1 130 REM ...by Peter Arcand (LOCUST) 140 REM ...MAHTOMEDI SENIOR HIGH SCHOOL, MINNESOTA 09/08/77 150 REM ...Last rev. 03-06-81 R.E.H. 160 PRINT "&K&J&J";TAB(9);CHR(7);" I C B M ";CHR(7);"&J&J" 170 PRINT "Instructions? (Y or N) ---=>"; 180 INPUT (1,0)A$: LET A$=A$+"N" 190 IF A$(1,1)="N" THEN 410 200 IF A$(1,1)="n" THEN 410 210 PRINT "&K YOUR RADAR STATION PICKS UP AN ENEMY ICBM" 220 PRINT "HEADING YOUR WAY, TELLING YOU ITS COORDINATES" 230 PRINT "(IN MILES NORTH AND MILES EAST OF YOUR LOCATION)." 240 PRINT "YOU LAUNCH A SURFACE-TO-AIR MISSLE (SAM) TO" 250 PRINT "INTERCEPT IT." 260 PRINT " YOUR ONLY CONTROL OVER THE SAM IS THAT YOU" 270 PRINT "CAN AIM IT IN ANY DIRECTION, BOTH AT LAUNCH, AND" 280 PRINT "A GUIDE, YOU INPUT THE DIRECTION (MEASURED CLOCK-" 290 PRINT "WISE FROM NORTH) IN WHICH YOU WANT THE SAM TO TRAVEL." 300 PRINT " AT THE NEXT RADAR SCAN ONE MINUTE LATER, YOU" 310 PRINT "ARE GIVEN THE NEW COORDINATES OF THE ICBM AND OF" 320 PRINT "THE SAM, AND THE DISTANCE BETWEEN THE TWO. YOU" 330 PRINT "CAN NOW MAKE CORRECTIONS IN THE COURSE OF YOUR SAM" 340 PRINT "BY ENTERING A NEW DIRECTION." 345 PRINT : INPUT (1,0)"<*> Type in any letter to read more ---=>",A$ 350 PRINT "&K YOU CAN DESTROY THE ICBM BY COMING WITHIN 5 MILES" 360 PRINT "OF IT, AT WHICH TIME YOUR SAM'S HEAT-SEEKING SENSORS" 370 PRINT "WILL COME INTO ACTION AND DIRECT IT TO ITS TARGET." 380 PRINT " THERE IS ALSO SOME LEMENTS OF CHANCE INVOLVED," 390 PRINT "AS SEVERAL ACCIDENTS HAVE BEEN PROGRAMMED TO OCCUR" 400 PRINT "RANDOMLY." 410 PRINT 411 PRINT 412 PRINT 430 LET X1=0 440 LET Y1=0 450 LET X=INT(800*RND(0)+200) 460 LET Y=INT(800*RND(0)+200) 470 LET S=INT(20*RND(0)+50) 480 LET S1=INT(20*RND(0)+50) 490 PRINT "--------MISSLE-------- ---------------SAM---------" 500 PRINT "MILES","MILES","MILES","MILES","HEADING" 510 PRINT "NORTH","EAST","NORTH","EAST","?" 520 PRINT "-------------------------------------------------------" 530 FOR N=1 TO 50 540 PRINT Y,X,Y1,X1,"-=>"; 550 IF X=0 THEN 870 560 INPUT T1 570 LET T1=T1/57.296 580 LET H=INT(200*RND(0)+1) 590 IF H>4 THEN 610 600 ON H GOTO 790,810,830,850 610 LET X1=INT(X1+S1*SIN(T1)) 620 LET Y1=INT(Y1+S1*COS(T1)) 630 IF SQR(X*X+Y*Y)>S THEN 670 640 LET X=0 650 LET Y=0 660 GOTO 750 670 LET R=SQR(X*X+Y*Y)/1000 680 LET T=ATN(Y/X) 690 LET X=INT(X-S*COS(T)+20*RND(0)*R) 700 LET Y=INT(Y-S*SIN(T)+20*RND(0)*R) 710 LET D=SQR((X-X1)*(X-X1)+(Y-Y1)*(Y-Y1)) 720 IF D<=5 THEN 760 730 LET D=INT(D) 740 PRINT "ICBM & SAM ARE NOW ";D;" MILES APART." 750 NEXT N 760 PRINT "CONGRATULATIONS YOUR SAM CAME WITHIN ";D;" MILES OF" 770 PRINT "THE ICBM AND DESTROYED IT." 780 GOTO 880 790 PRINT "TOO BAD. YOUR SAM FELL TO THE GROUND." 800 GOTO 880 810 PRINT "YOUR SAM EXPLODED IN MIDAIR." 820 GOTO 880 830 PRINT "GOOD LUCK-THE ICBM EXPLODED HARMLESSLY IN MID-AIR." 840 GOTO 880 850 PRINT "GOOD LUCK-THE ICBM TURNED OUT TO BE A FRIENDLY AIRCRAFT." 860 GOTO 880 870 PRINT 875 PRINT "TOO BAD THE ICBM JUST HIT YOUR LOCATION." 880 PRINT 885 PRINT "DO YOU WANT TO PLAY MORE ---=>"; 890 INPUT (1,0)A$: LET A$=A$+"Y" 900 IF A$(1,1)="Y" THEN 430 910 END