1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program ....   STRYK12X
3 REM ! Utg}va  1.0    83-06-30
4 REM ! av (c) TORDH JOHANSSON
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av 666
9 REM ++++++++++++++++++++++++++++++++
10 REM 
11 REM Screened by C R LERIN.
12 REM 
100 ; CHR$(12%)
110 ; "SYSTEMETS RADANTAL"; : INPUT T%
120 ; 
130 ; "ANTAL MATCHER"; : INPUT H% : R%=1%
140 DIM A%(T%,H%),M%(H%),N%(H%)
150 ; 
160 ; "ANTAL VARIABLER PR MATCH:";SPACE$(15%);STRING$(24%,61%)
170 ; 
180 FOR B%=1% TO H%
190 ; TAB(2%-INT(LOG10(B%)));B%;
200 INPUT N%(B%) : R%=R%*N%(B%) : NEXT B%
210 ; 
220 ; "MATA IN RADER (I SIDLED!):";SPACE$(14%);STRING$(25%,61%)
230 ; 
240 OPEN "PR:" ASFILE 1%
250 FOR X%=1% TO T%
260 ; TAB(2%-INT(LOG10(X%)));X%;"  ";
270 INPUT B$ : IF LEN(B$)<>H% THEN 260
280 FOR [%=1% TO H%
290 IF MID$(B$,[%,1%)="3" THEN ; #1%,"X";" "; ELSE ; #1%,MID$(B$,[%,1%);" ";
300 NEXT [%
310 ; #1%
320 FOR Y%=1% TO H%
330 A%(X%,Y%)=ASC(MID$(B$,Y%,1%))-48%
340 NEXT Y% : NEXT X%
350 CLOSE 1%
360 DIM U%(100%,1%)
370 Q%=H%
380 FOR Z%=Q% TO 1% STEP -1%
390 M%(Z%)=M%(Z%)+1% : IF M%(Z%)>N%(Z%) THEN M%(Z%)=1%
400 NEXT Z%
410 C%=0%
420 FOR F%=1% TO T% : FOR G%=1% TO H%
430 IF A%(F%,G%)<>M%(G%) THEN P%=P%+1%
440 NEXT G%
450 IF P%>3% THEN 500
460 IF P%=3% THEN C%=C%+1% : GOTO 500
470 IF P%=2% THEN C%=C%+64% : GOTO 500
480 IF P%=1% THEN C%=C%+1024% : GOTO 500
490 C%=C%+8192%
500 P%=0%
510 NEXT F%
520 K%=0%
530 FOR E%=1% TO D%
540 IF C%=U%(E%,0%) THEN U%(E%,1%)=U%(E%,1%)+1% : K%=1% : E%=D%
550 NEXT E%
560 IF K%=0% THEN D%=D%+1% : U%(D%,0%)=C% : U%(D%,1%)=1%
570 FOR L%=1% TO H%
580 IF M%(L%)<N%(L%) THEN Q%=L% : L%=H% : GOTO 380
590 NEXT L%
600 ; CHR$(12%)
610 ; "GARANTITABELL (SIFFRA + RETURN!)";
620 ONERRORGOTO 620 : INPUT W%
630 OPEN "PR:" ASFILE 1%
640 ; #1%,"FEL: 0  1  2  3 ";STRING$(23%,42%);" ";STRING$(3%,61%);"  ";STRING$(10%,61%);" ";
645 ; #1%,STRING$(23%,61%)
650 FOR D1%=1% TO D%
660 M1%=0% : M2%=0%
670 FOR D2%=1% TO D%
680 IF M1%<U%(D2%,0%) THEN M1%=U%(D2%,0%) : M2%=U%(D2%,1%) : D3%=D2%
690 NEXT D2%
700 U%(D3%,0%)=0% : U%(D3%,1%)=0%
710 S1%=INT(M1%/8192%)
720 S2%=INT(M1%/1024%)-S1%*8%
730 S3%=INT(M1%/64%)-S1%*128%-S2%*16%
740 S4%=M1%-INT(M1%/64%)*64%
750 ; #1%,"    ";S1%;" ";S2%;" ";S3%;" ";S4%;"    ";TAB(21%);M2%;" /";R%
760 NEXT D1%
770 ; #1%