10 REM EXECUTIVE PROGRAM FOR LPRUN

20 PRINT "*LINEAR PROGRAMMING*"

30 PRINT

40 PRINT "DO YOU NEED A PROBLEM DESCRIPTION ? ('Y'OR 'N')";

50 INPUT I$

60 IF I$="N"   GO TO 160

70 REM LPEXEC********VERSION #1 (7/31/69)****DESCRIPTION OF LPRUN

80 PRINT "GIVEN A=(A(I,J)), B=(B(1),...,B(M)), AND C=(C(1),...,C(N)),"

90 PRINT "THE STANDARD LINEAR PROGRAMMING PROBLEM IS TO FIND ANY OR ALL"

100 PRINT "NON-NEGATIVE X=(X(1),...,X(N)) WHICH MAXIMIZE, (OR MINIMIZE),"

110 PRINT "THE MATRIXRODUCT C*X, SUBJECT TO THE CONDITION A*X<=B."

120 PRINT "C*X IS CALLED THE OBJECTIVE FUNCTION, AND THE INEQUALITIES"

130 PRINT "CONTAINED IN A*X<=B, (OR A*X>=B), ARE CALLED THE LINEAR CON-"

140 PRINT "STRAINTS."

150 PRINT "USE THESE DEFINITIONS IN RUNNING LPRUN."

160 PRINT

170 PRINT "DO YOU NEED INPUT DATA FORMAT INSTRUCTIONS? ('Y' OR 'N')";

180 INPUT I$

190 IF I$="N" THEN 440

200 PRINT

210 REM ****LPINTR****BUSINESS PROGRAM

220 REM LPINTR********VERSION #1  (7/31/69)***NSTRUCTIONS FOR LINPRO

25 PRINT : PRINT "CALL IN THE LP PROGRAM BY 'OLD $LPRUN'"

240 PRINT "ENTER YOUR DATA AS 'DATA'-STATEMENTS STARTING AT LINE 9900."

250 PRINT "FIRST, ARRANGE YOUR CONSTRAINTS SO THAT THE 'LESS THAN'"

260 PRINT "INEQUALITIES PRECEDE THE STRICT EQUALITIES WHICH, IN TURN,"

270 PRINT "PRECEDE THE 'GREATER THAN' INEQUALITIES.

280 PRINT "THEN, TYPE IN AS DATA THE COEFFICIENTS OF THE CONSTRAINTS,"

290 PRINT "ROW BY ROW.

300 PRINT "DO NOT INCLUDE COEFFICIENTS FOR SLA, SURPLUS OR ARTIFICIAL"

310 PRINT "VARIABLES.

320 PRINT "NEXT, TYPE IN AS DATA THE 'B' VECTOR (THE CONSTANTS OR RIGHT-"

330 PRINT "HAND SIDES OF THE CONSTRAINTS) IN THE SAME ORDER AS THE ROWS"

340 PRINT "WERE TYPED ABOVE.  THESE VALUES MUST BE NON-NEGATIVE.

350 PRINT "FINALLY, TYPE IN AS DATA THE COEFFICIENTS OF THE OBJECTIVE"

360 PRINT "FUNCTION.

370 PRINT "AT RUN TIME YOU WILL BE ASKED TO:

380 PRINT "INPUT WHETHER YOU ARE MAXIMIZING THE OBJECTIVE FUNCTION OR"

390 PRINT "MINIZING IT.

400 PRINT "INPUT THE NUMBER OF CONSTRAINTS AND VARIABLES IN YOUR PROGRAM.

410 PRINT "INPUT THE NUMBER OF 'LESS THAN' INEQUALITIES, STRICT"

420 PRINT "EQUALITIES, AND 'GREATER THAN' INEQUALITIES."

430 PRINT "REMEMBER TO ALWAYS TYPE ZEROS WHEN APPLICABLE...

440 PRINT 

450 PRINT "AFTER ENTERING DATA, 'RUN'"

460 END