home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / TX16.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  3KB  |  47 lines
  1. 10 CLEAR,32768!:KEY OFF:CLS
  2. 12 X$="system":KEY 10,X$
  3. 15 GOTO 1000
  4. 20 DEF SEG=&H8F00
  5. 30 BLOAD "tx16.asm",&H100
  6. 40 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"   This program is for transmitting a 16 color SVGA configured PIX. The PIX"
  7. 50 PRINT"    file should be copied to the RAMDISK as PIX.WX before this transmission"
  8. 60 PRINT"    program is actuated. You can choose how many lines to transmit up to 10"
  9. 70 PRINT"    minutes worth (station ID required every 10 minutes). Hit G to start"
  10. 80 PRINT"    sending and H to halt sending. LIST and examine lines 1000 thru 2000 to"
  11. 90 PRINT"    see the SYSTEM CONFIGURATION list. The value for LT should be the same"
  12. 100 PRINT"    value as in WXPIX.BAS.":PRINT:PRINT
  13. 110 PRINT"  Interface to couple the computer to the transmitter uses a Radio Shack"
  14. 120 PRINT"   part 273-1380 transformer for isolation. The 4 ohm leads (red and white)"
  15. 130 PRINT"   connect directly to the txmtr microphone input. The high impedance side"
  16. 140 PRINT"   (green and blue) connects to the computer serial port. Connect the blue"
  17. 150 PRINT"   lead directly to Ground (pin 5 on a 9 pin connector) and the blue lead"
  18. 160 PRINT"   to the CTS pin (pin 7 on a 9 pin connector) through a 10 mfd. coupling"
  19. 170 PRINT"   capacitor in  series with a 1000 ohm (or greater) resistor. The capacitor"
  20. 180 PRINT"   blocks DC current flow from the CTS lead and the resistor limits the"
  21. 190 PRINT"   total CTS current to a very safe value. The resistor is chosen to set"
  22. 195 PRINT"   the fax audio gain into the transmitter."
  23. 210 F$=DR$+":pix.wx"
  24. 220 PRINT:PRINT:INPUT"    Transmit how many lines (default=1200)";L
  25. 230 IF L=0 THEN L=1200:IF L>1200 THEN L=1200
  26. 240 M=INT(L/256):N=L-256*M
  27. 250 POKE &H1D9,M:POKE &H1D8,N
  28. 260 POKE &H172,26
  29. 270 LTB=INT(LT/256):LTA=LT-256*LTB:POKE &H2D4,LTA:POKE &H2D5,LTB
  30. 280 IF CO=2 THEN POKE &H241,2
  31. 290 IF TT=0 THEN POKE &H1DE,1
  32. 300 POKE &H295,SW
  33. 310 PRINT:PRINT:PRINT"       Hit G to start Transmitting"
  34. 350 POKE &H1A9,GT  'Gross line timer. Lower the 136 for slow computers.
  35. 360 K=&H100:CALL K(F$)
  36. 370 PRINT:PRINT:PRINT:PRINT:PRINT"           PICTURE TRANSMITTED!"
  37. 380 END
  38. 1000  '                      SYSTEM CONFIGURATION
  39. 1010  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  40. 1020 LT=13500 'Line timing--Use same value as for receiving (WXPIX.BAS)
  41. 1030 GT=213   'Gross Timer--Same value as receiving-lower for slow computers
  42. 1040 CO=1     'CO=2 for COM2---CO=1 for COM1
  43. 1050 DR$="d"  'RAMDISK designation--replace letter d if different
  44. 1060 TT=1     'Tone tick--TT=0 is OFF--TT=1 is on
  45. 1070 SW=30    'Sync Window in microseconds
  46. 2000 GOTO 20
  47.