C-8K MODV 11-219

13.01 A ?EF?,?GF?,?EM?,?GM?
13.02 S SI=1
13.03 IF (EF-GF)13.04,13.05,13.05
13.04 DO 13.70; S SI=(-1)^(GF+EF+1); S SJ=-1
13.05 IF (GM-EM+1)13.07,13.06,13.07
13.06 DO 13.71; S SI=SI*(-1)^(GF+EF+1); S SS=-1
13.07 IF ((EF-GF)^2-1)13.08,13.08,13.60
13.08 IF ((EM-GM)^2-1)13.13,13.13,13.61
13.13 IF (EF-GF)13.20,13.15,13.20
13.15 IF (EM-GM)13.30,13.33,13.30
13.20 IF (EM-GM)13.36,13.39,13.36
13.30 S TJ=(EF-EM)*(EF+EM+1)*2/(EF+1)*(2*EF+1)*(4*EF)
13.31 S TJ=(-1)^(EF-EM)*FSQT(TJ); GOTO 13.45
13.33 S TJ=EM^2/(2*EF+1)*(EF+1)*(EF)
13.34 S TJ=(-1)^(EF-EM)*FSQT(TJ); GOTO 13.45
13.36 S TJ=(EF-1-EM(*(EF-EM)/(2*EF+1)*(2*EF)*(2*EF-1)
13.37 S TJ=(-1)^(EF-EM)*FSQT(TJ); GOTO 13.45
13(39 S J=(EF+EM)*(EF-EM)*2/(2*EF+1)*(2*EF)*(2*EF-1)
13.40 S TJ=(-1)^(EF-EM)*FSQT(TJ); GOTO 13.45
13.45 S TJ=TJ*SI; S SI=1; IF (SJ+1)13.50,13.47,13.50
13.47 DO 13.70
13.50 S SJ=1; IF (SS+1)13.55,13.52,13.55
13.52 DO 13.71
13.55 S SS=1;T ?TJ?,!;Q
13.60 T "DELTA J IS BIGGER THAN 1, TRY AGAIN", !
13.61 T "DELTA M IS BIGGER THAN 1, TY AGAIN", ! 
13.70 S XX=GF; S GF=EF; S EF=XX; S XX=GM; S GM=EM; S EM=XX
13.71 S GM=-GM; S EM=-EM
*