1  @%=&0102020A 
    5 MODE7
   10  CLS
   20  PRINT'''"�If there is 100 pounds and 100 people"
   30  PRINT"�where      Men = 10 pounds"
   50  PRINT"�         Women = 50 pence"
   60  PRINT"�      Children = 12.5 pence"
   70  PRINT"�How many men,women and children?"'
   80  REM M=10
   90  REM W=.5    = 1/2
  100  REM C=.125  = 1/8
  110  REM X    + Y   + Z   = 100 people
  120  REM X*10 + Y/2 + Z/8 = 100 pounds
  130  REM Since M will be 1 to 9
  140  REM use M for loop
  150  REM so
  160 X=0
  172  PRINT"�MEN   +  WOMEN  +  CHILDREN    =100"
  182 PRINT"�*10"TAB(10)"/2"TAB(20)"/8          =100"'
  190 REPEAT
  200 People=100-X
  210 Cash=100-(X*10)
  220 Z=ABS(Cash*2-People)*4/3
  230 Y=(100-X-Z)
  240 Cash=X*10+Y/2+Z/8
  250  IF Cash=100 PRINT"�"STR$(X)TAB(10)STR$(Y)TAB(20)STR$(Z)'
  260 X=X+1
  270 UNTIL X=9
  272  VDU23,1,0;0;0;0;
  300  A=GET
  310  VDU23,1,1;0;0;0;