home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / vpascal.zip / PATTERN < prev    next >
Text File  |  1985-08-08  |  1KB  |  51 lines

  1. PROGRAM PATTERN; {this demo prints a pattern of characters on the screen,}
  2. {in normal and inverse video}
  3. CONST
  4.   NORM = 0; {screen attribute}
  5.   REVERSED = 7;
  6. VAR
  7.   CHARACT : CHAR;
  8.   ATTRIBUTE : INTEGER;
  9.   XPOSITION,YPOSITION : INTEGER;
  10.   DUM1,DUM2:INTEGER;
  11.   
  12.  
  13. PROCEDURE SWITCH_ATTR; {between normal and reversed video}
  14. BEGIN
  15.   CASE ATTRIBUTE OF
  16.     NORM : ATTRIBUTE := REVERSED;
  17.     REVERSED : ATTRIBUTE := NORM;
  18.   END;
  19.   WRITE(CHR(27), '[', ATTRIBUTE:1, 'm');
  20. END;
  21.  
  22. PROCEDURE SETCURSOR(XPOS, YPOS : INTEGER);
  23. BEGIN
  24.   CURSOR(XPOS+YPOS-16,YPOS); 
  25.   DUM1 := XPOS;
  26.   DUM2 := YPOS;
  27. END;
  28.  
  29.  
  30.  
  31. BEGIN {-----------------main line of program------------------------}
  32.   
  33.   {write a pattern of characters on the terminal, varying the attribute
  34.   {and position.}
  35.   
  36.   CLS;
  37.   ATTRIBUTE := NORM;
  38.   FOR XPOSITION := 10 TO 30 DO
  39.      BEGIN
  40.         SWITCH_ATTR;
  41.         FOR YPOSITION := 16 TO 22 DO
  42.            BEGIN
  43.               CHARACT := CHR(32+XPOSITION);
  44.               SETCURSOR(XPOSITION, YPOSITION);
  45.               WRITE(CHARACT);
  46.            END;
  47.      END;
  48.    ATTRIBUTE := REVERSED;
  49.    SWITCH_ATTR;
  50. END.
  51.