From 358908805d3aecd3872c3dfdcaf52e95d01a968c Mon Sep 17 00:00:00 2001 From: "paul.kimpel@digm.com" Date: Sun, 7 Jul 2013 01:39:16 +0000 Subject: [PATCH] Commit corrections to Mark-XVI SYMBOL/ALGOL discovered by Fausto Saporito. --- Mark-XVI/SYMBOL/ALGOL.alg_m | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Mark-XVI/SYMBOL/ALGOL.alg_m b/Mark-XVI/SYMBOL/ALGOL.alg_m index 0eaa4fb..d5558df 100644 --- a/Mark-XVI/SYMBOL/ALGOL.alg_m +++ b/Mark-XVI/SYMBOL/ALGOL.alg_m @@ -8144,8 +8144,8 @@ NEXTTEXT~26 ; 09251300 THE END. CARD OFF AN INPUT TAPE; 09275250 IF NEWTOG THEN 09275300 BEGIN FILL LIBARRAY[*] WITH "END;END."," ","LAST CAR", 09275350 - "D ON OCR","DING TAPE","E ", " "," ", 09275400 - " ","999999999"; 09275450 + "D ON OCR","DING TAP","E ", " "," ", 09275400 + " ","99999999"; 09275450 WRITE(NEWTAPE,10,LIBARRAY[*]) 09275500 END; 09275550 09275600