Authors
Pub Details
Timex Sinclair User Group Newsletter: Ottawa Chapter v4 n2
Volume:
4
Issue:
2
Date
September 1987
Pages
4
See all articles from Timex Sinclair User Group Newsletter: Ottawa Chapter v4 n2
This program was taken, without modification from the December 1986 issue of Sinclair User (Hewson Helpline). It was designed for the Spectrum but works equally well on the 2068. This program will scroll one pixel at a time in any one of four directions.
Products
Media
Image Gallery
Source Code
10 FOR n=1 TO 132
20 READ a
30 POKE 32767+n, a
40 NEXT n
50 STOP
100 DATA 33,0,64,0,191
110 DATA 197,229,209,36,124
120 DATA 230,248,188,32,16
130 DATA 6,8,144,31,31
140 DATA 31,103,1,32,Ø
150 DATA 9,124,23,23,23
160 DATA 103,229,1,32,0
170 DATA 237,176,225,193,16
180 DATA 220,24,43,33,224
190 DATA 87,6,191,197,229
200 DATA 209,124,230,248,188
210 DATA 40,3,37,24,16
220 DATA 14,7,129,31,31
230 DATA 31,103,1,224,255
240 DATA 9,124,23,23,23
250 DATA 103,229,1,32,0
260 DATA 237,176,225,193,16
270 DATA 218,54,0,229,209
280 DATA 19,14,31,237,176
290 DATA 201,33,0,64,6
300 DATA 192,197,167,6,32
310 DATA 203,30,35,16,251
320 DATA 193,16,244,201,33
330 DATA 255,87,6,192,197
340 DATA 167,6,32,203,22
350 DATA 43,16,251,193,16
360 DATA 244,201
1000 FOR n=32 TO 255
1010 PRINT CHR$ n;
1020 NEXT n
1030 FOR n=1 TO 100
1040 RANDOMIZE USR 32768
1050 RANDOMIZE USR 32811
1060 RANDOMIZE USR 32864
1070 RANDOMIZE USR 32882
1080 NEXT n