home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / LIBRDB2.ZIP / SUBS.CMD < prev   
Encoding:
Text File  |  1987-02-14  |  384 b   |  23 lines
  1. * SUBS.CMD - subprogram to list all SUBJECTS in SUBJECTS.DBF
  2.  
  3. ERASE
  4. SELE SECO
  5. GOTO TOP
  6. STORE "    " TO SAME
  7. STORE 0 TO COLCOUNT
  8. DO WHILE .NOT. EOF
  9.  IF SUBJECT <> SAME
  10.    STORE SUBJECT TO SAME
  11.    ?? SUBJECT
  12.    STORE COLCOUNT+1 TO COLCOUNT
  13.    IF COLCOUNT = 3
  14.       STORE 0 TO COLCOUNT
  15.       ?
  16.    ENDIF
  17.  ENDIF
  18.  SKIP
  19. ENDDO
  20. ? "Hit any key to continue"
  21. wait
  22. RETURN
  23. F