Виртуальность. Именно так стоило бы начать этот рассказ. Не знаю почему, но именно это слово невольно даёт мне ту самую мысль странности и замкнутости, которое, наверняка, будет в строках, лежащих ниже...
" Каждый, наверняка, хотел порою отдохнуть. Нет, не выспаться или сесть в кресло с чашкой чая, а именно отдохнуть. От мира. Просто сидеть и понимать, что спешить некуда и абсолютно всё равно, что происходит в мире. Запереться в тёмной комнате и трястись от того, что твой покой потревожат - это бред и психоз. Нужно мыслить шире. Хотя бы в пределах своего мировоззрения. Каждое из них стремилось к неизведанной истине. А истина несёт смысл. В каждом смысле есть свобода и есть запреты. Свободу можно найти в любом смысле и любой теории, но нужно будет иногда и попотеть." Экран замерцал и погас. Дым серым облаком разлетелся по комнате. "А свободу хотят обрести все. Не ту, где тебя не будут трогать, а ту, где ты будешь чувствовать себя свободным в любом образе и любой роли. Ведь, согласно Шекспиру, весь мир театр. Интересно, не правда ли? Большая сцена для Вселенского Разума. Бог? Нет, Бога нету уже давно и это является ошибкой всех религий. Есть что-то высшее, нежели Бог. Богов много, а Создатель один. Это совокупность всего. Емец однажды рассказал о таком Всезнайке-компьютере, который, однако, тоже имеет свои недочёты. Так и в истине. Идеальная истина создаётся желанием. Но желанием чего? Стать выше или сильнее? Отнюдь, нет. Желанием обрести смысл жизни. Настолько глупое желание. Люди, изначально, были свободны, а что дальше? Стали подчиняться. Почему? Почему так ищут то, что потеряли? И тут уже играет не истина, а стремление обрести её. Все идеологии и режимы - поиск той самой Утопии".
Экран мигнул. Стук клавиш возобновился с новой силой.
"Люди нашли её в виртуальности. Свобода всего. Анонимность, отрешечённость, доступность и свобода. Так может это и есть истина? Или очередная альтернатива абстрактной лжи? Что мы ищем тут, у экранов? Что ищу я? Что ищете вы? Общение? Свободу? Истину? Или, может быть, способ убежать от мира? Но получаем только замкнутый круг, который невозможно покинуть. Нас снова и снова тянет в эту странную темноту вседозволенности, захватившей наши души. Это современный Дьявол. Лукавый, симпотичный, заманчивый и... опасный. Он забирает нашу истину, разбивая её и даруя новую. Ты становишься мудрее, но ты не можешь больше уйти отсюда. Думаете, зная это, я просто возьму и исчезну из Сети? Бред. И никто не уйдёт. Мы все - рабы. А хозяин наш - Ложь самому себе. И завтра ты вспомнишь эти слова. Послезатра они едва мелькнут в памяти, а потом исчезнут. Как исчезнул ты тут, путник." Экран погас. Пустое кресло крутилось. Человек пропал. Исчез. Растворился. Стал ещё одни кодом. Безвольным и странным: 1010110111000110110110101000011010101111000101100110001100000. Код жизни? Или очередная ложь бытия? Я не знаю, а ты можешь узнать.
Виртуальность
© Copyright: Александр Киба, 2011
Свидетельство о публикации №111072007961
Свидетельство о публикации №111072007961
Рецензии
Истина.
Program myprog;
BEGIN
asm
jmp @NextCode
@message1:
db "HELLO, WORLD !!!",'$'
@NextCode:
mov ax,0003h
int 10h
mov ax,0012h
int 10h
push ds
push cs
pop ds
mov dx,offset @message1
mov ah,9
int 21h
pop ds
mov ah,10h
int 20
mov ax,4C00h
int 21h
int 10
end;
END.
:)
Александр Братских 09.01.2012 21:20 • Заявить о нарушении
Program myprog;
BEGIN
asm
jmp @NextCode
@message1:
db "HELLO, WORLD !!!",'$'
@NextCode:
mov ax,0003h
int 10h
mov ax,0012h
int 10h
push ds
push cs
pop ds
mov dx,offset @message1
mov ah,9
int 21h
pop ds
mov ah,10h
int 20
mov ax,4C00h
int 21h
int 10
end;
END.
:)
Александр Братских 09.01.2012 21:20 • Заявить о нарушении
Program Live;
type
element = ^zap;
zap = record
a:string;
key:boolean;
next:element;
end;
var
head,p:element;
dump:boolean;
Procedure CreateWorld(head:element);
var
p:element;
begin
p:=head;
while p<>nil do
writeln('Welcome to the world',p^.a);
end;
Procedure DestroyWorld(var head:element);
var
p:element;
begin
p:=head;
head:=nil;
dispose(p);
end;
Begin
new(head);
writeln('Please, write a element of live');
readln(head^.a);
head^.key:=true;
head^.next:=nil;
p:=head;
while p^.a<>'Death' do
begin
new(p^.next);
p:=p^.next;
p^.next:=nil;
writeln('Please, write element of live');
readln(p^.a);
p^.key:=true;
end;
CreateWorld(head);
if dump=true then
DestroyWorld(head) else
writeln('You are not prepared for a End of Live');
readln
end.
Простите, что на Паскале, но ассемблер не знаю, а другие языки вспоминать уже лень.))
Александр Киба 10.01.2012 01:42 Заявить о нарушении
type
element = ^zap;
zap = record
a:string;
key:boolean;
next:element;
end;
var
head,p:element;
dump:boolean;
Procedure CreateWorld(head:element);
var
p:element;
begin
p:=head;
while p<>nil do
writeln('Welcome to the world',p^.a);
end;
Procedure DestroyWorld(var head:element);
var
p:element;
begin
p:=head;
head:=nil;
dispose(p);
end;
Begin
new(head);
writeln('Please, write a element of live');
readln(head^.a);
head^.key:=true;
head^.next:=nil;
p:=head;
while p^.a<>'Death' do
begin
new(p^.next);
p:=p^.next;
p^.next:=nil;
writeln('Please, write element of live');
readln(p^.a);
p^.key:=true;
end;
CreateWorld(head);
if dump=true then
DestroyWorld(head) else
writeln('You are not prepared for a End of Live');
readln
end.
Простите, что на Паскале, но ассемблер не знаю, а другие языки вспоминать уже лень.))
Александр Киба 10.01.2012 01:42 Заявить о нарушении
Да и создать интерфейс, который обнуляет ключи и ввести проверку, что если половина ключей False, то ввести Dump = true.
Александр Киба 10.01.2012 16:02 Заявить о нарушении
Александр Киба 10.01.2012 16:02 Заявить о нарушении