home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 38 / Digital_Talk_38_1999-08-15_Digital_Talk_de_Side_B.d64 / golf (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  14KB  |  332 lines
  1. 100 rem *** golf fv2.4 *** ueberarbeitet von karl heinz thurnhuber ***
  2. 120 print"[147][155]* golf fv2.4 *":v=53248:pokev+21,0:pokev+32,11:pokev+33,11:goto190
  3. 140 ifz>wthenz=zandw:pokev6,c
  4. 150 return
  5. 160 ifd-c>wthenpokev6,peek(v6)or16:c=w+1:return
  6. 170 ifd<cthenpokev6,peek(v6)andnot16:c=0
  7. 180 return
  8. 190 v6=v+16:v0=v+30:v1=v0+1:o=21.9:w=255:m=40:sx=.8:sy=.8:s=54272:j=56320
  9. 200 b=34808:a1=0:dimp%(38),p(50):fori=0to38:readp%(i):next
  10. 210 fori=0to7:readr(i),g(i),b(i),h(i):next:n=20
  11. 220 fori=0to10:readp(i):p(n+i)=-p(i):p(n-i)=p(i):p(m-i)=-p(i):p(m+i)=p(i):next
  12. 230 fori=33600to33632:readq:pokei,q:next:fori=ito33757:pokei,0:next
  13. 240 fori=itoi+33:readq:pokei,q:next:fori=34816toi+46:readq:pokei,q:next
  14. 250 fori=itoi+38:pokei,0:next:fori=itoi+297:readq:pokei,q:next
  15. 260 poke33692,24:poke33695,60:poke33698,60:poke33701,24:pokev+42,5:pokev+43,1
  16. 270 deffnb(x)=o+(sin(x/2)+cos(x/4))/2:rem bodenkurve bild 1
  17. 280 deffnh(x)=k+sin(x/5)/2+(x-a)*l:rem    horizont   bild 2
  18. 290 pokev+37,10:pokev+38,0:pokeb,32:pokeb+3,35:pokeb+4,14
  19. 300 pokes,0:pokes+6,0:pokes+7,0:pokes+9,0:pokes+10,8
  20. 310 pokes+13,0:pokes+14,0:pokes+19,9:pokes+20,0:pokes+24,15:goto382
  21. 320 print"[147]":pokev+33,6:pokev+32,11
  22. 330 printtab(14)"[213][192][201][213][192][201][201]  [213][192][201]":printtab(14)"[221]  [221] [221][221]  [221]"
  23. 350 printtab(14)"[221][192][201][221] [221][221]  [171][192]":printtab(14)"[221] [221][221] [221][221]  [221]"
  24. 370 printtab(14)"[202][192][203][202][192][203][202][192][203][203]":printtab(14)"************":return
  25. 382 gosub320
  26. 390 printtab(7)"[154]1 spieler/in      taste 1"
  27. 400 printtab(7)"2 spieler/innen   taste 2"
  28. 401 printtab(7)"3 spieler/innen   taste 3"
  29. 402 printtab(7)"4 spieler/innen   taste 4":i=7
  30. 410 geta$:ifa$="1"ora$="2"ora$="3"ora$="4"then440
  31. 420 a=55600:fork=0to38:pokea+p%(k),i^1:next
  32. 430 fork=0to11:poke55750+k,i^1:next:i=5-(i=5)*2
  33. 431 ifa1>4thenprint"":goto3320
  34. 432 ifa1>3thenprint"":goto3255
  35. 433 ifa1>0thenprint"":goto3020
  36. 435 print"[145]":goto410
  37. 440 ss=val(a$):fori=1to4:bs(i)=999:sm(i)=0:next:sp=0:se=18:dz=0
  38. 441 a1=a1+1:gosub 1860:goto3010
  39. 448 fori=1to4:s$(i)="":bs$(i)="":sm$(i)="":next
  40. 450 s(1)=0:s(2)=0:s(3)=0:s(4)=0:sp=sp+1   
  41. 451 sp$=right$((str$(sp)),len(str$(sp))-1)
  42. 452 if sp<10 then sp$=" "+sp$
  43. 455 print"[147][149]":poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or1
  44. 456 poke648,132:poke788,52:poke808,225
  45. 458 forn=1toss:pokes+8,15:pokes+12,5:pokes+15,150
  46. 460 rem vorbereitung bild 1  *** golf fv2.4 ***
  47. 470 pokev+33,9:print"[147]":pokev+33,14:pokev+32,11:pokev+23,42:pokev+29,232
  48. 480 pokev+28,7:pokev+40,5:pokev+41,5:pokev+44,0:pokev+45,15:pokev+46,15
  49. 490 pokeb+1,33:pokeb+2,34:pokeb+5,36:pokeb+6,13:pokeb+7,15
  50. 500 q=rnd(ti):a=q*9999:a%=q*20:x=a+a%:h=fnb(x)
  51. 510 y=fnb(x+10):ify+1<hthen500
  52. 520 ify>hthenh=y
  53. 530 z=a%+55297+int(h)*m:fori=0to8:pokez+i,6:next
  54. 540 z=z+41:fori=0to6:pokez+i,6:next:l=a%+33792:r=l+10
  55. 550 k=0:forx=a+37toa+39:iffnb(x)>=22thenk=1
  56. 560 next:y=56173:fori=0to2:forx=0tok:pokey+i+x*m,5:next:next
  57. 570 pokev6,1:pokev,64:pokev+1,fnb(a+38)*8+35
  58. 580 k=1:ifa%>14thenk=3:goto600
  59. 590 ifa%>7thenk=2
  60. 600 x%(k-1)=a%+8:fori=kto3:x%(i)=rnd(1)*(11+i*6-x%(i-1))+x%(i-1)+6:next
  61. 610 onkgoto640,630
  62. 620 x%(1)=rnd(1)*(a%-12)+4:x%(2)=rnd(1)*(a%-8-x%(1))+x%(1)+6:goto640
  63. 630 x%(1)=rnd(1)*(a%-6)+4
  64. 640 x%=rnd(1)*3+1
  65. 650 y%=rnd(1)*3+1:ify%=x%then650
  66. 660 k=6-x%-y%:x=x%(x%):z=x*8+18:c=3:gosub140:pokev+2,z:pokev+3,fnb(x+a)*8+8
  67. 670 x=x%(y%):z=x*8+18:c=5:gosub140:pokev+4,z:pokev+5,fnb(x+a)*8+29
  68. 680 x=x%(k):z=x*8+8:c=41:gosub140:pokev+6,z:pokev+10,z
  69. 690 z=fnb(x+a)*8+8:pokev+7,z:pokev+11,z:pokev+8,0
  70. 700 pokev+12,136:pokev+13,81:pokev+14,184:pokev+15,71
  71. 710 x=a:fori=33792to33831:ifi>landi<rtheny=h:goto730
  72. 720 y=fnb(x)
  73. 730 y%=y:pokei+m*y%,b(8*(y-y%)):fory=y%+1to24:pokei+m*y,160:next:x=x+1:next
  74. 739 rem sp.einblendmarke - pos.u.farbe
  75. 740 print"":na(1)=33834:na(2)=33856:na(3)=33874:na(4)=33896
  76. 742 nb(1)=55338:nb(2)=55360:nb(3)=55378:nb(4)=55400
  77. 744 onssgosub1610,1655,1705,1753:l=a%+2:r=l+10
  78. 750 printtab(5)"[172][190]  [188][146][187]":printtab(5)"[190]    [188]"
  79. 760 printtab(5)"  [152]              ":printtab(3)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  80. 770 printtab(5)"[187]    [172]":pokev+21,255:z=33699:p=0:u=5
  81. 780 rem spiel bild 1
  82. 790 c=0:x=a:x%=0:d=14
  83. 800 pokes+6,0:y=fnb(x):e=y*8+37:x=0
  84. 810 pokev+8,d-c:pokev+9,e:pokev+27,0:gosub1570:ifx%>38then910
  85. 820 gosub1370:f=2*sgn(t):k=f:g=g*t:g=g*g:t=p(p)/t:pokev+27,16
  86. 830 pokez,0:pokes+4,129:y=peek(v0)+peek(v1)
  87. 840 d=d+k:ifd<14ord>328thenpokes+5,9:pokes+4,0:pokes+4,17:k=-k:d=d+k+k
  88. 850 ifpeek(v0)and14thenpokes+18,0:pokes+18,129:k=-k:d=d+k+k
  89. 860 x=x+f:y=e+x*(x/g-t):ify>240then880
  90. 870 gosub160:pokev+8,d-c:pokev+9,y:ifnotpeek(v1)and16then840
  91. 880 x%=d/8+.5:ifx%>landx%<rthenpokev+9,h*8+40:goto1320
  92. 890 pokes+11,0:pokes+11,17:x=x%-2+a:d=x%*8-2:gosub160:goto800
  93. 900 rem ende bild 1
  94. 910 print"":fori=0to28:fork=0to4:print"";chr$(20):next:print"[145][145][145][145][145][145]"
  95. 920 pokes+18,16:pokes+18,17:fort=0to50:next:next
  96. 930 rem vorbereitung bild 2  *** golf fv2.4 ***
  97. 940 pokev+21,0:print"[147]":pokev+33,5:pokev,207:pokev+1,120:pokev+28,1
  98. 950 pokeb+1,13:pokeb+2,15:pokeb+5,37:pokeb+6,37:pokeb+7,37
  99. 960 pokev+40,15:pokev+41,15:pokev+44,7:pokev+45,13:pokev+46,7
  100. 970 fori=v+10tov+13:pokei,rnd(1)*140+25:i=i+1:pokei,rnd(1)*85+120:next
  101. 980 pokev+14,rnd(1)*62:pokev+15,rnd(1)*85+120:pokev6,128
  102. 990 e=(y-19)*50+35:d=int((rnd(1)+x%-39)*104+15):c=0:gosub160
  103. 1000 pokev+8,d-c:pokev+9,e:pokes+8,5:pokes+12,96
  104. 1010 pokev+2,136:pokev+3,80:pokev+4,184:pokev+5,70
  105. 1020 x%=(fnb(a+39)-fnb(a+37))*7:q=sgn(x%):l=q/9:k=6-q-q:q=q*sx:poke55720,0
  106. 1030 x=a:fori=33792to33831:y=fnh(x):y%=y:fort=0toy%-1:pokei+t*m,160:next
  107. 1040 pokei+m*y%,h(8*(y-y%)):x=x+1:next
  108. 1050 pokes+15,15:print"[153]":onssgosub1610,1655,1705,1753
  109. 1051 pokev+23,192:pokev+29,102:pokev+21,247
  110. 1060 gosub1570:gosub1370:g=g/4+1:f=p(p):pokez,0:pokes+4,129
  111. 1070 rem spiel bild 2
  112. 1080 i=peek(v0)+peek(v1):fori=gto1step-.07:x0=d:y0=e:ifi<3thend=d+q:e=e+sy
  113. 1090 d=d+t*i:ifd<14ord>330thenpokes+18,0:pokes+18,17:t=-p(p+10):d=x0
  114. 1100 ifpeek(v1)and16thenife<109thene=fnh((d-14)/8+a)*8+m:i=i-.1:goto1140
  115. 1110 h=peek(v0):e=e-f*i:ife>237thenpokes+18,0:pokes+18,17:f=-p(p):e=y0
  116. 1120 ifhand16thenifnothand1theni=i-.4:pokes+11,0:pokes+11,129
  117. 1130 ife<126thenife>120thenifd<211thenifd>205then1190
  118. 1140 d=int(d+.5):y%=e+.5:gosub160:pokev+8,d-c:pokev+9,y%:next
  119. 1150 ifpeek(v1)and16thenife<109thenpokev+9,y%+3:e=e+3
  120. 1160 ife<160thenifd<250 and  d>170thenpoke34216,87:pokev+21,246:goto1060
  121. 1170 poke34216,32:pokev+21,247:goto1060
  122. 1180 rem spielende und auswertung
  123. 1190 pokev+8,208:pokev+9,123:gosub1570:pokes+12,0:pokes+13,89:pokev+32,2
  124. 1200 pokes+11,0:pokes+11,65:gosub1300:pokev+33,8:gosub1300:pokev+32,11
  125. 1210 gosub1300:pokev+33,9:gosub1300:pokev+21,0:pokes+11,0:pokes+13,0
  126. 1212 print"[149]":nextn
  127. 1215 print"[147]":poke56578,peek(56578)or3:poke56576,(peek(56576)and252)or3
  128. 1216 poke648,4:poke788,49:poke808,237
  129. 1220 fori=1toss:sm(i)=sm(i)+s(i):ifs(i)<bs(i)thenbs(i)=s(i)
  130. 1230 next:print"[147][129]":pokev+33,9:onssgosub1635,1685,1740,1777
  131. 1232 on-(ss=9)gosub1777
  132. 1240 printtab(5)"von vorn ........... taste  v [146]"
  133. 1242 printtab(5)"(punkte auf 0)"
  134. 1244 on-(sp<se)goto1250
  135. 1246 printtab(9)"spiel-ende  erreicht !":goto1252
  136. 1250 printtab(5)"weiter ........  w [146] oder feuer"
  137. 1252 printtab(5)"drucken .......  d [146]  oder js ^":goto1260
  138. 1254 printtab(5)"[145]    ergebnis ausgedruckt !    "
  139. 1260 geta$:ifpeek(j)and16thenifa$<>"v"anda$<>"d"thenifa$<>"w"then1276
  140. 1270 ifa$="v"thenclose4:a$="":a1=0:goto382
  141. 1272 ifa$="d"then1278
  142. 1274 on-(sp<se)-2*(sp>=se)goto450,1260
  143. 1276 ifpeek(j)and1then1260
  144. 1278 on-(dz<se)-2*(dz>=se)goto1280,1260
  145. 1280 on-(dz<sp)-2*(dz>=sp)goto2110,1254
  146. 1290 rem tonerzeugung bei spielende
  147. 1300 fori=0to3:forf=20to50:pokes+8,f:next:next:return
  148. 1310 rem ton und ramenfarbe, wenn see ge-troffen
  149. 1320 pokes+5,9:pokes+6,58:pokev+32,8:pokes+4,0:pokes+4,129
  150. 1330 fori=10tomstep.3:pokes+1,i:next:pokev+32,11
  151. 1340 fori=25to70step.3:pokes+1,i:next:pokev+32,8:pokes+4,128
  152. 1350 fori=0to300:next:pokes+5,5:pokev+32,11:goto790
  153. 1360 rem eingabe winkel und schlagstaerke  *** golf fv2.4 ***
  154. 1370 pokes+1,w:pokes+5,2:pokes+4,32:pokez,r(u):pokes+4,33:pokes+1,30
  155. 1380 f=notpeek(j):iffand16then1460
  156. 1390 iffand4thenp=p+(p=m)*p+1:goto1540
  157. 1400 iffand8then1530
  158. 1410 geta$:ifa$=""then1380
  159. 1420 ifa$="[157]"thenp=p+(p=m)*p+1:goto1540
  160. 1430 ifa$=""then1530
  161. 1440 ifa$<>" "then1380
  162. 1450 fori=0to180:next
  163. 1460 i=33621:t=0:g=2:s(n)=s(n)+1
  164. 1470 ifg>13theng=g^1:goto1510
  165. 1480 g=g+.23:ift>7thent=0:i=i+1:ifi=33624theni=33779
  166. 1490 ifi=33781thenf=g(t)or1:pokei,f:pokei+3,f:pokei+6,f:goto1510
  167. 1500 pokei,g(t):pokei+3,g(t):pokei+6,g(t)
  168. 1510 t=t+1:geta$:ifnotpeek(j)and16ora$=" "then1470
  169. 1520 t=p(p+10):onssgosub1610,1660,1710,1756:pokes+4,0:pokes+5,5:return
  170. 1530 p=p-(p=0)*m-1
  171. 1540 y%=11-9*p(p):x%=11.5+10*p(p+10):a%=x%/8:u=x%and7
  172. 1550 pokez,0:z=33664+a%+3*y%:pokez,r(u):goto1380
  173. 1560 rem geschwindigkeits-skala loeschen
  174. 1570 poke33787,1:poke33784,1:poke33781,1:poke33786,0:poke33783,0:poke33780,0
  175. 1580 poke33785,0:poke33782,0:poke33779,0:poke33629,0:poke33626,0:poke33623,0
  176. 1590 poke33628,0:poke33625,0:poke33622,0:poke33627,128:poke33624,128
  177. 1592 poke33621,128:return
  178. 1600 rem bildschirmkoepfe und auswertung *** golf fv2.4 ***
  179. 1610 print"":gosub1902
  180. 1620 printtab(5)" spiel: "b2$;sp$" "tab(23)"[146]schlaege: "b2$;s$(1):return
  181. 1630 rem auswertung fuer 1 spieler
  182. 1635 gosub1810:print:gosub1902:gosub1620:gosub1906
  183. 1637 printtab(12)"bestes spiel: "b2$;bs$(1)
  184. 1640 printtab(15)"summe: "b3$;sm$(1):return
  185. 1650 rem bildschirmkopf fuer 2 spieler
  186. 1655 pokena(n),81:pokenb(n),15
  187. 1660 print"":gosub1902
  188. 1675 prints1$;s$(1)tab(18)r1$;sp$" "tab(25)s2$;s$(2):return
  189. 1680 rem auswertung fuer 2 spieler
  190. 1685 gosub1810:print:gosub1902:gosub1675:gosub1906
  191. 1690 print"   "b1$;bs$(1)tab(25)b1$;bs$(2)
  192. 1692 print"   "g1$;sm$(1)tab(25)g1$;sm$(2):return
  193. 1700 rem bildschirmkopf fuer 3 spieler
  194. 1705 pokena(n),81:pokenb(n),15
  195. 1710 print"":gosub1902
  196. 1730 prints1$;s$(1)tab(18)r1$;sp$" "tab(25)s2$;s$(2)
  197. 1732 prints3$;s$(3):return
  198. 1738 rem auswertung fuer 3 spieler
  199. 1740 gosub1810:gosub1902:gosub1730:gosub1906
  200. 1742 print""tab(12)s5$
  201. 1744 printb4$tab(14)b2$;bs$(1)tab(21)b2$;bs$(2)tab(28)b2$;bs$(3)
  202. 1746 printg2$tab(13)b3$;sm$(1)tab(20)b3$;sm$(2);
  203. 1748 printtab(27)b3$;sm$(3)"[145]":return
  204. 1750 rem bildschirmkopf fuer 4 spieler
  205. 1753 pokena(n),81:pokenb(n),15
  206. 1756 print"":gosub1902
  207. 1765 prints1$;s$(1)tab(18)r1$;sp$" "tab(25)s2$;s$(2)
  208. 1768 prints3$;s$(3)tab(25)s4$;s$(4):return
  209. 1774 rem auswertung fuer 4 spieler
  210. 1777 gosub1810:gosub1902:gosub1765:gosub1906
  211. 1780 print""tab(12)s5$"   sp.4"
  212. 1783 printb4$tab(14)b2$;bs$(1)tab(21)b2$;bs$(2);
  213. 1786 printtab(28)b2$;bs$(3)tab(35)b2$;bs$(4)
  214. 1789 printg2$tab(13)b3$;sm$(1)tab(20)b3$;sm$(2);
  215. 1792 printtab(27)b3$;sm$(3)tab(34)b3$;sm$(4)"[145]":return
  216. 1800 rem bildschirm-subroutinen
  217. 1810 print""tab(12)"   auswertung   [146]":return
  218. 1850 rem bildschirm-variable
  219. 1860 b1$="bestes sp.  [157][157]":b2$="  [157][157]":b3$="   [157][157][157]":qy$="........."
  220. 1862 b4$="best.:":g2$="summe:":qf$=">"+qy$+"<[157][157][157][157][157][157][157][157][157][157]":ef$=">..<[157][157][157]"
  221. 1865 g1$="summe:      [157][157][157]":r1$="   [157][157]":di$=">........<[157][157][157][157][157][157][157][157][157]"
  222. 1880 s5$="sp.1   sp.2   sp.3":return
  223. 1902 fori=1toss:s$(i)=right$((str$(s(i))),len(str$(s(i)))-1)
  224. 1904 if s(i)<10 then s$(i)=" "+s$(i)
  225. 1905 next:return
  226. 1906 fori=1toss:bs$(i)=right$((str$(bs(i))),len(str$(bs(i)))-1)
  227. 1908 if bs(i)<10 then bs$(i)=" "+bs$(i)
  228. 1910 sm$(i)=right$((str$(sm(i))),len(str$(sm(i)))-1)
  229. 1912 if sm(i)<100 thensm$(i)=" "+sm$(i)
  230. 1914 if sm(i)<10 thensm$(i)=" "+sm$(i)
  231. 1919 next:return
  232. 1929 rem datenblock  *** golf fv2.4 ***
  233. 1930 data-88,-89,-90,-50,-10,30,70,71,72,32,-8,-9,-85,-86,-87,-47,-7,33,73,74
  234. 1932 data75,35,-5,-45,-84,-44,-4,36,76,77,78,79,39,-1,,-41,-81,-80,-79
  235. 1934 data192,128,160,99,96,192,227,119,48,224,247,120,24,240,248,226
  236. 1936 data12,248,98,249,6,252,121,239,3,254,111,228,3,255,100,160
  237. 1940 rem sin-tabelle
  238. 1942 data.001,.156,.309,.454,.588,.707,.809,.891,.951,.986,.999
  239. 1950 rem sprite 'skala links'
  240. 1952 data226,57,200,166,8,74,162,57,206,162,32,66,226,57,194
  241. 1954 data8,66,16,255,255,255,128,,,128,,,128,,,255,255,255
  242. 1960 rem sprite 'skala rechts'
  243. 1962 data115,156,231,66,4,165,115,136,231,18,136,161,115,136,231
  244. 1964 data132,33,8,255,255,255,,,1,,,1,,,1,255,255,255,
  245. 1970 rem sprite 'fahne'
  246. 1972 data,12,,,13,,,13,64,,13,64,,13,16,,13,84,,13,80,,13,,
  247. 1974 data12,,,12,,,12,,,12,,,12,,,12,,,12,,,63
  248. 1980 rem sprite 'tanne'
  249. 1982 data8,,,8,,,42,,,34,,,168,128,,170,128,2,170,128,2,170
  250. 1984 data160,10,46,160,10,190,168,10,62,40,,60,,,60,,,60,,
  251. 1990 rem sprite 'kleiner baum'
  252. 1992 data,170,,2,170,128,10,170,168,10,42,168,42,168,168,34,130,170,42,42
  253. 1994 data170,40,170,42,168,138,170,162,40,162,40,170,170,170,170,168,138,186
  254. 1996 data160,170,186,,40,60,,,60,,,60,,,60,,,60,,,60,,,60,,
  255. 2000 rem sprite 'grosser baum - laub'
  256. 2002 data31,240,,59,254,,59,255,,125,207,128,124,191,224,126,127,224,223,127
  257. 2004 data112,227,63,176,125,63,176,62,30,112,1,153,176,,3,224,,1,224,
  258. 2006 data,,24,,,118,,,205,,,240,,,,,,,,,,,,
  259. 2010 rem sprite 'grosser baum - stamm'
  260. 2012 data,,,4,,,4,,,2,48,,3,64,,1,128,,32,128
  261. 2014 data128,28,192,64,2,192,64,1,225,128,0,102,64,,124,,,120,,
  262. 2016 data112,,6,112,,9,240,,48,240,,,112,0,,112,,,112,,,112,,
  263. 2020 rem sprite 'sandfelder'
  264. 2030 data,2,170,,,,,85,85,,,,10,170,170,,,,5,85
  265. 2040 data85,,,,42,170,170,,,,85,85,85,,,,42,170,168,
  266. 2050 data,,85,85,80,,,,170,170,128,,,,85,85,64,,,,170,170,,
  267. 2100 rem ausdruckvariable
  268. 2110 d1$=".feld ":d2$="spieler":d4$="    ":d5$="     ":d6$="      "
  269. 2112 d3$="*****    g o l f   fv 2.4    *****         "
  270. 2200 rem drucker-ansteuerung
  271. 2210 on-(dz>0)goto2260
  272. 2220 open4,4:open5,4,6:goto2240
  273. 2230 print#4,spc(23)chr$(146)d2$;i;d4$;s$(i);d6$;sm$(i);d6$;bs$(i);
  274. 2232 sd=int((sm(i)*100)/sp)/100:on-(sd>=10)goto2236
  275. 2234 print#4,d6$;sd:return
  276. 2236 print#4,d5$;sd:return
  277. 2240 print#5,chr$(36):print#4,chr$(10):print#4,spc(14)d3$;dt$,chr$(10)
  278. 2250 print#4,spc(34)"schlaege  summen  bestes  schnitt"
  279. 2260 print#5,chr$(36):print#4,spc(12)chr$(18)" "sp$;d1$;chr$(141);
  280. 2270 fori=1toss:gosub2330:next:print#5,chr$(18):print#4,chr$(10);:dz=sp
  281. 2280 on-(sp<se)-2*(sp>=se)goto2282,2290
  282. 2282 on-(dz>=sp)goto1254
  283. 2290 print#4:close4:print#5,chr$(36):print#5:close5:goto1254
  284. 2330 print#4,spc(23)chr$(146);i1$(i);d5$;s$(i);d6$;sm$(i);d6$;bs$(i);
  285. 2332 gosub2232:return
  286. 3000 rem *** prg - erweiterungen *** golf fv2.4 ***
  287. 3010 gosub320:goto420:rem *** bs a1 ***
  288. 3020 printtab(11)"na also, endlich !":a1=a1+1
  289. 3025 ifss>1goto3040
  290. 3030 printtab(4)"[159]auserwaehlt ist nur"ss"spieler/in":goto3042
  291. 3040 printtab(4)"[159]auserwaehlt sind"ss"spieler/innen"
  292. 3042 ifa1=4then3050
  293. 3044 print"[145][145][145][145][145][145]":goto420
  294. 3050 printtab(6)"bitte":printtab(6)"namen":printtab(6)"eingeben:"
  295. 3052 print"[145][145][145][145]":goto3120
  296. 3100 rem *** input - anweisungen ***
  297. 3110 input".........[157][157][157][157][157][157][157][157][157][146]";i$(i):return
  298. 3112 input"..[157][157][146]";i$:return
  299. 3114 input"........[157][157][157][157][157][157][157][157][146]";i$:return
  300. 3118 gosub3110:poke19,0:i1$(i)=left$(i$(i),9):return
  301. 3120 printspc(17)"sp.1: "qf$;:poke19,1:i=1:gosub3118:on-(ss=1)goto3210
  302. 3124 printspc(22)"sp.2: "qf$;:poke19,1:i=2:gosub3118:on-(ss=2)goto3210
  303. 3128 printspc(22)"sp.3: "qf$;:poke19,1:i=3:gosub3118:on-(ss=3)goto3210
  304. 3132 printspc(22)"sp.4: "qf$;:poke19,1:i=4:gosub3118:on-(ss=4)goto3210
  305. 3210 s1$=""+i1$(1)+"   [157][157]":s2$="[146]"+i1$(2)+"   [157][157]"
  306. 3212 s3$=""+i1$(3)+"   [157][157]":s4$="[146]"+i1$(4)+"   [157][157]"
  307. 3219 fort=0to2000:next
  308. 3250 gosub320:i=7:goto420:rem *** bs a2 ***
  309. 3255 printtab(9)"das wird eine serie !!":a1=a1+1
  310. 3260 ifss>1goto3270
  311. 3262 printtab(9)"[159]hallo - golfsportfan !":goto3272
  312. 3270 printtab(6)"[159]hallo, ihr"ss"golfsportfans !"
  313. 3272 printtab(10)"fuer wieviele felder"
  314. 3274 printtab(10)"in dieser spielserie"
  315. 3276 printtab(9)"reicht die kondition ?"
  316. 3278 printtab(12)"(01 bis max. 18)"
  317. 3280 printtab(10)"bitte eingeben:"
  318. 3282 print"[145]"spc(26)ef$;:poke19,1
  319. 3284 gosub3112:poke19,0:se$=left$(i$,2)
  320. 3286 se=val(se$)
  321. 3289 fort=0to2000:next
  322. 3310 gosub320:i=7:goto420:rem *** bs a3 ***
  323. 3320 printtab(9)"na, wer sagt's denn ?!":a1=a1+1
  324. 3322 printtab(8)"[159]gleich kann's losgehen !"
  325. 3324 printtab(8)"eine frage gibt es noch:"
  326. 3326 printtab(5)"welches datum haben wir heute?"
  327. 3328 printtab(6)"bitte eingeben:"
  328. 3330 print"[145]"spc(24)di$;:poke19,1
  329. 3332 gosub3114:poke19,0:dt$=left$(i$,8)
  330. 3899 fort=0to5000:next:print"":goto448
  331. 3999 fort=0to10000:next:print"":stop
  332.