From 9d6453522f4e9fac88769161f210f0c9963d31e8 Mon Sep 17 00:00:00 2001 From: "paul.kimpel@digm.com" Date: Fri, 21 Dec 2012 16:51:10 +0000 Subject: [PATCH] Fix L-register formatting on ALGOLXEM listing (reported by Terry Heidelberg). --- tools/xem/ALGOLXEM.alg_m | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tools/xem/ALGOLXEM.alg_m b/tools/xem/ALGOLXEM.alg_m index 54303f4..106a149 100644 --- a/tools/xem/ALGOLXEM.alg_m +++ b/tools/xem/ALGOLXEM.alg_m @@ -3797,7 +3797,7 @@ L: SCNN(SBUFF, NCR, COUNT, ACCUM, 1, 63-COUNT, RESULT, RESULT, COUNT, 13700000 END #, 13805100 PRINTCARD = BEGIN 13850000=02182500= EDITLINE(LIN, SBUFF, FCR, L.[11:10], SGNO, 13855000=02182760= - L.[2:2], MEDIUM, OMITTING); 13860000=02182760= + L.[1:2], MEDIUM, OMITTING); 13860000=02182760= IF NOHEADING THEN 13865000=02183000= DATIME; 13870000=02183000= WRITELINE; 13875000=02183000=