: PEEK.BAS by Jack Thompson, Copyright 1986: From Heath Users Group SIG courtesy Jack Thompson( this program will dump selected sectionsO of memory on the computer screenW ]r "utility.lib"x%& get the segment address for the dump(2 "Enter Segment address in hex (0000 to FFFF):";< SEGMENT$ F (SEGMENT$)  : (" P I% ; ZC$(SEGMENT$,I%,)j d C$ "a" C$"f" C$((C$) ) n(SEGMENT$,I%,)C$ x (SEGMENT$,I%,) "0" : ( (SEGMENT$,I%,) "F" : ( (SEGMENT$,I%,) "9" (SEGMENT$,I%,) "A" : ( I%" Q get the offset address to start the dumpW "Enter OFFSET address in hex (0000 to FFFF):"; OFFSET$ (OFFSET$)  : ( I%  C$(OFFSET$,I%,) C$ "a" C$"f" C$((C$) ), (OFFSET$,I%,)C$R (OFFSET$,I%,) "0" : (z (OFFSET$,I%,) "F" : (  (OFFSET$,I%,) "9" (OFFSET$,I%,) "A" : (  I%   print the values in on the screen . "SEGMENT%("&H"SEGMENT$): OFFSET%("&H"OFFSET$)F ,LINEB$"":LINEC$"" 6LINEB$LINEB$ SEGMENT$":"("0000"(OFFSET%),)" " @ I%  J RPEEK(SEGMENT%,OFFSET%,BYTE%) TLINEB$LINEB$("00"(BYTE%),)" " ^CHAR$(BYTE% )$ h CHAR$ " " CHAR$ "~" |2 rCHAR$"."J |LINEC$LINEC$CHAR$p  OFFSET% OFFSET% :  OFFSET%OFFSET%  I% LINEB$LINEB$" "LINEC$  MODE%  LINEB$:   #,LINEB$  OFFSET%  ,