home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / auto-save (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  1.2 KB  |  48 lines
  1. 1 rem  ********************************
  2. 2 rem  *                              *
  3. 3 rem  *          auto - save         *
  4. 4 rem  *                              *
  5. 5 rem  *      1985 by manfred lins    *
  6. 6 rem  *              reitacker 1     *
  7. 7 rem  *         6492 zuentersbach    *
  8. 8 rem  *                              *
  9. 9 rem  ********************************
  10. 10 :
  11. 11 :
  12. 12 rem  maschinen-programm nachladen
  13. 13 if r=0 then r=1:load"save-obj",8,1
  14. 14 :
  15. 16 print chr$(147)chr$(18)"             auto - save                "
  16. 19 print:print:print
  17. 21 :
  18. 22 rem  name eingeben
  19. 23 print"  programmnamen (max. 16 zeichen) ein-"
  20. 24 print"  geben :"
  21. 25 :
  22. 26 s=10:z=6:gosub 62
  23. 27 if a$="" or left$(a$,1)=" " then 26
  24. 28 :
  25. 29 rem  namen und laenge abspeichern
  26. 30 n$="s:"+left$(a$,16):l=len(n$)
  27. 31 poke 49365,l-2:poke 49366,l
  28. 32 :
  29. 33 for i=1 to l:poke 49366+i,asc(mid$(n$,i,1)):next i
  30. 36 print:print
  31. 39 rem  intervall eingeben
  32. 40 print"  abspeicher-intervall (256 byte = 1)"
  33. 41 print"  eingeben :"
  34. 43 s=13:z=10:gosub 62
  35. 46 rem  intervall abspeichern
  36. 47 i=val(a$):if i<1 then i=1
  37. 48 poke 49363,8+i:poke 49364,i
  38. 51 rem maschinenprogramm initialisieren
  39. 52 sys 49152
  40. 53 :
  41. 54 rem  ladeprogramm loeschen
  42. 55 new:end
  43. 60 rem  unterprogramm stringeingabe
  44. 62 print chr$(144):open 1,0
  45. 63 poke 214,z:poke 211,s:sys 58640
  46. 64 input#1,a$
  47. 65 close 1:print chr$(154):return
  48.