Interlisp.medley/library/CHAT.TEDIT

1

Lisp Library Modules, Medley Release 1.15, CHAT
1

Lisp Library Modules, Medley Release 1.15, CHAT
CHAT
1

CHAT
1


CHAT
6

Chat(CHAT NIL Chat NIL NIL 21) is a remote terminal facility that allows you to communicate with other machines while inside Lisp.  Chat sets up a Chat connection to a remote machine, so that everything you type is sent to the remote machine, and everything the remote machine prints is displayed in a Chat window.  
Chat is an extensible terminal emulation facility.  Its core supplies both terminal- and network-protocol- independent functionality; new terminal types and new Chat protocols, based on this core,  can be added to Chat at any time.  You can choose any terminal type to be used with any network protocol type.
There are currently terminal emulators for the following terminals: 
Datamedia 2500(DATAMEDIA% 2500 NIL Datamedia% 2500 NIL NIL 21) 
DEC  VT100(DIGITAL% VT100 NIL Digital% VT100 NIL NIL 21) 
TEdit(TEDIT NIL TEdit NIL NIL 21) (this is actually a TEdit-based Chat window, supporting scrolling and copy-select operations as in standard TEdit).  
A number of different network protocol interfaces can be used with Chat.  The following protocols are available: 
PUP Chat
NS Chat (using the GAP protocol) 
TCP (ARPANET) TELNET  
RS232 Chat (using either the RS232 or TTY ports of the 1108 and 1186 processors) 
Each of these is available by loading the corresponding module.
Requirements
1

DMCHAT
CHATTERMINAL
One of the  network protocols:(NETWORK% PROTOCOLS NIL network% protocols NIL NIL 21) PUPCHAT or NSCHAT or RS232CHAT or TTYCHAT or TCPCHAT.
One of the terminal emulators:(TERMINAL% EMULATORS NIL terminal% emulators NIL NIL 21) DMCHAT or  VTCHAT  or TEDITCHAT.
The applicable file dependencies enumerated in the Introduction of this manual.
Installation
1

Load CHAT.LCOM from the library.
In addition, you must load at least one of the Chat network protocol modules. 
If you want a terminal emulator different from the default DM2500, you must also load it.
User Interface
1

Chat prompts for a new window for each new connection.  It saves the first window to reuse once the connection in that window is closed (other windows just go away when their connections are closed).
Multiple, simultaneous Chat connections(CHAT% CONNECTIONS NIL Chat% connections NIL NIL 22) are possible.  To switch between typing to different Chat connections, press the left button within the Chat window you want to use.  
Opening a Chat Connection(OPENING% A% CHAT% CONNECTION NIL Opening% a% Chat% Connection NIL NIL 22)
The simplest way to open a Chat connection is to select the CHAT option of the right-button (background) menu.  The first time you do this, you are prompted in the system's prompt window for the name of a host to which to connect.  Subsequently, you are prompted with a menu of all hosts to which you have opened Chat connections; the last entry in this menu is OTHER, and provides a way for you to connect to new Chat hosts.
The other method of opening a Chat connection is to call the CHAT function directly:
(CHAT(CHAT (function) NIL NIL NIL 22) HOST LOGOPTION INITSTREAM WINDOW)	[Function]
Opens a Chat connection to HOST, or to the value of DEFAULTCHATHOST(DEFAULTCHATHOST (variable) NIL NIL NIL 22).  If HOST requires login, Chat supplies a login sequence.  
You may alternatively specify one of the following values for LOGOPTION:
	Login	Always perform a login.
	Attach	Always perform an attach (this is likely to be useful only when opening Chat connections to hosts running the Tops-20 or Tenex operating systems).  This fails if you do not have exactly one detached job.
	None	Do not attempt to log in or attach.
Note:	It is important that you supply information about the types of hosts to which you chat by setting the variable NETWORKOSTYPES (see IRM) or DEFAULT.OSTYPE (see  Lisp Release Notes), as CHAT uses that information to determine whether and how to log in.  An incorrect login sequence can inadvertantly expose your password.
If INITSTREAM is supplied, it is either a string or the name of a file whose contents are read as type-in.  When the string/file is exhausted, input is taken from the keyboard.
If WINDOW is supplied, it is the window to use for the connection; otherwise, you are prompted for a window.
While Chat is in control, all Lisp interrupts(LISP% INTERRUPTS NIL Lisp% interrupts NIL NIL 22) are turned off, so that control characters can be transmitted to the remote host.  Chat does not turn off interrupt characters until after creating the Chat window, so you can abort the call to Chat by typing Control-E while specifying the Chat window region.
If you press the left button in an Executive window, the system's focus-of-attention is switched to that window.  At the same time, keyboard interrupts, such as Control-E, are reenabled.  Whenever you select an open Chat window, the focus-of-attention is returned to the Chat window, and keyboard interrupts are disabled.
Chat Menu(CHAT% MENU NIL Chat% Menu NIL NIL 23)
Commands can be given to an active Chat connection by pressing the middle mouse button in the Chat window to get a command menu.  
Note:	The left mouse button, when pressed inside an active Chat window, holds output as long as the button is down.  Holding down the middle button coincidentally does this too, but not on purpose;  since the menu handler does not yield control to other processes, it is possible to kill the connection by keeping the menu up too long.
	CLOSE	Closes this connection.  Once the connection is closed, control is handed over to the main Lisp Executive window.  Closes the Chat window unless it is the primary Chat window.
	SUSPEND	Same as CLOSE, but always leaves the window open.
	NEW	Closes the current connection and prompts for a new host to which to open a connection in the same window.
	FREEZE	Holds type-out from this Chat window.  Pressing a mouse button in the window in any way releases the hold.  This is most useful if you want to switch to another, overlapping window and there is type-out in this window that would compete for screen space.
	DRIBBLE	Opens a typescript file for this Chat connection (closing any previous dribble file for the window).  You are prompted for a file name.  If you want to close an open dribble file (without opening a new one), just type a carriage return.
	INPUT	Prompts for a file from which to take input.  When the end of the file is reached, input reverts to the keyboard.
	CLEAR	Clears the window and resets the simulated terminal to its default state.   This is useful if undesired terminal commands have been received from the remote host that place the simulated terminal into an indeterminate state.
	EMACS	Turns on or off the Chat EMACS feature, which provides a convenient way to use the workstation's mouse to move the cursor on the remote machine when using the EMACS text editor.  When this feature is turned on, pressing the left mouse button in the Chat window causes a sequence of commands to be sent to the remote machine that cause EMACS to move its cursor to the mouse location.  
		Use of this feature assumes you know the keystrokes to perform cursor-moving commands; see CHAT.EMACSCOMMANDS if your EMACS does not use the standard ones.  Also, it assumes that you are pointing where there is actually text in your document (not white space beyond the end of a line) and that there are no tabs in your text; otherwise, the cursor position may not be where you expect.
	RECONNECT	In an inactive Chat window, pressing the middle mouse button brings up a menu of one item, RECONNECT, whose selection reopens a connection to the same host as was last in the window.  This is the primary motivation for the SUSPEND menu command.  
	<EMULATOR>MODE	The Chat menu also contains a command of this form for each terminal emulator that you have loaded. The <EMULATOR>MODE commands are intended to let you dynamically switch between terminal emulators.
		However, this feature is currently defective and should not be used.  You must also choose your emulator type, by setting CHAT.DISPLAYTYPES, before opening the Chat connection.
Customizing Chat(CUSTOMIZING% CHAT NIL Customizing% Chat NIL NIL 24)
1

CHAT.DISPLAYTYPES(CHAT.DISPLAYTYPES (variable) NIL NIL NIL 24)	[Variable]
This variable contains a list that assigns the terminal emulators to be used with the hosts.  Each entry on the list is of the form:
	(<HostName><TerminalTypeNumber><TerminalEmulator>)
	HostName	When Chat opens a connection, it scans CHAT.DISPLAYTYPES to find an entry whose HostName field matches the name of the Chat host.  If no matching entry is found, it scans the list again, looking for an entry whose HostName field is NIL.  
	TerminalTypeNumber	Is only important when the Chat protocol in use is PUP Chat.  This number identifies the terminal type to the Chat host's operating system.  Currently, only Tops-20 and Tenex hosts make use of this facility; if the Chat host does not support this feature, the number in the TerminalTypeNumber field is ignored.
	TerminalEmulator	Chat uses this field of the entry it finds to choose which terminal type to emulate.  Typical terminal emulator names are DM2500, VT100, and TEDIT.  
CHAT.KEYACTIONS(CHAT.KEYACTIONS (variable) NIL NIL NIL 24)	[Variable]
This variable controls the remapping of the keyboard when the system's focus-of-attention is an active Chat window.   The format of this list is:
	((KEYNAME . ACTIONS) (KEYNAME . ACTIONS) ... )
For example, if you prefer the backspace key to send the rubout character (octal 177), you would set CHAT.KEYACTIONS to be:
	((BS (177Q 177Q NOLOCKSHIFT) . IGNORE)) 
The key actions are assigned when a Chat process is initiated; i.e., changing CHAT.KEYACTIONS only affects new Chat connections.
CHAT.INTERRUPTS(CHAT.INTERRUPTS (variable) NIL NIL NIL 24)	[Variable]
A list of interrupts to pass to INTERRUPTCHAR to assign keyboard interrupts; e.g., ((177Q. HELP)) causes the DELETE character (code 177) to run the HELP interrupt. 
Like CHAT.KEYACTIONS, this variable only affects new Chat connections.
CHAT.ALLHOSTS(CHAT.ALLHOSTS (variable) NIL NIL NIL 25)	[Variable]
A list of host names, as uppercase symbols, to which you want to chat.  Chatting to a host not on the list adds it to the list.  These names are placed in the menu used by the background Chat command prompts.
CLOSECHATWINDOWFLG(CLOSECHATWINDOWFLG (variable) NIL NIL NIL 25)	[Variable]
If true, every Chat window is closed on exit.  If NIL, the initial setting, then the primary Chat window is not closed.
DEFAULTCHATHOST(DEFAULTCHATHOST (variable) NIL NIL NIL 25)	[Variable]
The host to which CHAT connects when it is called with no  HOST argument.
CHAT.FONT(CHAT.FONT (variable) NIL NIL NIL 25)	[Variable]
If non-NIL, the font used to create Chat windows.  If CHAT.FONT is NIL, Chat windows are created with (DEFAULTFONT 'DISPLAY).  
Note:	To work well with the DM2500 and VT100 terminal emulators, you should use fixed<65><64><00>$width fonts (e.g., Gacha or Terminal).<2E>
CHAT.WINDOW.SIZE(CHAT.WINDOW.SIZE (variable) NIL NIL NIL 25)	[Variable]
This variable is either NIL or a dotted pair of (WIDTH . HEIGHT).  The value of the WIDTH field indicates the desired width of the Chat window, in pixels.  The value of the HEIGHT field indicates the desired HEIGHT of the window, also in pixels.
Note:	Before a new value of CHAT.WINDOW.SIZE is used, CHAT.WINDOW must be set to NIL or NOBIND.  If CHAT.WINDOW.SIZE is changed after chat has already been called, and chat is then called, the window is not changed because the information is cached.  CHAT.WINDOW must be set to NIL and the window recreated anew before this takes place.
CHAT.WINDOW.REGION(CHAT.WINDOW.REGION (variable) NIL NIL NIL 25)	[Variable]
This variable is either NIL or an instance of a REGION.   When CHAT.WINDOW.REGION is non-NIL, its value is used as the region in which to create the first Chat window.
Subsequent windows are created by prompting for the position of a window of CHAT.WINDOW.SIZE dimensions, or, if that variable is NIL, for an arbitrary window region.
CHAT.TTY.PROCESS(CHAT.TTY.PROCESS (variable) NIL NIL NIL 25)	[Variable]
When you start up CHAT, it takes the TTY immediately if the value is T.  (The initial value is T.)
CHAT.EMACSCOMMANDS(CHAT.EMACSCOMMANDS (variable) NIL NIL NIL 25)	[Variable]
A list of five character codes; initially the value of (CHARCODE (^U ^P ^N ^F ^A)). These character codes are used by the EMACS Argument command in changing the position of the cursor:
Up one line 
Down one line 
Forward  one character
Backward one character 
Beginning of line
CHAT.IN.EMACS?(CHAT.IN.EMACS? (variable) NIL NIL NIL 26)	[Variable]
The initial state of the EMACS feature when a Chat connection is started.  Initially NIL, meaning the feature is off.
CHAT.PROTOCOLTYPES(CHAT.PROTOCOLTYPES (variable) NIL NIL NIL 26)	[Variable]
Each Chat emulator (TTYCHAT, RS232CHAT, PUPCHAT ...) adds an entry onto CHAT.PROTOCOLTYPES which recognizes host names for the appropriate protocol. 
For example, loading PUPCHAT adds an entry (PUP . PUPCHAT.HOST.FILTER) and TCPCHAT adds an entry (TCP . TCP.HOST.FILTER). 
Site administrators of complex networks may want to reorganize these entries when there are hosts which are running multiple servers, each running different protocols.
Network Protocols(NETWORK% PROTOCOLS NIL Network% Protocols NIL NIL 26)
1

For the most part, you should not notice too many differences in the behavior of Chat when using one network protocol versus another.  The following are unique features of each of the Chat network protocols.
PUP Chat(PUP% CHAT NIL PUP% Chat NIL NIL 26)
PUP Chat is in the file PUPCHAT.LCOM.  Implementations of PUP Chat servers exist for Tops-20, Tenex, VAX/UNIX, and VAX/VMS operating systems.  The PUP Chat protocol contains provisions for automatically setting your terminal type, width, and height whenever you establish a connection or reshape your Chat window.  
NS Chat(NS% CHAT NIL NS% Chat NIL NIL 26)
The NS Chat protocol (also known as GAP, or Gateway Access Protocol(GATEWAY% ACCESS% PROTOCOL NIL Gateway% Access% Protocol NIL NIL 26)) is used to communicate with hosts running GapTelnet(GAPTELNET NIL GapTelnet NIL NIL 26) service, including VAX/UNIX and the VAX/VMS service XNS/DEC VAX, and also with Xerox 8000-series network services such as 8040 print servers or 8030 file servers.  This protocol is contained on the file NSCHAT.LCOM.  The NS Chat protocol differentiates among a number of virtual terminal services.   When you chat to an NS host, the NS Chat module queries the Clearinghouse(CLEARINGHOUSE NIL Clearinghouse NIL NIL 26) for information about the specified host.  This information permits the NS Chat module to determine which of the following virtual terminal services are appropriate for the host.
The NS Chat module uses a small set of heuristics to choose which virtual terminal service to invoke, based on information returned by the Clearinghouse. If the Clearinghouse information indicates that only one service type is possible, NS Chat opens a connection to the Chat host and invokes the proper virtual terminal service. 
If the Clearinghouse returns information indicating that more than one virtual terminal service is supported by the specified host, you are prompted to choose a service from a menu of the possible service types.
If NS Chat guesses an incorrect service type, or you choose an incorrect service type, you are prompted to choose a service from a menu of all known virtual service types.  If this fails, NS Chat abandons its attempts to connect to the specified host.
Remote System Administration(REMOTE% SYSTEM% ADMINISTRATION NIL Remote% System% Administration NIL NIL 27)
This service lets you log onto print servers and clearinghouse servers, and issue appropriate commands.  NS Chat automatically chooses this service when the specified host is registered in the Clearinghouse as any type of server machine.
Remote System Executive(REMOTE% SYSTEM% EXECUTIVE NIL Remote% System% Executive NIL NIL 27)
This service is currently supported by VAX/VMS systems running XNS/DEC VAX, by UNIX systems running GapTelnet service, by Lisp workstations running CHATSERVER from the library, and by XDE workstations.
Interactive Terminal Service(INTERACTIVE% TERMINAL% SERVICE NIL Interactive% Terminal% Service NIL NIL 27)
The ITS is a TTY-based interface to NS mail.
External Communication Service(EXTERNAL% COMMUNICATION% SERVICE NIL External% Communication% Service NIL NIL 27)
The External Communication Service (ECS) enables Chat connections to external hosts accessible only by use of a modem.  When you open a Chat connection to an ECS, you are prompted for a telephone number; the ECS dials that number and completes the connection if a compatible modem answers.
ECS hosts typically support a variety of modem connection characteristics (specific combinations of parity, character length, baud rate, and flow control settings).  Each connection type is known by a different Chat host name; check with your system administrator to determine the Chat host name you should use to connect to a particular external host.
TCP Chat(TCP% CHAT NIL TCP% Chat NIL NIL 27)
TCPCHAT.LCOM is the interface to the TCP-based TELNET protocol, which is the protocol in use throughout the ARPANET.  It loads and initializes the TCP-IP module, if necessary.  Read the TCP-IP module in this manual for more information.
RS232 Chat(RS232% CHAT NIL RS232% Chat NIL NIL 27)
RS232 Chat is contained on the files RS232CHAT.LCOM and TTYCHAT.LCOM.  RS232 Chat enables use of the 1108, 1185, and 1186 RS232 ports; TTY Chat enables use of the 1108, 1185, and 1186 TTY ports.  Read the RS232 module in this manual for more information.
Terminal Emulators
1

DM2500 Chat(DM2500% CHAT NIL DM2500% Chat NIL NIL 27)
The Datamedia 2500 terminal emulator is contained in DMCHAT.LCOM.  To use it, load DMCHAT.LCOM and add entries to CHAT.DISPLAYTYPES in the form:
	(<HOSTNAME> <TERMINALTYPENUMBER> DM2500)
VT100 Chat(VT100% CHAT NIL VT100% Chat NIL NIL 28)
The VT100 emulator is contained in VTCHAT.   To use it, load VTCHAT.DFASL  and add entries to CHAT.DISPLAYTYPES in the form:
	(<HOSTNAME> <TERMINALTYPENUMBER> VT100)
Currently, the VT100 emulator does not emulate the following features of the actual Digital VT100 terminal:
Dual-width or dual-height characters
Graphics character set
Remotely initiated switching between 80- and 132-column mode
TEdit Chat(TEDIT% CHAT NIL TEdit% Chat NIL NIL 28)
TEdit Chat supplies a <20>glass TTY<54> terminal emulator with a TEdit stream storing all characters received during the Chat session.  As a result, you can scroll back and forth through a transcript of your session, and you can use the standard TEdit copy-select command to copy blocks of characters from the Chat window to another TEdit window, a Lisp Executive, etc.  
To use TEdit Chat, load TEDITCHAT.LCOM, and add entries to CHAT.DISPLAYTYPES in the form:
	(<HOSTNAME> <TERMINALTYPENUMBER> TEDIT)
Note that since TEdit already uses the middle mouse button, you must click in the window's title bar in order to get the usual Chat menu.
[This page intentionally left blank]

(LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 21) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (TEXT NIL NIL (54 54 504 702) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD LEFT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (54 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGV) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE VERSOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL))) (PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "")) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD RIGHT) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY HELVETICA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (270 15 288 36) NIL) (HEADING NIL (HEADINGTYPE FOOTINGR) (54 27 558 36) NIL) (HEADING NIL (HEADINGTYPE RECTOHEAD) (54 762 558 36) NIL) (TEXT NIL NIL (54 54 504 684) NIL)))))&-$$
<01>

T-HH
<01>

T3HH
<01>



<01>

T6<00>
<01>
<00>
<00>
T5<00>
<01>
<00>
<00>.$$
<01>

T
T-
<01>

T,
<01>
,
<01>
5H<00>
<01>
<00>
<00>2Hl
<01>

l5<00>
<01>
<00>
<00>2ll
<01>

<00>2l<00>
<01>

<00>,<00><00>
<01>
,<00><00>
<01>
,ll
<01>
2
<01>


<01>
,
<01>
,$$
<01>

,HH
<01>
,$$
<01>
2HH
<01>



<01>
2$$
<01>

l2HH
<01>


l2ll
<01>

l2HH
<01>

l,HH
<01>
,HH
<01>

3
<01>


<01>

T2
<01>


<01>
2
<01>


<01>
-

T-
<01>
<00>
<01>
TF
<01>


<01>
PAGEHEADING	VERSOHEADF
<01>

<01>
PAGEHEADING	RECTOHEADE
<01>



<01>
PAGEHEADINGFOOTINGVE
<01>




<01>
PAGEHEADINGFOOTINGR	HELVETICA	HELVETICA
TITANTITAN
CLASSIC

CLASSIC
	HELVETICA	HELVETICAMODERN
MODERN
MODERNMODERNMODERN
MODERN&
HRULE.GETFN
TITAN

&/
%
HRULE.GETFN
TITAN

%0$$
HRULE.GETFN
TITAN

##
HRULE.GETFN
TITAN


HRULE.GETFN
MODERN

IM.INDEX.GETFN

5E0
IM.INDEX.GETFN
.
IM.INDEX.GETFN
IM.INDEX.GETFNwr	"R@	

HRULE.GETFN
MODERN

6
IM.INDEX.GETFN78
IM.INDEX.GETFN"O
	

HRULE.GETFN
MODERN
	OY

HRULE.GETFN
MODERN
<00>'4
IM.INDEX.GETFN<00>J
IM.INDEX.GETFN
<
*;= 
IM.INDEX.GETFN
MODERN

 




+
IM.INDEX.GETFN
MODERN



3=

	












<00>


$t






<00>




<00>



b

-2
IM.INDEX.GETFN

B	&
IM.INDEX.GETFN
<00>
P



<00>



$





k



<00>



<00>



r



<00>




<01>]



Z

	{







g



P
z$
 4
IM.INDEX.GETFN

HRULE.GETFN
MODERN
-
IM.INDEX.GETFN
MODERN

<00>
4



&



<00>



8



<00>
+
IM.INDEX.GETFN
MODERN

<00>
0
d




*
N

#+
IM.INDEX.GETFN
MODERN



!&D
3
)
IM.INDEX.GETFN
MODERN



<00>.
IM.INDEX.GETFN
MODERN

2C+
IM.INDEX.GETFN
MODERN






%	%
IM.INDEX.GETFN
MODERN



6	


UQ,
IM.INDEX.GETFN
MODERN






T 



	








<00>





7.
IM.INDEX.GETFN
MODERN




	

LK



$",
IM.INDEX.GETFN
MODERN


/






.
IM.INDEX.GETFN
MODERN


6





&:
*
IM.INDEX.GETFN
MODERN


T



.
IM.INDEX.GETFN
MODERN


H<,





<00>6
IM.INDEX.GETFN

HRULE.GETFN
MODERN
<00>$
IM.INDEX.GETFN

"
IM.INDEX.GETFN
CD
IM.INDEX.GETFN5$
IM.INDEX.GETFN<00><00>,
IM.INDEX.GETFN<00>
K<00><00>N
IM.INDEX.GETFN
	<00>D
IM.INDEX.GETFN
	<00>
,N
IM.INDEX.GETFN
	-R
IM.INDEX.GETFN
	
"
a$
IM.INDEX.GETFN
<00>
(
IM.INDEX.GETFN
%<00>
	
HRULE.GETFN
MODERN
*
IM.INDEX.GETFN
5)


(
IM.INDEX.GETFN
=)l%=
(
IM.INDEX.GETFN

n)<00>"%!

!
K<02>z<EFBFBD>