xref: /freebsd/contrib/bc/tests/bc/scripts/parse_08.bc (revision 24e4dcf4ba5e9dedcf89efd358ea3e1fe5867020)
1#! /usr/bin/bc -q
2
3b = 8
4
5obase = 10
6print "ibase = A; ibase = ", b, "\n"
7print "\qibase = \q\n"
8b
9obase = b
10for (i = 0; i <= 4096; ++i) {
11	i
12	print "0.", i, "\n"
13	print ".", i, "\n"
14	print "1.", i, "\n"
15	print i, ".", "\n"
16	print i, ".", i, "\n"
17}
18
19halt
20