Movement from a suite for harpsichord by Christian Petzold.
Content
Image Gallery
Source Code
1 REM "minuet""(17093)
2 PAPER INT (RND*6)+1: INK 9: BORDER INT (RND*6)+1: CLS
3 PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175: PLOT 10,10: DRAW 235,0: DRAW 0,155: DRAW -235,0: DRAW 0,-155
4 PRINT AT 3,8;" ": PRINT AT 4,8;" ""MINUET IN G"" ": PRINT AT 5,8;" ": PRINT AT 9,7;"PERFORMED ON THE": PRINT AT 11,6;"TIMEX/SINCLAIR 2068": PRINT AT 13,14;"BY": FLASH 1: PRINT AT 15,9;" ": PRINT AT 16,9;" CARL CHADA ": PRINT AT 17,9;" ": FLASH 0
5 LET a=1
9 LET g=1
10 GO SUB 5000
20 SOUND 0,221;1,0;8,15
30 SOUND 2,23;3,1;9,15
40 PAUSE 30
50 GO SUB 5000
60 SOUND 0,209;1,0;8,15
70 SOUND 2,248;3,0;9,15
80 PAUSE 15
90 SOUND 0,186;1,0;8,15
100 SOUND 2,221;3,0;9,15
110 BEEP .5,-17
120 SOUND 0,197;1,0;8,15
130 SOUND 2,234;3,0;9,15
140 PAUSE 15
150 SOUND 0,186;1,0;8,15
160 SOUND 2,221;3,0;9,15
170 BEEP .5,-13
180 SOUND 0,197;1,0;8,15
190 SOUND 2,234;3,0;9,15
200 PAUSE 15
210 SOUND 0,186;1,0;8,15
220 SOUND 2,221;3,0;9,15
230 BEEP .5,-10
240 SOUND 0,197;1,0;8,15
250 SOUND 2,234;3,0;9,15
260 PAUSE 15
270 SOUND 0,186;1,0;8,15
280 SOUND 2,221;3,0;9,15
290 BEEP .75,-5: BEEP .75,-17
300 SOUND 0,165;1,0;8,15
310 SOUND 2,209;3,0;9,15
320 PAUSE 30
330 SOUND 0,221;1,0;8,15
340 SOUND 2,7;3,1;9,15
350 PAUSE 15
360 SOUND 0,209;1,0;8,15
370 SOUND 2,248;3,0;9,15
380 BEEP .75,-10: BEEP .75,-22
390 SOUND 0,186;1,0;8,15
400 SOUND 2,221;3,0;9,15
410 PAUSE 30
420 SOUND 0,248;1,0;8,15
430 SOUND 2,39;3,1;9,15
440 PAUSE 15
450 SOUND 0,221;1,0;8,15
460 SOUND 2,23;3,1;9,15
470 BEEP .75,-5: BEEP .75,-17
480 SOUND 0,23;1,1;8,15
490 SOUND 2,186;3,1;9,15
500 PAUSE 30
510 SOUND 0,248;1,0;8,15
520 SOUND 2,116;3,1;9,15
530 PAUSE 15
540 SOUND 0,221;1,0;8,15
550 SOUND 2,23;3,1;9,15
560 BEEP .5,-17
570 SOUND 0,234;1,0;8,15
580 SOUND 2,39;3,1;9,15
590 PAUSE 15
600 SOUND 0,221;1,0;8,15
610 SOUND 2,23;3,1;9,15
620 BEEP .5,-13
630 SOUND 0,234;1,0;8,15
640 SOUND 2,39;3,1;9,15
650 PAUSE 15
660 SOUND 0,221;1,0;8,15
670 SOUND 2,23;3,1;9,15
680 BEEP .5,-9
690 SOUND 0,234;1,0;8,15
700 SOUND 2,39;3,1;9,15
710 PAUSE 15
720 SOUND 0,221;1,0;8,15
730 SOUND 2,23;3,1;9,15
740 BEEP .75,-8: BEEP .75,-6
750 SOUND 0,248;1,0;8,15
760 SOUND 2,39;3,1;9,15
770 BEEP .5,-5
780 SOUND 2,23;3,1;9,15
790 SOUND 0,75;1,1;8,15
800 PAUSE 15
805 GO SUB 5000
810 SOUND 0,75;1,1;8,15
820 SOUND 2,23;3,1;9,15
830 BEEP .5,-3
840 SOUND 0,186;1,0;8,15
850 SOUND 2,39;3,1;9,15
860 PAUSE 15
865 GO SUB 5000
870 SOUND 0,186;1,0;8,15
880 SOUND 2,39;3,1;9,15
890 PAUSE 30
900 SOUND 0,248;1,0;8,15
910 SOUND 2,39;3,1;9,15
920 PAUSE 15
930 GO SUB 5000
940 SOUND 0,75;1,1;8,15
950 SOUND 2,23;3,1;9,15
960 BEEP .5,-15
970 SOUND 0,75;1,1;8,15
980 SOUND 2,138;3,1;9,15
990 PAUSE 15
1000 GO SUB 5000
1010 SOUND 0,116;1,1;8,15
1020 BEEP .75,-10
1030 GO SUB 5000
1040 BEEP .75,2
1050 LET a=a+1
1060 IF a=3 THEN GO TO 1080
1070 GO TO 10
1080 REM PART II
1085 LET b=1
1090 GO SUB 5000
1100 SOUND 0,186;1,0;8,15
1120 PAUSE 22.5
1130 SOUND 0,139;1,0;8,15
1140 PAUSE 22.5
1150 SOUND 0,139;1,0;8,15
1160 SOUND 2,186;3,0;9,15
1170 SOUND 4,116;5,1;10,15
1180 BEEP .75,-1
1190 SOUND 0,147;1,0;8,15
1200 SOUND 2,209;3,0;9,15
1210 SOUND 4,116;5,1;10,15
1220 BEEP .75,-3
1230 SOUND 0,139;1,0;8,15
1240 SOUND 2,221;3,0;9,15
1250 SOUND 4,116;5,1;10,15
1260 BEEP .75,-5
1270 SOUND 0,124;1,0;8,15
1280 SOUND 2,248;3,0;9,15
1290 SOUND 4,116;5,1;10,15
1300 BEEP .75,-6: BEEP .75,-10
1310 SOUND 0,139;1,0;8,15: PAUSE 7.5: GO SUB 5000
1320 SOUND 0,147;1,0;8,15: PAUSE 7.5: GO SUB 5000
1330 SOUND 0,165;1,0;8,15: PAUSE 7.5: GO SUB 5000
1340 SOUND 0,186;1,0;8,15: PAUSE 7.5: GO SUB 5000
1350 SOUND 0,209;1,0;8,15
1360 SOUND 2,248;3,0;9,15
1370 BEEP .75,-5
1380 SOUND 0,221;1,0;8,15
1390 SOUND 2,23;3,1;9,15
1400 BEEP .75,-5
1410 SOUND 0,165;1,0;8,15
1420 SOUND 2,209;3,0;9,15
1430 BEEP .5,-12
1440 SOUND 0,209;1,0;8,15
1450 SOUND 2,248;3,0;9,15
1460 PAUSE 15
1470 SOUND 0,221;1,0;8,15
1480 SOUND 2,23;3,1;9,15
1490 BEEP .75,-10
1500 SOUND 0,248;1,0;8,15
1510 SOUND 2,39;3,1;9,15
1515 PAUSE 45
1520 SOUND 0,23;1,1;8,15
1530 SOUND 2,186;3,1;9,15
1540 PAUSE 30
1545 GO SUB 5000
1550 SOUND 0,248;1,0;8,15
1570 PAUSE 15
1580 SOUND 0,221;1,0;8,15
1590 SOUND 2,116;3,1;9,15
1600 BEEP .5,-17
1610 SOUND 0,234;1,0;8,15
1620 SOUND 2,138;3,1;9,15
1630 PAUSE 15
1640 SOUND 0,221;1,0;8,15
1650 SOUND 2,116;3,1;9,15
1660 BEEP .5,-13
1670 SOUND 0,234;1,0;8,15
1680 SOUND 2,138;3,1;9,15
1690 PAUSE 15
1700 SOUND 0,221;1,0;8,15
1710 SOUND 2,116;3,1;9,15
1720 BEEP .5,-10
1730 SOUND 0,234;1,0;8,15
1740 SOUND 2,138;3,1;9,15
1750 PAUSE 15
1760 SOUND 0,221;1,0;8,15
1770 SOUND 2,116;3,1;9,15
1780 BEEP .75,-5: BEEP .75,-7
1790 SOUND 0,209;1,0;8,15
1800 SOUND 2,75;3,1;9,15
1810 BEEP .5,-8
1820 SOUND 0,7;1,1;9,15
1830 SOUND 2,186;3,1;9,15
1840 PAUSE 15
1850 SOUND 0,248;1,0;8,15
1860 SOUND 2,162;3,1;9,15
1870 BEEP .75,-8: BEEP .75,-9
1880 SOUND 0,221;1,0;8,15
1890 SOUND 2,116;3,1;9,15
1900 BEEP .5,-10
1910 SOUND 0,39;1,1;8,15
1920 SOUND 2,241;3,1;9,15
1930 PAUSE 15
1940 SOUND 0,23;1,1;8,15
1950 SOUND 2,186;3,1;9,15
1960 BEEP .75,-17
1970 LET b=b+1
1980 IF b=3 THEN GO TO 2010
1990 BEEP .75,-5
1992 LET g=g+1
1993 IF g=3 THEN GO SUB 5000: PAUSE 200: CLS : GO TO 2
2000 GO TO 1090
2010 SOUND 0,46;1,2;8,15: PAUSE 15: GO SUB 5000
2015 LET c=1
2020 SOUND 0,186;1,0;8,15: PAUSE 15: GO SUB 5000
2030 SOUND 0,197;1,0;8,15: PAUSE 15: GO SUB 5000
2040 SOUND 0,186;1,0;8,15: PAUSE 15: GO SUB 5000
2050 SOUND 0,221;1,0;8,15
2060 BEEP .25,-17
2070 SOUND 0,186;1,0;8,15: PAUSE 15: GO SUB 5000
2080 SOUND 0,23;1,1;8,15
2090 BEEP .25,-10
2100 SOUND 0,221;1,0;8,15: PAUSE 15: GO SUB 5000
2110 SOUND 0,116;1,1;8,15
2120 BEEP .25,-5
2130 SOUND 0,221;1,0;8,15: PAUSE 15: GO SUB 5000
2140 SOUND 0,248;1,0;8,15
2150 BEEP .25,-12
2160 SOUND 0,209;1,0;8,15: PAUSE 15: GO SUB 5000
2170 SOUND 0,39;1,1;8,15
2180 BEEP .25,-10
2190 SOUND 0,248;1,0;8,15: PAUSE 15: GO SUB 5000
2200 SOUND 0,116;1,1;8,15
2210 BEEP .25,-6
2220 SOUND 0,39;1,1;8,15: PAUSE 15: GO SUB 5000
2230 SOUND 0,23;1,1;8,15
2240 BEEP .25,-13
2250 SOUND 0,39;1,1;8,15: PAUSE 15: GO SUB 5000
2260 SOUND 0,23;1,1;8,15
2270 BEEP .25,-10
2280 SOUND 0,248;1,0;8,15: PAUSE 15: GO SUB 5000
2290 SOUND 0,221;1,0;8,15
2300 BEEP .25,-5
2310 SOUND 0,209;1,0;8,15: PAUSE 15: GO SUB 5000
2320 SOUND 0,186;1,0;8,15
2330 BEEP .25,-6
2340 SOUND 0,197;1,0;8,15: PAUSE 15: GO SUB 5000
2350 SOUND 0,186;1,0;8,15
2360 BEEP .25,-3
2370 SOUND 0,165;1,0;8,15: PAUSE 15: GO SUB 5000
2380 SOUND 0,186;1,0;8,15
2390 BEEP .25,2
2400 SOUND 0,209;1,0;8,15: PAUSE 15: GO SUB 5000
2410 SOUND 0,221;1,0;8,15
2420 BEEP .25,-5
2430 SOUND 0,234;1,0;8,15: PAUSE 15: GO SUB 5000
2440 SOUND 0,221;1,0;8,15
2450 BEEP .25,-1
2460 SOUND 0,209;1,0;8,15: PAUSE 14: GO SUB 5000
2470 SOUND 0,221;1,0;8,15
2480 BEEP .25,-9
2490 SOUND 0,248;1,0;8,15: PAUSE 15: GO SUB 5000
2500 SOUND 0,23;1,1;8,15
2510 BEEP .25,-8
2520 SOUND 0,221;1,0;8,15: PAUSE 15: GO SUB 5000
2530 SOUND 0,248;1,0;8,15
2540 BEEP .25,-11
2550 SOUND 0,23;1,1;8,15: PAUSE 15: GO SUB 5000
2560 SOUND 0,39;1,1;8,15
2570 BEEP .25,-10
2580 SOUND 0,248;1,0;8,15: PAUSE 15: GO SUB 5000
2590 SOUND 0,75;1,1;8,15
2600 BEEP .25,-17
2610 SOUND 0,39;1,1;8,15: PAUSE 15: GO SUB 5000
2620 SOUND 0,23;1,1;8,15: PAUSE 15
2630 SOUND 0,75;1,1;8,15: PAUSE 15
2640 SOUND 0,138;1,1;8,15
2650 BEEP .25,-15
2660 SOUND 0,241;1,1;8,15: PAUSE 15: GO SUB 5000
2670 SOUND 0,116;1,1;8,15
2680 BEEP .5,-10
2790 LET c=c+1
2800 IF c=3 THEN GO TO 2820
2815 LET d=1
2820 SOUND 0,186;1,0;8,15: PAUSE 15: GO SUB 5000
2830 SOUND 0,197;1,0;8,15: PAUSE 15: GO SUB 5000
2840 SOUND 0,186;1,0;8,15: PAUSE 15: GO SUB 5000
2850 SOUND 0,165;1,0;8,15
2860 BEEP .25,-10
2870 SOUND 0,209;1,0;8,15: PAUSE 15: GO SUB 5000
2880 SOUND 0,248;1,0;8,15: PAUSE 15: GO SUB 5000
2890 SOUND 0,221;1,0;8,15
2900 BEEP .25,2
2910 SOUND 0,248;1,0;8,15
2920 BEEP .25,1
2930 SOUND 0,221;1,0;8,15
2940 BEEP .25,2
2950 SOUND 0,209;1,0;8,15
2960 BEEP .25,4
2970 SOUND 0,248;1,0;8,15
2980 BEEP .25,0
2990 SOUND 0,39;1,1;8,15
3000 BEEP .25,-3
3010 SOUND 0,186;1,0;8,15
3020 BEEP .25,-1
3030 SOUND 0,197;1,0;8,15
3040 BEEP .25,-2
3050 SOUND 0,186;1,0;8,15
3060 BEEP .25,-1
3070 SOUND 0,165;1,0;8,15
3080 BEEP .25,0
3090 SOUND 0,209;1,0;8,15
3100 BEEP .25,-3
3110 SOUND 0,248;1,0;8,15
3120 BEEP .25,-6
3130 SOUND 0,221;1,0;8,15
3140 BEEP .25,-5
3150 SOUND 0,248;1,0;8,15
3160 BEEP .25,-6
3170 SOUND 0,221;1,0;8,15
3180 BEEP .25,-5
3190 SOUND 0,209;1,0;8,15
3200 BEEP .25,-3
3210 SOUND 0,248;1,0;8,15
3220 BEEP .25,-6
3230 SOUND 0,39;1,1;8,15
3240 BEEP .25,-10
3250 SOUND 0,186;1,0;8,15
3260 BEEP .25,-10
3270 SOUND 0,197;1,0;8,15
3280 BEEP .25,-8
3290 SOUND 0,186;1,0;8,15
3300 BEEP .25,-6
3310 SOUND 0,221;1,0;8,15
3320 BEEP .25,-5
3330 SOUND 0,186;1,0;8,15: PAUSE 15: GO SUB 5000
3340 SOUND 0,23;1,1;8,15
3350 BEEP .25,-1
3360 SOUND 0,221;1,0;8,15: PAUSE 15: GO SUB 5000
3370 SOUND 0,116;1,1;8,15
3380 BEEP .25,-13
3390 SOUND 0,139;1,0;8,15: PAUSE 15: GO SUB 5000
3400 SOUND 0,165;1,0;8,15
3410 BEEP .25,-12
3420 SOUND 0,139;1,0;8,15: PAUSE 15: GO SUB 5000
3430 SOUND 0,209;1,0;8,15
3440 BEEP .25,-8
3450 SOUND 0,165;1,0;8,15: PAUSE 15: GO SUB 5000
3460 SOUND 0,248;1,0;8,15
3470 BEEP .25,-3
3480 SOUND 0,209;1,0;8,15: PAUSE 15: GO SUB 5000
3490 SOUND 0,39;1,1;8,15
3500 BEEP .25,-6
3510 SOUND 0,248;1,0;8,15: PAUSE 15: GO SUB 5000
3520 SOUND 0,116;1,1;8,15
3530 BEEP .25,-3
3540 SOUND 0,75;1,1;8,15: PAUSE 15: GO SUB 5000
3550 SOUND 0,57;1,1;8,15
3560 BEEP .25,0
3570 SOUND 0,39;1,1;8,15: PAUSE 15: GO SUB 5000
3580 SOUND 0,248;1,0;8,15
3590 BEEP .65,0
3600 SOUND 0,23;1,1;8,15
3610 BEEP .25,-1
3620 LET d=d+1
3630 IF d=3 THEN GO TO 3650
3640 GO TO 2820
3650 LET a=2: LET b=5
3660 GO TO 10
3680 GO TO 1080
3690 PAUSE 100
3700 GO TO 2
5000 SOUND 7,56
5010 SOUND 0,0;1,0;2,0;3,0;4,0;5,0: RETURN
9996 SAVE "Minuet" LINE 1: STOP
9998 STOP
9999 MOVE "minuet.bas",1