home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_09_1986_Transactor_Publishing.d64 / tb sampler.run (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.3 KB  |  44 lines
  1. 100 if b goto 160
  2. 110 q$=chr$(34): printchr$(14);
  3. 120 b=1: input "[147][201]nstructions (y/n)   y[157][157][157]";yn$
  4. 130 if yn$="y" goto 300
  5. 140 if peek(773)<192 goto 160
  6. 150 _a
  7. 160 d$=mid$(str$(peek(186)),2): if a goto 180
  8. 170 a=1: print"loading 'use' code" : load "tb/use.obj",val(d$),1
  9. 180 sys 49152
  10. 190 b$=q$+"symass 3.13"+q$
  11. 200 print "[147]load " b$ "," d$
  12. 210 print"run
  13. 220 a$[178]q$[170]"tb/kernel"[170]q$
  14. 230 [153] "load " a$ "," d$ ""
  15. 240 [153] "(NULL)ow enter: (NULL)(NULL)val"q$"[module name]"q$
  16. 245 [153] "(see directory for module names)
  17. 250 print "[215]hen finished enter "q$"[210][213][206]"q$""
  18. 260 poke 198,8
  19. 270 forj=631to633: pokej,13: next
  20. 280 forj=634to638: pokej,17: next
  21. 290 end
  22. 300 print "[147][212]rans[194][193][211][201][195] [211]ampler
  23. 310 [153]
  24. 320 [153] "(NULL)his (NULL)ransactor str$isk contains the
  25. 330 print "[212]rans[194][193][211][201][195] modules that were published
  26. 340 [153] "in the corresponding (NULL)ransactor
  27. 350 print "[205]agazine. [205]ost modules contain more
  28. 360 [153] "than one command. (NULL)o try the commands
  29. 370 print "in a module, type:": print
  30. 380 print "[213][211][197]"chr$(34)"module name"chr$(34)",device#":print
  31. 390 print "[212]he device# defaults to the last one
  32. 400 [153] "one used. (NULL)ou may (NULL)(NULL)val as many modules
  33. 410 print "as memory will allow. [215]hen finished,
  34. 420 [153] "enter '(NULL)(NULL)(NULL)' and the commands will be
  35. 430 print "added to [194][193][211][201][195]. [217]ou can then include
  36. 440 [153] "the new commands as part of your peekatn(NULL)right$len
  37. 450 print "programs. [198]or more details, see the
  38. 460 [153] "(NULL)ranspeekatn(NULL)right$len right$right$ (NULL)anual (see order card in
  39. 470 print "any [212]ransactor)
  40. 480 [153]
  41. 490 [133] "(NULL)roceed (y/n)   ycmdcmdcmd";yn$
  42. 500 [139] yn$[178]"y" [137] 140
  43. 510 b[178]0: [128]
  44.