Make C1P screen sharper, add support for C1P JSON files, and add more C1P README files
This commit is contained in:
Jeff Parsons
parent
c8d3a102e2
commit
985c7c76cd
46 changed files with 2199 additions and 54 deletions
|
|
@ -1,266 +0,0 @@
|
|||
1 FORSC=1TO30:PRINT:NEXT:REM--SUSAN SULLIVAN**PRES TUTOR
|
||||
2 PRINT"WANT INSTRUCTIONS?":INPUTD$:IF D$="Y"ORD$="YES"THEN50000
|
||||
3 PRINT"INPUT RANDOM SEED":INPUTX:Z=0:DIMQ(100):Q(1)=0
|
||||
4 R=INT(38*RND(X)+1):Z=Z+1:FOR SC=1TO30:PRINT:NEXT
|
||||
5 IFZ=1THEN60050
|
||||
6 GOTO60000
|
||||
10 PRINT"WHICH PRESIDENT STARTED"
|
||||
11 PRINT"THE TWO TERM TRADITION?"
|
||||
12 PRINT"HE WAS ELECTED UN-"
|
||||
13 PRINT"ANIMOUSLY."
|
||||
14 GOTO450
|
||||
20 PRINT"THIS MAN WAS THE FIRST"
|
||||
21 PRINT"VICE PRESIDENT AND THE"
|
||||
22 PRINT"SECOND PRESIDENT. HE"
|
||||
23 PRINT"AVOIDED WAR WITH"
|
||||
24 PRINT"EUROPE. WHO WAS HE?"
|
||||
25 GOTO450
|
||||
30 PRINT"WHO WAS THE PRESIDENT"
|
||||
31 PRINT"DURING THE LOUISIANA"
|
||||
32 PRINT"PURCHASE AND THE LEWIS"
|
||||
33 PRINT"AND CLARK EXPEDITION?"
|
||||
35 GOTO450
|
||||
40 PRINT"THIS PRESIDENT WAS"
|
||||
41 PRINT"CALLED 'THE FATHER OF"
|
||||
42 PRINT"THE CONSTITUTION'. HE"
|
||||
43 PRINT"WAS IN OFFICE DURING"
|
||||
44 PRINT"THE WAR OF 1812."
|
||||
45 GOTO450
|
||||
50 PRINT"WHO WAS THE PRESIDENT"
|
||||
51 PRINT"WHEN FLORIDA WAS"
|
||||
52 PRINT"ACQUIRED? HE ALSO WROTE"
|
||||
53 PRINT"AN IMPORTANT DOCTRINE."
|
||||
55 GOTO450
|
||||
60 PRINT"ELECTED BY THE HOUSE,"
|
||||
61 PRINT"HE WAS THE SON OF A"
|
||||
62 PRINT"FORMER PRESIDENT. WHO"
|
||||
63 PRINT"WAS HE?"
|
||||
65 GOTO450
|
||||
70 PRINT"THIS PRESIDENT IS GIVEN"
|
||||
71 PRINT"CREDIT FOR STARTING THE"
|
||||
72 PRINT"SPOILS SYSTEM."
|
||||
75 GOTO450
|
||||
80 PRINT"WHICH PRESIDENT STARTED"
|
||||
81 PRINT"AN INDEPENDENT TREASURY"
|
||||
82 PRINT"SYSTEM AND OPPOSED THE"
|
||||
83 PRINT"ANNEXING OF TEXAS?"
|
||||
85 GOTO450
|
||||
90 PRINT"WHICH PRESIDENT DIED"
|
||||
91 PRINT"AFTER ONLY 31 DAYS IN"
|
||||
92 PRINT"OFFICE? HE WAS A HERO"
|
||||
93 PRINT"OF THE BATTLE OF"
|
||||
94 PRINT"TIPPECANOE?"
|
||||
95 GOTO450
|
||||
100 PRINT"WHO WAS THE FIRST VICE"
|
||||
101 PRINT"PRESIDENT TO BECOME PR-"
|
||||
102 PRINT"ESIDENT BECAUSE OF THE"
|
||||
103 PRINT"DEATH OF THE PRESIDENT?"
|
||||
105 GOTO450
|
||||
110 PRINT"WHO WAS IN OFFICE WHEN "
|
||||
111 PRINT"THE STATES OF CAL.,UTAH"
|
||||
112 PRINT"AND NEW MEXICO WERE"
|
||||
113 PRINT"AQUIRED IN THE MEXICAN"
|
||||
114 PRINT"WAR?"
|
||||
115 GOTO450
|
||||
120 PRINT"THIS PRESIDENT DIED IN"
|
||||
121 PRINT"OFFICE AND WAS A HERO"
|
||||
122 PRINT"OF THE MEXICAN WAR?"
|
||||
125 GOTO450
|
||||
130 PRINT"WHO WAS PRESIDENT WHEN"
|
||||
131 PRINT"THE 1850 SLAVERY"
|
||||
132 PRINT"COMPROMISE AND THE"
|
||||
133 PRINT"FUGITIVE SLAVE ACT WERE"
|
||||
134 PRINT"PASSED?"
|
||||
135 GOTO450
|
||||
140 PRINT"WHICH PRESIDENT REPEALED"
|
||||
141 PRINT"THE MISSOURI COMPROMISE?"
|
||||
145 GOTO450
|
||||
150 PRINT"THIS PRESIDENT FAVORED"
|
||||
151 PRINT"THE LECOMPTON CONST-"
|
||||
152 PRINT"ITUTION FOR KANSAS?"
|
||||
155 GOTO450
|
||||
160 PRINT"WHO WAS THE FIRST PRE-"
|
||||
161 PRINT"SIDENT TO BE ASSASSI-"
|
||||
162 PRINT"NATED? HE WAS IN OFFICE"
|
||||
163 PRINT"DURING THE CIVIL WAR?"
|
||||
165 GOTO450
|
||||
170 PRINT"WHO WAS THE FIRST PRE-"
|
||||
171 PRINT"SIDENT TO BE IMPEACHED?"
|
||||
172 PRINT"THE SENATE FAILED TO"
|
||||
173 PRINT"CONVICT HIM BY ONE VOTE."
|
||||
175 GOTO450
|
||||
180 PRINT"THIS PRESIDENT WAS"
|
||||
181 PRINT"PLAGUED BY A CORRUPT"
|
||||
182 PRINT"ADMINISTRATION EVEN"
|
||||
183 PRINT"THOUGH HE PERSONALLY"
|
||||
184 PRINT"WAS HONEST?"
|
||||
185 GOTO450
|
||||
190 PRINT"WHICH PRESIDENT WAS"
|
||||
191 PRINT"ELECTED BY A COMMITTEE"
|
||||
192 PRINT"OF CONGRESS WHEN THE"
|
||||
193 PRINT"RETURNS WERE DISPUTED?"
|
||||
195 GOTO450
|
||||
200 PRINT"WHICH PRESIDENT WAS"
|
||||
201 PRINT"ASSASSINATED BECAUSE OF"
|
||||
202 PRINT"HIS DISLIKE OF THE"
|
||||
203 PRINT"POLITICAL SPOILS SYSTEM?"
|
||||
205 GOTO450
|
||||
210 PRINT"THIS PRESIDENT AQUIRED"
|
||||
211 PRINT"PEARL HARBOR BASE AND"
|
||||
212 PRINT"WAS A FORMER GOVERNOR "
|
||||
213 PRINT"OF THE ALASKA TERRITORY."
|
||||
215 GOTO450
|
||||
220 PRINT"WHICH PRESIDENT MARRIED"
|
||||
221 PRINT"WHILE IN THE WHITE"
|
||||
222 PRINT"HOUSE?"
|
||||
225 GOTO450
|
||||
230 PRINT"WHO WAS THE TWENTY-
|
||||
231 PRINT"THIRD PRESIDENT? HE HAD"
|
||||
232 PRINT"FEWER POPULAR VOTES "
|
||||
233 PRINT"THAN HIS OPPONENT."
|
||||
235 GOTO450
|
||||
240 PRINT"WHO WAS THE ONLY PRE-"
|
||||
241 PRINT"SIDENT TO BE ELECTED TO"
|
||||
242 PRINT"TWO NONCONSECUTIVE "
|
||||
244 PRINT"TERMS?"
|
||||
245 GOTO450
|
||||
250 PRINT"WHO WAS PRESIDENT"
|
||||
251 PRINT"DURING THE SPANISH-"
|
||||
252 PRINT"AMERICAN WAR?"
|
||||
255 GOTO450
|
||||
260 PRINT"WHICH PRESIDENT WON A"
|
||||
261 PRINT"NOBEL PEACE PRIZE FOR"
|
||||
262 PRINT"MEDIATING THE PEACE"
|
||||
263 PRINT"TREATY IN THE RUSSO-"
|
||||
264 PRINT"JAPANESE WAR?"
|
||||
265 GOTO450
|
||||
270 PRINT"WHO WAS PRESIDENT WHEN"
|
||||
271 PRINT"INCOME TAX WAS STARTED?"
|
||||
275 GOTO450
|
||||
280 PRINT"WHO WAS PRESIDENT DUR-"
|
||||
281 PRINT"ING THE FIRST WORLD "
|
||||
282 PRINT"WAR?"
|
||||
285 GOTO450
|
||||
290 PRINT"WHICH PRESIDENT WAS"
|
||||
291 PRINT"INVOLVED IN THE TEAPOT"
|
||||
292 PRINT"DOME SCANDAL?"
|
||||
295 GOTO450
|
||||
300 PRINT"WHICH PRESIDENT HAD THE MOTO 'KEEP COOL'?"
|
||||
305 GOTO450
|
||||
310 PRINT"WHO WAS PRESIDENT WHEN"
|
||||
311 PRINT"THE STOCK MARKET"
|
||||
312 PRINT"CRASHED IN THE 30'S?"
|
||||
315 GOTO450
|
||||
320 PRINT"WHO WAS THE ONLY PRE-"
|
||||
321 PRINT"SIDENT TO BE ELECTED"
|
||||
322 PRINT"MORE THAN TWICE?"
|
||||
325 GOTO450
|
||||
330 PRINT"WHO WAS THE PRESIDENT"
|
||||
331 PRINT"DURING THE KOREAN WAR?"
|
||||
335 GOTO450
|
||||
340 PRINT"WHICH PRESIDENT WAS A"
|
||||
341 PRINT"GENERAL IN WW II?"
|
||||
345 GOTO450
|
||||
350 PRINT"WHO WAS THE FIRST"
|
||||
351 PRINT"CATHOLIC PRESIDENT?"
|
||||
355 GOTO450
|
||||
360 PRINT"WHICH PRESIDENT HAD A"
|
||||
361 PRINT"'WAR ON POVERTY'?"
|
||||
365 GOTO450
|
||||
370 PRINT"WHO WAS PESIDENT WHEN"
|
||||
371 PRINT"MAN LANDED ON THE MOON?"
|
||||
375 GOTO450
|
||||
380 PRINT"WHICH PRESIDENT WAS"
|
||||
381 PRINT"ELECTED BY CONGRESS"
|
||||
382 PRINT"UNDER THE 25TH AMENDMENT?"
|
||||
385 GOTO450
|
||||
390 PRINT"WHICH PRESIDENT IS KNOWN FOR HIS SMILE?"
|
||||
395 GOTO450
|
||||
450 FORI=1TOR:READB$:NEXTI
|
||||
452 PRINT:PRINT:INPUT"ANS.";A$
|
||||
455 PRINT:PRINT:PRINTB$" IS"
|
||||
457 PRINT"THE CORRECT ANSWER."
|
||||
458 FORV=1TO3000:NEXT
|
||||
459 FORV=1TO20:PRINT:NEXT
|
||||
460 RESTORE:GOTO4
|
||||
1000 DATA"GEORGE WASHINGTON"
|
||||
2000 DATA"JOHN ADAMS"
|
||||
3000 DATA"THOMAS JEFFERSON"
|
||||
4000 DATA"JAMES MADISON"
|
||||
5000 DATA"JAMES MONROE"
|
||||
6000 DATA"JOHN QUINCY ADAMS"
|
||||
7000 DATA"ANDREW JACKSON"
|
||||
8000 DATA"MARTIN VAN BUREN"
|
||||
9000 DATA"WILLIAM H. HARRISON"
|
||||
10000 DATA"JOHN TYLER"
|
||||
11000 DATA"JAMES K. POLK"
|
||||
12000 DATA"ZACHARY TAYLOR"
|
||||
13000 DATA"MILLARD FILLMORE"
|
||||
14000 DATA"FRANKLIN PIERCE"
|
||||
15000 DATA"JAMES BUCHANAN"
|
||||
16000 DATA"ABRAHAM LINCOLN"
|
||||
17000 DATA"ANDREW JOHNSON"
|
||||
18000 DATA"ULYSSES S. GRANT"
|
||||
19000 DATA"RUTHERFORD B. HAYES"
|
||||
20000 DATA"JAMES A. GARFIELD"
|
||||
21000 DATA"CHESTER A. ARTHUR"
|
||||
22000 DATA"GROVER CLEVELAND"
|
||||
23000 DATA"BENJAMIN HARRISON"
|
||||
24000 DATA"GROVER CLEVELAND"
|
||||
25000 DATA"WILLIAM MC KINLEY"
|
||||
26000 DATA"THEODRORE ROOSEVELT"
|
||||
27000 DATA"WILLIAM TAFT"
|
||||
28000 DATA"WOODROW WILSON"
|
||||
29000 DATA"WARREN G. HARDING"
|
||||
30000 DATA"CALVIN COOLIDGE"
|
||||
31000 DATA"HERBERT C. HOOVER"
|
||||
32000 DATA"FRANKLIN D. ROOSEVELT"
|
||||
33000 DATA"HARRY S. TRUMAN"
|
||||
34000 DATA"DWIGHT D. EISENHOWER"
|
||||
35000 DATA"JOHN F. KENNEDY"
|
||||
36000 DATA"LYNDON B. JOHNSON"
|
||||
37000 DATA"RICHARD M. NIXON"
|
||||
38000 DATA"GERALD R. FORD"
|
||||
39000 DATA"JIMMY CARTER"
|
||||
40000 B=INT(R/10)+1
|
||||
40001 PRINT:PRINT:PRINT:PRINT
|
||||
40010 ON B GOTO40300,40390,40500,40600
|
||||
40300 ONRGOTO10,20,30,40,50,60,70,80,90,100
|
||||
40390 S=R-9
|
||||
40400 ONSGOTO100,110,120,130,140,150,160,170,180,190
|
||||
40500 S=R-19
|
||||
40550 ONSGOTO200,210,220,230,240,250,260,270,280,290
|
||||
40600 S=R-29
|
||||
40650 ONSGOTO300,310,320,330,340,350,360,370,380,390
|
||||
50000 PRINT:PRINT"DIRECTIONS":PRINT:PRINT
|
||||
50010 PRINT"TO START THE GAME TYPE"
|
||||
50011 PRINT"IN A RANDOM NUMBER AND"
|
||||
50012 PRINT"PUSH IN THE RETURN KEY."
|
||||
50014 PRINT"A QUESTION WILL THEN BE"
|
||||
50016 PRINT"TYPED BY THE COMPUTER."
|
||||
50018 PRINT"YOU SHOULD TYPE IN THE"
|
||||
50019 PRINT"ANSWER AND THEN PUSH"
|
||||
50020 PRINT"THE RETURN KEY."
|
||||
50040 PRINT:PRINT"IF YOU DO NOT KNOW THE"
|
||||
50050 PRINT"ANSWER TYPE IN A ? AND"
|
||||
50055 PRINT"THEN PUSH THE RETURN"
|
||||
50058 PRINT"KEY.":PRINT:PRINT
|
||||
50060 PRINT"WHEN YOU WANT TO STOP"
|
||||
50065 PRINT"JUST PUSH THE RETURN"
|
||||
50068 PRINT"KEY WITHOUT TYPING"
|
||||
50070 PRINT"ANYTHING.":PRINT:GOTO3
|
||||
60000 FOR I=1TOZ
|
||||
60005 IFZ=21 THEN60999
|
||||
60010 IF Q(I)=R THEN60100
|
||||
60020 NEXTI
|
||||
60050 Q(Z)=R
|
||||
60060 GOTO40000
|
||||
60100 Z=Z-1
|
||||
60110 GOTO4
|
||||
60999 PRINT:PRINT:PRINT
|
||||
61000 PRINT"YOU HAVE ANSWERED 20"
|
||||
61001 PRINT"QUESTIONS,IF YOU"
|
||||
61002 PRINT"WISH TO CONTINUE JUST"
|
||||
61003 PRINT"TYPE IN 'RUN' AFTER"
|
||||
61004 PRINT"THE OK THAT THE COM-"
|
||||
61005 PRINT"PUTER TYPES."
|
||||
Loading…
Reference in a new issue