Here you go, wrote it this morning.
imageCount = loadTst("S:\tilesets\rmxp_worldmap1.tst", 1)
pages = imageCount / 180
sync on
DO
cls rgb(0,0,128)
center text 320, 6, "Now viewing page "+str$(page+1)+" of "+str$(pages+1)
center text 320, 24, "Use the left/right arrow keys to flip pages, spacebar to show image numbers"
rem controls to flip through displayed images
if rightkey() = 1 and vkflag = 0
vkflag = 1
inc page
if page > pages then page = pages
endif
if leftkey() = 1 and vkflag = 0
vkflag = 1
dec page
if page < 0 then page = 0
endif
if spacekey() = 1 and vkflag = 0
vkflag = 1
showNo = 1 - showNo
endif
if leftkey()+rightkey()+spacekey() = 0 then vkflag = 0
rem display images
i = page*180
for y = 1 to 10
for x = 0 to 17
inc i
if i <= imageCount
paste image i, 14+x*34, 20+y*36
if showNo = 1 then center text 30+x*34, 22+y*36, str$(i)
else
exit
endif
next x
next y
sync
LOOP
REM +++++++++++++++++++++++++++++++++++++++++++++++++
REM
REM Reads a TST file and extracts its individual
REM tiles into separate images
REM
REM file$ = TST file to load
REM (rpgToolKit tileset)
REM imgOffset = Loads images from tileset starting
REM at this image number
REM Returns = Number of images created from tileset
REM
REM +++++++++++++++++++++++++++++++++++++++++++++++++
function loadTst(file$, imgOffset)
rem if file doesn't exist, exit function
if file exist(file$) = 0 then exitfunction 0
rem memblock number to use to build tiles
mem = 1
rem open the tst file
open to read 1, file$
read word 1, magic
read word 1, tileCount
read word 1, subFormat
rem not a TST file
if magic <> 20 then exitfunction 0
rem verify we load for the correct format
if subFormat = 1
rem tiles are always 32x32 (32*32*4+12)
make memblock mem, 4108
write memblock dword mem, 0, 32
write memblock dword mem, 4, 32
write memblock dword mem, 8, 32
rem loop through all tiles in file
for i = 0 to tileCount-1
for x = 0 to 31
for y = 0 to 31
read byte 1, red
read byte 1, green
read byte 1, blue
pos = ((y*32) + x)*4 + 12
write memblock dword mem, pos, rgb(red, green, blue)
next y
next x
make image from memblock imgOffset+i, mem
next i
endif
rem free up memory and close file
if memblock exist(mem) then delete memblock mem
close file 1
endfunction tileCount

"Any sufficiently advanced technology is indistinguishable from magic" ~ Arthur C. Clarke