0 PRINT"[147]":POKE53281,11:POKE53280,11:POKE646,1:PRINT" ** SIMPLE BASIC MEMORY DISPLAY ** [146]":PRINT"FOR THOSE WITHOUT A MONITOR, HERE IS A":PRINT"BASIC PROGRAM TO DISPLAY MEMORY BYTES.":PRINT"IT WILL GIVE YOU SOME IDEA OF HOW THE":PRINT"COMPUTER STORES DATA."
1 PRINT"FOR INSTANCE : INPUT 2048 TO ABOUT 2600":PRINT"TO SEE THIS PROGRAM AND WHAT IT LOOKS":PRINT"LIKE.":PRINT"PRESS ANY KEY TO SEE EACH LINE OF BYTES":PRINT"WHILE WITHIN DISPLAY MODE.":PRINT"MESSAGE WILL SAY WHEN YOU ARE FINISHED.":PRINT"[153] PRESS ANY KEY [146]"
2 GETA$:IFA$=""THEN2
3 POKE53280,0:PRINT"[147]":PRINT"PLEASE ENTER START ADDRESS IN DECIMAL"
4 INPUT"START ADDRESS ";SA:IFSA<0THEN4
5 PRINT"PLEASE ENTER END ADDRESS IN DECIMAL"
6 INPUT"END ADDRESS ";EA:IFEA>65535THEN6
7 IFEA<SATHEN3
8 PRINT"[147]":FORCT=SATOEASTEP8:ZZ=CT:GOSUB15:FORTC=CTTOCT+7:ZZ=PEEK(TC):GOSUB16:PRINTZZ$;" ";:NEXTTC:PRINT" ";:AA$="":FORTC=CTTOCT+7:ZZ=PEEK(TC):IFZZ<32ORZZ>95THENAA$=AA$+".":GOTO10
9 AA$=AA$+CHR$(ZZ)
10 NEXTTC:PRINTAA$
11 GETA$:IFA$=""THEN11
12 NEXTCT:PRINT">>  END OF DISPLAY [146]":FORDE=0TO2000:NEXT:PRINT"[153][153] PRESS ANY KEY [146]"
13 GETA$:IFA$=""THEN13
14 GOTO3
15 HB=INT(ZZ/256):LB=CT-HB*256:ZZ=HB:GOSUB16:PRINTZZ$;:ZZ=LB:GOSUB16:PRINTZZ$;" ";:RETURN
16 Z1=INT(ZZ/16):Z2=ZZ-Z1*16:ZZ$=CHR$(Z1+48-7*(Z1>9))+CHR$(Z2+48-7*(Z2>9)):RETURN