Category : Pascal Source Code
Archive   : RLINE-OP.ZIP
Filename : SEEME.PAS

 
Output of file : SEEME.PAS contained in archive : RLINE-OP.ZIP

{$A+,B-,D+,E-,F-,I-,L+,N-,O-,R-,S-,V-}
{$M 16384,0,655360}

PROGRAM SeeMe;

uses
crt,
moveops,
rline,
Readers;

CONST
FileBufSize = 4096 * 2;

VAR
V : Reader;
Fn : string[66];

BEGIN
clrscr;
if paramcount = 0
then Fn := 'README'
else Fn := ParamStr(1);

if not v.init(Fn,FileBufSize,1,4,80,25)
then BEGIN
writeln('Not enough memory.');
halt(1);
END;

gotoxy(1,3);
writeln(
'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');

with v do BEGIN
checkrferror;
tofl;
while scrollselect <> #27 do;
done;
clrscr;
END;
END.