10 lines
226 B
QBasic
10 lines
226 B
QBasic
Include Once
|
|
|
|
Sub cat( cat_name$ )
|
|
Print""
|
|
Print "---------------------["; UCase$(cat_name$); " Test]---------------------"
|
|
End Sub
|
|
|
|
dash_line$ = "--------------------------------------------------------------------------"
|
|
|