home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
dbadv.zip
/
REMAKE.PRG
< prev
next >
Wrap
Text File
|
1986-02-25
|
580b
|
23 lines
*remake.prg
* this prg file takes the dbf holdfile and makes it a prg file
* note: you must change all references to .prg to .cmd for cp/m
SET colon OFF
SET talk OFF
ERASE
STORE ' ' TO filename
@ 5,5 SAY 'ENTER THE NAME OF THE PRG FILE YOU WANT CREATED ' ;
GET filename
@ 5,62 SAY '.PRG'
READ
STORE trim(filename)+ '.PRG' TO cname
STORE trim(filename)+ '.TXT' TO tname
USE holdfile
*create text file
COPY TO &filename sdf
** I had to add this line to get the program to work on ibm
*dele file &cname
RENAME &tname TO &cname
RELEASE ALL
SET talk ON