Anonymous user
Finite state machine: Difference between revisions
m
→{{header|REXX}}: added commentary annotation to the output (showing the user "inputs").
m (→{{header|REXX}}: finished editing the REXX entry, hit SAVE instead of PREVIEW.) |
m (→{{header|REXX}}: added commentary annotation to the output (showing the user "inputs").) |
||
Line 474:
{{trans|BASIC}}
<br>This is
::* the input allowed is either the uppercase or lowercase version of the letter(s)
::* a mixture of uppercase and lowercase
::* messages have extra blanks for readability (and options are spelled out)
<lang rexx>/*REXX pgm simulates a FSM (Finite State Machine), input is recognized by pressing keys.*/
10: say "
20: $=inkey(); upper $ /*since this a terminal, uppercase KEY.*/
if $=="D" then signal 50 /*Is response a "D" ? Process deposit.*/
Line 501:
140: say "Refunded" /*display what action just happened. */
signal 10 /*go & re-start process (ready state). */</lang>
{{out|output|text= when using (pressing) the exact same input(s) as the '''BASIC''' entry: <tt> D R D S R Q </tt>}}
<pre>
press D (deposit) or Q (quit)
d ◄■■■■■■■■■■ user pressed this key.
Press S (select) or R (refund)
r ◄■■■■■■■■■■ user pressed this key.
Refunded
press D (deposit) or Q (quit)
d ◄■■■■■■■■■■ user pressed this key.
Press S (select) or R (refund)
s ◄■■■■■■■■■■ user pressed this key.
Dispensed
Press R (remove)
r ◄■■■■■■■■■■ user pressed this key.
press D (deposit) or Q (quit)
q ◄■■■■■■■■■■ user pressed this key.
</pre>
| |||