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