100 REM XWWWWWWWWWWWWWWWWWWWWWWWY
110 REM V SKARBOROUGH FAIR      V
120 REM V (c) SIMON & GARFUNKEL V
130 REM V C.DE BONT 20-4-1981   V
140 REM V MSX-VERSIE 2-11-1985  V
150 REM ZWWWWWWWWWWWWWWWWWWWWWWW[
160 CLEAR 500:SCREEN 1:COLOR 15,1,1
170 DIM F(50,1):KEYOFF:X=RND(-TIME)
180 VPOKE 8193,&HB1:VPOKE 8194,&H81
190 VPOKE 8195,&H81:VPOKE 8204,&HD1
200 VPOKE 8205,&HD1:VPOKE 8206,&HD1
210 VPOKE 8207,&HD1:VPOKE 8217,&H41
220 RESTORE 600:FOR I=0 TO 22:READ A$
230 LOCATE 0,I:PRINT A$;:NEXT I
240 RESTORE 500:FOR N=1 TO 49:READ F
250 F=1789772.5#/(16*F):F(N,1)=F/256
260 F(N,0)=F MOD 256:NEXT N
270 LOCATE 11,18:PRINT "OOOOOOO";
280 LOCATE 11,19:PRINT "OOOOOOO";
290 RESTORE 1000:SOUND 7,56
300 FOR I=8 TO 10:SOUND I,I+3:NEXT I
310 READ A,B,C:IF A=99 THEN 375
320 SOUND 0,F(C,0):SOUND 1,F(C,1)
330 SOUND 2,F(B,0):SOUND 3,F(B,1)
340 SOUND 4,F(A,0):SOUND 5,F(A,1)
350 C=INT(15*RND(1))+1
360 VPOKE 8217,&H1+(C*16)
370 FOR I=1 TO 60:NEXT I:GOTO 310
375 BEEP
380 LOCATE 11,18:PRINT "OPNIEUW";
390 LOCATE 11,19:PRINT " (J/N) ";
400 G$=INKEY$
410 IF G$="J" OR G$="j" THEN 270
420 IF G$="N" OR G$="n" THEN 440
430 FOR I=1 TO 20:NEXT I:GOTO 400
440 SCREEN 0:COLOR 15,4,4:WIDTH 40
450 LOCATE 10,10:PRINT "E I N D E":END
500 REM XWWWWWWWWWWWWWWWWWWWWWWWWY
510 REM V MUZIEKNOOT-FREQUENTIES V
520 REM ZWWWWWWWWWWWWWWWWWWWWWWWW[
530 DATA 065,069,073,078,082,087,092
540 DATA 098,104,110,116,123,131,138
550 DATA 147,155,165,175,185,196,208
560 DATA 220,233,247,262,277,294,311
570 DATA 330,349,370,392,415,440,466
580 DATA 494,523,554,587,622,659,698
590 DATA 740,784,831,880,932,988,20000
600 REM XWWWWWWWWWWWWWWY
610 REM V TITEL-PAGINA V
620 REM ZWWWWWWWWWWWWWW[
630 DATA XWWWWWWWWWWRRRRRRRWWWWWWWWWWY
640 DATA VXUQQQQQUYV
650 DATA VXU[OOOOOZUYV
660 DATA VXU[OOOOOOOZUYV
670 DATA VXU[OOOOOOOOOZUYV
680 DATA VXUURRRRRRRRRRRUUYV
690 DATA VXQQQQQQQQQQQQQQQQQYV
700 DATA VXSSKARBOROUGH  FAIRTYV
710 DATA VXUS                 TUYV
720 DATA VXUUSgecomponeerd doorTUUYV
730 DATA VXU[TS                 TSZUYV
740 DATA TUSOTSSIMON & GARFUNKELTSOTUS
750 DATA VZUYTS                 TSXU[V
760 DATA VZUUS uitgevoerd door TUU[V
770 DATA VZUS                 TU[V
780 DATA VZS C DE BONT & MSX T[V
790 DATA VZRRRRRRRRRRRRRRRRR[V
800 DATA VZUUQQQQQQQQQQQUU[V
810 DATA VZUYO WACHT OXU[V
820 DATA VZUY A.U.B XU[V
830 DATA VZUYOOOOOXU[V
840 DATA VZURRRRRU[V
850 DATA ZWWWWWWWWWWQQQQQQQWWWWWWWWWW[
1000 REM XWWWWWWWWWWWWWWWWWWWWWWY
1010 REM V 3-STEMMIG MUZIEKSTUK V
1020 REM ZWWWWWWWWWWWWWWWWWWWWWW[
1030 DATA 29,49,17,29,49,24,29,49,27
1040 DATA 29,49,26,29,49,22,29,49,24
1050 DATA 36,32,17,36,32,24,36,32,22
1060 DATA 36,32,24,36,32,19,36,49,20
1070 DATA 31,49,15,31,49,22,31,49,15
1080 DATA 32,49,17,31,49,19,31,49,22
1090 DATA 29,49,17,29,49,24,29,49,27
1100 DATA 29,49,26,29,49,22,29,49,24
1110 DATA 29,49,17,29,49,24,29,49,22
1120 DATA 29,49,24,29,49,19,29,49,22
1130 DATA 49,49,20,49,49,24,36,32,27
1140 DATA 36,32,24,39,36,20,39,36,24
1150 DATA 41,32,17,41,32,24,41,32,29
1160 DATA 41,32,24,39,32,17,39,32,24
1170 DATA 36,32,20,36,32,27,38,34,22
1180 DATA 38,34,26,34,49,17,34,49,26
1190 DATA 36,32,17,36,32,24,36,32,27
1200 DATA 36,32,26,36,32,22,36,32,24
1210 DATA 36,32,17,36,32,24,36,32,22
1220 DATA 36,32,24,36,32,19,36,32,20
1230 DATA 36,32,17,36,32,24,36,32,27
1240 DATA 36,32,26,36,32,22,36,32,24
1250 DATA 36,32,17,36,32,24,36,32,22
1260 DATA 36,32,24,41,32,19,41,32,20
1270 DATA 41,32,17,41,32,24,41,32,29
1280 DATA 41,32,24,41,32,17,41,32,24
1290 DATA 39,36,20,39,36,24,36,49,27
1300 DATA 36,49,24,36,49,27,36,49,24
1310 DATA 36,49,20,36,49,24,34,49,19
1320 DATA 34,49,22,32,49,17,32,49,20
1330 DATA 31,49,15,31,49,22,31,49,27
1340 DATA 31,49,22,31,49,20,31,49,22
1350 DATA 31,49,19,31,49,22,31,49,17
1360 DATA 31,49,22,31,49,15,31,49,22
1370 DATA 29,49,17,29,49,20,29,49,24
1380 DATA 29,49,20,36,49,17,36,49,20
1390 DATA 34,49,15,34,49,19,34,49,22
1400 DATA 34,49,19,32,49,17,32,49,20
1410 DATA 31,49,15,31,49,19,29,49,17
1420 DATA 29,49,20,27,49,19,27,49,22
1430 DATA 29,49,17,29,49,24,29,49,27
1440 DATA 29,49,26,29,49,22,29,49,24
1450 DATA 29,49,17,29,49,24,29,49,22
1460 DATA 29,49,24,29,49,19,29,49,20
1470 DATA 29,49,17,29,49,24,29,49,27
1480 DATA 29,49,26,29,49,22,29,49,24
1490 DATA 29,49,17,29,49,24,29,49,22
1500 DATA 29,49,24,29,49,19,29,49,20
1510 DATA 29,49,17,29,49,24,29,49,27
1520 DATA 29,49,26,29,49,22,29,49,24
1530 DATA 36,29,17,36,29,17,36,49,22
1540 DATA 36,49,24,36,49,19,36,49,20
1550 DATA 31,49,15,31,49,22,32,49,17
1560 DATA 32,49,22,31,49,15,31,49,22
1570 DATA 29,49,17,29,49,24,29,49,27
1580 DATA 29,49,26,29,49,22,29,49,24
1590 DATA 29,49,17,29,49,24,29,49,22
1600 DATA 29,49,24,29,49,19,29,49,22
1610 DATA 49,49,20,49,49,24,36,32,27
1620 DATA 36,32,24,39,36,20,39,36,24
1630 DATA 41,32,17,41,32,24,41,32,29
1640 DATA 41,32,24,39,32,17,39,32,24
1650 DATA 36,32,20,36,32,27,38,34,22
1660 DATA 38,34,26,34,49,29,34,49,26
1670 DATA 39,36,17,39,36,24,41,49,27
1680 DATA 41,49,26,39,49,22,39,49,24
1690 DATA 38,49,17,38,49,24,41,36,22
1700 DATA 41,36,24,38,49,19,38,49,22
1710 DATA 39,49,17,39,49,20,38,49,22
1720 DATA 38,49,24,43,34,22,43,34,19
1730 DATA 41,36,17,41,36,20,41,49,22
1740 DATA 41,49,24,41,49,22,41,49,20
1750 DATA 41,32,17,41,32,24,41,32,29
1760 DATA 41,32,24,41,32,17,41,32,24
1770 DATA 39,36,20,39,36,24,39,36,15
1780 DATA 39,36,24,39,36,15,39,36,24
1790 DATA 36,49,20,36,49,24,34,49,19
1800 DATA 34,49,22,32,49,17,32,49,20
1810 DATA 31,49,15,31,49,19,31,49,22
1820 DATA 31,49,19,31,49,20,31,49,22
1830 DATA 31,49,15,31,49,22,31,49,17
1840 DATA 31,49,22,31,49,15,31,49,22
1850 DATA 29,49,17,29,49,20,29,49,24
1860 DATA 29,49,20,36,49,17,36,49,20
1870 DATA 34,49,15,34,49,19,34,49,22
1880 DATA 34,49,19,32,49,17,32,49,20
1890 DATA 31,49,15,31,49,19,29,49,17
1900 DATA 29,49,20,27,49,19,27,49,22
1910 DATA 29,49,17,29,49,24,29,49,22
1920 DATA 29,49,24,29,49,20,29,49,24
1930 DATA 29,49,17,29,49,24,29,49,22
1940 DATA 29,49,24,29,49,19,29,49,20
1950 DATA 29,49,17,29,49,24,29,49,27
1960 DATA 29,49,26,29,49,22,29,49,24
1970 DATA 29,17,24,29,17,24,29,17,24
1980 DATA 29,17,24,29,17,24,29,17,24
1990 DATA 49,49,49,99,99,99
2000 REM XWWWWWWWWWWWWWWWWWWWWWY
2010 REM V EINDE VAN PROGRAMMA V
2020 REM ZWWWWWWWWWWWWWWWWWWWWW[
