home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug043.ark / A_P080.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.3 KB  |  48 lines
  1.  
  2.     REMARK    #########################################################
  3.     REMARK    #    ACCOUNTS PAYABLE INFORMATION F/M   (A/P080)    #
  4.     REMARK    #        VERS. OF 5/19/79    2.30 PM        #
  5.     REMARK    #########################################################
  6.  
  7.  
  8.     DIM P(6)
  9. %INCLUDE CURSOR
  10.     GOTO 6000
  11. %INCLUDE SUBS1
  12. %INCLUDE A/P-INFO
  13.  
  14.  
  15. 5000    IF F=5 THEN 5030
  16.     X1=219+F*64:X2=2:X3=1:X4=99:GOSUB 345                REMARK    ENTER THE # OF DAYS FOR AGING PERIOD 'F'
  17.     P(F)=X0
  18.     RETURN 
  19. 5030    X1=535:X2=6:X3=1:X4=999999:GOSUB 345                REMARK    ENTER THE CHECK REGISTER NUMBER
  20.     P(5)=X0
  21.     RETURN 
  22.  
  23.  
  24. 6000    MASKA$="##"
  25.     MASKB$="######"
  26.     OPEN "A/P0F130.DAT" AS 1,"CRT" RECL 1100 AS 19
  27.     X0=8:GOSUB 260                            REMARK    DISPLAY THE CRT MASK
  28.     X0=1:GOSUB 3310                            REMARK    RETRIEVE THE CURRENT INFORMATION FILE DATA
  29.     X1=256:GOSUB 210                        REMARK    DISPLAY THE CURRENT INFORMATION FILE DATA
  30.     FOR I%=1 TO 4
  31.     X1=28:GOSUB 215
  32.     PRINT USING MASKA$;P(I%)
  33.     NEXT I%
  34.     X1=24:GOSUB 215
  35.     PRINT USING MASKB$;P(5)
  36. 6040    X2=1:X3=0:X4=5:X2$="ENTER FIELD TO CHANGE (0 IF NONE)"        REMARK    ALLOW CHANGES TO INFORMATION FILE DATA
  37.     GOSUB 665
  38.     F=X0
  39.     IF F=0 THEN 6100
  40.     GOSUB 5000
  41.     GOTO 6040
  42.  
  43. 6100    PRINT CLEAR.SCREEN$;"A/P INFORMATION F/M LOADING MENU"
  44.     CLOSE 1
  45.     OPEN "A/P0F130.DAT" AS 1
  46.     X0=1:GOSUB 3350                            REMARK    WRITE UPDATED INFORMATION TO THE FILE
  47.     CHAIN "A/P000"
  48.