| 1 | PRCUYN ;WISC@ALTOONA/CTB-UTILITY YES/NO READER AND WAIT ;10/22/93 3:35 PM
|
|---|
| 2 | V ;;5.0;IFCAP;;4/21/95
|
|---|
| 3 | YN ;
|
|---|
| 4 | N I,S,Z
|
|---|
| 5 | K DTOUT S U="^" S:'$D(PRC("YN"))#2 PRC("YN")=3 S S=PRC("YN")
|
|---|
| 6 | I PRC("YN")=3 S PRC("YN")=""
|
|---|
| 7 | I '$D(PRC("A",0)) S PRC("A",0)=""
|
|---|
| 8 | W:PRC("A",0)["!" ! W:$D(PRC("A"))#2 !,PRC("A")
|
|---|
| 9 | F I=0:0 S I=$O(PRC("A",I)) Q:'I Q:'$D(PRC("A",I)) W !,PRC("A",I)
|
|---|
| 10 | W:PRC("A",0)["*" $C(7)
|
|---|
| 11 | W "? ",$P("YES// ^NO// ^<YES/NO> ",U,S)
|
|---|
| 12 | RX R Z:$S($D(DTIME):DTIME,1:300) E S DTOUT=1,Z=U W $C(7)
|
|---|
| 13 | S:Z]""!'PRC("YN") PRC("YN")=$A(Z),PRC("YN")=$S(PRC("YN")=89:1,PRC("YN")=121:1,PRC("YN")=78:2,PRC("YN")=110:2,PRC("YN")=94:-1,1:0)
|
|---|
| 14 | I 'PRC("YN"),Z'["?" G Q1
|
|---|
| 15 | W:$X>73 ! W $P(" (YES)^ (NO)",U,PRC("YN")) G:PRC("YN")'=0 Q
|
|---|
| 16 | I $D(PRC("B")),PRC("B")]"" W !!,PRC("B") D C G:'$D(PRC("A")) Q S PRC("YN")=S G YN
|
|---|
| 17 | I $D(PRC("B")),PRC("B")="" G Q1
|
|---|
| 18 | I $D(PRC("A")),'$D(PRC("B")) S PRC("YN")=S G YN
|
|---|
| 19 | Q K PRC("A"),PRC("B") Q
|
|---|
| 20 | Q1 W:'PRC("YN")&(Z'["?") $C(7) W !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",! S PRC("YN")=S G YN
|
|---|
| 21 | Q
|
|---|
| 22 | C F I=0:0 S I=$O(PRC("B",I)) Q:'I Q:'$D(PRC("B",I)) W !,PRC("B",I)
|
|---|
| 23 | W ! Q
|
|---|
| 24 | WAIT ;
|
|---|
| 25 | W !,"..."
|
|---|
| 26 | W $P("Whoops,^Hmmm,^Excuse me,^Sorry,^Alright already!^OK! OK!^Alright, I'm tired.","^",$R(7)+1)," "
|
|---|
| 27 | W $P($T(LIST+$R(8)),";",3)_"..."
|
|---|
| 28 | LIST ;;This may take a few moments
|
|---|
| 29 | ;;Let me put you on 'HOLD' for a second
|
|---|
| 30 | ;;Please hold on
|
|---|
| 31 | ;;Just a moment, please
|
|---|
| 32 | ;;I'm working as fast as I can
|
|---|
| 33 | ;;Let me think about this for a moment
|
|---|
| 34 | ;;I'm just having one of those days...
|
|---|
| 35 | ;;Is it lunchtime yet?...
|
|---|
| 36 | ;
|
|---|
