[求助]师兄辞职了，然后我们有个计算程序是他编的，我想问下这个是什么代码语言

师兄辞职了，走之前和老板闹得很不愉快，然后我们有个计算程序是他编的，我想问下这个是什么代码语言

是C语言么。。。
其中的一段。。一共大概6w多行、、、

DECLARE SUB ACCES (P!, W!, G!, O!)
DECLARE SUB WIND (VI!, AV!, C1!, D!, CI!, K!, GG!, GV!)
1 INPUT "NAME OF DATA FILE(*.TAS):"; F$
2 D$ = F$ + ".TAS"
3 OPEN D$ FOR INPUT AS #2
10 PRINT , , "TENSION AND SAG 94"
20 B$ = " ": K = 1000: GG = 9.8066
30 INPUT #2, A$, M, D, G0, A, EO, TM, TA, N, NF
40 DIM T(N), V(N), C(N), F(NF + 1), G(N, 7)
50 DIM KT(4), KG(4), KL(4, 2), L1(56), K(56), S1(56, N), F1(56, NF)
60 FOR I = 1 TO N: INPUT #2, T(I), V(I), C(I): NEXT
70 IF NF > 0 THEN FOR I = 1 TO NF: INPUT #2, F(I): NEXT
71 CALL ACCES(P, W, G, O)
80 REM DEF FNI (X) = INT(10 ^ (3 - INT(LOG(X))) + .1)
85 REM DEF FNA (X) = INT(X * FNI(X) + .5) / FNI(X)
90 REM DEF FNL (X) = INT(X * 100 + .5) / 100
100 G1 = G0 * GG: E = EO * K * M: SM = TM * K: SA = TA * K
110 B = SQR(24 * A): B1 = E / 24 / SM ^ 2: AE = A * E: U = 52 - 38 * W
120 REM MAT G
130 FOR I = 1 TO N
140 IF C(I) = 0 GOTO 200
145 PI = 3.14159
150 G(I, 2) = PI * .9 * C(I) * (D + C(I)) / K * GG
160 G(I, 3) = G1 + G(I, 2)
170 C1 = 1.2: CALL WIND(V(I), AV, C1, D, C(I), K, GG, GV)
180 G(I, 5) = GV: G(I, 7) = SQR(G(I, 3) ^ 2 + GV ^ 2)
190 GOTO 240
200 IF D < 17 THEN C1 = 1.2: GOTO 220
210 C1 = 1.1
220 CALL WIND(V(I), AV, C1, D, C(I), K, GG, GV)
230 G(I, 4) = GV: IF GV > 0 THEN G(I, 6) = SQR(G1 ^ 2 + GV ^ 2)
240 NEXT I
250 IF C(4) = 0 THEN G(4, 7) = G1
260 IF G = 1 GOTO 920