home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
CPM
/
EDITOR
/
SFGR.ARK
/
FVIEW.SPL
< prev
next >
Wrap
Text File
|
1986-10-02
|
1KB
|
88 lines
file(1,i)
byte(file[15],err,chr,i,j,row,col,len,comd[129])
argl(comd)
slen(comd,len)
asgn(0,i)
cond(0,eq,len) jump(flerr)
whil(comd[i],eq,' ')
inrb(i)
endl()
asgn(0,j)
whil(comd[i],ne,' ')
cond(comd[i],eq,'.') extl()
asgn(comd[i],file[j])
cond(i,eq,len) extl()
inrb(i,j)
endl()
asgn(0,file[j])
slen(file,len)
cond(len,gt,10) jump(flerr)
scat('.FMT',file)
$top open(1,file,'i')
ferr(err)
cond(err,gt,0)
jump(flerr)
rchr(1,chr)
cond(chr,ne,0FFH)
jump(bfile)
rchr(1,chr)
cond(chr,eq,0FFH)
jump(bfile)
$sec vcls()
loop(12)
rchr(1,chr)
enlp()
$loop rchr(1,chr)
cond(chr,eq,0FFH)
jump(end)
band(1,chr,i)
cond(i,eq,0)
begn()
loop(12)
rchr(1,chr)
enlp()
jump(loop)
endb()
rchr(1,row)
rchr(1,col)
rchr(1,len)
band(2,chr,chr)
loop(9)
rchr(1,i)
enlp()
onif(chr,eq,2)
pchr(27,'(')
load(row,col)
loop(len)
rchr(1,chr)
pchr(chr)
enlp()
else()
begn()
pchr(27,')')
load(row,col)
loop(len)
pchr('*')
enlp()
endb()
jump(loop)
$end pchr(27,'(')
load(24,1)
$age ikey(chr)
cond(chr,eq,27)
retn()
cond(chr,ne,13)
jump(age)
rchr(1,chr)
cond(chr,eq,0FFH)
jump(top)
jump(sec)
$flerr pstr('file not found')
retn()
$bfile pstr('bad file')
retn()