home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1989 February / Ahoy_Magazine_89-02_1989_Double_L.d64 / SaveM (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  619b  |  23 lines
  1. 10 rem *********************
  2. 20 rem *      savem        *
  3. 30 rem * by genco ludovico *
  4. 40 rem *********************
  5. 130 rem *************
  6. 140 rem sys 680
  7. 150 rem save"file",8,1,start,end
  8. 160 rem *************
  9. 190 data 165,20,24,105,16,141,50,3,165
  10. 200 data 21,105,0,141,51,3,96,32,253
  11. 210 data 174,32,107,169,165,20,164,21
  12. 220 data 133,193,132,194,32,253,174,32
  13. 230 data 107,169,166,20,164,21,232,208
  14. 240 data 1,200,134,174,132,175,173,50
  15. 250 data 3,24,105,55,133,34,173,51,3
  16. 260 data 105,0,133,35,169,7,32,36,171
  17. 270 data 76,237,245,158,83,65,87,69,77
  18. 280 data 154,0
  19. 290 a=0:forx=0to78:ready:poke680+x,y:a=a+y:next
  20. 300 ifa<>8032thenprint"error in data sta$ements"
  21. 310 end
  22. 320 :
  23.