home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / screngen / sfgr.lbr / FVIEW.SQL / FVIEW.SPL
Encoding:
Text File  |  1986-07-26  |  1.4 KB  |  88 lines
  1.     file(1,i)
  2.     byte(file[15],err,chr,i,j,row,col,len,comd[129])
  3.     
  4.     argl(comd)
  5.     slen(comd,len)
  6.     asgn(0,i)
  7.     cond(0,eq,len)    jump(flerr)
  8.     whil(comd[i],eq,' ')
  9.       inrb(i)
  10.     endl()
  11.     asgn(0,j)
  12.     whil(comd[i],ne,' ')
  13.       cond(comd[i],eq,'.')    extl()
  14.       asgn(comd[i],file[j])
  15.       cond(i,eq,len)    extl()
  16.       inrb(i,j)
  17.     endl()
  18.     asgn(0,file[j])
  19.     slen(file,len)
  20.     cond(len,gt,10)    jump(flerr)
  21.     
  22.     scat('.FMT',file)
  23. $top    open(1,file,'i')
  24.     ferr(err)
  25.     cond(err,gt,0)
  26.       jump(flerr)
  27.     rchr(1,chr)
  28.     cond(chr,ne,0FFH)
  29.       jump(bfile)
  30.     rchr(1,chr)
  31.     cond(chr,eq,0FFH)
  32.       jump(bfile)
  33. $sec    vcls()
  34.     loop(12)
  35.       rchr(1,chr)
  36.     enlp()
  37. $loop    rchr(1,chr)
  38.     cond(chr,eq,0FFH)
  39.       jump(end)
  40.     band(1,chr,i)
  41.     cond(i,eq,0)
  42.     begn()
  43.       loop(12)
  44.         rchr(1,chr)
  45.       enlp()
  46.       jump(loop)
  47.     endb()
  48.     rchr(1,row)
  49.     rchr(1,col)
  50.     rchr(1,len)
  51.     band(2,chr,chr)
  52.     loop(9)
  53.       rchr(1,i)
  54.     enlp()
  55.     onif(chr,eq,2)
  56.       pchr(27,'(')
  57.       load(row,col)
  58.       loop(len)
  59.         rchr(1,chr)
  60.         pchr(chr)
  61.       enlp()
  62.     else()
  63.     begn()
  64.       pchr(27,')')
  65.       load(row,col)
  66.       loop(len)
  67.         pchr('*')
  68.       enlp()
  69.     endb()
  70.     jump(loop)
  71. $end    pchr(27,'(')
  72.     load(24,1)
  73. $age    ikey(chr)
  74.     cond(chr,eq,27)
  75.       retn()
  76.     cond(chr,ne,13)
  77.       jump(age)
  78.     rchr(1,chr)
  79.     cond(chr,eq,0FFH)
  80.       jump(top)
  81.     jump(sec)
  82.  
  83. $flerr    pstr('file not found')
  84.     retn()
  85.  
  86. $bfile    pstr('bad file')
  87.     retn()
  88.