home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
MBUG
/
MBUG094.ARC
/
HIRES4.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1979-12-31
|
2KB
|
67 lines
{Program to test line drawing,Underlining and Inverse }
{Authored by R.K.Hallworth of Donvale Christian School 1987 }
Program LineTest;
var
x1,x0,y1,y0:integer;
ok:boolean;
{$I Hires4.I}
{$I Draw.i}
begin {main}
SaveStandardVideoAddr; {Must do this!!}
SetVideo(64);
ClrScr;
Write('12345678901234567890123456789012345678901234567890012345678901234567890');
Delay(1000);
For x1:=1 to 30 do writeln(x1,' test ');
GoToXY(5,3);
Write(#27'[Underlined at position (5,3)'#27']');
LowVideo;
GotoXY(5,8); Write(#27'[Underlined & Highlighted at position (5,8)'#27']');
NormVideo;
GotoXY(5,10); Write(#27')yes it goes Here'#27'(');
For x1:=1 to 1080 do
begin
ok:=hidot(x1,x1,1)
end;
delay(2000);
For x1:=1 to 255 do
begin
ok:=hidot(x1,x1,0)
end;
y1:=20;
For x0:=0 to 20 do draw(x0*10,0,200-X0*10,200,1);
For y0:=0 to 20 do draw(0,y0*10,200,200-y0*10,1);
For y0:=0 to 20 do draw(0,y0*10,200,y0*10,2);
Writeln('Start');
y0:=0;
For x1:= 1 to 50 do
begin
y0:=y0+5;
For x0:=1 to y1 do
ok:= HiDot(x0,y0,1)
end;
Writeln('finished');
delay(5000);
SetVideo(40);
Writeln('This is in 40 column mode');
Write('12345678901234567890123456789012345678901234567890012345678901234567890');
Writeln;
Writeln('A tick = '#128);
Delay(1000);
For x1:=1 to 30 do writeln(x1,' test ');
GoToXY(5,3);
Write(#27'[Underlined at position (5,3)'#128#27']');
LowVideo;
GotoXY(5,8); Write(#27'[Underlined & Highlighted at position (5,8)'#27']');
NormVideo;
GotoXY(5,10); Write(#27')yes it goes Here'#27'(');
delay(5000);
SetVideo(80)
end.