ftp.whtech.com/ftp.whtech.com.tar/ftp.whtech.com/club100/bus/daily.ba

Text File | 2006-10-19 | 6KB | 230 lines

0 'DAILY  ROBERT DEVEY
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 ' THIS PROGRAM IS INTENDED TO HELP SAMLL SERVICE ORIENTED BUSINESS WITH THEIR DAILY BALANCE SHEETS.
3 ' THE OUTPUT IS TO A PRINTER ANDGIVES YOU A FIGURE TO BE DEPOSITED INTO YOUR BSNK.
4 ' BEFORE RUNNING THIS PROGRAM OU MUST CONVERT BACK TO BASIC AND CHANGE THE FOLLOWING LINES.
5 '
6 '  LINE 250 & 1490 ADD YOUR COMPANY NAME
7 '  LINE 210 PUT THE AMMOUNT OF YOUR PETTY CASH
8 '
9 ' **  DAILY SUMMERY PROGRAM **
10 '**         VERS 3.0       **
20 '**     BY ROBERT DEVEY    **
25 '**       408-649-6036     **
30 IN=0
40 PC=0
50 DIM T(20)
60 DIM L(20)
70 DIM P(20)
80 DIM GR(20)
90 DIM TX(20)
100 DIM I(20)
110 FOR A=1 TO 20
120 T(A)=0
130 P(A)=0
140 TX(A)=0
150 I(A)=0
160 NEXT A
170 LAB=0
180 PARTS=0
190 TAX=0
200 REM***** PETTY CASH *****
210 PC=40:REM&&& AMT IN PETTY CASH&&&
220 CLS
222 PRINT
223 PRINT
224 PRINT
230 PRINT TAB(14);"DAILY SUMMARY"
250 PRINT TAB(11);"YOUR COMPANY NAME GOES HERE"
260 FOR X=1 TO 500
270 NEXT X
280 CLS
290 PRINT "TODAYS DATE example 25/OCT/85"
300 PRINT
310 INPUT WK$
320 CLS
330 PRINT "ENTER TICKET SALES"
340 PRINT
350 X=1
360 INPUT "TICKET #";T(X)
370 PRINT
380 INPUT "LABOR $";L(X)
390 PRINT
400 INPUT "PARTS $";P(X)
410 PRINT
420 INPUT "TAX $";TX(X)
430 CLS
450 PRINT "TICKET  #";T(X);TAB(20);"TOTAL $";TX(X)+L(X)+P(X)
460 PRINT
520 PRINT"IS THIS CORRECT [YES OR NO]"
540 INPUT SU$
545 IF SU$="YES" THEN 580
550 IF SU$="NO" THEN 360
555 CLS
560 PRINT "MUST BE A YES OR A NO ANSWER  TRY AGAIN"
570 GOTO 440
580 CLS
582 TAX=TAX+TX(X)
583 LAB=LAB+L(X)
584 GR(X)=P(X)+L(X)+TX(X)
586 PARTS=PARTS+P(X)
587 IN=IN+GR(X)
590 PRINT "YOU HAVE ";20-X;" ENTRIES LEFT.  DO YOU WANT TO ENTER ANY MORE SALES? [YES OR NO]"
600 INPUT SU$
610 IF SU$="YES" THEN 660
620 IF SU$="NO" THEN 680
630 CLS
640 PRINT "MUST USE A YES OR A NO, TRY AGAIN"
650 GOTO 580
660 X=X+1
670 GOTO 360
680 CLS
690 PRINT "DO YOU HAVE ANY OTHER INCOME [YES OR NO]"
700 INPUT SU$
710 IF SU$="YES" THEN 760
720 IF SU$="NO" THEN 1060
730 PRINT "TYPE YES OR NO, TRY AGAIN"
740 PRINT
750 GOTO 690
760 Q=1
770 CLS
780 MISS=0
790 PRINT "TYPE OF INCOME [10 LETTER MAX.]"
800 INPUT OI$(Q)
810 PRINT
820 INPUT "AMOUNT $";I(Q)
830 PRINT
840 CLS
850 PRINT ;TAB(10);"OTHER INCOME"
860 PRINT "TYPE...";OI$(Q);TAB(20);"AMT. $";I(Q)
870 PRINT
880 PRINT "IS THIS CORRECT [YES OR NO]"
890 INPUT SU$
900 IF SU$="YES" THEN 950
910 IS SU$="NO" THEN 790
920 CLS
930 PRINT "TYPE YES OR NO, TRY AGAIN"
940 GOTO 880
950 MISS=MISS+I(Q)
960 CLS
970 PRINT "YOU HAVE USED ";20-Q;"DO YOU HAVE ANY OTHER   INCOME [YES OR NO]"
980 INPUT SU$
990 IF SU$="YES" THEN 1030
1000 IF SU$="NO" THEN 1060
1010 PRINT "TYPE YES OR NO, TRY AGAIN"
1020 GOTO 960
1030 Q=Q+1
1040 CLS
1050 GOTO 790
1060 CLS
1062 U=1
1064 UT=0
1070 PRINT "DO YOU HAVE ANY PAID OUTS? [YES OR NO]"
1080 INPUT SU$
1090 IF SU$="YES" THEN 1150
1100 IF SU$="NO" THEN 1394
1110 CLS
1120 PRINT "TYPE YES OR NO, TRY AGAIN"
1130 PRINT
1140 GOTO 1070
1150 PRINT TAB(10);"PAID OUTS"
1160 PRINT
1170 INPUT "PAID TO...";TK$(U)
1190 INPUT "FOR:";FR$(U)
1210 INPUT "AMT $";PO(U)
1220 PRINT
1230 PRINT "IS THIS CORRECT [YES OR NO]"
1240 INPUT SU$
1250 IF SU$="YES" THEN 1300
1260 IF SU$="NO" THEN 1150
1270 CLS
1280 PRINT"TYPE YES OR NO, TRY AGAIN"
1290 GOTO 1230
1300 UT=UT+PO(U)
1320 CLS
1330 PRINT "ANY MORE PAID OUTS [YES OR NO]"
1333 INPUT SU$
1335 IF SU$="YES" THEN 1390
1360 IF SU$="NO" THEN 1394
1370 PRINT "TYPE YES OR NO, TRY AGAIN"
1380 GOTO 1320
1390 U=U+1
1392 CLS
1393 GOTO 1150
1394 CLS:RR=0:INPUT"ANY BANK TRANSFERS(Y/N)";SU$
1395 IF SU$="NO" THEN 1400
1396 IF SU$<>"YES" THEN 1394
1397 CLS:INPUT "AMT";RR
1400 REM ***** PRINTER ROUTE ****
1410 CLS
1420 PRINT "TURN ON PRINTER"
1430 PRINT
1440 PRINT "NUMBER OF COPIES NEEDED"
1450 INPUT COPY
1470 FOR K=1 TO COPY
1480 LPRINT ::::::
1490 LPRINT TAB(10);"YOUR COMPANY NAME GOES HERE"
1500 LPRINT
1510 LPRINT TAB(12);"DAILY SUMMERY"
1520 LPRINT
1530 LPRINT "DATE:";WK$
1540 LPRINT
1550 LPRINT "PETTY CASH";TAB(32);"$";PC
1560 LPRINT TAB(32);"======"
1570 LPRINT "SALES INCOME"
1580 LPRINT "------------"
1590 LPRINT "TK#";TAB(10);"LABOR";TAB(18);"PARTS";TAB(26);"TAX";TAB(33);"TOTAL"
1600 FOR E=1 TO X
1610 LPRINT T(E);TAB(9);L(E);TAB(18);P(E);TAB(26);TX(E);TAB(33);GR(E)
1620 NEXT E
1630 LPRINT "---------------------------------"
1640 LPRINT TAB(7);LAB;TAB(18);PARTS;TAB(26);TAX
1650 LPRINT
1660 LPRINT "TOTAL TICKETS";TAB(31);"$";IN
1670 LPRINT TAB(31);"========"
1680 LPRINT "OTHER INCOME"
1690 LPRINT "------------"
1700 LPRINT "DISCRIPTION";TAB(25);"AMT"
1760 FOR S=1 TO Q
1770 LPRINT OI$(S);TAB(25);I(S)
1780 NEXT S
1790 LPRINT "TOTAL OTHER INCOME";TAB(31);"$";MISS
1800 LPRINT "--------------------";TAB(31);"========"
1810 LPRINT
1820 LPRINT "TOTAL PETTY CASH";TAB(31);"$";MISS+IN+PC
1830 LPRINT "----------------";TAB(31);"========"
1840 LPRINT
1850 LPRINT "PAID OUTS"
1860 LPRINT "---------"
1870 LPRINT "TO";TAB(13);"FOR";TAB(25);"AMT"
1930 FOR V=1 TO U
1940 LPRINT T0$(V);TAB(13);FR$(V);TAB(25);PO(V)
1950 NEXT V
1960 LPRINT
1970 LPRINT "TOTAL PAID OUTS";TAB(31);UT
1980 LPRINT TAB(31);"========"
1990 LPRINT
1992 IF RR=0 THEN 2000
1993 LPRINT "TRANSFERS";TAB(31);RR
1996 LPRINT TAB(31);"========"
1997 LPRINT
2000 LPRINT "NET CASH AVAILABLE";TAB(31);"$";MISS+IN-UT+PC
2010 LPRINT TAB(31);"========"
2020 LPRINT
2030 LPRINT "LESS CHANGE FUND";TAB(31);"$<";PC;">"
2040 LPRINT TAB(31);"========"
2050 LPRINT
2060 LPRINT "CASH FOR DEPOSIT";TAB(31);"$";MISS+IN-UT+RR
2070 LPRINT TAB(31);"========"
2080 LPRINT
2090 LPRINT "ACTUAL DEPOSIT";TAB(31);"$"
2100 LPRINT TAB(31);"========"
2110 LPRINT
2120 LPRINT "OVER/SHORT";TAB(31);"$"
2130 LPRINT TAB(31);"========"
2140 LPRINT
2150 LPRINT
2160 LPRINT
2170 NEXT K
2190 MENU