home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Pascal / MAXONPASCAL3.DMS / in.adf / DEMOS-OS1.3 / SysProg / Screendemo.p < prev    next >
Encoding:
Text File  |  1994-07-23  |  751 b   |  23 lines
  1. { MaxonPASCAL3-Anpassung / Test:  Falk Zühlsdorff (PackMAN) 1994 }
  2.  
  3. Program ScreenDemo;
  4. Var
  5.  Scr: Ptr;
  6.  Win: Array[0..63] of Ptr;
  7.  i: integer;
  8. Begin
  9.  Scr:=Open_Screen(0,0,         { Position: normal }
  10.                   320,256,     { Größe }
  11.                   6,           { 6 Planes = 64 Farben }
  12.                   3,1,         { Titel rot auf weiß }
  13.                   $0082,       { Extra-Halfbrite-Modus }
  14.                   'Je bunter, desto besser'); { Name }
  15.  For i:=0 to 63 Do
  16.   Win[i]:=Open_Window((i mod 8)*40, 10+(i div 8)*30, 40, 30,
  17.                        i+$100*(63-i), 0, $9, '???', Scr,
  18.                        50,30,100,100);
  19.  Delay(5*50);         { Fünf Sekunden Pause }
  20.  For i:=0 to 63 Do Close_Window(Win[i]);
  21.  Close_Screen(Scr)
  22. End.
  23.