home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
manage1.zip
/
INIT.PRG
< prev
next >
Wrap
Text File
|
1986-05-30
|
1KB
|
35 lines
** Last revision: May 26, 1986 at 18:53
* init.prg initialization program
CLEA
IF .NOT. file ("MANAGE.DAT")
STOR SPACE(35) TO dconame
STOR 'C' TO dr
ELSE
REST from manage.dat additive
STORE SUBSTR(dconame + SPACE(35),1,35) TO dconame
ENDI .NOT. file
@ 06,00 SAY "Please state company name "
@ 06,30 GET dconame PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
READ
DO WHIL SUBSTR(dconame,1,1) = ' '
@ 06,30 GET dconame PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
READ
ENDD WHILE $(dconame)
@ 08,00 SAY "On what drive will you store the data files ?"
@ 08,50 GET dr PICTURE '!'
READ
STOR 'Y' TO goagain
@ 10,30 SAY "IS THE ABOVE CORRECT ? "
@ 10,55 GET goagain PICTURE '!'
READ
IF goagain = 'N'
@ 10,00
@ 06,30 GET dconame PICTURE '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
@ 08,50 GET dr PICTURE '!'
READ
ENDI goagain
STOR TRIM(dconame) TO dconame
SAVE all like d*.* TO manage.dat
RETU