10*|" 20*|" Memory Dump V.1 30*|" 40*|" Written by Alex Savvides 50*|" For 8-Bit Public Domain 60*|" 70*|" A program to display the 80*|" contents of memory 90*|" 100*|" Written : 25/8/91 110*|" 120*|" 130: 140MODE7:VDU23;8202;0;0;0; 150B%=PAGE 160@%=001:J%=255 170PROCtitle 180ONERRORPROCS 190FORadd=B%TO&FFFFSTEP8 200PROCD:NEXT:PRINT'"End of Memory" 210PROCS 220GOTO190 230: 240DEFPROCD 250add$=STR$÷(add) 260add$=STRING$(4-LEN(add$),"0")+add$ 270PRINT;add$;": "; 280FORT=0TO7 290byte=add?T 300byte$=STR$÷(byte) 310byte$=STRING$(2-LEN(byte$),"0")+byt e$ 320PRINT;byte$;" "; 330NEXT:PRINT" ";::FORT=0TO7:byte=add? T 340IFbyte>32ANDbyte<127THENPRINT;CHR$( byte);ELSEPRINT;"."; 350NEXT:PRINT:ENDPROC 360: 370DEFPROCS 380INPUT'" Address (RETURN for PAGE) : &"B$ 390IFB$=""THENB%=PAGE:ENDPROC 400B%=EVAL("&"+B$) 410ENDPROC 420: 430DEFPROCtitle 440FORK=0TO1 450PRINTTAB(0,K);" ";CHR$157;CHR$141" Memory Dump Version 1" 460NEXT 470PRINTSPC(7);" Written by Alex Savvi des" 480PRINTTAB(0,22);" SHIFT - scroll, ES CAPE - change address"; 490PRINTTAB(0,24);" ";CHR$157;" An 8-Bit Public Domain Utility"; 500VDU28,0,20,39,4,14 510ENDPROC