Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf » Library/BASIC/ExAll

Library/BASIC/ExAll

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 » Acorn ADFS disks » Greaseweazled » adfs_E00.adf
Filename: Library/BASIC/ExAll
Read OK:
File size: 0377 bytes
Load address: FFFF1D00
Exec address: FFFF8023
File contents
    1REM ExAll
    2REM Examine the whole tree from $ downwards
    3REM Copyright Acorn Computer 1984
    4REM Version 1.00, 9/8/1984
    5REM Done by Huge
    6REM
   10ON ERROR GOTO 470
   30DIM NAME% 11
   50ROOT$="$"
   60:
   70PROCRECON("",ROOT$)
   80:
   90END
  100:
  110:
  120:
  130DEF PROCRECON( PATH$,DIR$ )
  140LOCAL DPTR%
  150:
  160PRINT
  170PRINT"***************************************"
  180PRINT FNPATH(PATH$,DIR$)
  190PRINT"***************************************"
  210OSCLI "DIR "+PATH$
  220OSCLI"EX "+DIR$
  230H%=OPENIN( DIR$ )
  235PTR#H%=5
  240IF BGET#H%=0 THEN CLOSE#H%:ENDPROC
  250DPTR%=5
  260REPEAT
  270:
  280PTR#H%=DPTR%+3
  290IF BGET#H%<128 THEN GOTO 410
  300:
  310PTR#H%=DPTR%
  320DEF FNCH(H%)=CHR$( BGET#H% AND &7F )
  330$NAME%=FNCH(H%)+FNCH(H%)+FNCH(H%)+FNCH(H%)+FNCH(H%)+FNCH(H%)+FNCH(H%)+FNCH(H%)+FNCH(H%)+FNCH(H%)
  340CLOSE#H%
  350PROCRECON( FNPATH(PATH$,DIR$) , $NAME% )
  360DEF FNPATH(A$,B$) IF A$<>"" THEN = A$+"."+B$ ELSE = B$
  370OSCLI "DIR "+PATH$
  380H%=OPENIN( DIR$ )
  390:
  400:
  410DPTR%=DPTR%+26
  420PTR#H%=DPTR%
  430UNTIL BGET#H%=0
  440CLOSE#H%
  460ENDPROC
  470REPORT
  480PRINT
  490END
� ExAll
-� Examine the whole tree from $ downwards
#� Copyright Acorn Computer 1984
� Version 1.00, 9/8/1984
� Done by Huge
�

� � � �dVA
� NAME% 11
2
ROOT$="$"
<:
F�RECON("",ROOT$)
P:
Z�
d:
n:
x:
�� �RECON( PATH$,DIR$ )
�� DPTR%
�:
��
�.�"***************************************"
�� �PATH(PATH$,DIR$)
�.�"***************************************"
�� "DIR "+PATH$
��"EX "+DIR$
�H%=�( DIR$ )
�
�#H%=5
�� �#H%=0 � �#H%:�
�DPTR%=5
�
:
�#H%=DPTR%+3
"� �#H%<128 � � �tZA
,:
6�#H%=DPTR%
@� �CH(H%)=�( �#H% � &7F )
JZ$NAME%=�CH(H%)+�CH(H%)+�CH(H%)+�CH(H%)+�CH(H%)+�CH(H%)+�CH(H%)+�CH(H%)+�CH(H%)+�CH(H%)
T�#H%
^(�RECON( �PATH(PATH$,DIR$) , $NAME% )
h0� �PATH(A$,B$) � A$<>"" � = A$+"."+B$ � = B$
r� "DIR "+PATH$
|H%=�( DIR$ )
�:
�:
�DPTR%=DPTR%+26
��#H%=DPTR%
�� �#H%=0
��#H%
��
��
��
��
�
00000000  0d 00 01 0b f4 20 45 78  41 6c 6c 0d 00 02 2d f4  |..... ExAll...-.|
00000010  20 45 78 61 6d 69 6e 65  20 74 68 65 20 77 68 6f  | Examine the who|
00000020  6c 65 20 74 72 65 65 20  66 72 6f 6d 20 24 20 64  |le tree from $ d|
00000030  6f 77 6e 77 61 72 64 73  0d 00 03 23 f4 20 43 6f  |ownwards...#. Co|
00000040  70 79 72 69 67 68 74 20  41 63 6f 72 6e 20 43 6f  |pyright Acorn Co|
00000050  6d 70 75 74 65 72 20 31  39 38 34 0d 00 04 1c f4  |mputer 1984.....|
00000060  20 56 65 72 73 69 6f 6e  20 31 2e 30 30 2c 20 39  | Version 1.00, 9|
00000070  2f 38 2f 31 39 38 34 0d  00 05 12 f4 20 44 6f 6e  |/8/1984..... Don|
00000080  65 20 62 79 20 48 75 67  65 0d 00 06 05 f4 0d 00  |e by Huge.......|
00000090  0a 0e ee 20 85 20 e5 20  8d 64 56 41 0d 00 1e 0e  |... . . .dVA....|
000000a0  de 20 4e 41 4d 45 25 20  31 31 0d 00 32 0d 52 4f  |. NAME% 11..2.RO|
000000b0  4f 54 24 3d 22 24 22 0d  00 3c 05 3a 0d 00 46 14  |OT$="$"..<.:..F.|
000000c0  f2 52 45 43 4f 4e 28 22  22 2c 52 4f 4f 54 24 29  |.RECON("",ROOT$)|
000000d0  0d 00 50 05 3a 0d 00 5a  05 e0 0d 00 64 05 3a 0d  |..P.:..Z....d.:.|
000000e0  00 6e 05 3a 0d 00 78 05  3a 0d 00 82 1a dd 20 f2  |.n.:..x.:..... .|
000000f0  52 45 43 4f 4e 28 20 50  41 54 48 24 2c 44 49 52  |RECON( PATH$,DIR|
00000100  24 20 29 0d 00 8c 0b ea  20 44 50 54 52 25 0d 00  |$ )..... DPTR%..|
00000110  96 05 3a 0d 00 a0 05 f1  0d 00 aa 2e f1 22 2a 2a  |..:.........."**|
00000120  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000140  2a 2a 2a 2a 2a 22 0d 00  b4 17 f1 20 a4 50 41 54  |*****"..... .PAT|
00000150  48 28 50 41 54 48 24 2c  44 49 52 24 29 0d 00 be  |H(PATH$,DIR$)...|
00000160  2e f1 22 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.."*************|
00000170  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000180  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 22 0d 00 d2 12 ff  |**********".....|
00000190  20 22 44 49 52 20 22 2b  50 41 54 48 24 0d 00 dc  | "DIR "+PATH$...|
000001a0  0f ff 22 45 58 20 22 2b  44 49 52 24 0d 00 e6 10  |.."EX "+DIR$....|
000001b0  48 25 3d 8e 28 20 44 49  52 24 20 29 0d 00 eb 0a  |H%=.( DIR$ )....|
000001c0  cf 23 48 25 3d 35 0d 00  f0 15 e7 20 9a 23 48 25  |.#H%=5..... .#H%|
000001d0  3d 30 20 8c 20 d9 23 48  25 3a e1 0d 00 fa 0b 44  |=0 . .#H%:.....D|
000001e0  50 54 52 25 3d 35 0d 01  04 05 f5 0d 01 0e 05 3a  |PTR%=5.........:|
000001f0  0d 01 18 10 cf 23 48 25  3d 44 50 54 52 25 2b 33  |.....#H%=DPTR%+3|
00000200  0d 01 22 17 e7 20 9a 23  48 25 3c 31 32 38 20 8c  |..".. .#H%<128 .|
00000210  20 e5 20 8d 74 5a 41 0d  01 2c 05 3a 0d 01 36 0e  | . .tZA..,.:..6.|
00000220  cf 23 48 25 3d 44 50 54  52 25 0d 01 40 1d dd 20  |.#H%=DPTR%..@.. |
00000230  a4 43 48 28 48 25 29 3d  bd 28 20 9a 23 48 25 20  |.CH(H%)=.( .#H% |
00000240  80 20 26 37 46 20 29 0d  01 4a 5a 24 4e 41 4d 45  |. &7F )..JZ$NAME|
00000250  25 3d a4 43 48 28 48 25  29 2b a4 43 48 28 48 25  |%=.CH(H%)+.CH(H%|
00000260  29 2b a4 43 48 28 48 25  29 2b a4 43 48 28 48 25  |)+.CH(H%)+.CH(H%|
*
000002a0  29 0d 01 54 08 d9 23 48  25 0d 01 5e 28 f2 52 45  |)..T..#H%..^(.RE|
000002b0  43 4f 4e 28 20 a4 50 41  54 48 28 50 41 54 48 24  |CON( .PATH(PATH$|
000002c0  2c 44 49 52 24 29 20 2c  20 24 4e 41 4d 45 25 20  |,DIR$) , $NAME% |
000002d0  29 0d 01 68 30 dd 20 a4  50 41 54 48 28 41 24 2c  |)..h0. .PATH(A$,|
000002e0  42 24 29 20 e7 20 41 24  3c 3e 22 22 20 8c 20 3d  |B$) . A$<>"" . =|
000002f0  20 41 24 2b 22 2e 22 2b  42 24 20 8b 20 3d 20 42  | A$+"."+B$ . = B|
00000300  24 0d 01 72 12 ff 20 22  44 49 52 20 22 2b 50 41  |$..r.. "DIR "+PA|
00000310  54 48 24 0d 01 7c 10 48  25 3d 8e 28 20 44 49 52  |TH$..|.H%=.( DIR|
00000320  24 20 29 0d 01 86 05 3a  0d 01 90 05 3a 0d 01 9a  |$ )....:....:...|
00000330  12 44 50 54 52 25 3d 44  50 54 52 25 2b 32 36 0d  |.DPTR%=DPTR%+26.|
00000340  01 a4 0e cf 23 48 25 3d  44 50 54 52 25 0d 01 ae  |....#H%=DPTR%...|
00000350  0c fd 20 9a 23 48 25 3d  30 0d 01 b8 08 d9 23 48  |.. .#H%=0.....#H|
00000360  25 0d 01 cc 05 e1 0d 01  d6 05 f6 0d 01 e0 05 f1  |%...............|
00000370  0d 01 ea 05 e0 0d ff                              |.......|
00000377
Library/BASIC/ExAll.m0
Library/BASIC/ExAll.m1
Library/BASIC/ExAll.m2
Library/BASIC/ExAll.m4
Library/BASIC/ExAll.m5