Listing of file='JENFILE' on disk='vmedia/701-2653B.wvd.zip'
# Sector 393, program filename = 'JENFILE' 0010 REM JENFILE 0170 COM N,Q$1,Q5,Q6,Q7,Q8,Q9 0172 COM M$(4)62,L3$16 0174 COM H0$Q5,H1$2,H3$24,H4$8,H5$8,H,H1,H2 0199 L3$=HEX(6002A0)&STR(Q0$(5),,1)&HEX(A0025003A0)&BIN(MIN(33-VAL(Q0$(5)),24) )&HEX(A008A0085205) : GOSUB '99 3494 DEFFN'63(N) : $OPEN #N : DSKIP #N,END : LIMITS T#N,Q6,Q7,Q8 : Q9=(Q8-Q6)/(Q7-Q6-1) : IF Q9>.8THEN PRINT AT(3,0,80);HEX(07);"Journal entries file (";S$(N);") i s";INT(Q9*100);"% full" : IF Q8>Q7-2THEN RETURN : Q8=Q8-Q6 : H2,Q9=1 : IF Q8=0THEN 3513 : DBACKSPACE #N,1S : DATA LOAD DC #N,M$() : Q9=MAX(INT((POS(M$()=HEX(FF))+61)/62),1) : H2=(Q8-1)*4+Q9 3512 IF Q9<>1THEN DBACKSPACE #N,1S : ELSE H2=H2+4 3513 M$(Q9)=ALL(20) : $PACK(F=L3$)M$(Q9)FROMH2,H0$,H1$,H,H3$,H4$,H5$,H1 : IF Q9<4THEN STR(M$(),Q9*62+1)=ALL(FF) : DATA SAVE DC #N,M$() : IF Q9=1THEN GOSUB '218(S$(N),N," ",0) : $CLOSE#N : RETURN 9999 DEFFN'29"Q$=";HEX(22);"JENFILE";HEX(22);":SCRATCHTQ$:SAVET()Q$";HEX(0D)