REM SegOne

A$="<fo"
B$=">"
C$="<ex1>"
D$="<ex2>"
E$="<ex4>"
G$="<nh>"
H$="<dh>"
M$=" abcdefghijklmnopqrstuvwxyz 0123456789 "
N$="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
X$=CHR$(13)
J$=C$+G$
K$=D$+H$

REM Get file list
SELECT SEGMENT 2
LOAD TEXT "FileLst"

REM Build up text file in main text
SELECT TEXT
DELETE TEXT

PROCmaketext

SELECT TEXT
CURSOR TOP
DISPLAY
SAVE TEXT "fontdis"

REM Return to WW+ Edit mode.
*FX138,0,27
END

.maketext
 REPEAT
  PROCgetname
  IF Z$="" THEN GOTO endmake
  SELECT TEXT
  TYPE A$+Z$+B$
  TYPE J$+Z$+M$+N$+X$+K$+M$+N$+X$
  DISPLAY
 .endmake
 UNTIL Z$=""
ENDPROC


.getname
 SELECT SEGMENT 2
 Z$=GLT$
 ENDPROC
