' Buffer fr Font INLINE bufadr%,4096 ' GOSUB gfa_poppal__ palette$=lib_rv__$ GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PIC",XBIOS(2),2) ' GOSUB gfa_h_tkonv__(XBIOS(2),bufadr%,72) ' REPEAT CLS PRINT AT(1,1);"Bitte geben Sie einen Text ein !" INPUT txt$ ' GOSUB gfa_h_text88__(XBIOS(2),bufadr%,V:txt$,0,100,LEN(txt$),&X11) ' ALERT 2," | Nochmal | ",1," Ja |Nein",button| UNTIL button|=2 ~XBIOS(6,L:V:palette$)