AFRICA (&Ȕ(*********************** * underlined characters * * are entered in * * GRAPHICS mode. * ************************** d[ 17,a$(h);1;2;(17,a$(h)):s=h(h):h(h)=0:d=d+1 nQss=s-1:h=h+1-12 *(h=12 ):h(h)=h(h)+1:110n ~ 17,a$(h);1;0;2;(17,a$(h)):h(h)1b=10 10 +h(h):.002xn,b+d:b: Ҫ 17,a$(h);5;1;(17,a$(h)):end=1:op=13 -h:b=2020+h(op):.02{# =,b:b:(zxop<7)(zxop>6)h(op) ܬwin=h(op):h(op)=0:s(2-zx)=s(2-zx)+win*sc:17,a$(op);1;1;5;(17,a$(op)):b=3030+win:.025{L,b:b: ,19,0;" ";19,2;1;(d-8*(d/8));9 ;" MOVE ";d;" ";:p=112 :2300+b(p):n$ J4x$(p),y$(p);n$:h(p)=b(p):.005y# =,d+b(p):p TX15,11 ;s(2);:15,20;s(1):19,11 ;l$: J0:17,0;4;"A B C D E F MOVE G H I J K L": ("You lose by "+(s(1)-s(2))+" points."s(1)>s(2))+("You win by "+(s(2)-s(1))+" points."s(1)24s(2)>24600X Is(1)+s(2)>39'winc=c+1:c>10 600X  id=0:s(2):b(12 ):h(12 ):a$(12 ):c$(12 ):x$(12 ):y$(12 ) 021004:p=095_:g:"a"+p,g:p 2000:19,7;0;"Do you wish to see";20,7;"the instructions?";21,13 ;"(Y/N)":u$:u$-32 *(u$="y")=89Y2400` 02160p:n=112 :a:a$(n)=a:n  2020 $,2080 :u$:u$<"0"u$>"9"1060$ .l=u$+20*(u$="0"):15,0;" ":p=15212:p,20;" ":p:l$=" LEVEL "+u$+" " 83000 :n=112 :x,y:x,y;" ";x+2-4*(n>6),y+1;7;0;1;(64@+n):x$(n)=x:y$(n)=y:n BQ15,0;1;1;7;"PLAYER SCORES SPECTRUM" Lm(12 ):t=0:sc=0:c=0:s(1)=0:s(2)=0:p=112 :b(p)=4:h(p)=4:p V:zx=(*2) `300,:400 ~zx17,19;1;7;1;">":"You have lost the toss. Press ENTER when you're ready. ";u$:pref=(*7+6):1400x zx1500  700 Ċ(b(7)+b(8)+b(9 )+b(10 )+b(11 )+b(12 ))s(1)=s(1)+480-s(1)-s(2):580D 2op=0:sc=0:win=0:m(12 ) {17,19;1;7;1;">":"Press ENTER for a reply, please.";u$:400:u$="end"600X v19,0;"ANALYSE ":p=712 :d=0:end=0:win=0:op=0:b(p)1350F (-h=p:m=p::k=112 :h(k)=b(k):k 22400:100d:d<1end13302 <m(p)=win*end Fp PVpref=7:19,0;"EVALUATE":p=712 :m(p)>m(pref)pref=p Zp dXb=0:p=712 :pprefb(p)>0m(p)=m(pref)b=b+1:m(b)=p np:bpref=m((*b)+1) xrend=0:d=0:op=0:sc=1:h=pref:win=0:400:p=112 :h(p)=b(p):p B17,a$(h);1;2;(17,a$(h)):100d Jp=112 :b(p)=h(p):p:300,:end400:1410  700 ҇(b(1)+b(2)+b(3)+b(4)+b(5)+b(6))s(2)=s(2)+480-s(1)-s(2):580D p17,12 ;1;7;1;"<":"Your move. Enter the cup letter.";u$:u$="end"600X h=u$-64@-32 *(u$>"Z"):400:h<0h>621,0;"Illegal move:please re-enter.":1500 Od=0:zx=0:sc=1:win=0:op=0:b(h)1500 B17,a$(h);1;2;(17,a$(h)):100d "Ip=112 :b(p)=h(p):p:op300,:400:1560 ,300,:zx=1 6 1200 У4:4:2::''" " ե''" " 3 16,6;0;"Mike Edwards,1983": j6:6:0::4;"**** AFRICAN SEEDS ************************************" '" " -1;" " " "    15,0;"ENTER SKILL LEVEL : 1-3 = BASIC"'';20;"4-6 = EASY";''20;"7-9 = HARD";''22;"0 = EXPERT" * 4C0,0,0,24,24,0,0,0 5E0,24,24,0,0,24,24,0 6G24,24,0,24,24,0,24,24 7I0,102f,102f,0,0,102f,102f,0 8K195,195,0,24,24,0,195,195 9M102f,102f,0,102f,102f,0,102f,102f :M102f,102f,0,219,219,0,102f,102f ;M219,219,0,195,195,0,219,219 Q128,192,224,248,255,255,255,255 ?J1,3,7,31,255,255,255,255 ph0,2,4,6,8,10 ,21,23,25,27,29,31 " " " " " " "" " " " " "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" "" " 25" " 26" " 27" " 28" " 29" " 30" `a4:4:0::"**** AFRICAN SEEDS ************************************" j''" AFRICAN SEEDS is based on the African Mancala games, though its rules are simpler than thoseof many of the originals." t'" In this version twelve cups offour seeds are divided equally between the players. The alm isto score points by capturing as many seeds as possible. A scoreof twenty-five ensures victory." ~""Press any key to continue ";u$ a4:4:0::"**** AFRICAN SEEDS ************************************" ''" Each player in turn takes the seeds from any one of his cups, and sows them one by one into succesive cups anti-clockwise round the board, starting with the cup next to the source cup." '" If the last seed of the move lands in an occupied cup, the player lifts all the seeds from it and continues sowing. Play goes in this way until a moveends an empty cup." |'" If the turn ends in an empty cup in the opposing rank, or opposite an empty cup, then playpasses to the opponent." ""Press any key to continue ";u$ a4:4:0::"**** AFRICAN SEEDS ************************************" '" Captures are possible only if the last seed of a move lands inan empty cup in the player's ownrank, opposite an occupied cup. Then the seeds in the opposing cup are removed and their numberis added to the player's score." ΄''" Play goes on in this way untilone player has more than twenty-four points, or both players agree that the result is clear." ،'" One caution: if you leave youropponent without seeds to play on his turn, then any seeds thatremain on the board are forfeit to him." #"Press any key to continue ";u$ a4:4:0::"**** AFRICAN SEEDS ************************************" u''" The first player is decided atrandom by the computer."'"You have cups A to F."'"The computer has cups G to L." '" When you are invited to move, simply enter the letter of the cup whose seeds yo wish to sow.The computer will wait for you to press ENTER before making itsown move." '" When the game is resolved, thecomputer will end it and declarethe result. You can stop play at any time by typing""end""." j"Press R to repeat, or any order key to play the game ";z$:z$=82R+32 *(z$="r")2400`  11 ,2,11 ,7,11 ,12 ,11 ,17,11 ,22,11 ,27,5,27,5,22,5,17,5,12 ,5,7,5,2 d ? ?         ,g 8alL LEVEL 1 xytcrenh is m (? N UY