EuroCD 3

home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / EraseV1_Src / Erase_V1.0.bb2 next >
Unknown | 1998-06-24 | 3.6 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	TrID	IPLAY Enterprise Video	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 76 65 72 24 3d 22 24 | 56 45 52 3a 20 20 20 20 |.ver$="$|VER:    |
|00000010| 20 45 72 61 73 65 20 56 | 31 2e 30 20 28 63 29 20 | Erase V|1.0 (c) |
|00000020| 2d 20 42 79 20 50 61 75 | 6c 20 4c 61 74 68 77 65 |- By Pau|l Lathwe|
|00000030| 6c 6c 20 31 39 39 36 22 | 00 00 3b 20 20 20 20 20 |ll 1996"|..;     |
|00000040| 52 65 71 75 69 72 65 73 | 20 57 42 20 32 2e 30 34 |Requires| WB 2.04|
|00000050| 2b 00 00 3b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+..;----|--------|
|00000060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000080| 2d 2d 2d 2d 2d 2d 00 00 | 2e 4f 56 45 52 56 49 45 |------..|.OVERVIE|
|00000090| 57 00 00 3b 20 4a 75 73 | 74 20 61 20 73 69 6d 70 |W..; Jus|t a simp|
|000000a0| 6c 65 20 70 72 6f 67 72 | 61 6d 20 74 6f 20 6f 70 |le progr|am to op|
|000000b0| 65 6e 20 61 20 72 65 71 | 75 65 73 74 65 72 20 66 |en a req|uester f|
|000000c0| 6f 72 20 64 65 6c 65 74 | 69 6e 67 20 66 69 6c 65 |or delet|ing file|
|000000d0| 73 2c 00 3b 20 72 61 74 | 68 65 72 20 74 68 61 6e |s,.; rat|her than|
|000000e0| 20 68 61 76 69 6e 67 20 | 74 6f 20 72 65 73 6f 72 | having |to resor|
|000000f0| 74 20 74 6f 20 61 20 64 | 69 72 65 63 74 6f 72 79 |t to a d|irectory|
|00000100| 20 75 74 69 6c 69 74 79 | 2c 20 63 6c 69 20 6f 72 | utility|, cli or|
|00000110| 00 3b 20 75 73 69 6e 67 | 20 74 68 65 20 57 6f 72 |.; using| the Wor|
|00000120| 6b 62 65 6e 63 68 20 64 | 65 6c 65 74 65 20 6d 65 |kbench d|elete me|
|00000130| 6e 75 73 2e 20 49 20 72 | 65 61 6c 6c 79 20 77 72 |nus. I r|eally wr|
|00000140| 6f 74 65 20 74 68 69 73 | 20 70 72 6f 67 72 61 6d |ote this| program|
|00000150| 00 3b 20 66 6f 72 20 74 | 77 6f 20 72 65 61 73 6f |.; for t|wo reaso|
|00000160| 6e 73 2e 2e 2e 00 00 3b | 20 31 2e 20 53 6f 20 6d |ns.....;| 1. So m|
|00000170| 79 20 62 72 6f 74 68 65 | 72 20 63 6f 75 6c 64 20 |y brothe|r could |
|00000180| 64 65 6c 65 74 65 20 66 | 69 6c 65 73 20 68 65 20 |delete f|iles he |
|00000190| 68 61 64 20 63 72 65 61 | 74 65 64 20 69 6e 20 57 |had crea|ted in W|
|000001a0| 6f 72 64 77 6f 72 74 68 | 00 3b 20 20 20 20 77 69 |ordworth|.;    wi|
|000001b0| 74 68 6f 75 74 20 68 61 | 76 69 6e 67 20 74 6f 20 |thout ha|ving to |
|000001c0| 72 65 73 6f 72 74 20 74 | 6f 20 6c 65 61 72 6e 69 |resort t|o learni|
|000001d0| 6e 67 20 74 68 65 20 75 | 73 65 20 6f 66 20 44 69 |ng the u|se of Di|
|000001e0| 72 65 63 74 6f 72 79 20 | 4f 70 75 73 00 3b 20 20 |rectory |Opus.;  |
|000001f0| 20 20 65 74 63 2e 20 77 | 68 69 63 68 20 61 6c 73 |  etc. w|hich als|
|00000200| 6f 20 6d 65 61 6e 73 20 | 68 65 20 69 73 20 75 6e |o means |he is un|
|00000210| 6c 69 6b 65 6c 79 20 74 | 6f 20 64 65 6c 65 74 65 |likely t|o delete|
|00000220| 20 61 6e 79 20 6f 66 20 | 6d 79 20 66 69 6c 65 73 | any of |my files|
|00000230| 21 00 00 3b 20 32 2e 20 | 41 73 20 61 20 74 65 73 |!..; 2. |As a tes|
|00000240| 74 20 70 72 6f 67 72 61 | 6d 20 74 6f 20 75 73 65 |t progra|m to use|
|00000250| 20 74 68 65 20 72 65 71 | 74 6f 6f 6c 73 20 6c 69 | the req|tools li|
|00000260| 62 72 61 72 79 20 72 65 | 71 75 65 73 74 65 72 20 |brary re|quester |
|00000270| 75 73 69 6e 67 20 74 68 | 65 00 3b 20 20 20 20 63 |using th|e.;    c|
|00000280| 6f 6d 6d 61 6e 64 73 20 | 61 76 61 69 6c 61 62 6c |ommands |availabl|
|00000290| 65 20 69 6e 20 74 68 65 | 20 27 6e 65 69 6c 73 72 |e in the| 'neilsr|
|000002a0| 65 71 74 6f 6f 6c 73 6c | 69 62 27 20 6c 69 62 72 |eqtoolsl|ib' libr|
|000002b0| 61 72 79 2e 00 00 3b 20 | 41 6c 73 6f 20 75 73 65 |ary...; |Also use|
|000002c0| 73 20 73 6f 6d 65 20 6f | 66 20 74 68 65 20 63 6f |s some o|f the co|
|000002d0| 6d 6d 61 6e 64 73 20 66 | 72 6f 6d 20 74 68 65 20 |mmands f|rom the |
|000002e0| 52 49 20 54 6f 6f 6c 74 | 79 70 65 20 6c 69 62 72 |RI Toolt|ype libr|
|000002f0| 61 72 79 2c 20 73 6f 20 | 79 6f 75 27 76 65 00 3b |ary, so |you've.;|
|00000300| 20 74 68 65 72 65 27 73 | 20 61 20 63 6f 75 70 6c | there's| a coupl|
|00000310| 65 20 6f 66 20 65 78 61 | 6d 70 6c 65 73 20 66 6f |e of exa|mples fo|
|00000320| 72 20 74 68 61 74 20 74 | 68 72 6f 77 6e 20 69 6e |r that t|hrown in|
|00000330| 20 61 73 20 77 65 6c 6c | 2e 20 3b 2d 29 00 00 3b | as well|. ;-)..;|
|00000340| 20 41 6e 79 77 61 79 2c | 20 70 6c 65 61 73 65 20 | Anyway,| please |
|00000350| 66 65 65 6c 20 66 72 65 | 65 20 74 6f 20 75 73 65 |feel fre|e to use|
|00000360| 20 74 68 69 73 20 63 6f | 64 65 20 79 6f 75 72 73 | this co|de yours|
|00000370| 65 6c 66 20 49 27 76 65 | 20 70 75 74 20 69 6e 00 |elf I've| put in.|
|00000380| 3b 20 70 6c 65 6e 74 79 | 20 6f 66 20 63 6f 6d 6d |; plenty| of comm|
|00000390| 65 6e 74 73 20 73 6f 20 | 69 74 20 73 68 6f 75 6c |ents so |it shoul|
|000003a0| 64 20 62 65 20 70 72 65 | 74 74 79 20 65 61 73 79 |d be pre|tty easy|
|000003b0| 20 74 6f 20 66 6f 6c 6c | 6f 77 2e 00 00 3b 2d 2d | to foll|ow...;--|
|000003c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003f0| 00 00 2e 55 53 41 47 45 | 00 00 3b 20 45 72 61 73 |...USAGE|..; Eras|
|00000400| 65 20 69 73 20 62 65 73 | 74 20 75 73 65 64 20 62 |e is bes|t used b|
|00000410| 79 20 61 64 64 69 6e 67 | 20 69 74 20 74 6f 20 79 |y adding| it to y|
|00000420| 6f 75 72 20 57 6f 72 6b | 62 65 6e 63 68 20 6d 65 |our Work|bench me|
|00000430| 6e 75 73 20 75 73 69 6e | 67 20 61 20 70 72 6f 67 |nus usin|g a prog|
|00000440| 72 61 6d 00 3b 20 73 75 | 63 68 20 61 73 20 54 6f |ram.; su|ch as To|
|00000450| 6f 6c 73 64 61 65 6d 6f | 6e 2e 20 54 68 65 72 65 |olsdaemo|n. There|
|00000460| 20 61 72 65 20 74 77 6f | 20 74 6f 6f 6c 74 79 70 | are two| tooltyp|
|00000470| 65 20 74 68 61 74 20 6d | 61 79 20 62 65 20 73 65 |e that m|ay be se|
|00000480| 74 2e 2e 2e 00 00 3b 20 | 50 41 54 48 20 2d 20 54 |t.....; |PATH - T|
|00000490| 68 69 73 20 73 65 74 73 | 20 74 68 65 20 64 65 66 |his sets| the def|
|000004a0| 61 75 6c 74 20 64 69 72 | 65 63 74 6f 72 79 20 74 |ault dir|ectory t|
|000004b0| 68 65 20 66 69 6c 65 20 | 72 65 71 75 65 73 74 65 |he file |requeste|
|000004c0| 72 20 6f 70 65 6e 73 20 | 77 68 65 6e 00 3b 20 20 |r opens |when.;  |
|000004d0| 20 20 20 20 20 20 45 72 | 61 73 65 20 69 73 20 72 |      Er|ase is r|
|000004e0| 75 6e 2e 20 49 6e 74 69 | 61 6c 6c 79 20 73 65 74 |un. Inti|ally set|
|000004f0| 20 74 6f 20 2d 20 53 79 | 73 3a 00 00 3b 20 50 41 | to - Sy|s:..; PA|
|00000500| 54 54 45 52 4e 20 2d 20 | 54 68 65 20 70 61 74 74 |TTERN - |The patt|
|00000510| 65 72 6e 20 75 73 65 64 | 20 62 79 20 74 68 65 20 |ern used| by the |
|00000520| 72 65 71 75 65 73 74 65 | 72 2e 20 49 6e 69 74 61 |requeste|r. Inita|
|00000530| 6c 6c 79 20 73 65 74 20 | 74 6f 20 2d 20 20 23 3f |lly set |to -  #?|
|00000540| 00 00 3b 20 4a 75 73 74 | 20 72 75 6e 20 45 72 61 |..; Just| run Era|
|00000550| 73 65 20 61 6e 64 20 73 | 65 6c 65 63 74 20 74 68 |se and s|elect th|
|00000560| 65 20 66 69 6c 65 73 20 | 79 6f 75 20 77 61 6e 74 |e files |you want|
|00000570| 20 74 6f 20 64 65 6c 65 | 74 65 2e 20 48 6f 6c 64 | to dele|te. Hold|
|00000580| 20 64 6f 77 6e 20 74 68 | 65 00 3b 20 73 68 69 66 | down th|e.; shif|
|00000590| 74 20 6b 65 79 20 74 6f | 20 73 65 6c 65 63 74 20 |t key to| select |
|000005a0| 6d 75 6c 74 69 70 6c 65 | 20 66 69 6c 65 73 2e 20 |multiple| files. |
|000005b0| 4a 75 73 74 20 63 6c 69 | 63 6b 20 6f 6e 20 27 4f |Just cli|ck on 'O|
|000005c0| 6b 61 79 27 20 77 68 65 | 6e 20 79 6f 75 27 76 65 |kay' whe|n you've|
|000005d0| 00 3b 20 73 65 6c 65 63 | 74 65 64 20 74 68 65 20 |.; selec|ted the |
|000005e0| 72 65 71 75 69 72 65 64 | 20 66 69 6c 65 73 20 2d |required| files -|
|000005f0| 20 6a 6f 62 20 64 6f 6e | 65 2e 20 3a 2d 29 00 00 | job don|e. :-)..|
|00000600| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000630| 2d 2d 2d 00 00 2e 63 6f | 6e 73 74 61 6e 74 73 00 |---...co|nstants.|
|00000640| 00 23 57 30 20 20 20 20 | 20 20 20 20 20 20 20 3d |.#W0    |       =|
|00000650| 30 20 20 3b 20 73 63 72 | 65 65 6e 2f 77 69 6e 64 |0  ; scr|een/wind|
|00000660| 6f 77 20 6f 62 6a 65 63 | 74 20 6e 75 6d 62 65 72 |ow objec|t number|
|00000670| 00 23 57 42 5f 56 45 52 | 53 49 4f 4e 20 20 20 3d |.#WB_VER|SION   =|
|00000680| 33 36 20 3b 20 57 42 20 | 76 65 72 73 69 6f 6e 20 |36 ; WB |version |
|00000690| 72 65 71 75 69 72 65 64 | 20 74 6f 20 72 75 6e 20 |required| to run |
|000006a0| 70 72 6f 67 72 61 6d 2e | 20 28 32 2e 30 34 29 00 |program.| (2.04).|
|000006b0| 00 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|000006c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 00 00 2e 69 | 6e 69 74 69 61 6c 69 73 |----...i|nitialis|
|000006f0| 65 00 00 80 c3 20 20 20 | 20 20 20 20 20 20 20 20 |e....   |        |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|00000710| 4e 65 65 64 65 64 20 73 | 6f 20 45 72 61 73 65 20 |Needed s|o Erase |
|00000720| 63 61 6e 20 62 65 20 72 | 75 6e 20 66 72 6f 6d 20 |can be r|un from |
|00000730| 74 68 65 20 57 42 00 cf | 02 20 23 57 30 00 cf 07 |the WB..|. #W0...|
|00000740| 20 23 57 30 00 00 23 57 | 31 3d 30 00 80 32 20 66 | #W0..#W|1=0..2 f|
|00000750| 69 24 3d 31 30 38 00 66 | 69 24 3d 22 22 00 00 80 |i$=108.f|i$=""...|
|00000760| 0b 20 e0 87 3c 23 57 42 | 5f 56 45 52 53 49 4f 4e |. ..<#WB|_VERSION|
|00000770| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 45 6e |        |    ; En|
|00000780| 73 75 72 65 20 57 42 20 | 76 65 72 73 69 6f 6e 20 |sure WB |version |
|00000790| 68 69 67 68 65 72 20 74 | 68 61 6e 20 32 2e 30 34 |higher t|han 2.04|
|000007a0| 00 20 20 cf 0d 20 30 00 | 20 20 65 72 72 24 3d 22 |.  .. 0.|  err$="|
|000007b0| 57 6f 72 6b 62 65 6e 63 | 68 20 56 32 2e 30 34 20 |Workbenc|h V2.04 |
|000007c0| 6f 72 20 61 62 6f 76 65 | 20 72 65 71 75 69 72 65 |or above| require|
|000007d0| 64 21 22 2b dc 86 28 31 | 30 29 00 20 20 b5 8d 20 |d!"+..(1|0).  .. |
|000007e0| 22 45 72 61 73 65 20 45 | 72 72 6f 72 20 52 65 71 |"Erase E|rror Req|
|000007f0| 75 65 73 74 2e 2e 2e 22 | 2c 65 72 72 24 2c 22 41 |uest..."|,err$,"A|
|00000800| 62 6f 72 74 21 22 20 20 | 3b 20 75 73 65 73 20 73 |bort!"  |; uses s|
|00000810| 74 61 6e 64 61 72 64 20 | 72 65 71 75 65 73 74 65 |tandard |requeste|
|00000820| 72 00 20 20 80 02 00 80 | c0 00 00 00 2e 72 65 61 |r.  ....|.....rea|
|00000830| 64 5f 74 6f 6f 6c 74 79 | 70 65 73 20 20 20 20 20 |d_toolty|pes     |
|00000840| 20 20 20 20 20 20 3b 20 | 69 66 20 69 63 6f 6e 20 |      ; |if icon |
|00000850| 61 76 61 69 6c 61 62 6c | 65 20 72 65 61 64 2f 75 |availabl|e read/u|
|00000860| 73 65 20 74 68 65 20 74 | 6f 6f 6c 74 79 70 65 20 |se the t|ooltype |
|00000870| 73 65 74 74 69 6e 67 73 | 00 00 20 20 80 0b 20 9d |settings|..  .. .|
|00000880| 81 20 28 22 45 72 61 73 | 65 22 29 20 20 20 20 20 |. ("Eras|e")     |
|00000890| 20 20 20 20 20 3b 20 63 | 68 65 63 6b 20 74 68 65 |     ; c|heck the|
|000008a0| 20 70 72 6f 67 20 68 61 | 73 20 61 6e 20 69 63 6f | prog ha|s an ico|
|000008b0| 6e 21 00 20 20 20 20 80 | 0b 20 9d 8f 20 28 22 50 |n!.    .|. .. ("P|
|000008c0| 41 54 48 22 29 20 20 20 | 20 20 20 20 20 20 20 3b |ATH")   |       ;|
|000008d0| 20 73 65 65 20 69 66 20 | 74 68 65 20 74 6f 6f 6c | see if |the tool|
|000008e0| 74 79 70 65 20 65 78 69 | 73 74 73 20 62 65 66 6f |type exi|sts befo|
|000008f0| 72 65 2e 2e 2e 00 20 20 | 20 20 20 20 70 61 74 68 |re....  |    path|
|00000900| 24 3d 9d 82 20 28 22 50 | 41 54 48 22 29 20 20 20 |$=.. ("P|ATH")   |
|00000910| 20 3b 20 2e 2e 2e 20 67 | 65 74 74 69 6e 67 20 69 | ; ... g|etting i|
|00000920| 74 27 73 20 76 61 6c 75 | 65 00 20 20 20 20 80 c0 |t's valu|e.    ..|
|00000930| 00 20 20 20 20 80 0b 20 | 9d 8f 28 22 50 41 54 54 |.    .. |..("PATT|
|00000940| 45 52 4e 22 29 00 20 20 | 20 20 20 20 70 61 74 24 |ERN").  |    pat$|
|00000950| 3d 9d 82 28 22 50 41 54 | 54 45 52 4e 22 29 00 20 |=..("PAT|TERN"). |
|00000960| 20 20 20 80 c0 00 20 20 | 20 20 9d 85 00 20 20 80 |   ...  |  ...  .|
|00000970| c0 00 00 3b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...;----|--------|
|00000980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009a0| 2d 2d 2d 2d 2d 2d 00 00 | 2e 6f 70 65 6e 5f 77 69 |------..|.open_wi|
|000009b0| 6e 64 6f 77 20 20 20 20 | 20 20 20 20 3b 20 6f 70 |ndow    |    ; op|
|000009c0| 65 6e 20 6f 75 72 20 70 | 72 6f 67 72 61 6d 27 73 |en our p|rogram's|
|000009d0| 20 77 69 6e 64 6f 77 20 | 61 6e 64 20 61 74 74 61 | window |and atta|
|000009e0| 63 68 20 67 61 64 67 65 | 74 73 20 61 6e 64 20 6d |ch gadge|ts and m|
|000009f0| 65 6e 75 73 00 00 c5 01 | 20 23 57 31 2c 30 2c 30 |enus....| #W1,0,0|
|00000a00| 2c 34 30 2c 34 34 2c 24 | 31 30 30 2c 22 50 72 6f |,40,44,$|100,"Pro|
|00000a10| 67 72 61 6d 20 22 2b dc | 86 28 24 61 39 29 2b 22 |gram "+.|.($a9)+"|
|00000a20| 20 20 42 79 20 50 61 75 | 6c 20 4c 61 74 68 77 65 |  By Pau|l Lathwe|
|00000a30| 6c 6c 20 20 31 39 39 36 | 22 2c 31 2c 32 2c 30 00 |ll  1996|",1,2,0.|
|00000a40| c5 38 20 3b 20 72 65 71 | 75 69 72 65 64 20 66 6f |.8 ; req|uired fo|
|00000a50| 72 20 74 68 65 20 52 54 | 45 5a 52 65 71 75 65 73 |r the RT|EZReques|
|00000a60| 74 20 63 6f 6d 6d 61 6e | 64 73 20 74 6f 20 73 68 |t comman|ds to sh|
|00000a70| 6f 77 20 6f 6e 20 57 42 | 20 73 63 72 65 65 6e 21 |ow on WB| screen!|
|00000a80| 00 00 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..;-----|--------|
|00000a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ab0| 2d 2d 2d 2d 2d 00 00 2e | 73 65 6c 65 63 74 5f 66 |-----...|select_f|
|00000ac0| 69 6c 65 73 20 20 20 20 | 20 20 20 3b 20 6f 70 65 |iles    |   ; ope|
|00000ad0| 6e 20 74 68 65 20 72 65 | 71 75 65 73 74 65 72 20 |n the re|quester |
|00000ae0| 73 6f 20 75 73 65 72 20 | 63 61 6e 20 73 65 6c 65 |so user |can sele|
|00000af0| 63 74 20 66 69 6c 65 20 | 74 6f 20 64 65 6c 65 74 |ct file |to delet|
|00000b00| 65 00 00 20 20 9b 0a 20 | 33 2c 70 61 74 68 24 20 |e..  .. |3,path$ |
|00000b10| 20 20 20 20 20 20 20 20 | 3b 20 77 68 61 74 20 69 |        |; what i|
|00000b20| 73 20 73 61 79 73 20 72 | 65 61 6c 6c 79 21 00 20 |s says r|eally!. |
|00000b30| 20 9b 0e 20 33 2c 70 61 | 74 24 20 20 20 20 20 20 | .. 3,pa|t$      |
|00000b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 61 |        |     ; a|
|00000b50| 6e 64 20 61 67 61 69 6e | 2e 20 3b 2d 29 00 00 20 |nd again|. ;-).. |
|00000b60| 20 72 65 74 3d 9b 13 28 | 22 53 65 6c 65 63 74 20 | ret=..(|"Select |
|00000b70| 66 69 6c 65 28 73 29 20 | 74 6f 20 62 65 20 64 65 |file(s) |to be de|
|00000b80| 6c 65 74 65 64 2e 2e 2e | 22 29 20 20 3b 20 74 68 |leted...|")  ; th|
|00000b90| 65 20 66 69 6c 65 20 72 | 65 71 75 65 73 74 65 72 |e file r|equester|
|00000ba0| 00 00 20 20 80 0b 20 72 | 65 74 00 20 20 20 20 63 |..  .. r|et.    c|
|00000bb0| 68 65 63 6b 3d 9b 01 28 | 22 45 72 61 73 65 20 52 |heck=..(|"Erase R|
|00000bc0| 65 71 75 65 73 74 22 2c | 22 41 72 65 20 79 6f 75 |equest",|"Are you|
|00000bd0| 20 73 75 72 65 20 49 20 | 73 68 6f 75 6c 64 22 2b | sure I |should"+|
|00000be0| dc 86 28 31 30 29 2b 22 | 20 64 65 6c 65 74 65 20 |..(10)+"| delete |
|00000bf0| 74 68 65 73 65 20 66 69 | 6c 65 73 3f 22 2c 22 5f |these fi|les?","_|
|00000c00| 59 75 70 7c 5f 4e 6f 70 | 65 21 22 29 00 00 20 20 |Yup|_Nop|e!")..  |
|00000c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|00000c30| 69 66 20 66 69 6c 65 28 | 73 29 20 73 65 6c 65 63 |if file(|s) selec|
|00000c40| 74 65 64 2c 20 6a 75 73 | 74 20 64 6f 75 62 6c 65 |ted, jus|t double|
|00000c50| 20 63 68 65 63 6b 00 20 | 20 20 20 80 0b 20 63 68 | check. |   .. ch|
|00000c60| 65 63 6b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |eck     |        |
|00000c70| 20 20 20 20 20 20 20 3b | 20 77 69 74 68 20 75 73 |       ;| with us|
|00000c80| 65 72 20 74 68 61 74 20 | 74 68 65 79 20 73 68 6f |er that |they sho|
|00000c90| 75 6c 64 20 62 65 20 64 | 65 6c 65 74 65 64 00 20 |uld be d|eleted. |
|00000ca0| 20 20 20 20 20 6e 61 6d | 65 24 3d 9b 14 20 20 20 |     nam|e$=..   |
|00000cb0| 20 20 3b 20 67 65 74 20 | 66 69 72 73 74 20 66 69 |  ; get |first fi|
|00000cc0| 6c 65 20 73 65 6c 65 63 | 74 65 64 00 20 20 20 20 |le selec|ted.    |
|00000cd0| 20 20 80 0c 20 6e 61 6d | 65 24 3c 3e 22 22 20 80 |  .. nam|e$<>"" .|
|00000ce0| 42 20 72 65 74 00 20 20 | 20 20 20 20 20 20 be 03 |B ret.  |      ..|
|00000cf0| 20 6e 61 6d 65 24 20 20 | 20 20 20 20 20 20 20 20 | name$  |        |
|00000d00| 3b 20 64 65 6c 65 74 65 | 20 74 68 65 20 66 69 6c |; delete| the fil|
|00000d10| 65 2e 2e 2e 00 20 20 20 | 20 20 20 20 20 6e 61 6d |e....   |     nam|
|00000d20| 65 24 3d 9b 14 20 20 20 | 3b 20 74 68 65 6e 20 67 |e$=..   |; then g|
|00000d30| 65 74 20 74 68 65 20 6e | 65 78 74 20 6f 6e 65 20 |et the n|ext one |
|00000d40| 74 6f 20 62 65 20 64 65 | 6c 65 74 65 64 00 20 20 |to be de|leted.  |
|00000d50| 20 20 20 20 80 c1 00 20 | 20 20 20 20 20 72 65 74 |    ... |     ret|
|00000d60| 3d 9b 01 20 28 22 45 72 | 61 73 65 20 52 65 71 75 |=.. ("Er|ase Requ|
|00000d70| 65 73 74 22 2c 22 41 6c | 6c 20 44 6f 6e 65 21 22 |est","Al|l Done!"|
|00000d80| 2c 22 54 68 61 6e 6b 73 | 21 22 29 00 20 20 20 20 |,"Thanks|!").    |
|00000d90| 80 22 00 20 20 20 20 20 | 20 80 05 20 73 65 6c 65 |.".     | .. sele|
|00000da0| 63 74 5f 66 69 6c 65 73 | 00 20 20 20 20 80 c0 00 |ct_files|.    ...|
|00000db0| 20 20 80 c0 00 00 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |  ....;-|--------|
|00000dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 00 00 2e 71 75 69 74 |--------|-...quit|
|00000df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000e00| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 65 6e 64 |        |   ; end|
|00000e10| 20 74 68 65 20 70 72 6f | 67 72 61 6d 00 00 20 20 | the pro|gram..  |
|00000e20| c5 3c 20 23 57 31 00 20 | 20 80 02 00 00 3b 2d 2d |.< #W1. | ....;--|
|00000e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+