Home » Archimedes archive » Acorn User » AU 1996-03 B.adf » Regulars » StarInfo/Casula/!Director/Menus/Others/OpenBin
StarInfo/Casula/!Director/Menus/Others/OpenBin
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 1996-03 B.adf » Regulars |
| Filename: | StarInfo/Casula/!Director/Menus/Others/OpenBin |
| Read OK: | ✔ |
| File size: | 01CD bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10DIM name% 16 20 30SYS"Director_Menu","""View bin days"" OpenBin -temp" 40 50offset%=0 60 70REPEAT 80 SYS"OS_GBPB",9,"Bin:",name%,1,offset%,16,"*" TO ,,,,offset% 90 IF offset%<>-1 THEN 100 SYS"Director_Option",name% 110 SYS"Director_Command","Filer_OpenDir Bin:"+FNread0(name%) 120 ENDIF 130UNTIL offset%=-1 170SYS"Director_EndMenu" 180 190*Set Director$Menu OpenBin 191 192END 200 210DEFFNread0(addr%) 220 230LOCAL a$ 240 250WHILE ?addr%<>0:a$+=CHR$(?addr%):addr%+=1:ENDWHILE 260 270=a$
� name% 16 7ș"Director_Menu","""View bin days"" OpenBin -temp" ( 2 offset%=0 < F� P? ș"OS_GBPB",9,"Bin:",name%,1,offset%,16,"*" � ,,,,offset% Z � offset%<>-1 � d! ș"Director_Option",name% n? ș"Director_Command","Filer_OpenDir Bin:"+�read0(name%) x � �� offset%=-1 �ș"Director_EndMenu" � � *Set Director$Menu OpenBin � �� � �ݤread0(addr%) � �� a$ � �)ȕ ?addr%<>0:a$+=�(?addr%):addr%+=1:� =a$ �
00000000 0d 00 0a 0e de 20 6e 61 6d 65 25 20 31 36 0d 00 |..... name% 16..| 00000010 14 04 0d 00 1e 37 c8 99 22 44 69 72 65 63 74 6f |.....7.."Directo| 00000020 72 5f 4d 65 6e 75 22 2c 22 22 22 56 69 65 77 20 |r_Menu","""View | 00000030 62 69 6e 20 64 61 79 73 22 22 20 4f 70 65 6e 42 |bin days"" OpenB| 00000040 69 6e 20 2d 74 65 6d 70 22 0d 00 28 04 0d 00 32 |in -temp"..(...2| 00000050 0d 6f 66 66 73 65 74 25 3d 30 0d 00 3c 04 0d 00 |.offset%=0..<...| 00000060 46 05 f5 0d 00 50 3f 20 20 c8 99 22 4f 53 5f 47 |F....P? .."OS_G| 00000070 42 50 42 22 2c 39 2c 22 42 69 6e 3a 22 2c 6e 61 |BPB",9,"Bin:",na| 00000080 6d 65 25 2c 31 2c 6f 66 66 73 65 74 25 2c 31 36 |me%,1,offset%,16| 00000090 2c 22 2a 22 20 b8 20 2c 2c 2c 2c 6f 66 66 73 65 |,"*" . ,,,,offse| 000000a0 74 25 0d 00 5a 15 20 20 e7 20 6f 66 66 73 65 74 |t%..Z. . offset| 000000b0 25 3c 3e 2d 31 20 8c 0d 00 64 21 20 20 20 20 c8 |%<>-1 ...d! .| 000000c0 99 22 44 69 72 65 63 74 6f 72 5f 4f 70 74 69 6f |."Director_Optio| 000000d0 6e 22 2c 6e 61 6d 65 25 0d 00 6e 3f 20 20 20 20 |n",name%..n? | 000000e0 c8 99 22 44 69 72 65 63 74 6f 72 5f 43 6f 6d 6d |.."Director_Comm| 000000f0 61 6e 64 22 2c 22 46 69 6c 65 72 5f 4f 70 65 6e |and","Filer_Open| 00000100 44 69 72 20 42 69 6e 3a 22 2b a4 72 65 61 64 30 |Dir Bin:"+.read0| 00000110 28 6e 61 6d 65 25 29 0d 00 78 07 20 20 cd 0d 00 |(name%)..x. ...| 00000120 82 10 fd 20 6f 66 66 73 65 74 25 3d 2d 31 0d 00 |... offset%=-1..| 00000130 aa 18 c8 99 22 44 69 72 65 63 74 6f 72 5f 45 6e |...."Director_En| 00000140 64 4d 65 6e 75 22 0d 00 b4 04 0d 00 be 1e 2a 53 |dMenu"........*S| 00000150 65 74 20 44 69 72 65 63 74 6f 72 24 4d 65 6e 75 |et Director$Menu| 00000160 20 4f 70 65 6e 42 69 6e 0d 00 bf 04 0d 00 c0 05 | OpenBin........| 00000170 e0 0d 00 c8 04 0d 00 d2 12 dd a4 72 65 61 64 30 |...........read0| 00000180 28 61 64 64 72 25 29 0d 00 dc 04 0d 00 e6 08 ea |(addr%).........| 00000190 20 61 24 0d 00 f0 04 0d 00 fa 29 c8 95 20 3f 61 | a$.......).. ?a| 000001a0 64 64 72 25 3c 3e 30 3a 61 24 2b 3d bd 28 3f 61 |ddr%<>0:a$+=.(?a| 000001b0 64 64 72 25 29 3a 61 64 64 72 25 2b 3d 31 3a ce |ddr%):addr%+=1:.| 000001c0 0d 01 04 04 0d 01 0e 07 3d 61 24 0d ff |........=a$..| 000001cd
.