/* Rexx Programma om van een aantal irritante templates af te komen */ call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs' call SysLoadFuncs arg options call SysQueryClassList "Class." j=0 parse value SysTextScreenSize() with row col LeegString=RIGHT(' ', col, ' ') do i=1 to Class.0 say Class.i if pos('/P', options)\=0 then do j=j+1 if j=row-1 then do call charout , "Press any key to continue..." call SysGetKey 'NOECHO' call SysCurPos j, 0 call charout , LeegString call SysCurPos j, 0 j=0 end end end