1 REM +-------------------------------+
2 REM ! Program ..... NORRTRAV.BAS    !
3 REM ! Utg}va ?     1980-01-28       !
4 REM ! Av (c) Sune Egenmalm <346>    !
5 REM ! F|r 16kbytes minne            !
6 REM +-------------------------------+
7 REM 
8 REM Screened by :
9 REM Allan Varcoe & G|ran Olsson
10 REM 
70 ; CHR$(12)
80 ; 
90 ; '*VILL DU HA PROGRAMINFORMATION?'
100 ; 
110 ; 'SVARA JA ELLER NEJ (J/N)';
120 GET P$
130 IF P$="J" OR P$="j" THEN 150
140 IF P$="N" OR P$="n" THEN 310 ELSE ; CUR(4,0)SPACE$(39) : GOTO 110
150 ; CHR$(12)
160 ; : ; 'PROGRAMINFORMATION' : ; 
170 ; 'GENOM ATT [NDRA Z P] RAD 320 KAN'
180 ; 'DU F] UPP TILL ]TTA H[STAR ATT T[VLA'
190 ; 'SAMTIDIGT'
200 ; 'SK[RMEN TILL]TER INTE FLER'
210 ; 
220 ; 'EFTER T[VLINGARNAS SLUT ERH]LLER DU UPP-GIFT OM TOTAL OMS[TTNING'
230 ; 'OCH KASSABEH]LLNING MED ETT *-TECKEN'
240 ; 
250 ; 'OM FLERA SPELARE SATSA P] SAMMA H[ST    ANGE TOTALSUMMAN'
260 ; 
270 ; 'NTS BEH]LLNING ANV[NDS F\R UNDERH]LL OCHF\RB[TTRING AV BANOR OCH STALLAR'
280 ; : ; 'HAR DU L[ST F[RDIGT (J/N)';
290 GET P$
300 IF P$="N" OR P$="n" THEN 290
310 ; CHR$(12)
320 Z=5
330 A2=1 : B=0 : C=31 : G=0 : N=0 : Q=0 : R=250 : S2=1 : V=1
340 DIM A(20),B(20),D(20),G(20),M(20)
350 FOR I=1 TO Z : W(I)=0 : D(I)=0 : NEXT I
360 ; CHR$(12);
370 ; CUR(4,2);STRING$(38,42)
380 ; CUR(5,2);'*';CUR(5,39);'*'
390 ; CUR(6,2);'* N O R R V A L L A  T R A V B A N A *'
400 ; CUR(7,2);'*';CUR(7,39);'*'
410 ; CUR(8,2);STRING$(38,42)
420 ; : ; 
430 ; TAB(14);'H[LSAR ER'
440 ; : ; 
450 ; 'HJ[RTLIGT V[LKOMNA TILL DAGENS L\PNINGAR'
460 FOR I=1 TO 10000 : NEXT I
470 ; CHR$(12)
480 ; CUR(5,10);'I VARJE LOPP KAN NI SATSA P]'
490 ; 'N]GON AV DE';Z;' H[STARNA (Nr 1-'Z;')'
500 ; 
510 ; 'F\RE LOPPEN KOMMER EN TABELL \VER'
520 ; 'ODDSEN ATT VISAS'
530 ; 
540 ; 'EFTER VARJE LOPP KOMMER EN RESULTAT-'
550 ; 'TABELL ATT VISAS'
560 ; : ; : ; CUR(21,0);'VILL DU SE TRAVS[LLSKAPETS '
570 ; 'T[VLINGSBEST[MMELSER (J/N)'
580 GET A$
590 IF A$="J" OR A$="j" THEN 630
600 IF A$="N" OR A$="n" THEN 810
610 ; CUR(20,0);'VAR V[NLIG SVARA J ELLER N' : GOTO 560
620 ; CUR(21,0);SPACE$(30)
630 ; CHR$(12)
640 ; 'TRAVS[LLSKAPETS T[VLINGSBEST[MMELSER'
650 ; STRING$(36,95)
660 ; : ; : ; '1. MINSTA INSATS [R 2:-KR.' : ; 
670 ; '2. OM DU INTE VILL SATSA P] EN H[ST'
680 ; '   SKALL DU "SATSA" EN NOLLA (0)' : ; 
690 ; '3. UPP]T BEGR[NSAS INSATSEN AV INNE-'
700 ; '   H]LLET I PL]NBOKEN' : ; 
710 ; '4. NORRVALLA TRAVS[LLSKAP (NTS) F\RBEH]L   LER SIG R[TTEN'
720 ; '   ATT SATSA 1 KR P] OSATSAD H[ST OCH'
730 ; '   OCKS] BEH]LLA EVENTUELLT UTFALLEN'
740 ; '   VINST.'
750 ; : ; CUR(22,0);'HAR DU L[ST F[RDIGT (J/N)'
760 GET B$
770 IF B$="J" OR B$="j" THEN 810
780 IF B$="N" OR B$="n" THEN 630
790 ; CUR(21,0);'VAR V[NLIG SVARA J ELLER N' : GOTO 750
800 ; CUR(22,0);SPACE$(30)
810 ; CHR$(12)
820 ; : ; : ; 
830 ; 'OM ALLA [R KLARA,KAN NI B\RJA SATSA NU'
840 ; : ; 
850 ; 'LOPP:';V
860 ; : ; 
870 REM **** T O T A L I S A T O R ****
880 ONERRORGOTO 2400
890 FOR I=1 TO Z
900 ; 'P] H[ST NR ';I;' SATSAS KR:'; : INPUT A(I)
930 NEXT I
940 LET T1=A(1)+A(2)+A(3)+A(4)+A(5)+A(6)+A(7)+A(8)
950 FOR I=1 TO 5 : ; CHR$(7) : NEXT I
960 ; CHR$(12)
970 ; : ; : ; TAB(10);'TOTALISATORN ST[NGD'
980 ; TAB(10);"===================" : ; : ; 
990 ; 'F\LJANDE ODDS G[LLER:' : ; 
1000 ; 'H[ST';TAB(5);'SEGRAR','SATSAD','ODDS'
1010 ; 
1020 L2=T1
1030 FOR I=1 TO Z
1040 IF A(I)=1 THEN B=B+A(I)
1050 NEXT I
1060 LET T2=T1-(T1*10/100)
1070 FOR I=1 TO Z
1080 L(I)=INT(T2/A(I)*100+.5)/100
1090 NEXT I
1100 FOR I=1 TO Z
1110 IF A(I)=1 THEN 1120 ELSE 1140
1120 ; I;TAB(5);W(I),A(I);' NTS',L2
1130 GOTO 1150
1140 ; I;TAB(5);W(I),A(I),L(I)
1150 NEXT I
1160 ; 
1170 FOR I=1 TO 10000 : NEXT I
1180 ; CHR$(12);
1190 ; CUR(1,13);'N O R R V A L L A'
1200 IF N<>0 THEN 1350
1210 ; 'LOPP:';V
1220 ; 'TID :';N
1230 ; "   I===============================I"
1240 FOR M=1 TO Z
1250 ; M;TAB(D(M));" /(')' ";TAB(36);M
1260 IF M=Z THEN 1280
1270 ; "   I-------------------------------I"
1280 NEXT M
1290 ; "   I===============================I"
1300 ; CUR(21,0);SPACE$(30)
1310 ; : ; CUR(21,0);'F\R START,TRYCK P] TANGENTEN "G"' : GET P$
1320 IF P$<>"G" THEN 1310
1330 ; CUR(21,0);SPACE$(35)
1340 REM ****************
1350 FOR J=1 TO Z
1360 IF D(J)>=C THEN 1660
1370 NEXT J
1380 FOR A3=1 TO 3
1390 RANDOMIZE 
1400 A=RND(0)
1410 I=1/Z
1420 FOR J=1 TO Z
1430 IF A>I THEN 1460
1440 K=J
1450 J=Z
1460 I=I+1/Z
1470 NEXT J
1480 J=K
1490 D(J)=D(J)+S2
1500 IF D(J)=C THEN 1520
1510 NEXT A3
1520 N=N+(S2*A3)
1530 IF N<>0 THEN 1560
1540 GOTO 1200
1550 REM *****************
1560 ; CUR(0,0);
1570 ; : ; 
1580 ; 'LOPP:';V
1590 ; 'TID :';N
1600 ; 
1610 FOR M=1 TO Z
1620 ; M;TAB(D(M));" /(')' "
1630 ; 
1640 NEXT M
1650 GOTO 1200
1660 W(J)=W(J)+1
1670 OUT 6,7 : FOR F=1 TO 1000 : NEXT F : OUT 6,0
1680 ; 
1690 FOR I=1 TO 5000 : NEXT I
1700 ; CHR$(12);
1710 ; TAB(16);'RESULTAT'
1720 ; TAB(16);STRING$(8,61)
1730 ; 'LOPP NR ';V;' VANNS AV H[ST NR ';J
1740 ; 
1750 ; 'VINNARTID ';N
1760 IF N<R THEN 1780
1770 GOTO 1820
1780 ; 'NYTT BANREKORD F\R IDAG'
1790 ; 'DET GAMLA SLAGET MED ';R-N
1800 R=N
1810 Q=J
1820 ; 
1830 ; 'H[ST';TAB(5);' SATSAD',' ODDS',' VINNER'
1840 ; 
1850 U(J)=W(J)
1860 FOR I=1 TO Z
1870 IF U(I)<>0 THEN 1930
1880 IF A(I)=1 THEN 1890 ELSE 1910
1890 ; I;TAB(5);A(I);' NTS',L2,U(I);' KR.'
1900 GOTO 1990
1910 ; I;TAB(5);A(I),L(I),U(I);' KR.'
1920 GOTO 1990
1930 IF A(I)<>1 THEN 1970
1940 U(I)=L2*1
1950 ; I;TAB(5);A(I);' NTS',L2;TAB(23);'***>',U(I);' KR.'
1960 GOTO 1990
1970 U(I)=L(I)*A(I)
1980 ; I;TAB(5);A(I),L(I);TAB(23);'***>',U(I);' KR.'
1990 NEXT I
2000 ; : ; 'BANREKORDET ';R;' INNEHAS AV H[ST ';Q
2010 FOR I=1 TO Z
2020 IF U(I)<>0 THEN 2040
2030 GOTO 2080
2040 IF L2=U(I) THEN 2050 ELSE 2070
2050 E=T1
2060 GOTO 2080
2070 E=T1-B-U(I)
2080 NEXT I
2090 G=G+E
2100 H=H+T1
2110 ; 
2120 ; CUR(22,0);'BLIR DET N]GOT MER LOPP (J/N)'; : GET P$
2130 IF P$="J" THEN 2170
2140 IF P$="N" THEN 2250
2150 ; CUR(21,0);'VAR V[NLIG SVARA J ELLER N' : GOTO 2120
2160 ; CUR(22,0);SPACE$(30)
2170 ; CHR$(12)
2180 V=V+1
2190 N=0
2200 FOR I=1 TO Z : D(I)=0 : NEXT I
2210 FOR I=1 TO Z : U(I)=0 : NEXT I
2220 FOR I=1 TO Z : A(I)=0 : NEXT I
2230 FOR I=1 TO Z : B=0 : NEXT I
2240 GOTO 810
2250 ; CHR$(12)
2260 ; CUR(8,0);
2270 ; 'NORRVALLAS TRAVS[LLSKAP TACKAR'
2280 ; 
2290 ; 'F\R GOD "KAMP",VI [ L S K A R  DINA'
2300 ; 
2310 ; 'PENGAR !!'
2320 ; : ; 
2330 ; 'V [ K O M M E N  ]TER !!!'
2340 ; CUR(22,0)'*?' : GET P$
2350 IF P$<>"*" THEN 2340
2360 ; CHR$(12)
2370 ; CUR(10,0)'TOTAL OMS[TTNING ';H;' KR'
2380 ; CUR(12,0)'NTS BEH]LLNING ';G;' KR'
2390 GOTO 2410
2400 ; : ; 'F\RS\K IGEN !' : ; : GOTO 880
2410 END