home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / bud.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  22 lines
  1. 10 'BUD.BA by Tom Haskins Jul/88
  2. 20 'CLUB 100 Library 415/939-1246 bbs
  3. 30 CLS:PRINT:A$="You've Said It All":GOSUB400
  4. 40 PRINT:A$="By Steve Karmen":GOSUB400
  5. 50 PRINT:A$="Arranged for Model 100 by Tom Haskins":GOSUB400
  6. 60 READ A,B
  7. 65 IF A=0THENEND
  8. 70 SOUND A,B
  9. 75 GOTO60
  10. 400 PRINTTAB((40-(LEN(A$)))/2)A$:RETURN
  11. 500 FOR I = 1 TO X:READ A,B:SOUND A,B:NEXT I:RETURN
  12. 1000 DATA 7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,14,5586,7,6269,14,6269,7
  13. 1010 DATA 2,70,7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,7,5586,21,6269,14,6269,14,3728,7,3728,7,2,42
  14. 1020 DATA 7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,14,5586,7,6269,14,6269,7
  15. 1030 DATA 2,70,7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,7,5586,21,6269,14,6269,14,3728,7,3728,7,2,42
  16. 1040 DATA 7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,14,5586,7,6269,14,6269,7
  17. 1050 DATA 2,70,7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,7,5586,21,6269,14,6269,14,3728,7,3728,7
  18. 1060 DATA 2,42,3728,14,3516,14,3728,14,3728,7,4184,14,4184,49,4184,14,3728,14,3516,14,3516,7,3728,14,3728,49,3728,14,3516,14,3728,14,3134,7,3516,14,3516,49
  19. 1070 DATA 4184,14,3728,14,3516,14,3516,7,3728,14,3728,49,3728,14,3516,14,3134,14,2793,56,2793,14,3134,14
  20. 1080 DATA 2,42,2793,14,3516,7,4184,21,4697,14
  21. 2000 DATA 0,0
  22.