1  COM Q$[55]
7  REM EBAP08 8/21/74
10  Q$="$EBAP08"
20  CHAIN "$EBAU11",100
100  REM PROGRAM TO PAY INVOICES AND TAKE CREDIT MEMOS
200  DIM T[2,2],N[40],O[40],P[40],Q[40],R[40],S[40],W[130]
210  DIM A[375],B[256],A$[30],B$[60],U$[39],V$[39],W$[61]
220  DIM K$[7],M$[22],T$[72],X$[19],Y$[10],Z$[72]
300  FILES *,*,*,*
305  ENTER #J9
310  Y$="0123456789"
315  R6=R7=N1=N2=N3=N4=N5=N6=N7=N8=0
320  A5=A7=-1
325  F1=3
330  M1=1
335  FOR I=1 TO 22
340  M$[I,I]="0"
345  NEXT I
350  ASSIGN "*EBAF02",1,Z0,""
355  IF Z0 <= 2 THEN 370
360  PRINT LIN(1),"GENERAL LEDGER SPECS FILE NON-EXISTENT"
365  STOP 
370  READ #1;Z,Z$,Z,Z
375  MAT  READ #1;W
380  PRINT LIN(1),"ENTER VENDOR FILE NAME"
385  INPUT X$
390  ASSIGN X$,1,Z0,Q$[20,25]
395  IF Z0 <= 2 THEN 410
400  PRINT LIN(1),"REQUESTED FILE NON-EXISTENT"
405  GOTO 380
410  IF TYP(1)#2 THEN 425
415  READ #1;T$
420  IF T$="VENDOR" THEN 435
425  PRINT LIN(1),"INVALID VENDOR FILE"
430  GOTO 380
435  READ #1;Q1,Q2,Q3,Q4,D9
440  IF D9=0 THEN 455
445  PRINT LIN(1),"DIRTY BIT SET IN VENDOR FILE"
450  STOP 
455  PRINT LIN(1),"ENTER INVOICE FILE NAME"
460  INPUT X$
465  ASSIGN X$,2,Z0,Q$[26,31]
470  IF Z0=0 THEN 485
475  PRINT LIN(1),"REQUESTED FILE UNAVAILABLE OR NON-EXISTENT"
480  GOTO 455
485  IF TYP(2)#2 THEN 500
490  READ #2;T$
495  IF T$="INVOICE" THEN 510
500  PRINT LIN(1),"INVALID INVOICE FILE"
505  GOTO 455
510  READ #2;W0,W1,D9
515  IF D9=0 THEN 530
520  PRINT LIN(1),"DIRTY BIT SET IN INVOICE FILE"
525  STOP 
530  PRINT LIN(1),"ENTER ACCOUNTS FILE NAME"
535  INPUT X$
540  ASSIGN X$,3,Z0,Q$[8,13]
545  IF Z0 <= 2 THEN 560
550  PRINT LIN(1),"REQUESTED FILE NON-EXISTENT"
555  GOTO 530
560  IF TYP(3)#2 THEN 575
565  READ #3;Z$
570  IF Z$="ACCOUNTS" THEN 585
575  PRINT LIN(1),"INVALID ACCOUNTS FILE"
580  GOTO 530
585  READ #3;D9,Z,Z,Z,Z,W9
590  IF D9=0 THEN 605
595  PRINT LIN(1),"DIRTY BIT SET IN ACCOUNTS FILE"
600  STOP 
605  MAT  READ #3;A
610  PRINT LIN(1),"ENTER PAID INVOICE FILE NAME"
615  INPUT X$
620  ASSIGN X$,4,Z0,Q$[32,37]
625  IF Z0=0 THEN 640
630  PRINT LIN(1),"REQUESTED FILE UNAVAILABLE OR NON-EXISTENT"
635  GOTO 610
640  IF TYP(4)#2 THEN 655
645  READ #4;T$
650  IF T$="PAID INVOICE" THEN 665
655  PRINT LIN(1),"INVALID PAID INVOICE FILE"
660  GOTO 610
665  READ #4;P0,P1,D9,Z,Z,Z$
670  IF D9=0 THEN 1000
675  PRINT LIN(1),"DIRTY BIT SET IN PAID INVOICE FILE"
680  STOP 
1000  IF P0<P1 THEN 1030
1010  PRINT LIN(1),"PROGRAM TERMINATED, PAID INVOICE FILE IS FULL"
1020  STOP 
1030  PRINT 
1040  PRINT "ENTER NEXT INVOICE/CREDIT MEMO TO BE PAID/TAKEN"
1050  E0=E1=0
1060  ENTER 255,Z0,T$
1070  IF Z0=-256 THEN 1980
1080  Z0=2
1090  GOSUB 4000
1100  IF E0#0 THEN 1000
1110  IF T[1,1]#0 THEN 1140
1120  PRINT LIN(1),"VENDOR NUMBER MUST BE SPECIFIED"
1130  GOTO 1000
1140  Z$=T$[T[1,1],T[1,2]]
1150  IF Z$="END" THEN 1990
1160  Z0=LEN(Z$)
1170  IF Z0<5 THEN 1200
1180  PRINT LIN(1),"INVALID VENDOR NUMBER"
1190  GOTO 1000
1200  GOSUB 5800
1210  IF Z#0 THEN 1180
1220  M$[1,3]="000"
1230  M$[5-Z0,4]=Z$
1240  IF M$[1,4]="0000" THEN 1180
1250  GOSUB 3500
1260  IF E0#0 THEN 1000
1270  IF T[2,1]#0 THEN 1300
1280  PRINT LIN(1),"INVOICE NUMBER MUST BE SPECIFIED"
1290  GOTO 1000
1300  IF T[2,1]-T[2,2]<10 THEN 1330
1310  PRINT LIN(1),"INVALID INVOICE NUMBER"
1320  GOTO 1000
1330  M$[5,14]=T$[T[2,1],T[2,2]]
1340  GOSUB 3000
1350  IF W2#0 THEN 1380
1360  PRINT LIN(1),"SPECIFIED INVOICE DOES NOT EXIST"
1370  GOTO 1000
1380  IF W$[21,21]="1" THEN 1440
1390  IF W$[32,32]="1" THEN 1420
1400  PRINT LIN(1),"SPECIFIED INVOICE NOT IN PAYABLE STATUS"
1410  GOTO 1000
1420  PRINT LIN(1),"SPECIFIED CREDIT MEMO NOT IN AVAILABLE STATUS"
1430  GOTO 1000
1440  GOSUB 2800
1450  IF E0#0 THEN 1980
1460  PRINT LIN(1),"CORRECT ";K$;"?";
1470  ENTER 255,Z0,T$
1480  IF Z0=-256 THEN 1980
1490  IF T$[1,1]#"Y" THEN 1000
1500  FOR S0=1 TO W3
1510  N1=O[S0]
1520  N2=P[S0]
1530  N3=Q[S0]
1540  M2=3
1550  IF N3#0 THEN 1570
1560  M2=2
1570  GOSUB 9998
1580  IF M3=0 THEN 1620
1590  N[S0]=9
1600  E0=E0+1
1610  GOTO 1750
1620  IF INT(N1/10000)-INT(N1/100000.)*10=3 THEN 1750
1630  X1=R[S0]
1640  X2=S[S0]
1650  GOSUB 5500
1660  IF W$[32,32]="0" THEN 1710
1670  IF N3=0 THEN 1750
1680  IF W$[33,33]="0" THEN 1720
1690  IF X$[1,10] <= B$[1,10] THEN 1750
1700  GOTO 1730
1710  IF N3#0 THEN 1750
1720  IF X$[1,10] <= B$[31,40] THEN 1750
1730  N[S0]=8
1740  E1=E1+1
1750  NEXT S0
1760  IF E0=0 THEN 1790
1770  T=9
1780  GOSUB 2500
1790  IF E1=0 THEN 1820
1800  T=8
1810  GOSUB 2515
1820  IF E0+E1=0 THEN 1900
1830  IF W$[32,32]="0" THEN 1860
1840  PRINT LIN(1),"DO YOU STILL WANT TO TAKE CREDIT MEMO?";
1850  GOTO 1870
1860  PRINT LIN(1),"DO YOU STILL WANT TO PAY INVOICE?";
1870  ENTER 255,Z0,T$
1880  IF Z0=-256 THEN 1980
1890  IF T$[1,1]#"Y" THEN 1000
1900  W$[21,21]="3"
1910  GOSUB 3400
1920  GOSUB 3200
1930  GOSUB 2700
1940  GOSUB 3450
1950  PRINT 
1960  PRINT  USING 2000;K$,M$[1,4],M$[5,14]
1970  GOTO 1000
1980  PRINT LIN(1),"PROGRAM TERMINATED BECAUSE OF LACK OF RESPONSE"
1990  STOP 
2000  IMAGE 7A,X4A,",",10A," ADDED TO PAID INVOICE FILE"
2500  REM DSPY BAD CHGS
2505  PRINT LIN(1),"THE FOLLOWING ACCOUNTS DO NOT EXIST"
2510  GOTO 2520
2515  PRINT LIN(1),"THE FOLLOWING ACCOUNTS CANNOT BE CHARGED"
2520  PRINT 
2525  I=1
2530  FOR S0=1 TO W3
2540  IF N[S0]#T THEN 2625
2545  N[S0]=9
2555  GOSUB 3800
2560  GOTO I OF 2565,2585,2605
2565  I=2
2570  PRINT  USING 2580;X$
2575  GOTO 2625
2580  IMAGE #,2X19A
2585  I=3
2590  PRINT  USING 2600;X$
2595  GOTO 2625
2600  IMAGE #,",",2X19A
2605  I=1
2610  PRINT  USING 2620;X$
2615  GOTO 2625
2620  IMAGE ",",2X19A
2625  NEXT S0
2630  RETURN 
2700  REM OUT PD INV
2705  I=INT((P0+42)/21)
2710  Z0=(P0+42)-21*I
2715  READ #4,I
2720  IF Z0#0 THEN 2740
2725  IF I=2 THEN 2755
2730  READ #4,I-1
2735  Z0=21
2740  FOR I=1 TO Z0
2745  READ #4;Z$
2750  NEXT I
2755  PRINT #4;M$
2760  P0=P0+1
2765  READ #4,1
2770  RETURN 
2800  REM DSPY INV
2802  PRINT 
2804  PRINT  USING 2884;K$,M$[1,4],M$[5,14]
2806  PRINT  USING 2886;U$[8,31],V$[1,18],V$[19,32],V$[33,34],V$[35,39]
2808  PRINT " DATE     PO #    GROSS AMOUNT   NET AMOUNT  YEAR"
2810  X$=W$[22,31]
2812  GOSUB 3700
2814  PRINT  USING 2888;W$[15,16],W$[17,18],W$[19,20],W$[55,61],Z$[1,13]
2816  X$=W$[35,44]
2818  GOSUB 3700
2820  X$="C"
2822  IF W$[33,33]="0" THEN 2826
2824  X$="P"
2826  PRINT  USING 2890;Z$[1,13],X$
2828  S2=1
2830  S3=W3
2832  IF S3<8 THEN 2836
2834  S3=7
2836  GOSUB 2900
2838  IF W3<8 THEN 2878
2840  PRINT LIN(1),"DO YOU WISH TO SEE REMAINING CHARGES?";
2842  ENTER 255,Z0,T$
2844  PRINT 
2846  IF Z0=-256 THEN 2880
2848  IF T$[1,1]#"Y" THEN 2878
2850  S2=8
2852  S3=W3
2854  IF S3<26 THEN 2858
2856  S3=25
2858  GOSUB 2900
2860  IF W3<26 THEN 2878
2862  PRINT LIN(1),"DO YOU WISH TO SEE REMAINING CHARGES?";
2864  ENTER 255,Z0,T$
2866  PRINT 
2868  IF Z0=-256 THEN 2880
2870  IF T$[1,1]#"Y" THEN 2878
2872  S2=26
2874  S3=W3
2876  GOSUB 2900
2878  RETURN 
2880  E0=1
2882  RETURN 
2884  IMAGE 7A,X4A,",",10A/
2886  IMAGE "VENDOR",2X24A/8X18A/8X14A,X2A,X5A/
2888  IMAGE #,2A,"/",2A,"/",2A,X7A,X13A
2890  IMAGE X13A,2XA/
2900  REM DSPY CHGS
2905  PRINT "CHG    ACCOUNT CODE           AMOUNT"
2910  FOR S0=S2 TO S3
2915  GOSUB 3800
2920  PRINT  USING 2960;S0,X$
2925  X1=R[S0]
2930  X2=S[S0]
2935  GOSUB 5500
2940  GOSUB 3700
2945  PRINT  USING 2965;Z$[1,13]
2950  NEXT S0
2955  RETURN 
2960  IMAGE #,XDD,2X19A
2965  IMAGE X13A
3000  REM READ INV
3005  Z$=U$[36,39]
3010  Z0=4
3015  GOSUB 5000
3020  W2=Z
3025  IF W2=0 THEN 3105
3030  READ #2,W2;W$
3035  IF W$[5,14]=M$[5,14] THEN 3050
3040  Z$=W$[49,52]
3045  GOTO 3010
3050  IF W$[21,21]="9" THEN 3040
3055  K$="INVOICE"
3060  IF W$[32,32]="0" THEN 3070
3065  K$="CR MEMO"
3070  Z$=W$[53,54]
3075  Z0=2
3080  GOSUB 5000
3085  W3=Z
3090  FOR S0=1 TO W3
3095  READ #2;N[S0],O[S0],P[S0],Q[S0],R[S0],S[S0]
3100  NEXT S0
3105  RETURN 
3200  REM UPDATE INV
3210  PRINT #2,W2;W$
3220  FOR S0=1 TO W3
3230  PRINT #2;N[S0],O[S0],P[S0],Q[S0],R[S0],S[S0]
3240  NEXT S0
3250  READ #2,1
3260  RETURN 
3400  REM BEG UPD
3405  Z0=BRK(0)
3410  Z0=4
3415  Z$=M$[1,4]
3420  GOSUB 5000
3425  PRINT #2,1;"INVOICE",W0,W1,-110,J9,Z,M$[5,14]
3430  READ #2,2
3435  PRINT #4,1;"PAID INVOICE",P0,P1,-110,J9,Z,M$[5,14]
3440  READ #4,2
3445  RETURN 
3450  REM END UPD
3455  PRINT #2,1;"INVOICE",W0,W1,0,0,0," "
3460  READ #2,2
3465  PRINT #4,1;"PAID INVOICE",P0,P1,0,0,0," "
3470  READ #4,2
3475  Z0=BRK(1)
3480  RETURN 
3500  REM READ VEND
3505  Z0=4
3510  Z$=M$[1,4]
3515  GOSUB 5000
3520  IF Z >= Q2 THEN 3560
3525  I=INT((Z+11)/6)
3530  Z0=(Z+12)-6*I
3535  READ #1,I
3540  FOR I=1 TO Z0
3545  READ #1;U$,V$
3550  NEXT I
3555  IF U$[1,1]="0" THEN 3570
3560  E0=1
3565  PRINT LIN(1),"SPECIFIED VENDOR DOES NOT EXIST"
3570  RETURN 
3700  REM DOL FMT
3702  Z$[1,13]=" "
3704  FOR I=1 TO 10
3706  IF X$[I,I]#"0" THEN 3712
3708  NEXT I
3710  RETURN 
3712  Z$[11,11]="."
3714  Z$[12,13]=X$[9,10]
3716  IF I>8 THEN 3710
3718  I0=8-I
3720  Z$[10-I0,10]=X$[8-I0,8]
3722  IF I>5 THEN 3710
3724  Z$[7,7]=","
3726  I0=5-I
3728  Z$[6-I0,6]=X$[5-I0,5]
3730  IF I>2 THEN 3710
3732  Z$[3,3]=","
3734  I0=2-I
3736  Z$[2-I0,2]=X$[2-I0,2]
3738  RETURN 
3800  REM FMT ACCT #
3805  Z0=6
3810  Z=O[S0]
3815  GOSUB 5200
3820  X$=Z$[1,2]
3825  X$[3]="-"
3830  IF X$[2,2]="3" THEN 3910
3835  X$[4,7]=Z$[3]
3840  X$[8]="-"
3845  Z=P[S0]
3850  GOSUB 5200
3855  IF X$[2,2]="2" THEN 3895
3860  X$[9,14]=Z$
3865  Z0=4
3870  Z=Q[S0]
3875  GOSUB 5200
3880  X$[15]="-"
3885  X$[16,19]=Z$
3890  RETURN 
3895  X$[6,7]=Z$[4]
3900  X$[9,9]=Z$[6]
3905  RETURN 
3910  Z0=4
3915  Z=W[P[S0]]
3920  IF Z$[4,4]="1" THEN 3930
3925  Z=W[P[S0]+60]
3930  GOSUB 5200
3935  X$[4,7]=Z$
3940  RETURN 
4000  REM INPUT TRANSACTION PROCESSING ROUTINE.
4010  FOR Z1=1 TO Z0
4020  T[Z1,1]=0
4025  T[Z1,2]=0
4030  NEXT Z1
4040  Z1=1
4050  Y3=0
4060  FOR Z2=1 TO LEN(T$)
4070  IF Y3#0 THEN 4130
4080  IF T$[Z2,Z2]=" " THEN 4180
4090  IF T$[Z2,Z2]="," THEN 4140
4100  T[Z1,1]=Z2
4110  Y3=1
4120  GOTO 4180
4130  IF T$[Z2,Z2]#"," THEN 4180
4140  T[Z1,2]=Z2-1
4150  Z1=Z1+1
4160  IF Z1>Z0 THEN 4210
4170  Y3=0
4180  NEXT Z2
4190  T[Z1,2]=Z2-1
4200  RETURN 
4210  IF Z2=LEN(T$) THEN 4200
4220  E0=1
4230  PRINT LIN(1),"INVALID TRANSACTION"
4240  RETURN 
5000  REM STRING TO NUMBER CONVERSION ROUTINE.
5030  Z=Y2=0
5040  FOR Y1=Z0 TO 1 STEP -1
5050  IF Z$[Y1,Y1]>"4" THEN 5090
5060  FOR Y3=0 TO 4
5070  IF Z$[Y1,Y1]=Y$[Y3+1,Y3+1] THEN 5120
5080  NEXT Y3
5090  FOR Y3=5 TO 9
5100  IF Z$[Y1,Y1]=Y$[Y3+1,Y3+1] THEN 5120
5110  NEXT Y3
5120  Z=Z+Y3*10^Y2
5130  Y2=Y2+1
5140  NEXT Y1
5150  RETURN 
5200  REM NUMBER TO STRING CONVERSION ROUTINE.
5230  Z2=Z3=Z4=0
5240  FOR Z1=Z0 TO 1 STEP -1
5250  Z3=Z3+1
5260  Z2=INT(Z/(10^(Z1-1)))-10*Z4
5270  Z4=(10*Z4)+Z2
5280  Z$[Z3,Z3]=Y$[Z2+1,Z2+1]
5290  NEXT Z1
5300  RETURN 
5400  REM TEN DIGIT STRING TO TWO FIVE DIGIT
5401  REM NUMBERS CONVERSION ROUTINE.
5410  Z0=5
5415  Z$=X$[1,5]
5420  GOSUB 5000
5430  X1=Z
5440  Z$=X$[6,10]
5450  GOSUB 5000
5460  X2=Z
5470  RETURN 
5500  REM TWO FIVE DIGIT NUMBERS TO TEN DIGIT
5501  REM STRING CONVERSION ROUTINE.
5510  Z0=5
5520  Z=X1
5530  GOSUB 5200
5540  X$[1,5]=Z$[1,5]
5550  Z=X2
5560  GOSUB 5200
5570  X$[6,10]=Z$[1,5]
5580  RETURN 
5800  REM ROUTINE TO EDIT STRING FOR ALL DIGITS
5810  Z=1
5820  FOR Z1=1 TO Z0
5830  IF Z$[Z1,Z1]<"0" THEN 5870
5840  IF Z$[Z1,Z1]>"9" THEN 5870
5850  NEXT Z1
5860  Z=0
5870  RETURN