5 IFX=0THENPOKE56,64:CLR:X=1:LOAD"BORN.LNK",8,1
10 :
20 NQ=35:DIMQ%(NQ),Q$(NQ),A$(NQ),AB$(NQ),AR$(NQ),AW$(NQ),QS%(NQ),AS%(NQ)
21 DIM P%(29,1)
30 :
40 Q=6
50 :
90 :
100 OPEN2,8,2,"BORN.XY":FORP=1TO29:INPUT#2,P%(P,0),P%(P,1):NEXT:CLOSE2
101 OPEN2,8,2,"BORN.QUESTIONS":INPUT#2,DD:FORP=1TONQ
102 INPUT#2,Q$(P),A$(P),AB$(P),AR$(P),AW$(P),QS%(P),AS%(P):GOSUB10000:NEXT:CLOSE2
103 SYS50759,"PRESS A KEY",14*8,24*8
104 :
105 GOSUB11000
108 POKE198,0:WAIT198,1:GETK$
109 GOSUB 940
110 GOSUB750:C=0
130 GOSUB940
140 FORQX=1TONQ:QU=Q%(QX)
150 GOSUB940:REMPLOTUSA
160 AG=99:IFQS%(QU)<>0THENGOSUB13000:REMPLOTQUESTIONSHAPE
165 GOSUB740
170 AG=99
172 IF AB$(QU)="CAP"THENSYS50759,"WHAT IS THE CAPITAL OF",2*8,21*8
173 SYS50759,Q$(QU),2*8,22*8
180 GOSUB950:GOSUB910:REMGETANSWER
190 GOSUB20000:REMPROCESSANSWER
191 IFA$=""ORA$=" "THENSYS50759,"**** BE REALISTIC... ****",8*8,24*8:GOTO170
192 IFXR=2THENIF(LEN(A$)<3ORA$=A$(QU)ORA$=AB$(QU))THEN200
194 IFXR>.5THENSYS50759,"THAT'S CLOSE.  TRY AGAIN.",8*8,24*8:GOTO170
200 IFA$=A$(QU)ORA$=AB$(QU)THENGOSUB15000:REMSHOWRIGHTANSWERRESPONSE
205 IFA$<>A$(QU)THENIFA$<>AB$(QU)THENGOSUB16000:REMSHOWWRONGANSWERRESPONSE
210 IFAS%(QU)<>0THENGOSUB14000:REMSHOWANSWERSHAPE
215 GOSUB1082:GOSUB940
500 NEXTQX:QX=NQ
600 PRINT"[147][158]"
602 SYS51459
604 PRINT"[217]OU HAVE CORRECTLY ANSWERED":PRINT:PRINTC"QUESTIONS OUT OF"QX"."
606 PRINT"[212]HAT'S"INT((C/QX)*100)"[157]%":PRINT:PRINT:PRINT
610 GOTO1090
740 RETURN
750 REM *** SOUND EFFECT ***
760 RETURN
890 REM *** SOUND EFFECT ***
900 REM *** SOUND EFFECT ***
910 IFA$="QUIT"THENSYS51459:PRINT"[147][212]HANK YOU FOR PLAYING...":GOTO1090
920 RETURN
930 POKE249,224:POKE250,204:POKE251,0:POKE252,64
932 POKE253,P%(P,0):POKE254,P%(P,1)
934 POKE255,P-1:SYS51462
936 RETURN
938 :
940 H=0:V=0:P=1:GOSUB930:RETURN
945 :
950 A$=""
960 XP=2:YP=23
962 GETK$:IFK$<>""THEN970
965 IFCR$="("THENCR$=")":GOTO967
966 CR$="("
967 SYS50759,CR$,XP*8,YP*8:GOTO962
970 IFK$=CHR$(13)THEN1010
975 IFK$<>"[157]"ANDK$<>""THEN980
976 IFXP>2THENXP=XP-1:SYS50759,"  ",XP*8,YP*8:A$=LEFT$(A$,LEN(A$)-1):GOTO962
980 IF(K$>"Z"ORK$<"A")ANDK$<>" "ANDK$<>"."THEN962
981 IFXP=38THEN962
982 SYS50759,K$,XP*8,YP*8:XP=XP+1
985 A$=A$+K$
990 GOTO962
1010 GOSUB1060:RETURN
1020 IFLEN(A$)<2THENA$="":GOTO1040
1030 A$=LEFT$(A$,LEN(A$)-1)
1040 HT=1:PRINTA$" "B$;:K$=""
1050 RETURN
1060 IFLEN(A$)<1ORA$=" "THENRETURN
1070 IFRIGHT$(A$,1)=" "THENA$=LEFT$(A$,LEN(A$)-1):GOTO1060
1075 IFLEFT$(A$,1)=" "THENA$=MID$(A$,2):GOTO1060
1080 RETURN
1082 SYS50759,"       PRESS A KEY ( 'Q' TO QUIT )",0,24*8
1083 POKE198,0:WAIT198,1:GETK$:IFK$="Q"THEN600
1084 RETURN
1090 VT=21:POKE53281,1:PRINT"[144][196]O YOU WANT TO TRY AGAIN? ([217]/[206])";
1100 POKE198,0:WAIT198,1:GETK$
1110 IFK$="Y"THENRESTORE:PRINT:PRINT"[207][203][193][217].  [202]UST A SECOND...":GOSUB11000
1112 IFK$="Y"THENSYS51459:GOTO110
1120 IFK$<>"[206]"THENIFK$<>"N"THENGOSUB900:GOTO1090
1130 :
1140 PRINT"[147]":OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
1142 IFER<>63THENEND
1145 LOAD"HELLO CONNECT",8
1150 END
10000 RETURN
10005 IFAB$(P)<>"CAP"THENRETURN
10010 AR$(P)="YOU ARE RIGHT! THE CAPITAL OF "
10012 IFLEN(AR$(P))<40THENAR$(P)=AR$(P)+" ":POKE53280,RND(1)*15:  GOTO10012
10014 AR$(P)=AR$(P)+Q$(P)+" IS "+A$(P)+"."
10020 AW$(P)="SORRY! THE CAPITAL OF "
10022 IFLEN(AW$(P))<40THENAW$(P)=AW$(P)+" ":POKE53280,RND(1)*15:  GOTO10022
10024 AW$(P)=AW$(P)+Q$(P)+" IS "+A$(P)+"."
10030 Q$(P)="WHAT IS THE CAPITAL OF THIS STATE?"
10040 AB$(P)=A$(P)
10050 RETURN
11000 FORP=1TONQ:Q%(P)=P:NEXT:FORP=1TONQ:GOSUB11010:NEXT:RETURN
11010 QD=RND(1)*NQ+1
11020 T=Q%(P):Q%(P)=Q%(QD):Q%(QD)=T
11050 RETURN
13000 P=QS%(QU):GOSUB930:RETURN
14000 FORCZ=1TOQ:GOSUB940:P=AS%(QU):GOSUB930:NEXT:RETURN
15000 C=C+1:GOSUB890
15005 REMIFAS%(QU)=0THEN15015
15010 REMFORCZ=1TOQ:GOSUB940:P=AS%(QU):GOSUB930:NEXT
15012 SYS50759,"                                   ",2*8,21*8
15015 SYS50759,"     THAT'S ABSOLUTELY RIGHT!!     ",2*8,22*8
15017 SYS50759,"                                   ",2*8,23*8
15018 SYS50759,"                                   ",2*8,24*8
15019 FORDL=1TO1000:NEXT
15020 RETURN
16000 P=1:GOSUB 930
16001 GOSUB900:A$="NOPE, THAT'S NOT IT!":SYS50759,A$,INT(20-LEN(A$)/2)*8,21*8
16002 IF AB$(QU)<>"CAP"THEN16007
16003 P=QS%(QU):GOSUB 930
16004 A$="THE CAPITAL OF "+Q$(QU):SYS50759,A$,INT(20-LEN(A$)/2)*8,22*8
16005 A$="IS "+A$(QU):SYS50759,A$,INT(20-LEN(A$)/2)*8,23*8:GOTO16010
16007 A$="THE CORRECT ANSWER IS -":SYS50759,A$,INT(20-LEN(A$)/2)*8,22*8
16008 SYS50759,A$(QU),INT(20-LEN(A$(QU))/2)*8,23*8
16009 FORDL=1TO1000:NEXT
16010 RETURN
20000 IFLEN(A$)<3THENXR=2:RETURN:REMIFABBREVMUSTBERIGHT
20010 X0=0:XL=LEN(A$):IFLEN(A$(QU))<XLTHENXL=LEN(A$(QU))
20012 FORX1=1TOXL
20020 IFMID$(A$,X1,1)=MID$(A$(QU),X1,1)THENX0=X0+1
20030 NEXT
20040 FORX1=LEN(A$(QU))TOLEN(A$(QU))-XL+1STEP-1
20050 IFMID$(A$,X1,1)=MID$(A$(QU),X1,1)THENX0=X0+1
20060 NEXT
20070 XR=X0/LEN(A$(QU))
20080 RETURN