10 REM"�'PuzQuik'  � J.Davis - '96.
   20 MODE7
   30 PRINT"���  *  P   U   Z   Q   U   I   K  *   "
   40 PRINT
   50 PRINT"  �Back at the `100/100 people puzzle of�8BS-45, it can be speeded up to take   �7/100ths of a second to run (including �the 2/100ths of a second it takes to   �print the answer...)."
   60 PRINT"  �First, if the upper limit for men is �usually set at 9 (or 8), because at    �more than that there wouldn't be enough�money left, why not set the lower limit�as well. This is 6, because at less"
   70 PRINT"�than that there is too much money left-�`50 or more - for the others to use up.";
   80 PRINT"  �Then, in a 4-iteration loop, there is�one calculation linking men and women  �(pardon?), and one test to eliminate   �fractional and negative women..."
   90 PRINT'" PRESS SPACE TO RUN PROGRAM:"
  100 PRINT'"�MEN:     WOMEN:    CHILDREN:"
  110 PRINT" ";
  120 G=GET:PRINT:VDU11
  130 TIME=0
  140  FORM%=6TO9
  150  W=(700-79*M%)/3
  160  IF ABS(INT(W))=W AND (100-M%-W)>0 THEN PRINT"�";M%;TAB(10);W;TAB(20);100-M%-W
  170  NEXT
  180 PRINT'"�TIME=�";TIME;"/100ths sec.";TAB(27)"�Again(Y/N)?";
  190 G$=GET$:PRINT'CHR$(148);STRING$(39,"p"):IFG$="Y" THEN 130
  200 PRINT'"  �P.S. �The program runs properly for  �any values for men (M%), such as 1 TO  �98 (.86sec), or even, say,-500 TO 500."
  210 PRINT'"  �Watch this space for a program to set�this sort of puzzle."
  220 PRINT'CHR$(148);STRING$(39,"p")