start tok64 d64-CD11o4
5 PRINT"{clear}kalaha{down} club 64 pd 1988"
10 DATA0
15 DIM b(13),g(13),f(50):READ n
20 PRINT"{down}":e=0
25 FORi=0TO12 :b(i)=3:NEXT i
30 c=0:f(n)=0:b(13)=0:b(6)=0
35 GOSUB500
40 PRINT"ditt drag ";:GOSUB110
45 IF e=0 THEN 80
50 IF m=h THENGOSUB100
55 IF e=0THEN80
60 PRINT"mitt drag [r ";:GOSUB 800
65 IF e=0 THEN 80
70 IF m=h THEN PRINT",";:GOSUB800
75 IF e>0THEN 35
80 PRINT"{down}*spelet slut*"
85 d=b(6)-b(13):IF d<0 THEN PRINT"jag vann med ";-d;"po[ng":GOTO20
90 n=n+1: IF d=0 THEN PRINT "oavgjort!":GOTO20
95 PRINT"du vann med ";d;" po[ng":GOTO20
100 PRINT"ditt drag igen ";
110 INPUT m: IF m<7THEN IF m>0 THEN m=m-1:GOTO130
120 PRINT"felaktigt drag ":GOTO100
130 IF b(m)=0 THEN 120
140 h=6:GOSUB 200
150 GOTO 500
200 k=m:GOSUB 600
205 e=0:IF k>6 THENk=k-7
210 c=c+1:IFc>9 THENf(n)=f(n)*6+k
215 FOR i=0TO 5:IFb(i)<>0THEN230
220 NEXT i
225 RETURN
230 FOR i=7 TO 12:IF b(i)<>0THENe=1:RETURN
235 NEXT i
500 PRINT:PRINT"{space*3}";
505 FOR i= 12TO 7 STEP -1:GOSUB 580
510 NEXT i
515 PRINT:i=13:GOSUB580
520 PRINT "{space*23}";b(6):PRINT"{space*3}";
525 FORi =0 TO 5: GOSUB 580
530 NEXT i
535 PRINT:PRINT:RETURN
580 IF b<10 THEN PRINT " ";
585 PRINT b(i); : RETURN
600 p=b(m):b(m)=0
605 FOR p=pTO 1 STEP-1:m=m+1:IFm>13 THENm=m-14
610 b(m)=b(m)+1:NEXT p
615 IF b(m)= 1 THEN IF m<>6 THENIFm<>13THENIFb(12-m)<>0THEN 625
620 RETURN
625 b(h)=b(h)+b(12-m)+1:b(m)=0:b(12-m)=0:RETURN
800 d=-99:h=13
805 FOR i= 0TO13: g(i)=b(i):NEXT i
810 FOR j=7 TO12: IFb(j)=0THEN885
815 g=0:m=j:GOSUB 600
820 FOR i=0 TO 5: IFb(i)=0THEN845
825 l=b(i)+i:r=0
830 IF l>13 THEN l=l-14:r=1:GOTO830
835 IF b(l)=0THEN IF l<>6THEN IFl<>13THENr=b(12-l)+r
840 IF r>q THEN q=r
845 NEXT i
850 q=b(13)-b(6)-q : IF c> 8 THEN875
855 k=j: IFk>6THENk=k-7
860 FOR i=0 TO n-1:IF f(n)*6+k=INT(f(i)/6*(7-c)+.1)THENq=q-2
870 NEXT i
875 FOR i=0 TO 13:b(i)=g(i):NEXT i
880 IF q>=d THEN a=j:d=q
885 NEXT j
890 m=a:PRINTCHR$(42+m);:GOTO200
900 FOR i=0 TO n-1:PRINT b(i):NEXT i
stop tok64
(bastext 1.0)