!2270's EDTTLS:grpteco.ini 16-JUN-81 11:41 MWH!

! 0:w-4"e 132,1:w^['  if /vt100 then /width=132 !

! get user's initials into the buffer !
[1 .u1 hx1 hk @en/*.*/ :@en//"s g*' j :@s/.^ea^ea^ea/"s 1k 3r 0k | hk @i/???/'

@^uH/
ETUA ET#1ET 27^t @^A%[H% 27^t @^a%[J
Current Q-register usage:
	reg	use
	---	---
% /

:@^uH%@^a/%


:@^uH%	mD	changes date if on same line, else inserts here
%
@^Ud$
[v[m[r 10ur ^D
.uV 0l @1^q,1:fs/DD-AAA-DD//"f qVj'
^BuV
03."n -1a"r @i/ /''
qV&31+100\3rdcc
@i/-JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC-/ ^sc c
 qV&511/32-1*3uM qMd 3c 33-qMd c qV/512\
.-z"n 0a"r @i/ /''
qR^r ]r]m]v$

:@^uH%	mE	SEARCH (E_) "C" LISTING FILE FOR ERROR MESSAGES
%
@^UE/ @e_%***err% /

:@^uH%	mH	HELP DISPLAY (THIS)
	mI	SUPER SCREEN EDITING MACRO
	 J,K	RESERVED FOR MI TO USE
	mQ	PUT $ SET VERIFY AT TOP, $ SET NOVERIFY AT BOTTOM
%
@^UQ/J @I%$ SET VERIFY
% ZJ @I%$ SET NOVERIFY
% /

:@^uH%	mT	changes time if on same line, else inserts here
%
@^UT$[m[h[r 10ur ^D
.uM 0l 1^Q,1:@fs/DD:DD//"f qMj'
^H/30uM qM/60uH qM-(qH*60)uM
."n -1a"r @i/ /''
100%H\3rd2c @i/:/ 100%M\3rd2c
.-z"n 0a"r @i/ /''
qR^r ]r]h]m$


:@^uH%	mU	DOES mW AND CREATES NEW "TOP LINE" IN A .C FILE
%
@^UU~ [z 0l.uZ xZ gZ 0,0xZ
0a-^^/"n 0a-^^$"e @^uZ/$ !/ | c 0xZ ''
^q,:@s%.%"fqZjl'^q,:@s%s%"f qZjlc' r 0k gZ 7+2@i%%qZjmW 0l@s/~ :hxU :@^uU~/
^q-2d ]z ~

:@^uH%	mW	UPDATE DATE,TIME,INITIALS (% :hxH :@^uH%)
%
@^UW% MD MT
[v
.uv 1^Q,1:@fs/AAA/% :hxW :@^uW%/"f qVj @i/ % :hxW :@^uW%/ '
]v%

! :@^uH%	mO	overwrite character mode
% !
! @^UO/-1WET#1ET
›A
ET-1ET<UOQO-26"EOEND›'0A-13"ND›'QOI›>~END~-1W›/ !

:@^uH%strike any char to continue/%
:@^uH/ QAET -1W/



This is your conscience speaking, 
ht
...
You should be using EDT to use 1/10 the CPU




! @^a/i think your initials are / ht @^a/
/ !
hk g1 q1j ]1 ! restore q1 !