start tok64 d64-sxTOH8
10 v=53248:POKE56,59:POKE55,0
20 POKE53281,6:POKE53280,6
25 FORx=0TO369:READy:POKE40520+x,y:NEXTx
30 GOSUB210:GOSUB310
40 FORa=0TO62:POKE15360+a,0:NEXTa
50 POKEv+21,15:FORa=0TO3:POKEv+39+a,0
55 POKE2040+a,240:NEXT
60 POKEv+16,15:POKEv,0:POKEv+2,0:POKEv+4,60:POKEv+6,30
70 POKEv+1,150:POKEv+3,200:POKEv+5,200:POKEv+7,150
80 POKEv+29,2+8:POKEv+23,4+8
90 x=1:y=1:GOTO170
100 js=56320:GETa$:IFa$=""ANDPEEK(js)=127GOTO100
110 POKE1104+40*y+x,d:js=127-PEEK(56320)
120 IFjs=1ORjs=17THENGOSUB620
125 IFjs=2ORjs=18THENGOSUB630
130 IFjs=4ORjs=20THENGOSUB640
135 IFjs=5ORjs=21THENGOSUB640:GOSUB620
140 IFjs=6ORjs=22THENGOSUB630:GOSUB640
145 IFjs=8ORjs=24THENGOSUB650
150 IFjs=9ORjs=25THENGOSUB620:GOSUB650
152 IFjs=10ORjs=26THENGOSUB630:GOSUB650
155 z=22-y:xa=INT(x/10):xb=x-10*xa:ya=INT(z/10):yb=z-10*ya
156 POKE2013,xa+48:POKE2014,xb+48:POKE2018,ya+48:POKE2019,yb+48
160 IFPEEK(203)<>64THENGOSUB560
170 d=PEEK(1104+40*y+x)
180 ma=42:IFjs>15THENma=128+42:GOSUB320
190 POKE1104+40*y+x,ma
200 GOTO100
210 PRINTCHR$(14)CHR$(8)"{clear}{yellow}";TAB(4);"Sprite Editor 64s"
220 PRINTTAB(4);"{cm t*17}"
230 PRINT"{white} {cm p*24}"
240 FORa=0TO20:PRINT"{cm m}{space*24}{cm g}":NEXT
250 PRINT" {cm y*24}{yellow}{space*2}x={space*3}y={space*2}{home}"
260 PRINT"{home}{yellow}"TAB(27);"{reverse on}Joyst.2{reverse off}{space*2}Rita"
265 PRINTTAB(27);"{reverse on}^{reverse off}{right}{reverse on}{arrow left}{reverse off}{space*4}Spegel"
267 PRINTTAB(27);"{reverse on}crsr{reverse off}{space*3}Flytta"
270 PRINTTAB(27);"{reverse on}F1{reverse off}{space*7}Data"
275 PRINTTAB(27);"{reverse on}F3{reverse off}{space*7}Fil{down}"
280 PRINTTAB(27);"{reverse on}Clr/Home{reverse off} T{pound}m"
300 RETURN
310 FORa=0TO62:POKE15360+a,0:NEXTa:RETURN
320 i=32:IFd=32THENi=160
330 d=i:f=INT((x-1)/8):e=PEEK(15357+3*y+f):g=8*(f+1)-x:h=eOR2^g
340 IFd=32THENh=e-2^g
350 POKE15357+3*y+f,h
360 RETURN
370 x=1:y=1:d=32:GOSUB210:GOSUB310:RETURN
380 PRINT"{clear}":FORa=0TO20
390 FORb=0TO2
400 PRINTPEEK(15360+a*3+b);
410 IFb<2THENPRINT",";
420 NEXTb:PRINT:NEXTa
425 IFPEEK(203)=64THEN425
426 RETURN
430 PRINT"{clear}":INPUT"filnamn";fil$
431 POKE40500,LEN(fil$)
432 FORx=1TOLEN(fil$):POKE40500+x,ASC(MID$(fil$,x,1)):NEXTx
435 PRINT"{down}ladda eller spara?"
440 GETa$:IFa$=""GOTO440
445 IFa$="l"GOTO500
450 IFa$<>"s"THENRETURN
455 OPEN15,8,15,"s:"+fil$:CLOSE15
460 POKE251,0:POKE252,60:POKE253,63:POKE254,60
470 POKE40540,0:POKE40545,251:SYS40520:SYS40551:SYS40563:RETURN
500 POKE253,0:POKE254,0:POKE40540,1:POKE40545,0:SYS40520:SYS40555:SYS40563:RETURN
560 IFa$="{clear}"ORa$="{home}"THENGOSUB370
561 IFa$="{down}"THENSYS40798:SYS40577
562 IFa$="{up}"THENSYS40824:SYS40577
563 IFa$="{right}"THENSYS40852:SYS40577
564 IFa$="{left}"THENSYS40872:SYS40577
565 IFa$=CHR$(133)THENGOSUB380:GOSUB210:SYS40577
566 IFa$=CHR$(134)THENGOSUB430:GOSUB210:SYS40577
567 IFa$="{arrow left}"THENSYS40645:SYS40577
568 IFa$="^"THENSYS40730:SYS40577
600 RETURN
620 y=y-1:IFy<1THENy=21
625 RETURN
630 y=y+1:IFy>21THENy=1
635 RETURN
640 x=x-1:IFx<1THENx=24
645 RETURN
650 x=x+1:IFx>24THENx=1
655 RETURN
2600 DATA169,0,32,144,255,173,52,158
2610 DATA162,53,160,158,32,189,255,169
2620 DATA1,162,8,160,0,32,186,255
2630 DATA169,251,166,253,164,254,96,32
2640 DATA216,255,96,32,213,255,134,253
2650 DATA132,254,96,169,1,32,195,255
2660 DATA32,204,255,169,0,32,144,255,96
3000 DATA 160,0,169,121,133,251,169,4,133,252,162,0,169,128,141,0
3010 DATA 192,189,0,60,45,0,192,205,0,192,208,4,169,160,208,2
3020 DATA 169,32,145,251,200,192,24,208,15,24,165,251,105,40,133,251
3030 DATA 165,252,105,0,133,252,160,0,24,110,0,192,208,211,232,224
3040 DATA 63,208,201,96
3050 DATA 169,3,133,251,169,192,133,252,169,128,141,0,192,169,1,141
3060 DATA 1,192,162,0,160,2,169,0,145,251,189,0,60,45,0,192
3070 DATA 205,0,192,208,8,24,177,251,109,1,192,145,251,24,110,0
3080 DATA 192,24,46,1,192,208,227,169,128,141,0,192,169,1,141,1
3090 DATA 192,136,16,9,24,165,251,105,3,133,251,160,2,232,224,63
3100 DATA 208,196,76,80,159,169,0,133,251,169,60,133,252,169,63,133
3110 DATA 253,169,192,133
3120 DATA 254,160,0,162,0,177,251,145,253,232,224,63,240,24,200,192
3130 DATA 3,208,242,24,165,251,105,3,133,251,56,165,253,233,3,133
3140 DATA 253,160,0,76,46,159,234,162,0,189,3,192,157,0,60,232
3150 DATA 224,63,208,245,96
3160 DATA 169,0,141,253,59,141,254,59,141,255,59,162,62,160,65,189
3170 DATA 253,59,153,253,59,136,202,16,246,96,169,0,141,63,60,141
3180 DATA 64,60,141,65,60,162,0,160,3,185,0,60,157,0,60,232
3190 DATA 200,192,66,208,244,96,162,0,24,126,0,60,232,126,0,60
3200 DATA 232,126,0,60,232,224,63,208,239,96,162,62,24,62,0,60
3210 DATA 202,62,0,60,202,62,0,60,202,16,241,96
stop tok64
(bastext 1.0)