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