10 REM SAILP.ECB 100 REM ============== LAST MOD. 6-01-78 R.E.H. 110 PRINT TAB(10);"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" 120 PRINT TAB(10);"^^^ ^^^" 130 PRINT TAB(10);"^^^ S A I L P L A N E ^^^" 140 PRINT TAB(10);"^^^ ^^^" 150 PRINT TAB(10);"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" 160 PRINT 170 REM .... PROGRAM NAME: SAILPLANE. 180 REM .... PROGRAM AUTHOR: COVER,DOUGLAS. 190 REM .... DATE WRITTEN: 17JAN74. 200 REM .... INSTALLATION: MARICOPA TECHNICAL COLLEGE. 210 PRINT 220 PRINT 230 PRINT " DO YOU WISH INSTRUCTIONS"; 240 INPUT (1,0)B$ 250 PRINT 260 IF B$="YES" THEN 270 265 IF B$="Y" THEN 270 ELSE 590 270 PRINT " THIS IS A GAME TO DETERMINE YOUR ABLILTY TO LAND" 280 PRINT " A SAILPLANE HAVING ONLY ONE CONTROL THAT YOU" 290 PRINT " CAN USE,THE SPOILERS." 300 PRINT 310 PRINT " YOU WILL BE FLYING AN SGS 1-26 SAILPLANE." 320 PRINT " YOU WILL NEED TO KNOW A FEW OF ITS BASIC FLIGHT" 330 PRINT " CHARACTERISTICS." 340 GOSUB 1440 350 PRINT " IT HAS A GLIDE RATIO OF 23 TO 1." 360 PRINT " THIS MEANS THAT FOR EVERY 23 FEET OF FORWARD" 370 PRINT " FLIGHT, YOU WILL LOSE 1 FOOT OF ALTITUDE." 380 PRINT " FOR THE SAKE OF SIMPLICITY, KEEP IN MIND THAT" 390 PRINT " YOU WILL BE FLYING AT A CONSTANT 49MPH ALL" 400 PRINT " THROUGH THE FLIGHT." 410 PRINT 420 PRINT " YOU WILL START AT AN ALTITUDE OF 800 FEET AND" 430 PRINT " YOU WILL BE 2 MILES FROM THE RUNWAY." 440 GOSUB 1440 450 PRINT " THE IDEA IS TO BRING YOUR PLANE DOWN TO 0" 460 PRINT " ALTITUDE IN NO LESS THAN 10,560 FEET." 470 PRINT " IT TAKES 500 FEET TO STOP YOUR PLANE ONCE" 480 PRINT " THE WHEEL HAS TOUCHED THE GROUND. YOU HAVE" 490 PRINT " 1000 FEET OF RUNWAY TO USE SO YOU MUST BRING" 500 PRINT " YOUR PLANE DOWN IN NOT MORE THAN 11,060 FEET." 510 PRINT 520 GOSUB 1440 530 PRINT " YOU HAVE ONE CONTROL THAT YOU CAN USE, THE" 540 PRINT " SPOILER. IT CHANGES YOUR GLIDE RATIO" 550 PRINT " FROM 23 TO 1.... TO 8.5 TO 1." 560 PRINT 570 PRINT " YOU CAN ONLY SPEND UP TO 30 SECONDS" 580 PRINT " OF FLIGHT AT ONE TIME." 590 PRINT 600 GOSUB 1440 610 PRINT " HERE WE GO!" 620 PRINT 630 PRINT 640 PRINT " ALTITUDE 800" 650 PRINT " DISTANCE TO" 660 PRINT " RUNWAY 10,560" 670 PRINT 680 PRINT " DO YOU WISH TO APPLY SPOILERS (TYPE YES OR NO)"; 690 INPUT (1,0)S$ 700 GOTO 710 710 IF S$="Y" THEN 1330:IF S$="y" THEN 1330 720 GOTO 1350:REM no 730 PRINT 740 PRINT " YOUR GLIDE RATIO IS ";N 750 PRINT " TO 1." 760 PRINT 770 PRINT " HOW MANY SECONDS WOULD YOU CARE TO FLY AT THIS"; 780 PRINT " TIME."; 790 INPUT T 800 GOTO 1010 810 PRINT 820 PRINT " SPOILERS"; 830 INPUT (1,0)S$ 840 GOTO 940 850 PRINT 860 PRINT " HOW MUCH TIME"; 870 INPUT T 880 GOTO 1020 890 LET F=S*T 900 LET L=F/N 910 LET A=A-L 920 LET D=D-F 930 GOTO 960 940 IF S$="Y" THEN 1370:IF S$="y" THEN 1370 950 GOTO 1390:REM NO 960 IF A<1 THEN 980 ELSE 970 970 IF D<1 THEN 1190 ELSE 1080 980 IF D>1 THEN 990 ELSE 1190 990 IF D<500 THEN 1160 ELSE 1130 1000 IF B$="YES" THEN 210 1005 IF B$="Y" THEN 210 ELSE 1410 1010 IF T>30 THEN 1220 ELSE 1290 1020 IF T>30 THEN 1240 ELSE 890 1030 PRINT 1040 PRINT 1050 PRINT " YOUR GLIDE RATIO IS ";N 1060 PRINT " TO 1." 1070 GOTO 860 1080 PRINT 1090 PRINT " ALTITUDE ",A 1100 PRINT " DISTANCE TO END" 1110 PRINT " OF RUNWAY ",D 1120 GOTO 810 1130 PRINT 1140 PRINT " SORRY, YOU DID NOT MAKE IT TO THE RUNWAY!" 1150 GOTO 1260 1160 PRINT 1170 PRINT " CONGRATULATIONS, YOU MADE IT!" 1180 GOTO 1260 1190 PRINT 1200 PRINT " TOO BAD, YOU OVER SHOT THE RUNWAY!" 1210 GOTO 1260 1220 PRINT " SORRY, YOU TOOK TOO MUCH TIME!" 1230 GOTO 760 1240 PRINT " SORRY, YOU TOOK TOO MUCH TIME!" 1250 GOTO 850 1260 PRINT " WOULD YOU CARE TO TRY AGAIN"; 1270 INPUT (1,0)B$ 1280 GOTO 1000 1290 LET D=11060 1300 LET A=800 1310 LET S=71.9 1320 GOTO 890 1330 LET N=8.5 1340 GOTO 730 1350 LET N=23 1360 GOTO 730 1370 LET N=8.5 1380 GOTO 1050 1390 LET N=23 1400 GOTO 1050 1410 PRINT 1420 PRINT " THANK YOU FOR PLAYING! PROGRAM STOPPED." 1430 GOTO 1490 1440 PRINT 1450 PRINT " *** TYPE IN SOMETHING TO SEE MORE *** ---> "; 1460 INPUT (1,150)I$ 1470 PRINT 1480 RETURN 1490 END