Add up monthly charges, collections, and adjustment using the Colwell bookkeeping system.
Appears on
Gallery
Source Code
1 REM Charles A. Judge July 1986 10 REM DAYSHEET pretty input screen takes v for / in date, m for . and j for - 11 REM avoids need to hit symbol shift when entering long strings of numbers 20 LET M$="HIT 'ENTER' TO CONTINUE" 30 CLS 40 PRINT AT 5,9;" DAY SHEET CALCULATOR";AT 10,5;M$ 41 PRINT '"Enter 'i' for instructions" 50 INPUT Q$ 55 IF q$="i" THEN LIST 9000: PRINT m$: INPUT o$ 60 CLS 70 RESTORE 910 80 GO SUB 570 90 PRINT AT 0,0;P$;" ";DATA: LET ARM1=DATA 100 GO SUB 570 110 PRINT AT 2,0;P$;" ";DATA: LET pdt=DATA 120 GO SUB 570 130 LET am=data: PRINT AT 4,0;am: GO SUB 570: LET bm1=data: PRINT AT 4,10;bm1: GO SUB 570: LET bm2=data: PRINT AT 4,20;bm2 140 LET amo=am: LET bm1o=bm1: LET bm2o=bm2 150 INPUT "DATE",d$: CLS 160 FOR i=1 TO LEN d$: IF d$(i)="v" OR d$(i)="V" THEN LET d$(i)="/" 170 NEXT i 180 IF d$="add" OR D$="ADD" THEN GO TO 710 190 PRINT AT 1,0;d$ 200 GO SUB 210: GO TO 280 210 RESTORE 920 220 GO SUB 570: LET a=data: PRINT AT 3,0;a;: GO SUB 570: LET b1=data: PRINT AT 3,10;b1;: GO SUB 570: LET b2=data: PRINT AT 3,20;b2 230 GO SUB 570: LET c=data: PRINT AT 0,23;c;: GO SUB 570: LET d=data: PRINT AT 1,23;d 240 LET bt=b1+b2 250 LET fst=d+a: LET fst1=fst-bt 260 LET eflg=0: IF ABS (fst1-c)>=.01 THEN LET eflg=1: PRINT AT 10,10;"ERROR";AT 16,0;"C = ";c;AT 18,0;"calc = ";fst1: BEEP .1,1: PRINT AT 21,0;M$: INPUT Q$ 270 RETURN 280 IF eflg=1 THEN GO TO 150 290 LET am=am+a: LET bm1=bm1+b1: LET bm2=bm2+b2 300 LET btm=bm1+bm2 310 LET st1=pdt+a: LET tar=st1-bt 320 LET st3=arm1+am: LET bmt=bm1+bm2: LET tar1=st3-bmt 330 CLS 340 PRINT d$: LPRINT d$: LPRINT 350 PRINT a;TAB 10;b1;TAB 20;b2 360 LPRINT a;TAB 10;b1;TAB 20;b2 370 PRINT amo;TAB 10;bm1o;TAB 20;bm2o 380 LPRINT amo;TAB 10;bm1o;TAB 20;bm2o 390 PRINT am;TAB 10;bm1;TAB 20;bm2 400 LPRINT am;TAB 10;bm1;TAB 20;bm2 410 LET amo=am: LET bm1o=bm1: LET bm2o=bm2 420 PRINT : PRINT : LPRINT '' 430 LPRINT d;TAB 10;pdt;TAB 20;arm1 440 PRINT d;TAB 10;pdt;TAB 20;arm1 450 PRINT a;TAB 10;a;TAB 20;am 460 LPRINT a;TAB 10;a;TAB 20;am 470 PRINT fst;TAB 10;st1;TAB 20;st3 480 LPRINT fst;TAB 10;st1;TAB 20;st3 490 PRINT bt;TAB 10;bt;TAB 20;btm 500 LPRINT bt;TAB 10;bt;TAB 20;btm 510 PRINT c;TAB 10;tar;TAB 20;tar1 520 LPRINT c;TAB 10;tar;TAB 20;tar1 530 IF ABS (tar-tar1)>=.01 THEN PRINT "error": LPRINT "error": BEEP 1,1: STOP 540 LPRINT 550 LET pdt=tar 560 GO TO 150 570 READ P$: IF P$="END" THEN GO TO 150 580 REM INPUT sub 590 PRINT AT 21,0;" " 600 PRINT AT 21,0;p$, 610 INPUT i$ 620 IF i$="" THEN LET data=0: RETURN 630 IF i$(1)="J" OR i$(1)="j" THEN LET i$(1)="-" 640 FOR i=1 TO LEN i$ 650 IF i$(i)="m" OR i$(i)="M" THEN LET i$(i)="." 660 IF i$(i)>"9" AND i$(i)<>"." THEN BEEP .1,.1: GO TO 690 670 NEXT i 680 LET data=VAL i$: RETURN 690 IF i$(i)="q" OR i$(i)="Q" THEN STOP 700 GO TO 610 710 CLS : INPUT "Addem: Print ?";f $ 720 LET tot=0 730 INPUT I$ 740 POKE 23692,255 750 IF I$="" THEN GO TO 810 760 GO SUB 630 770 LET n=DATA 780 LET tot=tot+n 790 IF f$="y" THEN LPRINT n,tot 800 PRINT n,tot: GO TO 730 810 PRINT "_______",,tot: IF f$="y" THEN LPRINT "______",,tot 820 INPUT "again ? ";q$ 830 IF q$="n" THEN CLS : GO TO 150 840 IF q$="d" THEN GO TO 870 850 CLS 860 GO TO 720 870 CLS : PRINT "Test Daily Balance": GO SUB 210 880 IF eflg=1 THEN GO TO 710 890 GO TO 150 900 STOP 910 DATA "AR at first of month","Prev. Days Total AR","AM","BM1","BM2","END" 920 DATA "A","B1","B2","C","D","END" 930 CLEAR : SAVE #"daysheet" LINE 10 9000 REM THIS PROGRAM WILL ADD UP MONTHLY CHARGES, COLLECTIONS, AND ADJUSTMENTS 9010 REM USING THE COLWELL BOOKEEPING SYSTEM 9020 REM COLUMN A IS FOR CHARGES, COLUMN B1 FOR PAYMENTS (CREDITS), B2 FOR ADJUSTMENTS (CREDIT), C FOR SUM OF NEW BALANCE FOR EACH ACCOUNT, AND COL D IS FOR SUM OF OLD ACCOUNT BALANCES. 9030 REM THE BOOKEEPING SYSTEM ADDS UP THE CHARGES (A), SUBTRACTS CREDITS(B1 AND B2) AND ADDS THE RESULT TO THE OLD BALANCE (D) WHICH SHOULD EQUAL C, NEW BALANCE 9040 REM IF THERE IS A MISTAKE,YOU WILL BE NOTIFIED. ENTER ADD TO ADD UP A COLUMN OF NUMBERS. ENTER Q TO QUIT AT ANY TIME 9999 CLEAR : SAVE "daysheet" LINE 10