10 LET CHANNEL:=11
   20 LET DEVICE:=0
   30 BSIO ZZ
   40 JUMP 50
   50 WAIT S
   60 IN H
   70 RSIO 
   80 END 

 10 LET CHANNEL:=11
 20 LET DEVICE:=0
 30 BSIO ZZ
 40 JUMP 50
 50 WAIT S
 60 IN R
 70 JUMP 40
 80 IN H
 90 RSIO
100 END

   10 LET CHANNEL:=11
   20 LET DEVICE:=0
  205 DB SS,7,-1                .STATUS  BUFFER
 6900 BSIO LL
 6905 CLEAR
 6910 WR 8,SS(2),2
 6920 RR 8,SS(0),4                    .READ UNIT STATUS
 6930 IN H,1,1
 6940 RSIO LL
 6950 END

   10 LET CHANNEL:=11
   20 LET DEVICE:=0
   30 BSIO ZZ
   40 JUMP 70
   50 IN H
   60 IN H
   70 DSJ 50,60,80,90
   80 IN H
   90 IN H
  100 RSIO 
  110 END 

   10 LET CHANNEL:=11
   20 LET DEVICE:=0
   30 BSIO ZZ
   40 CLEAR
   90 RSIO 
  100 END 

   10 LET CHANNEL:=11
   20 LET DEVICE:=0
   30 BSIO ZZ
   40 CHP !11,!22
   50 CHP !33
   60 CHP !44,!55,!66
   70 RSIO
   80 END