From 9314f9dd30adf4d838e74498587b79d2b76cdbc8 Mon Sep 17 00:00:00 2001
From: sikofitt <sikofitt@gmail.com>
Date: Tue, 15 Mar 2016 04:53:59 -0700
Subject: [PATCH] CursorOn

---
 cursoron.txt     | 30 ++++++++++++++++++++++++++++++
 src/common.pas   | 34 ++++++++++++++++++++++++++++++++--
 src/common2.pas  |  4 ++--
 src/myio.pas     |  5 ++---
 src/renegade.pas | 12 ++++--------
 5 files changed, 70 insertions(+), 15 deletions(-)
 create mode 100644 cursoron.txt

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;