home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 5 / ctrom5b.zip / ctrom5b / PROGRAM / DIVERSEN / SHWTXT12 / REPEAT.ST < prev    next >
Text File  |  1994-06-03  |  3KB  |  90 lines
  1. '       REPEAT.ST - PLAYS A MEMORY SEQUENCE GAME
  2.  
  3. :START\ ON INTKEY0 ESC GOTO QUIT
  4.         COPY(REPEAT1,1)\COPY(REPEAT2,2)\COPY(1,0)
  5. :RST\   V0=2
  6.         FOR V1=1 TO 80
  7. :GO1\   V2=[RND 0 TO 7]\IF V2=0 GO1\IF V2=7 GO1
  8.         POKE 3(1,V1)ASCII V2\NEXT V1
  9. :INP\   C@20,40\CSR\BFILL0(7,38,9,43)32 31\BFILL0(22,40,22,41)32 31
  10.         IF V0>2 GOSUB LVL\V0=V0+1\V3=0
  11.  
  12. :INP1\  WAITKEY 0,INP1
  13.  
  14.         IF KEY G GO\IF KEY R RULES
  15.         IF KEY S SOUND\if key Q QUIT
  16.         IF CLK(24,19,24,32)SOUND\IF CLK(24,36,24,46)RULES
  17.         IF CLK(24,50,24,59)QUIT
  18.         IF V3=1 INP2
  19.         IF CLK(20,37,20,44)GO
  20.         GOTO INP1
  21. :INP2\  IF CLK(11,29,13,36)B1
  22.         IF CLK(11,37,13,44)B2
  23.         IF CLK(11,45,13,52)B3
  24.         IF CLK(14,29,16,36)B4
  25.         IF CLK(14,37,16,44)B5
  26.         IF CLK(14,45,16,52)B6
  27.         IF KEY 1 B4
  28.         IF KEY 2 B5
  29.         IF KEY 3 B6
  30.         IF KEY 4 B1
  31.         IF KEY 5 B2
  32.         IF KEY 6 B3
  33.         GOTO INP1
  34.  
  35. :GO\    IF V3=1 GOTO INP1\V3=1
  36.         FOR V1=1 TO V0\PEEK 3(1,V1)ASCII V2\GOSUB NOW
  37.         NEXT V1\RST K\V1=1\GOTO INP1
  38.  
  39. :NOW\   RST T\GOSUB HI\IF V5=0 QUIET
  40.         PLAY "O2MLMF" \ ON V2 GOTO M1,M2,M3,M4,M5,M6
  41. :M1\    PLAY "C"\GOTO QUIET
  42. :M2\    PLAY "D"\GOTO QUIET
  43. :M3\    PLAY "E"\GOTO QUIET
  44. :M4\    PLAY "F"\GOTO QUIET
  45. :M5\    PLAY "G"\GOTO QUIET
  46. :M6\    PLAY "A"
  47. :QUIET\ IF T < .4 QUIET\GOSUB LO\IF V10=1 QT1\WAIT .25
  48. :QT1\   RET
  49.  
  50. :B1\    V2=1\GOTO BX
  51. :B2\    V2=2\GOTO BX
  52. :B3\    V2=3\GOTO BX
  53. :B4\    V2=4\GOTO BX
  54. :B5\    V2=5\GOTO BX
  55. :B6\    V2=6
  56. :BX\    PEEK 3(1,V1)ASCII V6\IF V2<>V6 BZ
  57.         V10=1\GOSUB NOW\V10=0\IF V1=V0 BY
  58.         V1=V1+1\GOTO INP1
  59. :BY\    CSR OFF\COLOR 14,1\WINDOW(7,38,9,43)100
  60.         P@8,39\!   "DONE";\WAIT 1.5\RST K\GOTO INP
  61. :BZ\    V2=V6\FOR V6=1 TO 3\GOSUB NOW\NEXT V6\GOTO RST
  62.  
  63. :LO\    ON V2 GOSUB LO1,LO2,LO3,LO4,LO5,LO6 \ RET
  64. :LO1\   BFILL 0(11,29,13,36)32 79 \RET
  65. :LO2\   BFILL 0(11,37,13,44)32 127\RET
  66. :LO3\   BFILL 0(11,45,13,52)32 31 \RET
  67. :LO4\   BFILL 0(14,29,16,36)32 63 \RET
  68. :LO5\   BFILL 0(14,37,16,44)32 95 \RET
  69. :LO6\   BFILL 0(14,45,16,52)32 47 \RET
  70.  
  71. :HI\    ON V2 GOSUB HI1,HI2,HI3,HI4,HI5,HI6 \ RET
  72. :HI1\   BFILL 0(11,29,13,36)219 12\RET
  73. :HI2\   BFILL 0(11,37,13,44)219 15\RET
  74. :HI3\   BFILL 0(11,45,13,52)219 9 \RET
  75. :HI4\   BFILL 0(14,29,16,36)219 11\RET
  76. :HI5\   BFILL 0(14,37,16,44)219 13\RET
  77. :HI6\   BFILL 0(14,45,16,52)219 10\RET
  78.  
  79. :LVL\   COLOR 14,1\P@22,40\!   V0,2QZ\RET
  80.  
  81. :RULES\ COPY(0,4)\CSR OFF\COPY(2,0)57
  82. :RUL1\  WAITKEY 0,RUL1\COPY(4,0)58\CSR\GOTO INP1
  83.  
  84. :SOUND\ V5=1-V5\COLOR 15,3\P@24,29\IF V5=1 SNDON
  85.         !   "off"\GOTO INP1
  86. :SNDON\ !"on "\GOTO INP1
  87.  
  88. :QUIT\  CLS 7,0\C@1,1\EXIT
  89.  
  90.