ENTRY BY MOVING THE TRIPLE ( JA(TOP),A(TOP),IWORK(TOP) ) C DOWNWARDS TO THE FREED TRIPLE ( JA(LINK),A(LINK) [...] COLLISION HAS NOT OCCURRED. FREE THE SPACE FOR THE TRIPLE C (JA(LINK), A(LINK), IWORK(LINK)) C JA(LINK) = [...] ********************** C C ... PUT THE CURRENT TRIPLE INTO THE FINAL DATA STRUCTURE C 70 JA(NEXT) = JAJ