1 FORI=828TO828+34:READA:POKEI,A:NEXT:A=0:B=0:Z=8192:O=Z:H$="[147]":FORI=1TO18:READA
2 N$=N$+CHR$(A):NEXT:PRINT"[147][153]"+N$+"[146][154][157][157][157][157][157][157][157][157][157][157][158]SPRITE+HIRES EDITOR V1.0"
3 FORI=0TOZ/5:NEXT:FORI=704TO766:POKEI,0:NEXT:B=0:B$="JJJ[157][157][157]JJJ[157][157][157]JJJ":A=0
4 C=53272:D=53265:POKED,60:POKEC,24:PRINTCHR$(147):POKE53281,0:POKE53280,0
5 POKE214,A:POKE211,B:SYS58640:PRINTB$
6 GETA$:IFA$=""THEN6:DATA162,32,160,0,134,100,132,99,169,0,170,145,99
7 IFA$=""ANDB<37THENPRINTH$:B=B+1:Z=Z+8:GOTO5:DATA200,192,0,208,249,232,224
8 IFA$="S"THENGOTO19:DATA32,240,11,164,100,200,132,100,160,0,192,0,240,233,96
9 IFA$="[157]"ANDB>0THENPRINTH$:B=B-1:Z=Z-8:GOTO5:DATA77,73,67,72,65,69,76,32,67
10 IFA$=""ANDA<22THENPRINTH$:A=A+1:Z=Z+320:GOTO5:DATA90,89,67,72,79,87,83
11 IFA$=CHR$(145)ANDA>0THENPRINTCHR$(147):A=A-1:Z=Z-320:GOTO5:DATA75,73
12 IFA$=CHR$(13)THENF=AD:GOTO16
13 IFA$="A"THENPOKEC,21:POKED,27:PRINTH$:POKE19,1:INPUT"ADR:";AD:GOTO4
14 IFA$=H$THENPRINTH$;:SYS828:A=0:B=0:Z=O:GOTO5
15 GOTO6
16 T=0:Y=0:FORI=0TO20:POKEZ+T,PEEK(F):POKEZ+T+8,PEEK(F+1):POKEZ+T+16,PEEK(F+2)
17 T=T+1:Y=Y+1:F=F+3:IFY=8THENT=T+312:Y=0
18 NEXTI:GOTO5:REM BY M.C. (1991)
19 POKED,27:POKEC,21:POKE19,1:INPUT"[147][154]NAME:";R$:R$=MID$(R$,1,16)
20 SYS57812R$,8,1:POKE174,255:POKE175,63:POKE193,0:POKE194,32:SYS62957:GOTO4