eric
/
Renegade-1.19
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WORD and INTEGER fixes 

Forgot to recompile before the "WORD and INTEGER in RECORDs converted"
commit -- lots of errors related to that change needed to be taken care
of
This commit is contained in:
Rick Parrish 2013-02-07 15:07:11 -05:00
parent d6ff4957c2
commit 8c78673175
22 changed files with 99 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
SOURCE/ARCHIVE3.PAS
View File

@ -21,7 +21,7 @@ USES
File11, File11,
TimeFunc; TimeFunc;
PROCEDURE CvtFiles(FArea: Integer; FileName,ReZipCmd: AStr; VAR TotalFiles: Integer; VAR TotalOldSize,TotalNewSize: LongInt); PROCEDURE CvtFiles(FArea: Integer; FileName,ReZipCmd: AStr; VAR TotalFiles: SmallInt; VAR TotalOldSize,TotalNewSize: LongInt);
VAR VAR
S: AStr; S: AStr;
DS: DirStr; DS: DirStr;

21
SOURCE/COMMON.PAS
View File

@ -615,10 +615,10 @@ FUNCTION YN(Len: Byte; DYNY: Boolean): Boolean;
FUNCTION PYNQ(CONST InString: AStr; MaxLen: Byte; DYNY: Boolean): Boolean; FUNCTION PYNQ(CONST InString: AStr; MaxLen: Byte; DYNY: Boolean): Boolean;
PROCEDURE InputLongIntWC(S: AStr; VAR L: LongInt; InputFlags: InputFlagSet; LowNum,HighNum: LongInt; VAR Changed: Boolean); PROCEDURE InputLongIntWC(S: AStr; VAR L: LongInt; InputFlags: InputFlagSet; LowNum,HighNum: LongInt; VAR Changed: Boolean);
PROCEDURE InputLongIntWOC(S: AStr; VAR L: LongInt; InputFlags: InputFlagSet; LowNum,HighNum: LongInt); PROCEDURE InputLongIntWOC(S: AStr; VAR L: LongInt; InputFlags: InputFlagSet; LowNum,HighNum: LongInt);
PROCEDURE InputWordWC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean); PROCEDURE InputWordWC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean);
PROCEDURE InputWordWOC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word); PROCEDURE InputWordWOC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word);
PROCEDURE InputIntegerWC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean); PROCEDURE InputIntegerWC(S: AStr; VAR I: SmallInt; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean);
PROCEDURE InputIntegerWOC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer); PROCEDURE InputIntegerWOC(S: AStr; VAR I: SmallInt; InputFlags: InputFlagSet; LowNum,HighNum: Integer);
PROCEDURE InputByteWC(S: AStr; VAR B: Byte; InputFlags: InputFlagSet; LowNum,HighNum: Byte; VAR Changed: Boolean); PROCEDURE InputByteWC(S: AStr; VAR B: Byte; InputFlags: InputFlagSet; LowNum,HighNum: Byte; VAR Changed: Boolean);
PROCEDURE InputByteWOC(S: AStr; VAR B: Byte; InputFlags: InputFlagSet; LowNum,HighNum: Byte); PROCEDURE InputByteWOC(S: AStr; VAR B: Byte; InputFlags: InputFlagSet; LowNum,HighNum: Byte);
PROCEDURE InputDefault(VAR S: STRING; v: STRING; MaxLen: Byte; InputFlags: InputFlagSet; LineFeed: Boolean); PROCEDURE InputDefault(VAR S: STRING; v: STRING; MaxLen: Byte; InputFlags: InputFlagSet; LineFeed: Boolean);
@ -779,22 +779,22 @@ BEGIN
Common3.InputLongIntWOC(S,L,InputFlags,LowNum,HighNum); Common3.InputLongIntWOC(S,L,InputFlags,LowNum,HighNum);
END; END;
PROCEDURE InputWordWC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean); PROCEDURE InputWordWC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean);
BEGIN BEGIN
Common3.InputWordWC(S,W,InputFlags,LowNum,HighNum,Changed); Common3.InputWordWC(S,W,InputFlags,LowNum,HighNum,Changed);
END; END;
PROCEDURE InputWordWOC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word); PROCEDURE InputWordWOC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word);
BEGIN BEGIN
Common3.InputWordWOC(S,W,InputFlags,LowNum,HighNum); Common3.InputWordWOC(S,W,InputFlags,LowNum,HighNum);
END; END;
PROCEDURE InputIntegerWC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean); PROCEDURE InputIntegerWC(S: AStr; VAR I: SmallInt; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean);
BEGIN BEGIN
Common3.InputIntegerWC(S,I,InputFlags,LowNum,HighNum,Changed); Common3.InputIntegerWC(S,I,InputFlags,LowNum,HighNum,Changed);
END; END;
PROCEDURE InputIntegerWOC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer); PROCEDURE InputIntegerWOC(S: AStr; VAR I: SmallInt; InputFlags: InputFlagSet; LowNum,HighNum: Integer);
BEGIN BEGIN
Common3.InputIntegerWOC(S,I,Inputflags,LowNum,HighNum); Common3.InputIntegerWOC(S,I,Inputflags,LowNum,HighNum);
END; END;
@ -3025,7 +3025,10 @@ END;
{$IFDEF WIN32} {$IFDEF WIN32}
FUNCTION AOnOff(b: Boolean; CONST s1,s2:AStr): STRING; FUNCTION AOnOff(b: Boolean; CONST s1,s2:AStr): STRING;
BEGIN BEGIN
WriteLn('REETODO COMMON AOnOff'); Halt; if (b) then
AOnOff := s1
else
AOnOff := s2;
END; END;
{$ENDIF} {$ENDIF}

16
SOURCE/COMMON3.PAS
View File

@ -15,10 +15,10 @@ PROCEDURE InputDefault(VAR S: STRING; v: STRING; MaxLen: Byte; InputFlags: Input
PROCEDURE InputFormatted(DisplayStr: AStr; VAR InputStr: STRING; Format: STRING; Abortable: Boolean); PROCEDURE InputFormatted(DisplayStr: AStr; VAR InputStr: STRING; Format: STRING; Abortable: Boolean);
PROCEDURE InputLongIntWC(S: AStr; VAR L: LongInt; InputFlags: InputFlagSet; LowNum,HighNum: LongInt; VAR Changed: Boolean); PROCEDURE InputLongIntWC(S: AStr; VAR L: LongInt; InputFlags: InputFlagSet; LowNum,HighNum: LongInt; VAR Changed: Boolean);
PROCEDURE InputLongIntWOC(S: AStr; VAR L: LongInt; InputFlags: InputFlagSet; LowNum,HighNum: LongInt); PROCEDURE InputLongIntWOC(S: AStr; VAR L: LongInt; InputFlags: InputFlagSet; LowNum,HighNum: LongInt);
PROCEDURE InputWordWC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean); PROCEDURE InputWordWC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean);
PROCEDURE InputWordWOC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word); PROCEDURE InputWordWOC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word);
PROCEDURE InputIntegerWC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean); PROCEDURE InputIntegerWC(S: AStr; VAR I: SmallInt; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean);
PROCEDURE InputIntegerWOC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer); PROCEDURE InputIntegerWOC(S: AStr; VAR I: SmallInt; InputFlags: InputFlagSet; LowNum,HighNum: Integer);
PROCEDURE InputByteWC(S: AStr; VAR B: Byte; InputFlags: InputFlagSet; LowNum,HighNum: Byte; VAR Changed: Boolean); PROCEDURE InputByteWC(S: AStr; VAR B: Byte; InputFlags: InputFlagSet; LowNum,HighNum: Byte; VAR Changed: Boolean);
PROCEDURE InputByteWOC(S: AStr; VAR B: Byte; InputFlags: InputFlagSet; LowNum,HighNum: Byte); PROCEDURE InputByteWOC(S: AStr; VAR B: Byte; InputFlags: InputFlagSet; LowNum,HighNum: Byte);
PROCEDURE InputWN1(DisplayStr: AStr; VAR InputStr: AStr; MaxLen: Byte; InputFlags: InputFlagSet; VAR Changed: Boolean); PROCEDURE InputWN1(DisplayStr: AStr; VAR InputStr: AStr; MaxLen: Byte; InputFlags: InputFlagSet; VAR Changed: Boolean);
@ -165,7 +165,7 @@ BEGIN
InputLongIntWC(S,L,InputFlags,LowNum,HighNum,Changed); InputLongIntWC(S,L,InputFlags,LowNum,HighNum,Changed);
END; END;
PROCEDURE InputWordWC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean); PROCEDURE InputWordWC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean);
VAR VAR
TempStr: Str5; TempStr: Str5;
SaveW: Word; SaveW: Word;
@ -195,7 +195,7 @@ BEGIN
Changed := TRUE; Changed := TRUE;
END; END;
PROCEDURE InputWordWOC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word); PROCEDURE InputWordWOC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word);
VAR VAR
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
@ -203,7 +203,7 @@ BEGIN
InputWordWC(S,W,InputFlags,LowNum,HighNum,Changed); InputWordWC(S,W,InputFlags,LowNum,HighNum,Changed);
END; END;
PROCEDURE InputIntegerWC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean); PROCEDURE InputIntegerWC(S: AStr; VAR I: SmallInt; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean);
VAR VAR
TempStr: Str5; TempStr: Str5;
SaveI: Integer; SaveI: Integer;
@ -233,7 +233,7 @@ BEGIN
Changed := TRUE; Changed := TRUE;
END; END;
PROCEDURE InputIntegerWOC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer); PROCEDURE InputIntegerWOC(S: AStr; VAR I: SmallInt; InputFlags: InputFlagSet; LowNum,HighNum: Integer);
VAR VAR
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN

2
SOURCE/CUSER.PAS
View File

@ -896,7 +896,7 @@ VAR
VAR VAR
AScheme: SchemeRec; AScheme: SchemeRec;
i, i,
Onlin: Integer; Onlin: SmallInt;
BEGIN BEGIN
Reset(SchemeFile); Reset(SchemeFile);
CLS; CLS;

2
SOURCE/LOGON.PAS
View File

@ -744,7 +744,7 @@ VAR
S, S,
ACSReq: AStr; ACSReq: AStr;
OverridePW: Str20; OverridePW: Str20;
Lng: Integer; Lng: SmallInt;
Tries, Tries,
I, I,
TTimes, TTimes,

2
SOURCE/MAIL1.PAS
View File

@ -1338,7 +1338,7 @@ VAR
HelpCounter: Byte; HelpCounter: Byte;
Counter, Counter,
LineNum1, LineNum1,
LineNum2: Integer; LineNum2: SmallInt;
ShowCont, ShowCont,
ExitMsg, ExitMsg,
SaveLine, SaveLine,

8
SOURCE/NODELIST.PAS
View File

@ -13,8 +13,8 @@ USES
PROCEDURE ToggleNetAttr(NetAttrT: NetAttr; VAR NetAttrS: NetAttribs); PROCEDURE ToggleNetAttr(NetAttrT: NetAttr; VAR NetAttrS: NetAttribs);
PROCEDURE ToggleNetAttrs(C: CHAR; VAR NetAttrS: NetAttribs); PROCEDURE ToggleNetAttrs(C: CHAR; VAR NetAttrS: NetAttribs);
FUNCTION GetNewAddr(DisplayStr: AStr; MaxLen: Byte; VAR Zone,Net,Node,Point: Word): Boolean; FUNCTION GetNewAddr(DisplayStr: AStr; MaxLen: Byte; VAR Zone,Net,Node,Point: SmallWord): Boolean;
PROCEDURE GetNetAddress(VAR SysOpName: AStr; VAR Zone,Net,Node,Point,Fee: Word; GetFee: Boolean); PROCEDURE GetNetAddress(VAR SysOpName: AStr; VAR Zone,Net,Node,Point: SmallWord; var Fee: Word; GetFee: Boolean);
PROCEDURE ChangeFlags(VAR MsgHeader: MHeaderRec); PROCEDURE ChangeFlags(VAR MsgHeader: MHeaderRec);
FUNCTION NetMail_Attr(NetAttribute: NetAttribs): AStr; FUNCTION NetMail_Attr(NetAttribute: NetAttribs): AStr;
@ -107,7 +107,7 @@ BEGIN
END; END;
END; END;
FUNCTION GetNewAddr(DisplayStr: AStr; MaxLen: Byte; VAR Zone,Net,Node,Point: Word): Boolean; FUNCTION GetNewAddr(DisplayStr: AStr; MaxLen: Byte; VAR Zone,Net,Node,Point: SmallWord): Boolean;
BEGIN BEGIN
GetNewAddr := FALSE; GetNewAddr := FALSE;
Prt(DisplayStr); Prt(DisplayStr);
@ -209,7 +209,7 @@ BEGIN
Compaddress := K; Compaddress := K;
END; END;
PROCEDURE GetNetAddress(VAR SysOpName:AStr; VAR Zone,Net,Node,Point,Fee:Word; GetFee:Boolean); PROCEDURE GetNetAddress(VAR SysOpName: AStr; VAR Zone,Net,Node,Point: SmallWord; var Fee: Word; GetFee: Boolean);
VAR VAR
DataFile, DataFile,
NDXFile: FILE; NDXFile: FILE;

5
SOURCE/RENEMAIL.PAS
View File

@ -391,7 +391,10 @@ END;
{$IFDEF WIN32} {$IFDEF WIN32}
FUNCTION AOnOff(B: Boolean; S1,S2: STRING): STRING; FUNCTION AOnOff(B: Boolean; S1,S2: STRING): STRING;
BEGIN BEGIN
WriteLn('REETODO RENEMAIL AOnOff'); Halt; if (B) then
AOnOff := S1
else
AOnOff := S2;
END; END;
{$ENDIF} {$ENDIF}

14
SOURCE/SYSOP1.PAS
View File

@ -76,7 +76,7 @@ VAR
END; END;
END; END;
PROCEDURE DeleteProtocol(TempProtocol1: ProtocolRecordType; RecNumToDelete: Integer); PROCEDURE DeleteProtocol(TempProtocol1: ProtocolRecordType; RecNumToDelete: SmallInt);
VAR VAR
RecNum: Integer; RecNum: Integer;
BEGIN BEGIN
@ -243,7 +243,7 @@ VAR
END; END;
PROCEDURE EditProtocol(TempProtocol1: ProtocolRecordType; VAR Protocol: ProtocolRecordType; VAR Cmd1: Char; PROCEDURE EditProtocol(TempProtocol1: ProtocolRecordType; VAR Protocol: ProtocolRecordType; VAR Cmd1: Char;
VAR RecNumToEdit: Integer; VAR Changed: Boolean; Editing: Boolean); VAR RecNumToEdit: SmallInt; VAR Changed: Boolean; Editing: Boolean);
VAR VAR
TempStr, TempStr,
CmdStr: AStr; CmdStr: AStr;
@ -600,11 +600,11 @@ VAR
UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp); UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp);
END; END;
PROCEDURE InsertProtocol(TempProtocol1: ProtocolRecordType; RecNumToInsertBefore: Integer); PROCEDURE InsertProtocol(TempProtocol1: ProtocolRecordType; RecNumToInsertBefore: SmallInt);
VAR VAR
Cmd1: Char; Cmd1: Char;
RecNum, RecNum,
RecNumToEdit: Integer; RecNumToEdit: SmallInt;
Ok, Ok,
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
@ -659,7 +659,7 @@ VAR
END; END;
END; END;
PROCEDURE ModifyProtocol(TempProtocol1: ProtocolRecordType; Cmd1: Char; RecNumToEdit: Integer); PROCEDURE ModifyProtocol(TempProtocol1: ProtocolRecordType; Cmd1: Char; RecNumToEdit: SmallInt);
VAR VAR
SaveRecNumToEdit: Integer; SaveRecNumToEdit: Integer;
Ok, Ok,
@ -710,11 +710,11 @@ VAR
END; END;
END; END;
PROCEDURE PositionProtocol(TempProtocol1: ProtocolRecordType; RecNumToPosition: Integer); PROCEDURE PositionProtocol(TempProtocol1: ProtocolRecordType; RecNumToPosition: SmallInt);
VAR VAR
RecNumToPositionBefore, RecNumToPositionBefore,
RecNum1, RecNum1,
RecNum2: Integer; RecNum2: SmallInt;
BEGIN BEGIN
IF (NumProtocols = 0) THEN IF (NumProtocols = 0) THEN
Messages(4,0,'protocols') Messages(4,0,'protocols')

14
SOURCE/SYSOP12.PAS
View File

@ -199,7 +199,7 @@ VAR
END; END;
END; END;
PROCEDURE DeleteConference(TempConference1: ConferenceRecordType; RecNumToDelete: Integer); PROCEDURE DeleteConference(TempConference1: ConferenceRecordType; RecNumToDelete: SmallInt);
VAR VAR
User: UserRecordType; User: UserRecordType;
RecNum: Integer; RecNum: Integer;
@ -273,7 +273,7 @@ VAR
END; END;
PROCEDURE EditConference(TempConference1: ConferenceRecordType; VAR Conference: ConferenceRecordType; VAR Cmd1: Char; PROCEDURE EditConference(TempConference1: ConferenceRecordType; VAR Conference: ConferenceRecordType; VAR Cmd1: Char;
VAR RecNumToEdit: Integer; VAR Changed: Boolean; Editing: Boolean); VAR RecNumToEdit: SmallInt; VAR Changed: Boolean; Editing: Boolean);
VAR VAR
CmdStr: AStr; CmdStr: AStr;
Ok: Boolean; Ok: Boolean;
@ -362,11 +362,11 @@ VAR
UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp); UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp);
END; END;
PROCEDURE InsertConference(TempConference1: ConferenceRecordType; Cmd1: Char; RecNumToInsertBefore: Integer); PROCEDURE InsertConference(TempConference1: ConferenceRecordType; Cmd1: Char; RecNumToInsertBefore: SmallInt);
VAR VAR
OneKCmds: AStr; OneKCmds: AStr;
RecNum, RecNum,
RecNumToEdit: Integer; RecNumToEdit: SmallInt;
Ok, Ok,
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
@ -431,7 +431,7 @@ VAR
END; END;
END; END;
PROCEDURE ModifyConference(TempConference1: ConferenceRecordType; Cmd1: Char; RecNumToEdit: Integer); PROCEDURE ModifyConference(TempConference1: ConferenceRecordType; Cmd1: Char; RecNumToEdit: SmallInt);
VAR VAR
SaveRecNumToEdit: Integer; SaveRecNumToEdit: Integer;
Ok, Ok,
@ -482,11 +482,11 @@ VAR
END; END;
END; END;
PROCEDURE PositionConference(TempConference1: ConferenceRecordType; RecNumToPosition: Integer); PROCEDURE PositionConference(TempConference1: ConferenceRecordType; RecNumToPosition: SmallInt);
VAR VAR
RecNumToPositionBefore, RecNumToPositionBefore,
RecNum1, RecNum1,
RecNum2: Integer; RecNum2: SmallInt;
BEGIN BEGIN
IF (NumConfKeys = 0) THEN IF (NumConfKeys = 0) THEN
Messages(4,0,'conference records') Messages(4,0,'conference records')

2
SOURCE/SYSOP2A.PAS
View File

@ -284,7 +284,7 @@ USES
} }
PROCEDURE GetTimeRange(CONST RGStrNum: LongInt; VAR LoTime,HiTime: Integer); PROCEDURE GetTimeRange(CONST RGStrNum: LongInt; VAR LoTime,HiTime: SmallInt);
VAR VAR
TempStr: Str5; TempStr: Str5;
LowTime, LowTime,

2
SOURCE/SYSOP2D.PAS
View File

@ -23,7 +23,7 @@ VAR
MaxByte: Byte; MaxByte: Byte;
TempI, TempI,
MinInt, MinInt,
MaxInt: Integer; MaxInt: SmallInt;
TempL, TempL,
MinLongInt, MinLongInt,
MaxLongInt: LongInt; MaxLongInt: LongInt;

2
SOURCE/SYSOP2E.PAS
View File

@ -26,7 +26,7 @@ VAR
Cmd1: Char; Cmd1: Char;
LowNum, LowNum,
HiNum, HiNum,
TempInt: Integer; TempInt: SmallInt;
BEGIN BEGIN
REPEAT REPEAT
WITH General DO WITH General DO

14
SOURCE/SYSOP2G.PAS
View File

@ -401,7 +401,7 @@ VAR
END; END;
END; END;
PROCEDURE DeleteValidationLevel(TempValidation1: ValidationRecordType; RecNumToDelete: Integer); PROCEDURE DeleteValidationLevel(TempValidation1: ValidationRecordType; RecNumToDelete: SmallInt);
VAR VAR
User: UserRecordType; User: UserRecordType;
RecNum: Integer; RecNum: Integer;
@ -478,7 +478,7 @@ VAR
END; END;
PROCEDURE EditValidationLevel(TempValidation1: ValidationRecordType; VAR Validation: ValidationRecordType; VAR Cmd1: Char; PROCEDURE EditValidationLevel(TempValidation1: ValidationRecordType; VAR Validation: ValidationRecordType; VAR Cmd1: Char;
VAR RecNumToEdit: Integer; VAR Changed: Boolean; Editing: Boolean); VAR RecNumToEdit: SmallInt; VAR Changed: Boolean; Editing: Boolean);
VAR VAR
User: UserRecordType; User: UserRecordType;
CmdStr, CmdStr,
@ -674,11 +674,11 @@ VAR
UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp); UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp);
END; END;
PROCEDURE InsertValidationLevel(TempValidation1: ValidationRecordType; Cmd1: Char; RecNumToInsertBefore: Integer); PROCEDURE InsertValidationLevel(TempValidation1: ValidationRecordType; Cmd1: Char; RecNumToInsertBefore: SmallInt);
VAR VAR
OneKCmds: AStr; OneKCmds: AStr;
RecNum, RecNum,
RecNumToEdit: Integer; RecNumToEdit: SmallInt;
Ok, Ok,
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
@ -744,7 +744,7 @@ VAR
END; END;
END; END;
PROCEDURE ModifyValidationLevel(TempValidation1: ValidationRecordType; Cmd1: Char; RecNumToEdit: Integer); PROCEDURE ModifyValidationLevel(TempValidation1: ValidationRecordType; Cmd1: Char; RecNumToEdit: SmallInt);
VAR VAR
SaveRecNumToEdit: Integer; SaveRecNumToEdit: Integer;
Ok, Ok,
@ -795,11 +795,11 @@ VAR
END; END;
END; END;
PROCEDURE PositionValidationLevel(TempValidation1: ValidationRecordType; RecNumToPosition: Integer); PROCEDURE PositionValidationLevel(TempValidation1: ValidationRecordType; RecNumToPosition: SmallInt);
VAR VAR
RecNumToPositionBefore, RecNumToPositionBefore,
RecNum1, RecNum1,
RecNum2: Integer; RecNum2: SmallInt;
BEGIN BEGIN
IF (NumValKeys = 0) THEN IF (NumValKeys = 0) THEN
Messages(4,0,'validation records') Messages(4,0,'validation records')

12
SOURCE/SYSOP2J.PAS
View File

@ -371,7 +371,7 @@ VAR
END; END;
END; END;
PROCEDURE DeleteScheme(TempScheme1: SchemeRec; RecNumToDelete: Integer); PROCEDURE DeleteScheme(TempScheme1: SchemeRec; RecNumToDelete: SmallInt);
VAR VAR
User: UserRecordType; User: UserRecordType;
RecNum: Integer; RecNum: Integer;
@ -450,7 +450,7 @@ VAR
END; END;
PROCEDURE EditScheme(TempScheme1: SchemeRec; VAR Scheme: SchemeRec; VAR Cmd1: Char; PROCEDURE EditScheme(TempScheme1: SchemeRec; VAR Scheme: SchemeRec; VAR Cmd1: Char;
VAR RecNumToEdit: Integer; VAR Changed: Boolean; Editing: Boolean); VAR RecNumToEdit: SmallInt; VAR Changed: Boolean; Editing: Boolean);
VAR VAR
CmdStr: AStr; CmdStr: AStr;
Ok: Boolean; Ok: Boolean;
@ -547,11 +547,11 @@ VAR
UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp); UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp);
END; END;
PROCEDURE InsertScheme(TempScheme1: SchemeRec; Cmd1: Char; RecNumToInsertBefore: Integer); PROCEDURE InsertScheme(TempScheme1: SchemeRec; Cmd1: Char; RecNumToInsertBefore: SmallInt);
VAR VAR
User: UserRecordType; User: UserRecordType;
RecNum, RecNum,
RecNumToEdit: Integer; RecNumToEdit: SmallInt;
Ok, Ok,
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
@ -622,7 +622,7 @@ VAR
END; END;
END; END;
PROCEDURE ModifyScheme(TempScheme1: SchemeRec; Cmd1: Char; RecNumToEdit: Integer); PROCEDURE ModifyScheme(TempScheme1: SchemeRec; Cmd1: Char; RecNumToEdit: SmallInt);
VAR VAR
SaveRecNumToEdit: Integer; SaveRecNumToEdit: Integer;
Ok, Ok,
@ -678,7 +678,7 @@ VAR
RecNumToPosition, RecNumToPosition,
RecNumToPositionBefore, RecNumToPositionBefore,
RecNum1, RecNum1,
RecNum2: Integer; RecNum2: SmallInt;
BEGIN BEGIN
IF (NumSchemes = 0) THEN IF (NumSchemes = 0) THEN
Messages(4,0,'color schemes') Messages(4,0,'color schemes')

2
SOURCE/SYSOP2O.PAS
View File

@ -21,7 +21,7 @@ VAR
Counter: Byte; Counter: Byte;
DisplayValue, DisplayValue,
FromValue, FromValue,
ToValue: Integer; ToValue: SmallInt;
NewValue: LongInt; NewValue: LongInt;
PROCEDURE ShowSecRange(Start: Byte); PROCEDURE ShowSecRange(Start: Byte);

16
SOURCE/SYSOP5.PAS
View File

@ -53,7 +53,7 @@ VAR
END; END;
PROCEDURE LocateHistoryDate(DisplayStr: AStr; TempHistory1: HistoryRecordType; VAR DateToLocate: Str10; PROCEDURE LocateHistoryDate(DisplayStr: AStr; TempHistory1: HistoryRecordType; VAR DateToLocate: Str10;
VAR RecNum1: Integer; ShowErr,Searching: Boolean); VAR RecNum1: SmallInt; ShowErr,Searching: Boolean);
VAR VAR
RecNum: Integer; RecNum: Integer;
BEGIN BEGIN
@ -82,7 +82,7 @@ VAR
END; END;
END; END;
PROCEDURE DeleteHistoryRecord(TempHistory1: HistoryRecordType; RecNumToDelete: Integer); PROCEDURE DeleteHistoryRecord(TempHistory1: HistoryRecordType; RecNumToDelete: SmallInt);
VAR VAR
DateToDelete: Str10; DateToDelete: Str10;
RecNum: Integer; RecNum: Integer;
@ -143,12 +143,12 @@ VAR
END; END;
PROCEDURE EditHistoryRecord(TempHistory1: HistoryRecordType; VAR History: HistoryRecordType; VAR Cmd1: Char; PROCEDURE EditHistoryRecord(TempHistory1: HistoryRecordType; VAR History: HistoryRecordType; VAR Cmd1: Char;
VAR RecNumToEdit,SaveRecNumToEdit: Integer; VAR Changed: Boolean; Editing: Boolean); VAR RecNumToEdit,SaveRecNumToEdit: SmallInt; VAR Changed: Boolean; Editing: Boolean);
VAR VAR
CmdStr, CmdStr,
TempStr1: AStr; TempStr1: AStr;
DateToLocate: Str10; DateToLocate: Str10;
RecNum: Integer; RecNum: SmallInt;
Ok: Boolean; Ok: Boolean;
BEGIN BEGIN
WITH History DO WITH History DO
@ -337,13 +337,13 @@ VAR
UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp); UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp);
END; END;
PROCEDURE InsertHistoryRecord(TempHistory1: HistoryRecordType; Cmd1: Char; RecNumToInsertBefore: Integer); PROCEDURE InsertHistoryRecord(TempHistory1: HistoryRecordType; Cmd1: Char; RecNumToInsertBefore: SmallInt);
VAR VAR
DateToInsert, DateToInsert,
DateToInsertBefore: Str10; DateToInsertBefore: Str10;
RecNum, RecNum,
RecNum1, RecNum1,
SaveRecNumToEdit: Integer; SaveRecNumToEdit: SmallInt;
Ok, Ok,
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
@ -414,10 +414,10 @@ VAR
END; END;
END; END;
PROCEDURE ModifyHistoryRecord(TempHistory1: HistoryRecordType; Cmd1: Char; RecNumToEdit: Integer); PROCEDURE ModifyHistoryRecord(TempHistory1: HistoryRecordType; Cmd1: Char; RecNumToEdit: SmallInt);
VAR VAR
DateToEdit: Str10; DateToEdit: Str10;
SaveRecNumToEdit: Integer; SaveRecNumToEdit: SmallInt;
Ok, Ok,
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN

14
SOURCE/SYSOP6.PAS
View File

@ -137,7 +137,7 @@ VAR
END; END;
END; END;
PROCEDURE DeleteEvent(TempEvent1: EventRecordType; RecNumToDelete: Integer); PROCEDURE DeleteEvent(TempEvent1: EventRecordType; RecNumToDelete: SmallInt);
VAR VAR
RecNum: Integer; RecNum: Integer;
BEGIN BEGIN
@ -192,7 +192,7 @@ VAR
PROCEDURE EditEvent(TempEvent1: EventRecordType; VAR Event: EventRecordType; VAR Cmd1: Char; PROCEDURE EditEvent(TempEvent1: EventRecordType; VAR Event: EventRecordType; VAR Cmd1: Char;
VAR RecNumToEdit: Integer; VAR Changed: Boolean; Editing: Boolean); VAR RecNumToEdit: SmallInt; VAR Changed: Boolean; Editing: Boolean);
CONST CONST
BaudRates: ARRAY [1..20] OF LongInt = (300,600,1200,2400,4800,7200,9600, BaudRates: ARRAY [1..20] OF LongInt = (300,600,1200,2400,4800,7200,9600,
12000,14400,16800,19200,21600,24000, 12000,14400,16800,19200,21600,24000,
@ -750,10 +750,10 @@ VAR
UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp); UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp);
END; END;
PROCEDURE InsertEvent(TempEvent1: EventRecordType; Cmd1: Char; RecNumToInsertBefore: Integer); PROCEDURE InsertEvent(TempEvent1: EventRecordType; Cmd1: Char; RecNumToInsertBefore: SmallInt);
VAR VAR
RecNum, RecNum,
RecNumToEdit: Integer; RecNumToEdit: SmallInt;
Ok, Ok,
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
@ -808,7 +808,7 @@ VAR
END; END;
END; END;
PROCEDURE ModifyEvent(TempEvent1: EventRecordType; Cmd1: Char; RecNumToEdit: Integer); PROCEDURE ModifyEvent(TempEvent1: EventRecordType; Cmd1: Char; RecNumToEdit: SmallInt);
VAR VAR
SaveRecNumToEdit: Integer; SaveRecNumToEdit: Integer;
Ok, Ok,
@ -859,11 +859,11 @@ VAR
END; END;
END; END;
PROCEDURE PositionEvent(TempEvent1: EventRecordType; RecNumToPosition: Integer); PROCEDURE PositionEvent(TempEvent1: EventRecordType; RecNumToPosition: SmallInt);
VAR VAR
RecNumToPositionBefore, RecNumToPositionBefore,
RecNum1, RecNum1,
RecNum2: Integer; RecNum2: SmallInt;
BEGIN BEGIN
IF (NumEvents = 0) THEN IF (NumEvents = 0) THEN
Messages(4,0,'events') Messages(4,0,'events')

6
SOURCE/SYSOP7.PAS
View File

@ -231,7 +231,7 @@ VAR
PROCEDURE DeleteMenu; PROCEDURE DeleteMenu;
VAR VAR
RecNumToDelete, RecNumToDelete,
RecNum: Integer; RecNum: SmallInt;
DeleteOk: Boolean; DeleteOk: Boolean;
BEGIN BEGIN
IF (NumMenus = 0) THEN IF (NumMenus = 0) THEN
@ -307,7 +307,7 @@ VAR
VAR VAR
RecNumToInsertBefore, RecNumToInsertBefore,
NewMenuNum, NewMenuNum,
RecNum: Integer; RecNum: SmallInt;
BEGIN BEGIN
IF (NumMenus = MaxMenus) THEN IF (NumMenus = MaxMenus) THEN
Messages(5,MaxMenus,'menus') Messages(5,MaxMenus,'menus')
@ -367,7 +367,7 @@ VAR
RecNum, RecNum,
RecNum1, RecNum1,
RecNumToModify, RecNumToModify,
SaveRecNumToModify: Integer; SaveRecNumToModify: SmallInt;
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
IF (NumMenus = 0) THEN IF (NumMenus = 0) THEN

8
SOURCE/SYSOP7M.PAS
View File

@ -121,7 +121,7 @@ VAR
PROCEDURE DeleteCommand; PROCEDURE DeleteCommand;
VAR VAR
RecNumToDelete, RecNumToDelete,
RecNum: Integer; RecNum: SmallInt;
BEGIN BEGIN
IF (CmdNumArray[MenuToModify] = 0) THEN IF (CmdNumArray[MenuToModify] = 0) THEN
Messages(4,0,'commands') Messages(4,0,'commands')
@ -160,7 +160,7 @@ VAR
VAR VAR
RecNumToInsertBefore, RecNumToInsertBefore,
InsertNum, InsertNum,
RecNum: Integer; RecNum: SmallInt;
BEGIN BEGIN
IF (CmdNumArray[MenuToModify] = MaxCmds) THEN IF (CmdNumArray[MenuToModify] = MaxCmds) THEN
Messages(5,MaxCmds,'commands') Messages(5,MaxCmds,'commands')
@ -208,7 +208,7 @@ VAR
Cmd1: Char; Cmd1: Char;
TempB: Byte; TempB: Byte;
RecNumToModify, RecNumToModify,
SaveRecNumToModify: Integer; SaveRecNumToModify: SmallInt;
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
IF (CmdNumArray[MenuToModify] = 0) THEN IF (CmdNumArray[MenuToModify] = 0) THEN
@ -359,7 +359,7 @@ VAR
RecNumToPosition, RecNumToPosition,
RecNumToPositionBefore, RecNumToPositionBefore,
RecNum1, RecNum1,
RecNum2: Integer; RecNum2: SmallInt;
BEGIN BEGIN
IF (CmdNumArray[MenuToModify] = 0) THEN IF (CmdNumArray[MenuToModify] = 0) THEN
Messages(4,0,'commands') Messages(4,0,'commands')

22
SOURCE/SYSOP8.PAS
View File

@ -25,7 +25,7 @@ VAR
MsgareaDefFile: FILE OF MessageAreaRecordType; MsgareaDefFile: FILE OF MessageAreaRecordType;
TempMemMsgArea: MessageAreaRecordType; TempMemMsgArea: MessageAreaRecordType;
Cmd: Char; Cmd: Char;
RecNumToList: Integer; RecNumToList: SmallInt;
Ok, Ok,
Changed, Changed,
SaveTempPause: Boolean; SaveTempPause: Boolean;
@ -163,10 +163,10 @@ VAR
END; END;
END; END;
PROCEDURE ChangeMsgAreaDrive(Drive: Char; FirstRecNum: Integer); PROCEDURE ChangeMsgAreaDrive(Drive: Char; FirstRecNum: SmallInt);
VAR VAR
LastRecNum, LastRecNum,
RecNum: Integer; RecNum: SmallInt;
BEGIN BEGIN
IF (NumMsgAreas = 0) THEN IF (NumMsgAreas = 0) THEN
Messages(4,0,'message areas') Messages(4,0,'message areas')
@ -213,7 +213,7 @@ VAR
END END
END; END;
PROCEDURE DeleteMsgArea(TempMemMsgArea1: MessageAreaRecordType; RecNumToDelete: Integer); PROCEDURE DeleteMsgArea(TempMemMsgArea1: MessageAreaRecordType; RecNumToDelete: SmallInt);
VAR VAR
RecNum: Integer; RecNum: Integer;
Ok, Ok,
@ -315,7 +315,7 @@ VAR
END; END;
PROCEDURE EditMessageArea(TempMemMsgArea1: MessageAreaRecordType; VAR MemMsgArea: MessageAreaRecordType; VAR Cmd1: Char; PROCEDURE EditMessageArea(TempMemMsgArea1: MessageAreaRecordType; VAR MemMsgArea: MessageAreaRecordType; VAR Cmd1: Char;
VAR RecNumToEdit: Integer; VAR Changed: Boolean; Editing: Boolean); VAR RecNumToEdit: SmallInt; VAR Changed: Boolean; Editing: Boolean);
VAR VAR
TempFileName: Str8; TempFileName: Str8;
Path1, Path1,
@ -687,12 +687,12 @@ VAR
UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp); UNTIL (Pos(Cmd1,'Q[]FJL') <> 0) OR (HangUp);
END; END;
PROCEDURE InsertMsgArea(TempMemMsgArea1: MessageAreaRecordType; Cmd1: Char; RecNumToInsertBefore: Integer); PROCEDURE InsertMsgArea(TempMemMsgArea1: MessageAreaRecordType; Cmd1: Char; RecNumToInsertBefore: SmallInt);
VAR VAR
MsgAreaScanFile: FILE OF ScanRec; MsgAreaScanFile: FILE OF ScanRec;
RecNum, RecNum,
RecNum1, RecNum1,
RecNumToEdit: Integer; RecNumToEdit: SmallInt;
Ok, Ok,
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
@ -792,7 +792,7 @@ VAR
END; END;
END; END;
PROCEDURE ModifyMsgArea(TempMemMsgArea1: MessageAreaRecordType; Cmd1: Char; RecNumToEdit: Integer); PROCEDURE ModifyMsgArea(TempMemMsgArea1: MessageAreaRecordType; Cmd1: Char; RecNumToEdit: SmallInt);
VAR VAR
User: UserRecordType; User: UserRecordType;
MsgAreaScanFile: FILE OF ScanRec; MsgAreaScanFile: FILE OF ScanRec;
@ -916,11 +916,11 @@ VAR
END; END;
END; END;
PROCEDURE PositionMsgArea(TempMemMsgArea1: MessageAreaRecordType; RecNumToPosition: Integer); PROCEDURE PositionMsgArea(TempMemMsgArea1: MessageAreaRecordType; RecNumToPosition: SmallInt);
VAR VAR
RecNumToPositionBefore, RecNumToPositionBefore,
RecNum1, RecNum1,
RecNum2: Integer; RecNum2: SmallInt;
BEGIN BEGIN
IF (NumMsgAreas = 0) THEN IF (NumMsgAreas = 0) THEN
Messages(4,0,'message areas') Messages(4,0,'message areas')
@ -1020,7 +1020,7 @@ VAR
END; END;
END; END;
PROCEDURE ListMsgAreas(VAR RecNumToList1: Integer); PROCEDURE ListMsgAreas(VAR RecNumToList1: SmallInt);
VAR VAR
NumDone: Integer; NumDone: Integer;
BEGIN BEGIN

6
SOURCE/SYSOP9.PAS
View File

@ -351,7 +351,7 @@ VAR
PROCEDURE DeleteFileArea(TempMemFileArea1: FileAreaRecordType; MCIVars1: MCIVarRecord); PROCEDURE DeleteFileArea(TempMemFileArea1: FileAreaRecordType; MCIVars1: MCIVarRecord);
VAR VAR
RecNum, RecNum,
RecNumToDelete: Integer; RecNumToDelete: SmallInt;
Ok, Ok,
OK1, OK1,
Ok2: Boolean; Ok2: Boolean;
@ -870,7 +870,7 @@ VAR
Cmd1: Char; Cmd1: Char;
RecNum, RecNum,
RecNum1, RecNum1,
RecNumToInsertBefore: Integer; RecNumToInsertBefore: SmallInt;
Ok, Ok,
Changed: Boolean; Changed: Boolean;
BEGIN BEGIN
@ -1102,7 +1102,7 @@ VAR
RecNumToPosition, RecNumToPosition,
RecNumToPositionBefore, RecNumToPositionBefore,
RecNum1, RecNum1,
RecNum2: Integer; RecNum2: SmallInt;
BEGIN BEGIN
IF (NumFileAreas = 0) THEN IF (NumFileAreas = 0) THEN
FAELngStr(5,MemFileArea,MCIVars1,FALSE) FAELngStr(5,MemFileArea,MCIVars1,FALSE)