diff --git a/SOURCE/ARCHIVE3.PAS b/SOURCE/ARCHIVE3.PAS index fae0c10..7c9d304 100644 --- a/SOURCE/ARCHIVE3.PAS +++ b/SOURCE/ARCHIVE3.PAS @@ -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; diff --git a/SOURCE/COMMON.PAS b/SOURCE/COMMON.PAS index 33b9bfb..33939a6 100644 --- a/SOURCE/COMMON.PAS +++ b/SOURCE/COMMON.PAS @@ -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} diff --git a/SOURCE/COMMON3.PAS b/SOURCE/COMMON3.PAS index b07167c..e1bae37 100644 --- a/SOURCE/COMMON3.PAS +++ b/SOURCE/COMMON3.PAS @@ -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 diff --git a/SOURCE/CUSER.PAS b/SOURCE/CUSER.PAS index fadaf77..a7f1ab4 100644 --- a/SOURCE/CUSER.PAS +++ b/SOURCE/CUSER.PAS @@ -896,7 +896,7 @@ VAR VAR AScheme: SchemeRec; i, - Onlin: Integer; + Onlin: SmallInt; BEGIN Reset(SchemeFile); CLS; diff --git a/SOURCE/LOGON.PAS b/SOURCE/LOGON.PAS index 907d1c0..ce529f7 100644 --- a/SOURCE/LOGON.PAS +++ b/SOURCE/LOGON.PAS @@ -744,7 +744,7 @@ VAR S, ACSReq: AStr; OverridePW: Str20; - Lng: Integer; + Lng: SmallInt; Tries, I, TTimes, diff --git a/SOURCE/MAIL1.PAS b/SOURCE/MAIL1.PAS index 92e4d24..0584a25 100644 --- a/SOURCE/MAIL1.PAS +++ b/SOURCE/MAIL1.PAS @@ -1338,7 +1338,7 @@ VAR HelpCounter: Byte; Counter, LineNum1, - LineNum2: Integer; + LineNum2: SmallInt; ShowCont, ExitMsg, SaveLine, diff --git a/SOURCE/NODELIST.PAS b/SOURCE/NODELIST.PAS index 29fae8e..684380e 100644 --- a/SOURCE/NODELIST.PAS +++ b/SOURCE/NODELIST.PAS @@ -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; diff --git a/SOURCE/RENEMAIL.PAS b/SOURCE/RENEMAIL.PAS index 508fb88..b37e871 100644 --- a/SOURCE/RENEMAIL.PAS +++ b/SOURCE/RENEMAIL.PAS @@ -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} diff --git a/SOURCE/SYSOP1.PAS b/SOURCE/SYSOP1.PAS index 77ad48b..f6758a7 100644 --- a/SOURCE/SYSOP1.PAS +++ b/SOURCE/SYSOP1.PAS @@ -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') diff --git a/SOURCE/SYSOP12.PAS b/SOURCE/SYSOP12.PAS index d6d88d4..46c9a31 100644 --- a/SOURCE/SYSOP12.PAS +++ b/SOURCE/SYSOP12.PAS @@ -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') diff --git a/SOURCE/SYSOP2A.PAS b/SOURCE/SYSOP2A.PAS index 169eb1d..99c1a7f 100644 --- a/SOURCE/SYSOP2A.PAS +++ b/SOURCE/SYSOP2A.PAS @@ -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, diff --git a/SOURCE/SYSOP2D.PAS b/SOURCE/SYSOP2D.PAS index 33727d6..15fdb69 100644 --- a/SOURCE/SYSOP2D.PAS +++ b/SOURCE/SYSOP2D.PAS @@ -23,7 +23,7 @@ VAR MaxByte: Byte; TempI, MinInt, - MaxInt: Integer; + MaxInt: SmallInt; TempL, MinLongInt, MaxLongInt: LongInt; diff --git a/SOURCE/SYSOP2E.PAS b/SOURCE/SYSOP2E.PAS index 48eac76..9fd6ba7 100644 --- a/SOURCE/SYSOP2E.PAS +++ b/SOURCE/SYSOP2E.PAS @@ -26,7 +26,7 @@ VAR Cmd1: Char; LowNum, HiNum, - TempInt: Integer; + TempInt: SmallInt; BEGIN REPEAT WITH General DO diff --git a/SOURCE/SYSOP2G.PAS b/SOURCE/SYSOP2G.PAS index b98fa5d..ca2451b 100644 --- a/SOURCE/SYSOP2G.PAS +++ b/SOURCE/SYSOP2G.PAS @@ -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') diff --git a/SOURCE/SYSOP2J.PAS b/SOURCE/SYSOP2J.PAS index 5b7e446..b4c18ef 100644 --- a/SOURCE/SYSOP2J.PAS +++ b/SOURCE/SYSOP2J.PAS @@ -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') diff --git a/SOURCE/SYSOP2O.PAS b/SOURCE/SYSOP2O.PAS index 41896ff..204250f 100644 --- a/SOURCE/SYSOP2O.PAS +++ b/SOURCE/SYSOP2O.PAS @@ -21,7 +21,7 @@ VAR Counter: Byte; DisplayValue, FromValue, - ToValue: Integer; + ToValue: SmallInt; NewValue: LongInt; PROCEDURE ShowSecRange(Start: Byte); diff --git a/SOURCE/SYSOP5.PAS b/SOURCE/SYSOP5.PAS index b8e7538..2c6241d 100644 --- a/SOURCE/SYSOP5.PAS +++ b/SOURCE/SYSOP5.PAS @@ -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 diff --git a/SOURCE/SYSOP6.PAS b/SOURCE/SYSOP6.PAS index 87de7ad..0e93253 100644 --- a/SOURCE/SYSOP6.PAS +++ b/SOURCE/SYSOP6.PAS @@ -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') diff --git a/SOURCE/SYSOP7.PAS b/SOURCE/SYSOP7.PAS index bc34bd4..2c9cd55 100644 --- a/SOURCE/SYSOP7.PAS +++ b/SOURCE/SYSOP7.PAS @@ -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 diff --git a/SOURCE/SYSOP7M.PAS b/SOURCE/SYSOP7M.PAS index e10cf9f..3af822c 100644 --- a/SOURCE/SYSOP7M.PAS +++ b/SOURCE/SYSOP7M.PAS @@ -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') diff --git a/SOURCE/SYSOP8.PAS b/SOURCE/SYSOP8.PAS index ca4eaf8..5b7faa1 100644 --- a/SOURCE/SYSOP8.PAS +++ b/SOURCE/SYSOP8.PAS @@ -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 diff --git a/SOURCE/SYSOP9.PAS b/SOURCE/SYSOP9.PAS index 5a70b6c..45f7ed8 100644 --- a/SOURCE/SYSOP9.PAS +++ b/SOURCE/SYSOP9.PAS @@ -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)