home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / GFA / TUTORIAL / REPEAT_2.LST < prev    next >
File List  |  1989-07-29  |  382b  |  21 lines
  1. key%=120                             !*** 120 Is ACSII Of 'x' ***
  2. attempt%=5
  3. PRINT "Press '";CHR$(key%);"' to exit program"
  4. PRINT
  5. '
  6. REPEAT
  7.   PRINT attempt%;" attempt(s) left:"
  8.   test%=INP(2)
  9.   SUB attempt%,1
  10. UNTIL attempt%=0 OR test%=key%
  11. '
  12. IF attempt%=0
  13.   PRINT CHR$(10);"YOU FAILED!"
  14. ELSE
  15.   PRINT CHR$(10);"YOU PASSED!"
  16. ENDIF
  17. '
  18. PRINT CHR$(7);
  19. VOID INP(2)
  20. EDIT
  21.