10 Y=365:DIMD$(Y,15)
20 NV$=" UHR ........................"
30 POKE53280,0:POKE53281,0:PRINT"[147]     ELEKTRONISCHER TERMIN-KALENDER     [146]";
50 O=59903:O1=781
60 A$="[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][195][179]"
70 A1$="[194]                                      [146][194]"
80 M$="[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
90 M1$="[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
100 M2$="        WELCHE ZEILE ( 1-E )  ?         [146]"
110 M3$="     WEITERE KORREKTUREN < J/N >  ?     [146]"
120 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][195][174]";
130 FORI=0TO19:PRINT"[194]                                      [194]";:NEXT
140 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][195][189]"
150 PRINT"[194]DISK-OPTIONEN:[146]   < 1 > DATEN EINLESEN [194]";
160 PRINT"[194]                 < 2 > DATEN SPEICHERN[194]";A$;
170 PRINT"[194]PRG - OPTIONEN:[146]  < 3 > DATEN EINGABE  [194]";
180 PRINT"[194]                 < 4 > DATEN AUSGABE  [194]";
190 PRINT"[194]                 < 5 > DATEN SUCHEN   [194]";
200 PRINT"[194]                 < 6 > DATEN LOESCHEN [194]";
210 PRINT"[194]                 < 7 > DATEI LOESCHEN [194]";
220 PRINT"[194]                 < 8 > PARAMETER AUSG.[194]";
230 PRINT"[194]                 < 0 > PRG. BEENDEN   [194]";A$;
240 PRINT"[194]DRUCKER-OPTIONEN:[146]< E > EINZELAUSDRUCK [194]";
250 PRINT"[194]                 < A > ALLE DATEN     [194]";
260 PRINT"[194]                 < B > BEST. BEREICHE [194]";A$
270 GOSUB1170
280 GETE$:IFE$=""THEN280
290 IFE$="1"THENPRINT"[147]":GOTO2330
300 IFE$="2"THENPRINT"[147]":GOTO2120
310 IFE$="3"THENPRINT"[147]":GOTO450
320 IFE$="4"THENPRINT"[147]":GOTO1230
330 IFE$="5"THENPRINT"[147]":GOTO1430
340 IFE$="6"THENPRINT"[147]":GOTO1700
350 IFE$="7"THENPRINT"[147]":GOTO1850
360 IFE$="8"THENPRINT"[147]":GOTO2000
370 IFE$="0"THENSYS64767
380 IFE$="E"THENPRINT"[147]":GOTO2590
390 IFE$="A"THENPRINT"[147]":GOTO2990
400 IFE$="B"THENPRINT"[147]":GOTO3060
410 GOTO280
420 A=A+1
430 GOSUB670:GOSUB700:GOSUB710:GOSUB730:GOSUB750:GOSUB770:GOSUB790:GOSUB810
440 GOSUB830:GOSUB850:GOSUB860:GOSUB870:GOSUB880:GOSUB890:GOSUB900:GOTO920
450 GOSUB480:GOSUB490:GOSUB510:GOSUB520:GOSUB530:GOSUB540:GOSUB550
460 GOSUB560:GOSUB570:GOSUB580:GOSUB590:GOSUB600:GOSUB610:GOSUB620:GOSUB630:GOSUB640
470 GOSUB650:GOTO420
480 PRINT""M$;:PRINT"[180]            DATEN  EINGABE            [146][170]";M1$
490 PRINT" DATUM :[146]  ..........":PRINTSPC(10)"[163][163][163][163][163][163][163][163][163][163]":RETURN
510 PRINT"1)  7.00"NV$:RETURN
520 PRINT"2)  8.00"NV$:RETURN
530 PRINT"3)  9.00"NV$:RETURN
540 PRINT"4) 10.00"NV$:RETURN
550 PRINT"5) 11.00"NV$:RETURN
560 PRINT"6) 12.00"NV$:RETURN
570 PRINT"7) 13.00"NV$:RETURN
580 PRINT"8) 14.00"NV$:RETURN
590 PRINT"9) 15.00"NV$:RETURN
600 PRINT"A) 16.00"NV$:RETURN
610 PRINT"B) 17.00"NV$:RETURN
620 PRINT"C) 18.00"NV$:RETURN
630 PRINT"D) 19.00"NV$:RETURN
640 PRINT"E) 20.00"NV$:RETURN
650 PRINT"WEITERE EINGABEN < F1 >     MENUE < F7 >";
660 PRINT"        EINGABENKORREKTUR < F3 >        ";:RETURN
670 R=4:P=10:L=10:GOSUB970:D$(A,1)=X$
679 IFD$(A,1)=""THEN670
680 IFMID$(D$(A,1),4,1)>"12"THEN670
681 IFLEFT$(D$(A,1),1)<"01"THEN670
682 IFLEFT$(D$(A,1),2)>"31"THEN670
683 IFMID$(D$(A,1),3,1)<>"."ORMID$(D$(A,1),6,1)<>"."THEN670
684 IFRIGHT$(D$(A,1),4)>"2000"THEN670
690 RETURN
700 R=6:P=13:L=23:GOSUB970:D$(A,2)=X$:RETURN
710 R=7:GOSUB970:D$(A,3)=X$
720 IFD$(A,3)=""THEND$(A,3)="."
725 RETURN
730 R=8:GOSUB970:D$(A,4)=X$
740 IFD$(A,4)=""THEND$(A,4)="."
745 RETURN
750 R=9::GOSUB970:D$(A,5)=X$
760 IFD$(A,5)=""THEND$(A,5)="."
765 RETURN
770 R=10:GOSUB970:D$(A,6)=X$
780 IFD$(A,6)=""THEND$(A,6)="."
785 RETURN
790 R=11:GOSUB970:D$(A,7)=X$
800 IFD$(A,7)=""THEND$(A,7)="."
805 RETURN
810 R=12:GOSUB970:D$(A,8)=X$
820 IFD$(A,8)=""THEND$(A,8)="."
825 RETURN
830 R=13:GOSUB970:D$(A,9)=X$
840 IFD$(A,9)=""THEND$(A,9)="."
845 RETURN
850 R=14:GOSUB970:D$(A,10)=X$
855 IFD$(A,10)=""THEND$(A,10)="."
856 RETURN
860 R=15:GOSUB970:D$(A,11)=X$
865 IFD$(A,11)=""THEND$(A,11)="."
866 RETURN
870 R=16:GOSUB970:D$(A,12)=X$
875 IFD$(A,12)=""THEND$(A,12)="."
876 RETURN
880 R=17:GOSUB970:D$(A,13)=X$
885 IFD$(A,13)=""THEND$(A,13)="."
886 RETURN
890 R=18:GOSUB970:D$(A,14)=X$
895 IFD$(A,14)=""THEND$(A,14)="."
896 RETURN
900 R=19:GOSUB970:D$(A,15)=X$
905 IFD$(A,15)=""THEND$(A,15)="."
910 RETURN
920 POKE198,0:WAIT198,1:GETE$
930 IFE$="[136]"THENCLOSE1:CLOSE2:GOTO30
940 IFE$="[133]"THENFORI=4TO20:POKE781,I:SYS59903:NEXT:GOTO450
950 IFE$="[134]"THENGOSUB3220:GOSUB650:GOTO920
960 GOTO920
970 X$="":POKE214,R:POKE211,P:SYS58640:Z=0
980 GETW$:IFW$=""THENPRINT"<[146][157]";:GOTO980
990 IFASC(W$)=136THENPOKE204,1:A=A-1:GOTO30
1000 IFASC(W$)=35ORASC(W$)=64ORASC(W$)>94THEN980
1010 IFASC(W$)=13ANDLEN(X$)<>LTHENPRINT" ":GOTO1070
1020 IFASC(W$)=29ORASC(W$)=17ORASC(W$)=19ORASC(W$)=145THEN980
1030 IFASC(W$)=13ANDLEN(X$)=LTHENPRINT" ":GOTO1070
1040 IFASC(W$)=20THENPRINT".":GOTO1080
1041 IFASC(W$)=34THEN980
1050 IFLEN(X$)=LTHEN980
1060 PRINTW$;:X$=X$+W$:Z=Z+1:GOTO980
1070 RETURN
1080 IFLEN(X$)=0THENW$="":GOTO970
1090 IFLEN(W$)=0GOTO980
1100 IFZ=0GOTO980
1110 W$=LEFT$(W$,LEN(W$)-1)
1120 X$=LEFT$(X$,LEN(X$)-1)
1130 POKE214,R:POKE211,P:SYS58640
1140 PRINTX$;:Z=Z-1
1150 POKE214,R:POKE211,P+LEN(X$):SYS58640:GOTO980
1160 RETURN
1170 GOSUB2570:IFST<>-128THEN1190
1180 PRINT"[194]      DRUCKER NICHT EINGESCHALTET [146]    [194]":GOTO1200
1190 PRINT"[194]         DRUCKER EINGESCHALTET [146]       [194]"
1200 GOSUB2580:IFST<>-128THEN1220
1210 PRINT"  FLOPPYLAUFWERK NICHT EINGESCHALTET [146] [157]":RETURN
1220 PRINT"     FLOPPYLAUFWERK  EINGESCHALTET [146]   [157]":RETURN
1230 PRINT""M$;:PRINT"[180]            DATEN  AUSGABE            [146][170]";M1$:L=13
1240 IFA=0THENPRINT"        KEINE DATEN IM RECHNER !":FORS=0TO3000:NEXT:GOTO30
1250 GOSUB490:GOSUB510:GOSUB520:GOSUB530:GOSUB540:GOSUB550:GOSUB560:GOSUB570:GOSUB580:GOSUB590
1260 GOSUB600:GOSUB610:GOSUB620:GOSUB630:GOSUB640
1270 FORW=1TOA:PRINT""SPC(10)D$(W,1)
1280 PRINT""SPC(L)D$(W,2):PRINTSPC(L)D$(W,3):PRINTSPC(L)D$(W,4)
1290 PRINTSPC(L)D$(W,5):PRINTSPC(L)D$(W,6):PRINTSPC(L)D$(W,7):PRINTSPC(L)D$(W,8)
1300 PRINTSPC(L)D$(W,9):PRINTSPC(L)D$(W,10):PRINTSPC(L)D$(W,11):PRINTSPC(L)D$(W,12)
1310 PRINTSPC(L)D$(W,13):PRINTSPC(L)D$(W,14):PRINTSPC(L)D$(W,15)
1320 PRINT"WEITERE AUSGABEN < F1 >     MENUE < F7 >";
1330 PRINT"            KORREKTUR < F3 >            ";
1340 GETE$:IFE$=""THEN1340
1350 IFE$="[133]"THEN1400
1360 IFE$="[136]"THEN30
1370 IFE$="[134]"THENGOSUB3450:GOTO1320
1380 GOTO1340
1400 IFW=ATHENFORI=4TO19:POKEO1,I:SYSO:NEXT:GOTO5000
1410 GOSUB490:GOSUB510:GOSUB520:GOSUB530:GOSUB540:GOSUB550:GOSUB560:GOSUB570:GOSUB580
1415 GOSUB590:GOSUB600:GOSUB610:GOSUB620:GOSUB630:GOSUB640
1420 NEXT
1430 PRINT""M$;"[180]             DATEN SUCHEN             [146][170]";M1$
1440 IFA=0THENPRINT"        KEINE DATEN IM RECHNER !":FORS=0TO3000:NEXT:GOTO30
1450 PRINT"     BITTE GEBEN SIE DAS DATUM EIN,"
1460 PRINTSPC(7)"DESSEN DATEN SIE SUCHEN :"
1470 PRINTSPC(15)".........."
1480 PRINTSPC(10)"ZUM MENUE MIT < * >":R=12:P=15:L=16:GOSUB970
1490 FORS=1TOA:IFX$=D$(S,1)THEN1540
1500 NEXT:FORI=4TO20:POKEO1,I:SYSO:NEXT
1510 IFX$="*"THEN30
1520 PRINT"        KEINE DATEN VORHANDEN  !"
1530 FORI=0TO2000:NEXT:GOTO30
1540 FORI=4TO20:POKEO1,I:SYSO:NEXT:PRINT""M$
1550 PRINT""M$;"[180]     AUSGABE DER GESUCHTEN DATEN      [146][170]";:L=13
1560 GOSUB490:GOSUB510:GOSUB520:GOSUB530:GOSUB540:GOSUB550:GOSUB560:GOSUB570:GOSUB580:GOSUB590:GOSUB600
1570 GOSUB610:GOSUB620:GOSUB630:GOSUB640
1580 PRINT""SPC(10)D$(S,1)
1590 PRINT""SPC(L)D$(S,2):PRINTSPC(L)D$(S,3):PRINTSPC(L)D$(S,4):PRINTSPC(L)D$(S,5)
1600 PRINTSPC(L)D$(S,6):PRINTSPC(L)D$(S,7):PRINTSPC(L)D$(S,8):PRINTSPC(L)D$(S,9)
1610 PRINTSPC(L)D$(S,10):PRINTSPC(L)D$(S,11):PRINTSPC(L)D$(S,12):PRINTSPC(L)D$(S,13):PRINTSPC(L)D$(S,14)
1620 PRINTSPC(L)D$(S,15)
1630 PRINT"WEITER SUCHEN < F1 >        MENUE < F7 >";
1640 PRINT"            KORREKTUR < F3 >            ";
1650 GETE$:IFE$=""THEN1650
1660 IFE$="[133]"THEN1500
1670 IFE$="[136]"THEN30
1680 IFE$="[134]"THENGOSUB3680:GOTO1630
1690 GOTO1650
1700 PRINT""M$;:PRINT"[180]            DATEN LOESCHEN            [146][170]";M1$
1710 IFA=0THENPRINT"        KEINE DATEN IM RECHNER !":FORS=0TO3000:NEXT:GOTO30
1720 PRINT"       BITTE GEBEN SIE DAS DATUM"
1730 PRINTSPC(8)"EIN, DESSEN DATEN SIE ZU"
1740 PRINTSPC(10)"LOESCHEN WUENSCHEN :"
1750 PRINTSPC(12)"................"
1760 PRINTSPC(10)"ZUM MENUE MIT < * >":R=13:P=12:L=16:GOSUB970
1770 FORS=1TOA:IFX$=D$(S,1)THEN1820
1780 IFX$="*"THEN30
1790 NEXT
1800 FORI=7TO15:POKEO1,I:SYSO:NEXT
1810 PRINT"ZU LOESCHENDER DATENSATZ NICHT GEFUNDEN!":FORI=0TO2000:NEXT:GOTO30
1820 FORE=STOA-1:FORF=1TO15:D$(E,F)=D$(E+1,F):NEXTF,E:FORF=1TO10:D$(A,F)="":NEXT:A=A-1
1830 PRINT""M$;:PRINT"[180]   IHR ANGEGEBENER DATENSATZ WURDE    [146][170]";
1840 PRINT"[180]          SOEBEN GELOESCHT !          [146][170]";M1$:FORI=0TO3000:NEXT:GOTO30
1850 PRINT""M$;:PRINT"[180]            DATEI LOESCHEN            [146][170]";M1$
1860 PRINT"SIE SIND IM BEGRIFF, IHRE GESAMTEN DATEN"
1870 PRINT"  ZU LOESCHEN !  WOLLEN SIE IHRE DATEI"
1880 PRINTSPC(6)"WIRKLICH LOESCHEN < J/N [146]>  ?"
1890 GETE$:IFE$=""THEN1890
1900 IFE$="J"THEN1930
1910 IFE$="N"THEN30
1920 GOTO1890
1930 GOSUB2580
1940 IFST<>-128THEN1960
1950 POKEO1,13:SYSO:GOTO2220
1960 OPEN1,8,15,"S:DIXY-DATEN":CLOSE1
1970 FORI=7TO13:POKEO1,I:SYSO:NEXT
1980 PRINT""M$;:PRINT"[180] IHRE DATEI WURDE SOEBEN GELOESCHT  ! [146][170]";M1$
1990 FORI=0TO2000:NEXT:GOTO30
2000 PRINT""M$;:PRINT"[180]          PARAMETER  AUSGABE          [146][170]";M1$
2010 P$=RIGHT$(STR$(1000+(Y-A)),3)
2020 P1$=RIGHT$(STR$(1000+A),3)
2030 PRINT""M$;:PRINT"[180]                                      [146][170]";
2040 PRINT"[180]        LEERE DATENSAETZE "P$"         [146][170]";
2050 PRINT"[180]                                      [146][170]";
2060 PRINT"[180]        VOLLE DATENSAETZE "P1$"         [146][170]";
2069 PRINT"[180]                                      [146][170]";M1$:SE=(100*A)/Y
2070 P3=INT(SE*10^2+.5)/10^2
2071 PRINT""P3"% DER GESAMTEN DATENKAPAZITAET"
2080 PRINTSPC(10)"ZUM MENUE MIT < * >"
2090 GETE$:IFE$=""THEN2090
2100 IFE$="*"THEN30
2110 GOTO2090
2120 PRINT""M$;:PRINT"[180]           DATEN  SPEICHERN           [146][170]";M1$
2130 IFA=0THENPRINT"        KEINE DATEN IM RECHNER !":FORS=0TO3000:NEXT:GOTO30
2140 PRINTSPC(4)"BITTE DATENDISKETTE EINLEGEN UND"
2150 PRINTSPC(6)"< RETURN [146]>  TASTE DRUECKEN !"
2160 PRINTSPC(10)"ZUM MENUE MIT < * >"
2170 GETE$:IFE$=""THEN2170
2180 IFE$="*"THEN30
2190 IFE$=CHR$(13)THEN2210
2200 GOTO2170
2210 GOSUB2580:IFST<>-128THEN2240
2220 PRINT""M$;:PRINT"[180]FLOPPY-LAUFWERK NICHT EINGESCHALTET ! [146][170]";M1$
2230 FORW=0TO3000:NEXT:GOTO30
2240 CLOSE1:OPEN1,8,15:CLOSE3:OPEN3,8,3,"@:DIXY-DATEN,S,W":INPUT#1,Q
2250 IFQ=0THEN2280
2260 GOSUB2560:CLOSE1:CLOSE3:PRINT""M$;
2270 PRINT"[180]DISKETTEN - FEHLER ! BITTE BEHEBEN  ! [146][170]";M1$:GOTO2230
2280 FORI=6TO12:POKEO1,I:SYSO:NEXT:PRINT#3,A:FORK=1TOA:FORP=1TO15
2290 T$=RIGHT$(STR$(1000+K),3)
2300 PRINT""M$;:PRINT"[180]  DATENSATZ NR. "T$" BEIM SPEICHERN !  [146][170]";M1$
2310 PRINT#3,D$(K,P):NEXT:NEXT:CLOSE3:CLOSE1
2320 PRINT""M$;:PRINT"[180]      DATEN SIND ABGESPEICHERT !      [146][170]";M1$:GOTO2230
2330 PRINT""M$;:PRINT"[180]            DATEN EINLESEN            [146][170]";M1$
2340 IFA=0THEN2370
2350 IFA>0THENPRINT"ES BEFINDEN SICH NOCH DATEN IM RECHNER !":FORS=0TO3000:NEXT
2360 GOTO30
2370 PRINTSPC(4)"BITTE DATENDISKETTE EINLEGEN UND"
2380 PRINTSPC(6)"< RETURN [146]>  TASTE DRUECKEN !":PRINTSPC(10)"ZUM MENUE MIT < * >"
2400 GETE$:IFE$=""THEN2400
2410 IFE$="*"THEN30
2420 IFE$=CHR$(13)THEN2440
2430 GOTO2400
2440 GOSUB2580:IFST<>-128THEN2470
2450 GOSUB2560
2460 PRINT""M$;:PRINT"[180]FLOPPY-LAUFWERK NICHT EINGESCHALTET ! [146][170]";M1$:GOTO2230
2470 CLOSE1:OPEN1,8,15:CLOSE3:OPEN3,8,3,"DIXY-DATEN,S,R":INPUT#1,Q
2480 IFQ=0THEN2510
2490 GOSUB2560:CLOSE1:CLOSE3:PRINT""M$;
2500 PRINT"[180]DISKETTEN - FEHLER ! BITTE BEHEBEN  ! [146][170]";M1$:GOTO2230
2510 GOSUB2560:INPUT#3,A:FORK=1TOA:FORG=1TO15
2520 T1$=RIGHT$(STR$(1000+K),3)
2530 PRINT""M$;:PRINT"[180]  DATENSATZ NR. "T1$" BEIM EINLESEN  !  [146][170]";M1$
2540 INPUT#3,D$(K,G):NEXT:NEXT:CLOSE3:CLOSE1
2550 PRINT""M$;:PRINT"[180]       DATEN SIND EINGELESEN  !       [146][170]";M1$:GOTO2230
2560 FORI=6TO12:POKEO1,I:SYSO:NEXT:RETURN
2570 POKE768,61:OPEN1,4,7:PRINT#1,"";:CLOSE1:POKE768,139:RETURN
2580 POKE768,61:OPEN1,8,15:CLOSE1:POKE768,139:RETURN
2590 PRINT""M$;:PRINT"[180]         DATEN EINZELAUSDRUCK         [146][170]";M1$
2600 IFA=0THENPRINT"        KEINE DATEN IM RECHNER !":FORS=0TO3000:NEXT:GOTO30
2610 GOSUB2570:IFST<>-128THEN2640
2620 PRINT""M$;:PRINT"[180]  DRUCKER IST NICHT EINGESCHALTET  !  [146][170]";M1$
2630 FORI=0TO2000:NEXT:GOTO30
2640 PRINT"     BITTE GEBEN SIE DAS DATUM EIN,"
2650 PRINT"DESSEN DATEN SIE AUSDRUCKEN MOECHTEN :"
2660 PRINTSPC(9)"AUSDRUCKEN MOECHTEN:"
2670 PRINTSPC(15)".........."
2680 PRINTSPC(10)"ZUM MENUE MIT < * >":R=13:P=15:L=16:GOSUB970
2690 FORS=1TOA:IFX$=D$(S,1)THEN2730
2700 NEXT:FORI=7TO17:POKEO1,I:SYSO:NEXT
2710 IFX$="*"THEN30
2720 PRINT"        KEINE DATEN VORHANDEN  !":FORI=0TO2000:NEXT:GOTO30
2730 FORI=4TO20:POKEO1,I:SYSO:NEXT
2740 PRINT""M$;"[180]      DATEN WERDEN AUSGEDRUCKT !      [146][170]";M1$:GOSUB2760
2750 GOTO2940
2760 OPEN1,4,1:PRINT#1,CHR$(27)+"S"+CHR$(1)+CHR$(15);
2770 PRINT#1,SPC(5)" DATUM     : ";D$(S,1)+CHR$(10)
2780 PRINT#1,SPC(5)" 7.00 UHR  : ";D$(S,2)+CHR$(10)
2790 PRINT#1,SPC(5)" 8.00 UHR  : ";D$(S,3)+CHR$(10)
2800 PRINT#1,SPC(5)" 9.00 UHR  : ";D$(S,4)+CHR$(10)
2810 PRINT#1,SPC(5)"10.00 UHR  : ";D$(S,5)+CHR$(10)
2820 PRINT#1,SPC(5)"11.00 UHR  : ";D$(S,6)+CHR$(10)
2830 PRINT#1,SPC(5)"12.00 UHR  : ";D$(S,7)+CHR$(10)
2840 PRINT#1,SPC(5)"13.00 UHR  : ";D$(S,8)+CHR$(10)
2850 PRINT#1,SPC(5)"14.00 UHR  : ";D$(S,9)+CHR$(10)
2860 PRINT#1,SPC(5)"15.00 UHR  : ";D$(S,10)+CHR$(10)
2870 PRINT#1,SPC(5)"16.00 UHR  : ";D$(S,11)+CHR$(10)
2880 PRINT#1,SPC(5)"17.00 UHR  : ";D$(S,12)+CHR$(10)
2890 PRINT#1,SPC(5)"18.00 UHR  : ";D$(S,13)+CHR$(10)
2900 PRINT#1,SPC(5)"19.00 UHR  : ";D$(S,14)+CHR$(10)
2910 PRINT#1,SPC(5)"20.00 UHR  : ";D$(S,15)+CHR$(10)
2920 PRINT#1,SPC(5)"-------------------------------------"
2930 PRINT#1,CHR$(24):CLOSE1:RETURN
2940 PRINT"WEITERE EINZELDATEN AUSDRUCKEN < J/N > ?"
2950 GETE$:IFE$=""THEN2950
2960 IFE$="N"THEN30
2970 IFE$="J"THENPRINT"[147]":GOTO2590
2980 GOTO2950
2990 PRINT""M$;:PRINT"[180]         AUSDRUCK ALLER DATEN         [146][170]";M1$
3000 IFA=0THENPRINT"        KEINE DATEN IM RECHNER !":FORS=0TO3000:NEXT:GOTO30
3010 GOSUB2570:IFST<>-128THEN3040
3020 PRINT""M$;:PRINT"[180]  DRUCKER IST NICHT EINGESCHALTET  !  [146][170]";M1$
3030 FORI=0TO2000:NEXT:GOTO30
3040 PRINT""M$;"[180]      DATEN WERDEN AUSGEDRUCKT !      [146][170]";M1$
3050 FORS=1TOA:GOSUB2760:NEXT:GOTO30
3060 PRINT""M$;:PRINT"[180]    BESTIMMTE BEREICHE AUSDRUCKEN     [146][170]";M1$
3070 IFA=0THENPRINT"        KEINE DATEN IM RECHNER !":FORS=0TO3000:NEXT:GOTO30
3080 GOSUB2570:IFST<>-128THEN3110
3090 PRINT""M$;:PRINT"[180]  DRUCKER IST NICHT EINGESCHALTET  !  [146][170]";M1$
3100 FORI=0TO2000:NEXT:GOTO30
3110 PRINT"   BITTE GEBEN SIE DEN BEREICH DER ZU"
3120 PRINTSPC(6)"DRUCKENDEN DATENSAETZE EIN :"
3130 PRINTSPC(12)"VON 1.. BIS"A"[157].."
3140 PRINT"          ZUM MENUE MIT < * >           "
3150 R=11:P=16:L=3:GOSUB970:X=VAL(X$)
3160 IFX$="*"THEN30
3170 R=11:P=24:L=3:GOSUB970:Y=VAL(X$)
3180 IFY>AORX>YTHENX$="":X=0:Y=0:GOTO3200
3190 GOTO3210
3200 PRINT"      BEREICH FALSCH ANGEWAEHLT  !":FORI=0TO2000:NEXT:GOTO3060
3210 FORS=XTOY:GOSUB2760:NEXT:GOTO30
3220 PRINTM2$;"             ZURUECK < * >              ";
3230 GETE$:IFE$=""THEN3230
3240 IFE$="*"THENRETURN
3250 IFE$="1"THEND$(A,2)="":GOSUB700:GOTO3400
3260 IFE$="2"THEND$(A,3)="":GOSUB710:GOTO3400
3270 IFE$="3"THEND$(A,4)="":GOSUB730:GOTO3400
3280 IFE$="4"THEND$(A,5)="":GOSUB750:GOTO3400
3290 IFE$="5"THEND$(A,6)="":GOSUB770:GOTO3400
3300 IFE$="6"THEND$(A,7)="":GOSUB790:GOTO3400
3310 IFE$="7"THEND$(A,8)="":GOSUB810:GOTO3400
3320 IFE$="8"THEND$(A,9)="":GOSUB830:GOTO3400
3330 IFE$="9"THEND$(A,10)="":GOTO850:GOTO3400
3340 IFE$="A"THEND$(A,11)="":GOTO860:GOTO3400
3350 IFE$="B"THEND$(A,12)="":GOTO870:GOTO3400
3360 IFE$="C"THEND$(A,13)="":GOTO880:GOTO3400
3370 IFE$="D"THEND$(A,14)="":GOTO890:GOTO3400
3380 IFE$="D"THEND$(A,15)="":GOTO900:GOTO3400
3390 GOTO3230
3400 PRINTM3$;"                                        ";
3410 GETE$:IFE$=""THEN3410
3420 IFE$="J"THEN3220
3430 IFE$="N"THENRETURN
3440 GOTO3410
3450 PRINTM2$;"             ZURUECK < * >              ";
3460 GETE$:IFE$=""THEN3460
3470 IFE$="1"THEND$(W,2)="":GOSUB700:D$(W,2)=D$(A,2):GOTO3630
3480 IFE$="*"THENRETURN
3490 IFE$="2"THEND$(W,3)="":GOSUB710:D$(W,3)=D$(A,3):GOTO3630
3500 IFE$="3"THEND$(W,4)="":GOSUB730:D$(W,4)=D$(A,4):GOTO3630
3510 IFE$="4"THEND$(W,5)="":GOSUB750:D$(W,5)=D$(A,5):GOTO3630
3520 IFE$="5"THEND$(W,6)="":GOSUB770:D$(W,6)=D$(A,6):GOTO3630
3530 IFE$="6"THEND$(W,7)="":GOSUB790:D$(W,7)=D$(A,7):GOTO3630
3540 IFE$="7"THEND$(W,8)="":GOSUB810:D$(W,8)=D$(A,8):GOTO3630
3550 IFE$="8"THEND$(W,9)="":GOSUB830:D$(W,9)=D$(A,9):GOTO3630
3560 IFE$="9"THEND$(W,10)="":GOSUB850:D$(W,10)=D$(A,10):GOTO3630
3570 IFE$="A"THEND$(W,11)="":GOSUB860:D$(W,11)=D$(A,11):GOTO3630
3580 IFE$="B"THEND$(W,12)="":GOSUB870:D$(W,12)=D$(A,12):GOTO3630
3590 IFE$="C"THEND$(W,13)="":GOSUB880:D$(W,13)=D$(A,13):GOTO3630
3600 IFE$="D"THEND$(W,14)="":GOSUB890:D$(W,14)=D$(A,14):GOTO3630
3610 IFE$="E"THEND$(W,15)="":GOSUB900:D$(W,15)=D$(A,15):GOTO3630
3620 GOTO3460
3630 PRINTM3$;"                                        ";
3640 GETE$:IFE$=""THEN3640
3650 IFE$="J"THEN3450
3660 IFE$="N"THENRETURN
3670 GOTO3640
3680 PRINTM2$;"             ZURUECK < * >              ";
3690 GETE$:IFE$=""THEN3690
3700 IFE$="1"THEND$(S,2)="":GOSUB700:D$(S,2)=D$(A,2):GOTO3860
3710 IFE$="*"THENRETURN
3720 IFE$="2"THEND$(S,3)="":GOSUB710:D$(S,3)=D$(A,3):GOTO3860
3730 IFE$="3"THEND$(S,4)="":GOSUB730:D$(S,4)=D$(A,4):GOTO3860
3740 IFE$="4"THEND$(S,5)="":GOSUB750:D$(S,5)=D$(A,5):GOTO3860
3750 IFE$="5"THEND$(S,6)="":GOSUB770:D$(S,6)=D$(A,6):GOTO3860
3760 IFE$="6"THEND$(S,7)="":GOSUB790:D$(S,7)=D$(A,7):GOTO3860
3770 IFE$="7"THEND$(S,8)="":GOSUB810:D$(S,8)=D$(A,8):GOTO3860
3780 IFE$="8"THEND$(S,9)="":GOSUB830:D$(S,9)=D$(A,9):GOTO3860
3790 IFE$="9"THEND$(S,10)="":GOTO850:D$(S,10)=D$(A,10):GOTO3860
3800 IFE$="A"THEND$(S,11)="":GOTO860:D$(S,11)=D$(A,11):GOTO3860
3810 IFE$="B"THEND$(S,12)="":GOTO870:D$(S,12)=D$(A,12):GOTO3860
3820 IFE$="C"THEND$(S,13)="":GOTO880:D$(S,13)=D$(A,13):GOTO3860
3830 IFE$="D"THEND$(S,14)="":GOTO890:D$(S,14)=D$(A,14):GOTO3860
3840 IFE$="E"THEND$(S,15)="":GOTO900:D$(S,15)=D$(A,15):GOTO3860
3850 GOTO3690
3860 PRINTM3$;"                                        ";
3870 GETE$:IFE$=""THEN3870
3880 IFE$="J"THEN3680
3890 IFE$="N"THENRETURN
3900 GOTO3870
5000 PRINT"[146]      KEINE DATEN MEHR VORHANDEN !":FORI=0TO3000:NEXT:GOTO30
0