'comment' A12;

'procedure' gap(device, n); 'value' device, n;
        'integer' device, n;
  'KDF9' 12/9/8/0;
   {n}; {device}; JS12P295;
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;
   {n}; {device}; JS12P295;
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;
   {n}; {device}; JS12P295; 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;
   {n}; {device}; JS12P295;
2;  NEG; NOT; DUP; J3<Z;
    ZERO; JS18P295; J2;
3;  ERASE; JS16P295;
   'EXIT';
  'ALGOL';