46 lines
879 B
ObjectPascal
46 lines
879 B
ObjectPascal
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.
|