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 ---[H[J[2J[HDENTDNQ2 1100 printed Sep 15, 2024@21:10:43 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