GOSUB gfa_poppal__ palette$=lib_rv__$ GOSUB gfa_pload__("\EXAMPLES\STUFF\DEMO.PI1",XBIOS(2),0) ' GOSUB gfa_zsatz__(0,136,16,16,3,"",0) ! Zeichensatz einlesen und Modul ' initialisieren REPEAT CLS PRINT AT(1,1);"Bitte geben Sie einen Text ein !" INPUT txt$ ' GOSUB gfa_zsatz__(0,20,16,16,3,txt$,0) ' ALERT 2," | Nochmal | ",1," Ja |Nein",button| UNTIL button|=2 ~XBIOS(6,L:V:palette$)