Listing of file='A/PCONT' on disk='vmedia/701-2652C.wvd.zip'
# Sector 308, program filename = 'A/PCONT' 0010 REM A/PCONT 0170 COM M3$1,M4$Q5,M(17),F5$(3)1,G2$Q5,G$(5)Q5 0199 GOSUB '99 3578 DEFFN'66(N,Q8,Q9) : Q8=MOD(Q8,1E3)+1 : DBACKSPACE #N,BEG : DSKIP #N,Q8S : DATA LOAD DC #N,M$() : DBACKSPACE #N,1S : IF Q8>1THEN 3598 : Q7$=STR(Q0$(5),,1) : Q6$=HEX(A001A0)&Q7$&HEX(A001A0)&Q7$&HEX(5206A0)&Q7$ : IF Q9=1THEN $UNPACK(F=Q6$)M$()TO M3$,M4$,F5$(),G2$,M(),G$() : ELSE $PACK(F=Q6$)M$()FROMM3$,M4$,F5$(),G2$,M(),G$() : IF Q9=0THEN DATA SAVE DC #N,M$() : RETURN 3598 Q6$=HEX(00675206) : IF Q9=1THEN $UNPACK(F=Q6$)M$()TO M() : ELSE $PACK(F=Q6$)M$()FROMM() : IF Q9=0THEN DATA SAVE DC #N,M$() : RETURN 9999 DEFFN'29"Q$=";HEX(22);"A/PCONT";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)