Listing of file='609PEXIT' on disk='vmedia/701-2738G.wvd.zip'
# Sector 42, program filename = '609PEXIT' 2250 REM 260 KKB-12/07/89 2255 DEFFN'101 : RETURN CLEAR 2270 IF C5$=HEX(F0)OR C1<=0THEN 2320 : D2=D2+1 : IF D4>0THEN 2310 : IF D4=-2THEN 2295 : IF C0(3)=2THEN 2297 : ELSE GOSUB '99 2295 IF D2<3THEN GOSUB '99 : GOTO 2320 2297 C0(3),C0(4)=0 : M4=M4-1 : IF M4=0THEN 2320 : GOSUB '99 2310 IF D2<=D4THEN GOSUB '99 2320 $CLOSE : FOR M9=1TO 16 : M9$=$PSTAT(M9) : ERRORM9=ERR : GOTO 2322 2321 IF STR(M9$,1,6)="MONOFF"THEN $ALERT(M9) : NEXT M9 2322 PRINT HEX(0D020400000E03) : IF C1$="L"THEN 2350 : A5$()="609PARCH609FG080609FG190" : LOAD T<3>A5$() 2350 PRINT HEX(0D020400000E03) : A0$()="609Close"&"JCAT" : J1=1 : COM CLEAR U1$() : LOAD T<2>A0$()