home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume2 / basic / part4 / bstest / tst6.int < prev    next >
Encoding:
Text File  |  1986-11-30  |  1.4 KB  |  18 lines
  1.  line 5  var 64 l%  icon 32000  store 64 pop 
  2.  line 6  var 64 h%  icon 32000  icon -1 i*  store 64 pop 
  3.  line 9  scon "trailer==0, input one number at a time."  scon "\n" ;  print 
  4.  line 10  pushstate 4  var 64 a%  popstate 
  5.  line 20  var 64 a%  val 64  icon 0  i==  rlabel IF0 if  rlabel LN100 goto  rlabel IF1 goto  dlabel IF0 dlabel IF1 
  6.  line 30  var 64 a%  val 64  var 64 l%  val 64  i<  rlabel IF2 if  rlabel LN60 goto  rlabel IF3 goto  dlabel IF2 dlabel IF3 
  7.  line 40  var 64 a%  val 64  var 64 h%  val 64  i>  rlabel IF4 if  rlabel LN80 goto  rlabel IF5 goto  dlabel IF4 dlabel IF5 
  8.  line 41  scon "made it through    l:"  var 64 l%  val 64  itoa  ;  scon "h:"  ;  var 64 h%  val 64  itoa  ;  scon "a:"  ;  var 64 a%  val 64  itoa  ;  scon "\n" ;  print 
  9.  line 50  rlabel LN10 goto 
  10.  line 60  var 64 l%  var 64 a%  val 64  store 64 pop 
  11.  line 61  scon "a<l    l:"  var 64 l%  val 64  itoa  ;  scon "h:"  ;  var 64 h%  val 64  itoa  ;  scon "a:"  ;  var 64 a%  val 64  itoa  ;  scon "\n" ;  print 
  12.  line 70  rlabel LN10 goto 
  13.  line 80  var 64 h%  var 64 a%  val 64  store 64 pop 
  14.  line 81  scon "a>h    l:"  var 64 l%  val 64  itoa  ;  scon "h:"  ;  var 64 h%  val 64  itoa  ;  scon "a:"  ;  var 64 a%  val 64  itoa  ;  scon "\n" ;  print 
  15.  line 90  rlabel LN10 goto 
  16.  line 100  scon "low="  var 64 l%  val 64  itoa  ;  scon "high="  ,  var 64 h%  val 64  itoa  ;  scon "\n" ;  print 
  17.  line 110  end 
  18.