home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 37
/
64er_Magazin_Sonderheft_37_19xx_Markt__Technik_de_Disk_1_of_2_Side_A.d64
/
bildretter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
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