[Coco] quick basic09 copy program
goosey at virgo.sdc.org
Wed Jan 30 06:53:50 EST 2008
Quicky program to copy all files from the current data directory to
/dd/foo. Hack on it as you wish.
I'd like to say I just threw this together, but BASIC-09 is subtle and
quick to anger. ;-) Actually, this did teach me a couple of things
But it's still pretty much quick and dirty. Not very efficient, as it
forks a shell for every file it copies.
(* copy all files from cwd to another dir
WHILE NOT(EOF(#cwd)) DO
IF fc<>CHR$(0) AND fc<>"." THEN
SHELL "copy "+origin+dest
(*arguement: a OS-9 directory entry: 32 bytes long, 29 byte max. filename
(*3 byte LSN, filename's last character has 8th bit set
(*output: The filename, with the last character's 8th bit cleared
(*If you have a dir. entry that doesn't have the 8th bit set on the
(*last character, OS-9 crashed when you read the directory...
(*goosey at sdc.org
EXITIF tv>127 THEN
Willard Goosey goosey at sdc.org
Socorro, New Mexico, USA
"I've never been to Contempt! Isn't that somewhere in New Mexico?"
More information about the Coco