NEW



110 H$="0123456789ABCDEF":B$="AA":X$=B$+B$:B$=INKEY$
130 D=32256
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=D+2:REM PAGE
190 BA=0:POKE30862,D AND255:POKE30863,INT(D/256)
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 E=USR(0):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
270 B$=INKEY$:IFB$<>""THEN270
280 GOTO 200
300 END

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

920 DATA 33,0,0,17,0,112,14,0
930 DATA 126,18,35,19,12,32,249,201, -1
