home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 June / 64er_Magazin_88-06_1988_Markt__Technik_de_Side_A.d64 / hires-save (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  873b  |  25 lines
  1. 100 rem*** ram save ***
  2. 110 rem *** (w) axel spoerl 2'88 ***
  3. 120 rem
  4. 130 ad=49152:rem startadresse kann beliebig geaendert werden
  5. 140 ps=0
  6. 150 for x=ad to ad+142
  7. 160 read w:ps=ps+w:poke x,w
  8. 170 next x
  9. 180 if ps<> 18777 then 200
  10. 190 end: rem hier koennte ein goto etc. stehen!
  11. 200 print"fehler in den datazeilen!!!"
  12. 210 end
  13. 220 data 32,84,226,32,253,174,32,107,169,166,20,164
  14. 230 data 21,134,172,132,173,32,253,174,32,107,169,166
  15. 240 data 20,164,21,134,174,132,175,164,183,208,5,162
  16. 250 data 8,76,55,164,169,0,133,144,169,8,32,12
  17. 260 data 237,169,241,32,185,237,165,144,16,5,162,5
  18. 270 data 76,55,164,160,0,177,187,32,221,237,200,196
  19. 280 data 183,208,246,32,254,237,169,8,32,12,237,169
  20. 290 data 97,32,185,237,165,172,32,221,237,165,173,32
  21. 300 data 221,237,32,209,252,176,21,120,162,52,134,1,160,0
  22. 310 data 177,172,162,55,134,1,88,32,221,237,32,219
  23. 320 data 252,24,144,228,32,254,237,169,8,32,12,237
  24. 330 data 169,225,32,185,237,32,254,237,96
  25.