/* CPUMeter installation program */ /* copyright (c) 96 by Christof Pastors */ /* */ /* This program simply creates a CPUMEter-object on your desktop */ '@Echo off' 'cls' call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' call SysLoadFuncs say '' say 'This program creates a CPUMeter object on your desktop' say '' call charout ,' Press [Enter] to continue...' dummy = '' do until dummy = '0d'x dummy = SysGetKey('NOECHO') end call charout ,'0d1b'x'[K' curdir = directory() rc = stream('cpumeter.exe','c','query exists') if rc \= '' then do title = "CPUMeter" classname = 'WPProgram' location = '' setup = 'OBJECTID=;EXENAME='rc';STARTUPDIR='curdir call SysCreateObject classname,title,location,setup,u end