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