.ROOT MAIN-*(ONE,TWO,THRE,FOUR,FIVE,SIX,SEVN),PIN/LB:$HEAP MAIN: .FCTR PIN/LB:PINOCH-PASLB ONE: .FCTR PIN/LB:INIT:PUTHLP-PASLB TWO: .FCTR PIN/LB:ZEROIN-PASLB THRE: .FCTR PIN/LB:DEALIN-TICK-PASLB FOUR: .FCTR PIN/LB:HIBIDA-PASLB FIVE: .FCTR PIN/LB:BIDDIN-PIN/LB:SHOWIT-PASLB SIX: .FCTR PIN/LB:PLAYIN-PIN/LB-PASLB SEVN: .FCTR PIN/LB:ENDING-PASLB PASLB: .FCTR DM2:[1,1]PASLIB/LB .END