Предлагаю здесь собраться ценителям восьмибитной сцены, если конечно они еще остались...

И чё сделать?

чтоб знать в лицо героев))) восьмибитники всегда найдут интересные темы)))

16 битников к себе берете)))?

да без разницы)) просто интересно знать остались ли еще любители олдскула))

и коллективно самоувосьмибитиццо

LSDJ+Game Boy раньше активно пользовался)

а че были чтоле?

можешь сам самоубититься:)

канеш были. раньше даже выходило несколько уфимских электронных газет для ZX-Spectrum, были свои хакеры и даж проходило несколько демо пати

Гыыыыы.... это про меня...но если честно я никогда не был программистом после zx-spectrum и amiga. Карьера как говориться закончилась.

http://zxaaa.untergrund.net/BVC.html

вот. Там же ещё есть с уфы. Вернее были и я их знал. И вместе
выпускали журнал, ломали игрухи, писали демки и интрухи.

:rolleyes:

девочка видела настоящий спектрум? ;)

вероятно просто настоящий, спектрум ли это был

денде"!

да вот я тож увлекся... только видать поздновато :D но всё же.. надо твои демки будет посмотреть)) ты кстати не знаешь где в уфе можно амигу раздобыть?

да да)) вспомнил! я ваш журнал как то читал.. zx-format вроде назывался.. точно не помню)) а еще интру типа "вы всегда найдете новый софт на уфимской радиотуче) ))

y e s

В уфе амигу уже не найдёш. Только с москвы и то поискать надо или же с ебая.

http://amigas.ru/~vadim/Amiga-Demo-O...ce-07-1998.mp4 - видео последней моей демки с амиги(качество видео очень херовое - но другого не осталось). После этого больше ничего не писал.....

на ебае смотрел:(там дорого как то... даже пятисотая моделька

forge of mb pcшное демопати наше детище )))

Кстати да. У меня где-то даже такой календарик зеленоватый остался до сих пор с этого forge of mb/ А проходил он помнится там где сейчас офис уфанета на бабушкина. Там раньше какойто клуб был.

а щас наверно пати ваще не проводятся?

Будет но не в Уфе.

а где?:) знаю СС в питере будет (как обычно), в Перми собираются.. а поближе к нам что есть?

блин, нужели нету?

Если только в казани. Но что-то оттуда сейчас тишина...Хотя знакомого оттуда попинаю насчёт пати. Может что и скажет путное.

Poke 23755,1
Poke 23756,1

понятно... А жаль)) в Уфе я так думаю тоже найдется немало желающих сходить на такое пати:)

10 RЕМ **************************************************
20 REM * ПРОГРАММА ПРОВЕРКИ ЗНАНИЙ АРИФМЕТИКИ *
30 REM * У УЧЕНИКОВ МЛАДШИХ КЛАССОВ *
40 RЕМ **************************************************
50 CLS: PRINT: PRINT
60 INPUT "КАК ТЕБЯ ЗОВУТ ": I$: РRINT: РRINT
70 PRINT I$: " , Я ХОЧУ ПРОВЕРИТЬ ТВОИ ЗНАНИЯ АРИФМЕТИКИ."
80 PRINT "Я БУДУ ПРЕДЛАГАТЬ ПРИМЕРЫ, А ТЫ ПОСТАРАЙСЯ ИХ РЕШИТЬ."
90 PRINT " ЕСЛИ ГОТОВ, НАЖМИ НА ЛЮБУЮ КЛАВИШУ."
100 A1 = USR(-2045)
110 X = l: W = 0
120 CLS: PRINT: PRINT
130 PRINT TAB(15): "ПОМНИ !"
140 PRINT "ЕСЛИ ПРИ ОТВЕТЕ ОШИБЕШЬСЯ И СЛУЧАЙНО НАЖМЕШЬ"
150 PRINT "НЕ ТУ КЛАВИШУ, ТО НАЖМИ КЛАВИШУ "Я" ЗАТЕМ НУЖНУЮ."
170 PRINT "ПОСЛЕ НАБОРА ОТВЕТА НАЖМИ КЛАВИШУ "BK": PRINT
180 R = ABS(INT(RND(1)*20 - 10))
190 IF R = 0 OR R = l THEN 180
200 Q = ABS(INT(RND(1)*20 -10))
210 IF Q = 0 OR Q = 1 THEN 200
220 KL = INT(RND(1) * 5)
230 IF KL = 0 ТHEN 220
240 ON KL GOSUB 510, 550, 600, 630
250 PRINT: PRINT I$: " СКОЛЬКО БУДЕТ "; P; U$; R; "=";
260 INPUT D
270 IF D = Q ТHEN 370
280 PR I NT: PR I NT " НЕПРАВИЛЬНО !"
290 PRINT "ТЕБЕ, "; I$; " , НАДО ПОДУМАТЬ."; PRINT
300 PRINT I$; " СКОЛЬКО БУДЕТ "; P; U$; R; "=";
310 INPUT D: PRINT
320 IP D = Q ТHEN 370
330 РRINT "ПЛОХО, "; I$; " ТЫ НЕ СМОГ РЕШИТЬ ЭТОТ ПРИМЕР."
340 PRINT " ВОТ ПРАВИЛЬНОЕ PЕШЕНИЕ "
350 PRINT TAB(8); P; U$; R; "="; Q: PRINT
360 GOTO 390
370 W =W +1
380 PRINT "МОЛОДЕЦ "; I$; " ПРАВИЛЬНО. ": PRINT
390 IF X = 10 THEN 450
400 X = X + 1
410 PRINT "РЕШИ ЕЩЕ ПРИМЕР."
420 PRINT "ЕСЛИ ГОТОВ, TO НАЖМИ ЛЮБУЮ КЛАВИШУ"
430 A1 = USR(-2045)
440 GOTO 120
450 PRINT: PRINT
460 IF W = 10 THEN РRINT "МОЛОДЕЦ, "; I$; ", ТЫ ЗНАЕШЬ АРИФМЕТИКУ НА 5!"
470 IF W = 8 OR W = 9 THEN PRINT "МОЛОДЕЦ, "; I$; ", ТЫ ЗНАЕШЬ АРИФМЕТИКУ НА 4!"
480 IF W = 8 OR W = 7 THEN PRINT I$; ", ТЫ ЗНАЕШЬ АРИФМЕТИКУ НА 3!"
490 IF W < 6 THEN PRINT I$; ", ТЫ ПЛОХО ЗНАЕШЬ АРИФМЕТИКУ !"
500 STOP
510 U$ = " ПРИБАВИТЬ "
520 G = G * 3: R = R * 3
530 P = G: Q = G + R
540 RETURN
550 U$ = " ОТНЯТЬ "
560 IF G = R THEN G = G +3
570 G = G * 3: R = R * 3
580 IF G < R THEN Q = G: G = R: R = Q
590 P = 0: Q = G - R: RETURN
600 D$ " УМНОЖИТЬ НА "
610 P = 0: Q = G * R
620 RETURN
630 U$ = " PAЗДЕЛИТЬ HA "
640 P = G * R: Q = R
650 RETURN

а теперь то же самое на asm ))))))))))))

Пуши, попы и флаги позабыл уже))

нафиг эти пуши и флаги мне FOR и PSET достаточно чтобы узорчики делать

АААА БУХАЛЬД. Совсем забыл про него. Но тоже не ближний свет. Почти сутки на паровозе ехать.

Был у меня в начале девяностых spectrum-совместимый БК "Восток" - в Уфе их собирали. Проц как щас помню 4-мегагерцовый z80a - клон 8080

у меня тоже был БК "Восток"

а вот у меня скорпион))) роскошь по тем временам)))

а вот у меня скорпион))) роскошь по тем временам)))