Home » Personal collection » Acorn ADFS disks » Electron » PRES_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 » Electron » PRES_E00.ADF |
Filename: | Library/BASIC/ExAll |
Read OK: | ✔ |
File size: | 0377 bytes |
Load address: | FFFF1D00 |
Exec address: | FFFF8023 |
Duplicates
There are 7 duplicate copies of this file in the archive:
- AEW website » acp_pres » acp_pres_3_5_discs_Electron-Adfs-E00_A-E00.adf » Library/BASIC/ExAll
- AEW website » database » database_3_5_discs_Classic-Card-And-Board-Games-2_A-CCB2.adf » LIBRARY/BASIC/ExAll
- Personal collection » Acorn ADFS disks » Electron » PRES_E00.ADF » Library/BASIC/ExAll
- Personal collection » Acorn ADFS disks » Electron » PRES_E00_backup.ADF » Library/Basic/ExAll
- Personal collection » Acorn ADFS disks » Electron » Utilities_1.ADF » LIBRARY/Basic/ExAll
- Personal collection » Acorn ADFS disks » Electron » Utilities_2.ADF » LIBRARY/Basic/ExAll
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf » Library/BASIC/ExAll
- Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » Library/BASIC/ExAll
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