50000 REM SUPER MONITOR BY:JERRY TRAVIS
 50010 BL=5:BP=49:BW=769:AB=BW:AE=AB+BP:H$=" KHR ":SL=250 R=252:CN=255
 50020 C=57100:CP=61441:UV=11:PRINT:N=BP:IFAE-AB<NTHENN=AE-AB
 50030 PRINT:X=AB:GOSUB50400:O$=X$+H$:X=AB+N:GOSUB50400:O$=O$+X$
 50040 PRINTTAB((BL*4+2-LEN(O$))/2);O$:FORI=0TON
 50050 IFI/BL=INT(I/BL)THENPRINT:PRINT:PRINT" ";:IFPEEK(C)=CNGOTO50080
 50060 X=PEEK(AB+I):GOSUB50410:PRINTX$;:PRINTSPC(4-LEN(X$)):NEXT:PRINT
 50070 IFAB+BP<AEGOTO50270
 50080 N=0:PRINT:INPUT"ACTION";I$:Z$=MID$(I$,1,1):IFLEN(I$)>1GOTO50190
 50090 IFZ$="M"THENAB=AB-DH:AE=AE-DH:N=1
 50100 IFZ$="P"THENAB=AB+DH:AE=AE+DH:N=1
 50110 IFZ$="*"THENAB=PEEK(AB)+256*PEEK(AB+1):AE=AB+BP:N=1
 50120 IFZ$="G"THENGOSUB50750:N=1
 50130 IFZ$="H"THENNB=16:H$="HEX ":N=1
 50140 IFZ$="N"THENNB=10:H$=" NUM ":N=1
 50150 IFZ$="O"THENNB=8:H$=" OCT ":N=1
 50160 IFZ$="K"THENNB=0:H$=" KHR ":N=1
 50170 IFZ$="S"THENX=AB:GOTO50800
 50180 IFN=1GOTO50020
 50190 IFZ$="G"THENX$=MID$(I$,2):GOSUB50500:AB=X:AE=AB+BP:GOTO50120
 50200 IFZ$="M"THENX$=MID$(I$,"):GOSUB50500:DH=X:GOTO50090
 50210 IFZ$="P"THENX$=MID$(I$,2):GOSUB50500:DH=X:GOTO50100
 50220 IFZ$="S"THENX$=MID$(I$,2):GOSUB50500:GOTO50800
 50230 FORI=1TOLEN(I$):Z$=MID$(I$,I,1)
 50240 IFZ$="#"ORZ$="-"GOTO50300
 50250 IFZ$="="GOTO50600
 50260 NEXT:X$=I$:GOSUB50500:AB=X:AE=AB+BP:PRINT:GOTO50020
 50270 IFPEEK(C)=SLORPEEK(C)=SRTHENAB=AB+BP+1:PRINT:GOTO50020
 50280 IFPEEK(C)=CNGOTO50080
 50290 GOTO50270
 50300 IFI=1THENF=0:GOTO50320
 50310 X$=LEFT$(I$,I-1):GOSUB50500:F=X
 50320 IFI=LEN(I$)THENS=65535:GOTO50340
 50330 X$=MID$(I$,I+1):GOSUB50500:S=X
 50340 IFZ$="-"THENAB=F:AE=S:GOTO50020
 50350 Q=F:X=BW:GOSUB50360:B=X:Q=S:GOSUB50360:AE=T-1:GOTO50020
 50360 IFPEEK(C)=CNGOTO50080
 50370 T=PEEK(X+1)*256+PEEK(X):IFT=0THENT=X:RETURN
 50380 W=PEEK(X+3)*256+PEEK(X+2):IFW>=QTHENRETURN
 50390 X=T:GOTO50360
 50400 IFNB=0THENTB=10:GOTO50420
 50410 TB=NB:IFTB=0THENTB=16:IFX>31ANDX<128THENX$=CHR$(X):RETURN
 50420 X$="":W=1:IFX<0ORX>65535THENX$=STR$(X):W=LEN(X$):ER=1:GOTO50700
 50430 W=W*TB:IFX>=WGOTO50430
 50440 W=W/TB:T=INT(X/W):X=X-T*W:IFT>9THENX$=X$+CHR$(55+T)
 50450 IFT<10THENX$=X$+CHR$(48+T)
 50460 IFW>1GOTO50440
 50470 IFLEN(X$)=1AND(TB=8ORTB=16)THENX$="0"+X$
 50480 IFLEN(X$)=2ANDTB=8THENX$="0"+X$
 50490 RETURN
 50500 TB=NB:X=0:W$=MID$(X$,1,1):IFW$=""THENW=1:ER=2:GOTO50700
 50510 IFW$="H"ORW$="N"ORW$="O"ORW$="K"THENX$=MID$(X$,2)
 50520 IFW$="H"THENTB=16
 50530 IFW$="N"THENTB=10
 50540 IFW$="O"THENTB=8
 50550 IFW$="K"THENX=ASC(X$):RETURN
 50560 IFTB=0THENTB=10
 50570 FORW=1TOLEN(X$):T=ASC(MID$(X$,W,1))-48:IFT>9THENT=T-7
 50580 IFT<0ORT>TB-1THENER=2:GOTO50700
 50590 X=X+T*TB^(LEN(X$)-W):NEXT:X=INT(X):RETURN
 50600 N=I+1:Q=I:IFI=1THENF=AB:GOTO50620
 50610 X$=LEFT$(I$,I-1):GOSUB50500:F=X
 50620 S=LEN(I$)
 50630 Q=Q+1:IFQ>SANDN>STHENX=F:GOSUB50400:PRINTX$;"=";:INPUTI$:N=1:Q=N
 50640 IFQ>STHENGOSUB50670:GOTO50020
 50650 IFMID$(I$,Q,1)=";"THENGOSUB50670:N=Q+1:F=F+1
 50660 GOTO50620
 50670 X$=MID$(I$,N,Q-N):IFLEN(X$)=0THENRETURN
 50675 IFNB=0ANDLEN(X$)=1THENX$="K"+X$
 50680 GOSUB50500:IFX>255THENER=3:W=W-1:GOTO50700
 50690 POKEF,X:RETURN
 50700 PRINT:PRINTX$:PRINTTAB(W-1);"^ ERROR";ER
 50710 IFER=1THENAB=BW:AE=AB+BP
 50720 GOTO50080
 50750 T=INT(AB/256):POKEUV+1,T:POKEUV,AB-T*256:X=USR(X):RETURN
 50800 N=NB:NB=16:GOSUB50400:X$=".0000"+X$+"/":GOSUB50850:PRINT
 50810 FORI=ABTOAE:X=PEEK(I):GOSUB50400:GOSUB50850:POKECP,13
 50820 NEXTI:X$="00":FORI=1TO3:GOSUB50850:POKECP,13:NEXTI
 50830 PRINT:X$=".FB00G":GOSUB50850:NB=N:GOTO50020
 50850 FORW=1TOLEN(X$):POKECP,ASC(MID$(X$,W,1))
 50860 FORT=1TO10:NEXTT:NEXTW:PRINTX$;:RETURN
 50900 END