home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / ddjmag / ddj8804.arc / PORTER.ARC / PORTER.LS5 < prev   
Text File  |  1980-01-01  |  896b  |  34 lines
  1.  
  2.  
  3.  
  4. MODULE Spiral;
  5.  
  6. (* Draws a spiral, then copies part of it to a window *)
  7.  
  8. FROM SYSTEM IMPORT REGISTERS, INT;
  9. FROM LineDwg IMPORT Px, Py, line, copyArea, WriteString, clear;
  10. FROM InOut IMPORT Read;
  11.  
  12. VAR  reg  : REGISTERS;
  13.      ch   : CHAR;
  14.      n, d : INTEGER;
  15.  
  16. BEGIN
  17.   clear;
  18.   Px := 250;
  19.   FOR n := 0 TO 24 DO                      (* Draw the spiral *)
  20.     d := n MOD 8;
  21.     line (d, n * 5);
  22.   END;
  23.   Px := 548; Py := 198;            (* Outline the copy window *)
  24.   line (0, 204);
  25.   line (2, 204);
  26.   line (4, 204);
  27.   line (6, 204);
  28.   Px := 630; Py := 440;
  29.   WriteString ("Copy ");
  30.   copyArea (200, 200, 550, 200, 200, 200);    (* Copy portion *)
  31.   Read (ch);                             (* Wait for keypress *)
  32.   reg.AH := 0; reg.AL := 3; INT (16, reg);
  33. END Spiral.
  34.