home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / d_b_a / 87_01 / sorter.sc < prev    next >
Text File  |  1986-12-05  |  692b  |  29 lines
  1.  
  2.  
  3. ;------------------------------------------ Sorter.SC.
  4. ;----------------- Script to display options and sort.
  5. CLEARALL
  6. CLEAR
  7. SHOWMENU
  8.   "Alphabetical" : "Alphabetical order by name",
  9.   "Zip Code" : "Zip code order for bulk mailing",
  10.   "None" : "Don't sort, return to menu"
  11. TO SChoice
  12.  
  13. ;--- Create message about waiting.
  14. IF SChoice <>  "None" THEN
  15.    Msg = "Sorting the data, please wait"
  16.    STYLE REVERSE, BLINK
  17.    @ 12,25
  18.    ?? Msg
  19. ENDIF
  20.  
  21. ; --------- Sort accordingly.
  22. SWITCH
  23.     CASE SChoice = "Alphabetical" :
  24.          SORT "CustList" ON "Last Name", "First Name"
  25.     CASE SChoice = "Zip Code" :
  26.          SORT "CustList" ON "Zip", "Last Name"
  27. ENDSWITCH
  28. CLEAR
  29.