diff --git a/cursoron.txt b/cursoron.txt new file mode 100644 index 0000000..49595f5 --- /dev/null +++ b/cursoron.txt @@ -0,0 +1,30 @@ +common2.pas:296:{ CursorOn(FALSE);} +common2.pas:529: CursorOn; +common2.pas:609:CursorOn(FALSE); +common2.pas:617: CursorOn(TRUE); +common2.pas:862: CursorOn(FALSE); +common2.pas:871: CursorOn(FALSE); +common2.pas:1124: CursorOn(i IN [1..4]); +common2.pas:1154: CursorOn(FALSE); +common2.pas:1335: CursorOn(TRUE); +common.pas:2153: CursorOn(TRUE); +common.pas:4784: CursorOn(TRUE); +common.pas:4793: CursorOn(TRUE); +menus.pas:397: CursorOn; +menus.pas:399: CursorOn(TRUE); +myio.pas:78:PROCEDURE CursorOn(b: BOOLEAN); +myio.pas:165:PROCEDURE CursorOn(b: BOOLEAN); ASSEMBLER; +myio.pas:181:PROCEDURE CursorOn(b: BOOLEAN); +myio.pas:774: CursorOn(true); +wfcmenu.pas:420: CursorOn(TRUE); +wfcmenu.pas:808: CursorOn(TRUE); +wfcmenu.pas:820: CursorOn(TRUE); +wfcmenu.pas:833: CursorOn(TRUE); +wfcmenu.pas:846: CursorOn(TRUE); +wfcmenu.pas:860: CursorOn(TRUE); +wfcmenu.pas:879: CursorOn(TRUE); +wfcmenu.pas:896: CursorOn(FALSE); +wfcmenu.pas:937: CursorOn(FALSE); +wfcmenu.pas:1082: CursorOn(TRUE); +wfcmenu.pas:1358: CursorOn(false); +wfcmenu.pas:1415: CursorOn(TRUE); diff --git a/src/common.pas b/src/common.pas index a9534bc..0948664 100644 --- a/src/common.pas +++ b/src/common.pas @@ -3,6 +3,7 @@ {$ENDIF} {$MODE TP} {$A+,B-,D-,E-,F+,I-,L-,N+,O-,R-,S-,V-} +{$PACKRECORDS c} UNIT Common; @@ -19,7 +20,14 @@ USES CONST StrLen = 119; -TYPE +Type + BBSVersion = Packed Record + Major, + Minor, + Patch : Byte; + OS : Astr; + End; + MCIFunctionType = FUNCTION(CONST s: AStr; Data1, Data2: Pointer): STRING; MemMenuRec = RECORD { Menu Record } @@ -482,6 +490,7 @@ VAR procedure Sound(hz: Word; duration: Word); function Ticks: LongInt; {$ENDIF} +Function GetBBSVersion : BBSVersion; FUNCTION GetC(c: Byte): STRING; PROCEDURE ShowColors; FUNCTION CheckDriveSpace(S,Path: AStr; MinSpace: Integer): Boolean; @@ -778,6 +787,27 @@ BEGIN END; {$ENDIF} +Function GetBBSVersion : BBSVersion; +Var + OsType :AStr; + TBBSVersionRecord : BBSVersion; +Begin + + {$IFDEF UNIX } OsType := 'Unix'; {$ENDIF} + {$IFDEF LINUX} OsType := 'Linux'; {$ENDIF} + {$IFDEF WIN32} OsType := 'Win32'; {$ENDIF} + {$IFDEF WIN64} OsType := 'Win64'; {$ENDIF} + {$IFDEF MSDOS} OsType := 'DOS'; {$ENDIF} + + With TBBSVersionRecord Do + Major := 2; + Minor := 0; + Patch := 0; + OS := OsType; + End; + +End; + FUNCTION CheckPW: Boolean; BEGIN CheckPW := Common1.CheckPW; @@ -5113,4 +5143,4 @@ BEGIN UNTIL (Ticks > CheckMS); END; -END. \ No newline at end of file +END. diff --git a/src/common2.pas b/src/common2.pas index 1910b78..25cf038 100644 --- a/src/common2.pas +++ b/src/common2.pas @@ -160,7 +160,7 @@ CONST 'H','o','u','r','s',':',#25,#6 ,'M','a','i','l',' ',':',#25,#6 ,'O', 'v','e','r','l','a','y','s',':',#25,#7 ,#24); -{$IFDEF LINUX} +{$IFDEF MSDOS} PROCEDURE BiosScroll(up: Boolean); ASSEMBLER; {$ASMMODE intel} ASM @@ -1339,4 +1339,4 @@ BEGIN END; END. - \ No newline at end of file + diff --git a/src/myio.pas b/src/myio.pas index 9957916..d317f18 100644 --- a/src/myio.pas +++ b/src/myio.pas @@ -99,8 +99,7 @@ function ColorSequence(Attr,LastAttr:word):string; IMPLEMENTATION USES - Crt, - RPPort + Crt {$IFDEF WIN32} ,RPScreen ,VpSysLow @@ -988,4 +987,4 @@ begin end; end; {$ENDIF} -END. \ No newline at end of file +END. diff --git a/src/renegade.pas b/src/renegade.pas index 27cf99d..f64488a 100644 --- a/src/renegade.pas +++ b/src/renegade.pas @@ -22,11 +22,10 @@ {$A+} { Align Data for faster execution } {$B-} { Shortcut Boolean eval } {$D+} { No Debug Info } +{$IFNDEF UNIX} {$E-} { No Math-Co library } -{$F+} { Force Far Calls } +{$ENDIF} {$I-} { Disable I/O check } -{$L+} { Local Symbols, Ignored IF D-, don't need cause of D- } -{$N-} { No Math-Co use } {$P+} { Allow OpenString } {$O+} { Use Overlays? } {$Q-} { No overflow check } @@ -79,11 +78,8 @@ USES CONST NeedToHangUp: Boolean = FALSE; - BBSVersion: Astr = '1.20.1/' - {$IFDEF LINUX} + 'Linux'; {$ENDIF} - {$IFDEF WIN32} + 'Win32'; {$ENDIF} - {$IFDEF WIN64} + 'Win64'; {$ENDIF} - {$IFDEF MSDOS} + 'Dos16'; {$ENDIF} + + VAR ExitSave: Pointer;