github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity
PDP-10.its/bin/libmud/libmud.dat

2 lines
218 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

<PACKAGE "INV"><ENTRY INV-DELETE INV-INSERT INVPUT INVDEL INVGBC INVDLI INVINS INVMAPFND INVCNTFND INVFND INVERSION><USE "PMAP" "PMFREE" "VCTMAN"><SETG INV-DELETE %<RSUBR-ENTRY '[\ \ F!- INV-DELETE #DECL ("VALUE" <OR INVERSION FALSE> INVERSION FIX)] 0>><SETG INV-INSERT %<RSUBR-ENTRY '[\ \ F!- INV-INSERT #DECL ("VALUE" <OR INVERSION FALSE> <OR INVERSION FALSE> FIX)] 0>><SETG INVPUT %<RSUBR-ENTRY '[\ \ F!- INVPUT #DECL ("VALUE" <OR <UVECTOR FIX> FALSE> PMCHAN INVERSION)] 0>><SETG INVDEL %<RSUBR-ENTRY '[\ \ F!- INVDEL #DECL ("VALUE" <OR ATOM FALSE> PMCHAN FIX FIX)] 0>><SETG INVGBC %<RSUBR-ENTRY '[\ \ F!- INVGBC #DECL ("VALUE" <OR <UVECTOR FIX> FALSE> PMCHAN PMCHAN FIX FIX)] 0>><SETG INVDLI %<RSUBR-ENTRY '[\ \ F!- INVDLI #DECL ("VALUE" <OR <UVECTOR FIX> FALSE> PMCHAN FIX FIX FIX)] 0>><SETG INVINS %<RSUBR-ENTRY '[\ \ F!- INVINS #DECL ("VALUE" <OR <UVECTOR FIX> FALSE> PMCHAN FIX FIX FIX)] 0>><SETG INVMAPFND %<RSUBR-ENTRY '[\ \ F!- INVMAPFND #DECL ("VALUE" ANY VECTOR <OR FALSE APPLICABLE> APPLICABLE "TUPLE" ANY)] 0>><SETG INVCNTFND %<RSUBR-ENTRY '[\ \ F!- INVCNTFND #DECL ("VALUE" <OR FIX FALSE> VECTOR)] 0>><SETG INVFND %<RSUBR-ENTRY '[\ \ F!- INVFND #DECL ("VALUE" <OR <VECTOR INVERSION FIX> FIX FALSE> VECTOR FIX)] 0>><NEWTYPE INVERSION VECTOR'<VECTOR [REST <OR <VECTOR [REST FIX UVECTOR]> FALSE>]>><ENDPACKAGE> <PACKAGE "MUDCAL"><ENTRY TOP-LEVEL-FCN RECURSEFCN CALDEBUG DUMPCAL CALINIT CALICO DISPATCHER><USE "JOBS" "CALUTL" "CALSYM" "CALRDR" "CALCOM" "TTY" "COMMAND" "TAILOR" "CALTOP"><SETG TOP-LEVEL-FCN %<RSUBR-ENTRY '[\ \ F!- TOP-LEVEL-FCN #DECL ("VALUE" ANY)] 0>><SETG RECURSEFCN %<RSUBR-ENTRY '[\ \ F!- RECURSEFCN #DECL ("VALUE" ANY)] 0>><SETG DUMPCAL %<RSUBR-ENTRY '[\ \ F!- DUMPCAL #DECL ("VALUE" <OR FALSE STRING> ANY "OPTIONAL" STRING ANY)] 0>><SETG CALINIT %<RSUBR-ENTRY '[\ \ F!- CALINIT #DECL ("VALUE" <OR ATOM FALSE>)] 0>><SETG CALICO %<RSUBR-ENTRY '[\ \ F!- CALICO #DECL ("VALUE" FALSE "OPTIONAL" ANY)] 0>><SETG DISPATCHER %<RSUBR-ENTRY '[\ \ F!- DISPATCHER #DECL ("VALUE" ANY)] 0>><ENDPACKAGE> <PACKAGE "CALDES"><ENTRY MASTER-DESC-CHAN MASTER-DESC-FILE TABMAP CALDESC PDESC><USE "CALCOM" "CALSYM" "LEX" "PMAP" "SDML"><SETG TABMAP %<RSUBR-ENTRY '[\ \ F!- TABMAP #DECL ("VALUE" ATOM VECTOR FIX STRING)] 0>><SETG CALDESC %<RSUBR-ENTRY '[\ \ F!- CALDESC #DECL ("VALUE" ATOM "TUPLE" <TUPLE [REST SYMBOL]>)] 0>><SETG PDESC %<RSUBR-ENTRY '[\ \ F!- PDESC #DECL ("VALUE" ATOM "TUPLE" <TUPLE [REST SYMTABLE]>)] 0>><ENDPACKAGE> <PACKAGE "LOGIN"><ENTRY FLUSH-DEMON IPC-ENABLE LOGIN><SETG FLUSH-DEMON %<RSUBR-ENTRY '[\ \ F!- FLUSH-DEMON #DECL ("VALUE" <OR ATOM FALSE> STRING)] 0>><SETG IPC-ENABLE %<RSUBR-ENTRY '[\ \ F!- IPC-ENABLE T] 0>><SETG LOGIN %<RSUBR-ENTRY '[\ \ F!- LOGIN #DECL ("VALUE" <OR ATOM FALSE> STRING)] 0>><ENDPACKAGE><PACKAGE "PP"><RENTRY LEFT-MARGIN DENSE VERTICAL LOOKAHEAD QUICKPRINT PAGLNT PAGPOS LINLNT LINPOS NULL FORMS INDENT-TO PPRINF FRM FRLVAL FRATM FRAMES COLPP EPRIN1 EPRINT PPRINT><SETG PAGLNT 15><SETG PAGPOS 16><SETG LINLNT 13><SETG LINPOS 14><SETG FORMS %<RSUBR-ENTRY '[\ \ F!- FORMS #DECL ("VALUE" ANY ANY "OPTIONAL" <CHANNEL [12 ANY] [4 FIX]> FIX ANY)] 0>><SETG INDENT-TO %<RSUBR-ENTRY '[\ \ F!- INDENT-TO #DECL ("VALUE" <OR FALSE STRING> FIX "OPTIONAL" <CHANNEL [12 ANY] [4 FIX]>)] 0>><SETG PPRINF %<RSUBR-ENTRY '[\ \ F!- PPRINF #DECL ("VALUE" <OR FALSE STRING> <OR ATOM LIST STRING> "OPTIONAL" STRING FIX <OR FALSE ATOM> FIX)] 0>><SETG FRM %<RSUBR-ENTRY '[\ \ F!- FRM #DECL ("VALUE" FRAME FIX)] 0>><SETG FRLVAL %<RSUBR-ENTRY '[\ \ F!- FRLVAL #DECL ("VALUE" STRING ATOM "OPTIONAL" FIX FIX)] 0>><SETG FRATM %<RSUBR-ENTRY '[\ \ F!- FRATM #DECL ("VALUE" <OR ATOM STRING> "OPTIONAL" FIX FIX)] 0>><SETG FRAMES %<RSUBR-ENTRY '[\ \ F!- FRAMES #DECL ("VALUE" <OR ATOM STRING> "OPTIONAL" FIX FIX)] 0>><SETG COLPP %<RSUBR-ENTRY '[\ \ F!- COLPP #DECL ("VALUE" ANY ANY "OPTIONAL" CHANNEL FIX FIX)] 0>><SETG EPRIN1 %<RSUBR-ENTRY '[\ \ F!- EPRIN1 #DECL ("VALUE" ANY ANY "OPTIONAL" FIX)] 0>><SETG EPRINT %<RSUBR-ENTRY '[\ \ F!- EPRINT #DECL ("VALUE" ANY ANY "OPTIONAL" FIX)] 0>><SETG PPRINT %<RSUBR-ENTRY '[\ \ F!- PPRINT #DECL ("VALUE" ANY ANY "OPTIONAL" CHANNEL)] 0>><MANIFEST LINPOS LINLNT PAGPOS PAGLNT><ENDPACKAGE> <PACKAGE "GSTARD"><ENTRY ARDS-DISPATCH><USE "TTY" "GSTTYC" "GS"><SETG ARDS-DISPATCH %<RSUBR-ENTRY '[\ \ F!- ARDS-DISPATCH #DECL ("VALUE" <VECTOR [REST APPLICABLE]>)] 0>><ENDPACKAGE> <PACKAGE "FRMSP"><ENTRY FRTYPEP FRTYPE FRLVALP FRMP FRATMP FR&P FRAMESP><SETG FRTYPEP %<RSUBR-ENTRY '[\ \ F!- FRTYPEP #DECL ("VALUE" <OR ATOM STRING> "OPTIONAL" <OR FRAME PROCESS> FIX FIX)] 0>><SETG FRTYPE %<RSUBR-ENTRY '[\ \ F!- FRTYPE #DECL ("VALUE" <OR ATOM STRING> "OPTIONAL" FIX FIX)] 0>><SETG FRLVALP %<RSUBR-ENTRY '[\ \ F!- FRLVALP #DECL ("VALUE" STRING ATOM "OPTIONAL" <OR FRAME PROCESS> FIX FIX)] 0>><SETG FRMP %<RSUBR-ENTRY '[\ \ F!- FRMP #DECL ("VALUE" FRAME FIX "OPTIONAL" <OR FRAME PROCESS>)] 0>><SETG FRATMP %<RSUBR-ENTRY '[\ \ F!- FRATMP #DECL ("VALUE" <OR ATOM STRING> "OPTIONAL" <OR FRAME PROCESS> FIX FIX)] 0>><SETG FR&P %<RSUBR-ENTRY '[\ \ F!- FR&P #DECL ("VALUE" <OR ATOM STRING> "OPTIONAL" <OR FRAME PROCESS> FIX FIX)] 0>><SETG FRAMESP %<RSUBR-ENTRY '[\ \ F!- FRAMESP #DECL ("VALUE" <OR ATOM STRING> "OPTIONAL" <OR FRAME PROCESS> FIX FIX)] 0>><ENDPACKAGE> <PACKAGE "DMX"><ENTRY DMX.MAKE DMX.FILL DMX.CLEAN DMX.Z DMX.Y DMX.X DMX.PUT DMX.GET DMX><SETG DMX.MAKE %<RSUBR-ENTRY '[\ \ F!- DMX.MAKE #DECL ("VALUE" DMX FIX FIX "OPTIONAL" FIX)] 0>><SETG DMX.FILL %<RSUBR-ENTRY '[\ \ F!- DMX.FILL #DECL ("VALUE" DMX DMX)] 0>><SETG DMX.CLEAN %<RSUBR-ENTRY '[\ \ F!- DMX.CLEAN #DECL ("VALUE" DMX DMX)] 0>><SETG DMX.Z %<RSUBR-ENTRY '[\ \ F!- DMX.Z #DECL ("VALUE" FIX DMX)] 0>><SETG DMX.Y %<RSUBR-ENTRY '[\ \ F!- DMX.Y #DECL ("VALUE" FIX DMX)] 0>><SETG DMX.X %<RSUBR-ENTRY '[\ \ F!- DMX.X #DECL ("VALUE" FIX DMX)] 0>><SETG DMX.PUT %<RSUBR-ENTRY '[\ \ F!- DMX.PUT #DECL ("VALUE" FIX DMX FIX FIX FIX)] 0>><SETG DMX.GET %<RSUBR-ENTRY '[\ \ F!- DMX.GET #DECL ("VALUE" FIX DMX FIX FIX)] 0>><NEWTYPE DMX UVECTOR><ENDPACKAGE> <PACKAGE "SCR"><ENTRY TSCRIPT TCURSY TCURSX THEIGHT TWIDTH TICHAN TCHAN DO-BIN DO-INPUT DO-OUTPUT RESTORE-CURSOR SAVE-CURSOR FORWARD-CURSOR UP-CURSOR DOWN-CURSOR BACK-CURSOR MOVE-CURSOR VER-POS-CURSOR HOR-POS-CURSOR BOTTOM-CURSOR HOME-CURSOR ERASE-CHAR KILL-CHAR FRESH-LINE CLEAR-EOS CLEAR-EOL CLEAR-SCREEN TTY-RESET SET-IMAGE-MODE SET-ECHO-MODE TTY-SCR TTY-SETUP GET-TTY SCR-INIT TERM-MOVE? STREAM TTY><SETG TSCRIPT %<OFFSET 5 TTY>><SETG TCURSY %<RSUBR-ENTRY '[\ \ F!- TCURSY #DECL ("VALUE" FIX TTY)] 0>><SETG TCURSX %<RSUBR-ENTRY '[\ \ F!- TCURSX #DECL ("VALUE" FIX TTY)] 0>><SETG THEIGHT %<RSUBR-ENTRY '[\ \ F!- THEIGHT #DECL ("VALUE" FIX TTY)] 0>><SETG TWIDTH %<RSUBR-ENTRY '[\ \ F!- TWIDTH #DECL ("VALUE" FIX TTY)] 0>><SETG TICHAN %<OFFSET 2 TTY>><SETG TCHAN %<OFFSET 1 TTY>><SETG DO-INPUT %<RSUBR-ENTRY '[\ \ F!- DO-INPUT #DECL ("VALUE" CHARACTER TTY "OPTIONAL" <OR ATOM FALSE STRING>)] 0>><SETG DO-OUTPUT %<RSUBR-ENTRY '[\ \ F!- DO-OUTPUT #DECL ("VALUE" <OR CHARACTER STRING> TTY <OR CHARACTER STRING> "OPTIONAL" <OR ATOM FALSE> FIX)] 0>><SETG RESTORE-CURSOR #MACRO (#FUNCTION (('TTY) <FORM DPYOP .TTY ,VTRES>))><SETG SAVE-CURSOR #MACRO (#FUNCTION (('TTY) <FORM DPYOP .TTY ,VTSAV>))><SETG FORWARD-CURSOR #MACRO (#FUNCTION (('TTY "OPTIONAL" ('N 1)) <FORM DPYOP .TTY ,VTFWD .N>))><SETG UP-CURSOR #MACRO (#FUNCTION (('TTY "OPTIONAL" ('N 1)) <FORM DPYOP .TTY ,VTUP .N>))><SETG DOWN-CURSOR #MACRO (#FUNCTION (('TTY "OPTIONAL" ('N 1)) <FORM DPYOP .TTY ,VTDWN .N>))><SETG BACK-CURSOR #MACRO (#FUNCTION (('TTY "OPTIONAL" ('N 1)) <FORM DPYOP .TTY ,VTBCK .N>))><SETG MOVE-CURSOR #MACRO (#FUNCTION (('TTY 'X 'Y) <FORM DPYOP .TTY ,VTMOV .X .Y>))><SETG VER-POS-CURSOR #MACRO (#FUNCTION (('TTY 'Y) <FORM DPYOP .TTY ,VTVRT .Y>))><SETG HOR-POS-CURSOR #MACRO (#FUNCTION (('TTY 'X) <FORM DPYOP .TTY ,VTHRZ .X>))><SETG BOTTOM-CURSOR #MACRO (#FUNCTION (('TTY) <FORM DPYOP .TTY ,VTHMD>))><SETG HOME-CURSOR #MACRO (#FUNCTION (('TTY) <FORM DPYOP .TTY ,VTHOM>))><SETG ERASE-CHAR #MACRO (#FUNCTION (('TTY "OPTIONAL" ('N 1)) <FORM DPYOP .TTY ,VTBEC .N>))><SETG KILL-CHAR #MACRO (#FUNCTION (('TTY) <FORM DPYOP .TTY ,VTERA>))><SETG FRESH-LINE #MACRO (#FUNCTION (('TTY "OPTIONAL" ('N 1)) <FORM DPYOP .TTY ,VTADV .N>))><SETG CLEAR-EOS #MACRO (#FUNCTION (('TTY) <FORM DPYOP .TTY ,VTCEW>))><SETG CLEAR-EOL #MACRO (#FUNCTION (('TTY) <FORM DPYOP .TTY ,VTCEL>))><SETG CLEAR-SCREEN #MACRO (#FUNCTION (('TTY) <FORM DPYOP .TTY ,VTCLR>))><SETG TTY-RESET %<RSUBR-ENTRY '[\ \ F!- TTY-RESET #DECL ("VALUE" TTY TTY)] 0>><SETG SET-IMAGE-MODE %<RSUBR-ENTRY '[\ \ F!- SET-IMAGE-MODE #DECL ("VALUE" TTY TTY <OR ATOM FALSE>)] 0>><SETG SET-ECHO-MODE %<RSUBR-ENTRY '[\ \ F!- SET-ECHO-MODE #DECL ("VALUE" TTY TTY <OR ATOM FALSE>)] 0>><SETG TTY-SCR %<RSUBR-ENTRY '[\ \ F!- TTY-SCR #DECL ("VALUE" UVECTOR TTY)] 0>><SETG TTY-SETUP %<RSUBR-ENTRY '[\ \ F!- TTY-SETUP #DECL ("VALUE" UVECTOR TTY)] 0>><SETG GET-TTY %<RSUBR-ENTRY '[\ \ F!- GET-TTY #DECL ("VALUE" TTY CHANNEL CHANNEL "OPTIONAL" <PRIMTYPE WORD>)] 0>><SETG SCR-INIT %<RSUBR-ENTRY '[\ \ F!- SCR-INIT #DECL ("VALUE" STRING "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG TERM-MOVE? %<RSUBR-ENTRY '[\ \ F!- TERM-MOVE? #DECL ("VALUE" <OR ATOM FALSE> ANY)] 0>><NEWTYPE TTY VECTOR'<<PRIMTYPE VECTOR> CHANNEL CHANNEL <UVECTOR [3 WORD]> <UVECTOR [3 WORD]> <OR FALSE <LIST [REST <OR UVECTOR STRING>]>>>><SETG VTCLR 13><SETG VTCEL 15><SETG VTCEW 14><SETG VTADV 10><SETG VTERA 16><SETG VTBEC 17><SETG VTHOM 8><SETG VTHMD 9><SETG VTHRZ 5><SETG VTVRT 6><SETG VTMOV 7><SETG VTBCK 2><SETG VTDWN 4><SETG VTUP 3><SETG VTFWD 1><SETG VTSAV 11><SETG VTRES 12><MANIFEST VTRES VTSAV VTFWD VTUP VTDWN VTBCK VTMOV VTVRT VTHRZ VTHMD VTHOM VTBEC VTERA VTADV VTCEW VTCEL VTCLR TCHAN TICHAN TSCRIPT><ENDPACKAGE><PACKAGE "SYMBOLS"><ENTRY SVALUE EMPTY-LINE ABORTED COMMAND-LOOP-ACTIVATION REENTER-COMMAND-LOOP FAIL-HOOK SYMBOL-CHRS SYMBOL-CHRTABLE SYMBOL><USE "BUF"><PUT SVALUE DECL <VECTOR FIX <OR STRING ATOM> FIX FIX FIX>><SETG REENTER-COMMAND-LOOP %<RSUBR-ENTRY '[\ \ F!- REENTER-COMMAND-LOOP #DECL ("VALUE" ANY)] 0>><SETG SYMBOL %<RSUBR-ENTRY '[\ \ F!- SYMBOL #DECL ("VALUE" <OR ATOM BUFFER FALSE FIX> <OR FIX FALSE> STRING STRING <OR STRING FALSE> "TUPLE" <TUPLE [REST VECTOR]>)] 0>><GDECL (SYMBOL-CHRTABLE) <OR VECTOR LIST> (SYMBOL-CHRS) <VECTOR [REST CHARACTER ANY]> (ABORTED) <FALSE STRING> (EMPTY-LINE) <FALSE STRING>><ENDPACKAGE> <PACKAGE "IRSCOM"><ENTRY IRS-ACTIVATION IRSUSRSHRTBL IRSUSRTBL IRSCMD><USE "IRSUSR" "IRSGRF" "IRSBAS" "CALSYM" "CALCOM" "CALRDR" "COMMAND"><SETG IRSCMD %<RSUBR-ENTRY '[\ \ F!- IRSCMD #DECL ("VALUE" ANY "TUPLE" ANY)] 0>><GDECL (IRSUSRTBL) SYMTABLE (IRS-ACTIVATION) <OR IRSVCT FALSE>><ENDPACKAGE> <PACKAGE "MDDATA"><ENTRY NUMWDS DNAME ENDTRE MRKDIC PREDIC RLSDIC DICTIONARY PRINT-DICTS DICTIONARY? DROP-DICT ADD-DICT THE-DICT NEW-DICTIONARY><USE "DATA-SAVE"><SETG NUMWDS 6><SETG DNAME 5><SETG ENDTRE 4><SETG MRKDIC 3><SETG PREDIC 2><SETG RLSDIC 1><PUT DICTIONARY DECL <VECTOR VECTOR VECTOR UVECTOR <OR FALSE LIST> STRING <VECTOR [REST STRING FIX]>>><SETG PRINT-DICTS %<RSUBR-ENTRY '[\ \ F!- PRINT-DICTS #DECL ("VALUE" ANY "OPTIONAL" ANY)] 0>><SETG DICTIONARY? %<RSUBR-ENTRY '[\ \ F!- DICTIONARY? #DECL ("VALUE" <OR VECTOR <FALSE STRING [REST STRING]>> STRING "OPTIONAL" <LIST [REST VECTOR]>)] 0>><SETG DROP-DICT %<RSUBR-ENTRY '[\ \ F!- DROP-DICT #DECL ("VALUE" ANY STRING)] 0>><SETG ADD-DICT %<RSUBR-ENTRY '[\ \ F!- ADD-DICT #DECL ("VALUE" <OR FALSE STRING> STRING)] 0>><SETG THE-DICT %<RSUBR-ENTRY '[\ \ F!- THE-DICT #DECL ("VALUE" <OR FALSE STRING> "TUPLE" <TUPLE [REST STRING]>)] 0>><SETG NEW-DICTIONARY %<RSUBR-ENTRY '[\ \ F!- NEW-DICTIONARY #DECL ("VALUE" ANY <OR STRING ATOM> "OPTIONAL" ANY)] 0>><MANIFEST RLSDIC PREDIC MRKDIC ENDTRE DNAME NUMWDS><ENDPACKAGE> <PACKAGE "WHEN"><ENTRY FIGURE-WHEN><USE "TIMFCN"><SETG FIGURE-WHEN %<RSUBR-ENTRY '[\ \ F!- FIGURE-WHEN #DECL ("VALUE" ANY STRING)] 0>><ENDPACKAGE> <PACKAGE "DATA-SAVE"><ENTRY OUTPUT-DATA RESTORE-DATA SAVE-DATA><SETG OUTPUT-DATA %<RSUBR-ENTRY '[\ \ F!- OUTPUT-DATA #DECL ("VALUE" <OR ATOM FALSE> ATOM "OPTIONAL" STRING)] 0>><SETG RESTORE-DATA %<RSUBR-ENTRY '[\ \ F!- RESTORE-DATA #DECL ("VALUE" ANY STRING)] 0>><SETG SAVE-DATA %<RSUBR-ENTRY '[\ \ F!- SAVE-DATA #DECL ("VALUE" <OR ATOM FALSE> ATOM "OPTIONAL" STRING)] 0>><ENDPACKAGE> <PACKAGE "SMCELLS"><ENTRY MCELLS MIGS DISPCOM MCELL><NEWTYPE MCELL LIST'<LIST LIST LIST [2 <OR ATOM FALSE>] [REST <LIST FIX [REST <OR FIX FLOAT FORM ATOM>]>]>><ENDPACKAGE> <PACKAGE "MORPH"><ENTRY ly n\'t est s \'s er ion en ing ed MISS MORPH><USE "MNEME" "MWORDS" "MACROS"><NEWTYPE MISS STRING'STRING><SETG MORPH %<RSUBR-ENTRY '[\ \ F!- MORPH #DECL ("VALUE" <LIST <OR MISS STRING>> STRING)] 0>><ENDPACKAGE> <PACKAGE "NSTR"><ENTRY STRTOX SIXTOS UPPERCASE SUBSNC SUBSTR><SETG STRTOX %<RSUBR-ENTRY '[\ \ F!- STRTOX #DECL ("VALUE" WORD STRING)] 0>><SETG SIXTOS %<RSUBR-ENTRY '[\ \ F!- SIXTOS #DECL ("VALUE" STRING <PRIMTYPE WORD> "OPTIONAL" <OR CHARACTER FALSE>)] 0>><SETG UPPERCASE %<RSUBR-ENTRY '[\ \ F!- UPPERCASE #DECL ("VALUE" STRING STRING "OPTIONAL" FIX)] 0>><SETG SUBSNC %<RSUBR-ENTRY '[\ \ F!- SUBSNC #DECL ("VALUE" <OR FALSE STRING> STRING STRING "OPTIONAL" FIX)] 0>><SETG SUBSTR %<RSUBR-ENTRY '[\ \ F!- SUBSTR #DECL ("VALUE" <OR FALSE STRING> STRING STRING "OPTIONAL" FIX ANY)] 0>><ENDPACKAGE> <PACKAGE "FFT"><ENTRY FFT REVERS INVTABLE SINTABLE><SETG FFT %<RSUBR-ENTRY '[\ \ F!- FFT #DECL ("VALUE" FIX FIX FLOAT <UVECTOR [REST FLOAT]> <UVECTOR [REST FLOAT]> <UVECTOR [REST FLOAT]> <UVECTOR [REST FIX]>)] 0>><SETG REVERS %<RSUBR-ENTRY '[\ \ F!- REVERS #DECL ("VALUE" FIX FIX FIX)] 0>><SETG INVTABLE %<RSUBR-ENTRY '[\ \ F!- INVTABLE #DECL ("VALUE" <UVECTOR [REST FIX]> FIX FIX)] 0>><SETG SINTABLE %<RSUBR-ENTRY '[\ \ F!- SINTABLE #DECL ("VALUE" <UVECTOR [REST FLOAT]> FIX)] 0>><ENDPACKAGE> <PACKAGE "GL"><ENTRY GPR GO-DO-IT GLD DO-GPR><USE "GRPCHK" "CHAN" "LIBDAT" "BIGPRINT"><SETG GPR %<RSUBR-ENTRY '[\ \ F!- GPR #DECL ("VALUE" STRING "TUPLE" <TUPLE [REST <OR ATOM STRING <LIST [2 STRING]>>]>)] 0>><SETG GO-DO-IT %<RSUBR-ENTRY '[\ \ F!- GO-DO-IT #DECL ("VALUE" <OR ATOM FALSE> STRING "OPTIONAL" STRING <OR 'T FALSE> <OR 'T FALSE> <OR 'T FALSE> <OR 'T FALSE> <OR 'T FALSE>)] 0>><SETG GLD %<RSUBR-ENTRY '[\ \ F!- GLD #DECL ("VALUE" <OR ATOM FALSE> "TUPLE" <TUPLE [REST <OR STRING ATOM>]>)] 0>><SETG DO-GPR %<RSUBR-ENTRY '[\ \ F!- DO-GPR #DECL ("VALUE" <OR ATOM FALSE> "OPTIONAL" ANY ANY)] 0>><ENDPACKAGE> <PACKAGE "CRITIC"><ENTRY CRITIC-NOTES CRITIC><SETG CRITIC-NOTES %<RSUBR-ENTRY '[\ \ F!- CRITIC-NOTES #DECL ("VALUE" <OR FALSE STRING> ATOM "OPTIONAL" <OR STRING CHANNEL>)] 0>><SETG CRITIC %<RSUBR-ENTRY '[\ \ F!- CRITIC #DECL ("VALUE" <OR FALSE STRING> ATOM "OPTIONAL" <OR CHANNEL STRING> ANY)] 0>><ENDPACKAGE> <PACKAGE "NETICP"><ENTRY NETBLK ICP-IN ICP-OUT><SETG NETBLK %<RSUBR-ENTRY '[\ \ F!- NETBLK #DECL ("VALUE" <OR FIX FALSE> CHANNEL FIX FIX)] 0>><SETG ICP-IN %<RSUBR-ENTRY '[\ \ F!- ICP-IN #DECL ("VALUE" <OR FALSE <LIST CHANNEL CHANNEL>> FIX "OPTIONAL" FIX)] 0>><SETG ICP-OUT %<RSUBR-ENTRY '[\ \ F!- ICP-OUT #DECL ("VALUE" <OR FALSE <LIST CHANNEL CHANNEL>> FIX FIX "OPTIONAL" FIX)] 0>><ENDPACKAGE> <PACKAGE "DOOPS"><ENTRY DUPS DOOPS><SETG DOOPS %<RSUBR-ENTRY '[\ \ F!- DOOPS #DECL ("VALUE" <OR ATOM FALSE <LIST [REST ATOM]>> "OPTIONAL" <OR ATOM FALSE>)] 0>><GDECL (DUPS) <LIST [REST ATOM]>><ENDPACKAGE> <PACKAGE "BREAK16"><ENTRY BREAK16><ENDPACKAGE> <PACKAGE "DSKGRP"><ENTRY GROUPS-FILE USERS-FILE DISK-REPORT><USE "DIR" "ITS" "MFD" "NOW" "SORTX" "STR"><SETG DISK-REPORT %<RSUBR-ENTRY '[\ \ F!- DISK-REPORT #DECL ("VALUE" <OR CHANNEL FALSE> "OPTIONAL" ANY STRING STRING)] 0>><GDECL (USERS-FILE) STRING (GROUPS-FILE) STRING><ENDPACKAGE><PACKAGE "FDATE"><ENTRY RDATE SRDATE FDATE RFDATE SFDATE><SETG RDATE %<RSUBR-ENTRY '[\ \ F!- RDATE #DECL ("VALUE" <LIST FIX FIX FIX> CHANNEL <LIST FIX FIX FIX>)] 0>><SETG SRDATE %<RSUBR-ENTRY '[\ \ F!- SRDATE #DECL ("VALUE" <PRIMTYPE WORD> CHANNEL <PRIMTYPE WORD>)] 0>><SETG FDATE %<RSUBR-ENTRY '[\ \ F!- FDATE #DECL ("VALUE" <LIST <LIST FIX FIX FIX> <LIST FIX FIX FIX>> CHANNEL "OPTIONAL" <LIST <LIST FIX FIX FIX> <LIST FIX FIX FIX>>)] 0>><SETG RFDATE %<RSUBR-ENTRY '[\ \ F!- RFDATE #DECL ("VALUE" WORD CHANNEL)] 0>><SETG SFDATE %<RSUBR-ENTRY '[\ \ F!- SFDATE #DECL ("VALUE" <PRIMTYPE WORD> CHANNEL <PRIMTYPE WORD>)] 0>><ENDPACKAGE> <PACKAGE "HOSTS"><ENTRY CHAOS-NET ARPA-NET GATEWAYS HOSTNAMES SYSTEM-NAME MACHINE-NAME SERVER HOST DO-HOST-FLUSH DO-HOST-LOAD><SETG CHAOS-NET 7><SETG ARPA-NET 10><SETG GATEWAYS %<RSUBR-ENTRY '[\ \ F!- GATEWAYS #DECL ("VALUE" <OR FALSE <VECTOR [REST STRING]>> FIX)] 0>><SETG HOSTNAMES %<RSUBR-ENTRY '[\ \ F!- HOSTNAMES #DECL ("VALUE" <OR FALSE <VECTOR [REST STRING]>> <OR FIX STRING>)] 0>><SETG SYSTEM-NAME %<RSUBR-ENTRY '[\ \ F!- SYSTEM-NAME #DECL ("VALUE" <OR FALSE STRING FIX> <OR FIX STRING>)] 0>><SETG MACHINE-NAME %<RSUBR-ENTRY '[\ \ F!- MACHINE-NAME #DECL ("VALUE" <OR FALSE STRING FIX> <OR FIX STRING>)] 0>><SETG SERVER %<RSUBR-ENTRY '[\ \ F!- SERVER #DECL ("VALUE" <OR FALSE FIX> <OR FIX STRING>)] 0>><SETG HOST %<RSUBR-ENTRY '[\ \ F!- HOST #DECL ("VALUE" <OR FALSE STRING FIX> <OR FIX STRING> "OPTIONAL" <OR FIX FALSE>)] 0>><SETG DO-HOST-FLUSH %<RSUBR-ENTRY '[\ \ F!- DO-HOST-FLUSH #DECL ("VALUE" ATOM)] 0>><SETG DO-HOST-LOAD %<RSUBR-ENTRY '[\ \ F!- DO-HOST-LOAD #DECL ("VALUE" <OR FIX FALSE> "OPTIONAL" <OR ATOM FALSE>)] 0>><MANIFEST ARPA-NET CHAOS-NET><ENDPACKAGE><PACKAGE "IRSBCH"><ENTRY IRS-BATCH-UPDATE><USE "IRSUSR" "IRSUPD" "CPYFIL" "DIR"><SETG IRS-BATCH-UPDATE %<RSUBR-ENTRY '[\ \ F!- IRS-BATCH-UPDATE #DECL ("VALUE" ATOM "OPTIONAL" STRING STRING STRING STRING STRING STRING STRING STRING STRING STRING)] 0>><ENDPACKAGE> <PACKAGE "TRANSL"><ENTRY TRANSLATE-STY TRANSLATE-CLEAR TRANSLATE-DELETE TRANSLATE-DEVICE><USE "ITS" "STR"><SETG TRANSLATE-STY %<RSUBR-ENTRY '[\ \ F!- TRANSLATE-STY #DECL ("VALUE" <OR ATOM FALSE> CHANNEL <OR CHANNEL <PRIMTYPE WORD>>)] 0>><SETG TRANSLATE-CLEAR %<RSUBR-ENTRY '[\ \ F!- TRANSLATE-CLEAR #DECL ("VALUE" <OR ATOM FALSE> <OR CHANNEL FALSE <PRIMTYPE WORD>> "OPTIONAL" ANY ANY)] 0>><SETG TRANSLATE-DELETE %<RSUBR-ENTRY '[\ \ F!- TRANSLATE-DELETE #DECL ("VALUE" <OR ATOM FALSE> <OR CHANNEL FALSE <PRIMTYPE WORD>> <VECTOR <OR STRING FALSE> [REST <OR STRING FALSE>]> "OPTIONAL" ANY ANY ANY)] 0>><SETG TRANSLATE-DEVICE %<RSUBR-ENTRY '[\ \ F!- TRANSLATE-DEVICE #DECL ("VALUE" <OR ATOM FALSE> <OR CHANNEL FALSE <PRIMTYPE WORD>> <VECTOR [REST <OR STRING FALSE>]> <VECTOR [REST <OR STRING FALSE>]> "OPTIONAL" ANY ANY ANY ANY)] 0>><ENDPACKAGE> <PACKAGE "TRACE"><ENTRY TRACE-VAL TRACE-ARGS TSTRUC VERBOSE OUT-PRINT OUT-BREAK IN-PRINT IN-BREAK INDENT-MOD INDENT TRACELIST TSUBR TRSUBR-ENTRY TRSUBR TFUNCTION UNTRACE TRACE><NEWTYPE TSTRUC VECTOR'<<PRIMTYPE VECTOR> [7 ANY]>><SETG VERBOSE 5><SETG OUT-PRINT 3><SETG OUT-BREAK 4><SETG IN-PRINT 2><SETG IN-BREAK 1><NEWTYPE TSUBR WORD><NEWTYPE TRSUBR-ENTRY VECTOR><NEWTYPE TRSUBR VECTOR><NEWTYPE TFUNCTION LIST><SETG UNTRACE %<RSUBR-ENTRY '[\ \ F!- UNTRACE #DECL ("VALUE" <OR ATOM <LIST [REST ATOM]>> "OPTIONAL" <OR ATOM <LIST [REST ATOM]>>)] 0>><SETG TRACE %<RSUBR-ENTRY '[\ \ F!- TRACE #DECL ("VALUE" <OR ATOM FALSE <LIST [REST ATOM]>> "OPTIONAL" <OR FALSE ATOM <LIST [REST ATOM]>> "TUPLE" <TUPLE [REST <OR ATOM LIST>]>)] 0>><MANIFEST IN-BREAK IN-PRINT OUT-BREAK OUT-PRINT VERBOSE><GDECL (TRACELIST) <LIST [REST ATOM]> (INDENT) FIX (INDENT-MOD) FIX><ENDPACKAGE> <PACKAGE "PRIORITY-QUEUE"><ENTRY FLUSH-Q CHANGE-PRIORITY ADD-TO-Q REM-FROM-Q REM-TOP-OF-Q MAKE-Q><SETG FLUSH-Q %<RSUBR-ENTRY '[\ \ F!- FLUSH-Q #DECL ("VALUE" <UVECTOR [REST <LIST FIX FIX>]> <UVECTOR [REST <LIST FIX FIX>]>)] 0>><SETG CHANGE-PRIORITY %<RSUBR-ENTRY '[\ \ F!- CHANGE-PRIORITY #DECL ("VALUE" ANY <UVECTOR [REST <LIST FIX FIX>]> FIX FIX)] 0>><SETG ADD-TO-Q %<RSUBR-ENTRY '[\ \ F!- ADD-TO-Q #DECL ("VALUE" <UVECTOR [REST <LIST FIX FIX>]> <UVECTOR [REST <LIST FIX FIX>]> <LIST FIX FIX> "OPTIONAL" FIX)] 0>><SETG REM-FROM-Q %<RSUBR-ENTRY '[\ \ F!- REM-FROM-Q #DECL ("VALUE" ANY <UVECTOR [REST <LIST FIX FIX>]> <LIST FIX FIX>)] 0>><SETG REM-TOP-OF-Q %<RSUBR-ENTRY '[\ \ F!- REM-TOP-OF-Q #DECL ("VALUE" ANY <UVECTOR [REST <LIST FIX FIX>]>)] 0>><SETG MAKE-Q %<RSUBR-ENTRY '[\ \ F!- MAKE-Q #DECL ("VALUE" <UVECTOR [REST <LIST FIX FIX>]> "OPTIONAL" FIX <LIST FIX FIX>)] 0>><ENDPACKAGE> <PACKAGE "NDIRED"><ENTRY ND NDIRED ><USE "DATIME" "TTY" "ITS" "DIR"><SETG NDIRED %<RSUBR-ENTRY '[\ \ F!- NDIRED #DECL ("VALUE" ANY)] 0>><ENDPACKAGE><PACKAGE "RJSRET"><ENTRY GET-DATA><USE "RJSCHN" "RJSJOB" "RJSDAT"><SETG GET-DATA %<RSUBR-ENTRY '[\ \ F!- GET-DATA #DECL ("VALUE" FIX CHANNEL)] 0>><ENDPACKAGE> <PACKAGE "TEMHAK"><ENTRY FILE-TEMPLATE TEMPLATE-DUMP><USE "TEMHLP"><SETG FILE-TEMPLATE %<RSUBR-ENTRY '[\ \ F!- FILE-TEMPLATE #DECL ("VALUE" <OR ATOM FALSE> STRING "OPTIONAL" STRING)] 0>><SETG TEMPLATE-DUMP %<RSUBR-ENTRY '[\ \ F!- TEMPLATE-DUMP #DECL ("VALUE" <OR ATOM <FALSE STRING [REST STRING]>> ATOM)] 0>><ENDPACKAGE><PACKAGE "MLEARN"><ENTRY PIO-TRACE MNEME-UNLOCK MNEME-WRITE MNEME-LOCK MNUM NON-INVERT CONVERT RANDOM-MNEME-ITEM MNEME-END MNEME-BEGIN LEARN><USE "PIO" "MNEME"><SETG MNEME-UNLOCK %<RSUBR-ENTRY '[\ \ F!- MNEME-UNLOCK #DECL ("VALUE" <OR FALSE STRING> "OPTIONAL" STRING)] 0>><SETG MNEME-WRITE %<RSUBR-ENTRY '[\ \ F!- MNEME-WRITE #DECL ("VALUE" FIX <OR <UVECTOR <PRIMTYPE WORD>> <PRIMTYPE WORD> STRING LIST> FIX)] 0>><SETG MNEME-LOCK %<RSUBR-ENTRY '[\ \ F!- MNEME-LOCK #DECL ("VALUE" FIX "OPTIONAL" STRING)] 0>><SETG RANDOM-MNEME-ITEM %<RSUBR-ENTRY '[\ \ F!- RANDOM-MNEME-ITEM #DECL ("VALUE" OWT)] 0>><SETG MNEME-END %<RSUBR-ENTRY '[\ \ F!- MNEME-END #DECL ("VALUE" STRING)] 0>><SETG MNEME-BEGIN %<RSUBR-ENTRY '[\ \ F!- MNEME-BEGIN #DECL ("VALUE" ANY "OPTIONAL" ANY)] 0>><SETG LEARN %<RSUBR-ENTRY '[\ \ F!- LEARN #DECL ("VALUE" <OR FALSE OWT> "TUPLE" <OR TUPLE LIST>)] 0>><GDECL (MNUM) <OR FALSE ATOM>><ENDPACKAGE><PACKAGE "LIST-HACKS"><ENTRY LREVERSE LSORT LSHUFFLE><SETG LREVERSE %<RSUBR-ENTRY '[\ \ F!- LREVERSE #DECL ("VALUE" LIST LIST)] 0>><SETG LSORT %<RSUBR-ENTRY '[\ \ F!- LSORT #DECL ("VALUE" LIST LIST "OPTIONAL" <OR FALSE APPLICABLE> ANY)] 0>><SETG LSHUFFLE %<RSUBR-ENTRY '[\ \ F!- LSHUFFLE #DECL ("VALUE" LIST LIST "OPTIONAL" FIX)] 0>><ENDPACKAGE><PACKAGE "UNLINK"><ENTRY UNPURIFY PURE? UNLINK><SETG UNPURIFY %<RSUBR-ENTRY '[\ \ F!- UNPURIFY #DECL ("VALUE" ATOM <OR <PRIMTYPE VECTOR> <PRIMTYPE UVECTOR>>)] 0>><SETG PURE? %<RSUBR-ENTRY '[\ \ F!- PURE? #DECL ("VALUE" <OR ATOM FALSE> ANY)] 0>><SETG UNLINK %<RSUBR-ENTRY '[\ \ F!- UNLINK #DECL ("VALUE" <OR ATOM !<FALSE STRING!>> <OR FALSE ATOM <LIST [REST ATOM]>> "OPTIONAL" <OR ATOM FALSE>)] 0>><ENDPACKAGE> <PACKAGE "PMFREE"><ENTRY PMDALLOC PMALLOC><SETG PMDALLOC %<RSUBR-ENTRY '[\ \ F!- PMDALLOC #DECL ("VALUE" <OR FIX FALSE> PMCHAN FIX)] 0>><SETG PMALLOC %<RSUBR-ENTRY '[\ \ F!- PMALLOC #DECL ("VALUE" FIX PMCHAN FIX)] 0>><ENDPACKAGE> <PACKAGE "NETFTP"><ENTRY UNSOAK SOAK LAST-RESP WAITRESP ICP ACC CONNECT><USE "CLOCK"><SETG UNSOAK %<RSUBR-ENTRY '[\ \ F!- UNSOAK #DECL ("VALUE" <OR ATOM FALSE>)] 0>><SETG SOAK %<RSUBR-ENTRY '[\ \ F!- SOAK #DECL ("VALUE" <OR ATOM FALSE>)] 0>><SETG WAITRESP %<RSUBR-ENTRY '[\ \ F!- WAITRESP #DECL ("VALUE" <OR FALSE FIX> CHANNEL LIST)] 0>><SETG ICP %<RSUBR-ENTRY '[\ \ F!- ICP #DECL ("VALUE" <OR FALSE <LIST CHANNEL CHANNEL>> FIX FIX "OPTIONAL" FIX)] 0>><SETG ACC %<RSUBR-ENTRY '[\ \ F!- ACC #DECL ("VALUE" ANY <LIST CHANNEL CHANNEL> STRING STRING FIX)] 0>><SETG CONNECT %<RSUBR-ENTRY '[\ \ F!- CONNECT #DECL ("VALUE" <OR FALSE <LIST CHANNEL CHANNEL>> FIX <LIST [3 STRING]> <OR STRING FALSE> <OR FIX FALSE> <OR STRING FALSE>)] 0>><ENDPACKAGE><PACKAGE "IMC"><ENTRY IMCLOSE IMCLEAR IMCLOCKR IMCLOCKW IMCUNLOCK IMCREAD IMCPRINT IMCMSGNUM IMCSLAVE IMCOPEN><USE "PMAP"><SETG IMCLOSE %<RSUBR-ENTRY '[\ \ F!- IMCLOSE #DECL ("VALUE" <OR PMCHAN FALSE> PMCHAN)] 0>><SETG IMCLEAR %<RSUBR-ENTRY '[\ \ F!- IMCLEAR #DECL ("VALUE" FIX PMCHAN)] 0>><SETG IMCLOCKR %<RSUBR-ENTRY '[\ \ F!- IMCLOCKR #DECL ("VALUE" <OR FIX FALSE> PMCHAN)] 0>><SETG IMCLOCKW %<RSUBR-ENTRY '[\ \ F!- IMCLOCKW #DECL ("VALUE" <OR FIX FALSE> PMCHAN)] 0>><SETG IMCUNLOCK %<RSUBR-ENTRY '[\ \ F!- IMCUNLOCK #DECL ("VALUE" <OR FIX FALSE> PMCHAN)] 0>><SETG IMCREAD %<RSUBR-ENTRY '[\ \ F!- IMCREAD #DECL ("VALUE" ANY PMCHAN)] 0>><SETG IMCPRINT %<RSUBR-ENTRY '[\ \ F!- IMCPRINT #DECL ("VALUE" <OR FIX FALSE> PMCHAN ANY)] 0>><SETG IMCMSGNUM %<RSUBR-ENTRY '[\ \ F!- IMCMSGNUM #DECL ("VALUE" FIX PMCHAN)] 0>><SETG IMCSLAVE %<RSUBR-ENTRY '[\ \ F!- IMCSLAVE #DECL ("VALUE" ANY PMCHAN "OPTIONAL" ANY)] 0>><SETG IMCOPEN %<RSUBR-ENTRY '[\ \ F!- IMCOPEN #DECL ("VALUE" <OR PMCHAN FALSE> STRING)] 0>><ENDPACKAGE> <PACKAGE "ITIME"><ENTRY ZONE IDAY BTIME LTIME QTIME ITIME><SETG ZONE %<RSUBR-ENTRY '[\ \ F!- ZONE #DECL ("VALUE" ANY "OPTIONAL" <OR FIX STRING>)] 0>><SETG IDAY %<RSUBR-ENTRY '[\ \ F!- IDAY #DECL ("VALUE" FIX "OPTIONAL" FIX)] 0>><SETG BTIME %<RSUBR-ENTRY '[\ \ F!- BTIME #DECL ("VALUE" FIX "OPTIONAL" FIX FIX FIX FIX FIX FIX)] 0>><SETG LTIME %<RSUBR-ENTRY '[\ \ F!- LTIME #DECL ("VALUE" <LIST [2 LIST] STRING> "OPTIONAL" <OR FIX UVECTOR> <LIST [2 LIST] STRING>)] 0>><SETG QTIME %<RSUBR-ENTRY '[\ \ F!- QTIME #DECL ("VALUE" FIX FIX)] 0>><SETG ITIME %<RSUBR-ENTRY '[\ \ F!- ITIME #DECL ("VALUE" FIX "OPTIONAL" FIX)] 0>><ENDPACKAGE> <PACKAGE "LSRHIL"><ENTRY BD-MAIL BD? BIRTHDAY MAILBOX NICKNAME FULLNAME><USE "LSRTNS" "MFD" "NSTR" "TIMFCN"><SETG BD-MAIL %<RSUBR-ENTRY '[\ \ F!- BD-MAIL #DECL ("VALUE" <LIST [REST STRING]> "OPTIONAL" <LIST LIST> VECTOR)] 0>><SETG BD? %<RSUBR-ENTRY '[\ \ F!- BD? #DECL ("VALUE" <LIST [REST STRING]> "OPTIONAL" <VECTOR [REST STRING]> <LIST <LIST [REST FIX]>>)] 0>><SETG BIRTHDAY %<RSUBR-ENTRY '[\ \ F!- BIRTHDAY #DECL ("VALUE" <OR FALSE <LIST <LIST FIX FIX> LIST>> STRING "OPTIONAL" ANY)] 0>><SETG MAILBOX %<RSUBR-ENTRY '[\ \ F!- MAILBOX #DECL ("VALUE" STRING STRING "OPTIONAL" ANY)] 0>><SETG NICKNAME %<RSUBR-ENTRY '[\ \ F!- NICKNAME #DECL ("VALUE" STRING STRING "OPTIONAL" ANY)] 0>><SETG FULLNAME %<RSUBR-ENTRY '[\ \ F!- FULLNAME #DECL ("VALUE" STRING STRING "OPTIONAL" ANY)] 0>><ENDPACKAGE> <PACKAGE "MDMAKE"><ENTRY SAMPLE-INFO MS-MAKE MCOD-MAKE GET-CODE><USE "MDTYPE" "CODER"><SETG MS-MAKE %<RSUBR-ENTRY '[\ \ F!- MS-MAKE #DECL ("VALUE" MS)] 0>><SETG MCOD-MAKE %<RSUBR-ENTRY '[\ \ F!- MCOD-MAKE #DECL ("VALUE" MCOD <LIST <OR FALSE VECTOR> UVECTOR [REST LIST]>)] 0>><SETG GET-CODE %<RSUBR-ENTRY '[\ \ F!- GET-CODE #DECL ("VALUE" <OR ATOM FALSE MCOD> <OR STRING ATOM LIST UVECTOR>)] 0>><ENDPACKAGE> <RPACKAGE "SDML"><ENTRY SDMSCN SDMDSRC SDMSRC SDMGETCHAN SDMGETARC SDMGETYPE SDMAGET SDMGET SDMGDL SDMLST SDMDIR SDMGDA SDMDCT SDMOPN SDMACT SDBIGN SDBEVL SDBSTG SDBIMV SDBUPI SDBDLI SDBNWI SDBWPT SDBICS SDMBDIR SDMBDSP SDMBFDSP SDMBPAGE SDMBITM3 SDMBITM2 SDMBITM1><USE "PMAP" "VCTMAN" "CPYFIL"><SETG SDMSCN %<RSUBR-ENTRY '[\ \ F!- SDMSCN #DECL ("VALUE" <VECTOR UVECTOR FIX> STRING)] 0>><SETG SDMDSRC %<RSUBR-ENTRY '[\ \ F!- SDMDSRC #DECL ("VALUE" <OR VECTOR FALSE> PMCHAN ANY "OPTIONAL" FIX)] 0>><SETG SDMSRC %<RSUBR-ENTRY '[\ \ F!- SDMSRC #DECL ("VALUE" <VECTOR FIX UVECTOR FIX FIX UVECTOR> PMCHAN ANY FIX)] 0>><SETG SDMGETCHAN %<RSUBR-ENTRY '[\ \ F!- SDMGETCHAN #DECL ("VALUE" <OR CHANNEL FALSE> PMCHAN ANY)] 0>><SETG SDMGETARC %<RSUBR-ENTRY '[\ \ F!- SDMGETARC #DECL ("VALUE" <OR STRING FALSE> PMCHAN ANY STRING)] 0>><SETG SDMGETYPE %<RSUBR-ENTRY '[\ \ F!- SDMGETYPE #DECL ("VALUE" STRING PMCHAN ANY "OPTIONAL" FIX)] 0>><SETG SDMAGET %<RSUBR-ENTRY '[\ \ F!- SDMAGET #DECL ("VALUE" ANY PMCHAN <PRIMTYPE WORD> "OPTIONAL" FIX)] 0>><SETG SDMGET %<RSUBR-ENTRY '[\ \ F!- SDMGET #DECL ("VALUE" ANY PMCHAN ANY "OPTIONAL" FIX)] 0>><SETG SDMGDL %<RSUBR-ENTRY '[\ \ F!- SDMGDL #DECL ("VALUE" FIX PMCHAN)] 0>><SETG SDMLST %<RSUBR-ENTRY '[\ \ F!- SDMLST #DECL ("VALUE" STRING PMCHAN)] 0>><SETG SDMDIR %<RSUBR-ENTRY '[\ \ F!- SDMDIR #DECL ("VALUE" <VECTOR STRING> PMCHAN)] 0>><SETG SDMGDA %<RSUBR-ENTRY '[\ \ F!- SDMGDA #DECL ("VALUE" UVECTOR PMCHAN)] 0>><SETG SDMDCT %<RSUBR-ENTRY '[\ \ F!- SDMDCT #DECL ("VALUE" PMCHAN PMCHAN)] 0>><SETG SDMOPN %<RSUBR-ENTRY '[\ \ F!- SDMOPN #DECL ("VALUE" <OR PMCHAN FALSE> STRING "OPTIONAL" FIX)] 0>><SETG SDMACT %<RSUBR-ENTRY '[\ \ F!- SDMACT #DECL ("VALUE" <OR PMCHAN FALSE> STRING "OPTIONAL" FIX FIX)] 0>><ENDPACKAGE> <PACKAGE "TTY"><ENTRY SCML RCPOS IOT TTY-OFF TTY-ON CNS-SET CNS-GET TTY-SET TTY-GET><SETG SCML %<RSUBR-ENTRY '[\ \ F!- SCML #DECL ("VALUE" FIX FIX CHANNEL)] 0>><SETG RCPOS %<RSUBR-ENTRY '[\ \ F!- RCPOS #DECL ("OPTIONAL" <OR FALSE <UVECTOR [4 <PRIMTYPE WORD>]>> CHANNEL)] 0>><SETG IOT %<RSUBR-ENTRY '[\ \ F!- IOT #DECL ("VALUE" CHARACTER "OPTIONAL" <PRIMTYPE WORD>)] 0>><SETG TTY-OFF %<RSUBR-ENTRY '[\ \ F!- TTY-OFF #DECL ("OPTIONAL" CHANNEL)] 0>><SETG TTY-ON %<RSUBR-ENTRY '[\ \ F!- TTY-ON #DECL ("OPTIONAL" CHANNEL)] 0>><SETG CNS-SET %<RSUBR-ENTRY '[\ \ F!- CNS-SET #DECL (<UVECTOR [5 <PRIMTYPE WORD>]> "OPTIONAL" CHANNEL)] 0>><SETG CNS-GET %<RSUBR-ENTRY '[\ \ F!- CNS-GET #DECL ("OPTIONAL" <OR FALSE <UVECTOR [5 <PRIMTYPE WORD>]>> CHANNEL)] 0>><SETG TTY-SET %<RSUBR-ENTRY '[\ \ F!- TTY-SET #DECL (<OR <UVECTOR [2 <PRIMTYPE WORD>]> <UVECTOR [3 <PRIMTYPE WORD>]>> "OPTIONAL" CHANNEL)] 0>><SETG TTY-GET %<RSUBR-ENTRY '[\ \ F!- TTY-GET #DECL ("OPTIONAL" <OR FALSE <UVECTOR [3 <PRIMTYPE WORD>]>> <OR CHANNEL FIX>)] 0>><ENDPACKAGE> <PACKAGE "CELEST"><ENTRY MOONSET MOONRISE SUNSET NOON SUNRISE NEXT-SEASON NEXT-PHASE PHASE><USE "TIMFCN"><SETG MOONSET %<RSUBR-ENTRY '[\ \ F!- MOONSET #DECL ("VALUE" <OR FALSE LIST> "OPTIONAL" LIST FLOAT)] 0>><SETG MOONRISE %<RSUBR-ENTRY '[\ \ F!- MOONRISE #DECL ("VALUE" <OR FALSE LIST> "OPTIONAL" LIST FLOAT)] 0>><SETG SUNSET %<RSUBR-ENTRY '[\ \ F!- SUNSET #DECL ("VALUE" LIST "OPTIONAL" LIST FLOAT)] 0>><SETG NOON %<RSUBR-ENTRY '[\ \ F!- NOON #DECL ("VALUE" LIST "OPTIONAL" LIST FLOAT)] 0>><SETG SUNRISE %<RSUBR-ENTRY '[\ \ F!- SUNRISE #DECL ("VALUE" LIST "OPTIONAL" LIST FLOAT)] 0>><SETG NEXT-SEASON %<RSUBR-ENTRY '[\ \ F!- NEXT-SEASON #DECL ("VALUE" <VECTOR FIX LIST> "OPTIONAL" LIST FLOAT FIX)] 0>><SETG NEXT-PHASE %<RSUBR-ENTRY '[\ \ F!- NEXT-PHASE #DECL ("VALUE" <VECTOR FIX LIST> "OPTIONAL" LIST FLOAT FIX)] 0>><SETG PHASE %<RSUBR-ENTRY '[\ \ F!- PHASE #DECL ("VALUE" FLOAT "OPTIONAL" LIST)] 0>><ENDPACKAGE> <PACKAGE "CALCOM"><ENTRY COMTITLES SYSTAT COMTABLE GLUECOMTABLE FLUSHGLUETABLE FIXGLUETABLE GLUETABLES TTY-UNSILENCE TTY-SILENCE TTY-SILENCE-DEPTH END-ALL-TTY-SCRIPT END-TTY-SCRIPT TTY-SCRIPT CALICO-QUIT KILL-TABLE ADDCOMMAND ADDTABLE COPY-FILE TABLETHERE TABLEPRINT XFILE FILETPL LISTF FILEPRINT SUBSYS-EVAL SUBSYS-SYMTAB ACT-SUBSYSTEM><USE "STR" "CALRDR" "CALSYM" "CALUTL" "LEX"><SETG SYSTAT %<RSUBR-ENTRY '[\ \ F!- SYSTAT #DECL ("VALUE" ATOM)] 0>><SETG FLUSHGLUETABLE %<RSUBR-ENTRY '[\ \ F!- FLUSHGLUETABLE #DECL ("VALUE" ANY)] 0>><SETG FIXGLUETABLE %<RSUBR-ENTRY '[\ \ F!- FIXGLUETABLE #DECL ("VALUE" ATOM)] 0>><SETG GLUETABLES %<RSUBR-ENTRY '[\ \ F!- GLUETABLES #DECL ("VALUE" ANY "OPTIONAL" SYMTABLE FIX)] 0>><SETG TTY-UNSILENCE %<RSUBR-ENTRY '[\ \ F!- TTY-UNSILENCE #DECL ("VALUE" ATOM)] 0>><SETG TTY-SILENCE %<RSUBR-ENTRY '[\ \ F!- TTY-SILENCE #DECL ("VALUE" ATOM)] 0>><SETG END-ALL-TTY-SCRIPT %<RSUBR-ENTRY '[\ \ F!- END-ALL-TTY-SCRIPT #DECL ("VALUE" ATOM)] 0>><SETG END-TTY-SCRIPT %<RSUBR-ENTRY '[\ \ F!- END-TTY-SCRIPT #DECL ("VALUE" ATOM)] 0>><SETG TTY-SCRIPT %<RSUBR-ENTRY '[\ \ F!- TTY-SCRIPT #DECL ("VALUE" ATOM STRING)] 0>><SETG CALICO-QUIT %<RSUBR-ENTRY '[\ \ F!- CALICO-QUIT #DECL ("VALUE" ATOM)] 0>><SETG KILL-TABLE %<RSUBR-ENTRY '[\ \ F!- KILL-TABLE #DECL ("VALUE" ATOM SYMTABLE)] 0>><SETG ADDCOMMAND %<RSUBR-ENTRY '[\ \ F!- ADDCOMMAND #DECL ("VALUE" ATOM STRING ANY)] 0>><SETG ADDTABLE %<RSUBR-ENTRY '[\ \ F!- ADDTABLE #DECL ("VALUE" ATOM SYMTABLE)] 0>><SETG COPY-FILE %<RSUBR-ENTRY '[\ \ F!- COPY-FILE #DECL ("VALUE" ATOM STRING STRING)] 0>><SETG TABLETHERE %<RSUBR-ENTRY '[\ \ F!- TABLETHERE #DECL ("VALUE" <OR FALSE SYMTABLE> STRING <VECTOR [REST SYMTABLE]>)] 0>><SETG TABLEPRINT %<RSUBR-ENTRY '[\ \ F!- TABLEPRINT #DECL ("VALUE" ATOM SYMTABLE)] 0>><SETG XFILE %<RSUBR-ENTRY '[\ \ F!- XFILE #DECL ("VALUE" ATOM STRING)] 0>><SETG FILETPL %<RSUBR-ENTRY '[\ \ F!- FILETPL #DECL ("VALUE" ATOM STRING)] 0>><SETG LISTF %<RSUBR-ENTRY '[\ \ F!- LISTF #DECL ("VALUE" ATOM STRING)] 0>><SETG FILEPRINT %<RSUBR-ENTRY '[\ \ F!- FILEPRINT #DECL ("VALUE" ATOM STRING "OPTIONAL" CHANNEL)] 0>><SETG SUBSYS-EVAL %<RSUBR-ENTRY '[\ \ F!- SUBSYS-EVAL #DECL ("VALUE" STRING <VECTOR STRING>)] 0>><SETG ACT-SUBSYSTEM %<RSUBR-ENTRY '[\ \ F!- ACT-SUBSYSTEM #DECL ("VALUE" ATOM)] 0>><ENDPACKAGE> <PACKAGE "FILINF"><ENTRY CREATION-DATE DUMPED?><SETG CREATION-DATE %<RSUBR-ENTRY '[\ \ F!- CREATION-DATE #DECL ("VALUE" FIX CHANNEL)] 0>><SETG DUMPED? %<RSUBR-ENTRY '[\ \ F!- DUMPED? #DECL ("VALUE" <OR ATOM FALSE> CHANNEL "OPTIONAL" <OR ATOM FALSE>)] 0>><ENDPACKAGE> <PACKAGE "CLEAN"><ENTRY FLUSH-PKG-OBLS USE-HASH KEEP-DECLS PRINT-DECLS PURELST PRINT-CLEANUP FLUSH-CLEANUP CLEAR-CLEANUP CLEANUP><USE "PURITY"><SETG FLUSH-PKG-OBLS %<RSUBR-ENTRY '[\ \ F!- FLUSH-PKG-OBLS #DECL ("VALUE" FIX "OPTIONAL" <LIST [REST STRING]>)] 0>><SETG PRINT-DECLS %<RSUBR-ENTRY '[\ \ F!- PRINT-DECLS #DECL ("VALUE" <OR ATOM FALSE> "OPTIONAL" <OR <LIST [REST ATOM]> ATOM FALSE>)] 0>><SETG PRINT-CLEANUP %<RSUBR-ENTRY '[\ \ F!- PRINT-CLEANUP #DECL ("VALUE" ATOM)] 0>><SETG FLUSH-CLEANUP %<RSUBR-ENTRY '[\ \ F!- FLUSH-CLEANUP #DECL ("VALUE" <OR STRING <FALSE STRING [REST STRING]>>)] 0>><SETG CLEAR-CLEANUP %<RSUBR-ENTRY '[\ \ F!- CLEAR-CLEANUP #DECL ("VALUE" <OR ATOM FALSE>)] 0>><SETG CLEANUP %<RSUBR-ENTRY '[\ \ F!- CLEANUP #DECL ("VALUE" <VECTOR FIX FIX FIX FIX FIX [REST FIX]> "OPTIONAL" ANY ANY ANY ANY ANY ANY <LIST [REST OBLIST]>)] 0>><ENDPACKAGE><PACKAGE "DCREATE"><ENTRY NEW-DICTS DICT-CREATE><USE "MDDATA" "RLSDICT" "MAKE-DUV" "END-TREE" "DATA-SAVE" "SORTX"><SETG NEW-DICTS %<RSUBR-ENTRY '[\ \ F!- NEW-DICTS #DECL ("VALUE" ANY "TUPLE" <TUPLE [REST ATOM]>)] 0>><SETG DICT-CREATE %<RSUBR-ENTRY '[\ \ F!- DICT-CREATE #DECL ("VALUE" <OR ATOM FALSE> ATOM "OPTIONAL" <OR FALSE STRING>)] 0>><ENDPACKAGE> <PACKAGE "GLUE"><ENTRY FLUSHED GROUP-GLUE VICTIMS SURV PKG GLUE-MAX-SPACE><USE "LIST-HACKS"><SETG GROUP-GLUE %<RSUBR-ENTRY '[\ \ F!- GROUP-GLUE #DECL ("VALUE" <OR FALSE STRING> ATOM "OPTIONAL" <OR ATOM FALSE> <OR CHANNEL FALSE> <OR LIST STRING FALSE> <OR FALSE LIST> <OR FALSE LIST>)] 0>><ENDPACKAGE><PACKAGE "INQUIRE"><ENTRY INQUIRE><SETG INQUIRE %<RSUBR-ENTRY '[\ \ F!- INQUIRE #DECL ("VALUE" ANY ANY ANY "QUOTE" ANY)] 0>><ENDPACKAGE> <PACKAGE "CALRDR"><ENTRY XSPCCHARS SPCCHARS SPCCHAR-TEMPLATE CALICO-FILE-ATOMS NO-MATCH-CHAR PARTIAL-MATCH-CHAR EXACT-MATCH-CHAR INTTYCHAR QUOTCHAR MASTER-STRING MULT-CR-MASTER MASTER DRETYPE CRETYPE BUFFERKILL WORDKILL LINEKILL RUBCHAR MULTCHAR ABORTCHAR HELPCHAR POSCHAR NSTERMS TERMINS COMPLETES CONFIRMS RDRHEAD RDRHAND CSACT LEN BFR CALRDRINIT LAST-READER-BREAK RTOBRK READARGS READER MULTLIST OTTY READER-ABORT READER-NULL-LINE LKPR BLTREST COMMAPRINT IMLAC?><USE "CALSYM" "CALUTL" "STR" "TTY" "BLT" "TIMFCN"><SETG CALRDRINIT %<RSUBR-ENTRY '[\ \ F!- CALRDRINIT #DECL ("VALUE" ATOM)] 0>><SETG RTOBRK %<RSUBR-ENTRY '[\ \ F!- RTOBRK #DECL ("VALUE" <OR FALSE CHARACTER> ATOM ATOM ATOM STRING FIX STRING "OPTIONAL" STRING STRING STRING STRING STRING)] 0>><SETG READARGS %<RSUBR-ENTRY '[\ \ F!- READARGS #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG READER %<RSUBR-ENTRY '[\ \ F!- READER #DECL ("VALUE" ANY <OR SYMTABLE VECTOR> STRING <OR TUPLE VECTOR STRING> <VECTOR [REST STRING]> "OPTIONAL" <OR FALSE ATOM> <OR FALSE ATOM> STRING)] 0>><SETG BLTREST %<RSUBR-ENTRY '[\ \ F!- BLTREST #DECL ("VALUE" <OR TUPLE <PRIMTYPE VECTOR>> <OR TUPLE <PRIMTYPE VECTOR>> "TUPLE" TUPLE)] 0>><SETG COMMAPRINT %<RSUBR-ENTRY '[\ \ F!- COMMAPRINT #DECL ("VALUE" <OR FALSE STRING> STRUCTURED "OPTIONAL" ANY)] 0>><ENDPACKAGE> <RPACKAGE "PMAP"><ENTRY SHARERS PAGE-GIVE PAGE-FIND CORE-BLOCK PMAP-RESTORE PMMAX PMCHANLIST PMMPLEX PUNWIRE PWIRE PBUFFERS PCLOSE PRESET PWRITE PREAD POPEN PMCHAN><SETG SHARERS %<RSUBR-ENTRY '[\ \ F!- SHARERS #DECL ("VALUE" <OR FIX FALSE> <PRIMTYPE WORD> "OPTIONAL" <PRIMTYPE WORD>)] 0>><SETG PAGE-GIVE %<RSUBR-ENTRY '[\ \ F!- PAGE-GIVE #DECL ("VALUE" FIX FIX "OPTIONAL" FIX)] 0>><SETG PAGE-FIND %<RSUBR-ENTRY '[\ \ F!- PAGE-FIND #DECL ("VALUE" <OR FIX FALSE> "OPTIONAL" FIX)] 0>><SETG CORE-BLOCK %<RSUBR-ENTRY '[\ \ F!- CORE-BLOCK #DECL ("VALUE" <OR FIX FALSE> <PRIMTYPE WORD> FIX FIX FIX FIX)] 0>><SETG PMAP-RESTORE %<RSUBR-ENTRY '[\ \ F!- PMAP-RESTORE #DECL ("VALUE" STRING)] 0>><SETG PMMPLEX %<RSUBR-ENTRY '[\ \ F!- PMMPLEX #DECL ("VALUE" <OR ATOM CHANNEL FALSE> "OPTIONAL" PMCHAN)] 0>><SETG PUNWIRE %<RSUBR-ENTRY '[\ \ F!- PUNWIRE #DECL ("VALUE" <OR ATOM <FALSE STRING [REST STRING]>> PMCHAN FIX)] 0>><SETG PWIRE %<RSUBR-ENTRY '[\ \ F!- PWIRE #DECL ("VALUE" <UVECTOR FIX FIX FIX FIX> PMCHAN FIX)] 0>><SETG PBUFFERS %<RSUBR-ENTRY '[\ \ F!- PBUFFERS #DECL ("VALUE" <OR FALSE FIX> PMCHAN FIX)] 0>><SETG PCLOSE %<RSUBR-ENTRY '[\ \ F!- PCLOSE #DECL ("VALUE" PMCHAN PMCHAN)] 0>><SETG PRESET %<RSUBR-ENTRY '[\ \ F!- PRESET #DECL ("VALUE" PMCHAN PMCHAN "OPTIONAL" STRING)] 0>><SETG PWRITE %<RSUBR-ENTRY '[\ \ F!- PWRITE #DECL ("VALUE" <OR UVECTOR <FALSE STRING [REST STRING]>> PMCHAN UVECTOR FIX)] 0>><SETG PREAD %<RSUBR-ENTRY '[\ \ F!- PREAD #DECL ("VALUE" <OR FALSE UVECTOR> PMCHAN UVECTOR FIX)] 0>><SETG POPEN %<RSUBR-ENTRY '[\ \ F!- POPEN #DECL ("VALUE" <OR FALSE PMCHAN> STRING STRING "OPTIONAL" FIX APPLICABLE)] 0>><NEWTYPE PMCHAN VECTOR'<VECTOR CHANNEL STRING FIX LIST FIX APPLICABLE FIX FIX>><GDECL (PMCHANLIST) <LIST [REST PMCHAN]> (PMMAX) FIX><ENDPACKAGE> <PACKAGE "JOBASS"><ENTRY UCLOSE JOB-GET-NUM JOB-CREATE FILE-LOAD DTTY ATTY><USE "ITS" "STR"><SETG UCLOSE %<RSUBR-ENTRY '[\ \ F!- UCLOSE #DECL ("VALUE" CHANNEL CHANNEL)] 0>><SETG JOB-GET-NUM %<RSUBR-ENTRY '[\ \ F!- JOB-GET-NUM #DECL ("VALUE" FIX CHANNEL)] 0>><SETG JOB-CREATE %<RSUBR-ENTRY '[\ \ F!- JOB-CREATE #DECL ("VALUE" <OR CHANNEL <FALSE STRING>> STRING)] 0>><SETG FILE-LOAD %<RSUBR-ENTRY '[\ \ F!- FILE-LOAD #DECL ("VALUE" <OR WORD <FALSE STRING>> CHANNEL CHANNEL)] 0>><SETG DTTY %<RSUBR-ENTRY '[\ \ F!- DTTY #DECL ("VALUE" <OR CHANNEL <FALSE [REST]>> CHANNEL)] 0>><SETG ATTY %<RSUBR-ENTRY '[\ \ F!- ATTY #DECL ("VALUE" <OR CHANNEL <FALSE [REST]>> CHANNEL)] 0>><ENDPACKAGE><PACKAGE "MDDOF"><ENTRY NEW-DOF FDOF><USE "MDTYPE" "MDTABLE" "MDERRS"><SETG NEW-DOF %<RSUBR-ENTRY '[\ \ F!- NEW-DOF #DECL ("VALUE" DOF)] 0>><SETG FDOF %<RSUBR-ENTRY '[\ \ F!- FDOF #DECL ("VALUE" DOF STRING FIX MCOD "OPTIONAL" FIX FIX DOF)] 0>><ENDPACKAGE><RPACKAGE "NUNC"><ENTRY NUNC><SETG NUNC %<RSUBR-ENTRY '[\ \ F!- NUNC #DECL ("VALUE" <VECTOR STRING STRING>)] 0>><ENDPACKAGE> <PACKAGE "TAILOR"><ENTRY OK-TO-RUN OK-TO-EVAL OK-TO-APPLY TAILOR-COMMANDS TAILOR><USE "CALRDR" "COMMAND" "CALSYM" "CALCOM" "CALUTL"><SETG TAILOR %<RSUBR-ENTRY '[\ \ F!- TAILOR #DECL ("VALUE" ATOM)] 0>><ENDPACKAGE> <RPACKAGE "DOW"><ENTRY DOW><SETG DOW %<RSUBR-ENTRY '[\ \ F!- DOW #DECL ("VALUE" FIX)] 0>><ENDPACKAGE> <PACKAGE "VCTSRC"><ENTRY VCTSRC><SETG VCTSRC %<RSUBR-ENTRY '[\ \ F!- VCTSRC #DECL ("VALUE" <OR FALSE VECTOR> VECTOR <OR STRING FIX> "OPTIONAL" FIX)] 0>><ENDPACKAGE> <PACKAGE "DIR"><ENTRY DISK-DATE YEAR DAY MONTH REF-DATE CREATION-DATE CREATION-TIME EXTRA-WORDS DUMP-BIT IGNORED DELETED DELETE-FROM-UNMOUNTED-PACK DELETE-ON-CLOSE GC-MARK-BIT OPEN-WRITE LINK-BIT PACK-NUMBER DESC-PTR NAME-AREA DESC-AREA PARSE-DIRECTORY GET-DIRECTORY><USE "NSTR"><SETG DISK-DATE %<RSUBR-ENTRY '[\ \ F!- DISK-DATE #DECL ("VALUE" WORD "OPTIONAL" LIST)] 0>><SETG YEAR #BITS *330700000000*><SETG DAY #BITS *220500000000*><SETG MONTH #BITS *270400000000*><SETG REF-DATE #BITS *222000000000*><SETG CREATION-DATE #BITS *222000000000*><SETG CREATION-TIME #BITS *002200000000*><SETG EXTRA-WORDS #BITS *301200000000*><SETG DUMP-BIT #WORD *400000000000*><SETG IGNORED #WORD *000000000000*><SETG DELETED #WORD *000000000000*><SETG DELETE-FROM-UNMOUNTED-PACK #WORD *000040000000*><SETG DELETE-ON-CLOSE #WORD *000020000000*><SETG GC-MARK-BIT #WORD *000010000000*><SETG OPEN-WRITE #WORD *000004000000*><SETG LINK-BIT #WORD *000001000000*><SETG PACK-NUMBER #BITS *150500000000*><SETG DESC-PTR #BITS *001500000000*><SETG NAME-AREA 2><SETG DESC-AREA 11><SETG PARSE-DIRECTORY %<RSUBR-ENTRY '[\ \ F!- PARSE-DIRECTORY #DECL ("VALUE" <VECTOR [REST <VECTOR STRING STRING <LIST [3 FIX]> <LIST [2 FIX] FIX> <LIST [3 FIX]> <OR FIX <LIST [3 STRING] [REST STRING]>> FIX <LIST [REST CHARACTER]>>]> <UVECTOR [REST FIX]>)] 0>><SETG GET-DIRECTORY %<RSUBR-ENTRY '[\ \ F!- GET-DIRECTORY #DECL ("VALUE" <OR FALSE <UVECTOR [1024 FIX]>> "OPTIONAL" STRING <UVECTOR [1024 FIX]>)] 0>><MANIFEST DESC-AREA NAME-AREA DESC-PTR PACK-NUMBER LINK-BIT OPEN-WRITE GC-MARK-BIT DELETE-ON-CLOSE DELETE-FROM-UNMOUNTED-PACK DELETED IGNORED DUMP-BIT EXTRA-WORDS CREATION-TIME CREATION-DATE REF-DATE MONTH DAY YEAR><ENDPACKAGE> <PACKAGE "LIBMNT"><ENTRY LIB-UPDATE LIB-DUMP><USE "LIB" "SDM"><ENDPACKAGE> <RPACKAGE "SDMSYM"><ENTRY MAKESDMST><USE "SDML" "CALSYM" "VCTMAN"><SETG MAKESDMST %<RSUBR-ENTRY '[\ \ F!- MAKESDMST #DECL ("VALUE" SYMTABLE PMCHAN)] 0>><ENDPACKAGE> <PACKAGE "PLOTSO"><ENTRY BACKSPACE GRFLIST END_DEMO NO-DRAW DEMO NUMPRINT CLEAR-GRAPHS GRAPH_COMMENT GRAPH_Y GRAPH_X GRAPH_TITLE GRAPH_DATA SURPRESS-GRAPH-NUMBERS SCALE ERASE_S REGRAPH PLOT GRFUNC GRAPH><USE "GSTTYC" "GS"><USE "GSTTYC"><NEWTYPE GRFLIST LIST><SETG END_DEMO %<RSUBR-ENTRY '[\ \ F!- END_DEMO #DECL ("VALUE" STRING)] 0>><SETG DEMO %<RSUBR-ENTRY '[\ \ F!- DEMO #DECL ("VALUE" <OR FALSE STRING> "OPTIONAL" STRING)] 0>><SETG NUMPRINT %<RSUBR-ENTRY '[\ \ F!- NUMPRINT #DECL ("VALUE" ANY <OR FLOAT FIX> <OR FLOAT FIX> "OPTIONAL" ANY)] 0>><SETG CLEAR-GRAPHS %<RSUBR-ENTRY '[\ \ F!- CLEAR-GRAPHS #DECL ("VALUE" FALSE)] 0>><SETG GRAPH_COMMENT %<RSUBR-ENTRY '[\ \ F!- GRAPH_COMMENT #DECL ("VALUE" ANY ANY "OPTIONAL" ANY)] 0>><SETG GRAPH_Y %<RSUBR-ENTRY '[\ \ F!- GRAPH_Y #DECL ("VALUE" <OR FALSE FORM <LIST [REST <OR STRING CHARACTER>]>> <OR FALSE STRING CHARACTER <LIST [REST <OR STRING CHARACTER>]> FORM> "OPTIONAL" GRFLIST)] 0>><SETG GRAPH_X %<RSUBR-ENTRY '[\ \ F!- GRAPH_X #DECL ("VALUE" <OR FALSE FORM <LIST [REST <OR STRING CHARACTER>]>> <OR FALSE STRING CHARACTER <LIST [REST <OR STRING CHARACTER>]> FORM> "OPTIONAL" GRFLIST)] 0>><SETG GRAPH_TITLE %<RSUBR-ENTRY '[\ \ F!- GRAPH_TITLE #DECL ("VALUE" ANY ANY "OPTIONAL" GRFLIST)] 0>><SETG GRAPH_DATA %<RSUBR-ENTRY '[\ \ F!- GRAPH_DATA #DECL ("VALUE" ATOM "OPTIONAL" GRFLIST)] 0>><SETG SCALE %<RSUBR-ENTRY '[\ \ F!- SCALE #DECL ("VALUE" ATOM "TUPLE" ANY)] 0>><SETG ERASE_S %<RSUBR-ENTRY '[\ \ F!- ERASE_S #DECL ("VALUE" FALSE)] 0>><SETG REGRAPH %<RSUBR-ENTRY '[\ \ F!- REGRAPH #DECL ("VALUE" GRFLIST "TUPLE" <TUPLE [REST FIX]>)] 0>><SETG PLOT %<RSUBR-ENTRY '[\ \ F!- PLOT #DECL ("VALUE" <GRFLIST [REST VECTOR]> ANY "OPTIONAL" ANY ANY ANY)] 0>><SETG GRFUNC %<RSUBR-ENTRY '[\ \ F!- GRFUNC #DECL ("VALUE" ANY <OR FUNCTION SUBR FSUBR RSUBR> "OPTIONAL" <OR FLOAT FIX> <OR FLOAT FIX> <OR FLOAT FIX>)] 0>><SETG GRAPH %<RSUBR-ENTRY '[\ \ F!- GRAPH #DECL ("VALUE" <GRFLIST [REST VECTOR]> "OPTIONAL" <OR FORM FLOAT FIX FALSE> <OR ATOM FALSE> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><ENDPACKAGE> <PACKAGE "SVT"><ENTRY TLNTH TSRDN TSRUP TSRTL TSRAD TSROF TSRSP TSRLD TSLEEP TDSPT TDSPM TBELL TCRSC TCSCR TCLIN TDLIN TILIN TKCHR TICHR TRDEL TLDEL TDCUR TUCUR TRCUR TLCUR TBOTR TBOTL TTOPR TTOPL TVPOT TVOFS TVPOS THPOT THOFS THPOS TPRAD TVBFH TAPOS TSETUP TRPLC TIOTM TAUTS TSIZE TWIDTH SVTRACEI SVTRACE INPUT-TREE TERM-INFO GET-BREAK SCROLL-DOWN SCROLL-UP SET-DISPLAY-MODE SEND-TEXT PRTLENGTH DELETE-LINE INSERT-LINE CLEAR-LINE CURSOR-DOWN CURSOR-UP CURSOR-RIGHT CURSOR-LEFT GET-CURSOR POSITION-CURSOR RING-BELL CLEAR-SCREEN STOP-SVT QUIT-SVT RESUME-SVT SETUP-SVT><USE "MADMAN" "SVTA"><SETG TLNTH 44><SETG TSRDN 43><SETG TSRUP 42><SETG TSRTL 41><SETG TSRAD 40><SETG TSROF 39><SETG TSRSP 38><SETG TSRLD 37><SETG TSLEEP 36><SETG TDSPT 35><SETG TDSPM 34><SETG TBELL 33><SETG TCRSC 32><SETG TCSCR 31><SETG TCLIN 30><SETG TDLIN 29><SETG TILIN 28><SETG TKCHR 27><SETG TICHR 26><SETG TRDEL 25><SETG TLDEL 24><SETG TDCUR 23><SETG TUCUR 22><SETG TRCUR 21><SETG TLCUR 20><SETG TBOTR 19><SETG TBOTL 18><SETG TTOPR 17><SETG TTOPL 16><SETG TVPOT 15><SETG TVOFS 14><SETG TVPOS 13><SETG THPOT 12><SETG THOFS 11><SETG THPOS 10><SETG TPRAD 9><SETG TVBFH 8><SETG TAPOS 7><SETG TSETUP 6><SETG TRPLC 5><SETG TIOTM 4><SETG TAUTS 3><SETG TSIZE 2><SETG TWIDTH 1><SETG GET-BREAK %<RSUBR-ENTRY '[\ \ F!- GET-BREAK #DECL ("VALUE" ANY "OPTIONAL" ANY)] 0>><SETG SCROLL-DOWN %<RSUBR-ENTRY '[\ \ F!- SCROLL-DOWN #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> FIX FIX FIX)] 0>><SETG SCROLL-UP %<RSUBR-ENTRY '[\ \ F!- SCROLL-UP #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> FIX FIX FIX)] 0>><SETG SET-DISPLAY-MODE %<RSUBR-ENTRY '[\ \ F!- SET-DISPLAY-MODE #DECL ("VALUE" ATOM FIX)] 0>><SETG SEND-TEXT %<RSUBR-ENTRY '[\ \ F!- SEND-TEXT #DECL ("VALUE" <OR FALSE FIX> STRING FIX "OPTIONAL" <UVECTOR [2 FIX]> FIX <OR STRING FALSE>)] 0>><SETG PRTLENGTH %<RSUBR-ENTRY '[\ \ F!- PRTLENGTH #DECL ("VALUE" FIX STRING FIX FIX)] 0>><SETG DELETE-LINE %<RSUBR-ENTRY '[\ \ F!- DELETE-LINE #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> FIX)] 0>><SETG INSERT-LINE %<RSUBR-ENTRY '[\ \ F!- INSERT-LINE #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> FIX "OPTIONAL" STRING FIX)] 0>><SETG CLEAR-LINE %<RSUBR-ENTRY '[\ \ F!- CLEAR-LINE #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> FIX "OPTIONAL" FIX)] 0>><SETG CURSOR-DOWN %<RSUBR-ENTRY '[\ \ F!- CURSOR-DOWN #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> FIX)] 0>><SETG CURSOR-UP %<RSUBR-ENTRY '[\ \ F!- CURSOR-UP #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> FIX)] 0>><SETG CURSOR-RIGHT %<RSUBR-ENTRY '[\ \ F!- CURSOR-RIGHT #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> FIX)] 0>><SETG CURSOR-LEFT %<RSUBR-ENTRY '[\ \ F!- CURSOR-LEFT #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> FIX)] 0>><SETG GET-CURSOR %<RSUBR-ENTRY '[\ \ F!- GET-CURSOR #DECL ("VALUE" <UVECTOR [2 FIX]>)] 0>><SETG POSITION-CURSOR %<RSUBR-ENTRY '[\ \ F!- POSITION-CURSOR #DECL ("VALUE" <UVECTOR [2 FIX]> FIX FIX)] 0>><SETG RING-BELL %<RSUBR-ENTRY '[\ \ F!- RING-BELL #DECL ("VALUE" <OR CHANNEL FALSE FIX>)] 0>><SETG CLEAR-SCREEN %<RSUBR-ENTRY '[\ \ F!- CLEAR-SCREEN #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>>)] 0>><SETG STOP-SVT %<RSUBR-ENTRY '[\ \ F!- STOP-SVT #DECL ("VALUE" ATOM)] 0>><SETG QUIT-SVT %<RSUBR-ENTRY '[\ \ F!- QUIT-SVT #DECL ("VALUE" ATOM)] 0>><SETG RESUME-SVT %<RSUBR-ENTRY '[\ \ F!- RESUME-SVT #DECL ("VALUE" ATOM)] 0>><SETG SETUP-SVT %<RSUBR-ENTRY '[\ \ F!- SETUP-SVT #DECL ("VALUE" <OR ATOM FALSE> "OPTIONAL" <OR FIX FALSE>)] 0>><MANIFEST TWIDTH TSIZE TAUTS TIOTM TRPLC TSETUP TAPOS TVBFH TPRAD THPOS THOFS THPOT TVPOS TVOFS TVPOT TTOPL TTOPR TBOTL TBOTR TLCUR TRCUR TUCUR TDCUR TLDEL TRDEL TICHR TKCHR TILIN TDLIN TCLIN TCSCR TCRSC TBELL TDSPM TDSPT TSLEEP TSRLD TSRSP TSROF TSRAD TSRTL TSRUP TSRDN TLNTH><GDECL (TERM-INFO) VECTOR (INPUT-TREE) <LIST [REST ANY ANY <OR LIST FALSE>]> (SVTRACE) <OR CHANNEL FALSE> (SVTRACEI) <OR CHANNEL FALSE>><ENDPACKAGE> <PACKAGE "IRSMAK"><ENTRY IRSMACV IRSMAK-GRP><USE "IRSBAS" "IRSUSR" "CALSYM" "SDM" "SDML" "SDMSYM" "SMP" "CDM"><SETG IRSMACV %<RSUBR-ENTRY '[\ \ F!- IRSMACV #DECL ("VALUE" <OR FALSE IRSVCT VECTOR> LIST)] 0>><SETG IRSMAK-GRP %<RSUBR-ENTRY '[\ \ F!- IRSMAK-GRP #DECL ("VALUE" ATOM)] 0>><ENDPACKAGE><PACKAGE "HISTORY"><ENTRY MAKE-SAVE SCRIPT-HISTORY LONG-TERM-HISTORY HISTORY><USE "TIMFCN" "HOSTS" "STR" "JCL"><SETG MAKE-SAVE %<RSUBR-ENTRY '[\ \ F!- MAKE-SAVE #DECL ("VALUE" FALSE)] 0>><SETG SCRIPT-HISTORY %<RSUBR-ENTRY '[\ \ F!- SCRIPT-HISTORY #DECL ("VALUE" <OR STRING CHANNEL FALSE> "OPTIONAL" <OR STRING CHANNEL FALSE> <OR FALSE FIX> <OR FALSE FIX> <OR FALSE FIX> CHANNEL)] 0>><SETG LONG-TERM-HISTORY %<RSUBR-ENTRY '[\ \ F!- LONG-TERM-HISTORY #DECL ("VALUE" <OR ATOM <FALSE STRING>> "OPTIONAL" <OR FALSE FIX> <OR FALSE FIX> CHANNEL)] 0>><SETG HISTORY %<RSUBR-ENTRY '[\ \ F!- HISTORY #DECL ("VALUE" <OR ATOM FALSE> "OPTIONAL" <OR FALSE FIX> <OR FALSE FIX> <OR FALSE FIX> CHANNEL)] 0>><ENDPACKAGE> <PACKAGE "MNEME-SALV"><ENTRY OTHERWISE MAX-LOCAL MNEME-SALV><USE "PIO" "CPYFIL" "SORTX"><SETG MNEME-SALV %<RSUBR-ENTRY '[\ \ F!- MNEME-SALV #DECL ("VALUE" STRING STRING "OPTIONAL" STRING STRING)] 0>><ENDPACKAGE> <PACKAGE "BUF"><ENTRY WORDBRKS UNKILL TTY2 TTY1 TTY-POS TTY-SET TTY-GET TECO-PROGRAM SIOT REENTER-TECO-CHAR RCPOS QUOTECHR MY-TTY-OFF LINESTARVE LINEBRKS ISDISPLAY? IOT INIT IMDEL IDELCHR IBUFPRINT IBUFCLEAR HPOS-BUF GETSTRACT GETSTR GET-CPOS FORMATEFFS FILEINP DWORD DLINE DISPLAY? DEL-TO-EOL DELTOCH DELPRINT DELCHR CHRTABLE BUFTOS BUFTECO BUFSPRINT BUFSIZE BUFPRINT BUFMAKE BUFLENGTH BUFGROW BUFFER BUFCLEAR BUF-ECHO-FLAG BUF-CTL-S? BUF-CTL-G? BUF-BIT-PROMPT BUF-BITS BPRMPT2 BPRMPT1 ADD-OFFSET-STRING ADDSTRING ADDFILE ADDCRLF ADDCHR><USE "MUDTEC" "INFERIOR"><SETG UNKILL %<RSUBR-ENTRY '[\ \ F!- UNKILL #DECL ("VALUE" BUFFER BUFFER CHARACTER)] 0>><SETG TTY-POS %<RSUBR-ENTRY '[\ \ F!- TTY-POS #DECL ("VALUE" FIX CHARACTER FIX)] 0>><SETG TTY-SET %<RSUBR-ENTRY '[\ \ F!- TTY-SET #DECL ("VALUE" UVECTOR UVECTOR "OPTIONAL" CHANNEL)] 0>><SETG TTY-GET %<RSUBR-ENTRY '[\ \ F!- TTY-GET #DECL ("VALUE" <UVECTOR [REST <PRIMTYPE WORD>]> UVECTOR "OPTIONAL" CHANNEL)] 0>><SETG SIOT %<RSUBR-ENTRY '[\ \ F!- SIOT #DECL ("VALUE" STRING STRING "OPTIONAL" <PRIMTYPE WORD> CHANNEL FIX)] 0>><SETG RCPOS %<RSUBR-ENTRY '[\ \ F!- RCPOS #DECL ("VALUE" FIX "OPTIONAL" CHANNEL)] 0>><SETG QUOTECHR %<RSUBR-ENTRY '[\ \ F!- QUOTECHR #DECL ("VALUE" BUFFER BUFFER CHARACTER)] 0>><SETG MY-TTY-OFF %<RSUBR-ENTRY '[\ \ F!- MY-TTY-OFF #DECL ("VALUE" UVECTOR "OPTIONAL" WORD WORD)] 0>><SETG LINESTARVE %<RSUBR-ENTRY '[\ \ F!- LINESTARVE #DECL ("VALUE" STRING)] 0>><SETG ISDISPLAY? %<RSUBR-ENTRY '[\ \ F!- ISDISPLAY? #DECL ("VALUE" <OR ATOM FALSE>)] 0>><SETG IOT %<RSUBR-ENTRY '[\ \ F!- IOT #DECL ("VALUE" CHARACTER "OPTIONAL" <PRIMTYPE WORD> CHANNEL CHARACTER)] 0>><SETG INIT %<RSUBR-ENTRY '[\ \ F!- INIT #DECL ("VALUE" ATOM)] 0>><SETG IMDEL %<RSUBR-ENTRY '[\ \ F!- IMDEL #DECL ("VALUE" <OR CHARACTER FIX> BUFFER <OR CHARACTER FIX>)] 0>><SETG IDELCHR %<RSUBR-ENTRY '[\ \ F!- IDELCHR #DECL ("VALUE" <OR CHARACTER FALSE> BUFFER CHARACTER)] 0>><SETG IBUFPRINT %<RSUBR-ENTRY '[\ \ F!- IBUFPRINT #DECL ("VALUE" FIX BUFFER CHARACTER)] 0>><SETG IBUFCLEAR %<RSUBR-ENTRY '[\ \ F!- IBUFCLEAR #DECL ("VALUE" BUFFER BUFFER CHARACTER)] 0>><SETG HPOS-BUF %<RSUBR-ENTRY '[\ \ F!- HPOS-BUF #DECL ("VALUE" FIX BUFFER "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG GETSTR %<RSUBR-ENTRY '[\ \ F!- GETSTR #DECL ("VALUE" BUFFER BUFFER "OPTIONAL" <OR <LIST [REST VECTOR]> VECTOR> <OR STRING FALSE> STRING)] 0>><SETG GET-CPOS %<RSUBR-ENTRY '[\ \ F!- GET-CPOS #DECL ("VALUE" CHANNEL "OPTIONAL" CHANNEL)] 0>><SETG FILEINP %<RSUBR-ENTRY '[\ \ F!- FILEINP #DECL ("VALUE" BUFFER BUFFER "OPTIONAL" CHARACTER)] 0>><SETG DWORD %<RSUBR-ENTRY '[\ \ F!- DWORD #DECL ("VALUE" FIX BUFFER CHARACTER)] 0>><SETG DLINE %<RSUBR-ENTRY '[\ \ F!- DLINE #DECL ("VALUE" FIX BUFFER CHARACTER)] 0>><SETG DEL-TO-EOL %<RSUBR-ENTRY '[\ \ F!- DEL-TO-EOL #DECL ("VALUE" STRING)] 0>><SETG DELTOCH %<RSUBR-ENTRY '[\ \ F!- DELTOCH #DECL ("VALUE" FIX BUFFER STRING "OPTIONAL" <OR STRING FALSE>)] 0>><SETG DELCHR %<RSUBR-ENTRY '[\ \ F!- DELCHR #DECL ("VALUE" <OR CHARACTER FALSE> BUFFER)] 0>><SETG BUFTOS %<RSUBR-ENTRY '[\ \ F!- BUFTOS #DECL ("VALUE" STRING BUFFER)] 0>><SETG BUFTECO %<RSUBR-ENTRY '[\ \ F!- BUFTECO #DECL ("VALUE" BUFFER BUFFER "OPTIONAL" CHARACTER)] 0>><SETG BUFSPRINT %<RSUBR-ENTRY '[\ \ F!- BUFSPRINT #DECL ("VALUE" BUFFER BUFFER "OPTIONAL" CHANNEL)] 0>><SETG BUFPRINT %<RSUBR-ENTRY '[\ \ F!- BUFPRINT #DECL ("VALUE" FIX BUFFER "OPTIONAL" CHANNEL <OR ATOM FALSE> <OR ATOM FALSE>)] 0>><SETG BUFMAKE %<RSUBR-ENTRY '[\ \ F!- BUFMAKE #DECL ("VALUE" BUFFER FIX "OPTIONAL" STRING STRING)] 0>><SETG BUFLENGTH %<RSUBR-ENTRY '[\ \ F!- BUFLENGTH #DECL ("VALUE" FIX BUFFER)] 0>><SETG BUFGROW %<RSUBR-ENTRY '[\ \ F!- BUFGROW #DECL ("VALUE" BUFFER BUFFER "OPTIONAL" FIX)] 0>><NEWTYPE BUFFER VECTOR'<<PRIMTYPE VECTOR> [4 STRING] FIX <PRIMTYPE WORD> STRING FIX>><SETG BUFCLEAR %<RSUBR-ENTRY '[\ \ F!- BUFCLEAR #DECL ("VALUE" BUFFER BUFFER)] 0>><SETG BUF-BIT-PROMPT 0><SETG BUF-BITS #MACRO (#FUNCTION (('BUF 'BIT "OPTIONAL" 'NEW) <FORM BIND ((B .BUF) (BIT .BIT)) #DECL ((B) BUFFER (BIT) <PRIMTYPE WORD>) <COND (<ASSIGNED? NEW> <FORM PUT <FORM LVAL B> ,BBITS <FORM PUTBITS <FORM BBITS <FORM LVAL B>> <FORM BITS 1 <FORM LVAL BIT>> <FORM COND (.NEW 1) (0)>>>) (T <FORM 1? <FORM CHTYPE <FORM GETBITS <FORM BBITS <FORM LVAL B>> <FORM BITS 1 <FORM LVAL BIT>>> FIX>>)>>))><SETG BPRMPT2 4><SETG BPRMPT1 3><SETG ADD-OFFSET-STRING %<RSUBR-ENTRY '[\ \ F!- ADD-OFFSET-STRING #DECL ("VALUE" BUFFER BUFFER STRING STRING)] 0>><SETG ADDSTRING %<RSUBR-ENTRY '[\ \ F!- ADDSTRING #DECL ("VALUE" BUFFER BUFFER "TUPLE" <TUPLE [REST <OR STRING CHARACTER FIX>]>)] 0>><SETG ADDFILE %<RSUBR-ENTRY '[\ \ F!- ADDFILE #DECL ("VALUE" BUFFER BUFFER CHANNEL "OPTIONAL" FIX)] 0>><SETG ADDCRLF %<RSUBR-ENTRY '[\ \ F!- ADDCRLF #DECL ("VALUE" BUFFER BUFFER CHARACTER)] 0>><SETG ADDCHR %<RSUBR-ENTRY '[\ \ F!- ADDCHR #DECL ("VALUE" BUFFER BUFFER CHARACTER)] 0>><SETG BBITS 6><MANIFEST BBITS BPRMPT1 BPRMPT2 BUF-BIT-PROMPT><GDECL (BUF-CTL-G?) <OR ATOM FALSE> (BUF-CTL-S?) <OR ATOM FALSE> (BUFSIZE) FIX (DISPLAY?) <OR ATOM FALSE> (FORMATEFFS) STRING><ENDPACKAGE> <PACKAGE "MWORDS"><ENTRY HIGH-KINDS LENGTH-LIST NUMBER-SPECIFIERS ambiguities unknowns AMBIGUITIES UNKNOWNS ADJECTIVE-TYPES NOUN-TYPES VERB-TYPES IRREGULAR-ADJECTIVE-FORMS IRREGULAR-VERB-FORMS FUNNY-NOUN-POS HAVE-VERB-LIST DO-VERB-LIST BE-VERB-LIST NG-STARTER-LIST TIME-LIST COORD-LIST MODAL-LIST TPRON-LIST PRON-LIST PREP-LIST MONTHS GENERAL IRREGULAR IDIOM PERSON KIND M-A-P-S PEOPLE><USE "MNEME"><GDECL (PEOPLE) <UVECTOR [REST OWT]> (M-A-P-S) OWT (KIND) OWT (PERSON) OWT (IDIOM) OWT (GENERAL) OWT (MONTHS) <UVECTOR [REST OWT]> (PREP-LIST) <UVECTOR [REST OWT]> (PRON-LIST) <UVECTOR [REST OWT]> (TPRON-LIST) <UVECTOR [REST OWT]> (MODAL-LIST) <UVECTOR [REST OWT]> (COORD-LIST) <UVECTOR [REST OWT]> (TIME-LIST) <UVECTOR [REST OWT]> (NG-STARTER-LIST) <UVECTOR [REST OWT]> (BE-VERB-LIST) <UVECTOR [REST OWT]> (DO-VERB-LIST) <UVECTOR [REST OWT]> (HAVE-VERB-LIST) <UVECTOR [REST OWT]> (FUNNY-NOUN-POS) <UVECTOR [REST OWT]> (IRREGULAR-VERB-FORMS) <UVECTOR [REST OWT]> (IRREGULAR-ADJECTIVE-FORMS) <UVECTOR [REST OWT]> (VERB-TYPES) <UVECTOR [REST OWT]> (NOUN-TYPES) <UVECTOR [REST OWT]> (ADJECTIVE-TYPES) <UVECTOR [REST OWT]> (UNKNOWNS) <UVECTOR [REST OWT]> (AMBIGUITIES) <UVECTOR [REST OWT]> (unknowns) <UVECTOR [REST OWT]> (ambiguities) <UVECTOR [REST OWT]> (NUMBER-SPECIFIERS) <UVECTOR [REST OWT]> (LENGTH-LIST) <UVECTOR [REST OWT]> (HIGH-KINDS) <UVECTOR [REST OWT]>><ENDPACKAGE> <PACKAGE "RJS"><ENTRY OUTPUT-FETCH CLEANUP DEBUG VERSION DEMON-LOOP REPORT-TO COMMAND-LOOP MAKE-DEMON><USE "LOGIN" "ICP" "NOW" "RJSCMD" "STDMST" "RJSCHN" "RJSRET" "RJSJOB" "RJSUTI" "RJSCRD" "RJSTEL" "RJSDAT" "FTPUSR"><GDECL (VERSION) FIX><ENDPACKAGE><PACKAGE "RLS-STRING"><ENTRY RLS-STRING><SETG RLS-STRING %<RSUBR-ENTRY '[\ \ F!- RLS-STRING #DECL ("VALUE" STRING <UVECTOR [REST FIX]>)] 0>><ENDPACKAGE> <PACKAGE "NC"><ENTRY DO-CARDS><USE "CHAN" "SORTX"><SETG DO-CARDS %<RSUBR-ENTRY '[\ \ F!- DO-CARDS #DECL ("VALUE" <OR FALSE STRING> STRING "OPTIONAL" <OR STRING FALSE>)] 0>><ENDPACKAGE> <PACKAGE "AST"><ENTRY MAKEQAST MAKEAST><USE "CALSYM"><SETG MAKEQAST %<RSUBR-ENTRY '[\ \ F!- MAKEQAST #DECL ("VALUE" SYMTABLE STRING SYMTABLE VECTOR "OPTIONAL" ANY)] 0>><SETG MAKEAST %<RSUBR-ENTRY '[\ \ F!- MAKEAST #DECL ("VALUE" SYMTABLE STRING SYMTABLE <VECTOR [REST STRING ANY]> "OPTIONAL" ANY <OR FALSE 'T>)] 0>><ENDPACKAGE> <PACKAGE "MIGSPK"><ENTRY FROB MIGSHELP DIR WHO MIGSINIT MIGS:><USE "SMCELLS"><ENDPACKAGE> <PACKAGE "ASETUP"><ENTRY MSGS-FILE ABSTR-NAME ABSTR-IRS ABSTR-BACKUP ABSTR-SOURCE ABSTR-MSGS IRS-SETUP><USE "ACONST" "ACHECK" "APRINT" "DIR" "USRUTI" "TIMFCN"><SETG ABSTR-MSGS %<RSUBR-ENTRY '[\ \ F!- ABSTR-MSGS #DECL ("VALUE" <OR ATOM CHANNEL FALSE> <LIST [REST VECTOR]> STRING)] 0>><SETG IRS-SETUP %<RSUBR-ENTRY '[\ \ F!- IRS-SETUP #DECL ("VALUE" ANY "OPTIONAL" STRING)] 0>><GDECL (ABSTR-SOURCE) STRING (ABSTR-BACKUP) STRING (ABSTR-IRS) STRING (ABSTR-NAME) STRING><ENDPACKAGE> <PACKAGE "PPMAP"><ENTRY PAGE? PURE-BOT GC-BOT HIGH-BOT PURE-TOP PPMAP><SETG PAGE? %<RSUBR-ENTRY '[\ \ F!- PAGE? #DECL ("VALUE" FIX <PRIMTYPE WORD>)] 0>><SETG PURE-BOT %<RSUBR-ENTRY '[\ \ F!- PURE-BOT #DECL ("VALUE" FIX)] 0>><SETG GC-BOT %<RSUBR-ENTRY '[\ \ F!- GC-BOT #DECL ("VALUE" FIX)] 0>><SETG HIGH-BOT %<RSUBR-ENTRY '[\ \ F!- HIGH-BOT #DECL ("VALUE" FIX)] 0>><SETG PURE-TOP %<RSUBR-ENTRY '[\ \ F!- PURE-TOP #DECL ("VALUE" FIX)] 0>><SETG PPMAP %<RSUBR-ENTRY '[\ \ F!- PPMAP #DECL ("VALUE" ATOM)] 0>><ENDPACKAGE><RPACKAGE "FR&"><ENTRY &VAL & &LIS &1 FR& FR&VAL><USE "PP"><SETG &VAL %<RSUBR-ENTRY '[\ \ F!- &VAL #DECL ("VALUE" <OR FALSE STRING> ANY LOCD ANY)] 0>><SETG & %<RSUBR-ENTRY '[\ \ F!- & #DECL ("VALUE" ANY ANY)] 0>><SETG &LIS %<RSUBR-ENTRY '[\ \ F!- &LIS #DECL ("VALUE" ANY)] 0>><SETG &1 %<RSUBR-ENTRY '[\ \ F!- &1 #DECL ("VALUE" ANY ANY "OPTIONAL" FIX)] 0>><SETG FR& %<RSUBR-ENTRY '[\ \ F!- FR& #DECL ("VALUE" <OR ATOM STRING> "OPTIONAL" FIX FIX <CHANNEL [12 ANY] [4 FIX]>)] 0>><SETG FR&VAL %<RSUBR-ENTRY '[\ \ F!- FR&VAL #DECL ("VALUE" STRING ATOM "OPTIONAL" FIX FIX)] 0>><ENDPACKAGE> <PACKAGE "MGHELP"><ENTRY HELP1 HLIST INFOT><ENDPACKAGE><PACKAGE "PINFO"><ENTRY OSORT OBL-INFO PCK-USES PCK-INFO><SETG OSORT %<RSUBR-ENTRY '[\ \ F!- OSORT #DECL ("VALUE" <OR FALSE <UVECTOR [REST ATOM]>> <PRIMTYPE UVECTOR>)] 0>><SETG OBL-INFO %<RSUBR-ENTRY '[\ \ F!- OBL-INFO #DECL ("VALUE" FIX OBLIST "OPTIONAL" ANY)] 0>><SETG PCK-USES %<RSUBR-ENTRY '[\ \ F!- PCK-USES #DECL ("VALUE" ANY STRING)] 0>><SETG PCK-INFO %<RSUBR-ENTRY '[\ \ F!- PCK-INFO #DECL ("VALUE" ANY "OPTIONAL" STRING <OR ATOM FALSE>)] 0>><ENDPACKAGE> <PACKAGE "SWCHAR"><ENTRY SHEAR MCHARG CHARGE><USE "DISPLA" "SMCELLS"><SETG SHEAR %<RSUBR-ENTRY '[\ \ F!- SHEAR #DECL ("VALUE" <VECTOR [2 FIX] <VECTOR [16 FLOAT] [REST FLOAT]>> "OPTIONAL" FLOAT)] 0>><SETG MCHARG %<RSUBR-ENTRY '[\ \ F!- MCHARG #DECL ("VALUE" <LIST <LIST FIX ANY>> CHARACTER <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT>)] 0>><SETG CHARGE %<RSUBR-ENTRY '[\ \ F!- CHARGE #DECL ("VALUE" ANY CHARACTER <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT>)] 0>><ENDPACKAGE> <PACKAGE "MDDUMP"><ENTRY HEADER-DUMP MCOD-DUMP><USE "MDTYPE" "MDMAKE" "STR"><SETG HEADER-DUMP %<RSUBR-ENTRY '[\ \ F!- HEADER-DUMP #DECL ("VALUE" UVECTOR MCOD CHANNEL)] 0>><SETG MCOD-DUMP %<RSUBR-ENTRY '[\ \ F!- MCOD-DUMP #DECL ("VALUE" <OR FALSE STRING> MCOD "OPTIONAL" STRING)] 0>><ENDPACKAGE> <PACKAGE "MDTABLE"><ENTRY MTABLE PTBL RLS-PUNC-TABLE RLS-TABLE PTBL-LOOK CHAR-FOR-RLS LOOKUP-FOR-WORD RLS-FOR-WORD RLS-FOR-CHAR><SETG PTBL-LOOK %<RSUBR-ENTRY '[\ \ F!- PTBL-LOOK #DECL ("VALUE" STRING STRING)] 0>><SETG CHAR-FOR-RLS %<RSUBR-ENTRY '[\ \ F!- CHAR-FOR-RLS #DECL ("VALUE" STRING FIX FIX)] 0>><SETG LOOKUP-FOR-WORD %<RSUBR-ENTRY '[\ \ F!- LOOKUP-FOR-WORD #DECL ("VALUE" <UVECTOR [REST FIX]> STRING <UVECTOR [REST UVECTOR]> <VECTOR [REST STRING UVECTOR]>)] 0>><SETG RLS-FOR-WORD %<RSUBR-ENTRY '[\ \ F!- RLS-FOR-WORD #DECL ("VALUE" <UVECTOR [REST FIX]> STRING)] 0>><SETG RLS-FOR-CHAR %<RSUBR-ENTRY '[\ \ F!- RLS-FOR-CHAR #DECL ("VALUE" <UVECTOR [REST FIX]> CHARACTER)] 0>><GDECL (RLS-TABLE) <UVECTOR [REST <UVECTOR [REST FIX]>]> (RLS-PUNC-TABLE) <VECTOR [REST STRING UVECTOR]> (PTBL) <VECTOR [REST STRING]> (MTABLE) <UVECTOR [6 <VECTOR [REST STRING]>]>><ENDPACKAGE> <PACKAGE "POSTER"><ENTRY LINEL OUT-POSTER POSTER><USE "BIGPRINT"><SETG OUT-POSTER %<RSUBR-ENTRY '[\ \ F!- OUT-POSTER #DECL ("VALUE" <OR ATOM FALSE> STRING "TUPLE" <TUPLE [REST <OR STRING FIX>]>)] 0>><SETG POSTER %<RSUBR-ENTRY '[\ \ F!- POSTER #DECL ("VALUE" <OR ATOM FALSE> "TUPLE" ANY)] 0>><ENDPACKAGE> <PACKAGE "JCL"><ENTRY READJCL JCL?><SETG READJCL %<RSUBR-ENTRY '[\ \ F!- READJCL #DECL ("VALUE" <OR FALSE STRING>)] 0>><SETG JCL? %<RSUBR-ENTRY '[\ \ F!- JCL? #DECL ("VALUE" <OR FIX FALSE>)] 0>><ENDPACKAGE> <PACKAGE "GENDIR"><ENTRY NEXT-DIRECTORY><SETG NEXT-DIRECTORY %<RSUBR-ENTRY '[\ \ F!- NEXT-DIRECTORY #DECL ("VALUE" <OR FALSE STRING> "OPTIONAL" STRING)] 0>><ENDPACKAGE> <PACKAGE "MEND"><ENTRY MINIT MEND><USE "TTY" "EDIT"><SETG MINIT %<RSUBR-ENTRY '[\ \ F!- MINIT #DECL ("VALUE" <OR ATOM !<FALSE STRING!>> "OPTIONAL" <OR FIX FLOAT FALSE> <OR FIX FALSE> <OR FIX FALSE> <OR FIX FALSE>)] 0>><SETG MEND %<RSUBR-ENTRY '[\ \ F!- MEND #DECL ("VALUE" ANY)] 0>><ENDPACKAGE> <PACKAGE "ASK"><ENTRY ASKTEXT ASKWHETHER ASKWHAT ASKWHICH><SETG ASKTEXT %<RSUBR-ENTRY '[\ \ F!- ASKTEXT #DECL ("VALUE" STRING STRING STRING)] 0>><SETG ASKWHETHER %<RSUBR-ENTRY '[\ \ F!- ASKWHETHER #DECL ("VALUE" <OR ATOM FALSE> STRING)] 0>><SETG ASKWHAT %<RSUBR-ENTRY '[\ \ F!- ASKWHAT #DECL ("VALUE" ANY STRING "OPTIONAL" <OR ATOM FORM> ANY)] 0>><SETG ASKWHICH %<RSUBR-ENTRY '[\ \ F!- ASKWHICH #DECL ("VALUE" FIX STRING "TUPLE" TUPLE)] 0>><ENDPACKAGE> <PACKAGE "ALLGS"><ENTRY PALLGS><SETG PALLGS %<RSUBR-ENTRY '[\ \ F!- PALLGS #DECL ("VALUE" <VECTOR FIX [3 FIX] [REST FIX]> "OPTIONAL" <OR STRING CHANNEL> ANY)] 0>><ENDPACKAGE> <PACKAGE "TENXIO"><ENTRY LOAD-AVG JOB-TIME DTDTG DTGDT GET-WRITE-DATE GET-DATE DATE-STRING PARSE-DATE GET-FRESH-PAGE RESUME-INFERIOR CREATE-INFERIOR RELOAD-FILE EXPUNGE-CON-DIR EXPUNGE-DIR CON-TO-DIR DIRNUM-TO-STR STR-TO-DIRNUM GET-DIR-ALLOC GET-JOB-INFO FIND-FIRST-USED-FILE-PAGE FIND-FIRST-FREE-FILE-PAGE GET-PRIMARY-JFNS WRITE-PAGE PMAP-FILE PRINTP-FILE READP-FILE PRINTS-FILE READS-FILE PRINTB-FILE READB-FILE PRINTW-FILE READW-FILE NAME-OF-FILE SIZE-OF-FILE LENGTH-OF-FILE ACCESS-OF-FILE ACCESS-FILE RELEASE-FILE CLOSE-FILE OPEN-FILE GET-FILE JFN><SETG LOAD-AVG %<RSUBR-ENTRY '[\ \ F!- LOAD-AVG #DECL ("VALUE" <OR FLOAT FALSE>)] 0>><SETG JOB-TIME %<RSUBR-ENTRY '[\ \ F!- JOB-TIME #DECL ("VALUE" FIX)] 0>><SETG DTDTG %<RSUBR-ENTRY '[\ \ F!- DTDTG #DECL ("VALUE" <OR FIX FALSE> FIX FIX FIX FIX FIX FIX)] 0>><SETG DTGDT %<RSUBR-ENTRY '[\ \ F!- DTGDT #DECL ("VALUE" <UVECTOR [6 FIX]> FIX <UVECTOR [6 FIX]>)] 0>><SETG GET-WRITE-DATE %<RSUBR-ENTRY '[\ \ F!- GET-WRITE-DATE #DECL ("VALUE" FIX CHANNEL)] 0>><SETG GET-DATE %<RSUBR-ENTRY '[\ \ F!- GET-DATE #DECL ("VALUE" FIX)] 0>><SETG DATE-STRING %<RSUBR-ENTRY '[\ \ F!- DATE-STRING #DECL ("VALUE" <OR STRING FALSE> STRING FIX FIX)] 0>><SETG PARSE-DATE %<RSUBR-ENTRY '[\ \ F!- PARSE-DATE #DECL ("VALUE" <OR FIX FALSE> STRING)] 0>><SETG GET-FRESH-PAGE %<RSUBR-ENTRY '[\ \ F!- GET-FRESH-PAGE #DECL ("VALUE" <OR FIX FALSE> FIX)] 0>><SETG RESUME-INFERIOR %<RSUBR-ENTRY '[\ \ F!- RESUME-INFERIOR #DECL ("VALUE" FIX FIX)] 0>><SETG CREATE-INFERIOR %<RSUBR-ENTRY '[\ \ F!- CREATE-INFERIOR #DECL ("VALUE" FIX FIX "OPTIONAL" FIX)] 0>><SETG RELOAD-FILE %<RSUBR-ENTRY '[\ \ F!- RELOAD-FILE #DECL ("VALUE" ANY STRING)] 0>><SETG EXPUNGE-CON-DIR %<RSUBR-ENTRY '[\ \ F!- EXPUNGE-CON-DIR #DECL ("VALUE" 'T)] 0>><SETG EXPUNGE-DIR %<RSUBR-ENTRY '[\ \ F!- EXPUNGE-DIR #DECL ("VALUE" 'T)] 0>><SETG CON-TO-DIR %<RSUBR-ENTRY '[\ \ F!- CON-TO-DIR #DECL ("VALUE" <OR 'T FALSE> FIX)] 0>><SETG DIRNUM-TO-STR %<RSUBR-ENTRY '[\ \ F!- DIRNUM-TO-STR #DECL ("VALUE" <OR STRING FALSE> FIX)] 0>><SETG STR-TO-DIRNUM %<RSUBR-ENTRY '[\ \ F!- STR-TO-DIRNUM #DECL ("VALUE" <OR FIX FALSE> STRING)] 0>><SETG GET-DIR-ALLOC %<RSUBR-ENTRY '[\ \ F!- GET-DIR-ALLOC #DECL ("VALUE" <OR <UVECTOR FIX FIX> FALSE> FIX)] 0>><SETG GET-JOB-INFO %<RSUBR-ENTRY '[\ \ F!- GET-JOB-INFO #DECL ("VALUE" <UVECTOR FIX FIX FIX FIX>)] 0>><SETG FIND-FIRST-USED-FILE-PAGE %<RSUBR-ENTRY '[\ \ F!- FIND-FIRST-USED-FILE-PAGE #DECL ("VALUE" <OR FIX FALSE> JFN FIX)] 0>><SETG FIND-FIRST-FREE-FILE-PAGE %<RSUBR-ENTRY '[\ \ F!- FIND-FIRST-FREE-FILE-PAGE #DECL ("VALUE" <OR FIX FALSE> JFN)] 0>><SETG GET-PRIMARY-JFNS %<RSUBR-ENTRY '[\ \ F!- GET-PRIMARY-JFNS #DECL ("VALUE" <VECTOR [2 JFN]> "OPTIONAL" <PRIMTYPE WORD>)] 0>><SETG WRITE-PAGE %<RSUBR-ENTRY '[\ \ F!- WRITE-PAGE #DECL ("VALUE" <OR JFN FALSE> JFN FIX FIX)] 0>><SETG PMAP-FILE %<RSUBR-ENTRY '[\ \ F!- PMAP-FILE #DECL ("VALUE" <OR 'T FALSE> <PRIMTYPE WORD> <PRIMTYPE WORD> <PRIMTYPE WORD> <PRIMTYPE WORD> <PRIMTYPE WORD>)] 0>><SETG PRINTP-FILE %<RSUBR-ENTRY '[\ \ F!- PRINTP-FILE #DECL ("VALUE" <OR FIX UVECTOR FALSE> JFN <OR FIX UVECTOR> FIX)] 0>><SETG READP-FILE %<RSUBR-ENTRY '[\ \ F!- READP-FILE #DECL ("VALUE" <OR UVECTOR FIX FALSE> JFN <OR UVECTOR FIX> FIX)] 0>><SETG PRINTS-FILE %<RSUBR-ENTRY '[\ \ F!- PRINTS-FILE #DECL ("VALUE" <OR STRING FALSE> JFN STRING)] 0>><SETG READS-FILE %<RSUBR-ENTRY '[\ \ F!- READS-FILE #DECL ("VALUE" <OR STRING FALSE> JFN STRING)] 0>><SETG PRINTB-FILE %<RSUBR-ENTRY '[\ \ F!- PRINTB-FILE #DECL ("VALUE" <OR UVECTOR FALSE> JFN UVECTOR)] 0>><SETG READB-FILE %<RSUBR-ENTRY '[\ \ F!- READB-FILE #DECL ("VALUE" <OR UVECTOR FALSE> JFN UVECTOR)] 0>><SETG PRINTW-FILE %<RSUBR-ENTRY '[\ \ F!- PRINTW-FILE #DECL ("VALUE" <OR <PRIMTYPE WORD> FALSE> JFN FIX <PRIMTYPE WORD>)] 0>><SETG READW-FILE %<RSUBR-ENTRY '[\ \ F!- READW-FILE #DECL ("VALUE" <OR WORD FALSE> JFN FIX)] 0>><SETG NAME-OF-FILE %<RSUBR-ENTRY '[\ \ F!- NAME-OF-FILE #DECL ("VALUE" <OR STRING FALSE> JFN)] 0>><SETG SIZE-OF-FILE %<RSUBR-ENTRY '[\ \ F!- SIZE-OF-FILE #DECL ("VALUE" <OR FIX FALSE> JFN)] 0>><SETG LENGTH-OF-FILE %<RSUBR-ENTRY '[\ \ F!- LENGTH-OF-FILE #DECL ("VALUE" <OR FIX FALSE> JFN)] 0>><SETG ACCESS-OF-FILE %<RSUBR-ENTRY '[\ \ F!- ACCESS-OF-FILE #DECL ("VALUE" <OR FIX FALSE> JFN)] 0>><SETG ACCESS-FILE %<RSUBR-ENTRY '[\ \ F!- ACCESS-FILE #DECL ("VALUE" <OR JFN FALSE> JFN <PRIMTYPE WORD>)] 0>><SETG RELEASE-FILE %<RSUBR-ENTRY '[\ \ F!- RELEASE-FILE #DECL ("VALUE" <OR JFN FALSE> JFN)] 0>><SETG CLOSE-FILE %<RSUBR-ENTRY '[\ \ F!- CLOSE-FILE #DECL ("VALUE" <OR JFN FALSE> JFN <PRIMTYPE WORD>)] 0>><SETG OPEN-FILE %<RSUBR-ENTRY '[\ \ F!- OPEN-FILE #DECL ("VALUE" <OR JFN FALSE> JFN <PRIMTYPE WORD>)] 0>><SETG GET-FILE %<RSUBR-ENTRY '[\ \ F!- GET-FILE #DECL ("VALUE" <OR JFN FALSE> STRING <PRIMTYPE WORD>)] 0>><NEWTYPE JFN WORD><ENDPACKAGE> <PACKAGE "IM"><ENTRY IMLAC-OUTCHAN IMLAC-INCHAN ERROR-HANDLER ERROR-EVENT RESET-IMLAC IMED><USE "TTY" "IMLAC" "CHAN"><SETG RESET-IMLAC %<RSUBR-ENTRY '[\ \ F!- RESET-IMLAC #DECL ("VALUE" ANY)] 0>><SETG IMED %<RSUBR-ENTRY '[\ \ F!- IMED #DECL ("VALUE" ANY "OPTIONAL" ANY <OR FALSE 'T>)] 0>><ENDPACKAGE><PACKAGE "MIRBAS"><ENTRY MSG-DATIME MSG-ADDRESSEE MSG-PUNT MASTER-FLD-VECTOR DELETE-FROM-MSGIRS-DATA-BASE UPDATE-MSGIRS-DATA-BASE SEARCH-MSGIRS-DATA-BASE DATA-BASE-CHAN><USE "STR" "SDM" "SDML" "PMAP" "CPYFIL"><SETG MSG-DATIME %<RSUBR-ENTRY '[\ \ F!- MSG-DATIME #DECL ("VALUE" <OR <LIST FIX FIX FIX> FALSE> ANY ANY)] 0>><SETG MSG-ADDRESSEE %<RSUBR-ENTRY '[\ \ F!- MSG-ADDRESSEE #DECL ("VALUE" <OR <VECTOR [REST STRING]> FALSE> ANY ANY)] 0>><SETG MSG-PUNT %<RSUBR-ENTRY '[\ \ F!- MSG-PUNT #DECL ("VALUE" ANY ANY ANY)] 0>><SETG DELETE-FROM-MSGIRS-DATA-BASE %<RSUBR-ENTRY '[\ \ F!- DELETE-FROM-MSGIRS-DATA-BASE #DECL ("VALUE" <OR 'T FALSE> STRING)] 0>><SETG UPDATE-MSGIRS-DATA-BASE %<RSUBR-ENTRY '[\ \ F!- UPDATE-MSGIRS-DATA-BASE #DECL ("VALUE" <OR 'T FALSE> STRING STRING STRING STRING <LIST [REST STRING <OR FIX FALSE>]>)] 0>><SETG SEARCH-MSGIRS-DATA-BASE %<RSUBR-ENTRY '[\ \ F!- SEARCH-MSGIRS-DATA-BASE #DECL ("VALUE" <OR <VECTOR STRING STRING <VECTOR STRING STRING <LIST [REST STRING <OR FIX FALSE>]>>> FALSE> ANY)] 0>><GDECL (DATA-BASE-CHAN) <OR PMCHAN FALSE>><ENDPACKAGE> <PACKAGE "UV-S"><ENTRY UVECTOR-TO-STRING STRING-TO-UVECTOR PNAME-TO-UVECTOR><SETG UVECTOR-TO-STRING %<RSUBR-ENTRY '[\ \ F!- UVECTOR-TO-STRING #DECL ("VALUE" STRING <UVECTOR [REST <PRIMTYPE WORD>]> "OPTIONAL" <OR 'T FALSE>)] 0>><SETG STRING-TO-UVECTOR %<RSUBR-ENTRY '[\ \ F!- STRING-TO-UVECTOR #DECL ("VALUE" UVECTOR STRING)] 0>><SETG PNAME-TO-UVECTOR %<RSUBR-ENTRY '[\ \ F!- PNAME-TO-UVECTOR #DECL ("VALUE" UVECTOR ATOM)] 0>><ENDPACKAGE> <PACKAGE "OOPS"><ENTRY OOPS-OFF OOPS-ON OOPS-LIST OOPS-PRINT OOPS><SETG OOPS-OFF %<RSUBR-ENTRY '[\ \ F!- OOPS-OFF #DECL ("VALUE" STRING)] 0>><SETG OOPS-ON %<RSUBR-ENTRY '[\ \ F!- OOPS-ON #DECL ("VALUE" STRING)] 0>><SETG OOPS-PRINT %<RSUBR-ENTRY '[\ \ F!- OOPS-PRINT #DECL ("VALUE" ANY "OPTIONAL" STRING)] 0>><SETG OOPS %<RSUBR-ENTRY '[\ \ F!- OOPS #DECL ("VALUE" ANY "OPTIONAL" STRING)] 0>><GDECL (OOPS-LIST) <LIST [REST ATOM]>><ENDPACKAGE><PACKAGE "HAVERFORM"><ENTRY HASH-ITM SPARSER DENSER><SETG HASH-ITM %<RSUBR-ENTRY '[\ \ F!- HASH-ITM #DECL ("VALUE" FIX UVECTOR)] 0>><SETG SPARSER %<RSUBR-ENTRY '[\ \ F!- SPARSER #DECL ("VALUE" <<PRIMTYPE UVECTOR> [REST <PRIMTYPE WORD>]> <<PRIMTYPE UVECTOR> [REST <PRIMTYPE WORD>]> <<PRIMTYPE UVECTOR> [REST <PRIMTYPE WORD>]>)] 0>><SETG DENSER %<RSUBR-ENTRY '[\ \ F!- DENSER #DECL ("VALUE" <<PRIMTYPE UVECTOR> [REST <PRIMTYPE WORD>]> <<PRIMTYPE UVECTOR> [REST <PRIMTYPE WORD>]> <<PRIMTYPE UVECTOR> [REST <PRIMTYPE WORD>]>)] 0>><ENDPACKAGE> <PACKAGE "P-ITEM"><ENTRY EMPTY-BUFFER INSERT-ITEM><USE "MSDTP"><SETG INSERT-ITEM %<RSUBR-ENTRY '[\ \ F!- INSERT-ITEM #DECL ("VALUE" FIX ANY STRING "OPTIONAL" <OR 'T FALSE>)] 0>><ENDPACKAGE> <PACKAGE "PSAMPLE"><ENTRY PRINT-SAMPLE-INFO><SETG PRINT-SAMPLE-INFO %<RSUBR-ENTRY '[\ \ F!- PRINT-SAMPLE-INFO #DECL ("VALUE" ANY VECTOR)] 0>><ENDPACKAGE> <PACKAGE "QPUT"><ENTRY FALSE-PRIME MAKE-TEMPLATE UNPUTAWAY-WRITE READ-PUTAWAY UNPUTAWAY PUTAWAY><NEWTYPE FALSE-PRIME LIST><SETG MAKE-TEMPLATE %<RSUBR-ENTRY '[\ \ F!- MAKE-TEMPLATE #DECL ("VALUE" VECTOR <STRUCTURED [REST ATOM ANY]>)] 0>><SETG UNPUTAWAY-WRITE %<RSUBR-ENTRY '[\ \ F!- UNPUTAWAY-WRITE #DECL ("VALUE" ATOM <VECTOR [REST ATOM]> STRUCTURED CHANNEL "OPTIONAL" APPLICABLE <LIST [REST OBLIST]>)] 0>><SETG READ-PUTAWAY %<RSUBR-ENTRY '[\ \ F!- READ-PUTAWAY #DECL ("VALUE" STRUCTURED STRUCTURED CHANNEL "OPTIONAL" APPLICABLE <LIST [REST OBLIST]>)] 0>><SETG UNPUTAWAY %<RSUBR-ENTRY '[\ \ F!- UNPUTAWAY #DECL ("VALUE" <VECTOR [REST ATOM ANY]> <VECTOR [REST ATOM]> STRUCTURED "OPTIONAL" APPLICABLE)] 0>><SETG PUTAWAY %<RSUBR-ENTRY '[\ \ F!- PUTAWAY #DECL ("VALUE" STRUCTURED STRUCTURED STRUCTURED "OPTIONAL" APPLICABLE)] 0>><ENDPACKAGE> <PACKAGE "TOKENS"><ENTRY BALANCED? TOKENS><SETG BALANCED? %<RSUBR-ENTRY '[\ \ F!- BALANCED? #DECL ("VALUE" <OR FALSE STRING> <OR STRING FALSE> "OPTIONAL" STRING)] 0>><SETG TOKENS %<RSUBR-ENTRY '[\ \ F!- TOKENS #DECL ("VALUE" <LIST [REST STRING]> STRING "OPTIONAL" STRING STRING)] 0>><ENDPACKAGE><PACKAGE "MARK-MAKE"><ENTRY MAKE-ERROR-SOURCE><USE "HAVERFORM" "MDTABLE"><SETG MAKE-ERROR-SOURCE %<RSUBR-ENTRY '[\ \ F!- MAKE-ERROR-SOURCE #DECL ("VALUE" <OR FALSE STRING> <VECTOR [REST VECTOR]> "OPTIONAL" STRING)] 0>><ENDPACKAGE><PACKAGE "MSUB"><ENTRY SUBSYSTEM-COMMANDS SUBSYSTEM-INFO NEW-SUBSYS-VECTOR FIND-SUBSYSTEM DELETE-SUBSYSTEM ADD-SUBSYSTEM LIST-SUBSYSTEMS><USE "CALSYM" "CALRDR" "COMMAND" "CALUTL" "CALCOM" "TIMFCN" "L"><SETG SUBSYSTEM-INFO %<RSUBR-ENTRY '[\ \ F!- SUBSYSTEM-INFO #DECL ("VALUE" ATOM STRING)] 0>><SETG NEW-SUBSYS-VECTOR %<RSUBR-ENTRY '[\ \ F!- NEW-SUBSYS-VECTOR #DECL ("VALUE" VECTOR VECTOR)] 0>><SETG FIND-SUBSYSTEM %<RSUBR-ENTRY '[\ \ F!- FIND-SUBSYSTEM #DECL ("VALUE" <OR VECTOR FALSE> STRING "OPTIONAL" ANY)] 0>><SETG DELETE-SUBSYSTEM %<RSUBR-ENTRY '[\ \ F!- DELETE-SUBSYSTEM #DECL ("VALUE" ANY ANY)] 0>><SETG ADD-SUBSYSTEM %<RSUBR-ENTRY '[\ \ F!- ADD-SUBSYSTEM #DECL ("VALUE" ANY)] 0>><SETG LIST-SUBSYSTEMS %<RSUBR-ENTRY '[\ \ F!- LIST-SUBSYSTEMS #DECL ("VALUE" ATOM)] 0>><ENDPACKAGE> <PACKAGE "MIRCOM"><ENTRY PRINT-FLD-LIST DELETE-DATA-BASE GET-FLD-TABLE MAKE-NEW-DATA-BASE MIRCOMTBL><USE "CALRDR" "CALSYM" "MIRBAS" "MIRMAK" "IRSMAK"><SETG PRINT-FLD-LIST %<RSUBR-ENTRY '[\ \ F!- PRINT-FLD-LIST #DECL ("VALUE" 'T <LIST [REST STRING <OR FIX FALSE>]>)] 0>><SETG DELETE-DATA-BASE %<RSUBR-ENTRY '[\ \ F!- DELETE-DATA-BASE #DECL ("VALUE" ANY)] 0>><SETG GET-FLD-TABLE %<RSUBR-ENTRY '[\ \ F!- GET-FLD-TABLE #DECL ("VALUE" <OR SYMTABLE FALSE>)] 0>><SETG MAKE-NEW-DATA-BASE %<RSUBR-ENTRY '[\ \ F!- MAKE-NEW-DATA-BASE #DECL ("VALUE" ANY)] 0>><ENDPACKAGE> <RPACKAGE "GRLOAD"><ENTRY TENEX? EXPSPLICE EXPFLOAD GROUP-DUMP GROUP-LOAD><USE "EDIT"><SETG GROUP-DUMP %<RSUBR-ENTRY '[\ \ F!- GROUP-DUMP #DECL ("VALUE" <OR ATOM FALSE> STRING "OPTIONAL" ATOM ANY ANY)] 0>><SETG GROUP-LOAD %<RSUBR-ENTRY '[\ \ F!- GROUP-LOAD #DECL ("VALUE" <OR ATOM FALSE> STRING "OPTIONAL" ATOM)] 0>><ENDPACKAGE> <PACKAGE "GSTTYC"><ENTRY LEAVE_READER GRAPHIC_READER_ACTIVATION G_R GRAPHICS_READER USE-TNM GFOUT GOXY TTY-OUT-DISPATCH><USE "GS"><USE "GSTARD" "GSTIML"><SETG LEAVE_READER %<RSUBR-ENTRY '[\ \ F!- LEAVE_READER #DECL ("VALUE" ANY)] 0>><SETG G_R %<RSUBR-ENTRY '[\ \ F!- G_R #DECL ("VALUE" ANY "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG GRAPHICS_READER %<RSUBR-ENTRY '[\ \ F!- GRAPHICS_READER #DECL ("VALUE" ANY "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG USE-TNM %<RSUBR-ENTRY '[\ \ F!- USE-TNM #DECL ("VALUE" ATOM STRING)] 0>><SETG GFOUT %<RSUBR-ENTRY '[\ \ F!- GFOUT #DECL ("VALUE" FIX FIX)] 0>><SETG GOXY %<RSUBR-ENTRY '[\ \ F!- GOXY #DECL ("VALUE" ATOM FIX "OPTIONAL" FIX)] 0>><SETG TTY-OUT-DISPATCH %<RSUBR-ENTRY '[\ \ F!- TTY-OUT-DISPATCH #DECL ("VALUE" <VECTOR [3 APPLICABLE] RSUBR APPLICABLE RSUBR [5 APPLICABLE] RSUBR [6 APPLICABLE] [REST APPLICABLE]>)] 0>><ENDPACKAGE> <PACKAGE "NETRJS"><ENTRY DEBUG TTY-SCRIPT VERSION DEMON-LOOP SETUP COMMAND-LOOP MAKE-DEMON><USE "STR" "STDMST" "TIMFCN" "NETFTP" "NOW" "LOGIN" "DATIME"><SETG DEMON-LOOP %<RSUBR-ENTRY '[\ \ F!- DEMON-LOOP #DECL ("VALUE" ANY)] 0>><SETG SETUP %<RSUBR-ENTRY '[\ \ F!- SETUP #DECL ("VALUE" STRING)] 0>><SETG COMMAND-LOOP %<RSUBR-ENTRY '[\ \ F!- COMMAND-LOOP #DECL ("VALUE" ANY)] 0>><SETG MAKE-DEMON %<RSUBR-ENTRY '[\ \ F!- MAKE-DEMON #DECL ("VALUE" ANY)] 0>><GDECL (VERSION) FIX (DEBUG) <OR ATOM FALSE>><ENDPACKAGE><PACKAGE "VLL-DATA-BASE"><ENTRY VACC VACCM VACCM-1 VADD VDUMP VGET VOUT VPUT VRMV><USE "MISC01"><SETG VACC %<RSUBR-ENTRY '[\ \ F!- VACC #DECL ("VALUE" <OR FIX LIST FALSE> <VECTOR LIST LIST> <OR FIX STRING>)] 0>><SETG VACCM %<RSUBR-ENTRY '[\ \ F!- VACCM #DECL ("VALUE" <OR LIST FALSE> <VECTOR LIST LIST> "TUPLE" <TUPLE [REST <OR FIX STRING>]>)] 0>><SETG VACCM-1 %<RSUBR-ENTRY '[\ \ F!- VACCM-1 #DECL ("VALUE" <OR LIST FALSE> <VECTOR LIST LIST> "TUPLE" <TUPLE [REST <OR FIX STRING>]>)] 0>><SETG VADD %<RSUBR-ENTRY '[\ \ F!- VADD #DECL ("VALUE" ATOM <VECTOR LIST LIST> FIX <OR FIX STRING> ANY)] 0>><SETG VDUMP %<RSUBR-ENTRY '[\ \ F!- VDUMP #DECL ("VALUE" ANY <VECTOR LIST LIST> FIX)] 0>><SETG VGET %<RSUBR-ENTRY '[\ \ F!- VGET #DECL ("VALUE" ANY <VECTOR LIST LIST> "TUPLE" <TUPLE [REST <OR FIX STRING>]>)] 0>><SETG VOUT %<RSUBR-ENTRY '[\ \ F!- VOUT #DECL ("VALUE" <OR ATOM FALSE> <VECTOR LIST LIST> <OR FIX STRING>)] 0>><SETG VPUT %<RSUBR-ENTRY '[\ \ F!- VPUT #DECL ("VALUE" <OR ATOM FALSE> <VECTOR LIST LIST> ANY "TUPLE" <TUPLE [REST <OR FIX STRING>]>)] 0>><SETG VRMV %<RSUBR-ENTRY '[\ \ F!- VRMV #DECL ("VALUE" <OR FALSE ATOM> <VECTOR LIST LIST> "TUPLE" <TUPLE [REST <OR FIX STRING>]>)] 0>><ENDPACKAGE> <PACKAGE "INFERIOR"><ENTRY PROCEEDABLE IOC-ERROR WANTS-TTY PIRQC ^Z-TYPED DDTWRITE AOBJN *BREAK-12 FINISHED :KILL *BREAK-16 *BREAK *VALUE INF-STATUS INF-JCL INF-SADDR INF-INDEX INF-ICHAN INF-UCHAN INF-JNAME INF NO-ACTION-MESSAGES NO-ACTION-INTERRUPTS ACTION-INTERRUPTS INF-DIRS INF-BREAK? INF-INT-DEBUG? PASS-JCL-DOWN VALRET-STRING ^Z-HANDLER *VALUE-HANDLER *BREAK-HANDLER CURRENT-INF INF-LIST GET-ICHAN INF-ACT INF-HANDLER INF? INF-WORD INF-RESULT INF-CONTIN INF-START INF-KILL INF-LOAD INF-READY INF-RUN><USE "INFASS"><SETG *BREAK #WORD *045000000000*><SETG *VALUE #WORD *043200000000*><SETG INF-STATUS 7><SETG INF-JCL 6><SETG INF-SADDR 5><SETG INF-INDEX 4><SETG INF-ICHAN 3><SETG INF-UCHAN 2><SETG INF-JNAME 1><NEWTYPE INF VECTOR'<VECTOR STRING [2 <OR FALSE CHANNEL>] [2 FIX] STRING>><SETG PASS-JCL-DOWN %<RSUBR-ENTRY '[\ \ F!- PASS-JCL-DOWN #DECL ("VALUE" <OR FALSE STRING> INF FIX)] 0>><SETG VALRET-STRING %<RSUBR-ENTRY '[\ \ F!- VALRET-STRING #DECL ("VALUE" STRING FIX INF)] 0>><SETG ^Z-HANDLER %<RSUBR-ENTRY '[\ \ F!- ^Z-HANDLER #DECL ("VALUE" ANY INF "OPTIONAL" <OR ACTIVATION FALSE>)] 0>><SETG *VALUE-HANDLER %<RSUBR-ENTRY '[\ \ F!- *VALUE-HANDLER #DECL ("VALUE" <OR FALSE <LIST ATOM <OR FIX STRING>>> <PRIMTYPE WORD> INF)] 0>><SETG *BREAK-HANDLER %<RSUBR-ENTRY '[\ \ F!- *BREAK-HANDLER #DECL ("VALUE" ANY <PRIMTYPE WORD> INF <PRIMTYPE WORD> <OR ACTIVATION FALSE>)] 0>><SETG GET-ICHAN %<RSUBR-ENTRY '[\ \ F!- GET-ICHAN #DECL ("VALUE" ANY INF)] 0>><SETG INF-HANDLER %<RSUBR-ENTRY '[\ \ F!- INF-HANDLER #DECL ("VALUE" ANY FIX)] 0>><SETG INF? %<RSUBR-ENTRY '[\ \ F!- INF? #DECL ("VALUE" <OR FALSE INF> <OR INF FIX>)] 0>><SETG INF-WORD %<RSUBR-ENTRY '[\ \ F!- INF-WORD #DECL ("VALUE" <OR FALSE <PRIMTYPE WORD>> INF FIX "OPTIONAL" <PRIMTYPE WORD>)] 0>><SETG INF-RESULT %<RSUBR-ENTRY '[\ \ F!- INF-RESULT #DECL ("VALUE" <OR FALSE STRING> INF ANY "OPTIONAL" <OR ATOM FALSE> CHANNEL)] 0>><SETG INF-CONTIN %<RSUBR-ENTRY '[\ \ F!- INF-CONTIN #DECL ("VALUE" ANY "OPTIONAL" <OR INF FALSE> <OR ATOM FALSE> <OR ATOM FALSE>)] 0>><SETG INF-START %<RSUBR-ENTRY '[\ \ F!- INF-START #DECL ("VALUE" ANY "OPTIONAL" <OR INF FALSE> <OR ATOM FALSE> <OR ATOM FALSE>)] 0>><SETG INF-KILL %<RSUBR-ENTRY '[\ \ F!- INF-KILL #DECL ("VALUE" <OR FALSE INF> "OPTIONAL" <OR FALSE INF>)] 0>><SETG INF-LOAD %<RSUBR-ENTRY '[\ \ F!- INF-LOAD #DECL ("VALUE" <OR FALSE INF> STRING STRING "OPTIONAL" STRING <OR FIX FALSE>)] 0>><SETG INF-READY %<RSUBR-ENTRY '[\ \ F!- INF-READY #DECL ("VALUE" <OR FALSE INF> STRING "OPTIONAL" STRING STRING)] 0>><SETG INF-RUN %<RSUBR-ENTRY '[\ \ F!- INF-RUN #DECL ("VALUE" ANY STRING "OPTIONAL" STRING STRING <OR ATOM FALSE> <OR ATOM FALSE>)] 0>><MANIFEST INF-JNAME INF-UCHAN INF-ICHAN INF-INDEX INF-SADDR INF-JCL INF-STATUS *VALUE *BREAK><GDECL (INF-LIST) <LIST [REST FIX INF]> (CURRENT-INF) <OR INF FALSE> (INF-DIRS) <VECTOR [REST STRING]> (ACTION-INTERRUPTS) <UVECTOR [REST FIX]> (NO-ACTION-INTERRUPTS) <UVECTOR [REST FIX]> (NO-ACTION-MESSAGES) <VECTOR [REST STRING]>><ENDPACKAGE> <PACKAGE "STR"><ENTRY STRTOX SIXTOS RSHIFT UPPERCASE SUBSNC SUBSTR EXTRACT LEX FIRST-OF BACKS><SETG STRTOX %<RSUBR-ENTRY '[\ \ F!- STRTOX #DECL ("VALUE" FIX STRING)] 0>><SETG SIXTOS %<RSUBR-ENTRY '[\ \ F!- SIXTOS #DECL ("VALUE" STRING <PRIMTYPE WORD>)] 0>><SETG RSHIFT %<RSUBR-ENTRY '[\ \ F!- RSHIFT #DECL ("VALUE" STRING STRING FIX)] 0>><SETG UPPERCASE %<RSUBR-ENTRY '[\ \ F!- UPPERCASE #DECL ("VALUE" STRING STRING "OPTIONAL" FIX)] 0>><SETG SUBSNC %<RSUBR-ENTRY '[\ \ F!- SUBSNC #DECL ("VALUE" <OR STRING FALSE> STRING STRING "OPTIONAL" FIX)] 0>><SETG SUBSTR %<RSUBR-ENTRY '[\ \ F!- SUBSTR #DECL ("VALUE" <OR STRING FALSE> STRING STRING "OPTIONAL" FIX)] 0>><SETG EXTRACT %<RSUBR-ENTRY '[\ \ F!- EXTRACT #DECL ("VALUE" <OR STRING FALSE> STRING "OPTIONAL" <OR FIX STRING FALSE> FIX)] 0>><SETG LEX %<RSUBR-ENTRY '[\ \ F!- LEX #DECL ("VALUE" <LIST [REST STRING]> STRING FIX STRING)] 0>><SETG FIRST-OF %<RSUBR-ENTRY '[\ \ F!- FIRST-OF #DECL ("VALUE" <OR STRING FALSE> STRING STRING "OPTIONAL" FIX)] 0>><SETG BACKS %<RSUBR-ENTRY '[\ \ F!- BACKS #DECL ("VALUE" <OR STRING FALSE> STRING STRING "OPTIONAL" FIX)] 0>><ENDPACKAGE><PACKAGE "MUDIRS"><ENTRY MUDIRS-PRINT MUDIRS-DESCRIBE MUDIRSCOMTBL><USE "IRSCOM" "IRSBAS" "IRSUSR" "APPRINT" "CALSYM" "CALRDR"><SETG MUDIRS-PRINT %<RSUBR-ENTRY '[\ \ F!- MUDIRS-PRINT #DECL ("VALUE" ATOM "OPTIONAL" <OR CHANNEL STRING FALSE> APPLICABLE)] 0>><SETG MUDIRS-DESCRIBE %<RSUBR-ENTRY '[\ \ F!- MUDIRS-DESCRIBE #DECL ("VALUE" ANY "OPTIONAL" FIX CHANNEL)] 0>><ENDPACKAGE> <PACKAGE "RQFILE"><ENTRY RQRCVR RQDELE RQNUMB RQDONE RQNEXT RQCLOSE RQOPEN NXUNQ><USE "LIBDAT" "CHAN"><SETG RQRCVR %<RSUBR-ENTRY '[\ \ F!- RQRCVR #DECL ("VALUE" FIX STRING STRING "OPTIONAL" <OR 'T FALSE> <OR 'T FALSE>)] 0>><SETG RQDELE %<RSUBR-ENTRY '[\ \ F!- RQDELE #DECL ("VALUE" FIX STRING)] 0>><SETG RQNUMB %<RSUBR-ENTRY '[\ \ F!- RQNUMB #DECL ("VALUE" FIX STRING)] 0>><SETG RQDONE %<RSUBR-ENTRY '[\ \ F!- RQDONE #DECL ("VALUE" ANY CHANNEL STRING "OPTIONAL" STRING)] 0>><SETG RQNEXT %<RSUBR-ENTRY '[\ \ F!- RQNEXT #DECL ("VALUE" <OR CHANNEL FALSE> STRING)] 0>><SETG RQCLOSE %<RSUBR-ENTRY '[\ \ F!- RQCLOSE #DECL ("VALUE" CHANNEL CHANNEL)] 0>><SETG RQOPEN %<RSUBR-ENTRY '[\ \ F!- RQOPEN #DECL ("VALUE" CHANNEL STRING "OPTIONAL" STRING)] 0>><SETG NXUNQ %<RSUBR-ENTRY '[\ \ F!- NXUNQ #DECL ("VALUE" ANY STRING)] 0>><ENDPACKAGE> <PACKAGE "DIRHAK"><ENTRY SN&DT DIR-DIFF><USE "STR"><SETG SN&DT %<RSUBR-ENTRY '[\ \ F!- SN&DT #DECL ("VALUE" <UVECTOR [REST FIX]> FIX <<PRIMTYPE UVECTOR> FIX>)] 0>><SETG DIR-DIFF %<RSUBR-ENTRY '[\ \ F!- DIR-DIFF #DECL ("VALUE" UVECTOR FIX <<PRIMTYPE UVECTOR> FIX> <<PRIMTYPE UVECTOR> FIX>)] 0>><ENDPACKAGE><PACKAGE "LEVEL"><ENTRY LEVEL><SETG LEVEL %<RSUBR-ENTRY '[\ \ F!- LEVEL #DECL ("VALUE" FIX)] 0>><ENDPACKAGE> <PACKAGE "DRAGIT"><ENTRY SDATA DATA SUMMARY DRAGON><USE "LINES" "NSTR" "ITIME" "FORMAT"><SETG SUMMARY %<RSUBR-ENTRY '[\ \ F!- SUMMARY #DECL ("VALUE" <OR ATOM CHANNEL FALSE> "TUPLE" TUPLE)] 0>><SETG DRAGON %<RSUBR-ENTRY '[\ \ F!- DRAGON #DECL ("VALUE" <OR ATOM FALSE> "OPTIONAL" STRING)] 0>><ENDPACKAGE> <PACKAGE "GSHARD"><ENTRY DO-HARD-COPY HARD_COPY><USE "GS"><USE "GSTTYC"><SETG DO-HARD-COPY %<RSUBR-ENTRY '[\ \ F!- DO-HARD-COPY #DECL ("VALUE" ANY ANY)] 0>><SETG HARD_COPY %<RSUBR-ENTRY '[\ \ F!- HARD_COPY #DECL ("VALUE" ANY ANY "TUPLE" ANY)] 0>><ENDPACKAGE> <PACKAGE "KWIC"><ENTRY KWIDTH KWICIFY><USE "CHARAC"><SETG KWICIFY %<RSUBR-ENTRY '[\ \ F!- KWICIFY #DECL ("VALUE" <OR CHANNEL FALSE> <OR ATOM STRING <VECTOR [REST <OR ATOM STRING>]>> "OPTIONAL" <OR CHANNEL STRING> <OR CHANNEL STRING> STRING)] 0>><GDECL (KWIDTH) FIX><ENDPACKAGE> <PACKAGE "PDUMP"><ENTRY PDUMP><SETG PDUMP %<RSUBR-ENTRY '[\ \ F!- PDUMP #DECL ("VALUE" <OR FALSE STRING> "TUPLE" ANY)] 0>><ENDPACKAGE> <PACKAGE "RJSJOB"><ENTRY LOAD-JOB-DATA UNLOCK-JOB-DATA JOB-SET-SCRIPT JOB-SET-PASSWORD JOB-SET-OUTPUT JOB-SET-EXIST JOB-SCRIPT JOB-REMOVE JOB-PASSWORD JOB-LOOKUP JOB-RESUME JOB-SUSPEND JOB-EXIST?><USE "RJSDAT" "DATIME"><SETG LOAD-JOB-DATA %<RSUBR-ENTRY '[\ \ F!- LOAD-JOB-DATA #DECL ("VALUE" LIST)] 0>><SETG UNLOCK-JOB-DATA %<RSUBR-ENTRY '[\ \ F!- UNLOCK-JOB-DATA #DECL ("VALUE" CHANNEL)] 0>><SETG JOB-SET-SCRIPT %<RSUBR-ENTRY '[\ \ F!- JOB-SET-SCRIPT #DECL ("VALUE" ANY STRING <OR FALSE STRING VECTOR>)] 0>><SETG JOB-SET-PASSWORD %<RSUBR-ENTRY '[\ \ F!- JOB-SET-PASSWORD #DECL ("VALUE" ANY STRING <OR STRING FALSE>)] 0>><SETG JOB-SET-OUTPUT %<RSUBR-ENTRY '[\ \ F!- JOB-SET-OUTPUT #DECL ("VALUE" ANY STRING STRING ANY ANY)] 0>><SETG JOB-SET-EXIST %<RSUBR-ENTRY '[\ \ F!- JOB-SET-EXIST #DECL ("VALUE" ANY STRING <OR ATOM FALSE>)] 0>><SETG JOB-SCRIPT %<RSUBR-ENTRY '[\ \ F!- JOB-SCRIPT #DECL ("VALUE" <OR FALSE VECTOR STRING> STRING)] 0>><SETG JOB-REMOVE %<RSUBR-ENTRY '[\ \ F!- JOB-REMOVE #DECL ("VALUE" ANY STRING STRING)] 0>><SETG JOB-PASSWORD %<RSUBR-ENTRY '[\ \ F!- JOB-PASSWORD #DECL ("VALUE" <OR FALSE STRING> STRING)] 0>><SETG JOB-LOOKUP %<RSUBR-ENTRY '[\ \ F!- JOB-LOOKUP #DECL ("VALUE" <OR FALSE LIST> STRING STRING)] 0>><SETG JOB-RESUME %<RSUBR-ENTRY '[\ \ F!- JOB-RESUME #DECL ("VALUE" ANY STRING)] 0>><SETG JOB-SUSPEND %<RSUBR-ENTRY '[\ \ F!- JOB-SUSPEND #DECL ("VALUE" ANY STRING)] 0>><SETG JOB-EXIST? %<RSUBR-ENTRY '[\ \ F!- JOB-EXIST? #DECL ("VALUE" <OR ATOM FALSE> STRING)] 0>><ENDPACKAGE> <PACKAGE "FILE-APPEND"><ENTRY OPEN-APPEND><SETG OPEN-APPEND %<RSUBR-ENTRY '[\ \ F!- OPEN-APPEND #DECL ("VALUE" <OR CHANNEL FALSE> "TUPLE" ANY)] 0>><ENDPACKAGE> <PACKAGE "ARDSIO"><ENTRY DOTTED? INVISIBLE? SHORT-INPUT LONG-INPUT SHORT-OUTPUT LONG-OUTPUT SET-POINT-OUTPUT><SETG DOTTED? %<RSUBR-ENTRY '[\ \ F!- DOTTED? #DECL ("VALUE" <OR 'T FALSE> CHARACTER)] 0>><SETG INVISIBLE? %<RSUBR-ENTRY '[\ \ F!- INVISIBLE? #DECL ("VALUE" <OR 'T FALSE> CHARACTER)] 0>><SETG SHORT-INPUT %<RSUBR-ENTRY '[\ \ F!- SHORT-INPUT #DECL ("VALUE" FIX CHARACTER)] 0>><SETG LONG-INPUT %<RSUBR-ENTRY '[\ \ F!- LONG-INPUT #DECL ("VALUE" FIX CHARACTER CHARACTER)] 0>><SETG SHORT-OUTPUT %<RSUBR-ENTRY '[\ \ F!- SHORT-OUTPUT #DECL ("VALUE" STRING <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG LONG-OUTPUT %<RSUBR-ENTRY '[\ \ F!- LONG-OUTPUT #DECL ("VALUE" STRING <OR FIX FLOAT> <OR FIX FLOAT> FIX FIX)] 0>><SETG SET-POINT-OUTPUT %<RSUBR-ENTRY '[\ \ F!- SET-POINT-OUTPUT #DECL ("VALUE" STRING <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><ENDPACKAGE> <PACKAGE "THACK"><ENTRY TAILOR-HACK><USE "L"><USE "LUP"><ENDPACKAGE> <PACKAGE "ASYLUM"><ENTRY READNRMODE READMODE PRINTWMODE PRINTMODE NAME-FIND-ADD NAME-FIND-DELETE NAME-FIND UNMAP-PAGE MAP-PAGE DIRMAP DATWRITE DATREAD GET-LOC-X PUT-LOC GET-LOC ALLOC-INIT MFD-INIT DIR-INIT DATA-LOCK-SLEEP DATA-LOCK-TRIES ITSUNLOCK DUNLOCK DSLOCK DHLOCK DATA-EXTEND-PAGES NAME-BLOCK-FREE NAMDATA DATA-BLOCK-FREE DATA-RENAME DATA-DELETE DATA-CLOSE DATA-CHAIN-SALVAGE DATA-BLOCK DATA-PRINTB DATA-READB DATA-RESET DATA-ACCESS DATA-IPRINT DATA-APRINT DATA-IREAD DATA-AREAD DATA-RESERVE DATA-READW DATA-PRINTW DATA-OPEN DATA-FIND DATA-PUT DATA-USE DATA-AUTHOR DATA-RDATE DATA-CDATE DATA-AUTHOR-WORD DATA-WRITE-WORD DATA-READ-WORD ALLOC-MAP ALLOC-UNLOCK DATA-UNLOCK RESET-DATA-FILE CLOSE-DATA-FILE FLUSH-DATA-FILE OPEN-DATA-FILE DATA-NON-FATAL-ERRORS DATA-ERRORS EXTEND-FILE MANIAC ASYLUM><USE "MADMAN"><USE "MADMAN" "TENXIO"><SETG READNRMODE 4><SETG READMODE 3><SETG PRINTWMODE 2><SETG PRINTMODE 1><SETG NAME-FIND-ADD %<RSUBR-ENTRY '[\ \ F!- NAME-FIND-ADD #DECL ("VALUE" <OR FIX FALSE> ASYLUM STRING)] 0>><SETG NAME-FIND-DELETE %<RSUBR-ENTRY '[\ \ F!- NAME-FIND-DELETE #DECL ("VALUE" <OR FALSE FIX> ASYLUM STRING)] 0>><SETG NAME-FIND %<RSUBR-ENTRY '[\ \ F!- NAME-FIND #DECL ("VALUE" <OR FALSE FIX> ASYLUM STRING)] 0>><SETG UNMAP-PAGE %<RSUBR-ENTRY '[\ \ F!- UNMAP-PAGE #DECL ("VALUE" <OR FALSE 'T> FIX)] 0>><SETG MAP-PAGE %<RSUBR-ENTRY '[\ \ F!- MAP-PAGE #DECL ("VALUE" <OR FALSE 'T> CHANNEL FIX FIX)] 0>><SETG DIRMAP %<RSUBR-ENTRY '[\ \ F!- DIRMAP #DECL ("VALUE" <OR FALSE FIX> ASYLUM FIX)] 0>><SETG DATWRITE %<RSUBR-ENTRY '[\ \ F!- DATWRITE #DECL ("VALUE" ANY ASYLUM FIX <PRIMTYPE WORD> <OR UVECTOR <PRIMTYPE WORD>>)] 0>><SETG DATREAD %<RSUBR-ENTRY '[\ \ F!- DATREAD #DECL ("VALUE" ANY ASYLUM FIX <PRIMTYPE WORD> <OR UVECTOR <PRIMTYPE WORD>>)] 0>><SETG GET-LOC-X %<RSUBR-ENTRY '[\ \ F!- GET-LOC-X #DECL ("VALUE" UVECTOR <PRIMTYPE WORD> UVECTOR FIX)] 0>><SETG PUT-LOC %<RSUBR-ENTRY '[\ \ F!- PUT-LOC #DECL ("VALUE" <PRIMTYPE WORD> <PRIMTYPE WORD> UVECTOR)] 0>><SETG GET-LOC %<RSUBR-ENTRY '[\ \ F!- GET-LOC #DECL ("VALUE" UVECTOR <PRIMTYPE WORD> UVECTOR)] 0>><SETG MFD-INIT %<RSUBR-ENTRY '[\ \ F!- MFD-INIT #DECL ("VALUE" <OR FALSE 'T> <PRIMTYPE VECTOR>)] 0>><SETG DIR-INIT %<RSUBR-ENTRY '[\ \ F!- DIR-INIT #DECL ("VALUE" 'T FIX)] 0>><SETG ITSUNLOCK %<RSUBR-ENTRY '[\ \ F!- ITSUNLOCK #DECL ("VALUE" 'T)] 0>><SETG DUNLOCK %<RSUBR-ENTRY '[\ \ F!- DUNLOCK #DECL ("VALUE" <OR FALSE <PRIMTYPE WORD>> <PRIMTYPE WORD>)] 0>><SETG DSLOCK %<RSUBR-ENTRY '[\ \ F!- DSLOCK #DECL ("VALUE" <OR <PRIMTYPE WORD> FALSE> <PRIMTYPE WORD>)] 0>><SETG DHLOCK %<RSUBR-ENTRY '[\ \ F!- DHLOCK #DECL ("VALUE" <OR <PRIMTYPE WORD> FALSE> <PRIMTYPE WORD>)] 0>><SETG NAME-BLOCK-FREE %<RSUBR-ENTRY '[\ \ F!- NAME-BLOCK-FREE #DECL ("VALUE" <OR FALSE FIX> ASYLUM <OR FALSE STRING FIX>)] 0>><SETG NAMDATA 1><SETG DATA-BLOCK-FREE %<RSUBR-ENTRY '[\ \ F!- DATA-BLOCK-FREE #DECL ("VALUE" ANY ASYLUM FIX "OPTIONAL" <OR 'T FALSE>)] 0>><SETG DATA-RENAME %<RSUBR-ENTRY '[\ \ F!- DATA-RENAME #DECL ("VALUE" <OR FALSE MANIAC> ASYLUM <OR FIX FALSE STRING> <OR FIX FALSE STRING>)] 0>><SETG DATA-DELETE %<RSUBR-ENTRY '[\ \ F!- DATA-DELETE #DECL ("VALUE" ANY ASYLUM <OR STRING FIX>)] 0>><SETG DATA-CLOSE %<RSUBR-ENTRY '[\ \ F!- DATA-CLOSE #DECL ("VALUE" <OR MANIAC !<FALSE FIX!>> ASYLUM MANIAC)] 0>><SETG DATA-CHAIN-SALVAGE %<RSUBR-ENTRY '[\ \ F!- DATA-CHAIN-SALVAGE #DECL ("VALUE" ATOM ASYLUM)] 0>><SETG DATA-BLOCK %<RSUBR-ENTRY '[\ \ F!- DATA-BLOCK #DECL ("VALUE" <OR FALSE FIX> ASYLUM MANIAC FIX)] 0>><SETG DATA-PRINTB %<RSUBR-ENTRY '[\ \ F!- DATA-PRINTB #DECL ("VALUE" <OR FIX !<FALSE FIX!>> ASYLUM MANIAC <OR UVECTOR <PRIMTYPE WORD>> "OPTIONAL" FIX)] 0>><SETG DATA-READB %<RSUBR-ENTRY '[\ \ F!- DATA-READB #DECL ("VALUE" <OR FIX !<FALSE FIX!>> ASYLUM MANIAC <OR UVECTOR <PRIMTYPE WORD>> "OPTIONAL" FIX <OR 'T FALSE> <OR 'T FALSE>)] 0>><SETG DATA-RESET %<RSUBR-ENTRY '[\ \ F!- DATA-RESET #DECL ("VALUE" <OR MANIAC !<FALSE FIX!>> ASYLUM MANIAC)] 0>><SETG DATA-ACCESS %<RSUBR-ENTRY '[\ \ F!- DATA-ACCESS #DECL ("VALUE" <OR !<FALSE FIX!> MANIAC> ASYLUM MANIAC FIX)] 0>><SETG DATA-IPRINT %<RSUBR-ENTRY '[\ \ F!- DATA-IPRINT #DECL ("VALUE" <OR FALSE MANIAC> ASYLUM MANIAC SPACE ANY "OPTIONAL" <OR FALSE 'T>)] 0>><SETG DATA-APRINT %<RSUBR-ENTRY '[\ \ F!- DATA-APRINT #DECL ("VALUE" <OR FALSE MANIAC> ASYLUM <OR STRING FIX> SPACE ANY "OPTIONAL" <OR 'T FALSE>)] 0>><SETG DATA-IREAD %<RSUBR-ENTRY '[\ \ F!- DATA-IREAD #DECL ("VALUE" ANY ASYLUM MANIAC SPACE "OPTIONAL" FIX <OR FALSE 'T>)] 0>><SETG DATA-AREAD %<RSUBR-ENTRY '[\ \ F!- DATA-AREAD #DECL ("VALUE" ANY ASYLUM <OR STRING FIX> SPACE "OPTIONAL" FIX <OR 'T FALSE>)] 0>><SETG DATA-RESERVE %<RSUBR-ENTRY '[\ \ F!- DATA-RESERVE #DECL ("VALUE" <OR FALSE FIX> ASYLUM FIX)] 0>><SETG DATA-READW %<RSUBR-ENTRY '[\ \ F!- DATA-READW #DECL ("VALUE" ANY ASYLUM <OR FALSE STRING FIX>)] 0>><SETG DATA-PRINTW %<RSUBR-ENTRY '[\ \ F!- DATA-PRINTW #DECL ("VALUE" <OR FALSE MANIAC> ASYLUM <OR STRING MANIAC FALSE FIX> <PRIMTYPE WORD>)] 0>><SETG DATA-OPEN %<RSUBR-ENTRY '[\ \ F!- DATA-OPEN #DECL ("VALUE" <OR FALSE MANIAC> <OR STRING FIX> ASYLUM <OR FIX STRING>)] 0>><SETG DATA-FIND %<RSUBR-ENTRY '[\ \ F!- DATA-FIND #DECL ("VALUE" ANY ASYLUM FIX "OPTIONAL" <OR 'T FALSE>)] 0>><SETG DATA-PUT %<RSUBR-ENTRY '[\ \ F!- DATA-PUT #DECL ("VALUE" ANY ASYLUM FIX <UVECTOR [4 WORD]>)] 0>><SETG DATA-USE %<RSUBR-ENTRY '[\ \ F!- DATA-USE #DECL ("VALUE" ANY ASYLUM MANIAC)] 0>><SETG DATA-AUTHOR %<RSUBR-ENTRY '[\ \ F!- DATA-AUTHOR #DECL ("VALUE" ANY ASYLUM MANIAC)] 0>><SETG DATA-RDATE %<RSUBR-ENTRY '[\ \ F!- DATA-RDATE #DECL ("VALUE" ANY ASYLUM MANIAC)] 0>><SETG DATA-CDATE %<RSUBR-ENTRY '[\ \ F!- DATA-CDATE #DECL ("VALUE" ANY ASYLUM MANIAC "OPTIONAL" FIX)] 0>><SETG ALLOC-MAP %<RSUBR-ENTRY '[\ \ F!- ALLOC-MAP #DECL ("VALUE" <OR ATOM FALSE ASYLUM> ASYLUM)] 0>><SETG ALLOC-UNLOCK %<RSUBR-ENTRY '[\ \ F!- ALLOC-UNLOCK #DECL ("VALUE" ANY ASYLUM)] 0>><SETG DATA-UNLOCK %<RSUBR-ENTRY '[\ \ F!- DATA-UNLOCK #DECL ("VALUE" ANY ASYLUM <OR FALSE STRING FIX>)] 0>><SETG RESET-DATA-FILE %<RSUBR-ENTRY '[\ \ F!- RESET-DATA-FILE #DECL ("VALUE" <OR ASYLUM FALSE> ASYLUM)] 0>><SETG CLOSE-DATA-FILE %<RSUBR-ENTRY '[\ \ F!- CLOSE-DATA-FILE #DECL ("VALUE" <OR ATOM CHANNEL> ASYLUM)] 0>><SETG FLUSH-DATA-FILE %<RSUBR-ENTRY '[\ \ F!- FLUSH-DATA-FILE #DECL ("VALUE" ASYLUM ASYLUM "OPTIONAL" <OR FALSE 'T>)] 0>><SETG OPEN-DATA-FILE %<RSUBR-ENTRY '[\ \ F!- OPEN-DATA-FILE #DECL ("VALUE" <OR ASYLUM FALSE> STRING "OPTIONAL" <OR ASYLUM FALSE> FIX FIX)] 0>><SETG EXTEND-FILE %<RSUBR-ENTRY '[\ \ F!- EXTEND-FILE #DECL ("VALUE" <OR ASYLUM FALSE> ASYLUM FIX "OPTIONAL" <UVECTOR [REST FIX]>)] 0>><NEWTYPE MANIAC VECTOR'<<PRIMTYPE VECTOR> FIX FIX FIX FIX FIX FIX <OR FIX STRING> FIX>><NEWTYPE ASYLUM VECTOR'<<PRIMTYPE VECTOR> CHANNEL FIX FIX <OR UVECTOR FIX> UVECTOR FIX UVECTOR VECTOR>><MANIFEST NAMDATA PRINTMODE PRINTWMODE READMODE READNRMODE><GDECL (DATA-ERRORS) <VECTOR [REST STRING]> (DATA-NON-FATAL-ERRORS) <UVECTOR [REST FIX]> (DATA-READ-WORD) WORD (DATA-WRITE-WORD) WORD (DATA-AUTHOR-WORD) WORD><ENDPACKAGE><PACKAGE "GEOM"><ENTRY CO-LINEAR? LL-DISTANCE PL-DISTANCE PARALLEL? Y-INTERCEPT SLOPE PP-DISTANCE INTERSECT><SETG CO-LINEAR? %<RSUBR-ENTRY '[\ \ F!- CO-LINEAR? #DECL ("VALUE" <OR ATOM FALSE> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG LL-DISTANCE %<RSUBR-ENTRY '[\ \ F!- LL-DISTANCE #DECL ("VALUE" <OR FLOAT FALSE> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG PL-DISTANCE %<RSUBR-ENTRY '[\ \ F!- PL-DISTANCE #DECL ("VALUE" FLOAT <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG PARALLEL? %<RSUBR-ENTRY '[\ \ F!- PARALLEL? #DECL ("VALUE" <OR ATOM FALSE> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG Y-INTERCEPT %<RSUBR-ENTRY '[\ \ F!- Y-INTERCEPT #DECL ("VALUE" <OR FALSE FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG SLOPE %<RSUBR-ENTRY '[\ \ F!- SLOPE #DECL ("VALUE" <OR FALSE FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG PP-DISTANCE %<RSUBR-ENTRY '[\ \ F!- PP-DISTANCE #DECL ("VALUE" FLOAT <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG INTERSECT %<RSUBR-ENTRY '[\ \ F!- INTERSECT #DECL ("VALUE" <OR FALSE <LIST FLOAT FLOAT>> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><ENDPACKAGE><PACKAGE "HOLIDAY"><ENTRY HOLIDAY><USE "TIMFCN"><NEWTYPE HOLIDAY VECTOR'<<PRIMTYPE VECTOR> STRING HSPEC>><SETG HOLIDAY %<RSUBR-ENTRY '[\ \ F!- HOLIDAY #DECL ("VALUE" <OR FALSE STRING> <LIST [2 LIST]>)] 0>><ENDPACKAGE> <PACKAGE "PVT"><ENTRY PMLNT PMLLN PMLDM PMFLN PMFDM PMWIN PUT-ATT GET-ATT PUT-HLT GET-HLT PUT-BLK GET-BLK PUT-INV GET-INV PUT-UND GET-UND PUT-HLF GET-HLF PUT-FMT GET-FMT PUT-NWL GET-NWL PUT-EOL GET-EOL PUT-COL GET-COL PUT-CAP GET-CAP PUT-ENT GET-ENT PUT-MOD GET-MOD PUT-AEL GET-AEL PUT-DEL GET-DEL PUT-RST GET-RST PUT-UNU GET-UNU PUT-DID GET-DID BLINKING INVERSE-VIDEO UNDERLINED HALF-BRIGHT NEW-LINE-FMT END-OF-LINE-FMT COLUMN-FMT ENTERABLE MODIFIABLE EOL-ALLOWED DELETABLE PWMSZ PWCPS PWCLN PWCOF PWCDM PWSPC PWLDW PWFDW PWMND PWHLT PWFMT PWCAP PDLNT PDFPT PDBPT PDSTR PDWRD OTOGOV OEOLIN ORPSCR ONMARK OPMARK OCMARK OSMARK ODLOBJ ODROBJ OMDOBJ OMUOBJ OMLOBJ OMROBJ ODLPAR ODRPAR OMLPAR OMRPAR ODLWRD ODRWRD OMLWRD OMRWRD ODLLIN ODRLIN OMDLIN OMULIN OMLLIN OMRLIN OMDWIN OMUWIN ORDPAG ORUPAG ORDWIN ORUWIN ODRCHR ODLCHR OMDCUR OMUCUR OMRCUR OMLCUR ETDOM BTDOM EMPWIN EMPDOM SCREEN-MODEL RESTRICTED-SETS PVTOPR WIN-DECL WIN DOM-DECL DOM CONTINUATION INS/OVW? MODSPDOM UNDSPDOM DSPDOM FCPCH DOMLNTH WFBRK PTDOM GTCUR PTCUR STCUR RBELL MOTXT MOHLT MOFMT MOCAP DLDOM APDOM CRDOM RPSCR UMWIN MPWIN CLWIN DLWIN CRWIN STPVT><USE "MADMAN" "SVTA" "SVT"><SETG PMLNT 6><SETG PMLLN 5><SETG PMLDM 4><SETG PMFLN 3><SETG PMFDM 2><SETG PMWIN 1><SETG PUT-ATT #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,ATTWD .NUM>>))><SETG GET-ATT #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,ATTWD> FIX>))><SETG PUT-HLT #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,HLTWD .NUM>>))><SETG GET-HLT #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,HLTWD> FIX>))><SETG PUT-BLK #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,BLKWD .NUM>>))><SETG GET-BLK #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,BLKWD> FIX>))><SETG PUT-INV #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,INVWD .NUM>>))><SETG GET-INV #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,INVWD> FIX>))><SETG PUT-UND #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,UNDWD .NUM>>))><SETG GET-UND #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,UNDWD> FIX>))><SETG PUT-HLF #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,HLFWD .NUM>>))><SETG GET-HLF #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,HLFWD> FIX>))><SETG PUT-FMT #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,FMTWD .NUM>>))><SETG GET-FMT #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,FMTWD> FIX>))><SETG PUT-NWL #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,NWLWD .NUM>>))><SETG GET-NWL #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,NWLWD> FIX>))><SETG PUT-EOL #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,EOLWD .NUM>>))><SETG GET-EOL #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,EOLWD> FIX>))><SETG PUT-COL #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,COLWD .NUM>>))><SETG GET-COL #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,COLWD> FIX>))><SETG PUT-CAP #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,CAPWD .NUM>>))><SETG GET-CAP #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,CAPWD> FIX>))><SETG PUT-ENT #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,ENTWD .NUM>>))><SETG GET-ENT #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,ENTWD> FIX>))><SETG PUT-MOD #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,MODWD .NUM>>))><SETG GET-MOD #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,MODWD> FIX>))><SETG PUT-AEL #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,AELWD .NUM>>))><SETG GET-AEL #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,AELWD> FIX>))><SETG PUT-DEL #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,DELWD .NUM>>))><SETG GET-DEL #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,DELWD> FIX>))><SETG PUT-RST #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,RSTWD .NUM>>))><SETG GET-RST #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,RSTWD> FIX>))><SETG PUT-UNU #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,UNUWD .NUM>>))><SETG GET-UNU #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,UNUWD> FIX>))><SETG PUT-DID #MACRO (#FUNCTION (('DOM 'NUM) <FORM PUT .DOM ',PDWRD <FORM PUTBITS <FORM PDWRD .DOM> ,DIDWD .NUM>>))><SETG GET-DID #MACRO (#FUNCTION (('DOM) <FORM CHTYPE <FORM GETBITS <FORM PDWRD .DOM> ,DIDWD> FIX>))><SETG BLINKING 1><SETG INVERSE-VIDEO 2><SETG UNDERLINED 4><SETG HALF-BRIGHT 8><SETG NEW-LINE-FMT 1><SETG END-OF-LINE-FMT 2><SETG COLUMN-FMT 4><SETG ENTERABLE 1><SETG MODIFIABLE 2><SETG EOL-ALLOWED 4><SETG PWMSZ 12><SETG PWCPS 11><SETG PWCLN 10><SETG PWCOF 9><SETG PWCDM 8><SETG PWSPC 7><SETG PWLDW 6><SETG PWFDW 5><SETG PWMND 4><SETG PWHLT 3><SETG PWFMT 2><SETG PWCAP 1><SETG PDLNT 5><SETG PDFPT 4><SETG PDBPT 3><SETG PDSTR 2><SETG PDWRD 1><SETG OTOGOV #PVTOPR *000000000047*><SETG OEOLIN #PVTOPR *000000000046*><SETG ORPSCR #PVTOPR *000000000045*><SETG ONMARK #PVTOPR *000000000044*><SETG OPMARK #PVTOPR *000000000043*><SETG OCMARK #PVTOPR *000000000042*><SETG OSMARK #PVTOPR *000000000041*><SETG ODLOBJ #PVTOPR *000000000040*><SETG ODROBJ #PVTOPR *000000000037*><SETG OMDOBJ #PVTOPR *000000000036*><SETG OMUOBJ #PVTOPR *000000000035*><SETG OMLOBJ #PVTOPR *000000000034*><SETG OMROBJ #PVTOPR *000000000033*><SETG ODLPAR #PVTOPR *000000000032*><SETG ODRPAR #PVTOPR *000000000031*><SETG OMLPAR #PVTOPR *000000000030*><SETG OMRPAR #PVTOPR *000000000027*><SETG ODLWRD #PVTOPR *000000000026*><SETG ODRWRD #PVTOPR *000000000025*><SETG OMLWRD #PVTOPR *000000000024*><SETG OMRWRD #PVTOPR *000000000023*><SETG ODLLIN #PVTOPR *000000000022*><SETG ODRLIN #PVTOPR *000000000021*><SETG OMDLIN #PVTOPR *000000000020*><SETG OMULIN #PVTOPR *000000000017*><SETG OMLLIN #PVTOPR *000000000016*><SETG OMRLIN #PVTOPR *000000000015*><SETG OMDWIN #PVTOPR *000000000014*><SETG OMUWIN #PVTOPR *000000000013*><SETG ORDPAG #PVTOPR *000000000012*><SETG ORUPAG #PVTOPR *000000000011*><SETG ORDWIN #PVTOPR *000000000010*><SETG ORUWIN #PVTOPR *000000000007*><SETG ODRCHR #PVTOPR *000000000006*><SETG ODLCHR #PVTOPR *000000000005*><SETG OMDCUR #PVTOPR *000000000004*><SETG OMUCUR #PVTOPR *000000000003*><SETG OMRCUR #PVTOPR *000000000002*><SETG OMLCUR #PVTOPR *000000000001*><NEWTYPE PVTOPR WORD'<PRIMTYPE WORD>><PUT WIN DECL <VECTOR FIX FIX FIX FIX <OR DOM FALSE> <OR DOM FALSE> <OR SPACE FIX FALSE> <OR DOM FALSE> FIX <OR FIX FLOAT FALSE> FIX FIX>><PUT DOM DECL <VECTOR <PRIMTYPE WORD> STRING <OR VECTOR FALSE> <OR VECTOR FALSE> [REST FIX]>><SETG UNDSPDOM %<RSUBR-ENTRY '[\ \ F!- UNDSPDOM #DECL ("VALUE" WIN WIN DOM DOM)] 0>><SETG DSPDOM %<RSUBR-ENTRY '[\ \ F!- DSPDOM #DECL ("VALUE" WIN WIN DOM DOM)] 0>><SETG DOMLNTH %<RSUBR-ENTRY '[\ \ F!- DOMLNTH #DECL ("VALUE" FIX DOM)] 0>><SETG WFBRK %<RSUBR-ENTRY '[\ \ F!- WFBRK #DECL ("VALUE" ANY "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG PTDOM %<RSUBR-ENTRY '[\ \ F!- PTDOM #DECL ("VALUE" <OR ATOM FALSE> WIN DOM FIX FIX "OPTIONAL" <OR MAPVCT FALSE>)] 0>><SETG GTCUR %<RSUBR-ENTRY '[\ \ F!- GTCUR #DECL ("VALUE" <OR FALSE <VECTOR <VECTOR [4 FIX] [2 <OR FALSE <VECTOR <PRIMTYPE WORD> STRING [2 <OR VECTOR FALSE>] [REST FIX]>>] <OR FALSE FIX SPACE> <VECTOR <PRIMTYPE WORD> STRING [2 <OR VECTOR FALSE>] [REST FIX]> FIX <OR FIX FLOAT FALSE> [2 FIX]> <VECTOR <PRIMTYPE WORD> STRING [2 <OR VECTOR FALSE>] [REST FIX]> [2 FIX]>>)] 0>><SETG PTCUR %<RSUBR-ENTRY '[\ \ F!- PTCUR #DECL ("VALUE" <OR FALSE <VECTOR [4 FIX] [2 <OR DOM FALSE>] <OR SPACE FIX FALSE> <OR DOM FALSE> FIX <OR FIX FLOAT FALSE> [2 FIX]>> WIN DOM FIX FIX <OR ATOM FALSE> "OPTIONAL" <OR MAPVCT FALSE>)] 0>><SETG STCUR %<RSUBR-ENTRY '[\ \ F!- STCUR #DECL ("VALUE" <OR FALSE <VECTOR [4 FIX] [2 <OR DOM FALSE>] <OR SPACE FIX FALSE> <OR DOM FALSE> FIX <OR FIX FLOAT FALSE> [2 FIX]>> WIN DOM FIX <OR FIX FLOAT FALSE> <OR ATOM FALSE>)] 0>><SETG RBELL %<RSUBR-ENTRY '[\ \ F!- RBELL #DECL ("VALUE" <OR CHANNEL FALSE FIX>)] 0>><SETG MOTXT %<RSUBR-ENTRY '[\ \ F!- MOTXT #DECL ("VALUE" DOM WIN DOM STRING "OPTIONAL" FIX)] 0>><SETG MOHLT %<RSUBR-ENTRY '[\ \ F!- MOHLT #DECL ("VALUE" DOM WIN DOM FIX)] 0>><SETG MOFMT %<RSUBR-ENTRY '[\ \ F!- MOFMT #DECL ("VALUE" DOM WIN DOM FIX)] 0>><SETG MOCAP %<RSUBR-ENTRY '[\ \ F!- MOCAP #DECL ("VALUE" DOM WIN DOM FIX)] 0>><SETG DLDOM %<RSUBR-ENTRY '[\ \ F!- DLDOM #DECL ("VALUE" WIN WIN DOM "OPTIONAL" DOM <OR ATOM FALSE>)] 0>><SETG APDOM %<RSUBR-ENTRY '[\ \ F!- APDOM #DECL ("VALUE" <VECTOR FIX FIX FIX FIX <OR DOM FALSE> <OR DOM FALSE> <OR SPACE FIX FALSE> <OR DOM FALSE> FIX <OR FIX FLOAT FALSE> FIX FIX> WIN DOM DOM)] 0>><SETG CRDOM %<RSUBR-ENTRY '[\ \ F!- CRDOM #DECL ("VALUE" <VECTOR <PRIMTYPE WORD> STRING [2 <OR VECTOR FALSE>] [REST FIX]> WIN STRING <OR DOM FALSE> <OR DOM FALSE> "OPTIONAL" <OR ATOM FALSE> FIX FIX FIX FIX FIX)] 0>><SETG RPSCR %<RSUBR-ENTRY '[\ \ F!- RPSCR #DECL ("VALUE" ATOM)] 0>><SETG UMWIN %<RSUBR-ENTRY '[\ \ F!- UMWIN #DECL ("VALUE" <VECTOR [4 FIX] [2 <OR DOM FALSE>] <OR SPACE FIX FALSE> <OR DOM FALSE> FIX <OR FIX FLOAT FALSE> [2 FIX]> WIN)] 0>><SETG MPWIN %<RSUBR-ENTRY '[\ \ F!- MPWIN #DECL ("VALUE" WIN WIN FIX FIX)] 0>><SETG CLWIN %<RSUBR-ENTRY '[\ \ F!- CLWIN #DECL ("VALUE" <VECTOR [4 FIX] [2 FALSE] <OR SPACE FIX FALSE> FALSE FIX <OR FIX FLOAT FALSE> [2 FIX]> WIN "OPTIONAL" <OR SPACE FIX FALSE>)] 0>><SETG DLWIN %<RSUBR-ENTRY '[\ \ F!- DLWIN #DECL ("VALUE" ATOM WIN)] 0>><SETG CRWIN %<RSUBR-ENTRY '[\ \ F!- CRWIN #DECL ("VALUE" <VECTOR [4 FIX] [2 <OR DOM FALSE>] <OR SPACE FIX FALSE> <OR DOM FALSE> FIX <OR FIX FLOAT> [2 FIX]> FIX FIX FIX FIX <OR SPACE ANY FALSE> <OR FIX FLOAT> FIX)] 0>><SETG STPVT %<RSUBR-ENTRY '[\ \ F!- STPVT #DECL ("VALUE" <OR ATOM FALSE> "OPTIONAL" <OR FIX FALSE>)] 0>><SETG DIDWD #BITS *222200000000*><SETG UNUWD #BITS *160400000000*><SETG RSTWD #BITS *130300000000*><SETG DELWD #BITS *120100000000*><SETG AELWD #BITS *110100000000*><SETG MODWD #BITS *100100000000*><SETG ENTWD #BITS *070100000000*><SETG CAPWD #BITS *070400000000*><SETG COLWD #BITS *060100000000*><SETG EOLWD #BITS *050100000000*><SETG NWLWD #BITS *040100000000*><SETG FMTWD #BITS *040300000000*><SETG HLFWD #BITS *030100000000*><SETG UNDWD #BITS *020100000000*><SETG INVWD #BITS *010100000000*><SETG BLKWD #BITS *000100000000*><SETG HLTWD #BITS *000400000000*><SETG ATTWD #BITS *002200000000*><MANIFEST ATTWD HLTWD BLKWD INVWD UNDWD HLFWD FMTWD NWLWD COLWD CAPWD ENTWD MODWD AELWD DELWD RSTWD UNUWD DIDWD OMLCUR OMRCUR OMUCUR OMDCUR ODLCHR ODRCHR ORUWIN ORDWIN ORUPAG ORDPAG OMUWIN OMDWIN OMRLIN OMLLIN OMULIN OMDLIN ODRLIN ODLLIN OMRWRD OMLWRD ODRWRD ODLWRD OMRPAR OMLPAR ODRPAR ODLPAR OMROBJ OMLOBJ OMUOBJ OMDOBJ ODROBJ ODLOBJ OSMARK OCMARK OPMARK ONMARK ORPSCR OEOLIN OTOGOV PDWRD PDSTR PDBPT PDFPT PDLNT PWCAP PWFMT PWHLT PWMND PWFDW PWLDW PWSPC PWCDM PWCOF PWCLN PWCPS PWMSZ EOL-ALLOWED MODIFIABLE ENTERABLE COLUMN-FMT END-OF-LINE-FMT NEW-LINE-FMT HALF-BRIGHT UNDERLINED INVERSE-VIDEO BLINKING PMWIN PMFDM PMFLN PMLDM PMLLN PMLNT><GDECL (INS/OVW?) <OR ATOM FALSE> (CONTINUATION) <STRING [1 CHARACTER]> (DOM-DECL) FORM (WIN-DECL) FORM (RESTRICTED-SETS) <VECTOR [REST <OR STRING FALSE>]> (SCREEN-MODEL) <VECTOR [REST MAP]> (EMPDOM) DOM (EMPWIN) WIN (BTDOM) <OR DOM FALSE> (ETDOM) <OR DOM FALSE>><ENDPACKAGE> <PACKAGE "MIGSMN"><ENTRY TENEX POLRP PARAG MIJPL M3D FNCTG SFXYP M3DSK DSKIMAGE CIRCLE ELIPSE PLOTV3D POINT3D DRAW3D MOVE3D LINE3D SETPROJ PROJ><USE "MAPRIM" "DISPLA" "SMCELLS"><SETG POLRP %<RSUBR-ENTRY '[\ \ F!- POLRP #DECL ("VALUE" <LIST STRING <OR FIX FLOAT> STRING <OR FIX FLOAT> STRING <OR FIX FLOAT> STRING <OR FIX FLOAT>> <OR FIX FLOAT> <OR FIX FLOAT> ATOM "OPTIONAL" FIX STRING <LIST [REST <OR FIX FLOAT>]> <LIST [REST <OR FIX FLOAT>]>)] 0>><SETG PARAG %<RSUBR-ENTRY '[\ \ F!- PARAG #DECL ("VALUE" <LIST STRING <OR FIX FLOAT> STRING <OR FIX FLOAT> STRING <OR FIX FLOAT> STRING <OR FIX FLOAT> STRING <OR FIX FLOAT> STRING <OR FIX FLOAT> STRING <LIST [2 <OR FIX FLOAT>]> STRING <LIST [2 <OR FIX FLOAT>]>> <OR FIX FLOAT> <OR FIX FLOAT> ATOM ATOM "OPTIONAL" FIX STRING <LIST [2 <OR FIX FLOAT>]> <LIST [2 <OR FIX FLOAT>]>)] 0>><SETG MIJPL %<RSUBR-ENTRY '[\ \ F!- MIJPL #DECL ("VALUE" ANY <VECTOR [REST <VECTOR [REST <OR FIX FLOAT>]>]> "OPTIONAL" <OR ATOM FALSE> STRING)] 0>><SETG M3D %<RSUBR-ENTRY '[\ \ F!- M3D #DECL ("VALUE" ANY <VECTOR [REST <VECTOR [REST FIX]>]>)] 0>><SETG FNCTG %<RSUBR-ENTRY '[\ \ F!- FNCTG #DECL ("VALUE" <LIST STRING FLOAT STRING FLOAT STRING FLOAT STRING FLOAT STRING <LIST [2 FLOAT]>> <OR FIX FLOAT> <OR FIX FLOAT> <OR FUNCTION SUBR RSUBR FSUBR> "OPTIONAL" <LIST [2 <OR FIX FLOAT>]> <LIST [2 <OR FIX FLOAT>]> FIX)] 0>><SETG SFXYP %<RSUBR-ENTRY '[\ \ F!- SFXYP #DECL ("VALUE" ANY <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> ATOM "OPTIONAL" <LIST [REST <OR FIX FLOAT>]> FIX <OR ATOM FALSE> STRING)] 0>><SETG M3DSK %<RSUBR-ENTRY '[\ \ F!- M3DSK #DECL ("VALUE" STRING <VECTOR [REST <VECTOR [REST FIX]>]> "OPTIONAL" STRING)] 0>><SETG DSKIMAGE %<RSUBR-ENTRY '[\ \ F!- DSKIMAGE #DECL ("VALUE" <OR ATOM FALSE> "OPTIONAL" STRING)] 0>><SETG CIRCLE %<RSUBR-ENTRY '[\ \ F!- CIRCLE #DECL ("VALUE" ATOM FIX FIX FIX FIX)] 0>><SETG ELIPSE %<RSUBR-ENTRY '[\ \ F!- ELIPSE #DECL ("VALUE" ATOM FIX FIX FIX FIX FIX)] 0>><SETG PLOTV3D %<RSUBR-ENTRY '[\ \ F!- PLOTV3D #DECL ("VALUE" ATOM <OR LIST VECTOR UVECTOR> <OR LIST VECTOR UVECTOR> <OR LIST VECTOR UVECTOR>)] 0>><SETG POINT3D %<RSUBR-ENTRY '[\ \ F!- POINT3D #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG DRAW3D %<RSUBR-ENTRY '[\ \ F!- DRAW3D #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG MOVE3D %<RSUBR-ENTRY '[\ \ F!- MOVE3D #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG LINE3D %<RSUBR-ENTRY '[\ \ F!- LINE3D #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG SETPROJ %<RSUBR-ENTRY '[\ \ F!- SETPROJ #DECL ("VALUE" <LIST [REST FLOAT]> "OPTIONAL" <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG PROJ %<RSUBR-ENTRY '[\ \ F!- PROJ #DECL ("VALUE" <LIST FIX FIX> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" FLOAT)] 0>><ENDPACKAGE><PACKAGE "IRSGRF"><ENTRY IRSDISTGRF><USE "UGRF"><SETG IRSDISTGRF %<RSUBR-ENTRY '[\ \ F!- IRSDISTGRF #DECL ("VALUE" ANY <LIST <LIST [REST STRING FIX]> FIX> "OPTIONAL" ANY)] 0>><ENDPACKAGE> <PACKAGE "RJSCHN"><ENTRY CLOSE-CHAN GET-CHAN><USE "FTPUSR" "MISC01" "RJSDAT" "RJSUTI"><SETG CLOSE-CHAN %<RSUBR-ENTRY '[\ \ F!- CLOSE-CHAN #DECL ("VALUE" <OR CHANNEL FALSE LIST> CHANNEL)] 0>><SETG GET-CHAN %<RSUBR-ENTRY '[\ \ F!- GET-CHAN #DECL ("VALUE" ANY ANY <OR ATOM FALSE>)] 0>><ENDPACKAGE> <PACKAGE "PAGES"><RENTRY PAGE-GIVE PAGE-FIND CORE-BLOCK><SETG PAGE-GIVE %<RSUBR-ENTRY '[\ \ F!- PAGE-GIVE #DECL ("VALUE" FIX FIX "OPTIONAL" FIX)] 0>><SETG PAGE-FIND %<RSUBR-ENTRY '[\ \ F!- PAGE-FIND #DECL ("VALUE" <OR FIX FALSE> "OPTIONAL" FIX)] 0>><SETG CORE-BLOCK %<RSUBR-ENTRY '[\ \ F!- CORE-BLOCK #DECL ("VALUE" <OR FIX FALSE> <PRIMTYPE WORD> FIX FIX FIX FIX)] 0>><ENDPACKAGE><RPACKAGE "DDT"><ENTRY XJNAME XUNAME SETFNM GETFNM DDT?><SETG XJNAME %<RSUBR-ENTRY '[\ \ F!- XJNAME #DECL ("VALUE" STRING)] 0>><SETG XUNAME %<RSUBR-ENTRY '[\ \ F!- XUNAME #DECL ("VALUE" STRING)] 0>><SETG SETFNM %<RSUBR-ENTRY '[\ \ F!- SETFNM #DECL ("VALUE" <VECTOR [4 STRING]> <VECTOR [4 STRING]>)] 0>><SETG GETFNM %<RSUBR-ENTRY '[\ \ F!- GETFNM #DECL ("VALUE" <VECTOR [4 STRING]>)] 0>><SETG DDT? %<RSUBR-ENTRY '[\ \ F!- DDT? #DECL ("VALUE" <OR 'T FALSE>)] 0>><ENDPACKAGE> <PACKAGE "MNEME"><ENTRY HASH-OWT-INST HASH-OWT-ATOM PARTIAL-PAGE-IN-CHK IHT STORPLUS1 STORNXT MNEME-READ STORSIZ STOR IUBKT MNEME-LENGTH MNUM-ATOM TRANSFINDOBJ TRANSFINDVAL TRANSCHK MNEME-TYPE? NEW-USES RECLAIM-MIN FINDOBJS MNEME-CLOSE MNEME-ATOM GROUP-PAGE-OUT FINDUSES HASH-ATOM MNEME-PAGE-OUT MNEME-INSTANCE FINDUSE FINDS FIND MNEME-TO-MUDDLE MNEME-EXIST? FINDOBJ COLON-CHK SHASH MNEME-VERSION MNEME-COMP FINDVALS UV-ZAP STR-TO-NUM MNEME-VERBOSE MNEME-EXIST FINDVAL NREVERSE OWT MNEME-NTH MNEME-LIST STR-TO-FIX DHT LIST-MNEME-EXIST SUPERFIND MNEMECHN STORALLOC MNUM-EXIST MNEME-INIT><USE "PIO"><SETG HASH-OWT-INST %<RSUBR-ENTRY '[\ \ F!- HASH-OWT-INST #DECL ("VALUE" FIX OWT FIX OWT)] 0>><SETG HASH-OWT-ATOM %<RSUBR-ENTRY '[\ \ F!- HASH-OWT-ATOM #DECL ("VALUE" FIX OWT FIX)] 0>><SETG PARTIAL-PAGE-IN-CHK %<RSUBR-ENTRY '[\ \ F!- PARTIAL-PAGE-IN-CHK #DECL ("VALUE" FIX <OR OWT FIX>)] 0>><SETG MNEME-READ %<RSUBR-ENTRY '[\ \ F!- MNEME-READ #DECL ("VALUE" <OR FIX UVECTOR> <OR <UVECTOR FIX> FIX FALSE WORD> <OR FIX OWT WORD>)] 0>><SETG IUBKT %<RSUBR-ENTRY '[\ \ F!- IUBKT #DECL ("VALUE" <UVECTOR FIX [REST FIX]> FIX)] 0>><SETG MNEME-LENGTH %<RSUBR-ENTRY '[\ \ F!- MNEME-LENGTH #DECL ("VALUE" FIX OWT)] 0>><SETG MNUM-ATOM %<RSUBR-ENTRY '[\ \ F!- MNUM-ATOM #DECL ("VALUE" <OR ATOM STRING> FIX "OPTIONAL" <OR FALSE 'T>)] 0>><SETG TRANSFINDOBJ %<RSUBR-ENTRY '[\ \ F!- TRANSFINDOBJ #DECL ("VALUE" <OR FALSE FIX OWT> <OR FALSE FIX OWT> OWT OWT)] 0>><SETG TRANSFINDVAL %<RSUBR-ENTRY '[\ \ F!- TRANSFINDVAL #DECL ("VALUE" <OR FALSE FIX OWT> <OR FALSE FIX OWT> OWT OWT)] 0>><SETG TRANSCHK %<RSUBR-ENTRY '[\ \ F!- TRANSCHK #DECL ("VALUE" <OR ATOM FALSE OWT> OWT OWT OWT)] 0>><SETG MNEME-TYPE? %<RSUBR-ENTRY '[\ \ F!- MNEME-TYPE? #DECL ("VALUE" <OR ATOM FALSE> OWT "TUPLE" ANY)] 0>><SETG FINDOBJS %<RSUBR-ENTRY '[\ \ F!- FINDOBJS #DECL ("VALUE" <OR FALSE FIX LIST OWT> <OR OWT ATOM STRING> <OR OWT ATOM STRING>)] 0>><SETG MNEME-CLOSE %<RSUBR-ENTRY '[\ \ F!- MNEME-CLOSE #DECL ("VALUE" <OR STRING <FALSE STRING [REST STRING]>> "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG GROUP-PAGE-OUT %<RSUBR-ENTRY '[\ \ F!- GROUP-PAGE-OUT #DECL ("VALUE" FALSE)] 0>><SETG FINDUSES %<RSUBR-ENTRY '[\ \ F!- FINDUSES #DECL ("VALUE" <OR FALSE FIX LIST OWT> <OR OWT ATOM STRING>)] 0>><SETG HASH-ATOM %<RSUBR-ENTRY '[\ \ F!- HASH-ATOM #DECL ("VALUE" FIX <OR ATOM STRING> FIX)] 0>><NEWTYPE MNEME-INSTANCE LIST'<LIST <LIST ANY> ANY>><SETG FINDUSE %<RSUBR-ENTRY '[\ \ F!- FINDUSE #DECL ("VALUE" <OR FALSE FIX LIST OWT> <OR OWT ATOM STRING>)] 0>><SETG FINDS %<RSUBR-ENTRY '[\ \ F!- FINDS #DECL ("VALUE" <OR FALSE FIX LIST OWT> <OR OWT ATOM STRING> <OR OWT ATOM STRING>)] 0>><SETG FIND %<RSUBR-ENTRY '[\ \ F!- FIND #DECL ("VALUE" <OR FALSE FIX LIST OWT> <OR OWT ATOM STRING> <OR OWT ATOM STRING>)] 0>><SETG MNEME-TO-MUDDLE %<RSUBR-ENTRY '[\ \ F!- MNEME-TO-MUDDLE #DECL ("VALUE" <OR FIX STRING <LIST [REST <PRIMTYPE WORD>]>> OWT "OPTIONAL" <OR STRING FIX <LIST [REST <OR FIX OWT>]>>)] 0>><SETG MNEME-EXIST? %<RSUBR-ENTRY '[\ \ F!- MNEME-EXIST? #DECL ("VALUE" <OR FALSE OWT> <OR ATOM LIST STRING FIX>)] 0>><SETG FINDOBJ %<RSUBR-ENTRY '[\ \ F!- FINDOBJ #DECL ("VALUE" <OR FALSE FIX LIST OWT> <OR OWT ATOM STRING> <OR OWT ATOM STRING>)] 0>><SETG COLON-CHK %<RSUBR-ENTRY '[\ \ F!- COLON-CHK #DECL ("VALUE" <OR FALSE FIX> ATOM)] 0>><SETG SHASH %<RSUBR-ENTRY '[\ \ F!- SHASH #DECL ("VALUE" FIX <OR LIST MNEME-INSTANCE>)] 0>><SETG MNEME-COMP %<RSUBR-ENTRY '[\ \ F!- MNEME-COMP #DECL ("VALUE" <OR ATOM FALSE> OWT <OR ATOM STRING>)] 0>><SETG FINDVALS %<RSUBR-ENTRY '[\ \ F!- FINDVALS #DECL ("VALUE" <OR FALSE FIX LIST OWT> <OR OWT ATOM STRING> <OR OWT ATOM STRING>)] 0>><SETG UV-ZAP %<RSUBR-ENTRY '[\ \ F!- UV-ZAP #DECL ("VALUE" <PRIMTYPE UVECTOR> <PRIMTYPE UVECTOR>)] 0>><SETG STR-TO-NUM %<RSUBR-ENTRY '[\ \ F!- STR-TO-NUM #DECL ("VALUE" <OR FALSE FIX> STRING)] 0>><SETG MNEME-EXIST %<RSUBR-ENTRY '[\ \ F!- MNEME-EXIST #DECL ("VALUE" <OR FALSE OWT> <OR ATOM STRING>)] 0>><SETG FINDVAL %<RSUBR-ENTRY '[\ \ F!- FINDVAL #DECL ("VALUE" <OR FALSE FIX LIST OWT> <OR OWT ATOM STRING> <OR OWT ATOM STRING>)] 0>><SETG NREVERSE %<RSUBR-ENTRY '[\ \ F!- NREVERSE #DECL ("VALUE" <PRIMTYPE LIST> <PRIMTYPE LIST>)] 0>><NEWTYPE OWT WORD><SETG MNEME-NTH %<RSUBR-ENTRY '[\ \ F!- MNEME-NTH #DECL ("VALUE" <OR FIX OWT> OWT "OPTIONAL" FIX)] 0>><SETG STR-TO-FIX %<RSUBR-ENTRY '[\ \ F!- STR-TO-FIX #DECL ("VALUE" FIX STRING)] 0>><SETG LIST-MNEME-EXIST %<RSUBR-ENTRY '[\ \ F!- LIST-MNEME-EXIST #DECL ("VALUE" <OR FALSE OWT> LIST)] 0>><SETG SUPERFIND %<RSUBR-ENTRY '[\ \ F!- SUPERFIND #DECL ("VALUE" <OR FALSE FIX LIST OWT> <OR OWT ATOM FALSE FIX STRING> "OPTIONAL" <OR CHARACTER FIX> <OR OWT ATOM FALSE FIX STRING> <OR CHARACTER FIX> <OR FIX CHARACTER> <OR FALSE FIX CHARACTER>)] 0>><SETG STORALLOC %<RSUBR-ENTRY '[\ \ F!- STORALLOC #DECL ("VALUE" FIX "TUPLE" ANY)] 0>><SETG MNUM-EXIST %<RSUBR-ENTRY '[\ \ F!- MNUM-EXIST #DECL ("VALUE" <OR FALSE OWT> FIX)] 0>><SETG MNEME-INIT %<RSUBR-ENTRY '[\ \ F!- MNEME-INIT #DECL ("VALUE" <VECTOR STRING STRING FIX> "OPTIONAL" STRING STRING FIX <OR FIX FALSE>)] 0>><GDECL (MNEMECHN) CHANP (DHT) <VECTOR STRING STRING FIX> (MNEME-VERBOSE) <OR FALSE ATOM> (MNEME-PAGE-OUT) APPLICABLE (STOR) <UVECTOR [REST FIX]> (STORSIZ) FIX (STORNXT) FIX (STORPLUS1) <UVECTOR [REST FIX]> (IHT) <UVECTOR [1536 FIX] [REST FIX]>><ENDPACKAGE> <PACKAGE "MPARSE"><ENTRY MPARSE-FIELD-TABLE MAIL-RTEXT MAIL-QFPARSE MAIL-FPARSE MAIL-PARSE MPARSE-GRP><USE "TIMFCN" "STR" "VCTMAN"><SETG MAIL-RTEXT %<RSUBR-ENTRY '[\ \ F!- MAIL-RTEXT #DECL ("VALUE" <OR FALSE STRING> CHANNEL FIX FIX)] 0>><SETG MAIL-QFPARSE %<RSUBR-ENTRY '[\ \ F!- MAIL-QFPARSE #DECL ("VALUE" <OR FALSE <LIST [REST STRING ANY]>> CHANNEL STRING)] 0>><SETG MAIL-FPARSE %<RSUBR-ENTRY '[\ \ F!- MAIL-FPARSE #DECL ("VALUE" <OR FALSE STRING> CHANNEL)] 0>><SETG MAIL-PARSE %<RSUBR-ENTRY '[\ \ F!- MAIL-PARSE #DECL ("VALUE" <LIST [REST STRING ANY]> STRING "OPTIONAL" <LIST [REST STRING ANY]> <VECTOR [REST STRING <VECTOR STRING <OR FUNCTION RSUBR>>]> ANY)] 0>><ENDPACKAGE> <PACKAGE "SUBSYS"><ENTRY HERALD SAVE-ME><ENDPACKAGE> <PACKAGE "LSRTNS"><ENTRY $MACH $ALTR $NETA $REM $BRTH $REL $GRP $AUTH $DIR $PROJ $SUPR $HOMT $HOMA $MITT $MITA $SSN $NICK $NAME $UNAM LSR-EXTRACT LSR-ENTRY LAST-NAME FIELD LSR-INIT LSR-FLUSH><SETG $MACH 18><SETG $ALTR 17><SETG $NETA 16><SETG $REM 15><SETG $BRTH 14><SETG $REL 13><SETG $GRP 12><SETG $AUTH 11><SETG $DIR 10><SETG $PROJ 9><SETG $SUPR 8><SETG $HOMT 7><SETG $HOMA 6><SETG $MITT 5><SETG $MITA 4><SETG $SSN 3><SETG $NICK 2><SETG $NAME 1><SETG $UNAM 0><SETG LSR-EXTRACT %<RSUBR-ENTRY '[\ \ F!- LSR-EXTRACT #DECL ("VALUE" <OR FALSE STRING> <OR FALSE STRING> FIX)] 0>><SETG LSR-ENTRY %<RSUBR-ENTRY '[\ \ F!- LSR-ENTRY #DECL ("VALUE" <OR FALSE STRING> <OR STRING <PRIMTYPE WORD>> "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG LAST-NAME %<RSUBR-ENTRY '[\ \ F!- LAST-NAME #DECL ("VALUE" <OR FALSE <VECTOR [REST STRING]>> STRING "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG FIELD %<RSUBR-ENTRY '[\ \ F!- FIELD #DECL ("VALUE" <OR FALSE STRING> <OR STRING <PRIMTYPE WORD>> FIX "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG LSR-INIT %<RSUBR-ENTRY '[\ \ F!- LSR-INIT #DECL ("VALUE" <OR CHANNEL FALSE>)] 0>><SETG LSR-FLUSH %<RSUBR-ENTRY '[\ \ F!- LSR-FLUSH #DECL ("VALUE" ATOM)] 0>><MANIFEST $UNAM $NAME $NICK $SSN $MITA $MITT $HOMA $HOMT $SUPR $PROJ $DIR $AUTH $GRP $REL $BRTH $REM $NETA $ALTR $MACH><ENDPACKAGE> <PACKAGE "B-OBJECT"><ENTRY STRING-FILE MAX-STRING REFILL-BUFFER EXTRACT-ITEM><USE "MSDTP"><SETG EXTRACT-ITEM %<RSUBR-ENTRY '[\ \ F!- EXTRACT-ITEM #DECL ("VALUE" ANY STRING "OPTIONAL" <OR 'T FALSE>)] 0>><ENDPACKAGE> <PACKAGE "VSORT"><ENTRY VSORT><SETG VSORT %<RSUBR-ENTRY '[\ \ F!- VSORT #DECL ("VALUE" <PRIMTYPE VECTOR> <OR FALSE APPLICABLE> <PRIMTYPE VECTOR> "OPTIONAL" FIX FIX "TUPLE" <TUPLE [REST <PRIMTYPE VECTOR>]>)] 0>><ENDPACKAGE> <PACKAGE "L-M"><ENTRY L-M-TRANSLATE-FILE><SETG L-M-TRANSLATE-FILE %<RSUBR-ENTRY '[\ \ F!- L-M-TRANSLATE-FILE #DECL ("VALUE" STRING STRING "OPTIONAL" STRING STRING)] 0>><ENDPACKAGE><PACKAGE "RFC713"><ENTRY NETLOSS NETIN-ITEM NETOUT-ITEM CLOSE-RFC713 RECEIVE-RFC713 SEND-RFC713><USE "MSDTP" "P-ITEM" "B-OBJECT" "NETICP"><NEWTYPE NETLOSS LIST'<<PRIMTYPE LIST> STRING <UVECTOR [3 FIX]>>><SETG NETIN-ITEM %<RSUBR-ENTRY '[\ \ F!- NETIN-ITEM #DECL ("VALUE" ANY)] 0>><SETG NETOUT-ITEM %<RSUBR-ENTRY '[\ \ F!- NETOUT-ITEM #DECL ("VALUE" <OR CHANNEL NETLOSS> ANY)] 0>><SETG CLOSE-RFC713 %<RSUBR-ENTRY '[\ \ F!- CLOSE-RFC713 #DECL ("VALUE" ATOM)] 0>><SETG RECEIVE-RFC713 %<RSUBR-ENTRY '[\ \ F!- RECEIVE-RFC713 #DECL ("VALUE" <OR ATOM FALSE> "OPTIONAL" FIX)] 0>><SETG SEND-RFC713 %<RSUBR-ENTRY '[\ \ F!- SEND-RFC713 #DECL ("VALUE" <OR ATOM FALSE> FIX "OPTIONAL" FIX)] 0>><ENDPACKAGE> <PACKAGE "IRSBAS"><ENTRY IRVIUACTF IRVISYMF IRVILSTF IRVISIZF IRVIMAPF IRVIREMF IRVIDELF IRVIPUTF IRVIRETF IRVIDCTF IRVIACTF IRVIACTS IRVILNT IRFSIZE IRFSINV IRFDATA IRFSECT IRFILINK IRFLINK IRFTEXT IRFSUP IRFITIME IRFTIME IRFIDATE IRFDATE IRFINUM IRFNUM IRFWINV IRFINV IRFNAME IRVDUAF IRVDMAPF IRVDSZF IRVDRF IRVDSF IRVDIVF IRVDVF IRVDNF IRVDIF IRVDDF IRVDAF IRVDAS IRVDAR IRVDLNT IRVOBJVLNT IRVDISTLST IRVOBJVCT IRVCHNLST IRVLCKC IRVLCKF IRVBASEF IRVPPROC IRVSTBL IRVSDTBL IRVSHST IRVSLNT IRVSDSC IRVTOFS IRVTREE IRVITBL IRVFTBL IRVUSTMP IRVUTMP IRVUNAM IRVDTMP IRVPSIZ IRVPTMP IRVDAT IRVLNT><USE "CALSYM"><ENDPACKAGE><PACKAGE "LIBRARY"><ENTRY LSAVE DO-PRINT REDO-CARDS DO-LIST><USE "DATA" "CHAN"><SETG LSAVE %<RSUBR-ENTRY '[\ \ F!- LSAVE #DECL ("VALUE" STRING "OPTIONAL" ANY)] 0>><SETG DO-PRINT %<RSUBR-ENTRY '[\ \ F!- DO-PRINT #DECL ("VALUE" <OR FALSE STRING> STRING "OPTIONAL" STRING)] 0>><SETG DO-LIST %<RSUBR-ENTRY '[\ \ F!- DO-LIST #DECL ("VALUE" <OR FALSE STRING> STRING "OPTIONAL" STRING)] 0>><ENDPACKAGE><PACKAGE "FTPUSR"><ENTRY ACC UNSOAK SOAK CONNECT><USE "DATIME" "ICP"><SETG ACC %<RSUBR-ENTRY '[\ \ F!- ACC #DECL ("VALUE" ANY <LIST CHANNEL CHANNEL> STRING STRING FIX)] 0>><SETG UNSOAK %<RSUBR-ENTRY '[\ \ F!- UNSOAK #DECL ("VALUE" ANY)] 0>><SETG SOAK %<RSUBR-ENTRY '[\ \ F!- SOAK #DECL ("VALUE" ANY)] 0>><SETG CONNECT %<RSUBR-ENTRY '[\ \ F!- CONNECT #DECL ("VALUE" <OR FALSE <LIST CHANNEL CHANNEL>> FIX ANY <OR STRING FALSE> <OR FIX FALSE> <OR STRING FALSE>)] 0>><ENDPACKAGE><PACKAGE "INIT"><ENTRY INIT-LOAD INIT-DUMP><SETG INIT-LOAD %<RSUBR-ENTRY '[\ \ F!- INIT-LOAD #DECL ("VALUE" ANY "OPTIONAL" STRING)] 0>><SETG INIT-DUMP %<RSUBR-ENTRY '[\ \ F!- INIT-DUMP #DECL ("VALUE" STRING "OPTIONAL" FORM STRING)] 0>><ENDPACKAGE> <RPACKAGE "NEWSTRUC"><ENTRY NEWSTRUC MSETG><SETG NEWSTRUC %<RSUBR-ENTRY '[\ \ F!- NEWSTRUC #DECL ("VALUE" <OR ATOM SPLICE> <OR ATOM <LIST [REST ATOM]>> ATOM "ARGS" LIST)] 0>><SETG MSETG %<RSUBR-ENTRY '[\ \ F!- MSETG #DECL ("VALUE" <OR ATOM SPLICE> "TUPLE" <TUPLE [REST ATOM ANY]>)] 0>><ENDPACKAGE> <RPACKAGE "DATIME"><ENTRY FIX-DATE GETTIMEZONE RTIME:SEC RTIME DATE><SETG FIX-DATE %<RSUBR-ENTRY '[\ \ F!- FIX-DATE #DECL ("VALUE" FIX)] 0>><SETG GETTIMEZONE %<RSUBR-ENTRY '[\ \ F!- GETTIMEZONE #DECL ("VALUE" STRING)] 0>><SETG RTIME:SEC %<RSUBR-ENTRY '[\ \ F!- RTIME:SEC #DECL ("VALUE" FIX)] 0>><SETG RTIME %<RSUBR-ENTRY '[\ \ F!- RTIME #DECL ("VALUE" <LIST FIX FIX FIX> "OPTIONAL" <LIST FIX FIX FIX>)] 0>><SETG DATE %<RSUBR-ENTRY '[\ \ F!- DATE #DECL ("VALUE" <LIST FIX FIX FIX> "OPTIONAL" <LIST FIX FIX FIX>)] 0>><ENDPACKAGE> <PACKAGE "CALUTL"><ENTRY XFLEVEL XFSTACK RDBLOUT OPENTELL CAREFUL-TTY-OFF NOTTY? XFPOP XFPUSH DATE-PARSE FSP-PARSE><USE "STR" "CALSYM" "TTY" "TIMFCN"><SETG RDBLOUT %<RSUBR-ENTRY '[\ \ F!- RDBLOUT #DECL ("VALUE" ATOM <OR STRING CHARACTER> "OPTIONAL" CHANNEL)] 0>><SETG OPENTELL %<RSUBR-ENTRY '[\ \ F!- OPENTELL #DECL ("VALUE" <OR CHANNEL FALSE> STRING STRING)] 0>><SETG CAREFUL-TTY-OFF %<RSUBR-ENTRY '[\ \ F!- CAREFUL-TTY-OFF #DECL ("VALUE" ANY)] 0>><SETG NOTTY? %<RSUBR-ENTRY '[\ \ F!- NOTTY? #DECL ("VALUE" <OR FALSE ATOM>)] 0>><SETG XFPOP %<RSUBR-ENTRY '[\ \ F!- XFPOP #DECL ("VALUE" <OR CHANNEL STRING FALSE>)] 0>><SETG XFPUSH %<RSUBR-ENTRY '[\ \ F!- XFPUSH #DECL ("VALUE" ATOM <OR CHANNEL STRING FALSE> "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG DATE-PARSE %<RSUBR-ENTRY '[\ \ F!- DATE-PARSE #DECL ("VALUE" <OR FALSE <LIST [3 FIX]>> STRING "OPTIONAL" <LIST [3 FIX]>)] 0>><SETG FSP-PARSE %<RSUBR-ENTRY '[\ \ F!- FSP-PARSE #DECL ("VALUE" <VECTOR [REST <OR LOSE STRING>]> STRING)] 0>><ENDPACKAGE> <PACKAGE "EXPUTI"><ENTRY UC? GETDB S-EXP L-EXP P-EXP LA-EXP><USE "LIBDAT" "VCTMAN" "USRUTI"><SETG UC? %<RSUBR-ENTRY '[\ \ F!- UC? #DECL ("VALUE" <OR FALSE STRING> STRING)] 0>><SETG GETDB %<RSUBR-ENTRY '[\ \ F!- GETDB #DECL ("VALUE" <OR !<FALSE STRING!> <LIST [REST ANY]>> LIST)] 0>><SETG S-EXP %<RSUBR-ENTRY '[\ \ F!- S-EXP #DECL ("VALUE" <LIST [REST <OR STRING ATOM>]> STRING <VECTOR [REST STRING LIST]> "OPTIONAL" FIX)] 0>><SETG L-EXP %<RSUBR-ENTRY '[\ \ F!- L-EXP #DECL ("VALUE" <LIST [REST <OR STRING ATOM>]> <LIST [REST <OR STRING ATOM>]> VECTOR)] 0>><SETG P-EXP %<RSUBR-ENTRY '[\ \ F!- P-EXP #DECL ("VALUE" <LIST [REST <OR STRING ATOM>]> LIST LIST)] 0>><SETG LA-EXP %<RSUBR-ENTRY '[\ \ F!- LA-EXP #DECL ("VALUE" <OR LIST !<FALSE STRING!>> LIST LIST)] 0>><ENDPACKAGE> <PACKAGE "LEX"><ENTRY LEX-SCRATCH-STRING LSTALLPOS LSTGETIVAL LSTGETVAL LSTGETNAME LSTEXACT LSTPRTSYMS LSTPOSSYM LSTEVAL LSTLOOKUP LSTOPS LSTDELETE LSTINSERT MAKELST LEX-FIX-MASTER-TBL LEX-FIX-STRING-TBL LEX-DELETE LEX-COMPARE LEX-GET LEX-INSERT LEX-LOOKUP LEXID LEXTABLE><USE "CALSYM"><SETG LSTALLPOS %<RSUBR-ENTRY '[\ \ F!- LSTALLPOS #DECL ("VALUE" <OR <LIST [REST SYMBOL]> FALSE> STRING FIX <VECTOR LEXTABLE ANY>)] 0>><SETG LSTGETIVAL %<RSUBR-ENTRY '[\ \ F!- LSTGETIVAL #DECL ("VALUE" <OR VECTOR UVECTOR FALSE> SYMTABLE <OR LEXID STRING>)] 0>><SETG LSTGETVAL %<RSUBR-ENTRY '[\ \ F!- LSTGETVAL #DECL ("VALUE" ANY STRING FIX SYMTABLE)] 0>><SETG LSTGETNAME %<RSUBR-ENTRY '[\ \ F!- LSTGETNAME #DECL ("VALUE" <OR FALSE STRING> SYMTABLE LEXID "OPTIONAL" <OR STRING FALSE>)] 0>><SETG LSTEXACT %<RSUBR-ENTRY '[\ \ F!- LSTEXACT #DECL ("VALUE" <OR SYMBOL FALSE> STRING <VECTOR LEXTABLE <OR VECTOR UVECTOR FALSE>>)] 0>><SETG LSTPRTSYMS %<RSUBR-ENTRY '[\ \ F!- LSTPRTSYMS #DECL ("VALUE" 'T <VECTOR LEXTABLE ANY>)] 0>><SETG LSTPOSSYM %<RSUBR-ENTRY '[\ \ F!- LSTPOSSYM #DECL ("VALUE" FIX STRING FIX <VECTOR LEXTABLE ANY> <OR STRING FALSE> <OR STRING FALSE>)] 0>><SETG LSTEVAL %<RSUBR-ENTRY '[\ \ F!- LSTEVAL #DECL ("VALUE" <OR SYMBOL FALSE> FIX <VECTOR LEXTABLE <OR VECTOR UVECTOR FALSE>>)] 0>><SETG LSTLOOKUP %<RSUBR-ENTRY '[\ \ F!- LSTLOOKUP #DECL ("VALUE" <OR VECTOR FALSE> STRING FIX <VECTOR LEXTABLE ANY> VECTOR)] 0>><SETG LSTOPS %<RSUBR-ENTRY '[\ \ F!- LSTOPS #DECL ("VALUE" <OR ATOM FALSE FIX SYMBOL VECTOR <LIST [REST SYMBOL]>> FIX "TUPLE" <TUPLE ANY>)] 0>><SETG LSTDELETE %<RSUBR-ENTRY '[\ \ F!- LSTDELETE #DECL ("VALUE" <OR SYMTABLE FALSE> SYMTABLE STRING "OPTIONAL" ANY)] 0>><SETG LSTINSERT %<RSUBR-ENTRY '[\ \ F!- LSTINSERT #DECL ("VALUE" <OR LEXID FALSE> SYMTABLE STRING "OPTIONAL" ANY FIX)] 0>><SETG MAKELST %<RSUBR-ENTRY '[\ \ F!- MAKELST #DECL ("VALUE" SYMTABLE STRING <OR <VECTOR [REST STRING ANY]> FALSE> "OPTIONAL" ANY)] 0>><SETG LEX-FIX-MASTER-TBL %<RSUBR-ENTRY '[\ \ F!- LEX-FIX-MASTER-TBL #DECL ("VALUE" <OR FALSE LEXTABLE> LEXTABLE)] 0>><SETG LEX-FIX-STRING-TBL %<RSUBR-ENTRY '[\ \ F!- LEX-FIX-STRING-TBL #DECL ("VALUE" LEXTABLE LEXTABLE)] 0>><SETG LEX-DELETE %<RSUBR-ENTRY '[\ \ F!- LEX-DELETE #DECL ("VALUE" <OR LEXID FALSE> LEXTABLE STRING "OPTIONAL" FIX)] 0>><SETG LEX-COMPARE %<RSUBR-ENTRY '[\ \ F!- LEX-COMPARE #DECL ("VALUE" FIX LEXTABLE LEXID STRING FIX)] 0>><SETG LEX-GET %<RSUBR-ENTRY '[\ \ F!- LEX-GET #DECL ("VALUE" <OR STRING FALSE> LEXTABLE LEXID <OR STRING FALSE>)] 0>><SETG LEX-INSERT %<RSUBR-ENTRY '[\ \ F!- LEX-INSERT #DECL ("VALUE" <OR LEXID FALSE> LEXTABLE STRING "OPTIONAL" FIX)] 0>><SETG LEX-LOOKUP %<RSUBR-ENTRY '[\ \ F!- LEX-LOOKUP #DECL ("VALUE" <OR LEXID FALSE> LEXTABLE STRING "OPTIONAL" FIX)] 0>><NEWTYPE LEXID WORD><NEWTYPE LEXTABLE VECTOR'<VECTOR <OR UVECTOR FALSE> <OR UVECTOR FALSE> <OR UVECTOR FALSE> <OR UVECTOR FALSE>>><SETG LEXTABLE %<RSUBR-ENTRY '[\ \ F!- LEXTABLE #DECL ("VALUE" LEXTABLE)] 0>><ENDPACKAGE><PACKAGE "SCOPE"><ENTRY YELLOW ORANGE GREEN RED COLOR SHORT LONG SCOPELIST SELWORD><SETG SELWORD %<RSUBR-ENTRY '[\ \ F!- SELWORD #DECL ("VALUE" FIX TUPLE "OPTIONAL" ANY)] 0>><ENDPACKAGE> <PACKAGE "MAPRIM"><ENTRY PLOTVDSK PLOTV PAGE POINT LINE DRAW MOVE TRANS MIGSSEND SETORG><USE "SMCELLS" "DISPLA"><SETG PLOTVDSK %<RSUBR-ENTRY '[\ \ F!- PLOTVDSK #DECL ("VALUE" STRING <OR LIST VECTOR UVECTOR> <OR LIST VECTOR UVECTOR> CHANNEL)] 0>><SETG PLOTV %<RSUBR-ENTRY '[\ \ F!- PLOTV #DECL ("VALUE" ATOM <OR LIST VECTOR UVECTOR> <OR LIST VECTOR UVECTOR> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG PAGE %<RSUBR-ENTRY '[\ \ F!- PAGE #DECL ("VALUE" ANY)] 0>><SETG POINT %<RSUBR-ENTRY '[\ \ F!- POINT #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG LINE %<RSUBR-ENTRY '[\ \ F!- LINE #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG DRAW %<RSUBR-ENTRY '[\ \ F!- DRAW #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG MOVE %<RSUBR-ENTRY '[\ \ F!- MOVE #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG TRANS %<RSUBR-ENTRY '[\ \ F!- TRANS #DECL ("VALUE" <LIST [4 FIX]> FIX FIX "OPTIONAL" FIX)] 0>><SETG MIGSSEND %<RSUBR-ENTRY '[\ \ F!- MIGSSEND #DECL ("VALUE" ATOM "TUPLE" <TUPLE [REST FIX]>)] 0>><SETG SETORG %<RSUBR-ENTRY '[\ \ F!- SETORG #DECL ("VALUE" LIST "OPTIONAL" <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><ENDPACKAGE><PACKAGE "JADE"><ENTRY FIND-CO FIND-COS BMATCH MATCH MERGE SUBST-ELE REPLACE-ELE DELETE&GCD DELETE&GC DELETE-USE&GC DELETE-JOBJ DELETE-USE NCONCEPT ADD-NUSE ADD-USE SET-USES USES CNTH CNTH? DOWNS DOWNS? USE-LIST CONCEPT MUDDLEOB-USES JADE-INSTANCE><SETG FIND-CO %<RSUBR-ENTRY '[\ \ F!- FIND-CO #DECL ("VALUE" <OR CONCEPT FALSE> "TUPLE" ANY)] 0>><SETG FIND-COS %<RSUBR-ENTRY '[\ \ F!- FIND-COS #DECL ("VALUE" UVECTOR "TUPLE" ANY)] 0>><NEWTYPE BMATCH VECTOR><NEWTYPE MATCH VECTOR><SETG MERGE %<RSUBR-ENTRY '[\ \ F!- MERGE #DECL ("VALUE" ANY ANY ANY)] 0>><SETG SUBST-ELE %<RSUBR-ENTRY '[\ \ F!- SUBST-ELE #DECL ("VALUE" <OR ATOM FALSE> CONCEPT ANY ANY)] 0>><SETG REPLACE-ELE %<RSUBR-ENTRY '[\ \ F!- REPLACE-ELE #DECL ("VALUE" <OR FALSE USE-LIST> CONCEPT ANY ANY)] 0>><SETG DELETE&GCD %<RSUBR-ENTRY '[\ \ F!- DELETE&GCD #DECL ("VALUE" ANY <OR CONCEPT ATOM>)] 0>><SETG DELETE&GC %<RSUBR-ENTRY '[\ \ F!- DELETE&GC #DECL ("VALUE" ANY <OR CONCEPT ATOM>)] 0>><SETG DELETE-USE&GC %<RSUBR-ENTRY '[\ \ F!- DELETE-USE&GC #DECL ("VALUE" ANY ANY ANY)] 0>><SETG DELETE-JOBJ %<RSUBR-ENTRY '[\ \ F!- DELETE-JOBJ #DECL ("VALUE" ANY <OR CONCEPT ATOM>)] 0>><SETG DELETE-USE %<RSUBR-ENTRY '[\ \ F!- DELETE-USE #DECL ("VALUE" <OR FALSE USE-LIST <LIST [1 ANY]>> ANY ANY)] 0>><SETG NCONCEPT %<RSUBR-ENTRY '[\ \ F!- NCONCEPT #DECL ("VALUE" CONCEPT "TUPLE" ANY)] 0>><SETG ADD-NUSE %<RSUBR-ENTRY '[\ \ F!- ADD-NUSE #DECL ("VALUE" <OR FALSE USE-LIST> ANY ANY)] 0>><SETG ADD-USE %<RSUBR-ENTRY '[\ \ F!- ADD-USE #DECL ("VALUE" <OR FALSE USE-LIST> ANY ANY)] 0>><SETG SET-USES %<RSUBR-ENTRY '[\ \ F!- SET-USES #DECL ("VALUE" <OR FALSE USE-LIST> ANY "OPTIONAL" <PRIMTYPE LIST>)] 0>><SETG USES %<RSUBR-ENTRY '[\ \ F!- USES #DECL ("VALUE" <OR FALSE USE-LIST> ANY)] 0>><SETG CNTH %<RSUBR-ENTRY '[\ \ F!- CNTH #DECL ("VALUE" ANY CONCEPT FIX)] 0>><SETG CNTH? %<RSUBR-ENTRY '[\ \ F!- CNTH? #DECL ("VALUE" ANY ANY FIX)] 0>><NEWTYPE DOWNS VECTOR><SETG DOWNS 1><SETG DOWNS? %<RSUBR-ENTRY '[\ \ F!- DOWNS? #DECL ("VALUE" ANY ANY)] 0>><NEWTYPE USE-LIST LIST><NEWTYPE CONCEPT LIST'<LIST DOWNS>><SETG CONCEPT %<RSUBR-ENTRY '[\ \ F!- CONCEPT #DECL ("VALUE" CONCEPT "TUPLE" ANY)] 0>><SETG JADE-INSTANCE %<RSUBR-ENTRY '[\ \ F!- JADE-INSTANCE #DECL ("VALUE" CONCEPT ANY)] 0>><MANIFEST DOWNS><ENDPACKAGE> <PACKAGE "GNJFN"><ENTRY GNJFN-RESET NEXT-FILE><USE "NSTR" "SORTX"><SETG GNJFN-RESET %<RSUBR-ENTRY '[\ \ F!- GNJFN-RESET #DECL ("VALUE" FALSE "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG NEXT-FILE %<RSUBR-ENTRY '[\ \ F!- NEXT-FILE #DECL ("VALUE" <OR FALSE <VECTOR STRING>> "OPTIONAL" STRING ANY)] 0>><ENDPACKAGE> <PACKAGE "MDTYPE"><ENTRY MRKPOS MRKCOR MKCHNG MRKERR SPCERR WTOE ETOW LTOE WTOL LTOW ETOL NMELTS FRDSUM CNFSUM DOF SDUR MDUR SCNF STYP MCNF MTYP WDS FDF BST TLS AUT LSP SFL SPAN VNT PFX STK MSD FWD BCK MS EVTYP EVNT MCOD SPCHNG ILLSPC RND SRC MTOP? MBACK MREST WRD LTR ELT DASH DOT><USE "TEMHLP"><SETG MRKPOS 14><SETG MRKCOR 13><SETG MKCHNG 12><SETG MRKERR 11><SETG SPCERR 10><SETG WTOE 9><SETG ETOW 8><SETG LTOE 6><SETG WTOL 7><SETG LTOW 5><SETG ETOL 4><SETG NMELTS 3><SETG FRDSUM 2><SETG CNFSUM 1><NEWTYPE DOF TEMPLATE'<DOF FLOAT FLOAT FIX FIX FIX FIX FIX FIX FIX ANY ANY FIX FIX FIX [REST <NOT ANY>]>><SETG DOF %<RSUBR-ENTRY '[\ \ F!- DOF #DECL (FLOAT FLOAT FIX FIX FIX FIX FIX FIX FIX ANY ANY FIX FIX FIX)] 0>><SETG SDUR 6><SETG MDUR 5><SETG SCNF 4><SETG STYP 3><SETG MCNF 2><SETG MTYP 1><SETG WDS 7><SETG FDF 6><SETG BST 5><SETG TLS 4><SETG AUT 3><SETG LSP 2><SETG SFL 1><NEWTYPE SPAN TEMPLATE'<OR <SPAN ANY FIX ATOM LIST FIX [REST <NOT ANY>]> <SPAN ANY FIX ATOM LIST FIX DOF [REST <NOT ANY>]> <SPAN ANY FIX ATOM LIST FIX DOF STRING [REST <NOT ANY>]>>><SETG SPAN %<RSUBR-ENTRY '[\ \ F!- SPAN #DECL (ANY FIX ATOM LIST FIX "OPTIONAL" DOF STRING)] 0>><SETG VNT 6><SETG PFX 5><SETG STK 4><SETG MSD 3><SETG FWD 2><SETG BCK 1><NEWTYPE MS TEMPLATE'<MS <LIST [REST SPAN]> <LIST [REST SPAN]> ELT <OR ATOM FALSE> FIX <LIST [REST EVNT]>>><SETG MS %<RSUBR-ENTRY '[\ \ F!- MS #DECL (LIST LIST ELT ANY FIX LIST)] 0>><SETG EVTYP 1><NEWTYPE EVNT VECTOR'<VECTOR ATOM>><NEWTYPE MCOD UVECTOR'<<PRIMTYPE UVECTOR> [REST MS]>><SETG SPCHNG #MACRO (#FUNCTION (('X) <FORM PROG ((X .X)) #DECL ((X) DOF (VALUE) FIX) '<+ <ETOL .X> <LTOW .X> <LTOE .X> <WTOL .X>>>))><SETG ILLSPC #MACRO (#FUNCTION (('X) <FORM PROG ((X .X)) #DECL ((X) DOF (VALUE) FIX) '<+ <WTOE .X> <ETOW .X>>>))><SETG RND #MACRO (#FUNCTION (('X) <FORM PROG ((XX .X)) #DECL ((XX) MS) '<COND (<STK .XX> <PFX .XX>)>>))><SETG SRC #MACRO (#FUNCTION (('X) <FORM PROG ((XX .X)) #DECL ((XX) SPAN) '<COND (<SFL .XX> <AUT .XX>) (ELSE <CHTYPE <TLS .XX> FALSE>)>>))><SETG MTOP? #MACRO (#FUNCTION (('C) <FORM PROG ((C .C)) #DECL ((C) MCOD) '<==? <LENGTH .C> <LENGTH <TOP .C>>>>))><SETG MBACK #MACRO (#FUNCTION (('X "OPTIONAL" ('N 1)) <FORM CHTYPE <FORM BACK .X .N> MCOD>))><SETG MREST #MACRO (#FUNCTION (('X "OPTIONAL" ('N 1)) <FORM CHTYPE <FORM REST .X .N> MCOD>))><NEWTYPE ELT TEMPLATE'<ELT ATOM FLOAT ATOM FLOAT FLOAT FLOAT [REST <NOT ANY>]>><SETG ELT %<RSUBR-ENTRY '[\ \ F!- ELT #DECL (ATOM FLOAT ATOM FLOAT FLOAT FLOAT)] 0>><MANIFEST EVTYP BCK FWD MSD STK PFX VNT SFL LSP AUT TLS BST FDF WDS MTYP MCNF STYP SCNF MDUR SDUR CNFSUM FRDSUM NMELTS ETOL LTOW WTOL LTOE ETOW WTOE SPCERR MRKERR MKCHNG MRKCOR MRKPOS><ENDPACKAGE><PACKAGE "MUDTEC"><ENTRY TECO-BUFFER-SIZE TECO-READ-BUFFER TECO-PRINT-BUFFER TECO-ALLOC TECO-CLOSE TECO-OPEN TECO-KILL TECO-LOAD TECO-BUFFER TECO><USE "INFERIOR" "INFASS"><SETG TECO-BUFFER-SIZE %<RSUBR-ENTRY '[\ \ F!- TECO-BUFFER-SIZE #DECL ("VALUE" <OR FALSE FIX> "OPTIONAL" <OR ATOM FALSE> <OR INF FALSE>)] 0>><SETG TECO-READ-BUFFER %<RSUBR-ENTRY '[\ \ F!- TECO-READ-BUFFER #DECL ("VALUE" <OR FALSE STRING> "OPTIONAL" <OR STRING FALSE> <OR ATOM FALSE> <OR INF FALSE>)] 0>><SETG TECO-PRINT-BUFFER %<RSUBR-ENTRY '[\ \ F!- TECO-PRINT-BUFFER #DECL ("VALUE" ANY STRING "OPTIONAL" FIX <OR INF FALSE>)] 0>><SETG TECO-ALLOC %<RSUBR-ENTRY '[\ \ F!- TECO-ALLOC #DECL ("VALUE" ANY FIX "OPTIONAL" <OR INF FALSE>)] 0>><SETG TECO-CLOSE %<RSUBR-ENTRY '[\ \ F!- TECO-CLOSE #DECL ("VALUE" <OR FALSE FIX> "OPTIONAL" <OR INF FALSE>)] 0>><SETG TECO-OPEN %<RSUBR-ENTRY '[\ \ F!- TECO-OPEN #DECL ("VALUE" <OR FALSE FIX> "OPTIONAL" <OR INF FALSE>)] 0>><SETG TECO-KILL %<RSUBR-ENTRY '[\ \ F!- TECO-KILL #DECL ("VALUE" <OR FALSE INF> "OPTIONAL" <OR INF FALSE>)] 0>><SETG TECO-LOAD %<RSUBR-ENTRY '[\ \ F!- TECO-LOAD #DECL ("VALUE" <OR FALSE INF> "OPTIONAL" STRING STRING <OR FALSE INF>)] 0>><GDECL (TECO) <OR FALSE INF> (TECO-BUFFER) <UVECTOR [REST FIX]>><ENDPACKAGE> <PACKAGE "RLSLOOK"><ENTRY DICT-LOOK><SETG DICT-LOOK %<RSUBR-ENTRY '[\ \ F!- DICT-LOOK #DECL ("VALUE" <OR FALSE STRING VECTOR <LIST [REST <OR VECTOR STRING>]>> <UVECTOR [REST FIX]> VECTOR "OPTIONAL" <OR ATOM FALSE>)] 0>><ENDPACKAGE> <PACKAGE "SVTA"><ENTRY TTYSIOT TTYSOUT TTYSETUP TTYSET TTYGET TTYBIN SET-TTY-MODE READ-TTY-MODE RELEASE? RELEASE FAT ASSIGN-TTY><SETG TTYSIOT %<RSUBR-ENTRY '[\ \ F!- TTYSIOT #DECL ("VALUE" CHANNEL CHANNEL STRING FIX <PRIMTYPE WORD>)] 0>><SETG TTYSOUT %<RSUBR-ENTRY '[\ \ F!- TTYSOUT #DECL ("VALUE" FIX FIX STRING FIX)] 0>><SETG TTYSET %<RSUBR-ENTRY '[\ \ F!- TTYSET #DECL ("VALUE" CHANNEL CHANNEL <UVECTOR [3 <PRIMTYPE WORD>]>)] 0>><SETG TTYGET %<RSUBR-ENTRY '[\ \ F!- TTYGET #DECL ("VALUE" <UVECTOR [3 <PRIMTYPE WORD>]> CHANNEL <UVECTOR [3 <PRIMTYPE WORD>]>)] 0>><SETG TTYBIN %<RSUBR-ENTRY '[\ \ F!- TTYBIN #DECL ("VALUE" CHARACTER FIX)] 0>><SETG SET-TTY-MODE %<RSUBR-ENTRY '[\ \ F!- SET-TTY-MODE #DECL ("VALUE" <PRIMTYPE WORD> <PRIMTYPE WORD> <PRIMTYPE WORD>)] 0>><SETG READ-TTY-MODE %<RSUBR-ENTRY '[\ \ F!- READ-TTY-MODE #DECL ("VALUE" FIX <PRIMTYPE WORD>)] 0>><SETG RELEASE %<RSUBR-ENTRY '[\ \ F!- RELEASE #DECL ("VALUE" ATOM <OR <PRIMTYPE LIST> <PRIMTYPE VECTOR> <PRIMTYPE UVECTOR> <PRIMTYPE STRING> <PRIMTYPE BYTES>>)] 0>><SETG FAT %<RSUBR-ENTRY '[\ \ F!- FAT #DECL ("VALUE" <OR FIX FALSE>)] 0>><SETG ASSIGN-TTY %<RSUBR-ENTRY '[\ \ F!- ASSIGN-TTY #DECL ("VALUE" <OR FIX FALSE> FIX)] 0>><ENDPACKAGE> <PACKAGE "STK"><ENTRY FREELENGTH FREESTK FREESTKV UNSTK STKV STK LSTK PUTSTK GETSTK POP PUSH MAKESTKV RETSTK MAKESTK><SETG UNSTK %<RSUBR-ENTRY '[\ \ F!- UNSTK #DECL ("VALUE" STK STK)] 0>><NEWTYPE STKV VECTOR'<VECTOR [REST ANY]>><NEWTYPE STK VECTOR'<VECTOR STKV>><SETG LSTK %<RSUBR-ENTRY '[\ \ F!- LSTK #DECL ("VALUE" FIX STK)] 0>><SETG PUTSTK %<RSUBR-ENTRY '[\ \ F!- PUTSTK #DECL ("VALUE" ANY STK ANY ANY "OPTIONAL" ANY)] 0>><SETG GETSTK %<RSUBR-ENTRY '[\ \ F!- GETSTK #DECL ("VALUE" ANY STK "OPTIONAL" ANY ANY)] 0>><SETG POP %<RSUBR-ENTRY '[\ \ F!- POP #DECL ("VALUE" ANY STK "OPTIONAL" ANY)] 0>><SETG PUSH %<RSUBR-ENTRY '[\ \ F!- PUSH #DECL ("VALUE" STK STK ANY)] 0>><SETG MAKESTKV %<RSUBR-ENTRY '[\ \ F!- MAKESTKV #DECL ("VALUE" STKV "OPTIONAL" FIX)] 0>><SETG RETSTK %<RSUBR-ENTRY '[\ \ F!- RETSTK #DECL ("VALUE" STK STK)] 0>><SETG MAKESTK %<RSUBR-ENTRY '[\ \ F!- MAKESTK #DECL ("VALUE" STK "OPTIONAL" FIX)] 0>><GDECL (FREESTKV) STK (FREESTK) STK><ENDPACKAGE> <PACKAGE "LEXER"><ENTRY TBRKS LEXER><SETG LEXER %<RSUBR-ENTRY '[\ \ F!- LEXER #DECL ("VALUE" VECTOR STRING "OPTIONAL" STRING)] 0>><GDECL (TBRKS) STRING><ENDPACKAGE> <PACKAGE "LINES"><ENTRY PRINT-LINES BUILD-LINES FIND-LINE READ-LINE><SETG PRINT-LINES %<RSUBR-ENTRY '[\ \ F!- PRINT-LINES #DECL ("VALUE" FIX <VECTOR [REST STRING]>)] 0>><SETG BUILD-LINES %<RSUBR-ENTRY '[\ \ F!- BUILD-LINES #DECL ("VALUE" VECTOR CHANNEL)] 0>><SETG FIND-LINE %<RSUBR-ENTRY '[\ \ F!- FIND-LINE #DECL ("VALUE" <OR FALSE STRING> CHANNEL "TUPLE" <TUPLE [REST STRING]>)] 0>><SETG READ-LINE %<RSUBR-ENTRY '[\ \ F!- READ-LINE #DECL ("VALUE" <OR FALSE STRING> CHANNEL)] 0>><ENDPACKAGE> <PACKAGE "E&SDEF"><ENTRY HLRZ MNEMONIC LOOKSUP OPCODES CODES><ENDPACKAGE> <PACKAGE "MCLEAN"><ENTRY DONT-REMOVE PACKAGE-VICTIMS MACRO-SURVIVORS QUIET-CLEAN? MOBY-CLEAN><USE "GLUE"><SETG MOBY-CLEAN %<RSUBR-ENTRY '[\ \ F!- MOBY-CLEAN #DECL ("VALUE" <OR FALSE STRING> ATOM "OPTIONAL" <OR ATOM FALSE>)] 0>><GDECL (QUIET-CLEAN?) <OR ATOM FALSE> (MACRO-SURVIVORS) <LIST [REST ATOM]> (PACKAGE-VICTIMS) <LIST [REST STRING]> (DONT-REMOVE) <VECTOR [REST STRING]>><ENDPACKAGE><PACKAGE "ICP"><ENTRY TIME-CONSTANT ICP><SETG TIME-CONSTANT %<RSUBR-ENTRY '[\ \ F!- TIME-CONSTANT #DECL ("VALUE" ANY FIX)] 0>><SETG ICP %<RSUBR-ENTRY '[\ \ F!- ICP #DECL ("VALUE" <OR FALSE <LIST CHANNEL CHANNEL>> FIX FIX)] 0>><ENDPACKAGE> <PACKAGE "UVBYTES"><ENTRY UV-BYTES><SETG UV-BYTES %<RSUBR-ENTRY '[\ \ F!- UV-BYTES #DECL ("VALUE" BYTES <UVECTOR [REST <PRIMTYPE WORD>]> FIX)] 0>><ENDPACKAGE> <PACKAGE "MADMAN"><ENTRY ASHARE-VECTOR ABIT-RELERR ABIT-VCHAIN ABIT-NOFIXUP ABIT-NOGROW ASPEC-BITS ABITS MADMAN-PAGE-GIVE MADMAN-PAGE-FIND PAGE-GIVE-TABLE APUTC APUT AIUVECTOR ALIUVECTOR AUVECTOR ALUVECTOR AIVECTOR ALIVECTOR AVECTOR ALVECTOR AILIST ALILIST ALIST ALLIST AIBYTES ALIBYTES ABYTES ALBYTES AISTRING ALISTRING ASTRING ALSTRING ARELEASE ACONS AREAD APRINT ACOPY AGC ALEGAL? BOUNDS-CHECK APLENGTH ALENGTH AGIVE ARESET AFIND APGGIVE APGFIND ADD-ALLOC ARESTORE ARESERVE AERRFIX AERRFALSE ALLOC-TABLE CURSPACE PBLOCK SPACE><USE "ASYLUM" "DDM"><SETG ASHARE-VECTOR 6><SETG ABIT-RELERR 17179869184><SETG ABIT-VCHAIN 4294967296><SETG ABIT-NOFIXUP 8589934592><SETG ABIT-NOGROW *400000000000*><SETG ASPEC-BITS 8><SETG ABITS %<RSUBR-ENTRY '[\ \ F!- ABITS #DECL ("VALUE" <OR FIX SPACE> SPACE "OPTIONAL" <OR FIX FALSE>)] 0>><SETG MADMAN-PAGE-GIVE %<RSUBR-ENTRY '[\ \ F!- MADMAN-PAGE-GIVE #DECL ("VALUE" FIX FIX "OPTIONAL" FIX)] 0>><SETG MADMAN-PAGE-FIND %<RSUBR-ENTRY '[\ \ F!- MADMAN-PAGE-FIND #DECL ("VALUE" <OR FIX FALSE> "OPTIONAL" FIX)] 0>><SETG PAGE-GIVE-TABLE %<RSUBR-ENTRY '[\ \ F!- PAGE-GIVE-TABLE #DECL ("VALUE" <OR ATOM FALSE> <UVECTOR [8 WORD]>)] 0>><SETG APUTC %<RSUBR-ENTRY '[\ \ F!- APUTC #DECL ("VALUE" ANY SPACE STRUCTURED FIX ANY)] 0>><SETG APUT %<RSUBR-ENTRY '[\ \ F!- APUT #DECL ("VALUE" ANY SPACE STRUCTURED FIX ANY)] 0>><SETG AIUVECTOR %<RSUBR-ENTRY '[\ \ F!- AIUVECTOR #DECL ("VALUE" <OR UVECTOR FALSE> SPACE FIX "OPTIONAL" ANY)] 0>><SETG ALIUVECTOR %<RSUBR-ENTRY '[\ \ F!- ALIUVECTOR #DECL ("VALUE" <OR UVECTOR FALSE> FIX "OPTIONAL" ANY)] 0>><SETG AUVECTOR %<RSUBR-ENTRY '[\ \ F!- AUVECTOR #DECL ("VALUE" <OR UVECTOR FALSE> SPACE "TUPLE" TUPLE)] 0>><SETG ALUVECTOR %<RSUBR-ENTRY '[\ \ F!- ALUVECTOR #DECL ("VALUE" <OR UVECTOR FALSE> "TUPLE" TUPLE)] 0>><SETG AIVECTOR %<RSUBR-ENTRY '[\ \ F!- AIVECTOR #DECL ("VALUE" <OR VECTOR FALSE> SPACE FIX "OPTIONAL" ANY)] 0>><SETG ALIVECTOR %<RSUBR-ENTRY '[\ \ F!- ALIVECTOR #DECL ("VALUE" <OR VECTOR FALSE> FIX "OPTIONAL" ANY)] 0>><SETG AVECTOR %<RSUBR-ENTRY '[\ \ F!- AVECTOR #DECL ("VALUE" <OR VECTOR FALSE> SPACE "TUPLE" TUPLE)] 0>><SETG ALVECTOR %<RSUBR-ENTRY '[\ \ F!- ALVECTOR #DECL ("VALUE" <OR VECTOR FALSE> "TUPLE" TUPLE)] 0>><SETG AILIST %<RSUBR-ENTRY '[\ \ F!- AILIST #DECL ("VALUE" <OR LIST FALSE> SPACE FIX "OPTIONAL" ANY)] 0>><SETG ALILIST %<RSUBR-ENTRY '[\ \ F!- ALILIST #DECL ("VALUE" <OR LIST FALSE> FIX "OPTIONAL" ANY)] 0>><SETG ALIST %<RSUBR-ENTRY '[\ \ F!- ALIST #DECL ("VALUE" <OR LIST FALSE> SPACE "TUPLE" TUPLE)] 0>><SETG ALLIST %<RSUBR-ENTRY '[\ \ F!- ALLIST #DECL ("VALUE" <OR LIST FALSE> "TUPLE" TUPLE)] 0>><SETG AIBYTES %<RSUBR-ENTRY '[\ \ F!- AIBYTES #DECL ("VALUE" <OR BYTES FALSE> SPACE FIX FIX "OPTIONAL" <PRIMTYPE WORD>)] 0>><SETG ALIBYTES %<RSUBR-ENTRY '[\ \ F!- ALIBYTES #DECL ("VALUE" <OR BYTES FALSE> FIX FIX "OPTIONAL" <PRIMTYPE WORD>)] 0>><SETG ABYTES %<RSUBR-ENTRY '[\ \ F!- ABYTES #DECL ("VALUE" <OR BYTES FALSE> SPACE FIX "TUPLE" TUPLE)] 0>><SETG ALBYTES %<RSUBR-ENTRY '[\ \ F!- ALBYTES #DECL ("VALUE" <OR BYTES FALSE> FIX "TUPLE" TUPLE)] 0>><SETG AISTRING %<RSUBR-ENTRY '[\ \ F!- AISTRING #DECL ("VALUE" <OR STRING FALSE> SPACE FIX "OPTIONAL" CHARACTER)] 0>><SETG ALISTRING %<RSUBR-ENTRY '[\ \ F!- ALISTRING #DECL ("VALUE" <OR STRING FALSE> FIX "OPTIONAL" CHARACTER)] 0>><SETG ASTRING %<RSUBR-ENTRY '[\ \ F!- ASTRING #DECL ("VALUE" <OR STRING FALSE> SPACE "TUPLE" TUPLE)] 0>><SETG ALSTRING %<RSUBR-ENTRY '[\ \ F!- ALSTRING #DECL ("VALUE" <OR STRING FALSE> "TUPLE" TUPLE)] 0>><SETG ARELEASE %<RSUBR-ENTRY '[\ \ F!- ARELEASE #DECL ("VALUE" ANY SPACE ANY "OPTIONAL" FIX)] 0>><SETG ACONS %<RSUBR-ENTRY '[\ \ F!- ACONS #DECL ("VALUE" <OR LIST FALSE> SPACE ANY LIST)] 0>><SETG AREAD %<RSUBR-ENTRY '[\ \ F!- AREAD #DECL ("VALUE" ANY SPACE <OR CHANNEL ASYLUM DDMCHAN> "OPTIONAL" FIX FIX <OR 'T FALSE>)] 0>><SETG APRINT %<RSUBR-ENTRY '[\ \ F!- APRINT #DECL ("VALUE" <OR ASYLUM CHANNEL DDMCHAN> SPACE ANY <OR CHANNEL ASYLUM DDMCHAN> "OPTIONAL" FIX <OR 'T FALSE>)] 0>><SETG ACOPY %<RSUBR-ENTRY '[\ \ F!- ACOPY #DECL ("VALUE" ANY SPACE ANY)] 0>><SETG AGC %<RSUBR-ENTRY '[\ \ F!- AGC #DECL ("VALUE" ANY SPACE ANY)] 0>><SETG ALEGAL? %<RSUBR-ENTRY '[\ \ F!- ALEGAL? #DECL ("VALUE" <OR ATOM FALSE> SPACE ANY)] 0>><SETG BOUNDS-CHECK %<RSUBR-ENTRY '[\ \ F!- BOUNDS-CHECK #DECL ("VALUE" ANY SPACE)] 0>><SETG APLENGTH %<RSUBR-ENTRY '[\ \ F!- APLENGTH #DECL ("VALUE" WORD SPACE)] 0>><SETG ALENGTH %<RSUBR-ENTRY '[\ \ F!- ALENGTH #DECL ("VALUE" WORD SPACE "OPTIONAL" FIX FIX)] 0>><SETG AGIVE %<RSUBR-ENTRY '[\ \ F!- AGIVE #DECL ("VALUE" SPACE SPACE)] 0>><SETG ARESET %<RSUBR-ENTRY '[\ \ F!- ARESET #DECL ("VALUE" SPACE SPACE "OPTIONAL" <OR FALSE 'T> <OR FALSE 'T>)] 0>><SETG AFIND %<RSUBR-ENTRY '[\ \ F!- AFIND #DECL ("VALUE" <OR FALSE SPACE> FIX "OPTIONAL" <OR FALSE SPACE> FIX)] 0>><SETG APGGIVE %<RSUBR-ENTRY '[\ \ F!- APGGIVE #DECL ("VALUE" FIX FIX FIX <UVECTOR [REST WORD]>)] 0>><SETG APGFIND %<RSUBR-ENTRY '[\ \ F!- APGFIND #DECL ("VALUE" <OR FALSE FIX> FIX FIX <UVECTOR [REST WORD]>)] 0>><SETG ADD-ALLOC %<RSUBR-ENTRY '[\ \ F!- ADD-ALLOC #DECL ("VALUE" <OR ATOM FALSE SPACE> SPACE FIX "OPTIONAL" <OR FIX FALSE>)] 0>><SETG ARESTORE %<RSUBR-ENTRY '[\ \ F!- ARESTORE #DECL ("VALUE" <OR FALSE FIX> SPACE "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG ARESERVE %<RSUBR-ENTRY '[\ \ F!- ARESERVE #DECL ("VALUE" <OR FALSE FIX> FIX "OPTIONAL" <UVECTOR [REST WORD]> <OR 'T FALSE>)] 0>><NEWTYPE PBLOCK VECTOR'<VECTOR FIX WORD WORD>><NEWTYPE SPACE VECTOR'<VECTOR <LIST [REST PBLOCK]> WORD WORD WORD LIST VECTOR FIX FIX>><MANIFEST ASPEC-BITS ABIT-NOGROW ABIT-NOFIXUP ABIT-VCHAIN ABIT-RELERR ASHARE-VECTOR><ENDPACKAGE> <PACKAGE "MAKE-DUV"><ENTRY MAKE-DUV DUV MDICT><USE "MDTABLE" "CORRECT-ERROR" "HAVERFORM" "SORTX" "DATA-SAVE"><SETG MAKE-DUV %<RSUBR-ENTRY '[\ \ F!- MAKE-DUV #DECL ("VALUE" FIX UVECTOR "OPTIONAL" <OR FALSE STRING>)] 0>><GDECL (DUV) <UVECTOR [509 UVECTOR] [REST UVECTOR]>><ENDPACKAGE> <PACKAGE "STDMST"><ENTRY STDMST><SETG STDMST %<RSUBR-ENTRY '[\ \ F!- STDMST #DECL ("VALUE" <OR ATOM FALSE> STRING FIX FIX FIX)] 0>><ENDPACKAGE> <PACKAGE "FINT"><ENTRY INT-INFO FINT><SETG INT-INFO %<RSUBR-ENTRY '[\ \ F!- INT-INFO #DECL ("VALUE" <OR ATOM FALSE> ANY)] 0>><SETG FINT %<RSUBR-ENTRY '[\ \ F!- FINT #DECL ("VALUE" ATOM "OPTIONAL" ANY)] 0>><ENDPACKAGE> <PACKAGE "BLT"><ENTRY BLT><SETG BLT %<RSUBR-ENTRY '[\ \ F!- BLT #DECL ("VALUE" <OR <PRIMTYPE TUPLE> <PRIMTYPE VECTOR> <PRIMTYPE UVECTOR>> <OR <PRIMTYPE TUPLE> <PRIMTYPE VECTOR> <PRIMTYPE UVECTOR>> <OR <PRIMTYPE TUPLE> <PRIMTYPE VECTOR> <PRIMTYPE UVECTOR>> "OPTIONAL" FIX <OR 'T FALSE>)] 0>><ENDPACKAGE> <PACKAGE "CALSYM"><ENTRY TENEX STRCOMP-NC SORTCHK COMPS SAVEREP DSPLEVEL MUDPRM PROMPT2 PROMPT1 CALICO-NM2 CALICO-NM1 CALICO-SNM CALICO-DEV CURXCHAN READER-SILENCE SYMTABLE SYMBOL GSTOPS MAKEGST MSTOPS MAKEMST SSTOPS MAKESST MAKEBGST BGSTSORT BGSTOPS BSTSORT BSTOPS MAKEBST><SETG STRCOMP-NC %<RSUBR-ENTRY '[\ \ F!- STRCOMP-NC #DECL ("VALUE" FIX STRING STRING "OPTIONAL" FIX)] 0>><SETG SORTCHK %<RSUBR-ENTRY '[\ \ F!- SORTCHK #DECL ("VALUE" <OR ATOM FALSE> STRING STRING)] 0>><SETG COMPS %<RSUBR-ENTRY '[\ \ F!- COMPS #DECL ("VALUE" FIX STRING STRING "OPTIONAL" FIX)] 0>><NEWTYPE SYMTABLE VECTOR'<VECTOR ATOM [REST ANY]>><NEWTYPE SYMBOL VECTOR'<VECTOR STRING ANY>><SETG GSTOPS %<RSUBR-ENTRY '[\ \ F!- GSTOPS #DECL ("VALUE" <OR ATOM FIX LIST SYMBOL <OR FALSE LIST> <VECTOR FIX ANY STRING FIX>> FIX "TUPLE" TUPLE)] 0>><SETG MAKEGST %<RSUBR-ENTRY '[\ \ F!- MAKEGST #DECL ("VALUE" SYMTABLE STRING <VECTOR FIX ANY> "OPTIONAL" ANY)] 0>><SETG MSTOPS %<RSUBR-ENTRY '[\ \ F!- MSTOPS #DECL ("VALUE" ANY FIX "TUPLE" TUPLE)] 0>><SETG MAKEMST %<RSUBR-ENTRY '[\ \ F!- MAKEMST #DECL ("VALUE" SYMTABLE STRING <VECTOR SYMTABLE> "OPTIONAL" ANY)] 0>><SETG SSTOPS %<RSUBR-ENTRY '[\ \ F!- SSTOPS #DECL ("VALUE" ANY FIX "TUPLE" TUPLE)] 0>><SETG MAKESST %<RSUBR-ENTRY '[\ \ F!- MAKESST #DECL ("VALUE" SYMTABLE STRING <VECTOR [REST STRING ANY]> "OPTIONAL" ANY)] 0>><SETG MAKEBGST %<RSUBR-ENTRY '[\ \ F!- MAKEBGST #DECL ("VALUE" SYMTABLE STRING VECTOR "OPTIONAL" ANY)] 0>><SETG BGSTSORT %<RSUBR-ENTRY '[\ \ F!- BGSTSORT #DECL ("VALUE" ANY VECTOR)] 0>><SETG BGSTOPS %<RSUBR-ENTRY '[\ \ F!- BGSTOPS #DECL ("VALUE" <OR ATOM FIX SYMBOL <LIST [REST SYMBOL]> <OR FALSE <LIST [REST SYMBOL]>> <VECTOR STRING ANY> <VECTOR FIX ANY STRING FIX>> FIX "TUPLE" ANY)] 0>><SETG BSTSORT %<RSUBR-ENTRY '[\ \ F!- BSTSORT #DECL ("VALUE" ANY ANY "OPTIONAL" FIX FIX)] 0>><SETG BSTOPS %<RSUBR-ENTRY '[\ \ F!- BSTOPS #DECL ("VALUE" <OR ATOM FIX SYMBOL <LIST [REST SYMBOL]> <OR FALSE <LIST [REST SYMBOL]>> <VECTOR STRING ANY> <VECTOR FIX ANY STRING FIX>> FIX "TUPLE" ANY)] 0>><SETG MAKEBST %<RSUBR-ENTRY '[\ \ F!- MAKEBST #DECL ("VALUE" SYMTABLE STRING <VECTOR [REST STRING ANY]> "OPTIONAL" <OR FALSE FORM>)] 0>><ENDPACKAGE> <PACKAGE "ITS"><ENTRY ITS-SETLOC ITS-GETLOC ITS-EVAL USET SFTW-INTRPT-DESCRN ITS-CALL><USE "STR"><SETG ITS-SETLOC %<RSUBR-ENTRY '[\ \ F!- ITS-SETLOC #DECL ("VALUE" <PRIMTYPE WORD> <PRIMTYPE WORD> <PRIMTYPE WORD>)] 0>><SETG ITS-GETLOC %<RSUBR-ENTRY '[\ \ F!- ITS-GETLOC #DECL ("VALUE" FIX <PRIMTYPE WORD>)] 0>><SETG ITS-EVAL %<RSUBR-ENTRY '[\ \ F!- ITS-EVAL #DECL ("VALUE" <OR FIX FALSE> <PRIMTYPE WORD>)] 0>><SETG USET %<RSUBR-ENTRY '[\ \ F!- USET #DECL ("VALUE" <PRIMTYPE WORD> <OR CHANNEL ANY> <OR STRING <PRIMTYPE WORD>> "OPTIONAL" <OR FALSE <PRIMTYPE WORD>> <PRIMTYPE WORD>)] 0>><SETG SFTW-INTRPT-DESCRN %<RSUBR-ENTRY '[\ \ F!- SFTW-INTRPT-DESCRN #DECL ("VALUE" STRING <PRIMTYPE WORD>)] 0>><SETG ITS-CALL %<RSUBR-ENTRY '[\ \ F!- ITS-CALL #DECL ("VALUE" <OR 'T <FALSE FIX STRING>> STRING <UVECTOR [REST <PRIMTYPE WORD>]> "TUPLE" <TUPLE [REST <OR CHANNEL UVECTOR <PRIMTYPE WORD> <LIST [REST <PRIMTYPE WORD>]>>]>)] 0>><ENDPACKAGE> <PACKAGE "SENDMSG"><ENTRY SENDMSG><USE "ITIME"><SETG SENDMSG %<RSUBR-ENTRY '[\ \ F!- SENDMSG #DECL ("VALUE" <OR ATOM FALSE> <OR STRING LIST> STRING "TUPLE" TUPLE)] 0>><ENDPACKAGE> <PACKAGE "NOW"><ENTRY NOW><USE "ITIME"><SETG NOW %<RSUBR-ENTRY '[\ \ F!- NOW #DECL ("VALUE" STRING)] 0>><ENDPACKAGE> <PACKAGE "STINK"><ENTRY SYMPRINT SYMTAB SQUOZEBITS UNSQUOZE STINK><SETG SQUOZEBITS %<RSUBR-ENTRY '[\ \ F!- SQUOZEBITS #DECL ("VALUE" FIX <PRIMTYPE WORD>)] 0>><SETG UNSQUOZE %<RSUBR-ENTRY '[\ \ F!- UNSQUOZE #DECL ("VALUE" STRING <PRIMTYPE WORD> "OPTIONAL" STRING)] 0>><SETG STINK %<RSUBR-ENTRY '[\ \ F!- STINK #DECL ("VALUE" FIX CHANNEL <STORAGE [REST FIX]> "OPTIONAL" ANY)] 0>><GDECL (SYMTAB) OBLIST><ENDPACKAGE> <PACKAGE "BIGPRINT"><ENTRY 5X7-MASK BIGPRINT><SETG 5X7-MASK %<RSUBR-ENTRY '[\ \ F!- 5X7-MASK #DECL ("VALUE" FIX CHARACTER)] 0>><SETG BIGPRINT %<RSUBR-ENTRY '[\ \ F!- BIGPRINT #DECL ("VALUE" STRING STRING "OPTIONAL" FIX FIX)] 0>><ENDPACKAGE><PACKAGE "EVIL"><ENTRY GET-TTY EVIL><SETG GET-TTY %<RSUBR-ENTRY '[\ \ F!- GET-TTY #DECL ("VALUE" ANY)] 0>><SETG EVIL %<RSUBR-ENTRY '[\ \ F!- EVIL #DECL ("VALUE" <OR FALSE STRING> "ARGS" ANY)] 0>><ENDPACKAGE> <PACKAGE "FINDATOM"><ENTRY QUOTER STAR PLACEH FINDATOM><SETG FINDATOM %<RSUBR-ENTRY '[\ \ F!- FINDATOM #DECL ("VALUE" ANY <OR ATOM STRING> "OPTIONAL" <OR ATOM FALSE LIST OBLIST> "TUPLE" TUPLE)] 0>><ENDPACKAGE> <PACKAGE "DDM"><ENTRY DDMSLEEPTIME DDMRETRIES ALLTBLPAG ALLDATOFS ALLLOCOFS ALLSIZOFS PAGSIZ DDMCHAN EXTEND-ALLOC-TABLE PUT-DATA GET-DATA PUT-ITEM GET-ITEM DDMDALLOC DDMALLOC DDMRESERVE DDMNEWID DDMPRINTA DDMREADA DDMRESET DDMUNLOCK DDMWRLOCK DDMRDLOCK DDMDELETE DDMPRINT DDMREAD DDMFLUSH DDMCLOSE DDMOPEN><USE "MADMAN" "TENXIO" "DDMA"><SETG ALLTBLPAG 0><SETG ALLDATOFS 3><SETG ALLLOCOFS 1><SETG ALLSIZOFS 2><SETG PAGSIZ 512><NEWTYPE DDMCHAN VECTOR'<VECTOR STRING JFN <UVECTOR [REST FIX]> FIX FIX>><SETG EXTEND-ALLOC-TABLE %<RSUBR-ENTRY '[\ \ F!- EXTEND-ALLOC-TABLE #DECL ("VALUE" <OR FALSE FIX> DDMCHAN)] 0>><SETG PUT-DATA %<RSUBR-ENTRY '[\ \ F!- PUT-DATA #DECL ("VALUE" <OR FALSE <PRIMTYPE WORD> <UVECTOR [REST <PRIMTYPE WORD>]>> DDMCHAN <OR FIX WORD> <OR <PRIMTYPE WORD> <UVECTOR [REST <PRIMTYPE WORD>]>> FIX)] 0>><SETG GET-DATA %<RSUBR-ENTRY '[\ \ F!- GET-DATA #DECL ("VALUE" <OR FALSE <PRIMTYPE WORD> <UVECTOR [REST <PRIMTYPE WORD>]>> DDMCHAN <OR FIX WORD> <OR <PRIMTYPE WORD> <UVECTOR [REST <PRIMTYPE WORD>]>> FIX "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG PUT-ITEM %<RSUBR-ENTRY '[\ \ F!- PUT-ITEM #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> DDMCHAN FIX <UVECTOR [2 FIX]>)] 0>><SETG GET-ITEM %<RSUBR-ENTRY '[\ \ F!- GET-ITEM #DECL ("VALUE" <OR FALSE <UVECTOR [2 FIX]>> DDMCHAN FIX)] 0>><SETG DDMDALLOC %<RSUBR-ENTRY '[\ \ F!- DDMDALLOC #DECL ("VALUE" <OR FALSE FIX> DDMCHAN FIX FIX)] 0>><SETG DDMALLOC %<RSUBR-ENTRY '[\ \ F!- DDMALLOC #DECL ("VALUE" <OR FALSE FIX> DDMCHAN FIX)] 0>><SETG DDMRESERVE %<RSUBR-ENTRY '[\ \ F!- DDMRESERVE #DECL ("VALUE" <OR FALSE FIX> DDMCHAN FIX)] 0>><SETG DDMNEWID %<RSUBR-ENTRY '[\ \ F!- DDMNEWID #DECL ("VALUE" <OR FALSE FIX> DDMCHAN)] 0>><SETG DDMPRINTA %<RSUBR-ENTRY '[\ \ F!- DDMPRINTA #DECL ("VALUE" <OR FALSE FIX WORD> DDMCHAN <OR FIX WORD> <OR <PRIMTYPE WORD> <UVECTOR [REST <PRIMTYPE WORD>]>> "OPTIONAL" FIX <OR FIX FALSE>)] 0>><SETG DDMREADA %<RSUBR-ENTRY '[\ \ F!- DDMREADA #DECL ("VALUE" <OR FALSE <PRIMTYPE WORD> <UVECTOR [REST <PRIMTYPE WORD>]>> DDMCHAN <OR FIX WORD> <OR <PRIMTYPE WORD> <UVECTOR [REST <PRIMTYPE WORD>]>> "OPTIONAL" FIX FIX)] 0>><SETG DDMRESET %<RSUBR-ENTRY '[\ \ F!- DDMRESET #DECL ("VALUE" <OR DDMCHAN FALSE> DDMCHAN)] 0>><SETG DDMUNLOCK %<RSUBR-ENTRY '[\ \ F!- DDMUNLOCK #DECL ("VALUE" <OR FALSE WORD> DDMCHAN WORD)] 0>><SETG DDMWRLOCK %<RSUBR-ENTRY '[\ \ F!- DDMWRLOCK #DECL ("VALUE" <OR FALSE WORD> DDMCHAN FIX "OPTIONAL" FIX <OR FIX FLOAT>)] 0>><SETG DDMRDLOCK %<RSUBR-ENTRY '[\ \ F!- DDMRDLOCK #DECL ("VALUE" <OR FALSE WORD> DDMCHAN FIX "OPTIONAL" <OR ATOM FALSE> FIX FIX)] 0>><SETG DDMDELETE %<RSUBR-ENTRY '[\ \ F!- DDMDELETE #DECL ("VALUE" <OR FALSE FIX> DDMCHAN <OR FIX WORD>)] 0>><SETG DDMPRINT %<RSUBR-ENTRY '[\ \ F!- DDMPRINT #DECL ("VALUE" <OR FALSE FIX WORD> DDMCHAN <OR FIX WORD> SPACE ANY "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG DDMREAD %<RSUBR-ENTRY '[\ \ F!- DDMREAD #DECL ("VALUE" ANY DDMCHAN <OR FIX WORD> SPACE "OPTIONAL" FIX <OR ATOM FALSE>)] 0>><SETG DDMFLUSH %<RSUBR-ENTRY '[\ \ F!- DDMFLUSH #DECL ("VALUE" DDMCHAN DDMCHAN "OPTIONAL" ANY)] 0>><SETG DDMCLOSE %<RSUBR-ENTRY '[\ \ F!- DDMCLOSE #DECL ("VALUE" DDMCHAN DDMCHAN)] 0>><SETG DDMOPEN %<RSUBR-ENTRY '[\ \ F!- DDMOPEN #DECL ("VALUE" <OR DDMCHAN FALSE> <OR STRING JFN> "OPTIONAL" FIX FIX DDMCHAN)] 0>><MANIFEST PAGSIZ ALLSIZOFS ALLLOCOFS ALLDATOFS ALLTBLPAG><GDECL (DDMRETRIES) FIX (DDMSLEEPTIME) FIX><ENDPACKAGE> <PACKAGE "DECLM"><ENTRY ELE-DECL OBJ-DECL DECL-MATCH?><SETG ELE-DECL %<RSUBR-ENTRY '[\ \ F!- ELE-DECL #DECL ("VALUE" <OR ATOM FALSE> STRUCTURED STRUCTURED)] 0>><SETG OBJ-DECL %<RSUBR-ENTRY '[\ \ F!- OBJ-DECL #DECL ("VALUE" <OR ATOM FALSE> ANY ANY)] 0>><SETG DECL-MATCH? %<RSUBR-ENTRY '[\ \ F!- DECL-MATCH? #DECL ("VALUE" <OR ATOM FALSE> ANY ANY)] 0>><ENDPACKAGE> <PACKAGE "GSTIML"><ENTRY IMLAC-DISPATCH><USE "TTY" "GSTTYC" "GS"><SETG IMLAC-DISPATCH %<RSUBR-ENTRY '[\ \ F!- IMLAC-DISPATCH #DECL ("VALUE" <VECTOR [8 RSUBR] APPLICABLE [3 RSUBR] [2 APPLICABLE] RSUBR [3 APPLICABLE] [REST APPLICABLE]>)] 0>><ENDPACKAGE> <PACKAGE "CHARAP"><ENTRY FF CR CHARAPPEND><USE "FP"><SETG FF !\ ><SETG CR "
"><SETG CHARAPPEND %<RSUBR-ENTRY '[\ \ F!- CHARAPPEND #DECL ("VALUE" <OR CHANNEL FALSE> <OR STRING CHANNEL> FIX ANY "TUPLE" TUPLE)] 0>><MANIFEST CR FF><ENDPACKAGE><PACKAGE "BANNER-PACK"><ENTRY BANNER><USE "BIGPRINT"><SETG BANNER %<RSUBR-ENTRY '[\ \ F!- BANNER #DECL ("VALUE" ATOM STRING "OPTIONAL" FIX CHANNEL <OR FALSE CHARACTER> <OR FALSE STRING>)] 0>><ENDPACKAGE> <PACKAGE "BOOT"><ENTRY BOOTSTRAP><SETG BOOTSTRAP %<RSUBR-ENTRY '[\ \ F!- BOOTSTRAP #DECL ("VALUE" <OR FALSE STRING> STRING "OPTIONAL" STRING <OR ATOM FALSE> <OR STRING FIX>)] 0>><ENDPACKAGE><PACKAGE "DATA"><ENTRY NUMBER DATA-ITEM DATA-TYPE><SETG NUMBER %<RSUBR-ENTRY '[\ \ F!- NUMBER #DECL ("VALUE" <UVECTOR [REST ATOM]> FIX "TUPLE" <TUPLE [REST ATOM]>)] 0>><SETG DATA-ITEM %<RSUBR-ENTRY '[\ \ F!- DATA-ITEM #DECL ("VALUE" ATOM <OR ATOM <LIST ATOM <OR FALSE ATOM>>> ATOM "ARGS" LIST)] 0>><SETG DATA-TYPE %<RSUBR-ENTRY '[\ \ F!- DATA-TYPE #DECL ("VALUE" ATOM <OR ATOM <LIST ATOM <OR FALSE ATOM>>> ATOM "ARGS" LIST)] 0>><ENDPACKAGE><PACKAGE "DEMCLS"><ENTRY READ-DEMON-STATUS CLEAR-DEMON-STATUS SET-DEMON-STATUS SIGNAL-DEMON><USE "STR"><SETG READ-DEMON-STATUS %<RSUBR-ENTRY '[\ \ F!- READ-DEMON-STATUS #DECL ("VALUE" <OR <VECTOR [4 FIX]> FALSE> <OR STRING FIX>)] 0>><SETG CLEAR-DEMON-STATUS %<RSUBR-ENTRY '[\ \ F!- CLEAR-DEMON-STATUS #DECL ("VALUE" <OR ATOM FALSE> <OR STRING FIX>)] 0>><SETG SET-DEMON-STATUS %<RSUBR-ENTRY '[\ \ F!- SET-DEMON-STATUS #DECL ("VALUE" <OR ATOM FALSE> <OR STRING FIX> FIX FIX FIX)] 0>><SETG SIGNAL-DEMON %<RSUBR-ENTRY '[\ \ F!- SIGNAL-DEMON #DECL ("VALUE" <OR ATOM FALSE> STRING "OPTIONAL" FIX)] 0>><ENDPACKAGE> <PACKAGE "PARSE-DATE"><ENTRY MONTHS DAYS MONTH-SIZE SYM=? PARSE-NUM PARSE-DATE><USE "ITIME"><SETG SYM=? %<RSUBR-ENTRY '[\ \ F!- SYM=? #DECL ("VALUE" <OR FALSE FIX> STRING <VECTOR [REST STRING]>)] 0>><SETG PARSE-NUM %<RSUBR-ENTRY '[\ \ F!- PARSE-NUM #DECL ("VALUE" <OR FIX STRING> STRING)] 0>><SETG PARSE-DATE %<RSUBR-ENTRY '[\ \ F!- PARSE-DATE #DECL ("VALUE" <OR FALSE FIX> VECTOR "OPTIONAL" <OR ATOM FALSE>)] 0>><GDECL (MONTH-SIZE) <UVECTOR [REST FIX]> (DAYS) <VECTOR [REST STRING]> (MONTHS) <VECTOR [REST STRING]>><ENDPACKAGE> <PACKAGE "TXTUTI"><ENTRY LC-UC PARADJUST SMASH DCRLFS CRLFS DEFAULT-LINE-SIZE><SETG LC-UC %<RSUBR-ENTRY '[\ \ F!- LC-UC #DECL ("VALUE" <LIST [REST STRING]> <LIST [REST STRING]>)] 0>><SETG PARADJUST %<RSUBR-ENTRY '[\ \ F!- PARADJUST #DECL ("VALUE" LIST LIST "OPTIONAL" FIX STRING STRING)] 0>><SETG SMASH %<RSUBR-ENTRY '[\ \ F!- SMASH #DECL ("VALUE" STRING STRING CHARACTER CHARACTER)] 0>><GDECL (DEFAULT-LINE-SIZE) FIX (CRLFS) STRING (DCRLFS) STRING><ENDPACKAGE> <PACKAGE "FP"><ENTRY FLTPARSE FLTSCIPARSE FLTSCI DIGIT? READABLE LOWER-CASE UPPER-CASE FPRINT><SETG FLTPARSE %<RSUBR-ENTRY '[\ \ F!- FLTPARSE #DECL ("VALUE" STRING FLOAT FIX)] 0>><SETG FLTSCIPARSE %<RSUBR-ENTRY '[\ \ F!- FLTSCIPARSE #DECL ("VALUE" STRING FLOAT FIX)] 0>><SETG FLTSCI %<RSUBR-ENTRY '[\ \ F!- FLTSCI #DECL ("VALUE" <VECTOR FLOAT FIX> FLOAT)] 0>><SETG DIGIT? %<RSUBR-ENTRY '[\ \ F!- DIGIT? #DECL ("VALUE" <OR FIX FALSE> CHARACTER)] 0>><SETG READABLE %<RSUBR-ENTRY '[\ \ F!- READABLE #DECL ("VALUE" STRING STRING)] 0>><SETG LOWER-CASE %<RSUBR-ENTRY '[\ \ F!- LOWER-CASE #DECL ("VALUE" STRING STRING)] 0>><SETG UPPER-CASE %<RSUBR-ENTRY '[\ \ F!- UPPER-CASE #DECL ("VALUE" STRING STRING)] 0>><SETG FPRINT %<RSUBR-ENTRY '[\ \ F!- FPRINT #DECL ("VALUE" ATOM STRING CHANNEL "OPTIONAL" STRUCTURED)] 0>><ENDPACKAGE><PACKAGE "RJSTEL"><ENTRY READ-UNTIL STATUS-JOBS SIGNOFF SIGNON><USE "RJSJOB" "RJSDAT" "ICP" "STR" "RJSUTI"><SETG READ-UNTIL %<RSUBR-ENTRY '[\ \ F!- READ-UNTIL #DECL ("VALUE" <OR FALSE FIX> "OPTIONAL" <LIST [REST FIX]>)] 0>><SETG STATUS-JOBS %<RSUBR-ENTRY '[\ \ F!- STATUS-JOBS #DECL ("VALUE" ANY)] 0>><SETG SIGNOFF %<RSUBR-ENTRY '[\ \ F!- SIGNOFF #DECL ("VALUE" ATOM)] 0>><SETG SIGNON %<RSUBR-ENTRY '[\ \ F!- SIGNON #DECL ("VALUE" ANY STRING)] 0>><ENDPACKAGE> <PACKAGE "SMCOD"><ENTRY SMCOD><USE "MDTYPE" "MDTABLE"><SETG SMCOD %<RSUBR-ENTRY '[\ \ F!- SMCOD #DECL ("VALUE" <OR FALSE MCOD> MCOD STRING "OPTIONAL" ANY)] 0>><ENDPACKAGE> <PACKAGE "MTPRIM"><ENTRY PLOTVDSK TRANS SETORG PLOTV POINT PAGE MOVE MIGSSEND LINE HARDCOPY DRAW><USE "SMCELLS" "DISPLA"><SETG PLOTVDSK %<RSUBR-ENTRY '[\ \ F!- PLOTVDSK #DECL ("VALUE" STRING <OR LIST VECTOR UVECTOR> <OR LIST VECTOR UVECTOR> CHANNEL)] 0>><SETG TRANS %<RSUBR-ENTRY '[\ \ F!- TRANS #DECL ("VALUE" <LIST [4 FIX]> FIX FIX)] 0>><SETG SETORG %<RSUBR-ENTRY '[\ \ F!- SETORG #DECL ("VALUE" LIST "OPTIONAL" <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG PLOTV %<RSUBR-ENTRY '[\ \ F!- PLOTV #DECL ("VALUE" ATOM <OR LIST VECTOR UVECTOR> <OR LIST VECTOR UVECTOR> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG POINT %<RSUBR-ENTRY '[\ \ F!- POINT #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG PAGE %<RSUBR-ENTRY '[\ \ F!- PAGE #DECL ("VALUE" ANY)] 0>><SETG MOVE %<RSUBR-ENTRY '[\ \ F!- MOVE #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG MIGSSEND %<RSUBR-ENTRY '[\ \ F!- MIGSSEND #DECL ("VALUE" ATOM "TUPLE" <TUPLE [REST FIX]>)] 0>><SETG LINE %<RSUBR-ENTRY '[\ \ F!- LINE #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG HARDCOPY %<RSUBR-ENTRY '[\ \ F!- HARDCOPY #DECL ("VALUE" ANY)] 0>><SETG DRAW %<RSUBR-ENTRY '[\ \ F!- DRAW #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><ENDPACKAGE> <PACKAGE "ULIST"><ENTRY NEXT-ENTRY ULIST-GEN ULIST-MATCH SPEC-BUILD ULIST-FLUSH ULIST-CLOSE ULIST-RESET ULIST-PRINT ULIST><USE "LSRTNS"><SETG NEXT-ENTRY %<RSUBR-ENTRY '[\ \ F!- NEXT-ENTRY #DECL ("VALUE" <OR FALSE STRING>)] 0>><SETG ULIST-GEN %<RSUBR-ENTRY '[\ \ F!- ULIST-GEN #DECL ("VALUE" <OR FALSE STRING> VECTOR)] 0>><SETG ULIST-MATCH %<RSUBR-ENTRY '[\ \ F!- ULIST-MATCH #DECL ("VALUE" <OR ATOM FALSE> STRING <VECTOR <OR CHARACTER FIX> [REST <OR STRING VECTOR>]>)] 0>><SETG SPEC-BUILD %<RSUBR-ENTRY '[\ \ F!- SPEC-BUILD #DECL ("VALUE" VECTOR VECTOR)] 0>><SETG ULIST-FLUSH %<RSUBR-ENTRY '[\ \ F!- ULIST-FLUSH #DECL ("VALUE" ATOM)] 0>><SETG ULIST-CLOSE %<RSUBR-ENTRY '[\ \ F!- ULIST-CLOSE #DECL ("VALUE" <OR CHANNEL FALSE>)] 0>><SETG ULIST-RESET %<RSUBR-ENTRY '[\ \ F!- ULIST-RESET #DECL ("VALUE" VECTOR)] 0>><SETG ULIST-PRINT %<RSUBR-ENTRY '[\ \ F!- ULIST-PRINT #DECL ("VALUE" <LIST [REST STRING]> VECTOR "OPTIONAL" <OR ATOM FIX FALSE>)] 0>><SETG ULIST %<RSUBR-ENTRY '[\ \ F!- ULIST #DECL ("VALUE" <LIST [REST STRING]> VECTOR "OPTIONAL" <OR ATOM FIX FALSE>)] 0>><ENDPACKAGE> <RPACKAGE "SDM"><ENTRY SDMSYN SDMSYL SDMPUTVARC SDMPUTARC SDMPUTEVL SDMPUTGRP SDMPUTINV SDMPUTGC SDMPUT SDMGBC SDMDLWINV SDMDLI SDMAPFA SDMAPFV SDMAPF><USE "SDML" "INV" "PMFREE" "VCTMAN" "CPYFIL"><SETG SDMSYN %<RSUBR-ENTRY '[\ \ F!- SDMSYN #DECL ("VALUE" <OR FIX FALSE> PMCHAN ANY ANY "OPTIONAL" FIX)] 0>><SETG SDMSYL %<RSUBR-ENTRY '[\ \ F!- SDMSYL #DECL ("VALUE" <OR LIST FALSE> PMCHAN ANY "OPTIONAL" FIX)] 0>><SETG SDMPUTVARC %<RSUBR-ENTRY '[\ \ F!- SDMPUTVARC #DECL ("VALUE" <OR FIX FALSE> PMCHAN ANY STRING "OPTIONAL" FIX)] 0>><SETG SDMPUTARC %<RSUBR-ENTRY '[\ \ F!- SDMPUTARC #DECL ("VALUE" <OR FIX FALSE> PMCHAN ANY STRING "OPTIONAL" FIX)] 0>><SETG SDMPUTEVL %<RSUBR-ENTRY '[\ \ F!- SDMPUTEVL #DECL ("VALUE" <OR FIX FALSE> PMCHAN ANY ANY "OPTIONAL" FIX)] 0>><SETG SDMPUTGRP %<RSUBR-ENTRY '[\ \ F!- SDMPUTGRP #DECL ("VALUE" <OR FIX FALSE> PMCHAN ANY VECTOR "OPTIONAL" FIX)] 0>><SETG SDMPUTINV %<RSUBR-ENTRY '[\ \ F!- SDMPUTINV #DECL ("VALUE" <OR FIX FALSE> PMCHAN ANY <OR UVECTOR FIX> "OPTIONAL" FIX)] 0>><SETG SDMPUTGC %<RSUBR-ENTRY '[\ \ F!- SDMPUTGC #DECL ("VALUE" <OR FIX FALSE> PMCHAN ANY ANY "OPTIONAL" FIX)] 0>><SETG SDMPUT %<RSUBR-ENTRY '[\ \ F!- SDMPUT #DECL ("VALUE" <OR FIX FALSE STRING> PMCHAN ANY "OPTIONAL" ANY FIX)] 0>><SETG SDMGBC %<RSUBR-ENTRY '[\ \ F!- SDMGBC #DECL ("VALUE" FIX STRING STRING)] 0>><SETG SDMDLWINV %<RSUBR-ENTRY '[\ \ F!- SDMDLWINV #DECL ("VALUE" <OR ATOM STRING FALSE> PMCHAN ANY <PRIMTYPE WORD>)] 0>><SETG SDMDLI %<RSUBR-ENTRY '[\ \ F!- SDMDLI #DECL ("VALUE" <OR STRING FALSE> PMCHAN ANY "OPTIONAL" FIX)] 0>><SETG SDMAPFA %<RSUBR-ENTRY '[\ \ F!- SDMAPFA #DECL ("VALUE" ANY ANY ANY PMCHAN "TUPLE" ANY)] 0>><SETG SDMAPFV %<RSUBR-ENTRY '[\ \ F!- SDMAPFV #DECL ("VALUE" ANY ANY ANY PMCHAN "TUPLE" ANY)] 0>><SETG SDMAPF %<RSUBR-ENTRY '[\ \ F!- SDMAPF #DECL ("VALUE" ANY ANY ANY PMCHAN "TUPLE" ANY)] 0>><ENDPACKAGE><PACKAGE "COMMAND"><ENTRY CONFIRM CALICO-COMMAND><USE "CALSYM" "CALRDR"><SETG CONFIRM %<RSUBR-ENTRY '[\ \ F!- CONFIRM #DECL ("VALUE" <OR ATOM FALSE>)] 0>><SETG CALICO-COMMAND %<RSUBR-ENTRY '[\ \ F!- CALICO-COMMAND #DECL ("VALUE" ANY APPLICABLE VECTOR "OPTIONAL" VECTOR "TUPLE" <TUPLE [REST STRING]>)] 0>><ENDPACKAGE> <PACKAGE "SKY-FANS"><ENTRY C.M.U. D.C. STANFORD C.I.T. M.I.T. SKY-FANS-MSG><USE "CELEST" "DATIME" "TIMFCN"><USE "LSRHIL" "MFD"><SETG SKY-FANS-MSG %<RSUBR-ENTRY '[\ \ F!- SKY-FANS-MSG #DECL ("VALUE" ATOM "OPTIONAL" STRING STRING LIST LIST FIX CHARACTER <OR FALSE ANY> <LIST LIST>)] 0>><ENDPACKAGE> <PACKAGE "ITSIO"><ENTRY PAGE-WRITE FLUSH-FILE *FILE-LENGTH MAP-PAGE IOT-FILE><SETG PAGE-WRITE %<RSUBR-ENTRY '[\ \ F!- PAGE-WRITE #DECL ("VALUE" <OR FIX WORD> <PRIMTYPE WORD>)] 0>><SETG FLUSH-FILE %<RSUBR-ENTRY '[\ \ F!- FLUSH-FILE #DECL ("VALUE" CHANNEL CHANNEL)] 0>><SETG *FILE-LENGTH %<RSUBR-ENTRY '[\ \ F!- *FILE-LENGTH #DECL ("VALUE" <OR FIX FALSE> CHANNEL)] 0>><SETG MAP-PAGE %<RSUBR-ENTRY '[\ \ F!- MAP-PAGE #DECL ("VALUE" <OR FIX FALSE> <PRIMTYPE WORD> FIX FIX FIX FIX)] 0>><SETG IOT-FILE %<RSUBR-ENTRY '[\ \ F!- IOT-FILE #DECL ("VALUE" <OR UVECTOR FIX FALSE> CHANNEL <OR UVECTOR FIX> FIX)] 0>><ENDPACKAGE> <PACKAGE "COMMUD"><ENTRY COMMUD><SETG COMMUD %<RSUBR-ENTRY '[\ \ F!- COMMUD #DECL ("VALUE" <OR FALSE LIST> STRING)] 0>><ENDPACKAGE> <PACKAGE "RDB"><ENTRY RUNBREAK ADR RBREAK RFREEZE><SETG RUNBREAK %<RSUBR-ENTRY '[\ \ F!- RUNBREAK #DECL ("VALUE" <OR FALSE STRING> ATOM)] 0>><SETG RBREAK %<RSUBR-ENTRY '[\ \ F!- RBREAK #DECL ("VALUE" <OR FALSE STRING> ATOM)] 0>><SETG RFREEZE %<RSUBR-ENTRY '[\ \ F!- RFREEZE #DECL ("VALUE" <OR FALSE STRING> ATOM)] 0>><ENDPACKAGE> <PACKAGE "SKIP"><ENTRY QLOAD SKIPOUT SKIPTO SKIP><SETG QLOAD %<RSUBR-ENTRY '[\ \ F!- QLOAD #DECL ("VALUE" ANY <OR ATOM STRING> <OR ATOM <LIST ATOM [REST ATOM]> <FALSE ATOM [REST ATOM]>> "OPTIONAL" <LIST [REST <OR OBLIST 'DEFAULT>]> ANY)] 0>><SETG SKIPOUT %<RSUBR-ENTRY '[\ \ F!- SKIPOUT #DECL ("VALUE" ANY CHANNEL "OPTIONAL" <OR '!\Z '!\F '!\R> FIX STRING)] 0>><SETG SKIPTO %<RSUBR-ENTRY '[\ \ F!- SKIPTO #DECL ("VALUE" ANY CHANNEL "OPTIONAL" <OR '!\Z '!\F '!\R '!\W '!\C>)] 0>><SETG SKIP %<RSUBR-ENTRY '[\ \ F!- SKIP #DECL ("VALUE" ANY CHANNEL "OPTIONAL" <OR '!\Z '!\F '!\R '!\W '!\C> CHARACTER)] 0>><ENDPACKAGE> <PACKAGE "HPTEK"><ENTRY HPTOFF HPTON><SETG HPTOFF %<RSUBR-ENTRY '[\ \ F!- HPTOFF #DECL ("VALUE" ANY)] 0>><SETG HPTON %<RSUBR-ENTRY '[\ \ F!- HPTON #DECL ("VALUE" ANY)] 0>><ENDPACKAGE> <PACKAGE "CDM"><ENTRY CDMNRMDIR CDMPUTDIR CDMSRCDIR CDMGETDIR MAKECDMST CDMLST CDMLNT CDMAPF CDMDLI CDMDLWINV CDMPUTINV CDMSRC CDMDCT CDMOPN CDMACT CDMCHAN><USE "PMAP" "PMFREE" "INV" "CALSYM" "VCTMAN"><SETG CDMNRMDIR %<RSUBR-ENTRY '[\ \ F!- CDMNRMDIR #DECL ("VALUE" <OR ATOM FALSE> CDMCHAN)] 0>><SETG CDMPUTDIR %<RSUBR-ENTRY '[\ \ F!- CDMPUTDIR #DECL ("VALUE" <OR ATOM FALSE> CDMCHAN)] 0>><SETG CDMSRCDIR %<RSUBR-ENTRY '[\ \ F!- CDMSRCDIR #DECL ("VALUE" <OR FALSE <VECTOR <VECTOR [REST STRING <OR FIX <VECTOR FIX INVERSION>>]> FIX ATOM> <VECTOR <VECTOR [REST STRING <OR FIX <VECTOR FIX INVERSION>>]> FIX FALSE>> CDMCHAN ANY)] 0>><SETG CDMGETDIR %<RSUBR-ENTRY '[\ \ F!- CDMGETDIR #DECL ("VALUE" <OR FALSE <VECTOR [REST STRING <OR FIX <VECTOR FIX INVERSION>>]>> CDMCHAN)] 0>><SETG MAKECDMST %<RSUBR-ENTRY '[\ \ F!- MAKECDMST #DECL ("VALUE" <OR FALSE SYMTABLE> CDMCHAN)] 0>><SETG CDMLST %<RSUBR-ENTRY '[\ \ F!- CDMLST #DECL ("VALUE" ATOM CDMCHAN "OPTIONAL" CHANNEL)] 0>><SETG CDMLNT %<RSUBR-ENTRY '[\ \ F!- CDMLNT #DECL ("VALUE" FIX CDMCHAN)] 0>><SETG CDMAPF %<RSUBR-ENTRY '[\ \ F!- CDMAPF #DECL ("VALUE" ANY <OR APPLICABLE FALSE> APPLICABLE CDMCHAN "TUPLE" ANY)] 0>><SETG CDMDLI %<RSUBR-ENTRY '[\ \ F!- CDMDLI #DECL ("VALUE" ANY CDMCHAN ANY)] 0>><SETG CDMDLWINV %<RSUBR-ENTRY '[\ \ F!- CDMDLWINV #DECL ("VALUE" <OR ATOM FALSE> CDMCHAN ANY FIX)] 0>><SETG CDMPUTINV %<RSUBR-ENTRY '[\ \ F!- CDMPUTINV #DECL ("VALUE" <OR ATOM FALSE> CDMCHAN ANY FIX)] 0>><SETG CDMSRC %<RSUBR-ENTRY '[\ \ F!- CDMSRC #DECL ("VALUE" <OR FALSE <VECTOR PMCHAN FIX FIX FALSE> <VECTOR PMCHAN FIX FIX INVERSION>> CDMCHAN ANY)] 0>><SETG CDMDCT %<RSUBR-ENTRY '[\ \ F!- CDMDCT #DECL ("VALUE" CDMCHAN CDMCHAN)] 0>><SETG CDMOPN %<RSUBR-ENTRY '[\ \ F!- CDMOPN #DECL ("VALUE" <OR CDMCHAN FALSE> STRING)] 0>><SETG CDMACT %<RSUBR-ENTRY '[\ \ F!- CDMACT #DECL ("VALUE" <OR CDMCHAN FALSE> STRING "OPTIONAL" ANY)] 0>><NEWTYPE CDMCHAN VECTOR'<VECTOR PMCHAN <OR <VECTOR [REST STRING <OR FIX <VECTOR FIX INVERSION>>]> FALSE> UVECTOR ANY>><ENDPACKAGE> <PACKAGE "SMP"><ENTRY SMPMAPF SMPLNT SMPDEL SMPUT SMPGETVAL SMPGETID SMPGET SMPGETNAM SMPDCT SMPOPN SMPACT><USE "SDM" "PMFREE"><SETG SMPMAPF %<RSUBR-ENTRY '[\ \ F!- SMPMAPF #DECL ("VALUE" ANY ANY ANY <VECTOR PMCHAN PMCHAN> "TUPLE" ANY)] 0>><SETG SMPLNT %<RSUBR-ENTRY '[\ \ F!- SMPLNT #DECL ("VALUE" FIX <VECTOR PMCHAN PMCHAN>)] 0>><SETG SMPDEL %<RSUBR-ENTRY '[\ \ F!- SMPDEL #DECL ("VALUE" <OR STRING FALSE> <VECTOR PMCHAN PMCHAN> ANY)] 0>><SETG SMPUT %<RSUBR-ENTRY '[\ \ F!- SMPUT #DECL ("VALUE" <OR FIX FALSE> <VECTOR PMCHAN PMCHAN> ANY ANY)] 0>><SETG SMPGETVAL %<RSUBR-ENTRY '[\ \ F!- SMPGETVAL #DECL ("VALUE" ANY <VECTOR PMCHAN PMCHAN> ANY)] 0>><SETG SMPGETID %<RSUBR-ENTRY '[\ \ F!- SMPGETID #DECL ("VALUE" <OR FIX FALSE> <VECTOR PMCHAN PMCHAN> ANY)] 0>><SETG SMPGET %<RSUBR-ENTRY '[\ \ F!- SMPGET #DECL ("VALUE" <OR VECTOR FALSE> <VECTOR PMCHAN PMCHAN> ANY)] 0>><SETG SMPGETNAM %<RSUBR-ENTRY '[\ \ F!- SMPGETNAM #DECL ("VALUE" STRING <VECTOR PMCHAN PMCHAN> <PRIMTYPE WORD>)] 0>><SETG SMPDCT %<RSUBR-ENTRY '[\ \ F!- SMPDCT #DECL ("VALUE" <VECTOR PMCHAN PMCHAN> <VECTOR PMCHAN PMCHAN>)] 0>><SETG SMPOPN %<RSUBR-ENTRY '[\ \ F!- SMPOPN #DECL ("VALUE" <OR <VECTOR PMCHAN PMCHAN> FALSE> <VECTOR STRING STRING>)] 0>><SETG SMPACT %<RSUBR-ENTRY '[\ \ F!- SMPACT #DECL ("VALUE" <OR VECTOR FALSE> <VECTOR STRING STRING>)] 0>><ENDPACKAGE> <PACKAGE "MACRO"><ENTRY ENTRY-ALLOW MACRO-ALWAYS MACRO-NEVER FUNCTION-MACRO GROUP-MACRO FILE-MACRO><SETG FUNCTION-MACRO %<RSUBR-ENTRY '[\ \ F!- FUNCTION-MACRO #DECL ("VALUE" <OR ATOM FALSE> ATOM "OPTIONAL" <OR FALSE CHANNEL> INFO FORM)] 0>><SETG GROUP-MACRO %<RSUBR-ENTRY '[\ \ F!- GROUP-MACRO #DECL ("VALUE" ATOM ATOM "OPTIONAL" <OR FALSE CHANNEL>)] 0>><SETG FILE-MACRO %<RSUBR-ENTRY '[\ \ F!- FILE-MACRO #DECL ("VALUE" <OR ATOM FALSE> <OR ATOM STRING> "OPTIONAL" STRING <OR FALSE CHANNEL>)] 0>><GDECL (MACRO-NEVER) FIX (MACRO-ALWAYS) FIX><ENDPACKAGE> <PACKAGE "MDKILL"><ENTRY RESET-SPANS KILL-SPANS><USE "MDTYPE"><SETG RESET-SPANS %<RSUBR-ENTRY '[\ \ F!- RESET-SPANS #DECL ("VALUE" STRING MCOD)] 0>><SETG KILL-SPANS %<RSUBR-ENTRY '[\ \ F!- KILL-SPANS #DECL ("VALUE" STRING MCOD "TUPLE" <TUPLE [REST <OR ATOM FALSE>]>)] 0>><ENDPACKAGE> <PACKAGE "XGEDIT"><ENTRY PT.G.EDIT SYM.CHANGE SYM.INSERT DEPTH.G.EDIT SYM.EDIT KILL.G.EDIT CHANGE.G.EDIT INSERT.G.EDIT G.EDIT><USE "CALRDR" "CALSYM"><SETG SYM.CHANGE %<RSUBR-ENTRY '[\ \ F!- SYM.CHANGE #DECL ("VALUE" <OR ATOM <PRIMTYPE LIST>> <PRIMTYPE LIST> "OPTIONAL" <LIST <PRIMTYPE VECTOR> STRING VECTOR VECTOR> APPLICABLE)] 0>><SETG SYM.INSERT %<RSUBR-ENTRY '[\ \ F!- SYM.INSERT #DECL ("VALUE" <OR ATOM FIX> <PRIMTYPE LIST> "OPTIONAL" <LIST <PRIMTYPE VECTOR> STRING VECTOR VECTOR> ANY APPLICABLE)] 0>><SETG SYM.EDIT %<RSUBR-ENTRY '[\ \ F!- SYM.EDIT #DECL ("VALUE" ANY ATOM <OR FALSE <LIST [REST OBLIST]>> <OR FALSE <LIST [REST OBLIST]>> <LIST ANY STRING VECTOR VECTOR> "OPTIONAL" FIX)] 0>><SETG KILL.G.EDIT %<RSUBR-ENTRY '[\ \ F!- KILL.G.EDIT #DECL ("VALUE" <OR STRING <PRIMTYPE LIST>> <PRIMTYPE LIST> ANY)] 0>><SETG CHANGE.G.EDIT %<RSUBR-ENTRY '[\ \ F!- CHANGE.G.EDIT #DECL ("VALUE" <PRIMTYPE LIST> <PRIMTYPE LIST> ANY)] 0>><SETG INSERT.G.EDIT %<RSUBR-ENTRY '[\ \ F!- INSERT.G.EDIT #DECL ("VALUE" FIX <PRIMTYPE LIST> ANY)] 0>><SETG G.EDIT %<RSUBR-ENTRY '[\ \ F!- G.EDIT #DECL ("VALUE" ANY ATOM "OPTIONAL" <OR FALSE <LIST [REST OBLIST]>> <OR FALSE <LIST [REST OBLIST]>> "TUPLE" <TUPLE [REST LIST]>)] 0>><ENDPACKAGE> <PACKAGE "DATRED"><ENTRY SMOOTH SUMFIRST><SETG SMOOTH %<RSUBR-ENTRY '[\ \ F!- SMOOTH #DECL ("VALUE" <STRUCTURED <OR FIX FLOAT>> <STRUCTURED <OR FIX FLOAT>> FIX)] 0>><SETG SUMFIRST %<RSUBR-ENTRY '[\ \ F!- SUMFIRST #DECL ("VALUE" <OR FIX FLOAT> <STRUCTURED <OR FIX FLOAT>> "OPTIONAL" FIX)] 0>><ENDPACKAGE> <PACKAGE "SYSTAT"><ENTRY SYSTATUS><USE "STR"><SETG SYSTATUS %<RSUBR-ENTRY '[\ \ F!- SYSTATUS #DECL ("VALUE" <VECTOR <OR FALSE FIX> <OR ATOM FALSE FIX> FIX FIX FIX STRING>)] 0>><ENDPACKAGE> <PACKAGE "UVHACK"><ENTRY STR-TO-UV UV-TO-STR><SETG STR-TO-UV %<RSUBR-ENTRY '[\ \ F!- STR-TO-UV #DECL ("VALUE" UVECTOR STRING)] 0>><SETG UV-TO-STR %<RSUBR-ENTRY '[\ \ F!- UV-TO-STR #DECL ("VALUE" STRING UVECTOR)] 0>><ENDPACKAGE> <PACKAGE "CCA"><ENTRY CCA-LIST CCA-SEND CCA-GET CCA-ASSIGN CCA-DATA-MODE CCA-DATA-CHAN CCA-DEACTIVATE-DATA-CHAN CCA-ACTIVATE-DATA-CHAN CCA-CONNECT CCA-LOGIN CCA-CLOSE CCA-OPEN NETCLOSE CCA-SCRIPT-CHAN CCA-CHAN CCA-ALLOW-SCRIPT? CCA-DEACTIVATE-SCRIPT CCA-ACTIVATE-SCRIPT CCA-ERR-SYNC CCA-COMMAND CCA-PRINT CCA-READ CCA-KILL CCA-DEACTIVATE CCA-ACTIVATE><USE "CPYFIL"><SETG CCA-LIST %<RSUBR-ENTRY '[\ \ F!- CCA-LIST #DECL ("VALUE" <OR ATOM FALSE> STRING "OPTIONAL" STRING)] 0>><SETG CCA-SEND %<RSUBR-ENTRY '[\ \ F!- CCA-SEND #DECL ("VALUE" <OR ATOM CHANNEL FALSE> <OR CHANNEL STRING> "OPTIONAL" <OR CHANNEL FALSE>)] 0>><SETG CCA-GET %<RSUBR-ENTRY '[\ \ F!- CCA-GET #DECL ("VALUE" <OR ATOM CHANNEL FALSE> <OR CHANNEL STRING> "OPTIONAL" <OR CHANNEL FALSE>)] 0>><SETG CCA-ASSIGN %<RSUBR-ENTRY '[\ \ F!- CCA-ASSIGN #DECL ("VALUE" <OR CHANNEL FALSE STRING> STRING STRING "OPTIONAL" ANY FIX)] 0>><SETG CCA-DEACTIVATE-DATA-CHAN %<RSUBR-ENTRY '[\ \ F!- CCA-DEACTIVATE-DATA-CHAN #DECL ("VALUE" <OR ATOM FALSE>)] 0>><SETG CCA-ACTIVATE-DATA-CHAN %<RSUBR-ENTRY '[\ \ F!- CCA-ACTIVATE-DATA-CHAN #DECL ("VALUE" <OR CHANNEL FALSE> "OPTIONAL" FIX)] 0>><SETG CCA-CONNECT %<RSUBR-ENTRY '[\ \ F!- CCA-CONNECT #DECL ("VALUE" <OR ATOM FALSE> STRING STRING)] 0>><SETG CCA-LOGIN %<RSUBR-ENTRY '[\ \ F!- CCA-LOGIN #DECL ("VALUE" <OR ATOM FALSE> STRING)] 0>><SETG CCA-CLOSE %<RSUBR-ENTRY '[\ \ F!- CCA-CLOSE #DECL ("VALUE" <OR ATOM FALSE> STRING)] 0>><SETG CCA-OPEN %<RSUBR-ENTRY '[\ \ F!- CCA-OPEN #DECL ("VALUE" <OR ATOM FALSE> STRING "OPTIONAL" STRING)] 0>><SETG NETCLOSE %<RSUBR-ENTRY '[\ \ F!- NETCLOSE #DECL ("VALUE" <OR CHANNEL FALSE> ANY)] 0>><SETG CCA-DEACTIVATE-SCRIPT %<RSUBR-ENTRY '[\ \ F!- CCA-DEACTIVATE-SCRIPT #DECL ("VALUE" FALSE)] 0>><SETG CCA-ACTIVATE-SCRIPT %<RSUBR-ENTRY '[\ \ F!- CCA-ACTIVATE-SCRIPT #DECL ("VALUE" <OR CHANNEL FALSE> <OR STRING CHANNEL> "OPTIONAL" CHANNEL)] 0>><SETG CCA-ERR-SYNC %<RSUBR-ENTRY '[\ \ F!- CCA-ERR-SYNC #DECL ("VALUE" <OR ATOM FALSE>)] 0>><SETG CCA-COMMAND %<RSUBR-ENTRY '[\ \ F!- CCA-COMMAND #DECL ("VALUE" <OR ATOM FALSE> STRING)] 0>><SETG CCA-PRINT %<RSUBR-ENTRY '[\ \ F!- CCA-PRINT #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG CCA-READ %<RSUBR-ENTRY '[\ \ F!- CCA-READ #DECL ("VALUE" <OR FALSE STRING> "TUPLE" <TUPLE [REST STRING]>)] 0>><SETG CCA-KILL %<RSUBR-ENTRY '[\ \ F!- CCA-KILL #DECL ("VALUE" <OR ATOM FALSE>)] 0>><SETG CCA-DEACTIVATE %<RSUBR-ENTRY '[\ \ F!- CCA-DEACTIVATE #DECL ("VALUE" <OR ATOM FALSE>)] 0>><SETG CCA-ACTIVATE %<RSUBR-ENTRY '[\ \ F!- CCA-ACTIVATE #DECL ("VALUE" <OR FALSE STRING> "OPTIONAL" FIX FIX FIX)] 0>><GDECL (CCA-ALLOW-SCRIPT?) ANY (CCA-CHAN) <OR <LIST CHANNEL CHANNEL> FALSE> (CCA-SCRIPT-CHAN) <OR CHANNEL FALSE> (CCA-DATA-CHAN) <OR CHANNEL FALSE> (CCA-DATA-MODE) <OR <LIST STRING FIX> FALSE>><ENDPACKAGE> <PACKAGE "GS"><ENTRY CONT_L_FLAG LINE_SEG MAPPER REL_POSITION REL_LINE LINE POSITION GFMUNGER GFMUNG WINDOW BOUNDS GSSCALE USING-TTY MAKE-SEG BASIC-DISPATCH IMLAC-INQ SCALE_VEC DEV-CHAR-SIZE INQ-RESP USE-INQ-R GTOP BOTTOM RIGHT LEFT TBOUND BBOUND RBOUND LBOUND SEG-NVS SEG-LL SEG-LVS SEG-NUM SEG-INT-ID SEG-UINFO SEG-STAT SEG-LY SEG-LX SEG-TAIL SEG-SEED SEG-DP CHANGED APPENDED OK OFF-HIT-REFINE OFF-HIT-TEST OFF-READER OFF-CONTENTS OFF-INQ OFF-DOT OFF-UNBLANK OFF-BLANK OFF-END-UPDATES OFF-REMOVE OFF-APPEND OFF-TEXT OFF-DRAW OFF-MOVE OFF-CHANGE OFF-END OFF-BEGIN GSHIT-REFINE GSHIT-TEST GSREADER GSCONTENTS GSINQ GSDOT GSUNBLANK GSBLANK GSEND-UPDATES GSREMOVE GSAPPEND GSTEXT GSDRAW GSMOVE GSCHANGE GSEND GSBEGIN DEV-CM DEV-Y DEV-X GOUTCHAN DEV-DISPATCH OPEN-SEG REMOVED-SEGS ALL-SEG GSEG SPIN-DP-OR-LIST DRAW-SEG GSOUT><SETG LINE_SEG %<RSUBR-ENTRY '[\ \ F!- LINE_SEG #DECL ("VALUE" ATOM <OR FLOAT FIX> <OR FLOAT FIX> <OR FLOAT FIX> <OR FLOAT FIX>)] 0>><SETG MAPPER %<RSUBR-ENTRY '[\ \ F!- MAPPER #DECL ("VALUE" <VECTOR <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <UVECTOR [4 FLOAT]>> ATOM "QUOTE" STRUCTURED)] 0>><SETG REL_POSITION %<RSUBR-ENTRY '[\ \ F!- REL_POSITION #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG REL_LINE %<RSUBR-ENTRY '[\ \ F!- REL_LINE #DECL ("VALUE" ATOM <OR FLOAT FIX> <OR FLOAT FIX>)] 0>><SETG LINE %<RSUBR-ENTRY '[\ \ F!- LINE #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG POSITION %<RSUBR-ENTRY '[\ \ F!- POSITION #DECL ("VALUE" ATOM <OR FLOAT FIX> <OR FLOAT FIX>)] 0>><SETG GFMUNGER %<RSUBR-ENTRY '[\ \ F!- GFMUNGER #DECL ("VALUE" ATOM FIX FIX <STRUCTURED [REST <OR FIX FLOAT>]>)] 0>><SETG GFMUNG %<RSUBR-ENTRY '[\ \ F!- GFMUNG #DECL ("VALUE" ATOM FIX FIX "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG WINDOW %<RSUBR-ENTRY '[\ \ F!- WINDOW #DECL ("VALUE" ATOM "QUOTE" STRUCTURED "OPTIONAL" <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG BOUNDS %<RSUBR-ENTRY '[\ \ F!- BOUNDS #DECL ("VALUE" <VECTOR [4 <OR FIX FLOAT>]> "OPTIONAL" <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG GSSCALE %<RSUBR-ENTRY '[\ \ F!- GSSCALE #DECL ("VALUE" <UVECTOR FLOAT FLOAT FLOAT FLOAT> "OPTIONAL" <OR FLOAT FIX> <OR FLOAT FIX> <OR FLOAT FIX> <OR FLOAT FIX>)] 0>><SETG MAKE-SEG %<RSUBR-ENTRY '[\ \ F!- MAKE-SEG #DECL ("VALUE" <GSEG <OR FALSE APPLICABLE> <OR FALSE LIST> <OR FALSE LIST> FIX FIX <OR 'OK 'CHANGED 'APPENDED> ANY ANY FIX <OR 'T FALSE> <OR FALSE <LIST [REST LIST]>> <OR 'T FALSE>>)] 0>><SETG BASIC-DISPATCH %<RSUBR-ENTRY '[\ \ F!- BASIC-DISPATCH #DECL ("VALUE" <VECTOR RSUBR RSUBR RSUBR RSUBR RSUBR RSUBR RSUBR RSUBR APPLICABLE RSUBR RSUBR RSUBR APPLICABLE APPLICABLE RSUBR APPLICABLE APPLICABLE APPLICABLE [REST APPLICABLE]>)] 0>><SETG IMLAC-INQ %<RSUBR-ENTRY '[\ \ F!- IMLAC-INQ #DECL ("VALUE" <VECTOR <VECTOR FIX FIX FIX FIX FIX FIX FIX FIX [REST FIX]> <VECTOR FIX FIX FIX FIX FIX [REST FIX]> <VECTOR FLOAT FLOAT [REST FLOAT]> FIX <VECTOR STRING STRING [REST STRING]> FIX FIX FIX FALSE FIX <LIST <VECTOR FIX FIX FIX FIX FIX [REST FIX]>> LIST>)] 0>><SETG USE-INQ-R %<RSUBR-ENTRY '[\ \ F!- USE-INQ-R #DECL ("VALUE" <UVECTOR FLOAT FLOAT FLOAT FLOAT>)] 0>><SETG SEG-NVS 12><SETG SEG-LL 11><SETG SEG-LVS 10><SETG SEG-NUM 9><SETG SEG-INT-ID 8><SETG SEG-UINFO 7><SETG SEG-STAT 6><SETG SEG-LY 5><SETG SEG-LX 4><SETG SEG-TAIL 3><SETG SEG-SEED 2><SETG SEG-DP 1><SETG OFF-HIT-REFINE 18><SETG OFF-HIT-TEST 17><SETG OFF-READER 16><SETG OFF-CONTENTS 14><SETG OFF-INQ 13><SETG OFF-DOT 12><SETG OFF-UNBLANK 11><SETG OFF-BLANK 10><SETG OFF-END-UPDATES 9><SETG OFF-REMOVE 8><SETG OFF-APPEND 7><SETG OFF-TEXT 6><SETG OFF-DRAW 5><SETG OFF-MOVE 4><SETG OFF-CHANGE 3><SETG OFF-END 2><SETG OFF-BEGIN 1><SETG GSHIT-REFINE %<RSUBR-ENTRY '[\ \ F!- GSHIT-REFINE #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSHIT-TEST %<RSUBR-ENTRY '[\ \ F!- GSHIT-TEST #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSREADER %<RSUBR-ENTRY '[\ \ F!- GSREADER #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSCONTENTS %<RSUBR-ENTRY '[\ \ F!- GSCONTENTS #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSINQ %<RSUBR-ENTRY '[\ \ F!- GSINQ #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSDOT %<RSUBR-ENTRY '[\ \ F!- GSDOT #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSUNBLANK %<RSUBR-ENTRY '[\ \ F!- GSUNBLANK #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSBLANK %<RSUBR-ENTRY '[\ \ F!- GSBLANK #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSEND-UPDATES %<RSUBR-ENTRY '[\ \ F!- GSEND-UPDATES #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSREMOVE %<RSUBR-ENTRY '[\ \ F!- GSREMOVE #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSAPPEND %<RSUBR-ENTRY '[\ \ F!- GSAPPEND #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSTEXT %<RSUBR-ENTRY '[\ \ F!- GSTEXT #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSDRAW %<RSUBR-ENTRY '[\ \ F!- GSDRAW #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSMOVE %<RSUBR-ENTRY '[\ \ F!- GSMOVE #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSCHANGE %<RSUBR-ENTRY '[\ \ F!- GSCHANGE #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSEND %<RSUBR-ENTRY '[\ \ F!- GSEND #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG GSBEGIN %<RSUBR-ENTRY '[\ \ F!- GSBEGIN #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><NEWTYPE GSEG VECTOR><SETG GSEG %<RSUBR-ENTRY '[\ \ F!- GSEG #DECL ("VALUE" <OR FALSE GSEG> FIX)] 0>><SETG SPIN-DP-OR-LIST %<RSUBR-ENTRY '[\ \ F!- SPIN-DP-OR-LIST #DECL ("VALUE" ANY GSEG <VECTOR [REST APPLICABLE]> "TUPLE" TUPLE)] 0>><SETG DRAW-SEG %<RSUBR-ENTRY '[\ \ F!- DRAW-SEG #DECL ("VALUE" <OR FALSE <GSEG ANY ANY ANY FIX FIX>> GSEG "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG GSOUT %<RSUBR-ENTRY '[\ \ F!- GSOUT #DECL ("VALUE" ANY FIX "TUPLE" TUPLE)] 0>><MANIFEST OFF-BEGIN OFF-END OFF-CHANGE OFF-MOVE OFF-DRAW OFF-TEXT OFF-APPEND OFF-REMOVE OFF-END-UPDATES OFF-BLANK OFF-UNBLANK OFF-DOT OFF-INQ OFF-CONTENTS OFF-READER OFF-HIT-TEST OFF-HIT-REFINE SEG-DP SEG-SEED SEG-TAIL SEG-LX SEG-LY SEG-STAT SEG-UINFO SEG-INT-ID SEG-NUM SEG-LVS SEG-LL SEG-NVS><ENDPACKAGE> <PACKAGE "IM.IO"><ENTRY IM.EOF IM.OUTCHAN IM.INCHAN IM.PRINTSTRING IM.READSTRING IM.RESET IM.COMMAND?><SETG IM.PRINTSTRING %<RSUBR-ENTRY '[\ \ F!- IM.PRINTSTRING #DECL ("VALUE" FIX STRING FIX)] 0>><SETG IM.READSTRING %<RSUBR-ENTRY '[\ \ F!- IM.READSTRING #DECL ("VALUE" <OR CHARACTER FIX> STRING FIX)] 0>><SETG IM.RESET %<RSUBR-ENTRY '[\ \ F!- IM.RESET #DECL ("VALUE" 'T)] 0>><SETG IM.COMMAND? %<RSUBR-ENTRY '[\ \ F!- IM.COMMAND? #DECL ("VALUE" <OR FALSE CHARACTER>)] 0>><ENDPACKAGE> <PACKAGE "CLOCK"><ENTRY CINT CLOCK-INTERVAL CLOCK-HANDLER ALARM-OFF ALARM CLOCK-OFF CLOCK-ON CLOCK-QUEUE><USE "ITIME"><NEWTYPE CINT VECTOR'<<PRIMTYPE VECTOR> FIX FIX <OR ATOM APPLICABLE>>><SETG ALARM-OFF %<RSUBR-ENTRY '[\ \ F!- ALARM-OFF #DECL ("VALUE" <OR CINT FALSE> CINT)] 0>><SETG ALARM %<RSUBR-ENTRY '[\ \ F!- ALARM #DECL ("VALUE" CINT <OR CINT APPLICABLE ATOM> <OR FIX FLOAT> "OPTIONAL" FLOAT)] 0>><SETG CLOCK-OFF %<RSUBR-ENTRY '[\ \ F!- CLOCK-OFF #DECL ("VALUE" <OR FALSE HANDLER> "OPTIONAL" <OR ATOM FALSE>)] 0>><SETG CLOCK-ON %<RSUBR-ENTRY '[\ \ F!- CLOCK-ON #DECL ("VALUE" <OR FALSE HANDLER> "OPTIONAL" <OR ATOM FALSE>)] 0>><GDECL (CLOCK-QUEUE) <LIST [REST CINT]> (CLOCK-HANDLER) <OR HANDLER FALSE> (CLOCK-INTERVAL) FIX><ENDPACKAGE> <PACKAGE "GC"><ENTRY HAIRY-GC BLOAT? DIVERT-INC DIVERT-LMT DIVERT-MAX PREVENT-GC DIVERT><SETG BLOAT? %<RSUBR-ENTRY '[\ \ F!- BLOAT? #DECL ("VALUE" FORM <UVECTOR [27 FIX]> "OPTIONAL" ANY)] 0>><SETG PREVENT-GC %<RSUBR-ENTRY '[\ \ F!- PREVENT-GC #DECL ("VALUE" <OR ATOM FALSE HANDLER IHEADER>)] 0>><SETG DIVERT %<RSUBR-ENTRY '[\ \ F!- DIVERT #DECL ("VALUE" STRING "OPTIONAL" ANY)] 0>><GDECL (DIVERT-MAX) FIX (DIVERT-LMT) FIX (DIVERT-INC) FIX (HAIRY-GC) <OR ATOM FALSE FIX>><ENDPACKAGE> <PACKAGE "CTABLE"><ENTRY CTABLE><USE "SYMBOLS" "MACROS"><SETG CTABLE #MACRO (#FUNCTION (('P1 'P2 'EXPL "ARGS" GOODIES "AUX" (DFL <>) (FH <>)) #DECL ((P1 P2 EXPL FH) ANY (GOODIES) LIST (DFL) <OR FIX FALSE>) <REPEAT ((CNT 0) (TCNT 1) (CMD? T) (STABT (T)) (STAB .STABT) (CTABT (T)) (CTAB .CTABT) (OTABT (T)) (OTAB .OTABT) (PTABT (T)) (PTAB .PTABT)) #DECL ((STAB STABT CTAB CTABT OTABT OTAB PTABT PTAB) LIST (CNT TCNT) FIX) <COND (<EMPTY? .GOODIES> <COND (<NOT .CMD?> <ERROR UNBALANCED-TABLE>)> <RETURN <FORM PROG (TB SVALUE) #DECL ((SVALUE) ANY (TB) FIX) <FORM SETG FAIL-HOOK .FH> <FORM SET SVALUE <FORM SYMBOL .DFL .P1 .P2 .EXPL <FORM QUOTE <VECTOR !<REST .STABT!>>> !<REST .PTABT!>>> <FORM COND ('<TYPE? .SVALUE FIX> '<SET TB <CHTYPE <GETBITS .SVALUE <BITS 18 18>> FIX>> '<SET SVALUE <CHTYPE <ANDB .SVALUE 262143> FIX>> <COND (<1? .TCNT> <FORM CASE ',==? '.SVALUE !<REST .CTABT!>>) (ELSE <FORM CASE ',==? '.TB (1 <FORM CASE ',==? '.SVALUE !<REST .CTABT!>>) !<REST .OTABT!>>)>) '(ELSE .SVALUE)>>>)> <SET G <1 .GOODIES>> <COND (.CMD? <COND (<==? .G *> <SET DFL <CHTYPE <PUTBITS <+ .CNT 1> <BITS 18 18> .TCNT> FIX>>) (<TYPE? .G LIST> <COND (<==? <1 .G> FAIL-HOOK> <SET FH <2 .G>>) (ELSE <PUTREST .PTAB <SET PTAB (<1 .G>)>> <PUTREST .OTAB <SET OTAB ((<SET TCNT <+ .TCNT 1>> !<REST .G!>))>>)>) (<TYPE? .G ATOM STRING> <PUTREST .STAB <SET STAB (.G)>> <SET CNT <+ .CNT 1>> <SET CMD? <>>) (ELSE <ERROR BAD-SYMBOL .G>)>) (ELSE <PUTREST .CTAB <SET CTAB ((.CNT .G))>> <SET CMD? T>)> <SET GOODIES <REST .GOODIES>>>))><ENDPACKAGE> <PACKAGE "PERIOD"><ENTRY TESTTIME COMP-PERIOD-DESC DURING? SAME-DAY? BEFORE-TOD?><USE "TIMFCN" "DATIME" "UVHACK"><SETG COMP-PERIOD-DESC %<RSUBR-ENTRY '[\ \ F!- COMP-PERIOD-DESC #DECL ("VALUE" FUNCTION <OR STRING ATOM FORM>)] 0>><SETG DURING? %<RSUBR-ENTRY '[\ \ F!- DURING? #DECL ("VALUE" ANY LIST <OR FORM STRING ATOM APPLICABLE>)] 0>><SETG SAME-DAY? %<RSUBR-ENTRY '[\ \ F!- SAME-DAY? #DECL ("VALUE" <OR FALSE ATOM> <OR <LIST LIST LIST> <LIST [REST FIX]>> <OR <LIST LIST LIST> <LIST [REST FIX]>>)] 0>><SETG BEFORE-TOD? %<RSUBR-ENTRY '[\ \ F!- BEFORE-TOD? #DECL ("VALUE" <OR ATOM FALSE> <OR <LIST LIST LIST> <LIST [REST FIX]>> <OR <LIST LIST LIST> <LIST [REST FIX]>>)] 0>><ENDPACKAGE> <PACKAGE "UNASSM"><ENTRY DUMP-U CONVERT-RSUBR GROUP-CONVERT UNASSEMBLE><USE "SQUOZE" "SORTX"><SETG DUMP-U %<RSUBR-ENTRY '[\ \ F!- DUMP-U #DECL ("VALUE" <OR ATOM STRING> "OPTIONAL" ANY)] 0>><SETG CONVERT-RSUBR %<RSUBR-ENTRY '[\ \ F!- CONVERT-RSUBR #DECL ("VALUE" <OR ATOM !<FALSE STRING!>> RSUBR "OPTIONAL" CHANNEL ANY)] 0>><SETG GROUP-CONVERT %<RSUBR-ENTRY '[\ \ F!- GROUP-CONVERT #DECL ("VALUE" <OR STRING !<FALSE STRING!>> ATOM CHANNEL "OPTIONAL" ANY)] 0>><SETG UNASSEMBLE %<RSUBR-ENTRY '[\ \ F!- UNASSEMBLE #DECL ("VALUE" <OR ATOM FALSE STRING> <OR ATOM RSUBR> "OPTIONAL" <OR FALSE CHANNEL STRING> <OR ATOM FALSE>)] 0>><ENDPACKAGE> <PACKAGE "APPRINT"><ENTRY PPRINT-ABSTR><USE "ACONST"><SETG PPRINT-ABSTR %<RSUBR-ENTRY '[\ \ F!- PPRINT-ABSTR #DECL ("VALUE" ANY <OR ATOM VECTOR> "OPTIONAL" CHANNEL)] 0>><ENDPACKAGE> <PACKAGE "MONITOR"><ENTRY MONITORS MONOBJ MONSPEC KILL-ALL-MONITORS OLDVAL NEWVAL CLEAN-MONITORS KILL-MONITOR MONITOR><SETG MONOBJ %<RSUBR-ENTRY '[\ \ F!- MONOBJ #DECL ("VALUE" ANY MONITOR)] 0>><NEWTYPE MONSPEC VECTOR'<<PRIMTYPE VECTOR> ANY LIST ANY ANY>><SETG MONSPEC %<RSUBR-ENTRY '[\ \ F!- MONSPEC #DECL ("VALUE" ANY MONITOR)] 0>><SETG KILL-ALL-MONITORS %<RSUBR-ENTRY '[\ \ F!- KILL-ALL-MONITORS #DECL ("VALUE" ANY)] 0>><SETG CLEAN-MONITORS %<RSUBR-ENTRY '[\ \ F!- CLEAN-MONITORS #DECL ("VALUE" <LIST [REST MONITOR]>)] 0>><SETG KILL-MONITOR %<RSUBR-ENTRY '[\ \ F!- KILL-MONITOR #DECL ("VALUE" ANY <OR MONITOR STRING> "OPTIONAL" ANY ANY)] 0>><NEWTYPE MONITOR VECTOR'<<PRIMTYPE VECTOR> LOCATIVE ATOM MONSPEC>><SETG MONITOR %<RSUBR-ENTRY '[\ \ F!- MONITOR #DECL ("VALUE" <OR FALSE MONITOR> <PRIMTYPE STRING> ANY ANY "OPTIONAL" "QUOTE" ANY "ARGS" LIST)] 0>><GDECL (MONITORS) <LIST [REST MONITOR]>><ENDPACKAGE> <PACKAGE "DRAGAN"><ENTRY ANNOTATE><USE "LSRHIL" "LSRTNS"><SETG ANNOTATE %<RSUBR-ENTRY '[\ \ F!- ANNOTATE #DECL ("VALUE" <OR CHANNEL FALSE> "OPT" STRING STRING <OR ATOM FALSE>)] 0>><ENDPACKAGE> <PACKAGE "TTY-STATE"><ENTRY GRPST TSTATE><USE "TTY"><SETG GRPST %<RSUBR-ENTRY '[\ \ F!- GRPST #DECL ("VALUE" <OR CHARACTER FALSE> <PRIMTYPE WORD>)] 0>><SETG TSTATE %<RSUBR-ENTRY '[\ \ F!- TSTATE #DECL ("VALUE" ANY "OPTIONAL" ANY)] 0>><ENDPACKAGE> <PACKAGE "COLUMNS"><ENTRY COLUMNS COLFILE><SETG COLUMNS %<RSUBR-ENTRY '[\ \ F!- COLUMNS #DECL ("VALUE" STRING <VECTOR [REST <OR STRING ATOM>]> "OPTIONAL" FIX FIX)] 0>><SETG COLFILE %<RSUBR-ENTRY '[\ \ F!- COLFILE #DECL ("VALUE" <OR FALSE STRING> ANY ANY)] 0>><ENDPACKAGE> <PACKAGE "X.UTI"><ENTRY XPRINT XREAD ADR-REMOVE ADR-ADD XREMOVE-ADR XADD-ADR XCHANGE XREMOVE XADD XPUNGE><USE "SORTX"><SETG XPRINT %<RSUBR-ENTRY '[\ \ F!- XPRINT #DECL ("VALUE" <OR FALSE STRING> <VECTOR [REST STRING LIST]> "OPTIONAL" STRING STRING)] 0>><SETG XREAD %<RSUBR-ENTRY '[\ \ F!- XREAD #DECL ("VALUE" <OR FALSE VECTOR> STRING)] 0>><SETG ADR-REMOVE %<RSUBR-ENTRY '[\ \ F!- ADR-REMOVE #DECL ("VALUE" <LIST [REST <OR STRING ATOM>]> <LIST [REST <OR STRING ATOM>]> <LIST [REST <OR STRING ATOM>]>)] 0>><SETG ADR-ADD %<RSUBR-ENTRY '[\ \ F!- ADR-ADD #DECL ("VALUE" <OR FALSE <LIST [REST <OR STRING ATOM>]>> <LIST [REST <OR STRING ATOM>]> <LIST [REST <OR STRING ATOM>]>)] 0>><SETG XREMOVE-ADR %<RSUBR-ENTRY '[\ \ F!- XREMOVE-ADR #DECL ("VALUE" <OR VECTOR <FALSE STRING [REST STRING]>> STRING <LIST [REST <OR STRING VECTOR>]> VECTOR)] 0>><SETG XADD-ADR %<RSUBR-ENTRY '[\ \ F!- XADD-ADR #DECL ("VALUE" <OR VECTOR <FALSE STRING [REST STRING]>> STRING <LIST [REST <OR STRING ATOM>]> VECTOR)] 0>><SETG XCHANGE %<RSUBR-ENTRY '[\ \ F!- XCHANGE #DECL ("VALUE" <OR VECTOR <FALSE STRING [REST STRING]>> STRING STRING VECTOR)] 0>><SETG XREMOVE %<RSUBR-ENTRY '[\ \ F!- XREMOVE #DECL ("VALUE" <OR VECTOR <FALSE STRING [REST STRING]>> STRING VECTOR "OPTIONAL" ANY)] 0>><SETG XADD %<RSUBR-ENTRY '[\ \ F!- XADD #DECL ("VALUE" <OR VECTOR <FALSE STRING [REST STRING]>> STRING <LIST [REST <OR STRING ATOM>]> "OPTIONAL" VECTOR ANY)] 0>><SETG XPUNGE %<RSUBR-ENTRY '[\ \ F!- XPUNGE #DECL ("VALUE" <VECTOR [REST STRING LIST]> <LIST [REST <OR STRING ATOM>]> <VECTOR [REST STRING LIST]>)] 0>><ENDPACKAGE> <PACKAGE "END-TREE"><ENTRY ENDLIST TREE-SHARE NULL-ENDING MAKE-ENDING-LIST MAKE-ENDING-TREE ENDING ENDING-TREE><USE "MDTABLE" "DATA-SAVE"><SETG MAKE-ENDING-LIST %<RSUBR-ENTRY '[\ \ F!- MAKE-ENDING-LIST #DECL ("VALUE" <OR FALSE UVECTOR> UVECTOR)] 0>><SETG MAKE-ENDING-TREE %<RSUBR-ENTRY '[\ \ F!- MAKE-ENDING-TREE #DECL ("VALUE" FIX UVECTOR "OPTIONAL" ANY)] 0>><SETG ENDING %<RSUBR-ENTRY '[\ \ F!- ENDING #DECL ("VALUE" ANY ANY)] 0>><GDECL (NULL-ENDING) <VECTOR ATOM STRING STRING UVECTOR>><ENDPACKAGE> <PACKAGE "CORRECT-ERROR"><ENTRY DMOD DDIV CORRECT-ERROR><SETG DMOD %<RSUBR-ENTRY '[\ \ F!- DMOD #DECL ("VALUE" FIX FIX FIX FIX)] 0>><SETG DDIV %<RSUBR-ENTRY '[\ \ F!- DDIV #DECL ("VALUE" FIX FIX FIX FIX)] 0>><SETG CORRECT-ERROR %<RSUBR-ENTRY '[\ \ F!- CORRECT-ERROR #DECL ("VALUE" <UVECTOR [REST UVECTOR]> <UVECTOR [REST FIX]> <UVECTOR [REST UVECTOR]> <UVECTOR [REST UVECTOR]> <UVECTOR [REST FIX]> <UVECTOR [REST FIX]>)] 0>><ENDPACKAGE> <PACKAGE "IST"><ENTRY MAKEIST ISTOPS><USE "CALSYM"><SETG MAKEIST %<RSUBR-ENTRY '[\ \ F!- MAKEIST #DECL ("VALUE" SYMTABLE STRING <VECTOR [REST STRING ANY]> "OPTIONAL" ANY)] 0>><SETG ISTOPS %<RSUBR-ENTRY '[\ \ F!- ISTOPS #DECL ("VALUE" ANY FIX "TUPLE" TUPLE)] 0>><ENDPACKAGE> <PACKAGE "MDERRS"><ENTRY WE EW WL LE LW EL ERRERR NOSALE DRPTWO ADDTWO DSHDOT DOTDSH CHGMRK DSH-DD ADDDSH ADDDOT ADDMRK DD-DSH DRPDSH DRPDOT ERROR-VECTOR MRKENG MARK-WEIGHTS SPCENG ERROR-WEIGHTS ON-EDGE LWFACT SQUASH><SETG WE 6><SETG EW 5><SETG WL 4><SETG LE 3><SETG LW 2><SETG EL 1><SETG ERRERR 11><SETG NOSALE 8><SETG DRPTWO 7><SETG ADDTWO 6><SETG DSHDOT 10><SETG DOTDSH 5><SETG CHGMRK 5><SETG DSH-DD 4><SETG ADDDSH 9><SETG ADDDOT 3><SETG ADDMRK 3><SETG DD-DSH 2><SETG DRPDSH 1><SETG DRPDOT 0><MANIFEST DRPDOT DRPDSH DD-DSH ADDMRK ADDDOT ADDDSH DSH-DD CHGMRK DOTDSH DSHDOT ADDTWO DRPTWO NOSALE ERRERR EL LW LE WL EW WE><GDECL (SQUASH) <OR ATOM FALSE> (LWFACT) FLOAT (ON-EDGE) FLOAT (ERROR-WEIGHTS) <UVECTOR [REST FLOAT]> (SPCENG) <VECTOR [REST STRING]> (MARK-WEIGHTS) <UVECTOR [REST FLOAT]> (MRKENG) <VECTOR [REST STRING]> (ERROR-VECTOR) <UVECTOR [REST FIX]>><ENDPACKAGE> <PACKAGE "APRINT"><ENTRY ABSTR-DUMP ABSTR-LOAD PRINTSPEC PRINCTHEM PRINCLINE PRINT-ABSTR><USE "ACONST" "AERROR"><SETG ABSTR-DUMP %<RSUBR-ENTRY '[\ \ F!- ABSTR-DUMP #DECL ("VALUE" ANY STRING "OPTIONAL" <OR ATOM FALSE> APPLICABLE)] 0>><SETG ABSTR-LOAD %<RSUBR-ENTRY '[\ \ F!- ABSTR-LOAD #DECL ("VALUE" ANY STRING "OPTIONAL" ATOM ANY)] 0>><SETG PRINTSPEC %<RSUBR-ENTRY '[\ \ F!- PRINTSPEC #DECL ("VALUE" ANY STRING CHANNEL)] 0>><SETG PRINCTHEM %<RSUBR-ENTRY '[\ \ F!- PRINCTHEM #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG PRINCLINE %<RSUBR-ENTRY '[\ \ F!- PRINCLINE #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG PRINT-ABSTR %<RSUBR-ENTRY '[\ \ F!- PRINT-ABSTR #DECL ("VALUE" ANY VECTOR "OPTIONAL" CHANNEL STRUCTURED)] 0>><ENDPACKAGE> <RPACKAGE "PARSEJCL"><ENTRY PARSEJCL><SETG PARSEJCL %<RSUBR-ENTRY '[\ \ F!- PARSEJCL #DECL ("VALUE" <LIST [REST <OR <VECTOR <OR FALSE STRING> <OR FALSE STRING>> FALSE>]> STRING)] 0>><ENDPACKAGE> <PACKAGE "MGPRIM"><ENTRY TXT TRANS TBCON TABLE SETORG READTB POINT PLOTV PICTUR PAGE OPENT OPENP MOVE MIGSSEND MARKT MARKP LINE LAYOUT L ERASET ERASEP ECHO DTXT DRAW BOOK><USE "SMCELLS" "DISPLA"><SETG TXT %<RSUBR-ENTRY '[\ \ F!- TXT #DECL ("VALUE" ATOM STRING)] 0>><SETG TRANS %<RSUBR-ENTRY '[\ \ F!- TRANS #DECL ("VALUE" ATOM FIX FIX)] 0>><SETG TABLE %<RSUBR-ENTRY '[\ \ F!- TABLE #DECL ("VALUE" ATOM FIX "OPTIONAL" FIX)] 0>><SETG SETORG %<RSUBR-ENTRY '[\ \ F!- SETORG #DECL ("VALUE" <UVECTOR FIX [REST FIX]> "OPTIONAL" FIX FIX)] 0>><SETG POINT %<RSUBR-ENTRY '[\ \ F!- POINT #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG PLOTV %<RSUBR-ENTRY '[\ \ F!- PLOTV #DECL ("VALUE" ATOM <OR LIST VECTOR UVECTOR> <OR LIST VECTOR UVECTOR> "TUPLE" <TUPLE [REST <OR LIST VECTOR UVECTOR>]>)] 0>><SETG PICTUR %<RSUBR-ENTRY '[\ \ F!- PICTUR #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG PAGE %<RSUBR-ENTRY '[\ \ F!- PAGE #DECL ("VALUE" ATOM)] 0>><SETG OPENT %<RSUBR-ENTRY '[\ \ F!- OPENT #DECL ("VALUE" FIX "OPTIONAL" FIX)] 0>><SETG OPENP %<RSUBR-ENTRY '[\ \ F!- OPENP #DECL ("VALUE" ATOM "OPTIONAL" FIX)] 0>><SETG MOVE %<RSUBR-ENTRY '[\ \ F!- MOVE #DECL ("VALUE" ATOM FIX FIX "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG MIGSSEND %<RSUBR-ENTRY '[\ \ F!- MIGSSEND #DECL ("VALUE" ATOM "TUPLE" <TUPLE [REST FIX]>)] 0>><SETG MARKT %<RSUBR-ENTRY '[\ \ F!- MARKT #DECL ("VALUE" FIX "OPTIONAL" FIX)] 0>><SETG MARKP %<RSUBR-ENTRY '[\ \ F!- MARKP #DECL ("VALUE" ATOM FIX)] 0>><SETG LINE %<RSUBR-ENTRY '[\ \ F!- LINE #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><SETG LAYOUT %<RSUBR-ENTRY '[\ \ F!- LAYOUT #DECL ("VALUE" ATOM "OPTIONAL" FIX FIX FIX FIX FIX FIX FIX FIX FIX FIX FIX)] 0>><SETG L %<RSUBR-ENTRY '[\ \ F!- L #DECL ("VALUE" ATOM)] 0>><SETG ERASET %<RSUBR-ENTRY '[\ \ F!- ERASET #DECL ("VALUE" ATOM)] 0>><SETG ERASEP %<RSUBR-ENTRY '[\ \ F!- ERASEP #DECL ("VALUE" ATOM)] 0>><SETG DTXT %<RSUBR-ENTRY '[\ \ F!- DTXT #DECL ("VALUE" ATOM FIX FIX FIX "OPTIONAL" FIX)] 0>><SETG DRAW %<RSUBR-ENTRY '[\ \ F!- DRAW #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> "TUPLE" <TUPLE [REST <OR FIX FLOAT>]>)] 0>><ENDPACKAGE><PACKAGE "CONSOL"><ENTRY CNSGET CNSSET><SETG CNSGET %<RSUBR-ENTRY '[\ \ F!- CNSGET #DECL ("OPTIONAL" <OR FALSE <UVECTOR [6 <PRIMTYPE WORD>]>> <OR CHANNEL FIX>)] 0>><SETG CNSSET %<RSUBR-ENTRY '[\ \ F!- CNSSET #DECL (<UVECTOR [5 <PRIMTYPE WORD>]> "OPTIONAL" CHANNEL)] 0>><ENDPACKAGE> <PACKAGE "VCTMAN"><ENTRY BLT-THRU-UV VCTDLW UVCTINS VCTINS VCTBNS><SETG BLT-THRU-UV %<RSUBR-ENTRY '[\ \ F!- BLT-THRU-UV #DECL ("VALUE" UVECTOR UVECTOR)] 0>><SETG VCTDLW %<RSUBR-ENTRY '[\ \ F!- VCTDLW #DECL ("VALUE" <OR VECTOR UVECTOR> <OR VECTOR UVECTOR> FIX "OPTIONAL" FIX)] 0>><SETG UVCTINS %<RSUBR-ENTRY '[\ \ F!- UVCTINS #DECL ("VALUE" UVECTOR UVECTOR FIX ANY "TUPLE" ANY)] 0>><SETG VCTINS %<RSUBR-ENTRY '[\ \ F!- VCTINS #DECL ("VALUE" VECTOR VECTOR FIX ANY "TUPLE" ANY)] 0>><SETG VCTBNS %<RSUBR-ENTRY '[\ \ F!- VCTBNS #DECL ("VALUE" VECTOR <OR VECTOR UVECTOR> <OR STRING <PRIMTYPE WORD>> "OPTIONAL" FIX FIX)] 0>><ENDPACKAGE> <PACKAGE "UGRF"><ENTRY BACKSPACE GRFLIST LEAVE_READER GRAPHICS_READER END_DEMO NO-ERASE NO-DRAW BOUNDS HARD_COPY DEMO GRAPH_COMMENT GRAPH_TITLE GRAPH_DATA ERASE_SCREEN SCALE UG-SCALE REGRAPH PLOT GRFUNC GRAPH><NEWTYPE GRFLIST LIST><SETG LEAVE_READER %<RSUBR-ENTRY '[\ \ F!- LEAVE_READER #DECL ("VALUE" ANY)] 0>><SETG GRAPHICS_READER %<RSUBR-ENTRY '[\ \ F!- GRAPHICS_READER #DECL ("VALUE" ANY)] 0>><SETG END_DEMO %<RSUBR-ENTRY '[\ \ F!- END_DEMO #DECL ("VALUE" ANY)] 0>><SETG BOUNDS %<RSUBR-ENTRY '[\ \ F!- BOUNDS #DECL ("VALUE" ANY "OPTIONAL" <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG HARD_COPY %<RSUBR-ENTRY '[\ \ F!- HARD_COPY #DECL ("VALUE" ANY ANY "TUPLE" ANY)] 0>><SETG DEMO %<RSUBR-ENTRY '[\ \ F!- DEMO #DECL ("VALUE" ANY "OPTIONAL" ANY)] 0>><SETG GRAPH_COMMENT %<RSUBR-ENTRY '[\ \ F!- GRAPH_COMMENT #DECL ("VALUE" ANY ANY "OPTIONAL" ANY)] 0>><SETG GRAPH_TITLE %<RSUBR-ENTRY '[\ \ F!- GRAPH_TITLE #DECL ("VALUE" ANY ANY "OPTIONAL" ANY)] 0>><SETG GRAPH_DATA %<RSUBR-ENTRY '[\ \ F!- GRAPH_DATA #DECL ("VALUE" ANY "OPTIONAL" ANY ANY)] 0>><SETG ERASE_SCREEN %<RSUBR-ENTRY '[\ \ F!- ERASE_SCREEN #DECL ("VALUE" ANY)] 0>><SETG SCALE %<RSUBR-ENTRY '[\ \ F!- SCALE #DECL ("VALUE" ANY "OPTIONAL" <OR FLOAT FIX> <OR FLOAT FIX> <OR FLOAT FIX> <OR FLOAT FIX>)] 0>><SETG UG-SCALE %<RSUBR-ENTRY '[\ \ F!- UG-SCALE #DECL ("VALUE" ANY "OPTIONAL" <OR FLOAT FIX> <OR FLOAT FIX> <OR FLOAT FIX> <OR FLOAT FIX>)] 0>><SETG REGRAPH %<RSUBR-ENTRY '[\ \ F!- REGRAPH #DECL ("VALUE" ANY "TUPLE" ANY)] 0>><SETG PLOT %<RSUBR-ENTRY '[\ \ F!- PLOT #DECL ("VALUE" ANY ANY "OPTIONAL" ANY ANY ANY)] 0>><SETG GRFUNC %<RSUBR-ENTRY '[\ \ F!- GRFUNC #DECL ("VALUE" ANY <OR FUNCTION SUBR FSUBR RSUBR> "OPTIONAL" <OR FLOAT FIX> <OR FLOAT FIX> <OR FLOAT FIX>)] 0>><SETG GRAPH %<RSUBR-ENTRY '[\ \ F!- GRAPH #DECL ("VALUE" ANY "OPTIONAL" <OR FORM FLOAT FIX FALSE> <OR ATOM FALSE> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><ENDPACKAGE> <PACKAGE "CRIME"><ENTRY PRINTEM SORTEM GATHER COMBAT-STATS><SETG PRINTEM %<RSUBR-ENTRY '[\ \ F!- PRINTEM #DECL ("VALUE" ANY <UVECTOR [REST VECTOR]>)] 0>><SETG SORTEM %<RSUBR-ENTRY '[\ \ F!- SORTEM #DECL ("VALUE" ANY <UVECTOR [REST VECTOR]> FIX)] 0>><SETG GATHER %<RSUBR-ENTRY '[\ \ F!- GATHER #DECL ("VALUE" ANY STRING)] 0>><SETG COMBAT-STATS %<RSUBR-ENTRY '[\ \ F!- COMBAT-STATS #DECL ("VALUE" ANY "OPTIONAL" STRING STRING)] 0>><ENDPACKAGE> <PACKAGE "DOUT"><ENTRY DOUT><USE "L"><SETG DOUT %<RSUBR-ENTRY '[\ \ F!- DOUT #DECL ("VALUE" <OR FALSE STRING> STRING ANY)] 0>><ENDPACKAGE> <PACKAGE "BUG"><ENTRY ADDCHR2 REPORT-TO PRINCT SENDBUG><USE "BUF" "DATIME"><SETG ADDCHR2 %<RSUBR-ENTRY '[\ \ F!- ADDCHR2 #DECL ("VALUE" ANY CHARACTER)] 0>><SETG REPORT-TO %<RSUBR-ENTRY '[\ \ F!- REPORT-TO #DECL ("VALUE" ANY <OR STRING FALSE> "OPTIONAL" ANY STRING)] 0>><SETG PRINCT %<RSUBR-ENTRY '[\ \ F!- PRINCT #DECL ("VALUE" ANY ANY "OPTIONAL" CHANNEL)] 0>><SETG SENDBUG %<RSUBR-ENTRY '[\ \ F!- SENDBUG #DECL ("VALUE" ANY STRING "OPTIONAL" <OR STRING FALSE> ANY ANY)] 0>><ENDPACKAGE> <PACKAGE "DFL"><ENTRY UN-DFL DFL-RETRY FLO RDFL DFL><USE "UNLINK"><SETG UN-DFL %<RSUBR-ENTRY '[\ \ F!- UN-DFL #DECL ("VALUE" <OR ATOM FALSE <LIST [REST ATOM]>> <OR ATOM <LIST [REST ATOM]>> "OPTIONAL" <OR FALSE STRING <VECTOR [REST STRING]>> <OR ATOM FALSE>)] 0>><SETG RDFL %<RSUBR-ENTRY '[\ \ F!- RDFL #DECL ("VALUE" <OR FALSE <LIST [REST ATOM]>> "OPTIONAL" <OR STRUCTURED ATOM> <OR ATOM STRING> ANY <OR ATOM FALSE>)] 0>><SETG DFL %<RSUBR-ENTRY '[\ \ F!- DFL #DECL ("VALUE" <OR FALSE <LIST [REST ATOM]>> "OPTIONAL" <OR STRUCTURED ATOM> <OR ATOM STRING> ANY)] 0>><ENDPACKAGE> <PACKAGE "PIO"><ENTRY PIO-ERROR-VECTOR PIO-CLEAR-PAGE PIO-HANG-ON-UNMAP? PIO-EXTEND-BY-PAGES? PIO-MIN-EXTRA-ALLOCATION PIO-MAX-EXTRA-ALLOCATION PIO-DEFAULT-IO-MODE PIO-DEFAULT-PAGE-LIMIT PIO-PAGE-COUNT PIO-PAGE-LIMIT PIO-REF-COUNT PIOPAGEVCT PIOCHANVCT PIO-PRINT-ACTION DALLOCP ALLOCP NAMEP LENGTHP PRINTP READP UPDATEP RESETP FLUSHP CLOSEP OPENP CHANP><USE "PIOSUB" "ITSIO"><SETG DALLOCP %<RSUBR-ENTRY '[\ \ F!- DALLOCP #DECL ("VALUE" <OR ATOM FALSE> CHANP FIX)] 0>><SETG ALLOCP %<RSUBR-ENTRY '[\ \ F!- ALLOCP #DECL ("VALUE" <OR FALSE FIX> CHANP FIX "OPTIONAL" FIX ANY)] 0>><SETG NAMEP %<RSUBR-ENTRY '[\ \ F!- NAMEP #DECL ("VALUE" <OR FALSE STRING> CHANP)] 0>><SETG LENGTHP %<RSUBR-ENTRY '[\ \ F!- LENGTHP #DECL ("VALUE" FIX CHANP)] 0>><SETG PRINTP %<RSUBR-ENTRY '[\ \ F!- PRINTP #DECL ("VALUE" <OR FALSE FIX> CHANP FIX <OR UVECTOR <PRIMTYPE WORD>> "OPTIONAL" <OR FIX FALSE> ANY FIX)] 0>><SETG READP %<RSUBR-ENTRY '[\ \ F!- READP #DECL ("VALUE" <OR FALSE UVECTOR WORD> CHANP FIX "OPTIONAL" <OR UVECTOR <PRIMTYPE WORD> FALSE> <OR FIX FALSE> ANY)] 0>><SETG UPDATEP %<RSUBR-ENTRY '[\ \ F!- UPDATEP #DECL ("VALUE" <OR ATOM FALSE> <OR CHANP STRING> "OPTIONAL" STRING)] 0>><SETG RESETP %<RSUBR-ENTRY '[\ \ F!- RESETP #DECL ("VALUE" ANY CHANP)] 0>><SETG FLUSHP %<RSUBR-ENTRY '[\ \ F!- FLUSHP #DECL ("VALUE" <CHANP ANY ANY ANY ANY ANY ANY ANY FIX [4 ANY] FALSE> CHANP)] 0>><SETG CLOSEP %<RSUBR-ENTRY '[\ \ F!- CLOSEP #DECL ("VALUE" ATOM CHANP)] 0>><SETG OPENP %<RSUBR-ENTRY '[\ \ F!- OPENP #DECL ("VALUE" <OR CHANNEL CHANP FALSE> STRING STRING "OPTIONAL" FIX ANY <OR FALSE STRING>)] 0>><NEWTYPE CHANP VECTOR><SETG CHANP %<RSUBR-ENTRY '[\ \ F!- CHANP #DECL ("VALUE" CHANP <OR JFN CHANNEL> STRING FIX FIX ANY <OR JFN CHANNEL FALSE> FIX <OR FIX FALSE>)] 0>><GDECL (PIOCHANVCT) <VECTOR [REST <OR CHANP FALSE>]> (PIOPAGEVCT) <VECTOR [REST <OR UVECTOR FALSE> <OR CHANP FALSE>]> (PIO-REF-COUNT) FIX (PIO-PAGE-LIMIT) FIX (PIO-PAGE-COUNT) FIX (PIO-DEFAULT-PAGE-LIMIT) FIX (PIO-DEFAULT-IO-MODE) ANY (PIO-MAX-EXTRA-ALLOCATION) FIX (PIO-MIN-EXTRA-ALLOCATION) FIX (PIO-EXTEND-BY-PAGES?) ANY (PIO-HANG-ON-UNMAP?) ANY (PIO-ERROR-VECTOR) <VECTOR [REST STRING]>><ENDPACKAGE><PACKAGE "RJSDAT"><ENTRY JOB-INPUT-SOCKET JOB USER INPUT-FILE DEMON-NAME INPUT SCRIPT DEBUG JOB-LOSER-FILE JOB-RETRY-FILE JOB-INPUT-FILE JOBNAME SIGNON-NAME TELNET-CHANNELS PUCHAN PNCHAN OUTPUT-CHANNEL CARD-READER-CHANNEL FILE-INPUT-CHANNEL JOB-INPUT-CHANNEL SETUP LATER ENDJOB BUGFATAL MORE NEWJOB ERRLOC RJS-ERROR><SETG SETUP %<RSUBR-ENTRY '[\ \ F!- SETUP #DECL ("VALUE" STRING)] 0>><GDECL (NEWJOB) <OR ATOM FALSE> (MORE) <OR ATOM FALSE> (BUGFATAL) <OR ATOM FALSE> (ENDJOB) <OR ATOM FALSE> (LATER) <OR ATOM FALSE> (JOB-INPUT-CHANNEL) <OR FALSE CHANNEL> (FILE-INPUT-CHANNEL) <OR FALSE CHANNEL> (CARD-READER-CHANNEL) <OR FALSE CHANNEL> (OUTPUT-CHANNEL) <OR FALSE CHANNEL> (PNCHAN) <OR FALSE CHANNEL> (PUCHAN) <OR FALSE CHANNEL> (TELNET-CHANNELS) <OR FALSE <LIST CHANNEL CHANNEL>> (SIGNON-NAME) <OR FALSE STRING> (JOBNAME) STRING (JOB-INPUT-FILE) STRING (JOB-RETRY-FILE) STRING (JOB-LOSER-FILE) STRING (DEBUG) <OR ATOM FALSE> (SCRIPT) <OR FALSE CHANNEL> (INPUT) <OR FALSE CHANNEL> (DEMON-NAME) STRING (INPUT-FILE) <OR FALSE VECTOR STRING> (USER) <OR FALSE STRING> (JOB) <OR FALSE STRING> (JOB-INPUT-SOCKET) <OR FIX FALSE>><ENDPACKAGE> <PACKAGE "IRSUPD"><ENTRY IRSRPCFLD IRSCLNINV IRSDELV IRSUAVCT IRSUPDV IRSUPDF IRSUPD-GRP><USE "IRSBAS" "IRSUSR" "CALSYM" "INV" "PMAP"><SETG IRSRPCFLD %<RSUBR-ENTRY '[\ \ F!- IRSRPCFLD #DECL ("VALUE" ANY IRSVCT <OR <LIST [REST STRING]> STRING> ANY)] 0>><SETG IRSCLNINV %<RSUBR-ENTRY '[\ \ F!- IRSCLNINV #DECL ("VALUE" IRSVCT IRSVCT "OPTIONAL" ANY)] 0>><SETG IRSDELV %<RSUBR-ENTRY '[\ \ F!- IRSDELV #DECL ("VALUE" <VECTOR [REST <OR <VECTOR FIX IRSOBJ> FALSE>]> IRSVCT <OR VECTOR LIST>)] 0>><SETG IRSUPDV %<RSUBR-ENTRY '[\ \ F!- IRSUPDV #DECL ("VALUE" <OR FALSE IRSVCT> IRSVCT VECTOR)] 0>><SETG IRSUPDF %<RSUBR-ENTRY '[\ \ F!- IRSUPDF #DECL ("VALUE" <OR IRSVCT FALSE> IRSVCT <OR STRING CHANNEL> "OPTIONAL" FIX)] 0>><SETG IRSUPD-GRP %<RSUBR-ENTRY '[\ \ F!- IRSUPD-GRP #DECL ("VALUE" ATOM)] 0>><ENDPACKAGE> <PACKAGE "CCAFIL"><ENTRY CCAFIL-OPEN-ARCHIVE CCAFIL-CREATE-ARCHIVE CCAFIL-QUIT CCA-LIST-FILES CCA-PUT-FILES CCA-GET-FILES><USE "CCA"><SETG CCAFIL-OPEN-ARCHIVE %<RSUBR-ENTRY '[\ \ F!- CCAFIL-OPEN-ARCHIVE #DECL ("VALUE" <OR STRING FALSE> "OPTIONAL" STRING <OR STRING FALSE>)] 0>><SETG CCAFIL-CREATE-ARCHIVE %<RSUBR-ENTRY '[\ \ F!- CCAFIL-CREATE-ARCHIVE #DECL ("VALUE" <OR 'T FALSE> STRING STRING "OPTIONAL" ANY ANY)] 0>><SETG CCAFIL-QUIT %<RSUBR-ENTRY '[\ \ F!- CCAFIL-QUIT #DECL ("VALUE" ANY)] 0>><SETG CCA-LIST-FILES %<RSUBR-ENTRY '[\ \ F!- CCA-LIST-FILES #DECL ("VALUE" <OR <LIST [REST STRING]> 'T FALSE> "OPTIONAL" <OR STRING FALSE> ANY)] 0>><SETG CCA-PUT-FILES %<RSUBR-ENTRY '[\ \ F!- CCA-PUT-FILES #DECL ("VALUE" <OR <VECTOR [REST STRING STRING <OR 'T FALSE>]> FALSE> <VECTOR [REST STRING STRING ANY]> "OPTIONAL" <OR STRING FALSE>)] 0>><SETG CCA-GET-FILES %<RSUBR-ENTRY '[\ \ F!- CCA-GET-FILES #DECL ("VALUE" <OR <VECTOR [REST STRING STRING ANY]> FALSE> <VECTOR [REST STRING STRING ANY]> "OPTIONAL" ANY)] 0>><ENDPACKAGE> <PACKAGE "CHARAC"><ENTRY ANY-LOWER-CASE? LOWER-CASE UPPER-CASE DIGITP LETTERP><SETG ANY-LOWER-CASE? %<RSUBR-ENTRY '[\ \ F!- ANY-LOWER-CASE? #DECL ("VALUE" <OR FALSE FIX> STRING)] 0>><SETG LOWER-CASE %<RSUBR-ENTRY '[\ \ F!- LOWER-CASE #DECL ("VALUE" <PRIMTYPE STRING> <PRIMTYPE STRING>)] 0>><SETG UPPER-CASE %<RSUBR-ENTRY '[\ \ F!- UPPER-CASE #DECL ("VALUE" <PRIMTYPE STRING> <PRIMTYPE STRING>)] 0>><SETG DIGITP %<RSUBR-ENTRY '[\ \ F!- DIGITP #DECL ("VALUE" <OR FALSE CHARACTER> CHARACTER)] 0>><SETG LETTERP %<RSUBR-ENTRY '[\ \ F!- LETTERP #DECL ("VALUE" <OR FALSE CHARACTER> CHARACTER)] 0>><ENDPACKAGE> <PACKAGE "MFD"><ENTRY FREE-DESC ALL-FREE DIR-FREE GET-MFD><SETG FREE-DESC %<RSUBR-ENTRY '[\ \ F!- FREE-DESC #DECL ("VALUE" FIX UVECTOR FIX)] 0>><SETG ALL-FREE %<RSUBR-ENTRY '[\ \ F!- ALL-FREE #DECL ("VALUE" VECTOR "OPTIONAL" VECTOR)] 0>><SETG DIR-FREE %<RSUBR-ENTRY '[\ \ F!- DIR-FREE #DECL ("VALUE" FIX "OPTIONAL" STRING UVECTOR)] 0>><SETG GET-MFD %<RSUBR-ENTRY '[\ \ F!- GET-MFD #DECL ("VALUE" <OR FALSE <VECTOR [REST STRING]>> "OPTIONAL" STRING)] 0>><ENDPACKAGE><PACKAGE "DISPLA"><ENTRY PICT STRG DSH STPJ PG HC PV LN PT DR MV XLATE SCALE ROTZ ROTY ROTX DISP CALL SETCLIP><USE "MAPRIM" "MIGSMN" "SMCELLS"><SETG PICT %<RSUBR-ENTRY '[\ \ F!- PICT #DECL ("VALUE" ATOM ATOM <LIST [REST STRING]> "ARGS" LIST)] 0>><SETG STRG %<RSUBR-ENTRY '[\ \ F!- STRG #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG DSH %<RSUBR-ENTRY '[\ \ F!- DSH #DECL ("VALUE" ATOM <OR ATOM FALSE>)] 0>><SETG STPJ %<RSUBR-ENTRY '[\ \ F!- STPJ #DECL ("VALUE" ATOM <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG PG %<RSUBR-ENTRY '[\ \ F!- PG #DECL ("VALUE" ATOM)] 0>><SETG HC %<RSUBR-ENTRY '[\ \ F!- HC #DECL ("VALUE" ATOM)] 0>><SETG PV %<RSUBR-ENTRY '[\ \ F!- PV #DECL ("VALUE" ANY <OR LIST VECTOR UVECTOR> <OR LIST VECTOR UVECTOR> "OPTIONAL" <OR LIST VECTOR UVECTOR>)] 0>><SETG LN %<RSUBR-ENTRY '[\ \ F!- LN #DECL ("VALUE" <LIST <LIST FIX [2 <OR FIX FLOAT>] [REST <OR FIX FLOAT>]> <LIST FIX [2 <OR FIX FLOAT>] [REST <OR FIX FLOAT>]>> <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG PT %<RSUBR-ENTRY '[\ \ F!- PT #DECL ("VALUE" <LIST <LIST FIX> <LIST FIX>> <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT>)] 0>><SETG DR %<RSUBR-ENTRY '[\ \ F!- DR #DECL ("VALUE" <LIST <LIST FIX [2 <OR FIX FLOAT>]>> <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT>)] 0>><SETG MV %<RSUBR-ENTRY '[\ \ F!- MV #DECL ("VALUE" <LIST <LIST FIX [2 <OR FIX FLOAT>]>> <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT>)] 0>><SETG XLATE %<RSUBR-ENTRY '[\ \ F!- XLATE #DECL ("VALUE" <VECTOR [2 FIX] <VECTOR [9 FLOAT] [REST FLOAT]>> <OR FIX FLOAT> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT>)] 0>><SETG SCALE %<RSUBR-ENTRY '[\ \ F!- SCALE #DECL ("VALUE" <VECTOR [2 FIX] <VECTOR [9 FLOAT] [REST FLOAT]>> <OR FIX FLOAT> "OPTIONAL" <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG ROTZ %<RSUBR-ENTRY '[\ \ F!- ROTZ #DECL ("VALUE" <VECTOR [2 FIX] <VECTOR [9 FLOAT] [REST FLOAT]>> FLOAT)] 0>><SETG ROTY %<RSUBR-ENTRY '[\ \ F!- ROTY #DECL ("VALUE" <VECTOR [2 FIX] <VECTOR [16 FLOAT] [REST FLOAT]>> FLOAT)] 0>><SETG ROTX %<RSUBR-ENTRY '[\ \ F!- ROTX #DECL ("VALUE" <VECTOR [2 FIX] <VECTOR [16 FLOAT] [REST FLOAT]>> FLOAT)] 0>><SETG DISP %<RSUBR-ENTRY '[\ \ F!- DISP #DECL ("VALUE" ANY ATOM "ARGS" <LIST [REST FORM]>)] 0>><SETG CALL %<RSUBR-ENTRY '[\ \ F!- CALL #DECL ("VALUE" <LIST <LIST FIX ANY>> ATOM "ARGS" <LIST [REST FORM]>)] 0>><SETG SETCLIP %<RSUBR-ENTRY '[\ \ F!- SETCLIP #DECL ("VALUE" <LIST [REST FLOAT]> "OPTIONAL" <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><ENDPACKAGE> <PACKAGE "ASYSTAT"><ENTRY DPCT AMAX APCT ASYUV ASYSTAT><SETG DPCT 5><SETG AMAX 2><SETG APCT 1><SETG ASYSTAT %<RSUBR-ENTRY '[\ \ F!- ASYSTAT #DECL ("VALUE" <UVECTOR ANY ANY ANY ANY ANY> ASYLUM "OPTIONAL" UVECTOR)] 0>><MANIFEST APCT AMAX DPCT><ENDPACKAGE> <PACKAGE "TSCRIP"><ENTRY SCRIPTCR SCRIPT TELL THEADER><USE "TIMFCN" "NOW" "DATIME"><SETG SCRIPTCR %<RSUBR-ENTRY '[\ \ F!- SCRIPTCR #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG SCRIPT %<RSUBR-ENTRY '[\ \ F!- SCRIPT #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG TELL %<RSUBR-ENTRY '[\ \ F!- TELL #DECL ("VALUE" ANY "TUPLE" TUPLE)] 0>><SETG THEADER %<RSUBR-ENTRY '[\ \ F!- THEADER #DECL ("VALUE" ANY)] 0>><ENDPACKAGE> <PACKAGE "CODER"><ENTRY CODE-DEFAULT CODER><SETG CODER %<RSUBR-ENTRY '[\ \ F!- CODER #DECL ("VALUE" <OR FALSE <LIST ANY <UVECTOR FLOAT> LIST>> STRING "OPTIONAL" <OR ATOM FALSE> <OR ATOM FALSE>)] 0>><GDECL (CODE-DEFAULT) STRING><ENDPACKAGE> <PACKAGE "SORTOB"><ENTRY APPLY-SORTOB UVECOB PRINCOB PRINTOB><USE "SORTX"><SETG APPLY-SORTOB %<RSUBR-ENTRY '[\ \ F!- APPLY-SORTOB #DECL ("VALUE" ANY APPLICABLE <LIST [REST OBLIST]>)] 0>><SETG UVECOB %<RSUBR-ENTRY '[\ \ F!- UVECOB #DECL ("VALUE" UVECTOR <LIST [REST OBLIST]>)] 0>><SETG PRINCOB %<RSUBR-ENTRY '[\ \ F!- PRINCOB #DECL (<LIST [REST OBLIST]> "OPTIONAL" CHANNEL)] 0>><SETG PRINTOB %<RSUBR-ENTRY '[\ \ F!- PRINTOB #DECL (<LIST [REST OBLIST]> "OPTIONAL" CHANNEL)] 0>><ENDPACKAGE> <PACKAGE "RJSCMD"><ENTRY CMDDO><USE "RJSCRD" "RJSJOB" "RJSDAT" "RJSUTI" "RJS" "RJSCHN" "RJSTEL"><SETG CMDDO %<RSUBR-ENTRY '[\ \ F!- CMDDO #DECL ("VALUE" ATOM)] 0>><ENDPACKAGE><PACKAGE "BLPRIN"><ENTRY BLOCK-PRINT><SETG BLOCK-PRINT %<RSUBR-ENTRY '[\ \ F!- BLOCK-PRINT #DECL ("VALUE" ANY VECTOR VECTOR "OPTIONAL" CHANNEL)] 0>><ENDPACKAGE><PACKAGE "CPYFIL"><ENTRY COPY-FILE><SETG COPY-FILE %<RSUBR-ENTRY '[\ \ F!- COPY-FILE #DECL ("VALUE" ATOM <OR STRING CHANNEL> <OR STRING CHANNEL> "OPTIONAL" UVECTOR)] 0>><ENDPACKAGE> <RPACKAGE "SORTX"><ENTRY SORTX><SETG SORTX %<RSUBR-ENTRY '[\ \ F!- SORTX OUT-OF-BOUNDS!-ERRORS] 0>><ENDPACKAGE> <PACKAGE "UNDECL"><ENTRY FLUSH-PKG-OBLS GENLST VECTLST STRLST FORMLST DECLST PRINT-DECLS CLEAR-DECL-LISTS UNIQUE-DECLS><SETG FLUSH-PKG-OBLS %<RSUBR-ENTRY '[\ \ F!- FLUSH-PKG-OBLS #DECL ("VALUE" FIX "OPTIONAL" <LIST [REST STRING]>)] 0>><SETG PRINT-DECLS %<RSUBR-ENTRY '[\ \ F!- PRINT-DECLS #DECL ("VALUE" <OR FALSE ATOM> "OPTIONAL" <OR <LIST [REST ATOM]> ATOM FALSE>)] 0>><SETG CLEAR-DECL-LISTS %<RSUBR-ENTRY '[\ \ F!- CLEAR-DECL-LISTS #DECL ("VALUE" LIST)] 0>><SETG UNIQUE-DECLS %<RSUBR-ENTRY '[\ \ F!- UNIQUE-DECLS #DECL ("VALUE" <VECTOR FIX FIX [REST FIX]> "OPTIONAL" ANY ANY ANY)] 0>><ENDPACKAGE> <PACKAGE "DDMA"><ENTRY RELEASE-LOCK GET-LOCK RELEASE-SPACE FIND-SPACE FILL-UP TRANSFER LOCATION RELEASE-PAGE FIND-PAGE><USE "DDM"><SETG RELEASE-LOCK %<RSUBR-ENTRY '[\ \ F!- RELEASE-LOCK #DECL ("VALUE" FIX FIX)] 0>><SETG GET-LOCK %<RSUBR-ENTRY '[\ \ F!- GET-LOCK #DECL ("VALUE" <OR FIX FALSE> FIX FIX FIX)] 0>><SETG RELEASE-SPACE %<RSUBR-ENTRY '[\ \ F!- RELEASE-SPACE #DECL ("VALUE" <OR FIX FALSE> <PRIMTYPE VECTOR> FIX FIX FIX FIX)] 0>><SETG FIND-SPACE %<RSUBR-ENTRY '[\ \ F!- FIND-SPACE #DECL ("VALUE" <OR FIX FALSE> FIX FIX)] 0>><SETG FILL-UP %<RSUBR-ENTRY '[\ \ F!- FILL-UP #DECL ("VALUE" FIX FIX FIX FIX)] 0>><SETG TRANSFER %<RSUBR-ENTRY '[\ \ F!- TRANSFER #DECL ("VALUE" FIX FIX FIX FIX)] 0>><SETG LOCATION %<RSUBR-ENTRY '[\ \ F!- LOCATION #DECL ("VALUE" FIX ANY)] 0>><SETG RELEASE-PAGE %<RSUBR-ENTRY '[\ \ F!- RELEASE-PAGE #DECL ("VALUE" FIX FIX "OPTIONAL" FIX)] 0>><SETG FIND-PAGE %<RSUBR-ENTRY '[\ \ F!- FIND-PAGE #DECL ("VALUE" <OR FIX FALSE> "OPTIONAL" FIX)] 0>><ENDPACKAGE> <PACKAGE "RJSCRD"><ENTRY FILE-READ-JOB NET-READ-JOB CARD-INPUT><USE "RJSTEL" "RJSUTI" "RJSDAT" "RJSCHN" "RJSJOB"><SETG FILE-READ-JOB %<RSUBR-ENTRY '[\ \ F!- FILE-READ-JOB #DECL ("VALUE" ANY)] 0>><SETG NET-READ-JOB %<RSUBR-ENTRY '[\ \ F!- NET-READ-JOB #DECL ("VALUE" ATOM)] 0>><SETG CARD-INPUT %<RSUBR-ENTRY '[\ \ F!- CARD-INPUT #DECL ("VALUE" ATOM CHANNEL)] 0>><ENDPACKAGE> <PACKAGE "LIB"><ENTRY LIB-HANDLER LIB-DYNAMIC-LOADER LIB-LOAD LIB-DCT LIB-ACT LIB-NOISY-CHAR LIB-NOISY? LIB-ALWAYS-CLOSE LIB-LIST LIB-CHAN-LIST><ENDPACKAGE> <PACKAGE "MISC01"><ENTRY LSTRMV LISTREMOVE LSTRPL1 PHOSTS PHOST PUSER PUSERL PUSERS><USE "HOSTS"><SETG LSTRMV %<RSUBR-ENTRY '[\ \ F!- LSTRMV #DECL ("VALUE" LIST LIST FIX)] 0>><SETG LISTREMOVE %<RSUBR-ENTRY '[\ \ F!- LISTREMOVE #DECL ("VALUE" <OR FALSE LIST> LIST ANY)] 0>><SETG LSTRPL1 %<RSUBR-ENTRY '[\ \ F!- LSTRPL1 #DECL ("VALUE" ANY LIST LIST)] 0>><SETG PHOSTS %<RSUBR-ENTRY '[\ \ F!- PHOSTS #DECL ("VALUE" <OR STRING FALSE> <OR FIX STRING>)] 0>><SETG PHOST %<RSUBR-ENTRY '[\ \ F!- PHOST #DECL ("VALUE" ANY <OR FIX STRING> CHANNEL)] 0>><SETG PUSER %<RSUBR-ENTRY '[\ \ F!- PUSER #DECL ("VALUE" ANY <OR VECTOR STRING ATOM> CHANNEL)] 0>><SETG PUSERL %<RSUBR-ENTRY '[\ \ F!- PUSERL #DECL ("VALUE" ANY <LIST [REST <OR STRING VECTOR>]> CHANNEL "OPTIONAL" FIX FIX STRING)] 0>><SETG PUSERS %<RSUBR-ENTRY '[\ \ F!- PUSERS #DECL ("VALUE" <OR STRING FALSE> <OR STRING VECTOR ATOM>)] 0>><ENDPACKAGE> <PACKAGE "TIMFCN"><ENTRY ZONSTR DST? NON-MIT-HOLIDAY? HOLIDAY? DATE-DOW DAYS-BETWEEN INMONTH DTNOW PAST? BEFORE? TIMEZONE TZDIFF SINCE60 DTPRINT DTDIFF DTADD-2NORM DTADD DTNORM GOOD-DTNORM PDATE PTIME SPDATE TIME-DIF TIME-STR REL-TIMEST TIMEST TIME-STRING GOOD-DTSECS DTSECS SECS-DTNORM SECONDS DAYS><USE "DATIME"><SETG DST? %<RSUBR-ENTRY '[\ \ F!- DST? #DECL ("VALUE" <OR ATOM FALSE> "OPTIONAL" LIST)] 0>><SETG NON-MIT-HOLIDAY? %<RSUBR-ENTRY '[\ \ F!- NON-MIT-HOLIDAY? #DECL ("VALUE" <OR FALSE STRING> "OPTIONAL" <LIST [3 FIX]>)] 0>><SETG HOLIDAY? %<RSUBR-ENTRY '[\ \ F!- HOLIDAY? #DECL ("VALUE" <OR FALSE STRING> "OPTIONAL" <LIST [3 FIX]>)] 0>><SETG DATE-DOW %<RSUBR-ENTRY '[\ \ F!- DATE-DOW #DECL ("VALUE" FIX "OPTIONAL" <LIST [3 FIX]>)] 0>><SETG DAYS-BETWEEN %<RSUBR-ENTRY '[\ \ F!- DAYS-BETWEEN #DECL ("VALUE" FIX <LIST <LIST FIX FIX FIX>> <LIST <LIST FIX FIX FIX>>)] 0>><SETG INMONTH %<RSUBR-ENTRY '[\ \ F!- INMONTH #DECL ("VALUE" FIX FIX FIX)] 0>><SETG DTNOW %<RSUBR-ENTRY '[\ \ F!- DTNOW #DECL ("VALUE" <LIST [2 <LIST FIX FIX FIX>] STRING> "OPTIONAL" <LIST LIST LIST STRING>)] 0>><SETG PAST? %<RSUBR-ENTRY '[\ \ F!- PAST? #DECL ("VALUE" <OR ATOM FALSE> ANY)] 0>><SETG BEFORE? %<RSUBR-ENTRY '[\ \ F!- BEFORE? #DECL ("VALUE" <OR ATOM FALSE> ANY ANY)] 0>><SETG TIMEZONE %<RSUBR-ENTRY '[\ \ F!- TIMEZONE #DECL ("VALUE" STRING)] 0>><SETG TZDIFF %<RSUBR-ENTRY '[\ \ F!- TZDIFF #DECL ("VALUE" FIX ANY "OPTIONAL" ANY)] 0>><SETG SINCE60 %<RSUBR-ENTRY '[\ \ F!- SINCE60 #DECL ("VALUE" FLOAT <LIST <LIST FIX FIX FIX> <LIST FIX FIX FIX> STRING>)] 0>><SETG DTPRINT %<RSUBR-ENTRY '[\ \ F!- DTPRINT #DECL ("VALUE" ATOM LIST "OPTIONAL" CHANNEL)] 0>><SETG DTDIFF %<RSUBR-ENTRY '[\ \ F!- DTDIFF #DECL ("VALUE" FLOAT LIST "OPTIONAL" LIST)] 0>><SETG DTADD-2NORM %<RSUBR-ENTRY '[\ \ F!- DTADD-2NORM #DECL ("VALUE" <LIST [2 <LIST [3 FIX]>]> <LIST [REST LIST]> "OPTIONAL" <LIST [2 <LIST [3 FIX]>]>)] 0>><SETG DTADD %<RSUBR-ENTRY '[\ \ F!- DTADD #DECL ("VALUE" <LIST [2 <LIST [3 FIX]>] STRING> <LIST [OPTIONAL LIST]> <LIST [OPTIONAL LIST]> "OPTIONAL" <LIST [2 <LIST [3 FIX]>]>)] 0>><SETG DTNORM %<RSUBR-ENTRY '[\ \ F!- DTNORM #DECL ("VALUE" <LIST [2 <LIST FIX FIX FIX>] STRING> <LIST <LIST [REST FIX]> <LIST [REST FIX]>> "OPTIONAL" ANY)] 0>><SETG GOOD-DTNORM %<RSUBR-ENTRY '[\ \ F!- GOOD-DTNORM #DECL ("VALUE" <LIST [2 <LIST FIX FIX FIX>] STRING> ANY "OPTIONAL" ANY)] 0>><SETG PDATE %<RSUBR-ENTRY '[\ \ F!- PDATE #DECL ("VALUE" FIX <LIST FIX FIX FIX> "OPTIONAL" CHANNEL)] 0>><SETG PTIME %<RSUBR-ENTRY '[\ \ F!- PTIME #DECL ("VALUE" ANY <LIST FIX FIX FIX> "OPTIONAL" CHANNEL)] 0>><SETG SPDATE %<RSUBR-ENTRY '[\ \ F!- SPDATE #DECL ("VALUE" FIX <LIST FIX FIX FIX> "OPTIONAL" CHANNEL)] 0>><SETG TIME-DIF %<RSUBR-ENTRY '[\ \ F!- TIME-DIF #DECL ("VALUE" STRING <LIST FIX FIX FIX> <LIST FIX FIX FIX> <LIST FIX FIX FIX> <LIST FIX FIX FIX>)] 0>><SETG TIME-STR %<RSUBR-ENTRY '[\ \ F!- TIME-STR #DECL ("VALUE" STRING <OR FIX FLOAT>)] 0>><SETG REL-TIMEST %<RSUBR-ENTRY '[\ \ F!- REL-TIMEST #DECL ("VALUE" STRING <LIST LIST <LIST [3 FIX]>>)] 0>><SETG TIMEST %<RSUBR-ENTRY '[\ \ F!- TIMEST #DECL ("VALUE" STRING FIX <OR FIX FLOAT> <OR FIX FLOAT>)] 0>><SETG TIME-STRING %<RSUBR-ENTRY '[\ \ F!- TIME-STRING #DECL ("VALUE" STRING <LIST FIX FIX FIX>)] 0>><SETG GOOD-DTSECS %<RSUBR-ENTRY '[\ \ F!- GOOD-DTSECS #DECL ("VALUE" FIX <LIST [2 <LIST FIX FIX FIX>] STRING>)] 0>><SETG DTSECS %<RSUBR-ENTRY '[\ \ F!- DTSECS #DECL ("VALUE" FIX <LIST LIST LIST>)] 0>><SETG SECS-DTNORM %<RSUBR-ENTRY '[\ \ F!- SECS-DTNORM #DECL ("VALUE" <LIST [2 <LIST FIX FIX FIX>] STRING> FIX "OPTIONAL" <LIST [2 <LIST FIX FIX FIX>] STRING>)] 0>><SETG SECONDS %<RSUBR-ENTRY '[\ \ F!- SECONDS #DECL ("VALUE" FIX FIX FIX FIX "OPTIONAL" FIX FIX FIX)] 0>><SETG DAYS %<RSUBR-ENTRY '[\ \ F!- DAYS #DECL ("VALUE" FIX FIX FIX FIX "OPTIONAL" FIX FIX)] 0>><GDECL (ZONSTR) <OR STRING FALSE>><ENDPACKAGE><PACKAGE "ACHECK"><ENTRY KNOWN-OBJECT-TYPES OLD-NEW SDM-END SDM-INIT MAP-FIELD NEW-DESC ABSTR? CHECK-PRINT CHECK-ABSTR CHECK-FILE><USE "DECLM" "APRINT" "ACONST" "SDML" "STR"><SETG OLD-NEW %<RSUBR-ENTRY '[\ \ F!- OLD-NEW #DECL ("VALUE" ANY <OR ATOM STRING> "OPTIONAL" STRING)] 0>><SETG SDM-END %<RSUBR-ENTRY '[\ \ F!- SDM-END #DECL ("VALUE" ANY)] 0>><SETG SDM-INIT %<RSUBR-ENTRY '[\ \ F!- SDM-INIT #DECL ("VALUE" ANY)] 0>><SETG MAP-FIELD %<RSUBR-ENTRY '[\ \ F!- MAP-FIELD #DECL ("VALUE" ANY PMCHAN ANY)] 0>><SETG ABSTR? %<RSUBR-ENTRY '[\ \ F!- ABSTR? #DECL ("VALUE" <OR ATOM LIST FALSE> VECTOR ANY)] 0>><SETG CHECK-PRINT %<RSUBR-ENTRY '[\ \ F!- CHECK-PRINT #DECL ("VALUE" ANY <OR ATOM <PRIMTYPE LIST>> ANY)] 0>><SETG CHECK-ABSTR %<RSUBR-ENTRY '[\ \ F!- CHECK-ABSTR #DECL ("VALUE" ANY VECTOR "OPTIONAL" ANY)] 0>><SETG CHECK-FILE %<RSUBR-ENTRY '[\ \ F!- CHECK-FILE #DECL ("VALUE" ANY STRING "OPTIONAL" ANY)] 0>><GDECL (KNOWN-OBJECT-TYPES) <VECTOR [REST STRING]>><ENDPACKAGE> <PACKAGE "CHKADR"><ENTRY CHECK-ADDRESSEES><USE "HOSTS" "LSRTNS" "NSTR" "VCTSRC"><SETG CHECK-ADDRESSEES %<RSUBR-ENTRY '[\ \ F!- CHECK-ADDRESSEES #DECL ("VALUE" <OR ATOM FALSE> LIST "OPTIONAL" <OR FALSE LIST>)] 0>><ENDPACKAGE> <PACKAGE "HELPAT"><ENTRY L-POSSYM OBL-POSSYM ALL-LOADED-PACKAGES ATOM-FIND ATOM-PART H><USE "CALSYM" "SDMSYM" "STR" "UVHACK"><SETG L-POSSYM %<RSUBR-ENTRY '[\ \ F!- L-POSSYM #DECL ("VALUE" FIX STRING "OPTIONAL" FIX <LIST [REST STRING]> STRING STRING)] 0>><SETG OBL-POSSYM %<RSUBR-ENTRY '[\ \ F!- OBL-POSSYM #DECL ("VALUE" FIX STRING "OPTIONAL" FIX <LIST [REST <PRIMTYPE UVECTOR>]> STRING STRING)] 0>><SETG ALL-LOADED-PACKAGES %<RSUBR-ENTRY '[\ \ F!- ALL-LOADED-PACKAGES #DECL ("VALUE" <LIST [REST OBLIST]>)] 0>><SETG ATOM-FIND %<RSUBR-ENTRY '[\ \ F!- ATOM-FIND #DECL ("VALUE" FIX STRING "OPTIONAL" FIX)] 0>><SETG ATOM-PART %<RSUBR-ENTRY '[\ \ F!- ATOM-PART #DECL ("VALUE" FIX STRING "OPTIONAL" ANY)] 0>><SETG H %<RSUBR-ENTRY '[\ \ F!- H #DECL ("VALUE" ANY STRING "OPTIONAL" FIX)] 0>><ENDPACKAGE> <PACKAGE "IMLAC"><ENTRY IMLAC-OUT IMLAC-IN IMLAC-RESET IMLAC-COMMAND><SETG IMLAC-OUT %<RSUBR-ENTRY '[\ \ F!- IMLAC-OUT #DECL (CHARACTER)] 0>><SETG IMLAC-IN %<RSUBR-ENTRY '[\ \ F!- IMLAC-IN #DECL ("VALUE" CHARACTER)] 0>><SETG IMLAC-COMMAND %<RSUBR-ENTRY '[\ \ F!- IMLAC-COMMAND #DECL ("VALUE" <OR FALSE CHARACTER>)] 0>><ENDPACKAGE><PACKAGE "SQUOZE"><ENTRY SQUOZE><SETG SQUOZE %<RSUBR-ENTRY '[\ \ F!- SQUOZE #DECL ("VALUE" ANY STRING "OPTIONAL" <PRIMTYPE WORD>)] 0>><ENDPACKAGE> <RPACKAGE "TEMHLP"><ENTRY TEMPLATE-PUT TEMPLATE-GET TEMPLATE-LENGTH TEMPLATE? PUTTER-DATA GETTER-DATA TEMPLATE-DATA DUMP-TEMPLATE BUILD-TEMPLATE DUMP-RSUBRS DUMP-TEMPLATES><SETG TEMPLATE-PUT %<RSUBR-ENTRY '[\ \ F!- TEMPLATE-PUT #DECL ("VALUE" UVECTOR FIX)] 0>><SETG TEMPLATE-GET %<RSUBR-ENTRY '[\ \ F!- TEMPLATE-GET #DECL ("VALUE" UVECTOR FIX)] 0>><SETG TEMPLATE-LENGTH %<RSUBR-ENTRY '[\ \ F!- TEMPLATE-LENGTH #DECL ("VALUE" WORD FIX)] 0>><SETG TEMPLATE? %<RSUBR-ENTRY '[\ \ F!- TEMPLATE? #DECL ("VALUE" <OR FALSE FIX> VECTOR)] 0>><SETG BUILD-TEMPLATE %<RSUBR-ENTRY '[\ \ F!- BUILD-TEMPLATE #DECL ("VALUE" ATOM ATOM ANY FIX UVECTOR UVECTOR LIST LIST VECTOR ANY)] 0>><SETG DUMP-RSUBRS %<RSUBR-ENTRY '[\ \ F!- DUMP-RSUBRS #DECL ("VALUE" <OR FALSE STRING> ANY "TUPLE" ANY)] 0>><SETG DUMP-TEMPLATES %<RSUBR-ENTRY '[\ \ F!- DUMP-TEMPLATES #DECL ("VALUE" <OR FALSE STRING> ANY)] 0>><ENDPACKAGE> <PACKAGE "JOBS"><ENTRY RUN-INF-HANDLER RUN-LISTEN RUN PASS-JCL-DOWN JOB-STOP JOB-STATUS JOB-START JOB-LOAD JOB-KILL><USE "ITS" "JOBASS" "STR" "UVHACK"><SETG RUN-INF-HANDLER %<RSUBR-ENTRY '[\ \ F!- RUN-INF-HANDLER #DECL ("VALUE" ANY FIX)] 0>><SETG RUN-LISTEN %<RSUBR-ENTRY '[\ \ F!- RUN-LISTEN #DECL ("VALUE" ANY CHANNEL STRING)] 0>><SETG RUN %<RSUBR-ENTRY '[\ \ F!- RUN #DECL ("VALUE" <OR FALSE FIX STRING UVECTOR WORD> <OR STRING ATOM> "OPTIONAL" STRING STRING APPLICABLE ANY STRING)] 0>><SETG PASS-JCL-DOWN %<RSUBR-ENTRY '[\ \ F!- PASS-JCL-DOWN #DECL ("VALUE" <OR FIX !<FALSE FIX STRING!>> STRING CHANNEL FIX)] 0>><SETG JOB-STOP %<RSUBR-ENTRY '[\ \ F!- JOB-STOP #DECL ("VALUE" FIX CHANNEL)] 0>><SETG JOB-STATUS %<RSUBR-ENTRY '[\ \ F!- JOB-STATUS #DECL ("VALUE" <VECTOR FIX <OR FIX STRING WORD <UVECTOR [REST <OR FIX WORD>]>>> <CHANNEL FIX>)] 0>><SETG JOB-START %<RSUBR-ENTRY '[\ \ F!- JOB-START #DECL ("VALUE" FIX CHANNEL)] 0>><SETG JOB-LOAD %<RSUBR-ENTRY '[\ \ F!- JOB-LOAD #DECL ("VALUE" <OR CHANNEL FALSE> STRING STRING STRING "OPTIONAL" STRING)] 0>><SETG JOB-KILL %<RSUBR-ENTRY '[\ \ F!- JOB-KILL #DECL ("VALUE" CHANNEL CHANNEL)] 0>><ENDPACKAGE> <PACKAGE "AERROR"><ENTRY ERROR-RETURN BATCH SYNTAX ERROR-CATCHER OFF-ERROR ON-ERROR><SETG ERROR-CATCHER %<RSUBR-ENTRY '[\ \ F!- ERROR-CATCHER #DECL ("VALUE" ANY FRAME "TUPLE" TUPLE)] 0>><SETG OFF-ERROR %<RSUBR-ENTRY '[\ \ F!- OFF-ERROR #DECL ("VALUE" STRING)] 0>><SETG ON-ERROR %<RSUBR-ENTRY '[\ \ F!- ON-ERROR #DECL ("VALUE" STRING)] 0>><ENDPACKAGE><PACKAGE "AP"><ENTRY AP?><USE "L"><SETG AP? %<RSUBR-ENTRY '[\ \ F!- AP? #DECL ("VALUE" <OR FALSE APPLICABLE> ANY)] 0>><ENDPACKAGE><PACKAGE "IRSUSR"><ENTRY IRSUPUT IRSUGET IRSDISTPRTH IRSDISTPRT IRSDISTSRT IRSDISTBL IRSFILSYM IRSFILDCT IRSFILACT IRSCOMP IRSCNV IRSFND IRSLSTFLD IRSPSTATUS IRSGID IRSGNAME IRSPOB IRSGOBJ IRSMAPF IRSNSET IRSDSET IRSUSET IRSTSET IRSCSET IRSMAKDFL IRSPSIZE MAKETEMP IRSPSET IRSDCT IRSACT IRSACV IRSUSR-GRP><USE "IRSBAS" "INV" "CALSYM" "VCTMAN" "STR"><SETG IRSUPUT %<RSUBR-ENTRY '[\ \ F!- IRSUPUT #DECL ("VALUE" ANY ANY <OR LIST FIX> ANY)] 0>><SETG IRSUGET %<RSUBR-ENTRY '[\ \ F!- IRSUGET #DECL ("VALUE" ANY ANY <OR LIST FIX>)] 0>><SETG IRSDISTPRTH %<RSUBR-ENTRY '[\ \ F!- IRSDISTPRTH #DECL ("VALUE" <OR ATOM FALSE> <LIST LIST FIX> "OPTIONAL" FIX CHARACTER)] 0>><SETG IRSDISTPRT %<RSUBR-ENTRY '[\ \ F!- IRSDISTPRT #DECL ("VALUE" <LIST LIST FIX> <LIST LIST FIX>)] 0>><SETG IRSDISTSRT %<RSUBR-ENTRY '[\ \ F!- IRSDISTSRT #DECL ("VALUE" <LIST ANY> LIST)] 0>><SETG IRSDISTBL %<RSUBR-ENTRY '[\ \ F!- IRSDISTBL #DECL ("VALUE" <OR FALSE LIST> IRSVCT ANY)] 0>><SETG IRSFILSYM %<RSUBR-ENTRY '[\ \ F!- IRSFILSYM #DECL ("VALUE" <OR FALSE SYMTABLE> <VECTOR <VECTOR VECTOR [REST <OR ATOM FALSE>]> ANY>)] 0>><SETG IRSFILDCT %<RSUBR-ENTRY '[\ \ F!- IRSFILDCT #DECL ("VALUE" ANY <VECTOR <VECTOR VECTOR [REST <OR ATOM FALSE>]> ANY>)] 0>><SETG IRSFILACT %<RSUBR-ENTRY '[\ \ F!- IRSFILACT #DECL ("VALUE" <OR FALSE <VECTOR VECTOR ANY>> IRSVCT <VECTOR VECTOR [REST <OR ATOM FALSE>]> "OPTIONAL" STRING)] 0>><SETG IRSCOMP %<RSUBR-ENTRY '[\ \ F!- IRSCOMP #DECL ("VALUE" <OR FALSE FIX> IRSVCT <OR ATOM STRING APPLICABLE> <OR ATOM STRING FIX <LIST [REST FIX]>> ANY "OPTIONAL" ANY)] 0>><SETG IRSCNV %<RSUBR-ENTRY '[\ \ F!- IRSCNV #DECL ("VALUE" <OR FALSE VECTOR> IRSVCT <OR LIST VECTOR>)] 0>><SETG IRSFND %<RSUBR-ENTRY '[\ \ F!- IRSFND #DECL ("VALUE" <OR FALSE FIX> IRSVCT <OR VECTOR LIST> "OPTIONAL" ANY FIX)] 0>><SETG IRSLSTFLD %<RSUBR-ENTRY '[\ \ F!- IRSLSTFLD #DECL ("VALUE" ANY IRSVCT <OR ATOM STRING SYMBOL>)] 0>><SETG IRSPSTATUS %<RSUBR-ENTRY '[\ \ F!- IRSPSTATUS #DECL ("VALUE" ATOM IRSVCT)] 0>><SETG IRSGID %<RSUBR-ENTRY '[\ \ F!- IRSGID #DECL ("VALUE" ANY IRSVCT STRING)] 0>><SETG IRSGNAME %<RSUBR-ENTRY '[\ \ F!- IRSGNAME #DECL ("VALUE" ANY IRSVCT ANY)] 0>><SETG IRSPOB %<RSUBR-ENTRY '[\ \ F!- IRSPOB #DECL ("VALUE" <OR FALSE STRING> IRSVCT ANY "OPTIONAL" VECTOR)] 0>><SETG IRSGOBJ %<RSUBR-ENTRY '[\ \ F!- IRSGOBJ #DECL ("VALUE" <OR FALSE IRSOBJ> IRSVCT ANY "OPTIONAL" ANY)] 0>><SETG IRSMAPF %<RSUBR-ENTRY '[\ \ F!- IRSMAPF #DECL ("VALUE" ANY ANY ANY IRSVCT "TUPLE" TUPLE)] 0>><SETG IRSNSET %<RSUBR-ENTRY '[\ \ F!- IRSNSET #DECL ("VALUE" <OR ATOM FALSE> IRSVCT <OR INVERSION VECTOR> FIX <OR VECTOR LIST> "OPTIONAL" LIST)] 0>><SETG IRSDSET %<RSUBR-ENTRY '[\ \ F!- IRSDSET #DECL ("VALUE" <OR ATOM FALSE> IRSVCT "OPTIONAL" ANY)] 0>><SETG IRSUSET %<RSUBR-ENTRY '[\ \ F!- IRSUSET #DECL ("VALUE" <OR ATOM FALSE> IRSVCT "OPTIONAL" ANY)] 0>><SETG IRSTSET %<RSUBR-ENTRY '[\ \ F!- IRSTSET #DECL ("VALUE" ATOM IRSVCT)] 0>><SETG IRSCSET %<RSUBR-ENTRY '[\ \ F!- IRSCSET #DECL ("VALUE" <OR FALSE IRSSET> IRSVCT)] 0>><SETG IRSMAKDFL %<RSUBR-ENTRY '[\ \ F!- IRSMAKDFL #DECL ("VALUE" ANY ANY "TUPLE" ANY)] 0>><SETG IRSPSIZE %<RSUBR-ENTRY '[\ \ F!- IRSPSIZE #DECL ("VALUE" <OR FALSE IRSVCT> IRSVCT FIX)] 0>><SETG MAKETEMP %<RSUBR-ENTRY '[\ \ F!- MAKETEMP #DECL ("VALUE" <OR FALSE VECTOR> IRSVCT "OPTIONAL" ANY)] 0>><SETG IRSPSET %<RSUBR-ENTRY '[\ \ F!- IRSPSET #DECL ("VALUE" ANY IRSVCT "TUPLE" ANY)] 0>><SETG IRSDCT %<RSUBR-ENTRY '[\ \ F!- IRSDCT #DECL ("VALUE" IRSVCT IRSVCT)] 0>><SETG IRSACT %<RSUBR-ENTRY '[\ \ F!- IRSACT #DECL ("VALUE" <OR FALSE IRSVCT> <OR IRSVCT STRING CHANNEL> "OPTIONAL" ANY <LIST [REST OBLIST]>)] 0>><SETG IRSACV %<RSUBR-ENTRY '[\ \ F!- IRSACV #DECL ("VALUE" <OR FALSE IRSVCT> IRSVCT "OPTIONAL" ANY)] 0>><SETG IRSUSR-GRP %<RSUBR-ENTRY '[\ \ F!- IRSUSR-GRP #DECL ("VALUE" ATOM)] 0>><ENDPACKAGE> <PACKAGE "HASH"><ENTRY HASH><NEWTYPE HASH WORD><SETG HASH %<RSUBR-ENTRY '[\ \ F!- HASH #DECL ("VALUE" HASH ANY)] 0>><ENDPACKAGE> <PACKAGE "DEBUGR"><ENTRY OUT-UNIQUE OUT-FAST FORM-FAST SELF-FAST INDENT-DIF INDENT-MOD INDENT-INC REPAIR HELP DEBUG><SETG REPAIR %<RSUBR-ENTRY '[\ \ F!- REPAIR #DECL ("VALUE" ANY)] 0>><SETG HELP %<RSUBR-ENTRY '[\ \ F!- HELP #DECL ("VALUE" ANY)] 0>><SETG DEBUG %<RSUBR-ENTRY '[\ \ F!- DEBUG #DECL ("VALUE" ANY "OPTIONAL" "QUOTE" ANY)] 0>><GDECL (INDENT-INC) FIX (INDENT-MOD) FIX (INDENT-DIF) FIX><ENDPACKAGE> <PACKAGE "MLOAD"><ENTRY LOAD-GBINS? L-GIVE-UP GROUPS PACKS MOBY-LOAD><USE "L" "DUMMY"><SETG MOBY-LOAD %<RSUBR-ENTRY '[\ \ F!- MOBY-LOAD #DECL ("VALUE" <OR ATOM FALSE> STRING "OPTIONAL" <OR ATOM FALSE>)] 0>><ENDPACKAGE> <PACKAGE "FMACRO"><ENTRY FAST-MACROS><USE "HASH"><SETG FAST-MACROS %<RSUBR-ENTRY '[\ \ F!- FAST-MACROS #DECL ("VALUE" STRING "OPTIONAL" ANY)] 0>><ENDPACKAGE> <PACKAGE "FULNAM"><ENTRY FULLNAME><SETG FULLNAME %<RSUBR-ENTRY '[\ \ F!- FULLNAME #DECL ("VALUE" STRING <STRING CHARACTER>)] 0>><ENDPACKAGE><PACKAGE "RJSUTI"><ENTRY OUTINFO SCHEDULE RESCHEDULE ARGGET NEXT-COMMAND><USE "STDMST" "RJSDAT" "TIMFCN" "LOGIN"><SETG OUTINFO %<RSUBR-ENTRY '[\ \ F!- OUTINFO #DECL ("VALUE" ATOM ATOM FIX "TUPLE" TUPLE)] 0>><SETG SCHEDULE %<RSUBR-ENTRY '[\ \ F!- SCHEDULE #DECL ("VALUE" ATOM FIX)] 0>><SETG RESCHEDULE %<RSUBR-ENTRY '[\ \ F!- RESCHEDULE #DECL ("VALUE" <OR ATOM CHANNEL FALSE>)] 0>><SETG ARGGET %<RSUBR-ENTRY '[\ \ F!- ARGGET #DECL ("VALUE" ANY)] 0>><SETG NEXT-COMMAND %<RSUBR-ENTRY '[\ \ F!- NEXT-COMMAND #DECL ("VALUE" <OR FALSE STRING>)] 0>><ENDPACKAGE> <PACKAGE "INFASS"><ENTRY INF-GET-NUM INF-CREATE INF-LOAD-FILE USET UCLOSE DTTY ATTY><SETG INF-GET-NUM %<RSUBR-ENTRY '[\ \ F!- INF-GET-NUM #DECL ("VALUE" FIX CHANNEL)] 0>><SETG INF-CREATE %<RSUBR-ENTRY '[\ \ F!- INF-CREATE #DECL ("VALUE" <OR CHANNEL <FALSE STRING>> STRING)] 0>><SETG INF-LOAD-FILE %<RSUBR-ENTRY '[\ \ F!- INF-LOAD-FILE #DECL ("VALUE" <OR WORD <FALSE STRING>> CHANNEL CHANNEL)] 0>><SETG USET %<RSUBR-ENTRY '[\ \ F!- USET #DECL ("VALUE" FIX <OR CHANNEL FALSE> <PRIMTYPE WORD> "OPTIONAL" <PRIMTYPE WORD>)] 0>><SETG UCLOSE %<RSUBR-ENTRY '[\ \ F!- UCLOSE #DECL ("VALUE" CHANNEL CHANNEL)] 0>><SETG DTTY %<RSUBR-ENTRY '[\ \ F!- DTTY #DECL ("VALUE" <OR CHANNEL <FALSE [REST]>> CHANNEL)] 0>><SETG ATTY %<RSUBR-ENTRY '[\ \ F!- ATTY #DECL ("VALUE" <OR CHANNEL <FALSE [REST]>> CHANNEL)] 0>><ENDPACKAGE> <PACKAGE "OPEN-APPEND"><ENTRY OPEN-APPEND><SETG OPEN-APPEND %<RSUBR-ENTRY '[\ \ F!- OPEN-APPEND #DECL ("VALUE" <OR CHANNEL <FALSE [2 STRING] FIX>> STRING "OPTIONAL" FIX FIX)] 0>><ENDPACKAGE>
Reference in New Issue View Git Blame Copy Permalink