Dim premium As Long
Dim premium1 As Long
Call ReadALong ("warrock", &Haddress, prem1) or Call ReadALong ("warrock", &Haddress, prem)
premium1 = premium + &Hoffset or premium = premium1 + &Hoffset
Call WriteALong ("warrock", premium, 3) or Call WriteALong ("warrock", premium1, 3)