1,2c1,2
< #! /bin/ksh
< # bubble_sort.ksh
---
> #! /bin/csh -f
> # bubble_sort.csh
8,11c8,11
<     ASIZE=1000
<     IMIN=0
<     IMAX=250
<     SMODE=1
---
>     set ASIZE=1000
>     set IMIN=0
>     set IMAX=250
>     set SMODE=1
13,30c13,30
<     jsize=$ASIZE
<     jmin=$IMIN
<     jmax=$IMAX
<     imode=$SMODE
<     if [[ $# -gt 0 ]]; then        
<         if [[ $# -ge 1 ]]; then 
<           jsize=$1
<         fi
<         if [[ $# -ge 2 ]]; then 
<           jmin=$2
<         fi
<         if [[ $# -ge 3 ]]; then 
<           jmax=$3
<         fi
<         if [[ $# -ge 4 ]]; then 
<           imode=$4
<         fi
<     fi
---
>     set jsize=$ASIZE
>     set jmin=$IMIN
>     set jmax=$IMAX
>     set imode=$SMODE
>     if ($#argv > 0) then
>         if ($#argv >= 1) then
>           set jsize=$1
>         endif
>         if ($#argv >= 2) then
>           set jmin=$2
>         endif
>         if ($#argv >= 3) then
>           set jmax=$3
>         endif
>         if ($#argv >= 4) then
>           set imode=$4
>         endif
>     endif
32c32
<     if [ -f "./mybs.xxx" ]; then
---
>     if (-f "./mybs.xxx") then
34,41c34,42
<         #if ($status != 0) goto error
<         huhzero=`rm -f ./mybs.xxx < ./mybs.xxx`
<         #if ($status != 0) goto error
<     fi
<     cnt=0
<     sarrayn=`date '+%S'`
<     while [[ $cnt -lt $jsize ]]; do
< 	    sarrayn=`echo "${jmin}:${jmax}:${jsize}" | awk -F: -v seed=$sarrayn 'BEGIN{srand(seed);} { print ((rand() * 10000.0) % ($2 + 1 - $1)) + (((rand() * 10000.0) % ($3 + 1)) * 0.0001) + $1; }'`
---
>         if ($status != 0) goto error
>         set huhzero=`rm -f ./mybs.xxx < ./mybs.xxx`
>         if ($status != 0) goto error
>     endif
>     set cnt=0
>     set sarrayn=`date '+%S'`
> tloop:
>     if ($cnt < $jsize) then
> 	    set sarrayn=`echo "${jmin}:${jmax}:${jsize}" | awk -F: -v seed=$sarrayn 'BEGIN{srand(seed);} { print ((rand() * 10000.0) % ($2 + 1 - $1)) + (((rand() * 10000.0) % ($3 + 1)) * 0.0001) + $1; }'`
43,47c44,49
< 	    cnt=`expr $cnt + 1`
< 	    sarrayn=`echo $sarrayn | tr -d '.'`
< 	done
< 	if [[ $imode -eq 0 ]]; then
< 	  huhone=`cat ./mybs.xxx | sort -n | awk '{print "Ascending Number ",NR," ",$1;}' > ./mybs.srt`
---
> 	    @ cnt++
> 	    set sarrayn=`echo $sarrayn | tr -d '.'`
> 	    goto tloop
> 	endif
> 	if ($imode == 0) then
> 	  set huhone=`cat ./mybs.xxx | sort -n | awk '{print "Ascending Number",NR,$1;}' > ./mybs.srt`
49,51c51,53
< 	  huhone=`cat ./mybs.xxx | sort -nr | awk '{print "Descending Number ",NR," ",$1;}' > ./mybs.srt`
< 	fi
<     #if ($status != 0) goto error
---
> 	  set huhone=`cat ./mybs.xxx | sort -nr | awk '{print "Descending Number",NR,$1;}' > ./mybs.srt`
> 	endif
>     if ($status != 0) goto error
53c55
<     if [ -f "./mybs.xxx" ]; then
---
>     if (-f "./mybs.xxx") then
55,59c57,61
<         #if ($status != 0) goto error
<         huhzero=`rm -f ./mybs.xxx < ./mybs.xxx`
<         #if ($status != 0) goto error
<     fi
<     if [ -f "./mybs.srt" ]; then
---
>         if ($status != 0) goto error
>         set huhzero=`rm -f ./mybs.xxx < ./mybs.xxx`
>         if ($status != 0) goto error
>     endif
>     if (-f "./mybs.srt") then
61,65c63,68
<         #if ($status != 0) goto error
<         huhzero=`rm -f ./mybs.srt < ./mybs.srt`
<         #if ($status != 0) goto error
<     fi
<     #if ($status != 0) goto error
---
>         if ($status != 0) goto error
>         set huhzero=`rm -f ./mybs.srt < ./mybs.srt`
>         if ($status != 0) goto error
>     endif
>     if ($status != 0) goto error
> done:
67,69c70,72
< #:done
< #:error
< #     exit 1    
\ No newline at end of file
---
> error:
>      exit 1
>      
\ No newline at end of file