effect|=1 ' GOSUB gfa_poppal__ palette$=lib_rv__$ GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PIC",XBIOS(2),2) SGET bild$ ' COLOR 1 REPEAT CLS FOR i&=0 TO 639 STEP 4 ! Auszublendendes Bild aufbauen LINE 0,i&*0.625,i&,399 ! Dieses wird durch das Bild im LINE 639,399-i&*0.625,639-i&,0 ! String bild$ ersetzt indem LINE i&,399,639,399-i&*0.625 ! bergeblendet wird LINE 639-i&,0,0,i&*0.625 NEXT i& ALERT 2," | | šberblenden ",1," Ok ",button| ' HIDEM GOSUB gfa_h_fadeov__(XBIOS(2),V:bild$,400,10000,effect|,&HF0F0) SHOWM ' INC effect| IF effect|=14 ! N„chster šberblendeffekt effect|=1 ENDIF ' ALERT 2," | Weiter | ",1," Ja |Nein",button| ' UNTIL button|=2 ~XBIOS(6,L:V:palette$)