home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / BF / BF015.ZIP / PCPM4.EXE / arc / PCPM.BAS < prev   
BASIC Source File  |  1987-12-04  |  4KB  |  173 lines
  1.     '      **** PCPM COPYRIGHT NOTICE AND PLEA FOR CASH
  2.     common cpafile$
  3.     cpafile$=command$
  4.     CLS
  5.    PRINT
  6.    REM ******************
  7.    REM TOP LINE
  8.    REM ******************
  9.     PRINT CHR$(201);
  10.  
  11.    FOR R=1 TO 74
  12.         PRINT CHR$(205);
  13.     NEXT R
  14.  
  15.     PRINT CHR$(187)
  16.     REM **********************
  17.     REM THE MIDDLE STARTS HERE
  18.     REM **********************
  19.     LOCATE 3,1
  20.     PRINT CHR$(186);
  21.     LOCATE 3,76
  22.     PRINT CHR$(186)
  23.     LOCATE 4,1
  24.     PRINT CHR$(186)
  25.     LOCATE 4,20
  26.     PRINT"PERSONAL COMPUTER PROJECT MANAGEMENT"
  27.     LOCATE 4,76
  28.     PRINT CHR$(186)
  29.     LOCATE 5,1
  30.     PRINT CHR$(186)
  31.     LOCATE 5,76
  32.     PRINT CHR$(186)
  33.     LOCATE 6,1
  34.     PRINT CHR$(186)
  35.     LOCATE 6,76
  36.     PRINT CHR$(186)
  37.     LOCATE 7,1
  38.     PRINT CHR$(186)"     If  you use this program  and find it helpful,";
  39.     PRINT " a registration fee"
  40.     LOCATE 7,76
  41.     PRINT CHR$(186)
  42.     LOCATE 8,1
  43.      PRINT CHR$(186)"     of  $50.00  would  be appreciated.  Registered owners receive the"
  44.     LOCATE 8,76
  45.     PRINT CHR$(186)
  46.     LOCATE 9,1
  47.      PRINT CHR$(186);"     hardcopy manual and the latest version of PCPM on a diskette."
  48.     LOCATE 9,76
  49.     PRINT CHR$(186)
  50.     LOCATE 10,1
  51.     PRINT CHR$(186)
  52.     LOCATE 10,76
  53.     PRINT CHR$(186)
  54.     LOCATE 11,1
  55.     PRINT CHR$(186)"     You are encouraged to copy and share this program";
  56.     PRINT " with others who" 
  57.     LOCATE 11,76
  58.     PRINT CHR$(186)
  59.     LOCATE 12,1
  60.      PRINT CHR$(186)"     you  feel  may  benefit  from  it,  on  the  condition";
  61.      PRINT "  that  the"
  62.     LOCATE 12,76
  63.     PRINT CHR$(186)
  64.     LOCATE 13,1
  65.     PRINT CHR$(186)"     program  is  not  distributed  in modified form, that";
  66.     PRINT" no  fee  is"  
  67.     LOCATE 13,76
  68.     PRINT CHR$(186)
  69.     LOCATE 14,1
  70.     PRINT CHR$(186)"     charged, and that this notice is not changed, bypassed or removed."
  71.     LOCATE 14,76
  72.     PRINT CHR$(186)
  73.     LOCATE 15,1
  74.     PRINT CHR$(186)
  75.     LOCATE 15,76
  76.     PRINT CHR$(186)
  77.     LOCATE 16,1
  78.     PRINT CHR$(186)"     Send a check or money order to:
  79.     LOCATE 16,76
  80.     PRINT CHR$(186)
  81.     LOCATE 17,1
  82.     PRINT CHR$(186)
  83.     LOCATE 17,76
  84.     PRINT CHR$(186)
  85.     LOCATE 18,1
  86.     PRINT CHR$(186)
  87.     LOCATE 18,17
  88.     PRINT "            Len Shepard"
  89.     LOCATE 18,76
  90.     PRINT CHR$(186)
  91.     LOCATE 19,1
  92.     PRINT CHR$(186)
  93.     LOCATE 19,17
  94.     PRINT "        17780 Rosedown Place"
  95.     LOCATE 19,76
  96.     PRINT CHR$(186)
  97.     LOCATE 20,1
  98.     PRINT CHR$(186)
  99.     LOCATE 20,17
  100.     PRINT "        San Diego, CA  92128"
  101.     LOCATE 20,76
  102.     PRINT CHR$(186)
  103.     LOCATE 21,1
  104.     PRINT CHR$(186)
  105.     LOCATE 21,76
  106.      PRINT CHR$(186)
  107.      LOCATE 22,1
  108.      PRINT CHR$(186)
  109.      LOCATE 22,17
  110.     PRINT""      'used to put phone number here
  111.      LOCATE 22,76
  112.      PRINT CHR$(186)
  113.      REM *********************
  114.      REM THIS IS THE LAST LINE
  115.      REM *********************
  116.      PRINT CHR$(200);
  117.  
  118.       FOR R=1 TO 74
  119.          PRINT CHR$(205);
  120.       NEXT R
  121.  
  122.       PRINT CHR$(188)
  123.  
  124.   first:
  125.       print "Hit the space bar to continue..."
  126.  
  127.   second:
  128.       IF INKEY$ <> "" THEN
  129.          GOTO second
  130.       end if
  131.  
  132.   third:
  133.      CMD$ = INKEY$
  134.  
  135.       IF CMD$ = " " THEN
  136.             GOTO fourth
  137.       end if
  138.  
  139.     GOTO third
  140.  
  141.     fourth:
  142.       KEY OFF:COLOR 12,0,0:CLS
  143.       LOCATE 5,25,0:PRINT "Critical Path Method Scheduling"
  144.       LOCATE 7,23,0:PRINT "Personal Computer Project Management"
  145.       COLOR 15,0:LOCATE 10,29,0:PRINT STRING$(23,178)
  146.       LOCATE 11,29,0:PRINT CHR$(178)+STRING$(21,32)+CHR$(178)
  147.       LOCATE 12,29,0:PRINT CHR$(178)+"        PCPM         "+CHR$(178)
  148.       LOCATE 13,29,0:PRINT CHR$(178)+STRING$(21,32)+CHR$(178)
  149.       LOCATE 14,29,0:PRINT CHR$(178)+"    Version 4.00     "+CHR$(178)
  150.       LOCATE 15,29,0:PRINT CHR$(178)+STRING$(21,32)+CHR$(178)
  151.       LOCATE 16,29,0:PRINT STRING$(23,178)
  152.       COLOR 12,0:LOCATE 19,23,0:PRINT "(C) Copyright LEN SHEPARD 1983-1987"
  153.       LOCATE 20,23,0:PRINT"Portions Copyright Microsoft Corp."
  154.       LOCATE 21,23,0:PRINT"(C) 1986, all rights reserved."
  155.       COLOR 14,0:LOCATE 23,27,0:PRINT "Press space bar to continue"
  156.  
  157. 1330 IF INKEY$ <> "" THEN
  158.          GOTO 1330
  159.       end if
  160.  
  161. 1340 CMD$ = INKEY$
  162.  
  163.      IF CMD$ = " " THEN GOTO 1370
  164.       GOTO 1340
  165.  
  166. 1370 COLOR 7,0,0
  167.      CLS
  168.      WIDTH 80
  169.       close
  170.       chain "cpamenu"
  171.  
  172.  
  173.