DIM x%(1000) ' FOR i%=0 TO 639 STEP 8 LINE i%,0,639,399 NEXT i% ' GET 0,0,639,399,a$ mirrorput(0,0,a$) ' PROCEDURE mirrorput(x%,y%,VAR x$) IF LEN(x$)>6 !nur wenn auch etwas da ist a%=V:x$ b%=INT{a%} h%=INT{a%+2} ' x%(0)=1 x%(1)=h% x%(2)=1 x%(3)=1 x%(4)=0 x%(5)=&H3030303 x%(6)=9999 x%(7)=0 x%(8)=V:x$+6 x%(9)=2 x%(10)=SHR(b%+16,4)*2 x%(11)=2 x%(12)=9999 x%(13)=0 x%(14)=XBIOS(3) x%(15)=2 x%(16)=80 x%(17)=2 x%(18)=0 !pattadr x%(19)=0 !p_nxtln x%(20)=0 !p_nxpl x%(21)=0 !p_mask ' FOR i%=0 TO b% x%(6)=i% x%(12)=639-i% BITBLT x%() NEXT i% ' ENDIF RETURN