5 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
10 FORI=1TO24:L2$=L2$+"[192]":NEXT:L1$=LEFT$(L2$,17)
20 FORI=54272TO54296:POKEI,0:NEXT
30 PRINT"[147]";:AA$="[149] ":FORI=1TO20:AA$=AA$+"[157] ":NEXT:X=RND(-TI)
40 MX=41:DIMFL$(MX),FL(MX),V$(24),AA(MX),CL(MX):FORI=1TOMX:READZ,A,B,C,D$
50 FL(I)=Z:FL$(I)=CHR$(A)+CHR$(B)+CHR$(C)+D$:NEXT
60 POKE53280,12:POKE53281,12
70 V$(0)="":FORI=1TO24:V$(I)=V$(I-1)+"":NEXT
80 FORI=1TO30:SP$=SP$+" ":S3$=S3$+"[185]":S4$=S4$+"[184]":NEXT:S2$=LEFT$(SP$,20)
90 S5$=""+LEFT$(SP$,24):CL(1)=7:CL(2)=6:CL(3)=2:CL(4)=0:CL(5)=5:CL(27)=2
100 S=53248:FORI=704TO704+63:POKEI,0:NEXT
110 FORI=832TOI+63:POKEI,0:NEXT
120 FORI=704TO725:READA:POKEI,A:NEXT
130 FORI=833TO860:READA:POKEI,A:NEXT
140 POKE2040,11:POKE2041,13:PRINT"[147]";:PRINTV$(6)TAB(10)"[144]"LEFT$(S3$,19)"[187]"
150 PRINTV$(15)TAB(10)LEFT$(S4$,19)"[190]"
160 PRINTV$(7)TAB(10)"[176]"L1$"[174]"
170 POKES+21,0:PRINTTAB(10)"[221]      FLAGS      [221]"
180 PRINTTAB(10)"[221]                 [221]"
190 PRINTTAB(10)"[221] (1) LEARN FLAGS [221]"
200 PRINTTAB(10)"[221] (2) ONE PLAYER  [221]"
210 PRINTTAB(10)"[221] (3) TWO PLAYERS [221]"
220 PRINTTAB(10)"[221]                 [221]"
230 PRINTTAB(10)"[173]"L1$"[189][146]"V$(7);
240 FORI=7TO14:PRINTTAB(29)"[153][144][181]":NEXT
250 PRINTV$(6)TAB(9)LEFT$(AA$,LEN(AA$)-9)
260 PRINTV$(5)TAB(9)"[158][193]"
270 GETCH$:IFCH$<"1"ORCH$>"3"ORCH$=""THEN270
280 IFCH$="1"THEN900
290 PL=1:GS=0:PRINT"[147][144]PLAYER #1":PRINT"  [158]0000"
300 PRINT""TAB(18)"[144][176][192][192][174]"V$(1)TAB(18)"[221]  [221]"V$(2)TAB(18)"[173][192][192][189]"
310 IFCH$="3"THENPRINT""TAB(30)"[144]PLAYER #2"V$(1)TAB(32)"[158]0000"
320 PRINTV$(12)TAB(12)"[144] <SPACE> TO START ":SC(1)=0:SC(2)=0:RR=0
330 GETA$:IFA$<>" "THEN330
340 RR=RR+1:IFRR>10ANDCH$="2"THENRR=0:GOTO2000
350 CC=0:FORI=1TOMX:IFAA(I)=0THENCC=1
360 NEXT:IFCC=0THENFORI=1TOMX:AA(I)=0:NEXT
370 X=INT(RND(1)*MX)+1:IFAA(X)=1THEN370
380 AA(X)=1:YY=X:Z$=MID$(FL$(YY),4):GOSUB1050
390 GOSUB1080:A$(1)=MID$(FL$(YY),4)
400 X1=INT(RND(1)*MX)+1:IFX1<>YYTHENA$(2)=MID$(FL$(X1),4):GOTO420
410 GOTO400
420 X2=INT(RND(1)*MX)+1:IFX2<>X1ANDX2<>YYTHENA$(3)=MID$(FL$(X2),4):GOTO440
430 GOTO420
440 IFRND(1)<.5THENT$=A$(1):A$(1)=A$(2):A$(2)=T$
450 IFRND(1)<.5THENT$=A$(2):A$(2)=A$(3):A$(3)=T$
460 IFRND(1)<.5THENT$=A$(1):A$(1)=A$(3):A$(3)=T$
470 T=15:T$="15":RV$=""
480 FORI=1TO3:PRINTV$(19+I)S2$MID$(S2$,2):PRINTV$(19+I)"  "RV$"[144]"A$(I)
490 IFCH$="3"THENPRINTV$(19+I)TAB(24)RV$A$(I)
500 RV$="[146]":NEXT:P1=1:P2=1
510 X1=NOTPEEK(56321)AND15:X2=NOTPEEK(56320)AND15
520 GETA$:IFA$="[136]"THEN140
530 IFX1=0ANDX2=0THEN670
540 IFX1<>1ANDX1<>2THEN560
550 PRINTV$(P1+19)"  [146]"A$(P1)
560 IFX2<>1ANDX2<>2THEN580
570 IFCH$="3"THENPRINTV$(P2+19)TAB(24)"[146]"A$(P2)
580 IFX1=1THENP1=P1-1
590 IFX2=1THENP2=P2-1
600 IFX2=2THENP2=P2+1
610 IFX1=2THENP1=P1+1
620 IFP1<1THENP1=3
630 IFP2<1THENP2=3
640 IFP1>3THENP1=1
650 IFP2>3THENP2=1
660 PRINTV$(P1+19)"  "A$(P1):IFCH$="3"THENPRINTV$(P2+19)TAB(24)""A$(P2)
670 TM=TM+1:IFTM>5THENT=T-1:TM=0:GOSUB1960
680 IFT<0THEN890
690 T$=RIGHT$("0"+MID$(STR$(INT(T)),2),2):PRINT""TAB(19)T$
700 B1=(PEEK(56321)AND16)/16:B2=1:IFCH$="3"THENB2=(PEEK(56320)AND16)/16
710 IFB1ANDB2THEN510
720 PP=P2:PL=2:IFB1=0THENPP=P1:PL=1
730 TB=17:IFPL=1THENTB=0
740 FORI=20TO22:PRINTV$(I)S2$MID$(S2$,2):NEXT
750 PRINTV$(22)TAB(2+TB)"[144]*** "A$(PP)" [144]***"
760 IFA$(PP)=Z$THEN810
770 GOSUB1990
780 PRINTV$(18)TAB(8)"WRONG! IT WAS "Z$:SC(PL)=SC(PL)-INT(T*30)
790 IFSC(PL)<0THENSC(PL)=0
800 GOTO820
810 PRINTV$(18)TAB(16)"CORRECT!":SC(PL)=SC(PL)+INT(T*50):GOSUB1970
820 S$=RIGHT$("0000"+MID$(STR$(SC(1)),2),4)
830 PRINT"  [158]"S$:IFCH$="2"THEN860
840 S$=RIGHT$("0000"+MID$(STR$(SC(2)),2),4):PRINT"[158]"TAB(32)S$
850 IFSC(1)>5000ORSC(2)>5000THEN2000
860 FORDY=1TO1500:NEXT
870 FORI=18TO23:PRINTV$(I)S2$MID$(S2$,2):NEXT
880 GOTO340
890 GOSUB1990:PRINTV$(18)TAB(5)"OUT OF TIME! IT WAS "Z$:GOTO860
900 PRINT"[147][144]LEARN MODE[149]":X=1:PRINTV$(3)TAB(6)AA$
910 PRINTV$(2)TAB(6)"[193]"
920 PRINT"[144][183][183][183][183][183][183][183][183][183][183]"
930 PRINTV$(21)TAB(10)"[144](+) NEXT FLAG"
940 PRINTTAB(10)"(-) PREVIOUS FLAG"
950 PRINTTAB(10)"(Q) QUIT"
960 GOSUB1050:GOSUB1080
970 GETA$:IFA$="+"THEN1010
980 IFA$="Q"THEN140
990 IFA$<>"-"THEN970
1000 GOTO1030
1010 X=X+1:IFX>MXTHENX=1
1020 GOTO960
1030 X=X-1:IFX<1THENX=MX
1040 GOTO960
1050 POKES+21,0:E=7:PRINTV$(3);:PRINTTAB(E)"[151][176]"L2$"[174]"
1060 FORI=1TO12+EU:PRINTTAB(E)"[146][151][221]"MID$(S5$,2)"[221]":NEXT
1070 PRINTTAB(E)"[151][173]"L2$"[189]":RETURN
1080 AA(X)=1
1090 IFCH$="1"THENPRINTV$(18)TAB(15)""MID$(FL$(X),4)LEFT$(S2$,10)
1100 A$=FL$(X):A=FL(X)
1110 ONAGOTO1120,1210,1270,1310,1350,1390,1420,1430,1470,1500
1120 PRINTV$(4);:FORI=1TO4:PRINTTAB(8)LEFT$(A$,1)S5$:NEXT
1130 FORI=1TO4:PRINTTAB(8)MID$(A$,2,1)S5$:NEXT
1140 FORI=1TO4:PRINTTAB(8)MID$(A$,3,1)S5$:NEXT
1150 IFX<10ORX>12THEN1170
1160 POKES,173:POKES+1,122:POKES+39,CL(X-9):POKES+23,1:POKES+29,1:POKES+21,1
1170 IFX<14ORX>15THEN1200
1180 POKES+2,158:POKES+3,120:POKES+40,CL(X-10):POKES+23,3:POKES+29,3
1190 POKES+40,A:POKES+21,2
1200 RETURN
1210 PRINTV$(4);:FORI=1TO12:PRINTTAB(8)LEFT$(A$,1)"        "MID$(A$,2,1);
1220 PRINT"        "MID$(A$,3,1)"        ":NEXT
1230 IFX=20THENPRINTV$(9)TAB(19)"[144]R"
1240 IFX<25THENRETURN
1250 POKES+2,158:POKES+3,120:POKES+23,3:POKES+29,3:A=7:IFX=25THENA=5
1260 POKES+40,A:POKES+21,2:RETURN
1270 PRINTV$(4);:FORI=1TO6:PRINTTAB(8)LEFT$(A$,1)S5$:NEXT
1280 FORI=1TO6:PRINTTAB(8)MID$(A$,2,1)S5$:NEXT
1290 IFX=30THENFORI=4TO15:PRINTV$(I)TAB(8)""LEFT$(S2$,8):NEXT
1300 RETURN
1310 PRINTLEFT$(A$,1):GOSUB1490
1320 PRINTMID$(A$,2,1);
1330 FORI=4TO15:PRINTV$(I)TAB(15)"  ":NEXT
1340 PRINTV$(9)TAB(8)S5$:PRINTTAB(8)S5$:RETURN
1350 PRINTLEFT$(A$,1);:GOSUB1490
1360 FORI=6TO13:PRINTV$(I)TAB(19)"  ";:NEXT
1370 FORI=9TO10:PRINTV$(I)TAB(14)""LEFT$(S2$,12):NEXT
1380 RETURN
1390 PRINTLEFT$(A$,1);:GOSUB1490
1400 POKES+2,158:POKES+3,120:POKES+40,1:POKES+23,3:POKES+29,3
1410 POKES+21,2:RETURN
1420 PRINTLEFT$(A$,1):GOSUB1490:GOTO1160
1430 PRINT"":GOSUB1490
1440 PRINTV$(4)TAB(8)""S5$V$(5)TAB(8)S5$V$(14)TAB(8)S5$V$(15)TAB(8)S5$
1450 PRINTV$(6)TAB(8)""S5$V$(7)TAB(8)S5$V$(12)TAB(8)S5$V$(13)TAB(8)S5$
1460 RETURN
1470 PRINT"":GOSUB1490:FORI=4TO15
1480 PRINTV$(I)TAB(20)""MID$(S5$,14):NEXT:PRINTV$(5)TAB(9)"[144][219]":RETURN
1490 FORI=4TO15:PRINTV$(I)TAB(8)S5$:NEXT:RETURN
1500 PRINT"":GOSUB1490
1510 FORI=4TO7:PRINT"[158]"V$(I)TAB(14)MID$(S5$,8):NEXT
1520 FORI=12TO15:PRINT""V$(I)TAB(14)MID$(S5$,8):NEXT:RETURN
1530 DATA1,28,5,31,"NETHERLANDS"
1540 DATA1,158,31,28,"VENEZUELA"
1550 DATA1,28,5,28,"AUSTRIA"
1560 DATA1,28,158,28,"SPAIN"
1570 DATA1,28,5,30,"HUNGARY"
1580 DATA1,28,5,154,"LUXEMBOURG"
1590 DATA1,28,5,144,"LIBYA"
1600 DATA1,30,158,28,"ETHIOPIA"
1610 DATA1,30,158,31,"GABON"
1620 DATA1,154,5,154,"ARGENTINA"
1630 DATA1,28,5,30,"INDIA"
1640 DATA1,28,5,30,"NIGER"
1650 DATA1,144,28,158,"WEST GERMANY"
1660 DATA1,28,158,30,"GHANA"
1670 DATA1,28,5,144,"YEMEN"
1680 DATA1,5,30,28,"BULGARIA"
1690 DATA2,31,158,28,"CHAD"
1700 DATA2,28,158,144,"BELGIUM"
1710 DATA2,31,5,28,"FRANCE"
1720 DATA2,28,158,30,"RWANDA"
1730 DATA2,30,5,28,"ITALY"
1740 DATA2,28,158,30,"NEW GUINEA"
1750 DATA2,30,5,30,"NIGERIA"
1760 DATA2,28,5,30,"IVORY COAST"
1770 DATA2,30,28,158,"CAMEROON"
1780 DATA2,30,158,28,"SENEGAL"
1790 DATA3,5,154,1,"SAN MARINO"
1800 DATA3,28,5,1,"INDONESIA"
1810 DATA3,5,28,1,"POLAND"
1820 DATA3,28,30,1,"MADAGASCAR"
1830 DATA4,28,5,1,"DENMARK"
1840 DATA4,31,158,1,"SWEDEN"
1850 DATA4,5,31,1,"FINLAND"
1860 DATA5,28,5,1,"SWITZERLAND"
1870 DATA6,154,1,1,"SOMALI REP."
1880 DATA7,144,1,1,"BANGLADESH"
1890 DATA8,1,1,1,"THAILAND"
1900 DATA9,1,1,1,"MALTA"
1910 DATA10,1,1,1,"OMAN"
1920 DATA1,144,5,28,"UPPER VOLTA"
1930 DATA1,30,5,28,"SIERRA LEONE"
1940 DATA60,0,0,126,0,0,126,0,0,255,0,0,255,0,0,126,0,0,126,0,0,60,16,0,0
1950 DATA16,0,0,56,0,0,56,0,3,255,128,1,255,0,0,124,0,0,124,0,0,198,0,1,1
1960 POKE54273,70:POKE54278,70:POKE54296,15:POKE54276,17:POKE54276,16:RETURN
1970 POKE54278,96:POKE54296,15
1980 FORI=1TO100STEP3:POKE54273,50+I:POKE54276,33:POKE54276,0:NEXT:RETURN
1990 FORT=1TO15:POKE54296,15:POKE54296,0:NEXT:RETURN
2000 GOSUB1970:FORI=18TO23:PRINTV$(I)S2$MID$(S2$,2):NEXT
2010 PRINTV$(18)TAB(15)"GAME OVER!":GOSUB1970
2020 PRINTV$(20)TAB(8)"[144] PRESS <SPACE> FOR MENU "
2030 GETA$:IFA$<>" "THEN2030
2040 GOTO140