'
' Beispielprogramm zum Einbinden von STAD Bildern in GFA Basic 3.xx
'
' ˝ Christoph Emde 8/91
'
' falls dieses Beispielprogramm mit MERGE eingeladen wurde muž
' zuerst die INLINE Routine eingeladen werden. Siehe GFA Handbuch 2-44
'
DIM r%(16)                              ! Register fr Maschinen Routine
INLINE decomp_stad%,200
'
@stad_decomp("A:\GFA_BLK.1_0\BILDER\TEST.PAC",bild$)
'
SPUT bild$
'
> PROCEDURE stad_decomp(file$,VAR z$)
  '
  q$=SPACE$(32000)
  z$=SPACE$(32000)
  '
  OPEN "I",#1,file$
  '
  BLOAD file$,V:q$
  '
  r%(0)=XBIOS(4)                ! D0   Bildschirmaufl”sung (2-640x400)
  r%(6)=32000                   ! D6   Bildl„nge           (32000)
  '
  r%(8)=V:q$                    ! A0   Quell-Bild-Adresse
  r%(9)=V:z$                    ! A1   Ziel-Bild-Adresse
  '
  RCALL decomp_stad%,r%()
  '
  CLOSE #1
  '
RETURN