Source Code
10 REM %P%E%E%K%E%R% % % % % % % % % % % % % % % % %
20 CLS
30 SLOW
40 PRINT AT 0,12;"PEEKER"
50 PRINT AT 2,0;"ENTER STARTING ADDRESS ";
60 INPUT A
70 PRINT A
80 PRINT "ENTER ENDING ADDRESS ";
90 INPUT B
100 PRINT B
110 PRINT AT 5,0;"DO YOU WANT LISTING IN..."
120 PRINT "1)...DECIMAL"
130 PRINT "2)...HEXADECIMAL"
140 PRINT "3)...CHARACTER$"
150 PRINT AT 10,0;"ENTER SELECTION ";
160 INPUT C
170 IF C<1 OR C>3 THEN GOTO 160
180 PRINT C
190 PRINT AT 12,0;"DO YOU WANT HARD COPY? (Y/N) ";
200 INPUT A$
210 PRINT A$
220 CLS
230 IF C=1 THEN GOTO 260
240 IF C=2 THEN GOTO 340
250 IF C=3 THEN GOTO 470
260 FOR X=A TO B STEP 6
270 PRINT X;TAB 7;PEEK X;TAB 11;PEEK (X+1);TAB 15;PEEK (X+2);TAB 19;PEEK (X+3);TAB 23;PEEK (X+4);TAB 27;PEEK (X+5)
280 IF PEEK 16442>4 THEN GOTO 320
290 PAUSE 300
300 IF A$="Y" THEN COPY
310 CLS
320 NEXT X
325 PAUSE 300
330 IF A$="Y" THEN COPY
335 GOTO 10
340 FOR X=A TO B STEP 8
350 PRINT X;TAB 8;
360 FOR Y=X TO X+7
370 LET Z=PEEK Y
380 PRINT CHR$ (28+INT (Z/16));CHR$ (28+(Z-16*INT (Z/16)));" ";
390 NEXT Y
400 IF PEEK 16442>4 THEN GOTO 440
410 PAUSE 300
420 IF A$="Y" THEN COPY
430 CLS
440 NEXT X
445 PAUSE 300
450 IF A$="Y" THEN COPY
460 GOTO 10
470 FOR X=A TO B STEP 3
480 PRINT X;TAB 7;CHR$ PEEK X;TAB 14;CHR$ PEEK (X+1);TAB 21;CHR$ PEEK (X+2)
490 IF PEEK 16442>4 THEN GOTO 530
500 PAUSE 300
510 COPY
520 CLS
530 NEXT X
540 IF A$="Y" THEN COPY
545 PAUSE 300
550 GOTO 10
560 SAVE "1007%6"
570 RUN
