10 REM DUBBLEDATE
20 REM (C) BUTCHER
25 POKE650,128
30 POKE53280,15:POKE53281,15:PRINTCHR$(147)CHR$(14)CHR$(8):GOSUB5300:GOSUB490
100 RN$=CHR$(018):RF$=CHR$(146)
101 CL$=CHR$(147):S1$=CHR$(032)
102 SL$=CHR$(014):DC$=CHR$(008)
103 HE$=CHR$(019):C4$=CHR$(017)
104 D2$=C4$+C4$:D3$=D2$+C4$
105 D4$=D3$+C4$:D5$=D4$+C4$
106 A2$=S1$+S1$:A3$=A2$+S1$
107 A4$=A3$+S1$:A5$=A4$+S1$
108 C3$=CHR$(029):W2$=C3$+C3$
109 W3$=W2$+C3$:W4$=W3$+C3$
110 W5$=W4$+C3$:C2$=CHR$(145)
111 C1$=CHR$(157):V2$=C1$+C1$
112 V3$=V2$+C1$:V4$=V3$+C1$
120 EC$=CHR$(009):SU$=CHR$(142)
410 GOTO680
490 POKE646,0
500 LZ$="                                       "
510 LN$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
520 N=300:DIMA$(N),SB$(N),Z(N):RETURN
630 POKE198,0:WAIT198,1
650 REM===================
660 REM= EINGABE/AUSGABE =
670 REM===================
680 PRINTCL$
690 GOSUB2220:GOSUB1020:GOSUB1470
700 GETEG$
710 IFEG$="N"THEN810
711 IFEG$="X"THEN4000
720 IFEG$="P"THEN1580
730 IFEG$="B"THEN1250
740 IFEG$="D"THEN1310
750 IFEG$="A"THEN1880
760 IFEG$="E"THENEND
770 IFEG$="L"THEN2090
780 IFEG$="S"THEN1140
790 IFEG$="U"THEN2280
791 IFEG$="C"THENPRINTCHR$(147):SYS828:POKE198,0:WAIT198,1:GOTO680
800 GOTO700
810 PRINTCL$;:GOSUB1000
820 PRINTTAB(15)RN$"[206]EUEINGABE"RF$:GOSUB1000:GOSUB1010
830 PRINTTAB(1);:PRINTC4$S1$;:INPUT"[196]ATEINAME ";CM$
840 GOSUB1000:GOSUB850:GOTO1050
850 PRINT:ZE=1
860 PRINTTAB(2);:POKE631,34:POKE198,1:POKE19,64
870 INPUTA$(ZE):POKE19,0:PRINTCHR$(13);
880 TL=ZE/15:FORI=1TO40
890 IFTL=ITHENGOSUB970
900 NEXT
910 IFA$(ZE)=CHR$(42)THENRETURN
920 ZE=ZE+1:POKE198,0
930 GOTO860
940 REM====================
950 REM= UNTERPROGRAMME   =
960 REM====================
970 POKE211,0:POKE214,8:SYS58640
980 FORI=0TO15:PRINTLZ$:NEXT:POKE211,0:POKE214,8:SYS58640:RETURN
990 PRINTTAB(5)C4$RN$STR$(A)B$STR$(C)STR$(D)RF$:RETURN
1000 PRINTTAB(1);:FORI=0TO35:PRINTCHR$(96);:NEXT:PRINTCHR$(96):RETURN
1010 PRINTTAB(2)C4$RN$A5$A3$"[197]INGABE BEENDEN MIT  *"A5$RF$:RETURN
1020 PRINTHE$C4$TAB(2)RN$A5$A5$A3$"[205][160][197][160][206][160][213] [197]"A5$A5$A3$RF$:GOSUB1000:RETURN
1030 FORI=1TOZE:IFZE<1THEN2050:NEXT
1040 RETURN
1050 PRINT:PRINTTAB(2)C4$RN$S1$"[196]ATEN SPEICHERN     (J/N)"A5$A4$RF$
1060 PRINTTAB(2)C4$"[198]ALLS NOETIG, [196]ATEN-[196]ISK EINLEGEN!"
1070 GETEG$
1080 IFEG$="J"THEN1140
1090 IFEG$="N"THEN680
1100 GOTO1070
1110 REM============================
1120 REM=  DATEN SPEICHERN         =
1130 REM============================
1140 PRINTCL$C4$RN$S1$"[196]ATEN SPEICHERN:"A5$A5$A5$A4$RF$:PRINT
1150 PRINT"[198]ILE-[206]AME: ";CM$
1160 PRINT:PRINTCM$" WIRD JETZT ABGESPEICHERT.":PRINT"[194]ITTE WARTEN.":PRINT
1170 OPEN2,8,2,"@0:"+CM$+",S,W"
1180 PRINT#2,ZE
1190 FORI=1TOZE:PRINT#2,CHR$(34)+A$(I)+CHR$(34):NEXT:CLOSE2
1200 GOSUB1980
1210 GOTO1380
1220 REM============================
1230 REM=  DATEN LADEN             =
1240 REM============================
1250 PRINTCL$D2$RN$A2$"[196]ATEN LADEN"A5$A5$A5$A5$A5$RF$:PRINT
1260 INPUT"[196]ATEINAME: ";CM$
1270 OPEN2,8,2,"@0:"+CM$+",S,R":PRINTCM$
1280 INPUT#2,ZE
1290 FORI=1TOZE:INPUT#2,A$(I):NEXT:CLOSE2
1300 GOSUB1980:GOTO680
1310 PRINTCL$W2$RN$S1$"[193]USGABE AUF [194]ILDSCHIRM"A5$A5$A2$RF$
1320 PRINT""TAB(2)RN$S1$"[197]"S1$RF$"INZEL-[211]CHRITT PER [212]ASTENDRUCK"
1330 PRINTTAB(2)C4$RN$S1$"[199]"S1$RF$"ESAMTE [196]ATEI ANZEIGEN":GOSUB1000
1340 GETEG$
1350 IFEG$="E"THEN1710
1360 IFEG$="G"THEN1780
1370 GOTO1340
1380 PRINTTAB(2)C4$RN$S1$"[196] = DRUCKEN             [205] = [205]ENUE "RF$
1390 GETEG$
1400 IFEG$="D"THENGOSUB1580:GOTO680
1410 IFEG$="M"THEN680
1420 IFEG$="S"THEN1140
1430 GOTO1390
1440 REM======================
1450 REM=  EIN/AUSGABE-MENUE =
1460 REM======================
1470 PRINTTAB(2)RN$S1$"[206]"S1$RF$"EUE [196]ATEI EINGEBEN":PRINT
1480 PRINTTAB(2)RN$S1$"[211]"S1$RF$"PEICHERN EINER [196]ATEI":PRINT
1490 PRINTTAB(2)RN$S1$"[194]"S1$RF$"ESTEHENDE [196]ATEI LADEN":PRINT
1500 PRINTTAB(2)RN$S1$"[193]"S1$RF$"NFUEGEN AN BESTEHENDE [196]ATEI":PRINT
1510 PRINTTAB(2)RN$S1$"[196]"S1$RF$"ATEN AUF [194]ILDSCHIRM ":PRINT
1520 PRINTTAB(2)RN$S1$"[208]"S1$RF$"RINT ([196]ATEN AUF [196]RUCKER )":PRINT
1530 PRINTTAB(2)RN$S1$"[204]"S1$RF$"OESCHEN DER [196]ATEN":PRINT
1531 PRINTTAB(2)RN$S1$"[216]"S1$RF$"[196]ATEN AENDERN/EDITIEREN":PRINT
1540 PRINTTAB(2)RN$S1$"[213]"S1$RF$"MSCHALTEN ZUR [218]AHLEN/[212]EXTDATEI"
1550 POKE211,0:POKE214,20:SYS58640:GOSUB1000
1551 PRINTTAB(2)" [195] [146]ATALOG/[196]IRECTORY   [197] [146]NDE"
1560 RETURN
1570 REM=======================
1580 REM= DATEN AUSDRUCKEN    =
1590 REM=======================
1600 PRINTCL$C4$RN$S1$"[196]RUCKER-[210]OUTINE"A5$A5$RF$
1610 PRINTC4$S1$"[193]ENDERUNG DER"
1620 PRINT" [211]EKUNDAERADRESSE"
1630 PRINTTAB(19)C2$"7";:PRINTV3$;:INPUTSA
1640 PRINTC4$RN$"[215]ENN [196]RUCKER BEREIT IST, [212]ASTE DRUECKEN "RF$
1650 POKE198,0:WAIT198,1
1660 OPEN4,4,SA:CMD4
1670 PRINT#4,CM$:PRINT#4:FORI=1TOZE:PRINT#4,A$(I):NEXT:PRINT#4:CLOSE4:GOTO680
1680 REM=======================
1690 REM= BILDSCHIRM-AUSGABE  =
1700 REM=======================
1710 GOSUB1030
1720 PRINTCM$:PRINT:ZE=1
1730 PRINTZE;:PRINTTAB(5)A$(ZE):TL=ZE/15:POKE198,0:WAIT198,1
1740 FORI=1TO40
1750 IFTL=ITHENGOSUB970
1770 NEXT
1771 IFA$(ZE)=CHR$(42)THEN1380
1772 ZE=ZE+1
1775 GOTO1730
1780 GOSUB1030
1790 PRINTCM$:PRINT:ZE=1
1791 PRINTZE;:PRINTTAB(5)A$(ZE):TL=ZE/15:FORI=1TO40
1792 IFTL=ITHENPRINTRN$"[212]ASTE"RF$:POKE198,0:WAIT198,1:GOSUB970
1793 NEXT
1794 IFA$(ZE)=CHR$(42)THEN1380
1795 ZE=ZE+1
1796 GOTO1791
1840 REM======================
1850 REM= APPEND (DATEN AN-  =
1860 REM=         HAENGEN)   =
1870 REM======================
1880 PRINTCHR$(147):GOSUB1030:GOSUB1950:ZE=ZE-1
1890 GOSUB1010:GOSUB1000:PRINTTAB(2)CM$:PRINTC4$TAB(2)A$(ZE)
1900 ZE=ZE+1:PRINTTAB(2);:POKE198,0:POKE631,34:POKE198,1:POKE19,64
1910 INPUTA$(ZE):POKE19,0:PRINTCHR$(13);
1920 IFA$(ZE)=CHR$(42)THEN1940
1930 GOTO1900
1940 PRINT:GOTO1050
1950 IFZE=300THEN2050
1960 PRINTTAB(2)RN$S1$"[196]ATENSAETZE BISHER:"STR$(ZE-1)A5$A5$A2$RF$
1970 PRINTTAB(2)" [204]ETZTER [196]ATENSATZ WIRD ANGEZEIGT":RETURN
1980 REM=======================
1990 REM=  DISK-FEHLER        =
2000 REM=======================
2010 OPEN1,8,15:INPUT#1,A,B$,C,D
2020 IFA<>0THENGOSUB990:FORI=1TO5000:NEXT:CLOSE2:CLOSE1:CM$="":GOTO680
2030 CLOSE1
2040 RETURN
2050 GOSUB2220:PRINTHE$C4$C3$RN$S1$"[203]EINE [196]ATEN IM [211]PEICHER ! "RF$:GOTO630
2060 REM====================
2070 REM= DATEN LOESCHEN   =
2080 REM====================
2090 GOSUB2220:PRINT:PRINTHE$TAB(2)C4$RN$" [196]ATEN LOESCHEN"A5$A5$A5$A5$RF$
2100 PRINT:PRINTTAB(2)"[211]IND [211]IE SICHER  (J/N) ?":GOSUB1000
2110 GETL$
2120 IFL$="J"THEN2150
2130 IFL$="N"THEN680
2140 GOTO2110
2150 FORI=1TOZE:A$(I)="":NEXT:CM$=""
2160 PRINT:PRINTTAB(2)RN$" [193]RBEITSSPEICHER IST JETZT LEER.": FORT=1TO2000:NEXT
2170 GOTO680
2180 LZ$="                                        ":REM 40 SPACES
2190 POKE211,0:POKE214,10:SYS58640
2200 FORI=1TO10:PRINTLZ$;:NEXT
2210 RETURN
2220 PRINTCL$CHR$(176);:FORI=0TO36:PRINTCHR$(96);:NEXT:PRINTCHR$(174)
2230 FORI=0TO20
2240 PRINTCHR$(125)TAB(38)CHR$(125)
2250 NEXT
2260 PRINTCHR$(173);:FORI=0TO36:PRINTCHR$(96);:NEXT:PRINTCHR$(189)
2270 RETURN
2280 GOSUB2220:GOSUB1020:GOSUB1010
2290 PRINT:PRINTTAB(10)RN$"[212]EXT/[218]AHLENDATEI"RF$:PRINT
2300 PRINTTAB(9)" 1 = [206]EUEINGABE"
2310 PRINTTAB(9)" 2 = [198]ILE LADEN"
2320 PRINTTAB(9)" 3 = [198]ILE SPEICHERN"
2330 PRINTTAB(9)" 4 = [198]ILE ANZEIGEN"
2340 PRINTTAB(9)" 5 = [198]ILE ADDIEREN"
2350 PRINTTAB(9)" 6 = [198]ILE ERWEITERN"
2360 PRINTTAB(9)" 7 = [196]RUCKER-[210]OUINE"
2370 PRINTTAB(9)" 8 = [197]NDE"
2380 PRINTTAB(9)" 9 = [213]MSCHALTEN AUF "
2390 PRINTTAB(14)"[212]EXTDATEI"
2391 PRINTTAB(9)" [216] = [196]ATEN AENDERN"
2392 PRINT:PRINTTAB(9)" [196] = [196]IRECTORY"
2400 GETA$
2401 IFA$="D"THENPRINTCHR$(147):SYS828:POKE198,0:WAIT198,1:GOTO2280
2402 IFA$="X"THEN4110
2410 ONVAL(A$)GOTO2430,2530,2590,2640,2720,2850,2950,3050,680
2420 GOTO2400
2430 REM NEUEINGABE
2440 PRINTCL$TAB(2)C4$RN$" [206]EUEINGABE EINES [198]ILES "RF$:GOSUB1000
2450 GOSUB1010:GOSUB1000
2460 INPUT"[198]ILE-[206]AME: ";FL$:IFN=300THENN=0
2461 PRINT"[194]EGRIFF....................[194]ETRAG......":PRINTLN$
2470 POKE19,64:INPUTSB$(N):POKE19,0
2480 IFSB$(N)=CHR$(42)THEN2280
2490 PRINTTAB(27);:POKE19,64:INPUTZ(N):POKE19,0:PRINT
2500 N=N+1
2510 GOTO2470
2520 REM FILE LADEN
2530 PRINTCL$D2$RN$" [198]ILE LADEN "RF$
2540 PRINTC4$;:INPUT"[198]ILE-[206]AME   ";FL$
2550 OPEN2,8,2,FL$+",S,R"
2560 INPUT#2,N
2570 FORI=0TON:INPUT#2,SB$(I):INPUT#2,Z(I):NEXT:CLOSE2
2580 GOTO2280
2590 REM FILE SPEICHERN
2600 OPEN2,8,2,"@0:"+FL$+",S,W"
2610 PRINT#2,N
2620 FORI=0TON:PRINT#2,SB$(I):PRINT#2,Z(I):NEXT:CLOSE2
2630 GOTO2280
2640 REM FILE ANZEIGEN
2650 PRINTCL$D2$RN$"  [198]ILE ANZEIGEN "RF$
2660 PRINT"[198]ILE-[206]AME  "FL$:PRINTLN$
2670 IFFL$=""THEN2940
2680 FORI=0TON-1:Q$=STR$(Z(I)):GOSUB 3120
2690 PRINTI;TAB(5)SB$(I)TAB(39-LEN(Q$))Q$:NEXT
2700 GOSUB3060
2710 GOTO2280
2720 REM ADDITION
2730 PRINTCL$D2$RN$"[215]ERTE ADDIEREN"
2740 PRINT"[198]ILE-[206]AME: "FL$:PRINTLN$
2750 IFFL$=""THEN2940
2760 S=0:FORI=0TON-1:Q$=STR$(Z(I)):GOSUB3120
2770 PRINTI;TAB(5)SB$(I)TAB(39-LEN(Q$))Q$:S=S+Z(I):Q$=STR$(S):NEXT:GOSUB3120
2780 PRINTTAB(31)"--------":PRINTTAB(39-LEN(Q$))Q$
2790 PRINTD3$TAB(10)RN$" [193]USDRUCKEN J/N ?[160]"RF$
2800 GETA$:IFA$="N"THEN2280
2810 IFA$="J"THEN2950
2820 GOTO2800
2830 GOSUB3060
2840 GOTO2280
2850 REM APPEND
2860 PRINTCL$D2$RN$"[198]ILE ERWEITERN/[196]ATEN ANHAENGEN"
2870 PRINT"[198]ILE-[206]AME  "FL$:PRINTLN$
2880 IFFL$=""THEN2940
2881 PRINT"[194]EGRIFF....................[194]ETRAG......":PRINTLN$
2890 PRINTSB$(N-1)TAB(26)Z(N-1)
2900 POKE19,64:INPUTSB$(N):POKE19,0
2901 IFSB$(N)=CHR$(42)THEN2280
2910 PRINTTAB(27);:POKE19,64:INPUTZ(N):POKE19,0:PRINT
2920 N=N+1
2930 GOTO2900
2940 PRINTHE$D5$C4$"[203]EIN [196]ATEN IM [211]PEICHER!":FORT=1TO2000:NEXT:GOTO2280
2950 PRINTCLC4$RN$" [196]RUCKER-[210]OUTINE"A5$A5$RF$
2960 PRINTC4$" [193]ENDERUNG DER"
2970 PRINT" [211]EKUNDAERADRESSE"
2980 PRINTTAB(19)C2$"7";:PRINTV3$;:INPUTSA
2990 PRINTC4$RN$"[215]ENN [196]RUCKER BEREIT IST, [212]ASTE DRUECKEN "RF$
3000 POKE198,0:WAIT198,1
3010 OPEN4,4,SA:CMD4
3020 PRINT#4,FL$:PRINT#4:FORI=0TON-1:Q$=STR$(Z(I)):GOSUB3120
3021 PRINTTAB(5);:PRINT#4,SB$(I)TAB(40-LEN(SB$(I))-LEN(Q$))Q$:NEXT
3022 Q$=STR$(S):GOSUB3120
3030 PRINT#4,TAB(32)"--------":PRINT#4,TAB(40-LEN(Q$))Q$
3040 PRINT#4:CLOSE4:GOTO2280
3050 POKE53280,14:POKE53281,6:POKE646,14:PRINTCL$EC$SU$;:END
3060 PRINTD2$RN$" [212]ASTE FUER '[205][197][206][213][197]' "RF$
3070 POKE198,0:WAIT198,1
3080 RETURN
3090 REM ========================
3100 REM = ZAHLEN RECHTSBUENDIG =
3110 REM ========================
3120 EZ=LEN(Q$)
3130 LZ=LEN(Q$)-3:IFLZ<1THENLZ=1
3140 FORX=EZTOLZSTEP-1
3150 IFMID$(Q$,X,1)="."THEN3180
3160 NEXT
3170 DP=DP-EZ-1
3180 IFX>LZTHENDP=DP-X
3190 IFX=EZ-1THENQ$=Q$+"0"
3200 IFX=LZ-1THENQ$=Q$+".00"
3210 RETURN
4000 REM ===== TEXT-DATEI AENDERN ===
4010 PRINTCHR$(147):PRINTCHR$(18)"[212][197][216][212]-[196]ATEN AENDERN/EDITIEREN."CHR$(146)
4020 PRINT:PRINT"WELCHE [196]ATENSATZ-[206]R. AENDERN";:INPUTXE
4030 PRINT:PRINTTAB(3)A$(XE):POKE211,0:POKE214,5:SYS58640
4040 PRINTTAB(2);:POKE631,34:POKE198,1
4050 POKE19,64:INPUTA$(XE):POKE19,0:PRINTCHR$(13);:GOTO680
4100 REM ==== TEXT/ZAHL AENDERN ======
4110 PRINTCHR$(147):PRINTCHR$(18)"[212][197][216][212]/[218][193][200][204]-[196]ATEN AENDERN."CHR$(146)
4120 PRINT:PRINT"WELCHE [196]ATENSATZ-[206]R. AENDERN";:INPUTXT
4125 PRINT"[194]EGRIFF"TAB(30)"[218]AHL":GOSUB1000
4130 PRINTSB$(XT):POKE211,0:POKE214,6:SYS58640
4135 POKE19,64:INPUTSB$(XT):POKE19,0
4140 PRINTTAB(30)Z(XT);
4150 PRINTV4$+V2$;:POKE19,64:INPUTZ(XT):POKE19,0:PRINT:GOTO2280
5300 FORI=828TO923:READD:POKEI,D:NEXT:RETURN
5310 DATA 162,155,160,3,169,1,32,189,255,169,3,162,8,160,0,32,186,255,32,192,255
5320 DATA 162,3,32,198,255,32,207,255,32,207,255,32,207,255,32,207,255,240,46,32
5330 DATA 207,255,168,32,207,255,132,99,133,98,162,144,56,32,73,188,32,221,189
5340 DATA 32,135,180,32,33,171,32,207,255,133,2,32,210,255,165,2,208,244,169,13
5350 DATA 32,210,255,76,92,3,32,204,255,169,3,32,195,255,96,36