Epsilon, на Амиге не заработает, я переделывал её под PC-шный интерпретатор Regina.
Изначальная амижная была такая:
Код:
/* TAPSplit */

parse arg infile

if infile='?' then do
options prompt 'FILE/A: '
parse pull infile
end

if infile='' then do
say 'required argument missing'
say 'No file to split'
exit
end

infile=strip(infile,,' "')

if ~open(infile,infile,'r') then do
say 'No file to split'
exit
end

filelength=seek(infile,0,'e')
seek(infile,0,'b')

outfile=0

loop:

blocklength=c2d(reverse(readch(infile,2)))
string=readch(infile,blocklength)
outfile=right(outfile+1,3,0)
open(outfile,outfile'.tap','w')
writech(outfile,reverse(d2c(blocklength,2))||string)
close(outfile)
if seek(infile,0)=filelength then exit

signal loop