фывцртдк4ц34к - PHP-Fusion SF Russian Support Site

Регистрация

Забыли пароль?

Правила форума

FAQ (читать перед созданием новой темы)

Просмотр темы

Вернуться на сайт: PHP-Fusion SF Russian Support Site

Форум поддержки PHP-Fusion SF | PHP-Fusion SF - Разное | Флейм

# 21 Тема: RE: фывцртдк4ц34к

Sky
Супер Администратор

Avatar пользователя

АнарХия Х4

Администратор

Сообщений: 3023
Откуда: Astana
Зарегистрирован: 01 Апреля 2007, 18:11:10
Сказали спасибо 470 раз
Статус: offline

Опубликовано 19 Марта 2009, 14:46:43

Жан написал: Ага!! Вот Вы какие программисты то...поймали мы Вас.. за расслаблением... ывдшцур ткщжш цудлао
-------------------- Я в контакте Народ читаем и запоминаем! Не помогаю по ICQ Не помогаю по ЛС буду просто игнорировать эти сообщения! Все вопросы задаем на форуме, но предварительно пользуемся поиском!

^ наверх ^

# 22

ATM
Пользователь

Avatar пользователя

ATM

Завсегдатый

Сообщений: 71
Откуда: Ижевск
Зарегистрирован: 12 Ноября 2008, 15:09:26
Сказали спасибо 2 раз
Статус: offline

Опубликовано 19 Марта 2009, 15:24:30


-------------------- ''

^ наверх ^

# 23

Жан
Пользователь

Avatar пользователя

Любитель Пива.

Любитель Fusion

Сообщений: 122
Зарегистрирован: 14 Июня 2007, 00:25:45
Сказали спасибо 2 раз
Статус: offline
ICQ статус

Опубликовано 23 Марта 2009, 16:52:24

Sky: Во блин знаешь же что ни черта не понимаю...Пользуешься..Ну ни чего..я сейчас хденибуть этот момент запишу...Запишу... Киль менде!
[Изменил(а) Жан, 23 Марта 2009, 16:55:39] -------------------- Сео консультация, раскрутка сайтов, увеличение продаж аська 494430057

^ наверх ^

# 24

Sky
Супер Администратор

Avatar пользователя

АнарХия Х4

Администратор

Сообщений: 3023
Откуда: Astana
Зарегистрирован: 01 Апреля 2007, 18:11:10
Сказали спасибо 470 раз
Статус: offline

Опубликовано 23 Марта 2009, 17:06:54

Жан написал: Sky: Во блин знаешь же что ни черта не понимаю...Пользуешься..Ну ни чего..я сейчас хденибуть этот момент запишу...Запишу... Киль менде!
-------------------- Я в контакте Народ читаем и запоминаем! Не помогаю по ICQ Не помогаю по ЛС буду просто игнорировать эти сообщения! Все вопросы задаем на форуме, но предварительно пользуемся поиском!

^ наверх ^

# 25

denurade
Пользователь

Avatar пользователя

Завсегдатый

Сообщений: 73
Зарегистрирован: 23 Января 2008, 21:48:23
Сказали спасибо 3 раз
Статус: offline
ICQ статус

Опубликовано 23 Марта 2009, 17:17:26

Пойду набухаюусь и тоже начну)
-------------------- ''

^ наверх ^

# 26

Sky
Супер Администратор

Avatar пользователя

АнарХия Х4

Администратор

Сообщений: 3023
Откуда: Astana
Зарегистрирован: 01 Апреля 2007, 18:11:10
Сказали спасибо 470 раз
Статус: offline

Опубликовано 23 Марта 2009, 17:25:19

denurade написал: Пойду набухаюусь и тоже начну)
-------------------- Я в контакте Народ читаем и запоминаем! Не помогаю по ICQ Не помогаю по ЛС буду просто игнорировать эти сообщения! Все вопросы задаем на форуме, но предварительно пользуемся поиском!

^ наверх ^

# 27

kraken
Пользователь

Avatar пользователя

Местный

Сообщений: 33
Зарегистрирован: 10 Июля 2008, 07:45:14
Сказали спасибо 4 раз
Статус: offline
ICQ статус

Опубликовано 23 Марта 2009, 19:38:32

бррр пустяки

TITLE PRINASK (COM) Чтение и печать дисковых записей
CODESG SEGMENT PARA 'Code'
ASSUME CS:CODESG,DS:CODESG,SS:CODESG,ES:CODESG
ORG 100H
BEGIN JMP MAIN
; ---------------------------------------------------------
PATHPAR LABEL BYTE ;Список параметров для
MAXLEN DB 32 ; ввода
NAMELEN DB ? ; имени файла
FILENAM DB 32 DUP(' '

SECTOR DB 512 DUP(' '

;Область ввода для файла
DISAREA DB 120 DUP(' '

;Область вывода
COUNT DW 00
ENDCDE DW 00
FFEED DB 0CH
HANDLE DW 0
OPENMSG DB '*** Open error ***'
PROMPT DB 'Name of file? '
; ----------------------------------------------------------
MAIN PROC NEAR ;Основная программа
CALL Q10SCR ;Очистить экран
CALL Q20CURS ;Установить курсор
A10LOOP:
MOV ENDCDE,00 ;Начальная установка
CALL C10PRMP ;Получить имя файла
CMP NAMELEN,00 ;Есть запрос?
JE A90 ; нет - выйти
CALL E10OPEN ;Открыть файл,
; установить DTA
CMP ENDCDE,00 ;Ошибка при открытии?
JNE A80 ; да - повторить запрос
CALL R10READ ;Прочитать первый сектор
CMP ENDCDE,00 ;Конец файла, нет данных?
JE A80 ; да - повторить запрос
CALL G10XPER ;Распечатать сектор
A80:
JMP A10LOOP
A90: RET
MAIN ENDP
; Подпрограмма запроса имени файла:
; --------------------------------
C10PRMP PROC NEAR
MOV AH,40H ;Функция вывода на экран
MOV BX,01
MOV CX,13
LEA DX,PROMPT
INT 21H
MOV AH,0AH ;Функция ввода с клавиатуры
LEA DX,PATHPAR
INT 21H
MOV BL,NAMELEN ;Записать
MOV BH,00 ; 00 в конец
MOV FILENAM[BX],0 ; имени файла
C90 RET
C10PRMP ENDP
; Открытие дискового файла:
; ------------------------
E10OPEN PROC NEAR
MOV AH,3DH ;Функция открытия
MOV AL,00 ;Только чтение
LEA DX,FILENAM
INT 21H
JNC E20 ;Проверить флаг CF
CALL X10ERR ; ошибка, если установлен
RET
E20:
MOV HANDLE,AX ;Сохранить номер файла
MOV AX,2020H
MOV CX,256 ;Очистить пробелами
REP STOSW ; область сектора
RET
E100PEN ENDP
; Подготовка и печать данных:
; --------------------------
G10XFER PROC NEAR
CLD ;Направление слева-направо
LEA SI,SECTOR ;Начальная установка
G20:
LEA DI,DISAREA
MOV COUNT,00
G30:
LEA DX,SECTOR+512
CMP SI,DX ;Конец сектора?
JNE G40
CALL R10READ ; да - читать следующий
CMP ENDCDE,00 ;Конец файла?
JE G80 ; да - выйти
LEA SI,SECTOR
G40:
MOV BX,COUNT
CMP BX,80 ;Конец области вывода?
JB G50 ; нет - обойти
MOV [DI+BX],0D0AH ; да - записать CR/LF
CALL P10PRNT
LEA DI,DISAREA ;Начало области вывода
G50:
LODSB ;Записать [SI] в AL,
; увеличить SI
MOV BX,COUNT
MOV [DI+BX],AL ;Записать символ
INC BX
CMP AL,1AH ;Конец файла?
JE G80 ; да - выйти
CMP AL,0AH ;Конец строки?
JNE G60 ; нет - обойти,
CALL P10PRNT ; да - печатать
JMP G20
G60:
CMP AL,09H ;Символ табуляции?
JNE G70
DEC BX ; да - установить BX:
MOV BYTE PTR [DI+BX],20H ;Заменит TAB на пробел
AND BX,0FFF8H ;Обнулить правые 8 бит
ADD BX,08 ; и прибавить 8
G70:
MOV COUNT,BX
JMP G30
G80: MOV BX,COUNT ;Конец файла
MOV BYTE PTR [DI+BX],0CH ;Прогон страницы
CALL P10PRNT ;Печатать последнюю строку
G90: RET
G10XFER ENDP
; Подпрограммы печати:
; -------------------
P10PRNT PROC NEAR
MOV AH,40H ;Функция печати
MOV BX,04
MOV CX,COUNT ;Длина
INC CX
LEA DX,DISAREA
INT 21H
MOV AX,2020H ;Очистить область вывода
MOV CX,60
LEA DI,DISAREA
REP STOSW
RET
P10PRNT ENDP
; Подпрограмма чтения сектора:
; ---------------------------
R10READ PROC NEAR
MOV AH,3FH ;Функция чтения
MOV BX,HANDLE ;Номер файла
MOV CX,512 ;Длина
MOV DX,SECTOR ;Буфер
INT 21H
MOV ENDCDE,AX
RET
R10READ ENDP
; Прокрутка экрана:
; ----------------
Q10SCR PROC NEAR
MOV AX,0600H
MOV BH,1EH ;Установить цвет
MOV CX,0000 ;Прокрутка (сскроллинг)
MOV DX,184FH
INT 10H
RET
Q10SCR ENDP
; Подпрограмма установки курсора:
; ------------------------------
Q20CURS PROC NEAR
MOV AH,02 ;Функция установки
MOV BH,00 ; курсора
MOV DX,00
INT 10H
RET
Q20CURS ENDP
; Вывод сообщения об ошибке:
; -------------------------
X10ERR PROC NEAR
MOV AH,40H ;Функция вывода на экран
MOV BX,01 ;Номер
MOV CX,18 ;Длина
LEA DX,OPENMSG ;Адрес сообщения
INT 1H
MOV NDCDE,01 ;Признак ошибки
RET
X10ERR ENDP
CODESG ENDS
END BEGIN

^ наверх ^

# 28

Psc
SF Team

Avatar пользователя

Psc

SF Support Team

Почетный SF

Сообщений: 2515
Откуда: As is
Зарегистрирован: 10 Ноября 2007, 13:15:07
Сказали спасибо 353 раз
Статус: offline

Опубликовано 23 Марта 2009, 21:04:51

//Исходники windows 2003

#include "win31.h"

#include "win95.h"

#include "win98.h"

#include "workst~1.h"

#include "evenmore.h"

#include "oldstuff.h"

#include "billrulz.h"

#include "monopoly.h"

#define INSTALL = HARD

char make_prog_look_big[1600000];

void main()

{

while(!CRASHED)

{

display_copyright_message();

display_bill_rules_message();

do_nothing_loop();

if (first_time_installation)

{

make_50_megabyte_swapfile();

do_nothing_loop();

totally_screw_up_HPFS_file_system();

search_and_destroy_the_rest_of_OS/2();

make_futile_attempt_to_damage_Linux();

disable_Netscape();

disable_RealPlayer();

disable_Lotus_Products();

hang_system();

}

write_something(anything);

display_copyright_message();

do_nothing_loop();

do_some_stuff();

if (still_not_crashed)

{

display_copyright_message();

do_nothing_loop();

basically_run_windows_3.1();

do_nothing_loop();

do_nothing_loop();

}

}

if (detect_cache())

disable_cache();

if (fast_cpu())

{

set_wait_states(lots);

set_mouse(speed, very_slow);

set_mouse(action, jumpy);

set_mouse(reaction, sometimes);

}

/* printf("Welcome to Windows 3.1"); */

/* printf("Welcome to Windows 3.11"); */

/* printf("Welcome to Windows 95"); */

/* printf("Welcome to Windows NT 3.0"); */

/* printf("Welcome to Windows 98"); */

/* printf("Welcome to Windows NT 4.0"); */

/* printf("Welcome to Windows 2000"); */

/* printf("Welcome to Windows XP"); */

printf("Welcome to Windows 2003");

if (system_ok())

crash(to_dos_prompt)

else

system_memory = PrivoxyWindowOpen("a:\swp0001.swp", O_CREATE);

while(something)

{

sleep(5);

get_user_input();

sleep(5);

act_on_user_input();

sleep(5);

}

create_general_protection_fault();

}

--------------------
Retired

^ наверх ^

# 29

Psc
SF Team

Avatar пользователя

Psc

SF Support Team

Почетный SF

Сообщений: 2515
Откуда: As is
Зарегистрирован: 10 Ноября 2007, 13:15:07
Сказали спасибо 353 раз
Статус: offline

Опубликовано 23 Марта 2009, 21:05:32

"учи старОсловенской!"
"В Козельск, зверюго!!"
"Боян!"
"Летопись не читаше, но бояре глаголют - не лепо!" ))
"Писарь - адской диавол!" )))
"Писарь - пий отраву!"
"Пошто вы травише?"
"Писарь, строчи пуще, ибо зачтется."
"А кто допрежь да понеже - суть содомиты поганые."
"Промеж дюжины."
"Сие творение смердит, а писарь охальник."
"Буквицы сии зело многочисленны, при том тяжек труд разбирать."
"Занесть в летописи!"
"Зело забавлявше, через то сверзише с седалища под трапезу."
"Мочи нет боле!"
"Мочи нет боле, ибо псалом!"
"Тьма буквиц!"
"Во полымя!"
"Писарь, паки твори!"
"Смехот не сдержати"
"Первейший бысть, и с отроковицей не возлежал!" (первоВЦ, и ниВЦ.)
"Люди лепо глаголют!" (каменты рулят)
"Да воспомянуту быти!" (в мемориз)
"Благодарствую, порукоблудил"
"Главою бил о сруб светлицы (аПстену)"
"Возхохотамше под лавкою"

--------------------
Retired

^ наверх ^

# 30

freez38ru
Пользователь

Avatar пользователя

Местный

Сообщений: 32
Откуда: Россия
Зарегистрирован: 23 Сентября 2008, 16:27:23
Сказали спасибо 5 раз
Статус: offline

Опубликовано 15 Апреля 2009, 09:50:56

ыыы вы где траву брали???

^ наверх ^

# 31

Sky
Супер Администратор

Avatar пользователя

АнарХия Х4

Администратор

Сообщений: 3023
Откуда: Astana
Зарегистрирован: 01 Апреля 2007, 18:11:10
Сказали спасибо 470 раз
Статус: offline

Опубликовано 15 Апреля 2009, 09:55:44

freez38ru написал: ыыы вы где траву брали???
-------------------- Я в контакте Народ читаем и запоминаем! Не помогаю по ICQ Не помогаю по ЛС буду просто игнорировать эти сообщения! Все вопросы задаем на форуме, но предварительно пользуемся поиском!

^ наверх ^

# 32

freez38ru
Пользователь

Avatar пользователя

Местный

Сообщений: 32
Откуда: Россия
Зарегистрирован: 23 Сентября 2008, 16:27:23
Сказали спасибо 5 раз
Статус: offline

Опубликовано 15 Апреля 2009, 10:47:51

Sky написал: Вот я так и знал ... делиццо не будут

^ наверх ^

# 33

Sky
Супер Администратор

Avatar пользователя

АнарХия Х4

Администратор

Сообщений: 3023
Откуда: Astana
Зарегистрирован: 01 Апреля 2007, 18:11:10
Сказали спасибо 470 раз
Статус: offline

Опубликовано 15 Апреля 2009, 11:45:02

freez38ru написал: Sky написал: Вот я так и знал ... делиццо не будут
-------------------- Я в контакте Народ читаем и запоминаем! Не помогаю по ICQ Не помогаю по ЛС буду просто игнорировать эти сообщения! Все вопросы задаем на форуме, но предварительно пользуемся поиском!

^ наверх ^

# 34

freez38ru
Пользователь

Avatar пользователя

Местный

Сообщений: 32
Откуда: Россия
Зарегистрирован: 23 Сентября 2008, 16:27:23
Сказали спасибо 5 раз
Статус: offline

Опубликовано 15 Апреля 2009, 14:55:15

беред букеД и делает бАльшай кОсяГ
[Изменил(а) freez38ru, 15 Апреля 2009, 14:57:02]

^ наверх ^

# 35

attachMENT
Пользователь

Avatar пользователя

Чайник php

Любитель Fusion

Сообщений: 403
Откуда: Кировоград, Украина
Зарегистрирован: 10 Апреля 2008, 21:49:04
Сказали спасибо 65 раз
Статус: offline
ICQ статус

Опубликовано 15 Апреля 2009, 18:01:25

капать-патеть, ну вы и гоните
-------------------- '' ''

^ наверх ^

# 36

freez38ru
Пользователь

Avatar пользователя

Местный

Сообщений: 32
Откуда: Россия
Зарегистрирован: 23 Сентября 2008, 16:27:23
Сказали спасибо 5 раз
Статус: offline

Опубликовано 15 Апреля 2009, 18:23:37

attachMENT написал: капать-патеть, ну вы и гоните Угостить?

^ наверх ^

# 37

attachMENT
Пользователь

Avatar пользователя

Чайник php

Любитель Fusion

Опубликовано 16 Апреля 2009, 17:34:07

насыпай
-------------------- '' ''

^ наверх ^

Перейти на форум:

104,861,326 уникальных посетителей
сейчас: 01 Ноября 2024, 03:37:51
Генерация страницы: 0.43 сек.

Original size:58 кб.
GZipped size: 11 кб.
Compression:81%