1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   UMSYSTEM
3 REM ! Utg}va
4 REM ! av (c) Thord Johansson
5 REM ! Minne 16 Kbytes
6 REM ! Ins{nt av 666
7 REM +++++++++++++++++++++++++++++++++
8 REM 
9 REM Screened by +TCP+
10 REM 
11 REM * #############################
12 REM * GARANTITABELLER UM-SYSTEM! **
13 REM * #############################
14 REM *
15 REM * Pr|va f|rst med SM] system! 
16 REM * D{refter kan Ni pr|va st|rre!
17 REM * G{rna system ur TIPSB\CKER -
18 REM * tills Ni f|rst}r vad program-
19 REM * met g|r...
20 REM *
21 REM * Av Tordh H. Johansson (666)
22 REM *    Box 40019
23 REM *    951 04  LULE] 4 *
24 REM *
25 REM * Skiftg}ende j{rnverksarbetare
26 REM * och specialist p} REDUCERADE
27 REM * SIFFERTIPSSYSTEM sen 20 }r *
28 REM *
29 REM * U-tips = ETTA i NEUTRALA
30 REM * NYCKLAR (se TIPSB\CKER)! *
31 REM *
32 REM * De matcher Ni satt i U-tips 
33 REM * s{tts av datorn automatiskt
34 REM * till ETTA! Kom bara ih}g att
35 REM * h}lla Er 'inom ramen' n{r Ni
36 REM * skriver in Era enkelrader...
37 REM * Multipl.-system g}r dessv{rre
38 REM * ej att mata in, utan m}ste 
39 REM * 'delas upp' i enkelrader...
40 REM * Tipstecknet 'X' kan - om s}
41 REM * |nskas - skrivas '3'. Raderna
42 REM * skrivs i sidled (rad/return)!
43 REM * Detta program TAR TID - det
44 REM * f}r Ni kallt r{kna med... Men
45 REM * det {r OERH\RT AVANCERAT och
46 REM * SUPERSNABBT i alla fall...
47 REM *
48 REM * #############################
49 REM *
50 REM * SE [VEN 'MITT' ANDRA PROGRAM
51 REM * LOTTOSYS.GAR! Gjort av Jan
52 REM * Edstr|m och mig (jag har d{r
53 REM * kl{ckt id`n till de mest v}g-
54 REM * halsade och AVANCERADE LOOPAR
55 REM * v{rlden n}gonsin sk}dat)!!!
56 REM * Urs{kta skrytet... MEN UTAN
57 REM * EDSTR\MS HJ[LP HADE DET
58 REM * ALDRIG BLIVIT DET SUPERPROG-
59 REM * RAM SOM DET TROTS ALLT [R!
60 REM * Och vi har flera 'varianter'!
61 REM *
62 REM * #############################
63 REM *
64 REM * Kan m|jligen N]GON skriva
65 REM * detta progr. i ABC80-FORTRAN?
66 REM * Jag har kompilator...
67 REM * Det g}r {ven bra i BASIC -
68 REM * men d} vill jag ha det som
69 REM * h{r skrivits 2-DIMENSIONELLT
70 REM * '1-DIMENSIONELLT'!
71 REM * D} kan jag SJ[LV l{tt skriva
72 REM * om det till FORTRAN... [r li-
73 REM * te ovan med FORTRAN (har ju
74 REM * nyss f}tt kompilatorn).
75 REM * H\R AV ER! *
76 REM *
77 REM * #############################
78 REM *
79 REM * TA BORT 'REM' - UTOM ADRESSEN
80 REM * MIN F\RST]SS...
81 REM *
82 REM * #############################
83 REM 
84 ; CHR$(12%) : ; "\nskat radantal"; : INPUT R%
85 ; "Hur m}nga matcher |nskas"; : INPUT \%
86 DIM T%(R%,\%),V%(\%),E%(\%),D%(5%)
87 \2%=\%+2% : \1%=\%+1%
88 FOR T=1 TO 1000 : NEXT T : ; CHR$(12%)
89 ; "Ant. variabler i matcherna (LODR[TT!):" : ; 
90 FOR Z%=1% TO \% : E%(Z%)=1% : ; Z%; : INPUT V%(Z%) : NEXT Z% : E%(\%)=0%
91 ; : ; "Ant. matematiska"; : INPUT M%
92 ; "Ant. U-tips"; : INPUT U%
93 U2%=U%*30% : U3%=\1%-U%
94 DIM G%(U2%,5%)
95 FOR T=1 TO 2000 : NEXT T : ; CHR$(12%) : ; "Inmatning av rader (1X2/132)! Enl."
96 ; "RAMEN med";M%;" MATEM. f|rst. SKRIV:" : ; 
97 FOR X%=1% TO R%
98 ; "Rad";TAB(5-INT(LOG(X%)/LOG(10)));X%;
99 INPUT R$ : IF LEN(R$)<>\% THEN 98
100 FOR Y%=1% TO \%
101 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%
102 NEXT Y% : NEXT X%
103 FOR T=1 TO 2000 : NEXT T : ; CHR$(12%)
104 OPEN "PR:" ASFILE 6%
105 ; #6%,"INMATADE RADER:" : ; #6%
106 FOR X%=1% TO R% : FOR Y%=1% TO \%
107 IF T%(X%,Y%)=1% THEN ; #6%,"1 "; ELSE IF T%(X%,Y%)=2% THEN ; #6%,"2 "; ELSE ; #6%,"X ";
108 NEXT Y% : ; #6% : NEXT X%
109 ; #6% : ; #6% : ; #6%
110 ; #6%,"G A R A N T I T A B E L L : " : ; #6%
111 ; #6%,"UT :  13  12  11  10  Chans:"
112 ; #6%,"--    --------------  -----"
113 FOR T=1 TO 2000 : NEXT T : ; CHR$(12%)
114 K%=\% : F%=0%
115 E%(K%)=E%(K%)+1% : IF NOT E%(K%)>V%(K%) THEN 118
116 E%(K%)=1% : K%=K%-1%
117 IF K%=0% THEN 140 ELSE 115
118 U1%=0% : FOR Z%=U3% TO \%
119 IF E%(Z%)=1% THEN U1%=U1%+1%
120 NEXT Z%
121 FOR Z%=1% TO 5% : G%(0%,Z%)=0% : NEXT Z%
122 G%(0%,1%)=U1%
123 FOR X%=1% TO R%
124 A%=0% : FOR Y%=1% TO \%
125 IF E%(Y%)=T%(X%,Y%) THEN A%=A%+1%
126 NEXT Y%
127 IF A%>=\%-3% THEN G%(0%,\2%-A%)=G%(0%,\2%-A%)+1%
128 IF A%>F% THEN F%=A%
129 NEXT X%
130 FOR L%=1% TO U2%
131 IF G%(L%,0%)=0% THEN 136
132 FOR Z%=1% TO 5% : IF NOT G%(0%,Z%)=G%(L%,Z%) THEN 135
133 NEXT Z%
134 G%(L%,0%)=G%(L%,0%)+1% : GOTO 137
135 NEXT L% : ; "# SPARSYSTEM IGEN!!! #" : GOTO 140
136 FOR Z%=1% TO 5% : G%(L%,Z%)=G%(0%,Z%) : NEXT Z% : GOTO 134
137 N%=N%+1% : ; N%;
138 IF F%<\%-3% THEN I%=I%+1%
139 GOTO 114
140 FOR Z%=0% TO 5% : G%(0%,Z%)=0% : NEXT Z%
141 FOR L%=1% TO U2%
142 FOR Z%=1% TO 5%
143 IF G%(L%,Z%)=G%(0%,Z%) THEN 145
144 IF G%(L%,Z%)>G%(0%,Z%) THEN 147 ELSE 148
145 NEXT Z%
146 GOTO 148
147 FOR Z%=0% TO 5% : D%(Z%)=G%(0%,Z%) : G%(0%,Z%)=G%(L%,Z%) : G%(L%,Z%)=D%(Z%) : NEXT Z%
148 NEXT L%
149 IF P%=0% THEN ; : ; : ; "Valfri SIFFRA f|r tabellen"; : ONERRORGOTO 149 : INPUT W% : P%=1%
150 IF G%(0%,0%)=0% THEN 160
151 ; #6%,G%(0%,1%);"  ";
152 FOR Z%=2% TO 5%
153 IF G%(0%,Z%)<10% THEN ; #6%," ";
154 IF G%(0%,Z%)<100% THEN ; #6%," ";
155 ; #6%,G%(0%,Z%); : NEXT Z% : ; #6%,"   ";
156 IF G%(0%,0%)<10% THEN ; #6%," ";
157 IF G%(0%,0%)<100% THEN ; #6%," ";
158 ; #6%,G%(0%,0%)
159 GOTO 140
160 ; #6% : ; #6%
161 ; #6%,"Ant. rader under 10 r{tt:";I%;"."
162 CLOSE 6%
163 ;