Α) open "onoma.txt" for output as #1 'Ανοίγει τό αρχείο onoma.txt γιά νά γράψει σέ αυτό
write #1, "Ovrya" 'Γράφει τό αλφαριθμητικό δεδομένο "Ovrya"
close #1 'Κλείνει τό αρχείο
B) open "number.txt" for output as #1 'Ανοίγει τό αρχείο γιά νά γράψει σέ αυτό
write #1, 13 'Γράφει τό δεδομένο 13
close #1 'Κλείνει τό αρχείο
Γ) open "onomata.txt" for output as #1
input "Enter name (none for end):",name$
do while name$<>""
write #1, name$
input "Enter name:",name$
loop
close #1
Δ) open "onomata.txt" for input as #1
do while not eof(1)
input #1, name$
print name$
loop
close #1
E) open "sxoleio.txt" for output as #1
input "Enter name (none for end):",name$
input "Enter grade 1:",v1
input "Enter grade 2:",v2
mesos =(v1+v2)/2
do while name$<>""
write #1, name$,v1,v2,mesos
input "Enter name:",name$
input "Enter grade 1:",v1
input "Enter grade 2:",v2
mesos =(v1+v2)/2
loop
close #1
ΣΤ) open "sxoleio.txt" for input as #1
input "Enter name to search:",name2$
do while not eof(1)
input #1, name$,v1,v2,mesos
if instr(name$,name2$)>0 then print name$,v1,v2,mesos
loop
close #1
-----------------------------------------------------
ΑΡΧΙΚΗ
-------------------------------------------------------------------------------------