; 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
:<
>
