home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 178 / JRMUSIC.ZIP / BAGPIPES.BAS < prev    next >
BASIC Source File  |  1980-01-01  |  1KB  |  33 lines
  1. 10   '***********************************************************************
  2. 20   '*                                                                     *
  3. 30   '*            ADVANCED BASIC MUSIC FOR PC-DOS VERSION 1.1              *
  4. 40   '*                                                                     *
  5. 50   '***********************************************************************
  6. 60   '
  7. 70   '
  8. 80   '     The purpose of this program is to demonstrate the PLAY instuction.
  9. 90   ' The program was written using Advanced Basic version 1.1.  It can only
  10. 100  ' been used with BASIC A1.10 (Advanced Basic) because BASIC D1.10 (Disk
  11. 110  ' Basic) does not support the PLAY instruction.
  12. 120  '
  13. 130  '                            A Quick and Dirty program by the,
  14. 131  '                            Sleepy Elves
  15. 132  '
  16. 170 CLS
  17. 171 COLOR 0,7,0
  18. 180 LOCATE 12,28
  19. 190 PRINT " MUSIC FOR YOUR PC "
  20. 191 COLOR 7,0,0
  21. 200 A$ ="O2L8AO3L4DL8DDEFL4EL8DL4DL8O2AO3DEFGAB-L2AP8"
  22. 210 B$ ="O3L8AO4L4DL8DDCO3B-L4AL8AL4AL8FL4AL8AGFEL4FL8DL4D"
  23. 220 C$ ="O3L8EL4FL8FGAB-L4AL8AO4L4DP8O3L8DEFGFEDCL2DP8L8DL2EP8L8EFGFEDCL2D"
  24. 230 PLAY "T200MNXA$;XB$;XC$;"
  25. 240 PLAY "T200MNXA$;XB$;XC$;L1D"
  26. 261 LOCATE 18,20
  27. 270 PRINT "The speaker on my PC sounds like bagpipes!"
  28. 281 COLOR 0,7,0
  29. 290 LOCATE 20,10
  30. 300 PRINT "Designed and programmed by elves in the Black Forest at night."
  31. 301 COLOR 7,0,0
  32. 310 END
  33.