/* Ensuring the right page length */
address command
parse arg parms; _=qconsole('ROWS')-3
/* Put present values into the array Prevpf. */
'EXECIO * CP (STEM PREVPF. STRING QUERY PF '
'CP SET PF01 SUBSTITU DELAY &1'
'CP SET PF02 NODISP NEXT'
'CP SET PF03 NODISP QUIT'
'CP SET PF04 NODISP RETURN'
'CP SET PF07 NODISP UP'
'CP SET PF08 NODISP DOWN'
'CP SET PF11 NODISP Help'
'CP SET LINEDIT ON'
/* Define the default start page */
'GLOBALV SELECT CENV SET WWW_HOME  http://info.cern.ch/'
GLOBAL TXTLIB IBMLIB
 
'WWW -p'_ parms
 
/* Reset the pf keys to their initial values */
Do k=1 to prevpf.0; 'CP SET 'prevpf.k; end k