home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / TRUSHO.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  13KB  |  235 lines
  1. 10 CLEAR,32768!:KEY OFF:CLS
  2. 20 X$="system"+CHR$(13):KEY 10,X$
  3. 30 X$="files"+CHR$(34):KEY 9,X$
  4. 40 COLOR 7,9,4
  5. 50 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  6. 60 PLAY "o3 l18 ff#gag l4 a"
  7. 70 GOTO 2000
  8. 80 DEF SEG=&H4F00
  9. 90 BLOAD "c:\dos\trushoc.asm",&H100
  10. 100 D=INT(18.2*DL):DB=INT(D/256):DA=D-256*DB
  11. 110 POKE &H4A9,DA:POKE &H4AA,DB
  12. 120 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"                     TRUE COLOR SLIDE-SHOW VIEWING"
  13. 130 PRINT:PRINT"   This program is for viewing SSTV pictures in sequence that were captured"
  14. 140 PRINT"with the K3BC SSTV  program and reduced to a picture file stored in floppies,"
  15. 150 PRINT"or on a RAMDISK or on the main Hard-disk as a full color picture file with"
  16. 160 PRINT"a MODE suffix attached. Pick MODE for the pix's you want to view and then"
  17. 170 PRINT"add any file name constraint (for example, pick Mode 3 and name constraint BE;"
  18. 180 PRINT"program views all files named BE*.S1). All keyboard commands (scroll,etc.) are"
  19. 190 PRINT"the same as the single pix viewing program, except N(ext) is added to sequence"
  20. 200 PRINT"to the next file in the directory. Or if you prefer, hit A for A(utomatic)"
  21. 210 PRINT"and the files will be presented for viewing in an automatic sequence. The"
  22. 220 PRINT"time delay between slides, DL, can be set in the SYSTEM CONFIGURATION in line"
  23. 230 PRINT"2050. You can see one pix at a time or sequence the pictures  to see four  at"
  24. 240 PRINT"a time. When in Automatic you can hit S(top) to pause and G(o) to restart."
  25. 250 PRINT"You can view any desired individual picture  with this program by giving "
  26. 260 PRINT"the full Filename as constraint . Q(uit) returns to BASIC and then key F10"
  27. 270 PRINT"followed by ENTER to return to DOS, or F2 to view other pix's."
  28. 271 PRINT"   When viewing pix captured in the Automatic/Save mode, you can also scroll"
  29. 272 PRINT"any picture you want to save, hit Q to exit the screen, and follow the in-"
  30. 273 PRINT"structions to Save the pix in either regular or compressed formats."
  31. 280 PRINT:PRINT:PRINT"   What MODE used for Pix:  (3)Scottie 1 (4)Scottie 2 (5)AVT90 (6)AVT94"
  32. 290 INPUT"(66)AVT188 (7)Martin1 (77)Martin2 (8)Wraase96 (96)ColorFAX  ";I
  33. 300 IF I=0 THEN GOTO 280
  34. 310 PRINT:PRINT:INPUT"   What File Name Constraints (default=none)";A$
  35. 320 IF I=3 THEN A$=A$+"*.s1":GOTO 410
  36. 330 IF I=8 THEN A$=A$+"*.96":GOTO 410
  37. 340 IF I=4 THEN A$=A$+"*.s2":GOTO 410
  38. 350 IF I=5 THEN A$=A$+"*.90":GOTO 410
  39. 360 IF I=6 THEN A$=A$+"*.94":GOTO 410
  40. 370 IF I=7 THEN A$=A$+"*.m1":GOTO 410
  41. 380 IF I=77 THEN A$=A$+"*.m2":GOTO 410
  42. 390 IF I=66 THEN A$=A$+"*.188":I=6:GOTO 410
  43. 395 IF I=96 THEN A$=A$+"*.cfx":GOTO 410
  44. 400 GOTO 280
  45. 410 IF I=3 THEN L=288
  46. 420 IF I=4 THEN L=184
  47. 430 IF I=5 THEN L=256
  48. 440 IF I=6 THEN L=320
  49. 450 IF I=7 THEN GOTO 970
  50. 460 IF I=77 THEN GOTO 970
  51. 470 IF I=8 THEN L=248
  52. 475 IF I=96 THEN L=546:LL=1638:PT=20:POKE &H3AC,1:POKE &H3B4,1:POKE &H3A2,224:POKE &H3A3,1
  53. 480 U=3*L:UB=INT(U/256):UA=U-256*UB:POKE &H55F,UA:POKE &H560,UB:POKE &H531,UA:POKE &H532,UB
  54. 490 POKE &H226,2  'No. poked here=pixels scrolled per left arrow depression
  55. 500 POKE &H427,PT
  56. 501 FOR C=&HF50 TO &HFA0
  57. 502 POKE C,0:NEXT C
  58. 503 IF I=8 THEN PT=15
  59. 504 P=L-PT
  60. 510 P2=INT(P/256):P1=P-P2*256
  61. 520 POKE &H3B0,P1:POKE &H3B1,P2:POKE &H46B,P1:POKE &H46C,P2:POKE &H5CF,P1:POKE &H5D0,P2:POKE &H601,P1:POKE &H602,P2
  62. 530 LB=INT(L/256):LA=L-256*LB:POKE &H3BC,LA:POKE &H3BD,LB:POKE &H3C3,LA:POKE &H3C4,LB:POKE &H5BB,LA:POKE &H5BC,LB:POKE &H5C2,LA:POKE &H5C3,LB
  63. 535 IF I=96 THEN Q=BL-3*P:GOTO 550
  64. 540 Q=BL-6*P
  65. 550 Z=2*L:ZB=INT(Z/256):ZA=Z-256*ZB:POKE &H3CA,ZA:POKE &H3CB,ZB:POKE &H5C9,ZA:POKE &H5CA,ZB
  66. 560 W=2*L+32:WB=INT(W/256):WA=W-256*WB:POKE &H3A9,WA:POKE &H3AA,WB:POKE &H3E5,WA:POKE &H3E6,WB:POKE &H5FE,WA:POKE &H5FF,WB:POKE &H6B2,WA:POKE &H6B3,WB
  67. 570 IF I=7 THEN GOTO 600
  68. 580 IF I=77 THEN GOTO 600
  69. 590 GOTO 630
  70. 600 WM=L+32:WMB=INT(WM/256):WMA=WM-256*WMB:POKE &H3A9,WMA:POKE &H3AA,WMB:POKE &H3E5,WMA:POKE &H3E6,WMB:POKE &H5FE,WMA:POKE &H5FF,WMB:POKE &H6B2,WMA:POKE &H6B3,WMB
  71. 610 X=2*L:XB=INT(X/256):XA=X-256*XB:POKE &H3C3,XA:POKE &H3C4,XB:POKE &H3C2,199:POKE &H5C2,XA:POKE &H5C3,XB:POKE &H5C1,199
  72. 620 POKE &H3CA,LA:POKE &H3CB,LB:POKE &H3C9,239:POKE &H5C9,LA:POKE &H5CA,LB:POKE &H5C8,239
  73. 630 IF I=4 THEN LL=568
  74. 640 IF I=5 THEN LL=768
  75. 650 IF I=7 THEN LL=915
  76. 660 IF I=77 THEN LL=464
  77. 670 IF I=8 THEN LL=745
  78. 680 IF I=6 THEN LL=960
  79. 690 IF I=3 THEN LL=878
  80. 695 IF I=96 THEN OF=3*(640-P)/2:GOTO 700
  81. 696 OF=3*(640-2*P)/2
  82. 700 OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13C,OF1:POKE &H13D,OF2:POKE &H512,OF1:POKE &H513,OF2
  83. 705 LY=LL+1:LYB=INT(LY/256):LYA=LY-256*LYB:POKE &H697,LYA:POKE &H698,LYB
  84. 706 LZ=2*LL:LZB=INT(LZ/256):LZA=LZ-256*LZB
  85. 710 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
  86. 711 POKE &H638,LL1:POKE &H639,LL2:POKE &H5AC,LL1:POKE &H5AD,LL2
  87. 715 IF I=96 THEN GOTO 760
  88. 720 PRINT:PRINT:INPUT"   Do you want: (1)One pix per frame (2)Four pix per frame (Default=1)";FR
  89. 730 IF FR=0 THEN FR=1
  90. 740 IF FR=1 THEN POKE &H3AB,233:POKE &H3AC,32:POKE &H3AD,2:POKE &H15D,LZA:POKE &H15E,LZB:GOTO 760
  91. 750 POKE &H2F1,33:POKE &H2F2,2:POKE &H3AC,1:POKE &H3B4,1:Q=BL-3*P
  92. 760 IF EX=0 OR EX=2 THEN GOTO 810
  93. 770 IF FR>1 THEN GOTO 810
  94. 780   'next two lines expand S2 and M2 modes by 4 horizontally
  95. 790 IF I=4 THEN P=160:Q=BL-12*P:POKE &H5CF,P:POKE &H5D0,0:POKE &H601,P:POKE &H13C,0:POKE &H13D,0:POKE &H602,0:POKE &H5D3,2:POKE &H605,2
  96. 800 IF I=77 THEN Q=BL-12*P:POKE &H3B4,4:POKE &H13C,102:POKE &H13D,0:POKE &H512,102:POKE &H513,0:POKE &H5D3,2:POKE &H605,2
  97. 810 IF V=1 THEN GOTO 850
  98. 820 VC=0:PRINT:PRINT:PRINT"  Is Video Card (1)Trident mode 5D (2)Tseng mode 2E (3)ATI mode 62"
  99. 830 INPUT"(4)Paradise 5F (5)Chips&Tech mode 79 (6)Genoa mode 5C (7)VESA (Default=7)";VC
  100. 840 IF VC=0 THEN VC=7       'default choice
  101. 850 IF VC=1 THEN GOTO 1240
  102. 860 IF VC=2 THEN GOTO 930
  103. 870 IF VC=3 THEN GOTO 1600
  104. 880 IF VC=4 THEN GOTO 1670
  105. 890 IF VC=5 THEN GOTO 1740
  106. 895 IF VC=6 THEN GOTO 1800
  107. 900 IF VC=7 THEN GOTO 1880
  108. 901 GOTO 820
  109. 930 POKE &H113,46:POKE &H142,205:POKE &H144,136:POKE &H145,216:POKE &H146,238:POKE &H147,195
  110. 940 QB=INT(Q/256):QA=Q-256*QB:POKE &H3D6,QA:POKE &H3D7,QB:POKE &H5F1,QA:POKE &H5F2,QB:POKE &H6A5,QA:POKE &H6A6,QB
  111. 945 IF EX=2 AND I=4 THEN POKE &H600,235:POKE &H601,35
  112. 946 IF EX=2 AND I=77 THEN POKE &H600,235:POKE &H601,35
  113. 950 K=&H100:CALL K(S%,A$)
  114. 955 GOTO 1250
  115. 960 KEY ON:PRINT:PRINT:PRINT"      Hit F2 to Re-run program. Hit F10 to goto DOS.":COLOR 7,0,0:KEY 10,"system"+CHR$(13):END
  116. 970 POKE &H2D7,1:POKE &H341,2:POKE &H66C,1:POKE &H4D7,1:POKE &H4F3,2:POKE &H65D,1
  117. 980 IF I=77 THEN L=152:GOTO 480
  118. 990 L=302:GOTO 480
  119. 1000 L=282
  120. 1010 BLOAD "vuroboh.asm",&H100
  121. 1020 PRINT:PRINT:INPUT"   What white level count do you select (Default=138)";W
  122. 1030 IF W=0 THEN W=138
  123. 1040 POKE &H17D,W:POKE &H181,W:POKE &H183,W
  124. 1050 POKE &H337,1:POKE &H2D7,1   'No. poked is increment for fine tune with F&G
  125. 1060 OF=(640-2*L)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13B,OF1:POKE &H13C,OF2
  126. 1070 POKE &H226,2:POKE &H1FD,103:POKE &H1FE,2:POKE &H242,103:POKE &H243,2
  127. 1080 IF I=2 THEN GOTO 1100
  128. 1090 POKE &H1FD,85:POKE &H242,85:POKE &H44D,85:POKE &H452,85
  129. 1100 GOTO 820
  130. 1110 POKE &H15D,24:POKE &H15E,2:POKE &H184,235:POKE &H185,1:POKE &H180,0:POKE &H3A8,235:POKE &H3A9,57
  131. 1120 POKE &H3EA,10:POKE &H3A2,224:POKE &H3A3,1:POKE &H13B,52:POKE &H13C,0:POKE &H16A,128:POKE &H16B,2
  132. 1130 LL=546:GOTO 710
  133. 1140 PRINT:PRINT:PRINT:INPUT"   Do you choose (1)1024x768 or (2)640x480 (Default=1)";S
  134. 1150 IF S=0 THEN S=1
  135. 1160 BLOAD "vuwx.asm",&H100
  136. 1170 IF S=2 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1:POKE &H113,93
  137. 1180 POKE &H170,W:POKE &H174,W:POKE &H176,W
  138. 1190 GOTO 820
  139. 1200 BLOAD "vuro36b.asm",&H100
  140. 1210 LL=308:POKE &H13B,140:POKE &H3D3,26:POKE &H226,2
  141. 1220 IF I=11 THEN LL=288:POKE &H3D3,6
  142. 1230 GOTO 710
  143. 1240 IF I=6 THEN POKE &H113,&H5C
  144. 1245 GOTO 940
  145. 1250 PRINT:PRINT:INPUT"   Do you want to save last picture-y or n (Default=n)";P$
  146. 1251 IF P$="" THEN P$="n"
  147. 1252 IF P$="n" THEN GOTO 960
  148. 1253 IF P$="y" THEN GOTO 1255
  149. 1254 GOTO 1250
  150. 1255 FOR Y=&HF6E TO &HF7A
  151. 1256 A=PEEK(Y)
  152. 1257 IF A=0 THEN GOTO 1260
  153. 1258 A$=CHR$(A)
  154. 1259 OF$=OF$+A$:NEXT Y
  155. 1260 PRINT:PRINT:PRINT OF$:PRINT:PRINT:INPUT"   Save it in compressed format--y or n (Default=n)";F$
  156. 1261 IF F$="" THEN F$="n"
  157. 1262 IF F$="n" THEN GOTO 1270
  158. 1263 IF F$="y" THEN GOTO 1270
  159. 1264 GOTO 1260
  160. 1270 DEF SEG=&H4F00
  161. 1280 BLOAD "c:\dos\savepix.asm",&H100
  162. 1300 PI=512:PO=512:K%=0:L%=0
  163. 1310 POKE &H192,LL1:POKE &H193,LL2:POKE &H1B9,LL1:POKE &H1BA,LL2
  164. 1320 BY=3*L-1:BYB=INT(BY/256):BYA=BY-256*BYB:POKE &H20D,BYA:POKE &H20E,BYB
  165. 1330 IF S%<0 THEN S!=65536!+S% ELSE S!=S%
  166. 1340 S2=INT(S!/256):S1=S!-256*S2:POKE &H163,S1:POKE &H164,S2
  167. 1360 PRINT:PRINT:PRINT"   The program will add an appropiate Mode suffix."
  168. 1370 PRINT:INPUT"       What Name  for Picture (Default is DO NOT SAVE)";PIX$
  169. 1380 IF PIX$="" THEN GOTO 960
  170. 1390 IF I=3 THEN MO$=".s1":LE%=410
  171. 1400 IF I=4 THEN MO$=".s2":LE%=300
  172. 1410 IF I=5 THEN MO$=".90":LE%=360
  173. 1420 IF I=66 THEN MO$=".188":LE%=640
  174. 1430 IF I=6 THEN MO$=".94":LE%=450
  175. 1440 IF I=9 THEN MO$=".fax":LE%=480
  176. 1450 IF I=96 THEN MO$=".cfx":LE%=1440
  177. 1460 IF I=7 THEN MO$=".m1":LE%=420
  178. 1470 IF I=77 THEN MO$=".m2":LE%=300
  179. 1480 IF I=8 THEN MO$=".96":LE%=300
  180. 1490 L2=INT(LE%/256):L1=LE%-256*L2:POKE &H18B,L1:POKE &H18C,L2
  181. 1500 NF$=PIX$+MO$
  182. 1505 IF F$="y" THEN NF$=DR$+NF$
  183. 1510 K=&H100:CALL K(K%,L%,OF$,NF$)
  184. 1520 IF F$="n" THEN GOTO 960
  185. 1522 IF F$="y"THEN PRINT:PRINT:INPUT"   What path/directory for compressed file";X$:GOTO 1524
  186. 1523 GOTO 1522
  187. 1524 SHELL "pk "+X$+" "+DR$+" "+PIX$+" "+MO$
  188. 1525 GOTO 960
  189. 1600 POKE &H113,&H62:POKE &H444,192:POKE 321,235:POKE 322,90               'ATI video mode 62
  190. 1610 POKE 324,136:POKE 325,196
  191. 1620 POKE 326,128:POKE 327,228:POKE 328,225:POKE 329,208:POKE 330,227:POKE 331,8
  192. 1630 POKE 332,220:POKE 333,176:POKE 334,178:POKE 335,254:POKE 336,202:POKE 337,239:POKE 338,195
  193. 1640 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
  194. 1650 IF I=6 THEN POKE &H113,&H61
  195. 1660 GOTO 940
  196. 1670 POKE &H113,&H71:POKE 321,186:POKE 322,206          'Paradise video mode 71
  197. 1680 POKE 323,3:POKE 324,176:POKE 325,9:POKE 326,136:POKE 327,220:POKE 328,208
  198. 1690 POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,208:POKE 333,228:POKE 334,208:POKE 335,228
  199. 1700 POKE 336,239:POKE 337,195
  200. 1710 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  201. 1720 'IF I=6 THEN POKE &H113,&H5E
  202. 1730 GOTO 940
  203. 1740 POKE &H113,&H79:POKE 321,186:POKE 322,214            'Chips & Tech Mode 79
  204. 1750 POKE 323,3:POKE 324,176:POKE 325,16:POKE 326,136:POKE 327,220:POKE 328,208
  205. 1760 POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,239:POKE 333,195
  206. 1770 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  207. 1780 IF I=6 THEN POKE &H113,&H78
  208. 1790 GOTO 940
  209. 1800 POKE &H113,&H5C:POKE 321,186:POKE 322,196                   'Genoa mode 5c
  210. 1810 POKE 323,3:POKE 324,176:POKE 325,6:POKE 326,238:POKE 327,66:POKE 328,236
  211. 1820 POKE 329,36:POKE 330,199:POKE 331,128:POKE 332,227:POKE 333,7:POKE 334,208
  212. 1830 POKE 335,227:POKE 336,208:POKE 337,227:POKE 338,208:POKE 339,227:POKE 340,8
  213. 1840 POKE 341,216:POKE 342,238:POKE 343,195
  214. 1850 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  215. 1860 IF I=6 THEN POKE &H113,&H7E
  216. 1870 GOTO 940
  217. 1880 POKE &H111,79:POKE &H113,2:POKE 321,177                   'VESA mode 112
  218. 1890 POKE 322,BS:POKE 323,210:POKE 324,227:POKE 325,136:POKE 326,218
  219. 1900 POKE 327,48:POKE 328,246:POKE 329,184:POKE 330,5:POKE 331,79:POKE 332,49:POKE 333,219:POKE 334,205
  220. 1910 POKE 335,16:POKE 336,195
  221. 1920 'IF I=6 THEN POKE &H398,0
  222. 1930 GOTO 940
  223. 2000   '                    SYSTEM CONFIGURATION
  224. 2010   'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  225. 2015 DR$="d:"     'Ramdrive designation
  226. 2020 V=1    'V=0 is manual video card choice. V=1 is choice in line 2030.
  227. 2030 VC=7   'Video Card 1=Trident 2=Tseng 3=ATI 4=Paradise 5=Chips 6=Genoa
  228. 2040        '7=VESA (VESA card or VESA driver.Pick BS below to get full pix.)
  229. 2050 BS=4   'Bank Shift for different VESA configurations-values from 0 to 6
  230. 2055 BL=2048'Bytes/Line in TRUCOLOR modes-ATI=1920 and Diamond PRO=2048
  231. 2060 DL=2   'Delay in sec.'s between slides in AUTO mode
  232. 2070 PT=6   'Pixels Trimmed from right edge of picture
  233. 2080 EX=2   'S2 and M2 aspect--EX=0 2xHoriz/2xVerti--EX=1 4xH/2xV--EX=2 2xH/1xV
  234. 2090 GOTO 80
  235.