Original Code
Code:
FOR EACH $mac IN $macz
IF $mac>0 AND NOT InStr($mac,"50:50:54")
$pmac = $mac[0]
? $pmac
ENDIF
;($begin)
;
; tue 06-sep-2005 18:53:58 (kix 4.20 vs 4.00e)
;
;Informative KIXSTRIP: input=12 output=12 skip=0
;
;Warning KIXSTRIP: 1 error in block structure. missing statement(s).
; - do:until [0:0]
; -ERROR- - for|each:in|to:step|next [1|1:1|0:0|0]
; - function:endfunction [0:0]
; - if:else:endif [1:0:1]
; - select:case:endselect [0:0:0]
; - while:loop [0:0]
;Warning KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP: 2 block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: no 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
;
;($end)
;($begin)
;
;
;($end)
Changed and updated:
Code:
FOR EACH $mac IN $macz
IF $mac>0 AND NOT InStr($mac,"50:50:54")
$pmac = $mac[0]
? $pmac
ENDIF
NEXT
;($begin)
;
; tue 06-sep-2005 18:55:35 (kix 4.20 vs 4.00e)
;
;Informative KIXSTRIP: no errors found (input=10 output=10 skip=0).
;
;Summary KIXSTRIP: block structures
; - do:until [0:0]
; - for|each:in|to:step|next [1|1:1|0:0|1]
; - function:endfunction [0:0]
; - if:else:endif [1:0:1]
; - select:case:endselect [0:0:0]
; - while:loop [0:0]
;Informative KIXSTRIP: 2 block_structures found.
;Informative KIXSTRIP: no UDF's found.
;Informative KIXSTRIP: no 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
;
;($end)
HTH,
Kent
