Home » Archimedes archive » Acorn User » AU 1993-09.adf » !Bio_Bio » !Bio/Library/SpriteSort

!Bio/Library/SpriteSort

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 » Archimedes archive » Acorn User » AU 1993-09.adf » !Bio_Bio
Filename: !Bio/Library/SpriteSort
Read OK: ✔
File size: 0A87 bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM     >SpriteSort
   20REM By  dL
   30REM For 32-bit machines
   40REM (c) BAU August 1993
   50:
   60DEF FNspritesort_name = "Sprite sorter"
   70DEF FNspritesort_args = "-in Sprite -out Sprite"
   80:
   90DEF FNspritesort_init
  100LOCAL i%
  110FOR i%=0 TO 1
  120 PROCset_button(wind_hand%,i%,ABS(i%=0))
  130NEXT
  140DIM spritesort_code% 256
  150sp=13:link=14:pc=15
  160FOR i%=0 TO 2 STEP 2
  170P%=spritesort_code%
  180[OPT i%
  190STMFD   (sp)!,{R0,R1,link}
  200BL      ss_convert
  210BVS     ss_one_s
  220MOV     R1,R0
  230LDR     R0,[sp,#4]
  240BL      ss_convert
  250BVS     return_LT
  260CMP     R1,R0
  270LDMFD   (sp)!,{R0,R1,pc}
  280
  290.return_LT
  300CMP     pc,#&7F000000
  310LDMFD   (sp)!,{R0,R1,pc}
  320
  330.return_GE
  340CMP     pc,#0
  350LDMFD   (sp)!,{R0,R1,pc}
  360
  370.ss_one_s
  380LDR     R0,[sp,#4]
  390BL      ss_convert
  400BVC     return_GE
  410LDR     R2,[sp,#0]
  420LDR     R3,[sp,#4]
  430.ss_strcomp
  440LDRB    R0,[R2],#1
  450LDRB    R1,[R3],#1
  460CMP     R0,R1
  470BEQ     ss_strcomp
  480LDMFD   (sp)!,{R0,R1,pc}
  490
  500.ss_convert
  510STMFD   (sp)!,{R1,R2,link}
  520MOV     R1,R0
  530MOV     R0,#10
  540SWI     "XOS_ReadUnsigned"
  550MOV     R0,R2
  560LDMFD   (sp)!,{R1,R2,pc}
  570]
  580NEXT
  590=0
  600:
  610DEF FNspritesort_mouse(mx%,my%,mb%,mh%,mi%)
  620IF (mb% AND 1) AND FNbutton_state(mh%,mi%)=0 PROCset_button(mh%,mi%,1)
  630=0
  640:
  650DEF FNspritesort(in$,out$)
  660LOCAL in%,out%,sprites%,next%,last%,off%,memory%,length%
  670LOCAL available%,poke%,space%,get%,sort%,i%,size%,type%
  680sort%=FNesg_state(wind_hand%,1)
  690IF NOT FNclaim_memory(memory%,available%) PROCwarn("Out of memory"):=1
  700in%=OPENIN(in$)
  710sprites%=FNwget(in%)
  720next%=FNwget(in%)-4
  730last%=FNwget(in%)
  740size%=sprites%*(16+4)
  750IF size%>available% PROCwarn("Out of memory"):=1
  760poke%=memory%
  770FOR i%=0 TO sprites%-1
  780 PTR#in%=next%
  790 off%=FNwget(in%)
  800 SYS "OS_GBPB",4,in%,poke%,12
  810 poke%!12=next%
  820 poke%+=16
  830 next%+=off%
  840NEXT i%
  850IF sort%=0 type%=4 ELSE type%=spritesort_code%
  860SYS "OS_HeapSort",sprites%,poke% OR (%11<<30),type%,,memory%,16
  870out%=OPENOUT(out$)
  880PROCwput(out%,sprites%)
  890PROCwput(out%,&10)
  900PROCwput(out%,last%)
  910space%=memory%+available%-poke%
  920FOR i%=0 TO sprites%-1
  930 PROChourglass(i%,sprites%)
  940 PTR#in%=memory%!(i%*16+12)
  950 length%=FNwget(in%)-4
  960 PROCwput(out%,length%+4)
  970 REPEAT
  980  IF length%>space% get%=space% ELSE get%=length%
  990  SYS "OS_GBPB",4,in%,poke%,get%
 1000  SYS "OS_GBPB",2,out%,poke%,get%
 1010  length%-=get%
 1020 UNTIL length%=0
 1030NEXT i%
 1040CLOSE #in%
 1050CLOSE #out%
 1060=0
 1070:
 1080DEF FNspritesort_help(window%,icon%)
 1090LOCAL help$
 1100IF window%=-1 THEN
 1110 help$="Drop a sprite file on this to sort its sprites"
 1120ELSE
 1130 CASE icon% OF
 1140  WHEN 0:help$="Click SELECT to sort alphabetically|M0,1,10,11,2,20,3,...A,B,C"
 1150  WHEN 1:help$="Click SELECT to sort numerically|m0,1,2,3,10,11,20,...A,B,C"
 1160 ENDCASE
 1170ENDIF
 1180=help$


�     >SpriteSort
� By  dL
� For 32-bit machines
(� (c) BAU August 1993
2:
<(� �spritesort_name = "Sprite sorter"
F1� �spritesort_args = "-in Sprite -out Sprite"
P:
Z� �spritesort_init
d� i%
n� i%=0 � 1
x' �set_button(wind_hand%,i%,�(i%=0))
��
�� spritesort_code% 256
�sp=13:link=14:pc=15
�� i%=0 � 2 � 2
�P%=spritesort_code%
�[OPT i%
�STMFD   (sp)!,{R0,R1,link}
�BL      ss_convert
�BVS     ss_one_s
�MOV     R1,R0
�LDR     R0,[sp,#4]
�BL      ss_convert
�BVS     return_LT
CMP     R1,R0
LDMFD   (sp)!,{R0,R1,pc}

".return_LT
,CMP     pc,#&7F000000
6LDMFD   (sp)!,{R0,R1,pc}
@
J.return_GE
TCMP     pc,#0
^LDMFD   (sp)!,{R0,R1,pc}
h
r
.ss_one_s
|LDR     R0,[sp,#4]
�BL      ss_convert
�BVC     return_GE
�LDR     R2,[sp,#0]
�LDR     R3,[sp,#4]
�.ss_strcomp
�LDRB    R0,[R2],#1
�LDRB    R1,[R3],#1
�CMP     R0,R1
�BEQ     ss_strcomp
�LDMFD   (sp)!,{R0,R1,pc}
�
�.ss_convert
�STMFD   (sp)!,{R1,R2,link}
MOV     R1,R0
MOV     R0,#10
SWI     "XOS_ReadUnsigned"
&MOV     R0,R2
0LDMFD   (sp)!,{R1,R2,pc}
:]
D�
N=0
X:
b,� �spritesort_mouse(mx%,my%,mb%,mh%,mi%)
lA� (mb% � 1) � �button_state(mh%,mi%)=0 �set_button(mh%,mi%,1)
v=0
�:
�� �spritesort(in$,out$)
�8� in%,out%,sprites%,next%,last%,off%,memory%,length%
�7� available%,poke%,space%,get%,sort%,i%,size%,type%
�"sort%=�esg_state(wind_hand%,1)
�C� � �claim_memory(memory%,available%) �warn("Out of memory"):=1
�in%=�(in$)
�sprites%=�wget(in%)
�next%=�wget(in%)-4
�last%=�wget(in%)
�size%=sprites%*(16+4)
�0� size%>available% �warn("Out of memory"):=1
�poke%=memory%
� i%=0 � sprites%-1
 �#in%=next%
 off%=�wget(in%)
   ș "OS_GBPB",4,in%,poke%,12
* poke%!12=next%
4 poke%+=16
> next%+=off%
H� i%
R.� sort%=0 type%=4 � type%=spritesort_code%
\Aș "OS_HeapSort",sprites%,poke% � (%11<<30),type%,,memory%,16
fout%=�(out$)
p�wput(out%,sprites%)
z�wput(out%,&10)
��wput(out%,last%)
�#space%=memory%+available%-poke%
�� i%=0 � sprites%-1
� �hourglass(i%,sprites%)
� �#in%=memory%!(i%*16+12)
� length%=�wget(in%)-4
� �wput(out%,length%+4)
� �
�1  � length%>space% get%=space% � get%=length%
�#  ș "OS_GBPB",4,in%,poke%,get%
�$  ș "OS_GBPB",2,out%,poke%,get%
�  length%-=get%
� � length%=0
� i%

� #in%
� #out%
$=0
.:
8%� �spritesort_help(window%,icon%)
B� help$
L� window%=-1 �
V; help$="Drop a sprite file on this to sort its sprites"
`�
j Ȏ icon% �
tP  � 0:help$="Click SELECT to sort alphabetically|M0,1,10,11,2,20,3,...A,B,C"
~M  � 1:help$="Click SELECT to sort numerically|m0,1,2,3,10,11,20,...A,B,C"
� �
��
�
=help$
�
00000000  0d 00 0a 15 f4 20 20 20  20 20 3e 53 70 72 69 74  |.....     >Sprit|
00000010  65 53 6f 72 74 0d 00 14  0c f4 20 42 79 20 20 64  |eSort..... By  d|
00000020  4c 0d 00 1e 19 f4 20 46  6f 72 20 33 32 2d 62 69  |L..... For 32-bi|
00000030  74 20 6d 61 63 68 69 6e  65 73 0d 00 28 19 f4 20  |t machines..(.. |
00000040  28 63 29 20 42 41 55 20  41 75 67 75 73 74 20 31  |(c) BAU August 1|
00000050  39 39 33 0d 00 32 05 3a  0d 00 3c 28 dd 20 a4 73  |993..2.:..<(. .s|
00000060  70 72 69 74 65 73 6f 72  74 5f 6e 61 6d 65 20 3d  |pritesort_name =|
00000070  20 22 53 70 72 69 74 65  20 73 6f 72 74 65 72 22  | "Sprite sorter"|
00000080  0d 00 46 31 dd 20 a4 73  70 72 69 74 65 73 6f 72  |..F1. .spritesor|
00000090  74 5f 61 72 67 73 20 3d  20 22 2d 69 6e 20 53 70  |t_args = "-in Sp|
000000a0  72 69 74 65 20 2d 6f 75  74 20 53 70 72 69 74 65  |rite -out Sprite|
000000b0  22 0d 00 50 05 3a 0d 00  5a 16 dd 20 a4 73 70 72  |"..P.:..Z.. .spr|
000000c0  69 74 65 73 6f 72 74 5f  69 6e 69 74 0d 00 64 08  |itesort_init..d.|
000000d0  ea 20 69 25 0d 00 6e 0e  e3 20 69 25 3d 30 20 b8  |. i%..n.. i%=0 .|
000000e0  20 31 0d 00 78 27 20 f2  73 65 74 5f 62 75 74 74  | 1..x' .set_butt|
000000f0  6f 6e 28 77 69 6e 64 5f  68 61 6e 64 25 2c 69 25  |on(wind_hand%,i%|
00000100  2c 94 28 69 25 3d 30 29  29 0d 00 82 05 ed 0d 00  |,.(i%=0)).......|
00000110  8c 1a de 20 73 70 72 69  74 65 73 6f 72 74 5f 63  |... spritesort_c|
00000120  6f 64 65 25 20 32 35 36  0d 00 96 17 73 70 3d 31  |ode% 256....sp=1|
00000130  33 3a 6c 69 6e 6b 3d 31  34 3a 70 63 3d 31 35 0d  |3:link=14:pc=15.|
00000140  00 a0 12 e3 20 69 25 3d  30 20 b8 20 32 20 88 20  |.... i%=0 . 2 . |
00000150  32 0d 00 aa 17 50 25 3d  73 70 72 69 74 65 73 6f  |2....P%=spriteso|
00000160  72 74 5f 63 6f 64 65 25  0d 00 b4 0b 5b 4f 50 54  |rt_code%....[OPT|
00000170  20 69 25 0d 00 be 1e 53  54 4d 46 44 20 20 20 28  | i%....STMFD   (|
00000180  73 70 29 21 2c 7b 52 30  2c 52 31 2c 6c 69 6e 6b  |sp)!,{R0,R1,link|
00000190  7d 0d 00 c8 16 42 4c 20  20 20 20 20 20 73 73 5f  |}....BL      ss_|
000001a0  63 6f 6e 76 65 72 74 0d  00 d2 14 42 56 53 20 20  |convert....BVS  |
000001b0  20 20 20 73 73 5f 6f 6e  65 5f 73 0d 00 dc 11 4d  |   ss_one_s....M|
000001c0  4f 56 20 20 20 20 20 52  31 2c 52 30 0d 00 e6 16  |OV     R1,R0....|
000001d0  4c 44 52 20 20 20 20 20  52 30 2c 5b 73 70 2c 23  |LDR     R0,[sp,#|
000001e0  34 5d 0d 00 f0 16 42 4c  20 20 20 20 20 20 73 73  |4]....BL      ss|
000001f0  5f 63 6f 6e 76 65 72 74  0d 00 fa 15 42 56 53 20  |_convert....BVS |
00000200  20 20 20 20 72 65 74 75  72 6e 5f 4c 54 0d 01 04  |    return_LT...|
00000210  11 43 4d 50 20 20 20 20  20 52 31 2c 52 30 0d 01  |.CMP     R1,R0..|
00000220  0e 1c 4c 44 4d 46 44 20  20 20 28 73 70 29 21 2c  |..LDMFD   (sp)!,|
00000230  7b 52 30 2c 52 31 2c 70  63 7d 0d 01 18 04 0d 01  |{R0,R1,pc}......|
00000240  22 0e 2e 72 65 74 75 72  6e 5f 4c 54 0d 01 2c 19  |"..return_LT..,.|
00000250  43 4d 50 20 20 20 20 20  70 63 2c 23 26 37 46 30  |CMP     pc,#&7F0|
00000260  30 30 30 30 30 0d 01 36  1c 4c 44 4d 46 44 20 20  |00000..6.LDMFD  |
00000270  20 28 73 70 29 21 2c 7b  52 30 2c 52 31 2c 70 63  | (sp)!,{R0,R1,pc|
00000280  7d 0d 01 40 04 0d 01 4a  0e 2e 72 65 74 75 72 6e  |}..@...J..return|
00000290  5f 47 45 0d 01 54 11 43  4d 50 20 20 20 20 20 70  |_GE..T.CMP     p|
000002a0  63 2c 23 30 0d 01 5e 1c  4c 44 4d 46 44 20 20 20  |c,#0..^.LDMFD   |
000002b0  28 73 70 29 21 2c 7b 52  30 2c 52 31 2c 70 63 7d  |(sp)!,{R0,R1,pc}|
000002c0  0d 01 68 04 0d 01 72 0d  2e 73 73 5f 6f 6e 65 5f  |..h...r..ss_one_|
000002d0  73 0d 01 7c 16 4c 44 52  20 20 20 20 20 52 30 2c  |s..|.LDR     R0,|
000002e0  5b 73 70 2c 23 34 5d 0d  01 86 16 42 4c 20 20 20  |[sp,#4]....BL   |
000002f0  20 20 20 73 73 5f 63 6f  6e 76 65 72 74 0d 01 90  |   ss_convert...|
00000300  15 42 56 43 20 20 20 20  20 72 65 74 75 72 6e 5f  |.BVC     return_|
00000310  47 45 0d 01 9a 16 4c 44  52 20 20 20 20 20 52 32  |GE....LDR     R2|
00000320  2c 5b 73 70 2c 23 30 5d  0d 01 a4 16 4c 44 52 20  |,[sp,#0]....LDR |
00000330  20 20 20 20 52 33 2c 5b  73 70 2c 23 34 5d 0d 01  |    R3,[sp,#4]..|
00000340  ae 0f 2e 73 73 5f 73 74  72 63 6f 6d 70 0d 01 b8  |...ss_strcomp...|
00000350  16 4c 44 52 42 20 20 20  20 52 30 2c 5b 52 32 5d  |.LDRB    R0,[R2]|
00000360  2c 23 31 0d 01 c2 16 4c  44 52 42 20 20 20 20 52  |,#1....LDRB    R|
00000370  31 2c 5b 52 33 5d 2c 23  31 0d 01 cc 11 43 4d 50  |1,[R3],#1....CMP|
00000380  20 20 20 20 20 52 30 2c  52 31 0d 01 d6 16 42 45  |     R0,R1....BE|
00000390  51 20 20 20 20 20 73 73  5f 73 74 72 63 6f 6d 70  |Q     ss_strcomp|
000003a0  0d 01 e0 1c 4c 44 4d 46  44 20 20 20 28 73 70 29  |....LDMFD   (sp)|
000003b0  21 2c 7b 52 30 2c 52 31  2c 70 63 7d 0d 01 ea 04  |!,{R0,R1,pc}....|
000003c0  0d 01 f4 0f 2e 73 73 5f  63 6f 6e 76 65 72 74 0d  |.....ss_convert.|
000003d0  01 fe 1e 53 54 4d 46 44  20 20 20 28 73 70 29 21  |...STMFD   (sp)!|
000003e0  2c 7b 52 31 2c 52 32 2c  6c 69 6e 6b 7d 0d 02 08  |,{R1,R2,link}...|
000003f0  11 4d 4f 56 20 20 20 20  20 52 31 2c 52 30 0d 02  |.MOV     R1,R0..|
00000400  12 12 4d 4f 56 20 20 20  20 20 52 30 2c 23 31 30  |..MOV     R0,#10|
00000410  0d 02 1c 1e 53 57 49 20  20 20 20 20 22 58 4f 53  |....SWI     "XOS|
00000420  5f 52 65 61 64 55 6e 73  69 67 6e 65 64 22 0d 02  |_ReadUnsigned"..|
00000430  26 11 4d 4f 56 20 20 20  20 20 52 30 2c 52 32 0d  |&.MOV     R0,R2.|
00000440  02 30 1c 4c 44 4d 46 44  20 20 20 28 73 70 29 21  |.0.LDMFD   (sp)!|
00000450  2c 7b 52 31 2c 52 32 2c  70 63 7d 0d 02 3a 05 5d  |,{R1,R2,pc}..:.]|
00000460  0d 02 44 05 ed 0d 02 4e  06 3d 30 0d 02 58 05 3a  |..D....N.=0..X.:|
00000470  0d 02 62 2c dd 20 a4 73  70 72 69 74 65 73 6f 72  |..b,. .spritesor|
00000480  74 5f 6d 6f 75 73 65 28  6d 78 25 2c 6d 79 25 2c  |t_mouse(mx%,my%,|
00000490  6d 62 25 2c 6d 68 25 2c  6d 69 25 29 0d 02 6c 41  |mb%,mh%,mi%)..lA|
000004a0  e7 20 28 6d 62 25 20 80  20 31 29 20 80 20 a4 62  |. (mb% . 1) . .b|
000004b0  75 74 74 6f 6e 5f 73 74  61 74 65 28 6d 68 25 2c  |utton_state(mh%,|
000004c0  6d 69 25 29 3d 30 20 f2  73 65 74 5f 62 75 74 74  |mi%)=0 .set_butt|
000004d0  6f 6e 28 6d 68 25 2c 6d  69 25 2c 31 29 0d 02 76  |on(mh%,mi%,1)..v|
000004e0  06 3d 30 0d 02 80 05 3a  0d 02 8a 1b dd 20 a4 73  |.=0....:..... .s|
000004f0  70 72 69 74 65 73 6f 72  74 28 69 6e 24 2c 6f 75  |pritesort(in$,ou|
00000500  74 24 29 0d 02 94 38 ea  20 69 6e 25 2c 6f 75 74  |t$)...8. in%,out|
00000510  25 2c 73 70 72 69 74 65  73 25 2c 6e 65 78 74 25  |%,sprites%,next%|
00000520  2c 6c 61 73 74 25 2c 6f  66 66 25 2c 6d 65 6d 6f  |,last%,off%,memo|
00000530  72 79 25 2c 6c 65 6e 67  74 68 25 0d 02 9e 37 ea  |ry%,length%...7.|
00000540  20 61 76 61 69 6c 61 62  6c 65 25 2c 70 6f 6b 65  | available%,poke|
00000550  25 2c 73 70 61 63 65 25  2c 67 65 74 25 2c 73 6f  |%,space%,get%,so|
00000560  72 74 25 2c 69 25 2c 73  69 7a 65 25 2c 74 79 70  |rt%,i%,size%,typ|
00000570  65 25 0d 02 a8 22 73 6f  72 74 25 3d a4 65 73 67  |e%..."sort%=.esg|
00000580  5f 73 74 61 74 65 28 77  69 6e 64 5f 68 61 6e 64  |_state(wind_hand|
00000590  25 2c 31 29 0d 02 b2 43  e7 20 ac 20 a4 63 6c 61  |%,1)...C. . .cla|
000005a0  69 6d 5f 6d 65 6d 6f 72  79 28 6d 65 6d 6f 72 79  |im_memory(memory|
000005b0  25 2c 61 76 61 69 6c 61  62 6c 65 25 29 20 f2 77  |%,available%) .w|
000005c0  61 72 6e 28 22 4f 75 74  20 6f 66 20 6d 65 6d 6f  |arn("Out of memo|
000005d0  72 79 22 29 3a 3d 31 0d  02 bc 0e 69 6e 25 3d 8e  |ry"):=1....in%=.|
000005e0  28 69 6e 24 29 0d 02 c6  17 73 70 72 69 74 65 73  |(in$)....sprites|
000005f0  25 3d a4 77 67 65 74 28  69 6e 25 29 0d 02 d0 16  |%=.wget(in%)....|
00000600  6e 65 78 74 25 3d a4 77  67 65 74 28 69 6e 25 29  |next%=.wget(in%)|
00000610  2d 34 0d 02 da 14 6c 61  73 74 25 3d a4 77 67 65  |-4....last%=.wge|
00000620  74 28 69 6e 25 29 0d 02  e4 19 73 69 7a 65 25 3d  |t(in%)....size%=|
00000630  73 70 72 69 74 65 73 25  2a 28 31 36 2b 34 29 0d  |sprites%*(16+4).|
00000640  02 ee 30 e7 20 73 69 7a  65 25 3e 61 76 61 69 6c  |..0. size%>avail|
00000650  61 62 6c 65 25 20 f2 77  61 72 6e 28 22 4f 75 74  |able% .warn("Out|
00000660  20 6f 66 20 6d 65 6d 6f  72 79 22 29 3a 3d 31 0d  | of memory"):=1.|
00000670  02 f8 11 70 6f 6b 65 25  3d 6d 65 6d 6f 72 79 25  |...poke%=memory%|
00000680  0d 03 02 17 e3 20 69 25  3d 30 20 b8 20 73 70 72  |..... i%=0 . spr|
00000690  69 74 65 73 25 2d 31 0d  03 0c 10 20 cf 23 69 6e  |ites%-1.... .#in|
000006a0  25 3d 6e 65 78 74 25 0d  03 16 14 20 6f 66 66 25  |%=next%.... off%|
000006b0  3d a4 77 67 65 74 28 69  6e 25 29 0d 03 20 20 20  |=.wget(in%)..   |
000006c0  c8 99 20 22 4f 53 5f 47  42 50 42 22 2c 34 2c 69  |.. "OS_GBPB",4,i|
000006d0  6e 25 2c 70 6f 6b 65 25  2c 31 32 0d 03 2a 13 20  |n%,poke%,12..*. |
000006e0  70 6f 6b 65 25 21 31 32  3d 6e 65 78 74 25 0d 03  |poke%!12=next%..|
000006f0  34 0e 20 70 6f 6b 65 25  2b 3d 31 36 0d 03 3e 10  |4. poke%+=16..>.|
00000700  20 6e 65 78 74 25 2b 3d  6f 66 66 25 0d 03 48 08  | next%+=off%..H.|
00000710  ed 20 69 25 0d 03 52 2e  e7 20 73 6f 72 74 25 3d  |. i%..R.. sort%=|
00000720  30 20 74 79 70 65 25 3d  34 20 8b 20 74 79 70 65  |0 type%=4 . type|
00000730  25 3d 73 70 72 69 74 65  73 6f 72 74 5f 63 6f 64  |%=spritesort_cod|
00000740  65 25 0d 03 5c 41 c8 99  20 22 4f 53 5f 48 65 61  |e%..\A.. "OS_Hea|
00000750  70 53 6f 72 74 22 2c 73  70 72 69 74 65 73 25 2c  |pSort",sprites%,|
00000760  70 6f 6b 65 25 20 84 20  28 25 31 31 3c 3c 33 30  |poke% . (%11<<30|
00000770  29 2c 74 79 70 65 25 2c  2c 6d 65 6d 6f 72 79 25  |),type%,,memory%|
00000780  2c 31 36 0d 03 66 10 6f  75 74 25 3d ae 28 6f 75  |,16..f.out%=.(ou|
00000790  74 24 29 0d 03 70 18 f2  77 70 75 74 28 6f 75 74  |t$)..p..wput(out|
000007a0  25 2c 73 70 72 69 74 65  73 25 29 0d 03 7a 13 f2  |%,sprites%)..z..|
000007b0  77 70 75 74 28 6f 75 74  25 2c 26 31 30 29 0d 03  |wput(out%,&10)..|
000007c0  84 15 f2 77 70 75 74 28  6f 75 74 25 2c 6c 61 73  |...wput(out%,las|
000007d0  74 25 29 0d 03 8e 23 73  70 61 63 65 25 3d 6d 65  |t%)...#space%=me|
000007e0  6d 6f 72 79 25 2b 61 76  61 69 6c 61 62 6c 65 25  |mory%+available%|
000007f0  2d 70 6f 6b 65 25 0d 03  98 17 e3 20 69 25 3d 30  |-poke%..... i%=0|
00000800  20 b8 20 73 70 72 69 74  65 73 25 2d 31 0d 03 a2  | . sprites%-1...|
00000810  1c 20 f2 68 6f 75 72 67  6c 61 73 73 28 69 25 2c  |. .hourglass(i%,|
00000820  73 70 72 69 74 65 73 25  29 0d 03 ac 1d 20 cf 23  |sprites%).... .#|
00000830  69 6e 25 3d 6d 65 6d 6f  72 79 25 21 28 69 25 2a  |in%=memory%!(i%*|
00000840  31 36 2b 31 32 29 0d 03  b6 19 20 6c 65 6e 67 74  |16+12).... lengt|
00000850  68 25 3d a4 77 67 65 74  28 69 6e 25 29 2d 34 0d  |h%=.wget(in%)-4.|
00000860  03 c0 1a 20 f2 77 70 75  74 28 6f 75 74 25 2c 6c  |... .wput(out%,l|
00000870  65 6e 67 74 68 25 2b 34  29 0d 03 ca 06 20 f5 0d  |ength%+4).... ..|
00000880  03 d4 31 20 20 e7 20 6c  65 6e 67 74 68 25 3e 73  |..1  . length%>s|
00000890  70 61 63 65 25 20 67 65  74 25 3d 73 70 61 63 65  |pace% get%=space|
000008a0  25 20 8b 20 67 65 74 25  3d 6c 65 6e 67 74 68 25  |% . get%=length%|
000008b0  0d 03 de 23 20 20 c8 99  20 22 4f 53 5f 47 42 50  |...#  .. "OS_GBP|
000008c0  42 22 2c 34 2c 69 6e 25  2c 70 6f 6b 65 25 2c 67  |B",4,in%,poke%,g|
000008d0  65 74 25 0d 03 e8 24 20  20 c8 99 20 22 4f 53 5f  |et%...$  .. "OS_|
000008e0  47 42 50 42 22 2c 32 2c  6f 75 74 25 2c 70 6f 6b  |GBPB",2,out%,pok|
000008f0  65 25 2c 67 65 74 25 0d  03 f2 13 20 20 6c 65 6e  |e%,get%....  len|
00000900  67 74 68 25 2d 3d 67 65  74 25 0d 03 fc 10 20 fd  |gth%-=get%.... .|
00000910  20 6c 65 6e 67 74 68 25  3d 30 0d 04 06 08 ed 20  | length%=0..... |
00000920  69 25 0d 04 10 0a d9 20  23 69 6e 25 0d 04 1a 0b  |i%..... #in%....|
00000930  d9 20 23 6f 75 74 25 0d  04 24 06 3d 30 0d 04 2e  |. #out%..$.=0...|
00000940  05 3a 0d 04 38 25 dd 20  a4 73 70 72 69 74 65 73  |.:..8%. .sprites|
00000950  6f 72 74 5f 68 65 6c 70  28 77 69 6e 64 6f 77 25  |ort_help(window%|
00000960  2c 69 63 6f 6e 25 29 0d  04 42 0b ea 20 68 65 6c  |,icon%)..B.. hel|
00000970  70 24 0d 04 4c 12 e7 20  77 69 6e 64 6f 77 25 3d  |p$..L.. window%=|
00000980  2d 31 20 8c 0d 04 56 3b  20 68 65 6c 70 24 3d 22  |-1 ...V; help$="|
00000990  44 72 6f 70 20 61 20 73  70 72 69 74 65 20 66 69  |Drop a sprite fi|
000009a0  6c 65 20 6f 6e 20 74 68  69 73 20 74 6f 20 73 6f  |le on this to so|
000009b0  72 74 20 69 74 73 20 73  70 72 69 74 65 73 22 0d  |rt its sprites".|
000009c0  04 60 05 cc 0d 04 6a 0f  20 c8 8e 20 69 63 6f 6e  |.`....j. .. icon|
000009d0  25 20 ca 0d 04 74 50 20  20 c9 20 30 3a 68 65 6c  |% ...tP  . 0:hel|
000009e0  70 24 3d 22 43 6c 69 63  6b 20 53 45 4c 45 43 54  |p$="Click SELECT|
000009f0  20 74 6f 20 73 6f 72 74  20 61 6c 70 68 61 62 65  | to sort alphabe|
00000a00  74 69 63 61 6c 6c 79 7c  4d 30 2c 31 2c 31 30 2c  |tically|M0,1,10,|
00000a10  31 31 2c 32 2c 32 30 2c  33 2c 2e 2e 2e 41 2c 42  |11,2,20,3,...A,B|
00000a20  2c 43 22 0d 04 7e 4d 20  20 c9 20 31 3a 68 65 6c  |,C"..~M  . 1:hel|
00000a30  70 24 3d 22 43 6c 69 63  6b 20 53 45 4c 45 43 54  |p$="Click SELECT|
00000a40  20 74 6f 20 73 6f 72 74  20 6e 75 6d 65 72 69 63  | to sort numeric|
00000a50  61 6c 6c 79 7c 6d 30 2c  31 2c 32 2c 33 2c 31 30  |ally|m0,1,2,3,10|
00000a60  2c 31 31 2c 32 30 2c 2e  2e 2e 41 2c 42 2c 43 22  |,11,20,...A,B,C"|
00000a70  0d 04 88 06 20 cb 0d 04  92 05 cd 0d 04 9c 0a 3d  |.... ..........=|
00000a80  68 65 6c 70 24 0d ff                              |help$..|
00000a87

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .