home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
xbase
/
library
/
dbase
/
ledge
/
closeout.prg
< prev
next >
Wrap
Text File
|
1986-01-12
|
672b
|
39 lines
******************** ( CLOSEOUT.PRG ) jay kenney 8/25/85
CLEA
@ 15,20 SAY 'Do you want to close out the month? '
STORE ' ' TO OPTION
?
WAIT ' ? ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
STORE ' ' TO X
CLEA
@ 1,15 say 'Filename should be first 3 letters of month and year. ì
'
@ 6,30 say " EXAMPLE = NOV85 "
@ 15,20 SAY 'Please enter filename : ' GET X
READ
IF X=' '
? CHR(7)
?
? '.................................................OOOOOOOOPS ! ì
'
?
RETURN
ENDIF
USE LEDGER
SET SAFETY ON
SET TALK ON
CLEA
COPY TO &X
ZAP
SET SAFETY OFF
USE DEPOSITS
COPY TO DEP&X
ZAP
SET TALK OFF
RETURN
RETURN