home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / GFA / TUTORIAL / REPEAT_1.LST < prev    next >
File List  |  1989-07-29  |  171b  |  9 lines
  1. key%=120                             !*** 120 Is ACSII Of 'x' ***
  2. PRINT "Press '";CHR$(key%);"' to exit program:";
  3. '
  4. REPEAT
  5.   test%=INP(2)
  6. UNTIL test%=key%
  7. '
  8. EDIT
  9.