code:

---

 

IF (instr("-3.6x-","-"+substr(@kix,1,3)+"x-") = 0) AND (instr("-4.x-5.x-6.x-7.x-8.x-9.x-","-"+substr(@kix,1,2)+"x-") = 0)
  IF MessageBox("sorry, your kixtart "+@kix+" release is too old."+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" at least run KiXtart 3.60"+CHR(13)+CHR(10)+CHR(13)+CHR(10)+" please upgrade .","KiXtart "+@kix+" info",4112,300)
  ENDIF
  EXIT
ENDIF
COLOR C+/N
DIM $perf_hits[101]
$perf_cur=    1 gosub "perf_info"  ;Citadel Little Rock default logon script for domain LITTLEROCK
$perf_cur=    2 gosub "perf_info"  ;v2.0 6/24/2002

.....

$perf_cur=  190 gosub "perf_info" :exit
$perf_cur=  191 gosub "perf_info" 
$perf_cur=  192 gosub "perf_info" 
$perf_cur=  193 gosub "perf_info"  QUIT

;($begin)
;
;                       fri 12-jul-2002 08:39:31       (kix 4.10 vs 3.18e)
;
;Informative KIXSTRIP:   no errors found (input=193 output=193 skip=0).
;
;Informative KIXSTRIP:   21 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:    3 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:    4 GOTO
;Informative KIXSTRIP:    1 QUIT
;Informative KIXSTRIP:    2 SHELL
;Informative KIXSTRIP:    6 USE
;
;($end)

:perf_report
 IF (RedirectOutput("") = 0)
 ENDIF
 CLS
 at(2,26) "Kixtart Performance Report "+@kix
 box(3,5,5,75,"single")
 $perf_column=6
 DO
   at(4,$perf_column) " "
   $perf_column=$perf_column+1
 UNTIL ($perf_column >= 75)
 box(7,5,9,75,"single")
 $perf_percentage=((100*$perf_cur)/$perf_stop)
 at(6,30) substr("   ",1,3-len("$perf_percentage")) $perf_percentage " %"
 at(8,26) substr("       ",1,7-len("$perf_cur")) $perf_cur " .. " $perf_stop
 at(8,49) "total lines:  " $perf_total
 $perf_stop_time=@time
 $perf_start_stime=(3600*substr($perf_start_time,1,2)+60*substr($perf_start_time,4,2)+substr($perf_start_time,7,2))
 $perf_stop_stime=(3600*substr($perf_stop_time,1,2)+60*substr($perf_stop_time,4,2)+substr($perf_stop_time,7,2))
 $perf_elapse_time=$perf_stop_stime - $perf_start_stime
 at(4,25) $perf_start_time " .. " $perf_stop_time
 at(4,55) "elapse: " $perf_elapse_time " sec"
 IF ($perf_elapse_time = 0)
   $perf_elapse_time=1
 ENDIF
 at(6,49) "lines/second: " ($perf_total/$perf_elapse_time)
 at(11,0)
 $perf_info="  %% hits  %% hits  %% hits  %% hits  %% hits  %% hits  %% hits  %% hits  %% hits  %% hits"
 $perf_info
 $perf_count1=1
 DO
   $perf_info=""
   $perf_count2=1
   DO
     $perf_hits_pos=$perf_count1+$perf_count2-1
     $perf_hits_value=$perf_hits[$perf_hits_pos]
     $perf_info=$perf_info+substr("   ",1,3-len("$perf_hits_pos"))+$perf_hits_pos
     $perf_info=$perf_info+substr("     ",1,5-len("$perf_hits_value"))+$perf_hits_value
     $perf_count2=$perf_count2+1
   UNTIL ($perf_count2 > 10)
   at(11+$perf_count1/10+1,0) $perf_info
   $perf_count1=$perf_count1+10
 UNTIL ($perf_count1 > 100)
 at(22,0)
 EXIT
:perf_info ; - performance -
 $perf_stop=193
 IF ($perf_cur <= 1)
     $perf_count1=0
     DO
       $perf_hits[$perf_count1]=0
       $perf_count1=$perf_count1+1
     UNTIL ($perf_count1 > 100)
     $perf_start_time=@time
     $perf_total=0
 ENDIF
 $perf_percentage=((100*$perf_cur)/$perf_stop)
 $perf_hits[$perf_percentage]=$perf_hits[$perf_percentage]+1
 $perf_total=$perf_total+1
 RETURN

 

---