Decision tables: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: added visual comments and removed two other comments, showed an alternative requirement format. -- ~~~~) |
m (→{{header|REXX}}: added a comment. -- ~~~~) |
||
Line 742: | Line 742: | ||
* a method of allowing the user to quit the interrogation |
* a method of allowing the user to quit the interrogation |
||
<lang rexx>/*REXX pgm demonstrates a decision table and possible corrective actions*/ |
<lang rexx>/*REXX pgm demonstrates a decision table and possible corrective actions*/ |
||
/*REXX pgm demonstrates a decision table and possible corrective actions*/ |
|||
ask.= |
ask.= |
||
ask.1='Does the printer not print?' |
ask.1='Does the printer not print?' |
||
Line 785: | Line 784: | ||
if possible==0 then say 'No solutions given for the information supplied.' |
if possible==0 then say 'No solutions given for the information supplied.' |
||
exit /*stick a fork in it, we're done.*/ |
|||
exit |
|||
/*───────────────────────────────────ASKER subroutine───────────────────*/ |
/*───────────────────────────────────ASKER subroutine───────────────────*/ |
||
asker: arg ?; oops=0; Qprefix=copies('─',9) '(question' ? "of" set') ' |
asker: arg ?; oops=0; Qprefix=copies('─',9) '(question' ? "of" set') ' |