10 REM > MkVDU
   20 REM Make a list of VDU statements from font file
   30 :
   40 INPUT "Font file: "in$
   50 in%=OPENIN(in$):IF in%=0:PRINT"File '"in$"' not found":END
   60 INPUT "Start character: "start%
   70 char%=start%:REPEAT
   80   IF start%:PRINT "VDU 23,";char%; ELSE PRINT "VDU ";BGET#in%;",";BGET#in%;
   90   FOR A=1 TO 8:PRINT ",";BGET#in%;:NEXT A:PRINT:char%=char%+1
  100 UNTIL EOF#in%
  110 CLOSE#in%

Download MkVDU

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.