home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / graphics / draw630.lbr / DEMO.PAS next >
Encoding:
Pascal/Delphi Source File  |  1986-12-07  |  640 b   |  31 lines
  1. PROGRAM diablo_demo;
  2.  
  3. { This is a quick and dirty program to make sure the routines are in
  4.   working order. Written by Tim Meekins }
  5.  
  6. VAR
  7.   i : integer;
  8.  
  9. {$i diablo.lib}
  10.  
  11. BEGIN
  12.   init_diablo;
  13.   plot(0,0);
  14.   drawto(500,0);
  15.   drawto(500,20);
  16.   drawto(0,20);
  17.   drawto(0,0);
  18.   i := 0;
  19.   REPEAT
  20.     draw(250,40,i,20);
  21.     i := i+25
  22.   UNTIL i>500;
  23.   FOR i := 3 TO 6 DO
  24.     poly((i-3)*100+50,100,45,i);
  25.   i := 1;
  26.   REPEAT
  27.     circle(250,300,i);
  28.     i := i+10
  29.   UNTIL i>100;
  30.   reset_diablo
  31. END.