Uses Crt,Gif,ModeXLib; Var i:Word; begin Init_ModeX; {Mode X initialisieren} LoadGif('beule'); {erstes Bild (Hintergrund) laden} p13_2_ModeX(16000,16000); LoadGif('corner'); {zweites Bild laden} p13_2_modex(0,16000); SetStart(16000); {Hintergrund anzeigen} Repeat For i:=200 downto 0 do Begin{Split-Line nach oben ziehen} WaitRetrace; Split(i); If KeyPressed Then Exit; End; For i:=0 to 200 do Begin {Split-Line nach unten} WaitRetrace; Split(i); If KeyPressed Then Exit; End; Until KeyPressed; TextMode(3); End.