Home » Personal collection » Commodore disks » disk64d_odus_eclipse.d64 » sprite editor

sprite editor

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Commodore disks » disk64d_odus_eclipse.d64
Filename: sprite editor
Read OK: ✔
File size: 11D2 bytes
Load address: 0801
Exec address: 0000
File contents
     1 PRINT"<clr>":PRINTSPC(173);:PRINT"<reverse on>SPRITE EDITOR"
     2 PRINTSPC(242);:PRINTSPC(242);:PRINT"<reverse on>DO YOU WISH INSTRUCTIONS ? (Y/N)"
     3 GETA$:IFA$=""THEN3
     4 IFA$<>"Y"ANDA$<>"N"THEN3
     5 IFA$="N"THEN100
     6 PRINT"<clr>":POKE53269,PEEK(53269)AND127:GOSUB8001
     8 PRINTTAB(43):PRINT"X  EXPAND/CONTRACT X AXIS"
     9 PRINTTAB(43):PRINT"Y  EXPAND/CONTRACT Y AXIS"
    10 PRINTTAB(43):PRINT"↑  REFLECT X AXIS"
    11 PRINTTAB(43):PRINT"←  REFLECT Y AXIS"
    12 PRINTTAB(43):PRINT"R  ROTATE 90 DEGREES RIGHT"
    13 PRINTTAB(43):PRINT"M  MODE MULTICOLOUR/SINGLE"
    14 PRINTTAB(86):PRINT"PRESS SPACE BAR TO CONTINUE"
    15 GETD$:IFD$<>CHR$(32)ANDD$<>CHR$(160)THEN15
    16 PRINT"<clr>":GOSUB8001
    17 PRINTTAB(43):PRINT"F(1)  COLOUR SINGLE MODE"
    18 PRINTTAB(43):PRINT"F(3)  COLOUR 1 MULTICOLOUR"
    19 PRINTTAB(43):PRINT"F(5)  COLOUR 2 MULTICOLOUR"
    20 PRINTTAB(43):PRINT"F(7)  ERASE POINT"
    21 PRINTTAB(43):PRINT"S     VIEW BYTE MAP"
    22 PRINTTAB(43):PRINT"D     CREATE DATA STATEMENTS"
    23 PRINTTAB(86):PRINT"PRESS SPACE BAR TO CONTINUE"
    24 GETD$:IFD$<>CHR$(32)ANDD$<>CHR$(160)THEN24
    25 PRINT"<clr>":GOSUB8001
    26 PRINTTAB(43):PRINT"T   STORE DATA TO TAPE"
    27 PRINTTAB(43):PRINT"Q   QUIT/ERASE PROGRAM"
    28 PRINTTAB(43):PRINT"CLR ERASE ALL POINTS":PRINTTAB(43):PRINT"F   INPUT SPRITE FROM FILE"
    32 PRINTTAB(43):PRINT"H   HELP TO RETURN TO KEYCODES"
    33 PRINTTAB(85):PRINT"***PRESS SPACE BAR TO START***"
    34 PRINTTAB(50):PRINT"OR RETURN TO PROGRAM"
    35 GETD$:IFD$="Q"THEN9000
    36 IFD$<>CHR$(32)ANDD$<>CHR$(160)THEN35
    37 GOTO100
   100 FORI=0TO7:M(I)=2^(7-I):H(I)=255-M(I):NEXT:G=13*4096:PG=160
   120 C=PG*64:POKE2047,PG:POKEG+21,128:POKEG+46,15:DC=255:POKE650,128
   140 POKEG+14,255:POKEG+15,50
   150 C1=1:C2=2:C3=3:C4=4:C5=5:C6=6:C7=7
   160 C8=8:C9=9:Z=0
   170 SC=1024:LL=40
   210 PRINT"<clr>";:FORI=0TO20:FORJ=ZTOC2:P=PEEK(C+I*C3+J)
   230 FORK=ZTOC7:A$=".":IFPANDM(K)THENA$="●"
   240 PRINTA$;:NEXT:NEXT:PRINTI:NEXT:X=Z:Y=Z
   245 PRINT"765432107654321076543210"
   250 PRINT"<home>";
   260 IFYTHENFORI=1TOY:PRINT:NEXT
   270 IFXTHENPRINTSPC(X);
   280 P=SC+X+Y*LL:Q=PEEK(P):R=Q
   290 R=(R+128)AND255
   300 POKEP,R
   310 FORI=1TO30:GETA$:IFA$=" "THENNEXT:GOTO290
   320 POKEP,Q
   321 IFA$="X"THENPOKEG+29,128-PEEK(G+29):GOTO250
   322 IFA$="Y"THENPOKEG+23,128-PEEK(G+23):GOTO250
   323 IFA$="<f1>"THENPOKEG+46,(PEEK(G+46)+1)AND15:GOTO250
   324 IFA$="<f3>"THENPOKEG+37,(PEEK(G+37)+1)AND15:GOTO250
   325 IFA$="<f5>"THENPOKEG+38,(PEEK(G+38)+1)AND15:GOTO250
   326 IFA$="M"THENPOKEG+28,128-PEEK(G+28):GOTO250
   327 IFA$="S"THEN5010
   328 IFA$="R"THEN6000
   329 IFA$="↑"THEN6100
   330 IFA$="←"THEN6200
   331 IFA$="H"THENGOTO6
   332 IFA$="Q"THEN9000
   333 IFA$="D"THEN11000
   334 IFA$="T"THEN12000
   335 IFA$="F"THEN13000
   339 IFA$="<cursor right>"THENX=X+1+24*(X=23):GOTO250
   340 IFA$="<cursor left>"THENX=X-1-24*(X=0):GOTO250
   350 IFA$="<cursor down>"THENY=Y+1+21*(Y=20):GOTO250
   360 IFA$="<cursor up>"THENY=Y-1-21*(Y=0):GOTO250
   370 IFA$=<>" "THEN380
   375 POKEP,46:T=C+Y*C3+INT(X/C8):POKET,PEEK(T)ANDH(XANDC7):GOTO250
   377 X=X+1+24*(X=23):GOTO250
   380 IFA$<>"."THEN390
   385 POKEP,81:T=C+Y*C3+INT(X/C8):POKET,PEEK(T)ORM(XANDC7):GOTO377
   390 IFA$<>"<clr>"ANDA$="<f7>"THEN375
   391 IFA$<>"<clr>"THEN250
   400 PRINT"<home>";:FORI=0TO20:PRINT"........................"
   410 FORJ=0TO2:POKEC+I*C3+J,Z:NEXT:NEXT
   510 GOTO250
   600 GETA$:IFA$=" "THEN600
   610 RETURN
  5010 OPEN2,8,2:PRINT"<clr>":POKE53269,PEEK(53269)AND127
  5020 FORI=0TO20:PRINT#2,"BYTE ";:FORJ=0TO2:P=PEEK(C+I*3+J):PRINT#2,"%";
  5030 FORK=0TO7:A$="0":IFPANDM(K)THENA$="1"
  5040 PRINT#2,A$;:NEXT:IFJ<>2THENPRINT#2,",";
  5050 NEXT:PRINT#2:NEXT:
  5060 CLOSE2:PRINTSPC(40)
  5062 PRINT"DO YOU WISH TO RETURN TO PROGRAM ? (Y/N)"
  5064 GETA$:IFA$=""THEN5064
  5066 IFA$="Y"THEN100
  5068 IFA$<>"Y"ANDA$<>"N"THEN5064
  5070 END
  6000 DEF FNI(I)=J:DEF FNJ(J)=20-I
  6010 GOTO6500
  6100 DEF FNI(I)=20-I:DEF FNJ(J)=J
  6110 GOTO6500
  6200 DEF FNI(I)=I:DEF FNJ(J)=23-J
  6210 GOTO6500
  6500 GOSUB6900
  6510 FORI=0TO20
  6520 FORJ=0TO23
  6530 NI=FNI(I):NJ=FNJ(J)
  6535 B=PEEK(NP+I*C3+J/C8)ANDM(JANDC7)
  6536 IFBTHENP=C+NI*C3+NJ/C8:POKEP,PEEK(P)ORM(NJANDC7)
  6540 NEXT:NEXT
  6550 GOTO210
  6900 NP=C+64
  6910 FORI=0TO63
  6915 POKENP+I,PEEK(C+I)
  6916 POKEC+I,Z:NEXT
  6920 RETURN
  8001 FORI=0TO39:POKE1024+I,218:NEXT
  8002 FORI=1TO24:POKE1024+39+I*40,218:NEXT
  8003 FORI=38TO0STEP-1:POKE1024+960+I,218:NEXT
  8004 FORI=23TO1STEP-1:POKE1024+I*40,218:NEXT
  8005 PRINT"<home>"
  8006 PRINTSPC(93):PRINT"SPRITE EDITOR"
  8007 PRINTSPC(43):PRINT"KEYCODES:"
  8008 RETURN
  9000 PRINT"<clr>":PRINTTAB(124):PRINT"SURE YOU WANT TO QUIT? (Y/N)"
  9001 GETD$:IFD$<>"Y"ANDD$<>"N"THEN9001
  9002 IFD$="Y"THEN SYS64738
  9003 IFD$="N"THEN100
 11000 PRINT"<clr>";:POKE53269,PEEK(53269)AND127:PRINTSPC(244);:PRINTSPC(240);:INPUT"STARTING LINE #";P
 11004 PRINT"<clr>"
 11009 FORX=0TO15
 11010 IFX= 0THENGOSUB11200
 11011 PRINTPEEK(10240+X);:PRINT",";
 11015 IFX=15THENPRINT"<cursor left> "
 11016 NEXT
 11018 PRINTSPC(40)
 11019 FORX=16TO31
 11020 IFX=16THENGOSUB11200
 11021 PRINTPEEK(10240+X);:PRINT",";
 11025 IFX=31THENPRINT"<cursor left> "
 11026 NEXT
 11028 PRINTSPC(40)
 11029 FORX=32TO47
 11030 IFX=32THENGOSUB11200
 11031 PRINTPEEK(10240+X);:PRINT",";
 11035 IFX=47THENPRINT"<cursor left> "
 11036 NEXT
 11038 PRINTSPC(40)
 11039 FORX=48TO63
 11040 IFX=48THENGOSUB11200
 11041 PRINTPEEK(10240+X);:PRINT",";
 11045 IFX=63THENPRINT"<cursor left> ":GOTO11250
 11046 NEXT
 11200 IFX<15THENP=P
 11201 IFX>=15ANDX<=31THENP=P+1
 11202 IFX>=32ANDX<=47THENP=P+1
 11210 IFX>=48ANDX<=63THENP=P+1
 11220 PRINT"<cursor left>";:PRINTP;:PRINTSPC(6-LEN(STR$(P)));:PRINT"<cursor left>DATA ";:RETURN
 11250 PRINTSPC(240);
 11252 PRINT"DO YOU WISH TO RETURN TO PROGRAM ? (Y/N)"
 11254 GETA$:IFA$=""THEN11254
 11256 IFA$="Y"THEN100
 11257 IFA$<>"Y"ANDA$<>"N"THEN11254
 11258 END
 12000 PRINT"<clr>";:POKE53269,PEEK(53269)AND127:PRINTSPC(244);:PRINTSPC(240);:INPUT"FILE NAME";E$
 12001 OPEN1,8,1,E$
 12004 FORX=0TO63
 12006 D=PEEK(10240+X)
 12008 PRINT#1,D
 12012 NEXT
 12014 CLOSE1
 12016 PRINT"<clr>":PRINTSPC(240);
 12018 PRINT"DO YOU WISH TO RETURN TO PROGRAM ? (Y/N)"
 12020 GETA$:IFA$=""THEN12020
 12022 IFA$="Y"THEN100
 12024 IFA$<>"Y"ANDA$<>"N"THEN12020
 12026 END
 13000 PRINT"<clr>":POKE53269,PEEK(53269)AND127:PRINTSPC(244);:PRINTSPC(240);:INPUT"NAME OF SPRITE";E$
 13001 PRINT"<clr>":PRINTSPC(244);:PRINTSPC(238);:INPUT"STARTING LOCATION POKE (10240)";SP
 13002 OPEN1,8,0,E$
 13004 FORX=0TO63:INPUT#1,D
 13006 POKE(SP+X),D:NEXT:CLOSE1
 13016 PRINT"<clr>":PRINTSPC(240);
 13018 PRINT"DO YOU WISH TO RETURN TO PROGRAM ? (Y/N)"
 13020 GETA$:IFA$=""THEN13020
 13022 IFA$="Y"THEN100
 13024 IFA$<>"Y"ANDA$<>"N"THEN13020
 13026 END


$�"�":��173);:�"SPRITE EDITOR"]��242);:��242);:�"DO YOU WISH INSTRUCTIONS ? (Y/N)"n�A$:�A$�""�3��A$��"Y"�A$��"N"�3��A$�"N"�100��"�":�53269,�(53269)�127:�8001���43):�"X  EXPAND/CONTRACT X AXIS"		��43):�"Y  EXPAND/CONTRACT Y AXIS"%	
��43):�"^  REFLECT X AXIS"D	��43):�"_  REFLECT Y AXIS"l	��43):�"R  ROTATE 90 DEGREES RIGHT"�	
��43):�"M  MODE MULTICOLOUR/SINGLE"�	��86):�"PRESS SPACE BAR TO CONTINUE"�	�D$:�D$���(32)�D$���(160)�15�	�"�":�8001
��43):�"F(1)  COLOUR SINGLE MODE";
��43):�"F(3)  COLOUR 1 MULTICOLOUR"c
��43):�"F(5)  COLOUR 2 MULTICOLOUR"�
��43):�"F(7)  ERASE POINT"�
��43):�"S     VIEW BYTE MAP"�
��43):�"D     CREATE DATA STATEMENTS"�
��86):�"PRESS SPACE BAR TO CONTINUE"�D$:�D$���(32)�D$���(160)�24&�"�":�8001J��43):�"T   STORE DATA TO TAPE"n��43):�"Q   QUIT/ERASE PROGRAM"���43):�"CLR ERASE ALL POINTS":��43):�"F   INPUT SPRITE FROM FILE"� ��43):�"H   HELP TO RETURN TO KEYCODES"!��85):�"***PRESS SPACE BAR TO START***"."��50):�"OR RETURN TO PROGRAM"C#�D$:�D$�"Q"�9000`$�D$���(32)�D$���(160)�35i%�100�d�I�0�7:M(I)�2�(7�I):H(I)�255�M(I):�:G�13�4096:PG�160�xC�PG�64:�2047,PG:�G�21,128:�G�46,15:DC�255:�650,128���G�14,255:�G�15,50
�C1�1:C2�2:C3�3:C4�4:C5�5:C6�6:C7�7*
�C8�8:C9�9:Z�0<
�SC�1024:LL�40d
��"�";:�I�0�20:�J�Z�C2:P��(C�I�C3�J)�
��K�Z�C7:A$�".":�P�M(K)�A$�"�"�
��A$;:�:�:�I:�:X�Z:Y�Z�
��"765432107654321076543210"�
��"";�
�Y��I�1�Y:�:��
�X���X);P�SC�X�Y�LL:Q��(P):R�Q"R�(R�128)�255,�P,R>6�I�1�30:�A$:�A$�" "��:�290G@�P,QjA�A$�"X"��G�29,128��(G�29):�250�B�A$�"Y"��G�23,128��(G�23):�250�C�A$�"�"��G�46,(�(G�46)�1)�15:�250�D�A$�"�"��G�37,(�(G�37)�1)�15:�250�E�A$�"�"��G�38,(�(G�38)�1)�15:�250"F�A$�"M"��G�28,128��(G�28):�2503G�A$�"S"�5010DH�A$�"R"�6000UI�A$�"^"�6100fJ�A$�"_"�6200uK�A$�"H"��6�L�A$�"Q"�9000�M�A$�"D"�11000�N�A$�"T"�12000�O�A$�"F"�13000�S�A$�""�X�X�1�24�(X�23):�250�T�A$�"�"�X�X�1�24�(X�0):�250^�A$�""�Y�Y�1�21�(Y�20):�250>h�A$�"�"�Y�Y�1�21�(Y�0):�250Pr�A$���" "�380�w�P,46:T�C�Y�C3��(X�C8):�T,�(T)�H(X�C7):�250�yX�X�1�24�(X�23):�250�|�A$��"."�390���P,81:T�C�Y�C3��(X�C8):�T,�(T)�M(X�C7):�377���A$��"�"�A$�"�"�375��A$��"�"�2501��"";:�I�0�20:�"........................"L��J�0�2:�C�I�C3�J,Z:�:�U��250iX�A$:�A$�" "�600ob����2,8,2:�"�":�53269,�(53269)�127���I�0�20:�2,"BYTE ";:�J�0�2:P��(C�I�3�J):�2,"%";���K�0�7:A$�"0":�P�M(K)�A$�"1"��2,A$;:�:�J��2��2,",";��:�2:�:��2:��40)L��"DO YOU WISH TO RETURN TO PROGRAM ? (Y/N)"`��A$:�A$�""�5064p��A$�"Y"�100���A$��"Y"�A$��"N"�5064����p� �I(I)�J:� �J(J)�20�I�z�6500��� �I(I)�20�I:� �J(J)�J���6500�8� �I(I)�I:� �J(J)�23�J�B�6500	d�6900n�I�0�20!x�J�0�237�NI��I(I):NJ��J(J)U�B��(NP�I�C3�J�C8)�M(J�C7)}��B�P�C�NI�C3�NJ�C8:�P,�(P)�M(NJ�C7)���:����210��NP�C�64���I�0�63��NP�I,�(C�I)��C�I,Z:����A�I�0�39:�1024�I,218:�B�I�1�24:�1024�39�I�40,218:�%C�I�38�0��1:�1024�960�I,218:�ED�I�23�1��1:�1024�I�40,218:�NE�""iF��93):�"SPRITE EDITOR"�G��43):�"KEYCODES:"�H��(#�"�":��124):�"SURE YOU WANT TO QUIT? (Y/N)"�)#�D$:�D$��"Y"�D$��"N"�9001�*#�D$�"Y"� �64738�+#�D$�"N"�100;�*�"�";:�53269,�(53269)�127:��244);:��240);:�"STARTING LINE #";PD�*�"�"P+�X�0�15a+�X� 0��11200x+��(10240�X);:�",";�+�X�15��"� "�+��
+��40)�+�X�16�31�+�X�16��11200�
+��(10240�X);:�",";�+�X�31��"� "�+��+��40)�+�X�32�47+�X�32��11200"+��(10240�X);:�",";2+�X�47��"� "8+�B+��40)O+�X�48�63` +�X�48��11200w!+��(10240�X);:�",";�%+�X�63��"� ":�11250�&+���+�X�15�P�P��+�X��15�X��31�P�P�1��+�X��32�X��47�P�P�1��+�X��48�X��63�P�P�1�+�"�";:�P;:��6��(�(P)));:�"�DATA ";:��+��240);L�+�"DO YOU WISH TO RETURN TO PROGRAM ? (Y/N)"a�+�A$:�A$�""�11254q�+�A$�"Y"�100��+�A$��"Y"�A$��"N"�11254��+���.�"�";:�53269,�(53269)�127:��244);:��240);:�"FILE NAME";E$��.�1,8,1,E$��.�X�0�63��.D��(10240�X)�.�1,D
�.��.�1"�.�"�":��240);R�.�"DO YOU WISH TO RETURN TO PROGRAM ? (Y/N)"g�.�A$:�A$�""�12020w�.�A$�"Y"�100��.�A$��"Y"�A$��"N"�12020��.���2�"�":�53269,�(53269)�127:��244);:��240);:�"NAME OF SPRITE";E$�2�"�":��244);:��238);:�"STARTING LOCATION POKE (10240)";SP&�2�1,8,0,E$7�2�X�0�63:�1,DJ�2�(SP�X),D:�:�1[�2�"�":��240);��2�"DO YOU WISH TO RETURN TO PROGRAM ? (Y/N)"��2�A$:�A$�""�13020��2�A$�"Y"�100��2�A$��"Y"�A$��"N"�13020��2�
$HA@.".":..173);:."Rsprite editor"@]HB@..242);:..242);:."Rdo you wish instructions ? (y/n)"@NHC@.a$:.a$."".3@.HD@.a$.."y".a$.."n".3@.HE@.a$."n".100@.HF@.".":.53269,.(53269).127:.8001@.HH@..43):."x  expand/contract x axis"@FII@..43):."y  expand/contract y axis"@%IJ@..43):.".  reflect x axis"@dIK@..43):.".  reflect y axis"@LIL@..43):."r  rotate 90 degrees right"@.IM@..43):."m  mode multicolour/single"@.IN@..86):."press space bar to continue"@.IO@.d$:.d$...(32).d$...(160).15@.IP@.".":.8001@SJQ@..43):."f(1)  colour single mode"@;JR@..43):."f(3)  colour 1 multicolour"@CJS@..43):."f(5)  colour 2 multicolour"@.JT@..43):."f(7)  erase point"@.JU@..43):."s     view byte map"@.JV@..43):."d     create data statements"@.JW@..86):."press space bar to continue"@WKX@.d$:.d$...(32).d$...(160).24@&KY@.".":.8001@jKZ@..43):."t   store data to tape"@NK[@..43):."q   quit/erase program"@.K£@..43):."clr erase all points":..43):."f   input sprite from file"@.K @..43):."h   help to return to keycodes"@LL!@..85):."***press space bar to start***"@.L"@..50):."or return to program"@cL#@.d$:.d$."q".9000@.L$@.d$...(32).d$...(160).35@IL%@.100@.LD@.i.0.7:m(i).2.(7.i):h(i).255.m(i):.:g.13.4096:pg.160@.LX@c.pg.64:.2047,pg:.g.21,128:.g.46,15:dc.255:.650,128@.L.@.g.14,255:.g.15,50@XM.@c1.1:c2.2:c3.3:c4.4:c5.5:c6.6:c7.7@*M.@c8.8:c9.9:z.0@<M.@sc.1024:ll.40@DM.@.".";:.i.0.20:.j.z.c2:p..(c.i.c3.j)@.M.@.k.z.c7:a$.".":.p.m(k).a$."."@.M.@.a$;:.:.:.i:.:x.z:y.z@.M.@."765432107654321076543210"@.M.@."S";@.MDA.y..i.1.y:.:.@.MNA.x...x);@DNXAp.sc.x.y.ll:q..(p):r.q@VN"Ar.(r.128).255@.N,A.p,r@>N6A.i.1.30:.a$:.a$." "..:.290@gN@A.p,q@JNaA.a$."x"..g.29,128..(g.29):.250@.NbA.a$."y"..g.23,128..(g.23):.250@.NcA.a$."."..g.46,(.(g.46).1).15:.250@.NdA.a$."."..g.37,(.(g.37).1).15:.250@.NeA.a$."."..g.38,(.(g.38).1).15:.250@"OfA.a$."m"..g.28,128..(g.28):.250@3OgA.a$."s".5010@dOhA.a$."r".6000@uOiA.a$.".".6100@FOjA.a$.".".6200@UOkA.a$."h"..6@.OlA.a$."q".9000@.OmA.a$."d".11000@.OnA.a$."t".12000@.OoA.a$."f".13000@.OsA.a$."]".x.x.1.24.(x.23):.250@.OtA.a$.".".x.x.1.24.(x.0):.250@.P.A.a$."Q".y.y.1.21.(y.20):.250@>PHA.a$.".".y.y.1.21.(y.0):.250@pPRA.a$..." ".380@.PWA.p,46:t.c.y.c3..(x.c8):.t,.(t).h(x.c7):.250@.PYAx.x.1.24.(x.23):.250@.P.A.a$..".".390@.P.A.p,81:t.c.y.c3..(x.c8):.t,.(t).m(x.c7):.377@.P.A.a$..".".a$.".".375@CQ.A.a$..".".250@1Q.A."S";:.i.0.20:."........................"@lQ.A.j.0.2:.c.i.c3.j,z:.:.@uQ.A.250@IQxB.a$:.a$." ".600@OQBB.@.Q.S.2,8,2:.".":.53269,.(53269).127@.Q.S.i.0.20:.2,"byte ";:.j.0.2:p..(c.i.3.j):.2,"%";@.Q.S.k.0.7:a$."0":.p.m(k).a$."1"@CR.S.2,a$;:.:.j..2..2,",";@OR.S.:.2:.:@£R.S.2:..40)@lR.S."do you wish to return to program ? (y/n)"@.R.S.a$:.a$."".5064@PR.S.a$."y".100@.R.S.a$.."y".a$.."n".5064@.R.S.@.RPW. .i(i).j:. .j(j).20.i@.RZW.6500@.R.W. .i(i).20.i:. .j(j).j@.R.W.6500@.R8X. .i(i).i:. .j(j).23.j@.RbX.6500@ISDY.6900@USNY.i.0.20@!SXY.j.0.23@7S.Yni..i(i):nj..j(j)@uS.Yb..(np.i.c3.j.c8).m(j.c7)@.S.Y.b.p.c.ni.c3.nj.c8:.p,.(p).m(nj.c7)@.S.Y.:.@.S.Y.210@.S.Znp.c.64@.S.Z.i.0.63@.SC[.np.i,.(c.i)@.SD[.c.i,z:.@.SH[.@.Sa..i.0.39:.1024.i,218:.@DTb..i.1.24:.1024.39.i.40,218:.@%Tc..i.38.0..1:.1024.960.i,218:.@eTd..i.23.1..1:.1024.i.40,218:.@nTe.."S"@ITf...93):."sprite editor"@.Tg...43):."keycodes:"@.Th..@.T(#.".":..124):."sure you want to quit? (y/n)"@.T)#.d$:.d$.."y".d$.."n".9001@.T*#.d$."y". .64738@.T+#.d$."n".100@;U.*.".";:.53269,.(53269).127:..244);:..240);:."starting line #";p@dU.*."."@pUA+.x.0.15@AUB+.x. 0..11200@XUC+..(10240.x);:.",";@.UG+.x.15..". "@.UH+.@.UJ+..40)@.UK+.x.16.31@.UL+.x.16..11200@.UM+..(10240.x);:.",";@.UQ+.x.31..". "@.UR+.@.UT+..40)@.UU+.x.32.47@KVV+.x.32..11200@"VW+..(10240.x);:.",";@2V[+.x.47..". "@8V£+.@bV.+..40)@oV.+.x.48.63@.V +.x.48..11200@WV!+..(10240.x);:.",";@.V%+.x.63..". ":.11250@.V&+.@.V.+.x.15.p.p@.V.+.x..15.x..31.p.p.1@.V.+.x..32.x..47.p.p.1@.V.+.x..48.x..63.p.p.1@PW.+.".";:.p;:..6..(.(p)));:.".data ";:.@£W.+..240);@lW.+."do you wish to return to program ? (y/n)"@AW.+.a$:.a$."".11254@QW.+.a$."y".100@.W.+.a$.."y".a$.."n".11254@.W.+.@.W...".";:.53269,.(53269).127:..244);:..240);:."file name";e$@.W...1,8,1,e$@.W...x.0.63@.W..d..(10240.x)@DX...1,d@JX...@QX...1@"X...".":..240);@rX..."do you wish to return to program ? (y/n)"@GX...a$:.a$."".12020@WX...a$."y".100@.X...a$.."y".a$.."n".12020@.X...@.X.2.".":.53269,.(53269).127:..244);:..240);:."name of sprite";e$@XY.2.".":..244);:..238);:."starting location poke (10240)";sp@&Y.2.1,8,0,e$@7Y.2.x.0.63:.1,d@jY.2.(sp.x),d:.:.1@[Y.2.".":..240);@.Y.2."do you wish to return to program ? (y/n)"@.Y.2.a$:.a$."".13020@.Y.2.a$."y".100@.Y.2.a$.."y".a$.."n".13020@.Y.2.@@@
00000000  24 08 01 00 99 22 93 22  3a 99 a6 31 37 33 29 3b  |$....".":..173);|
00000010  3a 99 22 12 53 50 52 49  54 45 20 45 44 49 54 4f  |:.".SPRITE EDITO|
00000020  52 22 00 5d 08 02 00 99  a6 32 34 32 29 3b 3a 99  |R".].....242);:.|
00000030  a6 32 34 32 29 3b 3a 99  22 12 44 4f 20 59 4f 55  |.242);:.".DO YOU|
00000040  20 57 49 53 48 20 49 4e  53 54 52 55 43 54 49 4f  | WISH INSTRUCTIO|
00000050  4e 53 20 3f 20 28 59 2f  4e 29 22 00 6e 08 03 00  |NS ? (Y/N)".n...|
00000060  a1 41 24 3a 8b 41 24 b2  22 22 a7 33 00 85 08 04  |.A$:.A$."".3....|
00000070  00 8b 41 24 b3 b1 22 59  22 af 41 24 b3 b1 22 4e  |..A$.."Y".A$.."N|
00000080  22 a7 33 00 95 08 05 00  8b 41 24 b2 22 4e 22 a7  |".3......A$."N".|
00000090  31 30 30 00 b8 08 06 00  99 22 93 22 3a 97 35 33  |100......".":.53|
000000a0  32 36 39 2c c2 28 35 33  32 36 39 29 af 31 32 37  |269,.(53269).127|
000000b0  3a 8d 38 30 30 31 00 df  08 08 00 99 a3 34 33 29  |:.8001.......43)|
000000c0  3a 99 22 58 20 20 45 58  50 41 4e 44 2f 43 4f 4e  |:."X  EXPAND/CON|
000000d0  54 52 41 43 54 20 58 20  41 58 49 53 22 00 06 09  |TRACT X AXIS"...|
000000e0  09 00 99 a3 34 33 29 3a  99 22 59 20 20 45 58 50  |....43):."Y  EXP|
000000f0  41 4e 44 2f 43 4f 4e 54  52 41 43 54 20 59 20 41  |AND/CONTRACT Y A|
00000100  58 49 53 22 00 25 09 0a  00 99 a3 34 33 29 3a 99  |XIS".%.....43):.|
00000110  22 5e 20 20 52 45 46 4c  45 43 54 20 58 20 41 58  |"^  REFLECT X AX|
00000120  49 53 22 00 44 09 0b 00  99 a3 34 33 29 3a 99 22  |IS".D.....43):."|
00000130  5f 20 20 52 45 46 4c 45  43 54 20 59 20 41 58 49  |_  REFLECT Y AXI|
00000140  53 22 00 6c 09 0c 00 99  a3 34 33 29 3a 99 22 52  |S".l.....43):."R|
00000150  20 20 52 4f 54 41 54 45  20 39 30 20 44 45 47 52  |  ROTATE 90 DEGR|
00000160  45 45 53 20 52 49 47 48  54 22 00 94 09 0d 00 99  |EES RIGHT"......|
00000170  a3 34 33 29 3a 99 22 4d  20 20 4d 4f 44 45 20 4d  |.43):."M  MODE M|
00000180  55 4c 54 49 43 4f 4c 4f  55 52 2f 53 49 4e 47 4c  |ULTICOLOUR/SINGL|
00000190  45 22 00 bd 09 0e 00 99  a3 38 36 29 3a 99 22 50  |E".......86):."P|
000001a0  52 45 53 53 20 53 50 41  43 45 20 42 41 52 20 54  |RESS SPACE BAR T|
000001b0  4f 20 43 4f 4e 54 49 4e  55 45 22 00 de 09 0f 00  |O CONTINUE".....|
000001c0  a1 44 24 3a 8b 44 24 b3  b1 c7 28 33 32 29 af 44  |.D$:.D$...(32).D|
000001d0  24 b3 b1 c7 28 31 36 30  29 a7 31 35 00 ed 09 10  |$...(160).15....|
000001e0  00 99 22 93 22 3a 8d 38  30 30 31 00 13 0a 11 00  |..".":.8001.....|
000001f0  99 a3 34 33 29 3a 99 22  46 28 31 29 20 20 43 4f  |..43):."F(1)  CO|
00000200  4c 4f 55 52 20 53 49 4e  47 4c 45 20 4d 4f 44 45  |LOUR SINGLE MODE|
00000210  22 00 3b 0a 12 00 99 a3  34 33 29 3a 99 22 46 28  |".;.....43):."F(|
00000220  33 29 20 20 43 4f 4c 4f  55 52 20 31 20 4d 55 4c  |3)  COLOUR 1 MUL|
00000230  54 49 43 4f 4c 4f 55 52  22 00 63 0a 13 00 99 a3  |TICOLOUR".c.....|
00000240  34 33 29 3a 99 22 46 28  35 29 20 20 43 4f 4c 4f  |43):."F(5)  COLO|
00000250  55 52 20 32 20 4d 55 4c  54 49 43 4f 4c 4f 55 52  |UR 2 MULTICOLOUR|
00000260  22 00 82 0a 14 00 99 a3  34 33 29 3a 99 22 46 28  |".......43):."F(|
00000270  37 29 20 20 45 52 41 53  45 20 50 4f 49 4e 54 22  |7)  ERASE POINT"|
00000280  00 a3 0a 15 00 99 a3 34  33 29 3a 99 22 53 20 20  |.......43):."S  |
00000290  20 20 20 56 49 45 57 20  42 59 54 45 20 4d 41 50  |   VIEW BYTE MAP|
000002a0  22 00 cd 0a 16 00 99 a3  34 33 29 3a 99 22 44 20  |".......43):."D |
000002b0  20 20 20 20 43 52 45 41  54 45 20 44 41 54 41 20  |    CREATE DATA |
000002c0  53 54 41 54 45 4d 45 4e  54 53 22 00 f6 0a 17 00  |STATEMENTS".....|
000002d0  99 a3 38 36 29 3a 99 22  50 52 45 53 53 20 53 50  |..86):."PRESS SP|
000002e0  41 43 45 20 42 41 52 20  54 4f 20 43 4f 4e 54 49  |ACE BAR TO CONTI|
000002f0  4e 55 45 22 00 17 0b 18  00 a1 44 24 3a 8b 44 24  |NUE"......D$:.D$|
00000300  b3 b1 c7 28 33 32 29 af  44 24 b3 b1 c7 28 31 36  |...(32).D$...(16|
00000310  30 29 a7 32 34 00 26 0b  19 00 99 22 93 22 3a 8d  |0).24.&....".":.|
00000320  38 30 30 31 00 4a 0b 1a  00 99 a3 34 33 29 3a 99  |8001.J.....43):.|
00000330  22 54 20 20 20 53 54 4f  52 45 20 44 41 54 41 20  |"T   STORE DATA |
00000340  54 4f 20 54 41 50 45 22  00 6e 0b 1b 00 99 a3 34  |TO TAPE".n.....4|
00000350  33 29 3a 99 22 51 20 20  20 51 55 49 54 2f 45 52  |3):."Q   QUIT/ER|
00000360  41 53 45 20 50 52 4f 47  52 41 4d 22 00 b4 0b 1c  |ASE PROGRAM"....|
00000370  00 99 a3 34 33 29 3a 99  22 43 4c 52 20 45 52 41  |...43):."CLR ERA|
00000380  53 45 20 41 4c 4c 20 50  4f 49 4e 54 53 22 3a 99  |SE ALL POINTS":.|
00000390  a3 34 33 29 3a 99 22 46  20 20 20 49 4e 50 55 54  |.43):."F   INPUT|
000003a0  20 53 50 52 49 54 45 20  46 52 4f 4d 20 46 49 4c  | SPRITE FROM FIL|
000003b0  45 22 00 e0 0b 20 00 99  a3 34 33 29 3a 99 22 48  |E"... ...43):."H|
000003c0  20 20 20 48 45 4c 50 20  54 4f 20 52 45 54 55 52  |   HELP TO RETUR|
000003d0  4e 20 54 4f 20 4b 45 59  43 4f 44 45 53 22 00 0c  |N TO KEYCODES"..|
000003e0  0c 21 00 99 a3 38 35 29  3a 99 22 2a 2a 2a 50 52  |.!...85):."***PR|
000003f0  45 53 53 20 53 50 41 43  45 20 42 41 52 20 54 4f  |ESS SPACE BAR TO|
00000400  20 53 54 41 52 54 2a 2a  2a 22 00 2e 0c 22 00 99  | START***"..."..|
00000410  a3 35 30 29 3a 99 22 4f  52 20 52 45 54 55 52 4e  |.50):."OR RETURN|
00000420  20 54 4f 20 50 52 4f 47  52 41 4d 22 00 43 0c 23  | TO PROGRAM".C.#|
00000430  00 a1 44 24 3a 8b 44 24  b2 22 51 22 a7 39 30 30  |..D$:.D$."Q".900|
00000440  30 00 60 0c 24 00 8b 44  24 b3 b1 c7 28 33 32 29  |0.`.$..D$...(32)|
00000450  af 44 24 b3 b1 c7 28 31  36 30 29 a7 33 35 00 69  |.D$...(160).35.i|
00000460  0c 25 00 89 31 30 30 00  a2 0c 64 00 81 49 b2 30  |.%..100...d..I.0|
00000470  a4 37 3a 4d 28 49 29 b2  32 ae 28 37 ab 49 29 3a  |.7:M(I).2.(7.I):|
00000480  48 28 49 29 b2 32 35 35  ab 4d 28 49 29 3a 82 3a  |H(I).255.M(I):.:|
00000490  47 b2 31 33 ac 34 30 39  36 3a 50 47 b2 31 36 30  |G.13.4096:PG.160|
000004a0  00 da 0c 78 00 43 b2 50  47 ac 36 34 3a 97 32 30  |...x.C.PG.64:.20|
000004b0  34 37 2c 50 47 3a 97 47  aa 32 31 2c 31 32 38 3a  |47,PG:.G.21,128:|
000004c0  97 47 aa 34 36 2c 31 35  3a 44 43 b2 32 35 35 3a  |.G.46,15:DC.255:|
000004d0  97 36 35 30 2c 31 32 38  00 f1 0c 8c 00 97 47 aa  |.650,128......G.|
000004e0  31 34 2c 32 35 35 3a 97  47 aa 31 35 2c 35 30 00  |14,255:.G.15,50.|
000004f0  18 0d 96 00 43 31 b2 31  3a 43 32 b2 32 3a 43 33  |....C1.1:C2.2:C3|
00000500  b2 33 3a 43 34 b2 34 3a  43 35 b2 35 3a 43 36 b2  |.3:C4.4:C5.5:C6.|
00000510  36 3a 43 37 b2 37 00 2a  0d a0 00 43 38 b2 38 3a  |6:C7.7.*...C8.8:|
00000520  43 39 b2 39 3a 5a b2 30  00 3c 0d aa 00 53 43 b2  |C9.9:Z.0.<...SC.|
00000530  31 30 32 34 3a 4c 4c b2  34 30 00 64 0d d2 00 99  |1024:LL.40.d....|
00000540  22 93 22 3b 3a 81 49 b2  30 a4 32 30 3a 81 4a b2  |".";:.I.0.20:.J.|
00000550  5a a4 43 32 3a 50 b2 c2  28 43 aa 49 ac 43 33 aa  |Z.C2:P..(C.I.C3.|
00000560  4a 29 00 86 0d e6 00 81  4b b2 5a a4 43 37 3a 41  |J)......K.Z.C7:A|
00000570  24 b2 22 2e 22 3a 8b 50  af 4d 28 4b 29 a7 41 24  |$.".":.P.M(K).A$|
00000580  b2 22 d1 22 00 a0 0d f0  00 99 41 24 3b 3a 82 3a  |."."......A$;:.:|
00000590  82 3a 99 49 3a 82 3a 58  b2 5a 3a 59 b2 5a 00 c0  |.:.I:.:X.Z:Y.Z..|
000005a0  0d f5 00 99 22 37 36 35  34 33 32 31 30 37 36 35  |...."76543210765|
000005b0  34 33 32 31 30 37 36 35  34 33 32 31 30 22 00 ca  |4321076543210"..|
000005c0  0d fa 00 99 22 13 22 3b  00 dc 0d 04 01 8b 59 a7  |....".";......Y.|
000005d0  81 49 b2 31 a4 59 3a 99  3a 82 00 e9 0d 0e 01 8b  |.I.1.Y:.:.......|
000005e0  58 a7 99 a6 58 29 3b 00  04 0e 18 01 50 b2 53 43  |X...X);.....P.SC|
000005f0  aa 58 aa 59 ac 4c 4c 3a  51 b2 c2 28 50 29 3a 52  |.X.Y.LL:Q..(P):R|
00000600  b2 51 00 16 0e 22 01 52  b2 28 52 aa 31 32 38 29  |.Q...".R.(R.128)|
00000610  af 32 35 35 00 1f 0e 2c  01 97 50 2c 52 00 3e 0e  |.255...,..P,R.>.|
00000620  36 01 81 49 b2 31 a4 33  30 3a a1 41 24 3a 8b 41  |6..I.1.30:.A$:.A|
00000630  24 b2 22 20 22 a7 82 3a  89 32 39 30 00 47 0e 40  |$." "..:.290.G.@|
00000640  01 97 50 2c 51 00 6a 0e  41 01 8b 41 24 b2 22 58  |..P,Q.j.A..A$."X|
00000650  22 a7 97 47 aa 32 39 2c  31 32 38 ab c2 28 47 aa  |"..G.29,128..(G.|
00000660  32 39 29 3a 89 32 35 30  00 8d 0e 42 01 8b 41 24  |29):.250...B..A$|
00000670  b2 22 59 22 a7 97 47 aa  32 33 2c 31 32 38 ab c2  |."Y"..G.23,128..|
00000680  28 47 aa 32 33 29 3a 89  32 35 30 00 b3 0e 43 01  |(G.23):.250...C.|
00000690  8b 41 24 b2 22 85 22 a7  97 47 aa 34 36 2c 28 c2  |.A$."."..G.46,(.|
000006a0  28 47 aa 34 36 29 aa 31  29 af 31 35 3a 89 32 35  |(G.46).1).15:.25|
000006b0  30 00 d9 0e 44 01 8b 41  24 b2 22 86 22 a7 97 47  |0...D..A$."."..G|
000006c0  aa 33 37 2c 28 c2 28 47  aa 33 37 29 aa 31 29 af  |.37,(.(G.37).1).|
000006d0  31 35 3a 89 32 35 30 00  ff 0e 45 01 8b 41 24 b2  |15:.250...E..A$.|
000006e0  22 87 22 a7 97 47 aa 33  38 2c 28 c2 28 47 aa 33  |"."..G.38,(.(G.3|
000006f0  38 29 aa 31 29 af 31 35  3a 89 32 35 30 00 22 0f  |8).1).15:.250.".|
00000700  46 01 8b 41 24 b2 22 4d  22 a7 97 47 aa 32 38 2c  |F..A$."M"..G.28,|
00000710  31 32 38 ab c2 28 47 aa  32 38 29 3a 89 32 35 30  |128..(G.28):.250|
00000720  00 33 0f 47 01 8b 41 24  b2 22 53 22 a7 35 30 31  |.3.G..A$."S".501|
00000730  30 00 44 0f 48 01 8b 41  24 b2 22 52 22 a7 36 30  |0.D.H..A$."R".60|
00000740  30 30 00 55 0f 49 01 8b  41 24 b2 22 5e 22 a7 36  |00.U.I..A$."^".6|
00000750  31 30 30 00 66 0f 4a 01  8b 41 24 b2 22 5f 22 a7  |100.f.J..A$."_".|
00000760  36 32 30 30 00 75 0f 4b  01 8b 41 24 b2 22 48 22  |6200.u.K..A$."H"|
00000770  a7 89 36 00 86 0f 4c 01  8b 41 24 b2 22 51 22 a7  |..6...L..A$."Q".|
00000780  39 30 30 30 00 98 0f 4d  01 8b 41 24 b2 22 44 22  |9000...M..A$."D"|
00000790  a7 31 31 30 30 30 00 aa  0f 4e 01 8b 41 24 b2 22  |.11000...N..A$."|
000007a0  54 22 a7 31 32 30 30 30  00 bc 0f 4f 01 8b 41 24  |T".12000...O..A$|
000007b0  b2 22 46 22 a7 31 33 30  30 30 00 dd 0f 53 01 8b  |."F".13000...S..|
000007c0  41 24 b2 22 1d 22 a7 58  b2 58 aa 31 aa 32 34 ac  |A$.".".X.X.1.24.|
000007d0  28 58 b2 32 33 29 3a 89  32 35 30 00 fd 0f 54 01  |(X.23):.250...T.|
000007e0  8b 41 24 b2 22 9d 22 a7  58 b2 58 ab 31 ab 32 34  |.A$.".".X.X.1.24|
000007f0  ac 28 58 b2 30 29 3a 89  32 35 30 00 1e 10 5e 01  |.(X.0):.250...^.|
00000800  8b 41 24 b2 22 11 22 a7  59 b2 59 aa 31 aa 32 31  |.A$.".".Y.Y.1.21|
00000810  ac 28 59 b2 32 30 29 3a  89 32 35 30 00 3e 10 68  |.(Y.20):.250.>.h|
00000820  01 8b 41 24 b2 22 91 22  a7 59 b2 59 ab 31 ab 32  |..A$.".".Y.Y.1.2|
00000830  31 ac 28 59 b2 30 29 3a  89 32 35 30 00 50 10 72  |1.(Y.0):.250.P.r|
00000840  01 8b 41 24 b2 b3 b1 22  20 22 a7 33 38 30 00 80  |..A$..." ".380..|
00000850  10 77 01 97 50 2c 34 36  3a 54 b2 43 aa 59 ac 43  |.w..P,46:T.C.Y.C|
00000860  33 aa b5 28 58 ad 43 38  29 3a 97 54 2c c2 28 54  |3..(X.C8):.T,.(T|
00000870  29 af 48 28 58 af 43 37  29 3a 89 32 35 30 00 99  |).H(X.C7):.250..|
00000880  10 79 01 58 b2 58 aa 31  aa 32 34 ac 28 58 b2 32  |.y.X.X.1.24.(X.2|
00000890  33 29 3a 89 32 35 30 00  aa 10 7c 01 8b 41 24 b3  |3):.250...|..A$.|
000008a0  b1 22 2e 22 a7 33 39 30  00 da 10 81 01 97 50 2c  |.".".390......P,|
000008b0  38 31 3a 54 b2 43 aa 59  ac 43 33 aa b5 28 58 ad  |81:T.C.Y.C3..(X.|
000008c0  43 38 29 3a 97 54 2c c2  28 54 29 b0 4d 28 58 af  |C8):.T,.(T).M(X.|
000008d0  43 37 29 3a 89 33 37 37  00 f2 10 86 01 8b 41 24  |C7):.377......A$|
000008e0  b3 b1 22 93 22 af 41 24  b2 22 88 22 a7 33 37 35  |..".".A$.".".375|
000008f0  00 03 11 87 01 8b 41 24  b3 b1 22 93 22 a7 32 35  |......A$..".".25|
00000900  30 00 31 11 90 01 99 22  13 22 3b 3a 81 49 b2 30  |0.1....".";:.I.0|
00000910  a4 32 30 3a 99 22 2e 2e  2e 2e 2e 2e 2e 2e 2e 2e  |.20:."..........|
00000920  2e 2e 2e 2e 2e 2e 2e 2e  2e 2e 2e 2e 2e 2e 22 00  |..............".|
00000930  4c 11 9a 01 81 4a b2 30  a4 32 3a 97 43 aa 49 ac  |L....J.0.2:.C.I.|
00000940  43 33 aa 4a 2c 5a 3a 82  3a 82 00 55 11 fe 01 89  |C3.J,Z:.:..U....|
00000950  32 35 30 00 69 11 58 02  a1 41 24 3a 8b 41 24 b2  |250.i.X..A$:.A$.|
00000960  22 20 22 a7 36 30 30 00  6f 11 62 02 8e 00 93 11  |" ".600.o.b.....|
00000970  92 13 9f 32 2c 38 2c 32  3a 99 22 93 22 3a 97 35  |...2,8,2:.".":.5|
00000980  33 32 36 39 2c c2 28 35  33 32 36 39 29 af 31 32  |3269,.(53269).12|
00000990  37 00 c7 11 9c 13 81 49  b2 30 a4 32 30 3a 98 32  |7......I.0.20:.2|
000009a0  2c 22 42 59 54 45 20 22  3b 3a 81 4a b2 30 a4 32  |,"BYTE ";:.J.0.2|
000009b0  3a 50 b2 c2 28 43 aa 49  ac 33 aa 4a 29 3a 98 32  |:P..(C.I.3.J):.2|
000009c0  2c 22 25 22 3b 00 e8 11  a6 13 81 4b b2 30 a4 37  |,"%";......K.0.7|
000009d0  3a 41 24 b2 22 30 22 3a  8b 50 af 4d 28 4b 29 a7  |:A$."0":.P.M(K).|
000009e0  41 24 b2 22 31 22 00 03  12 b0 13 98 32 2c 41 24  |A$."1"......2,A$|
000009f0  3b 3a 82 3a 8b 4a b3 b1  32 a7 98 32 2c 22 2c 22  |;:.:.J..2..2,","|
00000a00  3b 00 0f 12 ba 13 82 3a  98 32 3a 82 3a 00 1c 12  |;......:.2:.:...|
00000a10  c4 13 a0 32 3a 99 a6 34  30 29 00 4c 12 c6 13 99  |...2:..40).L....|
00000a20  22 44 4f 20 59 4f 55 20  57 49 53 48 20 54 4f 20  |"DO YOU WISH TO |
00000a30  52 45 54 55 52 4e 20 54  4f 20 50 52 4f 47 52 41  |RETURN TO PROGRA|
00000a40  4d 20 3f 20 28 59 2f 4e  29 22 00 60 12 c8 13 a1  |M ? (Y/N)".`....|
00000a50  41 24 3a 8b 41 24 b2 22  22 a7 35 30 36 34 00 70  |A$:.A$."".5064.p|
00000a60  12 ca 13 8b 41 24 b2 22  59 22 a7 31 30 30 00 8a  |....A$."Y".100..|
00000a70  12 cc 13 8b 41 24 b3 b1  22 59 22 af 41 24 b3 b1  |....A$.."Y".A$..|
00000a80  22 4e 22 a7 35 30 36 34  00 90 12 ce 13 80 00 ab  |"N".5064........|
00000a90  12 70 17 96 20 a5 49 28  49 29 b2 4a 3a 96 20 a5  |.p.. .I(I).J:. .|
00000aa0  4a 28 4a 29 b2 32 30 ab  49 00 b5 12 7a 17 89 36  |J(J).20.I...z..6|
00000ab0  35 30 30 00 d0 12 d4 17  96 20 a5 49 28 49 29 b2  |500...... .I(I).|
00000ac0  32 30 ab 49 3a 96 20 a5  4a 28 4a 29 b2 4a 00 da  |20.I:. .J(J).J..|
00000ad0  12 de 17 89 36 35 30 30  00 f5 12 38 18 96 20 a5  |....6500...8.. .|
00000ae0  49 28 49 29 b2 49 3a 96  20 a5 4a 28 4a 29 b2 32  |I(I).I:. .J(J).2|
00000af0  33 ab 4a 00 ff 12 42 18  89 36 35 30 30 00 09 13  |3.J...B..6500...|
00000b00  64 19 8d 36 39 30 30 00  15 13 6e 19 81 49 b2 30  |d..6900...n..I.0|
00000b10  a4 32 30 00 21 13 78 19  81 4a b2 30 a4 32 33 00  |.20.!.x..J.0.23.|
00000b20  37 13 82 19 4e 49 b2 a5  49 28 49 29 3a 4e 4a b2  |7...NI..I(I):NJ.|
00000b30  a5 4a 28 4a 29 00 55 13  87 19 42 b2 c2 28 4e 50  |.J(J).U...B..(NP|
00000b40  aa 49 ac 43 33 aa 4a ad  43 38 29 af 4d 28 4a af  |.I.C3.J.C8).M(J.|
00000b50  43 37 29 00 7d 13 88 19  8b 42 a7 50 b2 43 aa 4e  |C7).}....B.P.C.N|
00000b60  49 ac 43 33 aa 4e 4a ad  43 38 3a 97 50 2c c2 28  |I.C3.NJ.C8:.P,.(|
00000b70  50 29 b0 4d 28 4e 4a af  43 37 29 00 85 13 8c 19  |P).M(NJ.C7).....|
00000b80  82 3a 82 00 8e 13 96 19  89 32 31 30 00 9a 13 f4  |.:.......210....|
00000b90  1a 4e 50 b2 43 aa 36 34  00 a6 13 fe 1a 81 49 b2  |.NP.C.64......I.|
00000ba0  30 a4 36 33 00 b7 13 03  1b 97 4e 50 aa 49 2c c2  |0.63......NP.I,.|
00000bb0  28 43 aa 49 29 00 c4 13  04 1b 97 43 aa 49 2c 5a  |(C.I)......C.I,Z|
00000bc0  3a 82 00 ca 13 08 1b 8e  00 e4 13 41 1f 81 49 b2  |:..........A..I.|
00000bd0  30 a4 33 39 3a 97 31 30  32 34 aa 49 2c 32 31 38  |0.39:.1024.I,218|
00000be0  3a 82 00 04 14 42 1f 81  49 b2 31 a4 32 34 3a 97  |:....B..I.1.24:.|
00000bf0  31 30 32 34 aa 33 39 aa  49 ac 34 30 2c 32 31 38  |1024.39.I.40,218|
00000c00  3a 82 00 25 14 43 1f 81  49 b2 33 38 a4 30 a9 ab  |:..%.C..I.38.0..|
00000c10  31 3a 97 31 30 32 34 aa  39 36 30 aa 49 2c 32 31  |1:.1024.960.I,21|
00000c20  38 3a 82 00 45 14 44 1f  81 49 b2 32 33 a4 31 a9  |8:..E.D..I.23.1.|
00000c30  ab 31 3a 97 31 30 32 34  aa 49 ac 34 30 2c 32 31  |.1:.1024.I.40,21|
00000c40  38 3a 82 00 4e 14 45 1f  99 22 13 22 00 69 14 46  |8:..N.E..".".i.F|
00000c50  1f 99 a6 39 33 29 3a 99  22 53 50 52 49 54 45 20  |...93):."SPRITE |
00000c60  45 44 49 54 4f 52 22 00  80 14 47 1f 99 a6 34 33  |EDITOR"...G...43|
00000c70  29 3a 99 22 4b 45 59 43  4f 44 45 53 3a 22 00 86  |):."KEYCODES:"..|
00000c80  14 48 1f 8e 00 b6 14 28  23 99 22 93 22 3a 99 a3  |.H.....(#.".":..|
00000c90  31 32 34 29 3a 99 22 53  55 52 45 20 59 4f 55 20  |124):."SURE YOU |
00000ca0  57 41 4e 54 20 54 4f 20  51 55 49 54 3f 20 28 59  |WANT TO QUIT? (Y|
00000cb0  2f 4e 29 22 00 d4 14 29  23 a1 44 24 3a 8b 44 24  |/N)"...)#.D$:.D$|
00000cc0  b3 b1 22 59 22 af 44 24  b3 b1 22 4e 22 a7 39 30  |.."Y".D$.."N".90|
00000cd0  30 31 00 e8 14 2a 23 8b  44 24 b2 22 59 22 a7 20  |01...*#.D$."Y". |
00000ce0  9e 36 34 37 33 38 00 f8  14 2b 23 8b 44 24 b2 22  |.64738...+#.D$."|
00000cf0  4e 22 a7 31 30 30 00 3b  15 f8 2a 99 22 93 22 3b  |N".100.;..*.".";|
00000d00  3a 97 35 33 32 36 39 2c  c2 28 35 33 32 36 39 29  |:.53269,.(53269)|
00000d10  af 31 32 37 3a 99 a6 32  34 34 29 3b 3a 99 a6 32  |.127:..244);:..2|
00000d20  34 30 29 3b 3a 85 22 53  54 41 52 54 49 4e 47 20  |40);:."STARTING |
00000d30  4c 49 4e 45 20 23 22 3b  50 00 44 15 fc 2a 99 22  |LINE #";P.D..*."|
00000d40  93 22 00 50 15 01 2b 81  58 b2 30 a4 31 35 00 61  |.".P..+.X.0.15.a|
00000d50  15 02 2b 8b 58 b2 20 30  a7 8d 31 31 32 30 30 00  |..+.X. 0..11200.|
00000d60  78 15 03 2b 99 c2 28 31  30 32 34 30 aa 58 29 3b  |x..+..(10240.X);|
00000d70  3a 99 22 2c 22 3b 00 88  15 07 2b 8b 58 b2 31 35  |:.",";....+.X.15|
00000d80  a7 99 22 9d 20 22 00 8e  15 08 2b 82 00 98 15 0a  |..". "....+.....|
00000d90  2b 99 a6 34 30 29 00 a5  15 0b 2b 81 58 b2 31 36  |+..40)....+.X.16|
00000da0  a4 33 31 00 b6 15 0c 2b  8b 58 b2 31 36 a7 8d 31  |.31....+.X.16..1|
00000db0  31 32 30 30 00 cd 15 0d  2b 99 c2 28 31 30 32 34  |1200....+..(1024|
00000dc0  30 aa 58 29 3b 3a 99 22  2c 22 3b 00 dd 15 11 2b  |0.X);:.",";....+|
00000dd0  8b 58 b2 33 31 a7 99 22  9d 20 22 00 e3 15 12 2b  |.X.31..". "....+|
00000de0  82 00 ed 15 14 2b 99 a6  34 30 29 00 fa 15 15 2b  |.....+..40)....+|
00000df0  81 58 b2 33 32 a4 34 37  00 0b 16 16 2b 8b 58 b2  |.X.32.47....+.X.|
00000e00  33 32 a7 8d 31 31 32 30  30 00 22 16 17 2b 99 c2  |32..11200."..+..|
00000e10  28 31 30 32 34 30 aa 58  29 3b 3a 99 22 2c 22 3b  |(10240.X);:.",";|
00000e20  00 32 16 1b 2b 8b 58 b2  34 37 a7 99 22 9d 20 22  |.2..+.X.47..". "|
00000e30  00 38 16 1c 2b 82 00 42  16 1e 2b 99 a6 34 30 29  |.8..+..B..+..40)|
00000e40  00 4f 16 1f 2b 81 58 b2  34 38 a4 36 33 00 60 16  |.O..+.X.48.63.`.|
00000e50  20 2b 8b 58 b2 34 38 a7  8d 31 31 32 30 30 00 77  | +.X.48..11200.w|
00000e60  16 21 2b 99 c2 28 31 30  32 34 30 aa 58 29 3b 3a  |.!+..(10240.X);:|
00000e70  99 22 2c 22 3b 00 8e 16  25 2b 8b 58 b2 36 33 a7  |.",";...%+.X.63.|
00000e80  99 22 9d 20 22 3a 89 31  31 32 35 30 00 94 16 26  |.". ":.11250...&|
00000e90  2b 82 00 a2 16 c0 2b 8b  58 b3 31 35 a7 50 b2 50  |+.....+.X.15.P.P|
00000ea0  00 b9 16 c1 2b 8b 58 b1  b2 31 35 af 58 b3 b2 33  |....+.X..15.X..3|
00000eb0  31 a7 50 b2 50 aa 31 00  d0 16 c2 2b 8b 58 b1 b2  |1.P.P.1....+.X..|
00000ec0  33 32 af 58 b3 b2 34 37  a7 50 b2 50 aa 31 00 e7  |32.X..47.P.P.1..|
00000ed0  16 ca 2b 8b 58 b1 b2 34  38 af 58 b3 b2 36 33 a7  |..+.X..48.X..63.|
00000ee0  50 b2 50 aa 31 00 10 17  d4 2b 99 22 9d 22 3b 3a  |P.P.1....+.".";:|
00000ef0  99 50 3b 3a 99 a6 36 ab  c3 28 c4 28 50 29 29 29  |.P;:..6..(.(P)))|
00000f00  3b 3a 99 22 9d 44 41 54  41 20 22 3b 3a 8e 00 1c  |;:.".DATA ";:...|
00000f10  17 f2 2b 99 a6 32 34 30  29 3b 00 4c 17 f4 2b 99  |..+..240);.L..+.|
00000f20  22 44 4f 20 59 4f 55 20  57 49 53 48 20 54 4f 20  |"DO YOU WISH TO |
00000f30  52 45 54 55 52 4e 20 54  4f 20 50 52 4f 47 52 41  |RETURN TO PROGRA|
00000f40  4d 20 3f 20 28 59 2f 4e  29 22 00 61 17 f6 2b a1  |M ? (Y/N)".a..+.|
00000f50  41 24 3a 8b 41 24 b2 22  22 a7 31 31 32 35 34 00  |A$:.A$."".11254.|
00000f60  71 17 f8 2b 8b 41 24 b2  22 59 22 a7 31 30 30 00  |q..+.A$."Y".100.|
00000f70  8c 17 f9 2b 8b 41 24 b3  b1 22 59 22 af 41 24 b3  |...+.A$.."Y".A$.|
00000f80  b1 22 4e 22 a7 31 31 32  35 34 00 92 17 fa 2b 80  |."N".11254....+.|
00000f90  00 d0 17 e0 2e 99 22 93  22 3b 3a 97 35 33 32 36  |......".";:.5326|
00000fa0  39 2c c2 28 35 33 32 36  39 29 af 31 32 37 3a 99  |9,.(53269).127:.|
00000fb0  a6 32 34 34 29 3b 3a 99  a6 32 34 30 29 3b 3a 85  |.244);:..240);:.|
00000fc0  22 46 49 4c 45 20 4e 41  4d 45 22 3b 45 24 00 de  |"FILE NAME";E$..|
00000fd0  17 e1 2e 9f 31 2c 38 2c  31 2c 45 24 00 ea 17 e4  |....1,8,1,E$....|
00000fe0  2e 81 58 b2 30 a4 36 33  00 fb 17 e6 2e 44 b2 c2  |..X.0.63.....D..|
00000ff0  28 31 30 32 34 30 aa 58  29 00 04 18 e8 2e 98 31  |(10240.X)......1|
00001000  2c 44 00 0a 18 ec 2e 82  00 11 18 ee 2e a0 31 00  |,D............1.|
00001010  22 18 f0 2e 99 22 93 22  3a 99 a6 32 34 30 29 3b  |"....".":..240);|
00001020  00 52 18 f2 2e 99 22 44  4f 20 59 4f 55 20 57 49  |.R...."DO YOU WI|
00001030  53 48 20 54 4f 20 52 45  54 55 52 4e 20 54 4f 20  |SH TO RETURN TO |
00001040  50 52 4f 47 52 41 4d 20  3f 20 28 59 2f 4e 29 22  |PROGRAM ? (Y/N)"|
00001050  00 67 18 f4 2e a1 41 24  3a 8b 41 24 b2 22 22 a7  |.g....A$:.A$."".|
00001060  31 32 30 32 30 00 77 18  f6 2e 8b 41 24 b2 22 59  |12020.w....A$."Y|
00001070  22 a7 31 30 30 00 92 18  f8 2e 8b 41 24 b3 b1 22  |".100......A$.."|
00001080  59 22 af 41 24 b3 b1 22  4e 22 a7 31 32 30 32 30  |Y".A$.."N".12020|
00001090  00 98 18 fa 2e 80 00 da  18 c8 32 99 22 93 22 3a  |..........2.".":|
000010a0  97 35 33 32 36 39 2c c2  28 35 33 32 36 39 29 af  |.53269,.(53269).|
000010b0  31 32 37 3a 99 a6 32 34  34 29 3b 3a 99 a6 32 34  |127:..244);:..24|
000010c0  30 29 3b 3a 85 22 4e 41  4d 45 20 4f 46 20 53 50  |0);:."NAME OF SP|
000010d0  52 49 54 45 22 3b 45 24  00 18 19 c9 32 99 22 93  |RITE";E$....2.".|
000010e0  22 3a 99 a6 32 34 34 29  3b 3a 99 a6 32 33 38 29  |":..244);:..238)|
000010f0  3b 3a 85 22 53 54 41 52  54 49 4e 47 20 4c 4f 43  |;:."STARTING LOC|
00001100  41 54 49 4f 4e 20 50 4f  4b 45 20 28 31 30 32 34  |ATION POKE (1024|
00001110  30 29 22 3b 53 50 00 26  19 ca 32 9f 31 2c 38 2c  |0)";SP.&..2.1,8,|
00001120  30 2c 45 24 00 37 19 cc  32 81 58 b2 30 a4 36 33  |0,E$.7..2.X.0.63|
00001130  3a 84 31 2c 44 00 4a 19  ce 32 97 28 53 50 aa 58  |:.1,D.J..2.(SP.X|
00001140  29 2c 44 3a 82 3a a0 31  00 5b 19 d8 32 99 22 93  |),D:.:.1.[..2.".|
00001150  22 3a 99 a6 32 34 30 29  3b 00 8b 19 da 32 99 22  |":..240);....2."|
00001160  44 4f 20 59 4f 55 20 57  49 53 48 20 54 4f 20 52  |DO YOU WISH TO R|
00001170  45 54 55 52 4e 20 54 4f  20 50 52 4f 47 52 41 4d  |ETURN TO PROGRAM|
00001180  20 3f 20 28 59 2f 4e 29  22 00 a0 19 dc 32 a1 41  | ? (Y/N)"....2.A|
00001190  24 3a 8b 41 24 b2 22 22  a7 31 33 30 32 30 00 b0  |$:.A$."".13020..|
000011a0  19 de 32 8b 41 24 b2 22  59 22 a7 31 30 30 00 cb  |..2.A$."Y".100..|
000011b0  19 e0 32 8b 41 24 b3 b1  22 59 22 af 41 24 b3 b1  |..2.A$.."Y".A$..|
000011c0  22 4e 22 a7 31 33 30 32  30 00 d1 19 e2 32 80 00  |"N".13020....2..|
000011d0  00 00                                             |..|
000011d2

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 15 Dec 2025, 16:13 UTC
Website designed by .