home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / interpre / vispas / modesw < prev    next >
Encoding:
Text File  |  1985-08-08  |  256 b   |  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.