home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 26
/
CD_ASCQ_26_1295.iso
/
vrac
/
shwtxt19.zip
/
REPEAT.ST
< prev
next >
Wrap
Text File
|
1995-08-16
|
2KB
|
40 lines
' REPEAT.ST - PLAYS A MEMORY SEQUENCE GAME
:START\ ON INTKEY0 ESC GOTO QUIT\COPY(REPEAT1,1)\COPY(REPEAT2,2)\COPY(1,0)
:RST\ V0=2\FOR V1=1 TO 80
:GO1\ V2=[RND 0 TO 7]\IF V2=0 GO1\IF V2=7 GO1\POKE 3(1,V1)ASCII V2\NEXT V1
:INP\ C@20,40\CSR\BFILL0(7,38,9,43)32 31\BFILL0(22,40,22,41)32 31
IF V0>2 GOSUB LVL\V0=V0+1\V3=0
:INP1\ WAITKEY 0,INP1
IF KEY G GO\IF KEY R RULES
IF KEY S SND\if key Q QUIT
IF CLK(24,19,24,32)SND\IF CLK(24,36,24,46)RULES\IF CLK(24,50,24,59)QUIT
IF V3=1 INP2\IF CLK(20,37,20,44)GO\GT INP1
:INP2\ IF CLK(11,29,13,36)B1\IF CLK(11,37,13,44)B2\IF CLK(11,45,13,52)B3
IF CLK(14,29,16,36)B4\IF CLK(14,37,16,44)B5\IF CLK(14,45,16,52)B6
IF KEY 1 B4\IF KEY 2 B5\IF KEY 3 B6\IF KEY 4 B1\IF KEY 5 B2\IF KEY 6 B3
GT INP1
:GO\ IF V3=1 INP1\V3=1\FOR V1=1 TO V0\PEEK 3(1,V1)ASCII V2\GOSUB NOW
NEXT V1\RST K\V1=1\GT INP1
:NOW\ RST T\GOSUB HI\IF V5=0 QT\PLAY "O2MLMF"\ON V2 GOTO M1,M2,M3,M4,M5,M6
:M1\ PLAY "C"\GT QT\:M2\PLAY "D"\GT QT\:M3\PLAY "E"\GT QT
:M4\ PLAY "F"\GT QT\:M5\PLAY "G"\GT QT\:M6\PLAY "A"
:QT\ IF T < .4 QT\GOSUB LO\IF V10=1 QT1\WAIT .25\:QT1\RET
:B1\ V2=1\GT BX\:B2\V2=2\GT BX\:B3\V2=3\GT BX\:B4\V2=4\GT BX\:B5\V2=5\GT BX
:B6\ V2=6\:BX\PEEK 3(1,V1)ASCII V6\IF V2<>V6 BZ
V10=1\GOSUB NOW\V10=0\IF V1=V0 BY\V1=V1+1\GT INP1
:BY\ CSR OFF\COLOR 14,1\WINDOW(7,38,9,43)100\P@8,39\!"DONE";\WT1.5\.K\GT INP
:BZ\ V2=V6\FOR V6=1 TO 3\GOSUB NOW\NEXT V6\GT RST
:LO\ ON V2 GOSUB LO1,LO2,LO3,LO4,LO5,LO6 \ RET
:LO1\ BFILL 0(11,29,13,36)32 79 \RET\:LO2\BFILL 0(11,37,13,44)32 127\RET
:LO3\ BFILL 0(11,45,13,52)32 31 \RET\:LO4\BFILL 0(14,29,16,36)32 63 \RET
:LO5\ BFILL 0(14,37,16,44)32 95 \RET\:LO6\BFILL 0(14,45,16,52)32 47 \RET
:HI\ ON V2 GOSUB HI1,HI2,HI3,HI4,HI5,HI6 \ RET
:HI1\ BFILL 0(11,29,13,36)219 12\RET\:HI2\BFILL 0(11,37,13,44)219 15\RET
:HI3\ BFILL 0(11,45,13,52)219 9 \RET\:HI4\BFILL 0(14,29,16,36)219 11\RET
:HI5\ BFILL 0(14,37,16,44)219 13\RET\:HI6\BFILL 0(14,45,16,52)219 10\RET
:LVL\ COLOR 14,1\P@22,40\!V0,2QZ\RET
:RULES\ COPY(0,4)\CSR OFF\COPY(2,0)57\:RUL1\WK0,RUL1\COPY(4,0)58\CSR\GT INP1
:SND\ V5=1-V5\COLOR 15,3\P@24,29\IF V5=1 SNDON\!"off"\GT INP1
:SNDON\ !"on "\GT INP1\:QUIT\EXITC