
10ONERR  GOTO 200
15HOME:? " PARTIAL RAM VIEWER BY:         SYD CARTER  Feb 86"
20?:? "Use arrow keys to scroll along graphical ram view."
25?:? "Use control and up/down arrow  keys to change page in view"
30?:? "GO FOR IT!!!"
35POKE 16149, 255:POKE 16150, 255
40FOR a=1 TO 4000:NEXT
45 x=17002: y=17001
50FOR a=172 TO 204:READ n:POKE a, n:NEXT
55DATA      245,197,213,229
60DATA     1,0,1,33,0,0,17,0,8
65DATA      205,26,253
70DATA       1,0,1,33,0,0,17,0,24 
75DATA      205,26,253
80DATA    225,209,193,241,201
85POKE 171, 0:TEXT
90 a=PEEK(x): b=PEEK(y): pg=0: kp=64885:POKE kp, 0
95 c=PEEK(kp):POKE kp, 0
100IF  NOT c THEN 185
105IF c=3 THEN 200
110IF c=160 THEN  b=b-1
115IF c=161 THEN  a=a+1
120IF c=163 THEN  a=a-1
125IF c=162 THEN  b=b+1
130IF c=164 THEN  pg=pg+1
135IF c=166 THEN  pg=pg-1
140IF a>32 THEN  a=1: b=b+1
145IF a<1 THEN  a=32: b=b-1
150IF b>7 THEN  b=7
155IF b<0 THEN  b=0
160IF pg>255 THEN  pg=0
165IF pg<0 THEN  pg=255
170POKE 181, pg:POKE 193, pg
175 lo=pg*256+(b*32)+a
180POKE x, a:POKE y, b:? "X"
185POKE x, 10:POKE y, 10
190? " location #"; lo; " = "; PEEK(lo)
195GOTO 95
200POKE x, 2:POKE y, 15
210? "Ready to exit. Do you wish the display to remain active? y/n"
220GET a$:IF a$="Y" OR a$="y" THEN ? " type poke 171,201 to disable   the display. Page changes in   poke loc 181 & 193 !!":END
230POKE 171, 201:END

en1 files OK

File Area #7: BASIC Programs --------->  [ ADAM ]
