image of READY prompt

Wang2200.org

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)