Posted by Grant on April 16, 2018 at 09:22:34:
In Reply to: Re: Ideas for new IB Commands posted by Robert G Laurin on April 16, 2018 at 09:06:35:
This is from Comet16 era. Maskamt and maskamt$ had to match. No floating, leading minus.
Output to a list. One line simpler if filling an Edit or Static control.
-----------------------------------------------------------
LENGTH 9.2 & LOCAL MASKAMT
LENGTH 13 & LOCAL MASKAMT$
2000 FORMAT MASKAMT,'#,###,##0.00-'
2001 FORMAT MASKAMT$
LET MASKAMT = TWAGES
PRINT (#,2000)
INPUT (#,2001)
Let cosCTlId = IDC.MESSAGE
Let cosCtlText$ = 'Total HI QTR Wages ' + MASKAMT$
LET coswParam = ListIndex
Gosub COS.ListAddStringData
LET ListIndex = ListIndex + 1
---------------------------------------------------------------
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.