home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 November / Ahoy_Magazine_87-11_1987_Double_L.d64 / Scroll-a-Matic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  900b  |  21 lines
  1. 2 printchr$(147)" loading data ";
  2. 4 s=53000:rem *** change s to relocate ***
  3. 6 forj=stos+167:reada:pokej,a:x=x+a:printchr$(42);:nextj:print:print
  4. 8 ifx<>22661thenprint"error in data...":end
  5. 10 print"data ok *** sys"s"to activate..."
  6. 12 b=int(s/256):pokes+1,s-(b*256)+13:pokes+3,b:end
  7. 14 data169,21,162,207,120,141,143,2,142,144,2,88
  8. 16 data96,173,141,2,201,1,208,40,165,212,208,36
  9. 18 data165,216,208,32,165,207,208,28,165,203,166,2
  10. 20 data133,2,201,4,240,21,201,5,240,25,201,6
  11. 22 data240,13,201,3,208,6,32,234,232,32,240,233
  12. 24 data76,72,235,228,2,240,249,201,6,240,239,169
  13. 26 data152,162,7,160,219,133,251,133,253,134,252,132
  14. 28 data254,169,192,133,63,133,65,134,64,132,66,160
  15. 30 data39,177,251,145,63,177,253,145,65,136,16,245
  16. 32 data165,251,56,233,40,133,251,165,253,56,233,40
  17. 34 data133,253,176,4,198,252,198,254,165,63,56,233
  18. 36 data40,133,63,165,65,56,233,40,133,65,176,4
  19. 38 data198,64,198,66,165,252,201,4,176,197,169,32
  20. 40 data160,39,153,0,4,136,16,250,76,72,235,0
  21.