0 GOTO90
1 IFX(N)>99THENPRINT""TAB(20)"[151]"X(N)
2 IFX(N)<100THENPRINT""TAB(21)"[151]"X(N)
3 RETURN
5 F=PEEK(203):IFF=64THENRETURN
6 IFF=40THENN=N+1
7 IFF=43THENN=N-1
8 IFN<1THENN=1
9 IFN>39THENN=39
10 IFF=40ORF=43THENGOSUB1:GOTO5
11 REM NOTE SHAPE SELECTION
12 IFF=59THENPRINT""TAB(15)"[151][145][[157]^"
13 IFF=11THENPRINT""TAB(15)"[151][145]\[157]_"
14 IFF=27THENPRINT""TAB(15)"[151][145]Z[157]]"
15 IFF=62THEN620
20 RETURN
90 IFPEEK(12296)<>56ANDPEEK(12298)<>68THENLOAD"METRONOME.FNT",8,1
100 DIMX(39),R(39):S=54272
110 POKE53280,1:POKE53281,1:POKE650,128
120 PRINT"[147][144]"SPC(7)"WELCOME TO MAGIC METRONOME"
130 PRINT""SPC(13)"READING DATA..."
140 FORN=1TO39:READX(N),R(N):NEXT
145 FORA=1TO1000:NEXT
150 POKE56,48
210 POKE53272,(PEEK(53272)AND240)+12
230 REM MAIN SCREEN
240 N=11:PRINT"[147]":PRINT
250 PRINTTAB(11)"[155]MAGIC  METRONOME"
260 PRINTTAB(18)"[149][169] [223]"
270 PRINTTAB(17)"[169]   [223]"
280 PRINTTAB(16)"[169]     [223]"
290 PRINTTAB(15)"[169]       [223]"
300 PRINTTAB(15)"         "
310 PRINTTAB(15)"[151][145]\[157]_   = "X(N)
320 PRINT:PRINT
330 PRINTTAB(7)"[151]2[146] = [145][[157]^"SPC(8)"+[146] = INCREASE"
340 PRINTTAB(7)"4[146] = [145]\[157]_"SPC(8)"-[146] = DECREASE"
350 PRINTTAB(7)"8[146] = [145]Z[157]]"SPC(8)"Q[146] = QUIT":PRINT
360 PRINTTAB(6)"VALUES FROM 40 TO 208 B.P.M."
370 REM TIMING AND SOUND
380 POKES+24,15
390 FORT=0TOR(N):NEXT
400 POKES+4,19:POKES+5,0:POKES+1,67:POKES,15
410 POKES+4,18
420 PRINT""SPC(19)"[149][206][146]"
422 GOSUB5
430 FORT=0TOR(N):NEXT
440 POKES+4,19:POKES+5,0:POKES+1,67:POKES,15
450 POKES+4,18
460 PRINT""SPC(19)"[149][205][146]"
470 REM INCREMENT SELECTION
480 GOSUB5
580 IFX(N)>99THENPRINT""TAB(20)"[151]"X(N)
590 IFX(N)<100THENPRINT""TAB(21)"[151]"X(N)
600 GOTO390
610 REM QUIT--WINDOWSHADE
620 PRINT"[147]";
630 A$="                                        "
640 B$="                                        [146]                   [194][146]"
650 FORA=1TO17
660 PRINT"[144]"A$;:NEXT
670 PRINTB$
680 PRINTTAB(19)"[215][146]"
690 PRINTTAB(14)"GOOD NIGHT!"
700 POKE646,11:OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
702 IFER<>63THENEND
704 PRINT"[147]":POKE53272,21:LOAD"HELLO CONNECT",8
710 REM DATA FOR X AND R
720 DATA40,1444,42,1380,44,1316,46,1250,48,1204,50,1158,52,1110
730 DATA54,1076,56,1030,58,990,60,960,63,904,66,864
740 DATA69,820,72,786,76,740,80,702,84,670,88,630,92,600
750 DATA96,580,100,550,104,522,108,494,112,474,116,459,120,438
760 DATA126,414,132,390,138,370,144,352,152,330,160,305
770 DATA168,288,176,263,184,250,192,238,200,228,208,220