00100 R COMPLR↔(COMPL COMPLR≠β 00200 R LISP 30↔Y3000 14400 475 (DSKIN(COMPLR.LAP≠(CINIT≠βSAVE COMPLR↔