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