- 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 Mar 13, 2025@21:00:40 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