home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 March / 64er_Magazin_91-03_1991_Markt__Technik_de_Side_A.d64 / speichersaver (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  660b  |  17 lines
  1. 1 f=f+1:printchr$(14)"[147]  ****    [211]peichersaver v1.0     ****"
  2. 2 print" 64k [210][193][205] [211]ystem  38228 [194]asic [194]ytes free"
  3. 3 iff=1thenfora=700to753:readb:pokea,b:next
  4. 4 print"[215]elche [199]eraetenummer (8 o. 9) ?"
  5. 5 getc:ifc=0then5
  6. 6 poke735,c
  7. 7 print"[215]elcher [211]peicherbereich ([196][197][218]) ?"
  8. 8 poke19,1:input"[193]nfangsadresse :";d:input"[197]ndadresse :";e
  9. 9 input"[196]ateiname :";b$:poke19,0
  10. 10 print"[193]lles o.k. (j/n) ?"
  11. 11 geta$:ifa$=""then11
  12. 12 ifa$="n"then1
  13. 13 sys700,d,e,b$
  14. 14 data32,253,174,32,138,173,32,247,183,133,194,132,193,32,253,174,32,138,173
  15. 15 data32,247,183,133,175,132,174,32,253,174,32,87,226,169,1,162,8,168,32,186
  16. 16 data255,169,54,133,1,32,237,245,169,55,133,1,76,123,227
  17.