MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues. 2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

Make your kids like the quiz kids (Rainbow 1981-09): Difference between revisions

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
mNo edit summary
Line 15: Line 15:
  10 CLS:PRINT:INPUT"<ENTER> YOUR NAME";NA$
  10 CLS:PRINT:INPUT"<ENTER> YOUR NAME";NA$
  20 FOR ZZ=1 TO 1000:READ Q$:IF Q$="END" THEN 30 ELSE Y=Y+1:READ A$:NEXT
  20 FOR ZZ=1 TO 1000:READ Q$:IF Q$="END" THEN 30 ELSE Y=Y+1:READ A$:NEXT
  30 CLS:PRINT:PRINT"  HELLO, "NA$:PRINT:PRINT"  THIS IS A TEST PROGRAM.  IF  YOU ANSWER THESE QUESTIONS RIGHTYOU WILL GET ANOTHER ONE.":PRINT:PRINT"  IF YOU ANSWER WRONG, THE   CORRECT ANSWER WILL BE GIVEN.":PRINT
  30 CLS:PRINT:PRINT"  HELLO, "NA$:PRINT:PRINT"  THIS IS A TEST PROGRAM.  IF  YOU ANSWER THESE QUESTIONS RIGHTYOU WILL GET ANOTHER ONE.":PRINT:PRINT"  IF YOU ANSWER WRONG, THE     CORRECT ANSWER WILL BE GIVEN.":PRINT
  35 PRINT"  IF YOU SPELL THE ANSWER     WRONG, IT WILL BE WRONG."
  35 PRINT"  IF YOU SPELL THE ANSWER     WRONG, IT WILL BE WRONG."
  40 PRINT:INPUT " ARE YOU READY FOR THE TEST TOBEGIN";RR$
  40 PRINT:INPUT "   ARE YOU READY FOR THE TEST TOBEGIN";RR$
  42 IF LEFT(RR$,1)="Y" THEN 70
  42 IF LEFT$(RR$,1)="Y" THEN 70
  45 CLS:PRINT@236,"WHY NOT?":FOR X=1 TO 500:NEXT:GOTO30
  45 CLS:PRINT@236,"WHY NOT?":FOR X=1 TO 500:NEXT:GOTO30
  70 CLS:PRINT:PRINT:INPUT"  HOW MANY QUESTIONS DO YOU  WANT TO TRY",N
  70 CLS:PRINT:PRINT:INPUT"  HOW MANY QUESTIONS DO YOU  WANT TO TRY";N
  90 C=0
  90 C=0
  100 N1=0
  100 N1=0
  110 '
  110 '
  120 RESTORE
  120 RESTORE
  230 IF C=N THEN 530
  230 IF C=N THEN 550
  240 C=C+1
  240 C=C+1
  330 CLS:PRINT
  330 CLS:PRINT
Line 32: Line 32:
  380 PRINT:PRINT
  380 PRINT:PRINT
  400 X=RND(Y)
  400 X=RND(Y)
  410 IF S(X)=I THEN 400
  410 IF S(X)=1 THEN 400
  420 S(X)=I
  420 S(X)=1
  430 FOR Q=ITOX
  430 FOR Q=1TOX
  440 READ Q$,A$
  440 READ Q$,A$
  430 NEXT Q
  450 NEXT Q
  460 PRINTQ$
  460 PRINTQ$
  470 INPUT R$
  470 INPUT R$
  480 IF R$=A$ THEN PRINT "CORRECT!":Ni=Ni+1:PRINT@440,INPUT"  PRESS <ENTER> TO CONTINUE";AZ$.GOTO110
  480 IF R$=A$ THEN PRINT "CORRECT!":N1=N1+1:PRINT@448,"":INPUT"  PRESS <ENTER> TO CONTINUE";AZ$:GOTO110
  490 PRINT"  INCORRECT ANSWER":PRINT:PRINT" THE CORRECT ANSWER IS......"A$:PRINT@431,"";:INPUT"PRESS <ENTER> TO CONTINUE",AZ$:GOTO110
  490 PRINT"  INCORRECT ANSWER":PRINT:PRINT"   THE CORRECT ANSWER IS........"A$:PRINT@451,"";:INPUT"PRESS <ENTER> TO CONTINUE";AZ$:GOTO110
  550 CLS:PRINT:PRINT"WELL, "NA$"...":PRINT:PRINT"OUT OF"N" QUESTIONS, YOU ANSWERED"N1" RIGHT.".P=(N1/N)*100:PRINT:PRINTUSING" THAT'0 ### RIGNT";P 600'*** Q&A'S GO HERE ****
  550 CLS:PRINT:PRINT"WELL, "NA$"...":PRINT:PRINT"OUT OF"N" QUESTIONS, YOU ANSWERED"N1" RIGHT.":P=(N1/N)*100:PRINT:PRINTUSING"THAT'S ###% RIGHT";P
600'*** Q&A'S GO HERE ****
  601 DATA CAPITAL OF KENTUCKY,FRANKFORT,WHAT STATE IS FRANKFORT THE    CAPITAL OF,KENTUCKY
  601 DATA CAPITAL OF KENTUCKY,FRANKFORT,WHAT STATE IS FRANKFORT THE    CAPITAL OF,KENTUCKY
  602 DATA YELLOWNAMMER STATE,ALABAMA
  602 DATA YELLOWHAMMER STATE,ALABAMA
  603 DATA SPRINGFIELD IS THE CAPITAL OF,ILLINOIS 604 DATA THE OLD DOMINION STATE,VIRGINIA
  603 DATA SPRINGFIELD IS THE CAPITAL OF,ILLINOIS
604 DATA THE OLD DOMINION STATE,VIRGINIA
  605 DATA CAPITAL OF TEXAS,AUSTIN
  605 DATA CAPITAL OF TEXAS,AUSTIN
  606 DATA CREAT LAKE STATE,MICHIGAN
  606 DATA CREAT LAKE STATE,MICHIGAN
  607 DATA NOOSIER STATE,INDIANA
  607 DATA HOOSIER STATE,INDIANA
  699 DATA END
  699 DATA END
Note: It has some important defects, if there are more than 10 questions, it is necessary to use DIM for S(), it also has problems if more questions are asked than there are, it remains looking for a question not asked
==Links==
==Links==
[https://archive.org/details/rainbowmagazine-1981-09/page/n13 See this article as it appeared in the magazine, page 14]
[https://archive.org/details/rainbowmagazine-1981-09/page/n13 See this article as it appeared in the magazine, page 14]
[[Category:Games]]
[[Category:Games]]

Revision as of 02:43, 25 September 2020

WELCOME
Looking for CoCo help? If you are trying to do something with your old Color Computer, read this quick reference. Want to contribute to this wiki? Be sure to read this first. This CoCo wiki project was started on October 29, 2004. --OS-9 Al

See Recent Changes. | About this site. | Join the E-Mail List or Facebook Group. | Contact me with updates/questions.

This page was last updated on 09/25/2020. Total Pages: 728. Total Files: 992.


Home / Publications / Rainbow / Rainbow 1981 / Rainbow 1981-09 - Make your kids like the quiz kids (Rainbow 1981-09)


The "QUIZ" program listed below was written by FALSOFT for use in preparing schoolchildren for tests. Its primary aim was to make it easy to enter questions and answers. One of the main advantages of this program is that it automatically counts the number of data statements, thus eliminating the need to set any parameters. This is primarily true in line 400, which insures that the student cannot memorize the order of the answers, because the program selects the questions at random. It is important to remember that most questions can be asked two ways. Note line 601. The question there is "Capital of Kentucky?" and the answer is "Frankfort." But, in many cases, a teacher might ask the question "backwards,' or ask "What state is Frankfort the capital of?"

You can see how this situation is handled in line 601. We didn't do it for every line, simple because we're sure you will have your own sets of questions and answers. This does work and is fun for the kids. In fact, this program helped one youngster in Kentucky raise her grade in one course by two letters in six weeks! And, typing data statements was a lot easier than sitting down and drilling the student over and over. The student also has the advantage of deciding on a short or a long session, and there is a test "report card" at the end. If you want to check your student, just add PRINT#-2, statements in line 350 and you'll have a record of how the sessions went. The listing is below:

3 '***********************
4 '*         QUIZ        *
5 '*  ADAPTED FOR COLOR  *
6 '*       COMPUTER      *
7 '*      BY FALSOFT     *
10 CLS:PRINT:INPUT"<ENTER> YOUR NAME";NA$
20 FOR ZZ=1 TO 1000:READ Q$:IF Q$="END" THEN 30 ELSE Y=Y+1:READ A$:NEXT
30 CLS:PRINT:PRINT"   HELLO, "NA$:PRINT:PRINT"   THIS IS A TEST PROGRAM.  IF  YOU ANSWER THESE QUESTIONS RIGHTYOU WILL GET ANOTHER ONE.":PRINT:PRINT"   IF YOU ANSWER WRONG, THE     CORRECT ANSWER WILL BE GIVEN.":PRINT
35 PRINT"   IF YOU SPELL THE ANSWER      WRONG, IT WILL BE WRONG."
40 PRINT:INPUT "   ARE YOU READY FOR THE TEST TOBEGIN";RR$
42 IF LEFT$(RR$,1)="Y" THEN 70
45 CLS:PRINT@236,"WHY NOT?":FOR X=1 TO 500:NEXT:GOTO30
70 CLS:PRINT:PRINT:INPUT"   HOW MANY QUESTIONS DO YOU   WANT TO TRY";N
90 C=0
100 N1=0
110 '
120 RESTORE
230 IF C=N THEN 550
240 C=C+1
330 CLS:PRINT
360 PRINT"QUESTION #";C
370 PRINTSTRING$(12,"-")
380 PRINT:PRINT
400 X=RND(Y)
410 IF S(X)=1 THEN 400
420 S(X)=1
430 FOR Q=1TOX
440 READ Q$,A$
450 NEXT Q
460 PRINTQ$
470 INPUT R$
480 IF R$=A$ THEN PRINT "CORRECT!":N1=N1+1:PRINT@448,"":INPUT"  PRESS <ENTER> TO CONTINUE";AZ$:GOTO110	
490 PRINT"   INCORRECT ANSWER":PRINT:PRINT"   THE CORRECT ANSWER IS........"A$:PRINT@451,"";:INPUT"PRESS <ENTER> TO CONTINUE";AZ$:GOTO110
550 CLS:PRINT:PRINT"WELL, "NA$"...":PRINT:PRINT"OUT OF"N" QUESTIONS, YOU ANSWERED"N1" RIGHT.":P=(N1/N)*100:PRINT:PRINTUSING"THAT'S ###% RIGHT";P
600'*** Q&A'S GO HERE ****
601 DATA CAPITAL OF KENTUCKY,FRANKFORT,WHAT STATE IS FRANKFORT THE     CAPITAL OF,KENTUCKY	
602 DATA YELLOWHAMMER STATE,ALABAMA
603 DATA SPRINGFIELD IS THE CAPITAL OF,ILLINOIS
604 DATA THE OLD DOMINION STATE,VIRGINIA
605 DATA CAPITAL OF TEXAS,AUSTIN
606 DATA CREAT LAKE STATE,MICHIGAN
607 DATA HOOSIER STATE,INDIANA
699 DATA END

Note: It has some important defects, if there are more than 10 questions, it is necessary to use DIM for S(), it also has problems if more questions are asked than there are, it remains looking for a question not asked

Links

See this article as it appeared in the magazine, page 14