github.com/retro-software.B5500-software
1
0
Fork 0
mirror of https://github.com/retro-software/B5500-software.git synced 2026-03-10 04:11:27 +00:00
Code Issues Releases Wiki Activity

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

Browse Source
This commit is contained in:
Paul Kimpel
2013-07-07 01:39:16 +00:00
parent 638656634c
commit f52d328048
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