'
'
' Beispielprogramm zum Einbinden von Bellissimo 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
'
INLINE bel_komp%,114
INLINE bel_dekomp%,80
'
DEFFILL 1,3,2                           ! Demografik
PELLIPSE 320,200,320,200                !     "
DEFFILL 1,2,4                           !     "
PRBOX 100,100,540,300                   !     "
DEFTEXT 1,16,0,32                       !     "
TEXT 200,200,"Bellissimo 1.1"           !     "
'
SGET bild$                                              ! Bild holen
@bel_komp("A:\GFA_BLK.1_0\BILDER\TEST1.BEL",bild$)      ! Bild komprimiert speichern
CLS
@bel_dekomp("A:\GFA_BLK.1_0\BILDER\TEST1.BEL",bild$)    ! Bild laden und darstellen
'
TEXT 175,250,"- Taste dr�cken -"
'
~INP(2)
'
> PROCEDURE bel_komp(file$,q$)
  '
  e%=C:bel_komp%(L:ARRPTR(q$))          ! Komprimieren
  BSAVE file$,V:q$,LEN(q$)              ! und abspeichern
  '
RETURN
'
> PROCEDURE bel_dekomp(file$,VAR z$)
  '
  q$=SPACE$(32000)                      ! Platz machen
  OPEN "I",#1,file$                     ! File �ffnen
  BLOAD file$,V:q$                      ! Einladen
  e%=C:bel_dekomp%(L:ARRPTR(q$))        ! auf Bildschirm dekomprimieren
  CLOSE #1                              ! File schlie�en
  SGET z$                               ! Bild retten
  '
RETURN