30 POKE53280,0:POKE53281,0:PRINTCHR$(142)CHR$(8):DIMA(64),B(7,7):PRINT"[147]"TAB(17)"[158]ADDIT":B$="                                       ":B1$="[176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174]":B2$="[221]  [221]  [221]  [221]  [221]  [221]  [221]  [221]  [221]"
60 B3$="[171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179]":B4$="[173][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][177][192][192][189]":D$="":L$=LEFT$(D$,22):PRINT"DO YOU REQUIRE INSTRUCTIONS (Y/N) ? ";:GOSUB720:PRINTA$:IFA$="Y"THENGOSUB760
90 PRINT"HOW MANY PLAYERS ? ";:GOSUB740:PRINTA$:N=VAL(A$):IFN=2THEN110
100 PRINT:INPUT"WHAT IS YOUR NAME ";P1$:P2$="THE COMPUTER":GOTO130
110 PRINT:INPUT"WHAT IS YOUR NAME, PLAYER 1 ";P1$:PRINT:INPUT"WHAT IS YOUR NAME, PLAYER 2 ";P2$:P2$=LEFT$(P2$,12)
130 P1$=LEFT$(P1$,12):N1=25+INT((15-LEN(P1$))/2):N2=25+INT((15-LEN(P2$))/2)
140 PRINT"[147]"B1$:FORY=0TO6:PRINTB2$:PRINTB3$:NEXT:PRINTB2$:PRINTB4$:PRINT""TAB(29)"SCORES":PRINTTAB(29)"[192][192][192][192][192][192]":PRINTLEFT$(D$,6)TAB(N1)P1$:PRINTLEFT$(D$,12)TAB(N2)P2$:N3=N1-20:N4=N2-20:PRINTL$TAB(10)"PLEASE WAIT A MOMENT":R=1:FORC=1TO64:A(C)=C:NEXT:FORC=64TO1STEP-1:READD:E=INT(RND(0)*C)+1:V=A(E)-1
190 IFE<CTHENFORH=ETOC-1:A(H)=A(H+1):NEXT
200 H=INT(V/8):V=V-8*H:B(H,V)=D:GOSUB330:NEXT:S1=0:S2=0:GOSUB590
210 P=1:GOSUB380:IFF=0THEN230
220 P=2:GOSUB400:IFF<>0THEN210
230 PRINTL$B$L$;:ONSGN(S2-S1)+2GOSUB260,290,300:PRINTD$TAB(10)"ANOTHER GAME (Y/N) ?";:GOSUB720:IFA$="Y"THENRESTORE:GOTO140
250 PRINT"[147]"CHR$(9):END
260 T=20-INT((LEN(P1$)+17)/2):PRINTTAB(T)P1$" WON BY"(S1-S2)"POINT";:IFS1-S2>1THENPRINT"S"
280 RETURN
290 PRINTTAB(12)"IT'S A DRAW !             ":RETURN
300 T=20-INT((LEN(P2$)+17)/2):PRINTTAB(T)P2$" WON BY"(S2-S1)"POINT";:IFS2-S1>1THENPRINT"S"
320 RETURN
330 CD=H*2+2:L1$=LEFT$(D$,CD):CR=V*3+1:D=B(H,V):PRINTL1$TAB(CR)"[146]";:IFR=2THENPRINT"";
350 IFD=50THENPRINT"**[146]":B1=H:B2=V:RETURN
380 F=300:FORV=0TO7:F=F+B(B1,V):NEXT:IFF=0THENRETURN
400 F=300:FORH=0TO7:F=F+B(H,B2):NEXT:IFF=0THENRETURN
420 Y=B1:X=B2:IFN=2ORP=1THEN440
430 PRINTL$B$L$TAB(12)"I'M THINKING....":GOSUB600:GOTO540
440 T=20-INT((LEN(N$)+12)/2):PRINTL$B$L$TAB(T)"YOUR TURN, "N$
450 GETA$:IFA$=""THEN450
460 IFA$<>" "THEN520
470 X1=X:Y1=Y
480 Y=Y+YY:IFY>7THENY=0
490 X=X+XX:IFX>7THENX=0
500 Z=B(Y,X):IFABS(Z)=50THEN480
510 R=1:H=Y1:V=X1:GOSUB330:R=2:H=Y:V=X:GOSUB330:GOTO450
520 IFA$<>CHR$(13)THEN450
530 IFABS(B(Y,X))=50THEN450
540 IFN=1ANDP=2THENR=2:H=Y:V=X:GOSUB330
550 R=1:H=B1:V=B2:B(H,V)=-50:GOSUB330:H=Y:V=X:Z=B(H,V):B(H,V)=50:GOSUB330:IFP=1THENS1=S1+Z
570 IFP=2THENS2=S2+Z
580 PRINTLEFT$(D$,19)TAB(13)"LAST TAKEN :"Z"[157] "
590 PRINTLEFT$(D$,8)TAB(30)S1"[157] ":PRINTLEFT$(D$,14)TAB(30)S2"[157] ":RETURN
600 M=-50:G=-1:FORA1=0TO7:D=B(A1,B2):IFABS(D)=50THEN710
610 X2=-50:FORA2=0TO7:IFA2<>B2THENK=B(A1,A2):IFK<>-50ANDK>X2THENX2=K:S=A2
620 NEXT:IFX2<>-50THEN640
630 IFD>MTHENM=D:G=A1:GOTO710
640 IFG<0THENG=A1
650 FORA2=0TO7:Q=B(A2,S):IFQ=-50ORA2=A1THEN700
660 Y2=-50:FORA3=0TO7:W=B(A2,A3):IFA3=STHEN680
670 IFABS(W)<>50ANDW>Y2THENY2=W
680 NEXT:IFY2=-50THENY2=0
690 L=D-X2+Q-Y2:IFL>MTHENM=L:G=A1
700 NEXT
710 NEXT:Y=G:RETURN
720 GETA$:IFA$<>"Y"ANDA$<>"N"THEN720
730 RETURN
740 GETA$:IFA$<>"1"ANDA$<>"2"THEN740
750 RETURN
760 PRINT" ADDIT IS A BOARD GAME FOR 1-2 PLAYERS.":PRINT" EVERY SQUARE ON THE BOARD HAS A VALUE,":PRINT" AND YOU SCORE POINTS BY LANDING ON THE":PRINT" SQUARES. YOU MAY MOVE IN ONE DIRECTION":PRINT" ONLY - HORIZONTALLY OR VERTICALLY. YOU"
810 PRINT" MUST PRESS THE SPACE  BAR TO MOVE FROM":PRINT" SQUARE TO SQUARE AND THEN PRESS RETURN":PRINT" TO SCORE, BUT BEWARE - SOME SQUARES ON":PRINT" THE BOARD CONTAIN MINUS VALUES !":PRINTTAB(6)"PRESS SPACE BAR TO CONTINUE."
860 GETA$:IFA$<>" "THEN860
870 PRINT"[147]":RETURN:DATA15,10,9,9,8,8,7,7,7,6,6,6,5,5,5,5,4,4,4,4,3,3,3,3,3:DATA2,2,2,2,2,1,1,1,1,1,0,0,0,0,0,-1,-1,-1,-1,-2,-2,-2,-2:DATA-3,-3,-3,-3,-4,-4,-4,-5,-5,-5,-6,-6,-7,-7,-9,50