Язык Форт для ZX Spectrum

[Smalovsky]

Посмотрел шоунбразеров. Игры по скорости неплохие. Но в них много, скорее всего, указательной(в каком-то смысле) арифметики типа n*j+k для двумерных массивов или n*j для одномерных(плюс код для записи-чтения значений из/в памяти), так как компиляторы бейсика не поддерживают массивов.

[Advertiser]

[Shiny]

Т.е. Вы хотите сказать, что Boriel'ные Randomize и Random(N) используют калькулятор Спектрума?

похоже да. Но это не проблема с гсч, просто в лоб готовый код не возьмешь.

[Shiny]

кстати, о языке. Попалось в интернетах реализация Dissociated press:

6 constant mrate
6 constant mlen
4000 constant rbs
create rb rbs 4 + allot
rb codesegment rbs bl mfill
variable r 0 r !

: |r+| r @ 1+ dup rbs > if drop 1 then r ! ; ( -- )
: !r+ rb r @ + c! |r+| ; ( c -- )

use ..\random.frl
: mung r @ 1+ random rb + mlen random type ;
: mung? mrate dup random = if mung then ;

use ..\dos.frl
forget &open
variable cb
: ?bye ifnot bye then ;
: gc 0 cb codesegment 1 fread ?bye ?bye cb c@ ; ( -- c )

: dp begin gc dup !r+ emit mung? again ;

false messages ! false debug !
' bye errorproc !
build dp.com

Было бы интересно реализовать раритет.