home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 16
/
Publication_16_19xx_Civitas_de_Side_B.d64
/
s-skat
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
28KB
|
1,093 lines
100 poke 649,1
101 gosub20000:wait203,4:clr
102 poke 49990,0
103 for i=1to20
104 poke 49990+i,0
105 nexti
106 printchr$(8)
110 poke 53280,08:poke53281,08:print""
129 dim g1(2,3,4)
130 dim ku(3,10)
131 dim ko(3,4,11)
132 dim w(11)
133 dim we(2,4)
134 dim ge(32)
135 dim an(2,4)
136 dim kg(12,2)
137 dim ww(11)
138 dim ka$(11,10)
139 dim g2(2,4,11)
140 pa=2
141 dim g3(2,11)
142 dim g4(2,4)
143 dim at(2,11)
144 dim kd(3,4,11)
145 dim g5(2,5)
150 g=peek(49990)-int(peek(49990)/3)*3+1:g$=str$(g):g$="[144]"+right$(g$,len(g$)-1)
151 mm=14
152 fe=7
153 dim k(3):dimf(3)
154 dim sn(2):dimkn(2)
155 dim fb$(5):dim bh(3)
156 dim dr(2)
210 for i1=1to11
220 readw(i1):nexti1
230 data 0,0,0,0,10,8,4,3,1,1,1
240 for i=1to8:readww(i):nexti
250 data 2,2,2,2,11,10,4,3,0,0,0
255 for i1=1to2
260 fori=1to4
270 g3(i1,i)=7:g4(i1,i)=5:g5(i1,i)=11
271 g3(i1,0)=4
280 nexti,i1
285 fori1=1to2
290 g4(i1,0)=1:g5(i1,0)=4
295 nexti1
310 print"[147][145]spieler 01[146] spieler 02"
320 print"[144][213][192][192][192][192][192][192][192][201][176][192][192][192][192][192][192][192][192][192][192][192][192][174][144][213][192][192][192][192][192][192][192][201]"
330 print"[144][221] [221][221]reizzahl: [221] [144][221] [221]"
340 print"[221][221][171][192][192][192][192][192][192][192][192][192][192][192][192][179] [144][221][221]"
360 print"[221][221][221]spieler: [221] [144][221][221]"
380 print"[221][221][171][192][192][192][192][192][192][192][192][192][192][192][192][179] [144][221][221]"
390 print"[221][221][221]spiel: [221] [144][221][221]"
400 print"[221][221][221] [221] [144][221][221]"
401 print"[221][221][171][192][192][192][178][192][192][192][178][192][192][192][192][179] [144][221][221]"
402 print"[221][221][221]g:"+g$+"[221]h: [221]s: [221] [144][221][221]"
420 print"[221][221][173][192][192][192][177][192][192][192][177][192][192][192][192][189] [144][221][221]"
430 print"[202][192][192][192][192][192][192][192][203][202][192][192][192][192][192][192][192][203]"
440 print" bieten = >leer< aussteigen = >w< "
445 au$="> moment! <":gosub2700
610 gosub2780
1010 for i1=1to4
1020 for i2=0to7
1030 l=l+1
1040 ge(l)=10*i1+i2
1050 nexti2
1060 nexti1
1105 for i=1to100
1110 z1=int(rnd(8)*32)+1
1120 z2=int(rnd(8)*32)+1
1130 zw=ge(z1):ge(z1)=ge(z2):ge(z2)=zw
1140 nexti
1200 :
1210 for i1=1to3
1220 for i2=1to10
1230 ku(i1,i2)=ge((i1-1)*10+i2)
1240 nexti2
1250 nexti1
1260 sk(1)=ge(31):sk(2)=ge(32)
1269 gosub1300:gosub1780:gosub1797:gosub1500:gosub2550
1270 gosub1700:gosub1807:ifnq=1thengosub2900:gosub3286:gosub3200:goto1278
1271 gosub4450:ifso(5)=0thengosub2300
1272 if so(5)=1andsp<>3thenfe=fa(sp)
1273 if sp<>3andso(5)=0thengosub2400:gosub4900:gosub2800
1274 if sp<>3thengosub2900:gosub3286:gosub3200:gosub2750:gosub4700
1275 ifsp=3andso(5)=0thengosub3286:gosub1780:gosub2600:gosub3286:gosub1780:gosub1797
1277 if sp=3thengosub2750:gosub3000:gosub4500:gosub3286:gosub3200
1278 gosub3100
1279 if n1=3thengosub8000:n1=1:az=2:gosub3119:yy=0:n1=2:az=3:gosub3119:yy=0:goto1282
1280 if n1=1thengosub3119:n1=2:az=2:yy=0:gosub3119:n1=3:az=3:gosub8000:yy=0:goto1282
1281 if n1=2thengosub3119:n1=3:az=2:gosub8000:yy=0:n1=1:az=3:gosub3119:yy=0:goto1282
1282 gosub7000:az=1:if ru<11andso(1)=0then1279
1283 if ru<10andso(1)=1then1279
1284 goto7400
1300 :
1310 for i2=1to10:rem kartennummer
1320 for i1=1to3:rem spieler
1330 for i3=1to4:rem farbe
1340 for i4=0to7:rem wert
1350 if ku(i1,i2)=i3*10+i4andi4=0thenko(i1,i3,0)=1:gosub1400:goto1370
1360 if ku(i1,i2)=i3*10+i4thenko(i1,i3,i4+4)=1:gosub1400
1370 nexti4,i3,i1,i2
1399 return
1400 :
1401 if i1=3thenreturn
1405 if i4>0thenan(i1,i3)=an(i1,i3)+1
1406 if i4=0thenan(i1,0)=an(i1,0)+1
1407 if i4=0thenat(i1,i4)=at(i1,i4)+1
1408 if i4>0thenat(i1,i4+4)=at(i1,i4+4)+1
1420 if i4>0thenwe(i1,i3)=we(i1,i3)+w(i4+4)
1430 if i4=0thenoni3gosub1440,1441,1442,1443
1435 return
1440 v=25:goto1444
1441 v=23:goto1444
1442 v=20:goto1444
1443 v=16:goto1444
1444 we(i1,0)=we(i1,0)+v:return
1500 :
1510 :
1511 for i1=1to2
1512 sr=0: rem grand
1513 if at(i1,5)>1andat(i1,6)>1andat(i1,0)>2then sr=1
1514 if at(i1,5)>2andat(i1,6)>1andat(i1,0)>1then sr=1
1515 for i2=1to4
1516 if an(i1,i2)>5 and at(i1,0)>1thensr=1
1517 nexti2
1518 if sr=1thenkk(i1)=1:fa(i1)=0:fl(i1)=0:restore:fors=1to58:readss:nexts
1519 nexti1
1520 for i1=1to2
1521 if kk(i1)=1then1559
1525 gr=-1
1530 for i2=1to4
1540 if we(i1,i2)>grthengr=we(i1,i2):fa(i1)=i2
1550 nexti2
1559 nexti1
1560 :
1561 for i=1to3:bb(i)=0:nexti
1562 for i1=1to2
1563 for i2=1to4
1564 if i2<>fa(i1)thenbb(i1)=bb(i1)+we(i1,i2)
1565 if an(i1,i2)=0thenbb(i1)=bb(i1)
1566 nexti2:bb(i1)=bb(i1)/(10-an(i1,fa(i1))-an(i1,0))
1567 nexti1
1568 for i1=1to4:if bb(i1)>6thenbw(i1)=2:goto1571
1569 if bb(i1)>3thenbw(i1)=0:goto1571
1570 bw(i1)=-2
1571 nexti1
1572 :
1575 fl(1)=0:fl(2)=0:fl(3)=0
1580 for i1=1to2:ifkk(i1)=1then1623
1590 a=we(i1,0)
1591 restore
1592 forx=1to22:readff:nextx
1595 for i2=1to9:rem anzahl faelle
1600 read b1,b2,b3,b4
1610 if(a>b1anda<b2)and(we(i1,fa(i1))<(b3-bw(i1))oran(i1,fa(i1))<b4)thenfl(i1)=1
1620 nexti2
1623 nexti1
1624 return
1625 data -1,1,27,6
1630 data 15,21,18,4
1631 data 22,26,16,4
1632 data 35,37,09,3
1633 data 38,42,08,3
1634 data 42,46,09,3
1635 data 47,49,08,3
1636 data 58,69,05,2
1637 data 83,85,03,1
1700 :
1705 for i1=9to12
1706 ho(5-i1+8)=i1
1707 nexti1
1708 ho(0)=24:ho(5)=23
1710 for i1=1to2
1720 if fl(i1)=1thengosub4300:iffl(i1)=0thengosub4400
1721 if re(i1)=0andfl(i1)=1andbw(i1)=2thenre(i1)=18:goto1778:rem um kontra
1722 if fl(i1)=1then1778
1723 if fa(i1)=5then1765
1730 yy=ko(i1,1,0):bh(i1)=1+1
1740 for i2=2to4
1750 if ko(i1,i2,0)=yythenbh(i1)=bh(i1)+1:goto1760
1755 goto1765
1760 nexti2
1765 if sn(i1)=1thenbh(i1)=bh(i1)+2
1766 if hn(i1)=1thenbh(i1)=bh(i1)+1
1770 re(i1)=ho(fa(i1))*bh(i1)
1778 nexti1
1779 return
1780 :
1781 ta=2:n=0
1782 for i1=1to4
1783 if ko(3,i1,0)=1thengg=i1:g1=i1:gosub9000:i2=0:gosub1790
1784 next i1
1785 for i1=1to4
1786 for i2=5to11
1787 if ko(3,i1,i2)=1thengg=i1:g1=i2:gosub9000:gosub1790
1788 nexti2,i1:return
1790 :
1791 print"";tab(ta);"[144][213][192][192]":n=n+1:kg(n,1)=i1:kg(n,2)=i2
1792 for i3=1to9
1795 printtab(ta)"[144][221]"ff$left$(ka$(gn,i3),2):nexti3:printtab(ta);"[144][202][192][192][145][145]"
1796 ta=ta+3:return
1797 :
1798 print""
1799 printtab(ta)"[144][192][192][192][192][192][201]"
1800 for i1=1to9
1801 printtab(ta);ff$right$(ka$(gn,i1),5)"[144][221]"
1802 nexti1:printtab(ta);"[144][192][192][192][192][192][203][145]"
1803 return
1807 :
1808 data 0,18,20,22,23,24,27,30,33,35,36,39,40,44,45,48,50,54,55,60,63,66,70
1809 data 72,77,80,81,84,88,90,96,99,100,108,110,117,120,121,126,130,132,135
1810 data 140,143,144,150,153,154,156,160,162,165,168,170,171,176,180,187,189
1811 data 190,192,198,200
1812 au$="grand hd.(j/n)":gosub2700
1813 getx$:ifx$=""or(x$<>"j"andx$<>"n")then1813
1814 if x$="j"thenff=1:gb=18:rz=18:sp=3:so(5)=1:fe=0:au$="hand":gosub4600:goto2235
1815 au$="":gosub2700:t=0
1820 rs=g+2:ifrs>3thenrs=rs-3
1822 rh=g+1:ifrh>3thenrh=rh-3
1824 for i1=1to2
1825 gosub2140
1826 if rs=3thengosub1850:goto1834
1828 if rh=3thengosub1870:goto1834
1829 if re(rh)<re(rs)then1832
1830 sp=rh:rs=g:ifi1=2then1833
1831 gb=re(rs):ifgb>0thengosub1880
1832 goto1835
1833 if re(rs)>gbthengb=re(rs)
1834 if gb=0andre(rh)>0thengb=18:nk=1
1835 goto1841
1836 sp=rs:rs=g:ifi1=2then1839
1837 gb=re(rh):if gb>0thengosub1880
1838 goto1841
1839 if re(rh)>gbthengb=re(rh)
1840 if gb=0andre(rs)>0thengb=18:nk=1
1841 gosub2140:gosub2150
1842 nexti1
1843 if gb=0andg=2thenrs=3:rh=1:gosub1850:ifgb>0thensp=3
1844 gosub2231
1845 return
1850 rem extern sagen
1852 au$="> sagen! <":gosub2700
1854 getx$:ifx$<>" "andx$<>"w"then1854
1856 if x$="w"thensp=rh:rs=g:return
1858 read gb:ifgb=0then1858
1859 gosub2150
1860 if re(rh)<gbthenrh=rs:sp=rs:rs=g:return
1862 goto1854
1870 rem extern hoeren
1871 if re(rs)=0orre(rs)<gbthensp=3:rs=g:return
1872 au$="> hoeren! <":gosub2700
1873 readhh:ifre(rs)<hhthensp=rh:return
1874 gb=hh:gosub2150:ifgb=0then1873
1875 getx$:ifx$<>" "andx$<>"w"then1875
1876 if x$="w"thenrh=rs:sp=rs:rs=g:return
1878 goto1873
1880 ifi1=2thenreturn
1882 read hh:ifhh=gbthenreturn
1884 goto1882
2140 :
2141 print"[144]";tab(24);right$(str$(rs),len(str$(rs))-1)
2143 print"[144]";tab(20);right$(str$(rh),len(str$(rh))-1)
2144 return
2150 rem ausdruck gebot intern/extern**
2160 print"";tab(22);"[144]";gb
2180 return
2231 :
2234 rz=gb:ifrz=0thennq=1:fe=0:sp=0
2235 print"";tab(22);"[144]";rz
2240 print"";tab(23);"[144]";sp
2250 if sp=1thenprint"[153]spieler 01"
2260 if sp=2thenprint"[153]";tab(29);"spieler 02[145][145]"
2261 print"";tab(13);"[221] [221]"
2262 printtab(14);" "
2263 printtab(13);"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]"
2265 return
2300 iffe=6thenreturn
2301 if sp<>3then2305
2302 au$="hand(j/n)":gosub2700
2303 getx$:ifx$=""or(x$<>"j"andx$<>"n")then2303
2304 if x$="j"thenso(5)=1:gosub4600
2305 au$="":gosub2700:ifso(5)=1thenreturn
2306 for i=1to2
2307 u1=int(sk(i)/10):u2=sk(i)-u1*10
2308 ifu2=0thenko(sp,u1,0)=1
2309 ifu2>0thenko(sp,u1,u2+4)=1
2310 if sp<3theni3=u1:i4=u2:i1=sp:gosub1400
2311 nexti
2330 return
2400 :
2410 if fa(sp)=0andan(sp,0)=4thenso(1)=1:ko(sp,0,4)=0:au$="spitze":gosub4600
2411 if an(sp,0)>2andfa(sp)=0andbw(sp)=2thenso(2)=1:au$="schneider":gosub4600
2412 if fa(sp)=0thenfe=0:return
2420 if fa(sp)=5thenfl(sp)=1:gosub4300:iffl(i1)=0thenfe=5:return
2460 gr=-2
2470 for i=1to4
2480 if we(sp,i)>gr thengr=we(sp,i):fe=i
2490 nexti
2492 ifan(sp,fe)>6andbh(sp)>2andbw(sp)>-2thenso(2)=1:au$="schneider":gosub4600
2495 if an(sp,fe)<7orko(sp,fe,11)=0thenreturn
2496 ko(sp,fe,11)=0:so(1)=1:au$="spitze":gosub4600
2497 for i=1to3
2498 g3(i,fe)=g3(i,fe)-1:g2(i,fe,11)=1
2499 nexti
2500 return
2550 rem auf spitze reizen
2560 fori=1to2
2570 if fl(i)=1then2590
2580 if an(i,fa(i))>6thensn(i)=1
2585 if fa(i)=0andan(i,0)=4thensn(i)=1
2590 nexti
2595 return
2600 :
2601 if so(5)=1thenreturn
2610 au$="> druecken ! <"
2620 gosub2700
2621 xx$=""
2625 for i1=1to2
2630 getx$:ifx$=""then2630
2635 if x$="_"thengosub2780:goto2621
2640 x=val(x$)
2650 ifx$="+"thenx=11
2660 ifx$="-"thenx=12
2670 ifx$="0"thenx=10
2680 if x=0thengoto2630
2685 if x$=xx$then2630
2686 print"";tab(4+(x-1)*3);"[144]";x$;"[145]"
2690 xx$=x$:dr(i1)=x:nexti1
2691 getx$:ifx$=""andx$<>"_"andx$<>chr$(13)then2691
2692 if x$="_"then2635
2693 for i1=1to2
2694 su(sp)=su(sp)+ww(kg(dr(i1),2))
2695 ko(3,kg(dr(i1),1),kg(dr(i1),2))=0
2696 nexti1
2697 au$="":gosub2700
2698 return
2700 :
2710 print"";tab(13);" "
2720 if len(au$)>14thenstop
2730 print"[144]";tab(13+int((14-len(au$))/2));au$
2740 return
2750 :
2760 print" 1 2 3 4 5 6 7 8 9 0 [145][145][145]"
2770 return
2780 print" 1 2 3 4 5 6 7 8 9 0 + -[145][145][145]"
2790 return
2800 :
2801 if fe=5thenau$="> moment! <":gosub2700:gosub3900:goto2880
2802 if re(sp)>0then2809
2803 for i1=6to7:rem hoch druecken
2804 for i2=1to4:ifi2=fethen2808
2805 ifko(sp,i2,i1)=1thenan(sp,i2)=an(sp,i2)-1
2806 ifko(sp,i2,i1)=1thensu(sp)=su(sp)+ww(i1):ko(sp,i2,i1)=0:g2(sp,i2,i1)=1:t2=t2+1
2807 if t2=2thenreturn
2808 nexti2,i1
2809 t1=t1+1:a1=6:a2=11:a3=1:ift1>2thena1=11:a2=5:a3=-1
2810 for i1=1to4
2815 if i1=fethen2830
2820 if an(sp,i1)=t1thengosub2850
2825 if t2=2thenreturn
2830 nexti1
2840 if t2<2then2809
2845 return
2850 :
2860 for i2=a1toa2stepa3
2864 if ko(sp,i1,i2)=0then2870
2865 ko(sp,i1,i2)=0:su(sp)=su(sp)+ww(i2):t2=t2+1:g2(sp,i1,i2)=0
2866 an(sp,i1)=an(sp,i1)-1
2867 ift2=2thenreturn
2870 nexti2
2875 return
2880 :
2881 jk$="445362728291455464738393"
2883 for i2=1to24step2
2884 j1=val(mid$(jk$,i2,1)):j2=val(mid$(jk$,i2+1,1))
2885 for i1=1to4
2886 ifko(sp,i1,j1)=0oran(sp,i1)>j2then2888
2887 lr=lr+1:ko(sp,i1,j1)=0:g2(sp,i1,j1)=1:an(sp,i1)=an(sp,i1)-1:iflr=2thenreturn
2888 nexti1,i2
2889 stop
2900 :
2910 fb$(1)="kreuz"
2920 fb$(2)="pik "
2930 fb$(3)="herz "
2940 fb$(4)="karo "
2945 fb$(0)="grand"
2946 fb$(5)="null "
2948 if nq=1thenfb$(0)="[157]ramsch"
2950 print"[144]";tab(21);fb$(fe)
2951 iffe=5and(sp=3or(sp<>3andso(5)=1))thenau$="> moment! <":gosub2700:gosub3900
2952 if fe=5thenreturn
2953 for i3=1to2
2954 g3(i3,fe)=11:if fe=0theng3(i3,0)=4
2955 ifso(1)=1theng3(i3,fe)=g3(i3,fe)-1
2956 nexti3:iffe=0ornq=1ornk=1then2970
2957 fori7=1to2
2958 an(i7,fe)=an(i7,fe)+an(i7,0)
2959 ifan(i7,fe)>3andbw(i7)>-2andi7<>spandre(i7)>0thenso(4)=1:au$="kontra":gosub4600
2960 nexti7
2970 for i1=1to3
2971 for i2=1to4
2972 if ko(i1,i2,0)=1thenko(i1,fe,i2)=1:goto2974
2974 nexti2
2975 nexti1
2976 fori3=1to2:g4(i3,fe)=1:nexti3
2990 return
3000 if ff=1 then 3032
3001 if nq=1thengosub2900:return
3010 au$=">farbe(0-5)<":gosub2700
3015 print" [144]0null [144]1kreuz [144]2pik [144]3herz [144]4karo [144]5grand[145]"
3020 getx$:if(val(x$)=0andx$<>"0")orval(x$)>5then3020
3025 au$="":gosub2700
3030 fe=val(x$):if fe=0thenfe=5
3031 ifval(x$)=5thenfe=0
3032 gosub2900:return
3100 :
3109 n1=g+1:ifn1=4thenn1=1
3110 az=1:ru=1:rem rauskommer
3115 print" spiel: eingabe der linken kartennummer [145]"
3116 return
3119 :
3120 up=n1-1:ifup=0thenup=3
3130 op=n1+1:ifop=4thenop=1
3135 kv=k(up)
3139 if nq=1thenpo=az:goto3198
3140 if n1=spthenpo=az:goto3199
3150 if up=spandaz=1thenpo=1
3160 if up<>spandaz=1thenpo=2
3170 if up=spandaz=2thenpo=3
3175 if up<>spandaz=2thenpo=4
3176 if az=3thenpo=5
3177 on po goto 3300,3400,3500,3600,3700
3198 on po goto 10000,10100,10200
3199 on po goto 4000,4100,4200
3200 :
3220 n=0:ta=2:uj=1
3225 if fe=5then3260
3230 for i2=1to11
3240 if ko(3,fe,i2)=1andi2<5thengg=i2:g1=i2:gosub9000:i1=fe:gosub1790:goto3250
3245 if ko(3,fe,i2)=1thengg=fe:g1=i2:gosub9000:i1=fe:gosub1790
3250 next i2
3260 for i1=1to4
3265 if i1=fe then 3283
3270 for i2=4to11
3280 if ko(3,i1,i2)=1thengg=i1:g1=i2:gosub9000:gosub1790
3282 nexti2
3283 nexti1
3284 gosub1797
3285 return
3286 au$="":gosub2700
3287 print"";
3288 for i=1to11
3289 print" "
3290 nexti
3291 return
3300 :
3301 if fe=5then4800
3303 fori=1to4:tf(i)=0:nexti
3304 df=fa:for fa=1to4
3305 ifg1(n1,sp,fa)=2andg1(n1,sp,fe)=2thenaa$="-3-3010511":gosub6500:ifyy=2thenfa=df:return
3306 ifg1(n1,sp,fe)=2thenaa$="-3-30105-1":gosub6500:ifyy=2thenfa=df:return
3307 if g1(n1,sp,fa)=2andso(1)=1thenaa$="-3-30107110506":gosub6500:ifyy=2thenfa=df:return
3308 nextfa:fa=df
3310 gr=100
3320 for i1=1to4
3325 if i1=fethengoto3340
3330 if an(n1,i1)<gr andtf(i1)=0thengr=an(n1,i1):fa=i1
3340 nexti1
3341 if gr=100thengosub5200:return
3345 tf(fa)=1
3346 if an(n1,fa)=2andg2(n1,fa,5)=0andko(n1,fa,6)=1andko(n1,fa,5)=0then3310
3360 if g1(n1,sp,fa)<2thengosub5000:if yy<2then3310
3365 if yy=2thenreturn
3380 if g1(n1,sp,fa)=2then3310
3390 stop
3400 :
3401 if fe=5then4800
3402 if fe>0then3406
3403 df=fa:for fa=1to4
3404 if g1(n1,sp,fa)<2thenaa$="-3-30005-2":gosub6500:ifyy=2thenreturn
3405 nextfa:fa=df
3406 df=fa:for fa=1to4
3407 ifg1(n1,sp,fa)=2andg1(n1,sp,fe)=2thenaa$="-3-3010511":gosub6500:ifyy=2thenfa=df:return
3408 ifg1(n1,sp,fe)=2thenaa$="-3-30105-1":gosub6500:ifyy=2thenfa=df:return
3409 nextfa:fa=df
3410 fori=1to4:tf(i)=0:nexti
3420 gr=-2
3430 fori1=1to4
3440 if i1=fethen3460
3450 if an(n1,i1)>gr andtf(i1)=0thengr=an(n1,i1):fa=i1
3460 nexti1
3465 if gr=-2thengosub 5200:ifyy=2thenreturn
3466 if gr=-2thenstop
3470 if g1(n1,sp,fa)<2thengosub5000:ifyy<2thentf(fa)=1:goto3420
3480 if yy=2thenreturn
3490 if g1(n1,sp,fa)=2thentf(fa)=1:goto3420
3500 rem ms pos 3 (2./1.spieler)*******
3501 if fe<5then3510
3502 if an(n1,fa)>0thenaa$="-3-30011-104-1":gosub6500:return
3503 goto3800
3510 if an(n1,fa)>0thengosub5300:ifyy=2thenreturn
3520 if ww(kv)>3 and g1(n1,op,fa)=2andan(n1,fe)>0thengosub5400:if yy=2thenreturn
3525 ifww(kv)>3andg4(n1,fa)=kvandan(n1,fe)>0andg1(n1,op,fa)<2thengosub5400:ifyy=2thenreturn
3530 ifg1(n1,op,fa)=1andkv<>g4(n1,fa)thengosub5500:ifyy=2thenreturn
3531 if g1(n1,op,fa)=2andg1(n1,op,fe)<2andg3(n1,fe)>0thengosub5500:ifyy=2thenreturn
3540 if kv>7or(g1(n1,op,fa)=1andkv=g4(n1,fa))thengosub5600:if yy=2thenreturn
3545 gosub5600:ifyy=2thenreturn
3546 stop :rem fall?
3600 rem ms pos 4 (2./1.mitspieler)****
3601 if fe<5then3610
3602 if an(n1,fa)>0thenaa$="-3-300-1111104":gosub6500:return
3604 goto 3800
3610 if an(n1,fa)>0thengosub5700:return
3620 if an(n1,fe)>0thengosub5800:ifyy=2thenreturn
3640 gosub5900:if yy=2thenreturn
3650 gosub5600:if yy=2thenreturn
3670 stop:rem immer noch falsch?
3700 rem ms-pos-5**********************
3701 if fe<5then3710
3702 if an(n1,fa)>0andha=spthenaa$="-3-30011-104-1":gosub6500:return
3703 if an(n1,fa)>0andha<>spthenaa$="-3-3000411":gosub6500:return
3704 goto3800
3710 if an(n1,fa)>0thengosub6100:ifyy=2thenreturn
3720 ifan(n1,fe)>0andha=spandww(k(op))+ww(k(up))>7thengosub6200:ifyy=2thenreturn
3730 if ha<>spthengosub5500:ifyy=2thenreturn
3750 gosub 5600:ifyy=2thenreturn
3760 stop
3800 rem unterprogramm abwurf null*****
3802 df=fa
3803 forfa=1to4
3804 ifan(n1,fa)=1thenaa$="-3-3000409":gosub6500:ifyy=2thenfa=df:return
3805 nextfa
3806 fa=df
3807 aa$="0104000411":gosub6500
3808 ifyy=2thenreturn
3809 stop
3900 rem neuordnung karten null *******
3901 fori1=1to2:for i2=1to4:g3(i1,i2)=8:nexti2,i1
3910 for i1=1to3:fori2=1to4:fori3=0to11
3920 kd(i1,i2,i3)=ko(i1,i2,i3)
3921 ko(i1,i2,i3)=0
3930 nexti3,i2,i1
3940 for i1=1to3:for i2=1to4:fori3=0to11
3950 if i3=8ori3=7thenko(i1,i2,i3-2)=kd(i1,i2,i3)
3960 if i3=5thenko(i1,i2,4)=kd(i1,i2,i3)
3970 if i3=0thenko(i1,i2,7)=kd(i1,i2,i3)
3975 if i1<>3andkd(i1,i2,0)=1thenan(i1,i2)=an(i1,i2)+1
3980 if i3=6thenko(i1,i2,8)=kd(i1,i2,i3)
3990 if i3>8thenko(i1,i2,i3)=kd(i1,i2,i3)
3995 nexti3,i2,i1
3996 return
4000 :
4001 if fe=5thenaa$="01040010091111":gosub6500:return
4005 uu=g3(n1,fe)-an(n1,fe)
4007 if fe=0anduu>0thenaa$="-4-40001-20401":gosub6500:ifyy=2thenreturn
4010 ifan(n1,fe)>2anduu>0andfe>0thenaa$="-4-40001-204011107":gosub6500:ifyy=2thenreturn
4020 aa$="0104010505":gosub6500:ifyy=2thenreturn
4030 for fa=1to4
4035 if fa=fethen4050
4040 ifg3(n1,fe)=an(n1,fe)thenrf=1:aa$="-3-30105-2":gosub6500:ifyy=2thenrf=0:return
4041 hl=g1(n1,op,fa)
4044 ifhl=2andg1(n1,up,fa)=2andrf=1thenaa$="-3-3010511":rf=0:gosub6500:ifyy=2thenreturn
4045 ifg1(n1,op,fa)<2andg1(n1,up,fa)<2thenaa$="-3-30105-2":gosub6500:ifyy=2thenreturn
4050 nextfa:fa=df
4060 aa$="0104011107":gosub6500:ifyy=2thenreturn
4070 aa$="-4-40011070401":gosub6500:ifyy=2thenreturn
4075 aa$="0104010605":gosub6500:ifyy=2thenreturn
4076 aa$="-4-4000605":gosub6500:ifyy=2thenreturn
4080 stop
4100 :
4101 if fe<5then4110
4102 if an(n1,fa)>0thenaa$="-3-300-1111104":gosub6500:return
4103 goto3800
4110 aa$="-3-300-2-21101":gosub6500:ifyy=2thenreturn
4119 hl=g2(n1,fa,5)
4120 if(hl=0andkv<>5)or(g2(n1,fa,6)=0andkv<>6)thenaa$="-4-40005110401":goto4150
4130 if ww(kv)>3andg1(n1,op,fa)=2thenaa$="-4-4-2-21109":goto4150
4140 if ww(kv)>3andg1(n1,op,fa)<2thenaa$="-4-405110401":goto4150
4145 goto4160
4150 gosub6500:ifyy=2thenreturn
4160 for fa=1to4:ifan(n1,fa)=2andko(n1,fa,6)=1then4162
4161 aa$="-3-3011108":gosub6500:ifyy=2thenfa=df:return
4162 nextfa:fa=df
4170 aa$="-4-40011070401":gosub6500:ifyy=2thenreturn
4180 aa$="0104000705":gosub6500:ifyy=2thenreturn
4190 stop
4200 :
4201 if fe<5then4210
4202 if an(n1,fa)>0thenaa$="-3-300-11104-1":gosub6500:ifyy=2thenreturn
4204 goto3800
4210 iff(ha)=fathenaa$="-3-300-10111-1":gosub6500:ifyy=2thenreturn
4211 if f(ha)=feandfa<>fethenaa$="-3-3011101":gosub6500:ifyy=2thenreturn
4220 if(ww(k(op))+ww(kv))>7andf(ha)<>fethenaa$="-4-40005110401":gosub6500:ifyy=2thenreturn
4230 if(ww(op)+ww(up))>7andf(ha)=fethenaa$="-4-400-101":gosub6500:ifyy=2thenreturn
4240 goto4160
4300 :
4320 if at(i1,11)+at(i1,10)<4thenreturn
4330 if at(i1,9)+at(i1,6)+at(i1,0)<8-at(i1,11)-at(i1,10)thenreturn
4340 if at(i1,5)+at(i1,7)+at(i1,8)>3thenreturn
4350 fa(i1)=5:fl(i1)=0:re(i1)=23:bh(i1)=1
4360 return
4400 :
4405 fori4=1to2
4406 if fa(i4)=5thengosub4430:goto4415
4407 if fa(i4)=0andan(i4,0)>2andbw(i4)>-2thenhn(i4)=1
4410 if bw(i4)=2andan(i4,fa(i4))>5thenhn(i4)=1
4415 nexti4
4420 return
4430 t=0
4431 fori2=1to4
4435 ag=an(i4,i2):wg=we(i4,i2):ifko(i4,i2,0)=1thenwg=wg+4:ag=ag+1
4436 if ko(i4,i2,6)=1thenwg=wg-5
4437 ifag=0then4447
4440 if wg/ag>1.7thent=1
4447 nexti2
4448 if t=0thenhn(i1)=1
4449 return
4450 rem handausdruck
4451 if sp=3orfe=6thenreturn
4460 if hn(sp)=1thenso(5)=1:au$="hand":gosub4600
4470 return
4500 :
4510 if fe=5thenreturn
4515 if(fe=0andko(3,0,4)=0)or(fe>0andko(3,fe,11)=0)then4550
4520 au$="spitze (j/n)":gosub2700
4530 getx$:ifx$=""then4530
4540 if x$="j"thenso(1)=1:ko(3,fe,11)=0:gosub4600
4541 if so(1)=1andfe=0thenko(sp,0,4)=0
4550 au$="schneider(j/n)":gosub2700
4560 getx$:ifx$=""then4560
4570 if x$="j"thenso(2)=1:gosub4600
4580 if x$="n"then4593
4590 au$="schwarz (j/n)":gosub2700
4591 getx$:ifx$=""then4591
4592 if x$="j"thenso(3)=1:gosub4600
4593 au$="":gosub2700:return
4600 if au$="kontra"thenau$=au$+str$(i7)
4601 if right$(au$,1)<>")"andright$(au$,1)<>" "thenau$=au$+" "
4602 if 26-mm<len(au$)-5thenmm=14:cf$=cf$+""
4603 if au$="schwarz (j/n)"thenau$="schn./schw. ":cf$=left$(cf$,len(cf$)-1)
4610 print""+cf$;tab(mm);"[144]"+left$(au$,len(au$)-5)
4611 mm=mm+len(au$)-5+1
4630 return
4700 :
4701 if so(4)=1ornq=1ornk=1thenreturn
4705 au$="kontra(j/n)":gosub2700
4706 getx$:ifx$=""then4706
4707 if x$="j"thenso(4)=1:gosub4600
4708 au$="":gosub2700:return
4800 :
4810 for fa=1to4
4815 if g1(n1,sp,fa)=2then4840
4820 if g3(n1,fa)=8thenaa$="-3-3001008":gosub6500:ifyy=2thenfa=df:return
4824 if g3(n1,fa)=8then4840
4825 if ko(n1,fa,g5(n1,fa))=1thenaa$="-3-300-3-3":gosub6500:fa=df:return
4829 hl=g1(n1,sp,fa)
4830 ifg3(n1,fa)<8andg3(n1,fa)>2andhl<2thenaa$="-3-3001107":gosub6500:ifyy=2then4860
4840 nextfa:fa=df
4850 ur=1
4851 for in=11to4step-1:in$=right$(str$(in),2)
4852 for fa=1to4
4853 hl=g1(n1,sp,fa)
4854 if(hl=2andur=0)org1(n1,sp,fa)<2thenaa$="-3-30011"+in$:gosub6500:ifyy=2thenreturn
4855 nextfa
4856 nextin
4857 ifur=1thenur=0:goto4851
4860 fa=df:return
4900 :
4905 if fa(sp)=5thenreturn
4910 yy=ko(sp,1,0):bh=1+1
4920 for i2=2to4
4930 if ko(sp,i2,0)=yythenbh=bh+1:goto4950
4940 goto4960
4950 nexti2
4955 ll=len(cf$)
4960 hb=ho(fe)*bh
4970 ifhb<rzthenfe=fa(sp):so(2)=0:so(3)=0:ifso(1)=1thencf$=left$(cf$,ll-1):so(1)=0
4980 hb=ho(fe)*bh
4990 if hb<rzandko(sp,fe,11)=1thenso(1)=1:ko(sp,fe,11)=0:au$="spitze":gosub4600
4995 return
5000 :
5010 aa$="-3-301-2-21107":gosub6500
5020 return
5100 :
5110 ta=2:ifn1=2thenta=31
5120 gg=i3:g1=i2
5121 gosub9000
5131 ko(n1,i3,g1)=0
5139 print""
5140 for i=1to9
5150 printtab(ta);" "
5160 nexti
5165 print""
5170 for i=1to9
5180 printtab(ta);ff$+ka$(gn,i)
5190 nexti
5191 gosub7200
5195 return
5200 :
5210 aa$="0104011105":gosub6500:ifyy=2thenreturn
5220 aa$="-4-400110704010605":gosub6500:ifyy=2thenreturn
5300 :
5320 ifk(ha)>5thenaa$="-3-30005-1-101110704010605"
5321 if k(ha)<6thenaa$="-3-300-101110704010605"
5330 gosub6500:ifyy<2thenstop
5340 return
5400 :
5410 aa$="-4-40005110401":gosub6500:return
5500 :
5505 df=fa
5510 for fa=1to4
5515 if fa=fethengoto5530
5520 if g1(n1,sp,fa)=2thenaa$="-3-3000508":gosub6500:ifyy=2thenfa=df:return
5525 if ko(n1,fa,6)=1andan(n1,fa)=1thenaa$="-3-3000606":gosub6500:ifyy=2thenfa=df:return
5530 nextfa
5531 ifru>4and(su(1)+su(2)+su(3)-su(sp))<25thenaa$="0104010608":gosub6500:ifyy=2thenreturn
5540 fa=df:return
5600 :
5610 aa$="0104011108":gosub6500:ifyy=2thenreturn
5620 aa$="-4-400050704010811":gosub6500:ifyy=2thenreturn
5630 aa$="0104010705":gosub6500:ifyy=2thenreturn
5640 stop
5700 :
5705 aa$="-3-300110704010605"
5710 if k(up)=g4(n1,f(up))andg1(n1,op,fa)<>2andfa<>fethenaa$="-3-3000511"
5720 if k(up)=g4(n1,f(up))andg1(n1,op,fa)<>2andfa=fethen aa$="-4-40005110401"
5730 if k(up)<>g4(n1,fa)andko(n1,fa,g4(n1,fa))=1thenaa$="-3-300-2-2"
5740 gosub6500:return
5800 :
5810 if (ko(n1,fe,5)=1orko(n1,fe,6)=1)and g1(n1,op,fa)<2thenaa$="-4-4000506"
5819 hl=g1(n1,op,fa)
5820 ifkv>6and(g2(n1,fa,5)=0org2(n1,fa,6)=0)andhl<2thenaa$="-4-400110704010605"
5821 if(kv=6orkv=7)andkv<>g4(n1,fa)andg1(n1,sp,fe)<2thenaa$="-4-400050611070401"
5830 gosub6500
5840 return
5900 :
5910 if kv>7andg1(n1,sp,fa)=2andfa<>feandg1(n1,sp,fe)<2thengoto5600
5915 if g1(n1,sp,fa)=2andg1(n1,sp,fe)=2thengosub5500:ifyy=2thenreturn
5920 if an(n1,fe)=0andkv<>g4(n1,fa)thengosub5600:ifyy=2thenreturn
5930 return
6100 :
6110 if f(ha)=feandfa<>feandha=spthenaa$="-3-3001105"
6115 if f(ha)=feandfa<>feandha<>spthenaa$="-3-3000511"
6120 iff(ha)=faandfa<>feandk(ha)>6andg2(n1,fa,6)=0then rt=1
6121 if rt=1andko(n1,fa,6)=0thenaa$="-3-300-11105-1":rt=0
6122 if rt=1andko(n1,fa,6)=1thenaa$="-3-3000511":rt=0
6123 if f(ha)=faandfa<>feandk(ha)>6andg2(n1,fa,6)=1thenaa$="-3-30005-111-1"
6125 if f(ha)=faandfa<>feandk(ha)<7andha=spthenaa$="-3-30005-111-1"
6126 if f(ha)=faandfa<>feandk(ha)<7andha<>spthenaa$="-3-30006110505"
6130 if fa=fe and ha=spand k(ha)=g4(n1,fa)thenaa$="-4-400110704010605"
6140 if fa=fe and ha<>spthenaa$="-4-40005110401"
6145 kp=k(op)
6149 hl=g4(n1,fa)
6150 iffa=feandha=spandk(ha)<>hlandww(kv)+ww(kp)>2thenaa$="-4-400-101110704010605"
6151 iffa=feandha=spandk(ha)<>hlandww(kv)+ww(k(op))<3thenaa$="-4-4001108-101-111"
6155 gosub6500:ifyy=2thenreturn
6160 stop
6200 :
6210 if f(ha)<>feandha=spthengosub5400:ifyy=2thenreturn
6220 aa$="-4-400-101":gosub6500
6230 return
6500 :
6501 a(0,1)=(len(aa$)-6)/4
6503 a(0,4)=val(mid$(aa$,5,2))
6504 a(0,2)=val(mid$(aa$,1,2))
6505 a(0,3)=val(mid$(aa$,3,2))
6506 if a(0,2)=-3thena(0,2)=fa:a(0,3)=fa
6507 if a(0,2)=-4thena(0,2)=fe:a(0,3)=fe
6508 for i1=1toa(0,1)
6509 a(i1,1)=val(mid$(aa$,7+(i1-1)*4,2))
6510 a(i1,2)=val(mid$(aa$,9+(i1-1)*4,2))
6511 if a(i1,1)=-1thena(i1,1)=k(ha)
6512 if a(i1,2)=-1thena(i1,2)=k(ha)
6513 if a(i1,1)=-2thena(i1,1)=g4(n1,a(0,2))
6514 if a(i1,2)=-2thena(i1,2)=g4(n1,a(0,2))
6515 if a(i1,1)=-3thena(i1,1)=g5(n1,a(0,2))
6516 if a(i1,2)=-3thena(i1,2)=g5(n1,a(0,2))
6517 nexti1
6518 for i1=1toa(0,1)
6530 for i2=a(i1,1)toa(i1,2)stepsgn(a(i1,2)-a(i1,1))
6532 for i3=a(0,2)toa(0,3)
6538 if g1(n1,sp,i3)=2anda(0,4)=2then6550
6539 if i3=feanda(0,4)=1then6550
6540 if ko(n1,i3,i2)=1thenyy=2:gosub5100:return
6550 nexti3,i2,i1
6560 yy=0:return
7000 :
7005 au$="":gosub2700
7006 n1=ha:ru=ru+1
7007 fori=1to2
7008 an(i,f(i))=an(i,f(i))-1
7009 nexti
7010 for i1=1to2:fori4=1to3
7011 if k(i4)<>g4(i1,f(i4))then7014
7012 ifg4(i1,f(i4))<11theng4(i1,f(i4))=g4(i1,f(i4))+1
7013 ifg2(i1,f(i4),g4(i1,f(i4)))=1andg4(i1,f(i4))<11then7012
7014 if k(i4)<>g5(i1,f(i4))then7017
7015 ifg5(i1,f(i4))>1theng5(i1,f(i4))=g5(i1,f(i4))-1
7016 ifg2(i1,f(i4),g5(i1,f(i4)))=1andg5(i1,f(i4))>1then7015
7017 nexti4
7018 fori2=0to4:if g3(i1,i2)-an(i1,i2)=0thenfori3=1to3:g1(i1,i3,i2)=2:nexti3
7019 nexti2
7020 nexti1
7021 :
7027 su(ha)=su(ha)+ww(k(1))+ww(k(2))+ww(k(3))
7028 au$="> leertaste <":gosub2700
7029 wait203,60:au$="":gosub2700
7030 gosub 7100
7040 gosub 3286:ifru<11andso(1)=0thengosub3200
7045 ifru<10andso(1)=1thengosub3200
7060 return
7100 :
7110 print""
7115 for i=1to9
7120 printtab(2);" ";tab(31);" "
7130 nexti
7140 return
7200 :
7201 fa=df:k(n1)=g1:f(n1)=gg
7202 if k(n1)<5andfe<5thenf(n1)=fe
7203 if az=1thenfa=f(n1):df=fa
7204 fori1=1to2
7205 if g3(i1,f(n1))=0thenfori2=1to3:g1(i1,i2,f(n1))=2:nexti2
7206 g2(i1,f(n1),k(n1))=1:g1(i1,n1,f(n1))=1:iff(n1)<>fatheng1(i1,n1,fa)=2
7207 iffe=5then7210
7208 gt=ww(k(1))+ww(k(2))+ww(k(3))
7209 ifaz=3andgt>3andf(sp)<>faandf(sp)<>fetheng1(i1,sp,fe)=2
7210 for i9=1to3:rem blanke zehn
7211 if i9=spthen7213
7212 gosub55555
7213 nexti9
7214 g3(i1,f(n1))=g3(i1,f(n1))-1
7215 nexti1
7219 if az>1andf(n1)=faandk(n1)<k(ha)andf(ha)<>feandfa<>fethenha=n1
7220 if az>1andfa<>feandf(n1)=feand f(ha)<>fethen ha=n1
7250 if az>1andf(n1)=feandf(ha)=feandk(ha)>k(n1)thenha=n1
7251 if az=1thenha=n1
7259 fori8=1to4:tf(i8)=0:nexti8
7260 if ha<>spandso(3)=1andaz=3thenha=sp:goto7265
7261 iffe<5thenreturn
7265 if az=3andha=spthensu(sp)=0:au$="> leertaste <":gosub2700:wait203,60:goto7400
7270 return
7400 :
7401 if fe=5thenbh=1:ifso(5)=1thenho(5)=35
7402 if fe=5andru=11thensu(sp)=120
7403 if fe=5then7467
7404 if nq<1then7410
7405 ra=-2
7406 fori=1to3:ifsu(i)>rathenra=su(i):sp=i
7407 nexti:su(sp)=0
7408 tr$=" ramsch gibt 60 punkte! "
7409 poke49990,peek(49990)+1:ss=60:goto7470
7410 bh=2
7420 for i=2to4
7430 ifko(sp,i,0)<>ko(sp,1,0)then7441
7435 bh=bh+1
7440 nexti
7441 su(sp)=su(sp)+(120-(su(1)+su(2)+su(3)))
7459 if su(sp)<31 or su(sp)>90thenbh=bh+1:ifsu(sp)=0orsu(sp)=120thenbh=bh+1
7460 if so(5)=1thenbh=bh+1
7461 if so(1)=1thenbh=bh+2
7462 if so(2)=1thenbh=bh+1
7463 if so(3)=1thenbh=bh+1
7464 if so(2)=1andsu(sp)<91thensu(sp)=0:tr$=tr$+"nicht schneider! "
7465 if so(3)=1andsu(sp)<120thensu(sp)=0:tr$=tr$+" nicht schwarz! "
7466 if so(1)=1andg3(1,fe)>1thensu(sp)=0:tr$=tr$+"spitze nicht durch! "
7467 ss=bh*ho(fe):ifss<rzthensu(sp)=0:tr$=tr$+" ueberreizt! "
7468 poke49990,peek(49990)+1:ifsu(sp)<61andso(5)=0thenss=ss*2
7469 if so(4)=1 thenss=ss*2
7470 if peek(49991)>0thenpoke49991,peek(49991)-1:ss=ss*2:tr$=tr$+" bock"
7471 if so(4)=1 and su(sp)<61thenpoke 49991,peek(49991)+3
7482 s3=peek(49990)
7483 gosub7600
7490 fori=1to5step2
7491 poke 50000+i-1+(s3-1)*8,h((i+1)/2)
7492 poke 50000+i+(s3-1)*8,l((i+1)/2)
7493 nexti
7494 poke 50006+(s3-1)*8,ss/256
7495 poke 50007+(s3-1)*8,ss-int(ss/256)*256
7496 print"[147] spieler:[146]";su(sp);tab(20):su(sp)=0
7497 print" team: [146]";su(1)+su(2)+su(3)
7498 print "[144]";tr$;""
7499 print" [176][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][174]"
7500 print" [221]spiel.1[221]spiel.2[221] sie [221] spiel [221]"
7510 print" [171][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][179]"
7520 print" [221] [221] [221] [221] [221]"
7525 s4=s3-10:ifs4<1thens4=1
7530 for i1=s4tos3
7540 for i2=0to7step2:r=int(i2/2)
7550 a1=peek(50000+(i1-1)*8+i2)*256+peek(50001+(i1-1)*8+i2)
7555 av=peek(50000+(i1-2)*8+i2)*256+peek(50001+(i1-2)*8+i2)
7556 a1$=right$(str$(a1),len(str$(a1))-1)
7557 if a1=avandi2<6thena1$="--"
7560 a2=2+r*8+7-len(a1$)
7570 printtab(2+r*8);"[221]";tab(a2);"[144]"+a1$;"[145]"
7575 nexti2
7576 printtab(34)"[221]":nexti1
7577 print" [173][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][189]"
7578 print" bitte f1 druecken!
7580 [146]203,4:[161]l$:[156]:[138]110
7600 [143] spieler gew.
7601 [134] h(3):[134]l(3)
7605 m[178]1:[139] su(sp)[177]60[167]m[178]2
7615 [129] i[178]1[164]5[169]2:r[178](i[170]1)[173]2
7616 [139] r[178]sp[175]m[178]1[167]7620
7617 [139] r[179][177]sp[175]m[178]2[167]7620
7618 h(r)[178][194](50000[170]i[171]1[170](s3[171]2)[172]8)
7619 l(r)[178][194](50000[170]i[170](s3[171]2)[172]8)
7620 [130]i
7622 [129]i[178]1[164]5[169]2:r[178](i[170]1)[173]2
7623 [139] r[178]sp[175]m[178]2[167]7628
7624 [139] r[179][177]sp[175]m[178]1[167]7628
7625 q1[178][194](50000[170]i[171]1[170](s3[171]2)[172]8)[172]256[170][194](50000[170]i[170](s3[171]2)[172]8)
7626 q1[178]q1[170]ss
7627 h(r)[178][181](q1[173]256):l(r)[178]q1[171]h(r)[172]256
7628 [130]i
7630 [142]
8000 :
8010 au$[178]">karte nr.?<":[141]2700
8015 [139] ru[178]10[176](ru[178]9[175]so(1)[178]1[175]sp[178]3)[167]x[178]1:[137]8062
8020 [161]x$:[139]x$[178]""[167]8020
8030 x[178][197](x$):[139]x$[178]"0"[167]x[178]10
8040 [139] x[178]0[167]8020
8050 [139] x[177]11[171]ru[167]8020
8060 [139] kg(x,1)[179][177]fa[175]az[177]1[167][137]8080
8062 g1[178]kg(x,2):gg[178]kg(x,1)
8065 [141] 8100
8066 ko(3,kg(x,1),kg(x,2))[178]0
8067 kg(x,1)[178]0:kg(x,2)[178]0
8070 au$[178]"":[141]2700
8071 [141]7200
8075 [142]
8080 [129] i1[178]1[164](11[171]ru[171]so(1))
8085 [139] kg(i1,1)[178]fa[167]8020
8090 [130]i1
8095 [137]8062
8100 :
8120 [141] 3286
8121 g1[178]kg(x,2):gg[178]kg(x,1)
8125 [141]9000
8130 [153]""[166]15);"stop(NULL)tantantantantantantanright$"
8140 [129] i1[178]1[164]9
8150 [153][166]15);"stop(NULL)";ff$;ka$(gn,i1);"stop(NULL)"
8160 [130]i1
8170 [153][166]15);"stopmid$tantantantantantantan(NULL)onon"
9000 :
9001 :
9002 :
9003 gn[178]g1:[139]fe[179][177]5[176]g1[177]8[167]9010
9004 [139] g1[178]8[167]gn[178]6
9005 [139] g1[178]7[167]gn[178]gg
9006 [139] g1[178]6[176]g1[178]5[167]gn[178]g1[170]2
9007 [139] g1[178]4[167]gn[178]5
9010 [139]gn[179]5[167]gg[178]gn
9020 [139] gg[178]1[167]d$[178]"(NULL)"
9030 [139] gg[178]2[167]d$[178]"atn"
9040 [139] gg[178]3[167]d$[178]"(NULL)"
9050 [139] gg[178]4[167]d$[178]"(NULL)"
9051 ff$[178]"":[139] gg[179]3[167]ff$[178]"stop"
9053 [145]gn[137]9060,9060,9060,9060,9370,9470,9170,9270,9570,9670,9770
9060 ka$(gn,1)[178]"b b"
9070 ka$(gn,2)[178]d$[170]" "[170]d$
9080 ka$(gn,3)[178]" (NULL)tantantanright$ "
9090 ka$(gn,4)[178]" (NULL)(NULL) (NULL)(NULL) "
9110 ka$(gn,5)[178]" (NULL) (NULL) (NULL) "
9130 ka$(gn,6)[178]" (NULL)mid$tan(NULL)(NULL) "
9140 ka$(gn,7)[178]" mid$tantantan(NULL) "
9150 ka$(gn,8)[178]d$[170]" "[170]d$
9160 ka$(gn,9)[178]"b b"
9165 [142]
9170 ka$(7,1)[178]"k k"
9180 ka$(7,2)[178]d$[170]" "[170]d$
9190 ka$(7,3)[178]" (NULL)(NULL)(NULL)(NULL)right$ "
9200 ka$(7,4)[178]" (NULL)(NULL) (NULL)(NULL) "
9210 ka$(7,5)[178]" (NULL) (NULL) (NULL) "
9220 ka$(7,6)[178]" (NULL)(NULL)tanright$(NULL) "
9230 ka$(7,7)[178]" mid$tantantan(NULL) "
9240 ka$(7,8)[178]d$[170]" "[170]d$
9250 ka$(7,9)[178]"k k"
9260 [142]
9270 ka$(8,1)[178]"d d"
9280 ka$(8,2)[178]d$[170]" "[170]d$
9290 ka$(8,3)[178]" (NULL)(NULL)(NULL)(NULL)right$ "
9300 ka$(8,4)[178]" (NULL)(NULL) (NULL)(NULL) "
9310 ka$(8,5)[178]" (NULL) o (NULL) "
9320 ka$(8,6)[178]" (NULL)mid$tan(NULL)(NULL) "
9330 ka$(8,7)[178]" mid$tantantan(NULL) "
9340 ka$(8,8)[178]d$[170]" "[170]d$
9350 ka$(8,9)[178]"d d"
9360 [142]
9370 ka$(5,1)[178]"a a"
9380 ka$(5,2)[178]d$[170]" "[170]d$
9390 ka$(5,3)[178]" "
9400 ka$(5,4)[178]" "
9410 ka$(5,5)[178]" "[170]d$[170]" "
9420 ka$(5,6)[178]" "
9430 ka$(5,7)[178]" "
9440 ka$(5,8)[178]d$[170]" "[170]d$
9450 ka$(5,9)[178]"a a"
9460 [142]
9470 ka$(6,1)[178]"10 10"
9480 ka$(6,2)[178]d$[170]d$[170]" "[170]d$[170]d$
9490 ka$(6,3)[178]d$[170]" "[170]d$
9500 ka$(6,4)[178]" "[170]d$[170]" "[170]d$[170]" "
9510 ka$(6,5)[178]" "[170]d$[170]" "[170]d$[170]" "
9520 ka$(6,6)[178]" "[170]d$[170]" "[170]d$[170]" "
9530 ka$(6,7)[178]d$[170]" "[170]d$
9540 ka$(6,8)[178]d$[170]d$[170]" "[170]d$[170]d$
9550 ka$(6,9)[178]"10 10"
9560 [142]
9570 ka$(9,1)[178]"9 9"
9580 ka$(9,2)[178]d$[170]" "[170]d$
9590 ka$(9,3)[178]" "[170]d$[170]" "[170]d$[170]" "
9600 ka$(9,4)[178]" "[170]d$[170]" "[170]d$[170]" "
9610 ka$(9,5)[178]" "[170]d$[170]" "
9620 ka$(9,6)[178]" "[170]d$[170]" "[170]d$[170]" "
9630 ka$(9,7)[178]" "[170]d$[170]" "[170]d$[170]" "
9640 ka$(9,8)[178]d$[170]" "[170]d$
9650 ka$(9,9)[178]"9 9"
9660 [142]
9670 ka$(10,1)[178]"8 8"
9680 ka$(10,2)[178]d$[170]" "[170]d$
9690 ka$(10,3)[178]" "[170]d$[170]" "[170]d$[170]" "
9700 ka$(10,4)[178]" "[170]d$[170]" "[170]d$[170]" "
9710 ka$(10,5)[178]" "
9720 ka$(10,6)[178]" "[170]d$[170]" "[170]d$[170]" "
9730 ka$(10,7)[178]" "[170]d$[170]" "[170]d$[170]" "
9740 ka$(10,8)[178]d$[170]" "[170]d$
9750 ka$(10,9)[178]"8 8"
9760 [142]
9770 ka$(11,1)[178]"7 7"
9780 ka$(11,2)[178]d$[170]" "[170]d$
9790 ka$(11,3)[178]" "[170]d$[170]" "[170]d$[170]" "
9800 ka$(11,4)[178]" "[170]d$[170]" "
9810 ka$(11,5)[178]" "[170]d$[170]" "[170]d$[170]" "
9820 ka$(11,6)[178]" "
9830 ka$(11,7)[178]" "[170]d$[170]" "[170]d$[170]" "
9840 ka$(11,8)[178]d$[170]" "[170]d$
9850 ka$(11,9)[178]"7 7"
9860 [142]
10000 [143] ramschen pos1
10005 [139] g3(n1,0)[171]an(n1,0)[177]0[167]aa$[178]"0000000401":[141]6500:[139]yy[178]2[167][142]
10010 aa$[178]"010400-3-3":[141]6500:[139]yy[178]2[167][142]
10020 aa$[178]"0104001105":[141]6500:[139]yy[178]2[167][142]
10030 aa$[178]"0000000401":[141]6500:[142]
10100 [143] ramschen pos 2
10110 [139] an(n1,fa)[177]0[167]aa$[178]"-3-300-111-101":[141]6500:[142]
10120 [139] ww(kv)[178]0[167]aa$[178]"-4-4000104":[141]6500:[139]yy[178]2[167][142]
10130 [129]i1[178]1[164]2:[129]fa[178]1[164]4
10131 [139] an(n1,fa)[178]i1[167]aa$[178]"-3-3000511":[141]6500:fa[178]df:[142]
10132 [130]fa,i1:fa[178]df
10133 aa$[178]"0104010511":[141]6500:[139]yy[178]2[167][142]
10140 aa$[178]"0000000104":[141]6500:[142]
10200 [143] ramschen pos 3
10201 gh[178]ww(k(op))[170]ww(kv)
10205 [139] an(n1,fa)[178]0[167]10230
10210 [139] gh[177]7 [167]aa$[178]"-3-300-111-101":[141]6500:[139]yy[178]2[167][142]
10220 [139] gh[179]8 [167]aa$[178]"-3-300-101-111":[141]6500:[139]yy[178]2[167][142]
10230 [139] gh[179]8[167]aa$[178]"000000-2-2":[141]6500:[139]yy[178]2[167][142]
10240 [137]10130
20000 [151] 53280,5:[151]53281,8
20001 [153]"load";
20010 [153]" (NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$"
20020 [153]" (NULL)(NULL)tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantantanright$(NULL)"
20030 [153]" (NULL)(NULL) (NULL)(NULL)"
20040 [153]" (NULL)(NULL) step (NULL)step (NULL) stepwaitstepstep (NULL) wait(NULL)(NULL)"
20050 [153]" (NULL)(NULL) waitstep (NULL) waitstep (NULL) stepwaitstep wait(NULL)(NULL)"
20060 [153]" (NULL)(NULL) (NULL) (NULL) stepwaitstep wait(NULL)(NULL)"
20070 [153]" (NULL)(NULL) (NULL) (NULL) wait(NULL) (NULL) wait(NULL)(NULL)"
20080 [153]" (NULL)(NULL) (NULL) wait(NULL) wait(NULL)(NULL) wait(NULL)(NULL)"
20090 [153]" (NULL)(NULL) (NULL)step (NULL)step wait(NULL)(NULL) wait(NULL)(NULL)"
20100 [153]" (NULL)(NULL) (NULL) waitstep(NULL) waitstep wait(NULL)(NULL) wait(NULL)(NULL)"
20110 [153]" (NULL)(NULL) (NULL)(NULL)"
20120 [153]" (NULL)(NULL) (w) joern scheller 1984 (NULL)(NULL)"
20130 [153]" (NULL)(NULL) stoptotototototo (NULL)(NULL)"
20140 [153]" (NULL)(NULL) stopfn then (NULL)(NULL)"
20150 [153]" (NULL)(NULL) stop (NULL)(NULL) fn(NULL) (NULL)then (NULL)(NULL) (NULL)(NULL)"
20160 [153]" (NULL)(NULL)stop (NULL) (NULL) fn + (NULL) (NULL) (NULL)(NULL)"
20170 [153]" (NULL)(NULL)stop (NULL) (NULL) (NULL)sgn(NULL)right$(NULL)right$then (NULL) (NULL) (NULL) (NULL)(NULL)"
20180 [153]" (NULL)(NULL)stop (NULL) fn +(NULL) (NULL) (NULL)(NULL)"
20190 [153]" (NULL)(NULL)stop (NULL) (NULL)(NULL) fn (NULL)right$ (NULL) (NULL)(NULL) (NULL) (NULL)(NULL)"
20200 [153]" (NULL)(NULL)stop (NULL) (NULL) (NULL) (NULL)(NULL)fn mid$(NULL)(NULL) (NULL)right$ (NULL) (NULL) (NULL) (NULL)(NULL)"
20210 [153]" (NULL)(NULL)stop (NULL) (NULL)(NULL)(NULL)right$fn (NULL)(NULL) (NULL)(NULL)right$right$(NULL) (NULL) (NULL)(NULL)"
20220 [153]" (NULL)(NULL)stop (NULL) (NULL)mid$(NULL)fn (NULL) (NULL)thenmid$(NULL)(NULL) (NULL) (NULL)(NULL)"
20230 [153]" (NULL)(NULL)stop (NULL) (NULL)tab(fn(NULL) (NULL) tab((NULL) (NULL) (NULL)(NULL)onon"
20250 [142]
55555 [139] az[179][177]3[167][142]
55556 [139] g3(i1,fa)[179][177]5[167][142]
55557 [139] k(sp)[179][177]5[167][142]
55558 [139] k(i9)[179][177]6[167][142]
55559 g1(i1,i9,fa)[178]2:[142]
60000 [135]a:[153]a,:[137]60000