home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1995 January
/
1995-01b.d64
/
scroll64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
1KB
|
41 lines
100 data 169,40,133,38,169,0,133,40,162,128,160,132,134,39,132,41
110 data 169,16,44,24,208,240,4,134,41,132,39,162,0,160,0
120 data 177,38,145,40,200,192,40,144,247,24,165,38,105,40,133,38
130 data 144,2,230,39,24,165,40,105,40,133,40,144,2,230,41,232
140 data 224,24,144,218,169,32,160,0,145,40,200,192,40,144,249
150 data 162,23,160,5,173,18,208,205,208,3,141,208,3,176,245
160 data 44,17,208,48,240,136,16,237,142,17,208,202,224,16,176,227
170 data 162,23,173,24,208,73,16,141,24,208,142,17,208,173,136,2
180 data 73,4,141,136,2,169,145,32,210,255,169,13,76,210,255
200 for j=828 to 967
210 read x
220 t=t+x
230 poke j,x
240 next j
250 if t<>16097 then stop
280 poke 55,0:poke 56,128:clr
300 poke 53265,23
310 poke 56576,5
320 poke 53272,4
330 poke 648,128
340 print chr$(147)
350 for j=1 to 22
360 print
370 next j
380 print "this is an example";
390 sys 828
400 print "of pixel scrolling";
410 sys 828
420 print "with double buffering";
430 sys 828
440 print "i hope you like it";
450 sys 828
460 for j=1 to 1000:next j
800 poke 648,4
810 print "end!"
820 poke 53272,20
830 poke 56576,7
840 poke 53265,27
850 rem next poke optional
860 poke 55,0:poke 56,160:clr