1 REM Ins{nd av Bo Kullmar SYSOP <1789>    1988-03-08 00.31.32 (KERMIT)
100 REM ******************************
110 REM *                            *
120 REM *  Filnamn : STRYK20.BAC       *
130 REM *  Version 2.0               *
140 REM *  Datum : 1986-11-06 (c)      *
150 REM *                            *
160 REM *  (c) Copyright             *
170 REM *  Conny Westh               *
180 REM *  Larsbergsv. 7 LGH 627     *
190 REM *  181 38  Liding|           *
200 REM *  Tel. 08-767 95 82         *
210 REM *                            *
220 REM *                            *
230 REM ******************************
240 REM *********************************
250 REM ANV[NDA STR[NG-VARIABLER : 
260 REM A$ ANV[NDS SOM MATRISVARIABEL
270 REM B$ ANV[NDS
280 REM I$ ANV[NDS SOM INMATNINGSVARIABEL
290 REM O$ ANV[NDS F\R NAMNET P] OPERAT\REN.
300 REM M$ ANV[NDS
310 REM U$ ANV[NDS SOM U-TIPSRAD
320 REM *****************************
330 REM ANV[NDA NUMERISKA-VARIABLER : 
340 REM N ANV[NDS SOM EN LOKAL R[KNARE
350 REM N1 ANV[NDS SOM EN LOKAL R[KNARE
360 REM N2 ANV[NDS SOM EN LOKAL R[KNARE
370 REM M ANV[NDS SOM EN LOKAL R[KNARE
380 REM V ANTALET KUPONGER
390 REM *****************************
400 REM ANV[NDA FILER : 
410 REM #1 (FIL 1) ANV[NDS TILL SKRIVAREN
420 REM ****************************
430 REM ANV[NDA KODER I TIPSSYSTEMETS
440 REM DATASATSER : 
450 REM X ANGER U-TIPSET.
460 REM - ANGER HALVGARDERING, D[R U-TIPSET EJ DELTAR.
470 REM G ANGER MATEMATISK HELGARDERING
480 REM N ANGER OAVGJORT.
490 REM B ANGER BORTASEGER.
500 REM F ANGER HEMMAVINST OCH OAVGJORT
510 REM Z ANGER HEMMA- EL. BORTASEGER.
520 REM ********************************
530 LET V=16 : REM H[R ANGES ANTALET KUPONGER
540 DIM A$(13,V)=3
550 DIM M$(13)=V
560 DIM U$(13)=1
570 DIM B$=V
580 DIM N1(5) : REM ANTALET S[KRA
590 REM *******************************
600 REM VEM [R OPERAT\REN?
610 GOSUB 3030 : REM MATA IN NAMNET P] OP.
620 REM S[TT U-RADEN TILL 13 ETTOR
630 FOR N=1 TO 13
640 LET U$(N)="1"
650 NEXT N
660 GOSUB 2880 : REM MATAIN DE S[KRA H[R
670 GOSUB 2300 : REM INMATNING AV U-RAD
680 REM *******************************
690 REM DEFINIERA A$-MATRISEN
700 RESTORE 1130 : REM B\RJA L[SA DATA H[R
710 FOR N=1 TO 13
720 FOR N2=1 TO 5
730 IF N=N1(N2) THEN GOTO 760
740 NEXT N2
750 READ M$(N)
760 NEXT N
770 FOR N=1 TO 13
780 FOR N2=1 TO 5
790 IF N=N1(N2) THEN READ M$(N)
800 NEXT N2
810 NEXT N
820 REM *******************************
830 REM 
840 FOR M=1 TO 13
850 FOR N=1 TO V
860 LET B$=MID$(M$(M),N,1)
870 LET A$(M,N)=B$
880 REM 
890 REM 
900 REM 
910 REM 
920 REM 
930 REM 
940 REM 
950 REM 
960 NEXT N
970 NEXT M
980 GOSUB 1700 : REM DEFINIERA SKRIVAREN
990 GOSUB 1290 : REM SKRIV UT P] SK[RMEN
1000 GOSUB 1390 : REM S[TT IN U-TIPSET I SYSTEMET
1010 ONERRORGOTO 1010
1020 ; 
1030 ; "DU KAN F] MAXIMALT 20 KOPIOR!"
1040 ; 
1050 ; "HUR M]NGA KOPIOR VILL DU HA:"; : INPUT I
1060 IF I>20 OR I<0 THEN GOTO 1010
1070 FOR X=1 TO I
1080 GOSUB 1870 : REM SKRIV UT P] PRINTERN
1090 NEXT X
1100 ; 
1110 ; "PROGRAMMET [R KLART"
1120 END 
1130 REM *******************************
1140 REM DATASATSERNA F\R SYSTEMET
1150 DATA GGGGXX--XX--XX--
1160 DATA XX--GGGGXX----XX
1170 DATA XX----XXGGGGXX--
1180 DATA XX--XX----XXGGGG
1190 DATA X-X-X-X-X-X-X-X-
1200 DATA -X-XX-X--X-XX-X-
1210 DATA -X-XX-X-X-X--X-X
1220 DATA -X-X-X-XX-X-X-X-
1230 DATA XXXXXXXXXXXXXXXX
1240 DATA XXXXXXXXXXXXXXXX
1250 DATA XXXXXXXXXXXXXXXX
1260 DATA XXXXXXXXXXXXXXXX
1270 DATA XXXXXXXXXXXXXXXX
1280 REM *******************************
1290 REM ******************************
1300 REM UTSKRIFT P] SK[RMEN
1310 ; : ; 
1320 ; "SYSTEM U 8-0-810"
1330 ; 
1340 ; "COPYWRIGHT CONNY WESTH 1986-11-04"
1350 ; 
1360 ; 
1370 ; : ; "V[NTA MEDAN PROGRAMMET K\RS!"
1380 RETURN 
1390 REM ******************************
1400 REM BYT ALLA X MOT U-TIPSET
1410 FOR M=1 TO 13
1420 FOR N=1 TO V
1430 IF U$(M)="1" AND A$(M,N)="X" THEN LET A$(M,N)="1"
1440 IF U$(M)="1" AND A$(M,N)="-" THEN LET A$(M,N)="X2"
1450 IF U$(M)="1" AND A$(M,N)="G" THEN LET A$(M,N)="1X2"
1460 IF U$(M)="1" AND A$(M,N)="B" THEN LET A$(M,N)="2"
1470 IF U$(M)="1" AND A$(M,N)="N" THEN LET A$(M,N)="X"
1480 IF U$(M)="X" AND A$(M,N)="X" THEN LET A$(M,N)="X"
1490 IF U$(M)="X" AND A$(M,N)="-" THEN LET A$(M,N)="12"
1500 IF U$(M)="X" AND A$(M,N)="G" THEN LET A$(M,N)="1X2"
1510 IF U$(M)="X" AND A$(M,N)="B" THEN LET A$(M,N)="2"
1520 IF U$(M)="X" AND A$(M,N)="N" THEN LET A$(M,N)="1"
1530 IF U$(M)="2" AND A$(M,N)="X" THEN LET A$(M,N)="2"
1540 IF U$(M)="2" AND A$(M,N)="-" THEN LET A$(M,N)="1X"
1550 IF U$(M)="2" AND A$(M,N)="G" THEN LET A$(M,N)="1X2"
1560 IF U$(M)="2" AND A$(M,N)="B" THEN LET A$(M,N)="1"
1570 IF U$(M)="2" AND A$(M,N)="N" THEN LET A$(M,N)="X"
1580 REM 
1590 REM 
1600 REM 
1610 REM 
1620 REM 
1630 REM 
1640 REM 
1650 REM 
1660 NEXT N
1670 NEXT M
1680 RETURN 
1690 REM ****************************
1700 REM ******************************
1710 REM *                            *
1720 REM *  Filnamn : SKRIVARE.BAC      *
1730 REM *  Version 2.0               *
1740 REM *  Datum : 1986-07-23 (c)      *
1750 REM *                            *
1760 REM *  (c) Copyright             *
1770 REM *  Conny Westh               *
1780 REM *  Larsbergsv. 7 LGH 627     *
1790 REM *  181 38  Liding|           *
1800 REM *  Tel. 08-767 95 82         *
1810 REM *                            *
1820 REM *                            *
1830 REM ******************************
1840 OPEN "PR:VSA30A72.5" ASFILE 1
1850 OPEN "PR:" ASFILE 1
1860 RETURN 
1870 REM ******************************
1880 REM UTSKRIFT P] PRINTERN
1890 REM ; #1CHR$(12) :  REM BLANK SIDA
1900 ; #1
1910 ; #1"SYSTEM RU 8-0-810"
1920 ; #1
1930 ; #1"Filnamn:STRYK20.BAC"
1940 ; #1"Version 2.0"
1950 ; #1"Datum:1986-11-06 (c)"
1960 ; #1
1970 ; #1"(c) Copyright"
1980 ; #1"Conny Westh"
1990 ; #1"Larsbergsv. 7 LGH 627"
2000 ; #1"181 38  Liding| "
2010 ; #1"Tel. 08-767 95 82"
2020 ; #1
2030 ; #1"U-RADEN TILLH\R ";O$
2040 ; #1"MATCH NR:";
2050 FOR N=1 TO 5
2060 ; #1N1(N);
2070 NEXT N
2080 ; #1" [R DINA 5 S[KRA MATCHER."
2090 ; #1
2100 ; #1
2110 ; #1"U-RAD";
2120 FOR N=1 TO 16
2130 ; #1TAB(N*4+2)N;
2140 NEXT N
2150 ; #1
2160 ; #1"___________________________________________________________________________"
2170 FOR M=1 TO 13
2180 IF M=4 OR M=7 OR M=10 OR M=14 THEN ; #1"__________________________________________________________________________"
2190 ; #1U$(M);
2200 FOR N=1 TO 16
2210 ; #1TAB(N*4+3)A$(M,N);
2220 NEXT N
2230 ; #1
2240 NEXT M
2250 ; #1"___________________________________________________________________________"
2260 ; #1"       24  6   192 48  12  48  24  96  12  48  24  96  12  48  24  96"
2270 GOSUB 2530 : REM SKRIVUT garantitabellen
2280 ; #1CHR$(12) : REM N[STA SIDA
2290 RETURN 
2300 REM ******************************
2310 REM VILKEN U-RAD SKALL FINNAS
2320 ONERRORGOTO 2320
2330 ; 
2340 ; "VILL DU TIPPA MED EN UTG]NGSRAD (J/N)";
2350 GET I$
2360 IF I$="J" OR I$="j" THEN GOSUB 2390
2370 RETURN 
2380 REM *****************************
2390 REM H[R MATAS U-RADEN IN 
2400 FOR N=1 TO 13
2410 ONERRORGOTO 2410
2420 ; 
2430 ; "U-TIPS F\R MATCH NR:";N;" SKALL VARA:";
2440 INPUT I$
2450 IF I$="1" THEN GOTO 2490
2460 IF I$="X" THEN GOTO 2490
2470 IF I$="2" THEN GOTO 2490
2480 GOTO 2410
2490 LET U$(N)=I$
2500 NEXT N
2510 RETURN 
2520 REM ******************************
2530 REM H[R SKRIVS garantitabellen ut
2540 ; #1
2550 ; #1
2560 ; #1"Garantitabell f|r stryktipssystemet RU 8-0-810."
2570 ; #1
2580 ; #1"Helt{ckning av 1-7 felaktiga U-tips. Systemet {r 1-felsreducerat."
2590 ; #1"Det betyder att om dina s{kra matcher g}r in s} har Du garanterat 12 r{tt."
2600 ; #1"Om exakt 1 av dina s{kra spricker  s} har Du garanterat 11 r{tt."
2610 ; #1"Om 2 av dina s{kra spricker s} har Du garanterat 10 r{tt."
2620 ; #1"Om 3 av dina s{kra spricker s} har Du 9 r{ttsgaranti och har 11,4% chans p} 10."
2630 ; #1
2640 ; #1"GARANTITABELL:"
2650 ; #1"________________________________________"
2660 ; #1"Fel i    Antal r{tt"
2670 ; #1"U-rad  13  12   11    10  Chans    %"
2680 ; #1"________________________________________"
2690 ; #1"  8    -   1    11    52   1:1   100"
2700 ; #1"  7    1   8    27    60   1:8    12,5"
2710 ; #1"  7    -   1    11    52   7:8    87,5"
2720 ; #1"  6    1  7-8 20-27 44-60  1:7    14,3"
2730 ; #1"  6    -  1-2 11-18 52-68  7:8    87,5"
2740 ; #1"  5    1  6-7 14-20 35-44  1:8    12,5"
2750 ; #1"  5    -  1-2 11-18 52-68  7:8    87,5"
2760 ; #1"  4    1  5-6  9-14 33-35  4:35   11,4"
2770 ; #1"  4    -  1-2 11-18 52-67 31:35   88,6"
2780 ; #1"  3    1  4-5  5-9  33-36  1:8    12,5"
2790 ; #1"  3    -  1-2 12-17 56-64  7:8    87,5"
2800 ; #1"  2    1  3-4  2-5  36-44  1:7    14,3"
2810 ; #1"  2    -  1-2 13-16 56-64  6:7    85,7"
2820 ; #1"  1    1   3    2     44   1:7    14,3"
2830 ; #1"  1    -   2    16    56   6:7    85,7"
2840 ; #1"  0    -   2    16    56   1:1   100"
2850 ; #1"________________________________________"
2860 RETURN 
2870 REM **************************
2880 REM VILKA MATCHER SKALL VARA S[KRA
2890 FOR N=1 TO 5
2900 ONERRORGOTO 2900
2910 ; 
2920 ; "VILKEN MATCH SKALL VARA S[KER NR:";N;
2930 INPUT I
2940 IF I<1 THEN GOTO 2900
2950 IF I>13 THEN GOTO 2900
2960 IF I<>INT(I) THEN GOTO 2900
2970 FOR N2=1 TO 5
2980 IF I=N1(N2) THEN GOTO 2900
2990 NEXT N2
3000 LET N1(N)=I
3010 NEXT N
3020 RETURN 
3030 REM INMATNING AV NAMNET P] OPERAT\REN SAMT EV ANDRA SAKER.
3040 ; 
3050 ; "HEJ!"
3060 ; "Jag heter Conny Westh och jag skall"
3070 ; "hj{lpa dig att tippa stryktips med ett"
3080 ; "reducerat tipssystem som helgarderar"
3090 ; "inte mindre {n ]TTA matcher."
3100 ; 
3110 ; "Jag vill veta ditt f|r- och efternamn,"
3120 ; "dagens datum och vilken tipsomg}ng."
3130 ; 
3140 ; "ETT EXEMPEL:"
3150 ; "Conny Westh 1986-10-25 omg}ng 43."
3160 INPUTLINE O$
3170 RETURN 
3180 REM *************************************************************************
3190 REM Systemets ledtext.
3200 ; #1
3210 ; #1"Detta system {r en riktig godbit f|r"
3220 ; #1"den som kan konsten att hitta"
3230 ; #1"fem ogarderade matcher. ]tta matcher"
3240 ; #1"helgarderas  p} 196 rader. Utskriften"
3250 ; #1"sker p} 22 kuponger, i 20 matematiska"
3260 ; #1"system och 2 kuponger med vardera"
3270 ; #1"10 enkelrader."
3280 RETURN 
3290 REM *********************************************************************
3300 REM Garantitabellen
3310 RETURN 
3320 REM ****************************************************program-slut****************