skip.for

来自「著名的berkeley大学开发的结构动力非线性分析程序」· FOR 代码 · 共 9 行

FOR
9
字号
C*****
      SUBROUTINE SKIP ()
      CHARACTER AA*1
   10 READ (5,'(A1)') AA
      IF (AA.EQ.'$') GOTO 10
      BACKSPACE 5
      RETURN
      END

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?