home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 September / 64er_Magazin_91-09_1991_Markt__Technik_de_Side_A.d64 / hires-versch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  692b  |  20 lines
  1. 100 rem *****************************
  2. 110 rem *                           *
  3. 120 rem *  hires-bild verschiebung  *
  4. 130 rem *                           *
  5. 140 rem *****************************
  6. 150 data 165,001,072,169,000,133,251,133
  7. 160 data 253,169,032,133,254,120,169,052
  8. 170 data 133,001,162,032,160,000,177,251
  9. 180 data 145,253,200,208,249,230,252,230
  10. 190 data 254,202,208,240,104,133,001,088
  11. 200 data 096
  12. 210 for i=4096 to 4136:read a:poke i,a:ps=ps+a:next i
  13. 220 if ps<>6115 then print"pruefsummenfehler":stop
  14. 230 for i=1 to 7:print"grafikbildschirm:";i
  15. 240 print"startadresse:"i*8192:poke252,i*32
  16. 250 sys 4096:gosub 280:print""
  17. 260 poke 53265,peek(53265)or 32:poke 53272,peek(53272)or 8:gosub 280
  18. 270 poke 53265,peek(53265)and 223:poke 53272,peek(53272)and 247:next i:end
  19. 280 for j=1 to 2000:next j:return
  20.