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%)