*+*+*¢ BASICCOPY.BAS¢¢ This 9 Sector program is on this¢ OL' HACKERS NEWSLETTER DISK.¢¢ ANOTHER COPY PROGRAM?¢¢ First, we're NOT talking ¢ DUPLICATE FILE here..this is a clone¢ of Option C in the DUP.SYS menu, so¢ disk swaps aren't supported. I wrote¢ it specifically for loading external¢ files to D8 (and back.) But thanks to¢ the Wonders Of CIO it does all the¢ other stuff too.¢¢ WHAT WE GOT HERE?¢¢ First, there's The String. LIST¢ lines 20-40 out for later use in your¢ Basic programs. NEVER, EVER try¢ running string based ML outside of a¢ program! However, THIS program POKES¢ the ML to Page Six, so you can¢ experiment. Not incidentally, this¢ also means that you have a Resident¢ Utility that you can use in Immediate¢ Mode. If you have 151 spare, protected¢ bytes somewhere else, change the 1536¢ in line 90 to wherever you'd like the¢ ML to live.¢¢ HOW TO:¢¢ Press a key at the prompt, and¢ you'll see the Test Module listed on¢ the screen. (Once the code is POKEd,¢ you can LIST 100,160 to disk, NEW,¢ then ENTER it back in as an¢ independent program.) Use the cursor¢ keys to edit the Basic lines for¢ different filenames, channels, etc.¢ Then scoot the cursor down to the¢ 'GOTO 120', and hit RETURN to run the¢ routine. Once you've done this a few¢ times, you should have a pretty good¢ idea of what you can do with your New¢ Utility.¢¢ PROTECTION¢¢ PLEASE: Write Protect tabs are¢ NEVER a bad idea for valuable files,¢ so use them, specially when trying new¢ files!¢¢ SO, HOW DOES IT WORK?¢¢ The first thing you need to do is¢ OPEN the channels that will be used¢ for READ and WRITE. You DO have to do¢ this from Basic. (Sorry, no miracles¢ in Small Routines.) ANY available¢ channel (1 to 7) is OK. The READ will¢ probably be something dull like:¢ OPEN #1,4,0,"D:FILE"¢¢ Things get slightly more¢ interesting with the WRITE options.¢ For instance:¢ OPEN #2,8,0,"D8:NEWFILE"¢ will do a simple copy. Want to APPEND?¢ Try:¢ OPEN #2,9,0,"D:OLDFILE"¢ which will tack the READ file to the¢ end of OLDFILE. And then there's the¢ dumps:¢ OPEN #2,8,0,"P:"¢ for typing a file on the printer,¢¢ For a dump to the screen. Right handy¢ for DOC files.¢ OPEN #2,8,0,"E:"¢¢ HOW ABOUT POKE'ing A CHANGE?¢¢ (If you're fussy like me, POKEs¢ to 709 and 710 will zap that tired¢ GR.0 blue.) Again, you can use any¢ available I/O channel for the OPENs.¢¢ THE USR ROUTINE¢¢ Once the files are set, call the¢ USR routine. 3 parameters are¢ required. (Ugh!) First, the channel¢ numbers that have been OPENed for READ¢ and WRITE, respectively. Then FRE(0).¢ Why? Free Memory is the file buffer,¢ and the routine needs to know just how¢ much RAM it has to work with. Don't¢ worry about running short. It'll work¢ in chunks if it has to. The format¢ is:¢¢ X=USR(ADR(COPY$),READ CHANNEL,¢ WRITE CHANNEL, FRE(0))¢¢ WANT MORE?¢¢ Error Checking? Okay, check the¢ value returned to the USR function. 1¢ is the All Clear, indicating a¢ successful Copy. 255 indicates that¢ the wrong number of parameters were¢ passed. (I have a Serious Typo¢ Problem.) In the event of a regular¢ I/O error (say 162 for a Full Disk or¢ 133 'cause you tried to WRITE to #79),¢ the regular number will be returned.¢ Errors of course, terminate the¢ routine.¢¢ A FINAL NOTE:¢¢ In ALL cases, BOTH channels that¢ were OPENed will be CLOSEd before the¢ program returns to Basic, so you'll¢ need to OPEN them again if needed.¢ ** End **¢¢
