start tok64 d64-gdIzIF
0 a=49152:IFPEEK(a)=120ANDPEEK(a+1)=169ANDPEEK(a+2)=36THEN100
1 PRINT"{clear}{down}{space*7}v[nta, jag l[ser in data"
2 READa:IFa<>-1THENPOKE49152+t,a:PRINT"{home}{right*2}"486-t"{left} ":t=t+1:GOTO2
3 READa$:IF a$="{arrow left}"THENPOKE49728+ad,31:GOTO 100
4 FORd=1TOLEN(a$):PRINT"{home}"MID$(a$,d,1):b=PEEK(1024)
5 POKE49728+ad,b:ad=ad+1:NEXTd:GOTO3
6 GOTO100
10 DATA 120,169,36,162,192,141,20,3
11 DATA 142,21,3,169,0,141,14,220
12 DATA 169,241,141,26,208,169,48,141
13 DATA 18,208,173,17,208,41,127,141
14 DATA 17,208,88,96,32,59,192,32
15 DATA 73,192,169,1,141,25,208,169
16 DATA 241,141,26,208,32,192,193,76
17 DATA 49,234,199,174,58,192,142,22
18 DATA 208,173,18,208,201,115,208,249
19 DATA 96,162,199,142,22,208,96,160
20 DATA 0,32,88,192,136,16,250,96
21 DATA 206,58,192,174,58,192,224,191
22 DATA 240,1,96,162,199,142,58,192
23 DATA 162,4,142,125,192,142,128,192
24 DATA 162,0,142,127,192,232,142,124
25 DATA 192,162,0,189,65,5,157,64
26 DATA 5,232,224,39,208,245,24,173
27 DATA 124,192,105,40,141,124,192,144
28 DATA 3,238,125,192,24,173,127,192
29 DATA 105,40,141,127,192,144,3,238
30 DATA 128,192,24,174,128,192,224,5
31 DATA 208,207,174,127,192,224,64,208
32 DATA 200,238,145,193,174,145,193,224
33 DATA 8,208,3,76,242,192,189,0
34 DATA 194,141,39,4,24,173,194,192
35 DATA 105,40,141,194,192,144,3,238
36 DATA 195,192,24,173,191,192,105,8
37 DATA 141,191,192,173,191,192,201,64
38 DATA 208,220,169,0,141,191,192,162
39 DATA 39,169,4,142,194,192,141,195
40 DATA 192,96,162,0,142,148,193,174
41 DATA 68,194,76,122,193,162,2,24
42 DATA 46,147,193,144,3,46,148,193
43 DATA 202,16,244,174,147,193,173,148
44 DATA 193,105,208,142,28,193,141,29
45 DATA 193,162,0,173,160,208,45,146
46 DATA 193,205,146,193,208,5,169,160
47 DATA 76,45,193,169,32,157,0,194
48 DATA 78,146,193,232,224,8,208,227
49 DATA 162,128,142,146,193,24,173,28
50 DATA 193,105,1,141,28,193,144,3
51 DATA 238,29,193,24,173,46,193,105
52 DATA 8,141,46,193,173,46,193,201
53 DATA 64,208,190,162,0,142,46,193
54 DATA 162,194,142,47,193,162,0,142
55 DATA 145,193,238,248,192,173,248,192
56 DATA 201,0,208,3,238,249,192,76
57 DATA 190,192,224,31,208,13,162,64
58 DATA 160,194,142,248,192,140,249,192
59 DATA 76,242,192,142,147,193,76,253
60 DATA 192,6,128,152,0,162,51,134
61 DATA 1,32,79,192,162,55,134,1
62 DATA 96,120,162,49,160,234,142,20
63 DATA 3,140,21,3,162,1,142,14
64 DATA 220,162,240,142,26,208,162,113
65 DATA 142,25,208,96,234,234,234,234
66 DATA 162,0,169,0,157,0,216,157
67 DATA 64,216,232,208,245,76,149,193
68 DATA 162,64,160,194,142,248,192,140
69 DATA 249,192,162,63,169,32,157,0
70 DATA 194,202,16,250,76,0,192,-1
80 DATA"{space*7}{-*3} sys pd 1991 {-*3} scroll 64 by bosse mellberg {-*3} "
81 DATA"dmz #9,1987 {-*3} sys pd - the #1 for public domain {-*3} "
82 DATA"sys pd {-*3}{space*16}"
83 DATA"in sweden {-*3}{space*24}"
99 DATA"{arrow left}"
100 PRINT"{clear}{dark gray}{space*7}demo program till scroll":POKE53280,15:POKE53281,15
110 GOSUB1000
120 PRINT"{down*5}{space*2}sys49616 = scrollen b{pound}rjar"
130 PRINT"{right*13}om fr]n b{pound}rjan"
140 GOSUB1000
150 PRINT"{down}{space*2}sys49569 = scrollen stannar"
160 GOSUB1000
170 PRINT"{down}{space*2}sys49152 = scrollen s[tter ig]ng"
180 PRINT"{right*14}(ej fr]n b{pound}rjan)"
190 GOSUB1000
200 PRINT"{down}{space*5}49603 = pekare (f[rg p] scrollen)"
210 GOSUB1000
211 PRINT"{down}{space*5}49232 = hastighet (0-7)"
212 GOSUB1000
220 PRINT"{clear}{space*2}ex. :":GOSUB1000:POKE49232,3:POKE49603,1
230 PRINT"{down*11}sys49616":SYS49616:GOSUB1000
240 PRINT"{down*2}sys49569":SYS49569:GOSUB1000
250 PRINT"{down*2}sys49152":SYS49152:GOSUB1000
260 PRINT"{down*2}poke49603,0":POKE49603,0:GOSUB1000
261 PRINT"{down*2}poke49232,5":POKE49232,5:GOSUB1000
270 SYS49569
290 END
1000 FORt=0TO3000:NEXT:RETURN
2000 k=39:FORr=0TO7:z=1024+r*40+k:x=z-1
2001 IF PEEK(z)=32 THEN POKE z,42
2002 IF PEEK(x)=32 THEN POKE x,42
2003 NEXT r:GOTO 2000
stop tok64
(bastext 1.0)