PCjs Machines

Home of the original IBM PC emulator for browsers.

Logo

Challenger 1P BASIC Programs

TRIGTUTOR.BAS

OSI Challenger 1P

Challenger 1P
Speed:
Stopped

Listing

 10 FORH=1TO35:PRINT:NEXT
 20 PRINT"TRIGNOMETRY DEALS":PRINT"PRIMARILY WITH SIX"
 22 PRINT"RATIOS CALLED":PRINT"TRIGNOMETRIC FUNCTIONS.":PRINT
 25 PRINT"THE FIRST OF THESE":PRINT"FUNCTIONS IS THE SINE.":PRINT
 30 PRINT"SINE IS USUALLY WRITTEN":PRINT"AS 'SIN' IN TRIGNOMETRY."
 32 FORH=1TO7:PRINT:NEXT:FORH=1TO13000:NEXT
 35 PRINT"THE SINE OF ANGLE 'A'":PRINT"IS THE OPPOSITE"
 36 PRINT"SIDE DIVIDED BY"
 37 PRINT"THE HYPOTENUSE."
 40 PRINT:PRINT"THE HYPOTENUSE IS THE"
 42 PRINT"THE LONGEST SIDE OF A":PRINT"RIGHT ANGLED TRIANGLE."
 44 PRINT:PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
 46 FORH=1TO10:PRINT:NEXT:GOSUB4000:GOSUB5000
 50 PRINT"THUS: SIN(A)=":PRINT"LENGHT OF SIDE 'y'"
 52 PRINT"DIVIDED BY 'r'.":PRINT:PRINT"OR SIN(A)=y/r.":PRINT
 54 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE"
 56 PRINT"VALUE OF SIN(A)?":PRINT:PRINT"SINCE SIN(A)=y/r OR"
 58 PRINT"SIN(A)=3/5=.6":PRINT:PRINT"HIT 'SPACE BAR' TO"
 60 PRINT"CONTINUE PROGRAM.":FORH=1TO9:PRINT:NEXT
 62 GOSUB4000:GOSUB5000:PRINT"THE NEXT TRIG. FUNCTION"
 90 PRINT"IS THE 'COS' OR COSINE.":PRINT
 92 PRINT"THE COS(A) EQUALS THE":PRINT"LENGTH OF THE ADJACENT"
 95 PRINT"SIDE DIVIDED BY THE":PRINT"LENGHT OF":PRINT"THE HYPOTENUSE."
 97 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM"
 99 FORH=1TO12:PRINT:NEXT:GOSUB4000:GOSUB5000
 102 PRINT"THUS THE 'COS' OF ANGLE":PRINT"A EQUALS x/r"
 105 PRINT"OR COS(A)=x/r.":PRINT:PRINT"IF x=4, y=3, AND r=5"
 108 PRINT"THEN WHAT IS THE COS(A)?":PRINT
 111 PRINT"SINCE COS(A)=x/r OR":PRINT"COS(A)=4/5=.8"
 114 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
 117 FORH=1TO11:PRINT:NEXT:GOSUB4000:GOSUB5000
 212 PRINT"THUS 'TAN' OF ANGLE A":PRINT"EQUALS THE LENGTH OF y"
 218 PRINT"DIVIDED BY THE LENGTH":PRINT"OF x.  OR: TAN(A)=y/x."
 220 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
 222 FORH=1TO14:PRINT:NEXT:GOSUB4000:GOSUB5000
 240 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE TAN(A)?"
 245 PRINT:PRINT"SINCE TAN(A)=y/x THUS":PRINT"TAN(A)=3/4=.75"
 248 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
 250 FORH=1TO11:PRINT:NEXT:GOSUB4000:GOSUB5000
 270 PRINT"NOW LET'S HAVE A SHORT":PRINT"QUIZ TO TEST YOUR"
 275 PRINT"KNOWLEDGE OF THE SIN,":PRINT"COS, AND TAN."
 280 PRINT:PRINT"PLEASE GIVE":PRINT"DECIMAL ANSWERS!":PRINT:PRINT
 285 PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
 290 FORH=1TO6:PRINT:NEXT:GOSUB5000
 295 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE COS(A)?"
 300 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
 305 IFA1<>.8THENPRINT"WRONG":PRINT"x/r=4/5=.8"
 308 IFA1=.8THENPRINT"RIGHT!"
 310 GOSUB6000
 315 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE SIN(A)?"
 320 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
 325 IFA1<>.6THENPRINT"WRONG":PRINT"y/r=3/5=.6"
 330 IFA1=.6THENPRINT"RIGHT!"
 334 GOSUB6000
 350 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE TAN(A)?"
 355 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
 360 IFA1<>.75THENPRINT"WRONG":PRINT"y/x=3/4=.75"
 365 IFA1=.75THENPRINT"RIGHT!"
 370 GOSUB6000
 400 PRINT"THIS NEXT SECTION IS":PRINT"A LITTLE TOUGHER.":PRINT
 410 PRINT"THE QUESTIONS WILL":PRINT"ASK YOU ABOUT THE"
 415 PRINT"SIN, COS, AND TAN OF":PRINT"ANGLE B: NOT ANGLE A!"
 420 PRINT:PRINT"HIT 'SPACE BAR' TO":PRINT"CONTINUE PROGRAM."
 425 FORH=1TO7:PRINT:NEXT:GOSUB5000
 430 FORH=1TO27:PRINT:NEXT:PRINT"REMEMBER:"
 435 PRINT"COS EQUALS ADJACENT SIDE":PRINT"DIVIDED BY HYPOTENUSE"
 440 PRINT:PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE COS(B)?"
 445 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
 450 IFA1<>.6THENPRINT"WRONG":PRINT"y/r=3/5=.6"
 455 IFA1=.6THENPRINT"RIGHT!"
 460 GOSUB6000
 490 PRINT"SIN EQUALS OPPOSITE SIDE":PRINT"DIVIDED BY HYPOTENUSE."
 500 PRINT:PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE SIN(B)?"
 510 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1
 520 IFA1<>.8THENPRINT"WRONG":PRINT"x/r=4/5=.8"
 530 IFA1=.8THENPRINT"RIGHT!"
 535 GOSUB6000
 550 PRINT"TAN EQUALS OPPOSITE SIDE":PRINT"DIVIDED BY THE"
 555 PRINT"ADJACENT SIDE.":PRINT
 560 PRINT"IF x=4, y=3, AND r=5":PRINT"THEN WHAT IS THE TAN(B)?"
 570 FORH=1TO15:PRINT:NEXT:GOSUB4000:INPUTA1$
 575 IFLEFT$(A1$,3)="1.3"THENPRINT"RIGHT!"
 580 IFLEFT$(A1$,3)<>"1.3"THENPRINT"WRONG":PRINT"x/y=4/3=1.33"
 600 GOSUB6000:PRINT"THIS IS THE END":PRINT"OF THE PROGRAM."
 610 PRINT:PRINT"DO YOU WANT TO":INPUT"RUN IT AGAIN";A1$
 620 IF LEFT$(A1$,1)="Y"THEN10
 630 END
 4000 FORH=0TO16:POKE54060+H,135:NEXT
 4010 FORH=0TO7:POKE54127-32*H,143:NEXT
 4020 FORH=0TO9:POKE54032-H*31,189:NEXT
 4030 FORH=0TO9:POKE54042-H*32,136:NEXT
 4040 POKE54063,207:POKE54128,45:POKE54129,89
 4050 POKE54094,65:POKE54011,43:POKE54012,88
 4060 POKE54036,120:POKE53876,114:POKE53881,121
 4070 POKE53936,43:POKE53937,89:POKE54028,45:POKE54029,88
 4080 POKE53755,66:POKE54041,210:RETURN
 5000 POKE530,1:POKE57088,1
 5100 IFPEEK(57088)=239THENFORH=1TO28:PRINT:NEXT:RETURN
 5200 GOTO5000
 6000 FORH=1TO6000:NEXT:FORH=1TO26:PRINT:NEXT:RETURN