Listing: 1 (* Release 3.10 *) 2 (*-------------------------------------------------------------------------* 3 * * 4 * MINITERM.MOD - COMMS Toolkit demonstration program * 5 * * 6 * COPYRIGHT (C) 1988..1992 Clarion Software Corporation. * 7 * All Rights Reserved * 8 * * 9 *--------------------------------------------------------------------------*) 10 11 MODULE MiniTerm; 12 IMPORT RS232,Window,IO; 13 14 CONST 15 Port = 2; 16 Baud = 2400; 17 Bits = 8; 18 Stops = 1; 19 Parity = RS232.None; ***** ^ not supported yet ***** ^ not supported yet 20 21 VAR 22 c : CHAR; 23 24 BEGIN 25 Window.Clear; ***** ^ not supported yet ***** ^ not supported yet 26 RS232.SelectPort(Port); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 27 RS232.InitPort(Baud,Bits,Stops,Parity); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 28 RS232.Install; ***** ^ not supported yet ***** ^ not supported yet 29 LOOP 30 WHILE RS232.SerialRead(c,0) DO (* test remote *) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 31 IO.WrChar(c); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 32 END; 33 IF IO.KeyPressed() THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 34 c := IO.RdKey(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 35 IF c=0C THEN (* special key? *) 36 c := IO.RdKey(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 37 IF c=CHR(68) THEN (* function key 10 *) ***** ^ undeclared identifier ***** ^ not supported yet 38 EXIT; 39 END; 40 ELSE 41 RS232.SerialWrite(c,1); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 42 END; 43 END; 44 END; 45 RS232.UnInstall; ***** ^ not supported yet ***** ^ not supported yet 46 END MiniTerm. 47 34 errors