start tok64 d64-yPTQoR 10 REM * bovling * {pound}versatt av club 64 15 REM {pound}vers[ttare: ulf tidstrand 20 PRINT"{clear}{yellow}":POKE53280,2:POKE53281,2:POKE53272,21 30 GOSUB1740 40 GOSUB810:PRINT"{clear}"; 50 DIMfr(pl,10,2) 60 FORf1=1TO10 70 FORpa=1TOpl: 80 PRINT 90 GOSUB670 100 GOSUB950 110 GOSUB1280 115 PRINT"{yellow}" 120 p2=0 130 FORf=1TO2 140 b=1464:b9=55736:d=40:b1=0:e=0 150 POKEb,32:POKEb9,1 160 b=b+d:b9=b9+d 170 IFPEEK(b)<>32THENd=d*-1:b=b+d:b9=b9+d 180 POKEb,81:POKEb9,1 190 FORi=1TOz5:NEXT 200 GETc$ 210 IFc$="^"THENPRINT"{clear}":END 220 c=VAL(c$) 230 IFc<4ORc>6THEN150 240 n=n+1 250 d=1 260 POKEb,32:POKEb9,1 270 e=e+1:b1=b1+1 280 IFe=15ANDc=6THENb=b+40:b9=b9+40 290 IFe=15THENe=0:IFc=4THENb=b-40:b9=b9-40 300 IFb1>40THEN580 310 b=b+1:b9=b9+1 320 IFb1<>39THEN360 330 IFb1=39ANDPEEK(b-40)<>81ANDPEEK(b+40)<>81THEN360 340 POKEb-40,32:POKEb9-40,1:POKEb+40,32:POKEb9+40,1:p2=p2+2:IFp2>10THENp2=10 350 GOTO580 360 IFPEEK(b)<>32THEN400 370 POKEb,81:POKEb9,1 380 FORi=1TO15:NEXT 390 GOTO260 400 p=1:IFb=1497THENp=10 410 IFb=1459ORb=1539THENp=6 420 IFb=1421ORb=1501ORb=1581THENp=3 430 IFc=4ORc=6THENp=INT(p*1.4) 440 p1=RND(1):IFp1<.6THEN440 450 p=INT(p1*p):IFp>10THENp=10 460 IFp<1THENp=1 470 IFPEEK(b)=81THENPOKEb,32:POKEb9,1:p2=p2+1:IFp=1THENGOTO580 480 p3=RND(1):b3=-38:b4=42:IFp3>.5THENb3=42:b4=-38 490 IFPEEK(b+b3)=81THENPOKEb+b3,32:POKEb9+b3,1:p2=p2+1:IFp=2THEN580 500 IFPEEK(b+b4)=81THENPOKEb+b4,32:POKEb9+b4,1:p2=p2+1:IFp=3THEN580 510 IFPEEK(b+b3+b3)=81THENPOKEb+b3+b3,32:POKEb9+b3+b3,1:p2=p2+1:IFp=4THEN580 520 IFPEEK(b+4)=81THENPOKEb+4,32:POKEb9+4,1:p2=p2+1:IFp=5THEN580 530 IFPEEK(b+b4+b4)=81THENPOKEb+b4+b4,32:POKEb9+b4+b4,1:p2=p2+1:IFp=6THEN580 540 IFPEEK(b+3*b3)=81THENPOKEb+3*b3,32:POKEb9+3*b3,1:p2=p2+1:IFp=7THEN580 550 IFPEEK(b+b3+4)=81THENPOKEb+b3+4,32:POKEb9+b3+4,1:p2=p2+1:IFp=8THEN580 560 IFPEEK(b+3*b4)=81THENPOKEb+3*b4,32:POKEb9+3*b4,1:p2=p2+1:IFp=9THEN580 570 IFPEEK(b+b4+4)=81THENPOKEb+b4+4,32:POKEb9+b4+4,1:p2=p2+1 580 FORz7=1TO1000:NEXT 590 IFf=1THENp5=p2 600 IFte=1THENRETURN 610 IFp<>10THENNEXTf 620 GOSUB1190 630 IFf1=10ANDfr(pa,10,1)>0THENGOSUB1510:te=0 640 NEXTpa,f1 650 GOTO1600 660 STOP 670 PRINT"{home}{down*8}"TAB(39)"Q" 680 PRINT"{up}";SPC(37)"Q" 690 PRINTTAB(35)"Q{space*3}Q" 700 PRINT"{up}";SPC(33)"Q{space*2}{sh space}Q" 710 PRINTTAB(35)"Q{space*2}{sh space}Q" 720 PRINT"{up}"SPC(37)"Q" 730 PRINTTAB(39)"Q" 740 PRINT"{home}{down*6}";:FORi=1TO40:PRINT"{cm t}";:NEXT 750 PRINT"{home}{down*7}";:FORi=1TO40:PRINT"{cm t}";:NEXT 760 PRINT"{home}{down*15}";:FORi=1TO40:PRINT"{cm @}";:NEXT 770 PRINT"{home}{down*16}";:FORi=1TO40:PRINT"{cm @}";:NEXT 780 PRINT 790 POKE1542,32 800 RETURN 810 PRINT"{clear}";TAB(13);"{reverse on} bowlingbana" 820 PRINT"{down*3}hur m]nga spelare? (1-4)" 830 GETpl$:IFVAL(pl$)<1ORVAL(pl$)>4THEN830 840 pl=VAL(pl$) 850 PRINT"{down}" 860 FORj=1TOpl:PRINT"{down}spelare #";STR$(j);:INPUT": namn ";na$(j) 870 IFLEN(na$(j))>8THENna$(j)=LEFT$(na$(j),8) 880 NEXT 890 PRINT"{down*4}sv]righetsgrad:" 900 PRINT"{down}{space*5}1 - 100 (1=proffs{space*2}100=nyb{pound}rjare){down}" 910 INPUT"sv]righetsgrad";z5$ 920 z5=VAL(z5$) 930 IFz5<1ORz5>100THENPRINT"{up}{space*37}{up}":GOTO910 940 RETURN 950 PRINT"{home}runda{space*4}1{space*2}2{space*2}3{space*2}4{space*2}5{space*2}6{space*2}7{space*2}8{space*2}9{space*2}10" 960 PRINT"{home}{down}{space*8}{sh -}{space*2}{sh -}{space*2}{sh -}{space*2}{sh -}{space*2}{sh -}{space*2}{sh -}{space*2}{sh -}{space*2}{sh -}{space*2}{sh -}{space*2}{sh -}" 970 PRINT"{space*8}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}" 980 PRINT"{sh asterisk*8}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}" 990 PRINT"{space*8}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}" 1000 PRINT"{space*8}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}" 1010 PRINT"{home}{down}"; 1020 FORz=1TO2 1030 IFz=paTHENPRINT"{reverse on}{white}";na$(z):PRINT:PRINT"{light blue}":GOTO1050 1040 PRINTna$(z):PRINT:PRINT 1050 NEXTz 1060 IFpl<3THENRETURN 1070 PRINT"{home}{down*17}"; 1080 PRINT"{space*8}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}" 1090 PRINT"{space*8}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}" 1100 PRINT"{sh asterisk*8}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}{sh +}{sh asterisk*2}" 1110 PRINT"{space*8}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}" 1120 PRINT"{space*8}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}{sh space*2}{sh -}" 1130 PRINT"{home}{down*17}"; 1140 FORz=3TO4 1150 IFz=paTHENPRINT"{reverse on}{white}";na$(z):PRINT:PRINT"{light blue}":GOTO1170 1160 PRINTna$(z):PRINT:PRINT 1170 NEXTz 1180 RETURN 1190 IFf=1ANDp2=10THENfr(pa,f1,1)=2 1200 IFp2=0THENp2=-1 1210 IFf<>1ANDp2=10THENfr(pa,f1,1)=1 1220 IFfr(pa,f1-1,1)=2THENfr(pa,f1-1,2)=fr(pa,f1-1,2)+p2 1230 IFfr(pa,f1-1,1)=1THENfr(pa,f1-1,2)=fr(pa,f1-1,2)+p5 1240 IFf1<2THEN1260 1250 IFfr(pa,f1-1,1)=2ANDfr(pa,f1-2,1)=2THENfr(pa,f1-2,2)=fr(pa,f1-2,2)+p5 1260 fr(pa,f1,2)=fr(pa,f1,2)+p2 1270 RETURN 1280 FORs=1TOpl 1290 PRINT"{home}{down}"; 1300 IFs>1THENPRINT"{down*3}"; 1310 IFs>2THENPRINT"{down*13}"; 1320 IFs>3THENPRINT"{down*3}"; 1330 IFf1>10THENf1=10 1340 FORs1=1TOf1:PRINT:PRINT"{up}"SPC(7+s1*3); 1350 IFfr(s,s1,1)=2THENPRINT"V"; 1360 IFfr(s,s1,1)=1THENPRINT"N"; 1370 NEXTs1:PRINT 1380 NEXTs 1390 FORs=1TOpl 1400 PRINT"{home}{down*2}"; 1410 IFs>1THENPRINT"{down*3}"; 1420 IFs>2THENPRINT"{down*13}"; 1430 IFs>3THENPRINT"{down*3}"; 1440 FORs1=1TOf1:PRINTTAB(6+s1*3); 1450 n$=RIGHT$(STR$(fr(s,s1,2)),2) 1460 IFn$="-1"THENn$="0" 1470 IFn$<>" 0"THENPRINTn$; 1480 NEXTs1:PRINT 1490 NEXTs 1500 RETURN 1510 te=1 1520 FORz8=1TOfr(pa,10,1) 1530 IFz8=1THENGOSUB90 1540 IFz8=1ANDfr(pa,9,1)=2THENfr(pa,9,2)=fr(pa,9,2)+p2 1550 IFz8=1ANDfr(pa,10,1)=2ANDp2<10THENGOTO1590 1560 IFfr(pa,10,1)=2ANDz8=2ANDp2<10THENGOSUB140:GOTO1580 1570 IFz8=2ANDfr(pa,10,1)=2THENGOSUB90 1580 fr(pa,10,2)=fr(pa,10,2)+p2 1590 NEXTz8:RETURN 1600 GOSUB950:GOSUB1280 1610 PRINT"{home}{down*7}" 1620 FORi=1TO7:PRINT"{space*39}"; 1630 NEXTi 1640 PRINT"{up*7}" 1650 FORi=1TOpa-1 1660 t5=0 1670 FORj=1TO10 1680 t5=t5+fr(i,j,2) 1690 NEXTj 1700 PRINTna$(i)TAB(10)"fick"t5 1710 NEXTi 1720 PRINT"{home}{down*21}" 1730 END 1740 PRINT"{clear}";TAB(13);"{reverse on} bowlingbana " 1750 PRINT"{down*2}spelregler ? (j/n)" 1760 GETt$:IFt$<>"j"ANDt$<>"n"THEN1760 1770 IFt$="n"THENRETURN 1780 PRINT"{down}punkten (klotet) skrivs ut av datorn" 1790 PRINT"p] sk[rmen. en sned boll tr[ffar ofta" 1800 PRINT"flera k[glor direkt. n[r bollen kommer" 1810 PRINT"i den position som du vill ha den i" 1820 PRINT"trycker du p] 4, 5 eller 6. om du" 1830 PRINT"trycker 4 s] skruvas bollen ]t v[nster," 1840 PRINT"och om du trycker 6 s] skruvas den ]t" 1850 PRINT"h{pound}ger. 5 l]ter den g] rakt fram. du" 1860 PRINT"kan avbryta spelet n[r som helst genom" 1870 PRINT"att trycka '^'." 1880 PRINT"datorn lyser upp namnet p] den som ska{space*2}rulla klotet." 1890 PRINT"{down}lycka till!" 1900 PRINT"{down*2}tryck 's' f{pound}r att starta" 1910 GETt$:IFt$<>"s"THEN1910 1920 RETURN 1930 b=1553:b3=-38:PRINTPEEK(b+b3) stop tok64 (bastext 1.0)