[ 53280,0:53281,0:646,(162):"":" USE LYNX TO DISSOLVE THIS FILE":10 2 *LYNX XVII WILL CORLEY 5 ANCIENT HIST.C3 46 P 167 ELECTION.C3 49 P 155 FAMOUS PEOPLE.C3 81 P 223 PRESIDENT QUIZC3 44 P 33 WORLD WARS.C3 44 P 5 .ELECTION.C31FAMOUS PEOPLE.C3QPRESIDENT QUIZC3,WORLD WARS.C3, HISTORY QUIZ.LNXWORLD WARS.C3, 910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE ** ++++++++++++++++++++++++++++ WRITTEN BY CAROL COFFEY. ON FWCI COMPUTERS 1982P  REVISED BY STEPHEN FENTONV :y  ++++++++++++++++++++++++++++  ** TO OUR BEST KNOWLEDGE THIS  PROGRAM IS FREE FOR  DUPLICATION IN CANADA.  IF YOU HAVE CONTARY  INFORMATION, PLEASE:  CONTACT COMMODORE CANADA AND`  EVERY EFFORT WILL BE MADE TO  WITHDRAW COPIES OF THIS  PROGRAM. : # +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80 -" ";:UC,0 2UI$:UI$""50. 7UI$(13)(UR$)1UC,1:" ";:85A <UI$(20)105U > (UR$)UL50z A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++/ i(UR$)150G nUR$(UR$,(UR$)1)Y s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$(US$,US,1) UI$"": ** STANDARD INPUT ** (UI$)46 UI$(32)7 (UI$)48(UI$)57170= Z (UI$)65(UI$)90180` (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245UQUB(U2%256U1%U3%2),UQ%(UQUB)(UQ)::""?UZ1:UV%(UT)H300mUZ0:US$UJ$:UG$UK$:UPUJ:ULUK(50003)053281,1:"";:53281,6:53280,14:220"";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):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** MENU ** -:9."":UT,UU%:(50003)053281,9:53280,8?/:\1" MENU"6" --------------------------------------";" 1. BEGIN ANCIENT HISTORY"@" 2. STUDENT INSTRUCTIONS" E" 3. TEACHER INSTRUCTIONS"7J" 4. MODIFICATION OF PROGRAM"SO" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: INPUT ROUTINEc(UR$)1000,400,500,600,396h300' ** RE-ENABLE STOP KEY AND END **V(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0 UT$" NCIENT ISTORY":UP0:UG$"TUDENT NST.":850*11003835<850p" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR"" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H "835UZ1UP%:2175 ** TEACHER INSTRUCTIONS **e"":UT,UL%:(50003)053281,2:53280,10UT$" NCIENT ISTORY":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:"h" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:1" ROGRAM AME: ROGRAM ITLEX" RITTEN Y : AROL OFFEY" PGRADED Y : TEVEN ENTON" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835 ----------------------------: " PGRADED FOR 64 BYV " YNDA ONANNOx----------------------------NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UT$" NCIENT ISTORY":UP0:UG$"ROGRAM OD.":850)b" OU MAY CHANGE SOME OF THE"Vl" QUESTIONS AND ANSWERS WITH SIMPLE"q" KNOWLEDGE OF CURSOR CONTROL."v" HE DATA IS STORED IN LINES"" 1160-1980. HE STATEMENT"" IS IN LINE 916."835UZ1UP%:2173 ** TO USE 8032 LOAD CBM4032 **i"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD CBM4032 ** "BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM",1093:L  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:," %."  F0" d2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **!;(UD$,24);"PRESS SPACE BAR OR WAIT":I0C<A$:A$" "II1:I250828g>T1$"":T2$"":T3$"":T4$"":I0p@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1:W""(UT$UP$,21);(UP$UG$(UP),18)i\" --------------------------------------"x`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u5 ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468: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:UO198dUD$""UP$" "UT$" ANCIENT HISTORY" ** SET VARIABLES **900A$(40),Q$(40),CH(40):  ** CHECK FOR 8032 **3 "":"": SHIFTED SPACEJ (UB40)96700c  ** MEMORY CHECK **w  (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 **a!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)1990C"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: TITLE2#300: MENUc#"THE PGM WILL NOT WORK ON THIS MACHINE!":#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **#"";::(50003)053281,6:53280,14#UT$" ANCIENT HISTORY"$ ++++++++++++++++++++++++++++#$ WRITTEN BY CAROL COFFEYE$ ON FWCI COMPUTERS 1982g$ REVISED BY STEPHEN FENTON$ JULY 1982$$ ++++++++++++++++++++++++++++$B1160$L" HIS PROGRAM TESTS YOUR KNOWLEDGE"$[" ABOUT ANCIENT HISTORY."%%`" HE COMPUTER WILL GIVE YOU 3"Q%e" CHANCES TO ANSWER EACH QUESTION."}%j" T WILL ASK YOU 10 QUESTIONS AND"%o" WILL GIVE A SCORE AT THE END."%t" O SHORT FORMS OR SYMBOLS ARE"%v" ALLOWED IN THIS PROGRAM, FULL"&x" WORDS ARE REQUIRED."&~4&T140:CH(T)0:To&Q$(1)"WHAT NATIONALITY WAS ALEXANDER THE GREAT?"&A$(1)"MACEDONIAN"&Q$(2)"WHO WAS ARISTOTLE'S TEACHER?"&A$(2)"PLATO"&Q$(3)"WHO WAS AN ANCIENT EGYPTIAN QUEEN?"'A$(3)"CLEOPATRA"J'Q$(4)"WHO IS THE ANCIENT GREEK DOCTOR WHOSE OATH IS FAMOUS?"b'A$(4)"HIPPOCRATES"'Q$(5)"WHO WAS THE ANCIENT GREEK WHO CREATED THE ATOMIC THEORY?"'A$(5)"DEMOCRITUS"( Q$(6)"WHAT HELLENISTIC PHILOSOPHY ADVOCATED A LIFE OF DUTY?"(A$(6)"STOIC"W(Q$(7)"WHOSE KING WAS KILLED AT THE BATTLE OF THERMOPYLAE?"k((A$(7)"SPARTAN"(2Q$(8)"WHERE WAS THE HOME OF THE ORACLE?"(<A$(8)"DELPHI"(FQ$(9)"WHO WAS THE TREASURER OF THE DELIAN LEAGUE?"(PA$(9)"ARISTIDES"?)ZQ$(10)"WHO WATCHED HIS FLEET BEING DESTROYED AT SALAMIS?"S)dA$(10)"XERXES")nQ$(11)"WHAT IS A BELIEF IN ONE GOD CALLED?")xA$(11)"MONOTHEISM")Q$(12)"WHO IS THE GREEK GODDESS OF LOVE AND BEAUTY?")A$(12)"APHRODITE";*Q$(13)"WHO HELD THE POSITION OF DOMINANCE IN THE FERTILE CRESCENT?"T*A$(13)"THE PRIESTS"*Q$(14)"WHO IS THE AUTHOR OF 'THE REPUBLIC'?"*A$(14)"PLATO"*Q$(15)"WHO WAS ALEXANDER THE GREAT'S FATHER?"*A$(15)"PHILIP"(+Q$(16)"WHO WAS THE HISTORIAN FOR THE PELOPONNISIAN WAR?"@+A$(16)"THUCIDIDES"t+Q$(17)"WHO WAS ALEXANDER THE GREAT'S TEACHER?"+A$(17)"ARISTOTLE"+Q$(18)"WHAT HELLENISTIC SCIENTIST EXPERIMENT- ED WITH BUOYANCY?"+A$(18)"MILTIADES",Q$(19)"NAME THE EARLY PERIOD OF GREEK ART"0,A$(19)"GEOMETRIC"q,"Q$(20)"WHAT CITY REPLACED SPARTA IN DOMINAT- ING GREECE?",,A$(20)"TYRE",6Q$(21)"WHAT GREEK PHILOSOPHER ADVOCATED THE PERSUIT OF PLEASURE?",@A$(21)"EPICURUS""-JQ$(22)"WHO CONVINCED THE ATHENIANS TO ATTACK SYRACUSE?":-TA$(22)"ALCIBIADES"z-^Q$(23)"WHO WAS THE KING WHO DEFEATED ALEXANDER THE GREAT?"-hA$(23)"NICIAS"-rQ$(24)"WHO IS THE FATHER OF HISTORY?"-|A$(24)"HEREDOTUS" .Q$(25)"NAME THE TEMPLE BUILT IN HONOUR OF ATHENA"#.A$(25)"PARTHENON"o.Q$(26)"THE GOLDEN AGE OF ATHENS WAS DOMINATED BY THE WHAT STATESMAN?".A$(26)"PERICLES".Q$(27)"NAME THE PORT WHERE ATHENIANS DESTROYED THE PERSIAN FLEET".A$(27)"MYCALE""/Q$(28)"WHO WAS THE SPARTAN KING KILLED AT THERMOPYLAE?"8/A$(28)"LEONIDAS"a/Q$(29)"WHO IS THE CHIEF GREEK GOD?"s/A$(29)"ZEUS"/Q$(30)"WHO WAS ZEUS'S WIFE?"/A$(30)"HERA"/Q$(31)"WHAT IS A CURIAL?"/A$(31)"CARDINAL"/Q$(32)"WHO WERE THE VANDALS?"0A$(32)"BARBARIANS"F0&Q$(33)"WHO WAS GOD OF PHYSICAL STRENGTH?"\00A$(33)"HERCULES"0:Q$(34)"HOW DID THEANCIENT EGYPTIANS PREPARE THE DEAD?"0DA$(34)"MUMMIFICATION"0NQ$(35)"WHAT IS THE BELIEF IN MORE THAN ONE GOD CALLED?" 1XA$(35)"POLYTHEISM"<1bQ$(36)"WHERE WAS ANCIENT MARATHON LOCATED?"P1lA$(36)"GREECE"1vQ$(37)"DID THE PERSIANS WIN THE BATTLE AT MARATHON?"1A$(37)"YES"1Q$(38)"WHAT TWO COUNTRIES FOUGHT IN THE HUNDREDYEARS WAR?"2A$(38)"ENGLAND AND FRANCE"D2Q$(39)"WHAT WAS THE CAPITAL OF CHARLEMAGNE'S EMPIRE?"W2A$(39)"ACHEN"2Q$(40)"WHAT WAS THE MEDIEVAL CHURCH LAW CALLED?"2A$(40)"CANON LAW"2SC0:NQ0:UP0:UG$"QUESTION #"2""22WA02Y((1)40)1 3 CH(Y)9920503CH(Y)9933*NQNQ1:NQ112420G34850:" "Q$(Y)t3>" ANSWER: ";:US$"":UL18:35:BA$UR$3HBA$A$(Y)22703RWA2" YOUR ANSWER WAS INCORECT THE CORRECT ANSWER IS..."3fWA021803pWA121803z2200=4" I'M SORRY YOUR ANSWER IS INCORRECT PLEASE TRY AGAIN. "I4WAWA1Y4WA3 2230c42110r4" "A$(Y)4835:20404" YOUR ANSWER IS CORRECT."4SCSC14 SC10 24204L 8354V 2040 5t " YOUR SCORE IS "SC" OUT OF 10"5~ 835C5 LINES6040TO6070 ARE FOR THE SCORING OUTPUTI5 ANSWER: ";:US$"":UL18:35:BA$UR$3HBA$A$(Y)22703RWA2" YOUR ANSWER WAS IN 910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PROGRAM IS FREE FOR/  DUPLICATION IN CANADA.L  IF YOU HAVE CONTARYi  INFORMATION, PLEASE  CONTACT COMMODORE CANADA AND  EVERY EFFORT WILL BE MADE TO  WITHDRAW COPIES OF THIS  PROGRAM. : # +++ INPUT SECTION +++" (UO,0:UR$"":UI$""2 *UL0UL80E -" ";:UC,0Y 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++> ZUR$UX$195: EXIT TO HELP ROUTINEM _UF1240Z dUF0::s f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) " UI$"":= ** STANDARD INPUT **N (UI$)46_ UI$(32)| (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"":$ UF1: +++ HELP ROUTINE EXIT +++- 2506 245U UQUB(U2%256U1%U3%2)q UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 "";"UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)7UQ,UQ%(UQUB):CU1,U1%OU2,U2%[U4,U4%iU3,U3%1q35UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)2UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL8I, ** MENU **O-:~."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" 1. BEGIN ELECTION"@" 2. STUDENT INSTRUCTIONS"HE" 3. TEACHER INSTRUCTIONS"uJ" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: INPUT ROUTINE`US$""@c(UR$)1000,400,500,600,396Ih300p ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **0"":UT,UL%:(50003)053281,0:53280,0VUH1:UP0:UG$"TUDENT NST":850" OUR GOAL WILL BE TO CHOOSE THE "" OPTIMUM STRATEGY FOR CANDIDATES IN AN"" HISTORICAL ELECTION."" ACH CANDIDATE'S STRATEGY CONSISTS"-" OF 3 NUMBERS. HE FIRST REPRESENTS THE"Y" AMOUNT OF EMPHASIS TO BE PLACED ON"{" THE CANDIDATE'S IMAGE."" HE SECOND REPRESENTS THE AMOUNT OF"" EMPHASIS TO BE PLACED ON PARTY"" AFFILIATION."835:UH1:850/" HE THIRD REPRESENTS THE AMOUNT OF"`" EMPHASIS TO BE PLACED ON THE CAMPAIGN"r" ISSUES." ACH OF THESE NUMBERS IS BETWEEN"" 10 AND 80, WITH A HIGHER NUMBER"" REPRESENTING MORE EMPHASIS."" HE THREE NUMBER MUST ADD UP TO 100!"/835:UH1:850`" HE COMPUTER WILL FIRST ASK YOU FOR"" THE ELECTION CODE NUMBER."" HOOSE THE CODE NUMBER FROM THE"" LIST GIVEN."" F YOU NEED PRESS THEN"" TO GO BACK TO THE MENU."B" O QUIT THE PROGRAM, PRESS "U" ."^835rUZ1UP%:217x ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"A" THIS PROGRAM IS IN THE PUBLIC"m" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"=" (416) 499-4292"SUP1: 835: 850:x" ROGRAM AME: LECTION" RITTEN Y : OSH OTHMAN" PGRADED Y : OUG HENHALL" HIS PROGRAM WILL RUN ON ANY" 64 7" 64 @ 835TNUZ1UP%:217ZWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850b" HE YEAR, CANDIDATES, PARTIES, AND"d" ACTUAL PERCENTAGES CAN BE CHANGED BY"7f" ALTERING THE FOLLOWING LINES:"Xh" 2560 FOR THE YEARS."j" 2600-2610 FOR THE PERCENTAGES."l" 1840-2130 FOR THE NAMES AND PARTIES."835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **0"BEFORE RUNNING THIS PROGRAM ON AN 8032 f" LOAD THE 'CBM 4032' PROGRAM"qUU71w  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:)*I122:"";:N," p."  0" 2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE4: ** COMMODORE LOGO **l;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE")LUI$:UI$" "844/NOR ** PAGE DESIGN ROUTINE **[TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":'k ** PLEASE WAIT REMARK **]p(UD$,24);" ONE MOMENT PLEASE... "cu ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024 UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0L (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048 (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" UP$" "/!UT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***5!O! ** SET VARIABLES **t!Y(8),W(9),M(72),I(3),S(3),P(16)}!900! ** CHECK FOR 8032 **!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! (0)2000937(""THIS MACHINE DOES NOT HAVE ENOUGH"L""MEMORY TO RUN THIS PROGRAM !"W"UU71]"w""":(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,133<#1104,145:1105,234:1082,234S#(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,141v$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!":%UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **G%"";::(50003)053281,6:53280,14k%##############################%# UPGRADED BY DOUG CHENHALL #%# JULY 5,1982 #%# OSHAWA, ONTARIO, CANADA #%############################## &L2930:UT,UL%3&V**ELECT1 HUNTINGTON SIMULATION**\&`**HISTORICAL ELECTIONS:19TH CENTURY&j MODIFIED FOR COMMODORE PET 1978&t **JOSH ROTHMAN, UNIVERSITY OF&~ **MICHIGAN 1980&: I17& Y(I)& I&I163&M(I)&I' I114'P(I)' I6'PC0:UPPC:UG$"":850:d': 5);"ISTORICAL LECTIONS-19TH CENT."j'r' F0'@" HOOSE THE CODE NUMBER FROM THE"'J" FOLLOWING LIST: "'T 1660'^:" O YOU WANT CODE LIST"(c" Y (YES) OR N (NO) THEN RETURN ? ";:UL1:US$"HQYN":356(e(UR$)2UR$"Q" J(hUR$"N" 1710_(rUR$"Y" 1630e(|(:" LECTION",,"ODE O."( I17(" ";Y(I),,I( I((" LECTION CODE NO. (1-7) ? ";(UL1:US$"HQ1234567":35:E(UR$))UR$"Q") I17+) IE 17803) I>) 1600L)X(E9)8R))PCPC1:UG$UV$:UPPC:850:7);"LECTION OF";Y(E)):)" ANDIDATE ","ANDIDATE ’")&E1 1860)0" ACKSON", "DAMS"):2050*DE2 1890(*N" AN UREN ","ARRISON"2*X2050C*b E3 1920]*l" OLK",,"LAY"g*v2050w*E4 1950*" EYMOUR", "RANT"*2050*E5 1980*" ILDEN", "AYES"* 2050*E6 2010 +" LEVELAND ","LAINE"+20501+" CINLEY","RYAN"B+F0 2370i+" EPUBLICAN";20);"EMOCRAT"s+2140+F0 2370+ " EMOCRAT";+ E1 2100+ 20);"ATIONAL EPUBLICAN"+* 2140+4(E2)(E3)0 2130,>20);"EPUBLICAN",H2140$,R20); "HIG"*,\T,fCC$"":TB1::;TB);"ANDIDATE -";n,pCA1:2620:UR$"Q",zS(1)I(1)100,S(2)I(2)100,S(3)I(3)100,CC$"":TB20:"":TB);"ANDIDATE -";,TB20:CA2:2620:UR$"Q"-- J13%-W(J)S(1)M(XJ1),-J7-J46N-W(J)S(2)M(XJ1)U-J`-J79w-W(J)S(3)M(XJ1)~- J- W(1)W(1)W(4)W(7)- W(2)W(2)W(5)W(8)-$ W(3)W(3)W(6)W(9)-. AW(1)(I(1)100)W(2)(I(2)100)W(3)(I(3)100).8 A1((A1)4)100).= A1(A1100.5)1009.B F0 2420v.L UH1:UG$"":850:" HE RESULT OF YOUR STRATEGY IS:"~.V F1.` .j 1830.t F2 2500.~ " ";A1;"%";20);100A1;"%". . " HE VOTE FOR THE TWO MAJOR CANDIDATES"/ " IN THE ACTUAL ELECTION:"/ F2$/ ./ 1830W/ " ";P(2E1);"%",20);P(2E);"%"]/ z/ " NOTHER RUN (Y/N)? ";/ UL1:US$"YN":35:""/ UR$"Y" 1260/ UR$"N" 2520/ 2750/ 1828,1840,1844,1868,1876,1884 ,189610 4,3,3,3,2,2,3,3,3,2,3,3,3,4,3,3,3,3,1,2,3,2,4,4,3,4,5m0 1,3,3,3,4,3,3,3,3,2,2,3,2,3,3,3,3,4,4,3,3,3,2,2,3,2,30 2,3,3,3,4,4,3,4,30( 56,44,47,53,50.7,49.3,47.3,52.7,51.5,48.502 50.1,49.9,52.2,47.80< TB);CC$:TB);" TRATEGY",1F UL2:US$"HQ0123456789"::TB);"1ST. ? ";:35:I(1)(UR$)E1G (UR$)2UR$"Q" j1H TB);"2ND. ? ";:35:I(2)(UR$)1I (UR$)2UR$"Q" 1K TB);"3RD. ? ";:35:I(3)(UR$)1M (UR$)2UR$"Q" 1P I131Z I(I)10 26901d I 2n (I(1)I(2)I(3)100).01 27202x C2 " ACH COMPONENT OF THE STRATEGY MUST BE"]2 " AT LEAST 10!":8352 CA1CC$"ANDIDATE -":TB12 CA2CC$"ANDIDATE -":TB202 "":I16:TB);" ":3 " ":" "43 "":2620a3 " HE TOTAL OF THE THREE NUMBERS MUST"y3 " EQUAL 100!":8353 CA1CC$"ANDIDATE -":TB13 CA2CC$"ANDIDATE -":TB203 "":I16:TB);" ":74 " ":" "R4 "":2620X4 {4 "**********"4 "**********"4 "**********"4 "**********"4 "**********"4 "**********"5 "**********" 5 C5 ""I5" l5, ""r56 5@ ""5J 5T 5^ 5h 5r "":UT,UU%5| " "5 " "6 " Х" 6 " U "96 " S "R6 " A "k6 " "6 " "6 " "6 " "6 " "6 " "7 " "7 " "37 " "L7 " "f7 " "7& " ̺ͥ"70 " "7: V14007D V7N B1157X " "7b B7l B1507v H(40(1))18 C(40(1))18 H)"."&8 C)"."-8 B78 2760" A "k6 " "6 " "6 " "6  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE ** ****************************** WRITTEN BY MARTIN WILLIAMS& AT F.W.C.I.J ******************************P :V x  REVISED BY STEPHEN FENTON  JULY 1982 ******************************  ** TO OUR BEST KNOWLEDGE THIS  PROGRAM IS FREE FOR  DUPLICATION IN CANADA.2  IF YOU HAVE CONTARYO  INFORMATION, PLEASEu  CONTACT COMMODORE CANADA AND  EVERY EFFORT WILL BE MADE TO  WITHDRAW COPIES OF THIS  PROGRAM. : # +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$(US$,US,1)  UI$"":3 ** STANDARD INPUT **D (UI$)46U UI$(32)r (UI$)48(UI$)57170x (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"":UF1: +++ HELP ROUTINE EXIT +++#250,245KUQUB(U2%256U1%U3%2)gUQ%(UQUB)(UQ)::""zUZ1:UV%(UT)300UZ0:US$UJ$:UG$UK$:UPUJ:ULUK(50003)053281,1:"";:53281,6:53280,14:220"";UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)-UQ,UQ%(UQUB):9U1,U1%EU2,U2%QU4,U4%_U3,U3%1g35UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%(U4)(UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL.?, ** MENU **E-:t."":UT,UU%:(50003)053281,9:53280,8z/:1" MENU"6" --------------------------------------";" 1. BEGIN FAMOUS PEOPLE"@" 2. STUDENT INSTRUCTIONS"CE" 3. TEACHER INSTRUCTIONS"pJ" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: INPUT ROUTINE0c(UR$)1000,400,500,600,3969h300` ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS ** "":UT,UL%:(50003)053281,0:53280,0BUP0:UG$"TUDENT NST.":850L1500U835^850h1640q835z850" F AT ANY TIME YOU WISH TO RETURN."" TO THE PRESS H ."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **E"":UT,UL%:(50003)053281,2:53280,10gUP0: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:"1" OMMODORE USINESS ACHINES"T" 3370 HARMACY VE.x" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: AMOUS EOPLE$" RITTEN Y : ARTIN ILLIAMSM" PGRADED Y : TEPHEN ENTONx" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835 ----------------------------- " PGRADED FOR 64 BY"" YNDA ONANNOE-----------------------------YNUZ1UP%:217_WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD.":850b" HIS PROGRAM DOES NOT LEND ITSELF"d" TO SIMPLE MODIFICATION. OWEVER,"Ae" THE QUESTIONS AND ANSWERS MAY BE"pf" CHANGED. HE QUESTIONS ARE BETWEEN"h" LINES 1850 AND 4100."835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 D" LOAD THE 'CBM 4032' PROGRAM"OUU71Uz ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"1093:  ** T I T L E P A G E **%""";:UT,UU%:(50003)053280,14:53281,6;$I138:"";:S&I122:"";:k(I137:"";:*I122:"";:," ."  0"  2" 14"C O M M O D O R ET6"EDUCATIONALs8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828 >T1$"":T2$"":T3$"":T4$"":I0@3001C ** SPACE BAR PRESS **lHUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870Qa(UD$,24);(UP$,7);"HELP - PRESS H "bfUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **%UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024cUT59468: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:UO198 UD$"";UP$" "TUT$" Ӡ"Zt ** SET VARIABLES **}900GQ$(42),EQ$(42),SQ$(42),VQ$(42),FQ$(42),Q$(42),A$(42),NQ$(42),TQ$(42)TTR(42) ** CHECK FOR 8032 ** "":"": SHIFTED SPACE% (UB40)96700>  ** MEMORY CHECK **R  (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 **#"THE PGM WILL NOT WORK ON THIS MACHINE!":s#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **#"";::(50003)053281,6:53280,14#******************************# WRITTEN BY MARTIN WILLIAMS# AT F.W.C.I.!$******************************E$******************************K$$m$. REVISED BY STEPHEN FENTONs$3$8******************************$B******************************$LNW0:AS0:CA0:I140:TTR(I)0:I$V1800 % ****TITLE PAGE****3%" PERATION DENTIFICATION"[%" "%" N THIS PROGRAM, YOU WILL ANSWER A"%" NUMBER OF RANDOMLY CHOSEN QUESTIONS."%" T THE END, YOUR RESULTS WILL BE "&" SHOWN. OU ARE TO FIGURE OUT WHO"=&" EACH PERSON IS FROM THE INFORMATION"[&" THAT YOU ARE GIVEN."a&"j&6""&h *** WHAT PROGRAM IS FOR ***&r"OINTS TO REMEMBER:"&|"1) YPE OUT ONLY THE PERSON'S LAST NAME "2'"2) OU WILL BE GIVEN TWO TRIES EACH TIME BEFORE YOU WILL";G'" BE PENALIZED"t'"3) HE NUMBERS IN BRACKETS AT THE "'" BEGINNING OF A QUESTION ARE THE"'" DATES OF BIRTH AND DEATH OF THAT"'" PERSON RESPECTIVELY"("4) OR PEOPLE'S NAMES INVOLVING OMAN"I(" NUMERALS AFTER THEIR NAME, USE "n(" LETTERS TO REPRESENT IT."(" (AMES THE FIRST IS TYPED AMES )"(( ***FURTHER EXPLANATION OF PROGRAM***)"":UT,UL%-)" OW MANY QUESTIONS DO YOU WISH"L)!" TO ANSWER? (1-20) ";u)&US$"0123456789H":UL2:35:HQ(UR$))+HQ201800)0HQ11800)5875):Q$(1)"HO WAS THE LAST ING OF ROY?")DA$(1)"RIAM"*NQ$(2)"HO IS THE ODDESS OF ILENCE"*XA$(2)"ACITA"F*bQ$(3)"HO WERE THE ATTENDANTS OF ILENUS"*lNQ$(3)"WHO WERE SIMILAR IN MOST RESPECTS TO THE AUNS OF AN?"*vA$(3)"ATYRS"*Q$(4)"HO WAS THE HINDU DEVIL; GENERALLY "+NQ$(4)"REPRESENTED AS A TERRIBLE MONSTER OF"4+TQ$(4)"A GREEN COLOR, WITH FLAMING EYES?"E+A$(4)"AMA"n+Q$(5)"HO WAS THE SCULPTOR WHO HAD"+NQ$(5)"RESOLVED TO REMAIN UNMARRIED, BUT"+TQ$(5)"HE MADE A BEAUTIFUL STATUE OF A"+FQ$(5)"ODDESS AND HE BEGGED ENUS TO"$,VQ$(5)"GIVE IT LIFE. IS REQUEST BEING"Q,SQ$(5)"GRANTED HE MARRIED THE ANIMATED"e,EQ$(5)"STATUE"{,A$(5)"YGMALION",Q$(6)"HO WAS THE SON OF UPITER AND",NQ$(6)"WAS THE GIANT WHO WAS THROWN INTO"-TQ$(6)"THE INNERMOST HELL FOR INSULTING"2-FQ$(6)"IANA? E ALSO, LIKE ROMETHEUS,"`- VQ$(6)"HAS A VULTURE CONSTANTLY FEEDING"-SQ$(6)"ON HIS EVERGROWING LIVER."-A$(6)"ITYUS"- Q$(7)"(1781-1813) HO WAS MERICAN AVAL"-*NQ$(7)"HERO, OMMANDER OF THE HESAPEAKE,"'.4TQ$(7)"WHO WAS KILLED IN ACTION AGAINST"V.>FQ$(7)"THE RITISH FRIGATE . IS".HVQ$(7)"FINAL WORDS WERE 'ON'T GIVE UP".MSQ$(7)"THE SHIP'".RA$(7)"AWRENCE".\Q$(8)"(-1056): HO WAS THE HANE OF THE" /fNQ$(8)"ORTH OF COTLAND WHO BECAME KING"=/pTQ$(8)"BY KILLING ING UNCAN AND REIGNED"m/zFQ$(8)"FOR 17 YRS? IS RIGHT WAS DISPUT-"/VQ$(8)"ED BY ALCOLM WHO DEFEATED HIM"/SQ$(8)"AT UMPHANAN."/A$(8)"ACBETH"/Q$(9)"(1843-1901): HO WAS THE 25TH""0NQ$(9)"RESIDENT OF THE .. LECTED IN"M0TQ$(9)"1896 AND AGAIN IN 1900? LSO"y0FQ$(9)"ASSASSINATED BY EON ZOLGOSZ."0VQ$(9)"HOOSE EITHER A,B,C OR D"0SQ$(9)"A)OE LARK B) .. ENNEDY"0EQ$(9)"C) ILLIAM CINLEY D) UY AWKES"1A$(9)"C"41Q$(10)"(135?-63B.C.): HO WAS THE ING"a1NQ$(10)"OF ONTUS WHO OVERRAN ALL SIA"1TQ$(10)"INOR AND REIGNED FROM 120-63 "1FQ$(10)"UNTIL HE WAS DEFEATED BY OMPEY?"1SQ$(10)"HOOSE EITHER A,B,C OR D",2 EQ$(10)"A) T. EORGE B) ITHRIDATES THE REAT"X2 GQ$(10)"C) HILIP D)ULIUS AESAR"g2 A$(10)"B"2$ Q$(11)"(1827-1901): HO WAS A RENCH"2. NQ$(11)"NATURALIST AND WAS THE OMAN"28 TQ$(11)"ATHOLIC PROFESSOR AT ORWAIN,"23B FQ$(11)"DISTINGUISHED FOR HIS OPPOSITION TO ARWINIANISM?"Z3L VQ$(11)"HOOSE EITHER A,B,C OR D"3V SQ$(11)"A) T. EORGE IVART B) T. ETER "3` EQ$(11)"C) ANIEL EFOE D) UN AT-UN"3j A$(11)"A"3t Q$(12)"N THE SCRIPTURES, WHO WAS THE"4~ NQ$(12)"EBREW LAWGIVER WHO LED THE"L4 TQ$(12)"SRAELITES FROM GYPT. E WAS"y4 FQ$(12)"BORN IN GYPT, BUT DIED AT THE"4 VQ$(12)"AGE OF 120 ON OUNT ISGAH!"4 A$(12)"OSES"4 Q$(13)"(1642-1727): HO WAS THE NGLISH"5 NQ$(13)"PHILOSOPHER WHO INVENTED 'ETHOD"C5 TQ$(13)"OF LUXIONS'; DISCOVERED AWS OF"r5 FQ$(13)"RAVITATION; AND DISCOVERED THAT"5 VQ$(13)"LIGHT IS NOT HOMOGENEOUS, BUT"5 SQ$(13)"CONSISTS OF RAYS OF DIFFERENT"5 EQ$(13)"REFRANGIBILITY?"5 A$(13)"EWTON"*6 Q$(14)"(1787-1727): HO WAS THE RENCH"Z6 NQ$(14)"HYSICIAN WHO FOUNDED THE CIENCE"6 TQ$(14)"OF AXICOLOGY AND HIS GREATEST WORK"6 FQ$(14)"WAS THE 'REATISE ON EGAL EDICINE'?"6 VQ$(14)"A) ATEO OSE ONAVENTURA ORFILA"$7 SQ$(14)"B) ETER C) ANIEL EFOE"N7( EQ$(14)"D) AMUEL ANGHORNE LEMENS"]72 A$(14)"A"7< Q$(15)"HAT WAS THE REEK SURNAME OF AN"7F NQ$(15)"POSTLE OF ESUS WHOSE REAL NAME"7K TQ$(15)"WAS IMON?"7P A$(15)"ETER"8Z Q$(16)"(1672-1725): HO WAS BOTH THE ZAR"F8d NQ$(16)"OF USSIA AND THE FOUNDER OF THE"v8n TQ$(16)"MODERN USSAIN ONARCHY? (CHOOSE"8s FQ$(16)"A,B,C OR D)"8x VQ$(16)"A) HILIP B) ETER "8 SQ$(16)"C) OMPEY D) ICHOLAS RIAM"8 A$(16)"B"9 Q$(17)"(382-336BC): HO WAS ING OF"J9 NQ$(17)"ACEDONIA AND WAS THE FATHER OF"m9 TQ$(17)"LEXANDER THE REAT?"9 FQ$(17)"HOOSE EITHER A,B,C OR D"9 VQ$(17)"A) ETER B) HILIP "9 SQ$(17)"C) LEXANDER OMPEY"9 EQ$(17)"D)LEXANDER ETER": A$(17)"B"@: Q$(18)"HO WAS THE NGLISH TENOGRAPHER WHO"o: NQ$(18)"INVENTED THE PHONETIC SYSTEM OF ": TQ$(18)"SHORTHAND WRITING? HOOSE": FQ$(18)"A,B,C OR D": VQ$(18)"A) IR SAAC ITMAN B) ENE EAUMUR"; SQ$(18)"C) IR AMES ORKNER D) OAH EBSTER"(; A$(18)"A"V; Q$(19)"(1252-1323): AMOUS TALIAN EX-"; NQ$(19)"PLORER AND WRITER, NOTED FOR HIS";" TQ$(19)"JOURNEY TO HINA? ECENTLY A FILM";, FQ$(19)"OF HIS UNIQUE JOURNEYS WAS ON";1 VQ$(19)"TELEVISION!!"<6 A$(19)"OLO";<@ Q$(20)"(106-48BC): HO WAS THE OMAN"l FQ$(21)"A) IR ALTER ALEIGH B) HILIP "E> VQ$(21)"C) IR RANCIS RAKE D) UAN ONCE"s> SQ$(21)" DE EON"> A$(21)"D"> Q$(22)"(1552-1618): HO WAS THE NGLISH"> NQ$(22)"COURTIER, STATESMAN, NAVIGATOR, AND"? TQ$(22)"AUTHOR WHO WAS A FAVORITE OF UEEN"A? FQ$(22)"LIZABETH, BUT WAS EXECUTED BY"X? VQ$(22)"AMES ?"? SQ$(22)": BRAND OF CIGARETTES HAS HIS NAME ON IT!"? A$(22)"ALEIGH"? Q$(23)"HICH RENCH SCIENTIST INVENTED A"%@ NQ$(23)"THERMOMETER? HOOSE EITHER A,B,C OR D"o@ TQ$(23)": IS NAME IS THE TYPE OF THERMOMETER"@& FQ$(23)"A) EAN ERCURY B) IERRE AHRENHEIT"@0 VQ$(23)"C) ENE EAUMUR D) OHN AYLOR"@: A$(23)"C" AD Q$(24)"HOSE REAL NAME WAS ILLIAM"8AN NQ$(24)"ITZOOTH, ARL OF UNTINGTON AND"gAX TQ$(24)"WAS NOTORIOUS BECAUSE HE: 'STOLE"A] FQ$(24)"FROM THE RICH AND GAVE TO THE POOR'?"Ab A$(24)"OBIN OOD"Al Q$(25)"(1608-1647): HO WAS THE TALIAN" Bv NQ$(25)"HYSICIST WHO INVENTED THE"#B{ TQ$(25)"BAROMETER?"KB FQ$(25)"HOOSE EITHER A,B,C OR D"tB VQ$(25)"A) VANGELISTA ORRICELLI"B SQ$(25)"B) IR SAAC EWTON"B EQ$(25)"C) ALILEI ALILEO"B GQ$(25)"D) IUSEPPE ARIBALDIB A$(25)"A"C Q$(26)"(1758-1843): HO WAS THE EXICO-"IC NQ$(26)"GRAPHER WHO DEVOTED 20 YRS. TO HIS"}C TQ$(26)"'ICTIONARY OF THE NGLISH LANGUAGE'?"C VQ$(26)": HE DICTIONARY WAS NAMED AFTER HIM!"C A$(26)"EBSTER"D Q$(27)"(1765-1825): HO INVENTED THE"2D NQ$(27)"COTTON GIN AND MADE IMPORTANT"ZD TQ$(27)"IMPROVEMENTS IN FIREARMS?"oD A$(27)"HITNEY"D Q$(28)"(1027-1087): HO WAS THE ING OF"D NQ$(28)"NGLAND, UKE OF ORMANDY, AND"D TQ$(28)"CONQUERED NGLAND? E WAS KNOWN" E FQ$(28)"AS '----THE CONQUERER'!"7E A$(28)"ILLIAM "fE* Q$(29)"(1809-1882): HO WAS THE NGLISH"E4 NQ$(29)"ATURALIST FAMOUS FOR HIS HEORY OF"E> TQ$(29)"VOLUTION?"EH A$(29)"ARWIN"ER Q$(30)"(1814-1862): HO WAS THE MERICAN"%F\ NQ$(30)"NVENTOR WHO PERFECTED A REVOLVER"fFf TQ$(30)"NAMED AFTER HIMSELF? HOOSE EITHER A,B,C OR D"Fp FQ$(30)"A) HARLES INCHESTER B) IRAM AXIM"Fz VQ$(30)"C) AMUEL OLT D) IR OSEPH ANNON"F A$(30)"C"G Q$(31)"(1570-1606): HO WAS HUNG FOR"8G NQ$(31)"TRYING TO BLOW UP ING AMES AND"G TQ$(31)"THE OUSE OF ORDS ON OV. 5, 1605? HOOSE A,B,C OR D"G FQ$(31)"A) ANIEL EFOE B) OBERT EARY"G VQ$(31)"C) EVIL HUTE D) UY AWKES"G A$(31)"D"H Q$(32)"(1889-1945): HO WROTE 'EIN AMPF'"LH NQ$(32)"AND ALSO LED ERMANY INTO ORLD"cH TQ$(32)"AR ?"wH A$(32)"ITLER"H Q$(33)"(APX. 4BC-30AD): HO WAS THE ABBI"H NQ$(33)"WHO FOUNDED CHRISTIANITY AND IS"I TQ$(33)"BELEIVED BY HRISTIANS TO BE THE SON OF OD?"FIFQ$(33)": E WAS CRUCIFIED BY THE"xIVQ$(33)" OMANS AFTER BEING BETRAYED"ISQ$(33)" BY UDAS!!"IEQ$(33)"RITE FULL NAME! THERWISE WRONG"I$A$(33)"ESUS OF AZARETH"J.Q$(34)"(287-212BC): HO WAS THE MATHEMA-"FJ8NQ$(34)"TICIANAND PHILOSOPHER WHO DIS-"vJBTQ$(34)"COVERED THE PRINCIPLE OF PECIFIC"JGFQ$(34)"RAVITY? HOOSE A,B,C OR D"JLVQ$(34)"A) IR SAAC EWTON B) RISTOTLE"KVSQ$(34)"C) RCHIMEDES D) ENE ESCARTES"K`A$(34)"C"AKjQ$(35)"(1473-1543): HO WAS THE FOUNDER OF"pKtNQ$(35)"MODERN ASTRONOMY AND SHOWED THAT"K~TQ$(35)"THE EARTH IS A PLANET CIRCLING THE"KFQ$(35)"SUN, DISPROVING TOLEMY'S THEORY?"KA$(35)"OPERNICUS"LQ$(36)"(1540-1596): HO RAIDED THE PANISH"MLNQ$(36)"MAIN AND SET OFF IN THE OLDEN IND"|LTQ$(36)"TO CIRCUMNAVIGATE THE WORLD? E"LFQ$(36)"ALSO DEFEATED THE PANISH RMADA!"LA$(36)"RAKE"LQ$(37)"(1879-1955): HO IS RENOWNED IN THE"!MNQ$(37)"FIELD OF MATHEMATICAL PHYSICS AND"cMTQ$(37)"PUBLISHED THE GENERAL HEORY OF ELATIVITY?"yMA$(37)"INSTEIN"MQ$(38)"(1863-1947): HO IS THE MERICAN"MNQ$(38)"UTOMOBILE ANUFACTURER WHICH"N TQ$(38)"DEVELOPED ASSEMBLY-LINE METHODS OF"4NFQ$(38)"PRODUCTION AND MASS-PRODUCED THE"cNVQ$(38)"'IN IZZIE'. LSO KNOWN AS THE"N#SQ$(38)"ODEL ORD?"N(A$(38)"ORD"N2Q$(39)"(1888-1935): HO WAS KNOWN AS"N<NQ$(39)"AWRENCE OF RABIA' AND LED THE RAB"-OFTQ$(39)"REVOLT AGAINST URKEY DURING ORLD AR ?"UOPFQ$(39)"HOOSE EITHER A,B,C OR D"OZVQ$(39)"A) HOMAS LVA AWRENCE B) AINT LVA AWRENCE"OdSQ$(39)"C) HOMAS DWARD AWRENCE D) IR DWARD AWRENCE"OxA$(39)"C"/PQ$(40)"(1856-1920): HO WAS THE MERICAN"]PNQ$(40)"ARTIC EXPLORER WHO WAS FIRST TO"PTQ$(40)"REACH THE ORTH OLE? HOOSE EITHER A,B,C OR D"PFQ$(40)"A) IR DMUND ILLARY B) OBERT ALCON COTT"8QVQ$(40)"C) APTAIN OALD MUNDSEN D) OBERT DWIN EARY"GQA$(40)"D"vQQ$(41)"(1866-1925): HO WAS THE HINESE"QNQ$(41)"REVOLUTIONARY LEADER WHO FOUNDED"QTQ$(41)"THE HINESE EPUBLIC AND WASRFQ$(41)"RESIDENT? HOOSE EITHER A,B,C OR D"2RVQ$(41)"A) ENGHIS HAN B) AO TSE-UNG"`RSQ$(41)"C) AO ONG D) UN AT-EN"oRA$(41)"D"R*** QUESTION BANK FOR PROGRAM***R UP0:UG$"UESTION #"RWA0R *** SETS NUMBER OF ATTEMPTS TO ZERO ***R"RN((0)40)1S'TTR(RN)994130S)TTR(RN)99aS, **CHOOSES RANDOM NUMBER TO DETERMINE QUESTION TO BE ASKED***mS6ASAS1S@ *** COUNTS NUMBER OF QUESTIONS ASKED ***SB850SJ" "Q$(RN)ST" "NQ$(RN)S^" "TQ$(RN)Sh" "FQ$(RN)Sr" "VQ$(RN)T|" "SQ$(RN)#T" "EQ$(RN)5T" "GQ$(RN)iT ***PRINTS QUESTION BASED ON RANDOM NUMBER***"T" HAT IS YOUR ANSWER:"T" ";TUS$"":UL20:35:BS$UR$TBS$A$(RN)4690.U *** ACCEPTS ANSWER AND COMPARES IT TO CORRECT ANSWER***:UWAWA1IUWA24360yU" OUR ANSWER IS WRONG! TRY ONCE MORE!"U""U4260UNWNW1U" OU HAVE USED UP ALL YOUR TRIES. "U" HE CORRECT ANSWER IS "A$(RN)" "V& *** GIVES CORRECT ANSWER ***-V:835:49209VRCACA1iVf" OUR ANSWER IS CORRECT!! "rVp835V *** SAYS ANSWER IS RIGHT AND COUNTS ONE RIGHT***V8VBASHQ5005VL *** DECIDES IF ENOUGH QUESTIONS HAVE BEEN ASKED ***W4110!W" "IW" OU HAD"CA"QUESTIONS CORRECT"`W" AND"NW"WRONG"W *** PRINTS RESULT OF QUESTIONS***WPC(10000CAHQ.5)100W *** CALCULATES PERCENT OF QUESTIONS ANSWERED CORRECTLY ***X" OU HAD "PC"% CORRECT",X *** PRINTS PERCENT CORRECT***5X835;X OUR ANSWER IS CORRECT!!  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PROGRAM IS FREE FOR/  DUPLICATION IN CANADA.L  INFORMATION, PLEASEr  CONTACT COMMODORE CANADA AND  EVERY EFFORT WILL BE MADE TO  WITHDRAW COPIES OF THIS  PROGRAM. : # +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80( -" ";:UC,0< 2UI$:UI$""50f 7UI$(13)(UR$)1UC,1:" ";:85y <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++! ZUR$UX$195: EXIT TO HELP ROUTINE0 _UF1240= dUF0::V f ++ CHECK DELETE ++g i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ y(UX$)1"LENGTH OF UX$ <> 1 AT LINE 121": }(US$)0150$ US$(US$UX$,(US$) ((UR$)0) )5 US1(US$)L UI$(US$,US,1)R _ UI$"":z ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180  (UI$)193(UI$)218UI$"":) (UT)UU%UI$((UI$)128):/ < UI$"":a UF1: +++ HELP ROUTINE EXIT +++j 250s 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:2200"";_UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)tUQ,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)oUJ$US$:UK$UG$:UL$UT$:UJUP:UKULu, ** MENU **-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU" 6" --------------------------------------"8;" 1. BEGIN PRESIDENTS QUIZ"b@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"O" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";*^UL1:US$"1234":35: INPUT ROUTINE5`US$""Rc(UR$)1000,400,500,396[h300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **B"":UT,UL%:(50003)053281,0:53280,0hUH1:UP0:UG$"TUDENT NST":850" OU WILL BE ASKED THE NAME OF THE"" PRESIDENT WHO SERVED DURING THE"" YEARS LISTED. E SURE TO SPELL"" BOTH NAMES CORRECTLY AND PUSH THE"D" KEY WHEN YOU ARE DONE. OU"r" WILL BE GIVEN 10 DIFFERENT QUESTIONS"" FOLLOWED BY YOUR SCORE. OOD LUCK."835:UH1:850" F YOU NEED PRESS AND" " TO GO BACK TO THE MENU."6" OU WILL RETURN TO THE PLACE WHERE"b" YOU LEFT OFF AFTER THE MENU OPTION"x" IS FINISHED."" O QUIT THE PROGRAM, PRESS "" INSTEAD OF THE ANSWER.835UZ1UP%:217 ** TEACHER INSTRUCTIONS **6"":UT,UL%:(50003)053281,2:53280,10WUP0: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:"!" OMMODORE USINESS ACHINES"D" 3370 HARMACY VE.h" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: RESIDENTS UIZ" RITTEN Y : AMES . OWNERA" PGRADED Y : OUG HENHALLl" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST ** Y"":UT,UL%+]UP0:UG$"ROGRAM OD":8504835HUZ1UP%:217Ns ** 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 **D""";:UT,UU%:(50003)053280,14:53281,6Z$I138:"";:r&I122:"";:(I137:"";:*I122:"";:," ."  0" (2" P4"C O M M O D O R Es6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828+>T1$"":T2$"":T3$"":T4$"":I04@300PC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)-\" --------------------------------------"<`UH0870pa(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **DUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468: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:UO198(UD$""ZUP$" "UT$" .. Ӡ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **A$(50),B$(50)900::  ** CHECK FOR 8032 **)"":"": SHIFTED SPACE@(UB40)96700Y ** MEMORY CHECK **m (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 **W 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)19909!1093,49:1094,230:1097,46:1102,230:965s!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: TITLE("300: MENUY""THE PGM WILL NOT WORK ON THIS MACHINE!":"UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **""";::(50003)053281,6:53280,14"################################ UPGRADED BY DOUG CHENHALL #&## JULY 5,1982 #J## OSHAWA, ONTARIO, CANADA #n################################$************************#.* REVISED AND UPGRADED *#3* FOR COMMODORE 64 BY *#8* DEREK LEE *$=************************,$L U.S. PRESIDENTS AUGUST 1980|$V QUIZ: GIVES DATES OF PRESIDENT'S TERM; STUDENT SUPPLIES NAME$`$j$t BY JAMES C DOWNER$~$"$" SAN MATEO COUNTY %" OFFICE OF EDUCATION >%" & p%" COMPUTER-USING EDUCATORS L20000-20050%" %" SOFTSWAP %" &"333 MAIN STREET, REDWOOD CITY.&"CA 94063 (415)364-5600 EX4401T&"z&"&" PROGRAMS MAY BE COPIED FOR & " EDUCATIONAL USE ONLY AND &" ARE NOT TO BE SOLD. '"('("":UT,UL%:875Z'2: I0 39: A$(I),B$(I):I:UG$"UIZ":PC0m'7UH1:UP0:850'< K91 38: (UM200K9),42:K9'FP1UM200: I91 15'P (P11),42: (P138),42'ZP1P140: I9'd L1 38'n (P1L),42(x L(""@(06);"NITED TATES RESIDENTS UIZ"I(835Y(N0:C0:W0l( K1150 250u(""( J1 1 6(( J1(L(K14)(K1)(I39(L)("I(I)(,Q0(6NN1: N10 1785 );PCPC1:UPPC1:UG$"UESTION #":850=)@" **************************************"g)J" HAT PRESIDENT SERVED FROM ";A$(I))T" **************************************")Y" YPE IN BOTH NAMES THEN .")^" ? ";:UL36:US$"":35:Z$UR$)cZ$"Q" *h Z$B$(I) 1680B*rQQ1: Q2 :" RONG GAIN!":WW1:835:2290g*|:" RONG!....RY AGAIN.":WW1r* 1630*R6(I)1:CC1** R 1730,1740,1750,1760,1770,1780* " ORRECT";5);"OOD WORK"* 1860+" ORRECT!...OU'RE EXCEPTIONAL!!":1860<+" ORRECT!...MAZING ABILITY!!": 1860n+" ORRECT AGAIN!..OU'RE INCREDIBLE!!":1860+" IGHT!...EEP GOING": 1860+" 'M AWED AT YOUR INTELLIGENCE":1860+" OU REALLY KNOW THIS SUBJECT": 1860 ,UH1:UP0:UG$"ESULTS":8504," OU HAVE";C;"CORRECT ANSWERS"c,10)" AND":" "W"INCORRECT ANSWERS,"," FOR AN AVERAGE OF";(C(CW)100.5);"%",835:,N0: 1840,& 1860,0 I51 2500,: I5,D835,X K1 -b1789-1797,"EORGE ASHINGTON"'-l1797-1801,"OHN DAMS"I-v1801-1809,"HOMAS EFFERSON"h-1809-1817,"AMES ADISON"-1817-1825,"AMES ONROE"-1825-1829,"OHN UINCY DAMS"-1829-1837,"NDREW ACKSON"-1837-1841,"ARTIN AN UREN" .1841-1841,"ILLIAM ARRISON").1841-1845,"OHN YLER"E.1845-1849,"AMES OLK"e.1849-1850,"ACHARY AYLOR".1850-1853,"ILLARD ILLMORE".1853-1857,"RANKLIN IERCE".1857-1861,"AMES UCHANAN".1861-1865,"BRAHAM INCOLN" /1865-1869,"NDREW OHNSON"(/ 1869-1877,"LYSSES RANT"J/1877-1881,"UTHERFORD AYES"j/ 1881-1881,"AMES ARFIELD"/*1881-1885,"HESTER RTHUR"/41885-1889,"ROVER LEVELAND"/>1889-1893,"ENJAMIN ARRISON"/H1893-1897,"ROVER LEVELAND"0R1897-1901,"ILLIAM CINLEY"70\1901-1909,"HEODORE OOSEVELT"U0f1909-1913,"ILLIAM AFT"u0p1913-1921,"OODROW ILSON"0z1921-1923,"ARREN ARDING"01923-1929,"ALVIN OOLIDGE"01929-1933,"ERBERT OOVER"01933-1945,"RANKLIN OOSEVELT"11945-1953,"ARRY RUMAN";11953-1961,"WIGHT ISENHOWER"Y11961-1963,"OHN ENNEDY"y11963-1969,"YNDON OHNSON"11969-1974,"ICHARD IXON"11974-1977,"ERALD ORD"11977-1980,"IMMY ARTER"11980- ? ,"ONALD EAGAN"2""&2" HE ANSWER WAS ";B$(I)W2 " AKE A MENTAL NOTE OF THIS!":835:K1_2 "|2$ "THANK YOU FOR THE QUIZ2. "PERHAPS YOU WILL PLAY SOME OTHER TIME28 I1 15002B I2L OOVER"01933-1945,"RANKLIN OOSEVELT"11945-1953,"ARRY RUMAN";11953-1961,"WIGHT ISENHOWER"Y11961-1963,"OHN ENNEDY"y11963-1969,"YNDON OHNSON"11969-1974,"ICHARD IXON"11974-1977,"ER 910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE ** REVISED BY RICHARD DEBOER,JULY,1982 DONE ON FWCI COMPUTERS+ ORIGINALLY BY UNKNOWN1 :U  ** TO OUR BEST KNOWLEDGE THISr  PROGRAM IS FREE FOR  DUPLICATION IN CANADA.  IF YOU HAVE CONTARY  INFORMATION, PLEASE  CONTACT COMMODORE CANADA AND  EVERY EFFORT WILL BE MADE TO9  WITHDRAW COPIES OF THISK  PROGRAM.Q :m # +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80 -" ";:UC,0 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL502 A120: CHECK FOR VALID CHARACTERB FUR$UR$UI$L KUI$;T P50y 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" ";:508 x ++ CHECK FOR VALID CHARACTERS ++J }(US$)0150[ US1(US$)r UI$(US$,US,1)x UI$"": ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)57170  (UI$)65(UI$)90180 , (UI$)193(UI$)218UI$"":O (UT)UU%UI$((UI$)128):U b UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300UZ0:US$UJ$:UG$UK$:UPUJ:ULUKL(50003)053281,1:"";:53281,6:53280,14:220V"";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):A(UD$,24);"  HELP COMING ":mU1%(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"36" --------------------------------------"Y;" 1. BEGIN WORLD WARS"@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"%T" --------------------------------------"PY" PRESS A NUMBER KEY (1-5) ";y^UL1:US$"12345":35: INPUT ROUTINEc(UR$)1000,400,500,600,396h300 ** RE-ENABLE STOP KEY AND END **(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.":850" LL THE ANSWERS ARE ONE WORD." " OTE:O ADVANCE FROM ONE QUESTION."6" TO THE NEXT PRESS THE BAR."f" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H ."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10"UP0:UG$"EACHER NST":850P" O THE BEST OF OUR KNOWLEDGE,"y" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE.3" GINCOURT, NTARIO"U" ANADA 1 24"u" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: ORLD ARS" RITTEN Y : NKNOWN" PGRADED Y : ICHARD EBOER(" HIS PROGRAM WILL RUN ON ANYH" 64 m" 64 v 835 ------------------------------ " PGRADE FOR 64 BY" YNDA ONANNO------------------------------ NUZ1UP%:217W8X ** PROGRAM MODIFICATION INST **IY"":UT,UL%i]UP0:UG$"ROGRAM OD":850^" O MODIFY QUESTIONS AND ANSWERS,_" LIST 1140 TO 1930 AND CHANGE THE"b" APPROPRIATE STATEMENTS."835UZ1UP%:217 . ** TO USE 8032 LOAD CBM4032 **d"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"'1093:G  ** T I T L E P A G E **{""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:," ."  A0" _2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0><A$:A$" "II1:I250828b>T1$"":T2$"":T3$"":T4$"":I0k@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE ** TUPUP15W""(UT$UP$,21);(UP$UG$(UP),18)d\" --------------------------------------"s`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK ** p(UD$,24);" ONE MOMENT PLEASE... "u0 ** SET UP VARIABLES **{UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468: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:UO198_UD$""UP$" "UT$" Ġ" ** SET VARIABLES **900A$(40),Q$(40),CH(40),GW(40): ** CHECK FOR 8032 **0"":"": SHIFTED SPACEG(UB40)96700` ** MEMORY CHECK **t (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 **^ 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:965z!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: TITLE/"300: MENU`""THE PGM WILL NOT WORK ON THIS MACHINE!":"UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **""";::(50003)053281,6:53280,14"L REVISED BY RICHARD DEBOER,JULY,1982#VI140:GW(I)0:I #`""3#tQ$(1)"HO WAS ITLERS ESERT OX?"F#~A$(1)"OMMEL"#Q$(2)"HAT WAS APAN'S BEST FIGHTER BOMBER? HE ---?"#A$(2)"ERO"#Q$(3)"HAT WAS THE NAME OF LIGHTNING WARFARE IN ORLD AR ?"$A$(3)"LITZKREIG"O$Q$(4)"HAT .. CARRIER DID THEY MAKE A MOVIE ABOUT? HE ---?"b$A$(4)"IMITZ"$Q$(5)"HAT IS THE NAME OF THE SISTER SHIP OF THE ISMARK? HE ---?"$A$(5)"IRPITZ"$Q$(6)"HAT YEAR DID ORLD AR END?"%A$(6)"1945"N%Q$(7)"HAT WAS THE NAME OF ITLER'S PRIZE BATTLESHIP? HE ---?"b%A$(7)"ISMARK"%Q$(8)"HAT WAS THE NAME OF APAN'S PRIZE BATTLESHIP? HE ---?"% A$(8)"AMAMOTO"%Q$(9)"HAT IS THE NAME OF THE RITISH "-&Q$(9)Q$(9)"DESTROYER SUNK NEAR THE ALKLANDS?"C&A$(9)"HEFFIELD"&(Q$(10)"HAT DID ITLER CALL HIS AIRFORCE? HE ---?"&2A$(10)"UFTWAFFE"&<Q$(11)"HO WAS THE FIRST TO TAKE ERLIN? HE ---?"&FA$(11)"USSIANS" 'PQ$(12)"HO SHOT ITLER?" 'ZA$(12)"ITLER"W'dQ$(13)"HAT RITISH PLANE DID HUNDER AY "'iQ$(13)Q$(13)"MAKE IN THE WAR? HE ---?"'nA$(13)"URRICANE"'xQ$(14)"HERE WAS THE FIRST TOMIC OMB DROPPED?"'A$(14)"IROSHIMA"$(Q$(15)"HAT YEAR WAS EARL ARBOUR BOMBED?"6(A$(15)"1941"b(Q$(16)"HAT YEAR DID ORLD AR END?"t(A$(16)"1918"(Q$(17)"HE HIRKAS FELT YOUR --- TO KNOW YOU WERE AN ENEMY?"(A$(17)"BOOTS")Q$(18)"HERE WAS THE NEAREST P.O.W. CAMP IN THE HUNDER AY AREA?"4)A$(18)"IPIGON"r)Q$(19)"USSOLINI WAS THE FACIST DICTATER OF ---?")A$(19)"TALY")Q$(20)"HO WAS ITLERS RIGHT-HAND MAN?")A$(20)"OERING")Q$(21)"HAT WAS ITLERS BEST TANK CALLED?" *A$(21)"IGER"Q*Q$(22)"HO WERE THE MOST FEARED SOLDIERS OF THE ERMAN RMY?"f*"A$(22)"ESTAPO"*,Q$(23)"HE --- TANK WAS THE ..'S MOST POPULAR IN ORLD AR ?"*6A$(23)"HERMAN" +@Q$(24)"OW DID THE ESTAPO GET THE ANSWERS THEY WANTED?""+JA$(24)"TORTURE"c+TQ$(25)"HAT .. GENERAL LED THE ATTLE OF HE ULGE?"w+^A$(25)"ATTON"+hQ$(26)"HAT WERE ANADA'S SOLDIERS CALLED DURING THE WAR?"+rA$(26)"LLIES",|Q$(27)"ITLER CALLED HIS -BOATS THE REY ---?"%,A$(27)"OLVES"N,Q$(28)"HERE DID -DAY TAKE PLACE?"d,A$(28)"ORMANDY",Q$(29)"HAT WAS THE ERMANS BEST DIVE- BOMBER? HE ---?",A$(29)"TUKA",Q$(30)" MOVIE WAS MADE ABOUT A RENCH "'-Q$(30)Q$(30)"AGENT CALLED: CODE NAME ---?=-A$(30)"ADELINE"|-Q$(31)"HE RENCH ESISTANCE WAS CALLED THE ---?"-A$(31)"NDERGROUND"-Q$(32)"AME THE .. GENERAL WHO LATER BECAME A PRESIDENT?"-A$(32)"ISENHOWER"9.Q$(33)"HAT WAS THE NICK-NAME OF ENERAL ONTGOMERY?"L.A$(33)"ONTY".Q$(34)"HAT WAS THE NAME OF THE RENCH ". Q$(34)Q$(34)"DEFENSE LINE? HE --- LINE?".A$(34)"AGINOT"/Q$(35)"'M GOING TO HANG OUT MY WASHING ON THE --- LINE?"L/&A$(35)"EIGFRIED (WE ALL NEED A LITTLE HUMOUR)"/0Q$(36)"HE ANADIANS RETREATED IN THE INVASION OF ---?"/:A$(36)"IEPPE"/DQ$(37)"ERMANS USED A FLYING BOMB ON "0IQ$(37)Q$(37)"RITIAN NICKNAMED THE --- OMB?"$0NA$(37)"UZZ"k0XQ$(38)"HAT WAS RITIAN'S BEST FIGHTER PLANE? HE ---?"0bA$(38)"PITFIRE"0lQ$(39)"HAT IS THE SYMBOL FOR THE ANADIAN AVY?"0vA$(39)"...."1Q$(40)"HAT IS THE SYMBOL FOR THE RITISH IRFORCE?"$1A$(40)""P1NU0:"":UT,UL%:UP0:UG$"UESTION #"y1 WA1:RN((1)40)1:GW(RN)020801*GW(RN)99:8501fNUNU1:" "Q$(RN)1z" NSWER: ";:US$"":UL20:35: UR$A$(RN)22802" 'M SORRY YOUR ANSWER IS WRONG ":WAWA1:WA42240'2 2170_2" HE CORRECT ANSWER IS "A$(RN):835:NU20 i220802" ONGRATULATIONS!"2$ 8352L "":NU202V 2080