Routine: PRCUYN

Information

PRCUYN ;WISC@ALTOONA/CTB-UTILITY YES/NO READER AND WAIT ;10/22/93 3:35 PM

Source file <PRCUYN.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PRC("A",I) Line Location: YN+6
Function Call: WRITE	Prompt: "? ",$P("YES// ^NO// ^<YES/NO> ",U,S) Line Location: YN+8
Function Call: READ	Variable: Z Timeout: $S($D(DTIME):DTIME,1:300) Line Location: RX+0
Function Call: WRITE	Prompt: $C(7) Line Location: RX+0
Function Call: WRITE	Prompt: $C(7) Condition for execution: 'PRC("YN")&(Z'["?") Line Location: Q1+0
Function Call: WRITE	Prompt: !,"You must enter a 'Yes' or a 'No', or you may enter an '^' to Quit",! Line Location: Q1+0
Function Call: WRITE	Prompt: !,PRC("B",I) Line Location: C+0
Function Call: WRITE	Prompt: ! Line Location: C+1
Function Call: WRITE	Prompt: !,"..." Line Location: WAIT+1
Function Call: WRITE	Prompt: $P("Whoops,^Hmmm,^Excuse me,^Sorry,^Alright already!^OK! OK!^Alright, I'm tired.","^",$R(7)+1)," " Line Location: WAIT+2
Function Call: WRITE	Prompt: $P($T(LIST+$R(8)),";",3)_"..." Line Location: WAIT+3