10 INITIAL LS$POLOMKA 0
20 TAB_RES TABLE P1 10 10 2
30 GENERATE 30,,,25
40 GATE LR POLOMKA SLOMAN
50 TRANSFER .2,,DEFECT
60 SUCCESS ASSIGN 1 1
70 TABULATE TAB_RES
80 TERMINATE 1
100 DEFECT TRANSFER .1,,LOMAETSA
110 TRANSFER ,SUCCESS
120 LOMAETSA LOGIC S POLOMKA
130 SLOMAN ASSIGN 1,15
140 TABULATE TAB_RES
150 TERMINATE 1
Главное, утром не забыть, что он делает )))
Комментариев нет:
Отправить комментарий