Postgamm yt"yQTHISPROGRAMESHOULDNOTBECOPYEDWITHOUTTHEPERMISSIONOFPOSTERNLtd. SDo NOT COPY ! 2 REM Do NOT COPY ! 4 REM Do NOT COPY ! 0:7:0:5::0:0,0:0,175:255,0:0,-175:-255,0 QTHISPROGRAMESHOULDNOTBECOPYEDWITHOUTTHEPERMISSIONOFPOSTERNLtd. 8400 0:1:7:6::0:0,0:0,175:255,0:0,-175:-255,0 N215,16:0,159:216,16:0,159 '217,135:38&,0  *** DRAW SPIKES ***  QTHISPROGRAMESHOULDNOTBECOPYEDWITHOUTTHEPERMISSIONOFPOSTERNLtd. * DEFINE CHARCTERS * =i=117:a$:n=07:d:a$+n,d:n:i #E"a",7,7,7,7,7,7,7,7 (E"b",3,3,3,3,3,3,3,3 -E"c",1,1,1,1,1,1,1,1 2U"d",128,128,128,128,128,128,128,128 7U"e",192,192,192,192,192,192,192,192 9U"f",224,224,224,224,224,224,224,224 E"h",4,4,4,4,4,4,4,4 AE"i",2,2,2,2,2,2,2,2 CM"j",16,16,16,16,16,16,16,16 FM"k",32 ,32 ,32 ,32 ,32 ,32 ,32 ,32 HM"l",64@,64@,64@,64@,64@,64@,64@,64@ JO"m",129,129,66B,66B,36$,36$,24,24 LO"n",24,24,36$,36$,66B,66B,129,129 NQ"o",255,255,126~,126~,60<,60<,24,24 PQ"p",24,24,60<,60<,126~,126~,255,255 RO"q",0,60<,126~,126~,126~,126~,60<,0 ZQTHISPROGRAMESHOULDNOTBECOPYEDWITHOUTTHEPERMISSIONOFPOSTERNLtd. ^ `*** DISPLAY SPIKES *** b db$=" " ib$=b$+"" kb$=b$+" " nw$=" " pw$=w$+" " qQTHISPROGRAMESHOULDNOTBECOPYEDWITHOUTTHEPERMISSIONOFPOSTERNLtd. rw$=w$+" " |** TOP ROW ** }7an=0:n=12:n=2an=14 .c=1:1:p=anan+11 2 c=0s$=w$ c=1s$=b$ .co=1:s=pp+2:y=18 y,s;s$(co) co=co+1:y QTHISPROGRAMESHOULDNOTBECOPYEDWITHOUTTHEPERMISSIONOFPOSTERNLtd. $s:c=0c=1:152 c=1c=0 >p:n:0:0,168:215,0:1 80,0;" A B C D E F G H I J K L":0 ** BOTTOM ROW ** 7an=0:n=12:n=2an=14 .c=0:1:p=anan+11 2 c=0s$=w$ c=1s$=b$ 9co=1:s=pp+2:y=1811 -1 s$(co)=""s$(co)="" s$(co)=""s$(co)="" y,s;s$(co) co=co+1:y $s:c=0c=1:178 c=0 p:n:0 60,15:0,8:215,0 B1:19,0;" X W V U T S R Q P O N M":0 %0,16:255,0 e103g,24:0,143:112p,24:0,143:2,13 ;"B" v3,13 ;"A":4,13 ;"R":15,13 ;"B":16,13 ;"A":17,13 ;"R" 9 ,13 ;"Y" 3300 :Dice Background L1:0,28;"Bar";8;8;8;"___":0 zap=0:paz=0 82,28;":";paz:3,28;"O:";zap  &o(6):b(25):Board array c(24):Colour in=0:mob=0:gone=0:ygoes=0:ko=0:goes=0:ch=0:egy=0:egm=0:rt=0:bom=0:boy=0:bo=0 Hi=124:b(i)=0:c(i)=0:i:b(25)=0 "** DATA for SETUP ** ,-i=18:p,n,c:b(p)=n:c(p)=c:i 123,1,1,22,2,1,21,3,1,20,3,1 32,3,2,3,2,2,4,2,2,5,2,2 61,2,1,6,5,2,8,3,2,12 ,5,1,13 ,5,2,17,3,1,19,5,1,24,2,2 @ J*x(24):i=124:x(i):i Oh1,3,5,7,9 ,11 ,15,17,19,21,23,25 Qh25,23,21,19,17,15,11 ,9 ,7,5,3,1 Y ^'i=112 :b(i)=0i: ha$="O":c(i)=2a$="" rn=1b(i) w 0+n,x(i);a$:n:0 |i  1i=2413 -1:b(i)=0i: a$="O":c(i)=2a$="" -n=18(18-b(i))+1-1 n,x(i);a$:n:i  dg=1 yg=1:600X  500   420,1;" "     ygoes=ygoes+1 ?3400H :.1}L,15:n$="abcdefghijklmnopqrstuvwxy"  z$="ABCDEFGHIJKLMNOPQRSTUVWXY" 450:Clear line I20,1;"Your go with the ";dc;" ? ";:1:"_";:0 k$=:k$=13 450:20,1;" Ha ha ! You can't go !":f=0142:g=ff-1-.3:.01z# =,g:g:f:100d:5000 k$=""530 k$"z"540 rdg=2450:20,1;"You just used the other dice !":.5,12 :6:507 dc=dadc=db:536 dc=dbdc=da i450:20,1;" Change over dice.":.1}L,16:i=1502:i:507  !>(k$)<97aů(k$)>121y.3,10 :530 &L20,23;8;((k$)-32 ):.1}L,11 :10 '#k$="y"6000p:Move you off. ( + - 0 i=1̱(n$):n$(i)=k$k=i 5i :eb(k)=0450:20,3;"Nothing there !":.5,7:15:510 Duc(k)=2450:20,1;"Oy! Leave off! Those are mine!":.4L,13 :502:510 F"800 :go=0507 I 700 Jdc=dadc=db:588L Kdc=da L5dg=dg+1:dg=35000:Computers go N 507 W X b33400H :ngm=0:egm=1ngm=1 gpaz>08100 lNgoes>2paz=0c(24)=2b(24)=27200  vSch=1yg=0in=1:7000X:in=0:Pick dice and moves...  yg=03320 yg=13300 /i=0:do=0:da=0:db=0 'g=(*30)+20:i=1g da=(*6)+1 0yg=0db=(*4)+3:670 db=(*6)+1 W8,29;da:beep=14:db013 ,29;db:beep=13 yg=0beep=3 =.006yD,beep:i:yg=0da=dbrt=1691 yg=1ygoes>3da=(*3)+1:db=(*3)+1:.006yD,14:8,29;da:13 ,29;db:ygoes=0 jdc=da:db=dadg=-1:do=1:450:20,1;" Wow ! A double !!":502 yg=0rt=13:da=ea:db=eb:8,29;da:13 ,29;db:0.006yD,3:dc=da:dg=1:do=0:da=dbdo=1:dg=-1 Lgoes>2yg=0gone=1ch=0:rt=0:gone=0 <yg=0ch1mob=1mob=0:rt=0 1yg=0mob=1mob=0:ch=0   s=k r$=" ":e$=" " *(s+dc)/2>((k+dc)/2)r$=""  s/2>(k/2)e$="" ib(s)>7s<13 1,x(s);b(s)-7:b(s)-7=11,x(s);"O":730 $b(s)>7s<13 730 `b(s)>718,x(s);b(s)-7:b(s)-7=118,x(s);"O":730 b(s)>7730 9s>12 18-(b(s)-1),x(s);e$:730 !1+(b(s)-1),x(s);e$ /b(s)=b(s)-1:b(s)=0c(s)=0 gboo=1boy=boy+1:g=0:g=015:.01z# =,g:g:boy=154000 boo=1 ;b(s+dc)=b(s+dc)+1:c(s+dc)=0c(s+dc)=1 b(s+dc)>7s+dc<13 i=13:1,x(s+dc);r$:4:1,x(s+dc);(b(s+dc)-7)+1:4:.2~L,16:i: b(s+dc)>7i=13:18,x(s+dc);r$:4:18,x(s+dc);(b(s+dc)-7)+1:4:.2~L,16:i: 9cp=x(s+dc):i=13:b(s+dc)=11 Jy=1+(b(s+dc)-1):s+dc>12 y=18-(b(s+dc)-1) 0:y,cp;r$:4 b(s+dc)=11 5y,cp;"O":4:.2~L,16:0:i:     /boo=0:go=0:k=0805% "`zap>0450:20,1;"You're still on the bar matey!":.1}L,8: %&k+dc>248250: :Bare off. &k$"y"810* 'rzap=0450:20,1;"There's nothing there idiot !":.5,7:15:830> *(c(k+dc)2go=1:830> /9b(k+dc)=1paz=paz+1:egm=0:rt=0:ngm=0:450:20,1;" Ouch! That hurt !!":g=0:g=150-1:.01z# =,g:.01z# =,(*30)-14:g:1:2,30;paz:0:go=1:b(k+dc)=0:c(k+dc)=1:830> 1k=0k=25 4G450:20,1;" ";z$(k);" to ";:k=25k=0 51z$(k+dc);" is not possible !!":1,1 > z   0dice=da:n=12:n=2dice=db 3i=124:c(i)1i:n:950 5i+dice>24n=2"End game not ready !": c(i+dice)=1450:20,1;"Fool ! What about ";:1:n$(i);:0:" with the ";:1:dice:0:z=1160.2~L:0.0046y,z:z:500 i:n H450:20,1;" I knew this would happen !":10 :      Leave a few lines    3400H ]pc=1:i=0:i=241-1:c(i)2i:1200:Goto DUO ? *i-da<1i-db<1i:1200 Me=0:fo=0:e=ii-(i-1)-1:c(i)=1fo=1 %e:fo=1i<71200   b(i)=11070. $i:1200 ( ) * .egy=0egm=0450:20,1;"I wonder if I can cover ";z$(i);" ?..":80P:n=0:dce=da:n=12:n=2dce=db 3dce=0n:i:1200 8"i+dce>24n:i:1150~ =!c(i+dce)2n:1150~ B$b(i+dce)=2n:i:1200 Lcegy=0egm=0450:20,1;" Yes !":70F:m=i+dce:dm=dce: x y z ~egy=0egm=0450:20,1;" Well can I move ";z$(i);" then ?":80P:pc=pc+1:dce=da:n=0:n=12:n=2dce=db dce=0n:i:1200 !i-dce<1n:i:1200 5c(i-dce)2b(i-dce)>1n:i:1200 Nch=0(*2)+1=1b(i-dce)=0n:i:1200 _egy=0egm=0450:20,1;" Yes !":100d:m=i:dm=dce:    .da6c(6)=2b(6)>4c(6-da)1m=6:dm=da: .db6c(6)=2b(6)>4c(6-db)1m=6:dm=db: Qpc=3:i=0:i=241-1:c(i)2i:1250 *i-da<1i-db<1i:1250 b(i)2i:1250  :(c(i-da)=2c(i-db)=2)dg<21220 ,dadb1250: No double !?!@** 9n=0:dce=da:n=12:n=2dce=db dce=0n:i:1250 !i-dce<1n:i:1250 5c(i-dce)=1b(i-dce)>1n:i:1250 m=i:dm=dce:    _egy=0egm=0450:20,1;" Hmmmm ! Tricky,tricky ...":502 ^pc=pc+1:i=0:i=241-1:c(i)2i:1300:goto (B) *i-da<1i-db<1i:1300 )b(i)=2egy1i:1300 9n=0:dce=da:n=12:n=2dce=db dce=0n:i:1300 /c(i-dce)=1b(i-dce)=11290  $c(i-dce)2n:i:1300  m=i:dm=dce:    Tpc=pc+1:i=0:i=241-1:c(i)2i:1350F *i-da<1i-db<1i:1350F 9n=0:dce=da:n=12:n=2dce=db #dce=0n:i:1340< (Cc(i-dce)=1b(i-dce)=11340<:Found one to ZAP ! 2n:i:1350F (m/2)e$="" *(m-dm)/2>((m-dm)/2)r$=""  <y=1:ys=1:m>12 y=18:ys=-1 m=253070 8b(m)-1<8b(m)-1>1y,x(m);"" -(b(m)-1)-7=1y,x(m);"" =(b(m)-1)<7y+(ys*b(m))-ys,x(m);e$:3060 y,x(m);b(m)-7 /b(m)=b(m)-1:b(m)=0c(m)=0 R.1}L,-2:y=18:ys=-1:m-dm<13 y=1:ys=1  np=m-dm egm=1(rt=1bo=1)450:20,1;" I'll bare off ";z$(dm);" with the ";dm:bom=bom+1:g=0:g=-150:.01z# =,g:g:100d:bom=154000 'egm=1(rt=1bo=1) c(np)=1b(np)=1zap=zap+1:nzap=1:1:3,30;zap:0:c(np)=2:3100 $b(np)=b(np)+1:c(np)=2 =b(np)>7y,x(np);(b(np)-7)+1:3115+ &y+(ys*b(np))-ys,x(np);"" +n.1}L,11 :450:20,1;"With the ";dm;", I'll move ";z$(m);" to ";z$(np):120x -nzap=1450:20,1;" Ha, Ha ! You're on the bar !":g=0:g=015:0.01z# =,g:0.01z# =,(*30)-14:g:502 0 z { |  9n=0:dce=da:n=12:n=2dce=db dce=0n:3260 =b(25-dce)=1c(25-dce)=13250 (c(25-dce)2n:3260 paz>0m=25:dm=dce:paz=paz-1:1:2,30;paz:0:paz=02,30;paz     9n=0:dce=da:n=12:n=2dce=db dce=0n:3285 c(25-dce)=1n %c(25-dce)13290 %ch=1rt=1egm=1 ן450:20,1;" I can't go !*#@!? ":f=140-2:g=ff+1.3:.01z# =,g:g:f:502:dg=2:5100 3250   K7,28;"":8,28;" ":9 ,28;"" P12 ,28;"":13 ,28;" ":14,28;"":   )i=79 :i,28;"":i -i=12 14:i,28;"":i: B C D E * YOURS * HUch=0:yt=0:i=0:i=1924:c(i)1i:3420\ Ryt=yt+b(i):i W * MINE * \Pmt=0:i=0:i=61-1:c(i)2i:3435k fmt=mt+b(i):i k'egm=0:egy=0:ngm=0 pyt+boy=15egy=1 z*mt+bom=15egm=1:ko=0 |2egy=1(egm=1dg=2)ch=1     ]450:t=1.2:bom=1520,1;" Guess who's won ...":1410 Sboy=1520,1;" I don't believe it !!":1410:4050 #160:4020:4100  ::: " HE WINNER .....":1410:70F::6,5;" little ole' me !! (again!)":.01z# =,4:.01z# =,6:130 9 ,1;"Good grief ! Is no mortal able ":11 ,5;"to beat me ?":i=015:0.01z# =,i:i:502:14,6;" What a disgrace !":i=150-1:0.01z# =,i:i z70F:i=120:(*7):i::i=110 :(*7):ں(*7)::i:7::5  4080 *** YOU WON ?? *** A2:1:3,3;"CONGRATULATIONS EINSTIEN !" X1410:0:1:6,3;"I can hardly believe it !!":100d ]8,3;" WAIT A MINUTE !!":i=58:0.01z# =,i:i:70F:0 0:11 ,2;"I MUST HAVE BEEN PLAYING ":13 ,1;"ANOTHER COMPUTER ALL THE TIME !":i=130:.01z# =,(*30)-14:i 1::" Cheat !" 70F:4035 ]:0:8,1;"Would you like another game ";:1:1:"?":0 10 ,14;"(Y/N)" a$=:a$=""4085 sa$="y"13 ,3;"I hope you know what you're ":15,12 ;" doing !":i=1100d:i:  a$="n"  4085 ~   zgoes=goes+1:3400H :450:20,1;" My turn at last !!..":yg=0:dg=1:600X y450:20,1;" Thinking .....":100d:3400H :ngm=0egm=17500L:5020 %paz>03200 :5022  ch=1do=11000:5020 #ch=1ko=15011  1000 &egm=1m=ma:dm=ma:5015 Fch=1rt=1ko=1dg=1m=ma:dm=da:5020 Fch=1rt=1ko=1dg=2m=mb:dm=db:5019 Fch=1rt=1ko=1dg=0m=mb:dm=db:5020 Gch=1rt=1ko=1dg=-1m=ma:dm=da:5020 1egm=1dg=1m=ma:dm=ma:5020 1egm=1dg=2m=mb:dm=mb:5020 *egm=17500L:Bare off (norm) 9ch=1ko=1do=1dg11000 1b(m)=0ko=11000:5022 b(m)=07500L Ech=1ko=1egy=1egm=0m<71000 dm=01000 X(m=25m-dm<1)c(m)2(b(m-dm)>1c(m-dm)=1)1000 3000 :Move da=db5100 dm=dada=0 dm=dbdb=0 qdg=dg+1:dg=3450:20,1;" Your turn ...":502:422:Your go again ?  5005 j k l p-k=0:800 :go1507 s=0:zap=zap-1:1:3,30;zap:0:450:20,1;"Well done! You're off the bar!":r$=" ":dc/2>(dc/2)r$="" $zap=03,30;zap 3b(dc)=b(dc)+1:b(dc)=1c(dc)=1 745:586J R S T Xegm18000@ ]'paz>08100:Move off bar b* END OF GAME * ce=0:e=12 dpo=(*6)+1 gc(po)27012d ie=1ea=po le=2eb=po qe v3(*2)+1=1ed=ea:ea=eb:eb=ed ma=ea mb=eb  rt=1 .ea=ebb(ma)=1eb=(*6)+1 (*3)+1=1rt=0  X8,29;da:13 ,29;db:0.006yD,3:da=dbdg=-1:  Pic=0:i=0:i=61-1:c(i)2i:7068 0ic=0ea=i:ma=i:ic=1:7110  db=i:mb=i i:7068     Vrt=0:i=0:i=1824:c(i)=1b(i)>1i:72204 *8ea=24-i:eb=24-i:rt=1:gone=1 4 F G H LEbo=0:n=0:dce=da:n=12:n=2dce=db Vdce=0n:7540t `Fc(dce)=2bo=1:m=dce:dm=dce::Found one to bare off . jn oCan't use 'em ! t3rt=0:bo=0:1000:Normal move ! ~ : ; < @in=0 Apaz>08100 BCfr=25:ko=0:rt=0:e=0:e=12 DJi=0:i=fr-11-1:c(i)2i:e:8040h ECan i move it at all ? JFn=0:n=61-1:i-n<1n:e:8040h O+c(i-n)=1b(i-n)=18030^ T"c(i-n)=1n:e:8040h YI can move it ! [in=0 ^in=1e=1ea=n:ko=1:ma=i:fr=i:rt=1:(*2)+1=1ea-1>0c(i-(ea-1))1ea=ea-1 _e=18035c `in=1eb=n:mb=i:rt=1:ko=1:(*2)+1=1eb-1>0c(i-(eb-1))1eb=eb-1 a<e=2(*2)+1=1ed=ea:md=ma:ea=eb:ma=mb:eb=ed:mb=md ce h     (*3)+12 <cob=1:i=0:i=16:o(i)=0:i Utob=0:i=0:i=16:c(i)=1b(i)>1i:8130 /tob=tob+1:o(cob)=i:cob=cob+1:i tob=03285 paz>18155 Qtob=1ea=cob-1:rt=1:mob=1:eb=(*6)+1: Vea=o((*(cob-1))+1):eb=(*6)+1:mob=1:rt=1: e=0:e=12 2n=(*6)+1:o(n)=08160 e=1ea=n e=2eb=n n rt=1:mob=1:    4 5 6 :_egy1450:20,1;"You can't bare off yet !?! ! ":.5,5: Dak+dc>25450:20,1;"Sorry! You need the exact No.":.5,5: IYou can bare off. Ngo=1:boo=1:    8a$="NOMMAGKCAB":b$="":y=10 :x=122 ,x<(a$)+1c$=b$:b$=a$(x):b$=b$+c$ y+0,x;" " y+1,x;"__" y+2,x;" " v1:2:1:y+1,x-(b$);b$:0:0:0:x>a$y+1,x-((b$)+1);" " -x<(a$)0,75K:0,15 y+3,x;" " y+4,x;" " x=x+1 .05|L,-11 5 ,x<(a$)+1c$=b$:b$=a$(x):b$=b$+c$ y+0,x;" " v1:2:1:y+1,x-(b$);b$:0:0:0:x>a$y+1,x-((b$)+1);" " $0,75K:0,15 y+1,x;"__ " !y+2,x;;" " !y+3,x;" " ! y+4,x;" " ! .05|L,-15 ! 5 !x !i=yy+4:i,z;" ":i ! x=x+1 !8y+0,x;" ";:1:34";:0:" " !$y+1,x-2;" S " ! y+2,x;" " !%y+3,x;" " !*y+4,x;" " !/ x=7 !041:4,x-1;" " !4+5,x-1;" " !>+6,x-1;" " !H+7,x-1;" " !M+8,x-1;" " !RB7:0:1:15,8;"Copyright  1983" !fF18,1;"Paul Barker & Gordon F Gatiss.":0:0 !p0:7 ! !@1:20,10 ;1;"PRESS ANY KEY.":0 !=""8685! !1::6,11 ;"Do you want":8,10 ;"Instructions";1;"?":10 ,14;"(Y/N)":i=110 :i !a$=:a$=""8687! !a$="y"8691! !;a$="n"a$=" ":8835" ! 8687! !'a$=" " !X6:0::1:.01z# =,6:1,6;"Postern Backgammon." !/4,0;a$:i=13:a$:i !c1:1;" Postern Backgammon is a ":1;" board game for two players... " !a$ !N" ";1;2;"ME";0;1;" - The Fantastic Brain !! " "Ka$:1;" YOU- The mere mortal. ":i=18:a$:i " 9000(# "X2:0::1:.01z# =,6:1,6;"Postern Backgammon." " /4,0;a$:i=12:a$:i "(" The objective of the game :- ":a$ "$" I have the BLACK counter. " "(" You have the WHITE counter. ":a$ "i=1170:i "$" I have to move all my counters " "D" from X to A, in line with the dice. " " i=1100d:i:a$ "$d" You have to move all yours from A to X, in line with the dice. " "(&i=13:a$:i:9000(# ")F12 ,0;a$:i=17:a$:i:11 ,0;a$ ".h" I have to get all my counters into the last quarter of the board (A-F).":i=180P:i "3Ya$:" Then by throwing the exact number, I can 'BARE OFF'.":i=180P:i "8Qa$:" You have the same objective, but your quarter is X to S.":9000(# "=F12 ,0;a$:i=18:a$:i:11 ,0;a$ "BL" The winner is the one to 'BARE OFF' all their counters first !" "G1:" (Guess who its going to be ?!)":9000(# "LX3:0::1:.01z# =,6:1,6;"Postern Backgammon." "Q/4,0;a$:i=12:a$:i "V$" Rules :- " "[la$:a$:" 1) All like counters must be in last quarter of the board before 'BARING OFF' can start. " "\&i=19 :a$:i:9000(# "]E10 ,0;a$:i=18:a$:i:9 ,0;a$ "`" 2) If one counter is alone on a spike, and the correct die number is thrown, then the attackng counter can ZAP that counter onto the BAR." "d 9000(# "eE10 ,0;a$:i=18:a$:i:9 ,0;a$ "j" 3) If a counter is on the BAR, then it must be brought into play before any further moves are permitted. Simply press Y (if spike allows)." "n 9000(# "oE10 ,0;a$:i=18:a$:i:9 ,0;a$ "tz" 4) If you cannot move any of your counters, then press the ENTER key. It will then be my turn (hee hee!)." "x 9000(# "yE10 ,0;a$:i=18:a$:i:9 ,0;a$ "~|" 5) If you wish to change over the dice, and use the other one first, then simply press the  Z  key." " 9000(# "X4:0::1:.01z# =,6:1,6;"Postern Backgammon." "&i=321:i,0;a$:i "H4,0;1;ٺ1;" I HOPE YOU ARE A GOOD LOSER, " "6,0;1;ٺ1;" BECAUSE TRON WAS JUST A POCKET "::1;1;" CALCULATOR COMPARED WITH ME !! " "U17,0;0;"(Paul and Gordon did a good job on me you know !)" "i=1150:i:: #(V21,0;1;" Press Any Key.... ":i=110 :i #2z$=:z$=""90102# #<821,0;" ": u xv, vtu(462uvu&2  \ PdW cS aa!{oongoeoeggoo{  g#- ee koGcmzaoo R ENabcdefghijklmnopqrstuvwxyZABCDEFGHIJKLMNOPQRSTUVWXYK A NOMMAGKCABC ACKGAMMONB BACKGAMMON