home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 5
/
ctrom5b.zip
/
ctrom5b
/
PROGRAM
/
DIVERSEN
/
SHWTXT12
/
MATCH.ST
< prev
next >
Wrap
Text File
|
1994-06-03
|
2KB
|
52 lines
' MATCH.ST - MATCH CARD GAME
IF [M?]>0 OK
CLS\PRINT "This program requires a mouse"\EXIT
:OK\ ON INTKEY0 ESC GOTO QUIT\SCREENSAVER 2
COPY(MATCH1,1)\COPY(MATCH2,2)\COPY(MATCH3,3)\COPY(MATCH4,4)
:NEW\ CLS\CSR OFF\P@13,35\PRINT "Shuffling..."
FOR V52=0 TO 51\VV52=255\NEXT V52
FOR V52=0 TO 51
:NEW1\ V53=[RND 0 TO 51]\IF VV53<255 NEW1
VV53=V52\NEXT V52
FOR V52=0 TO 51
V53=V52 /13\V54=[X]
V53=V53*4\V53=V53+6\V54=V54*6\V54=V54+2
V57=VV52/13\V58=[X]
V57=V57*4\V57=V57+6\V58=V58*6\V58=V58+2
V59=V57+2\V60=V58+4
BCOPY 1 TO 5(V57,V58,V59,V60)(V53,V54)
NEXT V52\V53=[RND 1 TO 60]\CLS 7,0\COPY(2,0)V53
CSR\RST K
:NEXT\ V53=255\V54=255
:MOVE\ CSR\WAITKEY 0,MOVE
IF KEY G NEW\IF KEY R RULES\IF KEY Q QUIT
IF CLK(23,11,23,21)NEW\IF CLK(23,34,23,46)RULES
IF CLK(23,59,23,69)QUIT
V55=[.R]\V56=[.C]
PEEK 0(V55,V56)ATTR V60\IF V60<>121 MOVE\CSR OFF
V55=V55-6\V55=V55/4\V55=V55*4\V55=V55+6
V56=V56-2\V56=V56/6\V56=V56*6\V56=V56+2
V57=V55+2\V58=V56+4
BCOPY 5 TO 0(V55,V56,V57,V58)\IF V53<>255 CHK
V53=V55\V54=V56\GOTO MOVE
:CHK\ WAIT 1.25
PEEK 0(V53,V54) V59 V60
PEEK 0(V55,V56) V61 V62
IF V59<>V61 DIFF
IF V60<>V62 DIFF
BCOPY 3 TO 0(V55,V56,V57,V58)
V57=V53+2\V58=V54+4
BCOPY 3 TO 0(V53,V54,V57,V58)
FOR V53=6 TO 18 STEP 4\FOR V54=2 TO 74 STEP 6
PEEK 0(V53,V54) V59 V60\IF V59<>32 NEXT
NEXT V54\NEXT V53
BCOPY 3 TO 0(1,3,5,77)(11,3)\GOTO NEXT
:DIFF\ BCOPY 2 TO 0(V55,V56,V57,V58)
V57=V53+2\V58=V54+4
BCOPY 2 TO 0(V53,V54,V57,V58)
GOTO NEXT
:RULES\ CSR OFF\COPY(0,6)\COPY(4,0)31
:RULE1\ WAITKEY 0,RULE1\COPY(6,0)32\CSR\GOTO MOVE
:QUIT\ C@1,1\CLS 7,0\EXIT