ZX Like Pascal

[ALKO]

Формально они должны быть, т.к. процедуры Паскаля под них предусмотрены.

расточительная трата драгоценных байт. Ведь мы адепты 48к.

---------- Post added at 23:32 ---------- Previous post was at 23:14 ----------

Мой хилоу-ворлд:

Перегнал тулзой в ДЭФы

Скрытый текст

[свернуть]

Исходник Пасцалевской проги:

Program EX4;

begin

PutSpriteClear(gg1,7+2,25-14);

end.


GG1
DEFB 24
DEFB 0,2, 15,7,3,3,7,29,246,155
DEFB 0,3, 252,254,255,234,255,245,255,255
DEFB 0,4, 0,0,0,0,0,128,128,128
DEFB 1,1, 3,7,6,14,15,31,63,63
DEFB 1,2, 237,119,183,191,127,237,246,123
DEFB 1,3, 227,240,248,248,252,252,254,95
DEFB 1,4, 128,0,0,0,0,0,0,0
DEFB 2,1, 127,126,124,63,63,31,15,7
DEFB 2,2, 104,223,254,253,94,255,245,239
DEFB 2,3, 1,255,71,255,127,234,103,243
DEFB 2,4, 12,255,255,170,255,224,224,128
DEFB 2,5, 64,240,240,188,224,64,56,0
DEFB 3,1, 3,0,0,0,0,1,1,1
DEFB 3,2, 31,255,255,255,255,252,252,252
DEFB 3,3, 248,252,254,255,255,255,127,31
DEFB 3,4, 0,0,0,0,128,192,224,240
DEFB 4,1, 1,1,3,7,14,29,51,103
DEFB 4,2, 120,184,112,240,240,224,192,128
DEFB 4,3, 15,3,1,1,0,0,0,0
DEFB 4,4, 184,88,176,248,184,184,216,92
DEFB 5,0, 0,0,0,1,1,1,1,1
DEFB 5,1, 206,220,248,240,112,248,254,127
DEFB 5,4, 108,44,60,60,46,127,127,103
DEFB 5,5, 0,0,0,0,0,128,224,240

Результат:

Скрытый текст

[свернуть]

В чём косяк?

[Advertiser]