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