start tok64 d64-jAjcvM
0 DIMa(99):i=RND(0)*5:a(INT(i)*9+RND(0)*i)=6:OPEN1,0:GOTO4
1 PRINT" h]l: (ex:a1): ";:INPUT#1,a$:f=ASC(a$+"w")-65:s=VAL(MID$(a$,2))-1:PRINT
2 j=f+s*9:IFf>sORf<0ORABS(s-2)>2THENj=3
3 s=(i+j)/2:f=ABS(i-j):f=f<>2ANDf<>18ANDf<>20ORa(s)ORa(i)ORa(j)=0:RETURN
4 PRINTTAB(21)"N M":FORi=0TO4:PRINTTAB(17-i)i+1"N ";:FORs=0TOi
5 PRINTCHR$(a(i*9+s)+209)" ";:NEXT:PRINT"M":NEXT:PRINTTAB(16)"-a-b-c-d-e{-*3}"
6 PRINT:FORa=0TO4:FORb=0TOa:FORj=0TO40:i=a*9+b:GOSUB3:IFfTHENNEXTj,b,a:GOTO9
7 PRINT"fr]n";:GOSUB1:i=j:PRINT"till";:GOSUB1:GOSUB3:IFfTHEN7
8 a(s)=6:a(i)=6:a(j)=0:x=x+1:GOTO4
9 IFf=13THENPRINT"grattis, du har klarat det!":GOTO11
10 PRINT"det har k{pound}rt ihop sig, spelet [r slut.{space*2}du fick bort"x"pinnar."
11 INPUT"vill du spela igen";a$:IFASC(a$)=74THENRUN
stop tok64
(bastext 1.0)