CursorOn

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);

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.
+END.

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.
-
+

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.
+END.

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;