, STATES, PROVIDENCES & CAPITALS 19842 PRACTICE IN MATCHING IN STATES AND CAPITALS (AND CANANADIAN PROVIDENCES)‡(2Í< COMMMODORE 128, BASIC 7.0 80-COLUMN MONITOR 5 1/2 KÓFïP™ "“" :W²3:Q²5: 17601 Z™"************* STATES, PROVINCES AND CAPITALS ************"P d† A(62),B(4),C$(62),S$(62)y n READ IN STATES AND CAPITAL ARRAYSˆ x I²1 ¤ 62ž ‚‡ S$(I),C$(I):‚ IÀ Œ I²1 ¤ 62:A(I)²0:‚ I:G²0:N²0Õ – I²1 ¤ 1000:‚ Ií  ™"“":W²1:Q²1: 1760> ª™:™"YOU HAVE YOUR CHOICE OF TAKING A FILL IN OR A ":™ "MULTIPLE CHOICE TEST"D ´™r ¾™"WOULD YOU LIKE TO FILL IN THE ANSWERS?"” È™"(Y FOR 'YES', N FOR 'NO') "« Ò¡ Z$:‹ Z$²"" § 210 ܋ Z$²"Y" § ™:‰ 300Ú æ‹ Z$³±"N" § ™:‰ 160â ð™:™! ú™"MULTIPLE CHOICE -- ANSWER EACH QUESTION WITH 1,2,3 OR 4"' ™X X²1:™"TO STOP, TYPE 0 (ZERO) FOR YUR ANSWER"b ‰ 330h "™¶ ,™:™"FOR FILL-INS, YOU MUST SPELL EXACTLY! (SAINT IS ":™"ABBREVIATED ST.)"¼ 6™é @X²2:™"TO STOP, TYPE 'S' FOR YOUR ANSWER"ï J™= T™"YOU HAVE YOUR CHOICE OF WHETHER THE STATE/PROVINCE OR CAPITAL IS ASKED"C ^™~ h™"WOULD YOU LIKE TO ANSWER WITH THE CAPITAL? (Y OR N)"• r¡ Z$:‹ Z$²"" § 370® |‹ Z$²"Y" § Y²1:‰ 410 †‹ Z$³±"N" § 370Ê Y²2Ð š™ã ¤ PICK A STATEû ®™"“":Q²1:W²1: 1760 ¸ I²1 ¤ 10 ÂR²µ(»(1)¬62 ª1)2 Ì‹ A(R)³±2 § 520: Ö‚ I] à DON'T WASTE TIME PICKING ONEl ê R²1 ¤ 62€ ô‹ A(R)³±2 § 520 þ‚ R:‰ 1220µ ‹ A(R)²1 § ™"TRY THIS ONE AGAIN."» ™Ñ  MM²1 ¤ 700:‚ MMá &‹ X²1 § 700 0 THIS SECTION ASKS FOR FILL-IN ANSWERS:‹ Y²2 § 630*DA$²C$(R)BN™"“":Q²1:W²1: 1760hX™"WHAT IS THE CAPITAL OF ";S$(R);nb™xl‰ 650…vA$²S$(R)§€™C$(R);" IS THE CAPITAL OF ";°Š… Z$¶”™Ìž‹ à (Z$)²1 § 1160ᨋ Z$²A$ § ‰ 1050첉 1040¼ THIS SECTION ASKS MULTIPLE CHOICE QUESTIONSHÆ THE VALUE 4 OF C IS THE CORRECT ONE`Й"“":Q²1:W²1: 1760rÚC²µ(»(1)¬4ª1)¦ä PICK FOUR STATES OR PROVINCES FOR THE CHOICES´î I²1 ¤ 4ÌøB(I) ² µ(»(1)¬50ª1)Ô‚ Iß B(C)²R MAKE SURE NONE ARE THE SAME/ ‹ B(1)²B(2) ° B(1)²B(3) ° B(1)²B(4) § 750]*‹ B(2)²B(3) ° B(3)²B(4) ° B(2)²B(4) § 750m4‹ Y²2 § 920‰> PRINT CAPITAL CHOICESH™"1, ";C$(B(1))±R™"2, ";C$(B(2))Å\™"3, ";C$(B(3))Ùf™"4, ";C$(B(4))ßp™z™"THE CAPITAL OF ";S$(R); " IS ";„A$²C$(B(C)) Ž‰ 1000H˜ PRINT STATE OR PROVIDENCE CHOICES\¢™"1, ";S$(B(1))p¬™"2, ";S$(B(2))„¶™"3, ";S$(B(3))˜À™"4, ";S$(B(4))žÊ™®ÔA$²S$(B(C))ÒÞ™ C$(R); " IS THE CAPITAL OF ";äè… Z:Z²µ(¶(Z))ûò‹ Z³1 ° Z±4 § 1160 ü‹ Z²C § 1050™AA(R)²1:™"WRONG...THE ANSWER IS ";A$:‰ 1080RA(R)²2:N²Nª1X$™‚.™"RIGHT! YOU HAVE ";N;" CORRECT."Ž8™:G²Gª1ÝBW²15:Q²1: 1760:™"PRESS TO CONTINUE......OR '0' TO END PROGRAM=>"÷L¡ Z2$:‹ Z2$²"" § 1100V‹ Æ(Z2$)² 48 § 1150(`‹ Æ(Z2$)³±13 § ‰ 420<j‹ N³62 § ‰ 420Nt‹ N²62 § 1220f~™"“":Q²1:W²1: 1760‹ˆ™"DO YOU WANT TO STOP? (Y OR N)"£’¡ Z$:‹ Z$²"" § 1170·œ‹ Z$²"Y" § 1220̦‹ Z$³±"N" § 1150Ò°™Ýº‰ 1130õÄ™"“":Q²1:W²1: 1760!Ι"YOU GOT ";N;" RIGHT IN ";G;" GUESSES"'Ø™>âANS²µ (N­G¬100ª.5)qì™"THAT IS ";ANS;"%--";:‹ ANS±95 § ™"EXCELLENT"‘ö‹ ANS±80 ¯ ANS³96 § ™"GOOD"¾‹ ANS±75 ¯ ANS³81 § ™"YOU DID ALL RIGHT" ‹ ANS³76 ¯ ANS±64 § ™"THERE'S A LOT OF ROOM FOR IMPROVEMENT."B‹ ANS³65 § ™"THAT ISN'T GOOD AT ALL. YOU OUGHT TO TRY AGAIN."H™x(™"WOULD YOU LIKE TO TRY THE OTHER SECTION?"~2™¡<™"(Y FOR YES OR N FOR NO)=>";¹F¡ Z$:‹ Z$²"" § 1350ÊP‹ Z$²"Y" § ŠßZ‹ Z$³±"N" § 1350åd™n™:™"IS ANYONE ELSE WAITING (Y OR N) ==>";.x¡ Z$:‹ Z$²"" § 1400?‚‹ Z$²"Y" § ŠTŒ‹ Z$³±"N" § 1400Ž–™"“":W²13:Q²16: 1760:™"* * * G O O D B Y E * * *"” ™Íªƒ "ALABAMA","MONTGOMERY","ALASKA","JUNEAU","ARIZONA"´ƒ "PHOENIX","ARKANSAS","LITTLE ROCK","CALIFORNIA"C¾ƒ "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"iðƒ "LOUISIANA","BATON ROUGE","MAINE","AUGUSTA","MARYLAND"žúƒ"ANNAPOLIS","MASSACHUSETTS","BOSTON","MICHIGAN"݃ "LANSING","MINNESOTA","ST. PAUL","MISSISSIPPI","JACKSON"ƒ "MISSOURI","JEFFERSON CITY","MONTANA","HELENA","NEBRASKA"Tƒ "LINCOLN","NEVADA","CARSON CITY","NEW HAMPSHIRE"“"ƒ "CONCORD","NEW JERSEY","TRENTON","NEW MEXICO","SANTA FE"È,ƒ "NEW YORK","ALBANY","NORTH CAROLINA","RALEIGH"6ƒ "NORTH DAKOTA","BISMARK","OHIO","COLUMBUS","OKLAHOMA":@ƒ "OKLAHOMA CITY","OREGON","SALEM","PENNSYLVANIA"zJƒ "HARRISBURG","RHODE ISLAND","PROVIDENCE","SOUTH CAROLINA"¯Tƒ "COLUMBIA","SOUTH DAKOTA","PIERRE","TENNESSEE"ê^ƒ "NASHVILLE","TEXAS","AUSTIN","UTAH","SALT LAKE CITY"*hƒ "VERMONT","MONTPELIER","VIRGINIA","RICHMOND","WASHINGTON"mrƒ "OLYMPIA","WEST VIRGINIA","CHARLESTON","WISCONSIN","MADISON"ˆ|ƒ "WYOMING","CHEYENNE"̆ƒ "ALBERTA","EDMONTON","BRITISH COLUMBIA","VICTORIA","MANITOBA"ƒ "WINNIPEG","NEW BRUNSWICK","FREDERICTON","NEWFOUNDLAND","ST. JOHN'S"`šƒ "NOVA SCOTIA","HALIFAX","ONTARIO","TORONTO","PRINCE EDWARD ISLAND" ¤ƒ "CHARLOTTETOWN","QUEBEC","QUEBEC","SASKATCHEWAN","REGINA"Ì®ƒ "NORTHWEST TERRITORIES","YELLOWKNIFE"ô¸ƒ "YUKON TERRITORIES","YELLOWKNIFE",™:™" PRESS TO RETURN TO BASIC"7̉ 1740=Ö€Wà W=DOWN AND Q=ACROSS‹ê SUBROUTINE FOR TEXT LOCATION.................¨ô™"": L1²1 ¤ W«2:™:‚:™;Âþ‹ Q±2 § ™ "" £Q«1)"";ÈŽ