1 REMSAVE"CARDS.V5.2",8
2 GOTO400
63 :
64 REM=======PRINT AT=============
65 :
66 POKE783,PEEK(783)AND254:POKE782,X:POKE781,Y:SYS65520:PRINTW$
68 POKE783,PEEK(783)OR1:RETURN
107 REM =====DIM FOR DEAL======
109 :
111 NC=52:DIMS(NC-1),D$(51),VA$(13):FORI=0TO3:READS$(I):READCO$(I):NEXT
113 FORI=0TO12:READVA$(I):NEXT
115 DATA"[216]","[144]","[218]","","[211]","","[193]","[144]",A,2,3,4,5,6,7,8,9,10,J,Q,K
119 C$="[176][192][192][192][192][192][192][174][157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221]"
121 C$=C$+     "[157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221][157][157][157][157][157][157][157][157][221]      [221]"
123 C$=C$+"[157][157][157][157][157][157][157][157][173][192][192][192][192][192][192][189]"
124 :
125 REM============SHUFFLE===========
126 :
127 FORJ=0TONC-1:S(J)=J:NEXT:FORJ=0TONC-2:J%=J+INT(RND(0)*(NC-J)):
128 TEMP=S(J):S(J)=S(J%):S(J%)=TEMP:NEXT:RETURN
129 :
130 REM ======SUITS,VALUES,GRAPHICS===
131 :
133 FORI=0TO51:SU=(INT(S(I)/13)):  DE$=CO$(SU)+VA$(S(I)-13*INT(S(I)/13))
135 DF$=DE$+S$(SU):D$(I)=C$+"[145][145][145][145][145][145][157][157][157][157][157][157][157]"+DF$:NEXT:RETURN
179 :
398 REM========START OF PROGRAM=======
399 :
400 POKE53280,1:POKE53281,1:PRINTCHR$(8);CHR$(142)
402 PRINT"[147][144][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216]"
403 PRINT"[211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]":PRINT"":PRINT"";
404 PRINT "THE WINNERS WERE TELLING JOKES"
406 PRINT"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
407 PRINT"[144][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]"
408 GOSUB111
412 PRINT"[147][144][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216][216]"
413 PRINT"[211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211][211]":PRINT"":PRINT"";
414 PRINT "AND THE LOSERS WERE HOLLERIN' "
416 PRINT"[218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218][218]"
417 PRINT"[144][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193][193]"
418 GOSUB127
420 PRINT"[147]"
422 PRINT"            [223]    [169]  [223]  "
424 PRINT  "                "
426 PRINT  "                    "
428 PRINT  "               "
430 PRINT  "            [146][169]          [146][209]"
446 GOSUB133
449 Y=0:X3=0:X=X3
450 K1=0:FORJ=1TO7:FORI=1TO8:W$=D$(K1):GOSUB66:K1=K1+1
452 X=X+4
454 IFK1=52THEN474
456 :NEXT:Y=Y+2
458 IFINT(J/2)=J/2THEN460
459 X=2:NEXT
460 X=0:NEXT
474 GOSUB127
478 X=16:Y=20:W$="        [157][157][157][157][157][157][157][157] AGAIN? [157][157][157][157][157][157][157][157] (Y/N)  ":GOSUB66
480 GETA$:IFA$=""THEN 480
482 IFA$="N"THEN60000
484 GOTO420
500 END
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IF ER<>63 THEN PRINT"[147]":END
60020 A$="HELLO CONNECT":Q$=CHR$(34)
60030 PRINT"[147]LOAD"Q$A$Q$",8"
60040 PRINT"RUN":POKE631,13:POKE632,13:POKE198,2:END