Listing of file='SALE100A' on disk='vmedia/701-2616C.wvd.zip'
# Sector 802, program filename = 'SALE100A'
0010 REM SALE100A, 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/R SYSTEM, REORGANIZE SALESMAN FILE
0040 REM PROGRAM FUNCTION = REORGANIZE THE SALESMAN MASTER FILE
0060 REM LAST REVISION = 05/13/79
0070 REM ---------------------------------------------------------------------
-
0170 COM M0$(83)3
0198 GOTO 4000
3996 REM ********************************
3997 REM ! SALESMAN 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 SALESMAN 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
9999 DEFFN'29"Q$=";HEX(22);"SALE100A";HEX(22);":SCRATCH TQ$:SAVET$()Q$";HEX(0D
)