Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0004/circlprint.dcom
There are no other files named circlprint.dcom in the archive.
(FILECREATEDL"33-FEB-82214:00:26"9("compiled>onR"L{PHYLUM}<LISPUSERS>CIRCLPRINT.;1)RNOBINDSbcompl'dsin
g�&�Hdm�
g��Hlm�	Zd��WHg��Hg��Hk
g��Hm�
g��Hlm�	Zd����JV
�FHo
��V
\�@L
���@���RJU
\�UJ@hhh
c
�n@
�f@�R@d
�@d
�VJ@
c
�JU
\�@	@U
c
�L�d@
���L�d@
�����Ho
��H	�Id���dl��dg�1dk
g�&�Idm�
g��Ilm�	[d��DIk
g�lIg�eIg�^Im�
g�RIlm�	d��?Io
�5V
\�@L
�'KU
�UKh@hh
c
�@
��I	@(772Q2CIRCLMAKER16763QS/NCONC1{751QQ/NCONC1Q732Q5ASSOC1723Q*/RPLACD*713QEASSOCE705QQERROR 665Q MKATOM 662Q SUBSTRING 644Q NTHCHAR 612Q NTHCHAR 574Q MKATOM 571Q SUBSTRING 552Q NTHCHAR 534Q NTHCHAR 500Q CIRCLMAKER1 471Q ERROR 452Q /RPLACD 432Q /RPLACA 415Q /DREMOVE 407Q CIRCLMAKER1 400Q ASSOC 370Q /NCONC1 360Q /RPLACD 350Q /RPLACA 332Q /NCONC1 320Q /NCONC1 300Q ASSOC 260Q /RPLACA 247Q ASSOC 240Q ERROR 226Q ASSOC 206Q MKATOM 203Q SUBSTRING 163Q NTHCHAR 145Q NTHCHAR 105Q MKATOM 102Q SUBSTRING 63Q NTHCHAR 45Q NTHCHAR)
�R�P	�P	�P	�hh(32QWRLRESTOREE25Q RLPRIN2S20QURLPRIN1E11QYCIRCLMARK)l
	hh`�g```�og
H�Id`�H�`
�`kIH��ci(141QSERROR!7130QSNLEFTS117Q7TAILPS63QACIRCLPRINTA0070A007170RADIX)RNAL 50Q RESETVARSLST 42Q RESETVARSLST 36Q RESETVARSLST 32Q #UNDOSAVES 27Q #UNDOSAVES 23Q RESETVARSLST 17Q RESETVARSLST 2 RADIX)
�h�gZ
�J�@(40QIERROR!L32QRRESETRESTORE 20Q CIRCLPRINTA0070)
A�jb�@	(11QP\CIRCLBLOCK/CSEARCH)XY@g
h(22QCTERPRIA17QR\CIRCLBLOCK/CLPRINT@7LINELENGTH)	h(34Q RLRESTORE 26Q RLRESTORE)
�@b��Q�H�HRk�ch
h@QHh
�H	��(101QC\CIRCLBLOCK/CSEARCH74Q/RPLACAm61Q@NCONC25Q3/RPLACA)24Q SPACES 20Q POSITION)
(21QO\CIRCLBLOCK/CPRINTS14QOTERPRIS11QVTERPRIO6S\CIRCLBLOCK/PLACEPRINTL2STERPRI) F 3 RESETY) < lٹgIlP�	hh`�Rg
��H	�hci(64Q3TERPRIE60QR\CIRCLBLOCK/PLACEPRINTo53QgTERPRI 47Q \CIRCLBLOCK/CPRINT 23Q LINELENGTH 5 LINELENGTH)
�h�gZ
J�I(37QIERROR!L32QRRESETRESTOREI20QMRLPRIN2A0072)`]l��@A
�)@�@�@dW�o	�X�\HY�H�TMI	\l���6@A
��V
��MI	l���@A
g	�I	�g	��H�VHh
c
�Ag�g	�H�Ldk�Ag�L	�@Z�J	�>@J�2Ll����V	���g	�H	�g	�Jg
�@d��g	�6�o	�k	�@	�g	�@[�k	�@g
hV
��K	l����V	���o	�k	�g	�K	�g	�g	��(611QQPRIN12602QAPRIN1Q573Q5PRIN1W565Q PRIN1 556Q SPACES 551Q PRIN1 541Q TERPRI 535Q TERPRI 531Q \CIRCLBLOCK/PLACEPRINT 524Q TERPRI 512Q \CIRCLBLOCK/CIRCLNC 505Q \CIRCLBLOCK/ROOMLEFT 500Q ASSOC 471Q \CIRCLBLOCK/CPRINT 460Q SPACES 442Q PRIN1 433Q PRIN2 425Q SPACES 420Q PRIN1 403Q PRIN1 367Q \CIRCLBLOCK/CPRINT 357Q PRIN1 350Q PRIN1 342Q PRIN1 333Q TERPRI 327Q TERPRI 323Q \CIRCLBLOCK/PLACEPRINT 316Q TERPRI 303Q \CIRCLBLOCK/ROOMLEFT 271Q PRIN2 255Q SPACES 231Q PRIN1 212Q NCONC 204Q POSITION 171Q PRIN1 162Q PRIN1 155Q PRIN1 146Q \CIRCLBLOCK/C2PRINT 133Q \CIRCLBLOCK/CIRCLNC 124Q ASSOC 115Q \CIRCLBLOCK/C2PRINT 100Q \CIRCLBLOCK/CIRCLNC 52Q ERROR 20Q \CIRCLBLOCK/C2PRINT 5 \CIRCLBLOCK/ROOMLEFT)
c�Ag�g	�J�g	�H	�g	�k	�@[d�|�@K�nOl����g	�H	�g	�UY�H��Ol����iZ��	_��IW��Ol����g	�I	�g��Kg
�	�@\�@]d�W�i_�i�L�k	�N�DO�7M�I	l����g	�k	�g	�M	�g	�Lg
�L�g	�k	�L	�g	h(552Q{PRIN1 543Q4PRIN2R536QQSPACESQ531Q2PRIN12516Q{\CIRCLBLOCK/CLPRINT 505Q6PRIN1)476Q PRIN1 470Q PRIN1 461Q SPACES 454Q PRIN1 445Q TERPRI 434Q \CIRCLBLOCK/CIRCLNC 430Q \CIRCLBLOCK/ROOMLEFT 412Q SPACES 351Q PRIN2 345Q \CIRCLBLOCK/CLPRINT 327Q PRIN1 322Q PRIN1 313Q TERPRI 300Q \CIRCLBLOCK/ROOMLEFT 263Q \CIRCLBLOCK/CIRCLNC 253Q TERPRI 240Q \CIRCLBLOCK/ROOMLEFT 224Q PRIN1 215Q PRIN1 207Q PRIN1 200Q TERPRI 165Q \CIRCLBLOCK/ROOMLEFT 142Q SPACES 135Q PRIN1 126Q PRIN1 120Q PRIN1 106Q PRIN1 67Q NCONC 46Q ERROR 15Q TERPRI 5 \CIRCLBLOCK/ROOMLEFT)
@�kld@�ln�@�ln'@�lo	(47Q0ERROR)CIRCLPRINTVCIRCLMARKMRLPRIN1(RLRESTOREICSEARCHK