
Утко-таксист и загадочный артефакт )
NO-COPY! ))
Название: | Утко-таксист и загадочный артефакт ) |
Автор: | Al-Rado |
Формат: | Стандартный 6912 |
Палитра: | sRGB |
Год: | 2016 |
Имя файла при закачке: | flash.scr |
![]() | |
![]() | |
![]() | |
![]() | |
Теги: | Flash, Артефакт, Кепка, Птица, Утка |
Рейтинг: | 4.11 |
Просмотры: | 421 |
Добавил: | Al-Rado, 17.05.2016 17:08 |
Добавить комментарий
Пожалуйста, пройдите быструю регистрацию перед оставлением комментариев
История голосования
Никнейм | Голоса | Дата |
---|---|---|
creator | 5 | 30.09.2019 12:33 |
vassa | 5 | 11.01.2018 13:00 |
Dimidrol | 4 | 01.12.2016 19:51 |
diver | 4 | 21.05.2016 08:14 |
Amilt0n | 4 | 21.05.2016 01:31 |
moroz1999 | 4 | 20.05.2016 09:32 |
tiboh | 4 | 20.05.2016 00:26 |
torabora | 5 | 18.05.2016 11:37 |
Misha Pertsovsky | 5 | 18.05.2016 09:31 |
Писал так чтобы как можно быстрее работал, поэтому читабельность не очень:
10 LOAD "2.scr"CODE 36384: LOAD "1.scr"SCREEN$
20 FOR i=22528 TO 23296
30 LET n=PEEK (i): LET m=PEEK (i+20000)
40 IF (n<>m) THEN POKE i,INT (n/8)-8*INT (n/64)+8*(INT (m/8)-8*INT (m/64))+64*(INT (n/64)=1 OR INT (n/64)=3)+128
50 NEXT i
60 SAVE "flash.scr"SCREEN$
70 PRINT "flash screen saved"
80 PAUSE 0