Commodore 128 Handbuch Seite 167

35000 REM ====================
35010 REM PROGRAMM BEENDEN
35020 REM ====================
35030 GOSUB 300:PRINT
35040 IF Z=0 THEN 35150
Die ersten Zeilen werden Ihnen sicher schon langweilig.
Doch die Zeile 35040 sieht ungewohnt aus. Wenn Z=0 ist,
also wenn keine Daten im Rechner gespeichert sind, wird
das Programm ohne weiteres sofort beendet. Dies geschieht
in Zeile 35150
35050 PRINT"SIND ALLE DATEN GESICHERT (J/N)
35060 INPUT X$
35070 IF X$="N" THEN 1000
35080 IF X$="J" THEN 35100
35090 PRINT CHR$(145);:GOTO 35050
Langsam erkennt
"PROGRAMM BEENDEN". Es wird also festgestellt, ob alle
Daten gesichert
Programmabschnitt versehentlich aufgerufen haben. Wenn
Sie nun mit nein antworten, kommen Sie wieder in das Menü
zurück. Wenn Sie die Adressen jedoch abgespeichert haben,
kann Sie nichts daran hindern, das Programm zu beenden.
35100 GOSUB 300
35110 PRINT"DAS PROGRAMM KANN MIT 'GOTO 1000' WIEDER";
35120 PRINT"GESTARTET WERDEN, OHNE DASS DATEN VER-"
35130 PRINT"LOREN GEHEN!"
35140 PRINT
35150 END
Nun folgt vor Beendigung des Programms ein wichtiger
Hinweis: Nach dem Verlassen des Programms kann man es mit
dem Befehl 'GOTO 1000' wieder ohne Datenverlust starten.
Der Befehl RUN löscht vor dem Start sämtliche Variablen,
ist also nicht zu empfehlen.
Nun haben wir es geschafft. Sie besitzen nun eine bis
aufs Letzte dokumentierte Adressenverwaltung, bei deren
Erstellung Sie sicher viel gelernt haben. Das, was Sie
man den
wurden. Immerhin
155
-
Sinn eines
kann
Programmteils
man diesen