mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
73 lines
1.9 KiB
Plaintext
73 lines
1.9 KiB
Plaintext
'<PCODE "1DRAGAN">
|
|
|
|
<PACKAGE "DRAGAN">
|
|
|
|
<ENTRY ANNOTATE>
|
|
|
|
<USE "LSRHIL" "LSRTNS">
|
|
|
|
<SETG ANNOTATE %<RSUBR!- '[ %<PCODE!- "1DRAGAN" 0> ANNOTATE #DECL ("VALUE" <OR
|
|
CHANNEL FALSE> "OPT" STRING STRING <OR ATOM FALSE>) FULLNAME LSR-EXTRACT
|
|
INDENT-TO LSR-ENTRY "DRAGON" T "READB" "PRINT" %<RGLOC KEY T> OUTCHAN (CHANNEL)
|
|
%<RGLOC BUF T> "#
|
|
" "î" %<RGLOC NL T> "/!" ![$MITA $MITT $HOMA $HOMT $NETA $PROJ $SUPR $REM $AUTH
|
|
$ALTR!] [" MIT: " " " " HOME: " " "
|
|
" NET: " " hacking " " for " " Remarks: "
|
|
" Authorization: " " Entered by: "]]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,ANNOTATE PGLUE ![717225983 -1073741824!]>>
|
|
|
|
|
|
<SETG INFO %<RSUBR-ENTRY '[ANNOTATE INFO #DECL ("VALUE" <OR FALSE STRING> STRING
|
|
)] 306>>
|
|
|
|
<GDECL (BUF NL KEY) STRING>
|
|
|
|
<SETG BUF <ISTRING 150>>
|
|
|
|
<SETG NL "
|
|
">
|
|
|
|
<SETG KEY
|
|
" KEY:
|
|
|
|
Relation to one's group:
|
|
A - Administrative
|
|
B - Biweekly/Exempt (?)
|
|
C - Customer
|
|
F - Faculty
|
|
G - Graduate Student
|
|
N - None
|
|
O - Other
|
|
P - Publications/Editing
|
|
R - Research Associate
|
|
S - DSR Staff
|
|
U - Undergraduate Student
|
|
|
|
|
| One's group affiliation:
|
|
| A - Artificial Intelligence Lab
|
|
| C - Project MAC
|
|
| D - Dynamic Modelling
|
|
| H - Actor/Planner Group
|
|
| I - Information Proc. Services
|
|
| L - LOGO Lab
|
|
| M - Mathlab Group
|
|
| N - Non-Consortium Macsyma User
|
|
| O - Programs (e.g. XGP)
|
|
| P - Knowledge Based Systems (AutoProg)
|
|
| R - Architecture Machine Group
|
|
| S - Stanford Visitor
|
|
| T - Tourist/Guest
|
|
| U - Authorized Macsyma User
|
|
| W - MIT-XX Person
|
|
| X - eX-user of ITS
|
|
| Z - Medical Group
|
|
| + - MIT System Wizards
|
|
| < - Very Small Data Bases
|
|
| $ - Non-MIT (NET) Wizards
|
|
| @ - Alias for someone known under another name
|
|
| |
|
|
V V
|
|
">
|
|
|
|
<ENDPACKAGE>
|