pROGRAM IOCP;
{ * auto- }
IMPORTS F77CTL FROM F77CTL;
VAR I:INTEGER;
    SYM,CC:PINT;
    STR1,STR2:PSTR;
    FILENAME:STRING;
BEGIN
outptr:=0;
REWRITE(OUTPUT,'CONSOLE:');
WRITELN('NAME OF LISTING FILE?');
CLOSE(OUTPUT);
RESET(INPUT,'CONSOLE:');
READLN(FILENAME);
REWRITE(OUTPUT,FILENAME);
NEW(SYM);
SYM^:=42;
i:=IOCP(3,SYM);
new(cc);
CC^:=10;
i:=IOCP(5,CC);
SYM^:=37;
i:=IOCP(3,SYM);
SYM^:=193;
i:=IOCP(5,SYM);
NEW(STR1);
STR1^:='HELLO';
i:=IOCP(15,STR1);
NEW(STR2);
STR2^:='THIS LINE HAS A NEWLINE CHAR HERE THIS IS A NEWLINE';
STR2^[34]:=CHR(NL);
i:=IOCP(7,STR2);
SYM^:=lor(shift(200,8),88);
i:=IOCP(17,SYM);
STR1^:=' ';
CC^:=NP;
i:=IOCP(5,CC);
STR1^:='IS THIS A NEW PAGE ';
STR1^[19]:=CHR(NL);
i:=IOCP(15,STR1);
str2^:='last page';
i:=iocp(7,str2);
CLOSE(OUTPUT);
END.