Понастальгируем ?

[Dmitry67]

Вот отрыл свою прогармку...
Почитал. Уронил скупую мужскую слезу...

Публикуются отрывки

Код: Выделить всё

      decr += strlen(adder);
      strcat(obuf, adder);
      strcat(obuf, ebuf);
      strcpy(buf, obuf);
      }
    strcpy(obuf, buf);
    fprintf(OUT, "%s", obuf);
    // read
    if (! fgets(buf, BUFSIZE, IN)) return NULL;
    ....
    // () level
    if (! strcmp(A, "(")) lev++;
    if (! strcmp(A, ")")) lev--;

[Hamster]

Переменные ibuf и ybuf там тоже были?

[OleZenit]

Судя по счетчикам скобок - это парсинг арифметического выражения ? Угадал ?

[Dmitry67]

Судя по счетчикам скобок - это парсинг арифметического выражения ? Угадал ?

Почти
Текста stored proc

[Romeo]

Хе хе хе
А вот это ?

...
MOV AX, DSEG
MOV DS, AX
MOV ES, AX

; print prompt
LEA DX, msg
MOV AH, 09h
INT 21h

; terminate
MOV AH, 4Ch
INT 21h
...

А может у кого-то есть кусочек на таком крутом языке Фокал? Помните, был такой интерпритатор, прошитый в БК-0010?
Вот уж душу согреете.

[Helmsman]

Focala нету, но если хорошо порыться в старых запасах, то можно накопать немножко Assemblera с ЕС и даже автокода с БЭСМ-4...

[Dmitry67]

Код: Выделить всё

//FORT SYSIN.DD
//PARM LKED=XREF

[AA]

Так и не вспомнил, что это было в 1991г.

Код: Выделить всё

q____    = 0
a____   = 0
b____   = 0
c____   = 0
d____   = 0
; ------------------------------
labgen3   MACRO   a
end&a:
   ENDM
;--------------------------------
labgen   MACRO   cond,a
local   mm1
   j&cond   mm1
   jmp   m0000&a
mm1:
   ENDM
;--------------------------------
labgen4   MACRO   a
m0000&a:
   ENDM
;-------------------------------
labgen2   MACRO   a
   jmp   end&a
m0000&a:
   ENDM
;-------------------------------
@ifne   MACRO
   genentry
   labgen      ne,%q____
   ENDM
;-------------------------------
@ifc   MACRO
   genentry
   labgen      c,%q____
   ENDM
;-------------------------------

@ife   MACRO
   genentry
   labgen      e,%q____
   ENDM
;-------------------------------

@ifa   MACRO
   genentry
   labgen      a,%q____
   ENDM
;-------------------------------
@ifb   MACRO
   genentry
   labgen      b,%q____
   ENDM
;-------------------------------


@ifl   MACRO
   genentry
   labgen      l,%q____
   ENDM
;-------------------------------
@ifg   MACRO
   genentry
   labgen      g,%q____
   ENDM
;-------------------------------

@else   MACRO   
   labgen2   %q____
   ENDM
;--------------------------------
@endif   MACRO
   labgen3 %q____
a____    =   a____ - 1
@fromstack   <q____>
   ENDM
;--------------------------------
@endif_   MACRO
   labgen4 %q____
a____    =   a____ - 1
@fromstack   <q____>
   ENDM
;--------------------------------
genentry   MACRO
c____   =   c____+1
@tostack   <q____>
q____   =   c____
a____   =   a____+1

   ENDM   
;--------------------------------
@out   macro   a,b,c
%out   a,b,c
endm
stack1____=0
stack2____=0
stack3____=0
stack4____=0
stack5____=0
stack6____=0
stack7____=0
stack8____=0
stack9____=0
stack10____=0
@tostack     MACRO   zzz
stack10____=stack9____
stack9____=stack8____
stack8____=stack7____
stack7____=stack6____
stack6____=stack5____
stack5____=stack4____
stack4____=stack3____
stack3____=stack2____
stack2____=stack1____
stack1____=zzz
   ENDM
@fromstack   MACRO   zzz
zzz=stack1____
stack1____=stack2____
stack2____=stack3____
stack3____=stack4____
stack4____=stack5____
stack5____=stack6____
stack6____=stack7____
stack7____=stack8____
stack8____=stack9____
stack9____=stack10____
   ENDM

[awaken]

Код: Выделить всё

//FORT SYSIN.DD
//PARM LKED=XREF

JCL ?

ну прям "настоящие программисты" собрались

[Romeo]

а вот это?
...
sister(X,Y):-
female(X),
sibling(X,Y).

brother(X,Y):-
male(X),
sibling(X,Y).

parent(X,Y):-
father(X,Y).
...

Отмирает не развившись. Только в универах на нем и пишут.

[DP]

самым экзотическим языком на котором мне приходилось писать (конец 80-х) был GPSS (General Purpose Simulation System)

можно например посмотреть http://www.minutemansoftware.com/tutori ... manual.htm

[Palych]

самым экзотическим языком на котором мне приходилось писать (конец 80-х) был GPSS (General Purpose Simulation System)

можно например посмотреть http://www.minutemansoftware.com/tutori ... manual.htm

My na nem laboratorki delali.
Modelirovali seti i multiprocessornye systemy...

Ot sebya dobavlyu:
YaMB (Yazyk Mashin Buhgalterskih)
Rabotal na sovershenno uragannyh PC - s vstroennoy klaviaturoj, monitorom i ...printerom!!!
Portable solution - mashiny mozhno bylo perenosit'. Vdvoem. Nedaleko. Dazhe soft mozhno bylo perenesti na druguyu mashinu, bez vstroennogo printera.