Delete a file: Difference between revisions

=={{header|Action!}}==

The attached result has been obtained under DOS 2.5.

<lang Action!>PROC Dir(CHAR ARRAY filter)

CHAR ARRAY line(255)

BYTE dev=[1]

Close(dev)

Open(dev,filter,6)

DO

InputSD(dev,line)

PrintE(line)

IF line(0)=0 THEN

EXIT

FI

OD

Close(dev)

RETURN

PROC DeleteFile(CHAR ARRAY fname)

BYTE dev=[1]

Close(dev)

Xio(dev,0,33,0,0,fname)

RETURN

PROC Main()

CHAR ARRAY filter="D:*.*", fname="D:INPUT.TXT"

PrintF("Dir ""%S""%E",filter)

Dir(filter)

PrintF("Delete file ""%S""%E%E",fname)

DeleteFile(fname)

PrintF("Dir ""%S""%E",filter)

Dir(filter)

RETURN</lang>

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Delete_a_file.png Screenshot from Atari 8-bit computer]

<pre>

Dir "D:*.*"

DOS SYS 037

DUP SYS 042

INPUT TXT 001

627 FREE SECTORS

Delete file "D:INPUT.TXT"

Dir "D:*.*"

DOS SYS 037

DUP SYS 042

628 FREE SECTORS

</pre>