home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / sprint / imp123.zip / IMP123.SPM < prev    next >
Text File  |  1989-03-01  |  590b  |  31 lines
  1. Import123:
  2.     set Q0 "*.WK*"
  3.     message "\nLotus 123 File: " set Q0
  4.     if length Q0
  5.         set Q1 flist Q0
  6.     else set Q1 flist "*.WK*"
  7.     if (exist Q1) {
  8.         32 call "IMP123" Q1
  9.         if (exist "IMP123.TGO") {
  10.             read "IMP123.TGO"
  11.             fdelete "IMP123.TGO"
  12.         }
  13.     }
  14.  
  15. FilesMenu :
  16.     menu "File" {
  17.     "New"            NewFile,
  18.     "Open"            OpenFile,
  19.     "Close"            CloseFile,
  20.     "Insert"            InsertFile,
  21.     "Lotus 123 Import"        Import123,
  22.     "_",
  23.     "Save"            Save,
  24.     "Write As"        WriteFile,
  25.     "Revert to Saved"    RevertToSaved,
  26.     "_",
  27.     "Translate"        FileTrans,
  28.     "File Manager"        DiskDirectory,
  29.     "Pick from List"    pickfile
  30.         }
  31.