home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / funbasic.arc / TARGET.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-11-30  |  703 b   |  33 lines
  1. 20   CLS
  2. 30   KEY OFF
  3. 50  FOR TR=1 TO 5
  4. 60  RANDOMIZE(VAL(RIGHT$(TIME$,2)))
  5. 70  TARGET=INT(RND*9400)+1
  6. 80  LOCATE 12,30:PRINT "TARGET IS ";TARGET
  7. 90  LOCATE 19,30:PRINT "HIT THE `X' KEY TO STOP"
  8. 100  LOCATE 14,30:INPUT "HIT ENTER TO START ",A$
  9. 110  CLS
  10. 120  SC=10000
  11. 130  FOR I=1 TO 1001
  12. 140  RANDOMIZE(VAL(RIGHT$(TIME$,2)))
  13. 150  R=INT(RND*100)
  14. 160  LOCATE 12,39:PRINT SC
  15. 170  K$=INKEY$:IF K$="X" THEN 210 ELSE 180
  16. 180  FOR D=1 TO 50:NEXT D
  17. 190  SC=SC-R
  18. 200  NEXT I
  19. 210  CLS
  20. 220  PRINT "TARGET NUMBER WAS ";TARGET
  21. 230  PRINT "YOU STOPPED AT    ";SC
  22. 240  PRINT "DIFFERENCE WAS    ";ABS(SC-TARGET)
  23. 250  TOT=TOT+ABS(SC-TARGET)
  24. 260  IF TR=5 THEN 270 ELSE 300
  25. 270  PRINT "G A M E   O V E R"
  26. 280  INPUT "HIT RETURN FOR RESULTS ",R$
  27. 290  GOTO 320
  28. 300  INPUT "HIT RETURN FOR NEXT PLAY ",P$
  29. 310  NEXT TR
  30. 320  CLS
  31. 330  PRINT "YOUR TOTAL DIFFERENCE WAS ";TOT
  32. 340  PRINT "YOUR AVERAGE WAS ";TOT/5
  33.