5 DIM B$(216,72)\W=216
10 DIM M$(12,3),H$(72),F$(75,20),D$(20)\FILEV#4:"LPT:"
20 FOR I=1 TO 12\READ M$(I)\NEXT I\PRINT\IF LEN(DAT$(X))>0 THEN 30
25 PRINT "KEIN DATUM BITTE EINGEBEN";\INPUT D$\GOTO 50
30 D$=SEG$(DAT$(X),4,5)&"."&M$(VAL(SEG$(DAT$(X),1,2)))&". 19"
40 D$=D$&SEG$(DAT$(X),7,8)\PRINT
50 PRINT "ANZAHL DER ZEILEN PRO BLATT:";\INPUT A
60 PRINT "ERSTE ZEILE EINES BLATTES AUF LINEPRINTER EINSTELLEN"
80 PRINT "*";\Z=Z+1\INPUT F$(Z)\IF Z=75 THEN 100\IF F$(Z)="RUN" THEN 95
85 IF F$(Z)<>"LIST" THEN 90\GOSUB 250
90 IF F$(Z)<>"^" THEN 80\Z=Z-2\GOTO 80
95 Z=Z-1
100 FOR I=1 TO Z\H$=F$(I)
130 P=POS(H$," ",1)\IF P=0 THEN 150\S=VAL(SEG$(H$,P+1,LEN(H$)))\S5=0
140 F$(I)=SEG$(F$(I),1,P-1)\GOTO 160
150 S=1\S5=1
160 FOR I1=1 TO S\FILE#1:F$(I)\IF S5=1 THEN162\IFS9=1THEN162
161 S9=0\GOSUB 500\GOTO 205
162 PRINT#4:SEG$(F$(I),POS(F$(I),":",1)+1,LEN(F$(I))),,D$\PRINT#4:\Z1=2
170 INPUT#1:H$\IF END#1 THEN 190\PRINT#4:H$\Z1=Z1+1\GOTO 170
190 CLOSE#1\FOR V=1 TO A-Z1+(INT(Z1/A)*A)\PRINT#4:\NEXT V
200 Z1=0\NEXT I1\S9=0
205 NEXT I
210 FOR I=1 TO A+11\PRINT#4:
220 NEXT I\CLOSE#4\STOP
230 DATA "JAN","FEB","MRZ","APR","MAI","JUN","JUL","AUG","SEP"
240 DATA "OKT","NOV","DEZ"
250 FOR I=1 TO Z-1\PRINT F$(I)\NEXT I\PRINT\PRINT\Z=Z-1\RETURN
500 INPUT#1:H$\IFEND#1 THEN 530\Z3=Z3+1
510 B$(Z3)=H$\GOTO 500
505 IF Z3=W+1 THEN 600
530 CLOSE#1\FOR I1=1 TO S
540 PRINT#4:SEG$(F$(I),POS(F$(I),":",1)+1,LEN(F$(I))),,D$
550 PRINT#4:\Z2=Z2+2\FOR I2=1 TO Z3\PRINT#4:B$(I2)\Z2=Z2+1
560 NEXT I2\FOR V=1 TO A-Z2+(INT(Z2/A)*A)\PRINT#4:\NEXT V
570 Z2=0\NEXT I1\Z3=0\S5=0\S9=0\RETURN
600 PRINT "CAN'T LOAD FILE ";F$(I);" INTO THE";W;" LINES BUFFER!!"
610 CLOSE#1\I=I-1\S9=1\RETURN
1000 END