Æ (alta_voce) wrote,
Æ
alta_voce

ау, старое программисткое племя, есть музейный кусок антиквариата

На службе выкидываем всякое бесполезное, и нужно решить, выкидывать ли это. Я распознала код как специализированный, набитый макросами ассемблер для печати или для управления курсором на архаичном дисплее. Но тип модуля обозначен как FOR. Это же совсем не Фортран? Фортран видели, и, пожалуй, узнаем.



PRINT NOGEN
FMT
DEV TYPE=3270-A2,FEAT=IGNORE,
PFK=(FONCT,'01','02','03','04','05','06',
'07','08','09','10','11','12','13','14','15',
'16','17','18','19','20','21','22','23','24')
DIV TYPE=INOUT
DPAGE CURSOR=((23,9,CURPOS))
DFLD 'SIMBASE',
POS=(1,2),ATTR=(PROT)
DFLD POS=(1,10),LTH=8,ATTR=(PROT,NUM)
DFLD 'REFERENTIEL CATALOGUE O.S.T.',
POS=(1,28),ATTR=(PROT,HI)
DFLD POS=(1,66),LTH=6,ATTR=(PROT,MOD,NUM)
DFLD POS=(1,73),LTH=8,ATTR=(PROT,NUM)
DFLD POS=(2,2),LTH=5,ATTR=(PROT,NUM)
DFLD POS=(2,10),LTH=5,ATTR=(PROT,NUM)
Tags: служба
Subscribe

  • Ах, мой милый Мартин

    Запишу – не для памяти, для забытья, конечно – как прошли две недели. Выдал наружу – забыл. Двух увезли, осталась третья,…

  • about the black

    Еду я сегодня в автобусе. Почему в автобусе, расскажу чуть позже. Так вот, еду. Орет младенец. Я немедленно понимаю, что это а) мальчик и б)…

  • Облетевшие листья

    Я добралась до двухнедельных каникул и даже ликвидировала огромную задолженность по проверке домашек. Вот чем, в частности, я занимаюсь сейчас:…

  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 4 comments