10  FILES ML0005,ML0017
11  PRINT "PLEASE TYPE IN THE NUMBER OF STEPS THEN THE NUMBER OF LANES"
12  PRINT "SEPARATED BY A COMMA."
13  INPUT A,B
20  C=A*B
25  FOR I=1 TO C
26  READ R
30  PRINT #1;R, END 
35  NEXT I
50  FOR I=1 TO C
55  READ R
60  PRINT #2;R, END 
65  NEXT I
69  PRINT 
70  PRINT "WHAT NUMBER DO YOU WANT TO MULTIPLY YOUR SCHEDULE BY?"
71  PRINT "(SEE INSTRUCTIONS FOR DETAILS.)  IF YOU DO NOT WANT TO"
72  PRINT "MULTIPLY YOUR SCHEDULE, TYPE IN A  1 ."
73  INPUT Q9
90  DIM Z$[7]
110  DIM X[15,14],Y[16,15],Z[16,15],M[15],N[15]
120  DIM A$[7],B$[7],C$[7],D$[7],E$[7],F$[7],G$[7],H$[7],I$[7],J$[7]
130  DIM K$[7],L$[7],M$[7],N$[7],O$[7]
150  PRINT 
160  PRINT "PLEASE ENTER YOUR LANE HEADINGS.  MAXIMUM HEADING "
170  PRINT "LENGTH IS  7  CHARACTERS.  PLEASE TYPE ONLY 0NE "
180  PRINT "LANE HEADING AFTER EACH QUESTION MARK THAT FOLLOWS."
190  L=0
200  FOR O=1 TO B
210  INPUT Z$
220  L=L+1
230  GOTO L OF 260,280,300,320,340,360,380,400,420,440,455,465,475,485,495
240  IF L>B THEN 2358
245  NEXT O
250  GOTO 500
260  A$=Z$
270  GOTO 240
280  B$=Z$
290  GOTO 240
300  C$=Z$
310  GOTO 240
320  D$=Z$
330  GOTO 240
340  E$=Z$
350  GOTO 240
360  F$=Z$
370  GOTO 240
380  G$=Z$
390  GOTO 240
400  H$=Z$
410  GOTO 240
420  I$=Z$
430  GOTO 240
440  J$=Z$
450  GOTO 240
455  K$=Z$
460  GOTO 240
465  L$=Z$
470  GOTO 240
475  M$=Z$
480  GOTO 240
485  N$=Z$
490  GOTO 240
495  O$=Z$
499  GOTO 240
500  MAT X=ZER
502  PRINT 
505  MAT Z=ZER
510  MAT Y=ZER
515  READ #1,1
520  FOR I=1 TO A
530  FOR J=1 TO B
540  READ #1;Y[I,J]
550  IF  END #1 THEN 590
560  NEXT J
570  NEXT I
580  GOTO 595
590  PRINT "STOP THE COMPUTER HAS NOT READ THE 'PROP"'1'6"ILE PROPERLY'."
595  READ #2,1
600  FOR I=1 TO A
610  FOR J=1 TO B
620  READ #2;X[I,J]
625  X[I,J]=INT((X[I,J]*Q9)+.5)
630  IF  END #2 THEN 670
640  NEXT J
650  NEXT I
660  GOTO 680
670  PRINT "STOP THE COMPUTER HAS NOT READ THE 'PERMAT FILE PROPERLY'."
680  PRINT "DO YOU WISH TO ADVANCE ALL TEACHERS ONE STEP FOR"
690  PRINT "PROJECTED COST COMPUTATIONS? (TYPE 1 FOR YES, 2 FOR NO.)"
700  INPUT Q4
710  IF Q4=2 THEN 810
720  FOR I=2 TO A-1
730  FOR J=1 TO B
740  LET Z[I,J]=X[I,J]*Y[I-1,J]
750  NEXT J
760  NEXT I
770  FOR J=1 TO B
780  Z[A,J]=X[A,J]*(Y[A,J]+Y[A-1,J])
790  NEXT J
800  GOTO 860
810  FOR I=1 TO A
820  FOR J=1 TO B
830  LET Z[I,J]=X[I,J]*Y[I,J]
840  NEXT J
850  NEXT I
860  P1=P2=0
870  FOR I=1 TO A
880  FOR J=1 TO B
890  Y[I,B+1]=Y[I,B+1]+Y[I,J]
900  NEXT J
910  LET P2=Y[I,B+1]*I+P2
920  NEXT I
930  FOR J=1 TO B
940  FOR I=1 TO A
950  LET Y[A+1,J]=Y[A+1,J]+Y[I,J]
960  NEXT I
970  LET P1=P1+Y[A+1,J]
980  NEXT J
990  LET Y[A+1,B+1]=P1
995  PRINT 
1000  PRINT "DO YOU WANT A PRINTOUT OF THE PERSONNEL MATRIX?"
1010  PRINT "(TYPE 1 FOR YES, 2 FOR NO.)"
1020  INPUT D3
1030  IF D3=2 THEN 1220
1040  PRINT 
1045  PRINT 
1050  PRINT "     *****PERSONNEL MATRIX (TRAINING BY EXPERIENCE)*****"
1060  PRINT 
1070  FOR J=1 TO B
1080  PRINT "LANE"J,
1090  NEXT J
1100  PRINT 
1110  PRINT 
1120  FOR I=1 TO A+1
1130  FOR J=1 TO B+1
1140  PRINT Y[I,J],
1150  NEXT J
1160  PRINT 
1170  PRINT 
1180  NEXT I
1190  PRINT 
1200  PRINT "THE AVERAGE STEP (ROW) ATTAINED BY YOUR CURRENT STAFF"
1210  PRINT "IS"INT((P2/P1)*100+.5)/100
1220  PRINT 
1230  PRINT 
2145  PRINT 
2348  PRINT 
2350  L=L+1
2351  Z$="TOTAL"
2352  GOTO 230
2355  PRINT 
2358  PRINT 
2360  PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
2370  PRINT 
2380  PRINT 
2390  PRINT 
2400  PRINT "    *****COST BY CATEGORY FOR THE PROPOSED SALARY SCHEDULE*****"
2410  PRINT 
2420  G=0
2430  FOR I=1 TO A
2440  FOR J=1 TO B
2450  LET Z[I,B+1]=Z[I,B+1]+Z[I,J]
2460  NEXT J
2470  LET G=Z[I,B+1]+G
2480  NEXT I
2490  FOR J=1 TO B
2500  FOR I=1 TO A
2510  LET Z[A+1,J]=Z[A+1,J]+Z[I,J]
2520  NEXT I
2530  NEXT J
2540  LET Z[A+1,B+1]=G
2580  PRINT 
2590  PRINT 
2600  PRINT "  "A$,"  "B$,"  "C$,"  "D$,"  "E$
2610  PRINT "  -------","  -------","  -------","  -------","  -------"
2615  PRINT 
2620  PRINT 
2630  FOR I=1 TO A+1
2640  FOR J=1 TO 5
2650  PRINT "$"Z[I,J],
2660  NEXT J
2670  PRINT 
2680  PRINT 
2690  NEXT I
2700  PRINT 
2720  PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
2730  PRINT 
2740  PRINT 
2750  PRINT 
2760  PRINT 
2765  IF B <= 5 THEN 3380
2770  PRINT 
2780  PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
2782  PRINT 
2783  PRINT 
2784  PRINT 
2785  PRINT "*****COST BY CATEGORY FOR THE PROPOSED SALARY SCHEDULE (CONT)*****"
2786  PRINT 
2787  PRINT 
2788  PRINT 
2790  PRINT "  "F$,"  "G$,"  "H$,"  "I$,"  "J$
2791  IF B <= 9 THEN 2800
2793  FOR J=6 TO 10
2795  PRINT "  -------",
2796  NEXT J
2798  GOTO 2808
2800  FOR J=6 TO B+1
2805  PRINT "  -------",
2806  NEXT J
2808  REM
2810  PRINT 
2812  PRINT 
2820  IF B >= 10 THEN 2900
2830  FOR I=1 TO A+1
2840  FOR J=6 TO B+1
2850  PRINT "$"Z[I,J],
2860  NEXT J
2870  IF B=9 THEN 2875
2872  PRINT 
2875  PRINT 
2877  PRINT 
2880  NEXT I
2885  PRINT 
2890  GOTO 3010
2900  FOR I=1 TO A+1
2910  FOR J=6 TO 10
2920  PRINT "$"Z[I,J],
2930  NEXT J
2940  PRINT 
2950  PRINT 
2980  NEXT I
2990  PRINT 
3010  PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
3020  PRINT 
3030  PRINT 
3040  PRINT 
3045  IF B <= 9 THEN 3380
3050  PRINT 
3080  PRINT "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
3090  PRINT 
3100  PRINT 
3110  PRINT 
3120  PRINT "*****COST BY CATEGORY FOR THE PROPOSED SALARY SCHEDULE (CONT)*****"
3130  PRINT 
3135  PRINT 
3140  PRINT 
3150  PRINT "  "K$,"  "L$,"  "M$,"  "N$,"  "O$
3160  FOR J=11 TO B+1
3170  PRINT "  -------",
3180  NEXT J
3185  IF B=14 THEN 3200
3190  PRINT 
3200  PRINT 
3210  PRINT 
3220  FOR I=1 TO A+1
3230  FOR J=11 TO B+1
3240  PRINT "$"Z[I,J],
3250  NEXT J
3260  IF B=14 THEN 3280
3270  PRINT 
3280  PRINT 
3290  PRINT 
3300  NEXT I
3310  PRINT 
3330  PRINT "$$$$$$$$$"'4"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
3340  PRINT 
3350  PRINT 
3360  PRINT 
3370  PRINT 
3380  PRINT 
3390  PRINT "THE TOTAL COST FOR THE PROPOSED SALARY SCHEDULE IS $"G
3400  PRINT 
3410  PRINT 
3420  G1=G2=0
3430  FOR J=1 TO B
3440  M[J]=Y[A+1,J]*X[1,J]
3450  LET G1=G1+M[J]
3460  NEXT J
3470  PRINT "THE TOTAL COST FOR THIS SALARY SCHEDULE WOULD BE $"G1
3480  PRINT "IF ALL TEACHERS WERE PLACED ON STEP 1"
3490  PRINT 
3500  PRINT 
3510  PRINT "THE COST OF THE EXPERIENCE INCREMENTS FOR THIS SCHEDULE IS $"G-G1
3520  FOR I=1 TO A
3530  N[I]=Y[I,B+1]*X[I,1]
3540  LET G2=G2+N[I]
3550  NEXT I
3560  PRINT 
3570  PRINT 
3580  PRINT "THE TOTAL COST FOR THIS SALARY SCHEDULE WOULD BE $"G2
3590  PRINT "IF ALL TEACHERS WERE PLACED IN LANE 1"
3600  PRINT 
3610  PRINT 
3620  PRINT "THE COST OF TRAINING INCREMENTS FOR THIS SCHEDULE IS $"G-G2
3630  PRINT 
3640  PRINT 
3650  PRINT "THE RATIO OF THE COST OF EXPERIENCE INCREMENTS TO THE"
3660  PRINT "COST OF TRAINING INCREMENTS IS"INT(((G-G1)/(G-G2))*100+.5)/100
3670  PRINT 
3680  PRINT 
3690  PRINT "THE AVERAGE SALARY PER TEACHER FOR THE PROPOSED"
3700  PRINT "SALARY SCHEDULE IS $"INT((G/P1)*100+.5)/100
3710  PRINT 
3720  PRINT 
3730  PRINT 
3740  END 
