Peeker

Date: 198x
Type: Program
Platform(s): TS 1000

Appears on

Assembled by Tim Ward from many sources. Contains programs 10051 – 10121.

Gallery

Peeker

Source Code

  10 INPUT X
  20 SCROLL 
  21 LET H1=INT (X/4096)
  22 LET H2=INT ((X-H1*4096)/256)
  23 LET Y=X-H1*4096-H2*256
  24 LET H3=INT (Y/16)
  25 LET H4=Y-16*H3
  29 LET A$=CHR$ (28+H1)+CHR$ (28+H2)+CHR$ (28+H3)+CHR$ (28+H4)
  30 LET A=PEEK X
  40 PRINT A$;" : ";CHR$ (28+INT (A/16));CHR$ (28+A-(INT (A/16)*16));TAB 31
  45 LET X=X+1
  50 IF INKEY$<>"" THEN GOTO 50
  60 GOTO 20
  70 SAVE "1010%5"
  80 RUN 

People

No people associated with this content.

Scroll to Top