home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Greatest Hits / rerun-greatest-hits-vol-i.d64 / autorun (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  957b  |  29 lines
  1. 10 print"[147]instructions on screen or printer (s,p)?";
  2. 20 geta$:d=-3*(a$="s")-4*(a$="p"):ifd=0then20
  3. 30 opend,d
  4. 40 print#d,"autorun 64 lets you convert existing
  5. 50 [152]d,"basic programs into autorun programs
  6. 60 print#d,"that will automatically run when loaded.
  7. 70 [152]d,"to convert an existing program on disk
  8. 80 print#d,"called 'test', just load & run autorun.
  9. 90 [152]d,"at the filename prompt, enter the name
  10. 100 print#d,"'test' & press return. after autorun is
  11. 110 [152]d,"finished running, you can load the new
  12. 120 print#d,"version of 'test' as follows:
  13. 125 [152]d,""
  14. 130 [152]d,"load"[199](34)"test"[199](34)",8,1
  15. 131 print#d,""
  16. 140 print#d,"it will then automatically load & run
  17. 150 [152]d,"for you.
  18. 160 print#d,""
  19. 170 close d
  20. 180 print"to run autorun, just press any key
  21. 190 [153]"now. when the program finishes loading,
  22. 200 print"it will automatically run."
  23. 210 geta$:ifa$="" then 210
  24. 211 print"[147]":poke53281,6:poke53280,14:poke646,14
  25. 220 print"load"chr$(34)"autorun"chr$(34)",8[145][145][145]"
  26. 230 a$="run"+chr$(13)
  27. 240 poke631,13:forb=1tolen(a$):poke631+b,asc(mid$(a$,b,1)):next:poke198,10
  28. 250 new
  29.