910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PROGRAM IS FREE FOR/  DUPLICATION IN CANADA.M  IF YOU HAVE CONTRARYj  INFORMATION, PLEASE  CONTACT COMMODORE CANADA AND  EVERY EFFORT WILL BE MADE TO  WITHDRAW COPIES OF THIS  PROGRAM. : ! CAPITALSK " UPDATED - J.F. MUNRO DURHAM B OF E, JULY,1982g # +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80 -" ";:UC,0 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50, A120: CHECK FOR VALID CHARACTER< FUR$UR$UI$F KUI$;N P50s U +++ CHECK FOR HELP REQUEST +++ ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:502 x ++ CHECK FOR VALID CHARACTERS ++D }(US$)0150U US1(US$)l UI$(US$,US,1)r  UI$"": ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 & (UI$)193(UI$)218UI$"":I (UT)UU%UI$((UI$)128):O \ UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300UZ0:US$UJ$:UG$UK$:UPUJ:ULUKF(50003)053281,1:"";:53281,6:53280,14:220P"";UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%U3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):;(UD$,24);"  HELP COMING ":gU1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** MENU **-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"-6" --------------------------------------"W;" 1. BEGIN WORLD CAPITALS"@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"#T" --------------------------------------"NY" PRESS A NUMBER KEY (1-5) ";w^UL1:US$"12345":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,600,396h300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399,UU71:(50003)053281,6:53280,148"":C875:d ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST":850" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR."<" F AT ANY TIME YOU WISH TO VIEW"b" THE MENU PRESS ."" RESS AFTER EACH ENTRY."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10%UP0:UG$"EACHER NST":850S" O THE BEST OF OUR KNOWLEDGE,"|" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE.6" GINCOURT, NTARIO"X" ANADA 1 24"x" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: ORLD APITALS" RITTEN Y : NKNOWN" PGRADED Y : AMES UNRO+" HIS PROGRAM WILL RUN ON ANY_"  PLOADED TO NIE BY .1 ""  [ ] "" 64 " 64 D835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **/Y"":UT,UL%T]UH1:UP0:UG$"ROGRAM OD":850^" HIS PROGRAM MAY BE MODIFIED SO"_" ONLY CERTAIN AREAS OF THE WORLD"a" ARE REPRESENTED OR ELSE ADDITIONAL"c" COUNTRIES MAY BE ADDED."gUH1:835:850Dl" O ADD OR CHANGE THE COUNTRIES IN"rm" THIS PROGRAM, YOU MAY ALTER THE DATA"n" STATEMENTS THAT ARE FOUND IN"o" LINES 1610-1800. N THE DATA, THE"p" COUNTRIES ARE ALWAYS FOLLOWED BY"r" THEIR CAPITALS."835#UZ1UP%:217)N ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,65$I138:"";:M&I122:"";:e(I137:"";:}*I122:"";:," ."  0" 2" +4"C O M M O D O R EN6"EDUCATIONALm8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300+C ** SPACE BAR PRESS **fHUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"}LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870Ka(UD$,24);(UP$,7);"HELP - PRESS H "\fUH0:"":{k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024]UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""5UP$" "UT$" WORLD CAPITALS": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **UG$" PAGE#":A$(100),B$(220):C$"":Y$"":F$"":X0:Z0:I0 CO0:Q0:N0:C0:R0:T00:JK0 900-  ** CHECK FOR 8032 **K "":"": SHIFTED SPACEb (UB40)96700{  ** MEMORY CHECK **  (0)2000937 "THIS MACHINE DOES NOT HAVE ENOUGH" "MEMORY TO RUN THIS PROGRAM !" UU71  !"":(50003)0962;! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **y!1075,133:1076,144:1077,234:1079,4:1080,133:1081,145!1091,155:1098,133:1099,144:1100,234:1103,133!1104,145:1105,234:1082,234!(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,21"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: TITLEJ#300: MENU{#"THE PGM WILL NOT WORK ON THIS MACHINE!":#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **#"";::(50003)053281,6:53280,14#**********************$**MENU ADDED AND PGM**0$** MODIFIED BY **L$** JAMES MUNRO **h$** 1982 06 30 **$** OSHAWA , ONTARIO **$************************$* REVISED AND UPGRADED *$* FOR COMMODORE 64 BY *$* DEREK LEE *%* JULY 27/82 *8%************************m%MSE$" WHAT IS THE NAME OF THE CAPITAL CITY OF"%_:"":N1:C0:RI0:W0:UT,UU%:875%` I1 100%j A$(I),B$(I)%tA$(I)"999"T0I1:I101%~ I%UP0:UG$"QUIZ":850'&" THIS PROGRAM WILL TEST YOUR KNOWLEDGE"M&7)" OF WORLD CAPITAL CITIES."w&" AFTER EACH STATE PLEASE TYPE THE"&" APPROPRIATE NAME THEN PRESS ."&" TO SKIP A COUNTRY,PRESS ."'" WHICH WOULD YOU LIKE TO START WITH? --"*'" 1 GIVEN THE CAPITALS"P'" 2 GIVEN THE COUNTRIES"i'" ?";'UL1:US$"12H":35:Z$UR$'875'Z$"1"1940'Q11970'N1'NN1:CC1'I(T0(1))1' A$(I)"*" 1260'COCO1( F$A$(I):A$(I)"*"(Q0<(UPN:UG$" QUESTION #":850F( SE$W((6)F$;"? ";(2UL20:US$"?QWERTYUIOPLKJHGFDSAZXCVBNM ":35:Z$UR$:(3Z$"Q" (<B$(I)Z$1410(FZ$"N"1380(PCOT01900(Z2070 )d" INCORRECT.....TRY AGAIN":WW1)nQQ1:Q21809()x1310T)RIRI1:"":C0C1:R(4(1))b)R11470p)R21480~)R31490)R41500)" CORRECT..YOU'RE A GENIUS!":1530)" RIGHT ON!":1530)" ALL RIGHT!":1530 *" VERY GOOD!!!":1530'*" YOU'RE TOO MUCH"M*" YOUR SCORE IS";RI;" CORRECTg*" AND "W" WRONG."*" DO YOU WISH TO CONTINUE(Y/N)? ";:UL1:US$"YNH":35:C$UR$*C$"Y"1590*"C$"N"1875*6COT01900*@12506+JAFGHANISTAN,KABUL,ANGOLA,LUANDA,ALGERIA,ALGIERS,ARGENTINA,BUENOS AIRES|+TAUSTRALIA,CANBERRA,AUSTRIA,VIENNA,BELGIUM,BRUSSELS,BOLIVIA,SUCRE+^BRAZIL,BRASILIA,BULGARIA,SOFIA,BURMA,RANGOON,CAMBODIA,PHNOM PENH,hCANADA,OTTAWA,CHILE,SANTIAGO,COLUMBIA,BOGOTA,COSTA RICA,SAN JOSEQ,rCUBA,HAVANA,CYPRUS,NICOSIA,CZECHOSLOVAKIA,PRAGUE,DENMARK,COPENHAGEN,|DOMINICAN REPUBLIC,SANTO DOMINGO,EQUADOR,QUITO,EGYPT,CAIRO,EL SALVADOR,SAN SALVADOR,ETHIOPIA,ADDIS ABABA,FINLAND,HELSINKI-FRANCE,PARIS,WEST GERMANY,BONN,EAST GERMANY,BERLIN,GREECE,ATHENSK-GUATEMALA,GUATEMALA CITY,GUYANA,GEORGETOWNb-ICELAND,REYKJAVIK-INDIA,NEW DELHI,IRAN,TEHRAN,IRAQ,BAGHDAD,IRELAND,DUBLIN-ISRAEL,JERUSALEM,ITALY,ROME,JAMAICA,KINGSTON,JAPAN,TOKYO,JORDAN,AMMAN6.KENYA,NAIROBI,LEBANON,BEIRUT,LIECHTENSTEIN,VADUZ,LUXEMBOURG,LUXEMBOURG.MALTA,VALLETTA,MEXICO,MEXICO CITY,MOROCCO,RABAT,NETHERLANDS,AMSTERDAM.NEW ZEALAND,WELLINGTON,NICARAGUA,MANAGUA,NIGERIA,LAGOS,NORWAY,OSLO/PARAGUAY,ASUNCION,PERU,LIMA,POLAND,WARSAW,PORTUGAL,LISBON,SPAIN,MADRIDZ/SUDAN,KHARTOUM,SWEDEN,STOCKHOLM,SWITZERLAND,BERN,SYRIA,DAMASCUS/THAILAND,BANGKOK,TURKEY,ANKARA,UGANDA,KAMPALA,SOVIET UNION,MOSCOW/UNITED STATES,WASHINGTON D C0UNITED KINGDOM,LONDON,URAGUAY,MONTEVIDEO,VENEZUELA,CARACAS0 YUGOSLAVIA,BELGRADE*0835:850]0" I GUESS YOU REALLY DIDN'T KNOW IT!"0&" THE CORRECT ANSWER IS ";B$(I);"."00" TAKE GOOD NOTE OF IT FOR FUTURE USE!"0:8350N12500SCOT019000X 1l" YOU HAVE EXHAUSTED MY"/1m" SUPPLY OF COUNTRIES."q1n" NUMBER CORRECT "C:" NUMBER INCORRECT"W:835w1}11Q11 I1 1001 B$(I),A$(I)1B$(I)"999"T0I1:20001 I1SE$" WHAT COUNTRY HAS AS IT'S CAPITAL "212502 999,999 2JKJK112JK601900A2NN1:1260