home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 March / Ahoy_Magazine_88-03_1988_Double_L.d64 / Discover (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  408b  |  11 lines
  1. 1 s=700:rem *** change s to relocate
  2. 2 printchr$(147)"loading";:forj=stos+56
  3. 3 reada:pokej,a:x=x+a:print".";:nextj:print:print
  4. 4 ifx<>8392thenprint"error in data...":end
  5. 5 print"  data ok * sys"s"to activate...":end
  6. 6 data169,36,133,251,169,5,162,8,160,0,32,186
  7. 7 data255,169,1,162,251,160,0,32,189,255,32,192
  8. 8 data255,162,5,134,252,32,198,255,32,207,255,198
  9. 9 data252,16,249,32,207,255,240,5,32,210,255,208
  10. 10 data246,32,204,255,169,5,76,195,255
  11.