PROCEDURE CREATE(ROOT)

1. [Initialize]

ROOT <-- NODE
LPTR(ROOT) <-- NULL
RPTR(ROOT) <-- NULL
CALL PUSH(Q,R,ROOT)
READ (DATA(ROOT)).

2. [Process the input]

Repeat thru step 4 while f>=0.

3. [Creating left child]

D <-- CALL POP(Q,F)
LPTR(D) <-- NODE
LPTR(LPTR(D)) <-- NULL
RPTR(LPTR(D)) <-- NULL
CALL PUSH(Q,R,LPTR(D))
READ(DATA(LPTR(D))).

4. [Creating right child]

D <-- CALL POP(Q,F)
RPTR(D) <-- NODE
LPTR(RPTR(D)) <-- NULL
RPTR(RPTR(D)) <-- NULL
CALL PUSH(Q,R,RPTR(D))
READ(DATA(RPTR(D))).

5. [FINISH]
return.