home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9103a.d64
/
speichersaver
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
660b
|
17 lines
1 F=F+1:PRINTCHR$(14)"[147] **** [211]PEICHERSAVER V1.0 ****"
2 PRINT" 64K [210][193][205] [211]YSTEM 38228 [194]ASIC [194]YTES FREE"
3 IFF=1THENFORA=700TO753:READB:POKEA,B:NEXT
4 PRINT"[215]ELCHE [199]ERAETENUMMER (8 O. 9) ?"
5 GETC:IFC=0THEN5
6 POKE735,C
7 PRINT"[215]ELCHER [211]PEICHERBEREICH ([196][197][218]) ?"
8 POKE19,1:INPUT"[193]NFANGSADRESSE :";D:INPUT"[197]NDADRESSE :";E
9 INPUT"[196]ATEINAME :";B$:POKE19,0
10 PRINT"[193]LLES O.K. (J/N) ?"
11 GETA$:IFA$=""THEN11
12 IFA$="N"THEN1
13 SYS700,D,E,B$
14 DATA32,253,174,32,138,173,32,247,183,133,194,132,193,32,253,174,32,138,173
15 DATA32,247,183,133,175,132,174,32,253,174,32,87,226,169,1,162,8,168,32,186
16 DATA255,169,54,133,1,32,237,245,169,55,133,1,76,123,227