Formatting numbers as currency - Page 2

The bulk of the script is attached to the "input price" button, but it can be transferred to a frame action as well.

The full text conversion script:

   Set Variable: "/:priceLength" = MBLength(/:price)
   Set Variable: "/:n" = "0"
   Loop While (/:n < /:priceLength)
   	Set Variable: "/:n" = /:n + 1
   	Set Variable: "/:currentChar" = MBSubstring ( /:price, /:n, 1 )
   	If (/:currentChar ne "." and /:donePre ne "yes")
   		Set Variable: "/:beforePrice" = /:beforePrice & /:currentChar
   	Else If (/:currentChar eq ".")
   		Set Variable: "/:donePre" = "yes"
   	Else
   		Set Variable: "/:afterPrice" = /:afterPrice & /:currentChar
   	End If
   End Loop
   Comment: ===================
   Comment: format dollars (pounds, whatever)
   If (/:beforePrice eq "" or /:beforePrice eq ".")
   	Set Variable: "/:beforePrice" = "0"
   End If
   Comment: ===================
   Comment: format cents
   Set Variable: "/:afterPriceLen" = MBLength(/:afterPrice)
   If (/:afterPriceLen = "" or /:afterPriceLen = 0)
   	Set Variable: "/:afterPrice" = "00"
   Else If (/:afterPriceLen = 1)
   	Set Variable: "/:afterPrice" = /:afterPrice & "0"
   Else
   	Comment: round up if the decimal warrants it
   	If (MBSubstring ( /:afterPrice, 3, 1 ) > 4)
   		Set Variable: "/:afterPrice" = MBSubstring ( /:afterPrice, 1, 2 )
   		Set Variable: "/:afterPrice" = /:afterPrice + 1
   	Else
   		Set Variable: "/:afterPrice" = MBSubstring ( /:afterPrice, 1, 2 )
   	End If
   End If
   Set Variable: "/:displayPrice" = "$" & /:beforePrice    & "."& /:afterPrice
   Go to and Stop ("done")