home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume2 / basic / part4 / bstest / tloop.bs < prev    next >
Encoding:
Text File  |  1986-11-30  |  164 b   |  10 lines
  1. 10 loop
  2. 20    input a,b
  3. 30 exitif a==b
  4. 40    a% = rtoi(a)
  5. 50    b% = rtoi(b)
  6. 60    print "a:";(a);" a%:";(a%);" b:";(b);" b%:";(b%)
  7. 70 pool
  8. 80 print "Done."
  9. 90 end
  10.