40 | Enter | N |
50 | N | |
100 | CALL DI (IDA(N), IDI(N)) | |
Call AIS (6, IAIS(N)) | ||
IF (IDI(N)) 200, 400, 400 | ||
200 | IACUMT(N) | |
IZ | ||
Z | ||
V | ||
IV(N) | ||
IF (IACUMT (N) - IV(N)) 300, 400, 40 | ||
300 | CALL DO (IDOA(N), IDO (N)) | |
400 | IE - (ISP(N) - IMV(N)/IDB(N) | |
IF (IE) 500, 600, 700 | ||
500 | CALL DO (IDOC(N), IDO1) | |
GO TO 600 | ||
700 | CALL DO (IDOC(N), IDO2) | |
600 | IF (IB) 800, 900, 900 | |
800 | TEMP | |
C | ||
900 | IF (IC) 10, 20, 20 | |
10 | CALL DISPLAY SUBROUTINE | |
20 | IF(N - 1 LAST) 30, 30, 40 | |
30 | CALL EXIT |