'                                                     Fontbuffer 10240 Bytes
INLINE fontadr%,10240
'                                                     Buffer f�r H_VSCROL
INLINE bufadr%,4152
'
GOSUB gfa_poppal__
palette$=lib_rv__$
GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PIC",XBIOS(2),2)
'
GOSUB gfa_h_vkonv__(XBIOS(2),fontadr%,208)
'
' BSAVE "VFONT.FNT",fontadr%,10240                  ! Font speichern
'
txt$="Das Demo kann durch einen Tastendruck abgebrochen werden !"
'
GOSUB gfa_h_vscrol__(XBIOS(2),fontadr%,bufadr%,304,22,346,txt$,0)
'
~XBIOS(6,L:V:palette$)