1000 REM *** TEIL A
1001 :
1010 AF=6
1020 DIM EN(AF)
1100 DATA 26
1110 DATA 72
1120 DATA 74
1130 DATA 64
1140 DATA 62
1150 DATA 63
1500 FOR I=1 TO AF
1510 READ EN(I)
1520 NEXT I
1530 OPEN 14,8,15
1540 :
1600 REM *** TEIL B
1601 :
1610 DIM N$(300),S$(300),O$(100),T$(100)
2000 AA=0
2100 PRINT CHR$(147)
2110 INPUT "DATEINAME: ";DN$
2120 PRINT
2130 OPEN 1,8,8,DN$+",S,R"
2140 GOSUB 9000
2150 IF A=62 THEN 2300
2160 IF A=0 THEN 2200
2170 CLOSE 1
2180 GOTO 2100
2190 :
2200 REM *** TEIL 3
2210 INPUT#1,AA
2220 FOR I=1 TO AA
2230 INPUT#1,N$(I),S$(I),O$(I),T$(I)
2240 PRINT N$(I) : PRINT S$(I)
2250 PRINT O$(I) : PRINT T$(I)
2260 PRINT
2270 NEXT I
2300 CLOSE 1
2310 AA=AA+1
2320 INPUT "NAME: ";N$(AA)
2330 INPUT "STRASSE: ";S$(AA)
2340 INPUT "ORT: ";O$(AA)
2350 INPUT "TELEFON: ";T$(AA)
2360 PRINT
2370 INPUT "WEITER MACHEN (J/N)";E$
2380 IF E$="J" THEN GOTO 2310
2390 :
2400 REM *** TEIL D
2401 :
2410 OPEN 1,8,8,DN$+",S,W"
2420 GOSUB 9000
2430 IF A=0 THEN 2600
2440 CLOSE 1
2450 IF A<>63 GOTO 2400
2500 PRINT#14,"S:"+DN$+".BAK"
2510 PRINT#14,"R:"+DN$+".BAK="+DN$
2520 GOTO 2400
2600 PRINT#1,AA
2610 FOR I=1 TO AA
2620 PRINT#1,N$(I):PRINT#1,S$(I)
2630 PRINT#1,O$(I):PRINT#1,T$(I)
2640 NEXT I
2650 CLOSE 1 : CLOSE 14
2660 PRINT "PROGRAMM BEENDET"
3000 END
3010 :
9000 REM *** TEIL E
9001 :
9010 INPUT#14,A,B$,C,D
9020 IF A=0 THEN RETURN
9030 PRINT
9040 I9=1
9050 IF EN(I9)=A THEN 9100
9060 I9=I9+1
9070 IF I9<=AF THEN 9050
9080 PRINT A;" ";B$;"  ";"SPUR:";C;" SEKTOR:";D
9090 STOP : REM PROGRAMMABBRUCH
9100 ON I9 GOTO 9200,9300,9400,9500
9110 RETURN
9120 :
9200 REM *** FEHLERMELDUNG 1
9210 PRINT "DIE DISKETTE IST SCHREIBGESCHUETZT" : PRINT
9220 PRINT "WENN SIE MIT DER DISKETTE ARBEITEN WOLLEN"
9230 PRINT "  DANN ENTFERNEN SIE DEN SCHUTZ"
9240 GOSUB 9900
9250 RETURN
9260 :
9300 REM *** FEHLERMELDUNG 2
9310 PRINT "DIE DISKETTE ODER DAS INHALTSVERZEICHNIS SIND VOLL"
9320 PRINT "  LEGEN SIE EINE ANDERE DISKETTE EIN"
9330 GOSUB 9900
9340 RETURN
9350 :
9400 REM *** FEHLERMELDUNG 3
9410 PRINT "ES BEFINDET SICH KEINE FORMATTIERTE"
9420 PRINT "  DISKETTE IM LAUFWERK"
9430 GOSUB 9900
9440 RETURN
9450 :
9500 REM *** FEHLERMELDUNG 4
9510 PRINT "DIESE DATEI EXISTIERT BEREITS ALS PROGRAMMDATEI"
9520 PRINT "  AUF DER DISKETTE"
9530 PRINT "WAEHLEN SIE EINEN ANDEREN NAMEN"
9540 GOSUB 9900
9550 RETURN
9560 :
9900 REM *** TASTE ABWARTEN
9910 PRINT : PRINT "WENN FERTIG - TASTE DRUECKEN"
9920 GET E$ : IF E$="" THEN 9920
9930 RETURN
9940 :