=’ ’ ’ ’ ’ ’ ’ ’ ’ ’ ’ PJ8µ LBR7BETH DAT²CAMI DAT“åNEWRITE7COM    dstr; x,y:integer); BEGIN gotoxy(x,y); crt(ERASEOL); write(s); END; (* posstr *) PROCEDURE center(s:midstr; x:integer); BEGIN gotoxy(x,1); posstr(s,x,(MXC-length(s)+1) div 2); END; PROCEDURE remark(s:midstr; x,y:integer; delayf:boolean); BEGIN gotoxy(x,y); crt(ERASEOL); crt(LV); j:=ord(s[0]); k:=length(s); for i:=1 to k do begin gotoxy(x+i,y); write(s[i]); if not delayf then delay(15); if (s[i+1])='<' then crt(NV); if (s[i]) ='>' then crt(LV); end; crt(NV); END;