:59468,12:PK12c LINES 580-1450,5000-5900,10000-10570,62100-65000 (C) 1979 GLEN FISHER LINES 100-579,1500-4999,5900-9999 (C) 1979 DAVID MALMBERG CURSOR #9, APRIL, 1979 BOX 550, GOLETA, CA. 93017: AS OF DEC 22 79#2 TT CONTROLS THE GAME DIFFICULTYCZPG$"GAMMON":NM$"9":62000ydB(27),D(4),DA$(3),DI$(6),US(4),P(24),PR(6),M$(5)iZ(TI)nBK$" "xM$(1)"HIT YOUR BLOT AT ":M$(2)"COVERED MY BLOT AT ":M$(3)"MOVED TO "AM$(5)"MOVED BLOT TO SAFETY AT ":M$(4)"CAN'T MAKE MOVE"lM$(0)"BEARING OFF FROM ":FR$" FROM "A$"":DA$(1)"":DA$(2)" ":DA$(3)"":ER$A$""AA$"":AL$"XWVUTSRQPONMLKJIHGFEDCBA"I112:P(I):9.31,.33,.39,.42,.42,.47,.17,.17,.14,.08,.06,.08MI06:PR(I):j0,.03,.11,.25,.44,.69,1E$"ɝݝ˝ݝݝ"DI$(0)"   "DI$(1)"   "DI$(2)"   "DI$(3)"   "5"DI$(4)"   "T,DI$(5)"   "s6DI$(6)" "@CM24:F6:S0:HM24:HB0:CB0:XC0:XH0:TT.5J"":ATT:(1).5F15000:5400 D(1)((1)61):D(2)((1)61):D(1)D(2)410 NP1:5600- AA$;"YOUR":"ROLL"O A$;:D(2)D(1)NP1:"YOU";i D(2)D(1)NP1:"I";{ " GO FIRST!" L14000::TU2:550 D(1)0:D(2)0:5600 TU2:D(1)((1)61):D(2)((1)61):D(3)D(1)D(2) D(1)D(2)D(3)D(1):D(4)D(1):TU4 &5600:5500R 0MV0:Y0:I1TU:YYD(I):US(I)0::NP11500e :XHXHY:IN$""r DI1:595 NIN$"":J11000:J S(IN$)2IN$(IN$,2):605 X5500:"MOVE";I;"? ";:60000::ER$;:IN$""1000 ](IN$)1630 bIN$"A"IN$"F"IN$"*"IN$8 gIN$"S"IN$"X"IN$IN$"-"J l(IN$)1630` q"BAD MOVE.":590r v(IN$)3625 (IN$,2,1)","IN$(IN$,1)(IN$,3):640 F$(IN$,1) F$"A"F$"X"FM89(F$):660 FM25:F$"*"F$"-"625 T$(IN$,2,1)% T$"*"T$"-"TM0:680< T$"A"T$"X"625` TM89(T$):N0:MFMTM:K1:L0 FM25B(25)0"YOU HAVE NO MEN ON THE BAR.":590 FMTM"WRONG DIRECTION.":590 B(25)0FM25"YOU HAVE MEN ON THE BAR.":590! B(FM)0"YOU HAVE NO MEN ON ";F$;".":590/ TM0900Q L0:J1TU:US(J)KK1:710m LL1:NND(J):NM715 D(J)MKJ:L1:715 J:"YOU CAN'T MOVE";M;".":590 B(TM)1"POINT ";T$;" IS BLOCKED.":590 L110000:US(K)1:1400* B(25)1 "YOU HAVE MEN ON THE BAR.": 5908TU4800TB(FMD(1))1M1:745pB(FMD(2))1M2:745"THE PATH IS BLOCKED.":590NTM:TMFMD(M):10000:FMTM:TMN::10000:II11400 N1L*B(FMD(1)N)17404N>NKJ"HTMFMD(N):US(N)1:100005RII1:FMTM:NE\II1:1400LbKTM26:J1TU:US(J)0FMD(J)10000:US(J)1:1400JJ725:B(J)0"YOU CAN'T BEAR OFF NOW.":590JFM6935J6FM11B(J)0"YOU CAN'T BEAR OFF FROM ";F$;".":590 JVK0:D(K)0:J1TU:US(J)0D(J)FMD(J)D(K)KJ]JK0"YOU CAN'T MOVE";FM;".":590"ASSUMING USE OF";D(K);".":US(K)110000:1400B(25)01050J16JD(TU)US(TU)0B(25J)21390+JD(TU1)US(TU1)0B(25J)213908J:1410GJ2421Y$B(J)01090.JD(TU1)0US(TU1)0B(JD(TU1))213908JD(TU)0US(TU)0B(JD(TU))21390BJGJ2471:B(J)01410HJLUS(TU)0B(D(TU))01390VUS(TU1)0B(D(TU1))01390;`US(TU)DD(TU1):1130geDD(TU):US(TU1)0DD(TU1)DD(TU1)ujD61390tJ6D1:B(J)01390~J:1410n"YOU CAN TOO MOVE!":590xII1:ITU595NP1:9000MO0:B90XCXCYK0KK1:B(0)0KTU16002B(D(K))11530FUS(K)1:MOMO1^FM0:TMD(K):10000"OFF BAR AND HIT BLOT AT ";(AL$,TM,1)"1530@K0JKK1:B(0)0KTU1670TB(D(K))0US(K)01610^US(K)1:MOMO1hFM0:TMD(K):10000r"OFF BAR TO ";(AL$,TM,1))|1610@B(0)0MOTU1700`MOTU"CAN'T GET OFF BAR"j4000yCM62020J1TU:L25D(J):B(L)11800FML:TM27:10000:M$(0);(AL$,L,1):MOMO1:1990K6 Y25K:B(LK)1B(Y)11820B(Y)1B(Y)0'FMLK:TMY:10000SM$(3);(AL$,Y,1);FR$;(AL$,FM,1):1990hK1KK1:1805plK1qLK241925vB(LK)11925~MOMO1:FMLK:TM27:10000M$(0);(AL$,FM,1);" WITH ROLL OF";D(J):1990K6KK1:1905B(27)159000TUMO4000%J/4000?TUMO4000QTUMO22200`HB02200hJ1{ B(J)12180 J1JD(1):J2JD(2):J11J212180D(1)D(2)B(J1)12180B(J1)1B(J2)12180TU42080J118B(J1)22180J218B(J2)22180C MVMV1:TMJ:FMJ1:10000:FMJ2:10000^(M$(1);(AL$,J,1);FR$;*(AL$,J1,1);" AND ";(AL$,J2,1):MOMO2:HBHB14TU4US(3)1:US(4)1z2020J24JJ1:2060TRY0:Y1US(Y)135008220) Y1MO0TU4BM426096* S1BS:F1FM:M1BM:Y2:8220Z+ S2BS:F2FM:M2BM:Y3:G1:8220, G0:BSS1S2YTM:TMFMD(Y):2609- S2S1FMF2:Y2:TMF2D(Y):BMM2:2609. FMF1:Y1:TMF1D(Y):BMM11 BM430002 F1F1:22204 TRYTU43500)5 J118:B(J)0B9M$(4);:4000;6 J:B91:1720E7 3500W BM1HBHB1~ MOMO1:US(Y)1:HM24CMBM3:A0 10000 M$(BM);(AL$,TM,1);FR$;(AL$,FM,1) MOTU4000 YY1:YTUY1 2210 NP1:AA$;"PRESS":"RETURN":"TO ROLL"!X$:X$""4110+55005"9000NM$(MN);(AL$,TM,1);{"";:H8:L$" ":M$" ":R$" "8);" A B C D E F * G H I J K L ":X$" "I1H8);L$;X$;X$;X$;M$;X$;X$;X$;R$I"I12:8);"   ":I7X$" ":I1H[8);L$;X$;X$;X$;M$;X$;X$;X$;R$bI8);" X W V U T S R Q P O N M "(" "(13I),2);"";21);"";((I12),2):I025:B(I)0:I:B(26)15:B(27)15"B(1)2:B(6)5:B(8)3:B(12)58,B(13)5:B(17)3:B(19)5:B(24)2\6I124:NB(I):TMI:FM27(N0)@B(I)0:N0J1(N):10000:J^I|AA$;L16:" ":LA$;:L14:BK$::A$;"";("YOUR MY ",3NPNP,4):"ROLL"$"";E$;DI$(D(1));"";E$;DI$(D(2))*GpPP0:J624:K13J6K12huIKJ6:B(I)0PPPPP(IK)zI:K14PPPPP(25K)2XMS3:CS0bQ48PR(BH)(1PR(BH))lQ58PR(BC)(1PR(BC))qKP5:6000:CZPP(P5Q4)AvKP5RL:6000:PZPPCWPZ(P5RLQ4)A3B(P5)2CSCSCZUB(P5)1B(K)0CSCSCZ:MS5B(K)1CSCS25KQ5:MS1:K18CSCS4B(K)17100CSCSCW:B(P5)2MS27300SM0:J20:NNKR1:NN20JNNIKJ:B(I)1SMSMP(IK)(25I)I:CSCSCW(1PZ)SM$I BS999:BM4:FM0:TM0:TRYTRY1e& L2411:B(L)186000 RLD(Y):RLRL:R2486005 RFB(R)18600: B(R)18600? G18270@ Q0:L1LD(1):L2LD(2):B(L1)2Q1A B(L2)2Q2 B Q08600 N P5L:7000# O G18279K P MS3:B(L1)1Q1:CSCS25L1:MS1n Q B(L2)1Q2:CSCS25L2:MS1v S KQ W CSBS8600 X BSCS:FML:TMK:BMMS !L: (#B(26)15X$"YOU":XCP:9500 2#B(27)15X$"I":XHP:9500!<#HM0:CM0:JM0:HP0:CP0:HB0:CB0:BC0:BH0)!F#I025G!P#B(I)0HPHPB(I)I:HMIm!Z#B(I)0CPCPB(I)(25I):JM25I~!d#JMCMCMJM!n#B(I)1HBHB1!x#B(I)1CBCB1!#I7B(I)1BHBH1!#I18B(I)1BCBC1!#!#XXCP:HPXXXXHP"#Y(CPHP)XX:Y.2S1:F6:A.13"#Y.1S0:F1:ATTF"#S1HM6FHMO"#500v"%5550:A$;X$;" WON BY";X;"POINTS.""&%"TOTAL POINTS ROLLED";XH;"";XC;"":"WANT TO PLAY AGAIN? ";"0%60000:(IN$,1)"Y"320":% #'PTFM:10500:P(B(FM)):10500:B(FM)B(FM)P)#'FM25FM0" ":10010W#'FM26("",2((1PT)1(B(PT))8),1)l#'B(TM)P10020#'PT25(P0):B(PT)B(PT)P:10500:"";DA$(2P):B(TM)0#$'B(TM)B(TM)P:PTTM:TM2610500:DA$(2P)#)'A$;"";("",MV2):MVMV1$.'$)PT25'$ )PT0PT2510550G$)VT(B(PT)):PT13VT19VTl$)TB(12.5PT)21:TB12TBTB4y$)TB30TB$")10570$6)VTB(PT):VT0VT19VT$@)TB15$J)"":("",VT);TB8);:$`IN$" ":ZTTI:ZC2:ZD$(20)%jZ$:Z$""60070B%tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15M%~60010}%Z(Z$):ZL(IN$):(Z127)32" ";:60110%FL(Z127)64(Z127)91Z$((Z128)255)%ZL25460010%IN$IN$Z$:Z$;ZD$;Z$;%Z13IN$(IN$,2):CR$;:%&Z20ZL1IN$(IN$,ZL1):"";:60010X&Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000c&60010s&(PN060250&2"PRESS RETURN TO ";&'nX'TI110:"";:I:{'0"";9);"CURSOR #9 GAMMON"'2"COPYRIGHT (C) 1979 BY DAVID MALMBERG'4 60500':"THE GAME OF BACKGAMMON"'D"WANT DIRECTIONS? ";:60000(N(IN$,1)"Y"62100)(X"";:59468,PK::1009(LP7:60200E( 60500r("WHAT FOLLOWS IS A BRIEF DESCRIPTION OF("BACKGAMMON. THE FULL SET OF RULES IS("TOO COMPLEX TO GIVE HERE, BUT CAN BE("FOUND IN ANY BOOK ON THE GAME.)"BACKGAMMON IS BASICALLY A RACE GAME,D)"WHERE YOU TRY TO GET ALL YOUR PIECESq)"OFF THE BOARD BEFORE YOUR OPPONET GETS)"HIS OFF. THERE ARE TWO COMPLICATIONS:)"THE TWO OF YOU ARE GOING IN OPPOSITE)"DIRECTIONS; AND PIECES MAY BE FORCED TO*"START THE TRIP ALL OVER AGAIN.H* "THE BACKGAMMON BOARD HAS 24 'POINTS',u*"ON WHICH THE PIECES MOVE, AND A 'BAR',* "WHERE PIECES WAIT TO GET ON THE BOARD**"AFTER HAVING BEEN SENT BACK TO THE*4"BEGINNING.*9 60500*>60200*C 60500)+H"ON YOUR TURN, YOU ROLL THE DICE, ANDR+R"MOVE YOUR PIECES ACCORDING TO WHAT}+\"COMES UP. EACH DIE COUNTS SEPARATELY+a"(DOUBLES COUNT AS FOUR SEPARATE DICE);+f"A PIECE CAN'T MOVE MORE THAN SIX POINTS,p"WITH A SINGLE DIE. HOWEVER, IT MAY BE1,z"MOVED MORE THAN ONCE IN A SINGLE TURN.],"FOR EXAMPLE, IF 5,2 IS ROLLED, EITHER,"TWO PIECES CAN BE MOVED (ONE 5, AND THE,"OTHER 2), OR ONE PIECE MAY BE MOVED 7,,"FIRST 5 THEN 2, OR FIRST 2 THEN 5. NOTE-"THAT IT DOES NOT MOVE ALL 7 AT ONCE!@-"FOR THE MOVE TO BE MADE, THE PIECE MUSTj-"BE ABLE TO LAND ON THE POINT IT CAN-"REACH. IF THE POINT IS OCCUPIED BY TWO-"OR MORE OF YOUR OPPONENT'S PIECES, YOUR-"PIECE CANNOT LAND THERE. IF IT HAS ANY- 60500 .60200. 60500C."OF YOUR PIECES, OR IS EMPTY, YOUR PIECEY."CAN LAND THERE.."IF YOUR OPPONENT HAS A 'BLOT' (A LONE."PIECE) ON THE POINT, YOUR PIECE CAN."LAND THERE, AND YOUR OPPONENT'S PIECE/$"IS SENT TO THE BAR TO START THE TRIP/."AGAIN.A/8"IF YOU HAVE ANY PIECES ON THE BAR, YOUm/B"CAN'T MOVE ANYTHING UNTIL YOU GET ALL/L"OF THEM OFF THE BAR. TO REMOVE A PIECE/V"FROM THE BAR, YOU MOVE IT TO ONE OF THE/`"SIX POINTS ON YOUR OPPONENT'S 'INNER!0j"TABLE'. THOSE SIX POINTS ARE NUMBERED 1K0t"TO 6, COUNTING FROM THE SIDE OF THEu0~"BOARD. THE ONLY POINTS YOU CAN MOVE0"ONTO ARE THOSE WHOSE NUMBERS APPEAR ON0 605000 602000 605000"THE DICE. ALL THE RULES ON MOVING ALSO 1"APPLY TO ENTERING PIECES FROM THE BAR.M1"WHEN YOU HAVE ALL YOUR PIECES IN YOURw1"INNER TABLE, YOU CAN START 'BEARING1"THEM OFF', OR REMOVING THEM FROM THE1"BOARD PERMANENTLY. THIS IS EXACTLY LIKE1"MOVING TO IMAGINARY POINTS BEYOND THE)2"END OF THE BOARD, WITH ONE DIFFERENCE:V2"IF YOU ROLL A NUMBER, AND HAVE NOTHING2"ON THAT POINT OR HIGHER, YOU CAN BEAR2"OFF FROM THE HIGHEST POINT YOU DO HAVE2 "PIECES ON. FOR EXAMPLE, IF YOU HAVE3"THE 1, 2, AND 4 POINTS OCCUPIED, AND03"ONE DIE IS A 5, YOU CAN BEAR OFF FROMK3("THE 4 POINT INSTEAD.W3- 60500c3. 60200o3/ 6050032"THE WINNER OF THE GAME IS WHICHEVER3<"PLAYER MANAGES TO BEAR OFF ALL HIS/HER3F"PIECES FIRST.4Z"IN THIS PROGRAM, THE POINTS ARE LET-44d"TERED FROM A TO X, WITH YOU MOVING FROM`4n"A TO X, AND THE PET FROM X TO A. YOUR4x"PIECES COME OFF THE BAR ONTO POINTS A4"(WITH 1) THROUGH F (WITH 6). THE PET'S4"PIECES COME ONTO X (WITH 1) THROUGH S5"(WITH 6). THE BAR IS INDICATED BY A95"MOVE FROM '*', AND BEARING OFF BY AL5"MOVE TO '-'.z5"TO ENTER YOUR MOVE, TYPE THE LETTER OF5"THE POINT THE MOVE STARTS AT, FOLLOWED5"BY THE LETTER OF THE POINT THE MOVE5"ENDS ON. THE MOVE MAY BE MORE THAN 6&6"POINTS LONG; IF IT IS, THE PET WILL26 60500>6 60200J6 60500v6"CHOOSE STOPPONG POINTS ON THE WAY. TO6"CHOOSE YOUR OWN STOPPING POINTS, TYPE6"A STRING OF LETTERS, AS CGH (MOVE FROM6"C TO G, AND THEN FROM G TO H).#7"TO BRING A PIECE OFF THE BAR, TYPE '*',P7""FOLLOWED BY THE LETTER OF THE POINT TOz7,"COME ONTO, AS *C. TO BEAR OFF, MOVE76"TO '-', AS T-. NOTE THAT THE PET CAN'T7@"FIGURE OUT STOPPING POINTS WHEN BEARING8J"OFF, SO THE MOVE BEARING OFF MUST BE.8T"A SINGLE DIE'S MOVE; TO BEAR OFF FROM TZ8^"WITH A ROLL OF 4,1, YOU WOULD HAVE TO8h"TYPE TU- OR TX-; T- WON'T BE ACCEPTED.8r"IF YOU HAVE PIECES ON THE BAR, AND YOU8|"TYPE ONLY A SINGLE LETTER, THE PET WILL9"ASSUME YOU WANT TO COME OFF THE BAR TO>9"THERE. SIMILARLY, IF YOU HAVE NO PIECESJ9 60500V9 60200b9 605009"ON THE BAR, AND TYPE A SINGLE LETTER9"FROM S TO X, THE PET WILL ASSUME YOU9"WANT TO BEAR OFF FROM THERE.:"NOTE THAT THESE ASSUMPTIONS ARE MADE0:"ONLYWHEN JUST ONE SINGLE LETTER IS]:"TYPED; IF YOU WANT TO MOVE FROM R TO X:"AND THEN BEAR OFF, YOU MUST TYPE RX-,:"AND NOT JUST RX, SINCE TWO OR MORE:"LETTERS ARE ASSUMED TO TELL BOTH ENDS:"OF THE MOVE.;"FINALLY, IF YOU CAN'T MAKE ANY MOVE AT?;"ALL, JUST PRESS RETURN.K; 60500V;60200$