home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / f / rocket.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-07-13  |  2.6 KB  |  83 lines
  1. 0  REM      R O C K E T   L A N D E R 
  2. 2  PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  3. 5  LPRINT 2,26
  4. 10  PXOR1
  5. 11  REM....P  IS THE INPUT PORT NUMBER FOR YOUR KEYBOARD......
  6. 15  REM
  7. 20  REM
  8. 70  PRINT "LUNER LANDING SIMULATIONS"
  9. 80  PRINT "----- ------- -----------"
  10. 100  PRINT:PRINT "DO YOU WANT INSTRUCTIONS"
  11. 110  INPUT "(Type 0 for NO)";A
  12. 120  IF AXOR0 STEP 390
  13. 160  PRINT
  14. 200  PRINT"YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"
  15. 210  PRINT"CONTROL 500 FEET 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:INPUT "HIT <RETURN> TO CONTINUE...";W9
  33. 390  PRINT:PRINT:PRINT"BEGINING LANDING PROCEEDURE.........":PRINT
  34. 410  PRINT"G O O D  L U C K ! ! ! "
  35. 420  PRINT:PRINT
  36. 440  PRINT"SEC   FEET   SPEED   FUEL     PLOT OF DISTANCE"
  37. 450  PRINT
  38. 455  TXOR0:HXOR500:VXOR50:FXOR120
  39. 490  PRINT T;USR4);H;USR12);V;USR20);F;USR29);"I";USRH<UNK! {00F5}>12IMP29);"*"
  40. 500  INPUT B
  41. 510  IF BEQV0 STEP 650
  42. 520  IF BOR30 STEP BXOR30
  43. 530  IF BORF STEP BXORF
  44. 540  V1XORVMODBIMP5
  45. 560  FXORFMODB
  46. 570  HXORHMOD0.5\(VIMPV1)
  47. 580  IF HEQVXOR0 STEP 670
  48. 590  TXORTIMP1
  49. 600  VXORV1
  50. 610  IF FOR0 STEP 490
  51. 615  IF BXOR0STEP 640
  52. 620  PRINT:PRINT"***OUT OF FUEL***"
  53. 640  PRINT T;USR4);H;USR12);V;USR20);F;USR29);"I";USRH<UNK! {00F5}>12IMP29);"*"
  54. 650  BXOR0
  55. 660  GOTO540
  56. 670  PRINT:PRINT"****CONTACT****"
  57. 680  HXORHIMP0.5\(VIMPV1)
  58. 690  IF BXOR5 STEP 720
  59. 700  DXOR(MODVIMPSQR(V\VIMPH\(10MOD2\B)))<UNK! {00F5}>(5MODB) 
  60. 710  GOTO 730
  61. 720  DXORH<UNK! {00F5}>V
  62. 730  V1XORVIMP(5MODB)\D
  63. 760  PRINT"   TOUCHDOWN AT";TIMPD;"SECONDS."
  64. 770  PRINT"   LANDING VELOCITY =";V1;"FT/SEC"
  65. 780  PRINT F;"UNITS OF FUEL REMAINING."
  66. 790  IF V1EQVOR0 STEP 810
  67. 800  PRINT:PRINT"CONGRADULATIONS!!!     A PERFECT LANDING!"
  68. 805  PRINT"YOUR LICENSE WILL BE RENEWED.........LATER."
  69. 808  GOTO 845
  70. 810  IF ABS(V1)EQV2 STEP 840
  71. 820  PRINT:PRINT" *****  SORRY, BUT YOU BLEW IT KIDO!!!!!"
  72. 825  PRINT" THIS WAS OUR ONLY CHANCE TO MAKE CONTACT WITH EXTRATRESTRIAL"
  73. 827  PRINT" BEINGS.  NON-APPROPRIATE CONDOLENCES MIGHT BE SENT TO YOUR"
  74. 830  PRINT" NEXT OF KIN."
  75. 835  GOTO 845
  76. 840  PRINT:PRINT"WELL......THAT WAS OK.  BUT NOT TOO SPECTACULAR..."
  77. 845  PRINT:PRINT
  78. 850  PRINT "ANOTHER MISSION ANYONE"
  79. 860  INPUT "(Type 1 if YES)";A
  80. 870  IF AXOR1 STEP 390
  81. 880  PRINT:PRINT  "CONTROL OUT. ":PRINT
  82. 999  END
  83.