image of READY prompt

Wang2200.org

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)