bc_numbers2.bc 161 B

123456789101112131415161718
  1. define f() {
  2. "ibase:";ibase
  3. a=A;a
  4. a=F;a
  5. a=G;a
  6. a=Z;a
  7. a=0A;a
  8. a=0F;a
  9. a=0G;a
  10. a=0Z;a
  11. }
  12. f()
  13. ibase=9;f()
  14. ibase=A;f()
  15. ibase=F;f()
  16. ibase=G;f()
  17. #ibase=Z;f()
  18. halt