96ca3fe470
* Makefile
* config/*
* contrib/*
* doc/*
* extras/*
* include/*
* lib/*
* package/*
* src/*
* tests/*
* utils/*
* removed empty lines left after removed '$' + 'Id' + '$' identifiers
19 lines
320 B
Plaintext
19 lines
320 B
Plaintext
#require "hbnf"
|
|
|
|
PROCEDURE Main()
|
|
|
|
LOCAL nLoaded := ft_IsShare()
|
|
|
|
DO CASE
|
|
CASE nLoaded == 0
|
|
? "Share not loaded, but ok to load"
|
|
CASE nLoaded == 1
|
|
? "Share not loaded, but NOT ok to load!"
|
|
CASE nLoaded == 255
|
|
? "Share is loaded!"
|
|
ENDCASE
|
|
|
|
? "Retcode: " + Str( nLoaded )
|
|
|
|
RETURN
|