.type displa.tst
.type *** This routine produces output for the VT100 terminal only
.type *** This routine produces 2 error messages
.;
.;	This test works only with a VT100
.;
.require "vt100"
.ps 20,70,0,0,1 .header spacing 1
.title ^*TEST DISPLAY .LEVELS/CHAPTER/APPENDIX
.subtitle VT-100 ^&ONLY!!!!
.display levels 1 "^&$$DATE " "\&^*"
.display levels 2 "^&$$TIME " "\&^*"
.display levels 3 "^*" "\*^&"
.display levels 4 "^&"
.display levels 5 "^*"
.display levels 6 "" "^*"
.display number 'Pg. ^*-' "-"
.display subpage ll
.style headers ,,,6
.flags substitute
.hl 1 Level 1
Followed by text (underline number,bold title)
.hl 2 Level 2
Followed by text (underline number,bold title)
.hl 3 Level 3
Followed by text (bold number,underline title)
.subpage
.hl 4 Level 4
Followed by text (underline all)
.hl 5 Level 5
Followed by text (bold all)
.end subpage
.hl 6 Level 6
Followed by text (no number, no bold)
.display levels 3"" ""
^& 
.hl 3 Level 3 (underlined)
.nf.define substitute /ABC/This is underlined
$ABC
\&$$DATE $$TIME
.page
.display levels 3 "$"
.type 
.type *** undefined substitution ERROR 1
.hl 3 Level 3 with error in "pre-fix"
.display appendix "^&""APPEN"" "  "\&^*"
.display chapter "^*CHAPTER#"
.chapter Boldface title
This is a line not in boldface ?
.appendix Underlined number/boldface title
This is a line not in boldface ?
.type
.type *** Pre-fix too long ERROR 2
.display appendix "^&APPENDIX "