'Copyright 1995-98, Lotus Development Corporation. All rights reserved.
%if GEMINI
%elseif IBM_OS2
%end if
%if GEMINI
Use "LTAPGN11"
%elseif IBM_OS2
Use "LTAPGO11"
%end if
Sub Initialize
   ClientMainWinClass = GEMINI_MAINWINCLASS
   ClientID = AN_GEMINI
   ClientModName = GEMINI_PERSMODNAME
   ClientLotusAppID = "GEMINI"
   ShowMeModName = "220"
   AnimVersionNum =  2.36 
   NumFramesThisAnim =  23 
   AnimationType = "QuickDemo"
   SampleFile = "ssdn18??.123"
   AnimName = GetString( "2200000", IResult% )
End Sub

Public Sub ShowMe (theNextStep As Integer)

GetCursorPos TempPos
CursorPosForStep(theNextStep) = TempPos

Select Case theNextStep

Case  1 
   StepsText = GetString( "2201001", IResult% )
   Delay 1000
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (CELL_OBJ_G,"",7,16,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   Exit Sub

Case  2 
   StepsText = GetString( "2201002", IResult% )
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   Exit Sub

Case  3 
   StepsText = GetString( "2201003", IResult% )
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (CELL_OBJ_G,"",1,16,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   Exit Sub

Case  4 
   'Page down if required
Dim theScreenHeight As Integer
theScreenHeight = GetSystemMetrics( SM_CYSCREEN)

If theScreenHeight < 700 Then
     SendCtrlKeys  "{PGDN}", 100
End If
   Exit Sub

Case  5 
   StepsText = GetString( "2201004", IResult% )
   Delay 500
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (CELL_OBJ_G,"",1,32,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   Exit Sub

Case  6 
   StepsText = GetString( "2201005", IResult% )
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   Exit Sub

Case  7 
   'Page up if required
Dim theScreenHeight2 As Integer
theScreenHeight2 = GetSystemMetrics( SM_CYSCREEN)

If theScreenHeight < 700 Then
     SendCtrlKeys  "{PGUP}", 100
End If

   Exit Sub

Case  8 
   StepsText = GetString( "2201006", IResult% )
   Delay 500
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (CELL_OBJ_G,"",7,16,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   Exit Sub

Case  9 
   StepsText = GetString( "2201007", IResult% )
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (ROW_LEVEL_LABEL_G,"",1,1,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  10 
   StepsText = GetString( "2201008", IResult% )
   Delay 500
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (CELL_OBJ_G,"",1,3,0,0,ClientID)
   ShowTextBubble StepsText,  0,  1, NorthEast
   HideTextBubble
   Exit Sub

Case  11 
   StepsText = GetString( "2201009", IResult% )
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (CELL_OBJ_G,"",1,19,0,0,ClientID)
   ShowTextBubble StepsText,  0,  1, NorthEast
   HideTextBubble
   Exit Sub

Case  12 
   StepsText = GetString( "2201010", IResult% )
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (CELL_OBJ_G,"",1,35,0,0,ClientID)
   ShowTextBubble StepsText,  0,  1, NorthEast
   HideTextBubble
   Exit Sub

Case  13 
   StepsText = GetString( "2201011", IResult% )
   Delay 500
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (CELL_OBJ_G,"",7,16,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, SouthWest
   HideTextBubble
   Exit Sub

Case  14 
   StepsText = GetString( "2201012", IResult% )
   ShowTextBubble StepsText,  .5,  .5, SouthWest
   HideTextBubble
   Exit Sub

Case  15 
   StepsText = GetString( "2201013", IResult% )
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (COL_LEVEL_LABEL_G,"",1,1,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  16 
   StepsText = GetString( "2201014", IResult% )
   Delay 1000
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (COLUMN_SELECTOR_G,"",1,1,0,0,ClientID)
   ShowTextBubble StepsText,  1,  1, SouthEast
   HideTextBubble
   Exit Sub

Case  17 
   StepsText = GetString( "2201015", IResult% )
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (COLUMN_SELECTOR_G,"",5,1,0,0,ClientID)
   ShowTextBubble StepsText,  1,  1, SouthEast
   HideTextBubble
   Exit Sub

Case  18 
   StepsText = GetString( "2201016", IResult% )
   Delay 500
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (CELL_OBJ_G,"",8,16,0,0,ClientID)
   ShowTextBubble StepsText,  0,  .5, NorthEast
   HideTextBubble
   Exit Sub

Case  19 
   StepsText = GetString( "2201017", IResult% )
   ShowTextBubble StepsText,  0,  .5, NorthEast
   HideTextBubble
   Exit Sub

Case  20 
   StepsText = GetString( "2201018", IResult% )
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (COL_OUTLINE_OBJECT_G,"",7,1,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   Exit Sub

Case  21 
   StepsText = GetString( "2201019", IResult% )
   Delay 500
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (COL_OUTLINE_OBJECT_G,"",7,1,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   MoveToObj Center
   DoMouse WM_LBUTTONDOWN%, 0
   DoMouse WM_LBUTTONUP%, 0
   Exit Sub

Case  22 
   StepsText = GetString( "2201020", IResult% )
   Delay 1000
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (COL_OUTLINE_OBJECT_G,"",7,1,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   Exit Sub

Case  23 
   StepsText = GetString( "2201021", IResult% )
   X = SetTargetWindow (ToolWin_G, "ssdn18??.123", ClientID, DeskwHdl.val)
   X = DoWhereIs (CELL_OBJ_G,"",7,5,0,0,ClientID)
   ShowTextBubble StepsText,  .5,  .5, NorthEast
   HideTextBubble
   Exit Sub
End Select
End Sub