1 S=0:POKE53280,4:POKE53281,4:PRINT""
2 PRINT"[147]  FLAG QUIZ (C)2001 BY KOJOTE'BYTEGEIZ "
3 FORI=1TO5:READX$(I):NEXTI:PRINT""
4 IFX$(1)="W"GOTO10
5 IFX$(1)="S"GOTO20
6 IFX$(5)="X"GOTO45
10 FORT=2TO4:FORR=1TO5
11 PRINTX$(T)"                           [146]":NEXTR:NEXTT:GOTO30
20 FORT=1TO17:PRINTX$(2)"         "X$(3)"         "X$(4)"         "
21 NEXTT
30 INPUT"FLAG OF";C$
31 IFC$=X$(5)THENS=S+1:PRINT"CORRECT! YOUR SCORE =";S:GOTO40
32 IFC$="Q"ORC$="QUIT"THEN40000
33 PRINT"WRONG!! IT'S: "X$(5):GOTO40
40 GETY$:IFY$=""GOTO40
41 GOTO2
45 PRINT"THANKS FOR PLAYING FLAG QUIZ BY KOJOTE":IFS=20THENPRINT"[159]";
46 PRINT"YOUR FINAL SCORE IS";S"OUT OF 20 POINTS"
47 PRINT"    [158]VISIT WWW.BYTEGEIZ.DE TODAY :)"
50 DATA"W","","","[129]","ARMENIA","W","","","","AUSTRIA"
51 DATA"S","[144]","[158]","","BELGIUM","W","","","","BULGARIA"
52 DATA"S","","[158]","","CHAD","W","","[144]","","ESTONIA"
53 DATA"S","","","","FRANCE","W","","[158]","","GABON"
54 DATA"W","[144]","","[158]","GERMANY","S","","[158]","","GUINEA"
55 DATA"W","","","","HUNGARY","S","","","","ITALY"
56 DATA"W","[158]","","","LITHUANIA","W","","","[154]","LUXEMBOURG"
57 DATA"S","","[158]","","MALI","W","","","","MONTENEGRO"
58 DATA"W","","","","NETHERLANDS","S","","","","NIGERIA"
59 DATA"S","","","","PERU","S","","[158]","","ROMANIA"
60 DATA"","","","","X"
61 REM **************************
62 REM * FLAG QUIZ V 1.00       *
63 REM * ----------------       *
64 REM * (C) 09/2001 BY KOJOTE  *
65 REM * HTTP://WWW.BYTEGEIZ.DE *
66 REM * THIS GAME IS FREEWARE  *
67 REM **************************
68 REM * GREETS TO MY WIFE :)   *
69 REM * YES, I AM WASTING TIME *
70 REM * IN FRONT OF THE PC :)  *
71 REM **************************
9999 END
10000 D=PEEK(186):N$="B.FLAGS":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END