home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / vpascal.zip / 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.