'<PCODE "CURSOR">
<RPACKAGE "CURSOR"> 

<USE-TOTAL "EDIT"> 

<SETG CURPRIN  %<RSUBR!- '[ %<PCODE!- "CURSOR" 0> CURPRIN #DECL ("VALUE" <OR 
ATOM STRING> CURSOR) ERR INTREAD SAMP INDENT-TO %<TYPE-C CURSOR VECTOR> %<TYPE-W
CURSOR VECTOR> OUTCHAN "(???)" "| " "ILLEGAL CURSOR" #FALSE () CURSOR T () LIST 
"                                                                                                                                                                                                        "
 "GO" INCHAN 
"!\"#$%&'(*+,-./0123456789:;<=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\^_`abcdefghijklmnopqrstuvwxyz{|}"
 SEARCH+ GOTO GETPATH "ERROR, ARG TO GO NOT CURSOR" "PC" "PA" TOP-ITEM "CU" 
"ERROR, ARG TO CU NOT ATOM" NULL CURS "KC" "CURRENTLY UNIMPLEMENTED COMMAND"]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CURPRIN PGLUE ![717225983 -4 0!]>> 

<PRINTTYPE CURSOR ,CURPRIN> 

<SETG CURSORS? T> 

<SETG CUP- %<RSUBR-ENTRY '[CURPRIN CUP- #DECL ("VALUE" <OR FALSE LIST> LOCATIVE 
FIX FIX)] 92>> 

<SETG CUP+ %<RSUBR-ENTRY '[CURPRIN CUP+ #DECL ("VALUE" <OR FALSE CURSOR> 
LOCATIVE FIX FIX)] 185>> 

<SETG CUP^ %<RSUBR-ENTRY '[CURPRIN CUP^ #DECL ("VALUE" ANY LOCATIVE FIX <
PRIMTYPE LIST>)] 270>> 

<SETG CUP* %<RSUBR-ENTRY '[CURPRIN CUP* #DECL ("VALUE" ANY LOCATIVE FIX FIX <
PRIMTYPE LIST> "OPTIONAL" ANY)] 407>> 

<SETG ATTACH %<RSUBR-ENTRY '[CURPRIN ATTACH #DECL ("VALUE" ANY LOCATIVE ANY)] 
553>> 

<SETG PRINCUR %<RSUBR-ENTRY '[CURPRIN PRINCUR #DECL ("VALUE" ANY LOCATIVE <
PRIMTYPE LIST> CHANNEL)] 650>> 

<SETG CUREDIT %<RSUBR-ENTRY '[CURPRIN CUREDIT #DECL ("VALUE" ANY STRING LOCATIVE
FIX)] 765>> 

<AND <ASSIGNED? GLUE> .GLUE <PUT ,CURPRIN GLUE ![1096024080 5170724979 
-16722952100 -4026253312 4177542720 263175 -8842544128 1074004736 1074791424 
4523328 4097 -2210636032 1073745920 512012 4630855680 4281412 15734720 
1006919548 268505088 283908 4366271424 6375342320 4294967376 17515675648 
15825920 265310229 4198401 17825804 1090523636 17112761360 16777217 1427115508 
16106413948 352391168 18170816 -17164136448 267587 -16167010300 1048577 
4693491728 67337472 1066245 17179869200 3949632 16176397504 -34352133108 
-941343680 12902789568 -17129467663 3237151236 33891026752 -4290265083 
22552772864 20669592912 -4290443908 520880128 15728880 -15988686848 205290496 
277630 17179870207 262148 786532 786625 786710 1048999 1311139 524847 787090 
787205!]>> 

<SETG CUREDIT-TABLE <MAPF ,VECTOR <FUNCTION (STR) <MAPRET .STR ,CUREDIT>> '["GO"
"PC" "PA" "CU" "KC"]>> 

<COND (<GASSIGNED? EDIT-TABLE> <SETG EDIT-TABLE [!,EDIT-TABLE !,CUREDIT-TABLE]>)
(<SETG EDIT-TABLE ,CUREDIT-TABLE>)> 

<ENDPACKAGE>