github.com/pkimpel.retro-b5500
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-b5500.git synced 2026-02-11 19:05:01 +00:00
Code Releases Activity

Commit corrections to Mark-XVI SYMBOL/ALGOL discovered by Fausto Saporito.

Browse Source
This commit is contained in:
paul.kimpel@digm.com
2013-07-07 01:39:16 +00:00
parent 4b87caff41
commit 358908805d
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Mark-XVI/SYMBOL/ALGOL.alg_m
View File

@@ -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