NEW

100 A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ":A$=A$+"PP"
110 H$="0123456789ABCDEF":B$="A": B$=INKEY$
120 C=VARPTR(A$)
130 D=PEEK(C+2)*256+PEEK(C+3)
140 K=D
150 READ E: IF E= -1 THEN 170
160 POKE K,E:K=K+1:GOTO 150
170 GOSUB 800
180 M=16384+256
190 BA=0
200 POKE M,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: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 (4K IS OKAY)"
820 PRINT"BY JAMES THE ANIMAL TAMER 2004"
830 PRINT:PRINT"ANY KEY TO CONTINUE"
840 B$=INKEY$:IF B$=""THEN840
850 CLS:RETURN

920 DATA 95,247,65,1,254,65,0,166,0
930 DATA 60,206,64,0,58,167,0,56,8,92,38,242,57,-1
