home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / shwtxt19.zip / MATCH.ST < prev    next >
Text File  |  1995-03-09  |  2KB  |  52 lines
  1. '       MATCH.ST -  MATCH CARD GAME
  2.         IF [M?]>0 OK
  3.         CLS\PRINT "This program requires a mouse"\EXIT
  4. :OK\    ON INTKEY0 ESC GOTO QUIT\SCREENSAVER 2
  5.         COPY(MATCH1,1)\COPY(MATCH2,2)\COPY(MATCH3,3)\COPY(MATCH4,4)
  6. :NEW\   CLS\NOCHK\CSR OFF\P@13,35\PRINT "Shuffling..."
  7.         FOR V52=0 TO 51\VV52=255\NEXT V52
  8.         FOR V52=0 TO 51
  9. :NEW1\  V53=[RND 0 TO 51]\IF VV53<255 NEW1
  10.         VV53=V52\NEXT V52
  11.         FOR V52=0 TO 51
  12.         V53=V52 /13\V54=[X]
  13.         V53=V53*4\V53=V53+6\V54=V54*6\V54=V54+2
  14.         V57=VV52/13\V58=[X]
  15.         V57=V57*4\V57=V57+6\V58=V58*6\V58=V58+2
  16.         V59=V57+2\V60=V58+4
  17.         BCOPY 1 TO 5(V57,V58,V59,V60)(V53,V54)
  18.         NEXT V52\V53=[RND 1 TO 60]\CLS 7,0\COPY(2,0)V53
  19.         CSR\RST K\CHK   
  20. :NEXT\  V53=255\V54=255
  21. :MOVE\  CSR\WAITKEY 0,MOVE
  22.         IF KEY G NEW\IF KEY R RULES\IF KEY Q QUIT
  23.         IF CLK(23,11,23,21)NEW\IF CLK(23,34,23,46)RULES
  24.         IF CLK(23,59,23,69)QUIT
  25.         V55=[.R]\V56=[.C]
  26.         PEEK 0(V55,V56)ATTR V60\IF V60<>121 MOVE\CSR OFF
  27.         V55=V55-6\V55=V55/4\V55=V55*4\V55=V55+6
  28.         V56=V56-2\V56=V56/6\V56=V56*6\V56=V56+2
  29.         V57=V55+2\V58=V56+4
  30.         BCOPY 5 TO 0(V55,V56,V57,V58)\IF V53<>255 CHK
  31.         V53=V55\V54=V56\GOTO MOVE
  32. :CHK\   WAIT 1.25
  33.         PEEK 0(V53,V54) V59 V60
  34.         PEEK 0(V55,V56) V61 V62
  35.         IF V59<>V61 DIFF
  36.         IF V60<>V62 DIFF
  37.         BCOPY 3 TO 0(V55,V56,V57,V58)
  38.         V57=V53+2\V58=V54+4
  39.         BCOPY 3 TO 0(V53,V54,V57,V58)
  40.         FOR V53=6 TO 18 STEP 4\FOR V54=2 TO 74 STEP 6
  41.         PEEK 0(V53,V54) V59 V60\IF V59<>32 NEXT
  42.         NEXT V54\NEXT V53
  43.         BCOPY 3 TO 0(1,3,5,77)(11,3)\GOTO NEXT
  44. :DIFF\  BCOPY 2 TO 0(V55,V56,V57,V58)
  45.         V57=V53+2\V58=V54+4
  46.         BCOPY 2 TO 0(V53,V54,V57,V58)
  47.         GOTO NEXT
  48. :RULES\ CSR OFF\COPY(0,6)\COPY(4,0)31
  49. :RULE1\ WAITKEY 0,RULE1\COPY(6,0)32\CSR\GOTO MOVE
  50. :QUIT\  EXITC
  51.  
  52.