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 >
Pascal/Delphi Source File  |  1979-12-31  |  2KB  |  67 lines
  1. {Program to test line drawing,Underlining and  Inverse }
  2.  
  3. {Authored by R.K.Hallworth of Donvale Christian School 1987 }
  4.  
  5. Program LineTest;
  6.  
  7. var
  8.   x1,x0,y1,y0:integer;
  9.   ok:boolean;
  10.  
  11. {$I Hires4.I}
  12. {$I Draw.i}
  13.  
  14.  
  15. begin {main}
  16.      SaveStandardVideoAddr; {Must do this!!}
  17.      SetVideo(64);
  18.      ClrScr;
  19.      Write('12345678901234567890123456789012345678901234567890012345678901234567890');
  20.      Delay(1000);
  21.      For x1:=1 to 30 do writeln(x1,' test ');
  22.      GoToXY(5,3);
  23.      Write(#27'[Underlined at position (5,3)'#27']');
  24.      LowVideo;
  25.      GotoXY(5,8); Write(#27'[Underlined & Highlighted at position (5,8)'#27']');
  26.      NormVideo;
  27.      GotoXY(5,10); Write(#27')yes it goes Here'#27'(');
  28.      For x1:=1 to 1080 do
  29.        begin
  30.          ok:=hidot(x1,x1,1)
  31.        end;
  32.      delay(2000);
  33.      For x1:=1 to 255 do
  34.        begin
  35.          ok:=hidot(x1,x1,0)
  36.        end;
  37.   y1:=20;
  38.   For x0:=0 to 20 do draw(x0*10,0,200-X0*10,200,1);
  39.   For y0:=0 to 20 do  draw(0,y0*10,200,200-y0*10,1);
  40.   For y0:=0 to 20 do  draw(0,y0*10,200,y0*10,2);
  41.   Writeln('Start');
  42.   y0:=0;
  43.   For x1:= 1 to 50 do
  44.   begin
  45.      y0:=y0+5;
  46.      For x0:=1 to y1 do
  47.            ok:= HiDot(x0,y0,1)
  48.   end;
  49.   Writeln('finished');
  50.   delay(5000);
  51.   SetVideo(40);
  52.   Writeln('This is in 40 column mode');
  53.   Write('12345678901234567890123456789012345678901234567890012345678901234567890');
  54.   Writeln;
  55.   Writeln('A tick = '#128);
  56.   Delay(1000);
  57.   For x1:=1 to 30 do writeln(x1,' test ');
  58.   GoToXY(5,3);
  59.   Write(#27'[Underlined at position (5,3)'#128#27']');
  60.   LowVideo;
  61.   GotoXY(5,8); Write(#27'[Underlined & Highlighted at position (5,8)'#27']');
  62.   NormVideo;
  63.   GotoXY(5,10); Write(#27')yes it goes Here'#27'(');
  64.   delay(5000);
  65.   SetVideo(80)
  66. end.
  67.