!I
4&O[K[M[NZO@@C-FOCAL,1969?MZ%BJA !"TWO PROCESS JOB SHOP SIMULATION"!!?MZ?BKA !"PLEASE ENTER NUMBER OF JOBS TO BE DONE"!,M?M[ BLA !"PLEASE ENTER TIMES FOR EACH JOB ON PROCESS ONE AND TWO"!?M[0BMA !"SEPARATED BY SPACES"!?M@\GDAFOR I=1,M;T !"JOB ",%2,I ; A A(I), B(I)?M@\UFAS IL=M; S I1=1;S ID=0?M@\$FBS SM=1E6;FOR I=1,M; DO 4?M\+FCGOTO 5.1?M]HHAIF (A(I)-B(I))4.06;IF (SM-B(I))4.09;S JO=2;GOTO 4.08?M]WHFIF (SM-A(I))4.09;S JO=1?M@].HHS IO=I;S SM=A(I);IF (JO-2)4.09;S SM=B(I)?M]4HIRETURN?M^NJJIF (JO-2)5.11;S IS(IL)=IO;S IL=IL-1;GOTO 5.12?M@^\JKS IS(I1)=IO;S I1=I1+1?M@^0JLS A(IO)=1E6;S B(IO)=1E7;S ID=ID+1?M@^<JMIF (ID-M)3.02,5.14?M
SJNT !"THE OPTIMAL PRODUCTION SCHEDULE IS"!?M
 JOFOR I=1,M;T !, IS(I)?M@@JTTYPE !"GLAD TO BE OF HELP."!;QUIT?M@M@@@@BX@@@I@@@@CP@@@A@@A@T^!H@B@@A@XSD-@A@@B@T^!H@B@@B@XSD-@A@@C@T^!H@B@@C@XSD-@IL@@@@@@@@I1@@@AP@@@ID@@@BX@@@SM@@@CT@@@JO@@@BP@@@IO@@@BP@@@IS@C@BX@@@IS@B@AP@@@IS@A@BP@@@OG[^SGOG[ SGOG[
K
8!K [!O
K^
 S
S S!+USG/G&@"="3@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@