home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / BF / BF015.ZIP / PCPM4.EXE / arc / CPAMENU.BAS < prev    next >
BASIC Source File  |  1987-08-18  |  4KB  |  182 lines
  1.        REM **** CPAMENU ****
  2.     common cpafile$
  3.     'cpafile$=command$
  4.     cls
  5.  
  6.  
  7.  UpperCase:
  8.     def fnucase$(cpafile$)
  9.         length=len(cpafile$)
  10.         if length=0 then
  11.           exit def
  12.         end if
  13.         for I=1 to length
  14.           ch=asc(mid$(cpafile$,I,1))
  15.           if ch>96 and ch<127 then
  16.             mid$(cpafile$,I,1)=chr$(ch-32)
  17.           end if
  18.         next
  19.         fnucase$=cpafile$
  20.     end def
  21.  
  22.     if len(cpafile$)>0 then
  23.       gosub fileline
  24.     end if
  25.  
  26.     if len(cpafile$)=0 then
  27.       print "                PERSONAL COMPUTER PROJECT MANAGEMENT"
  28.       GetFile1:
  29.         locate 3,1
  30.         input "Enter the name of the input file ";cpafile$
  31.         length=len(cpafile$)
  32.  
  33.         if len(cpafile$)=0 then
  34.           goto GetFile1
  35.         end if
  36.  
  37.         cpafile$=fnucase$(cpafile$)
  38.         gosub fileline
  39.     end if
  40.  
  41.     CLOSE
  42.      DIM B$(20)
  43.  
  44. DosVer:                  'tests for DOS version
  45.     shell "ver >ver.dat"  ' if version 2 then opt 17 disabled
  46.     close                 ' if version 3 the opt 17 enacled
  47.     open "ver.dat" for input as #1
  48.  
  49.     while not eof(1)
  50.       vers$=input$ (1,#1)
  51.       vers=asc(vers$)
  52.  
  53.       if (vers = 49 or vers = 50) then
  54.          goto ver2
  55.       end if
  56.  
  57.       if vers = 51 then
  58.          goto ver3
  59.       end if
  60.  
  61.      testver:
  62.       if ver <= 48 or vers => 52 then
  63.          goto another
  64.       end if
  65.  
  66.      another:
  67.  
  68.     wend
  69.  
  70.     goto ver2
  71.  
  72. ver3:
  73.     O5=17          'NUMBER OF OPTIONS for DOS 3
  74.     goto main
  75.  
  76. ver2:
  77.     O5=16          'NUMBER OF OPTIONS for DOS 2
  78.  
  79. main:
  80.     close #1
  81.     kill "ver.dat"
  82.  
  83.      A$="MENU OF PCPM OPTIONS"
  84.  
  85.      FOR I=1 TO O5
  86.        READ B$(I)
  87.      NEXT I
  88.  
  89.     PRINT
  90.     DATA "INFORMATION","ENTER/CHANGE SUBCONTRACTOR/COMMENT FILE"
  91.     DATA "ENTER/CHANGE INPUT FILE"
  92.     DATA "CREATE/CHANGE HOLIDAYS"
  93.     DATA "PERFORM CRITICAL PATH ANALYSIS","PERFORM CASH FLOW ANALYSIS"
  94.     DATA "PRODUCE BAR CHARTS"
  95.     DATA "SORT OUTPUT","EXTRACT OUTPUT BY SUBCONTRACTOR","CHECK NODE NUMBERS"
  96.     DATA "GET PRECEDENCE OR SUCCEEDENCE DISPLAY"
  97. 430 DATA "CONVERT WORKING DAYS TO PROJECT DAYS"
  98.     DATA "GENERATE CURRENT COST REPORT","CHANGE ALL NODE NUMBERS"
  99.      DATA "CONSOLIDATE UPDATE FILES TO INPUT FILES"
  100.      data "WORK WITH A NEW OR DIFFERENT FILE"
  101.      data "EXIT TEMPORARILY TO DOS"
  102.      PRINT TAB(22);A$
  103.     PRINT
  104.      PRINT TAB(10);"EXIT PCPM SYSTEM";TAB(50);"-  0"
  105.  
  106.      FOR I=1 TO O5
  107.  
  108.         IF I>9 THEN
  109.             goto 520
  110.         end if
  111.  
  112.        PRINT TAB(10);B$(I);TAB(50);"- ";I
  113.        GOTO 530
  114.  
  115. 520     PRINT TAB(10);B$(I);TAB(50);"-";I
  116.  
  117. 530 NEXT I
  118.  
  119.      PRINT
  120.      INPUT "CHOOSE THE ACTION BY ENTERING THE CORRECT INTEGER ",N
  121.      PRINT
  122.  
  123.      IF N=0 THEN
  124.         goto 750
  125.      end if
  126.  
  127.      IF N>O5 OR N<0 THEN
  128.         goto 430
  129.      end if
  130.  
  131.      ON N GOTO 600,620,610,630,640,650,660,670,680,690,700,710,720,730,735,740,745,530
  132.  
  133. 600 chain "CPAINFO"
  134. 610 chain "CPACUI"
  135. 620 chain "CPASBC"
  136. 630 chain "CPAHOLY"
  137. 640 chain "CPACPM"
  138. 650 chain "CPACFA"
  139. 660 chain "CPABAR"
  140. 670 chain "CPASORT"
  141. 680 chain "CPASUBS"
  142. 690 chain "CPANODE"
  143. 700 chain "CPAPRES"
  144. 710 chain "CPADAYS"
  145. 720 chain "CPACOS"
  146. 730 chain "CPACORC"
  147. 735 chain "CPAUPD"
  148. 740 chain "CPANEW"
  149.  
  150. 745 ENVIRON "PROMPT="
  151.      ENVIRON "PROMPT=Type EXIT to return to PCPM$_$P$G
  152.      cls
  153.      SHELL
  154.      cls
  155.      gosub fileline
  156.      goto 430
  157.  
  158. 750 CLS
  159.  
  160.      PRINT "EXITING PCPM SYSTEM - GOODBYE FOR NOW"
  161.  
  162.      IF LEFT$(TIME$,2)="22" THEN
  163.        PRINT
  164.        PRINT "P.S. If you have information to share, why not send a note to Len & Greg?"
  165.      end if
  166.  
  167.   SYSTEM
  168.  
  169. fileline:
  170.      locate 25,1
  171.      color 0,15,0
  172.      locate 25,14
  173.      print "Project currently selected for use is ";cpafile$;"."
  174.      locate 24,1
  175.      color 7,0
  176.      print SPACE$(80);
  177.      locate 1,1
  178.      color 7,0
  179.  return
  180.  
  181. 
  182.