home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 14 / pc / sgrfdemo.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-03-22  |  702 b   |  23 lines
  1. (* ------------------------------------------------------ *)
  2. (*                  SGRFDEMO.PAS                          *)
  3. (*       Nur für Amstrad PC 1512 CGA-Monitor              *)
  4. (* ------------------------------------------------------ *)
  5. PROGRAM SGraphDemo;
  6.  
  7. USES Crt, Graph, Sgraph;             { Sgraph nach Graph ! }
  8.  
  9. VAR ch : CHAR;
  10.  
  11. BEGIN
  12.   HiRes;
  13.   Randomize;
  14.   ch := #0;
  15.   REPEAT
  16.     SetColor(Random(14) + 1);
  17.     Bar(Random(639), Random(199), Random(639), Random(199));
  18.     IF KeyPressed THEN ch := ReadKey;
  19.   UNTIL ch = #27;
  20.   CloseGraph;
  21. END.
  22. (* ------------------------------------------------------ *)
  23. (*                Ende von SGRFDEMO.PAS                   *)