Guru
Joined: 07/09/2016
Location: United KingdomPosts: 2133
| Posted: 07:39pm 10 Mar 2025 |
My work was aimed at MicroMites and so I don't think it will be useful to you. I did a lot of work on this to come up with my UBOUND() function
for interest's sake...
and some code that helped
option base 0
dim a$(9)
dim integer fred
const bim=99
fred=1
?
for n=0 to 511 step 16
b$=""
? Hex$(n,4);" ";
for m=0 to 15
q=PEEK(VARTBL, n+m)
? hex$(q,2);" ";
if q<32 or q>126 then q=46
b$=b$+chr$(q)
next
?" ";b$
fred=fred+1:If fred>4 then fred=1:print
next
erase a$
fred=1
?
for n=0 to 511 step 16
b$=""
? Hex$(n,4);" ";
for m=0 to 15
q=PEEK(VARTBL, n+m)
? hex$(q,2);" ";
if q<32 or q>126 then q=46
b$=b$+chr$(q)
next
?" ";b$
fred=fred+1:If fred>4 then fred=1:print
next
dim bb$(5), a$(2)
fred=1
?
for n=0 to 511 step 16
b$=""
? Hex$(n,4);" ";
for m=0 to 15
q=PEEK(VARTBL, n+m)
? hex$(q,2);" ";
if q<32 or q>126 then q=46
b$=b$+chr$(q)
next
?" ";b$
fred=fred+1:If fred>4 then fred=1:print
next
I have discussed this on and off here - just do a search for UBOUND
h
Edited 2025-03-11 05:42 by CaptainBoing