perm filename GRAB.YEL[1,VDS] blob sn#108842 filedate 1974-06-26 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TRANS	T	       .00       .00       .00       .00       .00       .00
C00003 00003	DEFINE	GRAB	TR DIR 
C00004 ENDMK
CāŠ—;
TRANS	T	       .00       .00       .00       .00       .00       .00


VECT	X	      1.00       .00       .00
VECT	Y	       .00      1.00       .00
VECT	Z	       .00       .00      1.00
VECT	NIL	       .00       .00       .00
DEFINE	GRAB	TR DIR 
OPEN 4
GOTO T
GOTO TR
L: CENTER .5
SKIPE 2
JUMP A
OPEN 4
CHANGE DIR 1 NIL 0 60
JUMP L
A: WAIT FOUND BLOCK
SAVE BLOCK
OPEN 4
GO TR NIL 0 Z 90
RESTORE BLOCK 1
CENTER .5
SAVE BLOCK