Define b(c,d)=
Prgm
:If c=2 and d=0 Then
:Disp "Linear, 180"
:ElseIf c=3 and d=0 Then
:Disp "Trigonal Planar 120"
:ElseIf c=2 and d=1 Then
:Disp "Trigonal Planar Bent/V-Shaped <120(116)"
:ElseIf c=4 and d=0 Then
:Disp "Tetrahedral"
:ElseIf c=3 and d=1 Then
:Disp "Trigonal pyramidal 107"
:ElseIf c=2 and d=2 Then
:Disp "Tetrahedral Bent 104.5"
:ElseIf c=5 and d=0 Then
:Disp "Trigonal Bipyramidal 120, 90"
:ElseIf c=4 and d=1 Then
:Disp "Seesaw <120, 90"
:ElseIf c=3 and d=2 Then
:Disp "T-Shaped 90"
:ElseIf c=2 and d=3 Then
:Disp "Linear 180"
:ElseIf c=6 d=0 Then
:Disp "Octahedral 90"
:ElseIf c=5 and d=1 Then
:Disp "Square Pyramidal 82, 90"
:ElseIf c=4 and d=2 Then
:Disp "Square Planar 90"
:EndIf
:EndPrgm
Prgm
:If c=2 and d=0 Then
:Disp "Linear, 180"
:ElseIf c=3 and d=0 Then
:Disp "Trigonal Planar 120"
:ElseIf c=2 and d=1 Then
:Disp "Trigonal Planar Bent/V-Shaped <120(116)"
:ElseIf c=4 and d=0 Then
:Disp "Tetrahedral"
:ElseIf c=3 and d=1 Then
:Disp "Trigonal pyramidal 107"
:ElseIf c=2 and d=2 Then
:Disp "Tetrahedral Bent 104.5"
:ElseIf c=5 and d=0 Then
:Disp "Trigonal Bipyramidal 120, 90"
:ElseIf c=4 and d=1 Then
:Disp "Seesaw <120, 90"
:ElseIf c=3 and d=2 Then
:Disp "T-Shaped 90"
:ElseIf c=2 and d=3 Then
:Disp "Linear 180"
:ElseIf c=6 d=0 Then
:Disp "Octahedral 90"
:ElseIf c=5 and d=1 Then
:Disp "Square Pyramidal 82, 90"
:ElseIf c=4 and d=2 Then
:Disp "Square Planar 90"
:EndIf
:EndPrgm