Für die "Anwendung des Monats”, das Programm "Multitrainer” (s. Schneider Magazin 5/88, S. 34), möchte ich einen Verbesserungsvorschlag machen. In Listing 3 wird ab Zeile 840 getestet, ob eine Datei vorhanden ist. Dies ist durch den Befehl ON ERROR GOTO realisiert. Leider lassen sich Diskettenfehler beim CPC 464 mit diesem Kommando nicht abfangen. In meiner Ergänzung wird der Benutzer nun gefragt, ob die Datei vorhanden ist. Gehen Sie zum Einfügen der Verbesserung bitte folgendermaßen vor: Die Zeilen 830 und 880 bis 920 sind zu löschen. Nun geben Sie folgende Zeilen ein: 850 WINDOW 3,78,17,17 860 PRINT” - Existiert schon eine Ergebnisdatei (J/ N)?”: GOSUB 5320 879 IF j THEN neu=0 ELSE neu=1: CLS: PRINT” —Ihre Daten werden von nun ab in der Datei ”in$ergdatei$in$” gespeichert.”Jan Schefers, Schneider Magazin |