13 lines
308 B
Text
13 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
|