* CATA.CMD
* M. Lynn
* Version 1.6
ERASE
SET TALK OFF
IF FILE ("B:CATA.MEM")
RESTORE FROM B:CATA
ELSE
STORE '                ' TO amemo, bmemo, cmemo, dmemo, ememo, fmemo, gmemo, hmemo
STORE '                ' TO imemo, jmemo, kmemo, lmemo, mmemo, nmemo, omemo, pmemo
STORE '                ' TO qmemo, rmemo, smemo, tmemo, umemo, vmemo, wmemo, xmemo
STORE '                ' TO ymemo, zmemo
ENDIF

SET INTENSITY OFF
@ 4, 0 SAY 'This system allows the user to make up to 26 different Categories to help'
@ 5, 0 SAY 'with accounting for tax purposes.  Each Category is refered to by a single'
@ 6, 0 SAY 'letter, such as B- Books, E- Entertainment, U- Utilities, etc.  If you do'
@ 7, 0 SAY 'not wish to use a particular letter simply enter a return when you get to it.'
@ 8, 0 SAY 'Should you wish to add or change Categories in the future simply re-run this'
@ 9, 0 SAY 'SETUP program.'
SET INTENSITY ON
@ 20, 0 SAY 'PRESS ANY KEY TO CONTINUE'
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ERASE

@ 1, 1 SAY 'Category A: ' GET amemo PICTURE '!!!!!!!!!!!!!!!!'
@ 2, 1 SAY 'Category B: ' GET bmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 3, 1 SAY 'Category C: ' GET cmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 4, 1 SAY 'Category D: ' GET dmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 5, 1 SAY 'Category E: ' GET ememo PICTURE '!!!!!!!!!!!!!!!!'
@ 6, 1 SAY 'Category F: ' GET fmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 7, 1 SAY 'Category G: ' GET gmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 8, 1 SAY 'Category H: ' GET hmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 9, 1 SAY 'Category I: ' GET imemo PICTURE '!!!!!!!!!!!!!!!!'
@ 10, 1 SAY 'Category J: ' GET jmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 11, 1 SAY 'Category K: ' GET kmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 12, 1 SAY 'Category L: ' GET lmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 13, 1 SAY 'Category M: ' GET mmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 14, 1 SAY 'Category N: ' GET nmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 15, 1 SAY 'Category O: ' GET omemo PICTURE '!!!!!!!!!!!!!!!!'
@ 16, 1 SAY 'Category P: ' GET pmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 17, 1 SAY 'Category Q: ' GET qmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 18, 1 SAY 'Category R: ' GET rmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 19, 1 SAY 'Category S: ' GET smemo PICTURE '!!!!!!!!!!!!!!!!'
@ 20, 1 SAY 'Category T: ' GET tmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 21, 1 SAY 'Category U: ' GET umemo PICTURE '!!!!!!!!!!!!!!!!'
@ 22, 1 SAY 'Category V: ' GET vmemo PICTURE '!!!!!!!!!!!!!!!!'
READ
ERASE
@ 1, 1 SAY 'Category W: ' GET wmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 2, 1 SAY 'Category X: ' GET xmemo PICTURE '!!!!!!!!!!!!!!!!'
@ 3, 1 SAY 'Category Y: ' GET ymemo PICTURE '!!!!!!!!!!!!!!!!'
@ 4, 1 SAY 'Category Z: ' GET zmemo PICTURE '!!!!!!!!!!!!!!!!'
READ
SAVE TO B:CATA
@ 10, 1 SAY 'HOLD ON WHILE I PROCESS THIS INFORMATION'
STORE 1 TO x
DO WHILE x < 100
STORE x + 1 TO x
ENDDO
ERASE

SET CONSOLE OFF
SET ALTERNATE TO B:ENT
SET ALTERNATE ON
? "* ENTER.CMD"
? "* M. LYNN"
? "* Version 1.6"
? "ERASE"
? "IF file = '1'"
? "SET INDEX TO INDPERNO"
? "STORE perbal TO curbal"
? "ELSE"
? "SET INDEX TO INDBUSNO"
? "STORE busbal TO curbal"
? "ENDIF"
?
? "GO BOTTOM"
? "STORE NUMBER TO m:no"
? "STORE date TO c:dat"
? "STORE # + 1 TO recnum"
?
? "IF file = '1'"
? "SET INDEX TO PERSONAL,INDPERNO"
? "ELSE"
? "SET INDEX TO BUSINESS,INDBUSNO"
? "ENDIF"
?
? "@ 1,0  SAY 'SYSTEM DATE: '+date()+'     ACCOUNT: '+maccount+'          RECORD #:'"
? "@ 2, 0 SAY 'ACCOUNT NUMBER: '+ac:no+'   CURRENT BALANCE '"
? "@ 1, 65 SAY recnum"
? "@ 2, 65 SAY curbal"
?
? "DO WHILE T"
? "@ 2, 65 SAY curbal"
? "SET INTENSITY ON"
? "STORE '                              ' TO ch:to"
? "STORE 0.00 TO m:amt"
? "STORE ' ' TO ch:memo"
? "STORE m:no+1 TO m:no"
? "STORE '                                                 ' TO mcomment"
? "@ 4,0  SAY 'ENTER A RETURN, A NEW CHECK NUMBER, OR A 0 TO EXIT'"
? "SET INTENSITY OFF"
? "@ 7,0  SAY 'CHECK NUMBER        ' GET m:no"
? "READ"
? "	IF m:no = 0 "
? "		IF file = '1'"
? "		STORE curbal TO perbal"
? "		ELSE"
? "		STORE curbal TO busbal"
? "		ENDIF"	
? "	SET INDEX TO"
? "	RELEASE m:no, c:dat, recnum, ch:to, m:amt, ch:memo, mcomment"
? "	RETURN"
? "	ENDIF"
? "APPEND BLANK"
? "STORE # TO recnum"
? "@ 1, 65 SAY recnum"
? "@ 8,0  SAY 'PAY TO THE ORDER OF ' GET ch:to"
? "@ 9,0  SAY 'AMOUNT OF CHECK     ' GET m:amt"
? "@ 10,0 SAY 'DATE WRITTEN        ' GET c:dat PICTURE '99/99/99'"
? "@ 11,0 SAY 'PURPOSE OF CHECK'"
? "@ 13,0 SAY 'A- &amemo B- &bmemo C- &cmemo D- &dmemo '"
? "@ 14,0 SAY 'E- &ememo F- &fmemo G- &gmemo H- &hmemo '"
? "@ 15,0 SAY 'I- &imemo J- &jmemo K- &kmemo L- &lmemo '"
? "@ 16,0 SAY 'M- &mmemo N- &nmemo O- &omemo P- &pmemo '"
? "@ 17,0 SAY 'Q- &qmemo R- &rmemo S- &smemo T- &tmemo '"
? "@ 18,0 SAY 'U- &umemo V- &vmemo W- &wmemo X- &xmemo '"
? "@ 19,0 SAY 'Y- &ymemo Z- &zmemo '"
? "@ 21,0 SAY 'ENTER CATEGORY LETTER' GET ch:memo PICTURE '!'"
? "@ 22,0 SAY 'ENTER COMMENTS' GET mcomment"
? "READ"
?
? "REPLACE number WITH m:no,to WITH ch:to,amount WITH m:amt,date WITH c:dat"
? "REPLACE canceled WITH F,memo WITH ch:memo,comment WITH mcomment"
? "STORE curbal - amount TO curbal"
? "CLEAR GETS"
?
? "ENDDO"
SET ALTERNATE OFF
SET ALTERNATE TO B:Category
SET ALTERNATE ON
? "* MEMO.FMT"
? "* M. Lynn"
?
? "@ 11,0 SAY 'AVAILABLE Categories'"
? "@ 13,0 SAY 'A- &amemo B- &bmemo C- &cmemo D- &dmemo '"
? "@ 14,0 SAY 'E- &ememo F- &fmemo G- &gmemo H- &hmemo '"
? "@ 15,0 SAY 'I- &imemo J- &jmemo K- &kmemo L- &lmemo '"
? "@ 16,0 SAY 'M- &mmemo N- &nmemo O- &omemo P- &pmemo '"
? "@ 17,0 SAY 'Q- &qmemo R- &rmemo S- &smemo T- &tmemo '"
? "@ 18,0 SAY 'U- &umemo V- &vmemo W- &wmemo X- &xmemo '"
? "@ 19,0 SAY 'Y- &ymemo Z- &zmemo '"
SET ALTERNATE OFF

IF FILE ("B:MEMO.FMT")
DELETE FILE B:MEMO.FMT
ENDIF

IF FILE ("B:ENTER.CMD")
DELETE FILE B:ENTER.CMD
ENDIF

QUIT TO 'REN B:MEMO.FMT=B:Category.TXT','REN B:ENTER.CMD=B:ENT.TXT','A:DB B:MENU'
