home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-09_1988_-_de_Side_B.d64 / autostart (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  40 lines
  1. 10 poke53280,0:poke53281,0
  2. 20 printchr$(8)chr$(14)chr$(154)
  3. 30 printchr$(147)chr$(18)" autostartgenerator (c) 1987 [212]. [196]idden  "
  4. 40 print" [196]ieses [208]rogramm stattet jedes [208]rogramm
  5. 50 [153]" ( peekasic oder (NULL)p ) mit einem atnutostart
  6. 60 print" aus. [193]uf [215]unsch werden die 'run/stop'
  7. 70 [153]" und 'restore'-(NULL)aste abgeschaltet.
  8. 80 print" [196]as [193]utostartprogramm ist dabei
  9. 90 [153]" nur unwesentlich ( 97 byte )
  10. 100 print" laenger als das [207]riginalprogramm.":print
  11. 110 input" alter [208]rogrammname ";pa$
  12. 120 input" neuer [208]rogrammname ";pn$
  13. 130 input" r/s + restore aus    j[157][157][157]";j$
  14. 140 ifpa$=""orpn$=""thenend
  15. 150 j1=49:j2=71
  16. 160 ifj$="j"thenj1=52:j2=193
  17. 170 fori=1to77:reada:a$=a$+chr$(a):next
  18. 180 :a$=a$+chr$(j1)
  19. 190 fori=1to3:reada:a$=a$+chr$(a):next
  20. 200 :a$=a$+chr$(j2)
  21. 210 fori=1to17:reada:a$=a$+chr$(a):next
  22. 220 :
  23. 230 open15,8,15
  24. 240 open1,8,1,"zw,p"
  25. 250 print#1,a$;
  26. 260 close1
  27. 270 print#15,"c:"+pn$+"=zw,"+pa$
  28. 280 print#15,"s:zw"
  29. 290 close15
  30. 300 end
  31. 49999 rem autostartprogramm                       in data-statements
  32. 50000 data  201,  2
  33. 50010 data  141, 41,  3, 76,237,246,162, 87,160,241,142, 36,  3,140, 37,  3
  34. 50020 data  165,196,201,  8,240,  3,108,195,  0,169,  0, 32,144,255, 32, 89
  35. 50030 data  166, 76,174,167, 32, 19,238,133,174,133,195, 32, 19,238,133,175
  36. 50040 data  133,196,169,246, 76,201,  2,139,227,131,164,124,165, 26,167,228
  37. 50050 data  167,134,174, 60,  5,176, 49, 76, 72,178,  0
  38. 50060 data 234,102,254
  39. 50070 data  254, 74,243,145,242, 14,242, 80,242, 51,243,207,  2,202,241,237,  2
  40.