start tok64 d64-qVEnBc
0 POKE53280,5:POKE53281,5:POKE16383,.
1 PRINT"{white}{down*2}{ct h}{142}{clear}{reverse on}U{sh asterisk*2}IU{sh asterisk*2}I{cm a}{sh asterisk*2}I{cm a}{sh asterisk*2}K{cm a}{sh asterisk*2}KUI U
2 PRINT"{reverse on}{sh -}{space*2}J{sh -}{space*2}J{sh -}{space*2}{sh -*2}{space*3}{sh -}{space*3}{sh -*2} {sh -}
3 PRINT"{reverse on}{sh -}{space*3}{sh -}{space*3}{sh -}{space*2}{sh -*2}{space*3}{sh -}{space*3}{sh -*2} {sh -}
4 PRINT"{reverse on}J{sh asterisk*2}I{sh -}{space*3}{cm q}{cm r}{sh asterisk}K{cm q}{sh asterisk*2} {cm q}{sh asterisk*2} {sh -}JI{sh -}{reverse off} s c r o l l e r";
5 PRINT"{reverse on}{space*3}{sh -*2}{space*3}{sh -}JI {sh -}{space*3}{sh -}{space*3}{sh -} {sh -*2}
6 PRINT"{reverse on}I{space*2}{sh -*2}{space*2}U{sh -} JI{sh -}{space*3}{sh -}{space*3}{sh -} {sh -*2}
7 PRINT"{reverse on}J{sh asterisk*2}KJ{sh asterisk*2}KK{space*2}J{cm z}{sh asterisk*2}I{cm z}{sh asterisk*2}IK JK
8 PRINT"{down*3}please{space*2}wait {.*13} reading datas
9 PRINT"{sh asterisk*40}
10 PRINT"{down}screen scroller made by anders janson.
11 PRINT"{down}this intro made by peter karlsson
12 PRINT"{down}publiced (without intro) in dmz 8/1988.
13 PRINT"{down}{sh asterisk*40}
100 GOTO160
110 :    screen scroller
120 :    ---------------
130 :
140 :  av ANDers jansON
150 :
160 bas=49152:b=bas/256:REM ** basadress                            kan andras
170 IFb=INT(b)THEN180
171 PRINT"{home}{down*10}{.*10}base address no good{.*10}{down*7}":END
180 FORi=0TO159:READa:cs=cs+a:IFa=-1THENa=b
190 POKEbas+i,a:NEXT
200 PRINT"{home}{down*10}{space*40}{up}";
230 :
240 IFcs=19605THEN370
250 PRINT"{home}{down*10}{.*10}data checksum error!{.*10}{down*7}":END
260 DATA76,18,-1,76,12,-1,76,25,-1,76,34,-1,169,198,162,255
270 DATA208,23,169,230,162,1,32,41,-1,173,17,208,41,239,141,17
280 DATA208,96,173,17,208,9,16,208,245,134,254,141,146,-1,162,0
290 DATA142,21,208,120,169,127,141,13,220,169,241,141,26,208,173,25
300 DATA208,141,25,208,169,43,141,18,208,173,17,208,41,96,133,255
310 DATA169,111,162,-1,32,103,-1,166,254,208,252,120,142,26,208,202
320 DATA142,13,220,169,49,162,234,141,20,3,142,21,3,88,96,169
330 DATA1,141,25,208,166,254,160,7,136,208,253,234,234,234,172,18
340 DATA208,136,152,41,7,9,16,141,17,208,202,208,233,5,255,141
350 DATA17,208,198,254,208,7,169,27,5,255,141,17,208,76,188,254
360 :
370 REM exempel
380 :
385 SYS bas
390 POKE16383,0:REM inga r[nder
400 POKE53280,5
410 POKE53281,5:REM gr{pound}n sk[rm
420 SYSbas+6   :REM sl[ck sk[rmen
430 PRINT"{clear}{down*2}{white}{reverse on}{space*6}screen scroller installed{space*7}"
440 PRINT"{down*2} 'screen scroller' is used by :
450 PRINT"{down}{space*2}sys base{space*3}scroll down page, turn off
455 PRINT"{space*3}( = sys"bas")
460 PRINT"{space*2}sys base+3 turn on and scroll up page
465 PRINT"{space*3}( = sys"bas+3")
470 PRINT"{space*2}sys base+6 turn screen off
475 PRINT"{space*3}( = sys"bas+6")
480 PRINT"{space*2}sys base+9 turn screen on
485 PRINT"{space*3}( = sys"bas+9")
490 PRINT"{down*2} can also be used on graphics!
500 SYS bas+3:REM scrolla upp
stop tok64
(bastext 1.0)