Listing of file='609Eloct' on disk='vmedia/701-2737G.wvd.zip'
# Sector 85, program filename = '609Eloct' 0010 REM ********************* 609Eloct ************************************ 0902 DEFFN'35(C8) : C1=1 0910 IF C8<J2(C1)THEN 954 : IF J1(C1+1)=0THEN 928 : IF J2(C1+1)>C8THEN 964 : C1=C1+1 : GOTO 910 0928 IF C8<J2(C1)+J1(C1)THEN 964 : IF C1<C2THEN 954 : IF V0$(J2(C1))=HEX(8F)THEN 948 : J4=J1(C1)+1 : GOTO 968 0948 J4=J1(C1) : GOTO 973 0954 C1=C1+1 : J4=1 : GOTO 973 0964 J4=C8-J2(C1)+1 0968 IF C8<FNJ(1)OR J1(C1)=0THEN 973 : IF POS(-STR(V0$(),,C8)=86)=0THEN IF J4>D9THEN 954 : IF POS(-STR(V0$(),,C8)=86)>0THEN IF POS(STR(V0$(),POS(-STR(V0$(),,C8)=86) )=83)<J4THEN 954 0973 IF C1=1THEN 954 : RETURN 0998 DEFFNJ(I)=POS(V0$()=" ")-1