
SOURCE CODE  LIST

Pls note that we permit the distribution of this source code by CPC Retrodev and the University of Alicante.
We also mention this in line 10 (first) of the list.

Pls read first making of in order to better understand the philosophy of the game and this list.
10  240: INPUT NAMES, GAME CHOICES AND DEFINING VARIABLES
250  910: START GAME  MAIN GAME- INPUTING PLAYERS ANSWERS AND MAKING ALL NECESSARY CALCULATIONS
920- 1020: LATE ANSWER
1030  1270: GAME ENDING
1280  1330: TRIPLE BET ACTIVATION
1340  1460: SOUND DESIGN
1470  1550: RANDOM QUESTION CHOICE
1560  1700: INSTRUCTIONS DISPLAY
1710  3720: 100 QUESTIONS, ANSWERS, AND DEFINING CORRECT ANSWER [2 LINES FOR EACH QUESTION- FIRST EXAMINING ER1 (...ER100) VARIABLE, SECOND DEFINING QUESTION, 3 ANSWERS, AND THE CORRECT ANSWER]
3730-3800: ADDS/CORRECTIONS






10 REM CAPITAL QUIZ 2 by SAKIS KAFFESAKIS @ 2020. WE PERMIT THE DISTRIBUTION OF THIS SOURCE CODE BY CPC RETRODEV AND UNIVERSITY OF ALICANTE
20 CLS:MODE 1:BORDER 11:INK 0,0:RANDOMIZE TIME
30 PEN 1:INK 1,26:LOCATE 7,5:PRINT"Welcome to..."
40 PEN 2:INK 2,18:SPEED INK 45,45:LOCATE 12,11:PRINT"CAPITAL QUIZ 2!!!":LOCATE 12,13:PRINT"(REVERSE EDITION)"
50 PEN 3:INK 3,24:LOCATE 17,18:PRINT"LOADING..."
60 PEN 3:LOCATE 8,21:PRINT"by SAKIS KAFFESAKIS":LOCATE 28,21:PRINT CHR$(164):LOCATE 30,21:PRINT"2020"
70 PEN 1:LOCATE 1,24:PRINT"Contact for comments:skafesakis@yahoo.gr"
80 GOSUB 1340
90 FOR DELAY=1 TO 600:NEXT DELAY
100 PEN 3:LOCATE 14,18:PRINT"PRESS ANY KEY":PEN 1
110 DIA$=INKEY$:DIB$=INKEY$:DIC$=INKEY$:DID$=INKEY$:DIE$=INKEY$:DOKL$=INKEY$:DOKM$=INKEY$:DOKN$=INKEY$:DOKO$=INKEY$:DOKP$=INKEY$ 
120 DOK$=INKEY$
130 IF DOK$="" THEN GOTO 120
140 GOSUB 1560
150 CLS:LOCATE 5,18:PRINT"FOR ONE PLAYER GAME PRESS 1":LOCATE 5,20:PRINT"FOR TWO PLAYER GAME PRESS 2"
160 DOKL$=INKEY$:DOKM$=INKEY$:DOKN$=INKEY$:DOKO$=INKEY$:DOKP$=INKEY$
170 DOK$=INKEY$
180 IF DOK$<>"1" AND DOK$<>"2" THEN GOTO 170
190 IF DOK$="1" THEN PL=1
200 IF DOK$="2" THEN PL=2
210 CLS:LOCATE 8,10:INPUT"NAME OF PLAYER 1? ", OFI$
220 IF PL=2 THEN LOCATE 8,12:INPUT"NAME OF PLAYER 2? ", OLY$
230 LOCATE 2,17:INPUT"NUMBER OF QUESTIONS? (1-100) ", ORIO
240 IF ORIO<=0 OR ORIO>100 THEN LOCATE 29,17:PRINT"         ":GOTO 230
250 REM START GAME
260 CLS:PEN 1:INK 1,6:INK 2,18
270 ER1=0:ER2=0:ER3=0:ER4=0:ER5=0:ER6=0:ER7=0:ER8=0:ER9=0:ER10=0:ER11=0:ER12=0:ER13=0:ER14=0:ER15=0:ER16=0:ER17=0:ER18=0:ER19=0:ER20=0:ER21=0:ER22=0:ER23=0:ER24=0:ER25=0
280 ER26=0:ER27=0:ER28=0:ER29=0:ER30=0:ER31=0:ER32=0:ER33=0:ER34=0:ER35=0:ER36=0:ER37=0:ER38=0:ER39=0:ER40=0:ER41=0:ER42=0:ER43=0:ER44=0:ER45=0:ER46=0:ER47=0:ER48=0:ER49=0:ER50=0
290 ER51=0:ER52=0:ER53=0:ER54=0:ER55=0:ER56=0:ER57=0:ER58=0:ER59=0:ER60=0:ER61=0:ER62=0:ER63=0:ER64=0:ER65=0:ER66=0:ER67=0:ER68=0:ER69=0:ER70=0:ER71=0:ER72=0:ER73=0:ER74=0:ER75=0
300 ER76=0:ER77=0:ER78=0:ER79=0:ER80=0:ER81=0:ER82=0:ER83=0:ER84=0:ER85=0:ER86=0:ER87=0:ER88=0:ER89=0:ER90=0:ER91=0:ER92=0:ER93=0:ER94=0:ER95=0:ER96=0:ER97=0:ER98=0:ER99=0:ER100=0
310 SCORA=1000:SCORB=1000:DOTH=0:AKOL=0:SOSTA=0:SOSTB=0
320 PEN 1:CLS:AFT=0:DOTH=0:AKOL=AKOL+1:BET=100:ABET=0
330 DOKL$=INKEY$:DOKM$=INKEY$:DOKN$=INKEY$:DOKO$=INKEY$:DOKP$=INKEY$:DOKQ$=INKEY$:DOKR$=INKEY$:DOKS$=INKEY$:DOKT$=INKEY$:DOKU$=INKEY$
340 MOVE 20,120:DRAW 20,20:DRAW 250,20:DRAW 250,120:DRAW 20,120:LOCATE 4,21:PRINT"SCORE":LOCATE 4,23:PRINT SCORA
350 IF PL=2 THEN MOVE 620,120:DRAW 620,20:DRAW 390,20:DRAW 390,120:DRAW 620,120:LOCATE 27,21:PRINT"SCORE":LOCATE 27,23:PRINT SCORB
360 IF PL=2 THEN LOCATE 27,19:PRINT LEFT$(OLY$,12)
370 LOCATE 4,19:PRINT LEFT$(OFI$,12)
380 GOSUB 1280:REM TRIPLE BET 
390 IF ABET=1 THEN GOTO 420
400 FOR AK=1 TO 20:IF AKOL=5*AK THEN PEN 2:LOCATE 18,20:PRINT"DOUBLE":LOCATE 18,22:PRINT"BET!!!":BET=2*BET:PEN 1:GOSUB 3750:FOR DELAY=1 TO 1000:NEXT DELAY
410 NEXT AK
420 EROTA=0:EROTB=0:EROTC=0
430 IF AKOL>80 THEN LOCATE 12,2:PRINT"LOADING QUESTION..."
440 GOTO 1470: REM GO TO QUSTION CHOICE
450 LOCATE 12,2:PRINT"                   ":PEN 2:LOCATE 10,3:PRINT AKOL:LOCATE 15,3:PRINT XORA$
460 MOVE 20,330:DRAW 210,330:DRAW 210,260:DRAW 20,260:DRAW 20,330:LOCATE 3,6:PRINT"1.":LOCATE 3,8:PRINT APA$ 
470 MOVE 230,330:DRAW 420,330:DRAW 420,260:DRAW 230,260:DRAW 230,330:LOCATE 16,6:PRINT"2.":LOCATE 16,8:PRINT APB$
480 MOVE 440,330:DRAW 630,330:DRAW 630,260:DRAW 440,260:DRAW 440,330:LOCATE 29,6:PRINT"3.":LOCATE 29,8:PRINT APC$ 
490 DOKA$=INKEY$:DOKB$=INKEY$:DOC$=INKEY$:DOKD$=INKEY$
500 AFTER 500,1  GOSUB 920
510 IF AFT=1 THEN GOTO 850
520 XR=0:BONXR=0
530 EPIL$=INKEY$
540 IF AFT=1 THEN GOTO 850
550 IF EPIL$<>"A" AND EPIL$<>"a" AND EPIL$<>"W" AND EPIL$<>"w" AND EPIL$<>"d" AND EPIL$<>"D" AND EPIL$<>"J" AND EPIL$<>"j" AND EPIL$<>"I" AND EPIL$<>"i" AND EPIL$<>"L" AND EPIL$<>"l" THEN GOTO 530
560 IF PL=1 AND EPIL$<>"A" AND EPIL$<>"a" AND EPIL$<>"W" AND EPIL$<>"w" AND EPIL$<>"d" AND EPIL$<>"D" THEN GOTO 530
570 IF EPIL$="A" OR EPIL$="a" OR EPIL$="W" OR EPIL$="w" OR EPIL$="d" OR EPIL$="D" THEN PLIK=1
580 IF PL=1 THEN GOTO 600
590 IF EPIL$="J" OR EPIL$="j" OR EPIL$="I" OR EPIL$="i" OR EPIL$="l" OR EPIL$="L" THEN PLIK=2
600 IF EPIL$="A" OR EPIL$="a" THEN SEL$=APA$:DOTH=1
610 IF PL=1 THEN GOTO 630
620 IF EPIL$="J" OR EPIL$="j" THEN SEL$=APA$:DOTH=1
630 IF EPIL$="W" OR EPIL$="w" THEN SEL$=APB$:DOTH=1
640 IF PL=1 THEN GOTO 660
650 IF EPIL$="I" OR EPIL$="i" THEN SEL$=APB$:DOTH=1
660 IF EPIL$="D" OR EPIL$="d" THEN SEL$=APC$:DOTH=1
670 IF PL=1 THEN GOTO 690
680 IF EPIL$="L" OR EPIL$="l" THEN SEL$=APC$:DOTH=1
690 PEN 3:INK 3,0:LOCATE 2,1:XR=REMAIN(1):PRINT REMAIN(1):PEN 2:BONXR=INT(XR/10)
700 IF PLIK=1 AND SEL$=COR$ THEN SCORA=SCORA+BET+BONXR:LOCATE 15,11:PRINT OFI$:LOCATE 15,13:PRINT"IS CORRECT!":LOCATE 2,15:PRINT"TIME BONUS:":LOCATE 5,17:PRINT BONXR:SOSTA=SOSTA+1:GOSUB 1420
710 IF PLIK=1 AND SEL$<>COR$ THEN SCORA=SCORA-BET:LOCATE 15,11:PRINT OFI$:LOCATE 15,13:PRINT"IS WRONG!":GOSUB 1400:LOCATE 2,15:PRINT"CORRECT ANSWER:":LOCATE 2,17:PRINT COR$
720 IF PLIK=2 AND SEL$=COR$ THEN SCORB=SCORB+BET+BONXR:LOCATE 15,11:PRINT OLY$:LOCATE 15,13:PRINT"IS CORRECT!":LOCATE 2,15:PRINT"TIME BONUS:":LOCATE 5,17:PRINT BONXR:SOSTB=SOSTB+1:GOSUB 1420 
730 IF PLIK=2 AND SEL$<>COR$ THEN SCORB=SCORB-BET:LOCATE 15,11:PRINT OLY$:LOCATE 15,13:PRINT"IS WRONG!":GOSUB 1400:LOCATE 2,15:PRINT"CORRECT ANSWER:":LOCATE 2,17:PRINT COR$  
740 IF AFT=1 THEN GOTO 850
750 DOKA$=INKEY$:DOKB$=INKEY$:DOKC$=INKEY$:DOKD$=INKEY$:DOKE$=INKEY$
760 DOKX$=INKEY$
770 IF DOKX$="" THEN GOTO 760
780 IF SCORA<0 THEN SCORA=0
790 IF SCORB<0 THEN SCORB=0
800 LOCATE 4,23:PRINT"      ":LOCATE 4,23:PRINT SCORA
810 IF PL=2 THEN LOCATE 27,23:PRINT"      ": LOCATE 27,23:PRINT SCORB
820 DOKA$=INKEY$:DOKB$=INKEY$:DOKC$=INKEY$:DOKD$=INKEY$
830 DOKY$=INKEY$
840 IF DOKY$="" THEN GOTO 830
850 PEN 3:INK 3,0:LOCATE 2,1:PRINT REMAIN(1):PEN 1
860 IF PL=1 AND AKOL=ORIO THEN GOTO 1130
870 IF AKOL>=ORIO AND SCORA>SCORB THEN GOTO 1030
880 IF AKOL>=ORIO AND SCORB>SCORA THEN GOTO 1080 
890 IF AKOL>=ORIO AND SCORA=SCORB THEN GOTO 900
900 GOTO 320
910 END
920 REM LATE ANSWER
930 AFT=1
940 IF DOTH=1 THEN GOTO 1020
950 LOCATE 15,11:PRINT"TOO LATE!" :LOCATE 15,13:PRINT"YOU LOSE!":SOUND 1,300,35,15:SCORA=SCORA-BET:SCORB=SCORB-BET:GOTO 3770
960 LOCATE 2,15:PRINT"CORRECT ANSWER:":LOCATE 2,17:PRINT COR$
970 DOKW$=INKEY$
980 IF DOKW$="" THEN GOTO 970
990 LOCATE 4,23:PRINT "      ":LOCATE 4,23:PRINT SCORA:IF PL=2 THEN LOCATE 27,23:PRINT"      ":LOCATE 27,23:PRINT SCORB
1000 DOKZ$=INKEY$
1010 IF DOKZ$="" THEN GOTO 1000
1020 RETURN
1030 REM PLAYER 1 WINS
1040 PEN 1:INK 1,18:CLS:LOCATE 17,3:PRINT OFI$:PEN 1:INK 1,18:LOCATE 17,6:PRINT "WINS!!!":LOCATE 3,9:PRINT "PLAYER 1 SCORE:":LOCATE 7,12:PRINT SCORA:LOCATE 23,9:PRINT"PLAYER 2 SCORE:":LOCATE 27,12:PRINT SCORB
1050 PEN 2:INK 2,6:LOCATE 3,15:PRINT"PLAYER 1 CORRECT ANSWERS:";SOSTA;"OF";AKOL: 
1060 LOCATE 3,17:PRINT"PLAYER 2 CORRECT ANSWERS:";SOSTB;"OF";AKOL: REM EMPTY    
1070 PEN 3:INK 3,26:GOTO 1170 
1080 REM PLAYER 2 WINS
1090 PEN 1:INK 1,18:CLS:LOCATE 17,3:PRINT OLY$:PEN 1:INK 1,18:LOCATE 17,6:PRINT "WINS!!!":LOCATE 3,9:PRINT "PLAYER 1 SCORE:":LOCATE 7,12:PRINT SCORA:LOCATE 23,9:PRINT"PLAYER 2 SCORE:":LOCATE 27,12:PRINT SCORB
1100 PEN 2:INK 2,6:LOCATE 3,15:PRINT"PLAYER 1 CORRECT ANSWERS:";SOSTA;"OF";AKOL:
1110 LOCATE 3,17:PRINT"PLAYER 2 CORRECT ANSWERS:";SOSTB;"OF";AKOL:REM EMPTY     
1120 PEN 3:INK 3,26:GOTO 1170 
1130 REM PLAYER 1 MODE END GAME
1140 PEN 1:INK 1,18:CLS:LOCATE 17,6:PRINT OFI$:LOCATE 17,9:PRINT "SCORE:":LOCATE 16,11:PRINT SCORA:PEN 2:INK 2,6
1150 LOCATE 3,16:PRINT"PLAYER 1 CORRECT ANSWERS:";SOSTA;"OF";AKOL:REM EMPTY     
1160 PEN 3:INK 3,26:GOTO 1170
1170 REM END OF GAME
1180 REM
1190 DIA$=INKEY$:DIB$=INKEY$:DIC$=INKEY$:DID$=INKEY$:DIE$=INKEY$ 
1200 LOCATE 2,21:PRINT"FOR PLAY AGAIN PRESS 1" 
1210 LOCATE 2,24:PRINT"FOR RESTART PRESS 2"
1220 GOSUB 1440
1230 DOKV$=INKEY$
1240 IF DOKV$<>"1" AND DOKV$<>"2" THEN GOTO 1230
1250 IF DOKV$="1" THEN GOTO 250
1260 IF DOKV$="2" THEN GOTO 10
1270 END
1280 REM TRIPLE BET
1290 TRIP=RND
1300 IF TRIP>0.1 THEN GOTO 1330 
1310 ABET=1:BET=3*BET
1320 PEN 2:LOCATE 18,20:PRINT"TRIPLE":LOCATE 18,22:PRINT"BET!!!":PEN 1:GOSUB 3740:FOR DELAY=1 TO 1000:NEXT DELAY 
1330 RETURN
1340 REM START SOUND
1350 SOUND 1,106,15,14:SOUND 1,0,5:SOUND 1,106,17,14:SOUND 1,0,5:SOUND 1,71,17,14:SOUND 1,0,5:SOUND 1,71,17,14:SOUND 1,0,5:SOUND 1,71,17,14:SOUND 1,0,5:SOUND 1,71,17,14:SOUND 1,0,45
1360 SOUND 1,71,15,14:SOUND 1,0,5:SOUND 1,67,17,14:SOUND 1,0,5:SOUND 1,60,17,14:SOUND 1,0,5:SOUND 1,67,17,14:SOUND 1,0,5:SOUND 1,71,17,14:SOUND 1,0,5:SOUND 1,71,17,14:SOUND 1,0,28 
1370 SOUND 1,95,17,14:SOUND 1,0,5:SOUND 1,89,17,14:SOUND 1,0,5:SOUND 1,80,30,14:SOUND 1,0,12:SOUND 1,80,30,14:SOUND 1,0,12:SOUND 1,80,30,14:SOUND 1,0,15
1380 SOUND 1,95,16,14:SOUND 1,0,5:SOUND 1,89,16,14:SOUND 1,0,5:SOUND 1,80,16,14:SOUND 1,0,5:SOUND 1,71,16,14:SOUND 1,0,5:SOUND 1,89,16,14:SOUND 1,0,5:SOUND 1,95,16,14:SOUND 1,0,5:SOUND 1,106,20,14
1390 RETURN
1400 REM WRONG ANSWER SOUND
1410 SOUND 1,300,35,15:RETURN
1420 REM CORRECT ANSWER SOUND
1430 SOUND 1,119,8,14:SOUND 1,89,8,14:SOUND 1,60,8,14:RETURN
1440 REM WINNER-END SOUND
1450 SOUND 1,119,10,14:SOUND 1,106,10,14:SOUND 1,95,10,14:SOUND 1,89,10,14:SOUND 1,80,10,14:SOUND 1,71,10,14:SOUND 1,67,10,14:SOUND 1,63,10,14:SOUND 1,60,20,14
1460 RETURN
1470 REM QUESTION CHOICE
1480 RANDOMIZE TIME:TYXA=RND:EROTA=INT(TYXA*100)+1
1490 IF EROTA<21 THEN GOTO 1520
1500 IF EROTA>40 AND EROTA<81 THEN EROTB=EROTA-40:GOTO 1530
1510 IF EROTA>80 THEN EROTC=EROTA-80:GOTO 1540
1520 ON EROTA GOTO 1720,1740,1760,1780,1800,1820,1840,1860,1880,1900,1920,1940,1960,1980,2000,2020,2040,2060,2080,2100,2120,2140,2160,2180,2200,2220,2240,2260,2280,2300,2320,2340,2360,2380,2400,2420,2440,2460,2480,2500
1530 ON EROTB GOTO 2520,2540,2560,2580,2600,2620,2640,2660,2680,2700,2720,2740,2760,2780,2800,2820,2840,2860,2880,2900,2920,2940,2960,2980,3000,3020,3040,3060,3080,3100,3120,3140,3160,3180,3200,3220,3240,3260,3280,3300
1540 ON EROTC GOTO 3320,3340,3360,3380,3400,3420,3440,3460,3480,3500,3520,3540,3560,3580,3600,3620,3640,3660,3680,3700
1550 END
1560 CLS:MODE 2:PEN 1:INK 1,26:REM INSTRUCTIONS
1570 LOCATE 34,2:PRINT"INSTRUCTIONS":LOCATE 7,4:PRINT"PLAYER 1 KEYS:":LOCATE 7,6:PRINT"PRESS A FOR CHOICE 1":LOCATE 7,8:PRINT"PRESS W FOR CHOICE 2":LOCATE 7,10:PRINT"PRESS D FOR CHOICE 3"
1580 LOCATE 55,4:PRINT"PLAYER 2 KEYS:":LOCATE 55,6:PRINT"PRESS J FOR CHOICE 1":LOCATE 55,8:PRINT"PRESS I FOR CHOICE 2":LOCATE 55,10:PRINT"PRESS L FOR CHOICE 3"
1590 LOCATE 7,12:PRINT"1 PLAYER GAME:ANSWER CORRECT AND ACHIEVE A GREAT SCORE!"
1600 LOCATE 7,14:PRINT"2 PLAYER GAME:FIND CORRECT ANSWER BEFORE YOUR OPPONENT FINDS IT!"
1610 LOCATE 7,16:PRINT"IF NO ONE MAKES CHOICE YOU BOTH LOSE! "
1620 LOCATE 7,18:PRINT"BET=100.EVERY 5 QUESTIONS BET=200 (DOUBLE BET)":LOCATE 7,20: PRINT"ON EACH QUESTION THERE IS A 10% PERCENT THAT BET=300 (TRIPLE BET)"
1630 LOCATE 7,22:PRINT"YOU GET TIME BONUS ON CORRECT ANSWER! SCORE CANNOT BE UNDER ZERO"
1640 LOCATE 34,24:PRINT"HAVE FUN!!!"
1650 DOKL$=INKEY$:DOKM$=INKEY$:DOKN$=INKEY$:DOKO$=INKEY$:DOKP$=INKEY$ 
1660 Q$=INKEY$
1670 IF Q$="" THEN GOTO 1660
1680 MODE 1:PEN 1:INK 1,26
1690 RETURN
1700 END
1710 REM COUNTRIES AND CAPITALS
1720 IF ER1=1 THEN GOTO 1480
1730 XORA$="SANTIAGO?":APA$="CHILE":APB$="ARGENTINA":APC$="PERU":COR$="CHILE":ER1=1:GOTO 450
1740 IF ER2=1 THEN GOTO 1480 
1750 XORA$="BOGOTA?":APA$="BOLIVIA":APB$="VENEZUELA":APC$="COLUMBIA":COR$="COLUMBIA":ER2=1:GOTO 450  
1760 IF ER3=1 THEN GOTO 1480
1770 XORA$="ASUNCION?":APA$="URUGUAY":APB$="PARAGUAY":APC$="ARGENTINA":COR$="PARAGUAY":ER3=1:GOTO 450
1780 IF ER4=1 THEN GOTO 1480 
1790 XORA$="BUEN. AIRES?":APA$="ARGENTINA":APB$="CHILE":APC$="URUGUAY":COR$="ARGENTINA":ER4=1:GOTO 450
1800 IF ER5=1 THEN GOTO 1480 
1810 XORA$="MONTEVIDEO?":APA$="PARAGUAY":APB$="URUGUAY":APC$="ECUADOR":COR$="URUGUAY":ER5=1:GOTO 450
1820 IF ER6=1 THEN GOTO 1480
1830 XORA$="QUITO?":APA$="BOLIVIA":APB$="PERU":APC$="ECUADOR":COR$="ECUADOR":ER6=1:GOTO 450 
1840 IF ER7=1 THEN GOTO 1480
1850 XORA$="LA PAZ?":APA$="BOLIVIA":APB$="VENEZUELA":APC$="COLUMBIA":COR$="BOLIVIA":ER7=1:GOTO 450 
1860 IF ER8=1 THEN GOTO 1480
1870 XORA$="LIMA?":APA$="PUERTO RICO":APB$="PERU":APC$="COLUMBIA":COR$="PERU":ER8=1:GOTO 450 
1880 IF ER9=1 THEN GOTO 1480 
1890 XORA$="CARACAS?":APA$="BOLIVIA":APB$="COLUMBIA":APC$="VENEZUELA":COR$="VENEZUELA":ER9=1:GOTO 450 
1900 IF ER10=1 THEN GOTO 1480
1910 XORA$="BRIDGETOWN?":APA$="BARBADOS":APB$="GRENADA":APC$="BELIZE":COR$="BARBADOS":ER10=1:GOTO 450
1920 IF ER11=1 THEN GOTO 1480 
1930 XORA$="NASSAU?":APA$="BARBADOS":APB$="THE BAHAMAS":APC$="JAMAICA":COR$="THE BAHAMAS":ER11=1:GOTO 450 
1940 IF ER12=1 THEN GOTO 1480 
1950 XORA$="OTTAWA?":APA$="HAITI":APB$="MEXICO":APC$="CANADA":COR$="CANADA":ER12=1:GOTO 450  
1960 IF ER13=1 THEN GOTO 1480 
1970 XORA$="NOUAKCHOTT?":APA$="MAURITANIA":APB$="GAMBIA":APC$="TANZANIA":COR$="MAURITANIA":ER13=1:GOTO 450 
1980 IF ER14=1 THEN GOTO 1480
1990 XORA$="HAVANA?":APA$="JAMAICA":APB$="CUBA":APC$="HAITI":COR$="CUBA":ER14=1:GOTO 450
2000 IF ER15=1 THEN GOTO 1480
2010 XORA$="SAN JOSE?":APA$="PUERTO RICO":APB$="COSTA RICA":APC$="CUBA":COR$="COSTA RICA":ER15=1:GOTO 450
2020 IF ER16=1 THEN GOTO 1480   
2030 XORA$="TEGUCIGALPA?":APA$="NICARAGUA":APB$="JAMAICA":APC$="HONDURAS":COR$="HONDURAS":ER16=1:GOTO 450 
2040 IF ER17=1 THEN GOTO 1480
2050 XORA$="MANAGUA?":APA$="NICARAGUA":APB$="HONDURAS":APC$="PUERTO RICO":COR$="NICARAGUA":ER17=1:GOTO 450 
2060 IF ER18=1 THEN GOTO 1480
2070 XORA$="SAN JUAN?":APA$="JAMAICA":APB$="COSTA RICA":APC$="PUERTO RICO":COR$="PUERTO RICO":ER18=1:GOTO 450 
2080 IF ER19=1 THEN GOTO 1480
2090 XORA$="PARAMARIBO?":APA$="SURINAME":APB$="BARBADOS":APC$="ECUADOR":COR$="SURINAME":ER19=1:GOTO 450 
2100 IF ER20=1 THEN GOTO 1480
2110 XORA$="GEORGETOWN?":APA$="SURINAME":APB$="GUYANA":APC$="ECUADOR":COR$="GUYANA":ER20=1:GOTO 450
2120 IF ER21=1 THEN GOTO 1480
2130 XORA$="CANBERRA?":APA$="FIJI":APB$="NEW ZEALAND":APC$="AUSTRALIA":COR$="AUSTRALIA":ER21=1:GOTO 450 
2140 IF ER22=1 THEN GOTO 1480 
2150 XORA$="WELLINGTON?":APA$="NEW ZEALAND":APB$="AUSTRALIA":APC$="SAMOA":COR$="NEW ZEALAND":ER22=1:GOTO 450
2160 IF ER23=1 THEN GOTO 1480
2170 XORA$="SUVA?":APA$="SAMOA":APB$="FIJI":APC$="PALAU":COR$="FIJI":ER23=1:GOTO 450 
2180 IF ER24=1 THEN GOTO 1480 
2190 XORA$="APIA?":APA$="PALAU":APB$="FIJI":APC$="SAMOA":COR$="SAMOA":ER24=1:GOTO 450 
2200 IF ER25=1 THEN GOTO 1480 
2210 XORA$="ST GEORGE'S?":APA$="GRENADA":APB$="BARBADOS":APC$="THE BAHAMAS":COR$="GRENADA":ER25=1:GOTO 450
2220 IF ER26=1 THEN GOTO 1480 
2230 XORA$="KINGSTON?":APA$="NICARAGUA":APB$="JAMAICA":APC$="COSTA RICA":COR$="JAMAICA":ER26=1:GOTO 450 
2240 IF ER27=1 THEN GOTO 1480 
2250 XORA$="LUANDA?":APA$="KENYA":APB$="MALI":APC$="ANGOLA":COR$="ANGOLA":ER27=1:GOTO 450 
2260 IF ER28=1 THEN GOTO 1480 
2270 XORA$="GABORONE?":APA$="BOTSWANA":APB$="ZAMBIA":APC$="BURUNDI":COR$="BOTSWANA":ER28=1:GOTO 450
2280 IF ER29=1 THEN GOTO 1480
2290 XORA$="LUSAKA?":APA$="BURUNDI":APB$="ZAMBIA":APC$="LIBERIA":COR$="ZAMBIA":ER29=1:GOTO 450 
2300 IF ER30=1 THEN GOTO 1480
2310 XORA$="BUJUMBURA?":APA$="BOTSWANA":APB$="ZAMBIA":APC$="BURUNDI":COR$="BURUNDI":ER30=1:GOTO 450 
2320 IF ER31=1 THEN GOTO 1480
2330 XORA$="YAOUNDE?":APA$="CAMEROON":APB$="MADAGASCAR":APC$="GHANA":COR$="CAMEROON":ER31=1:GOTO 450   
2340 IF ER32=1 THEN GOTO 1480 
2350 XORA$="KIGALI?":APA$="CAMEROON":APB$="RWANDA":APC$="MALI":COR$="RWANDA":ER32=1:GOTO 450
2360 IF ER33=1 THEN GOTO 1480
2370 XORA$="N'DJAMENA?":APA$="NAMIBIA":APB$="UGANDA":APC$="CHAD":COR$="CHAD":ER33=1:GOTO 450 
2380 IF ER34=1 THEN GOTO 1480 
2390 XORA$="KINSHASA?":APA$="ZAIRE":APB$="SUDAN":APC$="UGANDA":COR$="ZAIRE":ER34=1:GOTO 450 
2400 IF ER35=1 THEN GOTO 1480  
2410 XORA$="KAMBALA?":APA$="ZAIRE":APB$="UGANDA":APC$="CHAD":COR$="UGANDA":ER35=1:GOTO 450 
2420 IF ER36=1 THEN GOTO 1480 
2430 XORA$="DODOMA?":APA$="NIGERIA":APB$="CAMEROON":APC$="TANZANIA":COR$="TANZANIA":ER36=1:GOTO 450   
2440 IF ER37=1 THEN GOTO 1480 
2450 XORA$="CAIRO?":APA$="EGYPT":APB$="MOROCCO":APC$="TUNISIA":COR$="EGYPT":ER37=1:GOTO 450 
2460 IF ER38=1 THEN GOTO 1480 
2470 XORA$="AD.ABEBA?":APA$="MADAGASCAR":APB$="ETHIOPIA":APC$="NIGERIA":COR$="ETHIOPIA":ER38=1:GOTO 450
2480 IF ER39=1 THEN GOTO 1480 
2490 XORA$="ACCRA?":APA$="SOMALIA":APB$="ETHIOPIA":APC$="GHANA":COR$="GHANA":ER39=1:GOTO 450
2500 IF ER40=1 THEN GOTO 1480
2510 XORA$="NAIROBI?":APA$="KENYA":APB$="SUDAN":APC$="ZIMBABWE":COR$="KENYA":ER40=1:GOTO 450
2520 IF ER41=1 THEN GOTO 1480 
2530 XORA$="MONROVIA?":APA$="LIBYA":APB$="LIBERIA":APC$="NAMIBIA":COR$="LIBERIA":ER41=1:GOTO 450
2540 IF ER42=1 THEN GOTO 1480
2550 XORA$="TRIPOLI?":APA$="MOROCCO":APB$="TUNISIA":APC$="LIBYA":COR$="LIBYA":ER42=1:GOTO 450
2560 IF ER43=1 THEN GOTO 1480
2570 XORA$="NGERULMUD?":APA$="PALAU":APB$="FIJI":APC$="VANUATU":COR$="PALAU":ER43=1:GOTO 450
2580 IF ER44=1 THEN GOTO 1480
2590 XORA$="BAMAKO?":APA$="MAURITANIA":APB$="MALI":APC$="BURUNDI":COR$="MALI":ER44=1:GOTO 450
2600 IF ER45=1 THEN GOTO 1480 
2610 XORA$="RABAT?":APA$="ALGERIA":APB$="TUNISIA":APC$="MOROCCO":COR$="MOROCCO":ER45=1:GOTO 450
2620 IF ER46=1 THEN GOTO 1480 
2630 XORA$="ABUJA?":APA$="NIGERIA":APB$="SUDAN":APC$="ANGOLA":COR$="NIGERIA":ER46=1:GOTO 450
2640 IF ER47=1 THEN GOTO 1480
2650 XORA$="WINDHOEK?":APA$="NIGERIA":APB$="NAMIBIA":APC$="KENYA":COR$="NAMIBIA":ER47=1:GOTO 450
2660 IF ER48=1 THEN GOTO 1480   
2670 XORA$="DAKAR?":APA$="CHAD":APB$="ZAIRE":APC$="SENEGAL":COR$="SENEGAL":ER48=1:GOTO 450
2680 IF ER49=1 THEN GOTO 1480 
2690 XORA$="MOGADISHU?":APA$="SOMALIA":APB$="ZIMBABWE":APC$="SENEGAL":COR$="SOMALIA":ER49=1:GOTO 450
2700 IF ER50=1 THEN GOTO 1480  
2710 XORA$="KHARTOUM?":APA$="MAURITANIA":APB$="SUDAN":APC$="CAMEROON":COR$="SUDAN":ER50=1:GOTO 450
2720 IF ER51=1 THEN GOTO 1480 
2730 XORA$="HARARE?":APA$="BOTSWANA":APB$="RWANDA":APC$="ZIMBABWE":COR$="ZIMBABWE":ER51=1:GOTO 450
2740 IF ER52=1 THEN GOTO 1480 
2750 XORA$="KABUL?":APA$="AFGHANISTAN":APB$="PAKISTAN":APC$="NEPAL":COR$="AFGHANISTAN":ER52=1:GOTO 450
2760 IF ER53=1 THEN GOTO 1480
2770 XORA$="BAKU?":APA$="ARMENIA":APB$="AZERBAIJAN":APC$="GEORGIA":COR$="AZERBAIJAN":ER53=1:GOTO 450
2780 IF ER54=1 THEN GOTO 1480
2790 XORA$="YEREVAN?":APA$="GEORGIA":APB$="AZERBAIJAN":APC$="ARMENIA":COR$="ARMENIA":ER54=1:GOTO 450
2800 IF ER55=1 THEN GOTO 1480  
2810 XORA$="BEIJING?":APA$="CHINA":APB$="VIETNAM":APC$="MONGOLIA":COR$="CHINA":ER55=1:GOTO 450
2820 IF ER56=1 THEN GOTO 1480 
2830 XORA$="NEW DELHI?":APA$="CHINA":APB$="INDIA":APC$="MONGOLIA":COR$="INDIA":ER56=1:GOTO 450
2840 IF ER57=1 THEN GOTO 1480 
2850 XORA$="JAKARTA?":APA$="PHILIPPINES":APB$="MALAYSIA":APC$="INDONESIA":COR$="INDONESIA":ER57=1:GOTO 450
2860 IF ER58=1 THEN GOTO 1480 
2870 XORA$="TEHRAN?":APA$="IRAN":APB$="IRAQ":APC$="BAHRAIN":COR$="IRAN":ER58=1:GOTO 450
2880 IF ER59=1 THEN GOTO 1480 
2890 XORA$="BAGHDAD?":APA$="IRAN":APB$="IRAQ":APC$="QATAR":COR$="IRAQ":ER59=1:GOTO 450
2900 IF ER60=1 THEN GOTO 1480
2910 XORA$="MOSCOW?":APA$="UKRAINE":APB$="BELARUS":APC$="RUSSIA":COR$="RUSSIA":ER60=1:GOTO 450
2920 IF ER61=1 THEN GOTO 1480
2930 XORA$="KUALA LUMPUR?":APA$="MALAYSIA":APB$="INDONESIA":APC$="PHILIPPINES":COR$="MALAYSIA":ER61=1:GOTO 450
2940 IF ER62=1 THEN GOTO 1480 
2950 XORA$="BEIRUT?":APA$="SYRIA":APB$="LEBANON":APC$="ISRAEL":COR$="LEBANON":ER62=1:GOTO 450
2960 IF ER63=1 THEN GOTO 1480
2970 XORA$="ULAANBAATAR?":APA$="MALAYSIA":APB$="VIETNAM":APC$="MONGOLIA":COR$="MONGOLIA":ER63=1:GOTO 450
2980 IF ER64=1 THEN GOTO 1480 
2990 XORA$="KATHMANDU?":APA$="NEPAL":APB$="VIETNAM":APC$="INDIA":COR$="NEPAL":ER64=1:GOTO 450
3000 IF ER65=1 THEN GOTO 1480
3010 XORA$="PYONGYANG?":APA$="CHINA":APB$="N.KOREA":APC$="S.KOREA":COR$="N.KOREA":ER65=1:GOTO 450
3020 IF ER66=1 THEN GOTO 1480  
3030 XORA$="ISLAMABAD?":APA$="AFGHANISTAN":APB$="IRAQ":APC$="PAKISTAN":COR$="PAKISTAN":ER66=1:GOTO 450 
3040 IF ER67=1 THEN GOTO 1480
3050 XORA$="MANILA?":APA$="PHILIPPINES":APB$="THAILAND":APC$="INDONESIA":COR$="PHILIPPINES":ER67=1:GOTO 450
3060 IF ER68=1 THEN GOTO 1480
3070 XORA$="DOHA?":APA$="LEBANON":APB$="QATAR":APC$="JORDAN":COR$="QATAR":ER68=1:GOTO 450
3080 IF ER69=1 THEN GOTO 1480
3090 XORA$="AMMAN?":APA$="OMAN":APB$="QATAR":APC$="JORDAN":COR$="JORDAN":ER69=1:GOTO 450
3100 IF ER70=1 THEN GOTO 1480
3110 XORA$="MUSCAT?":APA$="OMAN":APB$="QATAR":APC$="BAHRAIN":COR$="OMAN":ER70=1:GOTO 450
3120 IF ER71=1 THEN GOTO 1480
3130 XORA$="HANOI?":APA$="LAOS":APB$="VIETNAM":APC$="KAZAKHSTAN":COR$="VIETNAM":ER71=1:GOTO 450 
3140 IF ER72=1 THEN GOTO 1480
3150 XORA$="ANKARA?":APA$="ALBANIA":APB$="TAJIKISTAN":APC$="TURKEY":COR$="TURKEY":ER72=1:GOTO 450
3160 IF ER73=1 THEN GOTO 1480
3170 XORA$="DAMASCUS?":APA$="SYRIA":APB$="ISRAEL":APC$="LEBANON":COR$="SYRIA":ER73=1:GOTO 450
3180 IF ER74=1 THEN GOTO 1480
3190 XORA$="BANGKOK?":APA$="INDONESIA":APB$="THAILAND":APC$="MALAYSIA":COR$="THAILAND":ER74=1:GOTO 450
3200 IF ER75=1 THEN GOTO 1480
3210 XORA$="TASHKENT?":APA$="ARMENIA":APB$="AZERBAIJAN":APC$="UZBEKISTAN":COR$="UZBEKISTAN":ER75=1:GOTO 450
3220 IF ER76=1 THEN GOTO 1480
3230 XORA$="ATHENS?":APA$="GREECE":APB$="BULGARIA":APC$="CYPRUS":COR$="GREECE":ER76=1:GOTO 450
3240 IF ER77=1 THEN GOTO 1480
3250 XORA$="NICOSIA?":APA$="ALBANIA":APB$="CYPRUS":APC$="GREECE":COR$="CYPRUS":ER77=1:GOTO 450
3260 IF ER78=1 THEN GOTO 1480
3270 XORA$="ROME?":APA$="SPAIN":APB$="FRANCE":APC$="ITALY":COR$="ITALY":ER78=1:GOTO 450
3280 IF ER79=1 THEN GOTO 1480
3290 XORA$="LISBON?":APA$="PORTUGAL":APB$="SPAIN":APC$="ANDORRA":COR$="PORTUGAL":ER79=1:GOTO 450
3300 IF ER80=1 THEN GOTO 1480
3310 XORA$="MADRID?":APA$="PORTUGAL":APB$="SPAIN":APC$="FRANCE":COR$="SPAIN":ER80=1:GOTO 450
3320 IF ER81=1 THEN GOTO 1480
3330 XORA$="PARIS?":APA$="ANDORRA":APB$="SPAIN":APC$="FRANCE":COR$="FRANCE":ER81=1:GOTO 450
3340 IF ER82=1 THEN GOTO 1480
3350 XORA$="LONDON?":APA$="UN.KINGDOM":APB$="IRELAND":APC$="FRANCE":COR$="UN.KINGDOM":ER82=1:GOTO 450
3360 IF ER83=1 THEN GOTO 1480
3370 XORA$="BERLIN?":APA$="AUSTRIA":APB$="GERMANY":APC$="SWITZERLAND":COR$="GERMANY":ER83=1:GOTO 450
3380 IF ER84=1 THEN GOTO 1480
3390 XORA$="BRUSSELS?":APA$="AUSTRIA":APB$="NETHERLANDS":APC$="BELGIUM":COR$="BELGIUM":ER84=1:GOTO 450
3400 IF ER85=1 THEN GOTO 1480
3410 XORA$="VIENNA?":APA$="AUSTRIA":APB$="SWITZERLAND":APC$="BELGIUM":COR$="AUSTRIA":ER85=1:GOTO 450
3420 IF ER86=1 THEN GOTO 1480
3430 XORA$="AMSTERDAM?":APA$="BELGIUM":APB$="NETHERLANDS":APC$="DENMARK":COR$="NETHERLANDS":ER86=1:GOTO 450
3440 IF ER87=1 THEN GOTO 1480
3450 XORA$="STOCKHOLM?":APA$="NORWAY":APB$="FINLAND":APC$="SWEDEN":COR$="SWEDEN":ER87=1:GOTO 450
3460 IF ER88=1 THEN GOTO 1480
3470 XORA$="OSLO?":APA$="NORWAY":APB$="FINLAND":APC$="SWEDEN":COR$="NORWAY":ER88=1:GOTO 450
3480 IF ER89=1 THEN GOTO 1480
3490 XORA$="HELSINKI?":APA$="NORWAY":APB$="FINLAND":APC$="SWEDEN":COR$="FINLAND":ER89=1:GOTO 450
3500 IF ER90=1 THEN GOTO 1480
3510 XORA$="COPENHAGEN?":APA$="FINLAND":APB$="NORWAY":APC$="DENMARK":COR$="DENMARK":ER90=1:GOTO 450
3520 IF ER91=1 THEN GOTO 1480
3530 XORA$="SOFIA?":APA$="BULGARIA":APB$="ROMANIA":APC$="SERBIA":COR$="BULGARIA":ER91=1:GOTO 450
3540 IF ER92=1 THEN GOTO 1480
3550 XORA$="BUCHAREST?":APA$="BULGARIA":APB$="ROMANIA":APC$="ALBANIA":COR$="ROMANIA":ER92=1:GOTO 450
3560 IF ER93=1 THEN GOTO 1480
3570 XORA$="BELGRADE?":APA$="CROATIA":APB$="SLOVENIA":APC$="SERBIA":COR$="SERBIA":ER93=1:GOTO 450
3580 IF ER94=1 THEN GOTO 1480
3590 XORA$="ZAGREB?":APA$="CROATIA":APB$="SLOVENIA":APC$="SERBIA":COR$="CROATIA":ER94=1:GOTO 450
3600 IF ER95=1 THEN GOTO 1480
3610 XORA$="REYKJAVIK?":APA$="DENMARK":APB$="ICELAND":APC$="NORWAY":COR$="ICELAND":ER95=1:GOTO 450
3620 IF ER96=1 THEN GOTO 1480
3630 XORA$="BUDAPEST?":APA$="POLAND":APB$="SLOVAKIA":APC$="HUNGARY":COR$="HUNGARY":ER96=1:GOTO 450
3640 IF ER97=1 THEN GOTO 1480
3650 XORA$="TALLINN?":APA$="ESTONIA":APB$="LITHUANIA":APC$="MOLDOVA":COR$="ESTONIA":ER97=1:GOTO 450
3660 IF ER98=1 THEN GOTO 1480
3670 XORA$="MINSK?":APA$="LATVIA":APB$="BELARUS":APC$="LITHUANIA":COR$="BELARUS":ER98=1:GOTO 450
3680 IF ER99=1 THEN GOTO 1480
3690 XORA$="BRATISLAVA?":APA$="HUNGARY":APB$="ESTONIA":APC$="SLOVAKIA":COR$="SLOVAKIA":ER99=1:GOTO 450
3700 IF ER100=1 THEN GOTO 1480
3710 XORA$="LJUBLJANA?":APA$="SLOVENIA":APB$="CROATIA":APC$="SERBIA":COR$="SLOVENIA":ER100=1:GOTO 450
3720 END
3730 REM EXTRA SOUND EFFECTS
3740 FOR SO=1 TO 2:SOUND 1,75,7,15:SOUND 1,80,7,15:SOUND 1,85,7,15:SOUND 1,90,10,15:SOUND 1,0,2,15:NEXT SO:RETURN:REM TRIPLE
3750 FOR SO=1 TO 2:SOUND 1,125,7,15:SOUND 1,120,7,15:SOUND 1,115,7,15:SOUND 1,110,10,15:SOUND 1,0,2,15:NEXT SO:RETURN:REM DOUBLE
3760 END
3770 REM CORR
3780 IF SCORA<0 THEN SCORA=0
3790 IF SCORB<0 THEN SCORB=0
3800 GOTO 960