home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / mtest (.txt) < prev    next >
Commodore BASIC  |  1988-12-29  |  2KB  |  40 lines
  1. 10 PRINT CHR$(147)
  2. 20 Q=RND(-TI):Z=1
  3. 30 S=10*RND(1)
  4. 40 N=INT(S*Z)
  5. 50 PRINT"REMEMBER---->";N
  6. 60 IF W=3 THEN PRINT"FORGET IT FROGFACE!":GOTO 140
  7. 70 FOR T=1 TO 1000:NEXT T
  8. 80 PRINT CHR$(147)
  9. 90 INPUT"WHAT WAS IT";S
  10. 100 IF S<>N THEN PRINT"***YOU ARE WRONG***":W=W+1:GOTO 60
  11. 110 PRINT"***YOU ARE RIGHT***":R=R+1:Z=Z*10
  12. 120 PRINT R;"RIGHT SO FAR"
  13. 130 PRINT:GOTO 30
  14. 140 PRINT:PRINT"YOU HAD";R;"RIGHT"
  15. 150 PRINT"FOR YOUR ENJOYMENT, I BRING YOU A "
  16. 151 PRINT"PROGRAM TO TEST YOUR MEMORY. ALL YOU"
  17. 152 PRINT"HAVE TO DO IS REMEMBER THE NUMBER "
  18. 153 PRINT"PRINTED ON THE SCREEN AND RETYPE IT."
  19. 154 PRINT"ENJOY AND LEAVE LOTS OF MESSAGES ON"
  20. 155 PRINT"CHARLIE."
  21. 156 PRINT:PRINT
  22. 157 PRINT"AND PLEASE LEAVE LOTS OF MESSAGES FOR"
  23. 158 PRINT"ZANE RYBKOWSKI. THE GUY THAT BROUGHT"
  24. 159 PRINT"YOU THIS PROGRAM."
  25. 160 PRINT"PRESS ANY KEY"
  26. 170 GET K$
  27. 180 IF K$=""THEN 170
  28. 190 CLR:GOTO 10
  29. 200 PRINT"FOR YOUR ENJOYMENT, I BRING YOU A "
  30. 210 PRINT"PROGRAM TO TEST YOUR MEMORY. ALL YOU"
  31. 220 PRINT"HAVE TO DO IS REMEMBER THE NUMBER "
  32. 230 PRINT"PRINTED ON THE SCREEN AND RETYPE IT."
  33. 240 PRINT"ENJOY AND LEAVE LOTS OF MESSAGES ON"
  34. 250 PRINT"CHARLIE."
  35. 260 PRINT:PRINT:
  36. 270 PRINT"AND PLEASE LEAVE LOTS OF MESSAGES FOR"
  37. 280 PRINT"ZANE RYBKOWSKI. THE GUY THAT BROUGHT"
  38. 290 PRINT"YOU THIS PROGRAM."
  39. 300 GOTO 10
  40.