.Key file
;           Atomizes a C program                       Version 1.02
failat 65535
if not exists df1:examples/<file$t1>.o
echo "File examples/<file$t1>.o does not exist.  Try again."
skip END
endif

copy df1:examples/<file$t1>.o ram:<file$t1>.o

if not exists ram:<file$t1>.o
echo "File <file$t1>.o not copied to ram: Error..."
skip END
endif

echo "-- atomizing <file$t1>..."

df1:c/atom ram:<file$t1>.o ram:<file$t1>.o.TMP -cdb -pc

if not exists ram:<file$t1>.o.TMP
echo "File ram:<file$t1>.o.TMP does not exist. Error..."
skip END
endif

delete df1:examples/<file$t1>.o

copy ram:<file$t1>.o.TMP df1:examples/<file$t1>.o

if not exists df1:examples/<file$t1>.o
echo "File ram:<file$t1>.o not copied to df1:examples/
copy ram:<file$t1>.o df1:examples/<file$t1>.o
skip END
endif

delete ram:<file$t1>.o

LAB END
