home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / vpascal.zip / BOX < prev    next >
Text File  |  1985-08-08  |  896b  |  33 lines
  1. PROGRAM BOX; {a program that draws some boxes with the LINE procedure}
  2.  
  3. VAR
  4.    I1:INTEGER;
  5.    PC:INTEGER;
  6.    
  7. PROCEDURE NEXTCOLOR; {color 0 = invisible; 1..3 depend on palette setting}
  8. BEGIN
  9.    IF PC = 3 THEN PC := 1 ELSE PC := PC + 1;
  10. END;
  11.  
  12. PROCEDURE BOX(SIDE:INTEGER);
  13. BEGIN
  14.    DRAW(10,10,10+SIDE,10,PC);
  15.    DRAW(10+SIDE,10,10+SIDE,10+SIDE,PC);
  16.    DRAW(10+SIDE,10+SIDE,10,10+SIDE,PC);
  17.    DRAW(10,10+SIDE,10,10,PC);
  18. END;
  19.  
  20. BEGIN
  21.    SETMODE(4);          {selects 320x200 color graphics}
  22.    CURSOR(0,20);
  23.    WRITELN('box demo program');
  24.    FOR I1 := 1 TO 10 DO 
  25.       BEGIN
  26.          BOX(I1*10);
  27.          NEXTCOLOR;
  28.       END;
  29.    READLN;              {requires a CR before resetting the mode}
  30.    SETMODE(3);          {select 80 column text mode}
  31. END.
  32.  
  33.