home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
gam
/
solit2.200
< prev
next >
Wrap
Text File
|
2006-10-19
|
6KB
|
102 lines
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