Home » Archimedes archive » Acorn User » AU 1996-03 B.adf » Regulars » StarInfo/Casula/!Director/Menus/Others/EmptyBin
StarInfo/Casula/!Director/Menus/Others/EmptyBin
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/EmptyBin |
| Read OK: | ✔ |
| File size: | 0229 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10DIM name% 16 20 30SYS"Director_Menu","""Bin days"" EmptyBin -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","Wipe Bin:"+FNread0(name%)+" RF~C~V" 120 ENDIF 130UNTIL offset%=-1 140SYS"Director_Dash" 150SYS"Director_Option","All" 160SYS"Director_Command","Wipe Bin:* RF~C~V" 170SYS"Director_EndMenu" 180 190*Set Director$Menu EmptyBin 191 192END 200 210DEFFNread0(addr%) 220 230LOCAL a$ 240 250WHILE ?addr%<>0:a$+=CHR$(?addr%):addr%+=1:ENDWHILE 260 270=a$
� name% 16 3ș"Director_Menu","""Bin days"" EmptyBin -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","Wipe Bin:"+�read0(name%)+" RF~C~V" x � �� offset%=-1 �ș"Director_Dash" � ș"Director_Option","All" �,ș"Director_Command","Wipe Bin:* RF~C~V" �ș"Director_EndMenu" � � *Set Director$Menu EmptyBin � �� � �ݤ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 33 c8 99 22 44 69 72 65 63 74 6f |.....3.."Directo| 00000020 72 5f 4d 65 6e 75 22 2c 22 22 22 42 69 6e 20 64 |r_Menu","""Bin d| 00000030 61 79 73 22 22 20 45 6d 70 74 79 42 69 6e 20 2d |ays"" EmptyBin -| 00000040 74 65 6d 70 22 0d 00 28 04 0d 00 32 0d 6f 66 66 |temp"..(...2.off| 00000050 73 65 74 25 3d 30 0d 00 3c 04 0d 00 46 05 f5 0d |set%=0..<...F...| 00000060 00 50 3f 20 20 c8 99 22 4f 53 5f 47 42 50 42 22 |.P? .."OS_GBPB"| 00000070 2c 39 2c 22 42 69 6e 3a 22 2c 6e 61 6d 65 25 2c |,9,"Bin:",name%,| 00000080 31 2c 6f 66 66 73 65 74 25 2c 31 36 2c 22 2a 22 |1,offset%,16,"*"| 00000090 20 b8 20 2c 2c 2c 2c 6f 66 66 73 65 74 25 0d 00 | . ,,,,offset%..| 000000a0 5a 15 20 20 e7 20 6f 66 66 73 65 74 25 3c 3e 2d |Z. . offset%<>-| 000000b0 31 20 8c 0d 00 64 21 20 20 20 20 c8 99 22 44 69 |1 ...d! .."Di| 000000c0 72 65 63 74 6f 72 5f 4f 70 74 69 6f 6e 22 2c 6e |rector_Option",n| 000000d0 61 6d 65 25 0d 00 6e 40 20 20 20 20 c8 99 22 44 |ame%..n@ .."D| 000000e0 69 72 65 63 74 6f 72 5f 43 6f 6d 6d 61 6e 64 22 |irector_Command"| 000000f0 2c 22 57 69 70 65 20 42 69 6e 3a 22 2b a4 72 65 |,"Wipe Bin:"+.re| 00000100 61 64 30 28 6e 61 6d 65 25 29 2b 22 20 52 46 7e |ad0(name%)+" RF~| 00000110 43 7e 56 22 0d 00 78 07 20 20 cd 0d 00 82 10 fd |C~V"..x. ......| 00000120 20 6f 66 66 73 65 74 25 3d 2d 31 0d 00 8c 15 c8 | offset%=-1.....| 00000130 99 22 44 69 72 65 63 74 6f 72 5f 44 61 73 68 22 |."Director_Dash"| 00000140 0d 00 96 1d c8 99 22 44 69 72 65 63 74 6f 72 5f |......"Director_| 00000150 4f 70 74 69 6f 6e 22 2c 22 41 6c 6c 22 0d 00 a0 |Option","All"...| 00000160 2c c8 99 22 44 69 72 65 63 74 6f 72 5f 43 6f 6d |,.."Director_Com| 00000170 6d 61 6e 64 22 2c 22 57 69 70 65 20 42 69 6e 3a |mand","Wipe Bin:| 00000180 2a 20 52 46 7e 43 7e 56 22 0d 00 aa 18 c8 99 22 |* RF~C~V"......"| 00000190 44 69 72 65 63 74 6f 72 5f 45 6e 64 4d 65 6e 75 |Director_EndMenu| 000001a0 22 0d 00 b4 04 0d 00 be 1f 2a 53 65 74 20 44 69 |"........*Set Di| 000001b0 72 65 63 74 6f 72 24 4d 65 6e 75 20 45 6d 70 74 |rector$Menu Empt| 000001c0 79 42 69 6e 0d 00 bf 04 0d 00 c0 05 e0 0d 00 c8 |yBin............| 000001d0 04 0d 00 d2 12 dd a4 72 65 61 64 30 28 61 64 64 |.......read0(add| 000001e0 72 25 29 0d 00 dc 04 0d 00 e6 08 ea 20 61 24 0d |r%)......... a$.| 000001f0 00 f0 04 0d 00 fa 29 c8 95 20 3f 61 64 64 72 25 |......).. ?addr%| 00000200 3c 3e 30 3a 61 24 2b 3d bd 28 3f 61 64 64 72 25 |<>0:a$+=.(?addr%| 00000210 29 3a 61 64 64 72 25 2b 3d 31 3a ce 0d 01 04 04 |):addr%+=1:.....| 00000220 0d 01 0e 07 3d 61 24 0d ff |....=a$..| 00000229
.