и запишет ваше имя в файл а также поздравит вас с новым годом. При
повторном пуске она не будет спрашивать ваше имя а сразу обратится к вам по имени.
Код: Выбрать все
DEFINT I
DEFSTR S
DECLARE SUB WER(s)
OPEN "D.dat" FOR INPUT AS #1
CLS
IF LOF(1)=0 THEN
CALL WER(sim)
CLOSE #1
OPEN "D.dat" FOR OUTPUT AS #2
PRINT #2, "sim=";sim
CLOSE #2
GOTO 2014
END IF
CLOSE #1
OPEN "D.dat" FOR INPUT AS #1
LINE INPUT #1, ss
i=INSTR(ss, "=")
sim=RIGHT$(ss, LEN(ss)-i)
2014:
PRINT sim;" , С Новым годом!"
CLOSE #1
STOP
END
SUB WER(sim)
PRINT "Введите Ваше имя"
INPUT sim
END SUB
программа проверена под Windows XP