Initial commit (a clone of the jsmachines project as of v1.15.3)
This commit is contained in:
jeffpar
commit
a5e3e6a59d
714 changed files with 130602 additions and 0 deletions
100
apps/c1p/BASIC/OSI/SAMPLE3.BAS
Normal file
100
apps/c1p/BASIC/OSI/SAMPLE3.BAS
Normal file
|
|
@ -0,0 +1,100 @@
|
|||
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
|
||||
Loading…
Reference in a new issue