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 xx%=V:x%(0) a%=V:x$ b%=INT{a%} h%=INT{a%+2} ' INT{xx%}=1 INT{xx%+2}=h% INT{xx%+4}=1 INT{xx%+6}=1 INT{xx%+8}=0 {xx%+10}=&H3030303 INT{xx%+14}=9999 INT{xx%+16}=0 {xx%+18}=a%+6 INT{xx%+22}=2 INT{xx%+24}=SHR(b%+16,4)*2 INT{xx%+26}=2 INT{xx%+28}=9999 INT{xx%+30}=0 {xx%+32}=XBIOS(3) INT{xx%+36}=2 INT{xx%+38}=80 INT{xx%+40}=2 {xx%+42}=0 !pattadr INT{xx%+46}=0 !p_nxtln INT{xx%+48}=0 !p_nxpl INT{xx%+50}=0 !p_mask ' ABSOLUTE i&,xx%+14 ABSOLUTE di&,xx%+28 ' FOR i&=0 TO b% INT{xx%+4}=1 di&=SUB(639,i&) BITBLT xx% NEXT i& ' ENDIF RETURN