#INCLUDE "course.module"

PROC double.echo (CHAN BYTE keyboard?, screen!, error!)
  --{{{  
  BYTE ch:
  SEQ
    ch := ' '
    WHILE ch <> 'Z'
      SEQ
        keyboard ? ch
        screen ! ch
        screen ! ch
        screen ! FLUSH
    screen ! '*c'
    screen ! '*n'
  --}}}
:
