year=ReadByte(1) ; read year
; Prevent accidental treatment of other bytes than this. they are reserveed for xxxx below
If year>99 And year<199
year$=Str(1900+year)
EndIf
If year<100 And year>80
year$=Str(1900+year)
EndIf
; Do some converting unsigned stuff for bytes above 127, if readbyte as normal was used I would get negative values....
tt$=StrU(year,#Byte)
tt=Val(tt$)
If tt=200 : year$="198x": EndIf
If tt=201 : year$="199x": EndIf
If tt=202 : year$="200x": EndIf
If tt=203 : year$="201x": EndIf
If tt=204 : year$="202x": EndIf
If tt=205 : year$="203x": EndIf
If tt=206 : year$="204x": EndIf
If tt=207 : year$="205x": EndIf
If tt=210 : year$="19xx": EndIf
If tt=211 : year$="20xx": EndIf