home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / c / civil-ab.zip / MNDOTHYD.ZIP / MENU.BAS < prev    next >
BASIC Source File  |  1985-09-18  |  1KB  |  22 lines
  1. 10   CLS:CLOSE:DIM C$(255):Y=1:M=6:NA$="dirlist":ON ERROR GOTO 110
  2. 20   OPEN "I",#1,NA$:ON ERROR GOTO 50
  3. 30   LINE INPUT #1,A$:B$=MID$(A$,10,3)
  4. 40 IF B$="BAS" OR B$="LYN" OR B$="DUL" OR B$="DOC" THEN C$(Y)=LEFT$(A$,12):Y=Y+1
  5. 45  GOTO 30
  6. 50 PRINT "  OPTION #          PROGRAM NAME" :PRINT"  --------          ------------"
  7. 55 IF Y>17 THEN LOCATE 1,40:PRINT "  OPTION #          PROGRAM NAME" :LOCATE 2,40:PRINT"  --------          ------------"
  8. 60  FOR X=1 TO Y-1:IF X>17 THEN LOCATE X-15,40:IF M< 40 THEN M=M+40
  9. 65  PRINT TAB(M);X;TAB(M+15);C$(X):NEXT X
  10. 70  CLOSE #1: CLOSE #2: PRINT
  11. 71  PRINT "NOTE: FOR BOX CULVERT USE TRAP.BAS PROGRAM WITH 0:1 SIDE SLOPES."
  12. 72 PRINT:PRINT "NOTE TO USERS:":PRINT "This software was developed by MNDOT and distribution should only be as         authorized by MNDOT."
  13. 74 PRINT "The programs have been reasonably tested however, MNDOT does not assume
  14. 75 PRINT "responsibility or liability for financial loss which may result from their use."
  15. 76 PRINT "The engineer/technician operating the programs should possess the background andskill necessary to correctly interpret the results."
  16. 78 LOCATE 22,1
  17. 80  INPUT"ENTER OPTION #  ",T:D$=LEFT$(C$(T),9)+"."+MID$(C$(T),10,3)
  18. 90  W=INSTR(D$," "):F$=LEFT$(D$,W-1)+RIGHT$(D$,4):CLS:PRINT "PLEASE BE PATIENT WHILE THE PROGRAM IS LOADED":CHAIN F$
  19. 100  RESUME 110
  20. 110  ON ERROR GOTO 0
  21. 120  END
  22.