O::::: ::::: ::::: ::::: ::::: ::::: 20 ::::: :::::"""""""""""""""""""""""" """""""""""""""""""""""""" "" "" KARAZY EIGHTS OLD GAME ""@ "" "" "" FROM 1980 BY JOHN O'HARE. "" "" "" "" GRAPHICS, COL, SOUND "" "" "" "" LOTSA OTHER NEAT STUFF "". "" "" "" ADDED BY JIM GREEN. ""} "" "" "" PLAY IT ENJOY!! "" "" "" """""""""""""""""""""""" """""""""""""""""""""""" .! MODIFIED MAY 1987 .D 53280,2:53281,2:"";u ""; ("    "; 2"      ߒ ";( <"     ̯ ̯ ";a F"    "; P" "; Z"    '  "; d"        ߖ ";Q n"      ̯ "; x"   "; ""; " NEED INSTRUCTIONS Y/NG$:G$"Y"G$"N"150G$"N"4200"";:53280,15:53281,15a"  - ' NSTRUCTIONS"HE PLAYER AND 64 ARE EACH DEALT 7"CARDS AND ONE CARD CALLED THE Р"IS DEALT. OU AND THE 64 TAKE TURNS."OU MUST MATCH THE Р EITHER IN="SUIT OR NUMBER. XAMPLE - F THE f"ARD IS A 7 OF SPADES YOU CAN PLAY"EITHER A 7 OR A SPADE. F YOU DO THEN"THE CARD PLAYED BECOMES THE Р AND";"THE OTHER PLAYER MUST MATCH IT. F YOU"CANNOT MATCH THE Р THEN YOU MUSTO"" FROM THE DECK UNTIL YOU GET A PLAY.";w#" RESS <> FOR MORE$G$:G$" " 292%"HE 8 CARD IS WILD AND CAN BE ANY&"NUMBER OR SUIT.'" X.- 8/CLUBS CAN BE 2/DIAMONDS.*,"F BY SOME ODD CHANCE THE PLAYER DRAWS[6"18 CARDS WITH NO PLAY THE GAME WILL END.";@"HEN THE 64 DRAWS CARDS, DUE TO PROG-J"RAMMING LIMITATIONS THE 64 CAN ONLYT"MATCH SUITS AND NOT NUMBERS. HIS GIVES ^"YOU AN UNFAIR ADVANTAGE. UT HEY!,6h"WHO SAID LIFE WAS FAIR! OU ARE A BIGcr"BOY SO QUIT THAT CRYING AND WIPE THOSE|"TEARS. HE ONE TO PLAY ALL CARDS FROM"HIS HAND IS THE WINNER."URING PLAY... RESS <) TO ." RESS <>TO PLAYG$:G$" " 410)A(TI):V54272GG828:JGG15:A:J,A: 32,155,183,138,72,32,155,183,104,170,164,101,24,76,240,255 CRAZY 8'S : 1980 BY JOHN O'HARE53280,15:53281,15:S$"8.":C$" A 2 3 4 5 6 7 8 9 10J Q K "L12:2050%C(52),P1(50),P2(50),P3(50)S SPADES,8,HEARTS,21,DIAMONDS,34,CLUBS,47nI14:SU$(I),SU(I):G,21,2:1660:W1 DEAL 7 CARDSI1142:P1P11:P2P21:P1(P1)C(I):P2(P2)C(I1):&C1P1P2W 0TCC(C1):ZTC:53265,11:"";:1930B:G,15,0:" ";VD1330:1300:N0NG,15,4:" CARD TO PLAY OR TO DRAW ";P1,0:1,P$::1XP$"Q"2350bL2:2050lP(P$):P0P$"D"590vP$"D"690${G,15,0:" "ZN1N11:G,15,12:"DRAWING CARD #"N1" "`C1P1P2W:P1P11:C1152P1P11:840P1(P1)C(C11)580N10:PP1590ZP1(P):1620S7S:C7C:ZTC:1620S7SC7CC78590C78810DG,15,2:"WHAT SUIT DO YOU DECLARE D/H/S/C qU$:U$"S"U$"H"U$"D"U$"C"750U$"S"TC8U$"H"TC813 U$"D"TC826U$"C"TC839 820*TCP1(P)4WW1 >P1(P)P1(P1):P1P110HG,15,0:" "@R1330:1300v\G,15,0:" "fZTC:1620:S7S:C7CpNS0:I1P2:ZP2(I):1620:SS7NSNS1zI1P2ZP2(I):1620C8P3(I)2:960CC7P3(I)NS:960$SS71080:9600P3(I)0[:N0G,19,32:XQ1:1770:D11500:G,19,25:" ":25)" "25)" "SC3:PL0:I1P2:P3(I)SCP3(I)0SCP3(I):PLISC31200SC211100G,15,14:"I PLAY ";:ZP2(PL):N0:2050:1620U""(C$,C2,2)""(S$,S,1)"TCP2(PL):P2(PL)P2(P2):P2P21:WW1$D11750::G,15,0:" ".5808P3(I)0:CT0:S8S:J1P2:ZP2(J):1620BS8SP3(I)P3(I)1 L:8VS914:CT(S9)0:I1P2:ZP2(I):1620W`SS9C8CT(S9)CT(S9)1_j:tP70:CT1:I14:CT(I)CTCTCT(I):P7I~G,15,7:"I DECLARE ";SU$(P7)" AS SUIT."D11750::N0 G,15,0:" ":TCSU(P7):P2(PL)P2(P2):P2P21:WW1:580GG,15,14|C1P1P2W:C1152"I CAN'T PLAY":D11750:C1152G,16,0:" ":580NN1:N1G,15,11:"I MUST DRAW A CARD":D11800:(G,15,10:" DRAWING CARD #"N:D1500:[G,15,0:" "vP2P21:P2(P2)C(C11)900  DISPLAY TOP CARDZTC:1620G,19,16:1770:"":( HAND DISPLAY2" ";<C1P1P2W/FG,0,0:" KA-RAZY!!"XPG,0,10:"- CARDS LEFT";52C1;" "zZG,0,26:"- C64 HAND";P2" "dP102100nP202160xC1522220G,3,2:I1P1I$((I),2)ZP1(I):1620(S$,S,1)"""";(S$,S,1)"""";)(S$,S,1)"""";B(S$,S,1)"""";](C$,C2,2)"10"1520p(I$)9"";I$"-"(C$,C2,1)""(S$,S,1)"";"̯"(C$,C2,1)" ";:1550(I$)9""; I$"-"(C$,C2,2)""(S$,S,1)"";' ""(C$,C2,2)" ";5 H11570M (I$)121920:H1c "P118P2182220| ,(0)33:""; 6:"   ": @ J CONVERT 1-52 TO S AND C/USE Z TS((Z1)13)1 ^C(Z13)S13!h!r SHUFFLE5!|" SHUFFLING.... "s!I152:C(I)I::I152:J((1)52)1:TEC(J):C(J)C(I)! C(I)=I! NEXTI! FORI=1TO52! J=INT(RND(1)*52)+1! TE=C(J)! C(J)=C(I)!C(I)TE::"(S$,S,1)"""";"(S$,S,1)"""";3"(S$,S,1)"""";L"(S$,S,1)"""";["XQ12510w" (C$,C2,2)"10"1850"&""(C$,C2,1)""(S$,S,1)"";"0"̯"(C$,C2,1)" ";:1870":""(C$,C2,2)""(S$,S,1)"";#D""(C$,C2,2)"";A#N IFN>0THENSYSG,20,25:PRINT"C-64DRAWS]#XG,20,4:"TOP CARD ":#bI13:" ";::" ";#lI13:(32);::" ";#vI13:" ";:::DW150::#T1012:781,T:59903::G,11,2: $X5:T14261461:T,56:TV,X:XX1:X11X5S$:R1466:T12:R,56:RV,X:R1,56:R1V,56$R34,56:R34V,X:R35,56:R35V,X1:RR40:XX1$X11X5$:T15441583:T,56:TV,X:XX1:X11X5$:T17041743:T,56:TV,X:XX1:X11X5-%:R1744:T16:R,56:RV,X:R1,56:R1V,56f%R38,56:R38V,X:R39,56:R39V,X1:RR40:XX1t%X11X5%:T19842023:T,56:TV,X:XX1:X11X5%:G,11,8:"KA-RAZY  EIGHT'S":53265,27:580&V5,0:V6,240:V24,15;& I1L:D120::V,(1)255:V1,(1) 5020:V4,17f&D180::V4,16::IVV23:I,0::& K12:M3011:54296,M:54296,1:::&*:53281,0:"";&4L8:2050:J14:G,14,0:X3:" WIN !!!"; '>T17:XX1:646,X:" ** YOU WIN!!!";:X8X3!'H:" * YOU WI"['RX3:G,14,0:T13:XX1:646,X:"8";:646,X1:"8 ";'\646,X2:34)" 8";:646,X3:"8";::D1 50:'f2280::L6:2050:2280'pJ14:G,14,0:X3:" WINS!!!";(zT17:XX1:646,X:" - C-64 WINS!!!";:X8X3(:" -":X3N(G,14,0:T13:XX1:646,X:"8";:646,X1:"8 ";(646,X2:34)" 8";:646,X3:"8";::D1650:(2080:2280::2280(J14:G,14,0:X3:" A DRAW!!!";(T16:XX1:646,X:" - IT'S A DRAW!!!";:X8X3 ):" - ":X3B)G,14,0:T13:XX1:646,X:"8";:646,X1:"8 ";q)646,X2:34)" 8";:646,X3:"8";::2050)2080:2280::2280)X4:G,14,0:T13:646,X)"88888888888 KA-RAZY EIGHT'S 88888888888";:XX1:X9X3*:D1300::J4>* NN1:N3G,15,9:" * PLAY AGAIN Y/N * ":L2:2050\* G$:G$"Y"G$"N"2280j* G$"Y"y*$ D11E3:*. K2024:P15:KK1:TK10246:T,227*8 TV,8:::X15*B K2019:KK1:TK10186:T,227:TV,X:*L X7X15:2430 +V X7:2430'+` G$:G$"Y"G$"N"23705+j G$"Y"?+t 2460o+~ ""12)""12);+ 12)"ݚPLAY AGAIN Y/N"12);+ 12)""12);:2400+ ""12)"BYE! BYE! THEN":2080:, (S$,S,1)"""";, (S$,S,1)"""";8, (S$,S,1)"""";Q, (S$,S,1)"""";n, "Ϸ"(S$,S,1)"";, "̯ ";, N0G,20,25:"C-64DRAWS, G,20,4:"TOP CARD ":XQ0: