Commodore 128 Handbuch Seite 171

5140 CLOSE 1
5150 PRINT:PRINT"OATEN SIND GELADEN!"
5160 SLEEP 2
5170 GOTO 1000
10000 REM ===================
10010 REM DATEI SPEICHERN
10020 REM ===================
10030 GOSUB 300:PR I NT
10040 GOSUB 500:IF Z=0 THEN 1000
10050 PRINT"BITTE DATENDISKETTE EINLEGEN"
10060 PRINT
10070 INPUT"DRUECKEN SIE DANACH RETURN";X$
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
10160 PRINT:PRINT"DATEN SIND GESICHERT!"
10170 SLEEP 2
10180 GOTO 1000
15000 REM ===================
15010 REM ADRESSEN EINGEBEN
15020 REM ===================
15030 GOSUB 300
15040 Z=Z+1
15050 PRINT
15060 FOR 1=1 TO 7
15070 PRINT F$(I);
15080 INPUT D$(Z,I)
15090 NEXT I
15100 PRINT
15110 PRINT"DATEN RICHTIG EINGEGEBEN (J/N)";
15120 X$="":INPUT X$
15130 IF X$="J" THEN 15160
15140 IF X$="N" THEN Z=Z-1:GOTO 15000
15150 PRINT CHR$(145);:GOTO 15110
15160 PRINT"WEITERE EINGABEN (J/N)";
15170 . . . . INPUT X$
159
-