FOCAL

[form]

Нашёл у себя Дековский фокал,

Это собрано из того, что выложил Patron.
Я собрал ради интереса. В ZM не запускается и либо роняет все, либо выходит молча (в зависимости от варианта сборки). В SB запускается и работает, но от системы остаются рожки да ножки, хотя сразу этого и не видно...

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

.COP/NOPRO SY:FORLIB DK:
 Files copied:
SY:FORLIB.OBJ  to DK:FORLIB.OBJ

.@BLDERR

.R MACRO
*ERFCL.NHD=NHD,ERFCL
*ERFCL.EAE=EAE,ERFCL
*ERFCL.EIS=EIS,ERFCL
*ERFCL.FIS=FIS,ERFCL
*ERFCL.FPU=FPU,ERFCL
*^C

.REN ERFCL.FPU .OBJ
 Files renamed:
DK:ERFCL.FPU   to DK:ERFCL.OBJ

.@BLDFCL

.R MACRO
*PUB8=SMALL,PUBLIC
*FOC81=SMALL,FOCAL1
*FOC82=SMALL,FOCAL2
*FMAT8=SMALL,SINGLE,FOCMAT
*^C

.R LINK
*FOCAL8,FOCAL8=PUB8,FOC81,FOC82,FMAT8,ERFCL,FORLIB
*^C

.R MACRO
*PUBLIC=PUBLIC
*FOCAL1=FOCAL1
*FOCAL2=FOCAL2
*FMATSP=SINGLE,FOCMAT
*FMATDP=DOUBLE,FOCMAT
*^C

.R LINK
*FOCALS,FOCALS/W/B:1400=PUBLIC,FOCAL1,FOCAL2,FMATSP,ERFCL,FORLIB
*FOCALD,FOCALD/W/B:1400=PUBLIC,FOCAL1,FOCAL2,FMATDP,ERFCL,FORLIB
*^C

.

[свернуть]

.RU FOCALS

?00 AT  0.00 
*1.10 T "HI HERE, THERE, AND EVERYWHERE!"!
*G
HI HERE, THERE, AND EVERYWHERE!
*^C

.