home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
progpas
/
visible.arj
/
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.