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)