Home » Archimedes archive » Acorn Computing » 1993 07 Mega Disk.adf » 93_07 » DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/PFLister
DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/PFLister
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 Computing » 1993 07 Mega Disk.adf » 93_07 |
| Filename: | DataVision/!DataVis/Accs/CASHBOOKG/Miscellany/PFLister |
| Read OK: | ✔ |
| File size: | 0960 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM > PFList
20REM Proc/FN lister
30REM by Paul Mason, 1992
40REM LEN Acorn Computing
50
60Mtype%=%110
70DIM fname$(255)
80PRINT"(F)unction, (P)rocedure, or (E)ither to search for?"
90REPEAT
100 get$=CHR$(GETOR32)
110UNTIL get$="f" OR get$="p" OR get$="e"
120ftype$=get$
130INPUT"Enter FN/Proc : "fnproc$
140num%=0
150REPEAT
160 INPUT "Enter file to search (null to end list) : "fname$(num%)
170 num%+=1
180UNTIL fname$(num%-1)=""
190IF num%<2 END
200FOR file%=0 TO num%-2
210 PROClist(fname$(file%))
220NEXT
230END
240
250DEFPROClist(file$)
260 LOCAL file%
270 PRINT''"Scanning file "file$" ..."
280 file%=OPENIN(file$)
290 PTR#file%=PTR#file%+1
300 REPEAT
310 PROCscan_line(file%)
320 UNTIL EOF#file%
330 CLOSE#file%
340ENDPROC
350
360DEFPROCscan_line(f%)
370 LOCAL line_no%,char%,quote%
380 quote%=0
390 line_no%=(256*BGET#f%)+BGET#f%
400 PTR#file%=PTR#file%+1
410 char%=BGET#f%
420 WHILE char%<>&0D
430 CASE char% OF
440 WHEN &DD: IF quote%=0 PROCfound
450 WHEN &F4: IF quote%=0 quote%=2
460 WHEN 34 : quote%=quote%EOR1
470 ENDCASE
480 char%=BGET#f%
490 ENDWHILE
500 IF BGET#f%<>&FF PTR#f%=PTR#f%-1
510ENDPROC
520
530DEFPROCfound
540 LOCAL func$,type$,name$
550 CASE BGET#f% OF
560 WHEN &F2: func$="Procedure":type$="pe"
570 WHEN &A4: func$="Function":type$="fe"
580 OTHERWISE : func$="Unknown":type$="zzz"
590 ENDCASE
600 IF INSTR(type$,ftype$)>0 THEN
610 name$=FNnl_cln(f%)
620 IF FNcmp(name$,fnproc$) THEN
630 PRINT'func$;" definition '"name$"' found at line "+STR$line_no%
640 ENDIF
650 ENDIF
660ENDPROC
670
680DEFFNnl_cln(f%)
690 LOCAL s$,b%:s$=""
700 b%=BGET#f%
710 WHILE b%<>ASC":" AND b%<>&0D AND b%<>ASC"("
720 s$+=CHR$b%
730 b%=BGET#f%
740 ENDWHILE
750 PTR#f%=PTR#f%-1
760=s$
770
780DEFFNcmp(str$,comp$)
790 LOCAL end%,cs%,a%,b%,c%:cs%=0:end%=-1
800 WHILE comp$<>"" AND str$<>"" AND end%
810 a%=ASCLEFT$(comp$,1)
820 comp$=MID$(comp$,2)
830 CASE CHR$a% OF
840 WHEN "{" : cs%=-1
850 WHEN "}" : cs%=0
860 WHEN "#" : str$=MID$(str$,2)
870 WHEN "*" : PROCcmp_ast
880 OTHERWISE
890 b%=ASCLEFT$(str$,1)
900 str$=MID$(str$,2)
910 IF cs% THEN
920 IF a%>=ASC"A" AND a%<=ASC"Z" a%+=32
930 IF b%>=ASC"A" AND b%<=ASC"Z" b%+=32
940 ENDIF
950 IF a%<>b% end%=0
960 ENDCASE
970 ENDWHILE
980 IF end%=0 =0
990 IF str$<>"" =0
1000=-1
1010
1020DEFPROCcmp_ast
1030 IF comp$="" str$="":ENDPROC
1040 IF LEFT$(comp$,1)="*" PROCcmp_ast:ENDPROC
1050 IF LEFT$(comp$,1)="#" comp$=MID$(comp$,2):PROCcmp_ast:ENDPROC
1060 IF LEFT$(comp$,1)="{" cs%=-1:PROCcmp_ast:ENDPROC
1070 IF LEFT$(comp$,1)="}" cs%=0:PROCcmp_ast:ENDPROC
1080 b%=ASCLEFT$(comp$,1)
1090 IF cs% b%=(b%OR32)EOR32
1100 c%=INSTR(str$,CHR$(b%)):IF c%=0 c%=1000
1110 IF cs% THEN
1120 b%=INSTR(str$,CHR$(b%OR32)):IF b%=0 b%=1000
1130 IF b%<c% c%=b%
1140 ENDIF
1150 IF c%<1000 THEN
1160 comp$=MID$(comp$,2)
1170 str$=MID$(str$,c%+1)
1180 ELSE
1190 end%=0
1200 ENDIF
1210ENDPROC
� > PFList
� Proc/FN lister
� by Paul Mason, 1992
(� � Acorn Computing
2
<Mtype%=%110
F� fname$(255)
P:�"(F)unction, (P)rocedure, or (E)ither to search for?"
Z�
d get$=�(��32)
n$� get$="f" � get$="p" � get$="e"
xftype$=get$
� �"Enter FN/Proc : "fnproc$
�
num%=0
��
�@ � "Enter file to search (null to end list) : "fname$(num%)
�
num%+=1
�� fname$(num%-1)=""
�� num%<2 �
�� file%=0 � num%-2
� �list(fname$(file%))
��
��
�
���list(file$)
� file%
# �''"Scanning file "file$" ..."
file%=�(file$)
" �#file%=�#file%+1
, �
6 �scan_line(file%)
@ � �#file%
J �#file%
T�
^
h��scan_line(f%)
r � line_no%,char%,quote%
|
quote%=0
� line_no%=(256*�#f%)+�#f%
� �#file%=�#file%+1
� char%=�#f%
� ȕ char%<>&0D
� Ȏ char% �
�! � &DD: � quote%=0 �found
�# � &F4: � quote%=0 quote%=2
� � 34 : quote%=quote%�1
� �
� char%=�#f%
� �
� � �#f%<>&FF �#f%=�#f%-1
��
��found
� func$,type$,name$
& Ȏ �#f% �
0* � &F2: func$="Procedure":type$="pe"
:) � &A4: func$="Function":type$="fe"
D& : func$="Unknown":type$="zzz"
N �
X � �type$,ftype$)>0 �
b name$=�nl_cln(f%)
l � �cmp(name$,fnproc$) �
vA �'func$;" definition '"name$"' found at line "+�line_no%
� �
� �
��
�
�ݤnl_cln(f%)
� � s$,b%:s$=""
� b%=�#f%
�% ȕ b%<>�":" � b%<>&0D � b%<>�"("
� s$+=�b%
� b%=�#f%
� �
� �#f%=�#f%-1
�=s$
ݤcmp(str$,comp$)
& � end%,cs%,a%,b%,c%:cs%=0:end%=-1
# ȕ comp$<>"" � str$<>"" � end%
* a%=��comp$,1)
4 comp$=�comp$,2)
> Ȏ �a% �
H � "{" : cs%=-1
R � "}" : cs%=0
\ � "#" : str$=�str$,2)
f � "*" : �cmp_ast
p
z b%=��str$,1)
� str$=�str$,2)
� � cs% �
�) � a%>=�"A" � a%<=�"Z" a%+=32
�) � b%>=�"A" � b%<=�"Z" b%+=32
� �
� � a%<>b% end%=0
� �
� �
� � end%=0 =0
� � str$<>"" =0
�=-1
�
�
��cmp_ast
� comp$="" str$="":�
� �comp$,1)="*" �cmp_ast:�
/ � �comp$,1)="#" comp$=�comp$,2):�cmp_ast:�
$& � �comp$,1)="{" cs%=-1:�cmp_ast:�
.% � �comp$,1)="}" cs%=0:�cmp_ast:�
8 b%=��comp$,1)
B � cs% b%=(b%�32)�32
L# c%=�str$,�(b%)):� c%=0 c%=1000
V � cs% �
`( b%=�str$,�(b%�32)):� b%=0 b%=1000
j � b%<c% c%=b%
t �
~ � c%<1000 �
� comp$=�comp$,2)
� str$=�str$,c%+1)
� �
�
end%=0
� �
��
� 00000000 0d 00 0a 0e f4 20 3e 20 50 46 4c 69 73 74 0d 00 |..... > PFList..|
00000010 14 14 f4 20 50 72 6f 63 2f 46 4e 20 6c 69 73 74 |... Proc/FN list|
00000020 65 72 0d 00 1e 19 f4 20 62 79 20 50 61 75 6c 20 |er..... by Paul |
00000030 4d 61 73 6f 6e 2c 20 31 39 39 32 0d 00 28 17 f4 |Mason, 1992..(..|
00000040 20 a9 20 41 63 6f 72 6e 20 43 6f 6d 70 75 74 69 | . Acorn Computi|
00000050 6e 67 0d 00 32 04 0d 00 3c 0f 4d 74 79 70 65 25 |ng..2...<.Mtype%|
00000060 3d 25 31 31 30 0d 00 46 11 de 20 66 6e 61 6d 65 |=%110..F.. fname|
00000070 24 28 32 35 35 29 0d 00 50 3a f1 22 28 46 29 75 |$(255)..P:."(F)u|
00000080 6e 63 74 69 6f 6e 2c 20 28 50 29 72 6f 63 65 64 |nction, (P)roced|
00000090 75 72 65 2c 20 6f 72 20 28 45 29 69 74 68 65 72 |ure, or (E)ither|
000000a0 20 74 6f 20 73 65 61 72 63 68 20 66 6f 72 3f 22 | to search for?"|
000000b0 0d 00 5a 05 f5 0d 00 64 12 20 20 67 65 74 24 3d |..Z....d. get$=|
000000c0 bd 28 a5 84 33 32 29 0d 00 6e 24 fd 20 67 65 74 |.(..32)..n$. get|
000000d0 24 3d 22 66 22 20 84 20 67 65 74 24 3d 22 70 22 |$="f" . get$="p"|
000000e0 20 84 20 67 65 74 24 3d 22 65 22 0d 00 78 0f 66 | . get$="e"..x.f|
000000f0 74 79 70 65 24 3d 67 65 74 24 0d 00 82 1e e8 22 |type$=get$....."|
00000100 45 6e 74 65 72 20 46 4e 2f 50 72 6f 63 20 3a 20 |Enter FN/Proc : |
00000110 22 66 6e 70 72 6f 63 24 0d 00 8c 0a 6e 75 6d 25 |"fnproc$....num%|
00000120 3d 30 0d 00 96 05 f5 0d 00 a0 40 20 20 e8 20 22 |=0........@ . "|
00000130 45 6e 74 65 72 20 66 69 6c 65 20 74 6f 20 73 65 |Enter file to se|
00000140 61 72 63 68 20 28 6e 75 6c 6c 20 74 6f 20 65 6e |arch (null to en|
00000150 64 20 6c 69 73 74 29 20 3a 20 22 66 6e 61 6d 65 |d list) : "fname|
00000160 24 28 6e 75 6d 25 29 0d 00 aa 0d 20 20 6e 75 6d |$(num%).... num|
00000170 25 2b 3d 31 0d 00 b4 17 fd 20 66 6e 61 6d 65 24 |%+=1..... fname$|
00000180 28 6e 75 6d 25 2d 31 29 3d 22 22 0d 00 be 0e e7 |(num%-1)="".....|
00000190 20 6e 75 6d 25 3c 32 20 e0 0d 00 c8 16 e3 20 66 | num%<2 ...... f|
000001a0 69 6c 65 25 3d 30 20 b8 20 6e 75 6d 25 2d 32 0d |ile%=0 . num%-2.|
000001b0 00 d2 1a 20 20 f2 6c 69 73 74 28 66 6e 61 6d 65 |... .list(fname|
000001c0 24 28 66 69 6c 65 25 29 29 0d 00 dc 05 ed 0d 00 |$(file%)).......|
000001d0 e6 05 e0 0d 00 f0 04 0d 00 fa 11 dd f2 6c 69 73 |.............lis|
000001e0 74 28 66 69 6c 65 24 29 0d 01 04 0c 20 ea 20 66 |t(file$).... . f|
000001f0 69 6c 65 25 0d 01 0e 23 20 f1 27 27 22 53 63 61 |ile%...# .''"Sca|
00000200 6e 6e 69 6e 67 20 66 69 6c 65 20 22 66 69 6c 65 |nning file "file|
00000210 24 22 20 2e 2e 2e 22 0d 01 18 13 20 66 69 6c 65 |$" ...".... file|
00000220 25 3d 8e 28 66 69 6c 65 24 29 0d 01 22 16 20 cf |%=.(file$)..". .|
00000230 23 66 69 6c 65 25 3d 8f 23 66 69 6c 65 25 2b 31 |#file%=.#file%+1|
00000240 0d 01 2c 06 20 f5 0d 01 36 18 20 20 20 f2 73 63 |..,. ...6. .sc|
00000250 61 6e 5f 6c 69 6e 65 28 66 69 6c 65 25 29 0d 01 |an_line(file%)..|
00000260 40 0e 20 fd 20 c5 23 66 69 6c 65 25 0d 01 4a 0c |@. . .#file%..J.|
00000270 20 d9 23 66 69 6c 65 25 0d 01 54 05 e1 0d 01 5e | .#file%..T....^|
00000280 04 0d 01 68 13 dd f2 73 63 61 6e 5f 6c 69 6e 65 |...h...scan_line|
00000290 28 66 25 29 0d 01 72 1c 20 ea 20 6c 69 6e 65 5f |(f%)..r. . line_|
000002a0 6e 6f 25 2c 63 68 61 72 25 2c 71 75 6f 74 65 25 |no%,char%,quote%|
000002b0 0d 01 7c 0d 20 71 75 6f 74 65 25 3d 30 0d 01 86 |..|. quote%=0...|
000002c0 1d 20 6c 69 6e 65 5f 6e 6f 25 3d 28 32 35 36 2a |. line_no%=(256*|
000002d0 9a 23 66 25 29 2b 9a 23 66 25 0d 01 90 16 20 cf |.#f%)+.#f%.... .|
000002e0 23 66 69 6c 65 25 3d 8f 23 66 69 6c 65 25 2b 31 |#file%=.#file%+1|
000002f0 0d 01 9a 0f 20 63 68 61 72 25 3d 9a 23 66 25 0d |.... char%=.#f%.|
00000300 01 a4 12 20 c8 95 20 63 68 61 72 25 3c 3e 26 30 |... .. char%<>&0|
00000310 44 0d 01 ae 11 20 20 20 c8 8e 20 63 68 61 72 25 |D.... .. char%|
00000320 20 ca 0d 01 b8 21 20 20 20 20 20 c9 20 26 44 44 | ....! . &DD|
00000330 3a 20 e7 20 71 75 6f 74 65 25 3d 30 20 f2 66 6f |: . quote%=0 .fo|
00000340 75 6e 64 0d 01 c2 23 20 20 20 20 20 c9 20 26 46 |und...# . &F|
00000350 34 3a 20 e7 20 71 75 6f 74 65 25 3d 30 20 71 75 |4: . quote%=0 qu|
00000360 6f 74 65 25 3d 32 0d 01 cc 1f 20 20 20 20 20 c9 |ote%=2.... .|
00000370 20 33 34 20 3a 20 71 75 6f 74 65 25 3d 71 75 6f | 34 : quote%=quo|
00000380 74 65 25 82 31 0d 01 d6 08 20 20 20 cb 0d 01 e0 |te%.1.... ....|
00000390 11 20 20 20 63 68 61 72 25 3d 9a 23 66 25 0d 01 |. char%=.#f%..|
000003a0 ea 06 20 ce 0d 01 f4 1c 20 e7 20 9a 23 66 25 3c |.. ..... . .#f%<|
000003b0 3e 26 46 46 20 8f 23 66 25 3d 8f 23 66 25 2d 31 |>&FF .#f%=.#f%-1|
000003c0 0d 01 fe 05 e1 0d 02 08 04 0d 02 12 0b dd f2 66 |...............f|
000003d0 6f 75 6e 64 0d 02 1c 18 20 ea 20 66 75 6e 63 24 |ound.... . func$|
000003e0 2c 74 79 70 65 24 2c 6e 61 6d 65 24 0d 02 26 0e |,type$,name$..&.|
000003f0 20 c8 8e 20 9a 23 66 25 20 ca 0d 02 30 2a 20 20 | .. .#f% ...0* |
00000400 20 c9 20 26 46 32 3a 20 66 75 6e 63 24 3d 22 50 | . &F2: func$="P|
00000410 72 6f 63 65 64 75 72 65 22 3a 74 79 70 65 24 3d |rocedure":type$=|
00000420 22 70 65 22 0d 02 3a 29 20 20 20 c9 20 26 41 34 |"pe"..:) . &A4|
00000430 3a 20 66 75 6e 63 24 3d 22 46 75 6e 63 74 69 6f |: func$="Functio|
00000440 6e 22 3a 74 79 70 65 24 3d 22 66 65 22 0d 02 44 |n":type$="fe"..D|
00000450 26 20 20 20 7f 20 3a 20 66 75 6e 63 24 3d 22 55 |& . : func$="U|
00000460 6e 6b 6e 6f 77 6e 22 3a 74 79 70 65 24 3d 22 7a |nknown":type$="z|
00000470 7a 7a 22 0d 02 4e 06 20 cb 0d 02 58 19 20 e7 20 |zz"..N. ...X. . |
00000480 a7 74 79 70 65 24 2c 66 74 79 70 65 24 29 3e 30 |.type$,ftype$)>0|
00000490 20 8c 0d 02 62 18 20 20 20 6e 61 6d 65 24 3d a4 | ...b. name$=.|
000004a0 6e 6c 5f 63 6c 6e 28 66 25 29 0d 02 6c 1e 20 20 |nl_cln(f%)..l. |
000004b0 20 e7 20 a4 63 6d 70 28 6e 61 6d 65 24 2c 66 6e | . .cmp(name$,fn|
000004c0 70 72 6f 63 24 29 20 8c 0d 02 76 41 20 20 20 20 |proc$) ...vA |
000004d0 20 f1 27 66 75 6e 63 24 3b 22 20 64 65 66 69 6e | .'func$;" defin|
000004e0 69 74 69 6f 6e 20 27 22 6e 61 6d 65 24 22 27 20 |ition '"name$"' |
000004f0 66 6f 75 6e 64 20 61 74 20 6c 69 6e 65 20 22 2b |found at line "+|
00000500 c3 6c 69 6e 65 5f 6e 6f 25 0d 02 80 08 20 20 20 |.line_no%.... |
00000510 cd 0d 02 8a 06 20 cd 0d 02 94 05 e1 0d 02 9e 04 |..... ..........|
00000520 0d 02 a8 10 dd a4 6e 6c 5f 63 6c 6e 28 66 25 29 |......nl_cln(f%)|
00000530 0d 02 b2 12 20 ea 20 73 24 2c 62 25 3a 73 24 3d |.... . s$,b%:s$=|
00000540 22 22 0d 02 bc 0c 20 62 25 3d 9a 23 66 25 0d 02 |"".... b%=.#f%..|
00000550 c6 25 20 c8 95 20 62 25 3c 3e 97 22 3a 22 20 80 |.% .. b%<>.":" .|
00000560 20 62 25 3c 3e 26 30 44 20 80 20 62 25 3c 3e 97 | b%<>&0D . b%<>.|
00000570 22 28 22 0d 02 d0 0e 20 20 20 73 24 2b 3d bd 62 |"(".... s$+=.b|
00000580 25 0d 02 da 0e 20 20 20 62 25 3d 9a 23 66 25 0d |%.... b%=.#f%.|
00000590 02 e4 06 20 ce 0d 02 ee 10 20 cf 23 66 25 3d 8f |... ..... .#f%=.|
000005a0 23 66 25 2d 31 0d 02 f8 07 3d 73 24 0d 03 02 04 |#f%-1....=s$....|
000005b0 0d 03 0c 15 dd a4 63 6d 70 28 73 74 72 24 2c 63 |......cmp(str$,c|
000005c0 6f 6d 70 24 29 0d 03 16 26 20 ea 20 65 6e 64 25 |omp$)...& . end%|
000005d0 2c 63 73 25 2c 61 25 2c 62 25 2c 63 25 3a 63 73 |,cs%,a%,b%,c%:cs|
000005e0 25 3d 30 3a 65 6e 64 25 3d 2d 31 0d 03 20 23 20 |%=0:end%=-1.. # |
000005f0 c8 95 20 63 6f 6d 70 24 3c 3e 22 22 20 80 20 73 |.. comp$<>"" . s|
00000600 74 72 24 3c 3e 22 22 20 80 20 65 6e 64 25 0d 03 |tr$<>"" . end%..|
00000610 2a 14 20 20 20 61 25 3d 97 c0 63 6f 6d 70 24 2c |*. a%=..comp$,|
00000620 31 29 0d 03 34 16 20 20 20 63 6f 6d 70 24 3d c1 |1)..4. comp$=.|
00000630 63 6f 6d 70 24 2c 32 29 0d 03 3e 0f 20 20 20 c8 |comp$,2)..>. .|
00000640 8e 20 bd 61 25 20 ca 0d 03 48 17 20 20 20 20 20 |. .a% ...H. |
00000650 c9 20 22 7b 22 20 3a 20 63 73 25 3d 2d 31 0d 03 |. "{" : cs%=-1..|
00000660 52 16 20 20 20 20 20 c9 20 22 7d 22 20 3a 20 63 |R. . "}" : c|
00000670 73 25 3d 30 0d 03 5c 1e 20 20 20 20 20 c9 20 22 |s%=0..\. . "|
00000680 23 22 20 3a 20 73 74 72 24 3d c1 73 74 72 24 2c |#" : str$=.str$,|
00000690 32 29 0d 03 66 19 20 20 20 20 20 c9 20 22 2a 22 |2)..f. . "*"|
000006a0 20 3a 20 f2 63 6d 70 5f 61 73 74 0d 03 70 0a 20 | : .cmp_ast..p. |
000006b0 20 20 20 20 7f 0d 03 7a 17 20 20 20 20 20 20 20 | ...z. |
000006c0 62 25 3d 97 c0 73 74 72 24 2c 31 29 0d 03 84 18 |b%=..str$,1)....|
000006d0 20 20 20 20 20 20 20 73 74 72 24 3d c1 73 74 72 | str$=.str|
000006e0 24 2c 32 29 0d 03 8e 12 20 20 20 20 20 20 20 e7 |$,2).... .|
000006f0 20 63 73 25 20 8c 0d 03 98 29 20 20 20 20 20 20 | cs% ....) |
00000700 20 20 20 e7 20 61 25 3e 3d 97 22 41 22 20 80 20 | . a%>=."A" . |
00000710 61 25 3c 3d 97 22 5a 22 20 61 25 2b 3d 33 32 0d |a%<=."Z" a%+=32.|
00000720 03 a2 29 20 20 20 20 20 20 20 20 20 e7 20 62 25 |..) . b%|
00000730 3e 3d 97 22 41 22 20 80 20 62 25 3c 3d 97 22 5a |>=."A" . b%<=."Z|
00000740 22 20 62 25 2b 3d 33 32 0d 03 ac 0c 20 20 20 20 |" b%+=32.... |
00000750 20 20 20 cd 0d 03 b6 1a 20 20 20 20 20 20 20 e7 | ..... .|
00000760 20 61 25 3c 3e 62 25 20 65 6e 64 25 3d 30 0d 03 | a%<>b% end%=0..|
00000770 c0 08 20 20 20 cb 0d 03 ca 06 20 ce 0d 03 d4 10 |.. ..... .....|
00000780 20 e7 20 65 6e 64 25 3d 30 20 3d 30 0d 03 de 12 | . end%=0 =0....|
00000790 20 e7 20 73 74 72 24 3c 3e 22 22 20 3d 30 0d 03 | . str$<>"" =0..|
000007a0 e8 07 3d 2d 31 0d 03 f2 04 0d 03 fc 0d dd f2 63 |..=-1..........c|
000007b0 6d 70 5f 61 73 74 0d 04 06 19 20 e7 20 63 6f 6d |mp_ast.... . com|
000007c0 70 24 3d 22 22 20 73 74 72 24 3d 22 22 3a e1 0d |p$="" str$="":..|
000007d0 04 10 1f 20 e7 20 c0 63 6f 6d 70 24 2c 31 29 3d |... . .comp$,1)=|
000007e0 22 2a 22 20 f2 63 6d 70 5f 61 73 74 3a e1 0d 04 |"*" .cmp_ast:...|
000007f0 1a 2f 20 e7 20 c0 63 6f 6d 70 24 2c 31 29 3d 22 |./ . .comp$,1)="|
00000800 23 22 20 63 6f 6d 70 24 3d c1 63 6f 6d 70 24 2c |#" comp$=.comp$,|
00000810 32 29 3a f2 63 6d 70 5f 61 73 74 3a e1 0d 04 24 |2):.cmp_ast:...$|
00000820 26 20 e7 20 c0 63 6f 6d 70 24 2c 31 29 3d 22 7b |& . .comp$,1)="{|
00000830 22 20 63 73 25 3d 2d 31 3a f2 63 6d 70 5f 61 73 |" cs%=-1:.cmp_as|
00000840 74 3a e1 0d 04 2e 25 20 e7 20 c0 63 6f 6d 70 24 |t:....% . .comp$|
00000850 2c 31 29 3d 22 7d 22 20 63 73 25 3d 30 3a f2 63 |,1)="}" cs%=0:.c|
00000860 6d 70 5f 61 73 74 3a e1 0d 04 38 12 20 62 25 3d |mp_ast:...8. b%=|
00000870 97 c0 63 6f 6d 70 24 2c 31 29 0d 04 42 18 20 e7 |..comp$,1)..B. .|
00000880 20 63 73 25 20 62 25 3d 28 62 25 84 33 32 29 82 | cs% b%=(b%.32).|
00000890 33 32 0d 04 4c 23 20 63 25 3d a7 73 74 72 24 2c |32..L# c%=.str$,|
000008a0 bd 28 62 25 29 29 3a e7 20 63 25 3d 30 20 63 25 |.(b%)):. c%=0 c%|
000008b0 3d 31 30 30 30 0d 04 56 0c 20 e7 20 63 73 25 20 |=1000..V. . cs% |
000008c0 8c 0d 04 60 28 20 20 20 62 25 3d a7 73 74 72 24 |...`( b%=.str$|
000008d0 2c bd 28 62 25 84 33 32 29 29 3a e7 20 62 25 3d |,.(b%.32)):. b%=|
000008e0 30 20 62 25 3d 31 30 30 30 0d 04 6a 14 20 20 20 |0 b%=1000..j. |
000008f0 e7 20 62 25 3c 63 25 20 63 25 3d 62 25 0d 04 74 |. b%<c% c%=b%..t|
00000900 06 20 cd 0d 04 7e 10 20 e7 20 63 25 3c 31 30 30 |. ...~. . c%<100|
00000910 30 20 8c 0d 04 88 16 20 20 20 63 6f 6d 70 24 3d |0 ..... comp$=|
00000920 c1 63 6f 6d 70 24 2c 32 29 0d 04 92 17 20 20 20 |.comp$,2).... |
00000930 73 74 72 24 3d c1 73 74 72 24 2c 63 25 2b 31 29 |str$=.str$,c%+1)|
00000940 0d 04 9c 06 20 cc 0d 04 a6 0d 20 20 20 65 6e 64 |.... ..... end|
00000950 25 3d 30 0d 04 b0 06 20 cd 0d 04 ba 05 e1 0d ff |%=0.... ........|
00000960 
.