14 lines
172 B
Plaintext
14 lines
172 B
Plaintext
.KEY fil/a
|
|
|
|
. strip for Amiga
|
|
IF NOT EXISTS <fil>
|
|
echo "File <fil> not found>"
|
|
QUIT 10
|
|
ENDIF
|
|
|
|
FAILAT 1
|
|
|
|
slink <fil> TO t:striptmp NODEBUG
|
|
copy t:striptmp TO <fil>
|
|
QUIT
|