home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume2 / basic / part4 / bstest / tloop.int < prev    next >
Encoding:
Text File  |  1986-11-30  |  618 b   |  10 lines
  1.  line 10  rlabel LP2 rlabel LP1 enter dlabel LP0 
  2.  line 20  pushstate 4  var 192 a  var 192 b  popstate 
  3.  line 30  var 192 a  val 192  var 192 b  val 192  r==  not rlabel LP1 if 
  4.  line 40  var 64 a%  var 192 a  val 192  rtoi  store 64 pop 
  5.  line 50  var 64 b%  var 192 b  val 192  rtoi  store 64 pop 
  6.  line 60  scon "a:"  var 192 a  val 192  rtoa  ;  scon " a%:"  ;  var 64 a%  val 64  itoa  ;  scon " b:"  ;  var 192 b  val 192  rtoa  ;  scon " b%:"  ;  var 64 b%  val 64  itoa  ;  scon "\n" ;  print 
  7.  line 70  dlabel LP2 rlabel LP0 goto dlabel LP1 exitlp 
  8.  line 80  scon "Done."  scon "\n" ;  print 
  9.  line 90  end 
  10.