NSSE11  LIFEREM  CAPSREM  WCREM  LIFETIME## STCAPS 3 WORLDC K- CCFILE x! FILE ™#! 7 � L„ETIMEå A PROGRAM ± DETERMINE YOUR L„E ÞECTANCY ' � WRITTEN BY TER¨CE LUKASå04ç02ç77 0 � PUBLISHED IN KILOBAUDåNOV. 1977 ISSUE #11 2( � ADAPTED ì MOD„IED BY JAMES R. FLíAå08ç14ç77 ,- � P. O. BOX 4077, LANTANA, FLíIDA 33462 2 � ±   IN NíTH STAR BASIC 3< � MEMíY REQUI�ENT IS 9500 BYTES OF Ø RAM AFTER F � N. S. BASIC HAS BEEN ¥ED 4P � THIS PROGRAM HAS BEEN USED WITH A PROC. TECH. "Z � VDMå1 VIDEO ÆERFACE å16x64å 0d � INSTRUCTI“ å µà12) å IS A CLEAR £EEN íDER $n � NO OTHER SPECIAL REQUI�ENTS ’ IS GIVEN. 3P � PROGRAM  S IN 8,000 OF RAM AFTER N. S. BASIC Z � HAS BEEN ¥ED. %d � NO SPECIAL HARDWARE REQUI�ENTS 1n � PROGRAM USED WITH PROC. TECH. VDMå1 16x64 #x � INSTRUCTI“ µà24) CLEAR £ * � WRITTEN BY DAVE ALVERS“åJULY, 1977 2 � PUBLISHED IN KILOBAUD MARCH,1978åISSUE #15 5 � ADAPTED ì MOD„IED BY JAMES R. FLíAåJULY, 1978 - � P. O. BOX 4077, LANTANA, FLíIDA 33462 % � PROGRAM  S IN NíTH STAR BASIC 7 � STATE CAPITALS å AN EDUCATI“ PROGRAM � THE WHOLE = � FAMILY. THIS QUIZ PROGRAM GIVES THE OPERA±R THE CHOICE 3 � OF ANSWERING WITH THE STATE í THE CAPITAL . 2( � THE �M OF THE ANSWER CAN BE EITHER •åIN í 2 � MULTIPLE CHOICE. << � THE OPERA±R ALSO HAS THE OPTI“ OF BEING PROMPTED WITH 6F � THE CíRECT ANSWER „ AN INCíRECT REPLY IS GIVEN. 3P � PROGRAM  S IN 8,000 OF RAM AFTER N. S. BASIC Z � HAS BEEN ¥ED. %d � NO SPECIAL HARDWARE REQUI�ENTS 1n � PROGRAM USED WITH PROC. TECH. VDMå1 16x64 #x � INSTRUCTI“ µà12) CLEAR £EEN ’"YOU MUST SPELL EXACTLY !" "ë ’"SAINT IS ABBREVIATED (ST.)" ì ’ ,ð Xõ2\’"TO STOP TYPE -S- FOR YOUR ANSWER" ú ’ E ’"YOU HAVE YOUR CHOICE OF WHETHER THE STATE OR CAPITAL IS ASKED" 6 † "WOUL/ � THE COUNTRY ì CAPITAL PROGRAM  S IN LESS 1 � THAN 9500 RAM DEP�ING “ WHICH PART OF THE  � WíLD YOU ARE WíKING WITH. 4( � THE PROGRAM "FILE" IS USED ± INITIALIZE THE » 72 � "CCFILE" ¦AINING ALL COUNTRIES ì THEIR CAPITALS. 4< � THE STRING µà12) IS USED AS A CLEAR £EEN CODE CE 3 � OF ANSWERING WITH THE STATE í THE CAPITAL . 2( � THE �M OF THE ANSWER CAN BE EITHER •åIN í 2 � MULTIPLE CHOICE. << � THE OPERA±R ALSO HAS THE OPTI“ OF BEING  œ 64 2 � WRITTEN BY TER¨CE LUASå4ç2ç77åPUBLISHED IN # � KILOBAUD NOV. 1977åISSUE #11 1 � ADAPTED ì MOD„IED BY JAMES R. FLíAå8ç14ç78  ‰ šª  ’³à15),"<<<<<<<<<<<<<<<<"  ’³à20),"<>"  ’³à20),">>>>>>>>>>>>>>>>"  � Qõ1 ± 6\’\ƒ 4 ’"THIS PROGRAM DETERMINES YOUR LIFE EXPECTANCY"  ’\’ /# ’"DO YOU WANT BACKGROUND INFORMATION? " $( † A$\ „ A$à1,1)õ"N" ² š‚ ´ š2 2 ‰ šª ;< ’"THE FOLLOWING,THOUGH NOT VALIDATED,IS BASED ON THE " 8F ’"BEST SCIENTIFIC EVIDENCE AVAILABLE TODAY. WHILE" 8P ’"SCIENTISTS STILL DON'T KNOW ALL OF THE VARIABLES" 8Z ’"CAUSING LONG LIFE, THEY ARE AWARE OF SOME OF THE" ;d’"PHENOMENA THAT SEEM TO BE CORRELATED WITH LONGEVITY." 9n ’\’" THIS PROGRAM IS BASED ON THAT DATA AND STARTS" 2x’"WITH INDIVIDUALS AT LEAST 20 YEARS OLD."\’\’ } ‰ š  ‚ ‹ B1à101)\‰ šª ‡ ‹ E$à50) %Œ ’"WHAT IS YOUR AGE IN YEARS ", – † A1   „ A1ô20 ² š” ª ’\’"WHAT IS YOUR SEX ", ´ † S$ ¹ „ ÌàS$)õ0 ² šª ¾ � Iõ0 ± 101 È … B1àI) Ò ƒ I Ü CõA1å20 æ „ S$à1,1)õ"F" ² CõCã51 8ð ‡ 69.9,70.0,70.1,70.2,70.3,70.4,70.5,70.6,70.7,70.8 8ú ‡ 70.9,70.9,71.0,71.1,71.2,71.3,71.4,71.5,71.6,71.7 8 ‡ 71.8,71.9,72.0,72.2,72.3,72.5,72.6,72.8,73.0,73.2 8 ‡ 73.4,73.6,73.8,74.1,74.3,74.6,74.9,75.2,75.5,75.8 8 ‡ 76.2,76.5,76.9,77.3,77.7,78.1,78.6,79.0,79.5,79.9 8" ‡ 80.4,77.0,77.0,77.1,77.1,77.2,77.2,77.3,77.3,77.4 8, ‡ 77.4,77.5,77.5,77.5,77.6,77.6,77.7,77.8,77.8,77.9 86 ‡ 78.0,78.0,78.1,78.2,78.3,78.4,78.5,78.6,78.7,78.9 8@ ‡ 79.0,79.1,79.3,79.4,79.6,79.7,79.9,80.1,80.3,80.5 8J ‡ 80.7,80.9,81.2,81.4,81.6,81.9,82.2,82.4,82.7,83.0 T ‡ 83.3,83.6 ?^ ’\’"YOUR BASE LIFE EXPECTANCY AGE IS ",B1àC)," YEARS OLD." c ’³à33),"<><><>" h ’\TõB1àC) l ‰ š  r ‰ š¸ | ’³à20),"PART I HEREDITY" † ‰ š¸ ;� ’\’"DID AT LEAST TWO OF YOUR GRANDPARENTS LIVE TO AGE" š ’"80, OR MORE ", ¤ † A$ ,® „ A$à1,1)õ"N" ² ’³à20),T," +0=",T ´ š¸ ³ ˆ šÌ ¸ ’³à20),T,"+2=",àTã2)\TõTã2 Ì ’ &Ö ’"WHAT IS/WAS YOUR MOTHER'S AGE", à † A $ê „ Aô80 ² ’³à20),T,"+0=",T ´ šô ï ˆ šþ ô ’³à20),T,"+1.5=",àTã1.5) ù TõTã1.5 þ ’ & ’"WHAT IS/WAS YOUR FATHER'S AGE",  † A $ „ Aô80 ² ’³à20),T,"+0=",T ´ š& ! ˆ š0 & ’³à20),T,"+2=",àTã2)\TõTã2 0 ’ 9: ’"DID ANY OF YOUR GRANDPARENTS,PARENTS, BROTHERS OR" >D ’"SISTERS DIE OF A HEART ATTACK OR STROKE BEFORE AGE 50?" X † A$ +b „ A$à1,1)õ"N" ² ’³à20),T,"-0=",T ´ šl g ˆ š€ l ’³à20),T,"-4=",àTå4)\TõTå4 € ’ :Š ’"DID ANY OF THE ABOVE DIE OF HEART ATTACK OR STROKE" ” ’"BEFORE AGE 60", ž † A$ +¨ „ A$à1,1)õ"N" ² ’³à20),T,"-0=",T ´ š² ­ ˆ š¼ ² ’³à20),T,"-2=",àTå2)\TõTå2 ¼ ’ :Ð ’"WHAT IS THE TOTAL NUMBER OF INCIDENCES OF DIABETES" 8Ú ’"THYROID DISORDER, BREST CANCER (WOMEN),DIGESTIVE" 7ä ’"SYSTEM CANCER, ASTHMA, EMPHYSEMA AND/OR CHRONIC" :î ’"BRONCHITIS FOUND IN YOUR PARENTS AND GRANDPARENTS?" ø † A " ’³à20),T,"-3X",A," =",àTå3âA)   TõTå3âA\’  ‰ š   ‰ š¸ (  ’³à15),"PART II HEALTH AND DIET" * ‰ š¸ 4 ’ -> ’"HOW MANY POUNDS OVERWEIGHT ARE YOU ", H † A R „ Aõ0 ² Bõ0 ´ š\ W ˆ šf \ BõAç10 f ’³à20),T,"-",B," =",àTåB) p TõTåB z ’ 6„ ’"HOW MANY PACKS OF CIGARETS DO YOU SMOKE A DAY", Ž † A ˜ „ Aõ0 ² Bõ0 ´ š¢ � ˆ šè ¢ „ Aô1 ² Bõ2 ´ 𬠧 ˆ šè ¬ „ Aõ1 ² Bõ4 ´ š¶ ± ˆ šè ¶ „ Aô1.5 ² Bõ5.5 ´ šÀ » ˆ šè À „ Aô2 ² Bõ7 ´ šÊ Å ˆ šè Ê „ Aõ2 ² Bõ8 ´ šÔ Ï ˆ šè Ô „ Að3 ² Bõ10 ´ šÞ Ù ˆ šè Þ „ Aö3 ² Bõ12 ´ šè è ’³à20),T,"-",B,"=",àTåB) ò TõTåB ü ’ - ’"HOW MANY DRINKS DO YOU HAVE EACH DAY",  † A ' „ Aõ0 ² ’³à20),T,"-1=",àTå1)\TõTå1  „ Aõ0 ² š8 '$ „ Að2 ² ’³à20),T,"+3=",àTã3)\TõTã3 ) „ Að2 ² š8 '. „ Aö2 ² ’³à20),T,"-8=",àTå8)\TõTå8 3 „ Aö2 ² š8 58 ’\E$õ"DO YOU WANT AN EXPLANATION OF THIS ?"\’ E$ B † A$ L „ A$à1,1)õ"N" ² š— V ’\‰ šª <` ’"MODERATE DRINKING (UP TO TWO DRINKS PER DAY) REDUCES" >> YEARS!" F ‰ š¸ P � Qõ1 ± 6\’ \ƒ · � ¸ � Xõ1 ± 59\’"*",\ƒ X\’\Š #  � Qõ1 ± 4\’\ƒ\†"HIT RETURN",A$ ª ’µà12),"*"\Š\� CLEAR £EEN 0”’"SORRY, YOU MUST BE AT LEAST 20 YEARS OLD." ž � & � STATES ì CAPITALS QUIZ PROGRAM " � BY DAVE ALVERS“ JULY, 1977 $ � ADAPTED ± NíTH STAR BASIC BY ( � JAMES R. FLíA JULY, 1978 2 ‰ šb < � Xõ1 ± 59\’">",\ƒ X\’ F ’³à20),"STATE" P ’³à25),"AND" Z ’³à28),"CAPITALS" %d � Xõ1 ± 59\’"<",\ƒ X\’\’\’\’\’\’ n œ 64  CõÆàÎà0)â4)ã1 H � Iõ1 ± 4 R BàI)õÆàÎà0)â50)ã1 \ ƒ I f BàC)õR .p „ Bà1)õBà2) í Bà1)õBà3) í Bà1)õBà4) ² šH .z „ Bà2)õBà3) í Bà2)õBà4) í Bà3)õBà4) ² šH „ „ Yõ2 ² šÔ "Ž ’"1. ",C$àBà1)â15å14,Bà1)â15) "˜ ’"2. ",C$àBà2)â15å14,Bà2)â15) "¢ ’"3. ",C$àBà3)â15å14,Bà3)â15) "¬ ’"4. ",C$àBà4)â15å14,Bà4)â15) ¶ ’\’ · T$õS$àRâ15å14,Râ15) ¸ � Dõ4 ± 15 º „ Dõ15 ² šÀ ¼ „ T$àD,Dã1)õ" " ² šÀ ¾ ƒ D %À ’"THE CAPITAL OF ",T$à1,D),"IS", Ê ˆ š Ô � ‚ STATE CHOICES "Þ ’"1. ",S$àBà1)â15å14,Bà1)â15) "è ’"2. ",S$àBà2)â15å14,Bà2)â15) "ò ’"3. ",S$àBà3)â15å14,Bà3)â15) "ü ’"4. ",S$àBà4)â15å14,Bà4)â15)  ’\’  D$õC$àRâ15å14,Râ15)  � Dõ4 ± 15  „ Dõ15 ² š   „ D$àD,Dã1)õ" " ² š   ƒ D # ’D$à1,D),"IS THE CAPITAL OF ",  † Z\ ZõÆàÛàZ)) $ „ Zô1 í Zö4 ² šÎ . „ ZõC ² šœ 8 AàR)õ1 7B „ Fõ1 ² ’"WRONG THE CORRECT ANSWER IS :",C ´ š` L � Oõ1 ±150 ° .1\ƒ O V ‰ šb\ˆ šº #` � Oõ1 ± 6\’"WRONG !"\ƒ O\ˆ šL j AàR)õ1 9t „ Fõ1 ² ’"WRONG ! THE CORECT ANSWER IS :",A$ ´ š’ ~ � Oõ1 ±150 ° .1\ƒ O ˆ ‰ šb\ˆ šº #’ � Oõ1 ± 6\’"WRONG !"\ƒ O\ˆ š~ œ AàR)õ2\NõNã1 ¦ ‰ šb %° ’"RIGHT! YOU HAVE",N," CORRECT", º ’\GõGã1 Ä „ Nô50 ² šD ´ šö Î † "DO YOU WANT TO STOP",Z$ Ø „ Z$õ"Y" ² šö *â ’"YOUR ANSWER FOR THE LAST QUESTION", ì “ X ˆ š, šä ö ‰ šb , ’"YOU GOT ",N," RIGHT IN ",G," GUESSES"   „ Nõ0 ² N1õ0 ´ š  ˆ š(  ’\N1õNçGâ100 .( ’"THAT IS ",%6F2,N1," PER CENT CORRECT !" 2 � Qõ1 ± 6\’"*"\ƒ '< †"WOULD YOU LIKE TO TRY AGAIN?",Z$ F „ Z$õ"Y" ² š  ´ šD *P ‡ "ALABAMA ","MONTGOMERY " *Z ‡ "ALASKA ","JUNEAU " *d ‡ "ARIZONA ","PHOENIX " *n ‡ "ARKANSAS ","LITTLE ROCK " *x ‡ "CALIFORNIA ","SACRAMENTO " *‚ ‡ "COLORADO ","DENVER " *Œ ‡ "CONNECTICUT ","HARTFORD " *– ‡ "DELAWARE ","DOVER " *  ‡ "FLORIDA ","TALLAHASSEE " *ª ‡ "GEORGIA ","ATLANTA " *´ ‡ "HAWAII ","HONOLULU " *¾ ‡ "IDAHO ","BOISE " *È ‡ "ILLINOIS ","SPRINGFIELD " *Ò ‡ "INDIANA ","INDIANAPOLIS " *Ü ‡ "IOWA ","DES MOINES " *æ ‡ "KANSAS ","TOPEKA " *ð ‡ "KENTUCKY ","FRANKFORT " *ú ‡ "LOUISIANA ","BATON ROUGE " * ‡ "MAINE ","AUGUSTA " * ‡ "MARYLAND ","ANNAPOLIS " * ‡ "MICHIGAN ","LANSING " *" ‡ "MINNESOTA ","ST. PAUL " *, ‡ "MISSISSIPPI ","JACKSON " *6 ‡ "MISSOURI ","JEFFERSON CITY " *@ ‡ "MONTANA ","HELENA " *J ‡ "NEBRASKA ","LINCOLN " *T ‡ "NEVADA ","CARSON CITY " *^ ‡ "NEW HAMPSHIRE ","CONCORD " *h ‡ "NEW JERSEY ","TRENTON " *r ‡ "NEW MEXICO ","SANTA FE " *| ‡ "NEW YORK ","ALBANY " *† ‡ "NORTH CAROLINA ","RALEIGH " *� ‡ "NORTH DAKOTA ","BISMARCK " *š ‡ "OHIO ","COLUMBUS " *¤ ‡ "OKLAHOMA ","OKLAHOMA CITY " *® ‡ "OREGON ","SALEM " *¸ ‡ "PENNSYLVANIA ","HARRISBURG " * ‡ "RHODE ISLAND ","PROVIDENCE " *Ì ‡ "SOUTH CAROLINA ","COLUMBIA " *Ö ‡ "SOUTH DAKOTA ","PIERRE " *à ‡ "TENNESSEE ","NASHVILLE " *ê ‡ "TEXAS ","AUSTIN " *ô ‡ "UTAH ","SALT LAKE CITY " *þ ‡ "VERMONT ","MONTPELIER " * ‡ "VIRGINIA ","RICHMOND " * ‡ "WASHINGTON ","OLYMPIA " * ‡ "WEST VIRGINIA ","CHARLESTON " *& ‡ "WISCONSIN ","MADISON " *0 ‡ "WYOMING ","CHEYENNE " *: ‡ "MASSACHUSETTS ","BOSTON " %D � Xõ1 ± 16\’"THANKS!!!!!!"\ƒ X\’ N � X � CLEAR £EEN SUB R. b ’µà12),"*"\Š ÏtB/ômÿ3 A( � COUNTRIES ì CAPITALS QUIZ PROGRAM $ � ADAPTED ± NíTH STAR BASIC BY  � JAMES R. FLíA JULY, 1978 -( � REVISED FROM STATES ì CAPITALS PROGRAM !2 � BY DAVE ALVERS“ JULY, 1977 < ‰ šD F � Xõ1 ± 59\’">",\ƒ X\’ P ’³à20),"COUNTRIES" Z ’³à25),"AND" d ’³à28),"CAPITALS" %n � Xõ1 ± 59\’"<",\ƒ X\’\’\’\’\’\’ x œ 64 ‚ †"HIT RETURN ",X$\‰ šD 8Œ ’"SELECT ONE OF THE FOLLOWING AREAS OF THE WORLD !" – ’\’ 8  ’³à20),"1.) NORTH AMERICA, SOUTH AMERICA, CENTRAL " ,ª ’³à20),"AMERICA, AND THE CARIBBEAN. "\’ 0´ ’³à20),"2.) EUROPE AND THE MIDDLE EAST. "\’ 6¾ ’³à20),"3.) FAR EAST, SOUTHEAST ASIA, SOUTH ASIA" È ’³à20),"AND OCEANIA. "\’ !Ò ’³à20),"4.) A F R I C A "\’ %Ü †"WHICH REGION DO YOU WANT ?",A2 æ “ A2 ˆ šð,š,š,š, ð Eõ29\E1õ1\E2õ29 ú ˆ š6  Eõ48\E1õ30\E2õ77  ˆ š6  Eõ30\E1õ78\E2õ107 " ˆ š6 , Eõ53\E1õ108\E2õ160 86 ‹ AàE), A1à20), C$à20âE), S$à20âE), A$à20), P$à20) "@ ‹ Z$à20), Dà20),D$à20),T$à20) J B$õ"CCFILE" T — #1,B$ ^ Hõ1 h � XõE1 ± E2 0r … #1%44âX,S$àHâ20å19,Hâ20),C$àHâ20å19,Hâ20) | HõHã1 † ƒ � ˜ #1 š � Iõ1 ± E\AàI)õ0\ƒ I ¤ € Gõ0\€ Nõ0\€ A1õ0\€ Fõ0 ® ‰ šD :¸ ’"YOU HAVE YOUR CHOICE OF FILL-IN OR MULTIPLE CHOICE" 2 † "WOULD YOU LIKE TO FILL=IN THE ANSWERS?",Z$ Ì „ Z$à1,1)õ"Y" ² š Ö ‰ šD )à ’"======== MULTIPLE CHOICE ========" -ê ’" ANSWER EACH QUESTION WITH 1,2,3 OR 4" ô ’ 3þ Xõ1\’"TO STOP TYPE -0- (ZERO) FOR YOUR ANSWER"  ˆ šb  ‰ šD ! ’"======== FILL-IN ========" & ’"YOU MUST SPELL EXACTLY !" %0 ’"EMP.=EMPIRE AND REP.=REPUBLIC" =: ’"U.S.S.R. - NORTH KOREA - SOUTH KOREA - EAST GERMANY -" &D ’"WEST GERMANY - UNITED STATES -" N ’ ,X Xõ2\’"TO STOP TYPE -S- FOR YOUR ANSWER" b ’ 8l ’"YOU HAVE YOUR CHOICE OF WHETHER THE COUNTRY OR ", v ’"CAPITAL IS ASKED." 6€ † "WOULD YOU LIKE TO ANSWER WITH THE CAPITAL?",Z$ Š ’\’ 6” ’"WOULD YOU LIKE THE CORRECT ANSWER TO APPEAR IF" ,ž †"AN INCORRECT RESPONSE WAS GIVEN ?",F$ ¨ „ F$à1,1)õ"Y" ² Fõ1 ² Yõ2 ¼ „ Z$à1,1)õ"Y" ² Yõ1 Æ ’ #Ð † "ENTER A RANDOM NUMBER: ",K Ú ‰ šD ä KõÛàK) î „ Kô1 ² š  ø KõKç10  ˆ šî +  LõÎàK)\� L IS THE Î. SEEDååNO RìOMIZE’  ’   � Iõ1 ± 10 * RõÆàÎàL)âE)ã1 4 „ AàR)ñ 2 ² šŽ > ƒ I H ˆ šf R ’ \ Lõ0\ˆ š  f � Rõ1 ± E p „ AàR)ñ2 ² šŽ z ƒ R „ ˆ šÌ %Ž „ AàR)õ1 ² ’"TRY THIS ONE AGAIN" ˜ „ Xõ1 ² šœ &¢ � THIS SECTI“ ASKS � •åIN ANSWERS ¬ „ Yõ2 ² š ¶ A$õC$àRâ20å19,Râ20) À T$õS$àRâ20å19,Râ20) Ê � Dõ4 ± 20 Ô „ Dõ20 ² šü Þ „ T$àD,Dã1)õ" " ² šü è ƒ D ò A1õÌàA$) +ü ’"WHAT IS THE CAPITAL OF ",T$à1,D),"?"  ˆ šV  A$õS$àRâ20å19,Râ20)  D$õC$àRâ20å19,Râ20) $ � Dõ4 ± 20 . „ Dõ20 ² šL 8 „ D$àD,Dã1)õ" " ² šL B ƒ D #L ’D$à1,D),"IS THE CAPITAL OF ", V † Z$ ` „ ÌàZ$)õ1 ² š¤ j € X1õ20åÌàZ$) t � Y1õ1 ± X1 ~ € Z$õZ$ã" " ˆ ƒ Y1 ’ „ Z$õA$ ² šr ´ š@ 0œ � THIS SECTI“ ASKS MULTIPLE CHOICE QUESTI“S (¦ � THE ·UE OF C IS THE CíRECT ANSWER ° CõÆàÎà0)â4)ã1 º � Iõ1 ± 4 Ä BàI)õÆàÎà0)âE)ã1 Î ƒ I Ø BàC)õR .â „ Bà1)õBà2) í Bà1)õBà3) í Bà1)õBà4) ² šº .ì „ Bà2)õBà3) í Bà2)õBà4) í Bà3)õBà4) ² šº ö „ Yõ2 ² šx " ’"1. ",C$àBà1)â20å19,Bà1)â20) "  ’"2. ",C$àBà2)â20å19,Bà2)â20) " ’"3. ",C$àBà3)â20å19,Bà3)â20) " ’"4. ",C$àBà4)â20å19,Bà4)â20) ( ’\’ 2 T$õS$àRâ20å19,Râ20) < � Dõ4 ± 20 F „ Dõ20 ² šd P „ T$àD,Dã1)õ" " ² šd Z ƒ D %d ’"THE CAPITAL OF ",T$à1,D),"IS", n ˆ šð x � ‚ STATE CHOICES "‚ ’"1. ",S$àBà1)â20å19,Bà1)â20) "Œ ’"2. ",S$àBà2)â20å19,Bà2)â20) "– ’"3. ",S$àBà3)â20å19,Bà3)â20) "  ’"4. ",S$àBà4)â20å19,Bà4)â20) ª ’\’ ´ D$õC$àRâ20å19,Râ20) ¾ � Dõ4 ± 20 È „ Dõ20 ² šæ Ò „ D$àD,Dã1)õ" " ² šæ Ü ƒ D #æ ’D$à1,D),"IS THE CAPITAL OF ", ð † Z\ ZõÆàÛàZ)) ú „ Zô1 í Zö4 ² š¤  „ ZõC ² šr  AàR)õ1 7 „ Fõ1 ² ’"WRONG THE CORRECT ANSWER IS :",C ´ š6 " � Oõ1 ±150 ° .1\ƒ O , ‰ šD\ˆ š� #6 � Oõ1 ± 6\’"WRONG !"\ƒ O\ˆ š" @ AàR)õ1 7J „Fõ1²’"WRONG ! THE CORRECT ANSWER IS : ",A$´šh T � Oõ1 ±150 ° .1\ƒ O ^ ‰ šD\ˆ š� #h � Oõ1 ± 6\’"WRONG !"\ƒ O\ˆ šT r AàR)õ2\NõNã1 | ‰ šD %† ’"RIGHT! YOU HAVE",N," CORRECT", � ’\GõGã1 š „ NôE ² šR ´ šÌ ¤ † "DO YOU WANT TO STOP",Z$ ® „ Z$õ"Y" ² šÌ *¸ ’"YOUR ANSWER FOR THE LAST QUESTION",  “ X ˆ šð, šV Ì ‰ šD ,Ö ’"YOU GOT ",N," RIGHT IN ",G," GUESSES" à „ Nõ0 ² N1õ0 ´ šô ê ˆ šþ ô ’\N1õNçGâ100 .þ ’"THAT IS ",%6F2,N1," PER CENT CORRECT !"  � Qõ1 ± 6\’"*"\ƒ ' †"WOULD YOU LIKE TO TRY AGAIN?",Z$  „ Z$õ"Y" ² šš ´ š& %& � Xõ1 ± 16\’"THANKS!!!!!!"\ƒ X\’ 0 � : � CLEAR £EEN SUB R. D ’µà12),"*"\Š  CANADA OTTAWA CACANADA OTTAWA MEXICO MEXICO CITY UNITED STATES WASHINGTON ARGENTINA BUENOS AIRES BOLIVIA SUCRE BRAZIL BRASILIA CHILE SANTIAGO COLOMBIA BOGOTA` ECUADOR QUITO GUYANA GEORGETOWN PARAGUAY ASUNCION PERU LIMA SURINAM PARAMARIBO URUGUAY MONTEVIDEO VENEZUELA CARACAS COSTA RICA SAN JOSE` EL SALVADOR SAN SALVADOR GUATEMALA GUATEMALA CITY HONDURAS TEGUCIGALPA NICARAGUA MANAGUA PANAMA PANAMA CITY BAHAMAS NASSAU BARBADOS BRIDGETOWN CUBA HAVANA DOMINICAN REPUBLIC SANTO DOMINGO GRENADA ST. GEORGE'S HAITI PORT-AU-PRINCE JAMAICA KINGSTON TRINIDAD AND TOBAGO PORT-OF-SPAIN ALBANIA TIRANA ANDORRA ANDORRA LA VELLA AUSTRIA VIENNA BELGIUM BRUSSELS BULGARIA SOFIA CYPRUS NICOSIA CZECHOSLOVAKIA PRAGUE DENMARK COPENHAGEN FINLAND HELSINKI FRANCE PARIS EAST GERMANY EAST BERLIN WEST GERMANY BONN GREECE ATHENS HUNGARY BUDAPEST ICELAND REYKJAVIK IRELAND DUBLIN ITALY ROME LIECHTENSTEIN VADUZ LUXEMBOURG LUXEMBOURG MALTA BAMAKO MONACO MONTE CARLO NETHERLANDS AMSTERDAM NORWAY OSLO POLAND WARSAW PORTUGAL LISBON ROMANIA BUCHAREST SAN MARINO SAN MARINO SPAIN MADRID SWEDEN STOCKHOLM SWITZERLAND BERN U.S.S.R. MOSCOW UNITED KINGDOM LONDON YUGOSLAVIA BELGRADE BAHRAIN MANAMA EGYPT CAIRO IRAN TEHERAN IRAQ BAGHDAD ISRAEL JERUSALEM JORDAN AMMAN KUWAIT KUWAIT LEBANON BEIRUT OMAN MUSCAT QATAR DOHA SAUDI ARABIA RIYADH SYRIA DAMASCUS TURKEY ANKARA UNITED ARAB EMIRATESABU DHABI YEMEN SAN`A' CHINA PEKING TAIWAN TAIPEI JAPAN TOKYO NORTH KOREA PYONGYANG SOUTH KOREA SEOUL OUTER MONGOLIA ULAN BATOR PHILIPPINES MANILA CAMBODIA PHNOM PENH INDONESIA JAKARTA LAOS VIENTIANE MALAYSIA KUALA LUMPUR SINGAPORE SINGAPORE THAILAND BANGKOK VIETNAM HANOI AFGHANISTAN KABUL BANGLADESH DACCA BHUTAN THIMPHU BURMA RANGOON INDIA NEW DELHI MALDIVES MALE` NEPAL KATMANDU PAKISTAN ISLAMABAD CEYLON COLOMBO AUSTRALIA CANBERRA FIJI SUVA NAURU YAREN NEW ZEALAND WELLINGTON NEW GUINEA PORT MORESBY TONGA NUKU'ALOFA WESTERN SAMOA APIA ALGERIA ALGIERS ANGOLA LUANDA BENIN PORTO-NOVO BOTSWANA GABORONE BURUNDI BUJUMBURA CAMEROON YAOUNDE` CAPE VERDE PRAIA CENTRAL AFRICAN EMP.BANGUI CHAD NDJAMENA COMORO ISLANDS MORONI CONGO BRAZZAVILLE DJIBOUTI DJIBOUTI EGYPT CAIRO EQUATORIAL GUINEA MALABO ETHIOPIA ADDIS ABABA GABON LIBREVILLE GAMBIA BANJUL GHANA ACCRA GUINEA CONARY GUINEA-BISSAU BISSAU IVORY COAST ABIDJAN KENYA NAIROBI LESOTHO MASERU LIBERIA MONROVIA LIBYA TRIPOLI MADAGASCAR TANANARIVE MALAWI LILONGWE MALI BAMAO MAURITANIA NOUACHOTT MAURITIUS PORT LOUIS MOROCCO RABAT-SALE` MOZAMBIQUE MAPUTO NAMIBIA WINDHOE NIGER NIAMEY NIGERIA LAGOS RHODESIA SALISBURY RWANDA KIGALI SAO TOME SAO TOME` SENEGAL DAKAR SEYCHELLES VICTORIA SIERRA LEONE FREETOWN SOMALIA MOGADISHU REP. OF SOUTH AFRICACAPE TOWN SUDAN KHARTOUM SWAZILAND MBABANE TANZANIA DAR ES SALAAM TOGO LOME` TRANSKEI UMTATA TUNISIA TUNIS UGANDA KAMPALA UPPER VOLTA OUAGADOUGOU ZAIRE KINSHASA ZAMBIA LUSAKA  7 � THIS PROGRAM INITIALIZES THE COUNTRY ì CAPITAL »  ‹ S$à20),C$à20)  B$õ"CCFILE" ( — #1,B$ 2 Hõ1 < � Xõ1 ± 160 F … S$,C$ P ™ #1 %44âH,S$,C$ Z HõHã1 d ƒ n � x ˜ #1 3‚ ‡"CANADA ","OTTAWA " 3Œ ‡"MEXICO ","MEXICO CITY " 3– ‡"UNITED STATES ","WASHINGTON " 3  ‡"ARGENTINA ","BUENOS AIRES " 3ª ‡"BOLIVIA ","SUCRE " 3´ ‡"BRAZIL ","BRASILIA " 3¾ ‡"CHILE ","SANTIAGO " 3È ‡"COLOMBIA ","BOGOTA` " 3Ò ‡"ECUADOR ","QUITO " 3Ü ‡"GUYANA ","GEORGETOWN " 3æ ‡"PARAGUAY ","ASUNCION " 3ð ‡"PERU ","LIMA " 3ú ‡"SURINAM ","PARAMARIBO " 3 ‡"URUGUAY ","MONTEVIDEO " 3 ‡"VENEZUELA ","CARACAS " 3 ‡"COSTA RICA ","SAN JOSE` " 3" ‡"EL SALVADOR ","SAN SALVADOR " 3, ‡"GUATEMALA ","GUATEMALA CITY " 36 ‡"HONDURAS ","TEGUCIGALPA " 3@ ‡"NICARAGUA ","MANAGUA " 3J ‡"PANAMA ","PANAMA CITY " 3T ‡"BAHAMAS ","NASSAU " 3^ ‡"BARBADOS ","BRIDGETOWN " 3h ‡"CUBA ","HAVANA " 3r ‡"DOMINICAN REPUBLIC ","SANTO DOMINGO " 3| ‡"GRENADA ","ST. GEORGE'S " 3† ‡"HAITI ","PORT-AU-PRINCE " 3� ‡"JAMAICA ","KINGSTON " 3š ‡"TRINIDAD AND TOBAGO ","PORT-OF-SPAIN " 3¤ ‡"ALBANIA ","TIRANA " 3® ‡"ANDORRA ","ANDORRA LA VELLA " 3¸ ‡"AUSTRIA ","VIENNA " 3 ‡"BELGIUM ","BRUSSELS " 3Ì ‡"BULGARIA ","SOFIA " 3Ö ‡"CYPRUS ","NICOSIA " 3à ‡"CZECHOSLOVAKIA ","PRAGUE " 3ê ‡"DENMARK ","COPENHAGEN " 3ô ‡"FINLAND ","HELSINKI " 3þ ‡"FRANCE ","PARIS " 3 ‡"EAST GERMANY ","EAST BERLIN " 3 ‡"WEST GERMANY ","BONN " 3 ‡"GREECE ","ATHENS " 3& ‡"HUNGARY ","BUDAPEST " 30 ‡"ICELAND ","REYKJAVIK " 3: ‡"IRELAND ","DUBLIN " 3D ‡"ITALY ","ROME " 3N ‡"LIECHTENSTEIN ","VADUZ " 3X ‡"LUXEMBOURG ","LUXEMBOURG " 3b ‡"MALTA ","BAMAKO " 3l ‡"MONACO ","MONTE CARLO " 3v ‡"NETHERLANDS ","AMSTERDAM " 3€ ‡"NORWAY ","OSLO " 3Š ‡"POLAND ","WARSAW " 3” ‡"PORTUGAL ","LISBON " 3ž ‡"ROMANIA ","BUCHAREST " 3¨ ‡"SAN MARINO ","SAN MARINO " 3² ‡"SPAIN ","MADRID " 3¼ ‡"SWEDEN ","STOCKHOLM " 3Æ ‡"SWITZERLAND ","BERN " 3Ð ‡"U.S.S.R. ","MOSCOW " 3Ú ‡"UNITED KINGDOM ","LONDON " 3ä ‡"YUGOSLAVIA ","BELGRADE " 3î ‡"BAHRAIN ","MANAMA " 3ø ‡"EGYPT ","CAIRO " 3 ‡"IRAN ","TEHERAN " 3  ‡"IRAQ ","BAGHDAD " 3 ‡"ISRAEL ","JERUSALEM " 3  ‡"JORDAN ","AMMAN " 3* ‡"KUWAIT ","KUWAIT " 34 ‡"LEBANON ","BEIRUT " 3> ‡"OMAN ","MUSCAT " 3H ‡"QATAR ","DOHA " 3R ‡"SAUDI ARABIA ","RIYADH " 3\ ‡"SYRIA ","DAMASCUS " 3f ‡"TURKEY ","ANKARA " 3p ‡"UNITED ARAB EMIRATES","ABU DHABI " 3z ‡"YEMEN ","SAN`A' " 3„ ‡"CHINA ","PEKING " 3Ž ‡"TAIWAN ","TAIPEI " 3˜ ‡"JAPAN ","TOKYO " 3¢ ‡"NORTH KOREA ","PYONGYANG " 3¬ ‡"SOUTH KOREA ","SEOUL " 3¶ ‡"OUTER MONGOLIA ","ULAN BATOR " 3À ‡"PHILIPPINES ","MANILA " 3Ê ‡"CAMBODIA ","PHNOM PENH " 3Ô ‡"INDONESIA ","JAKARTA " 3Þ ‡"LAOS ","VIENTIANE " 3è ‡"MALAYSIA ","KUALA LUMPUR " 3ò ‡"SINGAPORE ","SINGAPORE " 3ü ‡"THAILAND ","BANGKOK " 3 ‡"VIETNAM ","HANOI " 3 ‡"AFGHANISTAN ","KABUL " 3 ‡"BANGLADESH ","DACCA " 3$ ‡"BHUTAN ","THIMPHU " 3. ‡"BURMA ","RANGOON " 38 ‡"INDIA ","NEW DELHI " 3B ‡"MALDIVES ","MALE` " 3L ‡"NEPAL ","KATMANDU " 3V ‡"PAKISTAN ","ISLAMABAD " 3` ‡"CEYLON ","COLOMBO " 3j ‡"AUSTRALIA ","CANBERRA " 3t ‡"FIJI ","SUVA " 3~ ‡"NAURU ","YAREN " 3ˆ ‡"NEW ZEALAND ","WELLINGTON " 3’ ‡"NEW GUINEA ","PORT MORESBY " 3œ ‡"TONGA ","NUKU'ALOFA " 3¦ ‡"WESTERN SAMOA ","APIA " 3° ‡"ALGERIA ","ALGIERS " 3º ‡"ANGOLA ","LUANDA " 3Ä ‡"BENIN ","PORTO-NOVO " 3Î ‡"BOTSWANA ","GABORONE " 3Ø ‡"BURUNDI ","BUJUMBURA " 3â ‡"CAMEROON ","YAOUNDE` " 3ì ‡"CAPE VERDE ","PRAIA " 3ö ‡"CENTRAL AFRICAN EMP.","BANGUI " 3 ‡"CHAD ","NDJAMENA " 3  ‡"COMORO ISLANDS ","MORONI " 3 ‡"CONGO ","BRAZZAVILLE " 3 ‡"DJIBOUTI ","DJIBOUTI " 3( ‡"EGYPT ","CAIRO " 32 ‡"EQUATORIAL GUINEA ","MALABO " 3< ‡"ETHIOPIA ","ADDIS ABABA " 3F ‡"GABON ","LIBREVILLE " 3P ‡"GAMBIA ","BANJUL " 3Z ‡"GHANA ","ACCRA " 3d ‡"GUINEA ","CONARY " 3n ‡"GUINEA-BISSAU ","BISSAU " 3x ‡"IVORY COAST ","ABIDJAN " 3‚ ‡"KENYA ","NAIROBI " 3Œ ‡"LESOTHO ","MASERU " 3– ‡"LIBERIA ","MONROVIA " 3  ‡"LIBYA ","TRIPOLI " 3ª ‡"MADAGASCAR ","TANANARIVE " 3´ ‡"MALAWI ","LILONGWE " 3¾ ‡"MALI ","BAMAO " 3È ‡"MAURITANIA ","NOUACHOTT " 3Ò ‡"MAURITIUS ","PORT LOUIS " 3Ü ‡"MOROCCO ","RABAT-SALE` " 3æ ‡"MOZAMBIQUE ","MAPUTO " 3ð ‡"NAMIBIA ","WINDHOE " 3ú ‡"NIGER ","NIAMEY " 3 ‡"NIGERIA ","LAGOS " 3 ‡"RHODESIA ","SALISBURY " 3 ‡"RWANDA ","KIGALI " 3" ‡"SAO TOME ","SAO TOME` " 3, ‡"SENEGAL ","DAKAR " 36 ‡"SEYCHELLES ","VICTORIA " 3@ ‡"SIERRA LEONE ","FREETOWN " 3J ‡"SOMALIA ","MOGADISHU " 3T ‡"REP. OF SOUTH AFRICA","CAPE TOWN " 3^ ‡"SUDAN ","KHARTOUM " 3h ‡"SWAZILAND ","MBABANE " 3r ‡"TANZANIA ","DAR ES SALAAM " 3| ‡"TOGO ","LOME` " 3† ‡"TRANSKEI ","UMTATA " 3� ‡"TUNISIA ","TUNIS " 3š ‡"UGANDA ","KAMPALA " 3¤ ‡"UPPER VOLTA ","OUAGADOUGOU " 3® ‡"ZAIRE ","KINSHASA " 3¸ ‡"ZAMBIA ","LUSAKA "  Œ