pROGRAM IOCP;
{ * auto- }
IMPORTS F77CTL FROM F77CTL;
VAR I,sym,cc,dum,seg1,off1,seg2,off2:INTEGER;
    STR1,STR2:PSTR;
    FILENAME:STRING;
BEGIN
dum:=0;
outptr:=0;
REWRITE(OUTPUT,'CONSOLE:');
WRITELN('NAME OF LISTING FILE?');
CLOSE(OUTPUT);
RESET(INPUT,'CONSOLE:');
READLN(FILENAME);
REWRITE(OUTPUT,FILENAME);
SYM:=42;
i:=IOCP(3,dum,SYM);
CC:=10;
i:=IOCP(5,dum,CC);
SYM:=37;
i:=IOCP(3,dum,SYM);
SYM:=193;
i:=IOCP(5,dum,SYM);
NEW(STR1);
loadadr(str1^);
storexpr(off1);
storexpr(seg1);
STR1^:='HELLO';
i:=IOCP(15,seg1,off1);
NEW(STR2);
loadadr(str2^);
storexpr(off2);
storexpr(seg2);
STR2^:='THIS LINE HAS A NEWLINE CHAR HERE THIS IS A NEWLINE';
STR2^[34]:=CHR(NL);
i:=IOCP(7,seg2,off2);
SYM:=lor(shift(200,8),88);
i:=IOCP(17,dum,SYM);
STR1^:=' ';
CC:=NP;
i:=IOCP(5,dum,CC);
STR1^:='IS THIS A NEW PAGE ';
STR1^[19]:=CHR(NL);
i:=IOCP(15,seg1,off1);
str2^:='last page';
i:=iocp(7,seg2,off2);
CLOSE(OUTPUT);
rewrite(output,'console:');
stop;
writeln('this line should not be printed');
END.