home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 91xx / 9109a.d64 / hires-versch (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  692 b   |  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.