Listing of file='VENFILE' on disk='vmedia/701-2652C.wvd.zip'
# Sector 429, program filename = 'VENFILE'
0010 REM VENFILE
0170 COM A$Q4,A1$21,A2$20,A3$20,A4$16,A5$5,B1$(6)Q5,A4(6),B4$1
: COM A,A1,A2,A3,A0
: COM L$28
0199 L$=HEX(A0)&BIN(Q4)&HEX(A015A014A014A010A0055206520652065206A0)&STR(Q0$(5)
,,1)&HEX(63035003A001)
: GOSUB '99
3406 DEFFN'60(N)
: $PACK(F=L$)M$()FROMA$,A1$,A2$,A3$,A4$,A5$,A,A1,A2,A3,B1$(),A4(),A0,B4$
: DATA SAVE DC #N,M$()
: RETURN
3416 DEFFN'70(N)
: DATA LOAD DC #N,M$()
: $UNPACK(F=L$)M$()TO A$,A1$,A2$,A3$,A4$,A5$,A,A1,A2,A3,B1$(),A4(),A0,B4$
: RETURN
9999 DEFFN'29"Q$=";HEX(22);"VENFILE";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)