       d1 = open("osv")
       skr46 = 0
       if find(d1,1,1,46) != 0 then goto 100
rem        get(d1,n)
       skr46 = 'KrS_ª®­¥æ'.d1
     print skr46
100       close(d1)
       d=open("vrem")
       getfirst(d)
       '‘ã¬¬ '.d = skr46
       update(d)
       close(d)
       end
