# o: d* l. P" n2 L! ZIB=NUMTRM(I)9 R/ B( [( `; c5 k4 Y2 i. D/ `
( S9 k9 u% }$ M+ S( [9 v
IF (IB.LE.0) RETURN8 F9 v6 w) O3 O, N; o* C
( g. S) ~3 h0 S! O4 _8 M6 T6 F, LIF (MIDTRM) GO TO 900& n7 B m) r& b: R
! Q/ C4 `7 n; P. h4 u9 R
J=STRTIN(1,ISLOT) 5 a5 h. ~1 T8 F1 ?1 q+ M + k3 F8 L$ s2 ? F- tK=STRTIN(2,ISLOT) ; {: q( p) b6 u- z. r k9 ^3 U) o- o: ?3 R0 y# q5 R
GO TO (100,200,300,400),MODE + a' b* {9 v# q! _; X100 STATE(K)=PGENMC(I)/ETERM(I) p0 O4 L3 D I4 K' z0 Z4 w# q, S& M% j/ K7 s, r* F( B4 p: f% S2 u6 W
STATE(K+1)=PGENMC(I)/ETERM(I)$ j$ y& j. b! ~9 l