errex1.for
来自「This Source-Navigator, an IDE for C/C++/」· FOR 代码 · 共 18 行
FOR
18 行
SUBROUTINE ERREX1*-----------------------------------------------------------------------**--- error exit and stop when name buffer overflow**----------------------------------------------------------------------- include 'param.h' N=MXNAME WRITE (MPUNIT,10000) N STOP10000 FORMAT (//' ++++++++++++++++++++++++++++++++++++++++'/ +' + +'/ +' + NAME BUFFER OVERFLOW, STOP +'/ +' + ACTUAL SIZE =',I5,T41,'+'/ +' + +'/ +' ++++++++++++++++++++++++++++++++++++++++') END
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?