home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug021.ark / ROCKET.ASC < prev    next >
Encoding:
Text File  |  1984-04-29  |  3.0 KB  |  84 lines
  1.  
  2.  
  3. 0 REM      R O C K E T   L A N D E R 
  4. 5 OUT 2,26
  5. 10 P=1
  6. 11 REM....P  IS THE INPUT PORT NUMBER FOR YOUR KEYBOARD......
  7. 15 REM
  8. 20 REM
  9. 70 PRINT "LUNER LANDING SIMULATIONS"
  10. 80 PRINT "----- ------- -----------"
  11. 100 INPUT "DO YOU WANT INSTRUCTIONS (YES OR NO)";A$
  12. 120 IF LEFT$(A$,1)="N" THEN 390
  13. 160 PRINT
  14. 200 PRINT"YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"
  15. 210 PRINT"CONTROL 500 FEEF ABOVE A GOOD LANDING SPOT. YOU HAVE A"
  16. 220 PRINT"DOWNWARD VELOCITY OF 50 FT/SEC.   120 UNITS OF FUEL REMAIN."
  17. 225 PRINT
  18. 230 PRINT"HERE ARE THE RULES THAT GOVERN YOUR SPACE VEHICLE:"
  19. 240 PRINT"(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING"
  20. 250 PRINT"    FUEL WILL BE REPORTED."
  21. 260 PRINT"(2) AFTER THE REPORT, A'?'WILL BE TYPED.  ENTER THE"
  22. 270 PRINT"    NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING THE "
  23. 280 PRINT"    NEXT SECOND.  EACH UNIT OF FUEL WILL SLOW YOUR DESCENT"
  24. 290 PRINT"(3) THE MAXIMUM THRUSTOF YOUR ENGINE IS 30 FT/SEC/SEC OR"
  25. 300 PRINT"    30 UNITS OF FUEL PER SECOND"
  26. 310 PRINT"(4) WHEN YOU CONTACT THE LUNAR SURFACE, YOUR DESCENT ENGINE"
  27. 320 PRINT"    WILL AUTOMATICALLY SHUT OFF AND YOU WILL BE GIVEN A"
  28. 330 PRINT"    REPORT OF YOUR LANDING SPEED AND REMAINING FUEL"
  29. 340 PRINT"(5) IF YOU RUN OUT OF FUEL, THE'?' WILL NO LONGER APPEAR"
  30. 350 PRINT"    BUT YOU SECOND BY SECOND REPORT WILL CONTINUE UNTIL"
  31. 360 PRINT"    YOU CONTACT LUNAR SURFACE.":PRINT
  32. 365 PRINT:PRINT"HIT SPACE BAR TO CONTINUE..."
  33. 370 Z=INP(2):Z1=Z
  34. 375 Z=INP(2): IF Z=Z1 THEN 375
  35. 390 PRINT:PRINT:PRINT"BEGINING LANDING PROCEEDURE.........":PRINT
  36. 410 PRINT"G O O D  L U C K ! ! ! "
  37. 420 PRINT:PRINT
  38. 440 PRINT"SEC   FEET   SPEED   FUEL     PLOT OF DISTANCE"
  39. 450 PRINT
  40. 455 T=0:H=500:V=50:F=120
  41. 490 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
  42. 500 INPUT B
  43. 510 IF B<0 THEN 650
  44. 520 IF B>30 THEN B=30
  45. 530 IF B>F THEN B=F
  46. 540 V1=V-B+5
  47. 560 F=F-B
  48. 570 H=H-.5*(V+V1)
  49. 580 IF H<=0 THEN 670
  50. 590 T=T+1
  51. 600 V=V1
  52. 610 IF F>0 THEN 490
  53. 615 IF B=0THEN 640
  54. 620 PRINT"***OUT OF FUEL***"
  55. 640 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
  56. 650 B=0
  57. 660 GOTO540
  58. 670 PRINT"****CONTACT****"
  59. 680 H=H+.5*(V+V1)
  60. 690 IF B=5 THEN 720
  61. 700 D=(-V+SQR(V*V+H*(10-2*B)))/(5-B) 
  62. 710 GOTO 730
  63. 720 D=H/V
  64. 730 V1=V+(5-B)*D
  65. 760 PRINT"   TOUCHDOWN AT";T+D;"SECONDS."
  66. 770 PRINT"   LANDING VELOCITY =";V1;"FT/SEC"
  67. 780 PRINT F;"UNITS OF FUEL REMAINING."
  68. 790 IF V1<>0 THEN 810
  69. 800 PRINT"CONGRADULATIONS!!!     A PERFECT LANDING!"
  70. 805 PRINT"YOUR LICENSE WILL BE RENEWED.........LATER."
  71. 808 GOTO 845
  72. 810 IF ABS(V1)<2 THEN 840
  73. 820 PRINT" *****  SORRY, BUT YOU BLEW IT KIDO!!!!!"
  74. 825 PRINT" THIS WAS OUR ONLY CHANCE TO MAKE CONTACT WITH EXTRATRESTRIAL"
  75. 827 PRINT" BEINGS.  NON-APPROPRIATE CONDOLENCES MIGHT BE SENT TO YOUR"
  76. 830 PRINT" NEXT OF KIN."
  77. 835 GOTO 845
  78. 840 PRINT:PRINT"WELL......THAT WAS OK.  BUT NOT TOO SPECTACULAR..."
  79. 845 PRINT:PRINT
  80. 850 INPUT "ANOTHER MISSION ANYONE";A$
  81. 870 IF LEFT$(A$,1)="Y" THEN 390
  82. 880 PRINT:PRINT  "CONTROL OUT. ":PRINT
  83. 999 END
  84.