DEFFILL
1,2,4
PBOX
0,0,639,199
DEFFILL
1,2,2
PBOX
0,200,639,399
DEFTEXT
1,0,0,32
TEXT
100,115,"Die
obere
Hälfte"
TEXT
100,315,"Die
untere
Hälfte"
OPEN
"I",#1,"screen.pic"
BGET #1,XBIOS(2)+16000,
16000
BGET
#1,XBIOS(2) ,16000
CLOSE #1
--> Füllt die obere Bildschirmhälfte mit einem Muster und die untere Bildschirmhälfte mit
einem anderen. Danach wird der gesamte Bildschirm in der Datei screen.pic gespeichert
und nach einer Pause wieder eingelesen. Dabei wird die erste Hälfte der Datei in die un-
tere Bildschirmhälfte und die zweite Hälfte in die obere Hälfte des Bildschirms geladen.
6-43