DEFINE WINDOW L1 FROM 5, 10 TO 23, 68 GROW;
       CLOSE ZOOM SHADOW TITLE 'PATIENTS PERSONAL DATA ENTERY';
       MINIMIZE DOUBLE COLOR SCHEME 8;
       IN WINDOW (thisform.Name)

>i have prg which have many windows, which contain coding, which display text boxes and other old dos(fox, 2.6) envirment.
>i want to display such prg on my form.
>But when i run prg. i am not able to display on from. How it can be done.
>These prg is working well on screen.
>
>e.g
>

 DEFINE WINDOW L1 FROM 5, 10 TO 23, 68 GROW CLOSE ZOOM SHADOW TITLE 'PATIENTS PERSONAL DATA ENTERY' MINIMIZE DOUBLE COLOR SCHEME 8
>.....
>ACTIVATE WINDOW L1
> @ 2, 5 SAY 'CODE #:'
> @ 2, 20 GET CD PICTURE '999999' COLOR R+/N
> @ 3, 0 TO 3, 79 DOUBLE COLOR G+/N
> READ
> SELECT 1
> SEEK CD
> IF  .NOT. FOUND()
> @ 5, 10 SAY 'DATE:'
> @ 5, 30 GET DT
> @ 7, 10 SAY 'NAME:'
> @ 7, 30 GET PN PICTURE '@!!!!!!!!!!!!!!!!!!!!'
> @ 9, 10 SAY 'AGE/SEX:'
> @ 9, 30 GET AGX PICTURE '@!!!!!'
> @ 11, 10 SAY 'REFERED BY:'
>