1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   LOTTONR2
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 ; CHR$(12%) : ; 'Ant. rader'; : INPUT R% : ; 'Ant. nummer'; : INPUT N%
12 N6%=N%-6% : N5%=N%-5% : N4%=N%-4% : N3%=N%-3% : N2%=N%-2% : N1%=N%-1%
13 DIM S%(R%,N%),V%(75%,3%),G%(40%,3%),T%(20%,3%),R$=N%+N%
14 FOR T=1 TO 1000 : NEXT T : ; CHR$(12%)
15 ; 'Inmatn. av rader (2/1):' : ; 
16 FOR X%=1% TO R%
17 ; 'Rad';TAB(5-INT(LOG(X%)/LOG(10)));X%;
18 INPUT R$ : IF LEN(R$)<>N% THEN 17
19 FOR Y%=1% TO N%
20 IF MID$(R$,Y%,1%)='2' THEN S%(X%,Y%)=1% ELSE S%(X%,Y%)=0%
21 NEXT Y% : NEXT X%
22 FOR T=1 TO 1000 : NEXT T
23 ; CHR$(12%)
24 OPEN 'PR:' ASFILE 1%
25 ; #1%,'Inmatade rader:' : ; #1%
26 FOR X%=1% TO R%
27 R$=''
28 FOR Y%=1% TO N%
29 IF S%(X%,Y%)=1% THEN R$=R$+'X ' ELSE IF S%(X%,Y%)=0% THEN R$=R$+'-'
30 NEXT Y%
31 ; #1%,R$
32 NEXT X%
33 FOR A%=1% TO 3%
34 FOR T=1 TO 1000 : NEXT T
35 ; CHR$(12%)
36 ; #1% : ; #1% : ; #1%
37 ; #1%,' 7   6   5   Fall:'
38 ; #1%,' ---------   ----'
39 FOR T=1 TO 1000 : NEXT T
40 IF A%=2% THEN 63 ELSE IF A%=3% THEN 85
41 FOR K1%=1% TO N6% : FOR K2%=K1%+1% TO N5% : FOR K3%=K2%+1% TO N4% : FOR K4%=K3%+1% TO N3% : FOR K5%=K4%+1% TO N2%
42 FOR K6%=K5%+1% TO N1% : FOR K7%=K6%+1% TO N%
43 ; CUR(1%,5%);K1%;K2%;K3%;K4%;K5%;K6%;K7%;'       '
44 FOR Z%=1% TO 3% : V%(0%,Z%)=0% : NEXT Z% : FOR X%=1% TO R%
45 R0%=S%(X%,K1%)+S%(X%,K2%)+S%(X%,K3%)+S%(X%,K4%)+S%(X%,K5%)+S%(X%,K6%)+S%(X%,K7%)
46 IF R0%<5% THEN R0%=4%
47 V%(0%,R0%-4%)=V%(0%,R0%-4%)+1% : NEXT X%
48 FOR I%=1% TO 75% : IF V%(I%,0%)=0% THEN 54
49 FOR X%=1% TO 3% : IF V%(0%,X%)<>V%(I%,X%) THEN 52
50 NEXT X%
51 V%(I%,0%)=V%(I%,0%)+1% : GOTO 55
52 NEXT I%
53 ; #1%,'#####' : GOTO 58
54 FOR X%=1% TO 3% : V%(I%,X%)=V%(0%,X%) : NEXT X% : GOTO 51
55 NEXT K7% : NEXT K6% : NEXT K5% : NEXT K4% : NEXT K3% : NEXT K2% : NEXT K1%
56 ; : ; : ; TAB(6%);'Garantitabell? SIFFRA';
57 ONERRORGOTO 57 : INPUT W%
58 FOR X%=1% TO 75% : FOR Y%=3% TO 0% STEP -1%
59 IF V%(X%,0%)=0% THEN 107
60 ; #1%,V%(X%,Y%);'  '; : NEXT Y%
61 ; #1%
62 NEXT X%
63 FOR K1%=1% TO N5% : FOR K2%=K1%+1% TO N4% : FOR K3%=K2%+1% TO N3% : FOR K4%=K3%+1% TO N2% : FOR K5%=K4%+1% TO N1%
64 FOR K6%=K5%+1% TO N%
65 ; CUR(1%,5%);K1%;K2%;K3%;K4%;K5%;K6%;'      '
66 FOR Z%=1% TO 3% : G%(0%,Z%)=0% : NEXT Z% : FOR X%=1% TO R%
67 R0%=S%(X%,K1%)+S%(X%,K2%)+S%(X%,K3%)+S%(X%,K4%)+S%(X%,K5%)+S%(X%,K6%)
68 IF R0%<5% THEN R0%=4%
69 G%(0%,R0%-4%)=G%(0%,R0%-4%)+1% : NEXT X%
70 FOR I%=1% TO 40% : IF G%(I%,0%)=0% THEN 76
71 FOR X%=1% TO 3% : IF G%(0%,X%)<>G%(I%,X%) THEN 74
72 NEXT X%
73 G%(I%,0%)=G%(I%,0%)+1% : GOTO 77
74 NEXT I%
75 ; #1%,'#####' : GOTO 80
76 FOR X%=1% TO 3% : G%(I%,X%)=G%(0%,X%) : NEXT X% : GOTO 73
77 NEXT K6% : NEXT K5% : NEXT K4% : NEXT K3% : NEXT K2% : NEXT K1%
78 ; : ; : ; TAB(6%);'Garantitabell? SIFFRA';
79 ONERRORGOTO 79 : INPUT W%
80 FOR X%=1% TO 40% : FOR Y%=3% TO 0% STEP -1%
81 IF G%(X%,0%)=0% THEN 107
82 ; #1%,G%(X%,Y%);'  '; : NEXT Y%
83 ; #1%
84 NEXT X%
85 FOR K1%=1% TO N4% : FOR K2%=K1%+1% TO N3% : FOR K3%=K2%+1% TO N2% : FOR K4%=K3%+1% TO N1% : FOR K5%=K4%+1% TO N%
86 ; CUR(1%,5%);K1%;K2%;K3%;K4%;K5%;'     '
87 FOR Z%=1% TO 3% : T%(0%,Z%)=0% : NEXT Z% : FOR X%=1% TO R%
88 R0%=S%(X%,K1%)+S%(X%,K2%)+S%(X%,K3%)+S%(X%,K4%)+S%(X%,K5%)
89 IF R0%<5% THEN R0%=4%
90 T%(0%,R0%-4%)=T%(0%,R0%-4%)+1% : NEXT X%
91 FOR I%=1% TO 20% : IF T%(I%,0%)=0% THEN 97
92 FOR X%=1% TO 3% : IF T%(0%,X%)<>T%(I%,X%) THEN 95
93 NEXT X%
94 T%(I%,0%)=T%(I%,0%)+1% : GOTO 98
95 NEXT I%
96 ; #1%,'#####' : GOTO 101
97 FOR X%=1% TO 3% : T%(I%,X%)=T%(0%,X%) : NEXT X% : GOTO 94
98 NEXT K5% : NEXT K4% : NEXT K3% : NEXT K2% : NEXT K1%
99 ; : ; : ; TAB(6%);'Garantitabell? SIFFRA';
100 ONERRORGOTO 100 : INPUT W%
101 FOR X%=1% TO 20% : FOR Y%=3% TO 0% STEP -1%
102 IF T%(X%,0%)=0% THEN 106
103 ; #1%,T%(X%,Y%);'  '; : NEXT Y%
104 ; #1%
105 NEXT X%
106 ; : ; CUR(7%,6%);'Siffertips-' : ; CUR(8%,6%);'Jokke.'
107 ; : IF A%<3% THEN ; '"CTRL+C" = stop! Forts{ttning? SIFFRA';
108 ONERRORGOTO 108 : IF A%<3% THEN INPUT C%
109 NEXT A%
110 CLOSE 1%