home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / TRIANGLES-II (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.8 KB  |  134 lines

  1. 10 PRINT"[147]"
  2. 20 PRINT"            RIGHT TRIANGLES"
  3. 30 PRINT"            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  4. 40 PRINT"                     [206][165]"
  5. 50 PRINT"                    [206]A[165]"
  6. 60 PRINT"                   [206]  [165]"
  7. 70 PRINT"                  [206]   [165]"
  8. 80 PRINT"                 [206]    [165]"
  9. 90 PRINT"              C [206]     [165]B1"
  10. 100 PRINT"               [206]      [165]"
  11. 110 PRINT"              [206]       [165]"
  12. 120 PRINT"             [206]        [165]"
  13. 130 PRINT"            [206]         [165]"
  14. 140 PRINT"           [206]B       90[165]"
  15. 150 PRINT"           [163][163][163][163][163][163][163][163][163][163][163]
  16. 160 [153]"                A1"
  17. 170 [153]"    WOULD YOU LIKE TO USE RWAITADIANS"
  18. 180 [153]"    OR DWAITEGREES?"
  19. 190 [161]D$
  20. 200 [139]D$[178]"R"[167]300
  21. 210 [139]D$[179][177]"D"[167]190
  22. 211 [153]"ONON                                                                      "
  23. 215 [133]" ENTER DEGREES OF ANGLE A    ";A
  24. 217 [133]" ENTER DEGREES OF ANGLE B    ";B
  25. 219 A[178](A[172][255])[173]180:B[178](B[172][255])[173]180:[137]470
  26. 300 [153]"LOAD":[153]"            RIGHT TRIANGLES"
  27. 310 [153]"            TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  28. 320 [153]"                     (null)FN"
  29. 330 [153]"                    (null)AFN"
  30. 340 [153]"                   (null)  FN"
  31. 350 [153]"                  (null)   FN"
  32. 360 [153]"                 (null)    FN"
  33. 370 [153]"              C (null)     FNB1"
  34. 380 [153]"               (null)      FN"
  35. 390 [153]"              (null)       FN"
  36. 400 [153]"             (null)      (null) FN"
  37. 410 [153]"            (null)       LEN FN"
  38. 420 [153]"           (null)B       2 FN"
  39. 430 [153]"           TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  40. 440 PRINT"                A1"
  41. 450 INPUT" ENTER RADIANS OF ANGLE A    ";A
  42. 460 INPUT" ENTER RADIANS OF ANGLE B    ";B
  43. 470 INPUT" ENTER LENGTH OF SIDE A1     ";A1
  44. 480 INPUT" ENTER LENGTH OF SIDE B1     ";B1
  45. 485 INPUT" ENTER LENGTH OF SIDE C      ";C
  46. 486 IF(A+B)>((null)/2)THENPRINT"    THIS IS NOT A TRAINGLE":GOTO8800
  47. 490 IFC<>0ANDB<>0THEN1000
  48. 500 IFC<>0ANDA<>0THEN2000
  49. 510 IFB<>0ANDB1<>0THEN3000
  50. 520 IFB<>0ANDA1<>0THEN4000
  51. 530 IFA<>0ANDA1<>0THEN5000
  52. 540 IFA<>0ANDB1<>0THEN6000
  53. 550 IFA1<>0ANDB1<>0THEN6100
  54. 560 IFA1<>0ANDC<>0THEN6300
  55. 570 IFB1<>0ANDC<>0THEN6400
  56. 580 IFA1=0ANDB1=0ANDC=0THENA1=1:GOTO490
  57. 1000 A1=COS(B)*C
  58. 1010 B1=SIN(B)*C
  59. 1015 IFD$="R"THENA=((null)/2)-B:GOTO6410
  60. 1020 B=(180*B)/(null):A=90-B:GOTO6410
  61. 2000 B1=COS(A)*C
  62. 2010 A1=SIN(A)*C
  63. 2015 IFD$="R"THENB=((null)/2)-A:GOTO6410
  64. 2020 A=(180*A)/(null):B=90-A:GOTO6410
  65. 3000 A1=TAN(B)/B1
  66. 3010 C=SIN(B)/B1
  67. 3015 IFD$="R"THENA=((null)/2)-B:GOTO6410
  68. 3020 A=(180*A)/(null):B=90-A:GOTO6410
  69. 4000 C=A1/(COS(B))
  70. 4010 B1=TAN(B)*A1
  71. 4015 IFD$="R"THENA=((null)/2)-B:GOTO6410
  72. 4020 B=(180*B)/(null):A=90-B:GOTO6410
  73. 5000 C=A1/(SIN(A))
  74. 5010 B1=A1/(TAN(A))
  75. 5015 IFD$="R"THENB=((null)/2)-A:GOTO6410
  76. 5020 A=(180*A)/(null):B=90-A:GOTO6410
  77. 6000 A1=TAN(A)*B1
  78. 6010 C=B1/(COS(A))
  79. 6015 IFD$="R"THENB=((null)/2)-A:GOTO6410
  80. 6020 A=(180*A)/(null):B=90-A:GOTO6410
  81. 6100 B=ATN(B1/A1)
  82. 6110 A=ATN(A1/B1)
  83. 6120 C=SQR((A1^2)+(B1^2))
  84. 6125 IFD$="D"THENA=(180*A)/(null):B=(180*B)/(null):GOTO6410
  85. 6130 GOTO6410
  86. 6300 B1=SQR((C^2)-(A1^2)):GOTO490
  87. 6400 A1=SQR((C^2)-(B1^2)):GOTO490
  88. 6410 IFD$="R"THEN10000
  89. 6415 AA=A-INT(A):BA=B-INT(B)
  90. 6420 AA=AA*60:BA=BA*60
  91. 6430 AB=AA-INT(AA):BB=BA-INT(BA)
  92. 6440 AC=AB*60:BC=BB*60
  93. 7000 PRINT"[147]"
  94. 7010 PRINT"            RIGHT TRIANGLES"
  95. 7020 PRINT"            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  96. 7030 PRINT"                     [206][165]"
  97. 7040 PRINT"                    /";INT(A);" ";INT(AA);"'";INT(AC);"''"
  98. 7050 PRINT"                   [206]  [165]"
  99. 7060 PRINT"                  [206]   [165]"
  100. 7070 PRINT"                 [206]    [165]"
  101. 7080 PRINT"                /     [165]";B1
  102. 7090 PRINT"               [206]      [165]"
  103. 8000 PRINT"              [206]       [165]"
  104. 8100 PRINT"             [206]        [165]"
  105. 8200 PRINT"            [206]         [165]"
  106. 8300 PRINT"           [206]        90[165]"
  107. 8400 PRINT"           [163][163][163][163][163][163][163][163][163][163][163]
  108. 8500 [153]"               ";A1
  109. 8600 [153]"ONONONONONONONONON";C
  110. 8700 [153]" ";[181](B);" ";[181](BA);"'";[181](BC);"''"
  111. 8800 [153]"   WOULD YOU LIKE TO CONTINUE?"
  112. 8900 [161]X$
  113. 9000 [139]X$[178]"Y"[167][138]
  114. 9100 [139]X$[178]"N"[167][128]
  115. 9200 [137]8900
  116. 10000 [153]"LOAD":[153]"            RIGHT TRIANGLES"
  117. 10010 [153]"            TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  118. 10020 [153]"                     (null)FN"
  119. 10030 [153]"                    (null)";A
  120. 10040 [153]"                   (null)  FN"
  121. 10050 [153]"                  (null)   FN"
  122. 10060 [153]"                 (null)    FN"
  123. 10070 [153]"                (null)     FN";B1
  124. 10080 [153]"               (null)      FN"
  125. 10090 [153]"              (null)       FN"
  126. 12100 [153]"             (null)      (null) FN"
  127. 12110 [153]"            (null)       LEN FN"
  128. 12120 [153]"           (null)        2 FN"
  129. 12130 [153]"           TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  130. 12140 PRINT"               ";A1
  131. 12150 PRINT"[145][145][145][145][145][145][145][145]     ";C
  132. 12160 PRINT"     ";B
  133. 12170 GOTO8800
  134.