Anhang; Adressenverwaltung Auf Kassette - Commodore 128 Handbuch

ANHANG

Adressenverwaltung auf Kassette

5000 REM ====================
5010 REM DATEI LADEN
5020 REM ====================
5030 GOSUB 300:PRINT:PRINT
5040 PRINT"BITTE DATENKASSETTE EINLEGEN UND ZU-"
5050 PRINT
5060 PRINT"RUECKSPULEN!"
5065 PRINT
5070 PRINT"DRUECKEN SIE DANACH RETURN";
5080 INPUT X$
5085 PRINT
5090 OPEN 1,1,0, "ADRESSEN"
5100 INPUT#1,Z
5110 FOR Y=1 TO Z
5120 FOR 1=1 TO 7
5130 INPUT#1,D$(Y,I)
5140 NEXT I
5150 NEXT Y
5160 CLOSE 1
5170 PRINT:PRINT"DATEN SIND GELADEN!"
5180 SLEEP 2
5190 GOTO 1000
10000 REM ====================
10020 REM DATEI SPEICHERN
10030 REM ====================
10040 GOSUB 300:PR I NT
10045 GOSUB 500:IF Z=0 THEN 1000
10060 PRINT"BITTE DATENKASSETTE EINLEGEN UND ZU-"
10070 PRINT
10080 PRINT"RUECKSPULEN!"
10085 PRINT
10090 PRINT"DRUECKEN SIE DANACH RETURN";
10095 INPUT X$
10100 OPEN1,1,1,"ADRESSEN"
205
-