home *** CD-ROM | disk | FTP | other *** search
/ Sound Sensations! / sound_sensations.iso / miditool / midiplan / midiplan.bas
Encoding:
BASIC Source File  |  1980-01-01  |  2.5 KB  |  58 lines
  1. 5 VIEW PRINT
  2. 10 SCREEN 2,0,0: CLS: KEY OFF
  3. 20 LIGNE$= STRING$(80,196)
  4. 30 BOX$="r120 d60 l120 u60": DIODE$="d10 r10 g10 nr10 nd10 nl10 h10 r10"
  5. 40 RES$="e5 f10 e10 f10 e10 f5": GATE$="l15 e15 f15 l15"
  6. 50 GROUND$="d10 bl10 r20 bl4 bd5 l12 bd5 br4 r4"
  7. 60 PRINT TAB(8) "M.I.D.I. Interface Plan" TAB(60)"by Michel Poirier"
  8. 70 PRINT LIGNE$: PRINT
  9. 80 PRINT TAB(44)"Opto-Isolator    +5v"
  10. 85 PRINT TAB(64)"270 Ohms": PRINT TAB(42)"2" TAB(59)"6"
  11. 90 PRINT TAB(56)"5v": PRINT TAB(35)"D1"
  12. 100 PRINT TAB(23)"220 Ohms" TAB(35)"1N914" TAB(72)"To UART"
  13. 110 PRINT TAB(56)"Vo": PRINT
  14. 120 PRINT TAB(9)"2" TAB(42)"1" TAB(59)"4"
  15. 130 PRINT TAB(5)"5" TAB(13)"4": PRINT TAB(53)"5"
  16. 140 PRINT TAB(4)"3" TAB(14)"1": PRINT: PRINT: PRINT TAB(6)"MIDI IN"
  17. 150 PSET (340,35): DRAW BOX$: PSET (400,95): DRAW GROUND$
  18. 160 PSET (260,50): DRAW DIODE$
  19. 170 PSET (180,80): DRAW RES$
  20. 180 CIRCLE (140,65),30,,,,2.5: PSET (140,95): DRAW GROUND$
  21. 190 CIRCLE (70,115),30: CIRCLE (50,116),4: CIRCLE (56,109),4: CIRCLE (70,106),4
  22. 200 CIRCLE (90,116),4: CIRCLE (84,109),4
  23. 210 PSET (490,49): DRAW RES$: CIRCLE (479,33),3
  24. 220 PSET (56,109): DRAW "h20 u40 r304 br120 r19 nu16 r9 br53 r20 d31"
  25. 230 PSET (84,109): DRAW "e20 u9 r74 br53 r108 br120 r135 nh5 g5"
  26. 240 LOCATE 18,38,0: PRINT "* Opto-Isolator shown is Sharp PC-900."
  27. 250 PRINT TAB(40)"Also HP 6N138 or others can be used"
  28. 260 PRINT TAB(40)"with appropriate changes.": PRINT
  29. 270 PRINT TAB(38)"* Resistors are 5%."
  30. 275 LOCATE 24,40: PRINT "Press a Key...";
  31. 280 WHILE INKEY$="": GOTO 280: WEND
  32. 290 VIEW PRINT 3 TO 24: CLS
  33. 300 LOCATE 5,45,0: PRINT "+5v"
  34. 310 LOCATE 8,46: PRINT "220 Ohms"
  35. 320 LOCATE 15,35: PRINT "220 Ohms"
  36. 330 PRINT TAB(8)"From"
  37. 340 PRINT TAB(8)"UART": PRINT TAB(27)"A"
  38. 350 PRINT TAB(60)"2"
  39. 360 PRINT TAB(57)"5" TAB(65)"4": PRINT
  40. 370 PRINT TAB(56)"3" TAB(66)"1"
  41. 380 PRINT: PRINT TAB(58)"MIDI OUT";
  42. 400 CIRCLE (340,35),4
  43. 410 PSET (340,35): DRAW "d15 a3;"+RES$+"a0 d15 r200 d30 g40"
  44. 420 CIRCLE (484,167),30
  45. 430 CIRCLE (484,157),4: CIRCLE (500,160),4: CIRCLE (468,160),4
  46. 440 CIRCLE (505,167),4: CIRCLE (462,167),4
  47. 450 PSET (484,157): DRAW "u45 l75"
  48. 460 PSET (468,160): DRAW "h30 l120 a2;"+RES$+"a0;"
  49. 470 DRAW "l30 bl45 l20 bl45 l20 nh5 g5"
  50. 480 PSET (130,130): DRAW "a3;"+GATE$+"a0": CIRCLE (168,130),5
  51. 490 PSET (195,130): DRAW "a3;"+GATE$+"a0": CIRCLE (233,130),5
  52. 500 CIRCLE (400,110),30,,,,3
  53. 510 PSET (400,139): DRAW GROUND$
  54. 515 LOCATE 21,8: PRINT "* Gate A is IC or transistor."
  55. 517 PRINT: PRINT TAB(8)"  Press a Key..."
  56. 520 WHILE INKEY$="": GOTO 520: WEND
  57. 530 VIEW PRINT: CLS: SCREEN 0,0,0
  58.