begin;
    procedure WRNUM(I); 
      value I;
      integer I;
    begin;
        procedure WRNEG(I); 
          value I;
          integer I;
        begin;
            integer J;
            if I < -9 then begin;
                ;
                J := 0;
                J := J + 100000;
                for J := J - 100000 while I < -999999 do
                  I := I + 1000000;
                J := J + 10000;
                for J := J - 10000 while I < -99999 do
                  I := I + 100000;
                J := J + 1000;
                for J := J - 1000 while I < -9999 do
                  I := I + 10000;
                J := J + 100;
                for J := J - 100 while I < -999 do
                  I := I + 1000;
                J := J + 10;
                for J := J - 10 while I < -99 do
                  I := I + 100;
                J := J + 1;
                for J := J - 1 while I < -9 do
                  I := I + 10;
                WRNEG(J);
                ;
            end;
            if I = 0 then WRITETEX(30, `0');
            if I = -1 then WRITETEX(30, `1');
            if I = -2 then WRITETEX(30, `2');
            if I = -3 then WRITETEX(30, `3');
            if I = -4 then WRITETEX(30, `4');
            if I = -5 then WRITETEX(30, `5');
            if I = -6 then WRITETEX(30, `6');
            if I = -7 then WRITETEX(30, `7');
            if I = -8 then WRITETEX(30, `8');
            if I = -9 then WRITETEX(30, `9');
            ;
        end wrneg;
        if I < 0 then WRITETEX(30, `-') else I := -I;
        WRNEG(I);
        ;
    end wrnum;
    OPEN(30);
    WRNUM(1454321);
    WRITETEX(30, ` Hello World');
    CLOSE(30);
end;