; ; [ 2 0 , 2 ] E D I B L D . C M D ; [20,2]EDI/-FP/MU/TA= [20,2]BOTTM [20,2]CMSUB [20,2]EDMCM [20,2]EDIMP [20,2]EDMRS [20,2]EDSUB [20,2]ERROR [20,2]FILE [20,2]GETNM [20,2]LINMP [20,2]MCALL [20,2]MSCCM [20,2]OPCLS [20,2]SAVE [20,2]SCAN [20,2]SRCCM [20,2]START [20,2]TTYIO [20,2]UNSAV / ASG=TI:2,CL:1,SY:3:4:5:6 EXTSCT=$$FRS1:4100 ; ALLOW 'SAVE' WITH SEC. FILE OPEN LIBR=SYSRES:RO TASK=...EDI PRI=55 STACK=100 EXTTSK=5400 ; ALLOW INITIALLY 80 LINES READ IN ; ; THE FOLLOWING PATCH WILL PERMIT LINES OF UP TO 132 CHARACTERS ; IN LENGTH TO BE EDITED. THE VALUE IS CURRENTLY SET TO 120 CHARS ; TO ALLOW A MARGIN OF SAFETY FOR A KNOWN ERROR THAT EXISTS. ; DECREASING THE DIFFERENCE BETWEEN THE VALUE OF 'OOOOOO' AND 132 ; WILL PROPORTIONALLY INCREASE THE PROBIBILITY OF A FATAL EDITOR ; ERROR -- PARTICULARLY WHEN USING THE APPEND COMMAND. ; ; GBLPAT=BOTTM:MAXIML: ; /