home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / CTX16.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  3KB  |  55 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 "960totx.asm",&H100
  6. 35 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"                 TRANSMITTING PROGRAM (16 color)"
  7. 40 PRINT:PRINT"   This program is for transmitting a 16 color (shades) picture captured by"
  8. 50 PRINT"    the program WXPIX.BAS. The pix is converted and stored as D:PIX.WX before"
  9. 60 PRINT"    program is actuated. You can choose how many lines to transmit up to 10"
  10. 70 PRINT"    minutes worth (station ID required every 10 minutes). Hit G to start"
  11. 80 PRINT"    sending and H to halt sending. LIST and examine lines 1000 thru 2000 to"
  12. 90 PRINT"    see the SYSTEM CONFIGURATION list. The value for LT should be the same"
  13. 100 PRINT"    value as in WXPIX.BAS.":PRINT:PRINT
  14. 110 PRINT"  Interface to couple the computer to the transmitter uses a Radio Shack"
  15. 120 PRINT"   part 273-1380 transformer for isolation. The 4 ohm leads (red and white)"
  16. 130 PRINT"   connect directly to the txmtr microphone input. The high impedance side"
  17. 140 PRINT"   (green and blue) connects to the computer serial port. Connect the blue"
  18. 150 PRINT"   lead directly to Ground (pin 5 on a 9 pin connector) and the blue lead"
  19. 160 PRINT"   to the CTS pin (pin 7 on a 9 pin connector) through a 10 mfd. coupling"
  20. 170 PRINT"   capacitor in  series with a 1000 ohm (or greater) resistor. The capacitor"
  21. 180 PRINT"   blocks DC current flow from the CTS lead and the resistor limits the"
  22. 190 PRINT"   total CTS current to a very safe value. The resistor is chosen to set"
  23. 195 PRINT"   the fax audio gain into the transmitter."
  24. 210 PRINT:PRINT:INPUT"   What PATH/FILENAME (program will add suffix .960)";PIX$
  25. 220 OF$=PIX$+".960"
  26. 230 NF$=DR$+":pix.wx"
  27. 240 K%=0:L%=0
  28. 250 K=&H100:CALL K(K%,L%,OF$,NF$)
  29. 260 PRINT:PRINT:PRINT"   File has been converted and is stored in RAMDISK ready to transmit."
  30. 700 BLOAD "tx16.asm",&H100
  31. 710 F$=DR$+":pix.wx"
  32. 720 PRINT:PRINT:INPUT"    Transmit how many lines (default=1200)";L
  33. 730 IF L=0 THEN L=1200:IF L>1200 THEN L=1200
  34. 740 M=INT(L/256):N=L-256*M
  35. 750 POKE &H1D9,M:POKE &H1D8,N
  36. 760 POKE &H172,26
  37. 770 LTB=INT(LT/256):LTA=LT-256*LTB:POKE &H2D4,LTA:POKE &H2D5,LTB
  38. 780 IF CO=2 THEN POKE &H241,2
  39. 790 IF TT=0 THEN POKE &H1DE,1
  40. 800 POKE &H295,SW
  41. 810 PRINT:PRINT:PRINT"       Hit G to start Transmitting"
  42. 820 POKE &H1A9,GT  'Gross line timer. Lower  for slow computers.
  43. 830 K=&H100:CALL K(F$)
  44. 840 PRINT:PRINT:PRINT:PRINT:PRINT"           PICTURE TRANSMITTED!"
  45. 850 END
  46. 1000  '                      SYSTEM CONFIGURATION
  47. 1010  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  48. 1020 LT=13500 'Line timing--Use same value as for receiving (WXPIX.BAS)
  49. 1030 GT=213   'Gross Timer--Same value as receiving-lower for slow computers
  50. 1040 CO=1     'CO=2 for COM2---CO=1 for COM1
  51. 1050 DR$="d"  'RAMDISK designation--replace letter d if different
  52. 1060 TT=1     'Tone tick--TT=0 is OFF--TT=1 is on
  53. 1070 SW=30    'Sync Window in microseconds
  54. 1080 GOTO 20
  55.