home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / METRONOME (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  6KB  |  206 lines
  1. 0 REM FROM Q-LINK DISK # 144
  2. 10 REM ******************************
  3. 11 REM * MAELZEL'S MODERN METRONOME *
  4. 12 REM *     BY  ROBERT S. OWEN     *
  5. 15 REM ******************************
  6. 20 POKE53280,15:POKE53281,15:PRINT"[147]";:C$="[163][146]":X=50
  7. 22 X=X+10:FORG=7TO32STEP2:POKE54296,8:POKE54296,5
  8. 24 PRINT"    [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]
  9. 26 [153]"    ABS (null)CLR*(null) (null)(null)(null)E(null)T(null)R(null)O(null)N(null)O(null)M(null)E(null) (null)CLR*(null) INT"
  10. 28 [153]"    FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
  11. 30 PRINT:PRINT""TAB(G)C$;:FORD=1TOX:NEXT:NEXT
  12. 32 PRINT"[151]    [212]O SET UP:
  13. 34 [153]"    RIGHT$NPUT THE (null)VAL(null)(null)(null) 43 TO 206
  14. 36 PRINT"         AND PRESS [210][197][212][213][210][206].
  15. 38 [153]"    RIGHT$NPUT THE PEEKVALATN(null), 1/2, 3/4 ETC
  16. 40 PRINT"         AND PRESS [210][197][212][213][210][206].
  17. 42 [153]"    (null)RESS (null)VAL(null)(null)(null)(null)CLOSEON CHR$(null) TO START.
  18. 44 PRINT"    [208]RESS [210][197][212][213][210][206][160]ON [211][212][207][208] TO END.
  19. 46 [153]"    ASCROM (null)VAL(null)(null)(null) A (null)LEFT$RIGHT$ASC(null)VALSTR$CLOSE(null)VAL(null)(null)(null)(null) WILL
  20. 48 PRINT"    LET YOU SET THE TIME; 10:30 ETC,
  21. 50 [153]"    OR YOU CAN (null)(null)RIGHT$(null) THE PROGRAM.
  22. 52 PRINT"[153]      [208]RESS <[211][208][193][195][197]>[160]TO KEEP TIME.
  23. 54 [161]G$:[139]G$[179][177]" "[167]22
  24. 100 [141]5000
  25. 300 [153][199](150)
  26. 310 [151]S,0:[151]VIC[170]2,136:[151]198,0
  27. 311 [153][199](19)[163]38)SP$" "
  28. 312 [153][199](19)[163]38)TP$"_"
  29. 320 [141]7300:[161]A$:[139]A$[178]""[167]320
  30. 321 [139]A$[178]"3"[167]320
  31. 322 [139]A$[179][177][199](13)[167]325
  32. 324 [137]380
  33. 325 [139]A$[179][177][199](141)[167]330
  34. 327 [153][199](19)[163]38)TP$" "
  35. 328 [137]7000
  36. 330 [139]A$[179]"1"[176]A$[177]"9"[167]320
  37. 331 T$[178]A$:[153][199](19)[163]28)TP$[199](18)T$"  "
  38. 340 [141]7300:[161]A$:[139]A$[178]""[167]340
  39. 345 [139]A$[179]"0"[176]A$[177]"9"[167]340
  40. 346 [139]T$[178]"2"[167][139]A$[177]"0"[167]340
  41. 350 T$[178]T$[170]A$:[153][199](19)[163]28)TP$[199](18)T$" "
  42. 351 [139][197](T$)[177]39[167]380
  43. 360 [141]7300:[161]A$:[139]A$[178]""[167]360
  44. 365 [139]A$[179]"0"[176]A$[177]"9"[167]360
  45. 370 T$[178]T$[170]A$
  46. 380 [153][199](19)[163]28)TP$[199](146)T$" "
  47. 390 TS[178].935[172][197](T$)[170]35.6:[151]VIC[170]1,TS
  48. 395 [153][199](19)[163]38)TP$" "
  49. 396 [153][199](19)[163]38)BT$"_"
  50. 520 [141]7300:[161]A$:[139]A$[178]""[167]520
  51. 521 [139]A$[178][199](13)[167]580
  52. 525 [139]A$[179]"1"[176]A$[177]"8"[167]520
  53. 530 B$[178]A$:[153][199](19)[163]28)BT$[199](18)B$"/ "
  54. 540 [141]7300:[161]A$:[139]A$[178]""[167]540
  55. 541 [139]A$[178][199](13)[167]540
  56. 545 [139]A$[179][177]"1"[175]A$[179][177]"2"[175]A$[179][177]"4"[175]A$[179][177]"8"[167]540
  57. 550 BB$[178]A$:[153][199](19)[163]28)BT$[199](146)B$"/"BB$
  58. 580 [153][199](19)[163]38)BT$" "
  59. 581 [153][199](19)[163]38)GG$"_"
  60. 610 [141]7300:[161]A$:[139]A$[179][177][199](13)[167]610
  61. 680 [153][199](19)[163]38)GG$" "
  62. 681 [153][199](19)[163]38)SP$"_"
  63. 1010 TT[178](1[173][197](T$))[172](3600[171](([197](T$)[173]70)[172]175)):[143] CONTAINS A FUDGE FACTOR
  64. 1015 L[178]136[171]((1[173][197](T$))[172]4760):[139]L[179]17[167]L[178]17
  65. 1016 H[178]136[170]((1[173][197](T$))[172]4760):[139]H[177]255[167]H[178]255
  66. 1020 B[178][197](B$)
  67. 1030 [139]B[178]6[175]BB$[178]"8"[167]B[178]2
  68. 1040 [139]B[178]1[167]2010
  69. 1050 [139]B[178]5[176]B[178]7[167][139]BB$[177]"1"[167]2050
  70. 1060 [137]2020
  71. 2010 [141]2060:[139][194](K)[178]0[167]2010
  72. 2011 [137]310
  73. 2020 [141]2060:[129]I[178]1[164](B[171]1):[141]2080:[130]I:[139][194](K)[178]0[167]2020
  74. 2021 [137]310
  75. 2050 [139]B[178]7[167][141]2060:[141]2080:[139][194](K)[177]0[167]310
  76. 2055 [141]2060:[141]2080:[139][194](K)[177]0[167]310
  77. 2057 [141]2060:[141]2080:[141]2080:[139][194](K)[178]0[167]2050
  78. 2058 [137]310
  79. 2060 TI$[178]"000000":[141]7310
  80. 2062 [139]TI[179]3[167]2062
  81. 2063 [151]S,0
  82. 2065 [139][194](K)[177]0[167][142]
  83. 2066 P[178][194](SPR)[170]5[172]D:[139]P[179]L[176]P[177]H[167]P[178][194](SPR)
  84. 2067 [151]SPR,P:[139]TI[179]TT[167]2065
  85. 2070 [151]S,33:D[178]D[172][171]1:[142]
  86. 2080 TI$[178]"000000"
  87. 2082 [139]TI[179]3[167]2082
  88. 2083 [151]S,0
  89. 2085 [139][194](K)[177]0[167][142]
  90. 2086 P[178][194](SPR)[170]5[172]D:[139]P[179]L[176]P[177]H[167]P[178][194](SPR)
  91. 2087 [151]SPR,P:[139]TI[179]TT[167]2085
  92. 2090 [151]S,17:D[178]D[172][171]1:[142]
  93. 5000 [143] **SOUNE SET-UP**
  94. 5010 [129]I[178]54272[164]54300:[151]I,0:[130]
  95. 5020 [151]54273,200:[151]54277,4:[151]54296,15
  96. 5030 S[178]54276
  97. 5100 [143] **SPRITE SET-UP**
  98. 5110 VIC[178]53248:SPR[178]VIC[170]2:[151]VIC[170]32,0:[151]VIC[170]33,6:[151]VIC[170]27,255
  99. 5115 [151]VIC[170]39,3:[151]VIC[170]40,7
  100. 5120 [151]2040,13:[129]I[178]0[164]14:[151]832[170]I,255:[130]:[129]I[178]15[164]62:[151]832[170]I,0:[130]
  101. 5121 [151]2041,14:[129]I[178]0[164]32:[151]896[170]I,255:[130]:[129]I[178]33[164]62:[151]896[170]I,0:[130]
  102. 5130 [151]VIC[170]21,3:[151]VIC,136:[151]VIC[170]2,136:[151]VIC[170]3,52
  103. 5500 [143] **INITIALIZE VARIABLES**
  104. 5510 DN$[178]"":[143] CURSOR DOWN IN QUOTES
  105. 5511 AL$[178]""
  106. 5512 TP$[178]DN$[170]AL$
  107. 5513 BT$[178]DN$[170]TP$
  108. 5514 GG$[178]DN$[170]BT$
  109. 5515 SP$[178]DN$[170]GG$
  110. 5540 D[178]1:K[178]198
  111. 5550 TN[178]56328:SC[178]56329:MN[178]56330:HR[178]56331
  112. 5560 [151]HR,0:[151]MN,0:[151]SC,0:[151]TN,0
  113. 5570 [153][199](8):[143] DISABLE UPPER/LOWER CASE SHIFT
  114. 6000 [143] **SCREEN SET-UP**
  115. 6010 [153][199](142)[199](147)[163]32)[199](18)[199](144)"  00:00 ";
  116. 6020 [153][199](146)[199](152)[166]15)[199](193);
  117. 6021 [153][166]16)[199](18)[199](144)"        ";:[143] EIGHT SPACES IN QUOTES
  118. 6030 [153][199](146)[199](144);
  119. 6031 [129]I[178]1[164]14:[153][199](163);:[130]I
  120. 6032 [153][199](152)[199](18)[199](169)" ";
  121. 6035 [153][199](223)[199](146)[199](144);
  122. 6036 [129]I[178]1[164]23:[153][199](163);:[130]I:[153][199](152);
  123. 6040 [153][166]3)[199](154)"GRAVE/LARGO "[199](152)[199](123);
  124. 6041 [153][166]12)[199](144)"S"[199](152)
  125. 6050 [153][166]9)[199](154)"LENTO "[199](152)[199](123);
  126. 6051 [153][166]12)[199](144)"H "[199](176)" "[199](152)"CLOCK"
  127. 6060 [153][166]8)[199](154)"ADAGIO "[199](152)[199](123);
  128. 6061 [153][166]12)[199](144)"I"[199](195)[199](179)[199](152)
  129. 6070 [153][166]5)[199](154)"LARGHETTO "[199](152)[199](123);
  130. 6071 [153][166]12)[199](144)"F "[199](173)"  "[199](152)"QUIT"
  131. 6080 [153][166]7)[199](154)"ANDANTE "[199](152)[199](123);
  132. 6081 [153][166]12)[199](144)"T"[199](152)
  133. 6090 [153][166]5)[199](154)"ANDANTINO "[199](152)[199](123);
  134. 6091 [153][166]12)[199](144)[199](94)[199](152)
  135. 6100 [153][166]6)[199](154)"MODERATO "[199](152)[199](123);
  136. 6101 [153][166]12)[199](144)[199](202)[199](195)[199](195);
  137. 6102 [153][199](195)[199](195)[199](195)[199](201)[199](152)
  138. 6110 [153][166]15)[199](123);
  139. 6111 [153][166]12)[199](150)"120"[199](152)" TEMPO"
  140. 6115 T$[178]"120":[151]VIC[170]1,.935[172][197](T$)[170]35.6
  141. 6120 [153][166]4)[199](154)"ALLEGRETTO "[199](152)[199](123);
  142. 6121 [153][166]12)[199](163)[199](163)[199](163)
  143. 6130 [153][166]15)[199](123)
  144. 6140 [153][166]7)[199](154)"ALLEGRO "[199](152)[199](123)
  145. 6150 [153][166]15)[199](123);
  146. 6151 [153][166]12)[199](150)"4/4"[199](152)"  BEAT"
  147. 6155 B$[178]"4":BB$[178]"4"
  148. 6160 [153][166]9)[199](154)"ASSAI "[199](152)[199](123);
  149. 6161 [153][166]12)[199](163)[199](163)[199](163)
  150. 6170 [153][166]7)[199](154)"VIVACHE "[199](152)[199](123)
  151. 6180 [153][166]15)[199](123)
  152. 6190 [153][166]15)[199](123);
  153. 6191 [153][166]19)"GO"
  154. 6200 [153][166]8)[199](154)"PRESTO "[199](152)[199](123)
  155. 6210 [153][166]15)[199](123)
  156. 6220 [153][166]15)[199](123)
  157. 6230 [153][166]3)[199](154)"PRESTISSIMO "[199](152)[199](123);
  158. 6231 [153][166]17)"STOP"
  159. 6240 [153][166]13)[199](152)[199](18)[199](169)"   "[199](127)[199](146)
  160. 6250 [153][166]11)[199](152)[199](117)[199](18)"       ";:[143] SEVEN SPACES IN QUOTE
  161. 6251 [153][199](146)[199](105)[199](145);
  162. 6999 [142]
  163. 7000 [143] **TIME SET ROUTINE**
  164. 7110 [153][199](19)[163]38)DN$"_"
  165. 7120 [161]A$:[139]A$[178][199](13)[167]7180
  166. 7125 [139]A$[179]"/"[176]A$[177]"9"[167]7120
  167. 7126 [139]A$[177]"1"[167][139]A$[179]":"[167]HH[178]0:TH$[178]"0":[137]7146
  168. 7130 TH$[178]A$:[153][199](19)[163]34)TH$" :  "
  169. 7131 HH[178][197](A$)[172]16
  170. 7140 [161]A$:[139]A$[178][179]"/"[176]A$[177]"9"[167]7140
  171. 7145 [139][197](TH$[170]A$)[177]12[167]7140
  172. 7146 TH$[178]TH$[170]A$:[153][199](19)[163]34)TH$":  "
  173. 7147 HL[178][197](A$)
  174. 7148 [151]HR,HH[170]HL
  175. 7150 [161]A$:[139]A$[178][179]"/"[176]A$[177]"5"[167]7150
  176. 7155 TM$[178]A$:[153][199](19)[163]34)TH$":"TM$
  177. 7156 MH[178][197](A$)[172]16
  178. 7160 [161]A$:[139]A$[178][179]"/"[176]A$[177]"9"[167]7160
  179. 7164 TM$[178]TM$[170]A$
  180. 7165 [153][199](19)[163]34)[199](18)[199](144)TH$":"TM$[199](146)[199](150)
  181. 7166 ML[178][197](A$)
  182. 7167 [151]MN,MH[170]ML
  183. 7168 [151]SC,0:[151]TN,0
  184. 7180 [153][199](19)[163]38)DN$" "
  185. 7181 [153][199](19)[163]38)AL$"_"
  186. 7200 [143] **CHECK QUIT ROUTINE**
  187. 7220 [141]7300:[161]A$:[139]A$[178]""[167]7220
  188. 7230 [139]A$[178][199](141)[167]7500
  189. 7240 [139]A$[178][199](13)[167]7260
  190. 7250 [137]7220
  191. 7260 [153][199](19)[163]38)AL$" "
  192. 7270 [137]310
  193. 7300 [143] **UPDATE CLOCK ROUTINE**
  194. 7310 [139][194](MN)[178](MH[172]16)[170]ML[167][142]
  195. 7320 HH[178]([194](HR)[175]112)[173]16:HL[178]([194](HR)[175]15)
  196. 7330 MH[178]([194](MN)[175]240)[173]16:ML[178]([194](MN)[175]15)
  197. 7335 DU[178][194](TN)
  198. 7340 [153][199](19)[199](18)[199](144)[163]34)[199](HH[170]48)[199](HL[170]48);
  199. 7341 [153]":"[199](MH[170]48)[170][199](ML[170]48)[199](146)[199](150)
  200. 7350 [142]
  201. 7500 [143] **QUIT ROUTINE**
  202. 7510 [151]53269,0
  203. 7520 [153][199](147)[199](154):[151]53280,14:[151]53281,6
  204. 7530 [153][199](9)
  205. 7540 [128]
  206.