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
gHlm	ZdWHgHgHk
gHm
gHlm	ZdJV
FHo
V
\@L
@RJU
\UJ@hhh
c
n@
f@R@d
@d
VJ@
c
JU
\@	@U
c
Ld@
Ld@
Ho
H	Iddldg1dk
g&Idm
gIlm	[dDIk
glIgeIg^Im
gRIlm	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)
RP	P	P	hh(32QWRLRESTOREE25Q RLPRIN2S20QURLPRIN1E11QYCIRCLMARK)l
	hh`g```og
HId`H`
`kIHci(141QSERROR!7130QSNLEFTS117Q7TAILPS63QACIRCLPRINTA0070A007170RADIX)RNAL 50Q RESETVARSLST 42Q RESETVARSLST 36Q RESETVARSLST 32Q #UNDOSAVES 27Q #UNDOSAVES 23Q RESETVARSLST 17Q RESETVARSLST 2 RADIX)
hgZ
J@(40QIERROR!L32QRRESETRESTORE 20Q CIRCLPRINTA0070)
Ajb@	(11QP\CIRCLBLOCK/CSEARCH)XY@g
h(22QCTERPRIA17QR\CIRCLBLOCK/CLPRINT@7LINELENGTH)	h(34Q RLRESTORE 26Q RLRESTORE)
@bQHHRkch
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)
hgZ
JI(37QIERROR!L32QRRESETRESTOREI20QMRLPRIN2A0072)`]l@A
)@@@dWo	X\HYHTMI	\l6@A
V
MI	l@A
g	I	g	HVHh
c
Agg	HLdkAgL	@ZJ	>@J2LlV	g	H	g	Jg
@dg	6o	k	@	g	@[k	@g
hV
K	lV	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)
cAgg	Jg	H	g	k	@[d|@KnOlg	H	g	UYHOliZ	_IWOlg	I	gKg
	@\@]dWi_iLk	NDO7MI	lg	k	g	M	g	Lg
Lg	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