'                                             ! Buffer f�r Font (8192 Bytes)
INLINE fontadr%,8192
'
GOSUB gfa_poppal__
palette$=lib_rv__$
GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PI1",XBIOS(2),0)
'
GOSUB gfa_l_tkonv__(XBIOS(2),fontadr%,36)
'
REPEAT
  CLS
  PRINT AT(1,1);"Bitte geben Sie einen Text ein !"
  INPUT txt$
  '
  GOSUB gfa_l_text88__(XBIOS(2),fontadr%,V:txt$,0,140,LEN(txt$),&X11)
  '
  ALERT 2," | Nochmal | ",1," Ja |Nein",button|
UNTIL button|=2
~XBIOS(6,L:V:palette$)