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 >
Commodore BASIC  |  2022-10-26  |  605b  |  30 lines
  1. 100 rem
  2. 110 rem  programm zur rettung von
  3. 120 rem  amica paint bildern nach
  4. 130 rem  absturz des rechners
  5. 140 rem  (z.b. durch netzspannungs-
  6. 150 rem  schwankungen) oder ver-
  7. 160 rem  sehentlichem reset.
  8. 170 rem
  9. 180 :
  10. 190 if a=0 then a=1:load "ret.c000",8,1
  11. 200 :
  12. 210 for t=1 to 2:read hi(t),bi(t),fa(t)
  13. 220 next
  14. 230 data 32,248,252,208,188,184
  15. 240 :
  16. 250 input "hintergrundfarbcode (0-15)";hn
  17. 260 if hn<0 or hn>15 then 250
  18. 270 input "grafikseite (1 oder 2)";gr
  19. 280 if gr<1 or gr>2 then 270
  20. 290 :
  21. 300 poke 780,hi(gr)
  22. 310 poke 781,bi(gr)
  23. 320 poke 782,fa(gr)
  24. 330 sys 49152
  25. 340 poke 34576,hn
  26. 350 :
  27. 360 poke 44,96:poke 43,0
  28. 370 poke 45,17:poke 46,135
  29. 380 save "[129]pic gerettet  ",8:sys 64738
  30.