GFA BASIC 3.0 Bedienungsanleitung Seite 516

REPEAT
ex%=FORM_DO(tree%,0)
{Objekt mit Exit-Status angeklickt ?
FOR i%=1 TO 3
IF BTST(OB_STATE(tree%,r%(i%)),0) !welcher Radio-Button
~RSRC_FREE() I!reservierten Speicherplatz wieder freigeben
RESERVE FRE(0)+32000
CLS
PRINT "Ende mit : ";ex%
PRINT
"Vorname : ";vorname$
PRINT "Nachname : ";nachname$
PRINT "Strasse : ";strasse$
PRINT "Ort : "sort$
PRINT "Radio > "sradio%
--> Die Resource-Datei "DIALOG.RSC" wird geladen und die Anfangsadresse des Objekt-
baumes ermittelt sowie die Objektbaum-Koordinaten zentriert. Danach werden De-
fault-Strings in die Edit-Felder geschrieben. Das geschieht mit Hilfe der Funktion
OB_SPEC.
11-90