Peeker

Gallery

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