Directory of image this file is from
This file as a plain text file

10 DIM B$(300,20),Z(300),H$(20),F$(15),G$(5),T$(70)
20 PRINT"VON FILE"\INPUT F$
30 PRINT"VON GERAET"\INPUT G$
40 PRINT"ANZAHL DER WOERTER IM SATZ"\INPUT W1
50 PRINT"MERKMALGRUPPENBEZEICHNUNG"\INPUT T$
51 S1=0\B$(1)="00"\FOR I=1TO299\B$(I+1)=B$(I)\NEXT I
60 PRINT"AN WIEVIELTER STELLE STEHT DAS MERKMAL "\INPUT W2
62 FOR I=1 TO 300\Z(I)=1\NEXT I
65 FILE#1:G$&":"&F$
70 INPUT#1:H$,H$,H$
80 FOR I= 1 TO 300
90 FOR J=1 TO W2
100 INPUT#1:B$(I)\IF END#1 THEN 140\NEXT J
110 FOR J=W2+1 TO W1
120 INPUT #1:H$\IF END#1 THEN 140
125 NEXT J
130 NEXT I
140 M=I-1\CLOSE#1
150 FOR I=1 TO M\FOR J=I+1 TO M
160 IF B$(I)<=B$(J) THEN 180
170 H$=B$(I)\B$(I)=B$(J)\B$(J)=H$
180 NEXT J\NEXT I\A=1
190 FOR J=A+1 TO M
200 IF B$(A)<>B$(J) THEN 220
210 B$(J)="00"\Z(A)=Z(A)+1\NEXT J\GOTO 224
220 A=J\GOTO 190
224 PRINT\PRINT\PRINT\PRINT\PRINT
225 PRINT T$\PRINT\PRINT
230 FOR I=1 TO M
240 IF B$(I)="00" THEN 260
245 S1=S1+Z(I)
250 PRINT B$(I);TAB(22);Z(I)
260 NEXT I
265 PRINT TAB(20);"------"\PRINT TAB(20);S1
270 PRINT"NOCH EINE MERKMALSGRUPPE(JA ODER NEIN)"\INPUTA$
280 IF A$="JA"THEN 50\IF A$<>"NEIN" THEN 270
290 END