DIRECTORY CoreCreate, CommonPadFrame, CommonPGA176; CommonPGA176Impl: CEDAR PROGRAM IMPORTS CommonPadFrame EXPORTS CommonPGA176 = BEGIN OPEN CoreCreate, CommonPGA176; SetPos: PUBLIC PROC [pga: PGADescr, pos: NAT] = {pga.globalPos _ pos}; NextS: PROC [pga: PGADescr] = { pos: NAT _ pga.globalPos+1; WHILE posKšœ˜K˜—šžœœ˜Kšœœ˜Kšœœœ œ˜GKšœœœŸ ˜@Kšœ˜K˜—Kšœ™š žœœœœ/œ ˜nKšœœœœ˜Kšœœœ ˜%Kšœœœ ˜%Kšœœœ ˜%Kšœœœ ˜%Kšœœœ ˜%Kšœœœ ˜%Kšœœœ ˜%Kšœœœ ˜%Kšœœœ ˜%KšœQ˜QK˜—KšœJ™Jš žœ œœœ/œ ˜sKšœ ˜ KšœG˜GK˜—KšœI™Iš ž œœœœ/œ ˜uKšœ ˜ KšœG˜GK˜—K™K™Kšœœ œ˜-Kšœ˜Kšœ ˜ Kšœ ˜ Kšœ ˜ Kšœ ˜ Kšœ ˜ Kšœ"˜"Kšœ˜K˜ZKšœ˜—K™š žœœœœœ˜=Kš œœœœœŸ˜HKšœ œŸ!˜<šœœœœœœœ˜FKš œœœœœœ ˜=—K˜—K™K™'šžœ œœ˜9šž œœœ˜3KšœŸ˜&Kšœ'˜'Kšœ'˜'Kšœ!˜!Kšœ&˜&Kšœ!˜!Kšœ'˜'Kšœ!˜!Kšœ'˜'Kšœ!˜!Kšœ'˜'Kšœ!˜!Kšœ(˜(K˜—Kšœ ˜ Kšœ œ˜Kšœ˜Kšœ!˜!Kšœ ˜ Kšœ˜K˜—K˜Kšœ˜K˜—…— ΘC