Commodore 128 Handbuch Seite 164

10000 REM ===================
10010 REH DATEI SPEICHERN
10020 REH ===================
10030 GOSUB 300:PRINT
10040 GOSUB 500:IF Z=0 THEN 1000
Diese Zeilen sind uns nicht mehr unbekannt. Bevor wir die
Daten auf die Diskette speichern können, muß diese erst
eingelegt werden. Die folgenden Zeilen fordern dazu auf.
10050 PRINT"BITTE DATENDISKETTE EINLEGEN"
10060 PRINT
10070 INPUT"DRUECKEN SIE DANACH RETURN";X$
Auch diese
Verständnisschwierigkeiten bereiten. Ein paar PRINTs mit
einem anschließendem INPUT dürften mittlerweile zu Ihren
leichtesten Übungen gehören.
Doch nun geht es los. Da die Adressen sicher mehr als
einmal auf Diskette gespeichert werden sollen, muß die
alte Adressdatei
gelöscht werden bevor die neue Adressdatei gespeichert
werden kann. Das läßt sich einfach mit dem SCRATCH
"Dateiname"-Befehl erreichen.
Die Daten müssen abgespeichert werden, nachdem der Kanal
zum Schreiben auf Diskette geöffnet wurde. Wir nehmen den
Kanal 1.
10075 SCRATCH "ADRESSEN"
10080 DOPEN #1,"ADRESSEN",W
10090 PRINT#1,Z
10100 FOR Y=1 TO Z
10110 FOR 1=1 TO 7
10120 PRINT#1,D$(Y,I)
10130 NEXT I
10140 NEXT Y
10150 CLOSE 1
Wir öffnen also
"ADRESSEN". Wie Sie sehen geht das Öffnen einer Datei auf
Zeilen dürften
auf der Datendiskette
die Diskettendatei
152
- -
Ihnen keine
erst einmal
mit dem Namen