mirror of
https://github.com/PDP-10/its.git
synced 2026-02-07 00:47:06 +00:00
MIGS - Muddle interactive graphics system.
Files courtesy of Rich Shiffman.
This commit is contained in:
23
src/librm4/smcell.urs106
Normal file
23
src/librm4/smcell.urs106
Normal file
@@ -0,0 +1,23 @@
|
||||
<PACKAGE "SMCELLS">
|
||||
<ENTRY MCELL DISPCOM MIGS MCELLS>
|
||||
<MOBLIST DISPCOM>
|
||||
<BLOCK (<GET DISPCOM OBLIST><ROOT>)>
|
||||
COMSWICTH
|
||||
<ENDBLOCK>
|
||||
<MOBLIST MIGS>
|
||||
THINGS!-MIGS
|
||||
<MOBLIST MCELLS 1>
|
||||
<BLOCK (<GET MIGS OBLIST><ROOT>)>
|
||||
TENEX TRMTYP PHYCEN
|
||||
<ENDBLOCK>
|
||||
<NEWTYPE MCELL
|
||||
LIST
|
||||
'<LIST LIST
|
||||
LIST
|
||||
[2 <OR ATOM FALSE>]
|
||||
[REST <LIST FIX [REST <OR FIX FLOAT FORM ATOM>]>]>>
|
||||
|
||||
|
||||
<ENDPACKAGE>
|
||||
|
||||
|
||||
Reference in New Issue
Block a user