testsuite/bc_numbers2.bc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

define f() {
	"ibase:";ibase
	a=A;a
	a=F;a
	a=G;a
	a=Z;a
	a=0A;a
	a=0F;a
	a=0G;a
	a=0Z;a
}
f()
ibase=9;f()
ibase=A;f()
ibase=F;f()
ibase=G;f()
#ibase=Z;f()
halt