0 'SOLIT2.BA Modified for the Model 200 CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 CLS:CLEAR1000:DEFINTA-Z:GOTO74 2 PRINT@X*5+Y*40,G$(6);:PRINT@X*5+Y*40,G$(SU);:PRINT@X*5+Y*40,MID$(VA$,VA,1)MID$(S$,SU,1);:RETURN 3 SU=INT(NU/100):VA=NU-100*SU:RETURN 4 FORM=1TO3:IFD(IN)=0THEN98 5 IFHF<>0THENBEEP:RETURN 6 OD(IN(7))=D(IN):IN=IN+1:X=7:Y=12:NU=OD(IN(7)):GOSUB3:GOSUB2:IN(7)=IN(7)+1:IFCU=7ANDM=3THENGOSUB10 7 IFD(IN)=0THEN97 8 NEXTM 9 RETURN 10 IFOC<>7THENPRINT@600+OC*5," "; 11 IFIN(7)=0THEN14 12 JJ=OD(IN(7)-1):JT=INT(JJ/100):IFIN(7)<>0AND((JT=1)OR(JT=2))THENPRINT@635,CHR$(237); 13 IFIN(7)<>0AND((JT=3)OR(JT=4))THENPRINT@635,CHR$(239); 14 IFIN(7)=0ANDCU=7THENPRINT@635,CHR$(255); 15 IFIN(7)=0ANDCU<>7THENPRINT@635," "; 16 IFIN(7)<>0ANDCU=7THENPRINT@635,CHR$(255); 17 IFCU<>7THENPRINT@600+CU*5,STRING$(4,255); 18 RETURN 19 CU=CU+1:IFCU>7THENCU=7 20 GOSUB10:OC=CU:RETURN 21 CU=CU-1:IFCU<0THENCU=0 22 GOSUB10:OC=CU:RETURN 23 IFHF<>0THENBEEP:RETURN 24 ST=CU:IFIN(CU)=0THENGOSUB87:RETURN 25 IFCU=7THENNU=OD(IN(7)-1):GOTO27 26 NU=C(CU,0) 27 HF=1:X=CU:J=0:IFCU=7THENJ=12:PRINT@X*5+480,G$(6);:GOTO30 28 IFP(CU,0)<>0THENPRINT@X*5,G$(6);:GOTO30 29 FORY=0TO3:PRINT@Y*40+X*5,STRING$(4,32);:NEXTY 30 IFCU=7THENGOSUB10:RETURN 31 IFIN(CU)=1THENRETURN 32 J=IN(CU)+2:IFJ>15THENJ=15 33 FORI=4TOJ:PRINT@I*40+X*5,STRING$(4,32);:NEXTI:RETURN 34 IFHF=0THENGOSUB87:RETURN 35 IFCU=7THENGOSUB47:RETURN 36 IFST=CUTHENGOSUB57:RETURN 37 IFIN(CU)=0THENGOSUB49:RETURN 38 NU=C(CU,IN(CU)-1):GOSUB3:TS=SU:TV=VA:IFST=7THENNU=OD(IN(7)-1):GOTO40 39 NU=C(ST,0) 40 GOSUB3:IF((TS=1)OR(TS=2))AND((SU=1)OR(SU=2))THENGOSUB87:RETURN 41 IF((TS=3)OR(TS=4))AND((SU=3)OR(SU=4))THENGOSUB87:RETURN 42 IFTV<>VA+1THENGOSUB87:RETURN 43 IFVA=1THENGOSUB87:RETURN 44 IFST=7THENGOSUB54:RETURN 45 FORI=0TOIN(ST)-1:NU=C(ST,I):C(CU,IN(CU))=NU:GOSUB3:X=CU:Y=IN(CU):GOSUB2:IN(CU)=IN(CU)+1:C(ST,I)=0:NEXTI:IN(ST)=0:HF=0:IFP(ST,0)=0THENRETURN 46 NU=P(ST,0):GOSUB3:X=ST:Y=0:GOSUB2:C(ST,IN(ST))=NU:IN(ST)=1:FORI=0TO4:P(ST,I)=P(ST,I+1):NEXTI:P(ST,5)=0:RETURN 47 IFST<>7THENGOSUB87:RETURN 48 NU=OD(IN(7)-1):GOSUB3:X=CU:Y=12:GOSUB2:GOSUB10:HF=0:RETURN 49 IFST=7THENNU=OD(IN(7)-1):GOTO51 50 NU=C(ST,0) 51 GOSUB3:IFVA<>13THENGOSUB87:RETURN 52 IFST=7THENGOSUB54:RETURN 53 GOSUB45:RETURN 54 X=CU:Y=IN(CU):C(CU,IN(CU))=NU:GOSUB2:IN(CU)=IN(CU)+1:IN(7)=IN(7)-1:OD(IN(7))=0:HF=0 55 IFIN(7)=0THENPRINT@515,G$(7);:RETURN 56 NU=OD(IN(7)-1):GOSUB3:X=7:Y=12:GOSUB2:RETURN 57 FORI=0TOIN(CU)-1:NU=C(CU,I):GOSUB3:X=CU:Y=I:GOSUB2:NEXTI:HF=0:RETURN 58 NU=OD(IN(7)-1):GOSUB3:FL=1:IF(F(SU)<>VA-1)AND(F(SU)=0)THENGOSUB87:RETURN 59 IFF(SU)<>VA-1THENTV=F(SU):GOSUB87:RETURN 60 GOSUB71:OD(IN(CU))=0:IFIN(CU)=0THENGOSUB55:RETURN 61 GOSUB56:GOSUB10:RETURN 62 X=CU:IFP(CU,0)<>0THENPRINT@X*5,G$(6);:GOTO64 63 FORY=0TO3:PRINT@Y*40+X*5,STRING$(4,32);:NEXTY 64 C(CU,0)=P(CU,0):IFP(CU,0)=0THENRETURN 65 NU=C(CU,0):X=CU:Y=0:GOSUB3:GOSUB2:IN(CU)=1:FORI=0TO4:P(CU,I)=P(CU,I+1):NEXTI:P(CU,5)=0:RETURN 66 IFHF<>0THENBEEP:PRINT"You Won !":RETURN 67 FL=0:IFIN(CU)=0THENGOSUB87:RETURN 68 IFCU=7THENGOSUB58:RETURN 69 NU=C(CU,IN(CU)-1):GOSUB3:IF(F(SU)<>VA-1)AND(F(SU)=0)THENGOSUB87:RETURN 70 IFF(SU)<>VA-1THENTV=F(SU):GOSUB87:RETURN 71 X=7:Y=SU*3-3:PRINT@X*5+Y*40,MID$(VA$,VA,1)MID$(S$,SU,1);:F(SU)=VA:IN(CU)=IN(CU)-1:IFFL<>0THENRETURN 72 C(CU,IN(CU))=0:IFIN(CU)=0THENGOSUB62:RETURN 73 X=CU:Y=IN(CU)-1:NU=C(CU,IN(CU)-1):GOSUB3:GOSUB2:PRINT@CU*5+(IN(CU)+3)*40,STRING$(4,32);:RETURN 74 DIMC(6,11),P(6,5),D(52),OD(23),F(4),IN(7),TX$(13),G$(10):PRINT@297,"Cards II":GOSUB88:FORI=1TO13:READTX$(I):NEXTI:FORI=0TO6:FORJ=0TO5:C(I,J)=0:P(I,J)=0:NEXTJ:FORJ=6TO11:C(I,J)=0:NEXTJ,I:FORI=0TO23:OD(I)=0:NEXTI:FORI=0TO3:F(I)=0:NEXTI:D(52)=0:IN=0 75 FORI=1TO4:FORJ=1TO13:D(IN)=100*I+J:IN=IN+1:NEXTJ,I:SEC=VAL(RIGHT$(TIME$,2))+VAL(MID$(TIME$,4,2)):FORI=1TOSEC:DUMMY=RND(1):NEXTI:FORI=51TO0STEP-1:X=INT(RND(1)*I+1):T=D(X):D(X)=D(I):D(I)=T:NEXTI:IN=0:FORI=1TO6:FORJ=0TOI-1:P(I,J)=D(IN):IN=IN+1:NEXTJ,I 76 CC=24:FORI=0TO6:C(I,0)=D(IN):IN=IN+1:NEXTI:CLS:FORI=0TO6:NU=C(I,0):GOSUB3:X=I:Y=0:GOSUB2:NEXTI:FORI=0TO6:IN(I)=1:NEXTI:IN(7)=0:GOSUB4:CU=0:OC=0:X=CU:GOSUB10 77 A$=INKEY$:IFA$=""THEN77 78 IFA$=CHR$(9)THENRUN 79 IFA$=CHR$(28)THENGOSUB19:GOTO77 80 IFA$=CHR$(29)THENGOSUB21:GOTO77 81 IFA$=CHR$(30)THENGOSUB23:GOTO77 82 IFA$=CHR$(31)THENGOSUB34:GOTO77 83 IFA$=CHR$(32)THENGOSUB4:GOTO77 84 IFA$=CHR$(13)THENGOSUB66:GOTO77 85 IFA$=CHR$(27)THENMENU 86 GOTO77 87 RETURN:DATA"n A"," 2"," 3"," 4"," 5"," 6":DATA" 7"," 8"," 9"," T"," J"," Q"," K 88 G$=CHR$(27)+CHR$(66)+CHR$(27)+CHR$(68)+CHR$(27)+CHR$(68):G$=G$+CHR$(27)+CHR$(68)+CHR$(27)+CHR$(68):G$(1)=CHR$(235)+CHR$(231)+CHR$(231)+CHR$(236)+G$:G$(1)=G$(1)+CHR$(233)+CHR$(252)+CHR$(254)+CHR$(234)+G$ 89 G$(1)=G$(1)+CHR$(233)+CHR$(253)+CHR$(251)+CHR$(234)+G$:G$(1)=G$(1)+CHR$(237)+CHR$(232)+CHR$(232)+CHR$(238):G$(2)=CHR$(235)+CHR$(231)+CHR$(231)+CHR$(236)+G$:G$(2)=G$(2)+CHR$(233)+CHR$(254)+CHR$(252)+CHR$(234)+G$ 90 G$(2)=G$(2)+CHR$(233)+CHR$(253)+CHR$(251)+CHR$(234)+G$:G$(2)=G$(2)+CHR$(237)+CHR$(232)+CHR$(232)+CHR$(238):G$(3)=CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239)+G$:G$(3)=G$(3)+CHR$(239)+CHR$(225)+CHR$(226)+CHR$(239)+G$ 91 G$(3)=G$(3)+CHR$(239)+CHR$(251)+CHR$(253)+CHR$(239)+G$:G$(3)=G$(3)+CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239):G$(4)=CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239)+G$:G$(4)=G$(4)+CHR$(239)+CHR$(251)+CHR$(253)+CHR$(239)+G$ 92 G$(4)=G$(4)+CHR$(239)+CHR$(227)+CHR$(228)+CHR$(239)+G$:G$(4)=G$(4)+CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239):G$(6)=CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239)+G$:G$(6)=G$(6)+CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239)+G$ 93 G$(6)=G$(6)+CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239)+G$:G$(6)=G$(6)+CHR$(239)+CHR$(239)+CHR$(239)+CHR$(239):VA$="A23456789TJQK":S$=CHR$(157)+CHR$(158)+CHR$(156)+CHR$(159):G$(7)=STRING$(4,32)+G$+STRING$(4,32)+G$+STRING$(4,32)+G$+STRING$(4,32):RETURN 94 PRINT@600,STRING$(34,32);:PRINT@600,A$; 95 A$=INKEY$:IFA$=""THEN95 96 PRINT@600,STRING$(34,32);:GOSUB10:RETURN 97 PRINT@600,"Last";:FOROO=1TO100:NEXTOO:PRINT@600,STRING$(30,32);:GOSUB10:GOTO9 98 PRINT@600,"FLIP";:FOROO=1TO100:NEXTOO:IFHF=0ANDIN=28THEN100 99 PRINT@600,STRING$(30,32);:GOSUB10:IN(7)=0:FORX=28TO51:D(X)=OD(X-28):OD(X-28)=0:NEXTX:IN=28:A$="n":GOTO77 100 PRINT@600,STRING$(30,32);:GOTO77