home *** CD-ROM | disk | FTP | other *** search
- 0 REM FROM Q-LINK DISK # 144
- 10 REM ******************************
- 11 REM * MAELZEL'S MODERN METRONOME *
- 12 REM * BY ROBERT S. OWEN *
- 15 REM ******************************
- 20 POKE53280,15:POKE53281,15:PRINT"[147]";:C$="[163][146]":X=50
- 22 X=X+10:FORG=7TO32STEP2:POKE54296,8:POKE54296,5
- 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]
- 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"
- 28 [153]" FREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE
- 30 PRINT:PRINT""TAB(G)C$;:FORD=1TOX:NEXT:NEXT
- 32 PRINT"[151] [212]O SET UP:
- 34 [153]" RIGHT$NPUT THE (null)VAL(null)(null)(null) 43 TO 206
- 36 PRINT" AND PRESS [210][197][212][213][210][206].
- 38 [153]" RIGHT$NPUT THE PEEKVALATN(null), 1/2, 3/4 ETC
- 40 PRINT" AND PRESS [210][197][212][213][210][206].
- 42 [153]" (null)RESS (null)VAL(null)(null)(null)(null)CLOSEON CHR$(null) TO START.
- 44 PRINT" [208]RESS [210][197][212][213][210][206][160]ON [211][212][207][208] TO END.
- 46 [153]" ASCROM (null)VAL(null)(null)(null) A (null)LEFT$RIGHT$ASC(null)VALSTR$CLOSE(null)VAL(null)(null)(null)(null) WILL
- 48 PRINT" LET YOU SET THE TIME; 10:30 ETC,
- 50 [153]" OR YOU CAN (null)(null)RIGHT$(null) THE PROGRAM.
- 52 PRINT"[153] [208]RESS <[211][208][193][195][197]>[160]TO KEEP TIME.
- 54 [161]G$:[139]G$[179][177]" "[167]22
- 100 [141]5000
- 300 [153][199](150)
- 310 [151]S,0:[151]VIC[170]2,136:[151]198,0
- 311 [153][199](19)[163]38)SP$" "
- 312 [153][199](19)[163]38)TP$"_"
- 320 [141]7300:[161]A$:[139]A$[178]""[167]320
- 321 [139]A$[178]"3"[167]320
- 322 [139]A$[179][177][199](13)[167]325
- 324 [137]380
- 325 [139]A$[179][177][199](141)[167]330
- 327 [153][199](19)[163]38)TP$" "
- 328 [137]7000
- 330 [139]A$[179]"1"[176]A$[177]"9"[167]320
- 331 T$[178]A$:[153][199](19)[163]28)TP$[199](18)T$" "
- 340 [141]7300:[161]A$:[139]A$[178]""[167]340
- 345 [139]A$[179]"0"[176]A$[177]"9"[167]340
- 346 [139]T$[178]"2"[167][139]A$[177]"0"[167]340
- 350 T$[178]T$[170]A$:[153][199](19)[163]28)TP$[199](18)T$" "
- 351 [139][197](T$)[177]39[167]380
- 360 [141]7300:[161]A$:[139]A$[178]""[167]360
- 365 [139]A$[179]"0"[176]A$[177]"9"[167]360
- 370 T$[178]T$[170]A$
- 380 [153][199](19)[163]28)TP$[199](146)T$" "
- 390 TS[178].935[172][197](T$)[170]35.6:[151]VIC[170]1,TS
- 395 [153][199](19)[163]38)TP$" "
- 396 [153][199](19)[163]38)BT$"_"
- 520 [141]7300:[161]A$:[139]A$[178]""[167]520
- 521 [139]A$[178][199](13)[167]580
- 525 [139]A$[179]"1"[176]A$[177]"8"[167]520
- 530 B$[178]A$:[153][199](19)[163]28)BT$[199](18)B$"/ "
- 540 [141]7300:[161]A$:[139]A$[178]""[167]540
- 541 [139]A$[178][199](13)[167]540
- 545 [139]A$[179][177]"1"[175]A$[179][177]"2"[175]A$[179][177]"4"[175]A$[179][177]"8"[167]540
- 550 BB$[178]A$:[153][199](19)[163]28)BT$[199](146)B$"/"BB$
- 580 [153][199](19)[163]38)BT$" "
- 581 [153][199](19)[163]38)GG$"_"
- 610 [141]7300:[161]A$:[139]A$[179][177][199](13)[167]610
- 680 [153][199](19)[163]38)GG$" "
- 681 [153][199](19)[163]38)SP$"_"
- 1010 TT[178](1[173][197](T$))[172](3600[171](([197](T$)[173]70)[172]175)):[143] CONTAINS A FUDGE FACTOR
- 1015 L[178]136[171]((1[173][197](T$))[172]4760):[139]L[179]17[167]L[178]17
- 1016 H[178]136[170]((1[173][197](T$))[172]4760):[139]H[177]255[167]H[178]255
- 1020 B[178][197](B$)
- 1030 [139]B[178]6[175]BB$[178]"8"[167]B[178]2
- 1040 [139]B[178]1[167]2010
- 1050 [139]B[178]5[176]B[178]7[167][139]BB$[177]"1"[167]2050
- 1060 [137]2020
- 2010 [141]2060:[139][194](K)[178]0[167]2010
- 2011 [137]310
- 2020 [141]2060:[129]I[178]1[164](B[171]1):[141]2080:[130]I:[139][194](K)[178]0[167]2020
- 2021 [137]310
- 2050 [139]B[178]7[167][141]2060:[141]2080:[139][194](K)[177]0[167]310
- 2055 [141]2060:[141]2080:[139][194](K)[177]0[167]310
- 2057 [141]2060:[141]2080:[141]2080:[139][194](K)[178]0[167]2050
- 2058 [137]310
- 2060 TI$[178]"000000":[141]7310
- 2062 [139]TI[179]3[167]2062
- 2063 [151]S,0
- 2065 [139][194](K)[177]0[167][142]
- 2066 P[178][194](SPR)[170]5[172]D:[139]P[179]L[176]P[177]H[167]P[178][194](SPR)
- 2067 [151]SPR,P:[139]TI[179]TT[167]2065
- 2070 [151]S,33:D[178]D[172][171]1:[142]
- 2080 TI$[178]"000000"
- 2082 [139]TI[179]3[167]2082
- 2083 [151]S,0
- 2085 [139][194](K)[177]0[167][142]
- 2086 P[178][194](SPR)[170]5[172]D:[139]P[179]L[176]P[177]H[167]P[178][194](SPR)
- 2087 [151]SPR,P:[139]TI[179]TT[167]2085
- 2090 [151]S,17:D[178]D[172][171]1:[142]
- 5000 [143] **SOUNE SET-UP**
- 5010 [129]I[178]54272[164]54300:[151]I,0:[130]
- 5020 [151]54273,200:[151]54277,4:[151]54296,15
- 5030 S[178]54276
- 5100 [143] **SPRITE SET-UP**
- 5110 VIC[178]53248:SPR[178]VIC[170]2:[151]VIC[170]32,0:[151]VIC[170]33,6:[151]VIC[170]27,255
- 5115 [151]VIC[170]39,3:[151]VIC[170]40,7
- 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]
- 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]
- 5130 [151]VIC[170]21,3:[151]VIC,136:[151]VIC[170]2,136:[151]VIC[170]3,52
- 5500 [143] **INITIALIZE VARIABLES**
- 5510 DN$[178]"":[143] CURSOR DOWN IN QUOTES
- 5511 AL$[178]""
- 5512 TP$[178]DN$[170]AL$
- 5513 BT$[178]DN$[170]TP$
- 5514 GG$[178]DN$[170]BT$
- 5515 SP$[178]DN$[170]GG$
- 5540 D[178]1:K[178]198
- 5550 TN[178]56328:SC[178]56329:MN[178]56330:HR[178]56331
- 5560 [151]HR,0:[151]MN,0:[151]SC,0:[151]TN,0
- 5570 [153][199](8):[143] DISABLE UPPER/LOWER CASE SHIFT
- 6000 [143] **SCREEN SET-UP**
- 6010 [153][199](142)[199](147)[163]32)[199](18)[199](144)" 00:00 ";
- 6020 [153][199](146)[199](152)[166]15)[199](193);
- 6021 [153][166]16)[199](18)[199](144)" ";:[143] EIGHT SPACES IN QUOTES
- 6030 [153][199](146)[199](144);
- 6031 [129]I[178]1[164]14:[153][199](163);:[130]I
- 6032 [153][199](152)[199](18)[199](169)" ";
- 6035 [153][199](223)[199](146)[199](144);
- 6036 [129]I[178]1[164]23:[153][199](163);:[130]I:[153][199](152);
- 6040 [153][166]3)[199](154)"GRAVE/LARGO "[199](152)[199](123);
- 6041 [153][166]12)[199](144)"S"[199](152)
- 6050 [153][166]9)[199](154)"LENTO "[199](152)[199](123);
- 6051 [153][166]12)[199](144)"H "[199](176)" "[199](152)"CLOCK"
- 6060 [153][166]8)[199](154)"ADAGIO "[199](152)[199](123);
- 6061 [153][166]12)[199](144)"I"[199](195)[199](179)[199](152)
- 6070 [153][166]5)[199](154)"LARGHETTO "[199](152)[199](123);
- 6071 [153][166]12)[199](144)"F "[199](173)" "[199](152)"QUIT"
- 6080 [153][166]7)[199](154)"ANDANTE "[199](152)[199](123);
- 6081 [153][166]12)[199](144)"T"[199](152)
- 6090 [153][166]5)[199](154)"ANDANTINO "[199](152)[199](123);
- 6091 [153][166]12)[199](144)[199](94)[199](152)
- 6100 [153][166]6)[199](154)"MODERATO "[199](152)[199](123);
- 6101 [153][166]12)[199](144)[199](202)[199](195)[199](195);
- 6102 [153][199](195)[199](195)[199](195)[199](201)[199](152)
- 6110 [153][166]15)[199](123);
- 6111 [153][166]12)[199](150)"120"[199](152)" TEMPO"
- 6115 T$[178]"120":[151]VIC[170]1,.935[172][197](T$)[170]35.6
- 6120 [153][166]4)[199](154)"ALLEGRETTO "[199](152)[199](123);
- 6121 [153][166]12)[199](163)[199](163)[199](163)
- 6130 [153][166]15)[199](123)
- 6140 [153][166]7)[199](154)"ALLEGRO "[199](152)[199](123)
- 6150 [153][166]15)[199](123);
- 6151 [153][166]12)[199](150)"4/4"[199](152)" BEAT"
- 6155 B$[178]"4":BB$[178]"4"
- 6160 [153][166]9)[199](154)"ASSAI "[199](152)[199](123);
- 6161 [153][166]12)[199](163)[199](163)[199](163)
- 6170 [153][166]7)[199](154)"VIVACHE "[199](152)[199](123)
- 6180 [153][166]15)[199](123)
- 6190 [153][166]15)[199](123);
- 6191 [153][166]19)"GO"
- 6200 [153][166]8)[199](154)"PRESTO "[199](152)[199](123)
- 6210 [153][166]15)[199](123)
- 6220 [153][166]15)[199](123)
- 6230 [153][166]3)[199](154)"PRESTISSIMO "[199](152)[199](123);
- 6231 [153][166]17)"STOP"
- 6240 [153][166]13)[199](152)[199](18)[199](169)" "[199](127)[199](146)
- 6250 [153][166]11)[199](152)[199](117)[199](18)" ";:[143] SEVEN SPACES IN QUOTE
- 6251 [153][199](146)[199](105)[199](145);
- 6999 [142]
- 7000 [143] **TIME SET ROUTINE**
- 7110 [153][199](19)[163]38)DN$"_"
- 7120 [161]A$:[139]A$[178][199](13)[167]7180
- 7125 [139]A$[179]"/"[176]A$[177]"9"[167]7120
- 7126 [139]A$[177]"1"[167][139]A$[179]":"[167]HH[178]0:TH$[178]"0":[137]7146
- 7130 TH$[178]A$:[153][199](19)[163]34)TH$" : "
- 7131 HH[178][197](A$)[172]16
- 7140 [161]A$:[139]A$[178][179]"/"[176]A$[177]"9"[167]7140
- 7145 [139][197](TH$[170]A$)[177]12[167]7140
- 7146 TH$[178]TH$[170]A$:[153][199](19)[163]34)TH$": "
- 7147 HL[178][197](A$)
- 7148 [151]HR,HH[170]HL
- 7150 [161]A$:[139]A$[178][179]"/"[176]A$[177]"5"[167]7150
- 7155 TM$[178]A$:[153][199](19)[163]34)TH$":"TM$
- 7156 MH[178][197](A$)[172]16
- 7160 [161]A$:[139]A$[178][179]"/"[176]A$[177]"9"[167]7160
- 7164 TM$[178]TM$[170]A$
- 7165 [153][199](19)[163]34)[199](18)[199](144)TH$":"TM$[199](146)[199](150)
- 7166 ML[178][197](A$)
- 7167 [151]MN,MH[170]ML
- 7168 [151]SC,0:[151]TN,0
- 7180 [153][199](19)[163]38)DN$" "
- 7181 [153][199](19)[163]38)AL$"_"
- 7200 [143] **CHECK QUIT ROUTINE**
- 7220 [141]7300:[161]A$:[139]A$[178]""[167]7220
- 7230 [139]A$[178][199](141)[167]7500
- 7240 [139]A$[178][199](13)[167]7260
- 7250 [137]7220
- 7260 [153][199](19)[163]38)AL$" "
- 7270 [137]310
- 7300 [143] **UPDATE CLOCK ROUTINE**
- 7310 [139][194](MN)[178](MH[172]16)[170]ML[167][142]
- 7320 HH[178]([194](HR)[175]112)[173]16:HL[178]([194](HR)[175]15)
- 7330 MH[178]([194](MN)[175]240)[173]16:ML[178]([194](MN)[175]15)
- 7335 DU[178][194](TN)
- 7340 [153][199](19)[199](18)[199](144)[163]34)[199](HH[170]48)[199](HL[170]48);
- 7341 [153]":"[199](MH[170]48)[170][199](ML[170]48)[199](146)[199](150)
- 7350 [142]
- 7500 [143] **QUIT ROUTINE**
- 7510 [151]53269,0
- 7520 [153][199](147)[199](154):[151]53280,14:[151]53281,6
- 7530 [153][199](9)
- 7540 [128]
-