9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
20 lines
321 B
Plaintext
20 lines
321 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
|