start tok64 d64-DzmueX
10 FORa=49152TO49406:READx:POKEa,x:b=b+x:NEXTa
12 IFb<>34013THENPRINT"{clear}fel i raster/scroll-rutin {!*5}":END
14 FORa=16384TO16423:READx:POKEa,x:c=c+x:NEXTa
16 IFc<>6109THENPRINT"{clear}fel i scroll-editorrutin {!*7}":END
20 REM * raster/scroll-rutin *
40 DATA162,0,189,247,192,157,0,193
50 DATA232,224,8,208,245,173,6,192
60 DATA201,248,208,3,76,36,192,162
70 DATA0,238,6,192,232,224,8,208
80 DATA248,76,0,192,169,0,141,6
90 DATA192,169,147,32,210,255,120,169
100 DATA108,141,20,3,169,192,141,21
110 DATA3,173,17,208,41,127,141,17
120 DATA208,169,240,141,18,208,169,129
130 DATA141,25,208,141,26,208,173,14
140 DATA220,41,254,141,14,220,173,22
150 DATA208,41,247,9,7,141,22,208
160 DATA169,255,133,251,169,194,133,252
170 DATA88,76,105,192,173,25,208,141
180 DATA25,208,198,253,16,4,169,7
190 DATA133,253,198,253,173,22,208,41
200 DATA240,5,253,141,22,208,169,56
210 DATA205,18,208,208,251,162,10,202
220 DATA208,253,160,0,185,0,194,141
230 DATA32,208,141,33,208,190,0,193
240 DATA202,208,253,200,192,185,208,236
250 DATA162,0,189,0,194,157,0,194
260 DATA173,0,194,141,0,194,232,224
270 DATA0,208,239,173,22,208,9,7
280 DATA141,22,208,165,253,208,45,168
290 DATA200,185,0,4,136,153,0,4
300 DATA169,0,153,0,216,200,192,40
310 DATA208,238,160,0,230,251,208,2
320 DATA230,252,177,251,208,11,169,0
330 DATA133,251,169,195,133,252,76,226
340 DATA192,141,39,4,76,49,234,8
350 DATA8,1,8,8,8,8,8
360 REM * scrolleditor-rutin *
370 DATA247,96,32,207,255,201,13,208
380 DATA249,96,162,0,189,0,4,157
390 DATA0,195,189,232,4,157,232,195
400 DATA189,232,5,157,232,196,189,232
410 DATA6,157,232,197,232,208,229,96
500 POKE53280,0:POKE53281,0:POKE650,255:CLR
510 PRINT"{black}{clear}{white}{space*2}raster editor.tryck a-p f{pound}r olika"
520 PRINT"{space*2}f[rger.(max 185) 'x' f{pound}r att sluta"
530 PRINT"{down}v[nta i ca 5 sek."
540 FORi=0TO184:POKE1744+i,160:POKE49664+i,0:NEXTi
550 PRINT"{up}{space*17}":PRINT"{down*2}f[rg ?"
560 GETa$:IFa$=""THEN560
570 IFa$="x"THEN650
580 IFa$=CHR$(20)THEN630
590 IFASC(a$)<65ORASC(a$)>80THEN560
600 POKE49664+a,ASC(a$)-65:POKE56016+a,ASC(a$)-65:a=a+1:PRINT"{home}"TAB(36)a"{left}{space*2}"
610 IFa>184THENPRINT"{clear}f{pound}r mycket {!*3}":FORi=0TO500:NEXTi:GOTO500
620 GOTO560
630 IFa<1THEN560
640 a=a-1:POKE49664+a,0:POKE56016+a,0:PRINT"{home}"TAB(36)a"{left}{space*2}":GOTO560
650 INPUT"{clear}start av rullning(255=ingen rullning){space*2}";s:IFs=255THEN700
660 IFs<1ORs>184THEN650
670 INPUT"{clear}slut av rullning";t
680 IFt<1ORt>184THEN670
690 POKE49323,s:POKE49326,s-1:POKE49329,s-1:POKE49332,t:POKE49336,(t-s)+1
700 PRINT"{clear}scrolldeitor.skriv din screen med"
710 PRINT"texten du ska ha i scrollen. (obs! inte"
720 PRINT"mer [n en full screen). ett '@'-tecken"
730 PRINT"avslutar."
740 PRINT"{down*4}tryck en tangent n[r du l[st klart."
750 GETc$:IFc$=""THEN750
760 PRINT"{clear}";:SYS16384:SYS16394
770 INPUT"{clear}f[rg p] scroll ";f:IFf<0ORf>15THEN770
780 POKE49361,f
790 INPUT"{clear}rad f{pound}r scrollning (0-23) ";r
800 IFr<0ORr>23THEN790
810 a=INT((1024+(r*40))/256):b=(1024+(r*40))-(a*256)
820 POKE49354,b:POKE49358,b:POKE49355,a:POKE49359,a
830 a=INT((55296+(r*40))/256):b=(55296+(r*40))-(a*256)
840 POKE49363,b:POKE49364,a
850 a=INT((1063+(r*40))/256):b=(1063+(r*40))-(a*256)
860 POKE49394,b:POKE49395,a
870 PRINT"{clear}f{pound}r att spara skriv :"
880 PRINT"poke43,0:poke44,192:poke45,0:"
890 PRINT"poke46,199:save "CHR$(34)"namn"CHR$(34)",enhet,1"
900 PRINT"{down*2}enhet=kassett(1)/disk(8)"
stop tok64
(bastext 1.0)