start tok64 d64-ebqcud
10 REM *** scroll av mikael pawlo ***
20 REM ******************************
30 REM *** sys 49152 s[tter ig]ng ***
40 REM ***       rutinen          ***
50 REM ******************************
60 FORt=49152TO49346:READa:POKEt,a:NEXTt
70 INPUT"vill du ha en demonstration av rutinen";e$
75 IF e$="ja"ORe$="j"ORe$="y"ORe$="yes"THEN GOTO 80
78 END
80 FORi=0TO255:READb$:POKE49408+i,ASC(b$):NEXTi
90 POKE53280,0:POKE53281,0:PRINT"{clear}"
100 PRINT"{clear}{white}{right}scrolltext gjord av mikael pawlo 1990"
110 PRINT"{down}{orange}{right}sys 49152 s[tter ig]ng scrollen"
115 PRINT"{down}{right}texten l[gger du in p] adress $c100"
117 PRINT"{down}{right}dvs. 49408 decimalt. lycka till!"
120 SYS49152
130 GOTO130
300 DATA  169 , 0 , 141 , 255 , 63
310 DATA  141 , 253 , 192 , 141 , 254
320 DATA  192 , 141 , 255 , 192 , 162
330 DATA  0 , 173 , 134 , 2 , 157
340 DATA  152 , 219 , 232 , 224 , 40
350 DATA  208 , 248 , 120 , 169 , 129
360 DATA  141 , 26 , 208 , 169 , 127
370 DATA  141 , 13 , 220 , 173 , 22
380 DATA  208 , 41 , 247 , 141 , 22
390 DATA  208 , 169 , 89 , 141 , 20
400 DATA  3 , 169 , 192 , 141 , 21
410 DATA  3 , 88 , 96 , 120 , 169
420 DATA  240 , 141 , 26 , 208 , 32
430 DATA  163 , 253 , 169 , 200 , 141
440 DATA  22 , 208 , 169 , 27 , 141
450 DATA  17 , 208 , 169 , 49 , 141
460 DATA  20 , 3 , 169 , 234 , 141
470 DATA  21 , 3 , 88 , 96 , 173
480 DATA  254 , 192 , 208 , 59 , 173
490 DATA  255 , 192 , 141 , 22 , 208
500 DATA  206 , 255 , 192 , 16 , 32
510 DATA  169 , 7 , 141 , 255 , 192
520 DATA  162 , 0 , 189 , 153 , 7
530 DATA  157 , 152 , 7 , 232 , 224
540 DATA  39 , 208 , 245 , 238 , 253
550 DATA  192 , 172 , 253 , 192 , 185
560 DATA  0 , 193 , 41 , 63 , 141
570 DATA  191 , 7 , 173 , 25 , 208
580 DATA  141 , 25 , 208 , 169 , 16
590 DATA  141 , 18 , 208 , 206 , 254
600 DATA  192 , 208 , 27 , 173 , 25
610 DATA  208 , 141 , 25 , 208 , 169
620 DATA  234 , 141 , 18 , 208 , 169
630 DATA  27 , 141 , 17 , 208 , 238
640 DATA  254 , 192 , 173 , 22 , 208
650 DATA  41 , 248 , 141 , 22 , 208
660 DATA  173 , 13 , 220 , 41 , 1
670 DATA  240 , 3 , 76 , 49 , 234
680 DATA  76 , 188 , 254 , 0 , 0
700 REM ** text **
705 DATA " "
710 DATA"s","c","r","o","l","l","t"
720 DATA"e","x","t"," ","g","j","o"
730 DATA"r","d"," ","a","v"," ","m"
740 DATA"i","k","a","e","l"," ","p"
750 DATA"a","w","l","o"," ","1","9"
760 DATA"9","0"," ","l","[","s"," "
770 DATA"s","v","e","n","s","k","a"
780 DATA" ","h","e","m","d","a","t"
790 DATA"o","r","n","y","t","t","!"
800 DATA".",".","t","h","e"," ","b"
810 DATA"y","m","p"," ",".",".","."
820 DATA"s","k","r","i","v"," ","t"
830 DATA"i","l","l"," ","m","i","k"
840 DATA"a","e","l"," ","p","a","w"
850 DATA"l","o",",","g","[","r","d"
860 DATA"s","t","u","g","u","v","."
870 DATA"1","0",",","1","9","1","5"
880 DATA"1"," ","s","o","l","l","e"
890 DATA"n","t","u","n","a"," "," "
900 DATA"o","m"," ","n","i"," ","h"
910 DATA"a","r"," ","t","i","p","s"
920 DATA",","i","d","e","e","r",","
930 DATA"r","u","t","i","n","e","r"
940 DATA".",".","e","t","c",".","."
950 DATA"s","c","r","o","l","l","e"
960 DATA"n"," ","[","r"," ","a","n"
970 DATA"p","a","s","s","a","d"," "
980 DATA"f","{pound}","r"," ","2","5","5"
990 DATA" ","t","k","n","."," ","m"
992 DATA"e","n"," ","k","a","n"," "
993 DATA"l","[","t","t"," ","u","t"
994 DATA"{pound}","k","a","s",".",".","."
995 DATA".",".",".","."
996 DATA".",".",".",".",".",".","."
997 DATA".",".",".",".",".",".","."
998 DATA".",".",".",".",".",".","."
999 DATA".",".",".",".","."," ","@"
stop tok64
(bastext 1.0)