A                                      DSPSIZ(24 80 *DS3)
     A                                      PRINT
     A                                      CA03(03)
     A          R @RF01
     A                                      CA12(12)
     A                                      RTNCSRLOC(*MOUSE &FIL1 &COL1 &FIL2 -
     A                                      &COL2)
     A                                      WINDOW(&FIL &COL 5 40 *NOMSGLIN *NO-
     A                                      RSTCSR)
     A                                      WDWBORDER((*DSPATR RI) (*CHAR '    -
     A                                          '))
     A  12                                  RMVWDW
     A                                      WDWTITLE((*TEXT 'F3 = TERMINAR') *C-
     A                                      ENTER *BOTTOM)
     A                                      MOUBTN(*ULP CA12)
     A            FIL            2S 0P
     A            COL            3S 0P
     A            FIL1           3S 0H
     A            COL1           3S 0H
     A            FIL2           3S 0H
     A            COL2           3S 0H
     A                                  2  3'Haga click con el mouse donde quie-
     A                                      re'
     A                                  3 13'ubicar la ventana'
     A*
     A          R @ASSUME
     A                                      ASSUME
     A            FLD001         1   O 24  4