image of READY prompt

Wang2200.org

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