/* arexx test for MUIEcon */
address 'MUIECON.1'

say 'PROJECT-RELATED COMMANDS... :'
pull x

call getcr 'new'
"NEW"
call getcr 'clear'
"CLEAR"
call getcr 'clear force'
"CLEAR FORCE"
call getcr 'open'
"OPEN retirement.mecon"
call getcr 'open force'
"OPEN retirement.mecon force"
call getcr 'save'
"SAVE"
call getcr 'saveas'
"SAVEAS ram:junk.mecon"
call getcr 'print prompt'
"PRINT PROMPT"
call getcr 'print'
"PRINT"
call getcr 'print all'
"PRINT ALL"
call getcr 'close'
"CLOSE"

say 'BLOCK-RELATED COMMANDS... :'
pull x

call getcr 'select line 3'
"SELECT 3"
call getcr 'cut'
"CUT"
call getcr 'copy'
"COPY"
call getcr 'paste before line 2'
"PASTE 2"
call getcr 'erase current line'
"ERASE"
call getcr 'erase current line - force'
"ERASE FORCE"

say 'WINDOW-RELATED COMMANDS... :'
pull x

call getcr 'movewindow main 10 10'
"MOVEWINDOW MAIN 10 10"
call getcr 'movewindow dent 20 20'
"MOVEWINDOW DENT 20 20"
call getcr 'sizewindow MAIN 200 200'
"SIZEWINDOW MAIN 200 200"
call getcr 'sizewindow DENT 200 200'
"SIZEWINDOW DENT 200 200"
call getcr 'changewindow MAIN 20 20 300 300'
"CHANGEWINDOW MAIN 20 20 300 300"
call getcr 'changewindow DENT 10 10 300 300'
"CHANGEWINDOW DENT 10 10 300 300"
call getcr 'windowtofront main'
"WINDOWTOFRONT MAIN"
call getcr 'windowtofront dent'
"WINDOWTOFRONT DENT"
call getcr 'windowtoback main'
"WINDOWTOBACK MAIN"
call getcr 'windowtoback dent'
"WINDOWTOBACK DENT"
call getcr 'activatewindow MAIN'
"ACTIVATEWINDOW MAIN"
call getcr 'activatewindow DENT'
"ACTIVATEWINDOW DENT"
call getcr 'zoomwindow MAIN'
"ZOOMWINDOW MAIN"
call getcr 'zoomwindow DENT'
"ZOOMWINDOW DENT"
call getcr 'unzoomwindow main'
"UNZOOMWINDOW MAIN"
call getcr 'unzoomwindow dent'
"UNZOOMWINDOW DENT"

say 'APPLICATION-SPECIFIC COMMANDS... :'
pull x

call getcr 'sortby entrytype'
"SORTBY ENTRYTYPE"
call getcr 'sortby name'
"SORTBY NAME"
call getcr 'select line 1'
"SELECT 1"
call getcr 'deselect line 1'
"DESELECT 1"
call getcr 'deselect all'
"DESELECT ALL"
call getcr 'select line 2'
"SELECT 2"
call getcr 'queryitem line 1 no delimeter'
"QUERYITEM 1"
say result'/'rc
call getcr 'queryitem line 1 delimeter=:'
"QUERYITEM 1 :"
say result'/'rc
call getcr 'queryitem selected delimeter=:'
"QUERYITEM SELECTED :"
say result'/'rc
call getcr 'querynumitems'
"QUERYNUMITEMS"
say 'number of items is... 'rc
call getcr 'i1:r'
"I1FVINVEST I1TEST 1.0 1.0 1.0 1.0 CONTCOMP"
call getcr 'i1:nor'
"I1FVINVEST I1TEST 1.0 1.0 1.0 1.0 NOREQ CONTCOMP"
call getcr 'i2:r'
"I2FVREGDEPOSIT I2TEST 1.0 1.0 1.0 1.0 CONTCOMP"
call getcr 'i2:nor'
"I2FVREGDEPOSIT I2TEST 1.0 1.0 1.0 1.0 NOREQ CONTCOMP"
call getcr 'i3:r'
"I3FVDESIRED I3TEST 1.0 1.0 1.0 1.0 CONTCOMP"
call getcr 'i3:nor'
"I3FVDESIRED I3TEST 1.0 1.0 1.0 1.0 NOREQ CONTCOMP"
call getcr 'i4:r'
"I4REGWITHDRAWAL I4TEST 1.0 1.0 1.0 1.0 CONTCOMP"
call getcr 'i4:nor'
"I4REGWITHDRAWAL I4TEST 1.0 1.0 1.0 1.0 NOREQ CONTCOMP"
call getcr 'i5:r'
"I5INITINVEST I5TEST 1.0 1.0 1.0 1.0 CONTCOMP"
call getcr 'i5:nor'
"I5INITINVEST I5TEST 1.0 1.0 1.0 1.0 NOREQ CONTCOMP"
call getcr 'i6:r'
"I6MININVEST I6TEST 1.0 1.0 1.0 1.0 CONTCOMP"
call getcr 'i6:nor'
"I6MININVEST I6TEST 1.0 1.0 1.0 1.0 NOREQ CONTCOMP"
call getcr 'i7:r'
"I7INTEREST I7TEST 4.0 3.0 12 24"
call getcr 'i7:nor'
"I7INTEREST I7TEST 1.0 1.0 1.0 1.0 NOREQ"
call getcr 'l1:r'
"L1PAYMENT L1TEST 1.0 1.0 1.0 1.0 CONTCOMP"
call getcr 'l1:nor'
"L1PAYMENT L1TEST 1.0 1.0 1.0 1.0 NOREQ CONTCOMP"
call getcr 'l2:r'
"L2PRINCIPAL L2TEST 1.0 1.0 1.0 1.0 CONTCOMP"
call getcr 'l2:nor'
"L2PRINCIPAL L2TEST 1.0 1.0 1.0 1.0 NOREQ CONTCOMP"
call getcr 'l3:r'
"L3TERM L3TEST 1.0 1.0 1.0 1.0"
call getcr 'l3:nor'
"L3TERM L3TEST 1.0 1.0 1.0 1.0 NOREQ"
call getcr 'l4:r'
"L4INTEREST L4TEST 1.0 1.0 1.0 1.0"
call getcr 'l4:nor'
"L4INTEREST L4TEST 1.0 1.0 1.0 1.0 NOREQ"
call getcr 'l5:r'
"L5REMBALANCE L5TEST 1.0 1.0 1.0 1.0 1.0 CONTCOMP"
call getcr 'l5:nor'
"L5REMBALANCE L5TEST 1.0 1.0 1.0 1.0 1.0 NOREQ CONTCOMP"

say 'INTERFACE COMMANDS... :'
pull x

"LOCKGUI"
call getcr 'GUI locked.'
"UNLOCKGUI"
call getcr 'GUI unlocked.'

call getcr 'quit'
"QUIT"
call getcr 'quit force'
"QUIT FORCE"

say 'DONE!!!'
exit

getcr: procedure
   arg hail
   say hail' :'
   pull x
   return