In the not-so distant past a picture viewer was an essential thing
everyone had to download. Look how EASY it is with QB64! 37 lines!
Change the directory to where your picture files are, and "q" to how
many rows per page.
I wanted to post this over in Sample - 2D Graphics, but I can't post there.
_TITLE "Pix" ' Display all the picture files in a directory DIM f$
(2000): xm
= 1280: ym
= 800: p$
= "\pix\cars\": d$
= "temp.dir": c$
= "dir " + p$
+ " > \qb64\" + d$
nf = nf + 1
q
= 10: q
= ym \ q: x1
= (xm
/ q
- INT(xm
/ q
)) * q
/ 2: x
= x1: y
= 0 nextfile: n
= n
+ 1:
IF n
> nf
THEN n
= 1 f$ = p$ + f$(n): t = 0
tryagain:
x = x + q
x = x1: y = y + q