home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 February / 1993-02.d64 / autorun (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  774b  |  27 lines
  1. 0 clr
  2. 10 s=49152:v1=s+25:v2=s+67
  3. 20 h1=int(v1/256):l1=v1-(256*h1)
  4. 30 h2=int(v2/256):l2=v2-(256*h2)
  5. 40 for i=0 to 93:read d:poke s+i,d:c=c+d:next
  6. 50 if c<>7825 then print "error in data statements":end
  7. 60 poke s+14,l1:poke s+19,h1
  8. 70 poke s+26,l2:poke s+28,h2
  9. 80 sys s:print "auto-run is ready."
  10. 90 end
  11. 100 data 173,24,3,141,252,3
  12. 110 data 173,25,3,141,253,3
  13. 120 data 120,169,25,141,24,3
  14. 130 data 169,192,141,25,3,88
  15. 140 data 96,169,67,160,192,32
  16. 150 data 30,171,169,13,141,119
  17. 160 data 2,141,124,2,169,82
  18. 170 data 141,120,2,169,85,141
  19. 180 data 121,2,169,78,141,122
  20. 190 data 2,169,58,141,123,2
  21. 200 data 169,6,133,198,108,252
  22. 210 data 3,76,79,65,68,29
  23. 220 data 29,29,29,29,29,29
  24. 230 data 29,29,29,29,29,29
  25. 240 data 29,29,29,29,29,29
  26. 250 data 44,56,58,0
  27.