home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh5x
/
sh55a.d64
/
bildretter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
605b
|
30 lines
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