DEFINITION MODULE PLUS3IO;
PROCEDURE PLUS3IN(FILENO:SHORTCARD);
PROCEDURE PLUS3OUT(FILENO:SHORTCARD);
END PLUS3IO.
IMPLEMENTATION MODULE PLUS3IO;
FROM STDIO IMPORT WRSTR,WRCHAR,WRLN,RDSTR,RDCHAR,GENRDSTR;
VAR INFNO,OUTFNO:SHORTCARD;
PROCEDURE RDCHAR3():CHAR;HEX
3A (@INFNO) 0E EC CD (@74) 79 C9 END RDCHAR3;
 
PROCEDURE WRLN3;HEX 3E 0D END WRLN3;
PROCEDURE WRCHAR3(CH:CHAR);HEX
47 3A (@OUTFNO) 0E ED C3 (@74) END WRCHAR3;
 
PROCEDURE WRSTR3(S:ARRAY OF CHAR);HEX
7E A7 C9 E5 C5 CD (@WRCHAR3) E1 C1 23 78 B1 0B 20 F0
C9 END WRSTR3;
 
PROCEDURE PLUS3IN(FILENO:SHORTCARD);
BEGIN
INFNO:=FILENO;
RDSTR:=GENRDSTR;
RDCHAR:=RDCHAR3;
END PLUS3IN;
 
PROCEDURE PLUS3OUT(FILENO:SHORTCARD);
BEGIN
OUTFNO:=FILENO;
WRLN:=WRLN3;
WRCHAR:=WRCHAR3;
WRSTR:=WRSTR3;
END PLUS3OUT;
END PLUS3IO.
