home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / solit2.200 < prev    next >
Text File  |  2006-10-19  |  6KB  |  102 lines
  1. 0 'SOLIT2.BA Modified for the Model 200    CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:CLEAR1000:DEFINTA-Z:GOTO74
  3. 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
  4. 3 SU=INT(NU/100):VA=NU-100*SU:RETURN
  5. 4 FORM=1TO3:IFD(IN)=0THEN98
  6. 5 IFHF<>0THENBEEP:RETURN
  7. 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
  8. 7 IFD(IN)=0THEN97
  9. 8 NEXTM
  10. 9 RETURN
  11. 10 IFOC<>7THENPRINT@600+OC*5,"    ";
  12. 11 IFIN(7)=0THEN14
  13. 12 JJ=OD(IN(7)-1):JT=INT(JJ/100):IFIN(7)<>0AND((JT=1)OR(JT=2))THENPRINT@635,CHR$(237);
  14. 13 IFIN(7)<>0AND((JT=3)OR(JT=4))THENPRINT@635,CHR$(239);
  15. 14 IFIN(7)=0ANDCU=7THENPRINT@635,CHR$(255);
  16. 15 IFIN(7)=0ANDCU<>7THENPRINT@635," ";
  17. 16 IFIN(7)<>0ANDCU=7THENPRINT@635,CHR$(255);
  18. 17 IFCU<>7THENPRINT@600+CU*5,STRING$(4,255);
  19. 18 RETURN
  20. 19 CU=CU+1:IFCU>7THENCU=7
  21. 20 GOSUB10:OC=CU:RETURN
  22. 21 CU=CU-1:IFCU<0THENCU=0
  23. 22 GOSUB10:OC=CU:RETURN
  24. 23 IFHF<>0THENBEEP:RETURN
  25. 24 ST=CU:IFIN(CU)=0THENGOSUB87:RETURN
  26. 25 IFCU=7THENNU=OD(IN(7)-1):GOTO27
  27. 26 NU=C(CU,0)
  28. 27 HF=1:X=CU:J=0:IFCU=7THENJ=12:PRINT@X*5+480,G$(6);:GOTO30
  29. 28 IFP(CU,0)<>0THENPRINT@X*5,G$(6);:GOTO30
  30. 29 FORY=0TO3:PRINT@Y*40+X*5,STRING$(4,32);:NEXTY
  31. 30 IFCU=7THENGOSUB10:RETURN
  32. 31 IFIN(CU)=1THENRETURN
  33. 32 J=IN(CU)+2:IFJ>15THENJ=15
  34. 33 FORI=4TOJ:PRINT@I*40+X*5,STRING$(4,32);:NEXTI:RETURN
  35. 34 IFHF=0THENGOSUB87:RETURN
  36. 35 IFCU=7THENGOSUB47:RETURN
  37. 36 IFST=CUTHENGOSUB57:RETURN
  38. 37 IFIN(CU)=0THENGOSUB49:RETURN
  39. 38 NU=C(CU,IN(CU)-1):GOSUB3:TS=SU:TV=VA:IFST=7THENNU=OD(IN(7)-1):GOTO40
  40. 39 NU=C(ST,0)
  41. 40 GOSUB3:IF((TS=1)OR(TS=2))AND((SU=1)OR(SU=2))THENGOSUB87:RETURN
  42. 41 IF((TS=3)OR(TS=4))AND((SU=3)OR(SU=4))THENGOSUB87:RETURN
  43. 42 IFTV<>VA+1THENGOSUB87:RETURN
  44. 43 IFVA=1THENGOSUB87:RETURN
  45. 44 IFST=7THENGOSUB54:RETURN
  46. 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
  47. 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
  48. 47 IFST<>7THENGOSUB87:RETURN
  49. 48 NU=OD(IN(7)-1):GOSUB3:X=CU:Y=12:GOSUB2:GOSUB10:HF=0:RETURN
  50. 49 IFST=7THENNU=OD(IN(7)-1):GOTO51
  51. 50 NU=C(ST,0)
  52. 51 GOSUB3:IFVA<>13THENGOSUB87:RETURN
  53. 52 IFST=7THENGOSUB54:RETURN
  54. 53 GOSUB45:RETURN
  55. 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
  56. 55 IFIN(7)=0THENPRINT@515,G$(7);:RETURN
  57. 56 NU=OD(IN(7)-1):GOSUB3:X=7:Y=12:GOSUB2:RETURN
  58. 57 FORI=0TOIN(CU)-1:NU=C(CU,I):GOSUB3:X=CU:Y=I:GOSUB2:NEXTI:HF=0:RETURN
  59. 58 NU=OD(IN(7)-1):GOSUB3:FL=1:IF(F(SU)<>VA-1)AND(F(SU)=0)THENGOSUB87:RETURN
  60. 59 IFF(SU)<>VA-1THENTV=F(SU):GOSUB87:RETURN
  61. 60 GOSUB71:OD(IN(CU))=0:IFIN(CU)=0THENGOSUB55:RETURN
  62. 61 GOSUB56:GOSUB10:RETURN
  63. 62 X=CU:IFP(CU,0)<>0THENPRINT@X*5,G$(6);:GOTO64
  64. 63 FORY=0TO3:PRINT@Y*40+X*5,STRING$(4,32);:NEXTY
  65. 64 C(CU,0)=P(CU,0):IFP(CU,0)=0THENRETURN
  66. 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
  67. 66 IFHF<>0THENBEEP:PRINT"You Won !":RETURN
  68. 67 FL=0:IFIN(CU)=0THENGOSUB87:RETURN
  69. 68 IFCU=7THENGOSUB58:RETURN
  70. 69 NU=C(CU,IN(CU)-1):GOSUB3:IF(F(SU)<>VA-1)AND(F(SU)=0)THENGOSUB87:RETURN
  71. 70 IFF(SU)<>VA-1THENTV=F(SU):GOSUB87:RETURN
  72. 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
  73. 72 C(CU,IN(CU))=0:IFIN(CU)=0THENGOSUB62:RETURN
  74. 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
  75. 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
  76. 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
  77. 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
  78. 77 A$=INKEY$:IFA$=""THEN77
  79. 78 IFA$=CHR$(9)THENRUN
  80. 79 IFA$=CHR$(28)THENGOSUB19:GOTO77
  81. 80 IFA$=CHR$(29)THENGOSUB21:GOTO77
  82. 81 IFA$=CHR$(30)THENGOSUB23:GOTO77
  83. 82 IFA$=CHR$(31)THENGOSUB34:GOTO77
  84. 83 IFA$=CHR$(32)THENGOSUB4:GOTO77
  85. 84 IFA$=CHR$(13)THENGOSUB66:GOTO77
  86. 85 IFA$=CHR$(27)THENMENU
  87. 86 GOTO77
  88. 87 RETURN:DATA"n A"," 2"," 3"," 4"," 5"," 6":DATA" 7"," 8"," 9"," T"," J"," Q"," K
  89. 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$
  90. 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$
  91. 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$
  92. 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$
  93. 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$
  94. 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
  95. 94 PRINT@600,STRING$(34,32);:PRINT@600,A$;
  96. 95 A$=INKEY$:IFA$=""THEN95
  97. 96 PRINT@600,STRING$(34,32);:GOSUB10:RETURN
  98. 97 PRINT@600,"Last";:FOROO=1TO100:NEXTOO:PRINT@600,STRING$(30,32);:GOSUB10:GOTO9
  99. 98 PRINT@600,"FLIP";:FOROO=1TO100:NEXTOO:IFHF=0ANDIN=28THEN100
  100. 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
  101. 100 PRINT@600,STRING$(30,32);:GOTO77
  102.