*******************3(** BACKGAMMON **L2** BY J. AUGHTON **e<*******************sA59458,62PW(1)300:W(2)500:W(3)100ZW(4)300:W(5)500:W(6)1200dW(7)70:W(8)700:** WEIGHTS **nA$(6),A%(25),P%(12),Q%(12)xU$"":D$""4A(X)(1X(2))SA$(1)"   "rA$(2)"   "A$(3)"   "A$(4)"   "A$(5)"   "A$(6)"   "Z$" ":9000 *** INITIALIZE ***>F0:BH0:BP0:NH15:NP15S:I112:A%(I)iA%(25I)A%(I):2,0,0,0,0,-5,0,-3,0,0,0,5&"PRESS SPACE TO START ";0"IN THE USUAL WAY.":A$:A$" "570?59468,12D" PET YOUI"I PLAY - YOU PLAY -N4000:PQ590CX5600:5600:6000`b5000:F1:FM1:PQ2000jl1040*** HUMAN MOVE ***5500"PRESS SPACE TO ROLL DICE"A$:A$" "10304000:K0:M2:PQM4FM0:5500:1510$"YOUR MOVE WITH THE";P;"? ";(.A$:A$""107078N(A$)64JBN26N11050]LA$:N251330lQN261370{VBH01150`5500:"YOU'RE ON THE BAR"j5600:1050~A%(N)011805500:"NOTHING THERE !"1130NP251220 HINHF0:1410& 5500:"OFF THE BOARD !"0 1130E A%(NP)21250e 5500:"SORRY IT'S BLOCKED"o 1130 A%(N)A%(N)1:5000:NNP A%(N)11290 A%(N)0:BPBP1:5500 "OUCH!-YOU GOT ME" A%(N)A%(N)1:MM1:5000 PQ:M01050 2000 2BH1350# <11606 FA%(P)11230L PN0:BHBH1:1250Z ZK01400w d5500:"YOU'RE STUCK(?)" n5600:2000 xKP:PQ:QK:1050 NP251460 NHNH1:NH1450 5500:"BLAST! YOU WIN 5600:7000 A%(N)A%(N)1:N0:1290 I19N1+ A%(I)01500H 5500:"YOU CAN'T-YOU ";j "CAN MOVE AT ";(I64):1130v :1420 HI0:I1924 A%(I)0HIHIA%(I) : *** PET MOVE *** K0:5500:"IT'S MY MOVE" 4000:M2:PQM4 FM0:BP02240 PI0:I161 A%(I)0PIPIA%(I)H :PINPF0:2320X 4500:3000g QM02210 *PM0NP%(X):2120 45500:"I CAN'T MOVE" >5600:1000 H5500:"WITH THE";P; R"I'LL MOVE ";(64N) \A%(N)A%(N)1:5000:NNP fA%(N)12180& pA%(N)0:BHBH1:55008 z"TAKE THAT!"V A%(N)A%(N)1:MM1:5000l K1:PQ:M02030v 1000 PM02230 PMQMNP%(X):2120 NQ%(Y):KP:PQ:QK:2120 A%(25Q)22280 A%(25P)22270 2100N25:BPBP1:2120A%(25P)223002KP:PQ:QK:2270I4500:QMPM2290S 2270f A%(P)02390 5500:"I WILL BEAR ";$ "OFF WITH THE";P. NPNP1:NP23808 5500:"AHA! I WIN"B 5600:8000L NP:A%(N)A%(N)2:2180V I611` A%(I)0IP2070'j A%(I)02430-t F~ "I CAN BEAR OFF ";a (64I);" WITH THE";Po PI:2350 *** INTELLIGENT MOVES *** K3010 5500:"LET ME THINK.." PM03170 HINH3500 E9999:I1PM:H0 UP%(I):VW(7)U$ A%(U)A%(U)1:A%(UP)13070O H1:A%(UP)0:VVW(8):U18PVV450e A%(UP)A%(UP)1 J124:A%(J)03130 L6:A%(J)6LA%(J)0 VVW(L)200(L1)(J7): J:VEEV:XID A%(U)A%(U)1N H1A%(UP)0 X A%(UP)A%(UP)1:Ib K(QM0)34005l D9999:I1QM:H0Jv UQ%(I):VW(7)Ul A%(U)A%(U)1:A%(UQ)13220 H1:A%(UQ)0:VVW(8):U18QVV450 A%(UQ)A%(UQ)1 J124:A%(J)03270 L6:A%(J)6LA%(J) VVW(L)200(L1)(J7) J:VDDV:Y1& A%(U)A%(U)19 H1A%(UQ)0R A%(UQ)A%(UQ)1:Ig QM12:DEPM12mH  XPM:YQM:PM(PM):QM(QM) 3400FM4050:*** DICE ***PA(6):QA(6):TTIQ(16(2))TIT1204040PP1:P6P1QQ1:Q6Q18"";D$;A$(P);"";A$(Q)KTIT2104020Qu** GENERATE AVAILABLE MOVES **PM0:QM0:I124A%(I)04590IP14560A%(IP)14560PMPM1:P%(PM)IK0IQ14590A%(IQ)14590QMQM1:Q%(QM)I:6*** PRINT PIECES ***VB$"":W$"":T0:5110sB$B$D$(D$,8):W$""T1:5110"";D$;21);BP0Z$:5070I1BP:" ";:"";D$;"";21);BH0Z$:5100I1BH:" ";:#I112:VT(25I)I(T0)6VNF05200S A$" ":(V1)0A$" "iB$3I(I6)1);{A%(V)05190(K209:A%(V)0K2152J1(A%(V))<(K);W$;:FA$P:|*** CLEAR PAGE ***"";Z$;Z$;Z$;Z$;"";: *** DELAY ***I12000::7p*** DRAW BOARD ***uzB$"       "W$"         """:I121" ";18);" ";18);" ":"":J65:K16130:6130/" ";D$;(D$,9):J88:K1G6130:6130:" "[6150:6150:D$B$"         "W$"       "6150:6150 "";D$;19);"Y":%I16:" ";(J);9JJK::" ";:J"";:I13`B$;U$;W$;U$;::xX*** HUMAN WIN ***b"THANKS FOR THE GAME!"l"YOU WERE TOO GOOD FOR ME"v"PLAY AGAIN? (Y/N)"A$:A$""7040A$"Y"500@*** PET WINS ***(J"WOW!!-I WON!!"FT"I REALLY ENJOYED THAT!"P^7030j(#*** INSTRUCTIONS ***2#59468,14:"";13);<#"Β"F#" PLAY ALL THE USUAL RU";P#"LES, WHICH YOU SHOULD K";Z#"NOW BEFORE YOU PLAY ME."d#" ROM NOW ON THE ONLY";:n#"KEYS YOU NEED TO PRESS ";Sx#" ARE AS FOLLOWS."u#" - O MOVE FROM A POINT"#" ORETURN FROM THE BAR"#" O PLAY THE DICE IN REVERSE ORDER"#"ŠS INDICATED"#" F YOU PRESS TWICE YOU";'#" WILL SURRENDERYOUR MOVE."H#" EMEMBERTHATYOU MUST ";k#"USE ALL OF YOUR MOVE IF TH";#"IS IS POSSIBLE. ɠWILL TRU";#"ST YOU IN THIS (AFTER A";#"LL YOU HAVE TO TRUSTME";#" - WHO ROLLS THE DICE?)"#500$