start tok64 d64-Io9DQw
10 REM ******************
20 REM *                *
30 REM * jumping scroll *
40 REM *                *
50 REM ******************
60 REM
70 REM ob. computer 4/1988
80 REM
100 FORa=49152TO49579:READx:POKEa,x:NEXT
110 DATA169,0,141,14,220,120,169,0,141,32,208,141,33,208,234,234,234,234,234,169
120 DATA102,133,59,169,193,133,60,32,54,192,173,1,220,201,239,208,249,32,138,255
130 DATA32,129,255,169,1,141,14,220,169,27,141,17,208,96,120,169,1,141,26,208,169
140 DATA127,141,13,220,169,77,141,20,3,169,192,141,21,3,88,96,169,1,141,25,208
150 DATA174,100,193,173,18,208,168,41,7,9,24,204,18,208,240,251,141,17,208,202
160 DATA208,237,173,99,193,141,22,208,173,18,208,24,105,15,205,18,208,208,251,169
170 DATA56,237,100,193,170,169,200,141,22,208,173,18,208,168,41,7,9,24,204,18,208
180 DATA240,251,141,17,208,202,208,237,169,27,141,17,208,169,105,141,18,208,32
190 DATA17,193,32,44,193,76,129,234,50,45,40,36,32,28,25,21,18,15,13,10,8,7,5,4
200 DATA2,2,1,1,1,1,1,2,2,4,5,7,8,10,13,15,18,21,25,28,32,36,40,45,49,255,173,64
210 DATA217,141,81,3,173,223,217,141,82,3,173,7,218,141,83,3,162,40,189,182,217
220 DATA157,183,217,189,223,217,157,224,217,189,23,217,157,24,217,234,202,208,234
230 DATA173,81,3,141,24,217,173,82,3,141,185,217,173,83,3,141,225,217,96,174,101
240 DATA193,189,170,192,201,255,208,8,162,0,142,101,193,76,20,193,141,100,193,238
250 DATA101,193,76,212,192,173,99,193,56,233,2,41,7,141,99,193,144,1,96,162,0,189
260 DATA25,5,157,24,5,232,224,39,208,245,160,0,177,59,201,0,208,10,169,101,133
270 DATA59,169,193,133,60,208,242,141,63,5,230,59,208,2,230,60,96,6,13,11,63,33
280 DATA4,9,19,11,19,25,14,4,18,15,14,7,32,13,1,12,6,21,14,3,20,9,15,14,32,2,1
290 DATA20,3,8,32,5,18,18,15,18,32,58,32,9,3,32,18,21,14,32,19,21,3,11,19,33,33
300 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,0,0
310 POKE53280,0:POKE53281,0:PRINT"{white}{clear}{yellow}{down}sys pd 1991
320 SYS49152
49322 - 49362 = scroll VALues (1-50)
49510 - ..... = scrolltext (scr.codes)
stop tok64
(bastext 1.0)