home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / SUBINFO.ZIP / SUBINFO.SUB < prev   
Encoding:
Text File  |  1987-05-07  |  1.5 KB  |  78 lines
  1. '               GET SUBROUTINE NAMES FROM DEFAULT DISK
  2. '
  3. '
  4. 'USAGE:
  5. '       CALL SUBINFOSETUP(FS%,SUBNDX%) - takes some time reading subdirectories
  6. '       DIM TREE$(FS%) - stores info
  7. '
  8. '       from this point on -
  9. '       CALL FINDNEXTSUB(SUBDIR$,TREE$(),SUBNDX%,ERCD%,FS%)
  10. '       returns -
  11. '               SUBDIR$ - name of next subdirectory
  12. '               ERCD% - equals 1 if no more subdirectories
  13. '
  14. '       NOTE!!! YOU MUST HAVE PATH SET TO ACCESS DOS'S TREE.COM!!!
  15.  
  16.  
  17.  
  18. SUB SUBINFOSETUP(FS%,SUBNDX%) STATIC
  19.  
  20.     ERCD%=0
  21.     SHELL "TREE>TREE.TXT"
  22.     SHELL "DIR TREE.TXT>DIR.TXT"
  23.     OPEN "DIR.TXT" FOR INPUT AS #1
  24.     IF EOF(1) THEN GOTO DONE
  25.         FOR I%=1 TO 5
  26.         INPUT #1,A$
  27.         NEXT I%
  28.     FS%=VAL(MID$(A$,13,9))
  29.     CLOSE 1
  30. DONE:
  31.     SUBNDX%=0
  32.     END SUB
  33.  
  34. SUB FINDNEXTSUB(SUBDIR$,TREE$(1),SUBNDX%,ERCD%,FS%) STATIC
  35.  
  36.     IF SUBNDX%<>0 THEN GOTO GETNEXTSUB
  37.     OPEN "TREE.TXT" FOR INPUT AS #1
  38.     SUBNDX%=1
  39.  
  40. GETABYTE:
  41.     IF EOF(1) THEN GOTO ARRAYFILLED
  42.     TREE$(SUBNDX%)=INPUT$(1,#1)
  43.     SUBNDX%=SUBNDX%+1
  44.     GOTO GETABYTE
  45.  
  46. ARRAYFILLED:
  47.     CLOSE 1
  48.     KILL "TREE.TXT"
  49.     KILL "DIR.TXT"
  50.     SUBNDX%=1
  51.  
  52. GETNEXTSUB:
  53.     ERCD%=0
  54.  
  55. READARRAY2:
  56.     IF SUBNDX%>FS% THEN GOTO OOPS2
  57.     IF TREE$(SUBNDX%)="\" THEN GOTO GETSUBNAME2
  58.     SUBNDX%=SUBNDX%+1
  59.     GOTO READARRAY2
  60.  
  61. GETSUBNAME2:
  62.     SUBDIR$="":SUBDIR$=SUBDIR$+TREE$(SUBNDX%)
  63.     SUBNDX%=SUBNDX%+1
  64.  
  65. READMORE2:
  66.     IF SUBNDX%>FS% THEN GOTO OOPS2
  67.     IF TREE$(SUBNDX%)=CHR$(10) THEN GOTO GOTNAME2
  68.     SUBDIR$=SUBDIR$+TREE$(SUBNDX%)
  69.     SUBNDX%=SUBNDX%+1
  70.     GOTO READMORE2
  71.  
  72. OOPS2:
  73.     ERCD%=1
  74.  
  75. GOTNAME2:
  76.     END SUB
  77.  
  78.