home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / lander.ba < prev    next >
Text File  |  2006-10-19  |  3KB  |  70 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 20 'Lander.ba, M100 version by Russ Hall
  3. 30 CLEAR 500:DIMY(50)
  4. 50 X$=STRING$(40,"*")
  5. 60 M$=" - - - - - -  LUNAR LANDER  - - - - -"
  6. 70 CLS:PRINTX$;:PRINTM$:PRINTX$
  7. 75 FOR T=1TO500:NEXT
  8. 80 FOR N=1TO9:READD$
  9. 90 FOR X=1TOLEN(D$):PRINTMID$(D$,X,1);
  10. 100 FOR T=1TO10:NEXT
  11. 110 NEXTX:PRINT:NEXTN
  12. 120 DATA You are the pilot of a lunar-lander mod-ule.  Your objective is
  13. 130 DATA "to land the module and crew safely on   the surface of the moon."
  14. 140 DATA ,"You must retro-fire your engines in     order to control your rate of descent."
  15. 150 DATA "There is, of course, the risk of        chrashing; either because the rate"
  16. 160 DATA "of descent is too high, or you've burned all the available fuel.
  17. 180 DATA, "Three things can happen to you, and two of them are bad."
  18. 190 FOR T=1TO500:NEXTT
  19. 200 DATA "Keep cool, and control the module by    entering burn-rate values."
  20. 210 TX=60:PX=120:MX$="WARNING:":CLS:GOSUB770
  21. 215 PRINT:PRINT"Burn rates of 75 or more  DESTROY THE   ENGINES."
  22. 230 PRINT"Strike any key to begin..."
  23. 235 FORTI=1TOVAL(RIGHT$(TIME$,2)):A=RND(1):NEXT
  24. 240 K$=INKEY$:IFK$=""THEN240
  25. 260 A$="Altitude:":S$="Speed:":F$="Fuel:":B$="Burn rate:":R$="Rising.":D$="Descending."
  26. 306 A=480+INT(100*(RND(1)*40))/100
  27. 308 F=245+INT(100*(RND(1)*25))/100
  28. 310 S=40+INT(100*(RND(1)*10))/100
  29. 320 BR=0:I$="":I$=I$+"INSTRUMENT PANEL"
  30. 360 CLS:PRINTM$:PRINT@50,I$:PRINTTAB(10)A$;A
  31. 390 PRINTTAB(10)F$;F:PRINTTAB(10)S$;S:PRINTTAB(10)B$;BR:IFF<=0THENBR=0:GOTO500
  32. 430 PRINT"You're ";:IFS>=0THENPRINTD$
  33. 450 IFS<0THENPRINTR$
  34. 460 PRINT@260,"Enter burn rate";:INPUT"";BR
  35. 480 BR=BR+.1:IFBR<0THEN460
  36. 490 IF BR>=75THEN680
  37. 500 F=F-BR:IFF<=0THEN730
  38. 510 S=S+10-BR:A=A-S:IM=(A+S*2+10)/10
  39. 530 IFA>=0THEN580
  40. 540 GOSUB1000:CLS:PRINTM$
  41. 550 PRINT@165,"You have buried the ship"IM
  42. 560 PRINT"meters into the lunar surface.":GOTO610
  43. 580 IFIM>3THEN360
  44. 590 CLS:PRINTM$:TX=60:PX=164:MX$="** YOU HAVE LANDED THE SHIP **":GOSUB770
  45. 605 FORN=1TO500:NEXT:GOTO900
  46. 610 FORN=1TO1000:NEXT
  47. 620 PRINT:PRINT"Do you want to try again?"
  48. 630 K$=INKEY$:IF K$=""THEN630
  49. 650 IFK$="N"ORK$="n"THENMENU
  50. 660 IFK$="Y"ORK$="y"THEN260
  51. 670 GOTO630
  52. 680 CLS:PRINTM$
  53. 690 TX=60:PX=170:MX$="BURN RATE IS TOO HIGH":GOSUB 770
  54. 700 PRINT:PRINT"THIS HAS COMPLETELY DESTROYED YOUR SHIP"
  55. 710 FORF=1TO1000:NEXT:GOTO610
  56. 730 TX=60:PX=240:MX$="    YOU HAVE EXHAUSTED THE FUEL SUPPLY ":GOSUB770
  57. 750 FOR T=1TO1000:NEXT:GOTO540
  58. 770 FOR T=1TOTX
  59. 780 IFINT(T/5)/2=INT(INT(T/5)/2)THENPRINT@PX,MX$;:GOTO800
  60. 790 PRINT@PX,STRING$(LEN(MX$),32);
  61. 800 NEXT:RETURN
  62. 900 IFF<90THENPRINT:PRINT:PRINT"However, you haven't enough fuel to take off again from the lunar surface."
  63. 910 IFF<90THENPRINT"Welcome to your new home...":GOTO620
  64. 920 PRINT:PRINT:PRINT" Your skill rating is"INT(F*10-S*10):GOTO620
  65. 1000 CLS:X=300
  66. 1040 FORS=5TO11:PRINT@X,"-CRASH!-"
  67. 1055 FORV=5TOS+5:Z=INT(RND(1)*20)+30:Y(S)=X-Z
  68. 1090 PRINT@Y(V),"-CRASH!-":NEXTV:NEXTS
  69. 1130 PRINT@X,"-CRASH!-";:FORT=1TO500:NEXT:RETURN
  70.