я вот тут набросал кое чего для QBasic
CLS
COLOR 2
LOCATE 2, 3:
a$ = "Wake up Neo..."
FOR T = 1 TO LEN(a$)
LOCATE 2: PRINT MID$(a$, T, 1);
SLEEP 1
NEXT T
LOCATE 4, 3:
INPUT "tu eshe spish yes=1/no=2"; b
IF b = 2 THEN GOTO ma
IF b = 1 THEN GOTO en
en: CLS
LOCATE 2, 3: PRINT "spi dalshe"
END
ma: CLS : LOCATE 2, 3:
c$ = "Matrix has you..."
FOR T = 1 TO LEN(c$)
PRINT MID$(c$, T, 1);
SLEEP 1
NEXT T

__________________
Я знаю вы меня слышите, я чувствую вас. Я знаю вы боитесь, боитесь нас, боитесь перемен. Я не знаю будущего. Я не стану предсказывать чем все закончится, я скажу лишь с чего начнется. Сейчас я повешу трубку и потом покажу людям то, что вы хотели скрыть. Покажу им мир без вас, мир без диктата и запретов, мир без границ, мир где возможно все.

Адрес поста | Один пост | Сообщить модератору | IP: Logged