home *** CD-ROM | disk | FTP | other *** search
/ The Education Master 1994 (4th Edition) / EDUCATIONS_MASTER_4TH_EDITION.bin / files / progscal / vpascal / modesw < prev    next >
Text File  |  1985-08-08  |  256b  |  11 lines
  1. PROGRAM MODESW;
  2. VAR
  3.   MODE:INTEGER;
  4. BEGIN
  5.   REPEAT
  6.     WRITE('enter mode:');
  7.     READLN(MODE);
  8.     IF MODE <> 8 THEN SETMODE(MODE);
  9.   UNTIL MODE = 8;
  10. END.
  11.