Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : SBBILL.ZIP
Filename : BACKDATA.PRG
* program to copy data files to drive A
clear
text
This backup routine will make a copy of your data files on
your DRIVE A. You must have a formatted floppy disk in DRIVE A.
Any existing file with the name ACCOUNT.DBF or CLIENT.DBF will
be overwritten, no questions asked.
If you are ready press
endtext
i=0
do while i=0
i=inkey()
enddo
if i=13
?
? 'Copying CLIENT database file... '
select client
copy to A:client
?? ltrim(str(reccount())) + ' records copied.'
select account
?
? 'Copying ACCOUNT database file... '
copy to A:account
?? ltrim(str(reccount())) + ' records copied.'
select client
inkey(3)
endif
return
Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!
This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.
But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/