5 CLR
10 REM CASSETTENBUTLER V1.0
20 REM ANIMAL NETWORKS 7/93
30 REM ROBERT GAST
40 DIMNAME$(570)
50 DIMB$(420),C$(420),D$(420),E$(420),F$(420),G$(420),H$(420),I$(420)
60 DIMJ$(420),K$(420),L$(420):PL$="KEINE IM SPEICHER"
90 REM
100 POKE53280,0:POKE53281,0:PRINT"[147][151]":POKE650,128:PRINTCHR$(142):U=1
110 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
120 FORI=1TO22:PRINT"[194]                                     [194]":NEXT
130 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
140 PRINT"KASSETTENBUTLER V1.0"
150 PRINT"ROBERT GAST  JULI 1993"
160 PRINT"A N I M A L  N E T W O R K S[151]"
170 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][150]":ZU=1
180 PRINT"  BEARBEITEN  [151]"
190 PRINT"  SUCHEN      "
200 PRINT"  DRUCKEN     "
210 PRINT"  DIRECTORY   "
220 PRINT"  LOADEN      "
230 PRINT"  SAVEN       ":
240 GETA$:IFA$=""THEN240
250 IFA$=""THENZU=ZU+1:GOTO290
260 IFA$="[145]"THENZU=ZU-1:GOTO290
270 IFA$=CHR$(13)THEN450
280 GOTO 240
290 IFZU<1THENZU=1:GOTO240
300 IFZU>6THENZU=6:GOTO240
310 PRINT"[151]"
320 PRINT"  BEARBEITEN  "
330 PRINT"  SUCHEN      "
340 PRINT"  DRUCKEN     "
350 PRINT"  DIRECTORY   "
360 PRINT"  LOADEN      "
370 PRINT"  SAVEN       "
380 PRINT"[150]":ONZUGOTO390,400,410,420,430,440,445
390 PRINT"  BEARBEITEN  ":GOTO240
400 PRINT:PRINT:PRINT"  SUCHEN      ":GOTO240
410 PRINT:PRINT:PRINT:PRINT:PRINT"  DRUCKEN     ":GOTO240
420 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"  DIRECTORY   ":GOTO240
430 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"  LOADEN      ":GOTO240
440 PRINT"":PRINT"  SAVEN       ":GOTO240
450 ONZUGOTO460,1780,2930,4250,4350,5140
460 PRINT"[151]"
470 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
480 FORI=1TO17:PRINT"[194]                                 [194]":NEXT
490 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
500 PRINT"ENDE MIT  F1 [146] ![151]"
510 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":ZU=U
520 PRINT"NR.:"ZU
530 PRINT"NAME:[151]"NAME$(ZU)
540 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][155]"
550 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
560 FORI=1TO5:PRINT"[194]                 [194]":NEXT
570 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
580 PRINT""
590 PRINT"MIT +[146]/-[146] AUSWAHL"
600 PRINT"RETURN[146] BEARBEITEN"
610 PRINT"F1[146] ENDE !"
620 GETA$:IFA$=""THEN620
630 IFA$="+"THENZU=ZU+2:GOTO680
640 IFA$="-"THENZU=ZU-2:GOTO680
650 IFA$=CHR$(13)THENU=ZU:GOTO720
660 IFA$="[133]"THEN100
670 GOTO 620
680 IFZU<1THENZU=1:GOTO620
690 IFZU>15THENZU=15:GOTO620
700 PRINT""ZU"[157]  ":SP$=""
705 PRINT"                          "
710 PRINT"[145]"NAME$(ZU):GOTO620
720 PRINT""
730 FORI=1TO12:PRINT"                              ":NEXT:PRINT""
731 PRINT""B$(U):PRINT""C$(U):PRINT""D$(U):PRINT""E$(U):PRINT""F$(U)
732 PRINT""G$(U):PRINT""H$(U):PRINT""I$(U):PRINT""J$(U):PRINT""K$(U)
733 PRINT""L$(U)
734 Z$="":PRINT"":PRINTZ$+B$(U+1):PRINTZ$+C$(U+1)
735 PRINTZ$+D$(U+1):PRINTZ$+E$(U+1):PRINTZ$+F$(U+1):PRINTZ$+G$(U+1):PRINTZ$+H$(U+1):PRINTZ$+I$(U+1)
736 PRINTZ$+J$(U+1):PRINTZ$+K$(U+1):PRINTZ$+L$(U+1)
740 PRINT"[151]"
750 PRINT"[178]"
760 PRINT"[151]"
770 FORI=1TO12:PRINT"[194]":NEXT
780 PRINT"[177]"
790 PRINT"[150]"
800 FORI=1TO11:PRINT""CHR$(I+64)""CHR$(I+64):NEXT
810 PRINT"[155]":
820 PRINT"[145][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
830 PRINT"[194]BITTE WAEHLEN SIE AUS !![155]         [194]"
840 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
850 PRINT"_":ZU=1:SP=1
860 GETA$:IFA$=""THEN860
865 IFZU=0ANDA$=""THEN983
870 IFA$=""THENZU=ZU+1:GOTO940
880 IFA$="[145]"THENZU=ZU-1:GOTO940
890 IFA$=""THENSP=SP+1:GOTO940
900 IFA$="[157]"THENSP=SP-1:GOTO940
910 IFA$="[133]"THEN100
920 IFA$=CHR$(13)THEN1110
925 IFA$="+"ORA$="-"THEN460
930 GOTO 860
940 IFZU<0THENZU=0:GOTO860
941 IFZU=0THEN981
950 IFZU>11THENZU=11:GOTO860
960 IFSP<1THENSP=1:GOTO860
970 IFSP>2THENSP=2:GOTO860
975 IFA$=""ORA$="[157]"THEN1060
980 ON SP GOTO 990,1020
981 PRINT""NAME$(U)+"_"
982 PRINT"  ":GOTO860
983 PRINT""NAME$(U)+"  "
985 PRINT"_":SP=1:ZU=1:GOTO860
990 PRINT""
1000 FORI=1TO11:PRINT" ":NEXT
1010 PRINT"":FORI=1TOZU:PRINT:NEXT:PRINT"_":GOTO860
1020 PRINT""
1030 FORI=1TO11:PRINT" ":NEXT
1040 PRINT""
1050 FORI=1TOZU:PRINT:NEXT:PRINT"_":GOTO860
1060 IFA$="[157]"THEN1090
1070 PRINT""
1080 FORI=1TO11:PRINT" ":NEXT:ZU=1:GOTO980
1090 PRINT""
1100 FORI=1TO11:PRINT" ":NEXT:ZU=1:GOTO980
1110 IFZU=0THEN1450
1115 PRINT""
1120 PRINT"EINGABETEXT :[164]               ":V=1:BU$="":IFA$<>""ANDA$<>CHR$(13)THEN1140
1130 GETA$:IFA$=""THEN1130
1140 IFA$="[147]"ORA$=""ORA$=""ORA$="[145]"ORA$="[157]"ORA$=""THEN1130
1145 IFA$="[133]"THENBU$=LEFT$(BU$,14):GOTO1220
1150 IFA$=CHR$(13)THENBU$=LEFT$(BU$,14):GOTO1220
1160 IFV<=0ANDA$=CHR$(20)THEN1130
1170 IFA$=CHR$(20)THEN1200
1180 IFV>14THEN1130
1190 BU$=BU$+A$:V=V+1:GOTO1210
1200 BU$=LEFT$(BU$,V-1):V=V-1
1210 PRINT""BU$+"[164]  ":GOTO1130
1220 IFBU$="[133]"THEN100
1221 IFBU$=""THEN1560
1222 IFZU=0THEN1450
1225 IFSP=1THEND=0
1230 IFSP=2THEND=1
1240 ONZUGOTO1250,1260,1270,1280,1290,1300,1310,1320,1330,1340,1345
1250 B$(U+D)=BU$:GOTO1390
1260 C$(U+D)=BU$:GOTO1390
1270 D$(U+D)=BU$:GOTO1390
1280 E$(U+D)=BU$:GOTO1390
1290 F$(U+D)=BU$:GOTO1390
1300 G$(U+D)=BU$:GOTO1390
1310 H$(U+D)=BU$:GOTO1390
1320 I$(U+D)=BU$:GOTO1390
1330 J$(U+D)=BU$:GOTO1390
1340 K$(U+D)=BU$:GOTO1390
1345 L$(U+D)=BU$:GOTO1390
1390 ONSPGOTO1400,1420
1400 PRINT"":FORI=1TOZU:PRINT:NEXT
1410 PRINT""BU$:GOTO1440
1420 PRINT"":FORI=1TOZU:PRINT:NEXT
1430 PRINT""BU$
1440 IFA$="[133]"THEN100
1445 GOTO1560
1450 PRINT"[164]                        ":BU$="":V=1
1455 GETA$:IFA$=""THEN1455
1460 IFA$="[147]"ORA$=""ORA$=""ORA$="[145]"ORA$=""ORA$="[157]"THEN1455
1470 IFA$=CHR$(13)THEN1540
1480 IFV<=0ANDA$=CHR$(20)THEN1455
1490 IFA$=CHR$(20)THEN1520
1500 IFV>20THEN1455
1510 BU$=BU$+A$:V=V+1:GOTO1530
1520 BU$=LEFT$(BU$,V-1):V=V-1
1530 PRINT""BU$+"[164]  ":GOTO1455
1540 PRINT""BU$+"  "
1550 NAME$(U)=BU$:SP=1:ZU=1:GOTO1060
1560 ZU=ZU+1:IFZU>11THEN1730
1570 GOTO1610
1580 ZU=1:ONSPGOTO1590,1600
1590 SP=2:GOTO1610
1600 SP=1:GOTO1610
1610 PRINT"":ONSPGOTO1620,1640
1620 FORI=1TO11:PRINT" ":NEXT
1630 PRINT"":FORI=1TOZU:PRINT:NEXT:PRINT"_":GOTO5450
1640 PRINT""
1650 FORI=1TO11:PRINT" ":NEXT
1660 PRINT""
1670 FORI=1TOZU:PRINT:NEXT:PRINT"_":GOTO5450
1690 PRINT""
1700 FORI=1TO11:PRINT" ":NEXT:ZU=1:GOTO980
1710 PRINT""
1720 FORI=1TO11:PRINT" ":NEXT:ZU=1:GOTO980
1730 ONSPGOTO1740,1760
1740 PRINT""
1750 FORI=1TO11:PRINT" ":NEXT:ZU=1:GOTO1580
1760 PRINT""
1770 FORI=1TO11:PRINT" ":NEXT:ZU=1:GOTO1580
1780 PRINT"[151]"
1790 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1800 FORI=1TO6:PRINT"[194]                  [194]":NEXT
1810 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
1820 PRINT"[150]"
1830 PRINT"SUCHEN NACH ...[146]"
1840 PRINT"KASSETTENNAME .. 1"
1850 PRINT"LIEDTITEL ...... 2"
1860 PRINT"ENDE ........... 3[151]"
1870 GETA$:IFA$=""THEN1870
1880 ONVAL(A$)GOTO1900,1905,0100
1890 GOTO 1870
1900 FL=1:PRINT"[147]":GOTO1910
1905 FL=2:PRINT"[147]"
1910 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
1920 FORI=1TO6:PRINT"[194]                                 [194]":NEXT
1930 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
1940 PRINT""
1950 PRINT"BITTE GEBEN SIE DAS ZU SUCHENDE"
1960 PRINT"STICHWORT EIN !!"
1970 PRINT"[164]"
1980 PRINT" F1 [146] ENDE !":BU$="":V=1:
1990 GETA$:IFA$=""THEN1990
1995 IFA$=""ORA$="[147]"ORA$=""ORA$="[145]"ORA$=""ORA$="[157]"THEN1990
2000 IFA$="[133]"THEN100
2010 IFV=0ANDA$=CHR$(20)THEN1990
2020 IFA$=CHR$(20)THEN2060
2030 IFA$=CHR$(13)THEN2080
2040 IFV>=23THENV=23:GOTO1990
2050 BU$=BU$+A$:V=V+1:GOTO2070
2060 BU$=LEFT$(BU$,V-1):V=V-1
2070 PRINT""BU$+"[164]   ":GOTO1990
2080 PRINT"[151]"
2090 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
2100 FORI=1TO10:PRINT"[194]                               [194]":NEXT
2110 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
2120 PRINT""
2130 PRINT"MOMENT BITTE ... "
2140 ONFLGOTO2150,2750
2150 FORI=1TO30:
2160 IFBU$=NAME$(I)THEN2220
2170 NEXT
2180 PRINT"ICH HABE NICHTS FINDEN KOENNEN!"
2190 PRINT"[150]TASTE DRUECKEN !"
2200 GETA$:IFA$=""THEN2200
2210 GOTO 100
2220 PRINT"[151]"
2230 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
2240 FORX=1TO22:PRINT"[194]                                  [194]":NEXT
2250 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
2260 PRINT""
2270 PRINT"KASSETTENNUMMER :"I
2280 PRINT"KASSETTENNAME :"NAME$(I)""
2290 PRINT""B$(I)
2300 PRINT"[145]"B$(I+1)
2310 PRINT""C$(I)
2320 PRINT"[145]"C$(I+1)
2330 PRINT""D$(I)
2340 PRINT"[145]"D$(I+1)
2350 PRINT""E$(I)
2360 PRINT"[145]"E$(I+1)
2370 PRINT""F$(I)
2380 PRINT"[145]"F$(I+1)
2390 PRINT""G$(I)
2400 PRINT"[145]"G$(I+1)
2410 PRINT""H$(I)
2420 PRINT"[145]"H$(I+1)
2430 PRINT""I$(I)
2440 PRINT"[145]"I$(I+1)
2450 PRINT""J$(I)
2460 PRINT"[145]"J$(I+1)
2470 PRINT""K$(I)
2480 PRINT"[145]"K$(I+1)
2490 PRINT""L$(I)
2500 PRINT"[145]"L$(I+1)
2570 PRINT"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
2580 PRINT"ZU BEARBEITEN[146] ... 1"
2590 PRINT"AUSDRUCKEN ...... 2"
2600 PRINT"ENDE ............ 3"
2610 GETA$:IFA$=""THEN2610
2620 ONVAL(A$)GOTO2640,3450,100
2630 GOTO2610
2640 U=I:
2650 PRINT"[151]"
2660 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
2670 FORI=1TO19:PRINT"[194]                                 [194]":NEXT
2680 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
2690 PRINT"ENDE MIT  F1 [146] ![151]"
2700 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":
2710 PRINT"NR.:"U
2720 PRINT"NAME:[151]"NAME$(U)
2730 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][155]"
2740 GOTO 720
2750 I=0
2760 I=I+1:
2770 IFBU$=B$(I)ORBU$=B$(I+1)THEN2920
2780 IFBU$=C$(I)ORBU$=C$(I+1)THEN2920
2790 IFBU$=D$(I)ORBU$=D$(I+1)THEN2920
2800 IFBU$=E$(I)ORBU$=E$(I+1)THEN2920
2810 IFBU$=F$(I)ORBU$=F$(I+1)THEN2920
2820 IFBU$=G$(I)ORBU$=G$(I+1)THEN2920
2830 IFBU$=H$(I)ORBU$=H$(I+1)THEN2920
2840 IFBU$=I$(I)ORBU$=I$(I+1)THEN2920
2850 IFBU$=J$(I)ORBU$=J$(I+1)THEN2920
2860 IFBU$=K$(I)ORBU$=K$(I+1)THEN2920
2870 IFBU$=L$(I)ORBU$=L$(I+1)THEN2920
2905 IFI>30THEN2180
2910 GOTO 2760
2920 GOTO 2220
2930 PRINT"[151]"
2940 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
2950 FORI=1TO10:PRINT"[194]                        [194]":NEXT
2960 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
2970 PRINT""
2980 PRINT"MOECHTEN SIE SIE ... "
2990 PRINT"... EINE EINZELNE SEITE"
3000 PRINT"    AUSDRUCKEN ...... 1"
3010 PRINT"... ALLE DATENSAETZE"
3020 PRINT"    AUSDRUCKEN ...... 2"
3030 PRINT"ENDE ................ 3"
3040 GETA$:IFA$=""THEN3040
3050 ONVAL(A$)GOTO3070,3830,100
3060 GOTO3040
3070 FL=0
3080 PRINT"[151][145]"
3090 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
3100 FORI=1TO22:PRINT"[194]                                    [194]":NEXT
3110 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][145]"
3120 PRINT""
3130 PRINT"MIT +[146]/-[146] UND RETURN[146] AUSWAEHLEN !"
3135 PRINT" F1 [146] - ENDE !![151]"
3140 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":ZU=1
3150 PRINT"KASSETTENNUMMER:"ZU
3160 PRINT"KASSETTENNAME :"NAME$(ZU)"[151]"
3170 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]":Z$=""
3180 PRINT""
3190 PRINT""B$(ZU):PRINT"[145]"Z$+B$(ZU+1)
3200 PRINT""C$(ZU):PRINT"[145]"Z$+C$(ZU+1)
3210 PRINT""D$(ZU):PRINT"[145]"Z$+D$(ZU+1)
3220 PRINT""E$(ZU):PRINT"[145]"Z$+E$(ZU+1)
3230 PRINT""F$(ZU):PRINT"[145]"Z$+F$(ZU+1)
3240 PRINT""G$(ZU):PRINT"[145]"Z$+G$(ZU+1)
3250 PRINT""H$(ZU):PRINT"[145]"Z$+H$(ZU+1)
3260 PRINT""I$(ZU):PRINT"[145]"Z$+I$(ZU+1)
3270 PRINT""J$(ZU):PRINT"[145]"Z$+J$(ZU+1)
3280 PRINT""K$(ZU):PRINT"[145]"Z$+K$(ZU+1)
3290 PRINT""L$(ZU):PRINT"[145]"Z$+L$(ZU+1)
3330 GETA$:IFA$=""THEN3330
3340 IFA$="[133]"THEN100
3350 IFA$="+"THENZU=ZU+2:GOTO3390
3360 IFA$="-"THENZU=ZU-2:GOTO3390
3370 IFA$=CHR$(13)THEN3450
3380 GOTO 3330
3390 IFZU<1THENZU=1:GOTO 3330
3400 IFZU>15THENZU=15:GOTO3330
3410 PRINT""
3420 PRINT"KASSETTENNUMMER:"ZU"[157]  "
3430 PRINT"KASSETTENNAME :                     "
3435 PRINT"[145]KASSETTENNAME :"NAME$(ZU)"[151]"
3440 GOTO3180
3450 PRINT"[151]"
3460 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
3470 PRINT"[194]ICH DRUCKE ...[151] [194]"
3480 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
3490 GOTO3790
3495 SP$="":OPEN4,4
3500 X=LEN(B$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3510 PRINT#4,B$(ZU)+SP$+B$(ZU+1):SP$=""
3520 X=LEN(C$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3530 PRINT#4,C$(ZU)+SP$+C$(ZU+1):SP$=""
3540 X=LEN(D$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3550 PRINT#4,D$(ZU)+SP$+D$(ZU+1):SP$=""
3560 X=LEN(E$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3570 PRINT#4,E$(ZU)+SP$+E$(ZU+1):SP$=""
3580 X=LEN(F$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3590 PRINT#4,F$(ZU)+SP$+F$(ZU+1):SP$=""
3600 X=LEN(G$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3610 PRINT#4,G$(ZU)+SP$+G$(ZU+1):SP$=""
3620 X=LEN(H$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3630 PRINT#4,H$(ZU)+SP$+H$(ZU+1):SP$=""
3640 X=LEN(I$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3650 PRINT#4,I$(ZU)+SP$+I$(ZU+1):SP$=""
3660 X=LEN(J$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3670 PRINT#4,J$(ZU)+SP$+J$(ZU+1):SP$=""
3680 X=LEN(K$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3690 PRINT#4,K$(ZU)+SP$+K$(ZU+1):SP$=""
3692 X=LEN(K$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3695 PRINT#4,L$(ZU)+SP$+L$(ZU+1):SP$=""
3700 PRINT#4:PRINT#4,"---------------------------------------"
3780 CLOSE 4:GOTO100
3790 OPEN4,4:PRINT#4,"---------------------------------------"
3795 PRINT#4
3800 PRINT#4,"KASSETTENNAME :"NAME$(ZU)
3810 PRINT#4,"---------------------------------------"
3820 CLOSE 4:GOTO3495
3830 PRINT"[151]"
3840 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
3850 FORI=1TO5:PRINT"[194]                 [194]":NEXT
3860 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
3870 PRINT""
3880 PRINT"ICH DRUCKE ..."
3890 PRINT"ABBRUCH MIT SPACE[146]"
3900 ZU=-1:OPEN4,4
3910 ZU=ZU+2
3920 GETA$:IFA$=" "THEN100
3921 PRINT#4,"---------------------------------------"
3922 PRINT#4,
3923 PRINT#4,"KASSETTENNAME :"NAME$(ZU)
3924 PRINT#4,"---------------------------------------"
3930 X=LEN(B$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3940 PRINT#4,B$(ZU)+SP$+B$(ZU+1):SP$=""
3950 X=LEN(C$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3960 PRINT#4,C$(ZU)+SP$+C$(ZU+1):SP$=""
3970 X=LEN(D$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
3980 PRINT#4,D$(ZU)+SP$+D$(ZU+1):SP$=""
3990 X=LEN(E$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
4000 PRINT#4,E$(ZU)+SP$+E$(ZU+1):SP$=""
4010 X=LEN(F$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
4020 PRINT#4,F$(ZU)+SP$+F$(ZU+1):SP$=""
4030 X=LEN(G$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
4040 PRINT#4,G$(ZU)+SP$+G$(ZU+1):SP$=""
4050 X=LEN(H$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
4060 PRINT#4,H$(ZU)+SP$+H$(ZU+1):SP$=""
4070 X=LEN(I$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
4080 PRINT#4,I$(ZU)+SP$+I$(ZU+1):SP$=""
4090 X=LEN(J$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
4100 PRINT#4,J$(ZU)+SP$+J$(ZU+1):SP$=""
4110 X=LEN(K$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
4120 PRINT#4,K$(ZU)+SP$+K$(ZU+1):SP$=""
4125 X=LEN(K$(ZU)):X=25-X:FORI=1TOX:SP$=SP$+" ":NEXT
4126 PRINT#4,L$(ZU)+SP$+L$(ZU+1):SP$=""
4130 PRINT#4:PRINT#4,"---------------------------------------"
4210 IFZU=15THENCLOSE4:GOTO100
4220 GETA$:IFA$=" "THENCLOSE4:GOTO100
4230 GOTO3910
4240 CLOSE4:GOTO100
4250 PRINT"[147]"
4260 OPEN1,8,0,"$":POKE781,1:SYS65478:GETA$,A$:E$=CHR$(0)
4270 GETA$,A$,H$,L$:IFSTTHENSYS65484:CLOSE1:GOTO4320
4280 PRINTASC(H$+E$)+256*ASC(L$+E$);
4290 GETA$,B$:IFA$THENPRINTA$B$;:GOTO4290
4300 PRINTA$:GOTO 4270
4310 CLOSE 1
4320 PRINT"[150] TASTE DRUECKEN ! "
4330 GETA$:IFA$=""THEN4330
4340 GOTO 100
4350 PRINT"[151]"
4360 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4370 FORI=1TO10:PRINT"[194]                                 [194]":NEXT
4380 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
4390 PRINT""
4400 PRINT"GELADENDE DATEI:"PL$"[151]"
4410 PRINT"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
4420 PRINT" F1 [146] AKTUELLE DATEI IM SPEICHER"
4430 PRINT"     LOESCHEN "
4450 PRINT" F3 [146] NEUE DATEI LADEN"
4460 PRINT" F5 [146] ENDE "
4470 GETA$:IFA$=""THEN4470
4480 IFA$="[133]"THEN4530
4500 IFA$="[134]"THEN4800
4510 IFA$="[135]"THEN100
4520 GOTO 4470
4530 PRINT"[151]"
4540 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4550 PRINT"[194]SICHER ?(J/N)[151][194]"
4560 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
4570 GETA$:IFA$=""THEN4570
4580 IFA$="J"THEN4610
4590 IFA$="N"THEN4350
4600 GOTO 4570
4610 CLR:PL$="KEINE IM SPEICHER":GOTO40
4670 OPEN2,8,2,PL$+",S,R"
4680 FORI=1TO30
4690 INPUT#2,B$(I):INPUT#2,C$(I)
4700 INPUT#2,D$(I):INPUT#2,E$(I)
4710 INPUT#2,F$(I):INPUT#2,G$(I)
4720 INPUT#2,H$(I):INPUT#2,I$(I)
4730 INPUT#2,J$(I):INPUT#2,K$(I)
4740 INPUT#2,L$(I)
4770 NEXT:CLOSE2
4775 OPEN2,8,2,"^"+PL$+",S,R"
4776 FORI=1TO15:INPUT#2,NAME$(I):NEXT
4777 CLOSE 2
4790 GOTO 4350
4800 GOTO 4900
4805 GETA$:IFA$=""THEN4805
4810 IFA$="[147]"ORA$=""ORA$=""ORA$="[157]"ORA$=""ORA$="[145]"THEN4805
4820 IFA$="[133]"THEN4350
4830 IFA$=CHR$(13)THENPL$=BU$::GOTO5010
4840 IFA$=CHR$(20)ANDV<=0THEN4805
4850 IFA$=CHR$(20)THEN4880
4860 IFV=>17THENV=17:GOTO 4805
4870 BU$=BU$+A$:V=V+1:GOTO4890
4880 BU$=LEFT$(BU$,V-1):V=V-1
4890 PRINT""BU$+"[164]  ":GOTO4805
4900 PRINT"[151]"
4910 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4920 FORI=1TO10:PRINT"[194]                          [194]":NEXT
4930 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
4940 PRINT""
4950 PRINT"BITTE GEBEN SIE DEN NAMEN"
4960 PRINT"DER DATEI EIN !!"
4970 PRINT"[164]"
4980 PRINT"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
4990 PRINT" F1 [146] ENDE ":V=1:BU$=""
5000 GOTO 4805
5010 OPEN2,8,2,PL$+",S,R":CLOSE2
5020 OPEN15,8,15:INPUT#15,NR,FT$,TR,SK
5030 CLOSE 15
5040 IFNR<>00THEN5060
5050 GOTO4670
5060 PRINT"[151]"
5070 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
5080 FORI=1TO10:PRINT"[194]                  [194]":NEXT
5090 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5100 PRINT"[150]"
5110 PRINT"FEHLEINGABE !!!"
5120 GETA$:IFA$=""THEN5120
5130 GOTO 4350
5140 PRINT"[151]"
5150 PRINT"[176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
5160 FORI=1TO8:PRINT"[194]                     [194]":NEXT
5170 PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5180 PRINT""
5190 PRINT"BITTE GEBEN SIE DEN"
5200 PRINT"NAMEN DER ZU SAVENDEN"
5210 PRINT"DATEI EIN !"
5220 PRINT"[164]":BU$="":V=1
5225 PRINT"[151][171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]"
5226 PRINT" F1 [146] ENDE"
5230 GETA$:IFA$=""THEN5230
5240 IFA$="[147]"ORA$=""ORA$=""ORA$="[145]"ORA$="[157]"ORA$="[157]"THEN5230
5250 IFA$="[133]"THEN100
5260 IFA$=CHR$(20)ANDV=0THEN5230
5270 IFA$=CHR$(13)THENPL$=BU$:GOTO5670
5275 IFA$=CHR$(20)THEN5300
5280 IFV=>17THENV=17:GOTO5230
5290 BU$=BU$+A$:V=V+1:GOTO5310
5300 BU$=LEFT$(BU$,V-1):V=V-1
5310 PRINT""BU$+"[164] ":GOTO5230
5320 OPEN15,8,15,"S:"+PL$:PRINT#15,"S:^"+PL$:CLOSE15
5330 OPEN2,8,2,PL$+",S,W"
5335 FORI=1TO30
5340 PRINT#2,B$(I):PRINT#2,C$(I)
5350 PRINT#2,D$(I):PRINT#2,E$(I)
5360 PRINT#2,F$(I):PRINT#2,G$(I)
5370 PRINT#2,H$(I):PRINT#2,I$(I)
5380 PRINT#2,J$(I):PRINT#2,K$(I)
5390 PRINT#2,L$(I)
5420 NEXT:
5430 CLOSE 2:OPEN2,8,2,"^"+PL$+",S,W"
5431 FORI=1TO15:PRINT#2,NAME$(I):NEXT
5432 CLOSE 2:GOTO100
5450 GETA$:IFA$=""THEN5450
5455 IFA$=""THENZU=ZU+1:GOTO5510
5460 IFA$="[145]"THENZU=ZU-1:GOTO5510
5470 IFA$=""THENSP=SP+1:GOTO5510
5480 IFA$="[157]"THENSP=SP-1:GOTO5510
5490 IFA$=CHR$(13)THEN5510
5491 IFA$="+"ORA$="-"THEN460
5495 IFA$="[133]"THEN100
5500 GOTO 1115
5510 IFZU=0THENPRINT"":PRINT"  ":GOTO1450
5515 IFZU>11THENZU=11:GOTO5450
5520 IFZU<1THENZU=1:GOTO5450
5530 IFSP>2THENSP=2:GOTO5450
5540 IFSP<1THENSP=1:GOTO5450
5545 IFA$=""ORA$="[157]"THEN5620
5550 PRINT"":ONSPGOTO5560,5580
5560 FORI=1TO11:PRINT" ":NEXT
5570 PRINT"":FORI=1TOZU:PRINT:NEXT:PRINT"_":GOTO5450
5580 PRINT""
5590 FORI=1TO11:PRINT" ":NEXT
5600 PRINT""
5610 FORI=1TOZU:PRINT:NEXT:PRINT"_":GOTO5450
5620 ONSPGOTO5650,5630
5630 PRINT""
5640 FORI=1TO11:PRINT" ":NEXT:ZU=1:GOTO5550
5650 PRINT""
5660 FORI=1TO11:PRINT" ":NEXT:ZU=1:GOTO5550
5670 FORI=1TO30:PRINT""I:
5680 B$(I)=B$(I)+" "+CHR$(13):C$(I)=C$(I)+" "+CHR$(13):D$(I)=D$(I)+" "+CHR$(13)
5690 E$(I)=E$(I)+" "+CHR$(13):F$(I)=F$(I)+" "+CHR$(13):G$(I)=G$(I)+" "+CHR$(13)
5700 H$(I)=H$(I)+" "+CHR$(13):I$(I)=I$(I)+" "+CHR$(13):J$(I)=J$(I)+" "+CHR$(13)
5710 K$(I)=K$(I)+" "+CHR$(13):L$(I)=L$(I)+" "+CHR$(13):NEXT
5720 FORI=1TO15:NAME$(I)=NAME$(I)+" "+CHR$(13):NEXT:GOTO5320