100 REM   LABSET   SETS UP PERMANENT VIRTUAL ARRAY FOR "LABOR.BAS"
110 OPEN "LABOR.MAT" AS FILE 1%
120 DIM #1%,A$(41%)=64%
130 MAT READ A$
140 FOR X%=1% TO 18%
150 A$(X%)=A$(X%)+SPACE$(23%-LEN(A$(X%))):
   IF X%/2.<>X%/2% THEN A$(X%)=A$(X%)+" "
160 IF X%=1% OR X%=3% THEN A$(X%)=A$(X%)+"%":GOTO 200
170 IF X%/2.=X%/2% THEN IF X%=4% OR X%=14% OR X%=18% THEN
   A$(X%)=A$(X%)+"$" ELSE A$(X%)=A$(X%)+" "
180 IF X%/2.=X%/2% THEN 200
190 IF X%=7% THEN A$(X%)=A$(X%)+" " ELSE A$(X%)=A$(X%)+"$"
200 NEXT X%
210 A$(X%)=A$(X%)+SPACE$(60%-LEN(A$(X%)))+"%" FOR X%=19% TO 22%
220 A$(X%)=A$(X%)+SPACE$(19%-LEN(A$(X%))) FOR X%=23% TO 31%
230 DATA "PROFIT INCREASE","DURATION (MONTHS)","PRODUCTIVITY INCREASE",
        "WAGE RATE","LAST WAGE INCREASE","GUARANTEED OVERTIME",
        "EMPLOYMENT LEVEL","VACATION DAYS/YEAR"
240 DATA "INVENTORY LEVEL","REGULAR HOURS/WEEK","STRIKE FUND",
        "DAYS OF SICK LEAVE","LAST YEAR SALES  MILLION",
        "BONUS AND INSURANCE","LAST YEAR PROFIT","# OF PAID HOLIDAYS"
250 DATA "RATIO: PROFIT/WORKER","OVERTIME WAGE RATE"
260 DATA "CONSUMER PRICE INDEX INCREASE",
        "AVERAGE WAGE INCREASE IN INDUSTRY",
        "RATE OF UNEMPLOYMENT IN INDUSTRY",
        "PRODUCTIVITY INCREASE IN INDUSTRY"
270 DATA "DURATION (MONTHS)","WAGE RATE","GUARANTEED OVERTIME",
        "VACATION DAYS/YEAR","REGULAR HOURS/WEEK","DAYS OF RELIEF/YEAR",
        "YEARLY BONUS","PAID HOLIDAYS","OVERTIME RATE"
280 DATA "COST OF THE NEW CONTRACT DUE TO LABOR'S CONDITIONS -PER WORKER-:"
290 DATA "COST OF THE NEW CONTRACT DUE TO MANAGEMENT'S OFFER -PER WORKER-:"
300 DATA "GROSS PAYROLL","FRINGE BENEFITS","TOTAL........."
310 DATA "CURRENT UNION MEMBERSHIP","CURRENT STRIKE FUND   ($)"
320 DATA "INVENTORY LEVEL -PER WORKER-","UNFILLED ORDERS PER WORKER"
330 DATA "MANAGEMENT EXPECTED COST OF ONE MORE WEEK OF STRIKE"
340 CLOSE 1%
350 END