How to find SMSQ/E modules

I'm not certain where I found this program but I suspect it was from somewhere on Dilwyn Jones QL site http://www.dilwyn.me.uk/. It was written by Tony Tebby and was embedded in a document explaining the modular structure of smsqe:

Scanning an SMSQ OS File:

An SMSQ file can be scanned fairly easily with a simple SBASIC
program:

l00 REMark - scan bootloader file
110 DIM version$(4): version$(0)=4
120 OPEN #0,CON: CLS: BORDER 1,4
130 height = 17
140 INPUT 'SMSQ file>';f$
150 OPEN IN #3,f$
160 fln = FLEN(#3)
170 LGET #3\fln-$18+$4,mod_ptr : REMark - get length of host module
180 LGET #3\fln-$18+$14,bln    : REMark - length of bootloader file
190 IF bln: mod_ptr = mod_ptr + fln - bln
200 FOR i=1 to 9999
210   LGET #3\(mod_ptr),mbase,mlength
220   IF NOT mbase: EXIT              : REMark - end of file
230   IF NOT i mod height: INPUT a$;  : REMark - pause at screen full
240   WGET#3\(mod_ptr+$16),name_rel: REMark - relative pointer to name
250   GET#3\(mod_ptr+$16+name rel),name$  : REMark - fetch module name
260   IF LEN (name$)&&1: BGET#3,a : REMark - odd length name is padded
270   BGET #3,version$(1 TO 4)    : REMark - get version, if any
280   PRINT HEX$(mlength,24) !! version$ ! name$
290   mod_ptr = mod_ptr + mbase + mlength
300 END FOR i
310 CLOSE #3
320 INPUT a$

This will print the index (in hex), the version and the name of all except the host module.

This is the typical output of the file. Now here is a first pass improved version of the program.

100 REMark - scan bootloader file
110 DIM version$(4): version$(0)=4
120 OPEN #0,CON_512x420a20x16: CLS: BORDER 1,4
130 height = 52 : DIM d$(height,84) : pg=1
140 INPUT 'SMSQ file>';f$ : IF f$="":QUIT
150 OPEN_IN #3,f$
160 fln = FLEN(#3) : PRINT#0,CHR$(10)&HEX$(fln,32)&" length of file"&CHR$(10)
170 LGET #3\fln-$18+$4,mod_ptr : REMark - get length of host module
175 PRINT#0,HEX$(mod_ptr,32)&" length of host module"&CHR$(10)
180 LGET #3\fln-$18+$14,bln    : REMark - length of bootloader file
185 PRINT#0,HEX$(bln,32)&" length of bootloader file"&CHR$(10)
190 IF bln: mod_ptr = mod_ptr + fln - bln
200 FOR i=1 to 9999
210   LGET #3\(mod_ptr),mbase,mlength
220   IF NOT mbase: EXIT              : REMark - end of file
230   IF NOT i mod height: Inc : pg=pg+1 : INPUT a$;  : REMark - pause at screen full
240   WGET#3\(mod_ptr+$16),name_rel: REMark - relative pointer to name
250   GET#3\(mod_ptr+$16+name_rel),name$  : REMark - fetch module name
260   IF LEN (name$)&&1: BGET#3,a : REMark - odd length name is padded
270   BGET #3,version$(1 TO 4)    : REMark - get version, if any
280   PRINT HEX$(mod_ptr,32) !!!! HEX$(mlength,24) !! version$ ! name$
285   d$(i)=HEX$(mod_ptr,32)&"    "&HEX$(mlength,24)&"  "&version$&" "&name$
290   mod_ptr = mod_ptr + mbase + mlength
300 END FOR i
310 CLOSE #3 : PRINT#0,CHR$(10)&HEX$(mod_ptr,32)&" end of file"
320 PRINT#0,\"Save data as text file (S/s) or Quit program"
330 in=INKEY$(#0,-1) INSTR 'SsQq'&CHR$(27): REMark wait to close program
340 SELect on in
350   =1,2 : INPUT 'save file name>';sf$ : IF sf$="":QUIT
360   =Remainder : QUIT
370 END SELect
380 OPEN_NEW#3,sf$ : PRINT#3,f$\\HEX$(fln,32)&" length of file"&CHR$(10)
390 FOR i=1 TO height : IF d$(i)<>"": PRINT#3,d$(i) : END FOR i
400 PRINT#3,\\HEX$(mod_ptr,32)&" end of file"
410 CLOSE#3 : QUIT
420 :
430 DEFine PROCedure Inc
440   LOCal z$(height*pg),j
450   FOR j=1 TO height*pg : z$(j)=d$(j)
460   DIM d$(height*pg)
470   FOR j=1 TO height*pg :d$(j)=z$(j)
480 END DEFine

 This gives more useful information and now gives an option to save the screen output to a text file.