home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Supreme Volume 6 #1
/
swsii.zip
/
swsii
/
178
/
JRMUSIC.ZIP
/
BAGPIPES.BAS
< prev
next >
Wrap
BASIC Source File
|
1980-01-01
|
1KB
|
33 lines
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