Speccy - наш выбор! - Небольшие программки на Бейсике.

Speccy - наш выбор! (http://zx-pk.ru/index.php)

- Для начинающих (http://zx-pk.ru/forumdisplay.php?f=43)

- - Небольшие программки на Бейсике. (http://zx-pk.ru/showthread.php?t=5926)

Небольшие программки на Бейсике.

Хотелось бы здесь выложить несколько сохранившихся у меня простых программ на Бейсике, возможно они кого-то из новичков заинтересуют. Все эти программки взяты из журнала "ZX-ревю". Пока их только две: пример графики "Пирамиды" и "Клавиатура - музыкальный инструмент" (подобную, кстати, я где-то на ПК видела, не пробовала, правда). Если кого заинтересует, позже добавлю еще немного. Предлагаю всем, у кого сохранились свои подобные программки: давайте здесь их выложим для новеньких - пусть полюбуются... Неужели все сразу за ассемблер берутся?

Ого, девушки на спектруме всё-таки были ;)

OK.

Расчёт ходов короля на шахматной доске:

Code:

: ?ERROR ( X Y -- X Y flag ) 

    2DUP 2DUP MIN 1 < -ROT MAX 8 > OR 

; 



: KING ( X Y -- ) 

    ?ERROR IF 2DROP ." ERROR!" CR EXIT THEN 

    2 -1 DO 

      2 -1 DO 

        2DUP J + SWAP I + 

        2OVER 2OVER -ROT = -ROT = AND -ROT ?ERROR -ROT 2SWAP OR IF 2DROP ELSE . . CR THEN

      LOOP 

    LOOP 

    2DROP 

;

Расчёт ходов коня на шахматной доске:

Code:

: ?ERROR ( X Y -- X Y flag ) 

    2DUP 2DUP MIN 1 < -ROT MAX 8 > OR 

; 



: SHOW ( X Y n1 n2 -- X Y n1 n2 ) 

    2OVER 2OVER -ROT + -ROT + ?ERROR IF 2DROP ELSE . . CR THEN 

; 



: SHOW ( X Y n1 n2 -- X Y n2 n1 ) 

    SHOW NEGATE SHOW SWAP 

; 



: KNIGHT ( X Y -- ) 

    ?ERROR IF 2DROP ." ERROR!" CR EXIT THEN 

    -2 -1 2 0 DO 

      SHOW NEGATE SWAP SHOW 

    LOOP 

    2DROP 2DROP 

;

P.S. Когда я это писал, ещё не знал о таких словах, как ROLL и PICK. Кстати, насчёт коня -- решение пришло спонтанно, наверняка я не первый, кто додумался, но всё же -- в стеке крутятся числа 2 и 1, меняя свой знак и меняясь местами. Все возможные варианты -- и есть ходы коня. :)

Adramelek, это конечно фиг его знает, но с каких пор форт стал бейсиком? (hint: читаем название темы)

думаю это тоже относится к теме.
выкладываю здесь 2 своих игрушки полностью написаных на бейсике, раннее никогда и нигде не выкладывались.
игры типа диззи, правда сделано всё довольно примитивно :).
делал очень давно в 1996 году.

Quote:

Originally Posted by Sinus (Post 97216)

Adramelek, это конечно фиг его знает, но с каких пор форт стал бейсиком? (hint: читаем название темы)

Конечно, Форт не Бейсик, но в случае со Спектрумом их, пожалуй, можно обьединить -- всё равно других ЯВУ нет.

Добавлю: я в смысле альтернативы Ассемблеру -- а именно это автор, кажется, имела в виду, если судить по фразе "Неужели все сразу за ассемблер берутся?"

Quote:

Originally Posted by ZEman (Post 97229)

выкладываю здесь 2 своих игрушки

класс!

спасибо:)
если хотите, могу ещё выложить.
в основном я делал либо тока на бейсике, либо с применением компилятора.

Quote:

Originally Posted by ZEman (Post 97384)

если хотите, могу ещё выложить.

тавай!

чтот я не понял, у меня пропала опция управления вложениями.
место почистил а всё равно кнопки нет, в чём причина?

Добавлено через 23 часа 42 минуты
модераторы, сделайте чтонибудь, я не могу выкладыать файлы, хотя удалил почти все старые.

появились вложения файлов и потому выкладываю ещё порцию своих игрушек.
несколько игр на бейсике и несколько игр с применением компилятора Tobos FP.

тут я кой чего написал http://sderni.ru/11556