Quiz tool for learning. Enter 25 data statements for the topic or change topic to one you are or want to be an expert on.
Appears on
Source Code
1 FOR A=1 TO 60 STEP 10: BEEP .05,A: NEXT A: BORDER 5: PAPER 7: CLS 2 LET C=0: LET W=0: LET SC=0:: REM "QUIZMASTER" FROM TEACHING AND COMPUTERS,10/85 BY J. KERSCHNER, TRANSLATED TO TS2068 AND GREATLY EXPANDED FROM A DOZEN LINES OR SO 3 PRINT AT 7,9; PAPER 5; INK 0; FLASH 1;"QUIZMASTER!" 4 PRINT AT 10,9; PAPER 1; INK 5; FLASH 1;"QUIZMASTER!" 5 PRINT AT 13,9; PAPER 0; INK 7; FLASH 1;"QUIZMASTER!": PAUSE 180: CLS 6 POKE 23658,8: GO SUB 8000: CLS 8 DIM A$(25,100): DIM B$(25,31): DIM Y(25) 9 REM MENU 10 PRINT AT 1,12;"MENU";''''"1. LITERATURE","4. MUSIC";'''"2. MNEMONICS","5. HISTORY";'''"3. FOODS","6. MOVIES" 12 PRINT ''''" 25 QUESTIONS PER SUBJECT AREA ": INPUT '"CHOOSE BY NUMBER ";Q: IF Q<0 OR Q>6 THEN GO TO 12 13 IF Q<>1 AND Q<>2 AND Q<>6 THEN GO SUB 7000: GO TO 10 15 CLS : LET Q=Q*1000: RESTORE Q 20 FOR I=1 TO 25: READ A$(I),B$(I): NEXT I 30 FOR J=1 TO 25 35 LET X=INT (RND*25)+1 40 FOR Z=1 TO 25 50 IF X=Y(Z) THEN GO TO 35 55 NEXT Z 60 PRINT : PRINT A$(X) 68 LET D$=" " 70 INPUT C$: LET C$=C$+D$: LET C$=C$(1 TO 31) 72 IF C$=B$(X) THEN PRINT ; PAPER 5;"YOU'RE RIGHT!": LET Y(X)=X: PAUSE 180: GO TO 76 74 PRINT INK 9; PAPER 3;"SORRY! ";B$(X): LET SC=SC+1: PAUSE 180 76 NEXT J 78 CLS 80 PRINT PAPER 6;"OUT OF 25 QUESTIONS, YOU MISSED ";SC;''"YOUR GRADE IS ";100-(SC*4) 85 GO SUB 8020 90 GO TO 7 1000 DATA "IN WHAT BOOK WAS LONG JOHN SILVER A CHARACTER?","TREASURE ISLAND" 1005 DATA "WHICH DRAMATIST WROTE""MACBETH""?","WILLIAM SHAKESPEARE" 1010 DATA "WHICH IS THE COMMONEST METER IN ENGLISH POETRY?","IAMBIC PENTAMETER" 1015 DATA "WHO WAS JULIET'S LOVER?","ROMEO" 1020 DATA "FALSTAFF WAS FORSAKEN IN WHICH PLAY?","HENRY V" 1025 DATA "WHO WAS THE AUTHOR OF ""DUNE""?","FRANK HERBERT" 1030 DATA "CAMELOT WAS THE HOME OF WHAT KING?","ARTHUR" 1035 DATA "PROUST WAS AFFLICTED WITH WHAT DISEASE?","ASTHMA" 1040 DATA "WITH WHOM WAS LORD BYRON SAID TOHAVE HAD AN INCESTUOUS RELATION-SHIP?","HIS HALF-SISTER, AUGUSTA" 1045 DATA "WHO WROTE ""MADAME BOVARY""?","GUSTAVE FLAUBERT" 1050 DATA "THE TITLE OF STYRON'S STORY OF SLAVE REBELLION?","THE CONFESSIONS OF NAT TURNER" 1055 DATA "REAL NAME OF ISAAC DINESEN?","KAREN BLIXEN" 1060 DATA "AUTHOR OF ""WEST WITH THE NIGHT?","BERYL MARKHAM" 1065 DATA "POOR YORICK WAS A SKULL IN WHAT PLAY?","HAMLET" 1070 DATA "BANQUO WAS ""THE MAN WHO CAME TO DINNER"" IN?","MACBETH" 1075 DATA "THREAD WAS A THREAT IN?","THE DRAGONRIDERS OF PERN" 1080 DATA "AUTHOR OF ""ANCIENT EVENINGS""?","NORMAN MAILER" 1085 DATA "AUTHOR OF NARRATIVE POEM, ""ULYSSES""?","ALFRED TENNYSON" 1090 DATA "AUTHOR OF NOVEL,""ULYSSES""?","JAMES JOYCE" 1100 DATA "MAIN CHARACTER IN ""THE ILIAD""?","ULYSSES" 1110 DATA "CITY VANQUISHED BY WOODEN HORSE?","TROY" 1115 DATA "AUTHOR OF ""2001: SPACE ODYSSEY""?","ARTHUR CLARKE" 1120 DATA "CREATURE-CHARACTERS IN ""WATER- SHIP DOWN""?","RABBITS" 1125 DATA "SITE OF GREATEST EVIL IN THE HOBBIT STORIES?","MORDOR" 1130 DATA "NON DE PLUME OF SAMUEL CLEMENS?","MARK TWAIN" 2000 DATA "NO OPERATION","NOP" 2005 DATA "LOAD C REG WITH CONTENTS OF ADDR. IN HL","LD C,(HL)" 2010 DATA "HEX & DEC FOR RETURN TO BASIC","C9 & 201" 2015 DATA "LOAD A INTO ADDRESS IN BC","LD (BC),A" 2020 DATA "LOGICAL EXCLUSIVE OR","XOR" 2025 DATA "LOAD, INCREMENT, & REPEAT","LDIR" 2030 DATA "PUSH STACK ADDR. ONTO DE REG.","PUSH DE" 2035 DATA "EXCHANGE 2 BYTES TOP STACK WITH HL REG.","EX (SP),HL" 2040 DATA "NAME 2 16-BIT INDEX REGS.","IX AND IY" 2045 DATA "DECREMENT & JUMP IF NOT ZERO","DJNZ" 2050 DATA "JUMP TO MEMORY ADDR. HELD IN HL","JP (HL)" 2055 DATA "ADD WITH CARRY TO ACCUMULATOR","ADC A" 2060 DATA "RETURN FROM NON-MASKABLE INTER- RUPT","RETN" 2065 DATA "COMPARE","CP" 2070 DATA "ROTATE RIGHT CIRCULAR","RRC" 2075 DATA "RETURN FROM INTERRUPT","RETI" 2080 DATA "OUTPUT, DECREMENT,REPEAT","OTDR" 2085 DATA "COMPLEMENT CARRY FLAG","CCF" 2090 DATA "OUTPUT,INCREMENT,REPEAT","OTIR" 2095 DATA "ROTATE ACCUMULATOR LEFT THROUGH CARRY","RLA" 3000 DATA "ROTATE ACCUMULATOR RIGHT THROUGHCARRY","RRA" 3001 STOP 3005 DATA "SHIFT LEFT ARITHMETIC","SLA" 3010 DATA "SHIFT RIGHT LOGICAL","SRL" 3015 DATA "COMPARE, DECREMENT, REPEAT","CPDR" 3020 DATA "COMPLEMENT ACCUMULATOR","CPL" 3025 DATA "DISABLE INTERRUPTS","DI" 3030 DATA "NEGATE (TWOS COMPLEMENT) ACCUMU-LATOR","NEG" 4000 REM QUESTIONS ON MUSIC 4001 STOP 5000 REM QUESTIONS ON HISTORY 5001 STOP 6000 DATA "HENRY FONDA WAS A JOAD IN?","THE GRAPES OF WRATH" 6005 DATA "THE HIGHEST MOVIEDOM AWARDS?","THE ACADEMY AWARDS" 6010 DATA "WHO HAS ARTISTIC CONTROL OF ANY MOVIE?","THE DIRECTOR" 6015 DATA "WON MOST ACADEMY AWARDS?","KATHARINE HEPBURN" 6020 DATA "KNUTE ROCKNE WAS PLAYED BY?", "PAT O'BRIEN" 6025 DATA "ACTOR WHO WAS THE GIPPER","RONALD REAGAN" 6030 DATA "DISNEY'S LONG-HAIRED ANIMATION?","FANTASIA" 6035 DATA "MOST POPULAR MOVIE MOPPET EVER","SHIRLEY TEMPLE" 6040 DATA "MALE STAR WHO DIED OF AIDS IN 1986","ROCK HUDSON" 6045 DATA "TWICE MARRIED TO RICHARD BURTON?","ELIZABETH TAYLOR" 6050 DATA "DUBBED POOR MAN'S ELIZABETH TAYLOR?","JOAN COLLINS" 6055 DATA "BEST KNOWN WEREWOLF?","LON CHANEY, JR." 6060 DATA "BEST KNOWN TARZAN?","JOHNNY WEISMULLER" 6065 DATA "PREMIER WATER BALLERINA?","ESTHER WILLIAMS" 6070 DATA "PREMIER JAMES BOND?","SEAN CONNERY" 6075 DATA "MOST RECENT JAMES BOND?","TIMOTHY DALTON" 6080 DATA "OLDEST JAMES BOND?","ROGER MOORE" 6085 DATA "MOVIE STAR SHOPPING LANE?","RODEO DRIVE" 6090 DATA "STUDIO FAMOUS FOR MUSICALS?","MGM" 6095 DATA "MGM STANDS FOR?","METRO-GOLDWYN-MAYER" 6100 DATA "MOST SHOWN MOVIE ON TV?","THE WIZARD OF OZ" 6105 DATA "SILENT STAR ACCUSED OF MURDER?","FATTY ARBUCKLE" 6110 DATA "STAR-DIRECTOR OF ""CITIZEN KANE""?","ORSON WELLES" 6115 DATA "SWEDISH DIRECTOR MOST FAMOUS?","INGMAR BERGMAN" 6120 DATA "DANCER WITH LONGEST CAREER?","FRED ASTAIRE" 6125 DATA "FIRST LEAD IN ""A STAR IS BORN""?","JANET GAYNOR" 6130 DATA "RHETT BUTLER IN ""GONE WITH THE WIND""?","CLARK GABLE" 7000 CLS : PRINT "ENTER 25 DATA STATEMENTS FOR THETOPIC OR CHANGE TOPIC TO ONE YOUARE OR WANT TO BE AN EXPERT ON." 7001 FLASH 1: PRINT '"TO SEE HOW EFFECTIVE QUIZ FORMATIS, TAKE EITHER QUIZ #1 (LITERATURE) OR QUIZ #6 (MOVIES) TWICE AND COMPARE YOUR SCORES! EVEN #2 (MNEMONICS) SHOWS LEAP!" 7002 FLASH 0: PRINT ''"(1) THIS IS A TEACHING TOOL TO BUILD A KNOWLEDGE BASE IN SUB- SETS OF AN ACADEMIC COURSE";'"OR" 7004 PRINT "(2) THIS IS A SELF-REVIEW FOR ANY SUBJECT AREA WHETHER YOU AREA FORMAL STUDENT OR A HOBBYIST--IMPORTANT STUFF LIKE HAM RADIO LICENSE OR COMMERCIAL DRIVER'S LICENSE." 7006 GO SUB 9996 7007 CLS : PRINT '"YOU HAVE A POWERFUL TEMPLATE HERE FOR A SAT TEST COURSE FREE FOR THE ENTRY.OR GRE OR NTE OR MILLER'S ANALOGIES. JUST BUY THE PRACTICE TEXT AT ANY COLLEGEBOOKSTORE. YOU WILL NEED TO ALTER LINE 13 AS YOU COMPLETE TOPIC TESTS." 7008 PRINT '"CREATE AN APPROPRIATE MENU AT LINE 10." 7009 GO SUB 9996 7010 CLS : RETURN 8000 PRINT "GROUND RULES:";''"NOTE THAT FIRST AND LAST NAMES ARE EXPECTED FOR ANSWERS, NO INITIALS";''"OF COURSE, COMPUTERS ARE NOT TOLERANT OF INCORRECT SPELLING." 8001 PRINT "AND ARBITRARY ABOUT ANSWERS; BUT SO PATIENT!" 8005 GO SUB 9996 8006 CLS : RETURN 8020 INPUT "ANOTHER TOPIC? Y/N ";R$ : IF R$="" THEN GO TO 20 8025 IF R$="Y" THEN RETURN 8030 IF R$="N" THEN STOP 9000 REM PUBLIC DOMAIN PER JOAN KEALY--LEGIT. ORIGINAL APPLE BASIC NO MORE THAN KERNEL, OFFERED TO TEACHERS FOR CLASSRM USE. THIS SORT OF A PROGRAM PERMITS STUDENTS TO WRITE TEST AS CLASS- ROOM ASSIGNMENT ALSO. 9996 PRINT AT 21,7;"PRESS ANY KEY": PAUSE 0: RETURN 9997 STOP 9998 CLEAR : SAVE "QUIZMSTR" LINE 1