9967 STOP
\n9968 PRINT AT 7,4;"PEEK PROGRAM RJV 4/25/85"
\n9969 PRINT ,,"A TO INPUT NEW ADDRESS"
\n9970 PRINT "B TO RETURN TO BASIC"
\n9971 PRINT "M TO PAUSE "
\n9972 PRINT "P TO RETURN MAIN PROGRAM MENU"
\n9973 PRINT "S TO SAVE "
\n9974 PRINT ,,"AFTER PAUSE PRESS ANY KEY EXCEPT A/B/M/P OR S TO CONT "
\n9975 SLOW
\n9976 PRINT AT 18,0;" INPUT START ADDRESS "
\n9977 PRINT AT 20,0;"ADDRESS DEC","CHR$ "
\n9978 INPUT P
\n9979 IF P>65535 THEN GOTO 9978
\n9980 PRINT P;TAB 9;PEEK P,CHR$ PEEK P
\n9981 SCROLL
\n9982 LET P=P+1
\n9983 IF INKEY$="A" THEN GOTO 9978
\n9984 IF INKEY$="B" THEN GOTO 9989
\n9985 IF INKEY$="M" THEN PAUSE 4E4
\n9986 IF INKEY$="P" THEN GOTO MENU
\n9987 IF INKEY$="S" THEN GOTO 9992
\n9988 GOTO 9980
\n9989 CLS
\n9990 LIST 9967
\n9991 STOP
\n9992 CLS
\n9993 PRINT TAB 9;"START RECORDER"," INPUT FILE NAME",TAB 15;" OR ","ENTER TO SAVE PEEK"
\n9994 INPUT S$
\n9995 IF S$="" THEN LET S$="PEEK"
\n9996 SAVE S$
\n9997 PRINT USR 8297;" BYTES OF MEMORY LEFT"
\n9998 IF S$="PEE%K" THEN GOTO 9968
\n9999 GOTO MENU
