:***********************************************************************+:*** BHO.BAS By Bill Pickell ***z:***********************************************************************( : 2 t < B,I,L: BIN(!): LOCPRT(,)F ::CO:MHEX:MOCT P (,)(,),,BF: (,)(,u),,BF8 Z (,u)(,u),,BF: (,)(,u),,BFj d ([,)([,t),,BF: (-,)(-,t),,BF n (,)(,t),,BF x X b : (,X)(,X),,BF: X (],c)(,t),,BF ,: "Sign.Binary";: ,: "(1's comp)";3 ,: "(2's comp)";:  ,: "Hexidecimal";]  ,: "Octal";: ,: "Decimal"; ,: "Word Len.--->";: ,: "32 bit"; ,9: "16 bit";: ,H: "8 bit"; LOCPRT(,)"0417":LOCPRT(,)"0452":LOCPRT(,)"0471"0 LOCPRT(,)"0617":LOCPRT(,)"0652":LOCPRT(,)"0671"m LOCPRT(,)"0817":LOCPRT(,)"0852":LOCPRT(,)"0871" LOCPRT(, )"1027":LOCPRT(, )"1056":LOCPRT(, )"1074" LOCPRT(, )"1227":LOCPRT(,)"1256":LOCPRT(,)"1274" LOCPRT(,)"1427"= IM" ":IRIM:IPIMM  PR   PR ",,,6,@,J,T,^,h,r,|,,,,,,  PR: Y PRW:  :  "LOCPRT(,PR)(IM, ): ,LOCPRT(,PR)(IM,): 6LOCPRT(,PR)(IM,):2 @LOCPRT(,PR)(IM, ):O JLOCPRT(,PR)(IM,):k TLOCPRT(,PR)(IM,): ^LOCPRT(,PR)(IM, ): hLOCPRT(,PR)(IM,): rLOCPRT(,PR)(IM,): |LOCPRT(,PR)(IM,): LOCPRT(,PR)(IM,):LOCPRT(,PR)(IM,):2LOCPRT(,PR)(IM, ):NLOCPRT(,PR)(IM,):jLOCPRT(,PR)(IM,):LOCPRT(,PR)(IM, ): CO: ((LOCPRT(,PR),)),((LOCPRT(,PR),)) LOCPRT(,PR);: X  :BIN(X)"0": X PR CO: "CO: + PR3 x ,: " [H] or [O] for HEX & OCT Mode,then [TAB] or [BKSP] "; "for field then [ENTER]";& X  : X,: " ";: X0 MHEX MHEX: MOCT MOCTD : (MHEX),: "h";'N (MOCT),: "o";: 6XCO:PR@b Jl ~ |v I() CO: :PRPR: PR PR I() CO: :PRPR: PR PR I( ) WPR:Y:  I()  I"H" MHEXMHEX:CO: : 8 I"O" MOCTMOCT:CO: : GCO: b[CO: :CO|IP"":C: : ,: N); ,: "Enter value for the corresponding Row and Column"; ((LOCPRT(,PR),)),((LOCPRT(,PR),)) PR BIN()"1" "-";IP;: > PR "+";IP; : IP;b (IP)(LOCPRT(,PR)) Hl ~   PR I"-" BIN()"1":  I( ) (IP) H  I"0" I"F" * I"9" I"A" 4IPIPI> H ,: N);RR ,: "Calculating values One moment please....";\ PR f,f,f,,,,,,,t,t,t,,,,PfV(IP): XV  p (IP,X,)"0" (IP,X,)"1" :: : zBIN(VX)(IP,X,)= X: (IP)1 (IP)(LOCPRT(,PR)) oBIN((LOCPRT(,PR)))"0":BIN()"1":  (IP)(LOCPRT(,PR)) (IP)0 f (IP)(LOCPRT(,PR)) f (IP)(LOCPRT(,PR)) (IP)1 BIN()"1" : :V(IP): XV  U (IP,X,)"0" (IP,X,)"1" :: : y (IP,X,)"0" BIN(VX)"1" (IP,X,)"1" BIN(VX)"0" X:  (IP)(LOCPRT(,PR)) (IP)0 f (IP)(LOCPRT(,PR)) f> (IP)(LOCPRT(,PR)) (IP)1 BIN()"1" : :eV(IP):CAR:IR"": XV   (IP,X,)"0" (IP,X,)"1" :: :  (IP,X,)"0" IR"1"IR : IR"0"IR$ X:IPIR. XV  8Y(((IP,X,)))CAR%B Y BIN(VX)"0":CARDL Y BIN(VX)"1":CARcV Y BIN(VX)"0":CAR` Y BIN(VX)"1":CARj X: t (IP)(LOCPRT(,PR)) :: : ~IM"":V(IP): XV  :IR"" (IP,X,)"0" (IP,X,)"F" :: : W (IP,X,)"9" (IP,X,)"A" :: : CAR((IP,X,)): CAR@ CARCAR7 : CARCAR0 Y   CAR(Y) IRIR"1":CARCAR(Y) : IRIR"0" Y:IMIRIM: X%IPIM:PRPR((MHEX)): MHEX f,,U (IP)(LOCPRT(,PR)) :: : bX(IP)} PR Y1 : Y3 (IP)(LOCPRT(,PR)) XY :: : IM"":V(IP): XV  :IR"" (IP,X,)"0" (IP,X,)"7" :: : 4 CAR((IP,X,)):CARCAR0e X (IP)(LOCPRT(,PR)) Z : Z X (IP)(LOCPRT(,PR)) PR Z( YZ  2 CAR(Y) IRIR"1":CARCAR(Y) : IRIR"0"< Y:IMIRIM: X*FIPIM:PRPR((MOCT)): MOCT f,,ZP (IP)(LOCPRT(,PR)) :: : Z (IP)(()) :: : d (IP)(()) :: : nY((IP))x X (IP)  (IP,X,)"0" (IP,X,)"9" :: :  X% X  Y Y(X) YY(X):BIN(X)"1" : BIN(X)"0"a XCO:IP"":PR: : X  :IPIPBIN(X): XLOCPRT(,PR)IP: IP"":PR: : X  : BIN(X)"0" IP"OV"  X: IP"OV" 2IPBIN():IPIP(LOCPRT(,),)LLOCPRT(,PR)IP: IP"":PR: : X  : BIN(X)"0" IP"OV" X: IP"OV" IPBIN():IPIP(LOCPRT(,),)LOCPRT(,PR)IP:  IP"":PR: : BIN()"0" ,$"IPLOCPRT(,): JB,IPBIN(): X  l6 BIN(X)"0" IPIP"1" : IPIP"0"t@ XJLOCPRT(,PR)IP: TIP"":PR: ^ X  : BIN(X)"0" IP"OV"h X: IP"OV" |rIPBIN():IPIP(LOCPRT(,),))|LOCPRT(,PR)IP: eIP"":PR: : X  : BIN(X)"0" IP"OV"} X: IP"OV" IPBIN():IPIP(LOCPRT(,),)LOCPRT(,PR)IP: IM"":IP"":PR:  IPLOCPRT(,): BIN()"0"  CAR: X  4 YCAR((IP,X,))P  Y CAR:IM"0"IMl  Y CAR:IM"1"IM  Y CAR:IM"0"IM  X:IPBIN()IM LOCPRT(,PR)IP:  IP"":PR: ! LOCPRT(,)"OV" IP"OV" : IPBIN()(LOCPRT(,),))!LOCPRT(,PR)IP: >!&IP"":PR: !0 LOCPRT(,)"OV" IP"OV" : IPBIN()(LOCPRT(,),)!:LOCPRT(,PR)IP: !DIP"":PR : !NIMLOCPRT(,PR((MHEX)))!X X  :IR(IM,X,):Z&"b Y :ZZ(((IR,Y,))((Y))): YD"l Z Z0Z : Z7ZX"vIPIP(Z): X" (IP)0 (IP)  : IP(IP,): "LOCPRT(,PR)IP: "IP"":PR : "IMLOCPRT(,PR((MHEX))): IM"OV" IPIM: # X  :IR(IM,X,):ZN# Y :ZZ(((IR,Y,))((Y))): Yl# Z Z0Z : Z7Z#IPIP(Z): X# (IP)0 (IP)  : IP(IP,): #LOCPRT(,PR)IP: #IP"":PR :  $IMLOCPRT(,PR((MHEX))): IM"OV" IPIM: *D$ X  :IR(IM,X,):Zu$ Y :ZZ(((IR,Y,))((Y))): Y$  Z Z0Z : Z7Z$IPIP(Z): X$  (IP)0 (IP) * : IP(IP,):  $*LOCPRT(,PR)IP: %4IP"":PR : /%>IMLOCPRT(,PR((MOCT)))N%HZ(IM) :Y: X Z%RYY(((IM,X,))((ZX))): X:IPIP(Y0)%\ XZ  :IR(IM,X,):W%f Y :WW(((IR,Y,))((Y))): Y:WW0&pIPIP(W): X: (IP) IP"0": H&z (IP)0 (IP)  : IP(IP,): zb&LOCPRT(,PR)IP: x&IP"":PR: &IMLOCPRT(,PR((MOCT))): IM"OV" IPIM: &Z(IM) :Y: X Z'YY(((IM,X,))((ZX))): X:IPIP(Y0)-' XZ  :IR(IM,X,):We' Y :WW(((IR,Y,))((Y))): Y:WW0'IPIP(W): X: (IP) IP"0": ' (IP)0 (IP)  : IP(IP,): 'LOCPRT(,PR)IP: 'IP"":PR: 3(IMLOCPRT(,PR((MOCT))): IM"OV" IPIM: 8 R(Z(IM) :Y: X Z( YY(((IM,X,))((ZX))): X:IPIP(Y0)( XZ  :IR(IM,X,):W( Y :WW(((IR,Y,))((Y))): Y:WW0)$ IPIP(W): X: (IP) IP"0": 8 K). (IP)0 (IP) 8 : IP(IP,): . e)8 LOCPRT(,PR)IP: {)B IP"":PR: )L Y: X :YY((BIN(X))(X)): X)V BIN()"0" IP"-"((Y),) : IP"+"((Y),)*` LOCPRT(,PR)IP: )*j X :BIN(X)"0": X::: 2*t :G*~ I: I"" ~ M*