home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / maj / 2364 / minilab / schema15.bas < prev    next >
BASIC Source File  |  1993-10-22  |  6KB  |  116 lines
  1. REM W. Prévost 1993 : MINILAB: SCHEMA15 : AMPLIFICATEUR INVERSEUR
  2.  
  3. DEFINT A-Z: SCREEN 12
  4. LINE (270, 200)-(270, 260), 5: LINE -(340, 230), 5: LINE -(270, 200), 5 'CI
  5. x = 260: y = 205: c = 5: GOSUB moins: x = 260: y = 252: GOSUB plus
  6.   x = 285: y = 230: GOSUB A: GOSUB m0: GOSUB P
  7. LINE (305, 215)-(305, 190), 12: CIRCLE (305, 188), 2, 12
  8. x = 312: y = 188: c = 12: GOSUB plus: GOSUB V: GOSUB cm: GOSUB cm
  9. LINE (305, 245)-(305, 270), 14: CIRCLE (305, 272), 2, 14
  10. x = 312: y = 272: c = 14: GOSUB moins: GOSUB V: GOSUB cm: GOSUB cm
  11. mas = 315: LINE (150, mas)-(400, mas), 7: CIRCLE (402, mas), 2, 7
  12.   x = 410: y = mas: c = 7: GOSUB m0: GOSUB V
  13. LINE (270, 245)-(240, 245), 7: LINE -(240, mas), 7
  14. LINE (340, 230)-(400, 230), 5: CIRCLE (402, 230), 2, 5
  15.   x = 410: y = 230: c = 5: GOSUB U: GOSUB sm
  16. LINE (270, 215)-(200, 215), 10: LINE (200, 211)-(180, 219), 10, B     'R1
  17.   x = 188: y = 202: c = 10: GOSUB R: GOSUB m1
  18. LINE (180, 215)-(155, 215), 10: CIRCLE (153, 215), 2, 10
  19.   x = 130: y = 215: c = 2: GOSUB U: GOSUB em
  20. LINE (235, 215)-(235, 160), 10: LINE -(295, 160), 10
  21. LINE (295, 156)-(315, 164), 10, B      'R2
  22.   x = 300: y = 147: c = 10: GOSUB R: GOSUB m2
  23. LINE (315, 160)-(365, 160), 10: LINE -(365, 230), 10
  24. x = 380: y = 120: c = 5
  25. GOSUB U: GOSUB sm: GOSUB egal: c = 10: GOSUB moins: GOSUB par1
  26. GOSUB R: GOSUB m2: GOSUB slash: GOSUB R: GOSUB m1: GOSUB par2
  27. c = 2: GOSUB U: GOSUB em
  28.   y = 275: c = 10: k = 20
  29. x = 410: FOR A = 180 TO 360 STEP 6
  30. ang! = A * .01745: PSET (x + A / 6, y + k * SIN(ang!)), c: NEXT A
  31. FOR A = 0 TO 180 STEP 4
  32. ang! = A * .01745: PSET (x + 60 + A / 6, y + k * SIN(ang!)), c: NEXT A
  33. x = 470: FOR A = 180 TO 360 STEP 6
  34. ang! = A * .01745: PSET (x + A / 6, y + k * SIN(ang!)), c: NEXT A
  35.   y = 275: c = 13: k = 35
  36. x = 440: FOR A = 0 TO 180 STEP 6
  37. ang! = A * .01745: PSET (x + A / 6, y + k * SIN(ang!)), c: NEXT A
  38. FOR A = 180 TO 360 STEP 4
  39. ang! = A * .01745: PSET (x + A / 6, y + k * SIN(ang!)), c: NEXT A
  40. x = 500: FOR A = 0 TO 180 STEP 6
  41. ang! = A * .01745: PSET (x + A / 6, y + k * SIN(ang!)), c: NEXT A
  42.  
  43. attente:        f$ = "": WHILE f$ = "": f$ = INKEY$: WEND: f$ = UCASE$(f$)
  44. IF f$ = "Q" THEN GOTO quitter
  45. GOTO attente
  46.  
  47. quitter: LINE (0, 61)-(639, 479), 0, BF: CHAIN "minilab\SCHEMAS.bas"
  48.  
  49. m1: FOR vert = y - 4 TO y + 4: PSET (x, vert), c: NEXT vert
  50. PSET (x - 1, y - 4), c: PSET (x - 1, y + 4), c: PSET (x + 1, y + 4), c
  51. x = x + 9:  RETURN
  52. m2: PSET (x, y - 4), c: PSET (x + 1, y - 4), c: PSET (x - 1, y - 3), c
  53. PSET (x + 2, y - 3), c: PSET (x - 2, y - 2), c: PSET (x + 3, y - 2), c
  54. PSET (x + 3, y - 1), c: PSET (x + 2, y), c
  55. PSET (x, y + 1), c: PSET (x + 1, y), c
  56. PSET (x - 2, y + 2), c: PSET (x - 1, y + 2), c: PSET (x - 2, y + 3), c
  57. FOR hor = x - 2 TO x + 3: PSET (hor, y + 4), c: NEXT hor: x = x + 9: RETURN
  58. m0: FOR H = x - 1 TO x + 2: PSET (H, y - 4), c: NEXT H
  59. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H
  60. FOR V = y TO y + 3: PSET (x - 2, V), c: NEXT V
  61. FOR V = y TO y + 3: PSET (x + 3, V), c: NEXT V
  62. FOR V = y - 3 TO y - 1: PSET (x - 2, V), c: NEXT V
  63. FOR V = y - 3 TO y - 1: PSET (x + 3, V), c: NEXT V: x = x + 9: RETURN
  64. egal: x = x + 2: FOR H = x - 2 TO x + 3: PSET (H, y - 2), c: NEXT H
  65. FOR H = x - 2 TO x + 3: PSET (H, y + 1), c: NEXT H: x = x + 11: RETURN
  66. REM
  67. A: PSET (x, y - 4), c: PSET (x + 1, y - 4), c
  68. PSET (x - 1, y - 3), c: PSET (x + 2, y - 3), c
  69. FOR vert = y - 2 TO y + 4: PSET (x - 2, vert), c: PSET (x + 3, vert), c: NEXT vert
  70. FOR hor = x - 1 TO x + 2: PSET (hor, y + 1), c: NEXT hor: x = x + 9: RETURN
  71. P: FOR V = y - 4 TO y + 4: PSET (x - 2, V), c: NEXT V
  72. FOR H = x - 1 TO x + 1: PSET (H, y - 4), c: NEXT H
  73. PSET (x + 2, y - 3), c: PSET (x + 3, y - 2), c: PSET (x + 2, y - 1), c
  74. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: x = x + 9: RETURN
  75. R:  FOR V = y - 4 TO y + 4: PSET (x - 2, V), c: NEXT V
  76. FOR H = x - 1 TO x + 1: PSET (H, y - 4), c: NEXT H
  77. PSET (x + 2, y - 3), c: PSET (x + 3, y - 2), c: PSET (x + 2, y - 1), c
  78. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H
  79. FOR V = y + 1 TO y + 4: PSET (x + 2, V), c: NEXT V: x = x + 9: RETURN
  80. V: FOR V = y - 4 TO y + 1: PSET (x - 2, V), c: PSET (x + 3, V), c: NEXT V
  81. FOR V = y + 2 TO y + 3: PSET (x - 1, V), c: PSET (x + 2, V), c: NEXT V
  82. PSET (x, y + 4), c: PSET (x + 1, y + 4), c: x = x + 9: RETURN
  83. U:  FOR V = y - 4 TO y + 3: PSET (x - 2, V), c: PSET (x + 3, V), c: NEXT V
  84. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H: x = x + 9: RETURN
  85. REM
  86. slash: LINE (x - 3, y + 4)-(x + 3, y - 4), c: x = x + 9: RETURN
  87. plus: x = x + 2: FOR H = x - 3 TO x + 3: PSET (H, y), c: NEXT H
  88. FOR V = y - 3 TO y + 3: PSET (x, V), c: NEXT V: x = x + 8: RETURN
  89. moins: x = x + 2: FOR H = x - 3 TO x + 3: PSET (H, y), c: NEXT H
  90. x = x + 8: RETURN
  91. cm: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  92. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c
  93. FOR V = y - 1 TO y + 1: PSET (x - 2, V), c: NEXT V
  94. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  95. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H
  96. x = x + 7: y = y - 1: RETURN
  97. em: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  98. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c
  99. PSET (x - 2, y - 1), c: PSET (x + 2, y - 1), c
  100. FOR H = x - 2 TO x + 1: PSET (H, y), c: NEXT H: PSET (x - 2, y + 1), c
  101. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  102. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H: x = x + 7
  103. y = y - 1: RETURN
  104. sm: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  105. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c: PSET (x - 2, y - 1), c
  106. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: PSET (x + 2, y + 1), c
  107. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  108. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H: x = x + 7: y = y - 1: RETURN
  109. par1: x = x + 3: PSET (x - 1, y - 3), c: PSET (x, y - 4), c
  110. FOR V = y - 2 TO y + 2: PSET (x - 2, V), c: NEXT V
  111. PSET (x, y + 4), c: PSET (x - 1, y + 3), c:  x = x + 7: RETURN
  112. par2: x = x - 2: PSET (x + 1, y - 4), c
  113. PSET (x + 2, y - 3), c: FOR V = y - 2 TO y + 2: PSET (x + 3, V), c: NEXT V
  114. PSET (x + 1, y + 4), c: PSET (x + 2, y + 3), c: x = x + 11: RETURN
  115.  
  116.