1*FX200,0 10MODE1:VDU23,1,0;0;0;0;:PRINT"Please wait.":CLS:ONERROR PROCerror:END 20PROCfont 30GCOL0,1 40COLOUR 2 50VDU19,1,1,0;0 60MOVE50,990 70DRAW1260,990 80DRAW1260,30 90DRAW50,30 100DRAW50,990 110MOVE55,985 120DRAW1256,985 130DRAW1256,35 140MOVE1255,35 150DRAW55,35 160DRAW55,985 170MOVE50,900:DRAW1260,900:hello$="Cap itals Quiz":PRINTTAB(12,2);hello$:VDU28, 2,29,38,4:COLOUR 7 180COLOUR2:PROCbegin:PROCquiz 190END 200DEFPROCfont 210*FX20,6 220VDU23,65,126,102,102,126,102,102,10 2,0 230VDU23,66,126,102,102,124,102,102,12 6,0 240VDU23,67,126,102,96,96,96,102,126,0 250VDU23,68,124,110,102,102,102,110,12 4,0 260VDU23,69,126,126,96,124,124,96,126, 0 270VDU23,70,126,126,96,124,124,96,96,0 280VDU23,71,126,102,96,110,102,102,126 ,0 290VDU23,72,102,102,102,126,126,102,10 2,0 300VDU23,73,60,24,24,24,24,24,60,0 310VDU23,74,62,12,12,12,12,108,124,0 320VDU23,75,102,124,120,112,120,124,10 2,0 330VDU23,76,96,96,96,96,96,126,126,0 340VDU23,77,119,127,127,107,107,99,99, 0 350VDU23,78,102,118,126,126,110,102,10 2,0 360VDU23,79,126,102,102,102,102,102,12 6,0 370VDU23,80,126,102,102,126,96,96,96,0 380VDU23,81,126,102,102,102,110,108,11 8,0 390VDU23,82,126,102,102,124,110,102,10 2,0 400VDU23,83,126,102,96,126,6,102,126,0 410VDU23,84,126,126,24,24,24,24,24,0 420VDU23,85,102,102,102,102,102,102,12 6,0 430VDU23,86,102,102,102,102,102,126,24 ,0 440VDU23,87,99,99,107,107,127,119,119, 0 450VDU23,88,102,102,126,24,126,102,102 ,0 460VDU23,89,102,102,102,126,24,24,24,0 470VDU23,90,126,126,12,24,48,126,126,0 480VDU23,91,124,112,112,112,112,112,12 4,0 490VDU23,92,0,96,112,56,28,14,6,0 500VDU23,93,62,14,14,14,14,14,62,0 510VDU23,94,24,126,102,66,0,0,0,0 520VDU23,95,0,0,0,0,0,0,255,255 530VDU23,96,62,54,48,124,48,48,126,0 540VDU23,97,0,0,126,6,126,102,126,0 550VDU23,98,96,96,126,102,102,102,126, 0 560VDU23,99,0,0,126,102,96,102,126,0 570VDU23,100,6,6,126,102,102,102,126,0 580VDU23,101,0,0,126,102,126,96,124,0 590VDU23,102,60,48,48,124,48,48,48,0 600VDU23,103,0,0,126,102,102,126,6,62 610VDU23,104,96,96,126,102,102,102,102 ,0 620VDU23,105,24,0,24,24,24,24,24,0 630VDU23,106,24,0,56,24,24,24,24,120 640VDU23,107,96,96,102,124,120,124,102 ,0 650VDU23,108,56,24,24,24,24,24,60,0 660VDU23,109,0,0,119,127,107,107,99,0 670VDU23,110,0,0,126,102,102,102,102,0 680VDU23,111,0,0,126,102,102,102,126,0 690VDU23,112,0,0,126,102,102,126,96,96 700VDU23,113,0,0,126,102,102,126,6,7 710VDU23,114,0,0,126,126,96,96,96,0 720VDU23,115,0,0,126,96,126,6,126,0 730VDU23,116,48,48,60,48,48,48,60,0 740VDU23,117,0,0,102,102,102,102,126,0 750VDU23,118,0,0,102,102,102,102,126,2 4,0 760VDU23,119,0,0,99,107,127,119,119,0 770VDU23,120,0,0,102,126,24,126,102,0 780VDU23,121,0,0,102,102,102,126,6,62 790VDU23,122,0,0,126,14,28,112,126,0 1010ENDPROC 1020DEFPROCbegin 1030PRINTTAB(4,5);"Please press Space t o start or" 1040PRINTTAB(8,7);"Escape to exit progr am." 1050REPEAT:A$=GET$:UNTIL A$=" " 1060CLS:ENDPROC 1070DEFPROCerror:ONERROR PROCerror 1080ONERROR OFF 1090IF ERR=17 AND ERL=1050 THEN CALL !- 4 1100IF ERR=17 THEN RUN 1110*FX200,1 1120CLS 1130PRINT:VDU7 1140REPORT:PRINT" press sapce ";:REPEAT :A$=GET$:UNTIL A$=" " 1150RUN:ENDPROC 1160DEFPROCquiz 1170A=0 1180B=0 1190C=0 1200REPEAT 1210READ D$,T$ 1220IF D$="END" PROCend 1230PRINT 1240COLOUR2:PRINT" What is the capital of ":PRINT" ";D$;"?" 1250COLOUR7:VDU23,1,1;0;0;0;:INPUT'" "E $:VDU23,1,0;0;0;0; 1260IF T$=E$ THEN A=A+1:PROCcorrect ELS E PROCwrong 1270B=B+1 1280COLOUR2:UNTIL FALSE 1290DATAFrance,PARIS 1300DATAWest Germany,BONN 1310DATAThe Netherlands,THE HAGUE 1320DATAPoland,WARSAW 1330DATAItaly,ROME 1340DATASpain,MADRID 1350DATAPotugal,LISBON 1360DATAHungry,BUDAPEST 1370DATADenmark,COPENHAGEN 1380DATANorway,OSLO 1390DATAScotland,EDINBURGH 1400DATANorthern Ireland,BELFAST 1410DATASouthern Ireland,DUBLIN 1420DATABelgium,BRUSSELS 1430DATASweden,STOCKHOLM 1440DATAFinland,HELSINKI 1450DATAIce Land,KEYKJAVIK 1460DATARomina,BUCHREST 1470DATAAustria,VIENNA 1480DATAGreece,ATHENS 1490DATAEast Germany,BERLIN 1500DATACzechoslovakia,Prague 1800DATAEND,END 1900ENDPROC 1910DEFPROCcorrect:COLOUR2 1920PRINT 1930PRINT" Welldone that is correct !" 1940PRINT 1950ENDPROC 1960DEFPROCwrong:COLOUR2 1970PRINT 1980PRINT" Sorry that's wrong !" 1990VDU7:PRINT" The capital of ";D$;:PR INT:PRINT" is ";T$;"." 2000PRINT 2010ENDPROC 2020DEFPROCend 2030PRINT 2040IF A=B THEN PRINT" Welldone!":PRINT " You got them all right!!!!!" 2050IF A<>B THEN PRINT" You got ";A;" c orrect out of ";B;" !" 2060PRINT 2070PRINT" Press space." 2080REPEAT:A$=GET$:UNTIL A$=" " 2090RUN 2100ENDPROC