Æ (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

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

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

  • суэцкое

    Вчера мы заправлялись перед тем, как поехать на океан, и было как-то очень дорого. А, ну да, бандура в Суэце застряла. Обычная дорога, без пробок,…

  • Разное

    Приснилось, что лежу в постели с Вознесенским. Просто вот лежу, без дальнейшего. Жирноватое, очень белое тело. Думалось же о том, что если наши…

  • 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