1 ; "Definitions of offsets in CHANNELs and mudchans for user code (types are
2 already in BOOT.COMPIL)"
6 <NEWTYPE CHANNEL VECTOR
7 '<<PRIMTYPE VECTOR> ATOM <OR CHANNEL FALSE>
8 <OR STRING FALSE> <OR ATOM FALSE>
12 <SETG CHANNEL-SCRIPT 2>
14 <SETG CHANNEL-OPEN? 4>
17 <MANIFEST CHANNEL-TYPE CHANNEL-SCRIPT CHANNEL-NAME CHANNEL-OPEN?
18 CHANNEL-DATA CHANNEL-USER>
20 <COND (<NOT <VALID-TYPE? MUD-CHAN!- >>
21 <NEWTYPE MUD-CHAN!- VECTOR '<<PRIMTYPE VECTOR> [5 FIX]>>)>
31 <SETG BIT-INTELLIGENT 2>
32 <MANIFEST MC-HLEN MC-HPOS MC-VLEN MC-VPOS MC-RADX BIT-ACCESS BIT-INTELLIGENT>