Listing of file='609PEXIT' on disk='vmedia/701-2721C.wvd.zip'
# Sector 19, program filename = '609PEXIT' 2705 DIM L0(5),L1$(1008)1 2710 DEFFN'101 : RETURN CLEAR 2732 IF L0(2)=0THEN GOTO 2735 : A5$="LPOVER02" : IF C5$=HEX(F0)THEN GOTO 2910 : ELSE GOTO 2750 2735 IF C5$=HEX(F0)OR C1<=0THEN 2840 2750 D2=D2+1 : IF D4>0THEN GOTO 2760 : IF D4=-2THEN GOTO 2756 : IF C0(3)=2THEN GOTO 2840 : ELSE GOSUB '99 2756 IF D2<3THEN GOSUB '99 : GOTO 2840 2760 IF D2<=D4THEN GOSUB '99 : ELSE IF L0(2)=0OR L0(4)<>0THEN GOTO 2840 : L1$()=ALL(HEX(80)) : GOSUB '112 : $TRAN(L1$(),HEX(8000))R : $TRAN(L1$(),HEX(8020))R : IF POS(L1$()<HEX(80))=0THEN GOTO 2840 : D2=1 : GOSUB '99 2840 IF T5(1)<3THEN $GIO#C7,(40024003400F,C3$) : $CLOSE : IF C1$="L"THEN GOTO 2880 : A5$()="609PARCH609FG080609FG190" : LOAD T<3>A5$() 2880 A0$()="609Close"&"JCAT" : J1=1 : COM CLEAR U1$() : LOAD T<2>A0$() 2910 IF Q2$<>" "THEN GOTO 2840 : L0(3)=2 : L0(4)=0 : COM CLEAR U1$() : LOAD T"LPOVER01"