home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / piano / p11piano.txt < prev    next >
Text File  |  1991-12-05  |  6KB  |  124 lines
  1. \* P11 PIANO  november 1989. 
  2. \* by Daan van Rooijen
  3. \*    Amatist 63
  4. \*    1703 AS  Heerhugowaard
  5. \*    The Netherlands
  6. \* Please do not make changes in this textfile.
  7. \* Small modifications made by Russell D. Hoffman
  8. \* (with Daan's permission.) December, 1991.
  9. \READ PIANO.PIC\SCREEN 0,1,4\OVERLAY 0,X\MOUSE OFF\KEY END=9\MOVE 3 TO O
  10. \MOVE 0 TO U\MOVE 0 TO Z\MOV 100 TO #1\SHOW 0,0,1,1\CONVERT #1
  11. \LOCATE 260,181\DISPLAY #1\CONVERT #1\SHOW 52,54,4,4\MOV 1140 TO #2
  12. \MOV 1076 TO #3\MOV 1016 TO #4\MOV 958 TO #5\MOV 905 TO #6\MOV 854 TO #7
  13. \MOV 806 TO #8\MOV 761 TO #9\MOV 719 TO #10\MOV 678 TO #11\MOV 640 TO #12
  14. \MOV 604 TO #13\MOV 1207 TO #15\MOV 570 TO #14\WAIT NOW 1584
  15. \X KEYS\+
  16. \ ON KEY F1 JUMP FIRST\ON KEY F2 JUMP SECOND\ON KEY F3 JUMP THIRD\+
  17. \ ON KEY F4 JUMP FOURTH\ON KEY F5 JUMP FIFTH\ON KEY F6 JUMP SIXTH\+
  18. \ ON KEY F7 JUMP RECORD\ON KEY F8 JUMP EXIT\ON KEY F9 JUMP SHORTER\+
  19. \ ON KEY F10 JUMP LONGER\ON KEY 4209 JUMP ONE\ON KEY 4471 JUMP TWO\+
  20. \ ON KEY 4709 JUMP THREE\ON KEY 4978 JUMP FOUR\ON KEY 5236 JUMP FIVE\+
  21. \ ON KEY 5497 JUMP SIX\ON KEY 5749 JUMP SEVEN\ON KEY 5993 JUMP EIGHT\+
  22. \ ON KEY 6255 JUMP NINE\ON KEY 6512 JUMP TEN\ON KEY 6747 JUMP ELEVEN\+
  23. \ ON KEY 7005 JUMP TWELVE\ON KEY 7777 JUMP ZERO\ON KEY 9064 JUMP HELP\+
  24. \ ON KEY 10279 JUMP THIRTEEN\CALL RESTSCRN\CLEAR KEYBOARD\JUMP LOOP\+
  25. \X THIRD\SHOW 272,158,9,9\MOVE 3 TO O\+
  26. \ MOV 1140 TO #2\MOV 1076 TO #3\MOV 1016 TO #4\MOV 958 TO #5\+
  27. \ MOV 905 TO #6\MOV 854 TO #7\MOV 806 TO #8\MOV 761 TO #9\+
  28. \ MOV 719 TO #10\MOV 678 TO #11\MOV 640 TO #12\MOV 604 TO #13\+
  29. \ MOV 1207 TO #15\MOV 570 TO #14\JUMP LOOP\+
  30. \X FIRST\SHOW 272,158,7,7\MOVE 1 TO O\+
  31. \ MOV 4560 TO #2\MOV 4304 TO #3\MOV 4063 TO #4\MOV 3834 TO #5\+
  32. \ MOV 3619 TO #6\MOV 3416 TO #7\MOV 3224 TO #8\MOV 3043 TO #9\+
  33. \ MOV 2873 TO #10\MOV 2711 TO #11\MOV 2559 TO #12\MOV 2415 TO #13\+
  34. \ MOV 4829 TO #15\MOV 2280 TO #14\JUMP LOOP\+
  35. \X SECOND\SHOW 272,158,8,8\MOVE 2 TO O\+
  36. \ MOV 2280 TO #2\MOV 2152 TO #3\MOV 2031 TO #4\MOV 1917 TO #5\+
  37. \ MOV 1809 TO #6\MOV 1715 TO #7\MOV 1612 TO #8\MOV 1521 TO #9\+
  38. \ MOV 1436 TO #10\MOV 1355 TO #11\MOV 1292 TO #12\MOV 1207 TO #13\+
  39. \ MOV 2415 TO #15\MOV 1140 TO #14\JUMP LOOP\+
  40. \X FOURTH\SHOW 272,158,10,10\MOVE 4 TO O\+
  41. \ MOV 570 TO #2\MOV 538 TO #3\MOV 508 TO #4\MOV 479 TO #5\+
  42. \ MOV 452 TO #6\MOV 427 TO #7\MOV 403 TO #8\MOV 380 TO #9\+
  43. \ MOV 359 TO #10\MOV 339 TO #11\MOV 320 TO #12\MOV 302 TO #13\+
  44. \ MOV 604 TO #15\MOV 285 TO #14\JUMP LOOP\+
  45. \X FIFTH\SHOW 272,158,11,11\MOVE 5 TO O\+
  46. \ MOV 285 TO #2\MOV 269 TO #3\MOV 254 TO #4\MOV 240 TO #5\+
  47. \ MOV 226 TO #6\MOV 213 TO #7\MOV 201 TO #8\MOV 190 TO #9\+
  48. \ MOV 179 TO #10\MOV 169 TO #11\MOV 160 TO #12\MOV 151 TO #13\+
  49. \ MOV 302 TO #15\MOV 143 TO #14\JUMP LOOP\+
  50. \X SIXTH\SHOW 272,158,12,12\MOVE 6 TO O\+
  51. \ MOV 143 TO #2\MOV 134 TO #3\MOV 127 TO #4\MOV 120 TO #5\+
  52. \ MOV 113 TO #6\MOV 107 TO #7\MOV 101 TO #8\MOV 95 TO #9\+
  53. \ MOV 90 TO #10\MOV 85 TO #11\MOV 80 TO #12\MOV 75 TO #13\+
  54. \ MOV 151 TO #15\MOV 71 TO #14\JUMP LOOP\+
  55. \X LONGER\+
  56. \ MULTIPLY #1 BY 2\IF #1>1600\MOVE 1600 TO #1\ENDIF\SHOW 272,180,15\+
  57. \ CONVERT #1\LOCATE 260,181\DISPLAY #1\CONVERT #1\JUMP LOOP\+
  58. \X SHORTER\+
  59. \ DIVIDE #1 BY 2\IF #1=0\MOVE 1 TO #1\ENDIF\SHOW 272,180,15\+
  60. \ CONVERT #1\LOCATE 260,181\DISPLAY #1\CONVERT #1\JUMP LOOP\+
  61. \X HELP\+
  62. \IF U=1\SHOW 148,141,17\WAIT NOW #1\SHOW 148,141,18\PRINT "\WA N",#1\+
  63. \  JUMP LOOP\ELSE\+
  64. \  CLEAR ON KEYS\SHOW 56,35,3,3\WAIT NOW -1\SHOW 96,80,16\JUMP KEYS\+
  65. \X RECORD\+
  66. \  SHOW 98,14,5,5\CURSOR 26,16\MOVE "?" TO #16\QUESTION #16,1\+
  67. \  IF #16="1"\JUMP START_STOP_REC\ELSE\IF #16="2"\JUMP SAVEREC\+
  68. \  ELSE\IF #16="3"\JUMP PLAYREC\ELSE\SHOW 96,80,16\JUMP KEYS\ENDIF\+
  69. \ X START_STOP_REC\+
  70. \   IF U=0\MOVE 1 TO U\EXECUTE DOS>IF EXIST RECORD.MAC DEL RECORD.MAC>NUL\+
  71. \    OPEN RECORD.PRN\PRINT "\X PLAY"\CALL RESTSCRN\JUMP LOOP\ELSE\+
  72. \   IF U=1\MOVE 0 TO U\PRINT "\RETURN"\CLOSE RECORD.PRN\+
  73. \    EXECUTE DOS>REN RECORD.PRN *.MAC>NUL\CALL RESTSCRN\MOVE 1 TO Z\+
  74. \    JUMP RECORD\ENDIF\+
  75. \ X PLAYREC\+
  76. \   CALL RESTSCRN\IF Z=1 AND U=0\+
  77. \   CLEAR MACROS\READ RECORD.MAC\CALLM PLAY\JUMP LOOP\+
  78. \   ELSE\JUMP RECORD\ENDIF\+
  79. \ X SAVEREC\+
  80. \   CALL RESTSCRN\IF Z=1 AND U=0\CLEAR ON KEYS\+
  81. \   WAIT LIMIT -1\SHOW 96,70,6\CURSOR 16,11\MOV "--------" TO #17\QUEST #17,8\+
  82. \   BUILD #18="COPY RECORD.MAC ",#17,".TXT > NUL"\SHOW 96,80,16\+
  83. \   EXECUTE DOS>(#18)\JUMP KEYS\+
  84. \   ELSE\JUMP RECORD\ENDIF\+
  85. \X RESTSCRN\+
  86. \ SHOW 0,0,1\SHOW 272,158,O+6\IF U=1\SHOW 272,169,14\ELSE\SHOW 272,169,13\+
  87. \ ENDIF\SHOW 272,180,15\CONVERT #1\LOCATE 260,181\DISPLAY #1\+
  88. \ CONVERT #1\RETURN\+
  89. \X ZERO\SHOW 44,94,2,2,X\BEEP #1,#14\SHOW 44,94,2,2,X\IF U=1\+
  90. \  PRINT "\BE",#1,",",#14\ENDIF\JUMP LOOP\+
  91. \X ONE\SHOW 72,165,2,2,X \BEEP #1,#13\SHOW 72,165,2,2,X\IF U=1\+
  92. \  PRINT "\BE",#1,",",#13\ENDIF\JUMP LOOP\+
  93. \X TWO\SHOW 84,135,2,2,X \BEEP #1,#12\SHOW 84,135,2,2,X\IF U=1\+
  94. \  PRINT "\BE",#1,",",#12\ENDIF\JUMP LOOP\+
  95. \X THREE\SHOW 100,165,2,2,X\BEEP #1,#11\SHOW 100,165,2,2,X\IF U=1\+
  96. \  PRINT "\BE",#1,",",#11\ENDIF\JUMP LOOP\+
  97. \X FOUR\SHOW 112,135,2,2,X\BEEP #1,#10\SHOW 112,135,2,2,X\IF U=1\+
  98. \  PRINT "\BE",#1,",",#10\ENDIF\JUMP LOOP\+
  99. \X FIVE\SHOW 128,165,2,2,X\BEEP #1,#9\SHOW 128,165,2,2,X\IF U=1\+
  100. \  PRINT "\BE",#1,",",#9\ENDIF\JUMP LOOP\+
  101. \X SIX\SHOW 156,165,2,2,X\BEEP #1,#8\SHOW 156,165,2,2,X\IF U=1\+
  102. \  PRINT "\BE",#1,",",#8\ENDIF\JUMP LOOP\+
  103. \X SEVEN\SHOW 168,135,2,2,X\BEEP #1,#7\SHOW 168,135,2,2,X\IF U=1\+
  104. \  PRINT "\BE",#1,",",#7\ENDIF\JUMP LOOP\+
  105. \X EIGHT\SHOW 184,165,2,2,X\BEEP #1,#6\SHOW 184,165,2,2,X\IF U=1\+
  106. \  PRINT "\BE",#1,",",#6\ENDIF\JUMP LOOP\+
  107. \X NINE\SHOW 196,135,2,2,X\BEEP #1,#5\SHOW 196,135,2,2,X\IF U=1\+
  108. \  PRINT "\BE",#1,",",#5\ENDIF\JUMP LOOP\+
  109. \X TEN\SHOW 212,165,2,2,X\BEEP #1,#4\SHOW 212,165,2,2,X\IF U=1\+
  110. \  PRINT "\BE",#1,",",#4\ENDIF\JUMP LOOP\+
  111. \X ELEVEN\SHOW 224,135,2,2,X\BEEP #1,#3\SHOW 224,135,2,2,X\IF U=1\+
  112. \  PRINT "\BE",#1,",",#3\ENDIF\JUMP LOOP\+
  113. \X TWELVE\SHOW 240,165,2,2,X\BEEP #1,#2\SHOW 240,165,2,2,X\IF U=1\+
  114. \  PRINT "\BE",#1,",",#2\ENDIF\JUMP LOOP\+
  115. \X THIRTEEN\SHOW 264,94,2,2,X\BEEP #1,#15\SHOW 264,94,2,2,X\IF U=1\+
  116. \  PRINT "\BE",#1,",",#15\ENDIF\+
  117. \X LOOP
  118. \  JUMP LOOP
  119. \X EXIT\+
  120. \ CLEAR SCREEN\IF U=1\CLOSE RECORD.PRN\+
  121. \   EXECUTE DOS>IF EXIST LAST-REC.TXT DEL LAST-REC.TXT>NUL\+
  122. \   EXECUTE DOS>REN RECORD.PRN LAST-REC.TXT>NUL\ENDIF\+
  123. \ EXECUTE DOS>IF EXIST RECORD.MAC DEL RECORD.MAC>NUL\END\+
  124.