10 '*********************************************************************** 20 '* * 30 '* ADVANCED BASIC MUSIC FOR PC-DOS VERSION 1.1 * 40 '* * 50 '*********************************************************************** 60 ' 70 ' 80 ' The purpose of this program is to demonstrate the PLAY instuction. 90 ' The program was written using Advanced Basic version 1.1. It can only 100 ' been used with BASIC A1.10 (Advanced Basic) because BASIC D1.10 (Disk 110 ' Basic) does not support the PLAY instruction. 120 ' 130 ' A Quick and Dirty program by the, 131 ' Sleepy Elves 132 ' 170 CLS 171 COLOR 0,7,0 180 LOCATE 12,28 190 PRINT " MUSIC FOR YOUR PC " 191 COLOR 7,0,0 200 A$ ="O2L8AO3L4DL8DDEFL4EL8DL4DL8O2AO3DEFGAB-L2AP8" 210 B$ ="O3L8AO4L4DL8DDCO3B-L4AL8AL4AL8FL4AL8AGFEL4FL8DL4D" 220 C$ ="O3L8EL4FL8FGAB-L4AL8AO4L4DP8O3L8DEFGFEDCL2DP8L8DL2EP8L8EFGFEDCL2D" 230 PLAY "T200MNXA$;XB$;XC$;" 240 PLAY "T200MNXA$;XB$;XC$;L1D" 261 LOCATE 18,20 270 PRINT "The speaker on my PC sounds like bagpipes!" 281 COLOR 0,7,0 290 LOCATE 20,10 300 PRINT "Designed and programmed by elves in the Black Forest at night." 301 COLOR 7,0,0 310 END