image of READY prompt

Wang2200.org

Listing of file='ACPAMENU' on disk='vmedia/701-2652C.wvd.zip'

# Sector 28, program filename = 'ACPAMENU'
0010 REM ACPAMENU, RELEASE 2.2, (09/11/80) THIS PROGRAM IS A COPYRIGHT PRODUCT
      OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0170 COM I,Q,M5$,O0,M0,M$8
   : COM Q$(2)80,Q6$80,Q7$80
   : COM Q3,Q4,Q5,Q6,Q7,Q8,Q9
   : COM M(17),F5$(3)1,M2$4
   : GOTO 4000
4000 DIM A6$(8)124
   : N=11
   : I=40
   : M0=INT(249/(40+VAL(Q0$(4))+VAL(Q0$(6))))
   : Q0=VAL(Q0$(4))
   : IF M$="SYS MENU"THEN M5$=" "
   : M$="ACPAMENU"
   : Q7$="GBS/MVP ACCOUNTS PAYABLE SYSTEM"
   : STR(Q7$,47)="SYSTEM MENU"
4080 LOAD T"GBS MENU"10,4080
   : ERRORPRINT HEX(03);"GBS Menu is not available."
   : END
7010 DEFFN'32
   : Q6$="SYS MENU"
   : COM CLEAR I
   : LOAD TQ6$
   : ERRORPRINT HEX(03);"System menu is not available."
   : END
7060 DEFFN'38
   : RETURN
7130 DEFFN'39
   : IF M5$="ACPA070A"OR M5$="ACPA080A"THEN GOSUB '98
   : V7$="GBS1F010"
   : GOSUB '97
   : MAT SEARCHA6$(),=STR(V7$,,7)TO Q6$STEP 11
   : Q9=INT((VAL(Q6$,2)+10)/11)
   : Q6$="A/P Control file"
   : Q7$="(Filename is not in company control file)."
   : IF Q9=0THEN GOSUB '33
   : Q7$=" "
   : SELECT #1<STR(A6$(Q9),9,3)>
   : DATA LOAD DC OPEN T#1,STR(A6$(Q9),,8)
   : ERRORGOSUB '33
7195 Q5=VAL(Q0$(5))
   : LOAD T"A/PCONT"10,199BEG 7210
7210 SELECT @PARTS0$
   : GOSUB '66(1,0,1)
   : DATA SAVE DC CLOSE#1
   : RESTORE M2*5+2
   : READ Q6$
   : MAT SEARCH"ACPA050 ACPA060 ACPA120",=STR(M5$,,7)TO Q7$
   : IF STR(Q7$,,2)=HEX(0000)THEN 7380
   : Q7$="Cash Requirement Report must precede "&Q6$
   : IF M(3)=0THEN 7340
   : Q7$="Payment selection must precede "&Q6$
   : IF M5$="ACPA060A"AND F5$(2)=" "THEN 7340
7310 IF M5$="ACPA050A"THEN 7380
   : Q7$="Check print must precede "&Q6$
   : IF M5$<>"ACPA120A"OR F5$(2)="2"THEN GOSUB '98
7340 PRINT HEX(030D0A);Q7$
   : PRINT AT(2,0,80)
   : Q7$=" "
7346 KEYIN Q7$,7346,7346
   : LINPUT "Key 'RETURN' to resume.",?STR(Q7$,,1)
   : Q6$=" "
   : GOSUB '33
7380 IF F5$(2)<>"2"THEN GOSUB '98
   : PRINT HEX(03);AT(0,0);"Caution - Purge Paid Item/Vendor update has not fo
     llowed check print";HEX(07)
   : PRINT AT(1,0);"If the A/P payment cycle is not completed, the checks will
      be lost"
7410 PRINT AT(2,0,80);"IS ";Q6$;" STILL DESIRED (Y OR N)";
   : Q6$,Q7$=" "
   : LINPUT ?STR(Q7$,,1)
   : $TRAN(Q7$,"YyNn")R
   : IF Q7$="N"THEN GOSUB '33
   : IF Q7$="Y"THEN GOSUB '98
   : PRINT AT(3,0,80);"RE-ENTER";HEX(07)
   : GOTO 7410
7660 DATA "ACPA030A","ENTER TRANSACTIONS","KFAMCODESUBUTIL JENFILE VENFILE A/P
     FILE GENFILE A/PCONT DENTRY  SUBDATE TRAUFILE"
   : DATA 3,"ACPAF01 312 ACPAF02 314 GENLF01 116 GENLF02 307 GENLF03 308 GBS1F
     01 309 AUDIF02 30A GENLF05 30B"
7670 DATA "ACPA040A","PRINT CASH REQUIREMENTS","KFAMCODESUBUTIL VENFILE A/PFIL
     E A/PCONT DENTRY  SUBDATE PRNTAVAL"
   : DATA 2,"ACPAF01 412 ACPAF02 414 GBS1F01 305"
   : DATA "ACPA050A","SELECT ITEMS FOR PAYMENT","KFAMCODESUBUTIL VENFILE A/PFI
     LE A/PCONT DENTRY  SUBDATE"
7685 DATA 2,"ACPAF01 412 ACPAF02 414 GBS1F01 305"
   : DATA "ACPA060A","PRINT CHECKS","KFAMCODESUBUTIL VENFILE A/PFILE CHKFILE A
     /PCONT DENTRY  SUBDATE PRNTAVAL"
   : DATA 2,"ACPAF01 112 ACPAF02 414 ACPAF03 405 GBS1F01 306"
7700 DATA "ACPA070A","PRINT CHECK REGISTER","KFAMCODESUBUTIL DENTRY  PRNTAVAL"
   : DATA 1,"ACPAF03 001 ACPAF03 002 SORTWORK003 SORTWORK004 PROGRAM 005 PROGR
     AM 006"
   : DATA "ACPA120A","PURGE PAID ITEMS","KFAMCODESUBUTIL VENFILE A/PFILE A/PCO
     NT DENTRY  SUBDATE TRAUFILE"
7715 DATA 2,"ACPAF01 412 ACPAF02 414 AUDIF02 305 GBS1F01 306"
   : DATA "ACPA080A","MAINTAIN VENDOR FILE","KFAMCODESUBUTIL GENFILE VENFILE D
     ENTRY  SUBDATE AUDIFILE"
   : DATA 2,"ACPAF01 312 GENLF01 315 AUDIF01 303"
7740 DATA "ACPA020A","MAINTAIN OPEN ITEM FILE","KFAMCODESUBUTIL VENFILE A/PCON
     T A/PFILE DENTRY  AUDIFILESUBDATE PRNTAVAL"
   : DATA 2,"ACPAF02 312 ACPAF01 116 AUDIF01 303 GBS1F01 304"
7750 DATA "ACPA090A","DISPLAY/PRINT VENDOR FILE","KFAMCODESUBUTIL VENFILE DENT
     RY  SUBDATE PRNTAVAL"
   : DATA 1,"ACPAF01 112"
   : DATA "ACPA010A","DISPLAY/PRINT OPEN ITEM FILE","KFAMCODESUBUTIL VENFILE A
     /PFILE SUBDATE DENTRY  PRNTAVAL"
   : DATA 2,"ACPAF02 112 ACPAF01 116"
7770 DATA "ACPA110A","REPORT ON DISTRIBUTION","KFAMCODESUBUTIL A/PCONT DENTRY
      SUBDATE PRNTAVAL"
   : DATA 1,"GBS1F01 309 GENLF02 001 GENLF02 002 SORTWORK003 GENLF05 004 PROGR
     AM 005 PROGRAM 006 GENLK11 007 GENLF01 008"
7800 DEFFN'29"Q$=";HEX(22);"ACPAMENU";HEX(22);":SCRATCHTQ$:SAVET$()Q$";HEX(0D)