\ON KEY F2 JUMP SETMODE
\ON KEY F9 JUMP ENDIT
\ON KEY F10 JUMP MAINSCREEN
\X MAINSCREEN\WIDTH 320 DOTS
\SCREEN 0,0,4\READ /P11/FONTS/FONT04/081104PW.FON\CLEAR SCREEN
\LOCATE 0,170\WIDTH 320 DOTS\HEIGHT 199\OVERLAY 0,A,2
F2--NEW MODE   F9--END   F10--MAIN MENU
\LOC 0,0\WID 320 DOTS\HEI 199\OVER 0,A,1
This program will display all the fonts:
\"
The fonts are for screen modes:
4 4-color mode (includes mode 5)
6 2-color    (CGA)
9 16-color   (TANDY/TECMAR ONLY)
10 4-color   (TANDY/TECMAR ONLY)
13 16-color  (EGA)
14 16-color  (TANDY/TECMAR ONLY)
16 16-color  (EGA)
17 2-color   (VGA)
18 16-color  (VGA)
19 256-color (VGA)
\"
Scroll through, or press <F2> and the mode #.
\ON KEY F2 JUMP SETMODE
\WAIT RETURN -1
\LOC 0,0
Most fonts are named with a 6-number
prefix consisting of the x-axis width,
the y-axis width, and the mode number,
each 2 digits.
Next is a one-character code indicating
whether the font is proportional (P) or
non-proportional (N).  Non-proportional
fonts can be displayed much faster than
proportional ones but generally do not
look as nice.  For proportional fonts
the x-axis width is generally the width
of the widest character (usually W).
This is only a naming style, not a rule.
\"
\WAIT RETURN -1\LOC 0,0
The last character is the color, which is
normally white (W). Other colors and
backgrounds can be made during display
time by using a code in the \OVER,
\"\SCROLL, and \CRAWL commands.
\"
For bitplane fonts (modes 13, 16 and 18)
the font must be created as a bitmapped
font in a monochrome mode (such as mode
17 or 6) and then the mode number should 
be changed inside the file header (see
the technical documentation for details
on how to do this.)
\"
\WAIT RETURN -1\JUMP MODE4\X SETMODE
\CLEAR SCREEN\LOC 0,0\WID 300 DOTS\OVER 0\HEI 99
ENTER MODE #: (4,5,6,9,10,13,14,16,17,18,19)
\CURSOR 8,8\QUESTION M
\ON KEY F1 JUMP MAINSCREEN
\ON KEY F2 JUMP SETMODE
\ON KEY F9 JUMP ENDIT
\ON KEY F10 JUMP MAINSCREEN
\IF M<=5\JUMP MODE4\ELSE\IF M<=6\JUMP MODE6\ELSE\IF M<=9\JUMP MODE9\ELSE
\IF M<=10\JUMP MODE10\ELSE\IF M<=13\JUMP MODE13\ELSE
\IF M<=14\JUMP MODE14\ELSE\IF M<=16\JUMP MODE16\ELSE
\IF M<=17\JUMP MODE17\ELSE\IF M<=18\JUMP MODE18\ELSE
\IF M<=19\JUMP MODE19\ELSE
\BEEP 55,55\BEEP 777,444\JUMP SETMODE\ENDIF
\X MODE4\BLANK 0,0,640,169
\LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
\READ /P11/FONTS/FONT04/081104NW.FON
This is 081104NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT04/081104PW.FON
This is 081104PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT04/162004NW.FON
This is 162004NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT04/162004PW.FON
This is 162004PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT04/222904NG.FON
This is 222904NG.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT04/242904NW.FON
This is 242904NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT04/242904PW.FON
This is 242904PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT04/XMASSHOW.FON
This is XMASSHOW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT04/SNOWRD04.FON
This is SNOWRD04.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT04/SMALLGRN.FON
This is SMALLGRN.FON.
\CALL TXTLNS
\X MODE6\SCREEN 1,1,6
\READ /P11/FONTS/FONT06/081106NW.FON
\LOC 0,170\WID 640 DOTS\HEIGH 14\OVER 0,A,1
F2--NEW MODE   F9--END   F10--MAIN MENU
\LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
\READ /P11/FONTS/FONT06/081106NW.FON
This is 081106NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT06/081106PW.FON
This is 081106PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT06/161506NW.FON
This is 161506NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT06/162006NW.FON
This is 162006NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT06/162006PW.FON
This is 162006PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT06/242206PW.FON
This is 242206PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT06/242906NW.FON
This is 242906NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT06/242906PW.FON
This is 242906PW.FON.
\CALL TXTLNS
\X MODE9\ON ERROR JUMP MODE17\SCREE 0,0,9\ON ERROR
\WID 320 DOTS
\READ /P11/FONTS/FONT09/081109NW.FON
\LOC 0,170\WID 320 DOTS\HEIGH 14\OVER 0,A,1
F2--NEW MODE   F9--END   F10--MAIN MENU
\LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
\READ /P11/FONTS/FONT09/081109NW.FON
This is 081109NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT09/081109PW.FON
This is 081109PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT09/162009NW.FON
This is 162009NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT09/162009PW.FON
This is 162009PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT09/242909NW.FON
This is 242909NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT09/242909PW.FON
This is 242909PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT09/SNOWRD09.FON
This is SNOWRD09.FON.
\CALL TXTLNS
\X MODE10\ON ERROR JUMP MODE14\SCREE 0,0,10\ON ERROR
\WID 640 DOTS
\READ /P11/FONTS/FONT10/081110NW.FON
\LOC 0,170\WID 640 DOTS\HEIGH 14\OVER 0,A,1
F2--NEW MODE   F9--END   F10--MAIN MENU
\LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
\READ /P11/FONTS/FONT10/081110NW.FON
This is 081110NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT10/081110PW.FON
This is 081110PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT10/162010NW.FON
This is 162010NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT10/162010PW.FON
This is 162010PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT10/242910NW.FON
This is 242910NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT10/242910PW.FON
This is 242910PW.FON.
\CALL TXTLNS
\X MODE13\ON ERROR JUMP MODE14\SCREE 0,0,13\ON ERROR
\READ /P11/FONTS/FONT13/081113NW.FON\WAIT RET 2
\LOC 0,170\WID 320 DOTS\HEIGH 11\OVER 0,A,1
F2--NEW MODE   F9--END   F10--MAIN MENU
\LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
\READ /P11/FONTS/FONT13/081113NW.FON
This is 081113NW.FON.
\CALL TXTLNS
\READ /P11/FONTS/FONT13/081113PW.FON
This is 081113PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT13/242213PW.FON
This is 242213PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT13/242913PW.FON
This is 242913PW.FON.
\CALL TXTLNS
\X MODE14\ON ERROR JUMP MODE16\SCREE 0,0,14\ON ERROR
\READ /P11/FONTS/FONT14/081114NW.FON\WAIT RET 2
\LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
F2--NEW MODE   F9--END   F10--MAIN MENU
\LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
\READ /P11/FONTS/FONT14/081114NW.FON
This is 081114NW.FON.
\CALL TXTLNS
\READ /P11/FONTS/FONT14/081114PW.FON
This is 081114PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT14/242214PW.FON
This is 242214PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT14/242914PW.FON
This is 242914PW.FON.
\CALL TXTLNS
\X MODE16\ON ERROR JUMP MODE17\SCREE 0,0,16\ON ERROR
\READ /P11/FONTS/FONT16/081116NW.FON
\LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
F2--NEW MODE   F9--END   F10--MAIN MENU
\LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
\READ /P11/FONTS/FONT16/081116NW.FON
This is 081116NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT16/081116PW.FON
This is 081116PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT16/162016NW.FON
This is 162016NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT16/162016PW.FON
This is 162016PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT16/242016NW.FON
This is 242016NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT16/242916NW.FON
This is 242916NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT16/242916PW.FON
This is 242916PW.FON.
\CALL TXTLNS
\X MODE17\ON ERROR JUMP MODE18\SCREE 0,0,17\ON ERROR
\READ /P11/FONTS/FONT17/081117NW.FON
\LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
F2--NEW MODE   F9--END   F10--MAIN MENU
\LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
\READ /P11/FONTS/FONT17/081117NW.FON
This is 081117NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT17/081117PW.FON
This is 081117PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT17/162017NW.FON
This is 162017NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT17/162017PW.FON
This is 162017PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT17/242017NW.FON
This is 242017NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT17/242917NW.FON
This is 242917NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT17/242917PW.FON
This is 242917PW.FON.
\CALL TXTLNS
\X MODE18\ON ERROR JUMP MODE19\SCREE 0,0,18\ON ERROR
\READ /P11/FONTS/FONT18/081118NW.FON
\LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
F2--NEW MODE   F9--END   F10--MAIN MENU
\LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
\READ /P11/FONTS/FONT18/081118NW.FON
This is 081118NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT18/081118PW.FON
This is 081118PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT18/162018NW.FON
This is 162018NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT18/162018PW.FON
This is 162018PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT18/242018NW.FON
This is 242018NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT18/242918NW.FON
This is 242918NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT18/242918PW.FON
This is 242918PW.FON.
\CALL TXTLNS
\X MODE19\WID 320 DOTS
\ON ERROR JUMP MAINSCREEN\SCREEN 0,0,19\ON ERROR
\READ /P11/FONTS/FONT19/081119NW.FON
\LOC 0,170\WID 320 DOTS\HEIGH 14\OVER 0,A,1
F2--NEW MODE   F9--END   F10--MAIN MENU
\LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
\READ /P11/FONTS/FONT19/081119NW.FON
This is 081119NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT19/081119PW.FON
This is 081119PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT19/162019NW.FON
This is 162019NW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT19/162019PW.FON
This is 162019PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT19/242919PW.FON
This is 242919PW.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT19/SNOWRD19.FON
This is SNOWRD19.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT19/162019YE.FON
This is 162019YE.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT19/162019GD.FON
This is 162019GD.FON.
\CALL TXTLNS\READ /P11/FONTS/FONT19/FONT_USA.FON
This is FONT_USA.FON.
\CALL TXTLNS
\JUMP MAINSCREEN
\X TXTLNS\LOC 0,60\HEI 100\SCROLL 1
the quick brown fox jumps over the lazy dog.
THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.
~1234568790-=\[];',./
`!@#$%^&*()_+|{}:"<>?
\WAIT RETURN -1\BLANK 0,0,640,168\LOC 0,0\OVER 0\HEI 199
\RETURN
\X ENDIT\END