home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 153 / 153.d81 / b.soundmeister (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  677b  |  25 lines
  1. 10 gosub60000:dv=peek(186):ifdv<8thendv=8
  2. 20 poke4096,0:poke44,16:poke43,1
  3. 30 print"[144]load"chr$(34)"sound demo"chr$(34)","dv
  4. 40 print"run"
  5. 50 poke631,13:poke632,13:poke198,2:end
  6. 60 :
  7. 10000 dv=peek(186):n$="b.soundmeister"
  8. 10010 open15,dv,15,"s0:"+n$:close15:saven$,dv:end
  9. 60000 poke53281,.:poke53280,.:print"[147]":
  10. 60010 poke214,8:print
  11. 60020 print"[162][162]"tab(37)"[162][162]"
  12. 60030 print"[152]  "tab(37)"  "
  13. 60040 fori=.to11:print"[152]  [155][165]                                [167][152]  ":next
  14. 60050 print"[152]  "tab(37)"  "
  15. 60060 print"[162][162]"tab(37)"[162][162]";
  16. 60070 poke214,11:print
  17. 60080 fori=.to5:reada$:printtab(20-len(a$)/2)"[155]"a$:next:return
  18. 60090 :
  19. 60100 data "[211][207][213][206][196][205][197][201][211][212][197][210] [196][197][205][207]"
  20. 60110 data "by [194]ob [205]arkland"
  21. 60120 data "(c) 1997 by [202] & [198] [208]ublishing"
  22. 60130 data "[212]his program is not shareware
  23. 60160 [131] "or in the public domain."
  24. 60170 [131] "1-800-594-3370 or 1-318-221-8718
  25.