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 :
  140 MODE7:VDU23;8202;0;0;0;
  150 B%=PAGE
  160 @%=001:J%=255
  170 PROCtitle
  180 ONERRORPROCS
  190 FORadd=B%TO&FFFFSTEP8
  200 PROCD:NEXT:PRINT'"End of Memory"
  210 PROCS
  220 GOTO190
  230 :
  240 DEFPROCD
  250 add$=STR$~(add)
  260 add$=STRING$(4-LEN(add$),"0")+add$
  270 PRINT;add$;":�";
  280 FORT=0TO7
  290 byte=add?T
  300 byte$=STR$~(byte)
  310 byte$=STRING$(2-LEN(byte$),"0")+byte$
  320 PRINT;byte$;" ";
  330 NEXT:PRINT"�";::FORT=0TO7:byte=add?T
  340 IFbyte>32ANDbyte<127THENPRINT;CHR$(byte);ELSEPRINT;".";
  350 NEXT:PRINT:ENDPROC
  360 :
  370 DEFPROCS
  380 INPUT'"�Address (RETURN for PAGE) :&"B$
  390 IFB$=""THENB%=PAGE:ENDPROC
  400 B%=EVAL("&"+B$)
  410 ENDPROC
  420 :
  430 DEFPROCtitle
  440 FORK=0TO1
  450 PRINTTAB(0,K);"�";CHR$157;CHR$141"�       Memory Dump Version 1"
  460 NEXT
  470 PRINTSPC(7);"�Written by Alex Savvides"
  480 PRINTTAB(0,22);"�SHIFT - scroll, ESCAPE - change address";
  490 PRINTTAB(0,24);"�";CHR$157;"�   An 8-Bit Public Domain Utility";
  500 VDU28,0,20,39,4,14
  510 ENDPROC