4094
609@X2,@TT@,43)-Q
3
3840@D?7::>0?0??+???@=I;
1344J"SIM1 WILL SOLVE UP TO 15 SIMULTANEOUS LINEAR EQUATIONS."%@U@T"DATA SHOULD BE ENTERED IN THE FOLLOWING SEQUENCES:"%U@^%8"A11,A21,A31,...,AN1,A12,A22,A32,...,AN2,...,"
U@("B1,B2,B3,...,BN"%@U@-"NOTE THAT B1,B2,...,BN ARE EQUIV. TO A(1,N+1),A(2,N+1),...,"
@U@."A(N,N+1)."%@U@2%8"EACH VALUE IS CONSIDERED AS A SEPARATED DATA AND SHOULD"%@U@<"BE ENTERED ONLY AFTER THE MACHINE TYPED A '?'"%@UAF"TO LEAVE SIM1, TYPE 0 AS REPLY TO 'NUMBER OF EQUATIONS TO BE"%UAP"SOLVED?"%@UA$@UA.%8"NUMBER OF EQUATIONS TO BE SOLVED"
8TNQW@8PNQ@P?9(A@ZMRUA8PNQ@P?6AQNT8PNQ@P?6BQNWUBBP?6QNZPNTP'4@VD$PNZ@]E@8P?6QN]PNQP'4@VD0PN]@]D>8PN]@P?<C@PNZAR@ALW@8XN]8XNZUBD"CORRECTIONS"
@8'&TN W@8&PN &@P?3(A@ZG@UBF"ENTER I,J,A(I,J) IN A SAME LINE AND SEPARATE THEM BY A COMA."%UBG"TO TERMINATE CORRECTIONS, TYPE '0,0,0' AS REPLY TO 'NEXT'."%UBH"I,J,A(I,J)"
8TN]TNZPN]@P?<C@PNZAR@ALW@8PN]@P?<C@PNZAR@AH@P?9(A@ZG@UBJ"NEXT"
8YFVUBLP?6QN
PNWP'4@VGKPN
@]J?8PN
@P?6AQN&UBVPN
QN]PNQP'4@VG^PN]@]G08PN]RM!PN]@P?<C@PN
AR@AH)MI@8XN]UB P?9QN)@8PN
RM!HQN,@UB*PN&QN]PNQP'4@VHFPN]@]H$8PN]RM!HPN,BQN/@8PN/@P?9(E@ZH!8PN]RM!HQN,@8PN]QN)@UB4XN]UB>PN)@P?9(A@ZI
UCHPN
QN]PNTP'4@VH7PN]@]I
8PN)@P?<C@PN]AR@AHQN2@8PN)@P?<C@PN]AR@APN
@P?<C@PN]AR@AHI@8PN
@P?<C@PN]AR@APN2I@8XN]UCRPN
@P?6AQN5UC\PN5QN]PNQP'4@VI5PN]@]J=8PN5QNZPNTP'4@VJAPNZ@]J;UC&PN]@P?<C@PNZAR@APN]@P?<C@PNZAR@AHPN]P?<C@PN5A@P?6BR@AHPN5@P?6BP?<C@PNZAR@AHCPN5@P?6BP?<C@PN5A@P?6BR@AHDBI8XNZ8XN]8XN
UC0PNQRL1PNQ@P?<C@PNTAR@AHPNQP?<C@PNQAR@AHDIUC:P?0QN5PNQP'4@VK PN5@]L28PNTPN5BQNZ@8PNZ@P?6AQN88PNZRL1P?9I@8PN8QN]PNQP'4@VK>PN]@]LV8PNZRL1PNZRL1HPNZP?<C@PN]AR@AHPN]RL1HCAI8XN]UDDPNZRL1PNZ@P?<C@PNTAR@AHPNZRL1HBPNZP?<C@PNZAR@AHDI8XN5UDNP?6QNZPNQP'4@VL=PNZ@]MN8%8"X"
PNZ!
"= "
PNZRL1H!
8XNZ8%8%8YC.UD,OPT
0/0
0PL
0
0
1068P@
3904------------ ----- ------------"
710PRINT 
720FORI=1TOB 
730M=0 
740IFA(I)>=FTHEN850
750IFA(I)>=ETHEN770
760Y(0)=Y(0)+1 
770FORJ=ETO(F-G)STEPG
780M=M+1 
790IFA(I)>=JTHEN810
800GOTO830 
810IFA(I)>=(J+G)THEN830
820Y(M)=Y(M)+1 
830NEXTJ 
840GOTO860 
850Y(25)=Y(25)+1