:10ɚSE((,2))():I1SE:DU(1):I:I152:X(I)0:IVL(1)(1)521:X(VL(1))1:I1@151,I;:II1:I53͍X(1)521&X(X)1 5=VL(I)X:X(X)1: 4[ 200:AZ:VL(52),X(52)sVL$"A234567890JQK" @46,"Welcome to TRS-80 BLACKJACK"› @128, "The rules are simple ..."ۛ(27,5)(210,34),1,B 8006#@45,"The house must draw on any 16":@126,"and must stick with any 17":800<(E2700W<W(1)0:W(2)0id:DEAL CARDSoikIX42͌700nN(1)0:N(2)0:FP0xPL1:500PL2:500PL1:500ΜPL2:500䜛HCVL:HDVL(IX1):CHECK FOR BLACKJACK]PL1:780:Y21͌750:@40,"You have";:@80,"BLACK-";:@122,"JACK!";:1100:760:WI1:1000PL2:780:Y21͌750:@200," I have";:@240,"BLACK-";:@282,"JACK!";:760:1100:WI2:1000ϝ:PLAYER GOESPL1:780:@40,"You have";:@81,Y;"@160,"Card ?";:@200,"(y/n)";:A$݄$(1)P A$"Y"A$"y"230:A$"N"A$"n"210Y400gPL1:500w:EVALUATE780:X21Y21260200:BUSTED750:@80,"You have";:@120,"BUSTED!";:@200,"This was";:@240,"my hand:"; 760:WI2:1000:COMPUTER GOESB@160,(8," ");:@200,(8," ");o@200,"Now its";:@240,"my turn!";:1120x760PL2:780:DRAW?X16Y16485:DRAW CARDşPL2:500Ο780ܟX21490X17Y17450X17Y21450:STICK;@200," I have ";:@240," "Y" ";:1100D600P:BUST@200,"Oh No! ";:@240,"I BUSTED";:WI1:1000499:GET ONE CARD FROM THE DECKCDN(PL)1:N(PL)N(PL)1:VLVL(IX):900:IXIX1VLVL13((VL1)13) VL10VL10 C(PL,N(PL))VL5T(PL)T(PL)VL:JX:DETERMINE WINflPL2:780:SY:PL1:780YSWI1:SYWI2:WI01000:SHUFFLEš@126,"I'll shuffle the deck ...";̡2ס:IX1ݡ:CLEAR LEFT SIDEIR07:@IR40,(8," ");:IR:2:DISPLAY WHOLE CARDuFP1:CD2:PL2:VLHD:C13:(C63,63)(C619,6326),2,BF:910{ :TOTAL EITHER HAND850X0:Y0:I1N(PL):ZC(PL,I)ߢXXZ:YYZ:Z1Y12YY10I: @285,"Press any key to continue";:A$݄$(1):+R:SORT HANDG\NN(PL)1:I1N:J1Nda C(PL,J)C(PL,J1) 880fTC(PL,J):C(PL,J)C(PL,J1):C(PL,J1)TpJ:Iz:DRAW CARDʣPL2CD2R63:960ףC5CD4죘PL1R32:R63PL1P40C:P200C!V$(156((VL1)13))v@P,V$;:@P82,V$;:A$(VL$,VL13((VL1)13),1):@P41,A$;:A$"0"ͣ@P40,"1";(C63,R)(C619,R26),1,BFP1͍PL2CD2͒(C63,R)(C619,R26),1,BF:(C63,R26)(C619,R):END1100 750W(WI)W(WI)1wWI1ͣ@80,"You WIN!";:WI2ͣ@200," Ha! Ha!";:@240," I WIN! ";:@160,"A tie! ";1100:750@0,"Score - ";:@40,"You:";W(1);:@80," Me:";W(2);@160,"Another ";:@200," Game? ";:@280," (y/n) ";:A$݄$(1)2A$"Y"A$"y"100:A$"N"A$"n"1050:1030c@160,"Are you ";:@200," sure ?";:@287,"";$A$݄$(1):A$"Y"A$"Y"ͺ:100LI12000:I:`I11000:I: