Listing: 1 (* Release 3.10 *) 2 (*-------------------------------------------------------------------------* 3 * * 4 * COMSETUP.MOD - COMMS Toolkit setup * 5 * * 6 * COPYRIGHT (C) 1988..1992 Clarion Software Corporation. * 7 * All Rights Reserved * 8 * * 9 *--------------------------------------------------------------------------*) 10 11 IMPLEMENTATION MODULE ComSetup; 12 IMPORT CommUtil,FIO,IO,Lib,MenuLib,MPRINTF,RS232,SPRINTF,Str,Window; 13 FROM CommUtil IMPORT FuncKeys; ***** ^ duplicate identifier 14 FROM RS232 IMPORT ParityCodes,FlowControls; ***** ^ duplicate identifier 15 16 TYPE 17 String30 = ARRAY[0..30] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 18 String10 = ARRAY[0..10] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 19 String3 = ARRAY[0..3] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 20 AsciiStd = ARRAY[0..32] OF String3; ***** ^ not supported yet ***** ^ not supported yet 21 22 CONST 23 Template = Window.WinDef(0,0,0,0,Window.Yellow,Window.Black,TRUE,FALSE,FALSE,TRUE,Window.SingleFrame,Window.LightGray,Window.Black); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 24 Code = AsciiStd('NUL','SOH','STX','ETX','EOT','ENQ','ACK','BEL','BS', ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 25 'HT','LF','VT','FF','CR','SO','SI','DLE','DC1','DC2', ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 26 'DC3','DC4','NAK','SYN','ETB','CAN','EM','SUB','ESC', ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 27 'FS','GS','RS','US','SP'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 28 29 VAR 30 OldEmulation : Term.Emulations; ***** ^ undeclared identifier ***** ^ not supported yet 31 BoolStr : ARRAY BOOLEAN OF String3; ***** ^ not supported yet ***** ^ not supported yet 32 SMenu : MenuLib.MenuRec; ***** ^ not supported yet 33 34 (*........................................*) 35 36 PROCEDURE AsciiCode(c:CHAR):String3; 37 VAR 38 s : String3; ***** ^ not supported yet 39 BEGIN 40 IF c<=' ' THEN 41 s:=Code[ORD(c)]; ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 42 ELSE 43 s:=' '; ***** ^ not supported yet ***** ^ incompatible assignment 44 s[0]:=c; ***** ^ not supported yet ***** ^ not supported yet 45 END; 46 RETURN s; ***** ^ not supported yet 47 END AsciiCode; ***** ^ not supported yet 48 49 (*........................................*) 50 51 PROCEDURE GetDefaultSetup; 52 VAR 53 i : CARDINAL; 54 BEGIN 55 WITH Setup DO ***** ^ undeclared identifier 56 WITH Serial DO ***** ^ undeclared identifier 57 Port:=1; ***** ^ undeclared identifier 58 Baud:=1200; ***** ^ undeclared identifier 59 DataBits:=8; ***** ^ undeclared identifier 60 StopBits:=1; ***** ^ undeclared identifier 61 Parity:=None; ***** ^ undeclared identifier ***** ^ undeclared identifier 62 FlowControl:=RtsCts; ***** ^ undeclared identifier ***** ^ undeclared identifier 63 END; ***** ^ not supported yet 64 WITH General DO ***** ^ undeclared identifier 65 MaskBit7:=TRUE; ***** ^ undeclared identifier 66 CRInTranslation:=CR; ***** ^ undeclared identifier ***** ^ undeclared identifier 67 CROutTranslation:=CR; ***** ^ undeclared identifier ***** ^ undeclared identifier 68 ScriptDir:=''; ***** ^ undeclared identifier 69 DownloadDir:=''; ***** ^ undeclared identifier 70 END; ***** ^ not supported yet 71 WITH Kermit DO ***** ^ undeclared identifier 72 Sync:=1C; ***** ^ undeclared identifier 73 MaxPacketSize:=90; ***** ^ undeclared identifier 74 PadChar:=0C; ***** ^ undeclared identifier 75 NumPadChars:=0; ***** ^ undeclared identifier 76 CtlQuote:='#'; ***** ^ undeclared identifier 77 ReptPrefix:='~'; ***** ^ undeclared identifier 78 EightBitQuote:='&'; ***** ^ undeclared identifier 79 ImageMode:=TRUE; ***** ^ undeclared identifier 80 IBMMode:=FALSE; ***** ^ undeclared identifier 81 EolChar:=CHR(13); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 82 END; ***** ^ not supported yet 83 WITH ASCII DO ***** ^ undeclared identifier 84 CharDelayMS:=20; ***** ^ undeclared identifier 85 LineDelayMS:=40; ***** ^ undeclared identifier 86 END; ***** ^ not supported yet 87 Emulation:=Term.EmVT100; ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 88 FOR i:=0 TO 9 DO ***** ^ undeclared identifier 89 Macros[i]:=''; ***** ^ undeclared identifier ***** ^ undeclared identifier 90 END; 91 END; ***** ^ not supported yet 92 END GetDefaultSetup; ***** ^ not supported yet 93 94 (*........................................*) 95 96 PROCEDURE InitSetup; 97 VAR 98 f : FIO.File; ***** ^ not supported yet 99 BEGIN 100 FIO.IOcheck := FALSE; ***** ^ not supported yet ***** ^ not supported yet 101 f := FIO.Open('TERM.CFG'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 102 IF FIO.IOresult()=0 THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 103 IF NOT (FIO.RdBin(f,Setup,SIZE(SetupRec))=SIZE(SetupRec)) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 104 GetDefaultSetup; ***** ^ not supported yet 105 END; 106 FIO.Close(f); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 107 ELSE 108 GetDefaultSetup; ***** ^ not supported yet 109 END; 110 END InitSetup; ***** ^ not supported yet 111 112 (*................................................*) 113 114 PROCEDURE Value(VAR s:ARRAY OF CHAR; VAR Result:CARDINAL); ***** ^ not supported yet 115 VAR 116 c : CHAR; 117 x,i : CARDINAL; 118 BEGIN 119 IF s[0]<>0C THEN ***** ^ not supported yet ***** ^ not supported yet 120 x:=0; i:=0; 121 FOR i:=0 TO HIGH(s) DO ***** ^ undeclared identifier ***** ^ not supported yet 122 c := CAP(s[i]); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 123 IF c=0C THEN 124 Result:=x; 125 RETURN; 126 ELSIF (c>='0') AND (c<='9') THEN 127 x := x*10 + ORD(c)-48 ***** ^ undeclared identifier ***** ^ not supported yet 128 ELSE 129 RETURN; 130 END; 131 END; 132 Result := x; 133 END; 134 END Value; ***** ^ not supported yet 135 136 (*........................................*) 137 138 PROCEDURE ReadNum(x,y:CARDINAL; Prompt:ARRAY OF CHAR; Min,Max:CARDINAL;VAR Result:CARDINAL); ***** ^ not supported yet 139 VAR 140 Ok : BOOLEAN; 141 Num,Lnth : CARDINAL; 142 NumStr : ARRAY[0..3] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 143 Def : Window.WinDef; ***** ^ not supported yet 144 Win : Window.WinType; ***** ^ not supported yet 145 BEGIN 146 Def := Template; ***** ^ not supported yet 147 WITH Def DO ***** ^ not supported yet 148 X1:=x; ***** ^ undeclared identifier 149 Y1:=y; ***** ^ undeclared identifier 150 X2:=X1+39; ***** ^ undeclared identifier ***** ^ undeclared identifier 151 Y2:=Y1+2; ***** ^ undeclared identifier ***** ^ undeclared identifier 152 Foreground := CommUtil.Colors.PromptFore; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 153 Background := CommUtil.Colors.PromptBack; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 154 FrameFore := CommUtil.Colors.PromptFrFore; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 155 FrameBack := CommUtil.Colors.PromptFrBack; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 156 END; ***** ^ not supported yet 157 Win := Window.Open(Def); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 158 Window.TextColor(CommUtil.Colors.PromptFore); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 159 Window.GotoXY(1,1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 160 IO.WrStr(Prompt); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 161 Window.TextColor(CommUtil.Colors.PromptHigh); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 162 Str.CardToStr(LONGCARD(Result),NumStr,10,Ok); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 163 CommUtil.ReadLine(NumStr,4); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 164 Num := Result; ***** ^ undeclared identifier ***** ^ undeclared identifier 165 Value(NumStr,Num); ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier 166 IF (Num>=Min) AND (Num<=Max) THEN ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 167 Result:=Num; ***** ^ undeclared identifier ***** ^ undeclared identifier 168 END; 169 Window.Close(Win); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 170 END ReadNum; ***** ^ not supported yet 171 172 (*........................................*) 173 174 PROCEDURE ReadChar(x,y:CARDINAL; Prompt:ARRAY OF CHAR; VAR Ch:CHAR); ***** ^ not supported yet 175 VAR 176 c : CHAR; 177 Lnth : CARDINAL; 178 Def : Window.WinDef; ***** ^ not supported yet 179 Win : Window.WinType; ***** ^ not supported yet 180 BEGIN 181 Lnth := Str.Length(Prompt)+20; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 182 Def := Template; ***** ^ not supported yet 183 WITH Def DO ***** ^ not supported yet 184 X1:=x; ***** ^ undeclared identifier 185 Y1:=y; ***** ^ undeclared identifier 186 X2:=X1+39; ***** ^ undeclared identifier ***** ^ undeclared identifier 187 Y2:=Y1+2; ***** ^ undeclared identifier ***** ^ undeclared identifier 188 Foreground := CommUtil.Colors.PromptFore; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 189 Background := CommUtil.Colors.PromptBack; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 190 FrameFore := CommUtil.Colors.PromptFrFore; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 191 FrameBack := CommUtil.Colors.PromptFrBack; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 192 END; ***** ^ not supported yet 193 Win := Window.Open(Def); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 194 Window.TextColor(CommUtil.Colors.PromptFore); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 195 Window.GotoXY(1,1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 196 IO.WrStr(Prompt); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 197 Window.TextColor(CommUtil.Colors.PromptHigh); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 198 IO.WrStr(AsciiCode(Ch)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 199 Window.GotoXY(Str.Length(Prompt)+1,1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 200 CommUtil.Read(c); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 201 IF c<>CHR(27) THEN ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 202 Ch:=c; ***** ^ undeclared identifier ***** ^ undeclared identifier 203 END; 204 Window.Close(Win); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 205 END ReadChar; ***** ^ not supported yet 206 207 (*........................................*) 208 209 PROCEDURE ModemSetup(MenuX,MenuY:CARDINAL); 210 VAR 211 i,Count : CARDINAL; 212 Serial : MenuLib.MenuRec; ***** ^ not supported yet 213 214 (*. . . . . . . . . . . . . . . . . . . . .*) 215 216 PROCEDURE ParStr(Parity:ParityCodes):String10; 217 BEGIN 218 CASE Parity OF ***** ^ not supported yet 219 Odd : RETURN ' ODD'; | ***** ^ undeclared identifier ***** ^ not supported yet 220 Even : RETURN ' EVEN'; | ***** ^ undeclared identifier ***** ^ not supported yet 221 Mark : RETURN ' MARK'; | ***** ^ undeclared identifier ***** ^ not supported yet 222 Space : RETURN 'SPACE'; | ***** ^ undeclared identifier ***** ^ not supported yet 223 None : RETURN ' NONE'; | ***** ^ undeclared identifier ***** ^ not supported yet 224 END; 225 END ParStr; ***** ^ not supported yet 226 227 (*. . . . . . . . . . . . . . . . . . . . .*) 228 229 PROCEDURE FlowStr(Ctrl:FlowControls):String10; 230 BEGIN 231 CASE Ctrl OF ***** ^ not supported yet 232 NoFlowControl: RETURN ' NONE'; | ***** ^ undeclared identifier ***** ^ not supported yet 233 RtsCts : RETURN ' RTS/CTS'; | ***** ^ undeclared identifier ***** ^ not supported yet 234 XonXoff : RETURN 'XON/XOFF'; | ***** ^ undeclared identifier ***** ^ not supported yet 235 END; 236 END FlowStr; ***** ^ not supported yet 237 238 (*. . . . . . . . . . . . . . . . . . . . .*) 239 240 PROCEDURE MsChangeMenu; 241 BEGIN 242 WITH Setup.Serial DO ***** ^ undeclared identifier ***** ^ not supported yet 243 WITH Serial DO ***** ^ not supported yet 244 SPRINTF.SPrintF1(' Comm Port: %5u ',Port,Option[0].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 245 SPRINTF.SPrintF1(' Baud Rate: %5u ',Baud,Option[1].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 246 SPRINTF.SPrintF1(' Data Bits: %5u ',DataBits,Option[2].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 247 SPRINTF.SPrintF1(' Parity: %s ',ParStr(Parity),Option[3].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 248 SPRINTF.SPrintF1(' Stop bits: %5u ',StopBits,Option[4].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 249 SPRINTF.SPrintF1(' Flow Ctrl: %s ',FlowStr(FlowControl),Option[5].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 250 END; (*WITH*) ***** ^ not supported yet 251 END; (*WITH*) ***** ^ not supported yet 252 END MsChangeMenu; ***** ^ not supported yet 253 254 (*. . . . . . . . . . . . . . . . . . . . .*) 255 256 BEGIN (* ModemSetup *) 257 MenuLib.InitMenu(Serial,'',MenuX,MenuY,22); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 258 Serial.EscapeOK := TRUE; ***** ^ undeclared identifier ***** ^ not supported yet 259 Serial.ExitOnChar := TRUE; ***** ^ undeclared identifier ***** ^ not supported yet 260 FOR i:=0 TO 5 DO ***** ^ undeclared identifier 261 MenuLib.AddOption(Serial,' Comm Port: '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 262 END; 263 MsChangeMenu; ***** ^ undeclared identifier 264 MenuLib.DispMenu(Serial); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 265 LOOP 266 WITH Setup.Serial DO ***** ^ undeclared identifier ***** ^ not supported yet 267 CASE MenuLib.MenuDrive(Serial) OF ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 268 -1 : EXIT; | 269 0 : Port := (Port MOD 4)+1; | ***** ^ undeclared identifier ***** ^ undeclared identifier 270 1 : Baud := Baud*2; ***** ^ undeclared identifier ***** ^ undeclared identifier 271 IF Baud>19200 THEN ***** ^ undeclared identifier 272 Baud := 75; ***** ^ undeclared identifier 273 END; | 274 2 : DataBits := 7+ORD(DataBits=7); | ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 275 3 : CASE Parity OF ***** ^ undeclared identifier 276 None : Parity:=Even; | ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 277 Even : Parity:=Odd; | ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 278 Odd : Parity:=Mark; | ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 279 Mark : Parity:=Space; | ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 280 Space: Parity:=None; | ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 281 END; | 282 4 : StopBits := 1+ORD(StopBits=1); | ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 283 5 : IF FlowControl=NoFlowControl THEN ***** ^ undeclared identifier ***** ^ undeclared identifier 284 FlowControl:=RtsCts ***** ^ undeclared identifier ***** ^ undeclared identifier 285 ELSIF FlowControl=RtsCts THEN ***** ^ undeclared identifier ***** ^ undeclared identifier 286 FlowControl:=XonXoff ***** ^ undeclared identifier ***** ^ undeclared identifier 287 ELSE 288 FlowControl:=NoFlowControl ***** ^ undeclared identifier ***** ^ undeclared identifier 289 END; | 290 END; 291 END; ***** ^ not supported yet 292 MsChangeMenu; ***** ^ undeclared identifier 293 END; 294 MenuLib.KillMenu(Serial); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 295 RS232.UnInstall; ***** ^ not supported yet ***** ^ not supported yet 296 WITH Setup.Serial DO ***** ^ undeclared identifier ***** ^ not supported yet 297 RS232.SelectPort(Port); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 298 RS232.InitPort(Baud,DataBits,StopBits,Parity); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 299 RS232.Install; ***** ^ not supported yet ***** ^ not supported yet 300 RS232.SetFlowControl(FlowControl); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 301 END; ***** ^ not supported yet 302 END ModemSetup; ***** ^ not supported yet 303 304 (*........................................*) 305 306 PROCEDURE GeneralSetup(MenuX,MenuY:CARDINAL); 307 VAR 308 i : CARDINAL; 309 GMenu : MenuLib.MenuRec; ***** ^ not supported yet 310 Selection : INTEGER; 311 CRText : ARRAY CrTypes OF String10; ***** ^ undeclared identifier ***** ^ not supported yet 312 313 (*. . . . . . . . . . . . . . . . . . . . .*) 314 315 PROCEDURE GsChangeMenu; 316 BEGIN 317 WITH Setup.General DO ***** ^ undeclared identifier ***** ^ not supported yet 318 WITH GMenu DO ***** ^ not supported yet 319 SPRINTF.SPrintF1(' Strip Parity Bit: %3s ',BoolStr[MaskBit7],Option[0].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 320 SPRINTF.SPrintF1(' CR-in Translation: %4s ',CRText[CRInTranslation],Option[1].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 321 SPRINTF.SPrintF1(' CR-out Translation: %4s ',CRText[CROutTranslation],Option[2].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 322 END; ***** ^ not supported yet 323 END; ***** ^ not supported yet 324 END GsChangeMenu; ***** ^ not supported yet 325 326 (*. . . . . . . . . . . . . . . . . . . . .*) 327 328 BEGIN (* GeneralSetup *) 329 CRText[CR]:='CR'; ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 330 CRText[CRLF]:='CRLF'; ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 331 MenuLib.InitMenu(GMenu,'',MenuX,MenuY,26); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 332 GMenu.EscapeOK := TRUE; ***** ^ undeclared identifier ***** ^ not supported yet 333 FOR i:=0 TO 2 DO ***** ^ undeclared identifier 334 MenuLib.AddOption(GMenu,' X '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 335 END; 336 MenuLib.AddOption(GMenu,' Directory for Scripts '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 337 MenuLib.AddOption(GMenu,' Directory for Downloads '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 338 GsChangeMenu; ***** ^ undeclared identifier 339 MenuLib.DispMenu(GMenu); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 340 LOOP 341 Selection := MenuLib.MenuDrive(GMenu); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 342 WITH Setup.General DO ***** ^ undeclared identifier ***** ^ not supported yet 343 CASE Selection OF ***** ^ undeclared identifier 344 -1 : EXIT; | 345 0 : MaskBit7 := (NOT MaskBit7); | ***** ^ undeclared identifier ***** ^ undeclared identifier 346 1 : IF CRInTranslation=CR THEN ***** ^ undeclared identifier ***** ^ undeclared identifier 347 CRInTranslation:=CRLF ***** ^ undeclared identifier ***** ^ undeclared identifier 348 ELSE 349 CRInTranslation:=CR ***** ^ undeclared identifier ***** ^ undeclared identifier 350 END; | 351 2 : IF CROutTranslation=CR THEN ***** ^ undeclared identifier ***** ^ undeclared identifier 352 CROutTranslation:=CRLF ***** ^ undeclared identifier ***** ^ undeclared identifier 353 ELSE 354 CROutTranslation:=CR ***** ^ undeclared identifier ***** ^ undeclared identifier 355 END; | 356 3 : CommUtil.ReadString(MenuX+1,MenuY+5,'','',ScriptDir);| ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 357 4 : CommUtil.ReadString(MenuX+1,MenuY+6,'','',DownloadDir);| ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 358 END; 359 END; ***** ^ not supported yet 360 IF (Selection>=0) AND (Selection<=2) THEN ***** ^ undeclared identifier ***** ^ undeclared identifier 361 GsChangeMenu; ***** ^ undeclared identifier 362 END; 363 END; 364 MenuLib.KillMenu(GMenu); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 365 END GeneralSetup; ***** ^ not supported yet 366 367 (*........................................*) 368 369 PROCEDURE KermitSetup(MenuX,MenuY:CARDINAL); 370 VAR 371 i : CARDINAL; 372 KMenu : MenuLib.MenuRec; ***** ^ not supported yet 373 ModeStr : ARRAY BOOLEAN OF String10; ***** ^ not supported yet ***** ^ not supported yet 374 375 (*. . . . . . . . . . . . . . . . . . . .*) 376 377 PROCEDURE KsChangeMenu; 378 BEGIN 379 WITH Setup.Kermit DO ***** ^ undeclared identifier ***** ^ not supported yet 380 WITH KMenu DO ***** ^ not supported yet 381 SPRINTF.SPrintF1(' Sync Char: %3s ',AsciiCode(Sync),Option[0].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 382 SPRINTF.SPrintF1(' Packet Size: %4u ',MaxPacketSize,Option[1].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 383 SPRINTF.SPrintF1(' Pad Char: %3s ',AsciiCode(PadChar),Option[2].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 384 SPRINTF.SPrintF1(' No. Pad Chars: %4u ',NumPadChars,Option[3].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 385 SPRINTF.SPrintF1(' Control Quote: %c ',CtlQuote,Option[4].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 386 SPRINTF.SPrintF1(' Repeat Prefix: %c ',ReptPrefix,Option[5].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 387 SPRINTF.SPrintF1(' 8th bit Quote: %c ',EightBitQuote,Option[6].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 388 SPRINTF.SPrintF1(' Transfer Mode: %4s ',ModeStr[ImageMode],Option[7].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 389 SPRINTF.SPrintF1(' IBM Mode: %3s ',BoolStr[IBMMode],Option[8].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 390 SPRINTF.SPrintF1(' EOL Char: %3s ',AsciiCode(EolChar),Option[9].Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 391 END; ***** ^ not supported yet 392 END; ***** ^ not supported yet 393 END KsChangeMenu; ***** ^ not supported yet 394 395 (*. . . . . . . . . . . . . . . . . . . .*) 396 397 BEGIN (* KermitSetup *) 398 ModeStr[TRUE] := '8Bit'; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 399 ModeStr[FALSE] := '7Bit'; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 400 MenuLib.InitMenu(KMenu,'',MenuX,MenuY,21); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 401 KMenu.EscapeOK := TRUE; ***** ^ undeclared identifier ***** ^ not supported yet 402 FOR i:=0 TO 9 DO ***** ^ undeclared identifier 403 MenuLib.AddOption(KMenu,' x '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 404 END; 405 KsChangeMenu; ***** ^ undeclared identifier 406 MenuLib.DispMenu(KMenu); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 407 LOOP 408 WITH Setup.Kermit DO ***** ^ undeclared identifier ***** ^ not supported yet 409 CASE MenuLib.MenuDrive(KMenu) OF ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 410 -1 : EXIT; | 411 0 : ReadChar(MenuX+1,MenuY+2,' Sync Char? ',Sync); | ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier 412 1 : ReadNum(MenuX+1,MenuY+3,' Packet Size? ',30,90,MaxPacketSize);| ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier 413 2 : ReadChar(MenuX+1,MenuY+4,' Pad Char? ',PadChar);| ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier 414 3 : ReadNum(MenuX+1,MenuY+5,' No. Pad Chars? ',0,256,NumPadChars);| ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier 415 4 : ReadChar(MenuX+1,MenuY+6,' Ctl Quote Char? ',CtlQuote);| ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier 416 5 : ReadChar(MenuX+1,MenuY+7,' Repeat Prefix? ',ReptPrefix);| ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier 417 6 : ReadChar(MenuX+1,MenuY+8,' 8th Bit Quote? ',EightBitQuote);| ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier 418 7 : ImageMode := NOT ImageMode; | ***** ^ undeclared identifier ***** ^ undeclared identifier 419 8 : IBMMode := NOT IBMMode; | ***** ^ undeclared identifier ***** ^ undeclared identifier 420 9 : ReadChar(MenuX+1,MenuY+11,' EOL Char? ',EolChar);| ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier 421 END; 422 END; ***** ^ not supported yet 423 KsChangeMenu; ***** ^ undeclared identifier 424 END; 425 MenuLib.KillMenu(KMenu); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 426 END KermitSetup; ***** ^ not supported yet 427 428 (*........................................*) 429 430 PROCEDURE AsciiSetup(MenuX,MenuY:CARDINAL); 431 VAR 432 i : CARDINAL; 433 AMenu : MenuLib.MenuRec; ***** ^ not supported yet 434 435 (*. . . . . . . . . . . . . . . . . . . .*) 436 437 PROCEDURE AsChangeMenu; 438 BEGIN 439 WITH Setup.ASCII DO ***** ^ undeclared identifier ***** ^ not supported yet 440 WITH AMenu.Option[0] DO ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 441 SPRINTF.SPrintF1(' Character Delay (ms): %4u ',CharDelayMS,Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier 442 END; ***** ^ not supported yet 443 WITH AMenu.Option[1] DO ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 444 SPRINTF.SPrintF1(' Line Delay (ms): %4u ',LineDelayMS,Name); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier 445 END; ***** ^ not supported yet 446 END; ***** ^ not supported yet 447 END AsChangeMenu; ***** ^ not supported yet 448 449 (*. . . . . . . . . . . . . . . . . . . .*) 450 451 BEGIN (* AsciiSetup *) 452 MenuLib.InitMenu(AMenu,'',MenuX,MenuY,28); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 453 AMenu.EscapeOK := TRUE; ***** ^ undeclared identifier ***** ^ not supported yet 454 AMenu.ExitOnChar := TRUE; ***** ^ undeclared identifier ***** ^ not supported yet 455 FOR i:=0 TO 1 DO ***** ^ undeclared identifier 456 MenuLib.AddOption(AMenu,' x '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 457 END; 458 AsChangeMenu; ***** ^ undeclared identifier 459 MenuLib.DispMenu(AMenu); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 460 LOOP 461 WITH Setup.ASCII DO ***** ^ undeclared identifier ***** ^ not supported yet 462 CASE MenuLib.MenuDrive(AMenu) OF ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 463 -1 : EXIT; | 464 0 : ReadNum(MenuX+1,MenuY+2,' Char Delay? ',0,9999,CharDelayMS); | ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier 465 1 : ReadNum(MenuX+1,MenuY+3,' Line Delay? ',0,9999,LineDelayMS); | ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier 466 END; 467 END; ***** ^ not supported yet 468 AsChangeMenu; ***** ^ undeclared identifier 469 END; 470 MenuLib.KillMenu(AMenu); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 471 END AsciiSetup; ***** ^ not supported yet 472 473 (*........................................*) 474 475 PROCEDURE ChangeMacro(MenuX,MenuY:CARDINAL); 476 VAR 477 i : CARDINAL; 478 Def : Window.WinDef; ***** ^ not supported yet 479 Win : Window.WinType; ***** ^ not supported yet 480 481 (*. . . . . . . . . . . . . . . . . . . . .*) 482 483 PROCEDURE Highlight(MacroNo:CARDINAL; On:BOOLEAN); 484 BEGIN 485 Window.GotoXY(1,MacroNo+1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 486 Window.TextBackground(CommUtil.Colors.MacroBack); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 487 Window.TextColor(CommUtil.Colors.MacroFore); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 488 MPRINTF.PrintF1(' %u ',MacroNo); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 489 IF On THEN 490 Window.TextBackground(CommUtil.Colors.MacroHighBack); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 491 Window.TextColor(CommUtil.Colors.MacroHighFore); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 492 ELSE 493 Window.TextBackground(CommUtil.Colors.MacroLowBack); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 494 Window.TextColor(CommUtil.Colors.MacroLowFore); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 495 END; 496 MPRINTF.PrintF1('%-70s\r',Setup.Macros[MacroNo]); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 497 Window.GotoXY(4,MacroNo+1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 498 END Highlight; ***** ^ not supported yet 499 500 (*. . . . . . . . . . . . . . . . . . . . .*) 501 502 PROCEDURE EditMacros; 503 VAR 504 Ch : CHAR; 505 MacroNo, 506 NextMacroNo : CARDINAL; 507 ch : ARRAY[0..1] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 508 BEGIN 509 ch:=' '; ***** ^ not supported yet ***** ^ incompatible assignment 510 MacroNo:=0; 511 LOOP 512 Highlight(MacroNo,TRUE); ***** ^ not supported yet ***** ^ not supported yet 513 NextMacroNo := MacroNo; 514 CommUtil.Read(Ch); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 515 CASE CommUtil.FuncKeyTyped OF ***** ^ not supported yet ***** ^ not supported yet 516 Cup : IF MacroNo>0 THEN ***** ^ undeclared identifier 517 NextMacroNo:=MacroNo-1; 518 END; | 519 Cdown : IF MacroNo<9 THEN ***** ^ undeclared identifier 520 NextMacroNo:=MacroNo+1; 521 END; | 522 Escape : EXIT; | ***** ^ undeclared identifier 523 EndKey,Del, ***** ^ undeclared identifier ***** ^ undeclared identifier 524 Cright : IF Setup.Macros[MacroNo,0]<>0C THEN ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 525 CommUtil.PushBack(Ch); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 526 CommUtil.SpacesOK:=TRUE; ***** ^ not supported yet ***** ^ not supported yet 527 CommUtil.ReadLine(Setup.Macros[MacroNo],70); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 528 IF MacroNo<9 THEN 529 NextMacroNo:=MacroNo+1; 530 END; 531 END; | 532 NotRecognised:CommUtil.PushBack(Ch); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 533 CommUtil.SpacesOK:=TRUE; ***** ^ not supported yet ***** ^ not supported yet 534 CommUtil.ReadLine(Setup.Macros[MacroNo],70); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 535 IF MacroNo<9 THEN 536 NextMacroNo:=MacroNo+1; 537 END; | 538 END; 539 Highlight(MacroNo,FALSE); ***** ^ not supported yet ***** ^ not supported yet 540 MacroNo := NextMacroNo; 541 END; 542 END EditMacros; ***** ^ not supported yet 543 544 (*. . . . . . . . . . . . . . . . . . . . .*) 545 546 BEGIN (* ChangeMacro *) 547 Def := Template; ***** ^ not supported yet 548 WITH Def DO ***** ^ not supported yet 549 X1:=3; ***** ^ undeclared identifier 550 Y1:=6; ***** ^ undeclared identifier 551 X2:=74; ***** ^ undeclared identifier 552 Y2:=17; ***** ^ undeclared identifier 553 Foreground := CommUtil.Colors.MacroFore; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 554 Background := CommUtil.Colors.MacroBack; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 555 FrameFore := CommUtil.Colors.MacroFrFore; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 556 FrameBack := CommUtil.Colors.MacroFrBack; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 557 END; ***** ^ not supported yet 558 Win := Window.Open(Def); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 559 Window.SetTitle(Win,'Macros',Window.LeftUpperTitle); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 560 FOR i:=0 TO 9 DO ***** ^ undeclared identifier 561 Highlight(i,FALSE); ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 562 END; 563 EditMacros; ***** ^ undeclared identifier 564 Window.Close(Win); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 565 END ChangeMacro; ***** ^ not supported yet 566 567 (*........................................*) 568 569 PROCEDURE ChangeEmulation(MenuX,MenuY:CARDINAL); 570 BEGIN 571 WITH Setup DO ***** ^ undeclared identifier 572 CASE Emulation OF ***** ^ undeclared identifier 573 Term.EmVT100 : Emulation := Term.EmVT52; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 574 SMenu.Option[5].Name := ' E - Emulating VT52 '; | ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 575 Term.EmVT52 : Emulation := Term.EmANSI; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 576 SMenu.Option[5].Name := ' E - Emulating ANSI '; | ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 577 Term.EmANSI : Emulation := Term.EmVT100; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ not supported yet 578 SMenu.Option[5].Name := ' E - Emulating VT100 '; | ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 579 END; 580 END; ***** ^ not supported yet 581 END ChangeEmulation; ***** ^ not supported yet 582 583 (*........................................*) 584 585 PROCEDURE SaveSetup; 586 VAR 587 f : FIO.File; ***** ^ not supported yet 588 BEGIN 589 f := FIO.Create('TERM.CFG'); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 590 FIO.WrBin(f,Setup,SIZE(SetupRec)); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ undeclared identifier ***** ^ undeclared identifier 591 FIO.Close(f); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 592 END SaveSetup; ***** ^ not supported yet 593 594 (*........................................*) 595 596 PROCEDURE ChangeSetup; 597 VAR 598 Result : INTEGER; 599 BEGIN 600 OldEmulation := Setup.Emulation; ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 601 MenuLib.InitMenu(SMenu,'Setup',1,1,21); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 602 SMenu.ExitOnChar := TRUE; ***** ^ not supported yet ***** ^ not supported yet 603 SMenu.EscapeOK := TRUE; ***** ^ not supported yet ***** ^ not supported yet 604 MenuLib.AddOption(SMenu,' C - Comms Setup '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 605 MenuLib.AddOption(SMenu,' G - General Setup '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 606 MenuLib.AddOption(SMenu,' K - Kermit Setup '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 607 MenuLib.AddOption(SMenu,' A - ASCII Setup '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 608 MenuLib.AddOption(SMenu,' M - Edit Macros '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 609 CASE Setup.Emulation OF ***** ^ undeclared identifier ***** ^ not supported yet 610 Term.EmVT100 : MenuLib.AddOption(SMenu,' E - Emulating VT100 '); | ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 611 Term.EmVT52 : MenuLib.AddOption(SMenu,' E - Emulating VT52 '); | ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 612 Term.EmANSI : MenuLib.AddOption(SMenu,' E - Emulating ANSI '); | ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 613 END; 614 MenuLib.AddOption(SMenu,' S - Save Setup '); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 615 MenuLib.DispMenu(SMenu); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 616 LOOP 617 Result := MenuLib.MenuDrive(SMenu); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 618 CASE Result OF 619 -1 : EXIT; | 620 0 : ModemSetup(2,3); | ***** ^ not supported yet ***** ^ not supported yet 621 1 : GeneralSetup(2,4); | ***** ^ not supported yet ***** ^ not supported yet 622 2 : KermitSetup(2,5); | ***** ^ not supported yet ***** ^ not supported yet 623 3 : AsciiSetup(2,6); | ***** ^ not supported yet ***** ^ not supported yet 624 4 : ChangeMacro(2,7); | ***** ^ not supported yet ***** ^ not supported yet 625 5 : ChangeEmulation(2,8); | ***** ^ not supported yet ***** ^ not supported yet 626 6 : SaveSetup; | ***** ^ not supported yet 627 END; 628 END; 629 MenuLib.KillMenu(SMenu); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 630 IF Setup.Emulation<>OldEmulation THEN ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 631 CASE Setup.Emulation OF ***** ^ undeclared identifier ***** ^ not supported yet 632 Term.EmVT100 : Term.EmulateVT100; | ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 633 Term.EmVT52 : Term.EmulateVT52; | ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 634 Term.EmANSI : Term.EmulateANSI; | ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 635 END; 636 END; 637 END ChangeSetup; ***** ^ not supported yet 638 639 (*........................................*) 640 641 BEGIN 642 BoolStr[TRUE] := 'YES'; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 643 BoolStr[FALSE] := 'NO'; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 644 END ComSetup. ***** ^ not supported yet 645 1076 errors