home *** CD-ROM | disk | FTP | other *** search
- 10 PRINT"[147]"
- 20 PRINT" RIGHT TRIANGLES"
- 30 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
- 40 PRINT" [206][165]"
- 50 PRINT" [206]A[165]"
- 60 PRINT" [206] [165]"
- 70 PRINT" [206] [165]"
- 80 PRINT" [206] [165]"
- 90 PRINT" C [206] [165]B1"
- 100 PRINT" [206] [165]"
- 110 PRINT" [206] [165]"
- 120 PRINT" [206] [165]"
- 130 PRINT" [206] [165]"
- 140 PRINT" [206]B 90[165]"
- 150 PRINT" [163][163][163][163][163][163][163][163][163][163][163]
- 160 [153]" A1"
- 170 [153]" WOULD YOU LIKE TO USE RWAITADIANS"
- 180 [153]" OR DWAITEGREES?"
- 190 [161]D$
- 200 [139]D$[178]"R"[167]300
- 210 [139]D$[179][177]"D"[167]190
- 211 [153]"ONON "
- 215 [133]" ENTER DEGREES OF ANGLE A ";A
- 217 [133]" ENTER DEGREES OF ANGLE B ";B
- 219 A[178](A[172][255])[173]180:B[178](B[172][255])[173]180:[137]470
- 300 [153]"LOAD":[153]" RIGHT TRIANGLES"
- 310 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
- 320 [153]" (null)FN"
- 330 [153]" (null)AFN"
- 340 [153]" (null) FN"
- 350 [153]" (null) FN"
- 360 [153]" (null) FN"
- 370 [153]" C (null) FNB1"
- 380 [153]" (null) FN"
- 390 [153]" (null) FN"
- 400 [153]" (null) (null) FN"
- 410 [153]" (null) LEN FN"
- 420 [153]" (null)B 2 FN"
- 430 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
- 440 PRINT" A1"
- 450 INPUT" ENTER RADIANS OF ANGLE A ";A
- 460 INPUT" ENTER RADIANS OF ANGLE B ";B
- 470 INPUT" ENTER LENGTH OF SIDE A1 ";A1
- 480 INPUT" ENTER LENGTH OF SIDE B1 ";B1
- 485 INPUT" ENTER LENGTH OF SIDE C ";C
- 486 IF(A+B)>((null)/2)THENPRINT" THIS IS NOT A TRAINGLE":GOTO8800
- 490 IFC<>0ANDB<>0THEN1000
- 500 IFC<>0ANDA<>0THEN2000
- 510 IFB<>0ANDB1<>0THEN3000
- 520 IFB<>0ANDA1<>0THEN4000
- 530 IFA<>0ANDA1<>0THEN5000
- 540 IFA<>0ANDB1<>0THEN6000
- 550 IFA1<>0ANDB1<>0THEN6100
- 560 IFA1<>0ANDC<>0THEN6300
- 570 IFB1<>0ANDC<>0THEN6400
- 580 IFA1=0ANDB1=0ANDC=0THENA1=1:GOTO490
- 1000 A1=COS(B)*C
- 1010 B1=SIN(B)*C
- 1015 IFD$="R"THENA=((null)/2)-B:GOTO6410
- 1020 B=(180*B)/(null):A=90-B:GOTO6410
- 2000 B1=COS(A)*C
- 2010 A1=SIN(A)*C
- 2015 IFD$="R"THENB=((null)/2)-A:GOTO6410
- 2020 A=(180*A)/(null):B=90-A:GOTO6410
- 3000 A1=TAN(B)/B1
- 3010 C=SIN(B)/B1
- 3015 IFD$="R"THENA=((null)/2)-B:GOTO6410
- 3020 A=(180*A)/(null):B=90-A:GOTO6410
- 4000 C=A1/(COS(B))
- 4010 B1=TAN(B)*A1
- 4015 IFD$="R"THENA=((null)/2)-B:GOTO6410
- 4020 B=(180*B)/(null):A=90-B:GOTO6410
- 5000 C=A1/(SIN(A))
- 5010 B1=A1/(TAN(A))
- 5015 IFD$="R"THENB=((null)/2)-A:GOTO6410
- 5020 A=(180*A)/(null):B=90-A:GOTO6410
- 6000 A1=TAN(A)*B1
- 6010 C=B1/(COS(A))
- 6015 IFD$="R"THENB=((null)/2)-A:GOTO6410
- 6020 A=(180*A)/(null):B=90-A:GOTO6410
- 6100 B=ATN(B1/A1)
- 6110 A=ATN(A1/B1)
- 6120 C=SQR((A1^2)+(B1^2))
- 6125 IFD$="D"THENA=(180*A)/(null):B=(180*B)/(null):GOTO6410
- 6130 GOTO6410
- 6300 B1=SQR((C^2)-(A1^2)):GOTO490
- 6400 A1=SQR((C^2)-(B1^2)):GOTO490
- 6410 IFD$="R"THEN10000
- 6415 AA=A-INT(A):BA=B-INT(B)
- 6420 AA=AA*60:BA=BA*60
- 6430 AB=AA-INT(AA):BB=BA-INT(BA)
- 6440 AC=AB*60:BC=BB*60
- 7000 PRINT"[147]"
- 7010 PRINT" RIGHT TRIANGLES"
- 7020 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
- 7030 PRINT" [206][165]"
- 7040 PRINT" /";INT(A);" ";INT(AA);"'";INT(AC);"''"
- 7050 PRINT" [206] [165]"
- 7060 PRINT" [206] [165]"
- 7070 PRINT" [206] [165]"
- 7080 PRINT" / [165]";B1
- 7090 PRINT" [206] [165]"
- 8000 PRINT" [206] [165]"
- 8100 PRINT" [206] [165]"
- 8200 PRINT" [206] [165]"
- 8300 PRINT" [206] 90[165]"
- 8400 PRINT" [163][163][163][163][163][163][163][163][163][163][163]
- 8500 [153]" ";A1
- 8600 [153]"ONONONONONONONONON";C
- 8700 [153]" ";[181](B);" ";[181](BA);"'";[181](BC);"''"
- 8800 [153]" WOULD YOU LIKE TO CONTINUE?"
- 8900 [161]X$
- 9000 [139]X$[178]"Y"[167][138]
- 9100 [139]X$[178]"N"[167][128]
- 9200 [137]8900
- 10000 [153]"LOAD":[153]" RIGHT TRIANGLES"
- 10010 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
- 10020 [153]" (null)FN"
- 10030 [153]" (null)";A
- 10040 [153]" (null) FN"
- 10050 [153]" (null) FN"
- 10060 [153]" (null) FN"
- 10070 [153]" (null) FN";B1
- 10080 [153]" (null) FN"
- 10090 [153]" (null) FN"
- 12100 [153]" (null) (null) FN"
- 12110 [153]" (null) LEN FN"
- 12120 [153]" (null) 2 FN"
- 12130 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
- 12140 PRINT" ";A1
- 12150 PRINT"[145][145][145][145][145][145][145][145] ";C
- 12160 PRINT" ";B
- 12170 GOTO8800
-