changeset 589 | f382c41f658a |
parent 549 | 4278a80140a8 |
child 593 | 1f5e66379a43 |
588:b2e61fc49e5d | 589:f382c41f658a |
---|---|
462 const map: array[0..7] of byte = (7,4,0,5,2,1,0,3); |
462 const map: array[0..7] of byte = (7,4,0,5,2,1,0,3); |
463 begin |
463 begin |
464 cTagsMask:= map[cTagsMask] |
464 cTagsMask:= map[cTagsMask] |
465 end; |
465 end; |
466 |
466 |
467 procedure chAddTrigger(var s: shortstring); |
|
468 var t: integer; |
|
469 begin |
|
470 val(s, t); |
|
471 AddTrigger(t) |
|
472 end; |