home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 37 / 037.d81 / adsr_tempo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  2.1 KB  |  59 lines
  1. 10 gosub60100:clr
  2. 20 print"[147]            adsr tempo tables"
  3. 25 print"           by louis f. sander"
  4. 30 print"    this program requires a printer!"
  5. 35 print"       a - print adsr table"
  6. 40 print"       t - print tempo table"
  7. 45 print"       q - quit"
  8. 50 print"       choose a, t, or q."
  9. 55 a=peek(203):ifa<>10anda<>22anda<>62then55
  10. 60 ifa=10thengosub80:ifokthen500
  11. 65 ifa=22thengosub80:ifokthen100
  12. 70 ifa=62thengosub60000:goto50
  13. 75 goto55
  14. 80 ok=.:open15,4,15:close15:ifst=.thenok=1:return
  15. 82 print"          printer not online"
  16. 84 fora=1to2000:next:print"[145]                                      [145][145]"
  17. 86 return
  18. 100 print"[145]  printing tempo table -- please wait."
  19. 110 open4,4:cmd4:print,"note durations in milliseconds"
  20. 120 print"tempo    whole   half   quarter  eighth  sixteenth"
  21. 130 fort=1to60:printt;"   ";:ift<10thenprint" ";
  22. 140 u=19220/t:forn=0to4:d=int(u/2^n)
  23. 150 d$=right$("    "+str$(d),6)+"  "
  24. 160 printd$;:next:print:next:print#4:close4
  25. 170 print"[145]                                      [145]":goto50
  26. 500 print"[145]  printing adsr table -- please wait."
  27. 510 restore:forj=1to16:readk:cs=cs+k:next:restore
  28. 520 open4,4:cmd4:print" adsr durations in milliseconds":print
  29. 530 print"value    attack  decay  release"
  30. 540 forv=0to15:printv;"   ";:ifv<10thenprint" ";
  31. 550 readt:forn=0to2:d=t:ifnthend=3*t
  32. 560 d$=right$("    "+str$(d),6)+"  "
  33. 570 printd$;:next:print:next:print#4:close4
  34. 580 data 2,8,16,24,38,56,68,80,100,250,500,800,1000,3000,5000,8000
  35. 590 print"[145]                                      [145]":goto50
  36. 60000 print"[145]  are you sure you want to quit? (y/n)"
  37. 60010 a=peek(203):ifa<>25anda<>39then60010
  38. 60020 ifa=39thenprint"[145]                                      [145]":return
  39. 60030 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  40. 60040 ifer<>63thenend
  41. 60050 load"hello connect",8
  42. 60100 poke53280,2:poke53281,14
  43. 60110 print"[147]"chr$(142)"[213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  44. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  45. 60130 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]";
  46. 60140 fora=217to242:pokea,peek(a)or128:next
  47. 60150 print"         loadstar presents:"
  48. 60160 print"                             "
  49. 60170 print"         adsr tempo tables    "
  50. 60180 print"                              "
  51. 60190 print"         by louis f. sander   "
  52. 60200 print"                              "
  53. 60210 print"           copyright 1987     "
  54. 60220 print"                              "
  55. 60230 print"                              "
  56. 60240 print"       press space to continue."
  57. 60250 ifpeek(203)<>60then60150
  58. 60260 return
  59.