10 COM N$[72],F$[72],X$[3],D,R,V1,V2,P,Q,F,T,A,Q$[1],K4 20 COM W,P$[1] 30 REM PROGRAM NAME = MECHA5, BEGINS WITH 'MECHAN' 40 REM CHAINED TO MECHAN,MECHA1,MECHA4,MECHA6,MECHA7,MECHAG,MECHAT 50 GOTO 80 60 CHAIN "$MECHAG" 70 CHAIN "$MECHA4" 80 IF Q$="X" THEN 1150 90 IF Q$="E" THEN 510 100 IF P$="A" THEN 200 110 PRINT 120 PRINT "PART 5:" 130 PRINT 140 PRINT F$", YOU ARE THE PILOT IN THE SELF-PROPELLED CAPSULE." 150 PRINT "THE PROPULSION SYSTEM OF THE CAPSULE WILL PROVIDE A " 160 PRINT "UNIFORM FORCE TO THE CAPSULE IN THE YO DIRECTION" 170 PRINT "FROM THE TIME OF EJECTION FROM THE VEHICLE UNTIL DOCKING" 180 PRINT "WITH THE STATION. YOU MUST CALCULATE THE FORCE IN NEWTONS." 190 GOSUB 1040 200 PRINT 210 PRINT "DISTANCE YO ="D"METERS" 220 PRINT "DISTANCE OX ="R" METERS" 230 PRINT "SPACE VEHICLE'S VELOCITY ="V1"METERS/SEC IN OX DIRECTION" 240 PRINT "CAPSULE MASS ="W"KILOGRAMS" 250 T=0 260 IF P$="A" THEN 280 270 GOTO 310 280 K4=W*2*D*V1^2/(R^2) 290 PRINT K4 300 IF T=3 THEN 410 310 PRINT "WHAT SHOULD THE FORCE(NEWTONS) IN THE YO DIRECTION BE? "; 320 K2=60 330 ENTER #K1,K2,K3,K4 340 PRINT 350 T=T+1 360 IF K3>0 THEN 440 370 PRINT "YOU ARE"180-T*60"SECONDS FROM THE EJECTION POINT AND CLOSING" 380 PRINT "AT"V1"METERS/SEC." 390 PRINT 400 GOTO 300 410 PRINT 420 PRINT F$", YOU ARE IN NEED OF HELP TO COMPLETE YOUR MISSION." 430 GOTO 460 440 Q$="E" 450 GOTO 60 460 PRINT "DO YOU WANT TO USE THE ONBOARD COMPUTER? "; 470 INPUT X$ 480 IF X$="YES" THEN 540 490 IF X$#"NO" THEN 460 500 GOTO 310 510 K5=(W*2*D*V1^2)/R^2 520 IF ABS(K5-K4)" 1080 FOR N=1 TO 6 1090 PRINT "'" 1100 NEXT N 1110 PRINT "O----------------------------------------X (SPACE STATION)" 1120 RETURN 1130 PRINT 1140 PRINT "RIGHT ON, "F$"!! YOU ARE WITHIN 1% OF THE CORRECT VALUE!" 1150 X$="A" 1160 P=6 1170 GOTO 70 1180 END