0DX0205*CFPV001-00`mԂ 04-00P@b CFPV001-00LVAXTPU V2.6 1990-06-19 04:57`uSCREEN_UPDATERVAXTPU V2.6 1990-06-19 05:03P,4C: h8X4XTh@:S_SYMBOL_CHARACTER# R_ELIPSES9S_LETTER;S_YEARPAT_PREPROCESSOR.M_FUNCTION_BEG_TOKEN<PAT_1_TO_3_DIGITS*M_ARGUMENT_BEGINAPAT_BLANKLINES)PAT_BEGIN_ARGUMENT,PAT_END_ARGUMENTT= PAT_COMMENT@5A_ENDCFP___INITIALIZE"R_ARGUMENT_LIST'CFP___PUT_LINE$R_LAST!R_TEXT4A_BEG B_GLOBAL_INCLUDE_FILEB_LOCAL_INCLUDE_FILE B_C_FILEl8S_DIGIT\(M_ARGUMENT_END B_FUNCTION_DECLARATION$+I_FUNCTION_TYPE(CFP___REPLACE_SPECIFIED_PATTERN( CFP___REMOVE_SPECIFIED_PATTERNCFP___FIND_DELIMITED_TOKEN$2CFP___FIND_ALL_OCCURANCES CFP___REMOVE_BLANKLINESS_INCLUDE_FILESPEC8S_INPUT_FILESPEC(CFP___PUT_INCLUDE_FILE_HEADERTPU$INIT_PROCEDUREI_INDEX%S_TAB PAT_FORMFEEDPAT_ENDPAT_BOL_WHITESPACEPAT_EOL_WHITESPACEPAT_WHITESPACEB PAT_ESCAPES_CRLF$R_BEG R_BEG_END S_C_FILES_SPACE PAT_COMMENT_OR_STRING? PAT_STRING@PAT_BEG& I_TAB_STOPI_OUTPUT_MESSAGES6I_BEGS\7I_ENDS 3PAT_ANCHORED_NOT_SYMBOL R_FUNCTION_DECLARATION-R_FUNCTION_BEG_TOKEN>PAT_NOT_SYMBOL1 R_BEG_TOKEN/ R_END_TOKEN PAT_FUNCTION_DECLARATION PAT_BEGIN_FUNCTION PAT_CONTINUATION0 PAT_END_TOKEN PAT_BEG_TOKEN, S_SUBSYSTEM\ $%h'('x*2*,18#1891x99R9;(;<<0l==R= >D DEJF&*F"]FJ M >MO&*O"'OJ lP PQJRR=SZ Z \& *\"\J  p]o]]^J _ _=`f If gJ h& *h"hJ  v$v w w x" x6~ ~=?             u   h  X [   E   6  =E  8 & & G& *" 6Q 6P  6M =E"  8 =3=  ` 6N   E"  ` 6     6 E " =T[ 8!=" "##=$8+3++,,=-966=7EM   7!8!8=98:E  :!;!;3;;"<E  "<#=">Eq >!?! @A!C$EE.  E!F!FG$ H,I!I=J K,L$L=M O!$P!P=Q! R4S# T4U RVPW <XPZ$ [\\=^ d%&jj=k'qq=rE  r szEq  z!{!{|!|=}8~3~(E)" !!=3*P* +  +83( /+ =* @E,  !!=8 8%& =' 8& *"I6 = --.-=0 // ," 6 /="1/11P.    0 ='&:& :"6 .Function Declaration [End of !AS]Local Include File [End of !AS]-LOCAL-ROUTINES.HGlobal Include File [End of !AS]GLOBAL_ _ROUTINES.HC Source File [End of !AS]Examining file !ASline continuationspreprocessor statementscomments and stringsleading whitespacetrailing whitespace whitespace one space formfeeds Looking for function declaration$!AS: Lines = !UL, current line = !ULTentative function found(Tentative function not followed by begin(Tentative function followed by end-beginFound function declaration;()... main_program;,, ... );spacestabs___*VOID spacestabsRemoving function body from !ASMissing END or } in file !AS#endif!Writing include files !AS and !ASTPU$INIT_PROCEDURE4X& HJJ@ @JJ@JxJy& 4 567&,#8"9Kj98o5:(%"R;888<)d tqNoI=vq4 &"0,;:uv>uootovtqotqxor?j%Mj>m>@vovA=?j>0m><p<qB9qnph9nvq:9np@p m@vqm@pulvps>3 01234567894ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz $_ !%DBEG{,(;/**/\END}), #""''tnvbrf\'"x\))))))CFP___INITIALIZE 1xR"'"' ' ' ' ' '";''''' ,"j' D"m'"''''"'' '$#ifndef !AS_INCLUDE#define !AS_INCLUDE#ifndef EVMS_INCLUDE #include EVMS#endifC/* Copyright (C) !AS by Xerox Corporation. All rights reserved. *//*** #defines global !AS routine callsG #defines local !AS routine calls; these routines are not to be1 called from outside of the !AS subsystem CHANGE LOG: -----------CFP!_!%D!_Generated.*/&CFP___PUT_INCLUDE_FILE_HEADER< <&*"6=E  H=  P Removing !AS from !AS'qCFP___REMOVE_SPECIFIED_PATTERNL @&*"6=E  =  <&5   LReplacing !AS in !AS with !AS(CFP___REPLACE_SPECIFIED_PATTERN_ `8a&*a"a6cc=eEA  eff`gg=hi&i jk: mtqRemoving blank lines from !AS BCFP___REMOVE_BLANKLINESXI3IQE QRR8XX=Y3YYY Z[8]E3" ]cc=d3ddd ef8hE3  hnn8nn$vv= w}=# CFP___FIND_DELIMITED_TOKEN$= >PB$CFP___PUT_LINEpH  = E        =E3" =8E3  8 `l $   "CFP___FIND_ALL_OCCURANCES44be`8T TTPU$KEY_MAPUpxPA TPU$KEY_MAP_LISTTPU$KEY_MAP 3CFPV001-00 2-DEC-1990 04:20 2-DEC-1990 04:20VAXTPU V2.6 1990-06-19 04:57 .$$ABS$$.TPU$$K_SECTION_BASE