home *** CD-ROM | disk | FTP | other *** search
/ PCMania 64 / PCMania CD64_1.iso / phy / phy005 / lowlevel / proba.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-07-04  |  281 b   |  25 lines
  1. PROGRAM Proba;
  2.  
  3. USES Triangul;
  4.  
  5. VAR
  6.   a : TrianType;
  7.  
  8. BEGIN
  9.   a.x1:=10;  a.y1:=10;
  10.   a.x2:=110; a.y2:=23;
  11.   a.x3:=80;  a.y3:=85;
  12.   a.color:=10;
  13.  
  14.   ASM
  15.     mov ax, 13h
  16.     int 10h
  17.   END;
  18.   Triangulo(a);
  19.   ReadLn;
  20.   ASM
  21.     mov ax, 3h
  22.     int 10h
  23.   END;
  24. END.
  25.