set currency 命令示例

下面的示例中在货币值的两边显示了货币符 dm。如果使用 picture 来显示货币，要确保在美元符前面加上 @。

store set('currency') to gccurrposit
store 1234.56 to gndollaramnt
clear
set currency to 'dm'
@ 2,2 say gndollaramnt picture '@$99,999.99'
if gccurrposit = 'left'
set currency right
else
set currency left
endif
@ 4,2 say gndollaramnt function '$99,999.99'