1Ir: module 2{ 3 PATH: con "/dis/lib/ir.dis"; 4 SIMPATH: con "/dis/lib/irsim.dis"; 5 MPATH: con "/dis/lib/irmpath.dis"; 6 SAGEPATH: con "/dis/lib/irsage.dis"; 7 8 # 9 # "standard" remote buttons 10 # 11 Zero: con 0; 12 One: con 1; 13 Two: con 2; 14 Three: con 3; 15 Four: con 4; 16 Five: con 5; 17 Six: con 6; 18 Seven: con 7; 19 Eight: con 8; 20 Nine: con 9; 21 ChanUP: con 10; 22 ChanDN: con 11; 23 VolUP: con 12; 24 VolDN: con 13; 25 FF: con 14; 26 Rew: con 15; 27 Up: con 16; 28 Dn: con 17; 29 Select: con 18; 30 Power: con 19; 31 Enter: con 20; 32 Rcl: con 21; 33 Record: con 22; 34 Mute: con 23; 35 # 36 # Control 37 # 38 Error: con 9999; 39 EOF: con -1; 40 41 init: fn(c, p: chan of int): int; 42 translate: fn(c: int): int; 43}; 44