3 OPTION RUN
4 PRINT CHR$(27)"f";CHR$(27)"0Press any key when running to toggle sound on/off, or [STOP] to stop.":a=3000:GOSUB 100
5 OPTION RUN:bel$=CHR$(7)
10 z$="###,###,###,###":READ a$(1),pop(1),area(1),phone(1),gdp(1):x$=CHR$(27):cl$=x$+"E"+x$+"H":WIDTH 255
20 READ a$(2),pop(2),area(2),phone(2),gdp(2),q:PRINT cl$;TAB (30);a$(2);" - the Statistics...":a=1000:GOSUB 100
30 FOR a=1 TO 2:PRINT:PRINT:PRINT:PRINT:PRINT a$(a) ;" has a population of:";:PRINT USING z$;pop(a):y=a*10:FOR x=1 TO 2*pop(a)/(MAX(pop(1),pop(2))/35):GOSUB 90:NEXT x,a:a=1000:GOSUB 100
40 PRINT cl$:FOR a=2 TO 1 STEP -1:r=(a-1)*45:PRINT TAB(r);a$(a)". Area in sq km is:";:PRINT USING z$;area(a):PRINT:FOR i=0 TO area(a)/(MAX(area(1),area(2))/20):PRINT TAB(r);STRING$(40,"#"):NEXT i:PRINT x$"H":NEXT:a=1500:GOSUB 100
50 GOSUB 80:GOSUB 80:PRINT cl$;"... so what about telephones?":FOR i=1 TO 2:a=1000:GOSUB 100:y=5:x=0:PRINT cl$;a$(i) " has"phone(i)"people for every phone.":FOR d=1 TO phone(i):GOSUB 90:x=x+1:IF x=80 THEN y=y+2:x=0
60 NEXT d,i:a=1500:GOSUB 100:PRINT cl$"The G.D.P. per capita is a measure of the wealth of a country."
70 FOR cc=1 TO 2:PRINT a$(cc)"'s G.D.P. is $"gdp(cc):PRINT:FOR i=1 TO gdp(cc)/10:PRINT "$";:NEXT:PRINT:PRINT:a=2000:GOSUB 100:NEXT:IF q=1 THEN GOTO 20 ELSE RUN 5
80 FOR a=1 TO 7:PRINT bel$;:NEXT:FOR a=1 TO 100:NEXT:FOR a=1 TO 5:PRINT bel$;:NEXT:FOR a=1 TO 230:NEXT:RETURN
90 PRINT x$;"Y";CHR$(y+32);CHR$(x+32);"o";x$;"B";x$;"D";CHR$(130);x$;"B";x$;"D";CHR$(133);x$;"D";"!";x$;"D";CHR$(149);x$;"A";x$;"D";CHR$(136);:RETURN
100 FOR aa=1 TO a:NEXT:zz$=INKEY$:IF zz$<>"" THEN IF zz$=CHR$(3) THEN GOTO 25000 ELSE IF bel$="" THEN bel$=CHR$(7) ELSE bel$=""
101 RETURN
1000 DATA "The U.K.",55000000,244796,2,4089,"Pakistan",72000000,801408,300,129,1,"The USSR",256000000,22402200,16,1895,1,"Japan",112000000,372077,2.5,4133,1,"Jamaica",2000000,10962,20,1438,1
1010 DATA "Israel",3400000,20700,4,3608,1,"Bangladesh",76000000,143998,960,66,1,"Australia",13000000,7686810,3,6364,1
1020 DATA "Burma",30000000,678033,995,101,1,"Egypt",38000000,1001449,75,260,1,"Italy",56000000,301225,4,3608,1
1030 DATA "The Lebanon",3000000,10400,13,646,1,"Saudi Arabia",9000000,2149690,108,3220,1
1040 DATA "South Africa",26000000,1221037,13,1339,1,"Uganda",12000000,236036,265,141,1
1050 DATA "Switzerland",6000000,41288,1.5,8463,1,"Thailand",42000000,514000,137,342,1
1060 DATA "Syria",8000000,185180,50,743,1,"Poland",34000000,312677,13,1189,0
25000 PRINT x$"e":IF FIND$("M:$$$$$$$$.&&&")<>"" THEN OPTION STOP:PRINT "[Press any key to return to main menu or press (STOP) to stop]":z$=INPUT$(1):RUN "M:$$$$$$$$.&&&":ELSE END
OPTION STOP:PRINT "[Press any key to return to main menu