Home » Archimedes archive » Acorn User » AU 1993-09.adf » !Bio_Bio » !Bio/Library/ForceWipe
!Bio/Library/ForceWipe
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 1993-09.adf » !Bio_Bio |
| Filename: | !Bio/Library/ForceWipe |
| Read OK: | ✔ |
| File size: | 02F7 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >ForceWipe (Bio2) 20REM By Dave Lawrence 30REM For use with Bio application 40REM (c) BAU September 1993 50: 60DEF FNforcewipe_name = "Wipe with force" 70DEF FNforcewipe_args = "-in * -directory" 80DEF FNforcewipe_init = 0 90: 100DEF FNforcewipe(in$) 110IF version%>300 THEN 120 leaf$=FNleaf_name(in$) 130 path$=LEFT$(in$,LENin$-LENleaf$-1) 140 SYS "Wimp_StartTask","Filer_Action" TO fa_task% 150 SYS "FilerAction_SendSelectedDirectory",fa_task%,path$+CHR$0 160 SYS "FilerAction_SendSelectedFile",fa_task%,leaf$+CHR$0 170 SYS "FilerAction_SendStartOperation",fa_task%,2,%10101,0,0 180ELSE 190 SYS "XOS_CLI","Wipe "+in$+" FR~C~V" 200ENDIF 210=0 220: 230DEF FNforcewipe_help(window%,icon%) 240IF window%=-1 THEN ="Drag a file or directory here to wipe it. R(ecurse) and F(orce) will be used." THEN =""
� >ForceWipe (Bio2) � By Dave Lawrence "� For use with Bio application ( � (c) BAU September 1993 2: <)� �forcewipe_name = "Wipe with force" F*� �forcewipe_args = "-in * -directory" P� �forcewipe_init = 0 Z: d� �forcewipe(in$) n� version%>300 � x leaf$=�leaf_name(in$) � path$=�in$,�in$-�leaf$-1) �2 ș "Wimp_StartTask","Filer_Action" � fa_task% �= ș "FilerAction_SendSelectedDirectory",fa_task%,path$+�0 �8 ș "FilerAction_SendSelectedFile",fa_task%,leaf$+�0 �> ș "FilerAction_SendStartOperation",fa_task%,2,%10101,0,0 �� �' ș "XOS_CLI","Wipe "+in$+" FR~C~V" �� �=0 �: �$� �forcewipe_help(window%,icon%) �i� window%=-1 � ="Drag a file or directory here to wipe it. R(ecurse) and F(orce) will be used." � ="" �
00000000 0d 00 0a 1b f4 20 20 20 20 20 3e 46 6f 72 63 65 |..... >Force| 00000010 57 69 70 65 20 28 42 69 6f 32 29 0d 00 14 17 f4 |Wipe (Bio2).....| 00000020 20 42 79 20 20 44 61 76 65 20 4c 61 77 72 65 6e | By Dave Lawren| 00000030 63 65 0d 00 1e 22 f4 20 46 6f 72 20 75 73 65 20 |ce...". For use | 00000040 77 69 74 68 20 42 69 6f 20 61 70 70 6c 69 63 61 |with Bio applica| 00000050 74 69 6f 6e 0d 00 28 1c f4 20 28 63 29 20 42 41 |tion..(.. (c) BA| 00000060 55 20 53 65 70 74 65 6d 62 65 72 20 31 39 39 33 |U September 1993| 00000070 0d 00 32 05 3a 0d 00 3c 29 dd 20 a4 66 6f 72 63 |..2.:..<). .forc| 00000080 65 77 69 70 65 5f 6e 61 6d 65 20 3d 20 22 57 69 |ewipe_name = "Wi| 00000090 70 65 20 77 69 74 68 20 66 6f 72 63 65 22 0d 00 |pe with force"..| 000000a0 46 2a dd 20 a4 66 6f 72 63 65 77 69 70 65 5f 61 |F*. .forcewipe_a| 000000b0 72 67 73 20 3d 20 22 2d 69 6e 20 2a 20 2d 64 69 |rgs = "-in * -di| 000000c0 72 65 63 74 6f 72 79 22 0d 00 50 19 dd 20 a4 66 |rectory"..P.. .f| 000000d0 6f 72 63 65 77 69 70 65 5f 69 6e 69 74 20 3d 20 |orcewipe_init = | 000000e0 30 0d 00 5a 05 3a 0d 00 64 15 dd 20 a4 66 6f 72 |0..Z.:..d.. .for| 000000f0 63 65 77 69 70 65 28 69 6e 24 29 0d 00 6e 14 e7 |cewipe(in$)..n..| 00000100 20 76 65 72 73 69 6f 6e 25 3e 33 30 30 20 8c 0d | version%>300 ..| 00000110 00 78 1a 20 6c 65 61 66 24 3d a4 6c 65 61 66 5f |.x. leaf$=.leaf_| 00000120 6e 61 6d 65 28 69 6e 24 29 0d 00 82 1e 20 70 61 |name(in$).... pa| 00000130 74 68 24 3d c0 69 6e 24 2c a9 69 6e 24 2d a9 6c |th$=.in$,.in$-.l| 00000140 65 61 66 24 2d 31 29 0d 00 8c 32 20 c8 99 20 22 |eaf$-1)...2 .. "| 00000150 57 69 6d 70 5f 53 74 61 72 74 54 61 73 6b 22 2c |Wimp_StartTask",| 00000160 22 46 69 6c 65 72 5f 41 63 74 69 6f 6e 22 20 b8 |"Filer_Action" .| 00000170 20 66 61 5f 74 61 73 6b 25 0d 00 96 3d 20 c8 99 | fa_task%...= ..| 00000180 20 22 46 69 6c 65 72 41 63 74 69 6f 6e 5f 53 65 | "FilerAction_Se| 00000190 6e 64 53 65 6c 65 63 74 65 64 44 69 72 65 63 74 |ndSelectedDirect| 000001a0 6f 72 79 22 2c 66 61 5f 74 61 73 6b 25 2c 70 61 |ory",fa_task%,pa| 000001b0 74 68 24 2b bd 30 0d 00 a0 38 20 c8 99 20 22 46 |th$+.0...8 .. "F| 000001c0 69 6c 65 72 41 63 74 69 6f 6e 5f 53 65 6e 64 53 |ilerAction_SendS| 000001d0 65 6c 65 63 74 65 64 46 69 6c 65 22 2c 66 61 5f |electedFile",fa_| 000001e0 74 61 73 6b 25 2c 6c 65 61 66 24 2b bd 30 0d 00 |task%,leaf$+.0..| 000001f0 aa 3e 20 c8 99 20 22 46 69 6c 65 72 41 63 74 69 |.> .. "FilerActi| 00000200 6f 6e 5f 53 65 6e 64 53 74 61 72 74 4f 70 65 72 |on_SendStartOper| 00000210 61 74 69 6f 6e 22 2c 66 61 5f 74 61 73 6b 25 2c |ation",fa_task%,| 00000220 32 2c 25 31 30 31 30 31 2c 30 2c 30 0d 00 b4 05 |2,%10101,0,0....| 00000230 cc 0d 00 be 27 20 c8 99 20 22 58 4f 53 5f 43 4c |....' .. "XOS_CL| 00000240 49 22 2c 22 57 69 70 65 20 22 2b 69 6e 24 2b 22 |I","Wipe "+in$+"| 00000250 20 46 52 7e 43 7e 56 22 0d 00 c8 05 cd 0d 00 d2 | FR~C~V"........| 00000260 06 3d 30 0d 00 dc 05 3a 0d 00 e6 24 dd 20 a4 66 |.=0....:...$. .f| 00000270 6f 72 63 65 77 69 70 65 5f 68 65 6c 70 28 77 69 |orcewipe_help(wi| 00000280 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 0d 00 f0 69 |ndow%,icon%)...i| 00000290 e7 20 77 69 6e 64 6f 77 25 3d 2d 31 20 8c 20 3d |. window%=-1 . =| 000002a0 22 44 72 61 67 20 61 20 66 69 6c 65 20 6f 72 20 |"Drag a file or | 000002b0 64 69 72 65 63 74 6f 72 79 20 68 65 72 65 20 74 |directory here t| 000002c0 6f 20 77 69 70 65 20 69 74 2e 20 52 28 65 63 75 |o wipe it. R(ecu| 000002d0 72 73 65 29 20 61 6e 64 20 46 28 6f 72 63 65 29 |rse) and F(orce)| 000002e0 20 77 69 6c 6c 20 62 65 20 75 73 65 64 2e 22 20 | will be used." | 000002f0 8c 20 3d 22 22 0d ff |. =""..| 000002f7
.