18 lines
357 B
Plaintext
18 lines
357 B
Plaintext
BEGIN INTEGER dev, char;
|
|
|
|
get dev:
|
|
text(1,"*NInput device tester, type number ");
|
|
ioc(0); ioc(1); dev := read(1);
|
|
|
|
IF dev < 1 OR dev > 7 THEN GOTO get dev;
|
|
|
|
text(1,"Type away*N"); ioc(0); ioc(1);
|
|
loop:
|
|
char := chin(dev);
|
|
IF NOT (dev = 3 AND char = 0 ) THEN
|
|
BEGIN chout(1, char); write(1,char) END;
|
|
IF char # 3 THEN GOTO loop;
|
|
|
|
END FINISH
|
|
|