#50794 - 2000-08-08 01:01 AM
Re: KIXTART-TOOL: stripping kix code/reformatting kix code
|
MCA
KiX Supporter
Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
|
Dear,We have make some extension to the earlier version. Some new options
has been add:
- /Debug = insert "line numbers" for each printed line to the output
file. so it is very easily to show which lines are executed or not.
by a correct kixtart script you only runs: kixtart input.kix output.kix
as command.
example:
?"- 1-"
?"-999-"
- /ShowErrors = it insert error messages in the output file. the format
is a kixtart print statement.
examples:
?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"-------> Warning KIXSTRIP: next line incomplete (square brackets)."
?"-------> Warning KIXSTRIP: next line incomplete (single quotation)."
?"-------> Warning KIXSTRIP: next line incomplete (double quotation)."
The help information looks like (kixstrip.exe ?): code:
Kixstrip 3.62 (vs 1.44e) MCA - scripting@wanadoo.nl - 2000
------------------------------------------------------------------------------
kixstrip [input] [output] /Block_Check or /BC
/Combine <-> /NoCombine
/Debug <-> /NoDebug
/License <-> /NoLicense
/License=[var]
/Print <-> /NoPrint
/ShowErrors or /SE <-> /NoShowErrors or /NoSE
/TAB=[num] (default: 4)
?
default: /Combine /License /NoDebug /NoPrint /NoShowErrors
other: /Block_Check /Tab=2 (auto set: /NoCombine /NoLicense /Print )
/Debug (auto set: /NoLicense /Print /ShowErrors ) /Block_Check (reformat kixtart code inc. block structure )
/Combine (combine lines to one line )
/Debug (insert "line numbers" for each printed line )
/Print (do not remove print statements )
/ShowErrors (insert error messages in output file )
Example of kixtart code: code:
$MACADD = @address
$StDir = @startdir
call '01login.kix'
$filename = $INIFILE
$section = 'Survey'
$key = 'StartTime'
$string = $STIME
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key',
'$string')
$key = 'EndTime'
$string = $ETIME
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key',
'$string')
call '02globvar.kix'
call '03ulckdktp.kix'
call '04uaffil.kix'
call '05runmsd.kix'
:readrpt
:checkmac
IF $MACADD = '000000000000'
Select
Case Open(1,'c:\demerge\report.msd') = 0
$line = Readline(1) ;"Physical Station Number: 00CO:4F8C:B1FB"
:again
WHILE @ERROR = 0
SELECT
CASE INSTR($line,"Physical Station Number:")
$MACADD = SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) -
13 , 4 )
$MACADD = $MACADD +
SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 8 , 4 )
$MACADD = $MACADD +
SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 3 , 4 )
close (1)
goto 'contin' CASE INSTR($line,"NetBIOS Card Information:")
$line = Readline(1)
$MACADD = SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) -
11 , 12 )
close (1)
goto 'contin' ENDSELECT
$line = Readline(1)
LOOP
close (1)
$mheader = 'Unable to find MacAddress'
$message = $mheader + Chr(10) + Chr(10)
$message = $message + 'WINIPCFG will be launched.' + Chr(10)
$message = $message + 'Enter MacAddress on the next Survey
Screen'
$selection = MESSAGEBOX($message, $mheader, 16)
RUN 'c:\windows\winipcfg.exe'
:nomac
Color b/n
BOX (8,21,20,61,Å) ; 'shadow' of the box
Color g+/n
BOX (7,20,19,60,FULL) ; 'border of box
$instruct1 = 'Enter "Adapter Address" below'
$instruct2 = 'Example -> 00CO4F8CB1FB
$Selection = 'MAC ADDRESS: '
$LenIns1 = 20 + ((40 - (LEN($instruct1))/2)
$LenIns2 = 20 + ((40 - (LEN($instruct2))/2)
AT(9,$LenIns1) $instruct1
AT(11,24) $instruct2
AT(17,24) $Selection
$x = (LEN($Selection) + 24)
AT(17,$x) Get $Ans
Select
Case LEN($Ans) = 12
$MACADD = $Ans
goto 'contin'
Case LEN($Ans) <> 12
goto 'nomac'
EndSelect
Case Open(1,'c:\demerge\report.msd') <> 0
? "Unable to open 'report.msd'... survey halted!"
get $x
quit
EndSelect
EndIF
:contin
$filename = $INIFILE
$section = 'Computer'
$key = 'MacAddress'
$string = $MACADD
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key',
'$string')
$messenger = 'Credit4Survey'
call 'messenger.kix'
1a. call of kixstrip.exe input.kix output.kix code:
;
; Kixtart 3.62
;
; (c) MCA - scripting@wanadoo.nl - 2000
;
; The software product is protected by copyright laws and
; international copyright treaties, as well as other in-
; tellectual property laws and treaties.
; The SOFTWARE PRODUCT is licensed, not sold.
;
; If you want to use the software for any (new) purpose
; you needs a license agreement, which can only be deli-
; vered by creator and owner of this software.
;
$MACADD=@address $StDir=@startdir call '01login.kix' $filename=$INIFILE $section='Survey' $key='StartTime' $string=$STIME $WriteString=WRITEPROFILESTRING('$filename','$section','$key', '$string') $key='EndTime' $string=$ETIME $WriteString=WRITEPROFILESTRING('$filename','$section','$key', '$string') call '02globvar.kix' call '03ulckdktp.kix' call '04uaffil.kix' call '05runmsd.kix'
:readrpt :checkmac
IF $MACADD='000000000000' Select Case Open(1,'c:\demerge\report.msd')=0 $line=Readline(1)
:again
WHILE @ERROR=0 SELECT CASE INSTR($line,"Physical Station Number:") $MACADD=SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line)))- 13,4) $MACADD=$MACADD+ SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line)))-8,4) $MACADD=$MACADD+ SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line)))-3,4) close(1) goto 'contin' CASE INSTR($line,"NetBIOS Card Information:") $line=Readline(1) $MACADD=SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line)))- 11,12) close(1) goto 'contin' ENDSELECT $line=Readline(1) LOOP close(1) $mheader='Unable to find MacAddress' $message=$mheader+Chr(10)+Chr(10) $message=$message+'WINIPCFG will be launched.'+Chr(10) $message=$message+'Enter MacAddress on the next Survey Screen' $selection=MESSAGEBOX($message,$mheader,16) RUN 'c:\windows\winipcfg.exe'
:nomac
Color b/n BOX(8,21,20,61,Å) Color g+/n BOX(7,20,19,60,FULL) $instruct1='Enter "Adapter Address" below' $instruct2='Example -> 00CO4F8CB1FB $Selection='MAC ADDRESS: ' $LenIns1=20+((40-(LEN($instruct1))/2) $LenIns2=20+((40-(LEN($instruct2))/2) AT(9,$LenIns1)$instruct1 AT(11,24)$instruct2 AT(17,24)$Selection $x=(LEN($Selection)+24) AT(17,$x)Get $Ans Select Case LEN($Ans)=12 $MACADD=$Ans goto 'contin' Case LEN($Ans)<>12 goto 'nomac' EndSelect Case Open(1,'c:\demerge\report.msd')<>0 get $x quit EndSelect EndIF
:contin
$filename=$INIFILE $section='Computer' $key='MacAddress' $string=$MACADD $WriteString=WRITEPROFILESTRING('$filename','$section','$key', '$string') $messenger='Credit4Survey' call 'messenger.kix'
;
; mon 07-aug-2000 22:30:35
;
;Warning KIXSTRIP: 15 lines are incompleted.
1b. output code:
Warning KIXSTRIP: 8 line incompleted.
Warning KIXSTRIP: 9 line incompleted.
Warning KIXSTRIP: 12 line incompleted.
Warning KIXSTRIP: 13 line incompleted.
Warning KIXSTRIP: 28 line incompleted.
Warning KIXSTRIP: 29 line incompleted.
Warning KIXSTRIP: 39 line incompleted.
Warning KIXSTRIP: 40 line incompleted.
Warning KIXSTRIP: 51 line incompleted.
Warning KIXSTRIP: 52 line incompleted.
Warning KIXSTRIP: 61 line incompleted.
Warning KIXSTRIP: 63 line incompleted.
Warning KIXSTRIP: 64 line incompleted.
Warning KIXSTRIP: 88 line incompleted.
Warning KIXSTRIP: 89 line incompleted. input 91 input.kix
output 88 output.kix
-skip- 3
-blocks- 0
-labels- 5 Warning KIXSTRIP: 15 lines are incompleted. /Combine
/License: MCA - scripting@wanadoo.nl - 2000
/NoDebug
/NoPrint
/NoShowErrors
2a. call of kixstrip.exe input.kix output.kix /Block_Check code:
$MACADD = @address
$StDir = @startdir
call '01login.kix'
$filename = $INIFILE
$section = 'Survey'
$key = 'StartTime'
$string = $STIME
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key',
'$string')
$key = 'EndTime'
$string = $ETIME
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key',
'$string')
call '02globvar.kix'
call '03ulckdktp.kix'
call '04uaffil.kix'
call '05runmsd.kix'
:readrpt
:checkmac
IF $MACADD = '000000000000'
Select
Case Open(1,'c:\demerge\report.msd') = 0
$line = Readline(1)
:again
WHILE @ERROR = 0
SELECT
CASE INSTR($line,"Physical Station Number:")
$MACADD = SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) -
13 , 4 )
$MACADD = $MACADD +
SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 8 , 4 )
$MACADD = $MACADD +
SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 3 , 4 )
close (1)
goto 'contin'
CASE INSTR($line,"NetBIOS Card Information:")
$line = Readline(1)
$MACADD = SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) -
11 , 12 )
close (1)
goto 'contin'
ENDSELECT
$line = Readline(1)
LOOP
close (1)
$mheader = 'Unable to find MacAddress'
$message = $mheader + Chr(10) + Chr(10)
$message = $message + 'WINIPCFG will be launched.' + Chr(10)
$message = $message + 'Enter MacAddress on the next Survey
Screen'
$selection = MESSAGEBOX($message, $mheader, 16)
RUN 'c:\windows\winipcfg.exe'
:nomac
Color b/n
BOX (8,21,20,61,Å)
Color g+/n
BOX (7,20,19,60,FULL)
$instruct1 = 'Enter "Adapter Address" below'
$instruct2 = 'Example -> 00CO4F8CB1FB
$Selection = 'MAC ADDRESS: '
$LenIns1 = 20 + ((40 - (LEN($instruct1))/2)
$LenIns2 = 20 + ((40 - (LEN($instruct2))/2)
AT(9,$LenIns1) $instruct1
AT(11,24) $instruct2
AT(17,24) $Selection
$x = (LEN($Selection) + 24)
AT(17,$x) Get $Ans
Select
Case LEN($Ans) = 12
$MACADD = $Ans
goto 'contin'
Case LEN($Ans) <> 12
goto 'nomac'
EndSelect
Case Open(1,'c:\demerge\report.msd') <> 0
? "Unable to open 'report.msd'... survey halted!"
get $x
quit
EndSelect
EndIF
:contin
$filename = $INIFILE
$section = 'Computer'
$key = 'MacAddress'
$string = $MACADD
$WriteString = WRITEPROFILESTRING('$filename', '$section', '$key',
'$string')
$messenger = 'Credit4Survey'
call 'messenger.kix';
; mon 07-aug-2000 22:30:44
;
;Warning KIXSTRIP: 15 lines are incompleted.
2b. output code:
Warning KIXSTRIP: 8 line incompleted.
Warning KIXSTRIP: 9 line incompleted.
Warning KIXSTRIP: 12 line incompleted.
Warning KIXSTRIP: 13 line incompleted.
Warning KIXSTRIP: 28 line incompleted.
Warning KIXSTRIP: 29 line incompleted.
Warning KIXSTRIP: 39 line incompleted.
Warning KIXSTRIP: 40 line incompleted.
Warning KIXSTRIP: 51 line incompleted.
Warning KIXSTRIP: 52 line incompleted.
Warning KIXSTRIP: 61 line incompleted.
Warning KIXSTRIP: 63 line incompleted.
Warning KIXSTRIP: 64 line incompleted.
Warning KIXSTRIP: 88 line incompleted.
Warning KIXSTRIP: 89 line incompleted. input 91 input.kix
output 91 output.kix
block_check block_count=0 label=5 tab=4 (default) Warning KIXSTRIP: 15 lines are incompleted. /BlockCheck
/Combine
/NoDebug
/NoLicense: (not.specified)
/NoShowErrors
/Print
3a. call of kixstrip.exe input.kix output.kix /Debug
the result will show also the deletion of unused spaces. code:
?"- 1-" $MACADD=@address
?"- 2-" $StDir=@startdir
?"- 3-" call '01login.kix'
?"- 4-" $filename=$INIFILE
?"- 5-" $section='Survey'
?"- 6-" $key='StartTime'
?"- 7-" $string=$STIME ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 8-" $WriteString=WRITEPROFILESTRING('$filename','$section','$key', ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 9-" '$string')
?"- 10-" $key='EndTime'
?"- 11-" $string=$ETIME ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 12-" $WriteString=WRITEPROFILESTRING('$filename','$section','$key', ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 13-" '$string')
?"- 14-" call '02globvar.kix'
?"- 15-" call '03ulckdktp.kix'
?"- 16-" call '04uaffil.kix'
?"- 17-" call '05runmsd.kix'
?"- 18-"
:readrpt ?"- 19-"
:checkmac ?"- 20-" IF $MACADD='000000000000'
?"- 21-" Select
?"- 22-" Case Open(1,'c:\demerge\report.msd')=0
?"- 23-" $line=Readline(1)
?"- 24-"
:again ?"- 25-" WHILE @ERROR=0
?"- 26-" SELECT
?"- 27-" CASE INSTR($line,"Physical Station Number:") ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 28-" $MACADD=SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line)))- ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 29-" 13,4)
?"- 30-" $MACADD=$MACADD+
?"- 31-" SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line)))-8,4)
?"- 32-" $MACADD=$MACADD+
?"- 33-" SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line)))-3,4)
?"- 34-" close(1)
?"- 35-" goto 'contin'
?"- 36-" CASE INSTR($line,"NetBIOS Card Information:")
?"- 37-" $line=Readline(1) ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 38-" $MACADD=SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line)))- ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 39-" 11,12)
?"- 40-" close(1)
?"- 41-" goto 'contin'
?"- 42-" ENDSELECT
?"- 43-" $line=Readline(1)
?"- 44-" LOOP
?"- 45-" close(1)
?"- 46-" $mheader='Unable to find MacAddress'
?"- 47-" $message=$mheader+Chr(10)+Chr(10)
?"- 48-" $message=$message+'WINIPCFG will be launched.'+Chr(10) ?"-------> Warning KIXSTRIP: next line incomplete (single quotation)."
?"- 49-" $message=$message+'Enter MacAddress on the next Survey ?"-------> Warning KIXSTRIP: next line incomplete (single quotation)."
?"- 50-" Screen'
?"- 51-" $selection=MESSAGEBOX($message,$mheader,16)
?"- 52-" RUN 'c:\windows\winipcfg.exe'
?"- 53-"
:nomac ?"- 54-" Color b/n
?"- 55-" BOX(8,21,20,61,Å)
?"- 56-" Color g+/n
?"- 57-" BOX(7,20,19,60,FULL)
?"- 58-" $instruct1='Enter "Adapter Address" below' ?"-------> Warning KIXSTRIP: next line incomplete (single quotation)."
?"- 59-" $instruct2='Example -> 00CO4F8CB1FB
?"- 60-" $Selection='MAC ADDRESS: ' ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 61-" $LenIns1=20+((40-(LEN($instruct1))/2) ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 62-" $LenIns2=20+((40-(LEN($instruct2))/2)
?"- 63-" AT(9,$LenIns1)$instruct1
?"- 64-" AT(11,24)$instruct2
?"- 65-" AT(17,24)$Selection
?"- 66-" $x=(LEN($Selection)+24)
?"- 67-" AT(17,$x)Get $Ans
?"- 68-" Select
?"- 69-" Case LEN($Ans)=12
?"- 70-" $MACADD=$Ans
?"- 71-" goto 'contin'
?"- 72-" Case LEN($Ans)<>12
?"- 73-" goto 'nomac'
?"- 74-" EndSelect
?"- 75-" Case Open(1,'c:\demerge\report.msd')<>0
?"- 76-" ?"Unable to open 'report.msd'... survey halted!"
?"- 77-" get $x
?"- 78-" quit
?"- 79-" EndSelect
?"- 80-" EndIF
?"- 81-"
:contin ?"- 82-" $filename=$INIFILE
?"- 83-" $section='Computer'
?"- 84-" $key='MacAddress'
?"- 85-" $string=$MACADD ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 86-" $WriteString=WRITEPROFILESTRING('$filename','$section','$key', ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 87-" '$string')
?"- 88-" $messenger='Credit4Survey'
?"- 89-" call 'messenger.kix' ;
; mon 07-aug-2000 22:30:55
;
;Warning KIXSTRIP: 15 lines are incompleted.
3b. output code:
Warning KIXSTRIP: 8 line incompleted.
Warning KIXSTRIP: 9 line incompleted.
Warning KIXSTRIP: 12 line incompleted.
Warning KIXSTRIP: 13 line incompleted.
Warning KIXSTRIP: 28 line incompleted.
Warning KIXSTRIP: 29 line incompleted.
Warning KIXSTRIP: 39 line incompleted.
Warning KIXSTRIP: 40 line incompleted.
Warning KIXSTRIP: 51 line incompleted.
Warning KIXSTRIP: 52 line incompleted.
Warning KIXSTRIP: 61 line incompleted.
Warning KIXSTRIP: 63 line incompleted.
Warning KIXSTRIP: 64 line incompleted.
Warning KIXSTRIP: 88 line incompleted.
Warning KIXSTRIP: 89 line incompleted. input 91 input.kix
output 89 output.kix
-skip- 2
-blocks- 0
-labels- 5 Warning KIXSTRIP: 15 lines are incompleted. /Combine
/Debug
/NoLicense: (not.specified)
/Print
/ShowErrors
4a. call of kixstrip.exe input.kix output.kix /Block_Check /Debug
the result will show that unused spaces aren't deleted, because
the selected option was /Block_Check. code:
?"- 1-" $MACADD = @address
?"- 2-" $StDir = @startdir
?"- 3-" call '01login.kix'
?"- 4-" $filename = $INIFILE
?"- 5-" $section = 'Survey'
?"- 6-" $key = 'StartTime'
?"- 7-" $string = $STIME?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 8-" $WriteString = WRITEPROFILESTRING('$filename', '$section', '$key', ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 9-" '$string')
?"- 10-" $key = 'EndTime'
?"- 11-" $string = $ETIME ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 12-" $WriteString = WRITEPROFILESTRING('$filename', '$section', '$key', ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 13-" '$string')
?"- 14-" call '02globvar.kix'
?"- 15-" call '03ulckdktp.kix'
?"- 16-" call '04uaffil.kix'
?"- 17-" call '05runmsd.kix'
?"- 18-" :readrpt
?"- 19-" :checkmac
?"- 20-" IF $MACADD = '000000000000'
?"- 21-" Select
?"- 22-" Case Open(1,'c:\demerge\report.msd') = 0
?"- 23-" $line = Readline(1)
?"- 24-" :again
?"- 25-" WHILE @ERROR = 0
?"- 26-" SELECT
?"- 27-" CASE INSTR($line,"Physical Station Number:") ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 28-" $MACADD = SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 29-" 13 , 4 )
?"- 30-" $MACADD = $MACADD +
?"- 31-" SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 8 , 4 )
?"- 32-" $MACADD = $MACADD +
?"- 33-" SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - 3 , 4 )
?"- 34-" close (1)
?"- 35-" goto 'contin'
?"- 36-"
?"- 37-" CASE INSTR($line,"NetBIOS Card Information:")
?"- 38-" $line = Readline(1) ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 39-" $MACADD = SUBSTR(LTRIM(RTRIM($line)),LEN(LTRIM(RTRIM($line))) - ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 40-" 11 , 12 )
?"- 41-" close (1)
?"- 42-" goto 'contin'
?"- 43-"
?"- 44-" ENDSELECT
?"- 45-" $line = Readline(1)
?"- 46-" LOOP
?"- 47-" close (1)
?"- 48-" $mheader = 'Unable to find MacAddress'
?"- 49-" $message = $mheader + Chr(10) + Chr(10)
?"- 50-" $message = $message + 'WINIPCFG will be launched.' + Chr(10) ?"-------> Warning KIXSTRIP: next line incomplete (single quotation)."
?"- 51-" $message = $message + 'Enter MacAddress on the next Survey ?"-------> Warning KIXSTRIP: next line incomplete (single quotation)."
?"- 52-" Screen'
?"- 53-" $selection = MESSAGEBOX($message, $mheader, 16)
?"- 54-" RUN 'c:\windows\winipcfg.exe'
?"- 55-" :nomac
?"- 56-" Color b/n
?"- 57-" BOX (8,21,20,61,Å)
?"- 58-" Color g+/n
?"- 59-" BOX (7,20,19,60,FULL)
?"- 60-" $instruct1 = 'Enter "Adapter Address" below' ?"-------> Warning KIXSTRIP: next line incomplete (single quotation)."
?"- 61-" $instruct2 = 'Example -> 00CO4F8CB1FB
?"- 62-" $Selection = 'MAC ADDRESS: ' ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 63-" $LenIns1 = 20 + ((40 - (LEN($instruct1))/2) ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 64-" $LenIns2 = 20 + ((40 - (LEN($instruct2))/2)
?"- 65-" AT(9,$LenIns1) $instruct1
?"- 66-" AT(11,24) $instruct2
?"- 67-" AT(17,24) $Selection
?"- 68-" $x = (LEN($Selection) + 24)
?"- 69-" AT(17,$x) Get $Ans
?"- 70-" Select
?"- 71-" Case LEN($Ans) = 12
?"- 72-" $MACADD = $Ans
?"- 73-" goto 'contin'
?"- 74-" Case LEN($Ans) <> 12
?"- 75-" goto 'nomac'
?"- 76-" EndSelect
?"- 77-" Case Open(1,'c:\demerge\report.msd') <> 0
?"- 78-" ? "Unable to open 'report.msd'... survey halted!"
?"- 79-" get $x
?"- 80-" quit
?"- 81-" EndSelect
?"- 82-" EndIF
?"- 83-" :contin
?"- 84-" $filename = $INIFILE
?"- 85-" $section = 'Computer'
?"- 86-" $key = 'MacAddress'
?"- 87-" $string = $MACADD ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 88-" $WriteString = WRITEPROFILESTRING('$filename', '$section', '$key', ?"-------> Warning KIXSTRIP: next line incomplete (parenthesis)."
?"- 89-" '$string')
?"- 90-" $messenger = 'Credit4Survey'
?"- 91-" call 'messenger.kix' ;
; mon 07-aug-2000 22:42:43
;
;Warning KIXSTRIP: 15 lines are incompleted.
4b. output code:
Warning KIXSTRIP: 8 line incompleted.
Warning KIXSTRIP: 9 line incompleted.
Warning KIXSTRIP: 12 line incompleted.
Warning KIXSTRIP: 13 line incompleted.
Warning KIXSTRIP: 28 line incompleted.
Warning KIXSTRIP: 29 line incompleted.
Warning KIXSTRIP: 39 line incompleted.
Warning KIXSTRIP: 40 line incompleted.
Warning KIXSTRIP: 51 line incompleted.
Warning KIXSTRIP: 52 line incompleted.
Warning KIXSTRIP: 61 line incompleted.
Warning KIXSTRIP: 63 line incompleted.
Warning KIXSTRIP: 64 line incompleted.
Warning KIXSTRIP: 88 line incompleted.
Warning KIXSTRIP: 89 line incompleted. input 91 input.kix
output 91 output.kix
block_check block_count=0 label=5 tab=4 (default) Warning KIXSTRIP: 15 lines are incompleted. /BlockCheck
/Combine
/Debug
/NoLicense: (not.specified)
/Print
/ShowErrors
/TAB=4
Each reaction of remark is welcome.
greetings.
|
|
Top
|
|
|
|
Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart
|
0 registered
and 611 anonymous users online.
|
|
|
