home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DBASII.ARC / SUBS.PRG < prev   
Text File  |  1980-01-01  |  384b  |  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