100 REM *****************************
110 REM *                           *
120 REM *  HIRES-BILD VERSCHIEBUNG  *
130 REM *                           *
140 REM *****************************
150 DATA 165,001,072,169,000,133,251,133
160 DATA 253,169,032,133,254,120,169,052
170 DATA 133,001,162,032,160,000,177,251
180 DATA 145,253,200,208,249,230,252,230
190 DATA 254,202,208,240,104,133,001,088
200 DATA 096
210 FOR I=4096 TO 4136:READ A:POKE I,A:PS=PS+A:NEXT I
220 IF PS<>6115 THEN PRINT"PRUEFSUMMENFEHLER":STOP
230 FOR I=1 TO 7:PRINT"GRAFIKBILDSCHIRM:";I
240 PRINT"STARTADRESSE:"I*8192:POKE252,I*32
250 SYS 4096:GOSUB 280:PRINT""
260 POKE 53265,PEEK(53265)OR 32:POKE 53272,PEEK(53272)OR 8:GOSUB 280
270 POKE 53265,PEEK(53265)AND 223:POKE 53272,PEEK(53272)AND 247:NEXT I:END
280 FOR J=1 TO 2000:NEXT J:RETURN