home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume2 / basic / part4 / bstest / tgs.int < prev    next >
Encoding:
Text File  |  1986-11-30  |  408 b   |  12 lines
  1.  line 10  var 64 a%  icon 0  store 64 pop 
  2.  line 20  loopto  var 64 a%  val 64  icon 20  i<  while 
  3.  line 29  var 64 a%  val 64  itoa  scon "    " ;  print 
  4.  line 30  gosub 100 
  5.  line 31  var 64 a%  val 64  itoa  scon "    " ;  print 
  6.  line 40  elihw 
  7.  line 50  scon "Done."  scon "\n" ;  print 
  8.  line 60  stop 
  9.  line 100  var 64 a%  var 64 a%  val 64  icon 1  i+  store 64 pop 
  10.  line 110  return 
  11.  line 120  end 
  12.