10 DEFFNS="Answer"
   20 MODE7
   30 PRINT"100 People. `100. Men get `10."'"Women get .50p. Children get 12.5p."
   40 PRINT"How many men women and children?"
   50 PRINT"Working"
   60 TIME=0
   70 DIM S%(100,3)
   80 FORC%=1TO100
   90 S%(C%,1)=RND(9)
  100 S%(C%,2)=RND(100-S%(C%,1))
  110 S%(C%,3)=100-S%(C%,1)-S%(C%,2)
  120 NEXT
  130 REPEAT
  140 Z=RND(-TIME)
  150 A=0:B=0
  160 FORC%=0TO100
  170 T=10*S%(C%,1)+.5*S%(C%,2)+.125*S%(C%,3)
  180 IF T=100 A=C%:B%=-1
  190 IF ABS(100-A)>ABS(100-T) A=T:A%=C%
  200 IF ABS(100-B)>ABS(100-T) AND T<>A B=T:B%=C%
  210 NEXT
  220 IFB%<1 B%=A%
  230 IF A=100 B=100:B%=A% ELSE IF B=100 A=100:A%=B%
  240 FORX%=1TO3:S%(0,X%)=(S%(A%,X%)+S%(B%,X%))/2:S%(1,X%)=S%(A%,X%):S%(2,X%)=S%(B%,X%):NEXT
  250 IF10*S%(0,1)+.5*S%(0,2)+.125*S%(0,3)=100 A=100:A%=0
  260 IF (A<>100 AND B<>100) FORC%=3TO100:S%(C%,1)=ABS(S%(0,1)+(RND(3)-2)*RND(2)):REPEATS%(C%,2)=ABS(S%(0,2)+(RND(3)-2)*RND(30)):S%(C%,3)=100-S%(C%,1)-S%(C%,2):UNTILS%(C%,3)>0:NEXT
  270 UNTILA=100 OR B=100
  280 PRINT;S%(A%,1)"  - Men"
  290 PRINT;S%(A%,2)" - Women"
  300 PRINT;S%(A%,3)" - Children"
  310 PRINT"Time taken - ";INT(TIME/100)" seconds."