100 REM
110 REM  PROGRAMM ZUR RETTUNG VON
120 REM  AMICA PAINT BILDERN NACH
130 REM  ABSTURZ DES RECHNERS
140 REM  (Z.B. DURCH NETZSPANNUNGS-
150 REM  SCHWANKUNGEN) ODER VER-
160 REM  SEHENTLICHEM RESET.
170 REM
180 :
190 IF A=0 THEN A=1:LOAD "RET.C000",8,1
200 :
210 FOR T=1 TO 2:READ HI(T),BI(T),FA(T)
220 NEXT
230 DATA 32,248,252,208,188,184
240 :
250 INPUT "HINTERGRUNDFARBCODE (0-15)";HN
260 IF HN<0 OR HN>15 THEN 250
270 INPUT "GRAFIKSEITE (1 ODER 2)";GR
280 IF GR<1 OR GR>2 THEN 270
290 :
300 POKE 780,HI(GR)
310 POKE 781,BI(GR)
320 POKE 782,FA(GR)
330 SYS 49152
340 POKE 34576,HN
350 :
360 POKE 44,96:POKE 43,0
370 POKE 45,17:POKE 46,135
380 SAVE "[129]PIC GERETTET  ",8:SYS 64738