ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/MBUG/MBUG061.ARC/INITPROG.CMD

OS/2 REXX Batch file | 1979-12-31 | 2KB | 60 lines

SET TALK OFF
USE CheckMod
RELEASE Later, CkChoice
ERASE
SET INTENSITY OFF
@  5, 9 SAY [THIS OPTION SHOULD ONLY BE USED WHEN USING THE PROGRAM FOR]
@  6, 9 SAY [THE FIRST TIME, OR WHEN YOU HAVE OPENED A NEW ACCOUNT.]
SET INTENSITY ON
@  8, 9 SAY [The procedure creates a new checkbook data base and writes]
@  9, 9 SAY [initial values to disk memory for 1) your current checkbook]
@ 10, 9 SAY [balance, and 2) the beginning check number.  The beginning]
@ 11, 9 SAY [balance should be '0.00,' in the case of a new account; else]
@ 12, 9 SAY [it should be determined by combining the last statement bal-]
@ 13, 9 SAY [ance with any outstanding debits and credits.  This number]
@ 14, 9 SAY [should be recorded for manual reconciliation with the next]
@ 15, 9 SAY [statement.  Subsequent reconciliations will be accomplished]
@ 16, 9 SAY [by the computer.]
SET INTENSITY OFF
@ 18, 9 SAY [                  HIT           TO CONTINUE]
SET INTENSITY ON
@ 18,32 SAY [<RETURN>]
SET CONSOLE OFF
WAIT
SET CONSOLE ON
ERASE
SET INTENSITY OFF
? '          WHAT NAME DO YOU WANT TO GIVE YOUR DATABASE? '
?
? '               **********************************'
? '               * NOTE: ".DBF" extension will be *'
? '               * added to your filename. USE NO *'
? '               * FILENAME EXTENSION.            *'
? '               **********************************'
?
STORE '        ' TO UseBase
SET INTENSITY ON
@ 10,27 GET UseBase
READ
SET INTENSITY OFF
IF UseBase = '        '
   RETURN
ENDIF
COPY STRUCTURE TO &UseBase
@ 12,18 SAY [BEGIN WITH CHECK NUMBER: ]
@ 13,18 SAY [      BEGINNING BALANCE: ]
STORE 0000 TO Mno
STORE 00000.00 TO StateBal
SET INTENSITY ON
SET COLON OFF
@ 12,42 GET MNo
@ 13,42 GET StateBal
READ
STORE StateBal to Balance
SET COLON ON
SET INTENSITY OFF
SAVE TO &UseBase
STORE 'I' TO CkChoice
ERASE
RETURN