start tok64 d64-Zi1L9P
1 REM ***************************
2 REM * color extender scroller *
3 REM *    av peter svensson    *
4 REM ***************************
5 g=2
10 POKE53280,0:POKE53281,0
20 FORt=8704TO8997:READa:POKEt,a:NEXT
30 GOTO 2000
1000 DATA  162, 0  , 173, 33 , 208, 141
1010 DATA  134, 2  , 157, 0  , 216, 157
1020 DATA  0  , 217, 157, 0  , 218, 157
1030 DATA  0  , 219, 232, 208, 241, 169
1040 DATA  36 , 141, 126, 34 , 169, 0
1050 DATA  141, 125, 34 , 169, 24 , 141
1060 DATA  24 , 208, 120, 169, 51 , 133
1070 DATA  1  , 162, 0  , 189, 0  , 212
1080 DATA  157, 0  , 32 , 189, 0  , 213
1090 DATA  157, 0  , 33 , 232, 208, 241
1100 DATA  169, 55 , 133, 1  , 169, 1
1110 DATA  141, 26 , 208, 169, 127, 141
1120 DATA  13 , 220, 169, 91 , 141, 17
1130 DATA  208, 169, 16 , 141, 18 , 208
1140 DATA  169, 34 , 141, 21 , 3  , 169
1150 DATA  96 , 141, 20 , 3  , 88 , 96
1160 DATA  206, 0  , 35 , 173, 0  , 35
1170 DATA  201, 255, 208, 58 , 169, 7
1180 DATA  141, 0  , 35 , 162, 0  , 189
1190 DATA  1  , 4  , 157, 0  , 4  , 232
1200 DATA  224, 40 , 208, 245, 173, 0
1210 DATA  36 , 201, 64 , 208, 13 , 169
1220 DATA  36 , 141, 126, 34 , 169, 0
1230 DATA  141, 125, 34 , 173, 0  , 36
1240 DATA  141, 39 , 4  , 173, 125, 34
1250 DATA  24 , 105, 1  , 141, 125, 34
1260 DATA  173, 126, 34 , 105, 0  , 141
1270 DATA  126, 34 , 238, 255, 34 , 173
1280 DATA  255, 34 , 201, 4  , 208, 47
1290 DATA  169, 0  , 141, 255, 34 , 174
1300 DATA  254, 34 , 189, 1  , 35 , 141
1310 DATA  33 , 208, 189, 10 , 35 , 141
1320 DATA  34 , 208, 189, 19 , 35 , 141
1330 DATA  35 , 208, 189, 28 , 35 , 141
1340 DATA  36 , 208, 238, 254, 34 , 173
1350 DATA  254, 34 , 201, 9  , 208, 5
1360 DATA  169, 0  , 141, 254, 34 , 169
1370 DATA  48 , 205, 18 , 208, 208, 251
1380 DATA  173, 0  , 35 , 141, 22 , 208
1390 DATA  169, 58 , 205, 18 , 208, 208
1400 DATA  251, 169, 8  , 141, 22 , 208
1410 DATA  169, 1  , 141, 25 , 208, 76
1420 DATA  49 , 234, 0  , 0  , 0  , 0
1430 DATA  6  , 14 , 3  , 1  , 1  , 3
1440 DATA  14 , 6  , 10 , 2  , 0  , 2
1450 DATA  10 , 7  , 1  , 1  , 7  , 1
1460 DATA  15 , 12 , 11 , 0  , 11 , 12
1470 DATA  15 , 1  , 7  , 1  , 1  , 7
1480 DATA  13 , 5  , 0  , 5  , 13 , 0
2000 READd$
2005 FORf=1TO24
2010 POKE9216+h,ASC(MID$(d$,f,1)):h=h+1:NEXTf
2020 g=g-1:IFg=0THENSYS8704:END
2030 GOTO 2000
3000 DATA "geggin GEGGIN {ct g}{white}{ct g*2}{ct i}{ct n} {f5}{f1}{f5}"
3001 DATA "{f5}{f2}{142}{.*6}{space*6}@{space*8}"
4000 SYS 8704
stop tok64
(bastext 1.0)