program test;

{$A+,D+}

uses crt,dos,

myio;

var snowcheck,usebios:boolean;

vidseg:word;

{$L fastchr}

{$F+}

procedure fastchr(wchr,wattr:byte); external;

{$F-}

procedure fastwrite(s:string);

var i:integer;

begin

for i:=1 to length(s) do fastchr(ord(s[i]),$1B);

end;

var t:text;

wind:windowrec;

s:string;

i,sx,sy:integer;

c:char;

begin

snowcheck:=TRUE; usebios:=FALSE; vidseg:=$B800;

writeln;

write('Snow checking [Y] : '); if (upcase(readkey)='N') then snowcheck:=FALSE;

writeln;

write('Use BIOS [N] : '); if (upcase(readkey)='Y') then snowcheck:=TRUE;

writeln;

textcolor(7); myio.box(7,1,1,80,25);

window(1,1,80,25);

assign(t,'bbs.pas'); reset(t);

while (not eof(t)) do begin

readln(t,s);

fastwrite(s);

gotoxy(80,wherey); fastwrite(' ');

if (keypressed) then begin close(t); exit; end;

end;

close(t);

end.