start tok64 d64-Mojscd 10 v=53248 20 POKE53281,11:POKE53280,11 21 FORl=1TO1 25 POKE1924+x+40*y,100 27 NEXTl 30 GOSUB210 40 FOR a = 0 TO 62 : POKE 832+a,0 : NEXT a 50 POKEv+21,15:FORa=0TO3:POKEv+39+a,0 55 POKE2040+a,13: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 GETa$:IFa$=""THEN100 110 POKE1104+40*y+x,d 115 IF PEEK(1924+x+40*y)=100THENdx=-dx:GOTO80 120 IFa$="{up}" THEN y=y-1:IFy<1THENy=21 130 IFa$="{down}" THEN y=y+1:IFy>21THENy=1 140 IFa$="{left}" THEN x=x-1:IFx<1THENx=24 150 IFa$="{right}" THEN x=x+1:IFx>24THENx=1 160 IFa$="{clear}" OR a$="{home}" THENGOSUB370 165 IFa$=CHR$(133)THENGOSUB380 170 d=PEEK(1104+40*y+x) 180 IFa$=" " THENGOSUB320 190 POKE1104+40*y+x,42 200 GOTO100 210 PRINTCHR$(14)CHR$(8)"{clear}{black}";TAB(13);"Sprite-Editor 64" 220 PRINTTAB(13);"{cm y*17}" 230 PRINT"{white} {cm d*24}" 240 FORa=0TO20:PRINT"{cm n}{space*24}{cm h}":NEXT 250 PRINT" {cm y*24}{home}" 260 PRINT"{home}{black}{down*3}"TAB(30);"{reverse on}SPACE{reverse off} Rita" 270 PRINTTAB(30);"{reverse on}F1{reverse off}{space*4}Data" 280 PRINTTAB(27);"{reverse on}Clr/Home{reverse off} T{pound}m" 290 PRINTTAB(30);"{down*3}Sprite:" 300 RETURN 310 FORa=0TO62:POKE832+a,0:NEXTa:RETURN 320 i=32:IFd=32THENi=160 330 d=i:f=INT((x-1)/8):e=PEEK(829+3*y+f):g=8*(f+1)-x:h=eOR2^g 340 IFd=32THENh=e-2^g 350 POKE829+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(832+a*3+b); 410 IFb<2THENPRINT","; 420 NEXTb:PRINT:NEXTa stop tok64 (bastext 1.0)