home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1989 February / Ahoy_Magazine_89-02_1989_Double_L.d64 / SaveP (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  903b  |  29 lines
  1. 10 rem *********************
  2. 20 rem *      savep        *
  3. 30 rem * by genco ludovico *
  4. 130 rem *****************
  5. 140 rem sys 820
  6. 150 rem save"file",8,1,line1,line2
  7. 160 rem *****************
  8. 190 data 165,20,24,105,16,141,50,3,165
  9. 200 data 21,105,0,141,51,3,96,173,50
  10. 210 data 3,24,105,117,141,0,3,173,51,3
  11. 220 data 105,0,141,1,3,32,253,174,32
  12. 230 data 107,169,32,19,166,165,95,133
  13. 240 data 193,165,96,133,194,32,253,174
  14. 250 data 32,107,169,32,19,166,160,0,177
  15. 260 data 95,133,251,165,95,133,253,165
  16. 270 data 96,133,254,152,145,95,230,95
  17. 280 data 208,2,230,96,177,95,133,252
  18. 290 data 152,145,95,230,95,208,2,230
  19. 300 data 96,165,95,133,174,165,96,133
  20. 310 data 175,173,50,3,24,105,110,133,34
  21. 320 data 173,51,3,105,0,133,35,169,7
  22. 330 data 32,36,171,76,237,245,158,83,65
  23. 340 data 87,69,80,154,32,83,228,32,138,255
  24. 350 data 160,0,165,251,145,253,200,165
  25. 360 data 252,145,253,76,134,227
  26. 370 a=0:forx=0to152:ready:poke820+x,y:a=a+y:next
  27. 380 ifa<>17745thenprint"error in data statements"
  28. 390 end
  29.