13 <COND (<NOT <GASSIGNED? CASE-CODE>> <SETG CASE-CODE ,SPARE1-CODE>)>
19 <COND (<NOT <GASSIGNED? CASE>>
24 <PROG ((CH <OR <OPEN "READB" "COMPIL;CASE FBIN">
25 <OPEN "READB" "COMPIL;CASE NBIN">>))
26 <COND (.CH <PRINC "Using Compiled CASE."> <CRLF>
27 <LOAD .CH><CLOSE .CH>)
28 (ELSE <GROUP-LOAD "COMPIL;CASE >">)>>
30 <PUT ,CASE PAPPLY-OBJECT ,CASE-FCN>
32 <PUT ,ANALYZERS ,CASE-CODE ,CASE-ANA>
34 <PUT ,GENERATORS ,CASE-CODE ,CASE-GEN>