1 REM******      SAVER      ******
2 REM
3 REM     VON: HANS HABERL
4 REM          BAHNHOFSTR. 3
5 REM          8018 GRAFING
6 REM
10 DATA198,1,169,96,141,123,129,162,2,32,201,255,162,97,160,0,185,159,127
20 DATA32,210,255,200,202,208,246,169,0,133,253,169,128,133,254,162,64,160
30 DATA0,177,253,32,210,255,200,208,248,230,254,202,208,243,185,77,198,32
40 DATA210,255,200,208,247,32,204,255,230,1,96,1,8,13,8,191,7,158,40,50
50 DATA48,54,51,41,0,0,0,120,169,96,133,252,169,8,133,253,169,0,133,254
60 DATA169,128,133,255,162,64,32,69,8,32,10,128,169,169,141,123,129,169
70 DATA96,133,252,169,72,133,253,169,77,133,254,169,198,133,255,162,1,32
80 DATA69,8,76,123,129,160,0,177,252,145,254,136,208,249,230,253,230,255
90 DATA202,208,242,96,0,0,0,0,0,0,0,0,0,0
100 POKE56,112:CLR
110 FORI=32605TO32767:READA:S=S+A
120 POKEI,A:NEXTI
130 IFS<>21569THENPRINT"FEHLER IN DATAS":GOTO200
140 INPUT"NAME DER NEUEN VERSION";N$
150 OPEN15,8,15:OPEN2,8,2,N$+",P,W"
160 GOSUB170:SYS32605:CLOSE2:GOSUB170:CLOSE15:GOTO200
170 INPUT#15,A,B$,C,D:PRINTA;B$;C;D
180 IFA>0THENCLOSE2:CLOSE15:GOTO200
190 RETURN
200 POKE56,128:CLR:END