Dear,
Use our tool kixstrip to verify your script.
It points you to all kind of missing or mistyping elements. Af-
ter reformatting the block structure it is also easy to see
what can go wrong.
Something other people doesn't mention was the use of do
as label. Something which is also a reserved keyword within
kixtart language.
With the call kixstrip input.kix output.kix /block_check /show_structure
we get following output
code:
:main
GOSUB time
IF subnet(@ipaddress0,"10.13.0.0","255.255.248.0") = 1
GOSUB
DO
IF subnet(@ipaddress0,"10.13.8.0","255.255.248.0") = 1
GOSUB franklin
IF subnet(@ipaddress0,"10.13.16.0","255.255.248.0") = 1
GOSUB hellyer
IF subnet(@ipaddress0,"10.13.32.0","255.255.248.0") = 1
GOSUB dahl
IF subnet(@ipaddress0,"10.13.40.0","255.255.248.0") = 1
GOSUB kennedy
IF subnet(@ipaddress0,"10.13.48.0","255.255.248.0") = 1
GOSUB losarboles
IF subnet(@ipaddress0,"10.13.56.0","255.255.248.0") = 1
GOSUB meadows
IF subnet(@ipaddress0,"10.13.64.0","255.255.248.0") = 1
GOSUB mckinley
IF subnet(@ipaddress0,"10.13.72.0","255.255.248.0") = 1
GOSUB santee
IF subnet(@ipaddress0,"10.13.80.0","255.255.248.0") = 1
GOSUB seventrees
IF subnet(@ipaddress0,"10.13.88.0","255.255.248.0") = 1
GOSUB stonegate
IF subnet(@ipaddress0,"10.13.96.0","255.255.248.0") = 1
GOSUB sylvandale
IF subnet(@ipaddress0,"10.13.104.0","255.255.248.0") = 1
GOSUB windmill
EXIT 0
:do
IF InGroup("SASI_XP") =1
USE k: "\\fmsd8\sasixp"
ENDIF
IF InGroup("Purchasing") =1
USE l: "\\fmsd6\Purchase"
ENDIF
IF InGroup ("Fiscal") = 1
USE j: "\\fmsd6\business"
ENDIF
IF InGroup ("Business") = 1
USE j: "\\fmsd6\business"
ENDIF
IF InGroup("INDP") = 1
USE s: "\\fmsd6\indsasi"
ENDIF
IF InGroup("Fiscal") = 1
USE i: "\\fmsd6\fiscal"
ENDIF
USE h: @homeshr
USE g: @homeshr
;($begin)
;
; sun 08-dec-2002 22:33:16 (kix 4.10 vs 3.20e)
;
;Informative KIXSTRIP: input=59 output=59 skip=0
;
;Warning KIXSTRIP: 14 errors in block structure(s). missing statement(s).
; -ERROR- - do:until [1:0]
; - for|each:in|to:step|next [0|0:0|0:0|0]
; - function:endfunction [0:0]
; -ERROR- - if:else:endif [19:0:6]
; - select:case:endselect [0:0:0]
; - while:loop [0:0]
;Warning KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP: 20 block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: 2 labels found.
;Summary KIXSTRIP: BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP: 1 EXIT
;Informative KIXSTRIP: 14 GOSUB
;Informative KIXSTRIP: 8 USE
;
;($end)
;($begin)
;
;
;($end)
The tool kixstrip and documentation kixstrip.pdf is available on our site.
greetings.
btw: symbol 
on our homepage has been linked to related http://kixtart.org topic.
