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 Oct 16, 2024@17:56:49 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