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