home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 1997 August / Personal_Computer_World_Aug_97.iso / dxrs / cdxpcw08.dxr / 00018.ls < prev    next >
Encoding:
Text File  |  1997-05-22  |  501 b   |  23 lines
  1. on exitFrame
  2.   global CDXSub, CDXSelected, CDXSomething, DriveLtr, CDXIndexNAme
  3.   go(the frame)
  4.   CDXPressEndSearch()
  5.   CDXHelpButton()
  6.   if CDXSub = 1 then
  7.     set CDXSub to 2
  8.     CDXDefault()
  9.     if the machineType > 200 then
  10.       dbuse(DriveLtr & "DBFs\" & CDXIndexNAme)
  11.       updateStage()
  12.     else
  13.       dbuse(DriveLtr & "DBFs:" & CDXIndexNAme)
  14.     end if
  15.   end if
  16.   if (CDXSelected = 1) and (CDXSomething = 1) then
  17.     CDXTurnPage()
  18.   end if
  19.   CDXMenuHeadings()
  20.   CDXSearch()
  21.   CDXQuitCD()
  22. end
  23.