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