10 REM This program is registered with the US Library of Congress 20 REM Copyright 1983. And is therefore protected under copyright laws. 30 REM Royalty free use of this program is authorized to single end users for 40 REM their personal non-profit use. This program may be freely copied only 50 REM by parties of the above discription for distribution to other parties 60 REM of the same discription. Otherwise all aspects of copyright law are in 70 REM effect for use and distribution of this program. Royalty free use of this 80 REM program is cancelled if any part of this notice is altered or omitted. 90 REM Written by Mark B. Fay 12/10/82 telephone 305-964-1139 100 REM I,J,K,L & M are reserved for intergers 110 REM all menue selections use S$ 120 CLEAR 1024,1 130 OPTION #0,"P",0'turn off input prompt 140 OPTION #0,"W",76'set screen width 150 OPTION #2,"N",0,0'no printer nulls 160 OPTION #2,"W",80'set printer width 170 REM balance format statement 180 !$$####.## 190 !##/##/##'rem month day year format 200 REM format string for record display 210 DIM ST(7),SR(1600,1) 220 REM position 0 contains BC balance checkbook 230 REM position 1 contains BB balance bank 240 REM position 2 contains LC last check number 250 REM position 3 contains LS last stub canceled 260 REM position 4 contains MM month part last date 270 REM position 5 contains DD day part last date 280 REM position 6 contains YR year part last date 290 REM position 7 contains record bias 300 BC=0:BB=1:LC=2:LS=3:MM=4:DD=5:YR=6:BI=7 310 PRINT CHR$(27);:PRINT"+"'CLEAR ALL SCREEN MEMORY SOROC 120 320 REM PRINT CHR$(26) CLEARS PAGE ON MY TERMINAL 330 PRINT SPC(10)"The function of this program is to setup housekeeping for" 340 PRINT SPC(10)"the FIN1 program. It will set the number of checks the" 350 PRINT SPC(10)"program will control to sixteen hundred. It will set both" 360 PRINT SPC(10)"your checkbook and bank balance to zero so that if the " 370 PRINT SPC(10)"documentation is followed and it's assumptions are true your" 380 PRINT SPC(10)"startup will be simple. The date you enter here will be" 390 PRINT SPC(10)"changed when you start check entry in FIN1. So give the" 400 PRINT SPC(10)"program todays date. Lowest record number refers to the" 410 PRINT SPC(10)"number you wrote down as part of the startup directions." 420 PRINT SPC(10)"Both data files needed by the FIN1 program will be created" 430 PRINT SPC(10)"on your B: disk." 440 PRINT 450 PRINT:PRINT SPC(20):INPUT"Enter Todays Date MM,DD,YR ";ST(MM),ST(DD),ST(YR) 460 PRINT:PRINT SPC(20):INPUT"Enter Lowest Record Number #";ST(LC) 470 ST(BC)=0'zero checkbook 480 ST(BB)=0'zero bank 490 ST(BI)=ST(LC)'set record bias to reflect first check 500 ST(LS)=ST(LC)'set cancel counter for convinence 510 ST(LC)=ST(LC)-1'bias to account for increment in A option FIN1 520 REM SETUP ARRAY 530 PRINT CHR$(26);:PRINT"**CREATING ARRAY**" 540 FOR I=0 TO 1600 550 SR(I,0)=1:SR(I,1)=0 560 NEXT I 570 PRINT CHR$(26);:PRINT"**CREATING FILES AND OUTPUTING ARRAY**" 580 OPEN #11,"R","B:STUB.DAT",64'CREATE STUB DATA FILE 590 OPEN #10,"R","B:STATREC.DAT",6'CREATE ARRAY DATA FILE 600 MAT WRITE #10@0,ST,SR'OUTPUT ARRAY TO IT 610 CLOSE'CLOSE BOTH FILES 620 PRINT CHR$(26);:PRINT"**DONE**"