!* Machine: PDP-11/70 System: IAS V3.0 Author: Eric Johnson Date: 29-Aug-80 Residence: [?,?]WILD.TES Version: V1 Language: TECO V34 Useage: PDS> MUNG [?,?]WILD.TES,wildfilespec/switch where switch is one of: /PE:teco command string /FI:teco command file Effect: This macro will perform some user defined set of operations on the group of files defined by the wildfilespec string specified in the command line. The operation to be performed is either a short command string (/PE) or a macro defined in a file (/FI). WILD opens each file and yanks the first page into the buffer. The user is responsible for closing each file when the operation is complete. Examples: MUNG WILD,*.FTN/PE:<@:FN/READ(1,/READ(2,/;>EC MUNG WILD,[200,*]*.FTN/FI:CHANGE.TEC Register Usage: Qz contains user's macro. *! .ua !* Mark beginning of the command string. *! :s/ "e !* Check for a switch. *! !bc! @^a/WILD -- Illegal command. /oout !* Error if none. *! ' -c^uaen qa,.:xa 27:^ua ma !* Else set up and execute ENwildspec$ *! d4,:spe: "e !* Check for /PE switch. *! 4,:sfi: "e !* If not /PE try /FI. *! obc !* If not either, then its an error. *! |^uzer :xz 27:^uz mz !* Else open command file and... *! hky0,zxzhk' !* ...load command into Qz. *! |xz 2<27:^uz >' !* Else put /PE command into Qz. *! !* Tell the user what s/he's doing. *! @^a/ Executing "/ :gz@^a/" /  !* Now execute the user's command, repeat until done. *! !out!ekhkex  !* EXIT *!