PROGRAM diablo_demo;

{ This is a quick and dirty program to make sure the routines are in
  working order. Written by Tim Meekins }

VAR
  i : integer;

{$i diablo.lib}

BEGIN
  init_diablo;
  plot(0,0);
  drawto(500,0);
  drawto(500,20);
  drawto(0,20);
  drawto(0,0);
  i := 0;
  REPEAT
    draw(250,40,i,20);
    i := i+25
  UNTIL i>500;
  FOR i := 3 TO 6 DO
    poly((i-3)*100+50,100,45,i);
  i := 1;
  REPEAT
    circle(250,300,i);
    i := i+10
  UNTIL i>100;
  reset_diablo
END.