4PG$"S T O P ":AU$"BY RANDALL LOCKWOOD":JF0V STOP -- BY RANDALL LOCKWOOD\: COPYRIGHT (C) 1983 THE CODE WORKS BOX 6905, SANTA BARBARA, CA 93160: AS OF 9/6/83 GFZ 62000 dU$"":B$" "CR$' e JD(15): I0 15: JD(I):M f 0,0,0,0,0,3,9,6,0,1,7,4,0,2,8,5 g J(X)JD((JSX) 15): B(X)((JSX) 16)0 h I0 28: SIDI,0:: SID6,240: SID4,17 nFQSID1:VLSID24:QI3:DICMCRT:TN15:SPWD2:C$" "/ x T(12),X1(12),P1(12),P(12),R(4),RR(6,1)i PS%(2,12),GC(2),W%(12),X(12),PF(2,12),PN$(2),PS$(2) "WANT TO PLAY AGAINST THE 64? "; 60000::PET((IN$,1)"N") PET PN$(1)"YOU":PN$(2)"I":PS$(1)"YOUR":PS$(2)"MY": 210/ QI20: I1 2: "PLAYER";I;"'S NAME? ";: 60000T IN$"" IN$"PLAYER "(I48){ PN$(I)(IN$,8):PS$(I)PN$(I)"'S" I:QI3 GC(1)81:GC(2)90:CL(1)10:CL(2)14:BK11 I2 12:T(I)122(7I): I2 12:P(I)CRT3I2(14T(I))WD:, Z$" ": "": "";19);" 7"F 16) " 6 " Z$ " 8"d  13);" 5 " Z$Z$Z$ " 9"  10);" 4 " Z$Z$Z$Z$Z$ "10"  7);" 3 " Z$Z$Z$Z$Z$Z$Z$ "11" " " 2 " Z$Z$Z$Z$Z$Z$Z$Z$Z$ "12" , " " Z$Z$Z$Z$Z$Z$Z$Z$Z$Z$Z$ ""$ 6 " " Z$Z$Z$Z$Z$Z$Z$Z$Z$Z$Z$ ""E @ 7);Z$Z$Z$Z$Z$Z$Z$Z$Z$ ""c J 10);Z$Z$Z$Z$Z$Z$Z$ ""| T 13)Z$Z$Z$Z$Z$ "" ^ 16)Z$Z$Z$ "" h 19);Z$ ""  I1 2: J2 12:PS%(I,J)0:PF(I,J)0: J:CW(I)0: I  J2 12:W%(J)0: JPL2 "";31);"THE DICE"'C3APLPL1: PL2 PL1^ I2 12:X(I)0::FR0k "";C$ "" ("",PL);PS$(PL);" TURN ";(GC(PL)128) PL2 PET 1200! 2200: R$"Q" "":" R$"R" 870D U$;" STOP ":TTI300N J2 12'X X(J)0 720I]SD1352(PF(PL,J)12): 2600db PF(PL,J)T(J) 680lCW(PL)CW(PL)1:W%(J)1v K1 T(J)1:ZP(J)SPK{ Z,GC(PL): Z1,GC(PL) ZDI,CL(PL): ZDI1,CL(PL) K 720. PS%(PL,J)0 LP(J)SPPS%(PL,J)PL1: L,100: LDI,BKULP(J)SPPF(PL,J)PL1: L,GC(PL)g LDI,CL(PL)~PS%(PL,J)PF(PL,J) 2650: J TIT 723 U$;B$ CW(PL)3 1100 480f U$;" ZAP!! ":SD255:TN25k 2600: Z1 750:p 2650: Z1 750:<z U$;" ": J2 12O X(J)0 960i PF(PL,J)T(J) 930LP(J)SPPF(PL,J)PL1: L,100: LDI,BK: 950 (U$,13T(J));3J2);((J),2)PF(PL,J)PS%(PL,J) J: 480 2490TM(1): 1900TM(2): 19009 PL2 PET Z1 2000:C 540\LZ$"S": PET Z$""pQ:I1:Z18:TTIV "";C$: K1 30[ "" (Z);PN$(PL);" WIN";Z$:TTI6` KI SD,I:IKI: 2650: 2600e TIT 1125jZ(Z128) 255t Ky 2650*~ U$;"AGAIN?": 60000A (IN$,1)"N" K 240 214,4,214,2,214,6,202,2,214,2,255,2,241,2,214,0 C0 1230J0: I2 12: X(I) JJI: PF(PL,I)T(I) 580:JJ3 (1)(7(7J))FR 1230 580 2300: U$ "THINKING"0TS0: I1 NPJR1RR(I,0):R2RR(I,1)U 1400]  Ii U$;B$z TS0 8702 1000x Z2 12:X1(Z)X(Z):P1(Z)PS%(PL,Z): Z:C1CSC0:TR1: 1500:TR2: 1500 SCTS TSSC:M(1)R1:M(2)R2:MI  X1(T)0 C10 = W%(T) P1(T)T(T) ISCSC1_ X1(T) SCSC2z P1(T)T(T) SCSC5 X1(T)0 C1C11P1(T)P1(T)1:X1(T)1: U$;("",PL);"WHICH PAIR?":QI3: 60000 U$;" ": B$ (IN$,1)"Q" V0:R$"Q":9 IN$"" NP1 IN$"1"M! IN$"" 1800h&M(IN$): IN$"0" + M1 MNP 1800- 24900V0:TRR(M,0): 1900:TRR(M,1): 1900Dl W%(T) vIPF(PL,T): IPS%(PL,T) 1950 C0 2000:X(T)1:CC11 IT(T) 20007YSD2552(PF(PL,T)12): 2600y PF(PL,T)PS%(PL,T) 2020LP(T)SPPF(PL,T)PL1: L,100: LDI,BKPF(PL,T)PF(PL,T)1LP(T)SPPF(PL,T)PL1: L,214: LDI,CL(PL) V1:FRFR1: 2650: C3 2235> U$;"R OR S? "[QI3: 60000:R$(IN$,1)q "";B$;B$;B$; R$"S" R$"Q"  R$"" R$"R" 2205R$"R": 2300: 2700: ZP V0: 1800: V 2205 "": 30);B$: "";30);B$+ "": I1 6: B$;:L I1 4:R(I)(6(1)1):~ "": 33);"";(R(1)48);"";(R(2)48) "" 33);"";(R(3)48);"";(R(4)48)$ TR(1)R(2)R(3)R(4). NP0: I1 3: JI1 48 R1R(I)R(J):R2TR1B NP0 2410 L M1 NPEV RR(M,0)R1 RR(M,1)R2 2420M` Mqj NPNP1:RR(NP,0)R1:RR(NP,1)R2{t J,I~ "": M1 NP: 2500: M  ("",M2);""; ((M),2);":"; ((RR(M,0)),2);" "; ((RR(M,1)),2)  '( VL,15: FQ,SD:TN15:4Z VL,0:G ZP0: C0 V Z1 NPx X(RR(Z,0)) X(RR(Z,1))  Z:ZP1: `IN$" ":ZTTI:ZC2:ZD$(20)j Z$: Z$"" 60070t ZTTI (" ",ZC,1);"";:ZC3ZC:ZTTI15~ 60010?Z(Z$):ZL(IN$): (Z 127)32 " ";: 60110S ZLQI 60010oIN$IN$Z$: Z$;ZD$;Z$; Z13 IN$(IN$,2): CR$;: Z20 ZL1 IN$(IN$,ZL1): "";: 60010 Z141 Z$(20(ZL1)): Z2 ZL: Z$;:: 60000  60010NHCRT1024:VIC53248:WD40:CR$(13):SID54272:JS56320:CM55296bRQL214:QI254:0 61000: VIC32,0: VIC33,0:LN(PG$):TB(40LN)2: "" TB)(" ",LN)D "" TB)PG$: ""TB)(" ",LN)$N "" (40(AU$))2)AU$lXMS$"HIT RETURN TO BEGIN": JF MS$"HIT JOYSTICK BUTTON TO BEGIN"bTB((40(MS$))2)l "" TB)MS$: " (C) 1983 THE CODE WORKS"v IN$: IN$"" 62120 ((JS) 16)0 62120/ "" TB)("",K1)(MS$,Q)PQQ1: Q(MS$) Q0:K1K\ 62070w: "": 61000: 100