1 | DENTDNQ2 ;WASH ISC/TJK,JA-SCREEN INPUT-QUESTIONMARKS (PART 2) ;8/28/92 12:26
|
---|
2 | ;;1.2;DENTAL;***15**;Oct 08, 1992
|
---|
3 | FUNC X DJCP
|
---|
4 | W DJHIN X XY W "COMMANDS",DJLIN,!
|
---|
5 | W "^ -- Quit",?41,"@ -- Delete data"
|
---|
6 | W !,"^nn -- Go to the 'nn' statement",?41,"CR -- Go to the next statement"
|
---|
7 | W !,"^C -- Command menu display",?41,"< -- Go to previous statement"
|
---|
8 | W !,"^R -- Repaint Screen",?41,"?? -- For more information about field"
|
---|
9 | W !," -- Space bar, recall previous answer",?41," ? -- Information about field"
|
---|
10 | W !,"^D -- Down page",?41,"^U -- Up page"
|
---|
11 | W !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
|
---|
12 | Q
|
---|
13 | FUNC2 X DJCP
|
---|
14 | W DJHIN X XY W "COMMANDS",DJLIN,!
|
---|
15 | W "^ -- Quit",?41,"^nn -- Go to the 'nn' statement"
|
---|
16 | W !,"@ -- delete data",?41,"CR -- Go to the next statement"
|
---|
17 | W !," -- Space bar, recall previous record",?41,"< -- Go to previous statement"
|
---|
18 | W !,"? -- Help prompt",?41,"?? -- For more information about field"
|
---|
19 | W !,"^C -- Command menu display"
|
---|
20 | W !,"^L -- List current elements"
|
---|
21 | W !,"Note: (C)omputed, (M)ultiple, (W)ord processing, (R)ead only"
|
---|
22 | Q
|
---|