home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / 555-ic.bqs / 555-IC.BAS
Encoding:
BASIC Source File  |  1986-12-31  |  1.8 KB  |  67 lines
  1. 10 PRINT CHR$(11) : REM SCREEN CLEAR
  2. 20 DIM A(25),R(77)
  3. 30 PRINT "THIS PROGRAM AS DESIGNED TO SELECT THE"
  4. 40 PRINT "PROPER VALUES OF RESISTANCE AND CAPA-"
  5. 50 PRINT "CITANCE FOR THE PROPER OPERATION OF THE"
  6. 60 PRINT "555 TIMER-OSCILLATOR."
  7. 70 PRINT
  8. 80 PRINT "ENTER THE DESIRED FREQUENCY OF OSCILLATION( hz )"
  9. 90 INPUT F
  10. 100 PRINT CHR$(11)
  11. 110 PRINT
  12. 120 S=1
  13. 130 FOR I=1 TO 13
  14. 140 READ A(I)
  15. 150 NEXT I
  16. 160 PRINT
  17. 170 PRINT "THE FOLLOWING VALUES OF RESISTANCE"
  18. 180 PRINT "AND CAPACITANCE DETERMINE THE FRE-"
  19. 190 PRINT "QUENCY OF ";F;"HZ."
  20. 191 PRINT"              ---------------------"
  21. 192 PRINT"           1-| GND             VCC |-8"
  22. 193 PRINT"             |                     |"
  23. 194 PRINT"           2-| TRIGGER      DISCHG |-7 R(b) TO VCC"
  24. 195 PRINT"             |      555-IC         |"
  25. 196 PRINT"           3-| OUTPUT     THRESHOLD|-6 R(a) TO 7, C1 TO GND"
  26. 197 PRINT"             |                     |"
  27. 198 PRINT"           4-| RESET     CONT. VOLT|-5"
  28. 199 PRINT"              ---------------------  "
  29. 200 Z=1
  30. 210 B=1
  31. 220 FOR J=2 TO 7
  32. 230 FOR I=3 TO 13
  33. 240 R(Z)=A(I)*10^J
  34. 250 R(B)=R(Z)
  35. 260 Z=Z+1
  36. 270 B=B+1
  37. 280 NEXT I
  38. 290 NEXT J
  39. 300 FOR Z=1 TO 66
  40. 310 FOR B=1 TO 66
  41. 320 C=1.44/((R(Z)+2*R(B))*F)
  42. 330 IF C<10^(-9) THEN 430
  43. 340 FOR H=1 TO 9
  44. 350 D=C/10^(-H)
  45. 360 IF 1>D THEN 380
  46. 370 IF D<10 THEN 390
  47. 380 NEXT H
  48. 390 FOR I=1 TO 6
  49. 400 IF .995*A(I)>D THEN 420
  50. 410 IF D<1.005*A(I) THEN 460
  51. 420 NEXT I
  52. 430 NEXT B
  53. 440 NEXT Z
  54. 450 GOTO 560
  55. 460 PRINT
  56. 470 PRINT
  57. 475 FOR TIME=1 TO 10:PRINT CHR$(7);:NEXT TIME
  58. 480 PRINT "SET";S;":"
  59. 490 PRINT "R(A)=";R(Z);"OHMS"
  60. 500 PRINT "R(B)=";R(B);"OHMS"
  61. 510 PRINT "C=";1E+06*C;"UF"
  62. 520 S=S+1
  63. 530 PRINT
  64. 540 GOTO 440
  65. 550 DATA 5.0,10.0,1.0,2.2,3.3,4.7,1.2,1.5,1.8,3.9,5.6,6.2,8.2
  66. 560 END
  67.