GFA BASIC 3.0 Bedienungsanleitung Seite 391

Systemroutinen
INT {xx%+46}=0 Ip _nxtin
INT {xx%+48}=0 Ip_nxp]
INT{xx%+50}=0 Ip_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&
1
ENDIF
RETURN
--> Ein Beispiel für BITBLT adı%.
DIM x%(1000)
FOR i%=0 TO 639 STEP 8
LINE i%,0,639,399
NEXT 1%
GET 0,0,639,399,a$
mirrorput(0,0,a$)
i
PROCEDURE mirrorput(x%,y%,VAR x$)
IF LEN(x$)>6 Inur wenn auch etwas da ist
a%=V:x$
b%=INT{a%}
h%=INT{a%+2}
1
h%
]
]
10 - 15