50000 REM SUPER MONITOR BY:JERRY TRAVIS
 50010 A=769:B=818:C=57100:H=10:H$=" NUM "
 50020 PRINT:N=49:IFB-A<NTHENN=B-A
 50030 PRINT:X=A:GOSUB50300:O$=X$+H$:X=A+N:GOSUB50300:O$=O$+X$
 50040 PRINTTAB((22-LEN(O$))/2);O$:FORI=0TON
 50050 IFI/5=INT(I/5)THENPRINT:PRINT:PRINT" ";:IFPEEK(C)=255GOTO50080
 50060 X=PEEK(A+I):GOSUB50310:PRINTX$;:PRINTSPC(4-LEN(X$)):NEXT:PRINT
 50070 IFA+49<BGOTO50170
 50080 N=0:PRINT:INPUT"ACTION";I$:FORI=1TOLEN(I$):Z=ASC(MID$(I$,I,1))
 50090 IFZ=35THENGOSUB50200:IFN=1THENGOSUB50250
 50100 IFZ=45THENGOSUB50200:IFN=1THENA=F:B=S
 50110 IFZ=61THENGOSUB50500:N=1:IFX<0THENN=2
 50120 IFZ=77THENGOSUB50200:T=J:IFN=1THENA=A-S:B=B-S
 50130 IFZ=80THENGOSUB50200:T=J:IFN=1THENA=A+S:B=B+S
 50140 IFN>0THENONNGOTO50020,50600
 50150 NEXT:X$=I$:GOSUB50400:IFX=-1THENH=D:GOTO50020
 50154 IFX<0THENT=J:GOTO50600
 50160 A=X:B=A+49:GOTO50020
 50170 IFPEEK(C)=250ORPEEK(C)=252THENA=A+50:PRINT:GOTO50020
 50180 IFPEEK(C)=255GOTO50080
 50190 GOTO50170
 50200 IFI=1THENF=0:GOTO50220
 50210 X$=LEFT$(I$,I-1):GOSUB50400:F=X:IFX<0THENT=J:N=2:RETURN
 50220 IFI=LEN(I$)THENS=65535:GOTO50240
 50230 X$=MID$(I$,I+1):GOSUB50400:S=X:IFX<0THENT=I+J:N=2:RETURN
 50240 N=1:RETURN
 50250 Q=F:GOSUB50260:A=X:Q=S:GOSUB50260:B=T-1:RETURN
 50260 X=769
 50270 T=PEEK(X+1)*256+PEEK(X):IFT=0THENT=X:RETURN
 50280 J=PEEK(X+3)*256+PEEK(X+2):IFJ>=QTHENRETURN
 50290 X=T:GOTO50270
 50300 IFH=0THEND=10:GOTO50320
 50310 D=H:IFH=0THEND=16:IFX>31ANDX<128THENX$=CHR$(X):RETURN
 50320 X$="":E=1
 50330 E=E*D:IFX>=EGOTO50330
 50340 E=E/D:T=INT(X/E):X=X-T*E:IFT>9THENX$=X$+CHR$(55+T)
 50350 IFT<10THENX$=X$+CHR$(48+T)
 50360 IFE>1GOTO50340
 50370 IFLEN(X$)=1AND(D=8ORD=16)THENX$="0"+X$
 50380 IFLEN(X$)=2ANDD=8THENX$="0"+X$
 50390 RETURN
 50400 D=H:X=0:T=ASC(X$):J=LEN(X$):IFN=2THENX=T:RETURN
 50404 IFT=72ORT=75ORT>76ANDT<81THENX$=MID$(X$,2)
 50410 IFT=75THEND=0:IFJ=1THENH$=" KHR ":J=0
 50420 IFT=78THEND=10:IFJ=1THENH$=" NUM ":J=0
 50430 IFT=79THEND=8:IFJ=1THENH$=" OCT ":J=0
 50440 IFT=72THEND=16:IFJ=1THENH$=" HEX ":J=0
 50450 IFJ=0THENX=-1:RETURN
 50460 IFD=0THEND=10
 50470 FORJ=1TOLEN(X$):T=ASC(MID$(X$,J))-48:IFT>9THENT=T-7
 50480 IFT<0ORT>D-1THENX=-2:RETURN
 50490 X=X+T*D^(LEN(X$)-J):NEXT:X=INT(X):RETURN
 50500 P=I+1:Q=I:IFI=1THENF=A:GOTO50520
 50510 X$=LEFT$(I$,I-1):GOSUB50400:F=X:IFX<0THENT=J:RETURN
 50520 S=LEN(I$):IFH=0THENN=2
 50530 Q=Q+1:IFQ>SANDP>STHENX=F:GOSUB50300:PRINTX$;"=";:INPUTI$:P=1:Q=P
 50540 IFQ>STHENGOSUB50570:RETURN
 50550 IFMID$(I$,Q,1)=";"THENGOSUB50570:P=Q+1:F=F+1:IFX<0THENRETURN
 50560 GOTO50520
 50570 X$=MID$(I$,P,Q-P):IFLEN(X$)=0THENRETURN
 50580 GOSUB50400:IFX<0ORX>255THENX=-3:T=P:RETURN
 50590 POKEF,X:RETURN
 50600 PRINT:PRINTI$:PRINTTAB(T-1);"^ ERROR";ABS(X):GOTO50080
 50610 END