1 fo.

2 PRINT "Globe Almanac v .1b"

3 fo.

4 PRINT

5 PRINT "Enter a country-"

10 INPUT X$

11 PRINT

12 IF X$ = "China" THEN PRINT "1,236,914,658; Beijing" 

13 IF X$ = "India" THEN PRINT "984,003,683; New Delhi" 

14 IF X$ = "United States" THEN PRINT "270,311,758; Washington" 

15 IF X$ = "Indonesia" THEN PRINT "212,941,810; Jakarta" 

16 IF X$ = "Brazil" THEN PRINT "169,806,557; Brasilia" 

17 IF X$ = "Russia" THEN PRINT "146,861,022; Moscow" 

18 IF X$ = "Pakistan" THEN PRINT "135,135,195; Islamabad" 

19 IF X$ = "Bangladesh" THEN PRINT "127,567,002; Dhaka" 

20 IF X$ = "Japan" THEN PRINT "125,931,533; Tokyo" 

21 IF X$ = "Nigeria" THEN PRINT "110,532,242; Abuja " 

22 IF X$ = "Mexico" THEN PRINT "98,552,776; Mexico City" 

23 IF X$ = "Germany" THEN PRINT "82,079,454; Berlin" 

24 IF X$ = "Philippines" THEN PRINT "77,725,862; Manila" 

25 IF X$ = "Vietnam" THEN PRINT "76,236,259; Hanoi" 

26 IF X$ = "Iran" THEN PRINT "68,959,931; Tehran" 

27 IF X$ = "Egypt" THEN PRINT "66,050,004; Cairo" 

28 IF X$ = "Turkey" THEN PRINT "64,566,511; Istanbul" 

29 IF X$ = "Thailand" THEN PRINT "60,037,366; Bangkok" 

30 IF X$ = "United Kingdom" THEN PRINT "58,970,119; London" 

31 IF X$ = "France" THEN PRINT "58,804,944; Paris" 

32 PRINT 

33 PRINT "Thank you for using" 

34 PRINT "Globe Almanac v .1b"

35 PRINT 

36 PRINT "c. 1998 DaveSoft"

37 END