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.
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:' >