home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9103a.d64 / speichersaver (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.