Include Once

Sub cat( cat_name$ )
	Print""
	Print "---------------------["; UCase$(cat_name$); " Test]---------------------"
End Sub

dash_line$ = "--------------------------------------------------------------------------"