Home of the original IBM PC emulator for browsers.
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