10  COM N6,T9,W,A3,H8,V8,D9,A9,M9
20  GOTO 60
30  CHAIN "$NTRCPT"
40  REM PROGRAM NAME = NTEACH
50  REM CHAINED TO NTRCPT
60  DIM A$[72]
70  PRINT "-----SOLUTION:"
80  PRINT 
90  PRINT "THE PLAN IN THIS PROBLEM IS TO:"
100  PRINT "  1.CALCULATE THE LOCATION OF THE INCOMING BODY AT A GIVEN TIME."
110  PRINT "  2.CALCULATE THE ACCELERATION NEEDED FOR THE PROBE TO"
120  PRINT "    TRAVEL TO THAT POSITION IN THE SAME TIME."
130  PRINT "  3.CALCULATE THE ANGLE WHICH THE PROBE MUST FOLLOW."
140  PRINT 
150  PRINT "DO YOU WANT MORE HELP?  ";
160  ENTER 200,W1,A$
170  PRINT 
180  IF A$="YES" THEN 220
190  IF A$#"NO" THEN 150
200  LET N6=2
210  GOTO 30
220  PRINT '10"-----1. CALCULATING LOCATION OF BODY:"'10
230  PRINT "THE FOLLOWING QUANTITIES ARE KNOWN:"
240  PRINT "  A. DISTANCE OM IS THE INITIAL DISTANCE BETWEEN THE"
250  PRINT "     INCOMING BODY AND THE PROBE."
260  PRINT "  B. THE TIME NEEDED FOR THE PROBE TO REACH THE INCOMING BODY."
270  PRINT 
280  PRINT "HOW MANY SECONDS DO YOU WANT TO TAKE ";
290  INPUT T9
300  PRINT "THE INCOMING BODY WILL HAVE TRAVELED 5 +"T9"SECONDS,"
310  PRINT "A TOTAL OF"T9+5"SECONDS."
320  PRINT 
330  PRINT "DISTANCE TRAVELED BY I = (VELOCITY)(TIME)"
340  PRINT "OR                    I ="(T9+5)*W*1000"METERS"
350  PRINT 
360  PRINT "HERE IS A DIAGRAM OF YOUR PROBLEM:"
370  PRINT 
380  PRINT "O-----------------A--------M"
390  PRINT '10'10'10'10'10'10
400  PRINT "                  C"
410  PRINT 
420  PRINT "KNOWN"
430  PRINT "    OM= 15000 METERS"
440  PRINT "    OC="(T9+5)*W*1000"METERS"
450  PRINT "ANGLE AOC="A3"DEGREES"
460  PRINT 
470  PRINT "CALCULATIONS:"'10
480  PRINT "OA=COS(<AOC)*OC"
490  PRINT "  ="H8*1000"METERS"
500  PRINT "AC=SIN(<AOC)*OC"
510  PRINT "  ="V8*1000"METERS"
520  PRINT 
530  PRINT "AM = OM - OA"
540  PRINT "AM ="1500-H8*1000"METERS"
550  PRINT 
560  PRINT "DO YOU WANT MORE HELP?  ";
570  ENTER 200,W1,A$
580  PRINT 
590  IF A$="YES" THEN 630
600  IF A$#"NO" THEN 190
610  LET N6=2
620  GOTO 30
630  PRINT 
640  PRINT "USING THE PYTHAGOREAN THEOREM:"
650  PRINT 
660  PRINT "DISTANCE MC=(AM^2 + AC^2)^.5"
670  PRINT "MC="D9*1000"METERS"
680  PRINT 
690  PRINT "NOW YOU KNOW THE DISTANCE THAT YOUR PROBE MUST TRAVEL"
700  PRINT "("D9*1000"METERS) AND THE TIME("T9"SECONDS)"
710  PRINT '10"-----2. CALCULATING THE ACCELERATION NEEDED BY THE PROBE:"
720  PRINT 
730  PRINT "REMEMBER THE DISTANCE FORMULA ?"
740  PRINT 
750  PRINT "     D=.5*A*T^2 + V*T, V=0"
760  PRINT 
770  PRINT "   D= DISTANCE TRAVELED"
780  PRINT 
790  PRINT "   A=ACCELERATION"
800  PRINT 
810  PRINT "   T=TIME"
820  PRINT 
830  PRINT "OR SOLVING FOR THE ACCELERATION"
840  PRINT "A = 2*D/T^2"
850  PRINT 
860  PRINT "A ="A9"METERS/SEC^2"
870  PRINT 
880  PRINT "-----3. CALCULATING THE ANGLE FOR THE PROBE:"
890  PRINT 
900  PRINT "DO YOU WANT MORE HELP ";
910  ENTER 200,W1,A$
920  PRINT 
930  IF A$="YES" THEN 970
940  IF A$#"NO" THEN 900
950  LET N6=2
960  GOTO 30
970  PRINT 
980  PRINT "THE TANGENT OF ANGLE AMC = AC/AM"
990  PRINT 
1000  PRINT "TAN(<AMC)="V8/H8
1010  PRINT 
1020  PRINT "IF YOU LOOK THIS UP IN A TABLE YOU WILL FIND THE ANGLE TO BE:"
1030  PRINT 
1040  PRINT "       <AMC ="M9"DEGREES"
1050  PRINT 
1060  LET N6=3
1070  PRINT 
1080  PRINT "LET'S TRY A SIMILAR PROBLEM."
1090  GOTO 30
1100  END 
