Results for inumber translation from German to Russian

close #inumber
close #inumber

seek #inumber,2
seek #inumber,2

get #inumber,,stext
get #inumber,,stext

print lof(#inumber)
print lof(#inumber)

dim inumber as integer
dim inumber as integer

while not eof(#inumber)
while not eof(#inumber)

line input #inumber, sline
line input #inumber, sline

open afile for input as inumber
open afile for input as inumber

open afile for output as #inumber
open afile for output as #inumber

seek #inumber,1 rem auf anfang positionieren
seek #inumber,1 rem Позиция в начале

put #inumber,, " das ist ein neuer text "
put #inumber,, " Это новая строка текста "

open afile for random as #inumber len=32
open afile for random as #inumber len=32

print #inumber, " das ist eine zeile text "
print #inumber, " Первая строка текста "

msgbox fileattr(#inumber, 1 ),0, " zugriffsmodus "
msgbox fileattr(#inumber, 1 ),0, " Режим доступа "

put #inumber,20, " das ist text in datensatz 20 "
put #inumber,20, " Это текст в записи 20 "

print #inumber, " das ist eine weitere zeile text "
print #inumber, " Еще одна строка текста "

put #inumber,, " das ist die 1.zeile text " rem zeile mit text füllen
put #inumber,, " Это первая строка текста " rem Заполнение строки текстом

put #inumber,, " das ist die 1.zeile text " rem der reihe nach mit text füllen
put #inumber,, " Это первая строка текста " rem Заполнение строки текстом