NEW

100 CLEAR400:A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ":A$=A$+A$+A$+"PPP"
110 H$="0123456789ABCDEF":B$="A": B$=INKEY$
115 k=0:x$=" "+" ":e=0:ba=0:c=0:d=0
120 C=VARPTR(A$)
130 D=PEEK(C+2)*256+PEEK(C+3)
135 d=4*4096
140 K=D
150 READ E: IF E= -1 THEN 170
160 POKE K,E:K=K+1:GOTO 150
170 GOSUB 800
190 BA=0
200 POKE D,BA
210 X$=MID$(H$,1+INT(BA/16),1)+MID$(H$,1+INT(BA AND15),1)
220 PRINT@288,"SHOWING $";X$;"00 HIT , OR . OR Q";
230 EXEC (D+2):B$=INKEY$:IF B$="" THEN 230
240 IF B$="." THEN BA = ((BA+1) AND 255)
250 IF B$="," THEN BA = ((BA-1) AND 255)
260 IF B$="Q" THEN PRINT:END
280 GOTO 200
300 END

800 REM 
810 CLS:PRINT"MEMORY DISPLAY (ALICE32)"
820 PRINT"BY JAMES THE ANIMAL TAMER 2006"
830 PRINT:PRINT"ANY KEY TO CONTINUE"
840 B$=INKEY$:IF B$=""THEN840
850 CLS:RETURN

920 DATA 0,0,95,247,64,1,254,64
930 DATA 0,182,191,32,132,128,38,249
940 DATA 166,0,183,191,33,132,128,39
950 DATA 4,134,100,32,2,134,112,183
960 DATA 191,35,134,1,183,191,34,23
970 DATA 68,68,68,68,68,139,9,183
980 DATA 191,38,23,132,31,183,191,39
1000 DATA 134,1,183,191,40,8,92,38
1010 DATA 200,57,-1
