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