Skip to content

Commit e98ad2d

Browse files
mpostolmpostol
committed
Import the source code. #2
- import Rel 2.40
1 parent 8108ad4 commit e98ad2d

File tree

315 files changed

+69093
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

315 files changed

+69093
-0
lines changed

‎BAT/DGPS.BAT‎

Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,12 @@
1+
cd i:\INIT_GPS.src
2+
cd k:\vor.SRC
3+
cd j:\src
4+
CD s:\
5+
CD t:\
6+
CD u:\
7+
CD r:\
8+
cd h:\rtosv3
9+
cd l:\RTOSV3\IBM
10+
copy g:\bat\DGPS.bat g:\bat\LASTCFG.bat
11+
g:
12+
CD \

‎BAT/LASTCFG.BAT‎

Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,12 @@
1+
cd i:\VOR.src
2+
cd k:\DME.SRC
3+
cd j:\src
4+
CD s:\
5+
CD t:\
6+
CD u:\
7+
CD r:\
8+
cd h:\rtosv3
9+
cd l:\RTOSV3\IBM
10+
copy g:\bat\vor.bat g:\bat\LASTCFG.bat
11+
g:
12+
CD \

‎BAT/MODCFG.BAT‎

Lines changed: 53 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,53 @@
1+
rem @ECHO OFF
2+
SET M2LIB=g:\LIB;%MODULA%M2\M2LIB\LIB;
3+
SET M2SYM=I:;K:;J:;S:;T:;U:;r:;H:sym;L:sym;%MODULA%M2\M2LIB\SYM;
4+
SET M2DEF=I:;K:;J:;S:;T:;U:;r:;H:DEF;L:sym;%MODULA%M2\M2LIB\DEF;
5+
SET M2REF=I:;K:;J:;S:;T:;U:;r:;H:REF;L:sym;%MODULA%M2\M2LIB\REF;
6+
SET M2MOD=I:;K:;J:;S:;T:;U:;r:;H:MOD;L:sym;%MODULA%M2\M2LIB\MOD;
7+
SET M2OBJ=I:;K:;J:;S:;T:;U:;r:;H:OBJ;L:sym;%MODULA%M2\M2LIB\OBJ;
8+
SET M2OVL=%MODULA%M2\M2EXE;%MODULA%M2\POINT;
9+
10+
REM DEBGUBG
11+
SET M2LBR=%modula%M2\MYCONFIG
12+
SET M2CFG=%modula%M2\MYCONFIG
13+
14+
REM M2FORMAT
15+
SET M2F=%modula%M2\MYCONFIG
16+
17+
REM M2MAKE
18+
SET M2PAT=%modula%M2\MYCONFIG
19+
SET M2MAK=%modula%M2\MYCONFIG
20+
21+
SET M2RTD=/Z/J:8,9,21,33/B-/V-
22+
SET M2COPT=/b/T+/R+/S+/F+/A-/DEB/2/O+/C
23+
SET M2LOPT=/DEB/S:015000/v/b
24+
SET m2tmp=%temp%
25+
26+
REM M2XRTD
27+
SET M2XRTD=/Q-/A:"MAP"/B:192/F-
28+
PATH C:\DOS;C:\NU;C:\UTILS;C:\DELTA;
29+
PATH=%PATH%%MODULA%m2\m2exe;%MODULA%m2\point;\BAT;%modula%TOPSPEED\SYS
30+
31+
SUBST H:/d >nul
32+
SUBST L:/d >nul
33+
SUBST g:/d >nul
34+
SUBST i:/d >nul
35+
SUBST k:/d >nul
36+
SUBST J:/d >nul
37+
SUBST r:/d >nul
38+
SUBST s:/d >nul
39+
SUBST t:/d >nul
40+
SUBST u:/d >nul
41+
42+
SUBST H: %RTOSV3%
43+
cd h:\rtosv3
44+
SUBST L: %RTOSV3%
45+
SUBST g: %ROBOCZA%
46+
SUBST i: %ROBOCZA%
47+
SUBST k: %ROBOCZA%
48+
SUBST J: %ROBOCZA%
49+
SUBST r: %ROBOCZA%
50+
SUBST s: %ROBOCZA%
51+
SUBST t: %ROBOCZA%
52+
SUBST u: %ROBOCZA%
53+
CALL %ROBOCZA%\BAT\LASTCFG

‎BAT/MPIG1.BAT‎

Lines changed: 11 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,11 @@
1+
@echo off
2+
call \bat\DGPS.bat
3+
4+
IF EXIST *.obj DEL *.obj >nul
5+
IF EXIST *.ref del *.ref >nul
6+
IF EXIST *.lst del *.lst >NUL
7+
8+
m2make pig1.mod/A-/b+/g+/e/pf=pattern.pat >M2MAKE.txt
9+
call cmdfile
10+
11+
call \bat\cpig1

‎BAT/MSYM.BAT‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
cd \sym_db.src
2+
tscx symulato.pr/m
3+
move symulato.exe ..\
4+
cd \

‎CMDFILE.BAT‎

Lines changed: 57 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,57 @@
1+
@ECHO OFF
2+
m2c K:D_result.def/noa/B K:D_Files.def/noa/B K:D_Odb.def/noa/B K:D_DisRes.def/noa/B I:V_result.def/noa/B
3+
if exist *.lst goto error
4+
5+
m2c I:V_Files.def/noa/B K:D_Count.def/noa/B K:D_Slupek.def/noa/B I:V_Count.def/noa/B
6+
if exist *.lst goto error
7+
8+
m2c J:CommonTy.MOD/noa J:CommonDa.MOD/noa J:SpecConv.MOD/noa J:WorseBec.MOD/noa J:FlagAnal.MOD/noa J:Czas.MOD/noa
9+
if exist *.lst goto error
10+
11+
m2c J:AltInter.MOD/noa J:DGHInter.MOD/noa J:NAVInter.MOD/noa J:DGH_util.MOD/noa J:FIltr1St.MOD/noa J:GPSRead.MOD/noa
12+
if exist *.lst goto error
13+
14+
m2c J:GeoArith.MOD/noa J:Theodoli.MOD/noa J:ScannerI.MOD/noa J:Files.MOD/noa K:D_result.MOD/noa K:D_Odb.MOD/noa
15+
if exist *.lst goto error
16+
17+
m2c K:D_Files.MOD/noa J:DisResUt.MOD/noa K:D_DisRes.MOD/noa J:Marks.MOD/noa J:DataColl.MOD/noa J:EventsMn.MOD/noa
18+
if exist *.lst goto error
19+
20+
m2c J:PiszEven.MOD/noa I:VORO_avr.MOD/noa I:V_result.MOD/noa I:V_DisRes.MOD/noa I:PI_Anali.MOD/noa I:PI_ArchD.MOD/noa
21+
if exist *.lst goto error
22+
23+
m2c J:Print.MOD/noa J:PrintCnt.MOD/noa K:DMEPrint.MOD/noa I:V_Odb.MOD/noa I:V_Files.MOD/noa I:VORPrint.MOD/noa
24+
if exist *.lst goto error
25+
26+
m2c J:Mapa.MOD/noa I:V_Databa.MOD/noa I:V_Oblot.MOD/noa I:PI_Glown.MOD/noa K:D_Count.MOD/noa K:D_Slupek.MOD/noa
27+
if exist *.lst goto error
28+
29+
m2c K:D_DAcqui.MOD/noa I:V_Slupek.MOD/noa I:PI_ScrUt.MOD/noa J:Wykres.MOD/noa J:Screen.MOD/noa J:Pomiar.MOD/noa
30+
if exist *.lst goto error
31+
32+
m2c J:CocpDsp.MOD/noa I:V_CP_Con.MOD/noa I:VORR_Ave.MOD/noa I:V_Count.MOD/noa I:V_DAcqui.MOD/noa I:PI_Pomia.MOD/noa
33+
if exist *.lst goto error
34+
35+
m2c I:PI_Qchec.MOD/noa J:PrintScr.MOD/noa pV.MOD/noa
36+
if exist *.lst goto error
37+
38+
ECHO TRWA LINKOWANIE i BEDZIE TRWAC JESZCZE CHWILE
39+
m2l/SA/v/b pV >lastlink.TXT
40+
IF NOT EXIST pV.EXE GOTO ERROR
41+
GOTO end
42+
43+
@ECHO ! NIC NOWEGO - WSZYSTKO JUZ ZROBIONE !
44+
GOTO END
45+
46+
:SKIPLINK
47+
PAUSE ZLA WERSJA BIBLIOTEKI
48+
49+
:error
50+
ECHO !!! ERRORS !!!
51+
PAUSE !! ERRORS !!
52+
GOTO FINAL
53+
54+
:END
55+
ECHO JESZCZE JEDEN PELEN SUKCES
56+
57+
:FINAL

‎DIB/DGPS.BMP‎

234 KB
Binary file not shown.

‎DIB/DGPS0.BMP‎

150 KB
Binary file not shown.

‎DIB/DGPS1.BMP‎

45.8 KB
Binary file not shown.

‎DIB/GPS.DIB‎

470 KB
Binary file not shown.

0 commit comments

Comments
 (0)