910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** ---GENERAL INPUT ROUTINE----:::#-----INPUT SECTION----- (: UR$"":UI$""! *: UL0UL804 -" ";:UC,0K 2: UI$:UI$""50x 7: UI$(13)(UR$)1UC,1:" ";:85 <: UI$(20)105 >: (UR$)UL 50 A: 120: CHECK FOR VALID CHARACTER F: UR$UR$UI$ K: UI$; P: 50 U-----CHECK FOR HELP REQUEST-----J Z: UR$UX$195: EXIT TO HELP ROUTINE\ _: UF1240k d: UF0:: f-----CHECK DELETE----- i: (UR$)150 n: UR$(UR$,(UR$)1) s: " ";:50 x-----CHECK FOR VALID CHARACTERS----- }: (US$)0150 : US1(US$)7 : UI$(US$,US,1)@ : P : UI$"":n -----STANDARD INPUT----- : (UI$)46 : UI$(32) : (UI$)48 (UI$)57170 : : (UI$)65 (UI$)90180 :  : (UI$)193 (UI$)218UI$"":E : (UT)12(UT)21UI$((UI$)128):N : ^ : UI$"": : UF1:-----HELP ROUTINE EXIT----- : 250 : 245 : UQUB(U2%256U1%U3%2) : UQ%(UQUB)(UQ)::"" : UZ1:UV%(UT) : 300' UZ0:US$UJ$:UG$UK$:UPUJ:ULUK^ (50003)053281,1:"";:53281,6:53280,14:220h ""; UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3) : UQ,UQ%(UQUB): : U1,U1% : U2,U2% : U4,U4% : U3,U3%1 : 35-: UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):k: (UD$,24);"  HELP COMING ":: U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UJUL: UJ$US$:UK$UG$:UJUP:UKUL: ,-----MENU------:$.: "":UT,UU%:(50003)053281,9:53280,8*/:J1: " MENU"|6: " --------------------------------------";: " 1. STATES AND CAPITALS QUIZ"@: " 2. STUDENT INSTRUCTIONS"E: " 3. TEACHER INSTRUCTIONS"&O: " 4. QUIT"XT: " --------------------------------------"Y: " PRESS A NUMBER KEY (1-4) ";^: UL1:US$"1234":35:---INPUT ROUTINE---_: (UR$)1300`: US$""c: (UR$)1000,400,500,396h: 300/-----RE-ENABLE STOP KEY AND END-----a: (50003)1(50003)160(50003)0399: UU71:(50003)053281,6:53280,14: "":: 875:-----STUDENT INSTRUCTIONS-----: "":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST",1020:850]: " EMEMBER TO HIT AFTER": " TYPING YOUR ANSWER. HIS TELLS": " THE COMPUTER TO ACCEPT WHAT YOU": " HAVE TYPED.": " YPE AT ANY TIME TO RETURN"*: " TO THE MENU FOR HELP. OU WILL"W: " BE RETURNED TO THE PLACE IN THE": " PROGRAM WHERE YOU LEFT OFF AS": " SOON AS THE OPTION FROM THE MENU": " IS COMPLETE.": 835: UZ1UP%:217: -----TEACHER INSTRUCTIONS-----M: "":UT,UL%:(50003)053281,2:53280,10r: UP0:UG$"EACHER NST.":850: " O THE BEST OF OUR KNOWLEDGE,": " THIS PROGRAM IS IN THE PUBLIC": " DOMAIN. F THIS IS NOT THE CASE": " PLEASE CONTACT:"K: " OMMODORE USINESS ACHINES"q: " 3370 HARMACY VE.: " GINCOURT, NTARIO": " ANADA 1 24": " (416) 499-4292"UP1: 835: 850:$" ROGRAM AME: TATES & CAPITALSF" RITTEN Y : NKNOWNm" PGRADED Y : OBY ALKER"" HIS PROGRAM WILL RUN ON ANY" 64 " 64 D: 835:850:10000 N: UZ1UP%:217W: >X-----PROGRAM MODIFICATION INST-----RY: "":UT,UL%u]: UP0:UG$"ROGRAM OD":850: 835: UZ1UP%:217: -----TO USE 8032 LOAD CBM4032-----"BEFORE RUNNING THIS PROGRAM ON AN 8032 5" LOAD THE 'CBM 4032' PROGRAM"C: UU71L: l  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:#," E."  f0" 2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE : ** COMMODORE LOGO **A;(UD$,24);"PRESS SPACE BAR OR WAIT":I0c<A$:A$" "II1:I250828>: T1$"":T2$"":T3$"":T4$"":I0@: 300C-----SPACE BAR PRESS-----H: (UD$,24);"PRESS SPACE BAR TO CONTINUE"L: UI$:UI$" "844N: 3R-----PAGE DESIGN ROUTINE-----BT: UPUP1lW: ""(UT$UP$,21);(UG$UP$,14);UP\: " --------------------------------------"a: (UD$,24);(UP$,6);"HELP - PRESS H "f: "":k-----PLEASE WAIT REMARK-----?p: (UD$,24);" ONE MOMENT PLEASE... "Hu: h-----SET UP VARIABLES-----: UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024: UT59468:UU%12:UL%14:UP%1146:UM32768:50003,02(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048j(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024: UD$"": UP$" ": UT$" TATES & APITALS": PLACE PROGRAM TITLE HERE!!!!!!!!!!!***: 6-----SET VARIABLES-----ZMX51:A(MX),B(4),C$(MX),S$(MX)f: 900l:-----CHECK FOR 8032-----: "":"": SHIFTED SPACE: (UB40)96700-----MEMORY CHECK-----: (0)2000937): "THIS MACHINE DOES NOT HAVE ENOUGH"P: "MEMORY TO RUN THIS PROGRAM !"^: UU71g: : "":(50003)0962-----BASIC 2.0 OR 4.0 OR C-64 SETUP-----1075,133:1076,144:1077,234:1079,4:1080,133:1081,145* 1091,155:1098,133:1099,144:1100,234:1103,133L 1104,145:1105,234:1082,234f : (50003)160955 : 1093,88:1094,228:1097,85:1102,228:965 : (50003)1990 : 1093,49:1094,230:1097,46:1102,230:965!2099,141:2100,20:2101,3:2103,8:2104,141:2105,21X!2106,3:2115,145:2117,52:2118,234:2121,49:2122,141!2123,20:2124,3:2126,234:2127,141:2128,21:2129,3!: UU48: DISABLE STOP KEY!: 800: TITLE!: 300: MENU": "THE PGM WILL NOT WORK ON THIS MACHINE!":H": UZ1UP%:UP%:UZ0:-----PROGRAM STARTS HERE-----r""";:(50003)053281,6:53280,14|"1120""":UT,UL%:UP0:850:" TATES AND CAPITALS""" ":1140#`"":875:: I1MX: S$(I),C$(I):#aS$(I)(((S$(I),1,1))128)(S$(I),2)h#bC$(I)(((C$(I),1,1))128)(C$(I),2):#j I1MX:A(I)0:I:G0:N0:ZZ1#o1169#t" HIS IS AN EDUCATIONAL QUIZ WHICH"#~" TESTS YOUR KNOWLEDGE OF THE PROPER"$" STATES AND CAPITALS.">$" T WILL GIVE YOU EITHER MULTIPLE"g$" CHOICE OR FILL-IN THE BLANKS."$" OR FILL-IN QUESTIONS SPELL THE"$" ANSWER EXACTLY AND USE T. AS AN"$" ABBREVIATION FOR AINT.":835:%UG$"TUDENT QUIZ<%"":UT,UL%:UP0:850:" ELECT THE TYPE OF QUIZ:"f%" 1 - ULTIPLE CHOICE QUESTIONS."%" 2 - ILL-IN THE BLANKS."%" HAT IS YOUR CHOICE? ";%US$"H12":UL1:35%UR$"2" 1260%X1: 1300%% X2&850:" OULD YOU LIKE A QUIZ ABOUT"3&" 1 - TATES"K&(" 2 - APITALS"y&2US$"12H":" HAT IS YOUR CHOICE? ";:35&<Y2:UR$"2" Y1: 1360&P PICK A STATE&Z I110:R((1)MX)1: A(R)2 1420&dI'n DON'T WASTE TIME PICKING ONE'x R1MX: A(R)2 1420,'R:1920M'ZZZZ1:RP0: A(R)1 RP1d'ZZ492030:1970u' X1 1550' ASK FOR FILL-IN ANSWERS' 2000: Y2 1480'A$C$(R)'12000:" HE CAPITAL OF "S$(R);" IS"'1481!(12000:A$S$(R):" "C$(R);" IS CAPITAL OF"F(::::""s("";:US$"":UL20:35:Z$UR$( Z$A$ 1800( 1790( ASK FOR MULTIPLE CHOICE( THE VALUE OF C IS THE ANSWER("C((1)4)1 ), PICK 4 STATES FOR THE CHOICES*)6I14:B(I)((1)MX)1:I5)@B(C)RW)J MAKE SURE NONE ARE THE SAME)T B(1)B(2) B(1)B(3) B(1)B(4) 1590)^ B(2)B(3) B(2)B(4) B(3)B(4) 1590)h 2000: Y2 1690)r PRINT CAPITAL CHOICES&*|12000:" HAT IS THE CAPITAL OF ";S$(R);"?":A$C$(R)\*" (A) ";C$(B(1)):""7);"(B) ";C$(B(2))*""7);"(C) "C$(B(3)):""7);"(D) "C$(B(4)): 1730* PRINT STATE CHOICES*12000:" "C$(R);" IS THE CAPITAL OF":A$S$(R)+""7);"(A) ";S$(B(1)):"" 7);"(B) ";S$(B(2))O+"";7)"(C) ";S$(B(3)):""7);"(D) ";S$(B(4))~+US$"ABCDH":" HAT IS THE ANSWER? ";:35+Z(UR$)("A")1+ ZC 1800+A(R)1:" RONG, IT IS ";A$;".": 1820+A(R)2:NN1+" IGHT!",835:GG1,& NMX 1360 ,0 1920H,l" WILL REPEAT MY QUESTION.":RP1\,v X 1640,1450," OULD YOU LIKE TO TRY AGAIN(Y/N)? ";,US$"YN":35,UR$"Y" 1130,850:" HANK YOU FOR PLAYING"," TATES AND APITALS!!!!"-835:- CHECK FOR REPEAT!-'-9- PRINT SCORE\-850: N0 G0 P0: 2060l-P(N2.5)- " OUR SCORE IS";P;"%."-" OU HAVE";N;"RIGHT IN";G;"TRIES"-835- -*850.4" OU HAVE DONE ALL THE QUESTIONS.". ***DATA***^.ALABAMA,MONTGOMERY,ALASKA,JUNEAU,ARIZONA,PHOENIX,ARKANSAS,"LITTLE OCK".CALIFORNIA,SACRAMENTO,COLORADO,DENVER,CONNECTICUT,HARTFORD,DELAWARE.DOVER,"DIST. OF OLUM.",WASHINGTON,FLORIDA,TALLAHASSEE,GEORGIA1/ATLANTA,HAWAII,HONOLULU,IDAHO,BOISE,ILLINOIS,SPRINGFIELD,INDIANAv/INDIANAPOLIS,IOWA,"DES OINES",KANSAS,TOPEKA,KENTUCKY,FRANKFORT/LOUISIANA,"BATON OUGE",MAINE,AUGUSTA,MARYLAND,ANNAPOLIS,MASSACHUSETTS0 BOSTON,MICHIGAN,LANSING,MINNESOTA,"ST. AUL",MISSISSIPPI,JACKSONN0 MISSOURI,"JEFFERSON ITY",MONTANA,HELENA,NEBRASKA,LINCOLN,NEVADA0 "CARSON ITY","NEW AMPSHIRE",CONCORD,"NEW ERSEY",TRENTON,"NEW EXICO"0$ "SANTA E","NEW ORK",ALBANY,"NORTH AROLINA",RALEIGH1. "NORTH AKOTA",BISMARCK,OHIO,COLUMBUSD18 OKLAHOMA,"OKLAHOMA ITY",OREGON,SALEM,PENNSYLVANIA,HARRISBURG1B "RHODE SLAND",PROVIDENCE,"SOUTH AROLINA",COLUMBIA,"SOUTH AKOTA"1L PIERRE,TENNESSEE,NASHVILLE,TEXAS,AUSTIN,UTAH,"SALT AKE ITY",VERMONT2V MONTPELIER,VIRGINIA,RICHMOND,WASHINGTON,OLYMPIA,"WEST IRGINIA"O2` CHARLESTON,WISCONSIN,MADISON,WYOMING,CHEYENNEg2' MORE INSTRUCTIONS2'" HIS PROGRAM QUIZZES THE STUDENT"2$'" ON HIS KNOWLEDGE OF THE CAPITALS"2.'" AND STATES OF THE .. T WILL"38'" PRODUCE FIFTY RANDOM QUESTIONS.";3L'" HESE QUESTIONS ARE EITHER"e3V'" MULTIPLE CHOICE OR FILL IN THE"~3`'" BLANK.":835:3.850:" UESTION";ZZ1,"ORRECT ANSWERS";N:"":