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)

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Revision as of 00:04, 5 November 2020 by Luis46coco (talk | contribs) (→‎Links)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search
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 11/5/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:

Program

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

Notes

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

Screen captures

Links

See this article as it appeared in the magazine, page 14
Virtual disk with programs from Rainbow 08-1981: File:Rainbow 1981-09.dsk