xref: /freebsd/contrib/bc/tests/bc/scripts/parse_08.bc (revision fdc4a7c8012b214986cfa2e2fb6d99731f004b1b)
1*fdc4a7c8SStefan Eßer#! /usr/bin/bc -q
2*fdc4a7c8SStefan Eßer
3*fdc4a7c8SStefan Eßerb = 8
4*fdc4a7c8SStefan Eßer
5*fdc4a7c8SStefan Eßerobase = 10
6*fdc4a7c8SStefan Eßerprint "ibase = A; ibase = ", b, "\n"
7*fdc4a7c8SStefan Eßerprint "\qibase = \q\n"
8*fdc4a7c8SStefan Eßerb
9*fdc4a7c8SStefan Eßerobase = b
10*fdc4a7c8SStefan Eßerfor (i = 0; i <= 4096; ++i) {
11*fdc4a7c8SStefan Eßer	i
12*fdc4a7c8SStefan Eßer	print "0.", i, "\n"
13*fdc4a7c8SStefan Eßer	print ".", i, "\n"
14*fdc4a7c8SStefan Eßer	print "1.", i, "\n"
15*fdc4a7c8SStefan Eßer	print i, ".", "\n"
16*fdc4a7c8SStefan Eßer	print i, ".", i, "\n"
17*fdc4a7c8SStefan Eßer}
18*fdc4a7c8SStefan Eßer
19*fdc4a7c8SStefan Eßerhalt
20