1 @%=&0102020A
5MODE7
10 CLS
20 PRINT'''" If there is 100 pounds a
nd 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 chil
dren?"'
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
160X=0
172 PRINT" MEN + WOMEN + CHILDREN
=100"
182PRINT" *10"TAB(10)"/2"TAB(20)"/8
=100"'
190REPEAT
200People=100-X
210Cash=100-(X*10)
220Z=ABS(Cash*2-People)*4/3
230Y=(100-X-Z)
240Cash=X*10+Y/2+Z/8
250 IF Cash=100 PRINT" "STR$(X)TAB(10)
STR$(Y)TAB(20)STR$(Z)'
260X=X+1
270UNTIL X=9
272 VDU23,1,0;0;0;0;
300 A=GET
310 VDU23,1,1;0;0;0;