FROM Q-LINK DISK # 144C ******************************h * MAELZEL'S MODERN METRONOME * * BY ROBERT S. OWEN * ******************************53280,15:53281,15:"";:C$"":X50 XX10:G7322:54296,8:54296,52 " b " ݜ* ETRONOME ݜ* " " :""G)C$;:D1X:: " O SET UP: "" NPUT THE 43 TO 206 $" AND PRESS .5 &" NPUT THE , 1/2, 3/4 ETCV (" AND PRESS .~ *" RESS ΠON TO START. ," RESS ΠON TO END. ." ROM A Ġ WILL 0" LET YOU SET THE TIME; 10:30 ETC,$ 2" OR YOU CAN THE PROGRAM.O 4" RESS <>TO KEEP TIME.c 6G$:G$" "22m d5000y ,(150) 6S,0:VIC2,136:198,0 7(19)38)SP$" " 8(19)38)TP$"_" @7300:A$:A$""320 AA$"3"320 BA$(13)325 D380 EA$(141)330, G(19)38)TP$" "6 H7000M JA$"1"A$"9"320p KT$A$:(19)28)TP$(18)T$" " T7300:A$:A$""340 YA$"0"A$"9"340 ZT$"2"A$"0"340 ^T$T$A$:(19)28)TP$(18)T$" " _(T$)39380 h7300:A$:A$""360 mA$"0"A$"9"360, rT$T$A$I |(19)28)TP$(146)T$" "j TS.935(T$)35.6:VIC1,TS (19)38)TP$" " (19)38)BT$"_" 7300:A$:A$""520 A$(13)580 A$"1"A$"8"520 B$A$:(19)28)BT$(18)B$"/ "7300:A$:A$""540$A$(13)540M!A$"1"A$"2"A$"4"A$"8"540t&BB$A$:(19)28)BT$(146)B$"/"BB$D(19)38)BT$" "E(19)38)GG$"_"b7300:A$:A$(13)610(19)38)GG$" "(19)38)SP$"_"(TT(1(T$))(3600(((T$)70)175)): CONTAINS A FUDGE FACTORNL136((1(T$))4760):L17L17vH136((1(T$))4760):H255H255B(B$)B6BB$"8"B2B12010B5B7BB$"1"2050$20202060:(K)020103102060:I1(B1):2080:I:(K)02020310?B72060:2080:(K)0310[2060:2080:(K)0310~ 2060:2080:2080:(K)02050 310 TI$"000000":7310TI32062S,0(K)0P(SPR)5D:PLPHP(SPR)SPR,P:TITT2065S,33:DD1:" TI$"000000"1"TI32082:#S,0H%(K)0k&P(SPR)5D:PLPHP(SPR)'SPR,P:TITT2085*S,17:DD1: **SOUNE SET-UP**I5427254300:I,0:54273,200:54277,4:54296,15S54276  **SPRITE SET-UP**DVIC53248:SPRVIC2:VIC32,0:VIC33,6:VIC27,255\VIC39,3:VIC40,72040,13:I014:832I,255::I1562:832I,0:2041,14:I032:896I,255::I3362:896I,0: VIC21,3:VIC,136:VIC2,136:VIC3,52| **INITIALIZE VARIABLES**:DN$"": CURSOR DOWN IN QUOTESKAL$""[TP$DN$AL$kBT$DN$TP${GG$DN$BT$SP$DN$GG$D1:K198TN56328:SC56329:MN56330:HR56331HR,0:MN,0:SC,0:TN,0(8): DISABLE UPPER/LOWER CASE SHIFT p **SCREEN SET-UP**Lz(142)(147)32)(18)(144)" 00:00 ";i(146)(152)15)(193);16)(18)(144)" ";: EIGHT SPACES IN QUOTES(146)(144);I114:(163);:I(152)(18)(169)" ";(223)(146)(144);"I123:(163);:I:(152);L3)(154)"GRAVE/LARGO "(152)(123);e12)(144)"S"(152)9)(154)"LENTO "(152)(123);12)(144)"H "(176)" "(152)"CLOCK"8)(154)"ADAGIO "(152)(123);12)(144)"I"(195)(179)(152)%5)(154)"LARGHETTO "(152)(123);O12)(144)"F "(173)" "(152)"QUIT"u7)(154)"ANDANTE "(152)(123);12)(144)"T"(152)5)(154)"ANDANTINO "(152)(123);12)(144)(94)(152)6)(154)"MODERATO "(152)(123);12)(144)(202)(195)(195);?(195)(195)(195)(201)(152)P15)(123);s12)(150)"120"(152)" TEMPO"T$"120":VIC1,.935(T$)35.64)(154)"ALLEGRETTO "(152)(123);12)(163)(163)(163)15)(123)7)(154)"ALLEGRO "(152)(123)"15)(123);E12)(150)"4/4"(152)" BEAT"X B$"4":BB$"4"|9)(154)"ASSAI "(152)(123);12)(163)(163)(163)7)(154)"VIVACHE "(152)(123)$15)(123).15)(123);/19)"GO"88)(154)"PRESTO "(152)(123) B15)(123)0L15)(123)ZV3)(154)"PRESTISSIMO "(152)(123);jW17)"STOP"`13)(152)(18)(169)" "(127)(146)j11)(152)(117)(18)" ";: SEVEN SPACES IN QUOTEk(146)(105)(145);W X **TIME SET ROUTINE**"(19)38)DN$"_"9A$:A$(13)7180QA$"/"A$"9"7120xA$"1"A$":"HH0:TH$"0":7146TH$A$:(19)34)TH$" : "HH(A$)16A$:A$"/"A$"9"7140(TH$A$)127140TH$TH$A$:(19)34)TH$": " HL(A$)HR,HHHL5A$:A$"/"A$"5"7150TTM$A$:(19)34)TH$":"TM$dMH(A$)16A$:A$"/"A$"9"7160TM$TM$A$(19)34)(18)(144)TH$":"TM$(146)(150)ML(A$)MN,MHMLSC,0:TN,0 (19)38)DN$" " (19)38)AL$"_"1  **CHECK QUIT ROUTINE**K47300:A$:A$""7220_>A$(141)7500rHA$(13)7260|R7220\(19)38)AL$" "f310 **UPDATE CLOCK ROUTINE**(MN)(MH16)MLHH((HR)112)16:HL((HR)15)MH((MN)240)16:ML((MN)15)&DU(TN)Q(19)(18)(144)34)(HH48)(HL48);w":"(MH48)(ML48)(146)(150)}L **QUIT ROUTINE**V53269,0`(147)(154):53280,14:53281,6j(9)t