$D $ *.*

; WILD.DO - 
;
; Distributed Management Systems, Inc.
; 3568 Kelton Ave.
; Los Angeles,  Ca  90034
;      (213) 452 - 8000
;
; Written By Brett R. Halle
; Modified By Ultrascience (Wilmette, IL) to trap blank arguments and
; to provide instructions.
;

:S
:<
   WILD- Distributed Management Systems, Inc.
         Ultrascience patch 5.3

.$0 $1$2$3$4$5$6$7$8$9       ...Please wait...>
DIR WILD00.CMD = $1/DATA/KILL
BASIC
100  MAP1 LIN,S,512
110  OPEN #1, "WILD00.CMD", INPUT
120  OPEN #2, "WILD01.CMD", OUTPUT
130  PRINT #2, ":T"
140  IF "$0">" " GOTO 300
150  PRINT #2 ":<                   WILD.DO"
155  PRINT #2
160  PRINT #2 "  USAGE: WILD 'program' 'wildcard arguments'"
165  PRINT #2
170  PRINT #2 "   NOTE: Programs that produce disk output"
180  PRINT #2 "         will output only to the account into"
190  PRINT #2 "         which you are currently logged."
195  PRINT #2
200  PRINT #2 "EXAMPLE: WILD COMPIL *.BAS[100,*]"
210  PRINT #2 "         Will compile all '.BAS' source in any"
220  PRINT #2 "         100,_ account and write the RUN's to"
230  PRINT #2 "         whatever account you are currently"
240  PRINT #2 "         logged into."
250  PRINT #2 ">"
260  GOTO 900
300  INPUT LINE #1, LIN : IF EOF(1) GOTO 900
310  PRINT #2, "$0 ";LIN;" $2$3$4$5$6$7$8$9"
320  GOTO 300
900  CLOSE #1 : CLOSE #2
999  END
RUN
BYE

:R
; There are 24 backspace characters between the <>'s on the next line.
:<>
XY=9
:<
>

WILD01.CMD
:U
:S
ERASE WILD*.CMD