/* ************************************************************************* */
/* NLSCPA.CMD - START FONTD, PRINTD and CPA in full screen sessions.         */
/*                                                                           */
/*              Parm: xx Where xx is country code examples: US  UK  FR ..etc */
/* ************************************************************************* */
'@echo on'
arg parm.1 comments
code = left(parm.1,2);

rc = RXFUNCADD('SysSleep', 'RexxUtil', 'SysSleep')
'cls'
say ''
'erase kbd*.437'
'erase kbd*.850'
'erase slpt?.spl'
'erase fontd?'
'erase printd?'
'erase cpalog?'
'erase switch_6'
'chcp 437'
'kt /k'code
'chcp 850'
'kt /k'code
'chcp 437'
call SysSleep 15;

'switch -l5 -v5 -i -o -u..\nlscpa\nlscpa.scr -fSWITCH_6'
