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,
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
S: AStr;
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;
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 InputWordWC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean);
PROCEDURE InputWordWOC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word);
PROCEDURE InputIntegerWC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean);
PROCEDURE InputIntegerWOC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer);
PROCEDURE InputWordWC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean);
PROCEDURE InputWordWOC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word);
PROCEDURE InputIntegerWC(S: AStr; VAR I: SmallInt; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean);
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 InputByteWOC(S: AStr; VAR B: Byte; InputFlags: InputFlagSet; LowNum,HighNum: Byte);
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);
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
Common3.InputWordWC(S,W,InputFlags,LowNum,HighNum,Changed);
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
Common3.InputWordWOC(S,W,InputFlags,LowNum,HighNum);
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
Common3.InputIntegerWC(S,I,InputFlags,LowNum,HighNum,Changed);
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
Common3.InputIntegerWOC(S,I,Inputflags,LowNum,HighNum);
END;
@ -3025,7 +3025,10 @@ END;
{$IFDEF WIN32}
FUNCTION AOnOff(b: Boolean; CONST s1,s2:AStr): STRING;
BEGIN
WriteLn('REETODO COMMON AOnOff'); Halt;
if (b) then
AOnOff := s1
else
AOnOff := s2;
END;
{$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 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 InputWordWC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean);
PROCEDURE InputWordWOC(S: AStr; VAR W: Word; InputFlags: InputFlagSet; LowNum,HighNum: Word);
PROCEDURE InputIntegerWC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean);
PROCEDURE InputIntegerWOC(S: AStr; VAR I: Integer; InputFlags: InputFlagSet; LowNum,HighNum: Integer);
PROCEDURE InputWordWC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word; VAR Changed: Boolean);
PROCEDURE InputWordWOC(S: AStr; VAR W: SmallWord; InputFlags: InputFlagSet; LowNum,HighNum: Word);
PROCEDURE InputIntegerWC(S: AStr; VAR I: SmallInt; InputFlags: InputFlagSet; LowNum,HighNum: Integer; VAR Changed: Boolean);
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 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);
@ -165,7 +165,7 @@ BEGIN
InputLongIntWC(S,L,InputFlags,LowNum,HighNum,Changed);
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
TempStr: Str5;
SaveW: Word;
@ -195,7 +195,7 @@ BEGIN
Changed := TRUE;
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
Changed: Boolean;
BEGIN
@ -203,7 +203,7 @@ BEGIN
InputWordWC(S,W,InputFlags,LowNum,HighNum,Changed);
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
TempStr: Str5;
SaveI: Integer;
@ -233,7 +233,7 @@ BEGIN
Changed := TRUE;
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
Changed: Boolean;
BEGIN

2
SOURCE/CUSER.PAS
View File

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

2
SOURCE/LOGON.PAS
View File

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

2
SOURCE/MAIL1.PAS
View File

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

8
SOURCE/NODELIST.PAS
View File

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

5
SOURCE/RENEMAIL.PAS
View File

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

14
SOURCE/SYSOP1.PAS
View File

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

14
SOURCE/SYSOP12.PAS
View File

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

2
SOURCE/SYSOP2D.PAS
View File

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

2
SOURCE/SYSOP2E.PAS
View File

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

14
SOURCE/SYSOP2G.PAS
View File

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

12
SOURCE/SYSOP2J.PAS
View File

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

2
SOURCE/SYSOP2O.PAS
View File

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

16
SOURCE/SYSOP5.PAS
View File

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

14
SOURCE/SYSOP6.PAS
View File

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

6
SOURCE/SYSOP7.PAS
View File

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

8
SOURCE/SYSOP7M.PAS
View File

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

22
SOURCE/SYSOP8.PAS
View File

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

6
SOURCE/SYSOP9.PAS
View File

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