Quizmaster

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