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