home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 100 / 100.d81 / toolbox linker / toolbox linker.a7ae (.txt)
Encoding:
Commodore BASIC  |  1992-01-01  |  46.9 KB  |  19 lines
  1. 5 mt=49152
  2. 6 dv=peek(186):ifdv<8thendv=8
  3. 10 sysmt+3,0,39,0,8,32,0
  4. 20 sysmt+3,5,35,3,7,160,13
  5. 30 poke199,1:poke646,13
  6. 40 sysmt+18,4,"[210]ead/[208]rint [212]oolkit [196]ocs"
  7. 50 sysmt+18,5,"[208]rint [209]uick [210]eference [195]hart"
  8. 60 sysmt+18,6,"[210]eturn [212]o [204][207][193][196][211][212][193][210]"
  9. 70 sysmt,4,6,34,3,13,1,0
  10. 80 geta$:onval(a$)goto1000,2000,3000
  11. 1000 a$="toolkit docs":goto60000
  12. 2000 a$="ref printer":goto60000
  13. 3000 a$="hello connect"
  14. 60000 sysmt+3,0,39,0,8,32,0:open15,dv,15,"r0:"+a$+"="+a$:input#15,er:close15
  15. 60010 if er<>63 thenend
  16. 60011 q$=chr$(34):poke646,peek(53281):print""
  17. 60020 print"load"q$a$q$","dv
  18. 60030 print"run":poke631,13:poke632,13:poke198,2:end
  19.