Msg: 5739 *Conference*

04-02-95 00:43:51

From: JOHN RUSSO

To : RICHARD HANSON

Subj: SOLITR.BA FROM THE LIBRARY

Oops! should have sent this 2nd.

 0 'SOLITR.BA  For the T200 - Club 100 library - 510-939-1246 BBS - Modified by
John Russo 12/6 & 11/94
 1 CLS:CLEAR1000:DEFINTA-Z:CALL20318: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
 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=7
ANDM=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$(23
7);
 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=0
 20 GOSUB10:OC=CU:RETURN
 21 CU=CU-1:IFCU<0THENCU=7
 22 GOSUB10:OC=CU:RETURN
 23 ST=CU:IFIN(CU)=0THENRETURN
 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=0THENRETURN
 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))THENRETURN
 41 IF((TS=3)OR(TS=4))AND((SU=3)OR(SU=4))THENRETURN
 42 IFTV<>VA+1THENRETURN
 43 IFVA=1THENRETURN
 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)=I
N(CU)+1:C(ST,I)=0:NEXTI:IN(ST)=0:HF=0:IFP(ST,0)=0 THENRETURN
 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(S
T,I+1):NEXTI:P(ST,5)=0:RETURN
 47 IFST<>7THENRETURN
 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<>13THENRETURN
 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:H
F=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)THENRETURN
 59 IFF(SU)<>VA-1THENTV=F(SU):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):GOSUB400: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(C
U,5)=0:RETURN
 66 FL=0:IFIN(CU)=0THENRETURN
 68 IFCU=7THENGOSUB58:RETURN
 69 NU=C(CU,IN(CU)-1):GOSUB3:IF(F(SU)<>VA-1)AND(F(SU)=0)THENRETURN
 70 IFF(SU)<>VA-1THENTV=F(SU):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),G$(10):PRINT@292,"Cards
II..Wait":GOSUB88:FORI=0TO6:FORJ=0TO5:C(I,J)=0:P(I,J)=0:NEXTJ:F
ORJ=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:FORI=1TOVAL(RIGHT$(TIME$,2))+
VAL(MID$(TIME$,4,2)):DUMMY=RND(1):NEXTI:FORI=51TO
0STEP-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
FH=0: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:GOS
UB4:CU=0:OC=0:X=CU:GOSUB10:GOSUB300
 77 A$=INKEY$:IFA$=""THEN77
 78 IFA$=CHR$(9)THENRUN
 79 IFFH=4THEN85ELSEIFA$=CHR$(28)THENGOSUB19:GOTO77
 80 IFA$=CHR$(29)THENGOSUB21:GOTO77
 81 IFA$=CHR$(30)THENGOSUB94:GOSUB23:GOTO77
 82 IFA$=CHR$(31)THENGOSUB34:GOTO77
 83 IFA$=CHR$(32)THENGOSUB94:GOSUB4:GOSUB300:GOTO77
 84 IFA$=CHR$(13)THENGOSUB94:GOSUB66:GOTO77
 85 IFA$=CHR$(27)THENMENU
 86 GOTO77
 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$(2
31)+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$(2
39)+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$(2
39)+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$(2
39)+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 IFHF<>0THEN77ELSERETURN
 97 PRINT@600,"Last";:SOUND500,10:PRINT@600,STRING$(30,32);:GOSUB10:GOTO9
 98 PRINT@600,"FLIP";:SOUND650,10:IFHF=0ANDIN=28THEN100
 99
PRINT@600,STRING$(30,32);:GOSUB10:IN(7)=0:FORX=28TO51:D(X)=OD(X-28):OD(X-28)=0:N
EXTX:IN=28:GOTO77
 100 PRINT@600,STRING$(30,32);:GOTO77
 300 IFINKEY$<>""THEN300
 390 RETURN
 400 IFF(SU)=13THENFH=FH+1:SOUND2000,10
 410 IFFH=4THENPRINT@291,"<  You Won !!!  >":SOUND1000,50:GOTO440
 420 RETURN
 440 PRINT@523,"Press TAB to play or ESC to quit."
 450 RETURN