home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 9 / 64er_Magazin_Sonderheft_09_86-09_1986_Markt__Technik_de_Side_A.d64 / load_save.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  38 lines
  1. 100 rem *******************************
  2. 110 rem * load mit startadresse       *
  3. 120 rem * save mit start-/endadresse  *
  4. 130 rem * written by michael moeller  *
  5. 140 rem *******************************
  6. 150 :
  7. 160 rem * einlesen *
  8. 170 fori=694to767
  9. 180 : reada:pokei,a:s=s+a
  10. 190 next
  11. 200 :
  12. 210 rem * pruefen *
  13. 220 p=8494
  14. 230 ifs=pthen270
  15. 240 print" datafehler!":print" summe ist: "s:print" summe soll:"p:end
  16. 250 :
  17. 260 rem *initialisieren *
  18. 270 sys694
  19. 280 :
  20. 290 rem * programm speichern *
  21. 300 save"load/save.obj",8,0,694,768
  22. 310 :
  23. 320 rem * erklaerungen *
  24. 330 print:print"folgende befehle stehen zur verfuegung:":print
  25. 340 print"save"chr$(34)"name"chr$(34)",8"tab(27)"- basic-save"
  26. 350 print"save"chr$(34)"name"chr$(34)",8,0,start,ende  - save frei"
  27. 360 print:print"load"chr$(34)"name"chr$(34)",8"tab(27)"- basic-load"
  28. 370 print"load"chr$(34)"name"chr$(34)",8,1"tab(27)"- load abs."
  29. 380 print"load"chr$(34)"name"chr$(34)",8,1,start"tab(27)"- load frei"
  30. 390 print:print"fuer >start< und >ende< koennen auch"
  31. 400 print"variablen stehen.":end
  32. 410 :
  33. 420 rem * datas *
  34. 430 data169,213,162,2,141,48,3,142,49,3,169,234,162,2,141,50,3,142,51,3,96
  35. 440 data32,253,174,32,138,173,32,247,183,96,32,121,0,240,11,32,203,2,132,195
  36. 450 data133,196,169,0,133,185,165,10,76,165,244,32,121,0,240,14,32,203,2,132
  37. 460 data193,133,194,32,203,2,132,174,133,175,76,237,245
  38.