| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687 |
- 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
|
