GECSA ;WISC/RFJ-old version 1.5 routine                          ;01 Nov 93
 ;;2.0;GCS;;MAR 14, 1995
 Q
EN1 ;  create a code sheet
 D ^GECSEDIT Q
KEY ;  keypunch a code sheet
 D KEY^GECSEDIT Q