home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / VT.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  19KB  |  328 lines
  1. 10 CLEAR,32768!:KEY OFF:CLS
  2. 11 KEY 5,"888"+CHR$(13):KEY 10,"666"+CHR$(13):KEY 6,"333"+CHR$(13):KEY 9,"222"+CHR$(13)
  3. 13 COLOR 7,9,4
  4. 14 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  5. 15 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  6. 16 GOTO 2000
  7. 20 DEF SEG=&H6F00
  8. 30 BLOAD "vu64ba.asm",&H100
  9. 40 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"                  VIEW BEFORE TRANSMIT PROGRAM  (VT.BAS)"
  10. 45 PRINT"                       Copyright 1993 Ben Vester"
  11. 50 PRINT:PRINT"   This program views a picture before you Transmit it so you can decide if"
  12. 60 PRINT"it is the picture you wanted to send. When asked, you give it the MODE desired"
  13. 80 PRINT"and the PATH\FILE NAME configured in that MODE. The program loads the picture"
  14. 90 PRINT"on the screen and then loads it into the Transmit program. After these two"
  15. 100 PRINT"loadings, you have a choice of either hitting G to start transmitting or"
  16. 110 PRINT"if you decide to pick another picture, hit Q (for Quit) to return to a select-"
  17. 120 PRINT"ion screen). F9 will then re-RUN the program. Often the picture sent will"
  18. 121 PRINT"be discussed with the other station, so the program keeps the picture  on"
  19. 122 PRINT"even after it is sent. You can dump it and return to SELECT with Q(uit)."
  20. 123 PRINT"   Since the ColorFAX files are so large, they must be placed in the"
  21. 124 PRINT"RAMDRIVE before being transmitted, either as A.P or under their file"
  22. 125 PRINT"name with the .CFX suffix. The program assumes this has been done."
  23. 126 PRINT"   Compressed files can be loaded directly to be viewed and transmitted."
  24. 127 PRINT"Compressed Colorfax files are automatically placed in the RAMDISK if se-"
  25. 128 PRINT"lected. If the compressed files are collected in subdirectories named like"
  26. 129 PRINT"the mode names; ie, m1 files in c:\tv\m1, use choice 3 in the format question"
  27. 130 PRINT"below. Program can also be used to just View compressed files."
  28. 140 PRINT:PRINT:INPUT"Is file (1)Full Format (2)Compress Single (3)Compress/Mode Subdir (Default=1)";FO
  29. 141 IF FO=0 THEN FO=1
  30. 142 IF FO>3 THEN GOTO 140
  31. 143 PRINT:PRINT:INPUT"  What Drive\Path is file in (Default=Default D\P)";PA$
  32. 144 IF FO=2 AND FI=1 THEN GOTO 440
  33. 150 PRINT:PRINT"  MODE used for Pix: (1)or(11)36sec (2)or(22)72sec (3)Scot1 (4)Scot2 (5)AVT90"
  34. 151 PRINT"(6)AVT94 (7)Martin1 (77)Martin2 (8)Wraase96 (9)FAX B/W (96)ColorFAX (95)FAX480"
  35. 152 INPUT"------F5=BASIC-----F10=DOS-----F6=RECEIVE------";I
  36. 155 IF I=0 THEN GOTO 150
  37. 160 IF I=666 THEN COLOR 7,0,0:CLS:SYSTEM
  38. 161 IF I=333 THEN LOAD "rt.bas",R
  39. 162 IF I=888 THEN COLOR 7,0,0:CLS:PRINT:PRINT:PRINT"      F10 to DOS----F2 to ReRUN":KEY 10,"system"+CHR$(13):END
  40. 163 KEY 10,"system"+CHR$(13):GOTO 185
  41. 167 IF FO=1 AND FI=1 THEN GOTO 3500
  42. 168 IF FO=3 AND FI=1 THEN GOTO 430
  43. 169 IF FO=2 AND FI=1 THEN GOTO 182
  44. 170 PRINT:PRINT:INPUT"   What File Name-Program adds suffix (Default is D:A.P)";PIX$
  45. 171 IF PIX$="" THEN A$=DR$+":a.p":GOTO 236
  46. 182 IF I=96 AND FO=1 THEN A$=DR$+":"+PIX$+"."+MO$:GOTO 236
  47. 183 GOTO 234
  48. 185 IF I=2 THEN MO$="72":GOTO 200
  49. 186 IF I=22 THEN MO$="72a":GOTO 200
  50. 187 IF I=1 THEN MO$="36":GOTO 200
  51. 188 IF I=11 THEN MO$="36a":GOTO 200
  52. 190 IF I=3 THEN MO$="s1":GOTO 200
  53. 191 IF I=8 THEN MO$="96":GOTO 200
  54. 192 IF I=9 OR I=95 THEN MO$="fax":GOTO 200
  55. 193 IF I=4 THEN MO$="s2":GOTO 200
  56. 194 IF I=5 THEN MO$="90":GOTO 200
  57. 195 IF I=6 THEN MO$="94":GOTO 200
  58. 196 IF I=7 THEN MO$="m1":GOTO 200
  59. 197 IF I=77 THEN MO$="m2":GOTO 200
  60. 198 IF I=96 THEN MO$="cfx":GOTO 200
  61. 199 PRINT:PRINT:PRINT"       YOU PICKED A NON-EXISTENT MODE---TRY AGAIN":GOTO 150
  62. 200 GOTO 167
  63. 234 IF FO>1 THEN GOTO 530
  64. 235 A$=PA$+PIX$+"."+MO$
  65. 236 IF I=22 THEN GOTO 800
  66. 237 IF I=1 THEN GOTO 1100
  67. 238 IF I=11 THEN GOTO 1100
  68. 240 IF I=3 THEN L=288
  69. 241 IF I=2 THEN GOTO 800
  70. 245 IF I=96 THEN L=546:LL=1638:P=536:GOTO 1900
  71. 250 IF I=4 THEN L=184
  72. 260 IF I=5 THEN L=256
  73. 270 IF I=6 THEN L=320
  74. 280 IF I=7 THEN GOTO 740
  75. 282 IF I=77 THEN GOTO 740
  76. 285 IF I=8 THEN L=248
  77. 290 IF I=99 THEN PRINT:PRINT"         WEFAX TRANSMIT NOT SUPPORTED":GOTO 150
  78. 300 GOTO 602
  79. 430 IF PA$="" THEN PA$="c:\tv\":FILES PA$+MO$+"\*.*":GOTO 170
  80. 431 PA$=PA$+"\":GOTO 170
  81. 440 FILES PA$+"*.zip"
  82. 441 PRINT:PRINT:INPUT"  Which compressed pix file";PIX$
  83. 442 SHELL "pkv "+PA$+" "+PIX$
  84. 443 GOTO 150
  85. 530 IF FO=2 THEN SHELL "pkx "+PA$+" "+PIX$+" "+"."+MO$+" "+DR$+":"
  86. 535 IF FO=3 THEN PA$=PA$+MO$+"\":SHELL "pkx "+PA$+" "+PIX$+" "+"."+MO$+" "+DR$+":"+" "+MO$
  87. 540 A$=DR$+":"+PIX$+"."+MO$:GOTO 236
  88. 602 POKE &H226,2  'No. poked here=pixels scrolled per left arrow depression
  89. 605 POKE &H427,PT
  90. 607 IF I=9 OR I=95 THEN GOTO 900
  91. 610 P=L-PT:P2=INT(P/256):P1=P-P2*256
  92. 620 POKE &H15D,P1:POKE &H15E,P2:POKE &H45B,P1:POKE &H45C,P2
  93. 630 IF I=4 THEN POKE &H3EA,16:LL=568
  94. 635 IF I=5 THEN POKE &H3EA,0:LL=768
  95. 640 IF I=7 THEN POKE &H3EA,9:LL=915
  96. 641 IF I=77 THEN POKE &H3EA,8:LL=464
  97. 642 IF I=8 THEN POKE &H3EA,1:LL=745
  98. 645 IF I=6 THEN POKE &H3EA,0:LL=960
  99. 650 IF I=3 THEN POKE &H3EA,14:LL=878
  100. 651 IF EX=0 THEN GOTO 659
  101. 652     'next two lines put in expand by 2 for modes desired
  102. 653 IF I=4 THEN P=320:POKE &H43B,235:POKE &H43C,27:POKE &H15A,0:POKE &H15B,2
  103. 654 IF I=77 THEN P=2*P:POKE &H43B,235:POKE &H43C,27:POKE &H15A,0:POKE &H15B,2
  104. 659 OF=(640-2*P)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13B,OF1:POKE &H13C,OF2
  105. 660 LL2=INT(LL/256):LL1=LL-256*LL2:POKE &H1FD,LL1:POKE &H1FE,LL2:POKE &H242,LL1:POKE &H243,LL2
  106. 670 IF V=1 THEN GOTO 683
  107. 680 VC=0:PRINT:PRINT:PRINT"  Is Video Card (1)Trident mode 5D (2)Tseng mode 2E (3)ATI mode 62"
  108. 681 INPUT"(4)Paradise mode 5F (5)Chips&Tech mode 79 (6)Genoa mode 5C (7)VESA (Default=1)";VC
  109. 682 IF VC=0 THEN VC=1       'default choice
  110. 683 IF VC=1 THEN GOTO 1590
  111. 684 IF VC=2 THEN GOTO 710
  112. 685 IF VC=3 THEN GOTO 1600
  113. 686 IF VC=4 THEN GOTO 1650
  114. 690 IF VC=5 THEN GOTO 1700
  115. 700 IF VC=6 THEN GOTO 1750
  116. 701 IF VC=7 THEN GOTO 1800
  117. 705 GOTO 680
  118. 710 POKE &H113,46:POKE &H142,205:POKE &H144,136:POKE &H145,216:POKE &H146,238:POKE &H147,195
  119. 720 K=&H100:POKE &H1A3,144:POKE &H1A4,144:POKE &H1BA,235:POKE &H1BB,228 'exits VU with pix ON
  120. 721 IF I=99 THEN PRINT:PRINT:PRINT:PRINT"          Wefax Transmits only as a FAX480 file!":END
  121. 722 CALL K(S%,A$)
  122. 730 GOTO 3000
  123. 740 POKE &H180,128:POKE &H3DA,128:POKE &H3CB,64:POKE &H3BC,192
  124. 745 IF I=77 THEN L=152:GOTO 602
  125. 750 L=302:GOTO 602
  126. 800 L=282
  127. 801 BLOAD "vurobol.asm",&H100
  128. 802 POKE &H4BD,10:POKE &H350,10      'initial color offset in robot 72
  129. 810 PT=4     'pixels trimmed on Robot 72
  130. 815 POKE &H16A,(141-PT):POKE &H3D4,(141-PT)
  131. 816 POKE &H46A,(76+4*PT)
  132. 817 POKE &H4D5,(75+4*PT)
  133. 825 POKE &H337,TU:POKE &H33F,TU:POKE &H2D7,TU:POKE &H2DF,TU
  134. 835 IF BR=0 THEN POKE &H4EC,208:POKE &H4ED,232:POKE &H4EE,235:POKE &H4EF,4
  135. 840 IF BR=2 THEN POKE &H4EC,235:POKE &H4ED,6
  136. 850 OF=(640-2*L)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13B,OF1:POKE &H13C,OF2
  137. 860 POKE &H226,2:POKE &H1FD,102:POKE &H1FE,2:POKE &H242,102:POKE &H243,2:POKE &H15D,102
  138. 861 IF I=2 THEN GOTO 870
  139. 862 POKE &H1FD,85:POKE &H242,85:POKE &H15D,85
  140. 870 GOTO 670
  141. 900 POKE &H15D,24:POKE &H15E,2:POKE &H184,235:POKE &H185,1:POKE &H180,0:POKE &H3A8,235:POKE &H3A9,57
  142. 910 POKE &H3EA,10:POKE &H3A2,224:POKE &H3A3,1:POKE &H13B,52:POKE &H13C,0:POKE &H16A,128:POKE &H16B,2
  143. 920 LL=546:GOTO 660
  144. 950 PRINT:PRINT:PRINT:INPUT"   Do you choose (1)1024x768 or (2)640x480 (Default=1)";S
  145. 960 IF S=0 THEN S=1
  146. 970 BLOAD "vuwx.asm",&H100
  147. 980 IF S=2 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1:POKE &H113,93
  148. 981 PRINT:PRINT:INPUT"   What White level count do you choose (Default=138)";W
  149. 982 IF W=0 THEN W=138
  150. 985 POKE &H170,W:POKE &H174,W:POKE &H176,W
  151. 990 GOTO 680
  152. 1100 BLOAD "vuro36l.asm",&H100
  153. 1102 IF BR=0 THEN POKE &H4EC,208:POKE &H4ED,232:POKE &H4EE,235:POKE &H4EF,4
  154. 1103 IF BR=2 THEN POKE &H4EC,235:POKE &H4ED,6
  155. 1104 POKE &H4BD,8:POKE &H350,8      'initial color offset in robot 36
  156. 1110 LL=616:POKE &H13B,140:POKE &H226,1:POKE &H15D,100:POKE &H1F2,12
  157. 1120 IF I=11 THEN LL=576:POKE &H15D,64:POKE &H3BB,64:POKE &H3EF,0:POKE &H4A8,0:POKE &H441,0:POKE &H2F6,32:POKE &H303,32
  158. 1130 GOTO 660
  159. 1590 IF I=6 THEN POKE &H113,&H5C
  160. 1595 GOTO 720
  161. 1600 POKE &H113,&H62:POKE &H444,192:POKE 321,235:POKE 322,90  'ATI video mode 62
  162. 1610 POKE 324,136:POKE 325,196
  163. 1615 POKE 326,128:POKE 327,228:POKE 328,225:POKE 329,208:POKE 330,227:POKE 331,8
  164. 1620 POKE 332,220:POKE 333,176:POKE 334,178:POKE 335,254:POKE 336,202:POKE 337,239:POKE 338,195
  165. 1630 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1:POKE 321,233:POKE 322,66:POKE 323,4:POKE &H58A,192
  166. 1635 IF I=6 THEN POKE &H113,&H61
  167. 1640 GOTO 720
  168. 1650 POKE &H113,&H5F:POKE 321,186:POKE 322,206          'Paradise video mode 5f
  169. 1660 POKE 323,3:POKE 324,176:POKE 325,9:POKE 326,136:POKE 327,220:POKE 328,208
  170. 1665 POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,208:POKE 333,228:POKE 334,208:POKE 335,228
  171. 1670 POKE 336,239:POKE 337,195
  172. 1680 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  173. 1685 IF I=6 THEN POKE &H113,&H5E
  174. 1690 GOTO 720
  175. 1700 POKE &H113,&H79:POKE 321,186:POKE 322,214            'Chips & Tech Mode 79
  176. 1710 POKE 323,3:POKE 324,176:POKE 325,16:POKE 326,136:POKE 327,220:POKE 328,208
  177. 1715 POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,239:POKE 333,195
  178. 1730 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  179. 1735 IF I=6 THEN POKE &H113,&H78
  180. 1740 GOTO 720
  181. 1750 POKE &H113,&H5C:POKE 321,186:POKE 322,196                   'Genoa mode 5c
  182. 1760 POKE 323,3:POKE 324,176:POKE 325,6:POKE 326,238:POKE 327,66:POKE 328,236
  183. 1765 POKE 329,36:POKE 330,199:POKE 331,128:POKE 332,227:POKE 333,7:POKE 334,208
  184. 1770 POKE 335,227:POKE 336,208:POKE 337,227:POKE 338,208:POKE 339,227:POKE 340,8
  185. 1780 POKE 341,216:POKE 342,238:POKE 343,195
  186. 1785 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  187. 1787 IF I=6 THEN POKE &H113,&H7E
  188. 1790 GOTO 720
  189. 1800 POKE &H111,79:POKE &H113,2:POKE 321,177                   'VESA mode 101
  190. 1810 POKE 322,BS:POKE 323,210:POKE 324,227:POKE 325,136:POKE 326,218
  191. 1820 POKE 327,48:POKE 328,246:POKE 329,184:POKE 330,5:POKE 331,79:POKE 332,49:POKE 333,219:POKE 334,205
  192. 1821 POKE 335,16:POKE 336,195
  193. 1825 IF S=1 THEN POKE &H44A,5:GOTO 1840
  194. 1830 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  195. 1835 'IF I=6 THEN POKE &H398,0
  196. 1840 GOTO 720
  197. 1900 BLOAD "trusho.asm",&H100
  198. 1905 P2=INT(P/256):P1=P-256*P2:POKE &H3B0,P1:POKE &H3B1,P2:POKE &H46B,P1:POKE &H46C,P2
  199. 1910 OF=3*(640-P)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13C,OF1:POKE &H13D,OF2:POKE &H512,OF1:POKE &H513,OF2
  200. 1915 Z=2*L:ZB=INT(Z/256):ZA=Z-256*ZB:POKE &H3CA,ZA:POKE &H3CB,ZB
  201. 1920 W=2*L+32:WB=INT(W/256):WA=W-256*WB:POKE &H3A9,WA:POKE &H3AA,WB:POKE &H3E5,WA:POKE &H3E6,WB
  202. 1925 LB=INT(L/256):LA=L-256*LB:POKE &H3BC,LA:POKE &H3BD,LB:POKE &H3C3,LA:POKE &H3C4,LB
  203. 1930 U=3*L:UB=INT(U/256):UA=U-256*UB:POKE &H55F,UA:POKE &H560,UB:POKE &H531,UA:POKE &H532,UB
  204. 1935 POKE &H427,10:POKE &H226,2  'poke to &h226 is pixels per left arrow depress
  205. 1940 LL2=INT(LL/256):LL1=LL-256*LL2:POKE &H1FD,LL1:POKE &H1FE,LL2:POKE &H242,LL1:POKE &H243,LL2:POKE &H15D,LL1:POKE &H15E,LL2
  206. 1945 Q=BL-3*P:QB=INT(Q/256):QA=Q-256*QB:POKE &H3D6,QA:POKE &H3D7,QB
  207. 1950 POKE &H39A,233:POKE &H39B,107:POKE &H39C,253:POKE &H11A,0:POKE &H11B,0:POKE &H2B8,235:POKE &H2B9,6:POKE &H3AC,1:POKE &H3B4,1
  208. 1951 POKE &H3A2,224:POKE &H3A3,1
  209. 1955 GOTO 1800
  210. 2000    '                   SYSTEM CONFIGURATION
  211. 2010    'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  212. 2020 V=1     'V=0 is manual video card choice---V=1 is automatic choice
  213. 2030 VC=7    'Video card 1=Trident 2=Tseng 3=ATI 4=Paradise 5=Chips 6=Genoa
  214. 2040         '7=VESA (VESA card or VESA driver.Pick BS below to get full pix).
  215. 2045 BS=4    'Bank Shift for different VESA configurations-values from 0 to 6
  216. 2046 BL=2048 'Bytes/Line in TRUCOLOR modes--ATI=1920 and Diamond PRO=2048
  217. 2050 DR$="d" 'RAMDISK drive designation--make letter D match your drive
  218. 2060 BR=2    'Robot brightness control-br=2 is high-br=1 is med-br=0 is low
  219. 2070 TU=2    'Robot tuning increment with F and G in ten's of cycles
  220. 2080 PT=6    'Pixels trimmed from edge of picture--see line 810 for Robot
  221. 2090 EX=1    'For S2 and M2. EX=0 is as rcvd. EX=1 is EXpanded to fill screen
  222. 2092 FI=1    'FI=0--File list not displayed:FI=1--List displayed every time
  223. 2100 GOTO 20
  224. 3000 GOTO 4000
  225. 3010 DEF SEG=&H4F00:BLOAD "tx64gf.asm",&H100
  226. 3011 HFB=INT(HF/256):HFA=HF-256*HFB:POKE &H2E9,HFA:POKE &H2EA,HFB:POKE &H1FE,HFA:POKE &H1FF,HFB
  227. 3012 IF TE=1 THEN POKE &H49A,2:POKE &H552,137:POKE &H553,253
  228. 3013 IF TE=2 THEN POKE &H49A,2
  229. 3014 POKE &H3FD,4:POKE &H401,237 'affects space between initial VIS and pix bytes
  230. 3015 POKE &H46D,136:POKE &H464,204  'vary &h464 poke to tune fax480 244 cps-increase by 1 =decr by 0.6 cps (put result in line 2075 in RT.BAS)
  231. 3020 IF I=1 THEN LL=306:LT=LT1:LD=282:L=90:EA=24:SC=24:POKE &H1D8,240:POKE &H3A5,17:GOTO 3170
  232. 3030 IF I=2 THEN LL=614:LT=LT2:L=282:LD=589:EA=25:SC=24:POKE &H1D8,240:POKE &H3A5,48:GOTO 3170
  233. 3040 IF I=3 THEN LL=878:LT=LT3:L=288:EA=14:SC=14:POKE &H3A5,60:POKE &H523,96:POKE &H510,3:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H52B,227:GOTO 3180
  234. 3050 IF I=4 THEN LL=568:LT=LT4:L=184:EA=16:SC=15:POKE &H3A5,29:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H523,41:POKE &H510,2:POKE &H52B,227:GOTO 3180
  235. 3060 IF I=5 THEN LL=768:LT=LT5:SC=21:POKE &H30F,235:POKE &H1D8,255:POKE &H3F8,0:POKE &H3A5,34:POKE &H529,63:GOTO 3150
  236. 3070 IF I=7 THEN LL=915:LT=LT7:L=302:EA=9:SC=8:POKE &H3A5,53:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H564,12:GOTO 3180
  237. 3080 IF I=6 THEN LL=960:LT=LT6:L=320:SC=21:POKE &H30F,235:POKE &H1D8,211:POKE &H3A5,18:POKE &H3F8,0:POKE &H529,63:GOTO 3150
  238. 3090 IF I=22 THEN LL=614:LT=LT2:L=282:LD=589:EA=8:SC=23:POKE &H1D8,240:POKE &H3A5,48:GOTO 3170
  239. 3100 IF I=11 THEN LL=306:LT=LT1:LD=282:L=90:EA=6:SC=24:POKE &H1D8,240:POKE &H3A5,17:GOTO 3170
  240. 3105 IF I=9 THEN LL=546:LT=LT9:LD=536:L=178:EA=10:SC=9:POKE &H1D8,224:POKE &H1D9,1:POKE &H3A5,170:POKE &H564,12:GOTO 3170
  241. 3110 IF I=95 THEN LL=546:LT=LT9:LD=536:L=178:EA=10:SC=9:POKE &H1D8,224:POKE &H1D9,1:POKE &H172,232:POKE &H564,12:GOTO 3170
  242. 3115 IF I=96 THEN LL=546:LT=LT9:GT=GT96:LD=536:L=178:EA=10:SC=7:POKE &H1D8,160:POKE &H1D9,5:POKE &H564,12:POKE &H315,235:POKE &H316,15:GOTO 3140
  243. 3120 IF I=8 THEN LL=745:LT=LT8:L=248:EA=1:SC=1:POKE &H3A5,57:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H564,12:POKE &H523,233:POKE &H510,2:POKE &H52B,227:GOTO 3180
  244. 3130 IF I=77 THEN LL=464:LT=LT77:L=152:EA=8:SC=8:POKE &H3A5,20:POKE &H373,233:POKE &H374,39:POKE &H375,1:POKE &H564,12:GOTO 3180
  245. 3140 POKE &H30C,233:POKE &H30D,253:POKE &H30E,0:POKE &H44A,82:POKE &H44B,253:POKE &H3A5,106:POKE &H3F8,47:GOTO 3170
  246. 3150 LB=INT(LL/256):LA=LL-256*LB:LD=INT((LL-5)/256):LC=LL-5-256*LD
  247. 3151 POKE &H216,212:POKE &H217,2:POKE &H375,147:POKE &H376,1
  248. 3152 IF I=6 THEN BLOAD "avt94.asm",&H5D0
  249. 3153 IF I=5 THEN BLOAD "avt90.asm",&H5D0
  250. 3160 POKE &H1E8,LA:POKE &H1E9,LB:GOTO 3270
  251. 3170 LB=INT(LD/256):LA=LD-256*LB:GOTO 3190
  252. 3180 LB=INT(3*L/256):LA=3*L-256*LB:RB=INT((LL+4)/256):RA=LL+4-256*RB:POKE &H216,RA:POKE &H217,RB
  253. 3190 POKE &H1E8,LA:POKE &H1E9,LB
  254. 3200 L3B=INT((L-3)/256):L3A=L-3-256*L3B:POKE &H4C4,L3A:POKE &H4C5,L3B
  255. 3210 LLB=INT(LL/256):LLA=LL-256*LLB:POKE &H4D2,LLA:POKE &H4D3,LLB
  256. 3220 LL4=INT((4*LL)/256):LL5=4*LL-256*LL4:POKE &H4E0,LL5:POKE &H4E1,LL4
  257. 3230 LRB=INT ((LL-40)/256):LRA=LL-40-256*LRB:POKE &H504,LRA:POKE &H505,LRB
  258. 3240 FOR K=&H5AA TO &H5CC
  259. 3250 READ Q:POKE K,Q
  260. 3260 NEXT K
  261. 3270 LTB=INT(LT/256):LTA=LT-256*LTB
  262. 3280 POKE &H32A,LTA:POKE &H32B,LTB
  263. 3290 IF I=9 THEN POKE &H454,LTA:POKE &H455,LTB
  264. 3300 IF CO=2 THEN POKE &H2F7,2:POKE &H241,2
  265. 3310 POKE &H295,SW         'SW is sync window
  266. 3320 POKE &H3C6,71   'pixel delay from end of VIS to pix. Affects initial offset
  267. 3330                 'of pix txmit on all but AVT modes.
  268. 3340 POKE &H4EA,5:POKE &H55C,4
  269. 3350 POKE &H317,EA:POKE &H31A,EA:POKE &H310,SC 'EA=discarded bytes-SC=synch cycles
  270. 3360 IF TI=2 THEN POKE &H1DE,1
  271. 3370 POKE &H1A9,GT
  272. 3380 K=&H100:CALL K(A$)
  273. 3390 BLOAD "pixoff.asm",&H100
  274. 3395 K=&H100:CALL K
  275. 3396 IF FO>1 THEN SHELL "de "+DR$+":"+" "+PIX$+" "+"."+MO$
  276. 3400 CLS
  277. 3402 PRINT:PRINT:PRINT:INPUT"   Your choices: F5=BASIC---F10=DOS---F6=RECEIVE---F9=TRANSMIT (Default=F6)";TR$
  278. 3403 IF TR$="" THEN TR$="333"
  279. 3405 IF TR$="222" THEN LOAD "vt.bas",R
  280. 3410 IF TR$="333" THEN LOAD "rt.bas",R
  281. 3412 IF TR$="888" THEN COLOR 7,0,0:GOTO 3420
  282. 3413 IF TR$="system" THEN COLOR 7,0,0:CLS:SYSTEM
  283. 3415 GOTO 3402
  284. 3420 KEY 10,"system"+CHR$(13):CLS:PRINT:PRINT:PRINT"     F10 to DOS----F2 to ReRUN":KEY 9,"files"+CHR$(34):END
  285. 3430 DATA &h11,&h38,&hf0,&he0,&h00:REM Call sign array-5 bytes/line=40 pixels
  286. 3440 DATA &h12,&h04,&h89,&h10,&h00:REM Array is 40 pixels wide and 7 pixels high
  287. 3450 DATA &h14,&h04,&h89,&h00,&h00:REM These DATA write out K3BC. If you take
  288. 3460 DATA &h18,&h18,&hf1,&h00,&h00:REM Each byte and write it out in binary form
  289. 3470 DATA &h14,&h04,&h89,&h00,&h00:REM on a 40x7 cross-ruled paper,you can see
  290. 3480 DATA &h12,&h04,&h89,&h10,&h00:REM the pattern. For example: &H11=00010001
  291. 3490 DATA &h11,&h38,&hf0,&he0,&h00:REM &h73=01110011; and &hCE=11001110
  292. 3500 IF I=1 THEN FILES PA$+"*.36"
  293. 3501 IF I=11 THEN FILES PA$+"*.36a"
  294. 3502 IF I=2 THEN FILES PA$+"*.72"
  295. 3503 IF I=22 THEN FILES PA$+"*.72a"
  296. 3504 IF I=3 THEN FILES PA$+"*.s1"
  297. 3505 IF I=4 THEN FILES PA$+"*.s2"
  298. 3506 IF I=5 THEN FILES PA$+"*.90"
  299. 3507 IF I=6 THEN FILES PA$+"*.94"
  300. 3508 IF I=7 THEN FILES PA$+"*.m1"
  301. 3509 IF I=77 THEN FILES PA$+"*.m2"
  302. 3510 IF I=8 THEN FILES PA$+"*.96"
  303. 3511 IF I=9 OR I=95 THEN FILES PA$+"*.fax"
  304. 3512 IF I=96 THEN FILES PA$+"*.cfx"
  305. 3513 GOTO 170
  306. 4000  '                  SYSTEM CONFIGURATION-Transmit Program
  307. 4010  '    xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  308. 4020 LT1=30270    'Line timing for different Modes-same as receive
  309. 4030 LT2=60540!
  310. 4040 LT3=38825!
  311. 4050 LT4=7294
  312. 4060 LT99=13500
  313. 4070 LT7=16795!
  314. 4080 LT77=16930
  315. 4090 LT5=42890!
  316. 4100 LT9=47959!   'Used for both mode 9 and mode 96
  317. 4110 LT6=4487
  318. 4120 LT8=15860
  319. 4130 GT=138       'Gross Timer-use same number as worked on receive program
  320. 4135 GT96=137
  321. 4140 CO=1         'CO=1 connects COM1---CO=2 connects COM2
  322. 4150 DR$="d"      'Ramdisk drive designation-change letter between quotes
  323. 4160 TI=1         'Tone tick    TI=1 is ON     TI=2 is OFF
  324. 4170 SW=25        'Sync Window in microseconds--may need larger for slower PC's
  325. 4171 HF=2100      'Header Frequency adj-see TVINFO.TXT--default=2138
  326. 4173 TE=0         '0=TRANSMIT:1=test 1200 cps:2=test 1900 cps:see TVINFO.TXT
  327. 4180 GOTO 3010
  328.