home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / wiltel.ba < prev    next >
Text File  |  2006-10-19  |  6KB  |  58 lines
  1. 0 'WILTEL.BA -made by Stephane Burgoyne
  2. 1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 '
  4. 3 '
  5. 4 '6.7K bytes. Takes about 12K free 
  6. 5 '     space to run
  7. 6 '
  8. 7 'You will have to wait 3 minutes for
  9. 8 '  the program to load music
  10. 9 '
  11. 10 'The variable LN controls the speed
  12. 11 '
  13. 12 'The program can also be used to
  14. 13 'convert music written for an IBM PC
  15. 14 'to play on a Model-100
  16. 15 '
  17. 16 CLS:PRINT@45,"Loading... about 3 minutes!":LN=28:DIMS%(6,14),PF%(1473),PD%(1473),PS%(1473):FORI=1TO14:READA:FORY=0TO6:S%(Y,I)=A:A=A/2:NEXTY:NEXTI:FOR I=1 TO 100: READ M$: FORJ=1TOLEN(M$):  N$=MID$(M$,J,1):  A=INSTR(1,"cdefgabpolm",N$)
  18. 17    ONAGOSUB22,22,22,22,22,22,22,22,32,33,34: NEXTJ:NEXTI
  19. 18 CLS:PRINT:PRINT"      ***    Guillaume Tell    ***":FORI=0TO1472:SOUND(PF%(I)),(LN/PD%(I)*PS%(I)/8):FORJ=1TO((8-PS%(I))*3):NEXT:NEXT:PRINT
  20. 19 PRINT@130,"Another time ";:INPUTF$:IFF$="Y"ORF$="y"THEN18
  21. 20 IFF$="N"ORF$="n"THENMENU
  22. 21 GOTO19
  23. 22 IFJ>=LEN(M$)THENLM=16:GOTO25
  24. 23 N$=MID$(M$,J+1,1):IFN$="#"THENA=A+8:J=J+1:IFJ<LEN(M$)THEN22
  25. 24 LM=16:B=INSTR(1,"123456789.",N$):ONBGOSUB26,26,26,26,26,26,26,26,26,31
  26. 25 PD%(WA)=(LM/2):PF%(WA)=(S%(O,A)):PS%(WA)=M:PRINT@138,1472-WA;:WA=WA+1:LM=16:RETURN
  27. 26 J=J+1:IFJ>=LEN(M$)THENLM=B:RETURN
  28. 27 N$=MID$(M$,J+1,1):LM=B:C=INSTR(1,"123456789.",N$):ONCGOSUB28,28,28,28,28,28,28,28,28,31:RETURN
  29. 28 LM=((B*10)+C):J=J+1:IFJ>=LEN(M$)THENRETURN
  30. 29 N$=MID$(M$,J+1,1):IFN$="."THEN31
  31. 30 RETURN
  32. 31 J=J+1:LM=LM*1.5:RETURN
  33. 32 J=J+1:N$=MID$(M$,J,1):O=VAL(N$):RETURN
  34. 33 J=J+1:N$=MID$(M$,J,1):LM=16/VAL(N$):RETURN
  35. 34 J=J+1:N$=MID$(M$,J,1):IFN$="n"THENM=7ELSEIFN$="l"THENM=8ELSEM=6
  36. 35 RETURN:DATA 18768,16736,14912,14064,12538,11172,9952,0,17732,15800,14064,13284,11836,10544:DATA "o2mnb4p8msbbmnb4p8msbbb8g#8":DATA "e8g#8b8g#8b8o3e8o2b8g#8e8g#8":DATA "b8g#8b8o3e8o2mnb4p8msbbmnb4":DATA "p8msbbmnb4p8msbbmnb4p8msbb
  37. 36 DATA "b8bbb8b8b8bbb8b8b8bb":DATA "b8b8b8bbb8b8mlb2":DATA "b2b8p8p4p4":DATA "p8mso1bbb8bbb8bbo2e8f#8g#8o1bb":DATA "b8bbo2e8g#g#f#8d#8o1b8bbb8bb":DATA "b8bbo2e8f#8g#8eg#mlb4bmsag#f#":DATA "e8g#8e8o3bbb8bbb8bbo4e8f#8
  38. 37 DATA "g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bb":DATA "b8bbb8bbo4e8f#8g#8mleg#b4":DATA "bag#f#mse8g#8e8o3g#g#g#8g#g#g#8g#g#":DATA "g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8d#8":DATA "c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8o4c#8
  39. 38 DATA "o3g#8o4c#8o3b8a#8b8a#8b8g#g#g#8g#g#":DATA "g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8":DATA "e8d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8":DATA "o3g#8o4c#8o3g#8o4c#8o3b8a#8b8o2bbb8f#f#":DATA "f#8f#f#f#8g#8a8f#4mna8msg#8mne4
  40. 39 DATA "msg#8f#8f#8f#8o3f#f#f#8f#f#f#8g#8":DATA "a8mnf#4msa8g#8mne4msg#8f#8o2bb":DATA "b8o1bbb8bbb8bbo2mne8f#8g#8o1bb":DATA "b8bbo2e8g#g#f#8d#8o1b8bbb8bb":DATA "b8bbo2e8f#8g#8eg#mlb4mnbag#f#":DATA "e8g#8e8o3bbb8bbb8bbo4e8f#8
  41. 40 DATA "g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bb":DATA "b8bbb8bbo4e8f#8g#8mleg#mlb4":DATA "mnbag#f#mne8g#8e8o3mle56f56g56a56b56o4c56d56mne8eee8e8g#4.":DATA "f#8e8d#8e8c#8mso3bo4c#o3bo4c#o3b":DATA "o4c#d#eo3abababo4c#d#o3g#ag#ag#abo4c#o3f#
  42. 41 DATA "g#f#g#f#g#f#g#f#g#f#d#o2bo3mlbo4c#d#e8d#8e8":DATA "c#8o3msbo4c#o3bo4c#o3bo4c#d#eo3abababo4c#d#o3g#":DATA "ag#ag#abo4c#o3f#g#f#g#f#af#emne8p8mlc#4":DATA "mnc#o2cmso3c#o2co3d#c#o2baag#ec#c#c#c#c#e
  43. 42 DATA "d#o1cg#g#g#g#g#g#o2c#eg#o3c#c#c#c#c#o2co3c#o2co3d#":DATA "c#o2baag#ec#c#c#c#c#ed#o1cg#g#g#g#g#mng#":DATA "o2c#eg#o3msc#ed#c#d#o2cg#g#g#o3g#ec#d#o2cg#g#g#":DATA "o3g#ec#d#o2bg#g#a#gd#d#g#gg#gg#ag#f#e
  44. 43 DATA "o1ba#bo2eo1bo2f#o1bo2g#ed#eg#eaf#bo3g#f#ed#":DATA "f#ec#o2bo3c#o2bo3c#d#ef#g#o2ababo3c#d#ef#o2g#":DATA "ag#aco3c#d#eo2f#g#f#g#f#g#f#g#f#g#f#d#o1b":DATA "co2c#d#eo1ba#bo2eo1bo2f#o1bo2g#ed#eg#eaf#b
  45. 44 DATA "o3g#f#ed#f#ec#o2bo3c#o2bo3c#d#ef#g#o2ababo3c#":DATA "d#ef#o2g#ag#abo3c#d#eo2f#o3c#o2co3c#d#c#o2af#mne":DATA "o3mlef#g#abo4c#d#mne8mseee8e8g#4.":DATA "msf8mse8d#8e8c#8o3bo4c#o3bo4c#o3bo4c#d#eo3a":DATA "bababo4c#d#o3g#ag#ag#abo4c#o3f#g#f#g#f#
  46. 45 DATA "g#f#g#f#g#f#d#o2bo3mlbo4c#d#mne8eee8e8g#4.":DATA "msf#8e8d#8e8c#8o3bo4c#o3bo4c#o3b":DATA "o4c#d#eo3abababo4c#d#o3g#ag#ag#abo4c#o3f#":DATA "g#f#g#f#ag#f#e8o2b8o3e8g#g#g#8mng#g#g#8":DATA "g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8
  47. 46 DATA "d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8":DATA "o4c#8o3g#8o4c#8o3b8a#8b8a#8b8g#g#g#8":DATA "g#g#g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8":DATA "f#8e8d#8c#8g#g#g#8g#g#g#8g#g#g#8":DATA "o4c#8o3g#8o4c#8o3g#8o4c#8o3b8a#8b8a#8b8
  48. 47 DATA "o2f#f#f#8f#f#f#8g#8a8f#4a8g#8":DATA "e4g#8f#8o0b8o1b8o2f#f#f#8f#f#f#8":DATA "g#8a8f#4a8g#8e4g#8f#8":DATA "bbb8o1bbb8bbb8bbo2e8f#8g#8":DATA "o1bbb8bbo2e8g#g#f#8d#8o1b8bbb8":DATA "bbb8bbo2e8f#8g#8eg#mlb4mnb":DATA "ag#f#e8o1b8o2e8o3bbb8bbb8bbo4e8
  49. 48 DATA "f#8g#8o3bbb8bbo4e8g#g#f#8d#8o3b8":DATA "bbb8bbb8bbo4e8f#8g#8o3eg#mlb4":DATA "mnbag#f#mlef#g#mnamlg#abo4mnc#mlo3bo4c#d#mnemld#":DATA "ef#mng#ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bmle
  50. 49 DATA "f#g#mnamlg#abmno4c#mlo3bo4c#d#mnemld#ef#mng#ao3bo4ao3bo4a":DATA "o3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bp16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16":DATA "mleo4eo3mnep16mlao4ao3mnap16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16
  51. 50 DATA "mlao4ao3mnao4go3go4go3go4go3go4go3go4msg8e8c8e8o4mng#":DATA "o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4msg#8e8o3b8o4e8mng#o3g#o4g#o3g#o4g#":DATA "o3g#o4g#o3g#o4msg#8f8c#8f8mna#o3a#o4a#o3a#o4a#o3a#o4a#o3a#o4msa#8":DATA "g8e8g8b8p16mna#p16ap16g#p16f#p16ep16
  52. 51 DATA "d#p16c#p16o3bp16a#p16ap16g#p16f#p16ep16d#p16f#mle":DATA "f#g#mnamlg#abmno4c#o3mlbo4c#d#mnemld#ef#mng#ao3bo4ao3bo4a":DATA "o3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bmlef#g#mnamlg#abmno4c#o3mlb
  53. 52 DATA "o4c#d#mnemld#ef#mng#ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4a":DATA "o3bo4ao3bp16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16mlao4ao3mnap16":DATA "mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16mlao4ao3mnao4go3go4go3go4g
  54. 53 DATA "o3go4go3go4g8e8c8e8g#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4g#8":DATA "e8o3b8o4e8g#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4msg#8mnf8c#8":DATA "f8a#o3a#o4a#o3a#o4a#o3a#o4a#o3a#o4a#8g8e8g8b8":DATA "p16a#p16ap16g#p16f#p16ep16d#p16c#p16o3bp16a#p16
  55. 54 DATA "ap16g#p16f#p16ep16d#p16fmled#ed#mne8bbb8":DATA "bbb8bbo4e8f#8g#8o3bbb8bbb8":DATA "bbo4g#8a8b8p8e8f#8g#8p8o3g#8":DATA "a8b8p8p2o2bco3c#dd#":DATA "eff#gg#aa#bco4c#d#ed#f#d#ed#f#d#e":DATA "d#f#d#ed#f#d#ed#f#d#ed#f#d#ed#f#d#e
  56. 55 DATA "d#f#d#e8eo3eo4eo3eo4eo3eo4e8o3bo2bo3bo2bo3bo2bo3b8":DATA "g#o2g#o3g#o2g#o3g#o2g#o3g8eo2eo3eo2eo3eo2eo3e8eee8":DATA "e8e8o2bbb8b8b8g#g#g#8g#8g#8":DATA "eee8e8e8o1b8o2e8o1b8o2g#8e8b8":DATA "g#8o3e8o2b8o3e8o2b8o3g#8e8b8g#8o4e4
  57. 56 DATA "p8eee8e8e8e8e4p8.":DATA "ee4p8.o2ee2":'** DONE **
  58.