comment A12;

procedure gap(device, n); value device, n;
        integer device, n;
  kdf9 12/9/8/0;
        {device}; JS12P295; {n};
2;  NEG; NOT; DUP; J3<Z;
    SET2; JS18P295; J2;
3;  ERASE; JS16P295;
   exit;
  algol;

procedure tab(device, n); value device, n;
        integer device, n;
  kdf9 12/9/8/0;
        {device}; JS12P295; {n};
2;  NEG; NOT; DUP; J3<Z;
    SET1; JS18P295; J2;
3;  ERASE; JS16P295;
   exit;
  algol;

procedure newline(device, n); value device, n;
        integer device, n;
  kdf9 12/9/8/0;
        {device}; JS12P295; {n}; J2;
3;  SET3; JS18P295;
2;  NEG; NOT; DUP; J3>=Z;
    ERASE; JS16P295;
   exit;
  algol;

procedure space(device, n); value device, n;
        integer device, n;
  kdf9 12/9/8/0;
        {device}; JS12P295; {n};
2;  NEG; NOT; DUP; J3<Z;
    ZERO; JS18P295; J2;
3;  ERASE; JS16P295;
   exit;
  algol;