1 CLS:CLEAR::'MATCHM' <MU-29.1> 1/3/85 S.KENDALL * Wilmette,IL Ph 1-312-2563469
2 'Song is Matchmaker
20 LINE(80,24)-(160,44),1,B:LINE(76,20)-(164,48),1,B
24 PRINT@175,"MATCHMAKER"
26 BEEP:PRINT@163,"'MATCHM'":PRINT@189,"<MU-29.1>"
28 PRINT@244,"<Q>uit":PRINT@270,"<P>lay"
30 A$=INKEY$
40 IFA$="P"ORA$="p"THEN100
50 IFA$="q"ORA$="Q"THENMENU
60 GOTO30
100 DIM P(60)
110 FOR I=1 TO 60:READ P(I):NEXT I
120 DATA 12538,11836,11172,10544,9952,9394,8866,8368,7900,7456,7032,6642
130 DATA 6269,5918,5586,5272,4976,4697,4433,4184,3950,3718,3516,3321
140 DATA 3134,2959,2793,2636,2484,2348,2216,2092,1975,1864,1758,1660
150 DATA 1567,1479,1396,1318,1244,1174,1108,1046,987,932,879,830
160 DATA 783,739,698,659,622,587,554,523,493,466,439,415
500 FORI=1TO 107:READS,L:SOUND P(S),L:NEXT I
502 GOTO30
510 DATA1,20,6,20,6,20,6,20,8,20,8,20,8,20,10,20,10,20,10,60
515 DATA8,20,10,20,10,20,10,60,8,20,10,20,10,20,10,60
520 DATA1,20,6,20,6,20,6,20,8,20,8,20,8,20,10,20,10,20,10,40,11,20
530 DATA13,20,11,20,11,20,6,40,1,20,6,120,6,40,6,20,14,20,14,60,14,20,13,20,11,20
535 DATA14,20,13,20,11,20,13,60,13,20,9,20,11,20,13,20,11,20,9,20
540 DATA13,40,13,20,11,60,11,60,11,20,9,20,8,20
545 DATA11,20,9,20,8,20,9,20,8,20,9,20,10,20,9,20,10,20
550 DATA11,40,13,20,14,60,1,20,6,20,6,20,6,20,8,20,8,20
560 DATA8,20,10,20,10,20,10,60,8,20,10,20,10,20,10,60
570 DATA8,20,10,20,10,20,10,60,1,20,6,20,6,20,6,20,8,20,8,20
580 DATA8,20,10,20,10,20,10,40,11,20,13,20,10,20,11,20,13,60,6,60,1,60,6,120