home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume2 / basic / part4 / bstest / tif.int < prev    next >
Encoding:
Text File  |  1986-11-30  |  538 b   |  11 lines
  1.  line 10  var 192 a  rcon 3.0  store 192 pop 
  2.  line 20  pushstate 4  var 192 b  popstate 
  3.  line 30  var 192 a  val 192  var 192 b  val 192  r==  rlabel IF0 if  goto 100  rlabel IF1 go@  dlabel IF0  goto 70  dlabel IF1 
  4.  line 40  scon "failed"  scon "\n" ;  print 
  5.  line 50  stop 
  6.  line 70  var 192 a  val 192  rtoa  scon " != "  ;  var 192 b  val 192  rtoa  ;  scon "\n" ;  print 
  7.  line 80  goto 20 
  8.  line 100  var 192 a  val 192  rtoa  scon " == "  ;  var 192 b  val 192  rtoa  ;  scon "\n" ;  print 
  9.  line 110  goto 20 
  10.  line 120  end 
  11.