home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / DBASEII / SUPRCKBK.LBR / LNAMES.FRM < prev    next >
Text File  |  2000-06-30  |  512b  |  24 lines
  1.  
  2. n
  3. n
  4. n
  5. 25,NAME
  6. The Place Of Business Name;************************
  7. 10,CODE:NU
  8. Code Number;**********
  9. 
  10.   READ
  11.   LOCATE FOR code:nu = xelno
  12.   REPLACE name WITH 'Deleted'
  13.  ENDIF xes = '2'
  14.  IF xes = '3'
  15.   ERASE
  16.   @ 10,5 SAY 'Sorting By Code Numbers Please Wait'
  17.   INDEX ON code:nu TO c:code
  18.   USE b:codes INDEX c:code
  19.   STORE 1 TO xxx
  20.   DO WHILE xxx
  21.    ERASE
  22.    @ 08,20 SAY 'Enter 0 For Sorted Output To Printer '
  23.    @ 10,20 SAY 'Enter 1 For Sorted Output To Display '
  24.    @ 12,20 SAY '