home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 December / WPCDEC97.ISO / DXRS / INXWDEC.DXR / 00046.ls < prev    next >
Encoding:
Text File  |  1997-10-13  |  501 b   |  23 lines
  1. on exitFrame
  2.   global CDXSub, CDXSelected, CDXSomething, DriveLtr, MGIIndexNAme
  3.   go(the frame)
  4.   CDXHelpButton()
  5.   if CDXSub = 1 then
  6.     set CDXSub to 2
  7.     CDXDefault()
  8.     if the machineType > 200 then
  9.       dbuse(DriveLtr & "DBFs\" & MGIIndexNAme)
  10.       updateStage()
  11.     else
  12.       dbuse(DriveLtr & "DBFs:" & MGIIndexNAme)
  13.     end if
  14.   end if
  15.   if (CDXSelected = 1) and (CDXSomething = 1) then
  16.     CDXTurnPage()
  17.   end if
  18.   CDXMenuHeadings()
  19.   CDXSearch()
  20.   CDXPressEndSearch()
  21.   CDXQuitCD()
  22. end
  23.