Listing of file='A/PFILE' on disk='vmedia/701-2652C.wvd.zip'
# Sector 163, program filename = 'A/PFILE'
0010 REM A/PFILE
0170 COM C0$(M0)Q4,C1$(M0)Q6,C2$(M0)2,C3$(M0)1,C4$(M0)8,B(M0),B0(M0),B1(M0),B2
(M0),B3(M0),B4(M0),B5(M0),C5$(M0)1,O$(M0)I
0172 COM L2$26
0199 L2$=HEX(A0)&BIN(Q4)&HEX(A0)&BIN(Q6)&HEX(A002A001A008620562056004500350035
0036805A001)
: GOSUB '99
3428 DEFFN'61(N,Q)
: O$()=ALL(FF)
: Q9=1
: DATA LOAD DC #N,O$()
: IF END THEN Q9=0
: DBACKSPACE #N,Q9S
: $PACK(F=L2$)O$(Q)FROMC0$(Q),C1$(Q),C2$(Q),C3$(Q),C4$(Q),B(Q),B1(Q),B2(Q),
B3(Q),B4(Q),B5(Q),B0(Q),C5$(Q)
: DATA SAVE DC #N,O$()
: RETURN
3446 DEFFN'71(N,Q)
: DATA LOAD DC #N,O$()
: $UNPACK(F=L2$)O$(Q)TO C0$(Q),C1$(Q),C2$(Q),C3$(Q),C4$(Q),B(Q),B1(Q),B2(Q)
,B3(Q),B4(Q),B5(Q),B0(Q),C5$(Q)
: RETURN
9999 DEFFN'29"Q$=";HEX(22);"A/PFILE";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)