C64S tape image fileTREASURE GAMES BACKGAMMON CRYPTO+LIFEE ROTATE "d 'BACKGAMMON' BY O.F.BULMER;g COPYRIGHT RESERVEDOj NOVEMBER 1978mM(4),C%(25),B%(25),B(25),R(4):M$""pK138:Z$Z$" "::N$(0)" I ":N$(1)"YOU ":C$(1)" "sC$(2)"Ǡ":C$(3)" ":C$(4)" ":C$(5)" ":C$(6)"٠":C$(7)" "YvC$(8)" ":D$(1)"":D$(2)" ":D$(3)" ":D$(4)" "yD$(5)" ":D$(6)" ":D$(7)" ":D$(8)" "|O0:"":U$" *":M91655B(1)2:B(6)5:B(8)3:B(12)5:B(24)2:B(19)5:B(17)3:B(13)5$K025:B%(K)B(K):K:583:487*; DICE THROWOK14:R(K)0:R(1)(6(TI)1):R(2)(6(TI)1):R(1)R(2)142R(3)R(1):R(4)R(1)(M$,11);21)N$(M)"THREW";R(1);R(2);M$M91193M0"PRESS A KEY":691:"OK LET ME THINK":193/K14:M(K)R(K):KFK14:R(K)0190uM$;"ENTER POSITION OF PIECE TO BE MOVED""(25=BAR:N=NO MOVE:B=BEAR OFF)";U$;:J$:J$"*"163J$"N"K4:"";Z$:Z$:190J(J$):"";Z$:Z$!"DICE THROW USED ";U$;:J$:J$"*"175,""Z$cX$"":D1(J$):JD11X$"B":748:(T)1186,184D1(J$):JJD1:T0:736:T0187L120:"INVALID MOVE":L:160X$"B"B(J)B(J)1:190B(J)1B(J)0:B(0)B(0)1 B(JD1)B(JD1)1:J0B(J)B(J)1 K 3 MOVE CONTROLE M0M91199S 370:133g 475:C11625p 238 B(0)0232 J90 262:289:391 340:J9J91 J94232 J80 L14:R(L)0J81 J81214 370 133 B(0)02596 L14:TR(L):T0B(0)0247W P0:NT:B(N)1B(P)0565^ L L14:TR(L):T0B(0)00256 P0:NT:553 L  K2411:B(K)1283 L14:R(L)0280 TKR(L):T24274 PTR(L):B(T)1B(P)0NT:553:280) TKR(L):T1280: PT:NK:553A LH KN h !T124:B(T)1334 $L14:R(L)0B(T)0331 'KTR(L):K1331 *B(K)1B(K)2331 -B(K)1328 0TA1328 3X14:XLR(X)0325 6TR(X)1325 9B(TR(X))33256 <(R(X)R(L)B(K)4)B(K)3325G ?NT:PK:565e BPTR(X):LX:B(P)0553q EX:331 HNT:PK:B(N)1B(P)0553 KL NT Q TK118:B(K)1364 WL14:B(K)0R(L)0361 ZTKR(L):T24361 ]B(T)1361 `B(T)1358+ cNT:PK:565:361A fNT:PTR(L):553H iLO lKU ot rM8M81:JM:M1M91697 uM0M1 xJ1M0 {TITTD160379 ~487:703 M1M91697 TTTI: C20 C10:L14:V(L)0:R(L)0400C1C11:V(C1)R(L)L&C12:V(1)V(2)442EJ12dK2411:B(K)4J1433{XKV(1):X24433B(X)1(B(X)2J1)433B(X)1NX:PK:L1:565:553:424NX:P1K:P2K:B(K)1571T2:L14:R(L)0T0430R(L)0:TT1L:K1$K,J?C2C21:C14C23394EXD(V(1)V(2))uXV(1):V(2)V(1)XV(2)K2411B(K)3469KD1KX24469B(KD)3B(KX)1B(KX)2469B(KX)1NKX:PK:L1:565:PKD:553:466NKX:P1K:P2KD:5715X14:R(X)0:X:K1<KBKC10dK018:B(K)0C11kKqw DISPLAY MOVESJ112K24131:B%(K)0(B(K)B%(K)M80J11)505(M$,2):C53((24K)3):N1(B%(K)):K18C5C510Q(K2)2K:J11X$" ":Q0X$""X$RJ11X$"":B%(K)0X$""iI1N1:C5)X$:IpKK112:M$"":B%(K)0(B(K)B%(K)M80J11)523C53((K1)3):N1(B%(K)):K7C5C51Q(K2)2K:J11X$" ":Q0X$""X$%J11X$"":B%(K)0X$""DI1N1:C5)X$;:"":IK KkX$"":Q11:I(B%(0)):544X$"":Q13:I(B%(25)):544J11K025:B%(K)B(K):KJ1(M$,13);20)" MOVE # ";(M82)1 (M$,Q);" ";3)(Z$,13):"";3);+#I0K1I:X$;:1&7'I( MOVE PIECES~)(B(P)0B(N)0)B(P)B(P)1:B(N)B(N)1:R(L)0,/B(P)1P18N252B(P)B(P)1:R(K)0:OO1:5B(N)1 B(P)1 8B(N)1:B(25)B(25)1:B(P)B(P)1:R(L)0:';B(N)0 B(P1)1 B(P2)1 U>B(N)B(N)2:B(P1)B(P1)1:B(P2)B(P2)1:gD PRINT BOARDG" YOU ''"15)"BACKGAMMON";" ME ''":0)" ";JK24131:""(K);:K19" ";MP" ":0);:J18:" ";#SI16:"";:C$(J);:"";:D$(J);:I3" ";9VI:" ":0);:JaYK13:0)" ";19)" ";38)" ":\D$(8)" ":C$(8)" ":J811:" ";:I16_"";:D$(J);:"";:C$(J);:I3" ";bI:" ":0);:Je0)" ";:K19:""(K)" ";:K6" ";h.kK1012:""(K);::" "4nKqK14:R(K)0631btN25:PNR(K):559iwKzK14:R(K)0649}TR(K):L1824:B(L)1646PL:NTL:N24N25:559:L24:646LK:553:L24LK232"","BACKGAMMON":"I THROW THE DICE."F"AUTOMATIC OR MATCH (A/M) ?"a691:A$"A"M91:679rA$"M"661760:(M$,18)"YOU GO FIRST (Y/N) ?"691:M0:A$"Y"M1:679A$"N"670 A10:"AGGRESSION FACTOR (0 TO 12)";A1:A10A112679$A112A1:A$"A"U"SCREEN DELAY(SECONDS)"U$;:A$:A$"*"685dD1(A$):wA$:A$""691}K025:C%(25K)B(K)1:KK025:X(C%(K)):B(K)((C%(K)).5)X:K:K1:T025:B(T)0K0T:K1718K0:T025:B(T)0K1'T:K07180385g(M$,12);2);"GAME OVER ";N$(K);"WIN":727:M80M91(635),A1::A1(635):M91:109TTTITITT180730J0J24T1:JD125T1:(J0B(JD1)1)B(J)1T1:J0754*L725:B(L)0T11LXT1:L14:M(L)D1T0:M(L)0:L4aL:"NOTE:- WHEN YOU WANT TO MOVE ONE PIECE"" USING BOTH DICE THROWS, YOU MUST "" ENTER IT AS TWO SEPARATE MOVES."" THE PIECES WILL BE MOVED ON THE BOARD";" WHEN YOU HAVE FINISHED ENTERING "T " ALL YOUR MOVES."w "PRESS ANY KEY TO CONTINUE"  A$:A$""779 "":"WHEN BEARING OFF,ENTER THE MOVE AS" "FOLLOWS:-""ENTER POSITION OF PIECE TO BE MOVED,HIT"*"RETURN,THEN ENTER DICE THROW TO BE USED"M"FOLLOWED BY THE CHARACTER B"{"NOTE ALSO:PROBLEMS ARE ENCOUNTERED IF""MORE THAN 8 PIECES ARE STACKED ON A""POINT.""GOOD PLAYERS SHOULDN'T DO THIS ANYWAY!":"":I15::D7);" "16);" "25);" "u7);" "11);" "16);" "27);" ":N17);" "16);" "27);" "7);" "16);" "27);" "7);" "16);" "27);" """:I138:"";:#"":I122:""37);"":7 I138:"";:B :""R I113::s 8);" ************ " 8);" * CRYPTO * "8);" ************ ":8);"WHICH GAME? 1=STANDARD":20);"2=STANDARD ADV")8);" 3=SUPER":20);"4=SUPER ADV"1Y$H Y$"1" W6:30_ Y$"3" W9:30z Y$"2" W6:E1:30 Y$"4" W9:E1:3018""::12);"CRYPYO"#:("THIS IS A GAME WHERE THE PET WILL"*"SELECT A CODE CONSISTING OF 4 GRAPHICS"E,"CHARACTERS.YOU WILL BE GIVEN TEN TRIES"s."TO DECIPHER THE CODE AND EACH TRY WILL"/"BE MARKED TO HELP YOU. THE MARKS ARE"0"RANDOMLY ALLOCATED ON THE BOARD."1:"MARKS ARE: RIGHT CODE RIGHT POSITION#2" RIGHT CODE WRONG POSITIONI4" BLANK FOR WRONG CODEz6:"THE LEVELS OF GAME VARY ACCORDING TOTHE"7"NO. OF CHARACTERS IN PLAY AND WHETHER"8"THEY CAN BE DUPLICATED IN ONE CODE"9"THE RETURN AND SHIFT KEYS DO NOT NEED :"TO BE DEPRESSED........= ;:"PRESS ANY KEY WHEN READY"Q <C$: C$"" 60a >Y$"1"70| ?A$"STANDARD - CRYPTO" @B$"6 TYPES OF CODE PIECES" AC$"NO CODE WILL BE REPEATED" B94 FY$"2"80 GA$"STANDARD ADV - CRYPTO" HB$"6 TYPES OF CODE PIECES"> IC$"CODES MAY OR MAYNOT BE REPEATED"F J94V PY$"3"90n QA$"SUPER - CRYPTO" RB$"9 TYPES OF CODE PIECES" SC$"NO CODE WILL BE REPEATED" T94 ZA$"SUPER ADV - CRYPTO" \B$"9 TYPES OF CODE PIECES" ]C$"CODES MAY OR MAYNOT BE REPEATED"> ^"":::" RULES FOR:"A$H _::\ `"THERE ARE "B$f a:C$ b::"PRESS ANY KEY WHEN READY" cY$:Y$""99 d ***** DRAW BOARD ***** i"" n19);"" xI122:19);""29);" " I+ 19);""D "=RIGHT PLACE"Y "=WRONG PLACE"m " =WRONG CODE" ""20);" " J1011 "" S$S$"":S$ 35);J: J1200 I19 20);""; I 30);""; J) ***** CREATE PARTS AND CODE **7 S$(1)""E S$(2)""S S$(3)""a S$(4)""o S$(5)"$"} S$(6)"#" S$(7)"@" S$(8)"&" S$(9)"%" , I1W 6T((9)10):T0310 ; TW 310 < E1 335 @A$(T)"" A$(T)S$(I):340J3105OA$(I)""A$(I)S$(T):340>P310ETIa ***** INPUT ROW *****j"""THE PIECES ARE :":I1W:S$(I)" ";:IQ$""X110"""ENTER ROW #"X"IN ORDER ":I146 G$(I):G$(I)"A"G$(I)"":531T G$(I)"S"G$(I)"":531r G$(I)"Z"G$(I)"":531 G$(I)"X"G$(I)"":531 G$(I)"#"531G$(I)"@"531G$(I)"$"531G$(I)"&"531 G$(I)"%" 531521 G$(I);: I" ".Q$Q$""Q&Q$21);:I14:G$(I)" ";: Ir0"MARKS OR REDRAW?"1"1 OR 2?":Y$:Y$"1"590;Y$"2"580?570D" ":" ":Q$Q$"":510N" ":" "4X****MARKING SECTION*****KYI14:M$(I)"":Id]I14:T$(I)A$(I):pb K14|g L14l G$(K)T$(L)KL M$(K)"":T$(L)"":645qG$(K)T$(L)KLG$(L)T$(L)G$(K)T$(K) M$(K)"":T$(L)""v M$(K)""645"{ G$(K)T$(L) M$(K)" "* L2 KT ***** RANDOMIZE MARKS *****lI14:N$(I)"1":IwI14T((1)5):T0675N$(T)"1" N$(T)M$(I):690675 I""Q$31);N$(1)N$(2)""N$(3)N$(4)P0 I14* N$(I)"" PP14I-> P4 8507H1000eR""21);A$(1)" "A$(2)" "A$(3)" "A$(4)\"WELL DONE! YOU WIN":P1P11:2000 X""21);A$(1)" "A$(2)" "A$(3)" "A$(4)"TOUGH LUCK!! I WIN":P2P21:2000:"GO AGAIN?"2"1 FOR YES 2 FOR NO"GC$:C$"" 2030[ C$"1" 2070o:"OK GOODBYE"u :"WHICH GAME? " :"1=STANDARD "*"2=STANDARD ADV"+"3=SUPER","4=SUPER ADV"-" "." "/" "054 Y$: Y$"" 2100G> Y$"1" W6]H Y$"2" W6:E1oM Y$"3" W9N Y$"4" W9:E1R62 AUTHOR M.P.MCDONALD COMPANY ITTBSG UK HOLLINGBURY,BRIGHTON SUSSEX,BN1 3TF DATED: MAY 18,1978A59468,12:537,136:"JOHN CONWAY'S GAME OF "23)" ":23)" ":23)" "23)" ":"RULES:":"IF A LIVE CELL IS SURROUNDED BY""TWO OR THREE LIVE CELLS IN THE PRESENT GENERATION IT WILL REMAIN LIVE";j" IN THE NEXT GENERATION.":"IF AN EMPTY CELL IS SURROUNDED IN ";"THE PRESENT GENERATION BY EXACTLY THREE NEIGHBOURS THE CELL WILL BE BORN";" IN THE NEXT GENERATION.":"IF A CELL HAS <2 NEIGHBOURING";P" LIVECELLS IT DIES OF LONELINESS AND WILL NOTBE PRESENT IN THE NEXT"; " GENERATION.":"IF A CELL HAS FOUR OR MORE LIVE NEIGHBOURS IT"; " WILL DIE FROM OVERCROWDINGIN THE NEXT GENERATION. PRESS A KEY " PK$:PK$""11/ "A LIVE CELL IS SHOWN BY A SHIFTED Q ''"_ "AND A DEAD CELL IS SHOWN AS A BLANK ' '""TO START GAME DESIGN A PATTERN OF":"SHIFTED Q'S ON THE SCREEN""AND THEN TYPE 'SYS6400' AND PRESS RETURN":"E.G.":15)""414)"":14)" SYS6400":"IF YOU NEED THE INSTRUCTIONS AGAIN"u"PRESSRETURN ORTO STARTGAMEPRESS ANY OTHER KEY. ?";548,0:PK$:PK$""548,1:19548,1:PK$(13)1""9)"LOADING MACHINE CODEPLEASE WAIT"dL nA$:C(A$):A$"*"210* xC1C2200I A(A$)48:B((A$,1))48p NB7(B9)(C2)(16(A7(A9))) N0N255200 59409,52:L,N:59409,60:LL1:110 "BYTE"L"=["A$"] ???" "GAME STARTS NOW.":"CLEAR THE SCREEN AND ENTER PATTERN"@ "FOLLOWED BY- 'SYS6400'.":I14000::"":537,133:J ,6400 620,30,19,20,8A,19,20,E6,19,20,00,1A,A9,34,8D,11,E8 @20,70,19,A9,3C,8D,11,E8,A9,FF,CD,12,E8,F0,E6,4C,8B,C3,AA,68,28,4C,8B,C3 J EA,EA,EA,EA,EA,EA,EA,A2,19,BD,3A,19,95,1F,CA,D0,F8,60,00,80,00,15,00[ T80,00,1B,00,1B,D7,28,01,FE,D8,D6,29,27,00,E8,83,00,15,00,00 ^EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA,EA hEA,EA,EA,EA,EA,20,A6,19,B1,26,D0,06,A9,20,91,20,D0,04,A9,51,91,20,207 r BD,19,F0,ED,20,A6,19,60,20,A6,19,B1,20,C9,51,F0,06,A9,00,91,26,F0 |04,A9,01,91,26,20,BD,19,F0,EB,20,A6,19,60,A9,00,AA,A8,85,20,85,26,85 39,A5,25,85,21,A5,29,85,27,A5,36,85,3A,60,E6,26,E6,20,E6,39,E8,E4 33,F0,0C,E0,00,D0,0E,E6,27,E6,21,E6,3A,D0,06,A5,34,C5,21,F0,03,A9,00Z  60,A9,01,60,EA,EA,EA,EA,EA,EA,20,A6,19,B1,26,D0,06,A9,20,91,39,D0 04,A9,51,91,39,20,BD,19,F0,ED,20,A6,19,60,20,A6,19,20,2F,1A,B1,39,C9 51,F0,0C,A5,32,C9,03,D0,14,A9,01,91,26,D0,0E,A5,32,C9,03,F0,08,C9,028F0,04,A9,00,91,26,20,BD,19,F0,D8,20,A6,19,60,98,48,8A,48,A0,00,84,32A2,08,B5,29,10,15,49,FF,85,37,38,A5,39,E5,37,85,22,A5,3A,85,23,B0,11C6,23,D0,0D,18,65,39,85,22,A5,3A,85,23,90,02,E6,23,B1,22,C9,51,D0,02E6,32,CA,D0,CF,68,AA,68,A8,60,*