home *** CD-ROM | disk | FTP | other *** search
- 1 GOTO910
- 2 REM ** ML STOP KEY DISABLE **
- 3 PRINT"x[169]=[133][144][234][169][133][145][234]X` [234][255][169][255][133][155]LX[228]x[169]U[133][144][234][169][228][133][145][234]X`
- 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
- 5 [153]"hhhhhhh`1"
- 6 [143] ** 4 - POP ML SUBROUTINE **
- 10 [143]---GENERAL INPUT ROUTINE----
- 15 :
- 25 :
- 30 :
- 35 [143]-----INPUT SECTION-----
- 40 : UR$[178]"":UI$[178]""
- 42 : [139] UL[178]0[167]UL[178]80
- 45 [153]" CMDCMD";:[151]UC,0
- 50 : [161]UI$:[139]UI$[178]""[167]50
- 55 : [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
- 60 : [139]UI$[178][199](20)[167]105
- 62 : [139] [195](UR$)[178][177]UL [167]50
- 65 : [141]120:[143] CHECK FOR VALID CHARACTER
- 70 : UR$[178]UR$[170]UI$
- 75 : [153]UI$;
- 80 : [137]50
- 85 [143]-----CHECK FOR HELP REQUEST-----
- 90 : [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
- 95 : [139]UF[178]1[167][141]240
- 100 : UF[178]0:[153]:[142]
- 102 [143]-----CHECK DELETE-----
- 105 : [139][195](UR$)[179]1[167]50
- 110 : UR$[178][200](UR$,[195](UR$)[171]1)
- 115 : [153]"CMD CMDCMD";:[137]50
- 120 [143]-----CHECK FOR VALID CHARACTERS-----
- 125 : [139][195](US$)[178]0[167]150
- 130 : [129]US[178]1[164][195](US$)
- 135 : [139]UI$[178][202](US$,US,1)[167][142]
- 140 : [130]
- 145 : UI$[178]"":[142]
- 150 [143]-----STANDARD INPUT-----
- 152 : [139][198](UI$)[178]46[167] [142]
- 155 : [139]UI$[178][199](32)[167] [142]
- 160 : [139][198](UI$)[179]48 [176] [198](UI$)[177]57[167]170
- 165 : [142]
- 170 : [139][198](UI$)[179]65 [176] [198](UI$)[177]90[167]180
- 175 : [142]
- 180 : [139][198](UI$)[179]193 [176] [198](UI$)[177]218[167]UI$[178]"":[142]
- 185 : [139][194](UT)[178]12[176][194](UT)[178]21[167]UI$[178][199]([198](UI$)[171]128):[142]
- 187 : [142]
- 190 : UI$[178]"":[142]
- 195 : UF[178]1:[143]-----HELP ROUTINE EXIT-----
- 197 : [141]250
- 200 : [141]245
- 205 : [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
- 210 : UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
- 215 : UZ[178]1:UV%[178][194](UT)
- 216 : [137]300
- 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
- 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
- 219 [153]"LOAD";
- 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
- 225 : [151]UQ,UQ%(UQ[171]UB):[130]
- 230 : [151]U1,U1%
- 232 : [151]U2,U2%
- 233 : [151]U4,U4%
- 234 : [151]U3,U3%[171]1
- 235 : [137]35
- 240 : UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
- 245 : [153][200](UD$,24);" HELP COMING WAIT ":[142]
- 250 : U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
- 251 UJ$[178]US$:UJ[178]UL
- 252 : UJ$[178]US$:UK$[178]UG$:UJ[178]UP:UK[178]UL
- 255 : [142]
- 300 [143]-----MENU-----
- 301 :
- 302 : [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
- 303 :
- 305 : [153]"LOAD MENU"
- 310 : [153]" --------------------------------------"
- 315 : [153]" 1. STATES AND CAPITALS QUIZ"
- 320 : [153]" 2. STUDENT INSTRUCTIONS"
- 325 : [153]" 3. TEACHER INSTRUCTIONS"
- 335 : [153]" 4. QUIT"
- 340 : [153]" --------------------------------------"
- 345 : [153]" PRESS A NUMBER KEY (1-4) ";
- 350 : UL[178]1:US$[178]"1234":[141]35:[143]---INPUT ROUTINE---
- 351 : [139][195](UR$)[177]1[167]300
- 352 : US$[178]""
- 355 : [145][197](UR$)[141]1000,400,500,396
- 360 : [137]300
- 395 [143]-----RE-ENABLE STOP KEY AND END-----
- 396 : [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
- 397 : [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
- 398 : [153]"CONTLOAD":[128]
- 399 : [141]875:[142]
- 400 [143]-----STUDENT INSTRUCTIONS-----
- 405 : [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
- 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST"
- 411 [141]1020:[141]850
- 412 : [153]" (null)EMEMBER TO HIT <RETURN> AFTER"
- 414 : [153]" TYPING YOUR ANSWER. (null)HIS TELLS"
- 416 : [153]" THE COMPUTER TO ACCEPT WHAT YOU"
- 418 : [153]" HAVE TYPED."
- 420 : [153]" (null)YPE <H> AT ANY TIME TO RETURN"
- 422 : [153]" TO THE MENU FOR HELP. (null)OU WILL"
- 424 : [153]" BE RETURNED TO THE PLACE IN THE"
- 426 : [153]" PROGRAM WHERE YOU LEFT OFF AS"
- 428 : [153]" SOON AS THE OPTION FROM THE MENU"
- 430 : [153]" IS COMPLETE."
- 485 : [141]835
- 490 : [139]UZ[178]1[167][158]UP%:[137]217
- 499 : [142]
- 500 [143]-----TEACHER INSTRUCTIONS-----
- 501 : [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
- 502 : UP[178]0:UG$[178]"(null)EACHER RIGHT$NST.":[141]850
- 503 : [153]" (null)O THE BEST OF OUR KNOWLEDGE,"
- 504 : [153]" THIS PROGRAM IS IN THE PUBLIC"
- 505 : [153]" DOMAIN. RIGHT$F THIS IS NOT THE CASE"
- 506 : [153]" PLEASE CONTACT:"
- 507 : [153]" LENOMMODORE PEEKUSINESS (null)ACHINES"
- 508 : [153]" 3370 (null)HARMACY ATNVE.
- 509 : PRINT" [193]GINCOURT, [207]NTARIO"
- 510 : PRINT" [195]ANADA [205]1[215] 2[203]4"
- 511 : PRINT" (416) 499-4292"
- 512 UP=1:GOSUB 835:GOSUB 850:
- 513 PRINT" [208]ROGRAM [206]AME: [211]TATES & CAPITALS
- 514 [153]" (null)RITTEN PEEKY : (null)NKNOWN
- 515 PRINT" [213]PGRADED [194]Y : [212]OBY [215]ALKER"
- 516 PRINT" [212]HIS PROGRAM WILL RUN ON ANY
- 519 [153]" (null)VAL(null) 64 LEN(null)(null)(null)(null)(null)VAL(null)
- 520 PRINT" [195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210]
- 580 : [141]835:[141]850:[141]10000
- 590 : [139]UZ[178]1[167][158]UP%:[137]217
- 599 : [142]
- 600 [143]-----PROGRAM MODIFICATION INST-----
- 601 : [153]"LOAD":[151]UT,UL%
- 605 : UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850
- 660 : [141]835
- 690 : [139]UZ[178]1[167][158]UP%:[137]217
- 699 : [142]
- 700 [143]-----TO USE 8032 LOAD CBM4032-----
- 710 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032
- 720 PRINT" LOAD THE 'CBM 4032' PROGRAM"
- 730 : SYSUU+71
- 740 : END
- 800 REM ** T I T L E P A G E **
- 802 PRINT"[147]";:POKEUT,UU%:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6
- 804 FORI=1TO38:PRINT"[166][146]";:NEXT
- 806 FORI=1TO22:PRINT"[157][166][146]";:NEXT
- 808 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
- 810 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
- 812 PRINT"[169] [146]
- 814 [153]" WAIT WAITSTEP
- 816 PRINT" [146] [163][223]
- 818 [153]"(null) WAIT
- 820 PRINT"C O M M O D O R E
- 822 [153]"EDUCATIONAL
- 824 PRINT"SOFTWARE
- 826 [143] ** COMMODORE LOGO **
- 827 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT":I[178]0
- 828 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]828
- 830 : T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178]0
- 832 : [137]300
- 835 [143]-----SPACE BAR PRESS-----
- 840 : [153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
- 844 : [161]UI$:[139]UI$[179][177]" "[167]844
- 846 : [142]
- 850 [143]-----PAGE DESIGN ROUTINE-----
- 852 : UP[178]UP[170]1
- 855 : [153]"LOAD"[200](UT$[170]UP$,21);[200](UG$[170]UP$,14);UP
- 860 : [153]" --------------------------------------"
- 865 : [153][200](UD$,24);[200](UP$,6);"HELP - PRESS H <RETURN>"
- 870 : [153]"":[142]
- 875 [143]-----PLEASE WAIT REMARK-----
- 880 : [153][200](UD$,24);" ONE MOMENT PLEASE... "
- 885 : [142]
- 900 [143]-----SET UP VARIABLES-----
- 901 : UX$[178]"H":[134]UQ%(1000):UB[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UU[178]1024
- 902 : UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1146:UM[178]32768:[151]50003,0
- 903 [139][194](50003)[178]0[167]UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048
- 904 [139][194](50003)[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024
- 905 : UD$[178]""
- 906 : UP$[178]" "
- 907 : UT$[178]" (null)TATES & LENAPITALSCLOSE":[143] PLACE PROGRAM TITLE HERE!!!!!!!!!!!***
- 908 : [142]
- 910 [143]-----SET VARIABLES-----
- 911 MX[178]51:[134]A(MX),B(4),C$(MX),S$(MX)
- 915 : [141]900
- 917 :
- 920 [143]-----CHECK FOR 8032-----
- 925 : [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
- 930 : [139][194](UB[170]40)[179][177]96[167][141]700
- 931 [143]-----MEMORY CHECK-----
- 932 : [139] [184](0)[177]2000[167]937
- 933 : [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
- 934 : [153]"MEMORY TO RUN THIS PROGRAM !"
- 935 : [158]UU[170]71
- 936 : [128]
- 937 : [153]"LOAD":[139][194](50003)[178]0[167]962
- 940 [143]-----BASIC 2.0 OR 4.0 OR C-64 SETUP-----
- 941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145
- 942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133
- 943 [151]1104,145:[151]1105,234:[151]1082,234
- 945 : [139][194](50003)[179][177]160[167]955
- 950 : [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965
- 955 : [139][194](50003)[179][177]1[167]990
- 960 : [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965
- 962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21
- 963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141
- 964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3
- 965 : [158]UU[170]48:[143] DISABLE STOP KEY
- 970 : [141]800:[143] TITLE
- 980 : [137]300:[143] MENU
- 990 : [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128]
- 1000 : [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143]-----PROGRAM STARTS HERE-----
- 1001 [153]"LOAD";:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
- 1010 [137]1120
- 1020 [153]"LOAD":[151]UT,UL%:UP[178]0:[141]850:[153]" (null)TATES AND CAPITALS"
- 1030 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( ":[137]1140
- 1120 [153]"LOAD":[141]875:[140]:[129] I[178]1[164]MX:[135] S$(I),C$(I)
- 1121 S$(I)[178][199]([198]([202](S$(I),1,1))[170]128)[170][202](S$(I),2)
- 1122 C$(I)[178][199]([198]([202](C$(I),1,1))[170]128)[170][202](C$(I),2):[130]
- 1130 [129] I[178]1[164]MX:A(I)[178]0:[130]I:G[178]0:N[178]0:ZZ[178][171]1
- 1135 [137]1169
- 1140 [153]" (null)HIS IS AN EDUCATIONAL QUIZ WHICH"
- 1150 [153]" TESTS YOUR KNOWLEDGE OF THE PROPER"
- 1160 [153]" STATES AND CAPITALS."
- 1161 [153]" RIGHT$T WILL GIVE YOU EITHER MULTIPLE"
- 1162 [153]" CHOICE OR FILL-IN THE BLANKS."
- 1163 [153]" ASCOR FILL-IN QUESTIONS SPELL THE"
- 1164 [153]" ANSWER EXACTLY AND USE (null)T.WAIT AS AN"
- 1165 [153]" ABBREVIATION FOR (null)AINT.":[141]835:[142]
- 1169 UG$[178]"(null)TUDENT QUIZ
- 1170 PRINT"[147]":POKEUT,UL%:UP=0:GOSUB850:PRINT" [211]ELECT THE TYPE OF QUIZ:"
- 1180 PRINT" 1 - [205]ULTIPLE CHOICE QUESTIONS."
- 1190 PRINT" 2 - [198]ILL-IN THE BLANKS."
- 1195 PRINT" [215]HAT IS YOUR CHOICE? ";
- 1200 US$="H12":UL=1:GOSUB35
- 1210 IFUR$="2" THEN 1260
- 1250 X=1:GOTO 1300
- 1260 REM
- 1290 X=2
- 1300 GOSUB850:PRINT" [215]OULD YOU LIKE A QUIZ ABOUT"
- 1310 PRINT" 1 - [211]TATES"
- 1320 PRINT" 2 - [195]APITALS"
- 1330 US$="12H":PRINT" [215]HAT IS YOUR CHOICE? ";:GOSUB35
- 1340 Y=2:IFUR$="2" THEN Y=1:GOTO 1360
- 1360 REM PICK A STATE
- 1370 FOR I=1TO10:R=INT(RND(1)*MX)+1:IF A(R)<>2 THEN 1420
- 1380 NEXTI
- 1390 REM DON'T WASTE TIME PICKING ONE
- 1400 FOR R=1TOMX:IF A(R)<>2 THEN 1420
- 1410 NEXTR:GOTO1920
- 1420 ZZ=ZZ+1:RP=0:IF A(R)=1 THEN RP=1
- 1425 IFZZ>49THENGOSUB2030:GOTO1970
- 1430 IF X=1 THEN 1550
- 1440 REM ASK FOR FILL-IN ANSWERS
- 1450 GOSUB 2000:IF Y=2 THEN 1480
- 1460 A$=C$(R)
- 1470 GOSUB12000:PRINT" [212]HE CAPITAL OF "S$(R);" IS"
- 1471 GOTO1481
- 1480 GOSUB12000:A$=S$(R):PRINT" "C$(R);" IS CAPITAL OF"
- 1481 PRINT:PRINT:PRINT:PRINT:PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
- 1490 PRINT"";:US$="":UL=20:GOSUB35:Z$=UR$
- 1530 IF Z$=A$ THEN GOTO 1800
- 1540 GOTO 1790
- 1550 REM ASK FOR MULTIPLE CHOICE
- 1560 REM THE VALUE OF C IS THE ANSWER
- 1570 C=INT(RND(1)*4)+1
- 1580 REM PICK 4 STATES FOR THE CHOICES
- 1590 FORI=1TO4:B(I)=INT(RND(1)*MX)+1:NEXTI
- 1600 B(C)=R
- 1610 REM MAKE SURE NONE ARE THE SAME
- 1620 IF B(1)=B(2) OR B(1)=B(3) OR B(1)=B(4) THEN 1590
- 1630 IF B(2)=B(3) OR B(2)=B(4) OR B(3)=B(4) THEN 1590
- 1640 GOSUB 2000:IF Y=2 THEN 1690
- 1650 REM PRINT CAPITAL CHOICES
- 1660 GOSUB12000:PRINT" [215]HAT IS THE CAPITAL OF ";S$(R);"?":A$=C$(R)
- 1670 PRINT" (A) ";C$(B(1)):PRINT""TAB(7);"(B) ";C$(B(2))
- 1680 PRINT""TAB(7);"(C) "C$(B(3)):PRINT""TAB(7);"(D) "C$(B(4)):GOTO 1730
- 1690 REM PRINT STATE CHOICES
- 1700 GOSUB12000:PRINT" "C$(R);" IS THE CAPITAL OF":A$=S$(R)
- 1710 PRINT""TAB(7);"(A) ";S$(B(1)):PRINT"" TAB(7);"(B) ";S$(B(2))
- 1720 PRINT"";TAB(7)"(C) ";S$(B(3)):PRINT""TAB(7);"(D) ";S$(B(4))
- 1730 US$="ABCDH":PRINT" [215]HAT IS THE ANSWER? ";:GOSUB35
- 1770 Z=ASC(UR$)-ASC("A")+1
- 1780 IF Z=C THEN 1800
- 1790 A(R)=1:PRINT" [215]RONG, IT IS ";A$;".":GOTO 1820
- 1800 A(R)=2:N=N+1
- 1810 PRINT" [210]IGHT!"
- 1820 GOSUB835:G=G+1
- 1830 IF N<MX THEN 1360
- 1840 GOTO 1920
- 1900 PRINT" [201] WILL REPEAT MY QUESTION.":RP=1
- 1910 ON X GOTO 1640,1450
- 1930 PRINT"[147] [215]OULD YOU LIKE TO TRY AGAIN(Y/N)? ";
- 1940 US$="YN":GOSUB35
- 1950 IFUR$="Y" THEN GOTO 1130
- 1970 GOSUB850:PRINT" [212]HANK YOU FOR PLAYING"
- 1980 PRINT" [211]TATES AND [195]APITALS!!!!"
- 1990 GOSUB835:RETURN
- 2000 REM CHECK FOR REPEAT
- 2010 REM
- 2020 RETURN
- 2030 REM PRINT SCORE
- 2040 GOSUB850:IF N=0 OR G=0 THEN P=0: GOTO 2060
- 2050 P=INT(N*2+.5)
- 2060 PRINT" [217]OUR SCORE IS";P;"%."
- 2070 PRINT" [217]OU HAVE";N;"RIGHT IN";G;"TRIES"
- 2075 GOSUB835
- 2080 RETURN
- 2090 GOSUB850
- 2100 PRINT" [217]OU HAVE DONE ALL THE QUESTIONS."
- 2240 REM ***DATA***
- 2250 DATAALABAMA,MONTGOMERY,ALASKA,JUNEAU,ARIZONA,PHOENIX,ARKANSAS,"LITTLE [210]OCK"
- 2260 DATACALIFORNIA,SACRAMENTO,COLORADO,DENVER,CONNECTICUT,HARTFORD,DELAWARE
- 2270 DATADOVER,"DIST. OF [195]OLUM.",WASHINGTON,FLORIDA,TALLAHASSEE,GEORGIA
- 2280 DATAATLANTA,HAWAII,HONOLULU,IDAHO,BOISE,ILLINOIS,SPRINGFIELD,INDIANA
- 2290 DATAINDIANAPOLIS,IOWA,"DES [205]OINES",KANSAS,TOPEKA,KENTUCKY,FRANKFORT
- 2300 DATALOUISIANA,"BATON [210]OUGE",MAINE,AUGUSTA,MARYLAND,ANNAPOLIS,MASSACHUSETTS
- 2310 DATABOSTON,MICHIGAN,LANSING,MINNESOTA,"ST. [208]AUL",MISSISSIPPI,JACKSON
- 2320 DATAMISSOURI,"JEFFERSON [195]ITY",MONTANA,HELENA,NEBRASKA,LINCOLN,NEVADA
- 2330 DATA"CARSON [195]ITY","NEW [200]AMPSHIRE",CONCORD,"NEW [202]ERSEY",TRENTON,"NEW [205]EXICO"
- 2340 DATA"SANTA [198]E","NEW [217]ORK",ALBANY,"NORTH [195]AROLINA",RALEIGH
- 2350 DATA"NORTH [196]AKOTA",BISMARCK,OHIO,COLUMBUS
- 2360 DATAOKLAHOMA,"OKLAHOMA [195]ITY",OREGON,SALEM,PENNSYLVANIA,HARRISBURG
- 2370 DATA"RHODE [201]SLAND",PROVIDENCE,"SOUTH [195]AROLINA",COLUMBIA,"SOUTH [196]AKOTA"
- 2380 DATAPIERRE,TENNESSEE,NASHVILLE,TEXAS,AUSTIN,UTAH,"SALT [204]AKE [195]ITY",VERMONT
- 2390 DATAMONTPELIER,VIRGINIA,RICHMOND,WASHINGTON,OLYMPIA,"WEST [214]IRGINIA"
- 2400 DATACHARLESTON,WISCONSIN,MADISON,WYOMING,CHEYENNE
- 10000 REM MORE INSTRUCTIONS
- 10010 PRINT" [212]HIS PROGRAM QUIZZES THE STUDENT"
- 10020 PRINT" ON HIS KNOWLEDGE OF THE CAPITALS"
- 10030 PRINT" AND STATES OF THE [213].[211]. [201]T WILL"
- 10040 PRINT" PRODUCE FIFTY RANDOM QUESTIONS."
- 10060 PRINT" [212]HESE QUESTIONS ARE EITHER"
- 10070 PRINT" MULTIPLE CHOICE OR FILL IN THE"
- 10080 PRINT" BLANK.":GOSUB835:RETURN
- 12000 GOSUB850:PRINT" [209]UESTION";ZZ+1,"[195]ORRECT ANSWERS";N:PRINT"":RETURN
-