Listing of file='609PEXIT' on disk='vmedia/731-0067F-disk1.wvd.zip'
# Sector 2450, program filename = '609PEXIT' 2250 REM 250 KKB-11/03/88 2255 DEFFN'101 : RETURN CLEAR 2270 IF C5$=HEX(F0)OR C1<=0THEN 2320 : D2=D2+1 : IF D4>0 THEN 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=0 THEN 2320 : GOSUB '99 2310 IF D2<=D4THEN GOSUB '99 2320 $CLOSE : FOR M9=1 TO 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$()9 2350 PRINT HEX(0D020400000E03) : A0$()="609Close"&"JCAT" : J1=1 : COM CLEAR U1$() : LOAD T<2>A0$()