Anwender-Dokumentation GFA-BASIC 3.0
PROCEDURE
laden
FILESELECT
"\*.RSC","",rsc_datei$
IF NOT EXIST(rsc_datei$)
ALERT 1,"Datei
existiert
nicht
!",1,"Abbruch",r%
ELSE
IF RSRC_LOAD(rsc_datei$)=0
ALERT
1,"Fehler
beim Laden
der Datei
!",1,"Abbruch" ,r%
END
ENDIF
ENDIF
RETURN
> PROCEDURE
speichern
1-14
