/dports/news/husky-areafix/husky-areafix-1.9.20191207/protick/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-areafix/husky-areafix-1.9.20191207/promknl/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky/husky-1.9.20191207/progate/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky/husky-1.9.20191207/protick/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-areafix/husky-areafix-1.9.20191207/progate/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-fidoconf/husky-fidoconf-1.9.20191207/protick/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-fidoconf/husky-fidoconf-1.9.20191207/progate/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-fidoconf/husky-fidoconf-1.9.20191207/promknl/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-sqpack/husky-sqpack-1.9.20191207/progate/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-sqpack/husky-sqpack-1.9.20191207/protick/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-sqpack/husky-sqpack-1.9.20191207/promknl/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-smapi/husky-smapi-1.9.20191207,1/protick/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-smapi/husky-smapi-1.9.20191207,1/progate/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-smapi/husky-smapi-1.9.20191207,1/promknl/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-huskylib/husky-huskylib-1.9.20191207/progate/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-huskylib/husky-huskylib-1.9.20191207/promknl/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-huskylib/husky-huskylib-1.9.20191207/protick/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-htick/husky-htick-1.9.20191207/promknl/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-htick/husky-htick-1.9.20191207/progate/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-htick/husky-htick-1.9.20191207/protick/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-hpt/husky-hpt-1.9.20191207/progate/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-hpt/husky-hpt-1.9.20191207/promknl/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky-hpt/husky-hpt-1.9.20191207/protick/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/news/husky/husky-1.9.20191207/promknl/ |
H A D | mkmsgjam.pas | 298 FillChar(JM^, SizeOf(JM^), #0); 309 If JM <> Nil Then Dispose(JM); 708 JM^.TxtRead := JM^.TxtPos; 771 GetChar := JM^.TxtSubBuf[JM^.TxtSubChars + JM^.TxtPos]; 779 (JM^.TxtPos >= JM^.TxtBufStart + JM^.TxtRead)) Then 801 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1071 (JM^.TxtPos > JM^.TxtEnd)) And (JM^.TxtPos >= 0)); 1333 Seek(JM^.IdxFile, JM^.IdxStart); 1345 Seek(JM^.IdxFile, JM^.IdxStart); 1655 BlockRead(JM^.HdrFile, JM^.BaseHdr , SizeOf(JM^.BaseHdr)); [all …]
|
/dports/science/dcl/dcl-5.4.8/src/math2/shtlib/ |
H A D | shiniz.f | 8 REAL X(0:JM),Y(0:JM) 9 REAL Z(JM,0:JM,4) 11 DO 11 J1=1,JM 15 Z(J1,J2,1)=(SIN(2*JM*T1)/TAN(T1)+SIN(2*JM*T2)/TAN(T2))/(2*JM) 18 Z(J1,JM,1)=Z(J1,JM,1)/2 21 DO 21 J1=1,JM 26 Z(J1,J2,2)=(SIN(2*JM*T1)/SIN(T1)-SIN(2*JM*T2)/SIN(T2))/(2*JM) 28 Z(J1,JM,2)=Z(J1,JM,2)/2 31 DO 31 J1=1,JM 35 Z(J1,J2,3)=(SIN(2*JM*T1)/SIN(T1)+SIN(2*JM*T2)/SIN(T2))/(2*JM) [all …]
|