Home » Archimedes archive » Acorn User » AU 1995-10.adf » !Direct » Director/!Director/Menus/Files/TreePick
Director/!Director/Menus/Files/TreePick
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 1995-10.adf » !Direct |
| Filename: | Director/!Director/Menus/Files/TreePick |
| Read OK: | ✔ |
| File size: | 0914 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Archimedes archive » Acorn User » AU 1995-10.adf » !Direct » Director/!Director/Menus/Files/TreePick
- Archimedes archive » Acorn User » AU 1998-09.adf » Features » DesktopPD/Director/!Director/Menus/Files/TreePick
File contents
1REM >TreePick
2REM By Dave Lawrence 22Jun95
3REM
4REM TreePick is a magic Dynamic Menu that allows you to do things like:
5REM
6REM TreePick -type Sprite -dir Root:Backdrops -command "Backdrop -tile %0"
7REM
8REM It (recursively) makes menus of files of the given type starting from
9REM 'dir'. When one is clicked on, the command is executed with the
10REM filename substituted as expected.
11
12
13ON ERROR PRINT REPORT$;" at line ";ERL:END
14DIM buf 512
15
16in$=FNgetargs
17SYS "OS_ReadArgs", "type/k,dir/k,command/k", in$, buf, 512
18REM Get file type, look up type number, make sprite name
19type$=FNstr0(!buf)
20SYS "OS_FSControl",31,type$ TO ,,file_type
21type_spr$ = "small_"+RIGHT$("000"+STR$~file_type,3)
22REM Just get the directory
23dir$=FNstr0(buf!4)
24REM Get the command, rebuild command with %%s replacing %s, make command to pass to sub-directories
25command$=FNstr0(buf!8)
26sub$=""
27FOR i=1 TO LENcommand$
28 IF MID$(command$,i,1)="%" sub$+="%"
29 sub$+=MID$(command$,i,1)
30NEXT
31sub$="Dynamic:/Director:Menus.Files.TreePick -type "+type$+" -command """""+sub$+""""""
32
33menu=FNswi_number("Director_Menu")
34endmenu=FNswi_number("Director_EndMenu")
35option=FNswi_number("Director_Option")
36command=FNswi_number("Director_Command")
37subargs=FNswi_number("OS_SubstituteArgs")
38dash=FNswi_number("Director_Dash")
39
40REM Read canonicalised path name and take menu name from the current leaf
41SYS "OS_FSControl",37,dir$,buf,,,512
42canon$=FNstr0(buf)
43OSCLI"DirectorParsePath "+canon$
44SYS menu,"<Director$CurrentLeaf> TreePick -temp"
45
46i=0
47REPEAT
48 SYS "OS_GBPB",12,dir$,buf,1,i,128,0 TO ,,,read,i
49 IF read=1 THEN
50 leaf$=FNstr0(buf+24)
51 path$=dir$+"."+leaf$
52 CASE buf!16 OF
53 WHEN 1:
54 IF buf!20 = file_type THEN
55 SYS option, leaf$+" -sprite "+type_spr$
56 SYS subargs, path$, buf, 512, command$, LENcommand$
57 SYS command, buf
58 ENDIF
59 WHEN 2:
60 SYS option, leaf$+" -sprite small_dir -sub "+CHR$34+sub$+" -dir "+path$+CHR$34
61 ENDCASE
62 ENDIF
63UNTIL i=-1
64*EndMenu
65*Set Director$Menu TreePick
66END
67
68DEF FNswi_number(swi$)
69SYS "OS_SWINumberFromString",,swi$ TO swi%
70=swi%
71:
72DEF FNgetargs
73SYS "OS_GetEnv" TO A$
74quit=INSTR(A$,"-quit")
75IF quit=0 quit=INSTR(A$,"-QUIT")
76A$=MID$(A$,quit+6)
77spc=INSTR(A$," ")
78A$=MID$(A$,spc+1)
79=A$
80:
81DEF FNstr0(A)
82A$=""
83WHILE ?A<>0
84 A$+=CHR$?A
85 A+=1
86ENDWHILE
87=A$
� >TreePick
� By Dave Lawrence 22Jun95
�
I� TreePick is a magic Dynamic Menu that allows you to do things like:
�
L� TreePick -type Sprite -dir Root:Backdrops -command "Backdrop -tile %0"
�
K� It (recursively) makes menus of files of the given type starting from
F� 'dir'. When one is clicked on, the command is executed with the
'� filename substituted as expected.
� � � �$;" at line ";�:�
� buf 512
in$=�getargs
=ș "OS_ReadArgs", "type/k,dir/k,command/k", in$, buf, 512
:� Get file type, look up type number, make sprite name
type$=�str0(!buf)
,ș "OS_FSControl",31,type$ � ,,file_type
.type_spr$ = "small_"+�"000"+�~file_type,3)
� Just get the directory
dir$=�str0(buf!4)
e� Get the command, rebuild command with %%s replacing %s, make command to pass to sub-directories
command$=�str0(buf!8)
sub$=""
� i=1 � �command$
# � �command$,i,1)="%" sub$+="%"
sub$+=�command$,i,1)
�
[sub$="Dynamic:/Director:Menus.Files.TreePick -type "+type$+" -command """""+sub$+""""""
!%menu=�swi_number("Director_Menu")
"+endmenu=�swi_number("Director_EndMenu")
#)option=�swi_number("Director_Option")
$+command=�swi_number("Director_Command")
%,subargs=�swi_number("OS_SubstituteArgs")
&%dash=�swi_number("Director_Dash")
'
(K� Read canonicalised path name and take menu name from the current leaf
)'ș "OS_FSControl",37,dir$,buf,,,512
*canon$=�str0(buf)
+ �"DirectorParsePath "+canon$
,3ș menu,"<Director$CurrentLeaf> TreePick -temp"
-
.i=0
/�
03 ș "OS_GBPB",12,dir$,buf,1,i,128,0 � ,,,read,i
1 � read=1 �
2 leaf$=�str0(buf+24)
3 path$=dir$+"."+leaf$
4 Ȏ buf!16 �
5 � 1:
6 � buf!20 = file_type �
7/ ș option, leaf$+" -sprite "+type_spr$
89 ș subargs, path$, buf, 512, command$, �command$
9 ș command, buf
: �
; � 2:
<O ș option, leaf$+" -sprite small_dir -sub "+�34+sub$+" -dir "+path$+�34
= �
> �
?
� i=-1
@ *EndMenu
A *Set Director$Menu TreePick
B�
C
D� �swi_number(swi$)
E,ș "OS_SWINumberFromString",,swi$ � swi%
F =swi%
G:
H� �getargs
Iș "OS_GetEnv" � A$
Jquit=�A$,"-quit")
K � quit=0 quit=�A$,"-QUIT")
LA$=�A$,quit+6)
Mspc=�A$," ")
NA$=�A$,spc+1)
O=A$
P:
Q� �str0(A)
R A$=""
S ȕ ?A<>0
T A$+=�?A
U A+=1
V�
W=A$
� 00000000 0d 00 01 0f f4 20 3e 54 72 65 65 50 69 63 6b 0d |..... >TreePick.|
00000010 00 02 1e f4 20 42 79 20 44 61 76 65 20 4c 61 77 |.... By Dave Law|
00000020 72 65 6e 63 65 20 32 32 4a 75 6e 39 35 0d 00 03 |rence 22Jun95...|
00000030 06 f4 20 0d 00 04 49 f4 20 54 72 65 65 50 69 63 |.. ...I. TreePic|
00000040 6b 20 69 73 20 61 20 6d 61 67 69 63 20 44 79 6e |k is a magic Dyn|
00000050 61 6d 69 63 20 4d 65 6e 75 20 74 68 61 74 20 61 |amic Menu that a|
00000060 6c 6c 6f 77 73 20 79 6f 75 20 74 6f 20 64 6f 20 |llows you to do |
00000070 74 68 69 6e 67 73 20 6c 69 6b 65 3a 0d 00 05 06 |things like:....|
00000080 f4 20 0d 00 06 4c f4 20 54 72 65 65 50 69 63 6b |. ...L. TreePick|
00000090 20 2d 74 79 70 65 20 53 70 72 69 74 65 20 2d 64 | -type Sprite -d|
000000a0 69 72 20 52 6f 6f 74 3a 42 61 63 6b 64 72 6f 70 |ir Root:Backdrop|
000000b0 73 20 2d 63 6f 6d 6d 61 6e 64 20 22 42 61 63 6b |s -command "Back|
000000c0 64 72 6f 70 20 2d 74 69 6c 65 20 25 30 22 0d 00 |drop -tile %0"..|
000000d0 07 06 f4 20 0d 00 08 4b f4 20 49 74 20 28 72 65 |... ...K. It (re|
000000e0 63 75 72 73 69 76 65 6c 79 29 20 6d 61 6b 65 73 |cursively) makes|
000000f0 20 6d 65 6e 75 73 20 6f 66 20 66 69 6c 65 73 20 | menus of files |
00000100 6f 66 20 74 68 65 20 67 69 76 65 6e 20 74 79 70 |of the given typ|
00000110 65 20 73 74 61 72 74 69 6e 67 20 66 72 6f 6d 0d |e starting from.|
00000120 00 09 46 f4 20 27 64 69 72 27 2e 20 20 57 68 65 |..F. 'dir'. Whe|
00000130 6e 20 6f 6e 65 20 69 73 20 63 6c 69 63 6b 65 64 |n one is clicked|
00000140 20 6f 6e 2c 20 74 68 65 20 63 6f 6d 6d 61 6e 64 | on, the command|
00000150 20 69 73 20 65 78 65 63 75 74 65 64 20 77 69 74 | is executed wit|
00000160 68 20 74 68 65 0d 00 0a 27 f4 20 66 69 6c 65 6e |h the...'. filen|
00000170 61 6d 65 20 73 75 62 73 74 69 74 75 74 65 64 20 |ame substituted |
00000180 61 73 20 65 78 70 65 63 74 65 64 2e 0d 00 0b 04 |as expected.....|
00000190 0d 00 0c 04 0d 00 0d 1c ee 20 85 20 f1 20 f6 24 |......... . . .$|
000001a0 3b 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e 3a e0 |;" at line ";.:.|
000001b0 0d 00 0e 0d de 20 62 75 66 20 35 31 32 0d 00 0f |..... buf 512...|
000001c0 04 0d 00 10 10 69 6e 24 3d a4 67 65 74 61 72 67 |.....in$=.getarg|
000001d0 73 0d 00 11 3d c8 99 20 22 4f 53 5f 52 65 61 64 |s...=.. "OS_Read|
000001e0 41 72 67 73 22 2c 20 22 74 79 70 65 2f 6b 2c 64 |Args", "type/k,d|
000001f0 69 72 2f 6b 2c 63 6f 6d 6d 61 6e 64 2f 6b 22 2c |ir/k,command/k",|
00000200 20 69 6e 24 2c 20 62 75 66 2c 20 35 31 32 0d 00 | in$, buf, 512..|
00000210 12 3a f4 20 47 65 74 20 66 69 6c 65 20 74 79 70 |.:. Get file typ|
00000220 65 2c 20 6c 6f 6f 6b 20 75 70 20 74 79 70 65 20 |e, look up type |
00000230 6e 75 6d 62 65 72 2c 20 6d 61 6b 65 20 73 70 72 |number, make spr|
00000240 69 74 65 20 6e 61 6d 65 0d 00 13 15 74 79 70 65 |ite name....type|
00000250 24 3d a4 73 74 72 30 28 21 62 75 66 29 0d 00 14 |$=.str0(!buf)...|
00000260 2c c8 99 20 22 4f 53 5f 46 53 43 6f 6e 74 72 6f |,.. "OS_FSContro|
00000270 6c 22 2c 33 31 2c 74 79 70 65 24 20 b8 20 2c 2c |l",31,type$ . ,,|
00000280 66 69 6c 65 5f 74 79 70 65 0d 00 15 2e 74 79 70 |file_type....typ|
00000290 65 5f 73 70 72 24 20 3d 20 22 73 6d 61 6c 6c 5f |e_spr$ = "small_|
000002a0 22 2b c2 22 30 30 30 22 2b c3 7e 66 69 6c 65 5f |"+."000"+.~file_|
000002b0 74 79 70 65 2c 33 29 0d 00 16 1c f4 20 4a 75 73 |type,3)..... Jus|
000002c0 74 20 67 65 74 20 74 68 65 20 64 69 72 65 63 74 |t get the direct|
000002d0 6f 72 79 0d 00 17 15 64 69 72 24 3d a4 73 74 72 |ory....dir$=.str|
000002e0 30 28 62 75 66 21 34 29 0d 00 18 65 f4 20 47 65 |0(buf!4)...e. Ge|
000002f0 74 20 74 68 65 20 63 6f 6d 6d 61 6e 64 2c 20 72 |t the command, r|
00000300 65 62 75 69 6c 64 20 63 6f 6d 6d 61 6e 64 20 77 |ebuild command w|
00000310 69 74 68 20 25 25 73 20 72 65 70 6c 61 63 69 6e |ith %%s replacin|
00000320 67 20 25 73 2c 20 6d 61 6b 65 20 63 6f 6d 6d 61 |g %s, make comma|
00000330 6e 64 20 74 6f 20 70 61 73 73 20 74 6f 20 73 75 |nd to pass to su|
00000340 62 2d 64 69 72 65 63 74 6f 72 69 65 73 0d 00 19 |b-directories...|
00000350 19 63 6f 6d 6d 61 6e 64 24 3d a4 73 74 72 30 28 |.command$=.str0(|
00000360 62 75 66 21 38 29 0d 00 1a 0b 73 75 62 24 3d 22 |buf!8)....sub$="|
00000370 22 0d 00 1b 15 e3 20 69 3d 31 20 b8 20 a9 63 6f |"..... i=1 . .co|
00000380 6d 6d 61 6e 64 24 0d 00 1c 23 20 e7 20 c1 63 6f |mmand$...# . .co|
00000390 6d 6d 61 6e 64 24 2c 69 2c 31 29 3d 22 25 22 20 |mmand$,i,1)="%" |
000003a0 73 75 62 24 2b 3d 22 25 22 0d 00 1d 19 20 73 75 |sub$+="%".... su|
000003b0 62 24 2b 3d c1 63 6f 6d 6d 61 6e 64 24 2c 69 2c |b$+=.command$,i,|
000003c0 31 29 0d 00 1e 05 ed 0d 00 1f 5b 73 75 62 24 3d |1)........[sub$=|
000003d0 22 44 79 6e 61 6d 69 63 3a 2f 44 69 72 65 63 74 |"Dynamic:/Direct|
000003e0 6f 72 3a 4d 65 6e 75 73 2e 46 69 6c 65 73 2e 54 |or:Menus.Files.T|
000003f0 72 65 65 50 69 63 6b 20 2d 74 79 70 65 20 22 2b |reePick -type "+|
00000400 74 79 70 65 24 2b 22 20 2d 63 6f 6d 6d 61 6e 64 |type$+" -command|
00000410 20 22 22 22 22 22 2b 73 75 62 24 2b 22 22 22 22 | """""+sub$+""""|
00000420 22 22 0d 00 20 04 0d 00 21 25 6d 65 6e 75 3d a4 |"".. ...!%menu=.|
00000430 73 77 69 5f 6e 75 6d 62 65 72 28 22 44 69 72 65 |swi_number("Dire|
00000440 63 74 6f 72 5f 4d 65 6e 75 22 29 0d 00 22 2b 65 |ctor_Menu").."+e|
00000450 6e 64 6d 65 6e 75 3d a4 73 77 69 5f 6e 75 6d 62 |ndmenu=.swi_numb|
00000460 65 72 28 22 44 69 72 65 63 74 6f 72 5f 45 6e 64 |er("Director_End|
00000470 4d 65 6e 75 22 29 0d 00 23 29 6f 70 74 69 6f 6e |Menu")..#)option|
00000480 3d a4 73 77 69 5f 6e 75 6d 62 65 72 28 22 44 69 |=.swi_number("Di|
00000490 72 65 63 74 6f 72 5f 4f 70 74 69 6f 6e 22 29 0d |rector_Option").|
000004a0 00 24 2b 63 6f 6d 6d 61 6e 64 3d a4 73 77 69 5f |.$+command=.swi_|
000004b0 6e 75 6d 62 65 72 28 22 44 69 72 65 63 74 6f 72 |number("Director|
000004c0 5f 43 6f 6d 6d 61 6e 64 22 29 0d 00 25 2c 73 75 |_Command")..%,su|
000004d0 62 61 72 67 73 3d a4 73 77 69 5f 6e 75 6d 62 65 |bargs=.swi_numbe|
000004e0 72 28 22 4f 53 5f 53 75 62 73 74 69 74 75 74 65 |r("OS_Substitute|
000004f0 41 72 67 73 22 29 0d 00 26 25 64 61 73 68 3d a4 |Args")..&%dash=.|
00000500 73 77 69 5f 6e 75 6d 62 65 72 28 22 44 69 72 65 |swi_number("Dire|
00000510 63 74 6f 72 5f 44 61 73 68 22 29 0d 00 27 04 0d |ctor_Dash")..'..|
00000520 00 28 4b f4 20 52 65 61 64 20 63 61 6e 6f 6e 69 |.(K. Read canoni|
00000530 63 61 6c 69 73 65 64 20 70 61 74 68 20 6e 61 6d |calised path nam|
00000540 65 20 61 6e 64 20 74 61 6b 65 20 6d 65 6e 75 20 |e and take menu |
00000550 6e 61 6d 65 20 66 72 6f 6d 20 74 68 65 20 63 75 |name from the cu|
00000560 72 72 65 6e 74 20 6c 65 61 66 0d 00 29 27 c8 99 |rrent leaf..)'..|
00000570 20 22 4f 53 5f 46 53 43 6f 6e 74 72 6f 6c 22 2c | "OS_FSControl",|
00000580 33 37 2c 64 69 72 24 2c 62 75 66 2c 2c 2c 35 31 |37,dir$,buf,,,51|
00000590 32 0d 00 2a 15 63 61 6e 6f 6e 24 3d a4 73 74 72 |2..*.canon$=.str|
000005a0 30 28 62 75 66 29 0d 00 2b 20 ff 22 44 69 72 65 |0(buf)..+ ."Dire|
000005b0 63 74 6f 72 50 61 72 73 65 50 61 74 68 20 22 2b |ctorParsePath "+|
000005c0 63 61 6e 6f 6e 24 0d 00 2c 33 c8 99 20 6d 65 6e |canon$..,3.. men|
000005d0 75 2c 22 3c 44 69 72 65 63 74 6f 72 24 43 75 72 |u,"<Director$Cur|
000005e0 72 65 6e 74 4c 65 61 66 3e 20 54 72 65 65 50 69 |rentLeaf> TreePi|
000005f0 63 6b 20 2d 74 65 6d 70 22 0d 00 2d 04 0d 00 2e |ck -temp"..-....|
00000600 07 69 3d 30 0d 00 2f 05 f5 0d 00 30 33 20 c8 99 |.i=0../....03 ..|
00000610 20 22 4f 53 5f 47 42 50 42 22 2c 31 32 2c 64 69 | "OS_GBPB",12,di|
00000620 72 24 2c 62 75 66 2c 31 2c 69 2c 31 32 38 2c 30 |r$,buf,1,i,128,0|
00000630 20 b8 20 2c 2c 2c 72 65 61 64 2c 69 0d 00 31 0f | . ,,,read,i..1.|
00000640 20 e7 20 72 65 61 64 3d 31 20 8c 0d 00 32 19 20 | . read=1 ...2. |
00000650 20 6c 65 61 66 24 3d a4 73 74 72 30 28 62 75 66 | leaf$=.str0(buf|
00000660 2b 32 34 29 0d 00 33 1a 20 20 70 61 74 68 24 3d |+24)..3. path$=|
00000670 64 69 72 24 2b 22 2e 22 2b 6c 65 61 66 24 0d 00 |dir$+"."+leaf$..|
00000680 34 11 20 20 c8 8e 20 62 75 66 21 31 36 20 ca 0d |4. .. buf!16 ..|
00000690 00 35 0b 20 20 20 c9 20 31 3a 0d 00 36 1e 20 20 |.5. . 1:..6. |
000006a0 20 20 e7 20 62 75 66 21 32 30 20 3d 20 66 69 6c | . buf!20 = fil|
000006b0 65 5f 74 79 70 65 20 8c 0d 00 37 2f 20 20 20 20 |e_type ...7/ |
000006c0 20 c8 99 20 6f 70 74 69 6f 6e 2c 20 6c 65 61 66 | .. option, leaf|
000006d0 24 2b 22 20 2d 73 70 72 69 74 65 20 22 2b 74 79 |$+" -sprite "+ty|
000006e0 70 65 5f 73 70 72 24 0d 00 38 39 20 20 20 20 20 |pe_spr$..89 |
000006f0 c8 99 20 73 75 62 61 72 67 73 2c 20 70 61 74 68 |.. subargs, path|
00000700 24 2c 20 62 75 66 2c 20 35 31 32 2c 20 63 6f 6d |$, buf, 512, com|
00000710 6d 61 6e 64 24 2c 20 a9 63 6f 6d 6d 61 6e 64 24 |mand$, .command$|
00000720 0d 00 39 18 20 20 20 20 20 c8 99 20 63 6f 6d 6d |..9. .. comm|
00000730 61 6e 64 2c 20 62 75 66 0d 00 3a 09 20 20 20 20 |and, buf..:. |
00000740 cd 0d 00 3b 0b 20 20 20 c9 20 32 3a 0d 00 3c 4f |...;. . 2:..<O|
00000750 20 20 20 20 c8 99 20 6f 70 74 69 6f 6e 2c 20 6c | .. option, l|
00000760 65 61 66 24 2b 22 20 2d 73 70 72 69 74 65 20 73 |eaf$+" -sprite s|
00000770 6d 61 6c 6c 5f 64 69 72 20 2d 73 75 62 20 22 2b |mall_dir -sub "+|
00000780 bd 33 34 2b 73 75 62 24 2b 22 20 2d 64 69 72 20 |.34+sub$+" -dir |
00000790 22 2b 70 61 74 68 24 2b bd 33 34 0d 00 3d 07 20 |"+path$+.34..=. |
000007a0 20 cb 0d 00 3e 06 20 cd 0d 00 3f 0a fd 20 69 3d | ...>. ...?.. i=|
000007b0 2d 31 0d 00 40 0c 2a 45 6e 64 4d 65 6e 75 0d 00 |-1..@.*EndMenu..|
000007c0 41 1f 2a 53 65 74 20 44 69 72 65 63 74 6f 72 24 |A.*Set Director$|
000007d0 4d 65 6e 75 20 54 72 65 65 50 69 63 6b 0d 00 42 |Menu TreePick..B|
000007e0 05 e0 0d 00 43 04 0d 00 44 17 dd 20 a4 73 77 69 |....C...D.. .swi|
000007f0 5f 6e 75 6d 62 65 72 28 73 77 69 24 29 0d 00 45 |_number(swi$)..E|
00000800 2c c8 99 20 22 4f 53 5f 53 57 49 4e 75 6d 62 65 |,.. "OS_SWINumbe|
00000810 72 46 72 6f 6d 53 74 72 69 6e 67 22 2c 2c 73 77 |rFromString",,sw|
00000820 69 24 20 b8 20 73 77 69 25 0d 00 46 09 3d 73 77 |i$ . swi%..F.=sw|
00000830 69 25 0d 00 47 05 3a 0d 00 48 0e dd 20 a4 67 65 |i%..G.:..H.. .ge|
00000840 74 61 72 67 73 0d 00 49 17 c8 99 20 22 4f 53 5f |targs..I... "OS_|
00000850 47 65 74 45 6e 76 22 20 b8 20 41 24 0d 00 4a 15 |GetEnv" . A$..J.|
00000860 71 75 69 74 3d a7 41 24 2c 22 2d 71 75 69 74 22 |quit=.A$,"-quit"|
00000870 29 0d 00 4b 1e e7 20 71 75 69 74 3d 30 20 71 75 |)..K.. quit=0 qu|
00000880 69 74 3d a7 41 24 2c 22 2d 51 55 49 54 22 29 0d |it=.A$,"-QUIT").|
00000890 00 4c 12 41 24 3d c1 41 24 2c 71 75 69 74 2b 36 |.L.A$=.A$,quit+6|
000008a0 29 0d 00 4d 10 73 70 63 3d a7 41 24 2c 22 20 22 |)..M.spc=.A$," "|
000008b0 29 0d 00 4e 11 41 24 3d c1 41 24 2c 73 70 63 2b |)..N.A$=.A$,spc+|
000008c0 31 29 0d 00 4f 07 3d 41 24 0d 00 50 05 3a 0d 00 |1)..O.=A$..P.:..|
000008d0 51 0e dd 20 a4 73 74 72 30 28 41 29 0d 00 52 09 |Q.. .str0(A)..R.|
000008e0 41 24 3d 22 22 0d 00 53 0c c8 95 20 3f 41 3c 3e |A$=""..S... ?A<>|
000008f0 30 0d 00 54 0c 20 41 24 2b 3d bd 3f 41 0d 00 55 |0..T. A$+=.?A..U|
00000900 09 20 41 2b 3d 31 0d 00 56 05 ce 0d 00 57 07 3d |. A+=1..V....W.=|
00000910 41 24 0d ff |A$..|
00000914 
.