& *CRAZY 8'S BY JOHN O'HARE (PET)S*CONVERTED TO THE C64 BY ROGER D. BURGE*#2667, TORONTO PET USERS GROUP INC., CANADAQC211:QL214:QK158:QP151"":53280,1:53281,1#A$"CRAZY EIGHT'S"(665 -S$"8.":C$" A 2 3 4 5 6 7 8 9 10J Q K "' 2A$"BY":665< 7A$"JOHN O'HARE"r <665:" COMMODORE 64 VERSION BY ROGER D. BURGE"} AC(52) F P1(50),P2(50) K P3(50) P SPADES,8,HEARTS,21,DIAMONDS,34,CLUBS,47 UI14:SU$(I),SU(I): ZF18 _A((1)8)1:X((S$,A,1))B dQL,((1)12)5::QC,((1)37)1:650:V iQL,22::QC,12d n715:545l sW1 xI1142:P1P11:P2P21:P1(P1)C(I):P2(P2)C(I1): }C1P1P2W TCC(C1):ZTC:""; 465:450 QL,14::QC,.:"CARD TO PLAY ";P$ P$"Q"680? P(P$):P.P$"D""":140P P$"D"175} C1P1P2W:P1P11:C1152P1P11:250 P1(P1)C(C11) 135 PP1"":140 ZP1(P):535 S7S:C7C:ZTC:535 S7SC7CC78"":140 C78235 N "WHAT SUIT DO YOU DECLARE ";U$:U$(U$,1)~ U$""U$""U$""U$"""":200 U$""TC8 U$""TC813 U$""TC81313 U$""TC8131313 240 TCP1(P) WW1  P1(P)P1(P1):P1P11D "":" "R 465:450 QL,14::QC,.:" " ZTC:535:S7S:C7C NS.:I1P2:ZP2(I):535:SS7NSNS1  I1P2 ZP2(I):535"C8P3(I)2:310'CC7P3(I)NS:3101,SS7360:310=1P3(I).C6{;SC3:PL.:I1P2:P3(I)SCP3(I).SCP3(I):PLI@ESC3420JSC2375OQL,14::QC,.T"I PLAY ";:ZP2(PL):535:(C$,C2,2);(S$,S,1)YTCP2(PL):P2(PL)P2(P2):P2P21:WW1=^D1750::"":" "Fc135qhP3(I).:CT.:S8S:J1P2:ZP2(J):535mS8SP3(I)P3(I)1r:wS914:CT(S9).:I1P2:ZP2(I):535|SS9C8CT(S9)CT(S9)1:P7.:CT1:I14:CT(I)CTCTCT(I):P7IJQL,14::QC,.:"I DECLARE ";SU$(P7)" AS SUIT."YD1750:"":" "TCSU(P7):P2(PL)P2(P2):P2P21:WW1:135QL,14::QC,.C1P1P2W:C1152"I CAN'T PLAY":D1750::""DC1152" ":135Y"I DRAW A CARD"D1500::"":" ":P2P21:P2(P2)C(C11)280ZTC:535QL,16::QC,30:"TOP CARD"QL,18::QC,32:600:"":""; C1P1P2W*"CARDS LEFT -";52C1;" ";C"IN MY HAND";P2" "pP2."---YOUR 64 WINS!!!---":680P1."---YOU WIN!!!!---":680:I1P1I$((I),2)ZP1(I):535:670:I$"-";(C$,C2,2);(S$,S,1)" ";(.)33::" "::QL,20::QC,.:" JOHN O'HARE "R "  CRAZY 8'S l" ROGER BURGE ":S((Z1)13)1C(Z13)S13 :!"SHUFFLING...."&I152+C(I)I0I5I152:J((1)52)1?TEMPC(J)DC(J)C(I)IC(I)TEMPNIS8XS1S4646,.:610C]646,2db"";(C$,C2,2);" ";"";yg" ";"";l" ";(S$,S,1);" ";"";q" ";"";vC10640{" ";(C$,C2,1):645" 10"646,6:%I13:(X);::"";(X);" ";(X);"";VI13:(X);::"";(X)" ";(X);"";nI13:(X);:::20(A$)2);A$:S2S3646,2:646,.:P$"Q"C152"---IT'S A TIE!!!---"" PLAY AGAIN? (Y/N) ":198,.A$:A$"Y"&A$"N"705/690D53280,3:"":m"NEED INSTRUCTIONS? (Y/N)":198,.K$:K$"Y"735K$"N""":720""15)" CRAZY 8'S ""PLAY THE CARD GAME CRAZY 8'S AGAINST YOUR 64.&"YOUR 64 WILL PROMPT YOU THROUGH THE GAME.s"IF YOU DON'T HAVE A CARD IN YOUR HAND YOU CAN PLAY THEN ENTER D";" (FOR 'DRAW CARD') WHEN ASKED WHICH CARD TO PLAY."IF THERE ARE NO CARDS LEFT IN THE DECK THEN YOUR 64 WILL TAKE A TURN.?"IF YOU OR YOUR 64 CANNOT PLAY AND THEREARE NO CARDS LEFT ";o"THEN ENTER Q AND A TIEWILL BE DECLARED."ENTER Q ANYTIME TO END THE GAME. "WHEN YOU PLAY AN '8' YOU WILL BE ASKED TO DECLARE A SUIT. ENTER "; " OR AS YOUR CHOICE MAY BE.E" PRESS ANY KEY TO PLAY. ":198,.XK$:K$""795c "":