All pastes #352203 Raw Edit

Anonymous

public text v1 · immutable
·published 2007-02-12 17:32 UTC
rendered paste body
PROC keyboard.thinger(CHAN BYTE input?, CHAN INT out1!, out2!)  
  BYTE inchar:
  WHILE TRUE
    SEQ
      input ? inchar
      IF
        inchar = 'n'
          out1 ! 0
      IF
        inchar = 'i'
          out2 ! 0
      IF
        TRUE
          SKIP
: