// Testing the different numeric formats Harbour produces

PROCEDURE Main()

   LOCAL a := 0         // it should generate a _ZERO pcode opcode
   LOCAL b := 123       // it should generate a _PUSHINT pcode opcodes
   LOCAL c := 50000     // it should generate a _PUSHLONG pcode opcodes
   LOCAL d := 12000.123 // it should generate a _PUSHDOUBLE pcode opcodes
   LOCAL e := 0xABAB    // Automatic support for hexadecimal numbers
   LOCAL f := .12

   ? a
   ? b
   ? c
   ? d
   ? e
   ? f

   RETURN