unit bittype; {$mode objfpc}{$H+} interface type bit1 =0..1; bit2 =0..3; bit3 =0..7; bit4 =0..15; bit5 =0..31; bit6 =0..63; bit7 =0..127; bit8 =Byte; bit9 =0..511; bit10=0..1023; bit11=0..2047; bit12=0..4095; bit13=0..8191; bit14=0..16383; bit15=0..32767; bit16=Word; bit17=0..131071; bit18=0..262143; bit19=0..524287; bit20=0..1048575; bit21=0..2097151; bit22=0..4194303; bit23=0..8388607; bit24=0..16777215; bit25=0..33554431; bit26=0..67108863; bit27=0..134217727; bit28=0..268435455; bit29=0..536870911; bit30=0..1073741823; bit31=0..2147483647; bit32=DWord; bit33=0..8589934591; bit34=0..17179869183; bit35=0..34359738367; bit36=0..68719476735; bit37=0..137438953471; bit38=0..274877906943; bit39=0..549755813887; bit40=0..1099511627775; bit41=0..2199023255551; bit42=0..4398046511103; bit43=0..8796093022207; bit44=0..17592186044415; bit45=0..35184372088831; bit46=0..70368744177663; bit47=0..140737488355327; bit48=0..281474976710655; bit49=0..562949953421311; bit50=0..1125899906842623; bit51=0..2251799813685247; bit52=0..4503599627370495; bit53=0..9007199254740991; bit54=0..18014398509481983; bit55=0..36028797018963967; bit56=0..72057594037927935; bit57=0..144115188075855871; bit58=0..288230376151711743; bit59=0..576460752303423487; bit60=0..1152921504606846975; bit61=0..2305843009213693951; bit62=0..4611686018427387903; bit63=0..9223372036854775807; bit64=QWord; implementation end.