GFA BASIC 3.0 Bedienungsanleitung Seite 421

Systemroutinen
Das aufrufende GFA-BASIC-Programm lautet:
DO
READ a%
EXIT IF a%=-1
A$=A$+MKI$(a%)
LOOP
DATA 37440,49916,20, 21313
DATA 49404 ,80,53696
DATA 18072,20937 ,65532 , 20085, -1
DIM r%(16)
xb2%=XBI0S(2)
HIDEM
FOR j%=1 TO 50
FOR i%=0 TO 190 STEP 10
r%(0)=i%
r%(1)=399-1%
r%(8)=xb2%
RCALL V:a$,r%()
NEXT i%
NEXT j%
10-45