code:

---

Function BaseConverter($v,$f,$t)
   $i = len($v)
   $=1.
   Do
      $x = substr($v,$i,1)
      if  $x > 9
         $x = ASC(ucase($x)) - 55
      endif
      $n=$*$x+$n
      $=$*$f
      $i=$i-1
   Until $i=0

   $c=""
   While $n
      $ = INT($n - (INT($n/$t) * $t))
      $n = ($n-$)/$t
      IF $ > 9
         $ = CHR($ + 55)
      ENDIF
      $c = ""+$+"$c"
   Loop
   $BaseConverter = $c
Endfunction
;!
BaseConverter('44680832201',10,36) ?
BaseConverter('52',10,2) ?
BaseConverter('Kixtart',36,10) ?  

---

code:

---

; This function scores the specified file and returns
; the KixGolf score. That is the total number of key strokes
; used to build a script not counting comments, spaces, tabs,
; or any ascii character above 126.
;
; The script will start counting on "odd" (1,3,5,...) occurrances
; of ";!" and the script will not count after "even" (0,2,4,...)
; instances of ";!".
;
;Syntax: %tmp%\kix32 kixgolf.kix $A=Kixgolf.kix
;

Function KixGolf($A)
   if open (1,$A) = 0
      $X=0
      $Q=""
      $C=readLine(1)
      while @error=0
         if instr($C, ";!")>0
            $countem = $countem + 1 & 1
         endif
         If $countem
            $j=len($C) ; Get length of the line
            for $h=1 to $j ; Loop through each character in line
               $D=asc(substr($C,$h,1))
               if $D=34 or $D=39
                  if $Q=""
                     $Q=$D
                  else
                     if $Q=$D
                        $Q=""
                     endif
                  endif
               endif

               if $D=59  ; Ignore comment lines
                  $h=$j  ; Terminate loop
               else
                  if $Q<>""
                     $X=$X+1 ; Count the valid characters
                  else
                     if $D>32 and $D<127
                        $X=$X+1 ; Count the valid characters
                     endif
                  endif
               endif
            next
         endif
         $C=readLine(1)
      loop
   else
      ? "$A ??"                       ; Show bad file name
   endif
   if $Q<>""
      ? "Mis-matched quotes. Probable score error." ?
   endif
   $KixGolf=$X
EndFunction

;$A must be initialized on the command line.
;%tmp%\kix32 kixgolf.kix $A=Kixgolf.kix

? "KixGolf score = " + KixGolf($A)

---

code:

---

? @KIX

; this is a number KiXtart cannot handle as integer
$e=44680832201
? '$$e='+$e

$t=10
? '$$t='+$t

$d=0+$e/$t
? '$$d=0+$$e/$$t='+$d

$d=0.+$e/$t
? '$$d=0.+$$e/$$t='+$d

$e=44680832201.
? '$$e='+$e

$d=0+$e/$t
? '$$d=0+$$e/$$t='+$d

$d=0.+$e/$t
? '$$d=0.+$$e/$$t='+$d

---

code:

---

4.10 Release Candidate 2
$e=1731159241
$t=10
$d=0+$e/$t=173115924
$d=0.+$e/$t=173115924
$e=44680832201
$d=0+$e/$t=0
$d=0.+$e/$t=4468083220.1

---

code:

---

$A=ASC($X)
$A=$A-48-($A>64)*7

---