DENTDNQ2.m

DENTDNQ2 ;WASH ISC/TJK,JA-SCREEN INPUT-QUESTIONMARKS (PART 2) ;8/28/92  12:26

 ;;1.2;DENTAL;***15**;Oct 08, 1992

FUNC X DJCP

 W DJHIN X XY W "COMMANDS",DJLIN,!

 W "^   -- Quit",?41,"@  -- Delete data"

 W !,"^nn -- Go to the 'nn' statement",?41,"CR -- Go to the next statement"

 W !,"^C  -- Command menu display",?41,"<  -- Go to previous statement"

 W !,"^R  -- Repaint Screen",?41,"?? -- For more information about field"

 W !,"    -- Space bar, recall previous answer",?41," ? -- Information about field"

 W !,"^D  -- Down page",?41,"^U -- Up page"

 W !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"

 Q

FUNC2 X DJCP

 W DJHIN X XY W "COMMANDS",DJLIN,!

 W "^ -- Quit",?41,"^nn -- Go to the 'nn' statement"

 W !,"@ -- delete data",?41,"CR  -- Go to the next statement"

 W !,"  -- Space bar, recall previous record",?41,"<   -- Go to previous statement"

 W !,"? -- Help prompt",?41,"?? -- For more information about field"

 W !,"^C -- Command menu display"

 W !,"^L -- List current elements"

 W !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DENTDNQ2   1100     printed  Dec 13, 2024@01:46:29                                                                                                                                                                                                    Page 2

DENTDNQ2  ;WASH ISC/TJK,JA-SCREEN INPUT-QUESTIONMARKS (PART 2) ;8/28/92  12:26

 +1       ;;1.2;DENTAL;***15**;Oct 08, 1992

FUNC       XECUTE DJCP

 +1        WRITE DJHIN

           XECUTE XY

           WRITE "COMMANDS",DJLIN,!

 +2        WRITE "^   -- Quit",?41,"@  -- Delete data"

 +3        WRITE !,"^nn -- Go to the 'nn' statement",?41,"CR -- Go to the next statement"

 +4        WRITE !,"^C  -- Command menu display",?41,"<  -- Go to previous statement"

 +5        WRITE !,"^R  -- Repaint Screen",?41,"?? -- For more information about field"

 +6        WRITE !,"    -- Space bar, recall previous answer",?41," ? -- Information about field"

 +7        WRITE !,"^D  -- Down page",?41,"^U -- Up page"

 +8        WRITE !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"

 +9        QUIT 

FUNC2      XECUTE DJCP

 +1        WRITE DJHIN

           XECUTE XY

           WRITE "COMMANDS",DJLIN,!

 +2        WRITE "^ -- Quit",?41,"^nn -- Go to the 'nn' statement"

 +3        WRITE !,"@ -- delete data",?41,"CR  -- Go to the next statement"

 +4        WRITE !,"  -- Space bar, recall previous record",?41,"<   -- Go to previous statement"

 +5        WRITE !,"? -- Help prompt",?41,"?? -- For more information about field"

 +6        WRITE !,"^C -- Command menu display"

 +7        WRITE !,"^L -- List current elements"

 +8        WRITE !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"

 +9        QUIT