12 lines
308 B
Text
12 lines
308 B
Text
Module CheckWord {
|
|
Declare Alfa "WORD.APPLICATION"
|
|
Declare Alfa Nothing
|
|
Print Type$(Alfa)="Nothing"
|
|
Try ok {
|
|
Declare Alfa "WORD.APPLICATION"
|
|
\\ we can't declare again Alfa
|
|
|
|
}
|
|
If Not Ok Then Print Error$ ' return Bad Object declaration
|
|
}
|
|
CheckWord
|