diseñar programa que formatee un diskette

[MaxExtreme]

Prueba:

Código:

ENTRYPOINT <- program
MODEL <- flat
LINKAGE <- stdcall

#inc <floppy>
#inc <print>

package std
package fd

$HD = 'A:' : str
$FS = 'fat32' : str

begin

declare program[ narg : dword, varg : vector<byte> ] : dword
(
    if [ fd::fmt($(HD), $(FS)) <> nul ]; then
        std::print 'Formateo correcto' endl
    else
        std::print 'Formateo fallido' endl
    fi

    ret (0 : dword)
)

end