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
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGECSA   200     printed  Sep 23, 2025@19:32:05                                                                                                                                                                                                        Page 2
GECSA     ;WISC/RFJ-old version 1.5 routine                          ;01 Nov 93
 +1       ;;2.0;GCS;;MAR 14, 1995
 +2        QUIT 
EN1       ;  create a code sheet
 +1        DO ^GECSEDIT
           QUIT 
KEY       ;  keypunch a code sheet
 +1        DO KEY^GECSEDIT
           QUIT