Programmer 7500/MAX_PROGRAMMERS.iso/INFO/BASIC/EBASIC.ZIP/SECTEST.BAS

BASIC Source File | 1987-01-11 | 9.8 KB | 259 lines

REM        ********** SECTEST.BAS **********

REM    IS A TESTING PROGRAM WRITTEN IN CBASIC.  IT CREATES A FILE
REM    USING THE TESTEE'S LAST NAME TO RECORD THEIR GRADES AND
    ANSWERS.

REM    BY BOB GOODMAN

PRINT "THIS WILL BE A SHORT QUIZ INVOLVING CERTAIN BUSINESS"
PRINT "RELATED AREAS OF INTEREST.  PLEASE RELAX AND GIVE EACH"
PRINT "QUESTION SOME THOUGHT.  EACH QUESTION REQUIRES JUST"
PRINT "ONE ANSWER.  ONCE ENTERED, AN ANSWER CANNOT BE CHANGED."
PRINT "THE ANSWER TO EACH QUESTION WILL BE 'A', 'B', 'C', 'D' OR 'E'."
PRINT "USE THE 'DEL' KEY TO BACKSPACE FOR CORRECTIONS.  AFTER TYPING"
PRINT "AN ENTRY, PRESS THE 'RETURN' KEY TO ACTUALLY ENTER IT."
PRINT
INPUT "WHAT IS YOUR LAST NAME?";LN$
INPUT "YOUR FIRST NAME:";FI$
INPUT "ENTER TODAY'S DATE AS '12/03/77':";TD$
FILE LN$
PRINT #1;FI$,LN$,TD$
DIM RMI$(6)
PRINT USING "&, THIS PART TESTS YOUR ABILITY TO REMEMBER MAIN IDEAS";FI$
PRINT "AND SIGNIFICANT DETAILS OF WHAT YOU HAVE READ."
PRINT "PLEASE READ THE ARTICLE ON TEENAGERS.  WHEN YOU ARE"
PRINT "FINISHED, SET IT ASIDE AND ANSWER THE FOLLOWING"
PRINT "QUESTIONS WITHOUT REFERENCE TO THE ARTICLE."
PRINT
INPUT "PRESS 'RETURN' WHEN YOU ARE READY FOR THE QUESTIONS.";LINE Q$
PRINT
PRINT "THE 'YOUTH MARKET' IN OUR COUNTRY:"
PRINT
PRINT "(A) REFERS TO OTHERS BESIDES TEENAGERS"
PRINT "(B) REFERS TO ADULTS WHO ACT LIKE TEENAGERS"
PRINT "(C) IS CONFINED TO 'BEATLE-WORSHIPERS' AND 'POP-ART'"
PRINT "    DEVOTEES"
PRINT "(D) HAS COME INTO BEING WITHIN THE LAST FEW YEARS"
PRINT "(E) REFERS TO ANYONE WHO FEELS YOUNG."
PRINT
INPUT "ANSWER A,B,C,D OR E?";RMI$(1):PRINT
PRINT "THE PASSAGE STATES OR IMPLIES THAT THE YOUTH MARKET IS"
PRINT "MORE ESTABLISHED IN:"
PRINT
PRINT "(A) FRANCE THAN IT IS IN WEST GERMANY"
PRINT "(B) ITALY THAN IT IS IN FRANCE"
PRINT "(C) BELGIUM THAN IT IS IN SWEDEN"
PRINT "(D) ENGLAND THAN IT IS IN OUR COUNTRY"
PRINT "(E) OUR COUNTRY THAN IT IS IN ENGLAND."
PRINT
INPUT "ANSWER?";RMI$(2):PRINT
PRINT "WE MAY INFER THAT TEENAGERS:"
PRINT
PRINT "(A) DO NOT PRESENT A CLEAR PICTURE IN REGARD TO THEIR"
PRINT "    SPENDING HABITS"
PRINT "(B) ARE RESPONSIBLE FOR A LARGER PERCENTAGE OF CONSUMER"
PRINT "    SPENDING THAN THEY WERE FIVE YEARS AGO"
PRINT "(C) AND 'BEATNIKS' ARE SYNONYMOUS"
PRINT "(D) AND THEIR SPENDING HABITS HAVE LONG BEEN UNDER CLOSE"
PRINT "    SCRUTINY BY CONSUMER INVESTIGATORS"
PRINT "(E) WILL BUY PRACTICALLY ANYTHING THEY SEE."
PRINT
INPUT "ANSWER?";RMI$(3):PRINT
PRINT "WHICH STATEMENT IS UNTRUE?":PRINT
PRINT "(A) EUROPEAN TEENAGERS MIMIC THEIR AMERICAN PEERS--NOT"
PRINT "    VICE VERSA"
PRINT "(B) FLAVORED CARBONATED BEVERAGES ARE POPULAR AMONG"
PRINT "    TEENAGERS"
PRINT "(C) TEENAGERS IN THE UNITED STATES AS WELL AS IN EUROPE"
PRINT "    ARE 'CONSUMER CONFORMISTS'"
PRINT "(D) ENGLISH YOUTHS PREFER CLOSE-FITTING GARMENTS"
PRINT "(E) TEENAGERS TODAY ARE TOO SOPHISTICATED FOR HERO-WORSHIP."
PRINT
INPUT "ANSWER?";RMI$(4):PRINT
PRINT "THE AMERICAN AND EUROPEAN YOUTH MARKETS ARE ALIKE IN"
PRINT "REGARD TO:":PRINT
PRINT "(A) APPRECIATION OF THE SAME INDIVIDUAL ENTERTAINERS"
PRINT "(B) AMOUNT OF MONEY PER (TEENAGER) CAPITA SPENT ON CLOTHING"
PRINT "(C) OCCURRENCE OF FREQUENT CHANGES IN BUYING HABITS"
PRINT "(D) AMOUNT OF PARENTAL ALLOWANCES FOR CLOTHING"
PRINT "(E) PURCHASE OF LUXURIES.":PRINT
INPUT "ANSWER?";RMI$(5):PRINT
PRINT "IN EUROPE:":PRINT
PRINT "(A) TEENAGERS WHO WORK HAVE MORE LEISURE TIME THAN"
PRINT "    TEENAGERS WHO GO TO SCHOOL"
PRINT "(B) THE STAY-IN-SCHOOL PERIOD IS BECOMING SHORTER"
PRINT "(C) A TEENAGER MAY DROP OUT FROM SCHOOL WHEN HE WISHES"
PRINT "(D) THE EARNINGS OF TEENAGERS ARE STEADILY INCREASING"
PRINT "(E) TEENAGERS ARE GETTING MORE AND MORE SERIOUS."
PRINT
INPUT "ANSWER?";RMI$(6):PRINT
PRINT:PRINT:PRINT
DIM ANA$(10)
PRINT "IN THIS PART EACH OF THE TWO LEAD WORDS HAVE A CERTAIN"
PRINT "RELATIONSHIP TO EACH OTHER.  SELECT THE LETTERED PAIR"
PRINT "WHEREIN THE WORDS ARE RELATED IN THE SAME WAY AS THE"
PRINT "TWO LEAD WORDS ARE RELATED TO EACH OTHER.":PRINT:PRINT
PRINT "1. JAIL is to CRIME as:":PRINT
PRINT "(A) JUDGE is to CRIMINAL"
PRINT "(B) FREEDOM is to BIRD"
PRINT "(C) PRISON is to THIEF"
PRINT "(D) CEMETERY is to DEATH"
PRINT "(E) VICTIM is to INTRUDER"
PRINT
INPUT "ANSWER A,B,C,D OR E?";ANA$(1):PRINT
PRINT "2. DESCRIPTION is to CHARACTERIZATION as:"
PRINT
PRINT "(A) NOVEL is to NARRATION"
PRINT "(B) BIOGRAPHER is to AUTHOR"
PRINT "(C) ARTIST is to WRITER"
PRINT "(D) COMPOSITION is to ARGUMENTATION"
PRINT "(E) PICTURE is to PORTRAIT":PRINT
INPUT "ANSWER?";ANA$(2):PRINT
PRINT "3. MUMBLE is to TALK as:":PRINT
PRINT "(A) ORATE is to SPEAK"
PRINT "(B) SCRAWL is to WRITE"
PRINT "(C) BUMBLE is to BUZZ"
PRINT "(D) YELL is to SHOUT"
PRINT "(E) MUMBO is to JUMBO":PRINT
INPUT "ANSWER?";ANA$(3):PRINT
PRINT "4. HYBRID is to THOROUGHBRED as:":PRINT
PRINT "(A) STEEL is to IRON"
PRINT "(B) FRUIT is to TREE"
PRINT "(C) STALLION is to MARE"
PRINT "(D) HIGHBROW is to LOWBROW"
PRINT "(E) SUPERFICIALITY is to THOROUGHNESS":PRINT
INPUT "ANSWER?";ANA$(4):PRINT
PRINT "5. FRAGILE is to CRACK as:":PRINT
PRINT "(A) POTENT is to ENERVATE"
PRINT "(B) IRREDUCIBLE is to REDUCE"
PRINT "(C) FRANGIBLE is to STRENGTHEN"
PRINT "(D) ODOROUS is to SPRAY"
PRINT "(E) PLIABLE is to BEND":PRINT
INPUT "ANSWER?";ANA$(5):PRINT
PRINT "6. 3 is to 3'S as:":PRINT
PRINT "(A) THREE is to SIX"
PRINT "(B) TRIO is to QUARTET"
PRINT "(C) SINGULAR is to POSSESSIVE"
PRINT "(D) SALMON is to SALMON"
PRINT "(E) NUMBER is to LETTER":PRINT
INPUT "ANSWER?";ANA$(6):PRINT
PRINT "7. SONG is to SWAN as:":PRINT
PRINT "(A) TUNE is to GOOSE"
PRINT "(B) SPEECH is to ORATOR"
PRINT "(C) BIRD is to TWEET"
PRINT "(D) CALL is to TELEPHONE"
PRINT "(E) SANDWICH is to HAM"
PRINT:INPUT "ANSWER?";ANA$(7):PRINT
PRINT "8. MOLD is to DIE as:":PRINT
PRINT "(A) CAST is to STAMP"
PRINT "(B) FUNGUS is to DEATH"
PRINT "(C) FORM is to DESTROY"
PRINT "(D) HOLD is to DEFEAT"
PRINT "(E) IMPRISON is to EXECUTE":PRINT
INPUT "ANSWER?";ANA$(8):PRINT
PRINT "9. WOOD is to CHARCOAL as:":PRINT
PRINT "(A) BONFIRE is to MARSMALLOW"
PRINT "(B) GRILL is to OVEN"
PRINT "(C) COAL is to COKE"
PRINT "(D) FURNITURE is to PRTRAIT"
PRINT "(E) LIGHT is to HEAVY":PRINT
INPUT "ANSWER?";ANA$(9):PRINT
PRINT "10. DUNE is to SAND as:":PRINT
PRINT "(A) HILL is to BEACH"
PRINT "(B) WIND is to GRAIN"
PRINT "(C) SALT is to AIR"
PRINT "(D) GLAZIER is to GLASS"
PRINT "(E) GLACIER is to SNOW":PRINT
INPUT "ANSWER?";ANA$(10):PRINT:PRINT:PRINT
PRINT "THIS PART DEALS WITH REASONING ABILITY.  NO ACTUAL ANSWER"
PRINT "NEED BE COMPUTED BUT YOU MUST DECIDE WHETHER THE DATA GIVEN"
PRINT "IN THE TWO STATEMENTS IS SUFFICIENT FOR ANSWERING THE QUESTION."
PRINT USING "PRESS 'RETURN' & WHEN YOU'RE READY TO START";FI$
INPUT "";LINE Q$
30 PRINT "ANSWER (A) IF STATEMENT (1) ALONE IS SUFFICIENT BUT STATEMENT"
PRINT "   (2) ALONE IS NOT SUFFICIENT TO ANSWER THE QUESTION ASKED."
PRINT "ANSWER (B) IF (2) ALONE IS SUFFICIENT BUT (1) ALONE IS NOT."
PRINT "ANSWER (C) IF BOTH (1) AND (2) TOGETHER ARE SUFFICIENT BUT"
PRINT "   NEITHER ALONE IS SUFFICIENT."
PRINT "ANSWER (D) IF EACH STATEMENT BY ITSELF IS SUFFICIENT TO ANSWER."
PRINT "ANSWER (E) IF (1) AND (2) TOGETHER ARE NOT SUFFICIENT AND"
PRINT "   ADDITIONAL DATA ARE NEEDED."
IF FLAG=0 THEN 20
RETURN
20 PRINT "IF AT ANY TIME AFTER THE QUESTION IS PRESENTED, YOU NEED"
PRINT "TO SEE THESE INSTRUCTIONS AGAIN, TYPE 'HELP'."
PRINT
FLAG=-1
DIM REA$(5)
20.2 PRINT "A, B, AND C ARE THREE CONSECUTIVE EVEN WHOLE NUMBERS"
PRINT "   NOT NECESSARILY IN ORDER).  WHICH HAS THE GREATEST VALUE?"
PRINT "(1) A + B = C"
PRINT "(2) C IS A POSITIVE NUMBER."
INPUT "ANSWER A,B,C,D OR E?";REA$(1)
IF REA$(1)="HELP" THEN GOSUB 30:GOTO 20.2
PRINT:PRINT
30.2 PRINT "IF X AND Y ARE EQUAL WHOLE NUMBERS GREATER THAN ZERO,"
PRINT "WHAT IS THE VALUE OF Y?"
PRINT "(1) X + Y = 2"
PRINT "(2) Y - X = 4"
INPUT "ANSWER?";REA$(2)
IF REA$(2)="HELP" THEN GOSUB 30:GOTO 30.2
PRINT:PRINT
40.2 PRINT "IS JOHN A POLICEMAN?"
PRINT "(1) ALL OF SAM'S FRIENDS ARE POLICEMEN."
PRINT "(2) JOHN IS NOT SAM'S FRIEND."
INPUT "ANSWER?";REA$(3)
IF REA$(3)="HELP" THEN GOSUB 30:GOTO 40.2
PRINT:PRINT
50.2 PRINT "DOES JOHN HAVE A SISTER?"
PRINT "(1) JOHN'S ONLY BROTHER BILL HAS NO CHILDREN, AND YET"
PRINT "    JOHN HAS TWO NEPHEWS."
PRINT "(2) THE SISTERS OF JOHN'S WIFE HAVE NO CHILDEREN."
INPUT "ANSWER?";REA$(4)
IF REA$(4)="HELP" THEN GOSUB 30:GOTO 50.2
PRINT:PRINT
60.2 PRINT "WHAT MONTH IS IT?"
PRINT "(1) I DO NOT ATTEND SCHOOL IN JULY OR AUGUST."
PRINT "(2) THIS MONTH BEGINS WITH A 'J'."
INPUT "ANSWER?";REA$(5)
IF REA$(5)="HELP" THEN GOSUB 30:GOTO 60.2
PRINT:PRINT
DATA A,E,B,E,C,D,D,E,B,A,E,D,D,A,C,E,C,A,E,E,E
FOR I=1 TO 6
READ AN$
IF RMI$(I)=AN$ THEN RMI=RMI+1:TOT=TOT+1
NEXT I
RMI.SCORE=INT(RMI/6*100+.5)
PRINT "IN THE AREA OF REMEMBERING MAIN IDEAS..."
PRINT USING "YOU HAD # CORRECT OUT OF 6 QUESTIONS, OR ###%";\
   RMI,RMI.SCORE
PRINT
FOR I=1 TO 10
READ AN$
IF ANA$(I)=AN$ THEN ANA=ANA+1:TOT=TOT+1
NEXT I
ANA.SCORE=INT(ANA/10*100+.5)
PRINT "UNDER ANALOGY OR WORD RELATIONSHIPS,"
PRINT USING "YOU HAD ## CORRECT OUT OF 10 QUESTIONS, OR ###%";\
   ANA,ANA.SCORE:PRINT
FOR I=1 TO 5
READ AN$
IF REA$(I)=AN$ THEN REA=REA+1:TOT=TOT+1
NEXT I
REA.SCORE=INT(REA/5*100+.5)
PRINT "FOR REASONING ABILITY YOU HAD..."
PRINT USING "# CORRECT OUT OF 5 QUESTIONS, OR ###%";REA,REA.SCORE
PRINT:PRINT
TOT.SCORE=INT(TOT/21*100+.5)
PRINT USING "YOU HAD ## TOTAL CORRECT ANSWERS OUT OF 21";TOT
PRINT USING "FOR A TOTAL SCORE OF ###%.";TOT.SCORE
PRINT:PRINT
PRINT USING "THANK YOU & FOR YOUR COOPERATION.";FI$
PRINT #1;RMI,RMI.SCORE,ANA,ANA.SCORE,REA,REA.SCORE,TOT,TOT.SCORE
PRINT #1;RMI$(1),RMI$(2),RMI$(3),RMI$(4),RMI$(5),RMI$(6)
PRINT #1;ANA$(1),ANA$(2),ANA$(3),ANA$(4),ANA$(5),ANA$(6),\
         ANA$(7),ANA$(8),ANA$(8),ANA$(9),ANA$(10)
PRINT #1;REA$(1),REA$(2),REA$(3),REA$(4),REA$(5)
STOP