home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
interpre
/
vispas
/
modesw
< prev
next >
Wrap
Text File
|
1985-08-08
|
256b
|
11 lines
PROGRAM MODESW;
VAR
MODE:INTEGER;
BEGIN
REPEAT
WRITE('enter mode:');
READLN(MODE);
IF MODE <> 8 THEN SETMODE(MODE);
UNTIL MODE = 8;
END.