FORM COLFORM1 AT 2, 1 TO 6, 70 PUT "FCBA" AT 9, 1 TO 9, 73 PUT "FOBA" AT 11, 5 TO 11, 21 PUT "FGBA" AT 13, 9 TO 13, 74 PUT "FOBA" AT 15, 5 TO 15, 18 PUT "FGBA" AT 16, 1 TO 18, 75 PUT "FOBA" AT 19, 1 TO 22, 41 PUT "FCBA" AT 4, 13 PUT " S. M. Tracy Herbarium Data Input - Phase I" AT 5, 21 PUT "New Collector Name - Check/Edit" AT 9, 1 PUT "If correction is required, please edit both names types as needed:" AT 11, 6 PUT "Standard name:" AT 13, 10 GET traname1.STANAME STR USING "rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr" AT 13, 10 PUT traname1.STANAME USING "rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr" AT 15, 6 PUT "Label name:" AT 17, 6 GET traname1.LABNAME STR USING " rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr" AT 17, 6 PUT traname1.LABNAME USING " rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr" AT 19, 1 PUT "To edit your input, use the 'Enter' key to move to the name. DO NOT type" AT 20, 1 PUT "if a minor edit is needed, but use either the arrow keys or 'Ctrl-s/Ctrl-d'" AT 21, 1 PUT "or the mouse to move along the name line to the edit point. Then use the" AT 22, 1 PUT "'Del' key to delete characters to be edit." ENDFORM