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