Listing of file='VENFILE' on disk='vmedia/701-2654C.wvd.zip'
# Sector 670, program filename = 'VENFILE'
0010 REM VENFILE
0020 REM PROGRAM NAME = VENFILE
0030 REM DATE WRITTEN = 11/28/78
0040 REM *************************************************
0050 REM * THIS PROGRAM IS PART OF A GENERALIZED *
0060 REM * APPLICATION. COPYRIGHT WANG LABS INC. 1978 *
0070 REM *************************************************
0080 REM SYSTEM NAME = GBS/MVP
0090 REM MODULE NAME = VENDOR FILE PUT/GET
0100 REM PROGRAM FUNCTION = PUT & GET VENDOR M/F RECORDS
0110 REM *************************************************
0159 REM
0170 COM A$Q4,A1$21,A2$20,A3$20,A4$16,A5$5,B1$(6)Q5,A4(6),B4$1
0172 COM A,A1,A2,A3,A0
0174 COM L$28
0198 REM
0199 L$ = HEX(A0)&BIN(Q4)&HEX(A015A014A014A010A0055206520652065206A0)&STR(
Q0$(5),,1)&HEX(63035003A001)
0200 GOSUB '99
3402 REM ----------------------
3404 REM VENFILE 'PUT' ROUTINE
3406 DEFFN'60(N)
3408 $PACK(F=L$) M$() FROM A$,A1$,A2$,A3$,A4$,A5$,A,A1,A2,A3,B1$(),A4(),A0
,B4$
3410 DATA SAVE DC #N, M$()
3412 RETURN
3414 REM VENFILE 'GET' ROUTINE
3416 DEFFN'70(N)
3418 DATA LOAD DC #N, M$()
3420 $UNPACK(F=L$) M$() TO A$,A1$,A2$,A3$,A4$,A5$,A,A1,A2,A3,B1$(),A4(),A0
,B4$
3422 RETURN
9999 DEFFN'29"Q$=";HEX(22);"VENFILE";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)