'                                                     Buffer f�r Font
INLINE fontadr%,30720
'
GOSUB gfa_poppal__
palette$=lib_rv__$
GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PIC",XBIOS(2),2)
'
GOSUB gfa_h_skonv__(XBIOS(2)+336*80,fontadr%)
'
' BSAVE "FONT2.FTH",fontadr%,30720                  ! Font speichern
'
txt$="Das Demo kann durch einen Tastendruck abgebrochen werden !"
'
GOSUB gfa_h_hscrol__(XBIOS(2)+20*80,fontadr%,txt$,0)
'
~XBIOS(6,L:V:palette$)