Listing of file='ACPA105A' on disk='vmedia/701-2654C.wvd.zip'
# Sector 464, program filename = 'ACPA105A'
0010 REM ACPA105A, RELEASE 2.0, (06/01/79) THIS PROGRAM IS A COPYRIGHT PRODUCT
OF WANG LABORATORIES INC. UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0020 REM ---------------------------------------------------------------------
0030 REM SYSTEM & MODULE = GBS/MVP A/P SYSTEM
0040 REM PROGRAM FUNCTION = REORGANIZE THE VENDOR FILE
0060 REM LAST REVISION = 11/27/79
0070 REM ---------------------------------------------------------------------
-
0170 DIM M0$(83)3
0198 GOTO 4000
3996 REM ********************************
3997 REM ! VENDOR FILE REORGANIZATION !
3998 REM ********************************
4000 SELECT @PARTS0$
4010 STR(M$(),16,8)=M5$
4020 COM CLEAR N2$
4030 MAT REDIM M$(83)3
4040 LOAD T"KFAM3507" 10,4199
4200 Q=1
4210 LOAD T"KFAMOPEN"199,199BEG 4220
: REM LOAD KFAM OPEN/CLOSE ROUTINES
4220 SELECT @PARTS0$
4230 M0$()=M$()
: REM SAVE ADDRESSES, COMPANY NAME
4240 N1$=S$(1)
: REM CUSTOMER FILE NAME
4250 P1$=M$(1)
: REM ADDRESS OF MASTER FILE
4260 N2=1
4270 P2$=M$(2)
: REM KEY FILE ADDRESS
4280 N3$=S$(3)
: REM WORK FILE NAME
4290 P3$=M$(3)
: REM WORK FILE ADDRESS
4300 O3$="Y"
4310 O6$="C"
4320 N4=1
4330 P4$=M$(4)
4340 O4$="Y"
4350 N5$=STR(M$(),16,7)&"B"
4360 P5$=M$(5)
4370 MAT REDIM M$(4)62
9998 DEFFN'29"Q$=";HEX(22);"ACPA105A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)