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