REM>LUNAR
      REM 1998/11/27
      REM www.zyra.org.uk
      REM GOTOs and line numbers removed by RG Weston 2002/02/19
      VDU15
      H=1000
      G=1.65
      V=0
      F=3000
      M=300
      CLS
      PRINT"Lunar landing game. The idea is to land on the surface"
      PRINT"without making too big a hole! Enter your fuel burn for"
      PRINT"each turn."
      REPEAT
        REPEAT
          PRINT
          PRINT"Height= ";H" metres     "
          PRINT"Speed = ";V" metres/sec     "
          PRINT"Fuel  = ";F "     "
          INPUT"Burn  = "B
          IFB>M PRINT"Maximum fuel burn is ";M:VDU7
          IFB<0 PRINT"You can not burn NEGATIVE FUEL!":VDU7
          IFB>F PRINT"You only have ";F" fuel remaining":VDU7
        UNTIL B<M OR B>0 OR B<F
        F=F-B
        V=V+G-B/30
        H=H-V
      UNTIL H<=0
      PROCending
      PRINT
      PRINT"Would you like to play again";
      Y$=GET$
      IF Y$="Y" OR Y$="y" THEN RUN ELSE PRINT''"No?   OK!":PRINT'"BYE!"
      END
      :
      DEFPROCending
      IFV<1 PRINT"Well done! You made a good landing":ENDPROC
      IFV<5 PRINT"You crash-landed!":ENDPROC
      IF V>5 THEN
        PRINT''"You crashed into the surface at ";V" metres per second!"
        PRINT'"You made a hole ";V*V/25" metres deep"
      ENDIF
      ENDPROC