home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 47 / 64er_Magazin_Sonderheft_47_19xx_Markt__Technik_de_Side_B.d64 / schreib.patch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  861b  |  41 lines
  1. 100 :
  2. 110 rem  patch by heusler/pd/da 1988
  3. 120 :
  4. 130 if peek (49152) + peek (50160) <> 169 then load "m-schreib",8,8
  5. 140 :
  6. 150 fori=.to69:readq:s=s+q:next
  7. 160 if s<>10226 then print "fehler in den data-zeilen!":end
  8. 170 :
  9. 180 restore
  10. 190 :
  11. 200 for x=50792 to 50824:read a:poke x,a:next x
  12. 210 data 169,1,162,4,172,198,195,32,186,255,169,,32,189,255,32,192,255,162
  13. 220 data 1,32,201,255,96,32,204,255,169,1,32,195,255,96
  14. 230 :
  15. 240 for x=50160 to 50170:read a:poke x,a:next x
  16. 250 data 32,104,198,234,234,234,234,234,234,234,234
  17. 260 :
  18. 270 poke 50238,32
  19. 280 poke 50239,128
  20. 290 poke 50240,198
  21. 300 :
  22. 310 for x=50335 to 50345:read a:poke x,a:next x
  23. 320 data 32,104,198,234,234,234,234,234,234,234,234
  24. 330 :
  25. 340 poke 50529,32
  26. 350 poke 50530,128
  27. 360 poke 50531,198
  28. 370 :
  29. 380 for x=49760 to 49774:read a:poke x,a:next x
  30. 390 data 240,4,176,3,9,64,96,201,63,176,1,96,9,96,96
  31. 400 :
  32. 410 sys 57812"m-schreib2",8
  33. 420 poke 174,137
  34. 430 poke 175,198
  35. 440 poke 193,0
  36. 450 poke 194,192
  37. 460 sys 62957
  38. 470 :
  39. 480 end
  40. 490 :
  41.