Некрософт Описка

Материал из Абсурдопедии

У вас новые смертельные ошибки (разница с предыдущим синим экраном).

[править] Описание Описки

Первая версия Некрософт Описки появилась во времена операционки МС-ДОСка и с тех пор изменилась настолько, что теперь она написана на усоверглючном языке NECROLANG, глючит при написании первого же символа, печатает на бумаге формата Necro4, при распечатке слова Necrosoft - козлы форматирует все диски, уничтожает БИОС, материнку, память, проц, блок питания, корпус, а потом пользователя вместе с комнатой - все это сделано в новейшей версии Некрософт Описка 666!

[править] Цели создания

Заработать побольше денег (программа стоит 20000 некротугриков).
Распечатать побольше аццких текстов (только аццкие тексты печатаются всего лишь с 10 000 глюками).

[править] Исходник

ОСТОРОЖНО!

Осторожно! Содержание этой статьи является государственной тайной. Перед прочтением съесть! Пепел сжечь!

Министерство любви

Написан на аццко креативном языке НЕКРОЛАНГ

*//Necrosoft Opiska 666 
*//TOP SECRET CODE
*//PRICE: 2000 NecroTougricks
*necro-soft program(Necrosoft Opiska);
*include uses: errors,prints,acckie-texti,necrosft-*errors,format,crashes;
*go
*procedura MainWindow.Show(Mistake:TError)
*go
*Mistake := errormessages(while(60000900));
*Show(TTextEnter,TBatonPrint);
*Mistake := Always(errormessages);
*stop;
*procedura TTextEnter.EditText(Mistake: TError);
*peremennaya error: TInteger;
*go
*error := Random(19milliards);
*if error=0 then TTextEnter.Write(tkeyboard.klavishi)
*else Mistake := format C:(now,fastest);
*stop;
*procedura TBatonPrint.Click(Mistake: TError)
*go
*if TTextEnter.Text=Necrosoft - kozly then
*Mistake := (TFormatAllDisk,TCrashMotherboard,TCrashMemory,TCrashCPU,TCrashSysBlock,TFire);
*if TTextEnter=justtext then
*begin
*if Random(5210000)<>0 then Mistake := Format C:
*else Print(someletters);
*if TTextEnter=acckij-text then Mistake := one of 10000;
Print(Acckij-text) 
*end; 
*stop;
*stop.

править

НекроСофт:

Семейство Necrosoft Windows