Programm Beenden - Commodore 128 Handbuch

5040 PRINT»BITTE DATENDISKETTE INS LAUFWERK LEGEN!»
5050 PRINT
5060 INPUT»DRUECKEN SIE DANACH RETURN»;X$
Hier wird
Datendiskette einzulegen.
5070 DOPEN #1,"ADRESSEN"
5080 INPUT#1,Z
5090 FOR Y=1TO Z
5100 FOR 1=1 TO 7
5110 INPUT#1,D$(Y,I)
5120 NEXT I
5130 NEXT Y
5140 CLOSE 1
Hier wird die Datei "ADRESSEN" auf der Diskette zum Lesen
geöffnet. Der Lesezugriff wird dadurch gekennzeichnet,
daß kein W für W(rite) angegeben wurde. Danach wird die
Anzahl der
eingelesen. Diese
Schleife Y benutzt.
eingelesen, wie zuvor gespeichert wurden. Der Kanal wird
in Zeile 5160 wieder geschlossen.
5150 PRINT;PRINT"DATEN SIND GELADEN!"
5160 SLEEP 2
5170 GOTO 1000
Die letzten Zeilen dieses Abschnitts geben wieder eine
Meldung aus und verzweigen nach der Warteschleife zurück
ins Menü

Programm beenden

Wie zu Anfang des Kapitels bereits erwähnt, sollte ein
Programm nicht mit Hilfe des Netzschalters ausgeschaltet
werden. Auch die
Ausgang. Wie ein Programm beendet werden sollte, wird nun
demonstriert. Blicken wir zunächst wieder auf die ersten
Zeilen.
wieder der
in dieser
Variable
Es werden
RUN/STOP-Taste
154
-
Hinweis ausgegeben,
Datei gespeicherten
wird als Endwert
also soviel Datensätze
ist kein
-
die
Daten
für die
sauberer