Minuet in G

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