)ATTR /* Morten Boegh http://www.rxs.se */ # TYPE(OUTPUT) INTENS(HIGH) COLOR(YELLOW) CAPS(OFF) ; TYPE(OUTPUT) INTENS(LOW ) COLOR(GREEN) ] TYPE(OUTPUT) INTENS(HIGH) COLOR(WHITE) [ TYPE(INPUT ) INTENS(HIGH) PAD('_') CAPS(&CAPS) _ TYPE(INPUT ) INTENS(HIGH) CAPS(ON) )BODY WINDOW(66,23) %Command ===>_ZCMD + %Scroll ===>_AMT %CAPS]Z + #PROMPTMS )MODEL &RXMOD1 &RXMOD2 &RXMOD3 )INIT .ZVARS = '(CAPS, PRDESC, PRVAR, PRSVAR)' &ZTDMARK = ' ENTER:continue END:&RXF3TXT' IF (&AMT = '') &AMT = CSR )REINIT )PROC &rxexecut = 1 if (.pfkey = pf07) &rxexecut = 0 if (.pfkey = pf08) &rxexecut = 0 if (.resp = end) &rxexecut = 0 )END