' See GFA-BASIC manual Chapter 12 (on BITBLT)
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      !Only do it if something present
    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