home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume2 / basic / part4 / bstest / twh.int < prev   
Encoding:
Text File  |  1986-11-30  |  549 b   |  12 lines
  1.  line 9  scon "Guess a number "  scon "" ;  print 
  2.  line 10  pushstate 4  var 192 a  popstate 
  3.  line 20  rlabel WH2 rlabel WH1 enter dlabel WH0  var 192 a  val 192  rtoi  icon 20  i<>  rlabel WH1 if 
  4.  line 25  rlabel LN100 gosub 
  5.  line 30  dlabel WH2 rlabel WH0 goto dlabel WH1 exitlp 
  6.  line 40  scon "You guessed it!"  scon "\n" ;  print 
  7.  line 100  scon "Do it again "  scon "" ;  print 
  8.  line 110  pushstate 4  var 192 a  popstate 
  9.  line 111  scon "number is "  var 192 a  val 192  rtoa  ;  scon "\n" ;  print 
  10.  line 120  return 
  11.  line 200  end 
  12.