home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume2 / basic / part4 / bstest / tst6.bs < prev    next >
Encoding:
Text File  |  1986-11-30  |  438 b   |  18 lines
  1. 5 l%=32000
  2. 6 h%=-32000
  3. 9 print "trailer==0, input one number at a time."
  4. 10 input a%
  5. 20 if a%==0 then goto 100
  6. 30 if a%<l% then goto 60 
  7. 40 if a%>h% then goto 80
  8. 41 print"made it through    l:";itoa(l%);"h:";itoa(h%);"a:";itoa(a%)
  9. 50 goto 10
  10. 60 l%=a%
  11. 61 print"a<l    l:";itoa(l%);"h:";itoa(h%);"a:";itoa(a%)
  12. 70 goto 10
  13. 80 h%=a%
  14. 81 print"a>h    l:";itoa(l%);"h:";itoa(h%);"a:";itoa(a%)
  15. 90 goto 10
  16. 100 print "low=";itoa(l%),"high=";itoa(h%)
  17. 110 end
  18.