1 use_ep_basic:  proc;
 2 
 3 /* This command causes the basic compiler to compile programs in double precision. */
 4 
 5 dcl basic$precision_length fixed bin(35) ext;
 6 
 7           basic$precision_length = 2;
 8           return;
 9 
10 
11 use_sp_basic:  entry;
12 
13           basic$precision_length = 1;                       /* set back to single precision */
14           return;
15 
16           end;