Datei Sichern - Commodore 128 Handbuch

30110 PRINT
30120 FOR 1=1 TO 7:S$(I)="":NEXT 1
30130 FOR 1=1 TO 7
30140 PRINT F$(I);
30150 INPUT S$(I)
30160 NEXT I
30170 FOR Y=1 TO Z
30180 S=0
30190 FOR 1=1 TO 7
30200 IF S$(I)="" THEN S=S+1:GOTO 30220
30210 IF D$(Y,I)=S$(I) THEN S=S+1
30220 NEXT I
30230 IF S<>7 THEN 30300
30240 IF G$="D'' THEN PRINT#1
30245 IF G$="B" THEN GOSUB 300:PRINT
30250 FOR 1=1 TO 7
30260 IF G$="B" THEN PRINT F$(I);D$(Y,I)
30270 IF G$="D" THEN PRINT#1,F$(I);D$(Y,I)
30280 NEXT I
30285 IF G$="D" THEN 30300
30290 PRINT:INPUT"DRUECKEN SIE RETURN";X$
30300 NEXT Y
30310 GOSUB 300:PRINT:PRINT
30320 PRINT"DATEIENDE"
30330 INPUT"DRUECKEN SIE RETURN";X$
30340 IF G$="D" THEN CLOSE 1
30350 GOTO 1000

Datei sichern

Wir nähern uns dem Abschluß der Adressenverwaltung. Die
eingegebenen Daten gehen mit dem Abschalten des Rechners
natürlich verloren. Doch wozu gibt es eine Floppydisk,
auf der wir die Daten wie Musik aufnehmen können. Was muß
nun zuerst beachtet werden? Beginnen wir diesen Teil wie
üblich mit dem Bildschirmkopf und der Abfrage, ob Daten
im Rechner gespeichert sind.
151
- -