Program ScreenDemo;
Var
 Scr: Ptr;
 Win: Array[0..63] of Ptr;
 i: integer;
Begin
 Scr:=Open_Screen(0,0,         { Position: normal }
                  320,256,     { Größe }
                  6,           { 6 Planes = 64 Farben }
                  3,1,         { Titel rot auf weiß }
                  $0082,       { Extra-Halfbrite-Modus }
                  'Je bunter, desto besser'); { Name }
 For i:=0 to 63 Do
  Win[i]:=Open_Window((i mod 8)*40, 10+(i div 8)*30, 40, 30,
                       i+$100*(63-i), 0, $9, '???', Scr,
                       50,30,100,100);
 Delay(5*50);         { Fünf Sekunden Pause }
 For i:=0 to 63 Do Close_Window(Win[i]);
 Close_Screen(Scr)
End.