10 POKE53281,0:POKE53280,0
20 DIMQU$(11),AN$(11),YA$(11),D$(11,2)
30 SP$="                                      ":CR$=CHR$(13)
100 FORI=1TO10:READQU$(I),AN$(I),D$(I,0),D$(I,1):NEXT
110 DATA"1. [201]N 1965, HOW MANY THOUSANDS OF PEOPLE EMIGRATED TO THE [213][211]?"
112 DATA"297","6","3500"
120 DATA"2. [200]OW MANY BILLIONS DID THE [198]EDERAL    [199]OV'T SPEND ON [200]EALTH IN 1987?"
122 DATA"39.7","3.4","985.8"
130 DATA"3. [200]OW MANY THOUSANDS OF BURGLARIES WERE REPORTED IN THE [213][211] IN 1977?"
132 DATA"3,072","22","28,987"
140 DATA"4. [215]HAT IS THE AREA, IN SQUARE MILES, OF [217]UGOSLAVIA?"
142 DATA"98,766","14,388","487,000"
150 DATA"5. [215]HAT IS THE POPULATION, IN THOUSANDS, OF [208]ALERMO, [211]ICILY?
152 [131]"822","154","4,866"
160 [131]"6. LEFT$OW MANY CASUALTIES, IN THOUSANDS,   WERE SUFFERED IN THE LENIVIL (null)AR?
162 DATA"646","85","4,912"
170 DATA"7. [215]HAT IS THE WORLD RECORD FOR RAINFALL IN ONE MINUTE, IN INCHES?"
172 DATA"1.23",".31","7.56"
180 DATA"8. [200]OW MANY [213][211] WOMEN, IN THOUSANDS,      LIVED ALONE IN 1960?"
182 DATA"4,436","208","79,743"
190 DATA"9. [200]OW MANY CARS, IN THOUSANDS, WERE     MADE IN [211]PAIN IN 1984?"
192 DATA"94.8","26.1","845"
200 DATA"10. [200]OW MANY STOCKHOLDERS, IN THOUSANDS, DID [201][194][205] HAVE AS OF 1988?
202 [131]"788","49","2,597"
210 [153]"LOADFOR    (null)(null)ATNSTR$(null)(null)ATN(null) (null)EADER'S (null)NOWLEDGE (null)EST":R[178][187]([171]TI)
220 [153]"OPEN     (null)LEASE ANSWER THE FOLLOWING TEN"
230 [153]" QUESTIONS AS BEST YOU CAN."
240 [151]214,23:[153]:[153]"SYS    VALNTER QSYS IF YOU WANT TO QUIT EARLY."
300 R[178][181]([187](0)[170].5)
310 [129]I[178]1[164]10
315 [129]II[178]217[164]242:[151]II,[194](II)[176]128:[130]
320 [151]214,9:[153]:[129]J[178]1[164]12:[153]SP$:[130]:R[178]1[171]R
330 [151]214,[187](0)[172]6[170]15:[153]"POKE":[153][163][187](0)[172]25[170]5)D$(I,R)
340 [151]214,10:[153]"CONT":[153]QU$(I)
350 [153]"PRINT#   (null)OUR ANSWER: ";
360 [141]50000:[139]Q9$[178]"Q"[167]620
370 YA$(I)[178]Q9$
380 [130]
400 [153]"LOADOPEN    (null)HANK YOU!
410 PRINT"[206]OW PLEASE SET YOUR PRINTER TO THE TOP
420 [153]"OF A PAGE TO PRINT OUT THE SCORE AND"
430 [153]"ANSWER SHEET.  (null)SES ONE SHEET."
440 [153]"    (null)RESS (null)(null)ATNLENVAL OPENTO PRINT.":[151]198,0
450 [161]A$:[139]A$[179][177]" "[167]450
460 [159]4,4,7:[129]I[178]1[164]10
470 [152]4,CR$;QU$(I)
480 [152]4,CR$,"LENORRECT ANSWER: ";AN$(I);
490 [152]4,"    (null)OUR ANSWER: ";YA$(I)
500 [130]:[152]4,CR$;R;CR$CR$
510 [152]4,,,"(null)ETURN THIS PAGE TO:";CR$
520 [152]4,,,"(null)(null)ATNSTR$(null)(null)ATN(null) (null)EST"
530 [152]4,,,"(null). (null). PEEKOX 30008"
540 [152]4,,,"(null)HREVEPORT, (null)ATN 71130
550 PRINT#4:CLOSE4
560 PRINT"[159]    [212]EST PRINTED!  [196]OES ANOTHER MEMBER
570 [153]"OF YOUR FAMILY WANT TO TAKE THE TEST?"
580 [153]"CONT    ((null)CONT) (null)AKE THE TEST AGAIN.
590 PRINT"    ([206][154]) [210]ETURN TO [204][207][193][196][211][212][193][210].
600 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]600
610 [139]A$[178]"Y"[167]210
620 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15
630 [139]ER[179][177]63[167][128]
640 [153]"LOADSTOPLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
650 [153]"RUN"
660 [151]631,13:[151]632,13:[151]198,2:[128]
10000 [159]15,8,15,"S0:DISKOVERY":[160]15:[148]"DISKOVERY",8:[128]
50000 Q9$[178]"":U9[178]53280:[151]198,0
50010 [161]A$
50020 [151]646,[187](1)[172]15[170]1:[153]"TOCMD";:[139]A$[178]""[167]50010
50030 [139]A$[178][199](13)[167][153]" ":[142]
50040 [139](A$[178][199](20)[175][195](Q9$))[167]Q9$[178][200](Q9$,[195](Q9$)[171]1):[137]50080
50050 [139][195](Q9$)[177][178]7[167]T9%[178][194](U9):[151]U9,1:[151]U9,T9%:[137]50010
50060 [139]A$[177][178]"0"[175]A$[179][178]"9"[167]50070
50065 [139]A$[178]"."[176]A$[178]","[176]A$[178]"Q"[167]50070
50067 [137]50010
50070 Q9$[178]Q9$[170]A$
50080 [153]""A$;:[137]50010