1  REM  ****  HP BASIC PROGRAM LIBRARY  *******************************
2  REM
3  REM        CTC6:   CTC ACCOUNTS PAYABLE
4  REM
5  REM        36638 REV  A   PART 1 OF 24   6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ************************************
10  FILES PN1,PN2,PN3,PC1,PC2,PH1,P0
30  FOR I=1 TO 3
35  IF  END #I THEN 70
40  FOR J=1 TO 400
50  PRINT #I,J;"                                                          ",-1
55  PRINT #I;"                                                          ",-1
60  NEXT J
70  NEXT I
80  FOR I=4 TO 6
90  FOR J=1 TO 200
100  PRINT #I,J;0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
110  NEXT J
120  NEXT I
130  PRINT #7,1;1,0
140  END 
