home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 12 / CD_ASCQ_12_0294.iso / maj / 2364 / minilab / schema14.bas < prev    next >
BASIC Source File  |  1993-10-22  |  7KB  |  133 lines
  1. REM W. Prévost 1993 : MINILAB: SCHEMA12 : AMPLI AUDIO 1
  2.  
  3. DEFINT A-Z: SCREEN 12
  4. xt1 = 290: yt1 = 150: xt2 = 370: yt2 = 210
  5. CIRCLE (xt1, yt1), 17, 11                             'T 1
  6. LINE (xt1 - 3, yt1 - 10)-(xt1, yt1 + 10), 11, BF
  7. CIRCLE (xt2, yt2), 17, 11                             'T 2
  8. LINE (xt2 - 3, yt2 - 10)-(xt2, yt2 + 10), 11, BF
  9. LINE (xt1 - 75, yt1)-(xt1, yt1), 11
  10. DRAW "E12 G12 F12 D48 R68 E12 G12 F12 D45"
  11. PSET (xt1, yt1), 11: DRAW "E12 R80 U35 D93"     'liaison sup
  12. PSET (xt1, yt1), 11: DRAW "F12 U3 G3 R2"        'flèche T1
  13. PSET (xt2, yt2), 11: DRAW "F12 U3 G3 R2"        'fleche T2
  14. c = 11: x = 285: y = 120: GOSUB T: GOSUB 1
  15. x = 400: y = 210: GOSUB T: GOSUB 2
  16. c = 11: x = 265: y = 140: GOSUB bm: x = 345: y = 200: GOSUB bm
  17. x = 310: y = 130: GOSUB cm: x = 390: y = 190: GOSUB cm
  18. x = 310: y = 165: GOSUB em: x = 390: y = 230: GOSUB em
  19. x = 380: y = 90: GOSUB plus: GOSUB V
  20. xd = 250: yd = 150                                  'diode
  21. LINE (xd - 5, yd + 80)-(xd + 5, yd + 80), 9: LINE -(xd, yd + 70), 9
  22. LINE -(xd - 5, yd + 80), 9
  23. LINE (xd - 5, yd + 70)-(xd + 5, yd + 70), 9: PAINT (xd, yd + 75), 9, 9
  24. LINE (xd, yd)-(xd, yd + 170), 9
  25. x = 260: y = yd + 90: c = 9: GOSUB D
  26. xp = 215: yp = 150                           'C 1
  27. LINE (xp, yp)-(xp, yp + 40), 14
  28. LINE (xp - 7, yp + 40)-(xp + 7, yp + 44), 14, BF
  29. LINE (xp - 7, yp + 47)-(xp + 7, yp + 51), 14, B
  30. x = 190: y = 195: c = 14: GOSUB c: GOSUB 1
  31. x = 225: y = 204: GOSUB plus
  32. LINE (xp, yp + 52)-(xp, yp + 105), 14: LINE -(xp - 20, yp + 105), 10
  33. DRAW "E4 G4 F4": xr = 191: yr = 245
  34. LINE (xr - 4, yr)-(xr + 4, yr + 30), 10, B
  35. LINE (xr, yr)-(xr, yr - 25), 10: LINE -(xr - 20, yr - 25), 10
  36. CIRCLE (xr - 22, yr - 25), 2, 10: x = 150: y = 220: c = 10: GOSUB I: GOSUB N
  37. LINE (xr, yr + 30)-(xr, yr + 75), 10: x = 175: y = 260: GOSUB P
  38. xh = 376: yh = 268: LINE (xh, yh)-(xh + 12, yh + 20), 12, B
  39. LINE (xh + 12, yh)-(xh + 27, yh - 15), 12: LINE -(xh + 27, yh + 35), 12
  40. LINE -(xh + 12, yh + 20), 12
  41. LINE (xh + 5, yh + 20)-(xh + 5, 320), 12: LINE -(120, 320), 7
  42. x = 420: y = 278: c = 12: GOSUB H: GOSUB P
  43. x = 100: y = 320: c = 7: GOSUB 0: GOSUB V
  44. xc = xh + 5: yc = yh - 20
  45. LINE (xc, yc)-(xc - 30, yc), 14: LINE -(xc - 30, yc + 19), 14
  46. LINE (xc - 37, yc + 19)-(xc - 23, yc + 23), 14, B
  47. LINE (xc - 37, yc + 26)-(xc - 23, yc + 30), 14, B
  48. LINE (xc - 30, yc + 31)-(xc - 30, 320), 14
  49. x = xc - 57: y = yc + 24: c = 14: GOSUB c: GOSUB 2
  50. LOCATE 10, 55: COLOR 11: PRINT "DARLINGTON"
  51. ohm$ = CHR$(234): micro$ = CHR$(230)
  52. LOCATE 26, 5: COLOR 10: PRINT "P1 : 15 k"; ohm$
  53. LOCATE 27, 5: COLOR 14: PRINT "C1 : 1 "; micro$; "F/16 V"
  54. LOCATE 28, 5: COLOR 14: PRINT "C2 : 47O nF"
  55. LOCATE 26, 25: COLOR 9: PRINT "D: 1N 4148"
  56. LOCATE 27, 25: COLOR 11: PRINT "T1 (NPN) : BC 1O8, BC 1O9..."
  57. LOCATE 28, 25: COLOR 11: PRINT "T2 (NPN) : 2N 1613, 2N 1711..."
  58. LOCATE 26, 60: COLOR 12: PRINT "HP : 4/8 "; ohm$: COLOR 15
  59. attente:   f$ = "": WHILE f$ = "": f$ = INKEY$: WEND: f$ = UCASE$(f$)
  60.            IF f$ = "Q" THEN GOTO quitter
  61.            GOTO attente
  62. END
  63. quitter: LINE (0, 61)-(639, 479), 0, BF: CHAIN "minilab\SCHEMAS.bas"
  64.  
  65. 1 : FOR vert = y - 4 TO y + 4: PSET (x, vert), c: NEXT vert
  66. PSET (x - 1, y - 4), c: PSET (x - 1, y + 4), c: PSET (x + 1, y + 4), c
  67. x = x + 8:  RETURN
  68. 2 : PSET (x, y - 4), c: PSET (x + 1, y - 4), c: PSET (x - 1, y - 3), c
  69. PSET (x + 2, y - 3), c: PSET (x - 2, y - 2), c: PSET (x + 3, y - 2), c
  70. PSET (x + 3, y - 1), c: PSET (x + 2, y), c
  71. PSET (x, y + 1), c: PSET (x + 1, y), c
  72. PSET (x - 2, y + 2), c: PSET (x - 1, y + 2), c: PSET (x - 2, y + 3), c
  73. FOR hor = x - 2 TO x + 3: PSET (hor, y + 4), c: NEXT hor: x = x + 9: RETURN
  74. 0 : FOR H = x - 1 TO x + 2: PSET (H, y - 4), c: NEXT H
  75. FOR H = x - 1 TO x + 2: PSET (H, y + 4), c: NEXT H
  76. FOR V = y TO y + 3: PSET (x - 2, V), c: NEXT V
  77. FOR V = y TO y + 3: PSET (x + 3, V), c: NEXT V
  78. FOR V = y - 3 TO y - 1: PSET (x - 2, V), c: NEXT V
  79. FOR V = y - 3 TO y - 1: PSET (x + 3, V), c: NEXT V: x = x + 9: RETURN
  80. REM
  81. c: PSET (x, y - 4), c: PSET (x + 1, y - 4), c
  82. PSET (x - 1, y - 3), c: PSET (x + 2, y - 3), c
  83. FOR vert = y - 2 TO y + 2: PSET (x - 2, vert), c: NEXT vert
  84. PSET (x + 3, y - 2), c: PSET (x + 3, y + 2), c
  85. PSET (x, y + 4), c: PSET (x + 1, y + 4), c
  86. PSET (x - 1, y + 3), c: PSET (x + 2, y + 3), c: x = x + 9: RETURN
  87. D: FOR vert = y - 4 TO y + 4: PSET (x - 2, vert), c: NEXT vert
  88. FOR hor = x - 1 TO x + 1: PSET (hor, y - 4), c: NEXT hor
  89. PSET (x + 2, y - 3), c
  90. FOR vert = y - 2 TO y + 2: PSET (x + 2, vert), c: NEXT vert
  91. FOR hor = x - 1 TO x + 1: PSET (hor, y + 4), c: NEXT hor
  92. PSET (x + 2, y + 3), c: x = x + 9: RETURN
  93. H: FOR vert = y - 4 TO y + 4: PSET (x - 2, vert), c: PSET (x + 3, vert), c: NEXT vert
  94. FOR hor = x - 1 TO x + 2: PSET (hor, y), c: NEXT hor: x = x + 9: RETURN
  95. I: x = x - 2: FOR V = y - 4 TO y + 4: PSET (x, V), c: NEXT V: x = x + 7: RETURN
  96. N: FOR V = y - 4 TO y + 4: PSET (x - 3, V), c: NEXT V
  97. FOR V = y - 4 TO y + 4: PSET (x + 3, V), c: NEXT V
  98. V = y - 3: FOR H = x - 2 TO x + 2: PSET (H, V), c: V = V + 1: NEXT H
  99. x = x + 9: RETURN
  100. P: FOR V = y - 4 TO y + 4: PSET (x - 2, V), c: NEXT V
  101. FOR H = x - 1 TO x + 1: PSET (H, y - 4), c: NEXT H
  102. PSET (x + 2, y - 3), c: PSET (x + 3, y - 2), c: PSET (x + 2, y - 1), c
  103. FOR H = x - 1 TO x + 1: PSET (H, y), c: NEXT H: x = x + 9: RETURN
  104. T:  FOR V = y - 3 TO y + 4: PSET (x, V), c: NEXT V
  105. FOR H = x - 3 TO x + 3: PSET (H, y - 4), c: NEXT H: x = x + 9: RETURN
  106. V: FOR V = y - 4 TO y + 1: PSET (x - 2, V), c: PSET (x + 3, V), c: NEXT V
  107. FOR V = y + 2 TO y + 3: PSET (x - 1, V), c: PSET (x + 2, V), c: NEXT V
  108. PSET (x, y + 4), c: PSET (x + 1, y + 4), c: x = x + 9: RETURN
  109. vrg: PSET (x, y + 4), c: PSET (x, y + 5), c: PSET (x - 1, y + 6), c
  110. x = x + 9: RETURN
  111. '                      minuscules
  112. bm: y = y + 1: FOR V = y - 5 TO y + 3: PSET (x - 2, V), c: NEXT V
  113. FOR V = y - 2 TO y + 2: PSET (x + 2, V), c: NEXT V
  114. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H
  115. FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  116. x = x + 7: y = y - 1: RETURN
  117. cm: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  118. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c
  119. FOR V = y - 1 TO y + 1: PSET (x - 2, V), c: NEXT V
  120. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  121. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H
  122. x = x + 7: y = y - 1: RETURN
  123. em: y = y + 1: FOR H = x - 1 TO x + 1: PSET (H, y - 3), c: NEXT H
  124. PSET (x - 2, y - 2), c: PSET (x + 2, y - 2), c
  125. PSET (x - 2, y - 1), c: PSET (x + 2, y - 1), c
  126. FOR H = x - 2 TO x + 1: PSET (H, y), c: NEXT H: PSET (x - 2, y + 1), c
  127. PSET (x - 2, y + 2), c: PSET (x + 2, y + 2), c
  128. FOR H = x - 1 TO x + 1: PSET (H, y + 3), c: NEXT H: x = x + 7
  129. y = y - 1: RETURN
  130. plus: FOR H = x - 2 TO x + 2: PSET (H, y), c: NEXT H
  131. FOR V = y - 2 TO y + 2: PSET (x, V), c: NEXT V: x = x + 9: RETURN
  132.  
  133.