!--- EDIT # 0040 5 Oct 1979 11:16:04 DR1:[300,3]COPYNOTE.TEC;20 ! !--- PREVIOUS EDIT 5 Oct 1979 11:14:48 DR1:[300,3]COPYNOTE.TEC;17 ! ! This will read the copyright notice, and insert it in the specified files. It will also remove any .TITLE and put in the one with the proprietary notice. If a wildcard filename is used, the modified file is given an extent of NEW & the same version number. If a full filename is used, the next higher version is created. The input is read from the specified dev & UIC. The output goes to the default dev & UIC. ! ! By definition, the copywrite notice starts with ";/" and ends on a line with ";\" ! !--- EDIT # 0009 23 Jul 1979 10:32:10 DR1:[300,3]MT.TEC;14 ! ! MACRO TO READ ONE LINE OF TERMINAL INPUT, AFTER CURRENT BUFFER POINTER. DEL, CTRL/U WORK.DEL WORKS RIGHT WITH SCOPE. C/R OR ESCAPE ENDS THE LINE (WITH CR/LF). BUFFER PTR ENDS UP AFTER THE CR/LF. IF CTRL/Z, THE INPUT IS DELETED, AND A VALUE OF "0" (FAIL) IS RETURNED. ELSE VALUE OF "-1" (SUCCESS) IS RETURNED. RADIX IS SAVED. ! @^UT*[0[1[2 U2 .U0<U1 Q1I Q1-13"E I -1U0 0;' Q1-27"E -DI  .-2,.T -1U0 0;' Q1-127"E -D .-Q0"E ? | ET&2"N 8328|.-1,.T' -D'' Q1-21"E 0K ' Q1-26"E 0K   0U0 0;'> Q2]2Q0]1]0 ^[* EI@^UM%HKReading Copywrite notice file...  ERLB:[1,2]CPYWRT.TXT Y :S;/"S 0L .U0 :S;\"S L Q0,.XZ'' !AGAIN! 0,0XF HK J File specification?  !INFILE! MT"U @O/DONE/' -L .,-2XF :ENQF"U EI' J@^UW/S.KINEW/ :S*"U @^UW/S;RK/' Enter new .IDENT (if desired) ?  HK MT"U @O/DONE/' 0,.-2XIHK !NEXT! HK :EN"U End of files.  @O/AGAIN/' G* HXKEditting file:  :Gk 0JS] .U0  S. R Q0,.XL  0JMW Q0,ZXJ HK ERQK EWQJ YJ  Creating:  :g*   :S;/"S 0L .U0 :S;\"S L Q0,.D  DELETING OLD COPYWRITE NOTICE... '' J :S.TITLE"S 0L K I .TITLE  GL  I - MOTOROLA PROPRIETARY - Z,:S.IDENT"S L' Z,:S; EDIT # DDDD"S 2L' GZ @O/EN/' JI .TITLE  GL I - MOTOROLA PROPRIETARY - Z,:S.IDENT"S L' Z,:S; EDIT # DDDD"S 2L' GZ  Warning: File did not contain a '.TITLE' . One was added.  !EN! J:QI"N :S.IDENTS"U JLI .IDENT   Warning: File did not contain an '.IDENT'. One was added.  2R' .U1L2R Q1,.D I// RGI' EC @O/NEXT/ !DONE! HKEX % EI MM