SCR #134
  0 ( SCR 134 SSWCH AND TRRIAD / TRRIADS FOR RS232 OUTPUT - RGM )
  1
  2   0  0  0 FILE >RS232   BASE->R HEX
  3   : SSWCH >RS232 PABS @ 10 + DUP PAB-ADDR ! 1- PAB-VBUF !
  4     SET-PAB OUTPT F-D" RS232.BA=2400.DA=8.PA=N" OPN 3
  5     PAB-ADDR @ VSBW 1 PAB-ADDR @ 5 + VSBW PAB-ADDR @ ALTOUT ! ;
  6
  7   : TRRIAD 0 SWAP SSWCH 3 / 3 * DUP 3 + SWAP
  8     DO I ?ASCII IF 1+ I LIST CR  ENDIF LOOP
  9     -DUP IF 3 SWAP - 14 * 0 DO CR LOOP
 10     0F MESSAGE 0C EMIT  ENDIF UNSWCH ;
 11
 12   : TRRIADS 3 / 3 * 1 + SWAP 3 / 3 * DO I TRRIAD 3 +LOOP ;
 13
 14 R->BASE
 15