SBP
˙˙main()
 ˙‡
 cost%˙32465.25
 MyDollars$˙saynum$(˙(cost%))
 MyCents$˙saynum$((cost%˙100)˙(˙(cost%)˙100))
 MyPoSay$˙˙ˇ(˙(cost%)˙1," Dollar"," Dollars")
 ˙{MyDollars$˙
MyPoSay$˙
" and "˙
MyCents$˙
" Cents"
 
 cost%˙1.20
 MyDollars$˙saynum$(˙(cost%))
 MyCents$˙saynum$((cost%˙100)˙(˙(cost%)˙100))
 MyPoSay$˙˙ˇ(˙(cost%)˙1," Dollar"," Dollars")
 ˙{MyDollars$˙
MyPoSay$˙
" and "˙
MyCents$˙
" Cents"
 
 
 cost%˙10.42
 MyDollars$˙saynum$(˙(cost%))
 MyCents$˙saynum$((cost%˙100)˙(˙(cost%)˙100))
 MyPoSay$˙˙ˇ(˙(cost%)˙1," Dollar"," Dollars")
 ˙{MyDollars$˙
MyPoSay$˙
" and "˙
MyCents$˙
" Cents"
 
 
 cost%˙100.50
 MyDollars$˙saynum$(˙(cost%))
 MyCents$˙saynum$((cost%˙100)˙(˙(cost%)˙100))
 MyPoSay$˙˙ˇ(˙(cost%)˙1," Dollar"," Dollars")
 ˙{MyDollars$˙
MyPoSay$˙
" and "˙
MyCents$˙
" Cents"
 
 
 cost%˙3006
 MyDollars$˙saynum$(˙(cost%))
 MyCents$˙saynum$((cost%˙100)˙(˙(cost%)˙100))
 MyPoSay$˙˙ˇ(˙(cost%)˙1," Dollar"," Dollars")
 ˙{MyDollars$˙
MyPoSay$˙
" and "˙
MyCents$˙
" Cents"
 
 
 cost%˙32000
 MyDollars$˙saynum$(˙(cost%))
 MyCents$˙saynum$((cost%˙100)˙(˙(cost%)˙100))
 MyPoSay$˙˙ˇ(˙(cost%)˙1," Dollar"," Dollars")
 ˙{MyDollars$˙
MyPoSay$˙
" and "˙
MyCents$˙
" Cents"
 
 cost%˙17050
 MyDollars$˙saynum$(˙(cost%))
 MyCents$˙saynum$((cost%˙100)˙(˙(cost%)˙100))
 MyPoSay$˙˙ˇ(˙(cost%)˙1," Dollar"," Dollars")
 ˙{MyDollars$˙
MyPoSay$˙
" and "˙
MyCents$˙
" Cents"
 
 ˙’˙˙

˙˙saynum$(num%%)
˙×MyUnits$(10),MyTens$(10),MyTeens$(10)
˙×dig%%(5),NumLen%%

MyUnits$(0)˙"none":MyUnits$(1)˙"one":MyUnits$(2)˙"two":MyUnits$(3)˙"three":MyUnits$(4)˙"four"
MyUnits$(5)˙"five":MyUnits$(6)˙"six":MyUnits$(7)˙"seven":MyUnits$(8)˙"eight":MyUnits$(9)˙"nine"
MyTens$(1)˙"ten":MyTens$(2)˙"twenty":MyTens$(3)˙"thirty":MyTens$(4)˙"forty":MyTens$(5)˙"fifty":
MyTens$(6)˙"sixty":MyTens$(7)˙"seventy":MyTens$(8)˙"eighty":MyTens$(9)˙"ninety"
MyTeens$(1)˙"eleven":MyTeens$(2)˙"twelve":MyTeens$(3)˙"thirteen":MyTeens$(4)˙"fourteen":MyTeens$(5)˙"fifteen"
MyTeens$(6)˙"sixteen":MyTeens$(7)˙"seventeen":MyTeens$(8)˙"eighteen":MyTeens$(9)˙"nineteen"
hundreds$˙" hundred ":thousands$˙" thousand "

NumLen%%˙0
ExitCond%%˙0

˙ˇnum%%˙0˙p
SayNum$˙"No"
˙’˙˙
˙’˙ˇ

˙ŘExitCond%%˙0
dig%%(NumLen%%)˙num%%˙10
num%%˙˙(num%%˙10)
˙ˇnum%%˙0˙p
	ExitCond%%˙1
˙^
	NumLen%%˙NumLen%%˙
1
˙’˙ˇ
˙Ů

˙É˙ćNumLen%%

˙ć0
SayNum$˙MyUnits$(dig%%(0))

˙ć1
˙ˇdig%%(0)˙0˙p
SayNum$˙MyTens$(dig%%(1))
˙^
˙ˇdig%%(1)˙1˙p
SayNum$˙MyTeens$(dig%%(0))
˙^
SayNum$˙MyTens$(dig%%(1))˙
" "˙
MyUnits$(dig%%(0))
˙’˙ˇ
˙’˙ˇ

˙ć2
SayNum$˙MyUnits$(dig%%(2))˙
hundreds$
˙ˇdig%%(0)˙0˙dig%%(1)˙0˙p˙’˙˙
SayNum$˙SayNum$˙
"and "
˙ˇdig%%(0)˙0˙p
SayNum$˙SayNum$˙
MyTens$(dig%%(1))
˙^
˙ˇdig%%(1)˙1˙p
SayNum$˙SayNum$˙
MyTeens$(dig%%(0))
˙^
SayNum$˙SayNum$˙
MyTens$(dig%%(1))˙
" "˙
MyUnits$(dig%%(0))
˙’˙ˇ
˙’˙ˇ

˙ć3
SayNum$˙MyUnits$(dig%%(3))˙
thousands$
˙ˇdig%%(2)˙0˙dig%%(1)˙0˙dig%%(0)˙0˙p˙’˙˙
˙ˇdig%%(2)˙0˙p
SayNum$˙SayNum$˙
"and"
˙^
SayNum$˙SayNum%˙
MyUnits$(dig%%(2))˙
hundreds$
˙’˙ˇ
˙ˇdig%%(0)˙0˙dig%%(1)˙0˙p˙’˙˙
˙ˇdig%%(2)˙0˙pSayNum$˙SayNum$˙
"and "
˙ˇdig%%(0)˙0˙p
SayNum$˙SayNum$˙
MyTens$(dig%%(1))
˙^
˙ˇdig%%(1)˙1˙p
SayNum$˙SayNum$˙
MyTeens$(dig%%(0))
˙^
SayNum$˙SayNum$˙
MyTens$(dig%%(1))˙
" "˙
MyUnits$(dig%%(0))
˙’˙ˇ
˙’˙ˇ

˙ć4
˙ˇdig%%(3)˙0˙p
SayNum$˙MyTens$(dig%%(4))˙
thousands$
˙^
˙ˇdig%%(4)˙1˙p
SayNum$˙SayNum$˙
MyTeens$(dig%%(3))˙
thousands$
˙^
SayNum$˙SayNum$˙
MyTens$(dig%%(4))˙
" "˙
MyUnits$(dig%%(3))˙
thousands$
˙’˙ˇ
˙’˙ˇ
˙ˇdig%%(2)˙0˙dig%%(1)˙0˙dig%%(0)˙0˙p˙’˙˙
˙ˇdig%%(2)˙0˙p
SayNum$˙SayNum$˙
"and "
˙^
SayNum$˙SayNum$˙
MyUnits$(dig%%(2))˙
hundreds$
˙’˙ˇ
˙ˇdig%%(0)˙0˙dig%%(1)˙0˙p˙’˙˙
˙ˇdig%%(2)˙0˙pSayNum$˙SayNum$˙
"and "
˙ˇdig%%(0)˙0˙p
SayNum$˙SayNum$˙
MyTens$(dig%%(1))
˙^
˙ˇdig%%(1)˙1˙p
SayNum$˙SayNum$˙
MyTeens$(dig%%(0))
˙^
SayNum$˙SayNum$˙
MyTens$(dig%%(1))˙
" "˙
MyUnits$(dig%%(0))
˙’˙ˇ
˙’˙ˇ
˙’˙É
 ˙’˙˙