DEFTEXT 1,0,0,6                           ! Schriftattribute festlegen
'
REPEAT
  CLS
  PRINT AT(1,1);"Bitte geben Sie eine Zahl zwischen 12"
  PRINT AT(1,2);"und 6500 ein !"
  '
  GOSUB gfa_ninput__(4,120,40,12,6500)
  '
  PRINT AT(1,4);"Eingegebener Wert : ";lib_rv__%
  '
  ALERT 2," | Nochmal | ",1," Ja |Nein",button|
UNTIL button|=2