100 REM Ins{nt av 3176 110 ! ********************************************************************** 120 ! Program YATZY80K.800 Utg}va 1.0 1984-07-14 130 ! av Stefan Rundgren 140 ! Ins{nd av 3176 150 ! F|r ABC800M ABC802 ABC806 160 ! Testad p} ABC802 170 ! 180 ! Screened by --"-TCP-"-- 190 ! ********************************************************************** 200 ! 210 ! 220 EXTEND 230 FLOAT 240 RANDOMIZE 250 ! 260 ! 270 ! * Startsk{rm * 280 ! 290 ; CHR$(12%) CUR(0%,61%) TIME$ 300 ; STRING$(80%,42%) CUR(1%,29%) ' Yatzy f|r 4:a ' 310 ; CUR(4%,10%) 'KAN NI REGLERNA (J/N)?:___ PF1-PF8 = Avsluta.' 320 ; CUR(4%,34%); : GET Regler$ 330 IF ASCII(Regler$)-191%>=1% AND ASCII(Regler$)-191%<=8% 340 ELSE 350 340 ; CHR$(12%) CUR(0%,61%) TIME$ CUR(23%,0%) '==> Inl{sning av huvudmenyn p}g}r!'; : CHAIN "HUVMENY" 350 IF INSTR(1%,' Jj',Regler$)>1% 1520 ELSE IF INSTR(1%,' Nn',Regler$)=0% Sop%=FNTon% : GOTO 320 360 ! 370 ! 380 ! * Spelregler * 390 ! 400 ; CHR$(12%) 410 ; " REGLER F\R YATZY " 420 ; "==========================" 430 ; CUR(5%,0%) "YATZY spelas med 5 t{rningar. Antalet deltagare max 4." 440 ; 450 ; "Spelet g}r ut p} att uppn} s} m}nga som m|jligt av de t{rningskombinationer som" 460 ; "finns angivna p} Yaty-prottokollet." 470 ; 480 ; "Segrare {r den som uppn}tt h|gsta po{ngsumma, sedan protokollet fyllts f|r samt-" 490 ; "liga deltagare." 500 ; 510 ; "Varje g}ng Ni st}r i tur, har Ni r{tt till tre t{rningskast, men Ni {r inte" 520 ; "tvungen anv{nda alla tre kasten. Ni avg|r sj{lv, vilka t{rningar Ni vill kasta " 530 ; "om." 540 ; : ; : ; 550 ; "EXEMPEL 1: F|rsta kastet ger 6-6-4-5-1." 560 ; "Ni l}ter sexorna ligga och kastar om de andra tre t{rningarna. Andra kastet ger" 570 ; "6-3-1. Sexan f}r ligga och Ni anv{nder tv} t{rningar i tredje kastet. Detta ger" 580 ; "2-2. Ni har d} f}tt K]K 6-6-6-2-2 v{rd 22 po{ng, d. v. s. summan av t{rningarnas" 590 ; "|gon. po{ngen antecknas vid K]K i protokollet." 600 ; CUR(23%,20%) "TRYCK P] PF1-tangenten F\R SIDA 2."; : GET Sida2$ 610 IF ASCII(Sida2$)<>192% 600 620 ; CHR$(12%) 630 ; "EXEMPEL 2: F|rsta och andra kasten lika med Exempel 1. I tredje kastet (med tv}" 640 ; "t{rningar) visar dessa 2-4. Resultat av omg}ngen har endast blivit tretal i sex-" 650 ; "or: 6-6-6-2-4. Po{ngen som blir 18 (summan av tretalet), noteras antingen vid " 660 ; "SEXOR p} |vre halvan av protokollet eller vid TRETAL. [r ocks} TRETAL upptagna," 670 ; "kan CHANS anv{ndas, varvid summan av alla fem t{rningarna (i detta fall 24) f}r" 680 ; "antecknas. Skulle {ven CHANS vara upptagen, tvingas Ni s{tta en nolla vid n}gon" 690 ; "av de rubriker som {r lediga." 700 ; : ; : ; 710 ; "Av Exempel 2 framg}r att varje rubrik i protokollet bara f}r anv{ndas en g}ng." 720 ; "I det fall Ni tvingas skriva en nolla vid en rubrik, r{knas den ocks} som upp-" 730 ; "tagen i forts{ttningen." 740 ; : ; 750 ; " Rubriker i protokollet har f|ljande betydelse:" 760 ; 770 ; "ETTOR: H{r kan Ni anteckna kast inneh}llande 1,2,3,4 eller 5 ettor. " 780 ; " Exempel: 1-1-3-5-6, 1-1-1-2-4, etc." 790 ; : ; 800 ; CUR(23%,20%) "TRYCK P] PF1-tangenten F\R SIDA 3."; : GET Sida3$ 810 IF ASCII(Sida3$)<>192% 800 820 ; CHR$(12%) 830 ; "TV]OR: H{r kan Ni anteckna kast inneh}llande, 1,2,3,4 eller 5 tv}or." 840 ; " Exempel 2-2-1-4-5, 2-2-2-3-6, etc." 850 ; : ; 860 ; "TREOR:" 870 ; "FYROR: F|r dessa g{ller motsvarande regler som" 880 ; "FEMMOR: f|r ETTOR och TV]OR." 890 ; "SEXOR:" 900 ; : ; 910 ; "Ett kast med 1-3-4-5-6 antecknas vid n}gon av rubrikerna ETTOR eller " 920 ; "TREOR-SEXOR. Vid ETTOR ger kastet 1 po{ng, vid TREOR 3 po{ng, etc. Po{ng f}r" 930 ; "naturligtvis bara noteras p} ett st{lle." 940 ; : ; 950 ; "BONUS: Ni f}r 50 po}ng extra h{r, om summan p} protokollets |vre halva" 960 ; " utg|r 63 eller mera." 970 ; : ; 980 ; "1 PAR: H{r kan Ni anteckna kast med inneh}llande ett par," 990 ; " t.ex. 3-3-1-5-6 eller 2-2-4-3-1, etc." 1000 ; CUR(23%,20%) "TRYCK P] PF1-tangenten F\R SIDA 4."; : GET Sida4$ 1010 IF ASCII(Sida4$)<>192% 1000 1020 ; CHR$(12%) 1030 ; "2 PAR: Kast med tv} par, t.ex. 2-2-4-5-5." 1040 ; 1050 ; "TRETAL: Kast med tre lika t{rningar, t.ex. 4-4-4-3-2." 1060 ; 1070 ; "FYRTAL: Kast med fyra lika t{rningar, t.ex. 3-3-3-3-1." 1080 ; 1090 ; "LITEN" 1100 ; "STRAIGHT:Kast med alla fem t{rningarna i f|ljd fr}n 1 och upp}t," 1110 ; " d.v.s. 1-2-3-4-5." 1120 ; 1130 ; "STOR" 1140 ; "STRAIGHT:Kast med alla fem t{rningarna i f|ljd fr}n 2 och upp}t," 1150 ; " d.v.s. 2-3-4-5-6." 1160 ; 1170 ; "K]K: Kast med ett tretal och ett par, t.ex. 4-4-4-3-3. Har Ni en g}ng not-" 1180 ; " erat en K]K och senare f}r en till, {r denna v{rdel|s och noteras " 1190 ; " med en nolla vid en annan ledig rubrik, s}vida Ni inte har CHANS" 1200 ; " ledigt, d} k}kens po}ngsumman kan antecknas d{r." 1210 ; 1220 ; CUR(23%,20%) "TRYCK P] PF1-tangenten F\R SIDA 5."; : GET Sida5$ 1230 IF ASCII(Sida5$)<>192% 1220 1240 ; CHR$(12%) 1250 ; "CHANS: Kan endast anv{ndas n{r ingen annan till{mplig rubrik finns ledig" 1260 ; " (se Exempel 2). Kan ge h|g po{ng eftersom alla fem t{rningarna f}r r{k-" 1270 ; " nas samman." 1280 ; " Ett kast inneh}llande 1-1-4-5-6 ger bara 2 po{ng vid n}gon av de nor-" 1290 ; " mala rubrikerna (ETTOR eller 1 PAR). [r b}da dessa upptagna men CHANS" 1300 ; " fri, f}r Ni notera 17 po{ng d{r." 1310 ; 1320 ; "YATZY: Kast med alla fem t{rningarna lika, t.ex. 3-3-3-3-3. H{r f}r Ni alltid" 1330 ; " 50 po{ng oavsett vilket femtal t{rningen visar." 1340 ; : ; : ; 1350 ; "Observera vid po{ngber{kning att det endast {r summan av lika t{rningar, som" 1360 ; "f}r r{knas (se Exempelen 1-2 p} sid 1-2). Summan av alla fem t{rningarna f}r" 1370 ; "endast r{knas vid femtal t{rningarna visar." 1380 ; : ; 1390 ; "  REGLER SLUT  " 1400 ! 1410 ! 1420 ! * START SPEL ELLER TILLBAKA TILL SIDA X * 1430 ! 1440 ; CUR(21%,7%) 'PF1 = SIDA 1.','PF3 = SIDA 3.',' PF5 = START YATZY.' 1450 ; CUR(22%,7%) 'PF2 = SIDA 2.','PF4 = SIDA 4.'; : GET Start$ 1460 IF ASCII(Start$)-191%<1% OR ASCII(Start$)-191%>5% 1440 1470 ON ASCII(Start$)-191% GOTO 400,620,820,1020,1520 1480 ! 1490 ! 1500 ! * Variabelv{rden * 1510 ! 1520 FOR Tabell%=1% TO 4% 1530 Summa1%(Tabell%)=0% : Summa2%(Tabell%)=0% 1540 Tabell$(Tabell%)='4 5 6 7 8 9 121314151617181920' 1550 Bonus%(Tabell%)=0% 1560 NEXT Tabell% 1570 ! 1580 ! 1590 ! * SPEL PLAN * 1600 ! 1610 ; CHR$(12%) 1620 ; TAB(2%) STRING$(54%,95%) 1630 ; ' YATZY ' 1640 ; TAB(2%) STRING$(54%,95%) 1650 FOR Marginal%=1% TO 22% 1660 ; CUR(Marginal%,1%) '<' CUR(Marginal%,54%) '>' 1670 NEXT Marginal% 1680 ; CUR(22%,2%) STRING$(52%,95%) 1690 ; CUR(1%,60%) 'H|gsta m|jliga po{ng' CUR(2%,60%) '{r 374.' 1700 ; CUR(3%,60%) 'Du m}ste ha 63 f|r ' CUR(4%,60%) 'att f} bonus.' 1710 ; CUR(0%,6%) ' YATZY ' 1720 RESTORE 1730 FOR Radfunk%=4% TO 21% 1740 READ Rad$ 1750 ; CUR(Radfunk%,2%) Rad$ 1760 NEXT Radfunk% 1770 ! 1780 ! 1790 ! * STARTA * 1800 ! 1810 WHILE SYS(5%)=0% 1820 ; CUR(7%,60%) 'TRYCK P] N]GON' CUR(8%,60%) 'Tangent n{r Ni' CUR(9%,60%) 'vill starta.' 1830 Sop%=FNDr|j% 1840 ; CUR(7%,60%) SPACE$(14%) CUR(8%,60%) SPACE$(14%) CUR(9%,60%) SPACE$(12%) 1850 Sop%=FNDr|j% 1860 WEND 1870 GET Spelstart$ 1880 ! 1890 ! 1900 ! * NAMN P] SPELARNA * 1910 ! 1920 ; CUR(20%,60%) 'Initialerna p} den' CUR(21%,60%) 'person som vill' CUR(22%,60%) 'b|rja tack :' 1930 ON ERROR GOTO 2060 1940 ; CUR(22%,73%); : INPUT ''Namn$(1%) 1950 ; CUR(2%,14%) SPACE$(38%) CUR(2%,14%) Namn$(1%) 1960 ; CUR(22%,60%) SPACE$(20%) CUR(22%,60%) "vara 2:a :"; : INPUT ""Namn$(2%) 1970 ; CUR(2%,25%) SPACE$(27%) CUR(2%,25%) Namn$(2%) 1980 ; CUR(22%,64%) SPACE$(16%) CUR(22%,64%) " 3:a :"; : INPUT ""Namn$(3%) 1990 ; CUR(2%,36%) SPACE$(16%) CUR(2%,36%) Namn$(3%) 2000 ; CUR(22%,64%) SPACE$(16%) CUR(22%,64%) " 4:a :"; : INPUT ""Namn$(4%) 2010 ; CUR(2%,47%) ' ' CUR(2%,47%) Namn$(4%) 2020 FOR L{ngd%=1% TO 4% 2030 IF LEN(Namn$(L{ngd%))>4% ON L{ngd% GOTO 1920,1960,1980,2000 2040 NEXT L{ngd% 2050 GOTO 2110 2060 RESUME 2070 ! 2080 ! 2090 ! * S[TTA UT X I DOM SPALTER SOM D[R INTE [R N]GON SPELARE I * 2100 ! 2110 FOR Sudda%=20% TO 22% 2120 ; CUR(Sudda%,60%) SPACE$(20%) 2130 NEXT Sudda% 2140 ; CUR(18%,58%) 'Beh}llda t{rningar:' 2150 ; CUR(19%,58%) 'Kast 1:' CUR(20%,58%) 'Kast 2:' CUR(21%,58%) 'Kast 3:' 2160 ; CUR(12%,58%) 'A B C D E' 2170 FOR Antal%=14% TO 47% STEP 11% 2180 IF ASCII(Namn$((Antal%-3%)/11%))=0% ; CUR(2%,Antal%) 'X' 2190 NEXT Antal% 2200 ! 2210 ! 2220 ! * RITA UT SPALTER * 2230 ! 2240 FOR Spalter%=4% TO 21% 2250 ; CUR(Spalter%,20%) ': : :' 2260 NEXT Spalter% 2270 ! 2280 ! 2290 ! * SPEL * 2300 ! 2310 FOR Omg}ng%=1% TO 15% 2320 FOR Pers%=1% TO 4% 2330 IF Namn$(Pers%)='' 4040 2340 Antalt{rn%=5% 2350 FOR Kast%=1% TO 3% 2360 ; CUR(13%,58%) SPACE$(22%) CUR(16%,58%) SPACE$(22%) 2370 ; CUR(7%,58%) 'KASTA T[RNINGARNA ' CUR(7%,76%) Namn$(Pers%); : GET K$ 2380 ; CUR(10%,58%) 'T[RNINGARNA VISAR:' 2390 FOR Nummer%=1% TO Antalt{rn% 2400 T{rning%(Kast%,Nummer%)=INT(1%+RND*6%) 2410 NEXT Nummer% 2420 ! 2430 ! 2440 ! * Visa t{rningarna * 2450 ! 2460 FOR Visa%=1% TO Antalt{rn% 2470 ; CUR(13%,55%+Visa%*3%) NUM$(T{rning%(Kast%,Visa%)) 2480 NEXT Visa% 2490 ! 2500 ! 2510 ! * Vilka ska du beh}lla? * 2520 ! 2530 ; CUR(15%,58%) 'Vilka vill Ni beh}lla?' 2540 IF Kast%=3% Beh}lla$(Kast%)=LEFT$('ABCDE',Antalt{rn%) : GOTO 2590 2550 ; CUR(16%,58%) SPACE$(22%) CUR(16%,58%); : INPUT ''Beh}lla$(Kast%) 2560 FOR Test%=1% TO LEN(Beh}lla$(Kast%)) 2570 IF INSTR(1%,'ABCDE',MID$(Beh}lla$(Kast%),Test%,1%))>0% NEXT Test% : GOTO 2590 2580 Sop%=FNTon% : GOTO 2550 2590 Antalt{rn%=Antalt{rn%-LEN(Beh}lla$(Kast%)) 2600 IF Antalt{rn%<0% Antalt{rn%=Antalt{rn%+LEN(Beh}lla$(Kast%)) : ; CUR(16%,58%) SPACE$(22%) : GOTO 2550 2610 ! 2620 ! 2630 ! * Visa beh}llda t{rningar * 2640 ! 2650 FOR Kontroll%=1% TO LEN(Beh}lla$(Kast%)) 2660 IF MID$(Beh}lla$(Kast%),Kontroll%,1%)='A' Kast$(Kast%)=Kast$(Kast%)+' '+NUM$(T{rning%(Kast%,1%)) 2670 IF MID$(Beh}lla$(Kast%),Kontroll%,1%)='B' Kast$(Kast%)=Kast$(Kast%)+' '+NUM$(T{rning%(Kast%,2%)) 2680 IF MID$(Beh}lla$(Kast%),Kontroll%,1%)='C' Kast$(Kast%)=Kast$(Kast%)+' '+NUM$(T{rning%(Kast%,3%)) 2690 IF MID$(Beh}lla$(Kast%),Kontroll%,1%)='D' Kast$(Kast%)=Kast$(Kast%)+' '+NUM$(T{rning%(Kast%,4%)) 2700 IF MID$(Beh}lla$(Kast%),Kontroll%,1%)='E' Kast$(Kast%)=Kast$(Kast%)+' '+NUM$(T{rning%(Kast%,5%)) 2710 NEXT Kontroll% 2720 ; CUR(18%+Kast%,67%) Kast$(Kast%) 2730 IF Antalt{rn%=0% 2790 2740 NEXT Kast% 2750 ! 2760 ! 2770 ! * Sammanr{kning och placering i tabellen * 2780 ! 2790 ; CUR(15%,58%) 'Var vill du s{tta? ' 2800 ; CUR(16%,58%) 'Hoppa med PF5 och PF7!' 2810 Pek%=4% : ; CUR(4%,0%) '' 2820 WHILE SYS(5%)=0% : WEND 2830 ; CUR(Pek%,0%); : GET Hopp$ 2840 IF ASCII(Hopp$)=13% AND INSTR(1%,Tabell$(Pers%),NUM$(Pek%)+SPACE$(2%-LEN(NUM$(Pek%))))>0% 2910 2850 IF ASCII(Hopp$)-191%=5% Pek%=Pek%-1% : ; CUR(Pek%+1%,0%) ' ' 2860 IF ASCII(Hopp$)-191%=7% Pek%=Pek%+1% : ; CUR(Pek%-1%,0%) ' ' 2870 IF Pek%<4% Pek%=4% ELSE IF Pek%>20% Pek%=20% 2880 IF Pek%=10% Pek%=12% ELSE IF Pek%=11% Pek%=9% 2890 ; CUR(Pek%,0%) '' 2900 GOTO 2820 2910 ; CUR(15%,58%) SPACE$(22%) CUR(16%,58%) SPACE$(22%) CUR(Pek%,0%) ' ' 2920 FOR Sudda%=19% TO 21% : ; CUR(Sudda%,65%) SPACE$(15%) : NEXT Sudda% 2930 Stryk%=INSTR(1%,Tabell$(Pers%),NUM$(Pek%)+SPACE$(2%-LEN(NUM$(Pek%)))) 2940 MID$(Tabell$(Pers%),Stryk%,LEN(NUM$(Pek%)))=SPACE$(LEN(NUM$(Pek%))) 2950 Spara%=0% : Test%=0% : X%=0% 2960 FOR Sudda%=1% TO 6% : T{rn$(Sudda%)='' : NEXT Sudda% 2970 ! 2980 ! 2990 ! * SORTERA T[RNINGSKASTEN * 3000 ! 3010 FOR Sortera%=1% TO 6% 3020 FOR X%=2% TO LEN(Kast$(1%)+Kast$(2%)+Kast$(3%)) STEP 2% 3030 IF VAL(MID$(Kast$(1%)+Kast$(2%)+Kast$(3%),X%,1%))<>Sortera% 3050 3040 T{rn$(Sortera%)=T{rn$(Sortera%)+NUM$(Sortera%) 3050 NEXT X% 3060 NEXT Sortera% 3070 ! 3080 ON Pek%-3% GOTO 3130,3130,3130,3130,3130,3130,180,180,3240,3340,3480,3480,3570,3570,3710,3850,3940 3090 ! 3100 ! 3110 ! * ETTOR,TV]OR,TREOR,FYROR,FEMMOR,SEXOR * 3120 ! 3130 Spara%=LEN(T{rn$(Pek%-3%))*(Pek%-3%) 3140 Summa1%(Pers%)=Summa1%(Pers%)+Spara% 3150 IF Summa1%(Pers%)>=63% AND Bonus%(Pers%)=0% ; CUR(11%,12%+11%*(Pers%-1%)) ' 50' ELSE 3170 3160 IF Summa1%(Pers%)>=63% AND Bonus%(Pers%)=0% Bonus%(Pers%)=1% : Spara%=Spara%+50% 3170 ; CUR(10%,12%+11%*(Pers%-1%)) SPACE$(4%-LEN(NUM$(Summa1%(Pers%)))) NUM$(Summa1%(Pers%)) 3180 Sop%=FNUtskrift% 3190 GOTO 4030 3200 ! 3210 ! 3220 ! * 1 PAR * 3230 ! 3240 FOR H|gst%=6% TO 1% STEP -1% 3250 IF LEN(T{rn$(H|gst%))>1% 3270 3260 NEXT H|gst% 3270 IF LEN(T{rn$(H|gst%))>1% Spara%=H|gst%*2% 3280 Sop%=FNUtskrift% 3290 GOTO 4030 3300 ! 3310 ! 3320 ! * TV] PAR * 3330 ! 3340 FOR H|gst%=6% TO 1% STEP -1% 3350 IF LEN(T{rn$(H|gst%))>1% 3370 3360 NEXT H|gst% 3370 IF LEN(T{rn$(H|gst%))>1% Spara%=H|gst%*2% ELSE 3420 3380 FOR N{sth|gst%=H|gst%-1% TO 1% STEP -1% 3390 IF LEN(T{rn$(N{sth|gst%))>1% 3410 3400 NEXT N{sth|gst% 3410 IF LEN(T{rn$(N{sth|gst%))>1% Spara%=Spara%+N{sth|gst%*2% ELSE Spara%=0% 3420 Sop%=FNUtskrift% 3430 GOTO 4030 3440 ! 3450 ! 3460 ! * TRETAL,FYRTAL * 3470 ! 3480 FOR H|gst%=6% TO 1% STEP -1% 3490 IF LEN(T{rn$(H|gst%))>Pek%-12% Spara%=H|gst%*(Pek%-11%) : GOTO 3510 3500 NEXT H|gst% 3510 Sop%=FNUtskrift% 3520 GOTO 4030 3530 ! 3540 ! 3550 ! * LITEN/STOR STRIKE * 3560 ! 3570 IF Pek%=17% 3610 3580 FOR S|k%=1% TO 5% 3590 IF T{rn$(S|k%)<>NUM$(S|k%) 3650 3600 NEXT S|k% : GOTO 3640 3610 FOR S|k%=2% TO 6% 3620 IF T{rn$(S|k%)<>NUM$(S|k%) 3650 3630 NEXT S|k% 3640 IF S|k%=6% Spara%=15% ELSE IF S|k%=7% Spara%=20% 3650 Sop%=FNUtskrift% 3660 GOTO 4030 3670 ! 3680 ! 3690 ! * K]K * 3700 ! 3710 FOR S|k%=6% TO 1% STEP -1% 3720 IF LEN(T{rn$(S|k%))>2% 3740 3730 NEXT S|k% 3740 IF LEN(T{rn$(S|k%))>2% Spara%=Spara%+S|k%*3% ELSE 3790 3750 FOR S|k1%=6% TO 1% STEP -1% 3760 IF LEN(T{rn$(S|k1%))>1% AND S|k1%<>S|k% 3780 3770 NEXT S|k1% 3780 IF LEN(T{rn$(S|k1%))>1% Spara%=Spara%+S|k1%*2% ELSE Spara%=0% 3790 Sop%=FNUtskrift% 3800 GOTO 4030 3810 ! 3820 ! 3830 ! * CHANS * 3840 ! 3850 FOR Summa%=1% TO 6% 3860 Spara%=Spara%+LEN(T{rn$(Summa%))*Summa% 3870 NEXT Summa% 3880 Sop%=FNUtskrift% 3890 GOTO 4030 3900 ! 3910 ! 3920 ! * YATZY * 3930 ! 3940 FOR Test%=1% TO 5% 3950 IF LEN(T{rn$(Test%))=5% 3970 3960 NEXT Test% 3970 IF LEN(T{rn$(Test%))=5% Spara%=50% : Sop%=FNUtskrift% : GOTO 3990 3980 ; CUR(20%,12%+11%*(Pers%-1%)) ' 0' : GOTO 4030 3990 ; CUR(20%,12%+11%*(Pers%-1%)) ' 50' 4000 Sop%=FNTon% 4010 ! 4020 ! 4030 FOR Sudda%=1% TO 3% : Kast$(Sudda%)='' : NEXT Sudda% 4040 NEXT Pers% 4050 NEXT Omg}ng% 4060 ! 4070 ! 4080 ! * VAD SKA VIG\RA * 4090 ! 4100 ; CUR(0%,0%); : GET Forts$ 4110 GOTO 290 4120 ! 4130 ! 4140 ! * DATA-satser och deffn-funktioner * 4150 ! 4160 DATA 'ETTOR :','TV]OR :','TREOR :','FYROR :', 'FEMMOR :' 4170 DATA 'SEXOR :','summa :','BONUS :' ,'1 PAR :','2 PAR :' 4180 DATA 'TRETAL :','FYRTAL :','LITEN ST:','STOR ST :','K]K :' 4190 DATA 'CHANS :','YATZY :','summa :' 4200 ! 4210 ! ------------------------------------------------------------------------ 4220 ! 4230 DEF FNDr|j% 4240 FOR X%=0% TO 1500% : NEXT X% 4250 RETURN 0% 4260 FNEND 4270 ! 4280 ! ------------------------------------------------------------------------ 4290 ! 4300 DEF FNTon% 4310 FOR Steg%=3% TO -1% STEP -1% 4320 FOR Frek%=1% TO 50% 4330 Ton%=INP(5%) 4340 FOR Freksteg%=1% TO Steg% : NEXT Freksteg% : NEXT Frek% : NEXT Steg% 4350 RETURN 0% 4360 FNEND 4370 ! 4380 ! ------------------------------------------------------------------------ 4390 ! 4400 DEF FNUtskrift% 4410 Summa2%(Pers%)=Summa2%(Pers%)+Spara% 4420 ; CUR(Pek%,12%+11%*(Pers%-1%)) SPACE$(4%-LEN(NUM$(Spara%))) NUM$(Spara%) 4430 ; CUR(21%,12%+11%*(Pers%-1%)) SPACE$(4%-LEN(NUM$(Summa2%(Pers%)))) NUM$(Summa2%(Pers%)) 4440 RETURN 0% 4450 FNEND