1 REM ++++++++++++++++++++++++++++++++
2 REM ! Program .... UMSYSGAR
3 REM ! Utg}va  2.1    1983
4 REM ! av (c) Tordh H. Johansson
5 REM ! screening  Tom Sj|berg 2401
7 REM ! Minne 16 Kbytes (skrivare)
8 REM ! Ins{nt av 666
9 REM ++++++++++++++++++++++++++++++++
10 ; CHR$(12)
100 ; ' Ett pgm av Tordh H. Johansson,'
105 ; ' ALIAS "Siffertips-Jocke"...' : ; 
107 ; ' F|r info l{s REM-satser i progr.' : ; 
115 REM *******************************
120 REM * GARANTI F\R U- O. UM-SYSTEM *
125 REM * F]S FRAM MED DETTA PROGRAM. *
130 REM * OBS! Minst 1 match 'i U'!!! *
135 REM * Rad. i sidled - MAT. f|rst! *
140 REM * Allt ska st{mma enl. RAMEN! *
145 REM * 'Ant. var.' inm. LODR[TT... *
150 REM *******************************
155 REM DETTA PGM FINNS [VEN I FORTRAN!
160 REM ###############################
165 REM Kan F]S av mig (666) OM Du sl}r
170 REM en signal p} 0920/94768 i Lule}
175 REM (Box 40019, 95104 LULE] 4)!
180 REM ###############################
185 REM Testa end. SM] system (f|rst) -
190 REM g{rna tagna ur SYSTEMB\CKER...
195 REM D} kan Ni KOLLA att Ni F\RST]TT
200 REM programmet till fullo...
205 REM 'Allt tar sin tid...' (Bibeln)!
210 REM ###############################
215 REM L{s NOGA anv. (?) i programmet!
220 REM ###############################
221 ; ' Finns skrivare inkopplad (J/N)';
222 GET G$ : ; : ON INSTR(1,'JjNn',G$)+1 GOTO 221,223,223,224,224
223 C%=6% : OPEN "PR:" ASFILE C% : GOTO 225
224 C%=0%
225 ; : ; "\nskat radantal"; : INPUT R%
230 ; "Hur m}nga matcher |nskas"; : INPUT \%
235 DIM T%(R%,\%),V%(\%),E%(\%),D%(5%)
240 \2%=\%+2% : \1%=\%+1%
245 FOR T=1 TO 1000 : NEXT T : ; CHR$(12%)
250 ; "Ant. variabler i matcherna (LODR[TT!):" : ; 
255 FOR Z%=1% TO \% : E%(Z%)=1% : ; Z%; : INPUT V%(Z%) : NEXT Z% : E%(\%)=0%
260 ; : ; "Ant. matematiska"; : INPUT M%
265 ; "Ant. U-tips=";\%-M%;"!!!"
270 U2%=U%*20% : U3%=\1%-U%
275 REM Vettiga SYSTEM ger KORT tabell!
280 DIM G%(U2%,5%)
285 REM Konstr. EJ system med t{rning!
290 REM F|r D] f}r Ni skylla er sj{lv!
295 REM N]JA, NOVISER KAN JU \KA DIM...
300 FOR T=1 TO 2000 : NEXT T : ; CHR$(12%) : ; "Inmatning av rader (1X2/132)! Enl."
305 ; "RAMEN med";M%;" MATEM. f|rst. SKRIV:" : ; 
310 FOR X%=1% TO R%
315 ; "Rad";TAB(5-INT(LOG(X%)/LOG(10)));X%;
320 INPUT R$ : IF LEN(R$)<>\% THEN ; 'Fel antal tkn ('\%')' : GOTO 315
325 FOR Y%=1% TO \%
330 IF MID$(R$,Y%,1%)="1" THEN T%(X%,Y%)=1% ELSE IF MID$(R$,Y%,1%)="2" THEN T%(X%,Y%)=2% ELSE T%(X%,Y%)=3%
335 NEXT Y% : NEXT X%
340 FOR T=1 TO 2000 : NEXT T : ; CHR$(12%)
350 ; #C%,"INMATADE RADER:" : ; #C%
355 FOR X%=1% TO R% : FOR Y%=1% TO \%
360 IF T%(X%,Y%)=1% THEN ; #C%,"1 "; ELSE IF T%(X%,Y%)=2% THEN ; #C%,"2 "; ELSE ; #C%,"X ";
365 NEXT Y% : ; #C% : NEXT X%
370 ; #C% : ; #C% : ; #C%
375 ; #C%,"G A R A N T I T A B E L L : " : ; #C%
380 ; #C%,"UT :  13  12  11  10  Chans:"
385 ; #C%,"--    --------------  -----"
390 FOR T=1 TO 2000 : NEXT T
392 IF C%=0% ; : ; TAB(10%)'TRYCK RETURN!'; : GET G$ : ; CHR$(12%)
395 K%=\% : F%=0%
400 E%(K%)=E%(K%)+1% : IF NOT E%(K%)>V%(K%) THEN 415
405 E%(K%)=1% : K%=K%-1%
410 IF K%=0% THEN 525 ELSE 400
415 U1%=0% : FOR Z%=U3% TO \%
420 IF E%(Z%)=1% THEN U1%=U1%+1%
425 NEXT Z%
430 FOR Z%=1% TO 5% : G%(0%,Z%)=0% : NEXT Z%
435 G%(0%,1%)=U1%
440 FOR X%=1% TO R%
445 A%=0% : FOR Y%=1% TO \%
450 IF E%(Y%)=T%(X%,Y%) THEN A%=A%+1%
455 NEXT Y%
460 IF A%>=\%-3% THEN G%(0%,\2%-A%)=G%(0%,\2%-A%)+1%
465 IF A%>F% THEN F%=A%
470 NEXT X%
475 FOR L%=1% TO U2%
480 IF G%(L%,0%)=0% THEN 505
485 FOR Z%=1% TO 5% : IF NOT G%(0%,Z%)=G%(L%,Z%) THEN 500
490 NEXT Z%
495 G%(L%,0%)=G%(L%,0%)+1% : GOTO 510
500 NEXT L% : ; "# SPARSYSTEM IGEN!!! #" : GOTO 525
505 FOR Z%=1% TO 5% : G%(L%,Z%)=G%(0%,Z%) : NEXT Z% : GOTO 495
510 N%=N%+1% : ; N%;
515 IF F%<\%-3% THEN I%=I%+1%
520 GOTO 395
525 FOR Z%=0% TO 5% : G%(0%,Z%)=0% : NEXT Z%
530 FOR L%=1% TO U2%
535 FOR Z%=1% TO 5%
540 IF G%(L%,Z%)=G%(0%,Z%) THEN 550
545 IF G%(L%,Z%)>G%(0%,Z%) THEN 560 ELSE 565
550 NEXT Z%
555 GOTO 565
560 FOR Z%=0% TO 5% : D%(Z%)=G%(0%,Z%) : G%(0%,Z%)=G%(L%,Z%) : G%(L%,Z%)=D%(Z%) : NEXT Z%
565 NEXT L%
570 IF P%=0% THEN ; : ; : ; "Valfri SIFFRA f|r tabellen"; : ONERRORGOTO 570 : INPUT W% : P%=1%
575 IF G%(0%,0%)=0% THEN 625
580 ; #C%,G%(0%,1%);"  ";
585 FOR Z%=2% TO 5%
590 IF G%(0%,Z%)<10% THEN ; #C%," ";
595 IF G%(0%,Z%)<100% THEN ; #C%," ";
600 ; #C%,G%(0%,Z%); : NEXT Z% : ; #C%,"   ";
605 IF G%(0%,0%)<10% THEN ; #C%," ";
610 IF G%(0%,0%)<100% THEN ; #C%," ";
615 ; #C%,G%(0%,0%)
620 GOTO 525
625 ; #C% : ; #C%
630 ; #C%,"Ant. rader under 10 r{tt:";I%;"."
635 CLOSE C%
640 ;