image of READY prompt

Wang2200.org

Listing of file='609PEXIT' on disk='vmedia/701-2738G.wvd.zip'

# Sector 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$()