31 H=0:PRINT@293,S"ENTER your score: ";:GOSUB6:LINEINPUTY:O=VAL(Y):IFO<GTHENM=G-O:G=OELSEIFO>GTHENREADY:H=99:N=N+1:PRINT@303-LEN(Y)/2,S;Y:IFN=3THENH=0:M=0:GOSUB7
32 RETURN
33 C=8:G=0:H=M:I=I+H:M=0:PRINT@262-LEN(Z(H)),S"MUGGINS! I score "Z(H)".":GOTO1
62 PRINT@85,X"Q"X"J":PRINT@285,"Lowest card deals; Ace is low.":PRINT@203," Draw a card (ENTER 5 to 48) ";:GOSUB6:INPUTA:IFA>4ANDA<49THENA=A-1ELSEGOSUB3:GOTO62
63 IFA(A)=99THENPRINT@283,T" That card has already been drawn!"U:GOSUB7:GOTO62
68 KEYSTOP:PRINTX"U"V;W;S;X"V C R I B B A G E":FORA=0TO51:A(A)=A:NEXT:LINE(106,26)-(137,43),1,BF:PRINT@178,T"shuff"U"ling...":LINE(143,21)-(100,48),1,B:LINE(101,50)-(145,50):LINE-(145,40):B=1:C=0:MM=34
96 PRINT@287,S;:IFKTHENPRINT"I'm cutting the deck...":FORA=RND(1)*37TOPEEK(63791):B=RND(1)*31.99+17:NEXT:PRINT@77,T;:AW=3:GOSUB9:PRINT@77,;:AW=2:GOSUB10:PRINT@296,S;U"Turn up the top card ";:GOSUB4:GOTO98
97 PRINT"Cut the deck (17 to 48): ";:GOSUB6:Y=INPUT$(2):B=VAL(Y):IFB<17ORB>48THENGOSUB3:GOTO96
104 PRINT@294,T;XK" My play... "U:H=-99:FORA=1TOM:F(A+5)=-1:IFD(K(A))+O>31THENM(A)=-99:GOTO107ELSEM(A)=0:FORC=1TON:H(C)=L(C):NEXT:C=N+1:H(C)=K(A):F=1:GOSUB36:F(A+5)=G