Content
Image Gallery
Peeker
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.