1 ' Brainbox/Geography Test
2 ' By Alan MacDonald 3 ' Amstrad Action January 1989 10 CLS:PRINT:PRINT " BRAINBOX ":PRINT "__________" 20 n=30:w=0:r=0:PRINT 23 ' DATA 25 ' COUNTRY AND CAPITAL 27 ' 30 DATA "FRANCE","PARIS" 40 DATA "THE USA","WASHINGTON" 50 DATA "WEST GERMANY","BONN" 60 DATA "EAST GERMANY","BERLIN" 70 DATA "ENGLAND","LONDON" 80 DATA "WALES","CARDIFF" 90 DATA "SCOTLAND","EDINBURGH" 100 DATA "SPAIN","MADRID" 110 DATA "CHINA","PEKING" 120 DATA "ITALY","ROME" 130 DATA "GREECE","ATHENS" 135 DATA "BULGARIA","SOFIA" 140 DATA "THE USSR","MOSCOW" 145 DATA "BELGIUM","BRUSSELS" 150 DATA "POLAND","WARSAW" 155 DATA "AUSTRIA","VIENNA" 160 DATA "PORTUGAL","LISBON" 165 DATA "THE NETHERLANDS","AMSTERDAM" 170 DATA "ICELAND","REYKJAVIK" 175 DATA "FINLAND","HELSINKI" 180 DATA "JAPAN","TOKYO" 185 DATA "DENMARK","COPENHAGEN" 190 DATA "NORTHERN IRELAND","BELFAST" 195 DATA "SWITZERLAND","BERNE" 200 DATA "THE REP OF IRELAND","DUBLIN" 205 DATA "BRAZIL","BRAZILIA" 210 DATA "HUNGARY","BUDAPEST" 220 DATA "ROMANIA","BUCHAREST" 230 DATA "NORWAY","OSLO" 240 DATA "YUGOSLAVIA","BELGRADE" 247 ' ADD SOME MORE IF YOU WANT 249 ' 250 FOR i=1 TO n:READ x$,y$ 260 PRINT"WHAT IS THE CAPITAL OF ";x$;"?":INPUT w$:z$=UPPER$(w$) 270 IF y$=z$ THEN LET r=r+1:PRINT"CORRECT" 275 IF y$<>z$ THEN LET w=w+1:PRINT"WRONG IT WAS":y$" .":PRINT 280 NEXT i:PRINT "YOU WERE ASKED ";n;" QUESTIONS" 290 PRINT "YOU GAVE ";r;" CORRECT ANSWERS" 300 PRINT "YOU GAVE ";w;" WRONG ANSWERS" 305 ' 307 ' HOW WELL YOU DID 309 ' 310 IF r=n THEN PRINT "WELL DONE BRAINBOX!! YOU'VE PASSED" 320 IF r=0 THEN PRINT "HAVE YOU EVER DONE GEOGRAPHY BEFORE ?" 330 IF r=w THEN PRINT "HALF CORRECT" 340 IF r>w AND r<n THEN PRINT "NOT BAD......TRY AGAIN " |