home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / SLIDESHO.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  10KB  |  208 lines
  1. 10 CLEAR,32768!:KEY OFF:CLS
  2. 11 X$="system"+CHR$(13):KEY 10,X$
  3. 12 X$="files":KEY 9,X$
  4. 15 GOTO 2000
  5. 20 DEF SEG=&H4F00
  6. 30 BLOAD "c:\dos\64sho.asm",&H100
  7. 31 D=INT(18.2*DL):DB=INT(D/256):DA=D-256*DB
  8. 32 POKE &H4A9,DA:POKE &H4AA,DB
  9. 40 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"                  SLIDE-SHOW VIEWING SSTV PIX'S "
  10. 50 PRINT:PRINT:PRINT"   This program is for viewing SSTV pictures in sequence that were captured"
  11. 60 PRINT"with the K3BC SSTV  program and reduced to a picture file stored in floppies,"
  12. 70 PRINT"or on a RAMDISK or on the main Hard-disk as a full color picture file with"
  13. 80 PRINT"a MODE suffix attached. Pick MODE for the pix's you want to view and then"
  14. 90 PRINT"add any file name constraint (for example, pick Mode 3 and name constraint BE;"
  15. 100 PRINT"program views all files named BE*.S1). All keyboard commands (scroll,etc.) are"
  16. 110 PRINT"the same as the single pix viewing program, except N(ext) is added to sequence"
  17. 120 PRINT"to the next file in the directory. Or if you prefer, hit A for A(utomatic)"
  18. 121 PRINT"and the files will be presented for viewing in an automatic sequence. The"
  19. 122 PRINT"time delay between slides, DL, can be set in the SYSTEM CONFIGURATION in line"
  20. 128 PRINT"2050. Single pix in these modes can be viewed with this program by giving "
  21. 129 PRINT"the full Filename as constraint . Q(uit) returns to BASIC and then key F10"
  22. 130 PRINT"followed by ENTER to return to DOS, or F2 to view other pix's."
  23. 131 PRINT"   When viewing pix captured in the Automatic/Save mode, you can also scroll"
  24. 132 PRINT"any picture you want to save, hit Q to exit the screen, and follow the in-"
  25. 133 PRINT"structions to save the pix in either regular format or compressed formats."
  26. 150 PRINT:PRINT:PRINT"   What MODE used for Pix:  (3)Scottie 1 (4)Scottie 2"
  27. 160 INPUT"(5)AVT90 (6)AVT94 (7)Martin1 (77)Martin2 (8)Wraase96 (9)Fax480 ";I
  28. 165 IF I=0 THEN GOTO 150
  29. 170 PRINT:PRINT:INPUT"   What File Name Constraints (default=none)";A$
  30. 185 IF I=2 THEN A$=A$+"*.72"
  31. 186 IF I=22 THEN A$=A$+"*.72a"
  32. 187 IF I=1 THEN A$=A$+"*.36"
  33. 188 IF I=11 THEN A$=A$+"*.36a"
  34. 190 IF I=3 THEN A$=A$+"*.s1"
  35. 191 IF I=8 THEN A$=A$+"*.96"
  36. 192 IF I=9 THEN A$=A$+"*.fax"
  37. 193 IF I=99 THEN A$=A$+"*.wx"
  38. 200 IF I=4 THEN A$=A$+"*.s2"
  39. 210 IF I=5 THEN A$=A$+"*.90"
  40. 220 IF I=6 THEN A$=A$+"*.94"
  41. 230 IF I=7 THEN A$=A$+"*.m1"
  42. 232 IF I=77 THEN A$=A$+"*.m2"
  43. 235 IF I=2 THEN GOTO 800
  44. 236 IF I=22 THEN GOTO 800
  45. 237 IF I=1 THEN GOTO 1100
  46. 238 IF I=11 THEN GOTO 1100
  47. 240 IF I=3 THEN L=288
  48. 250 IF I=4 THEN L=184
  49. 260 IF I=5 THEN L=256
  50. 270 IF I=6 THEN L=320
  51. 280 IF I=7 THEN GOTO 740
  52. 282 IF I=77 THEN GOTO 740
  53. 285 IF I=8 THEN L=248
  54. 290 IF I=99 THEN GOTO 950
  55. 600 GOTO 602
  56. 602 POKE &H226,2  'No. poked here=pixels scrolled per left arrow depression
  57. 605 POKE &H427,PT
  58. 607 IF I=9 THEN GOTO 900
  59. 610 P=L-PT:P2=INT(P/256):P1=P-P2*256
  60. 620 POKE &H15D,P1:POKE &H15E,P2:POKE &H46B,P1:POKE &H46C,P2
  61. 630 IF I=4 THEN POKE &H3EA,16:LL=568
  62. 635 IF I=5 THEN POKE &H3EA,0:LL=768
  63. 640 IF I=7 THEN POKE &H3EA,9:LL=915
  64. 641 IF I=77 THEN POKE &H3EA,8:LL=464
  65. 642 IF I=8 THEN POKE &H3EA,1:LL=745
  66. 645 IF I=6 THEN POKE &H3EA,0:LL=960
  67. 650 IF I=3 THEN POKE &H3EA,14:LL=878
  68. 651 IF EX=0 THEN GOTO 659
  69. 652   'next two lines expand S2 and M2 modes by 2 horizontally
  70. 653 IF I=4 THEN P=320:POKE &H43B,235:POKE &H43C,43:POKE &H15A,0:POKE &H15B,2
  71. 654 IF I=77 THEN P=2*P:POKE &H43B,235:POKE &H43C,43:POKE &H15A,0:POKE &H15B,2
  72. 659 OF=(640-2*P)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13B,OF1:POKE &H13C,OF2
  73. 660 LL2=INT(LL/256):LL1=LL-256*LL2:POKE &H1FD,LL1:POKE &H1FE,LL2:POKE &H242,LL1:POKE &H243,LL2
  74. 670 IF V=1 THEN GOTO 683
  75. 680 VC=0:PRINT:PRINT:PRINT"  Is Video Card (1)Trident mode 5D (2)Tseng mode 2E (3)ATI mode 62"
  76. 681 INPUT"(4)Paradise 5F (5)Chips&Tech mode 79 (6)Genoa mode 5C (7)VESA (Default=1)";VC
  77. 682 IF VC=0 THEN VC=1       'default choice
  78. 683 IF VC=1 THEN GOTO 1590
  79. 684 IF VC=2 THEN GOTO 710
  80. 685 IF VC=3 THEN GOTO 1600
  81. 686 IF VC=4 THEN GOTO 1650
  82. 690 IF VC=5 THEN GOTO 1700
  83. 695 IF VC=7 THEN GOTO 1800
  84. 700 IF VC=6 THEN GOTO 1750
  85. 701 GOTO 680
  86. 710 POKE &H113,46:POKE &H142,205:POKE &H144,136:POKE &H145,216:POKE &H146,238:POKE &H147,195
  87. 720 K=&H100:CALL K(S%,A$)
  88. 725 GOTO 1250
  89. 730 KEY ON:PRINT"      Hit F2 to Re-run program. Hit F10 and ENTER to goto DOS.":END
  90. 740 POKE &H180,128:POKE &H3DA,128:POKE &H3CB,64:POKE &H3BC,192
  91. 745 IF I=77 THEN L=152:GOTO 600
  92. 750 L=302:GOTO 600
  93. 800 L=282
  94. 801 BLOAD "vuroboh.asm",&H100
  95. 802 PRINT:PRINT:INPUT"   What white level count do you select (Default=138)";W
  96. 803 IF W=0 THEN W=138
  97. 810 POKE &H17D,W:POKE &H181,W:POKE &H183,W
  98. 820 POKE &H337,1:POKE &H2D7,1   'No. poked is increment for fine tune with F&G
  99. 850 OF=(640-2*L)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13B,OF1:POKE &H13C,OF2
  100. 860 POKE &H226,2:POKE &H1FD,103:POKE &H1FE,2:POKE &H242,103:POKE &H243,2
  101. 861 IF I=2 THEN GOTO 870
  102. 862 POKE &H1FD,85:POKE &H242,85:POKE &H44D,85:POKE &H452,85
  103. 870 GOTO 680
  104. 900 POKE &H15D,24:POKE &H15E,2:POKE &H184,235:POKE &H185,1:POKE &H180,0:POKE &H3A8,235:POKE &H3A9,57
  105. 910 POKE &H3EA,10:POKE &H3A2,224:POKE &H3A3,1:POKE &H13B,52:POKE &H13C,0:POKE &H16A,128:POKE &H16B,2
  106. 920 LL=546:L=179:GOTO 660
  107. 950 PRINT:PRINT:PRINT:INPUT"   Do you choose (1)1024x768 or (2)640x480 (Default=1)";S
  108. 960 IF S=0 THEN S=1
  109. 970 BLOAD "vuwx.asm",&H100
  110. 980 IF S=2 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1:POKE &H113,93
  111. 985 POKE &H170,W:POKE &H174,W:POKE &H176,W
  112. 990 GOTO 680
  113. 1100 BLOAD "vuro36b.asm",&H100
  114. 1110 LL=308:POKE &H13B,140:POKE &H3D3,26:POKE &H226,2
  115. 1120 IF I=11 THEN LL=288:POKE &H3D3,6
  116. 1130 GOTO 660
  117. 1250 PRINT:PRINT:INPUT"   Do you want to save last picture-y or n (Default=n)";P$
  118. 1251 IF P$="" THEN P$="n"
  119. 1252 IF P$="n" THEN GOTO 730
  120. 1253 IF P$="y" THEN GOTO 1255
  121. 1254 GOTO 1250
  122. 1255 FOR Y=&HB1E TO &HB2A
  123. 1256 A=PEEK(Y)
  124. 1257 IF A=0 THEN GOTO 1260
  125. 1258 A$=CHR$(A)
  126. 1259 OF$=OF$+A$:NEXT Y
  127. 1260 PRINT:PRINT:PRINT OF$:PRINT:PRINT:INPUT"   Save it in compressed format--y or n (Default=n)";F$
  128. 1261 IF F$="" THEN F$="n"
  129. 1262 IF F$="n" THEN GOTO 1270
  130. 1263 IF F$="y" THEN GOTO 1270
  131. 1264 GOTO 1260
  132. 1270 DEF SEG=&H4F00
  133. 1280 BLOAD "c:\dos\savepix.asm",&H100
  134. 1300 PI=512:PO=512:K%=0:L%=0
  135. 1310 POKE &H192,LL1:POKE &H193,LL2:POKE &H1B9,LL1:POKE &H1BA,LL2
  136. 1320 BY=3*L-1:BYB=INT(BY/256):BYA=BY-256*BYB:POKE &H20D,BYA:POKE &H20E,BYB
  137. 1330 IF S%<0 THEN S!=65536!+S% ELSE S!=S%
  138. 1340 S2=INT(S!/256):S1=S!-256*S2:POKE &H163,S1:POKE &H164,S2
  139. 1360 PRINT:PRINT:PRINT"   The program will add an appropiate Mode suffix."
  140. 1370 PRINT:INPUT"       What Name  for Picture (Default is DO NOT SAVE)";PIX$
  141. 1380 IF PIX$="" THEN GOTO 730
  142. 1390 IF I=3 THEN MO$=".s1":LE%=410
  143. 1400 IF I=4 THEN MO$=".s2":LE%=300
  144. 1410 IF I=5 THEN MO$=".90":LE%=360
  145. 1420 IF I=66 THEN MO$=".188":LE%=640
  146. 1430 IF I=6 THEN MO$=".94":LE%=450
  147. 1440 IF I=9 THEN MO$=".fax":LE%=480
  148. 1450 IF I=96 THEN MO$=".cfx":LE%=1440
  149. 1460 IF I=7 THEN MO$=".m1":LE%=420
  150. 1470 IF I=77 THEN MO$=".m2":LE%=300
  151. 1480 IF I=8 THEN MO$=".96":LE%=300
  152. 1490 L2=INT(LE%/256):L1=LE%-256*L2:POKE &H18B,L1:POKE &H18C,L2
  153. 1500 NF$=PIX$+MO$
  154. 1505 IF F$="y" THEN NF$=DR$+NF$
  155. 1510 K=&H100:CALL K(K%,L%,OF$,NF$)
  156. 1520 IF F$="n" THEN GOTO 730
  157. 1522 IF F$="y"THEN PRINT:PRINT:INPUT"   What path/directory for compressed file";X$:GOTO 1524
  158. 1523 GOTO 1522
  159. 1524 SHELL "pk "+X$+" "+DR$+" "+PIX$+" "+MO$
  160. 1525 GOTO 730
  161. 1590 IF I=6 THEN POKE &H113,&H5C
  162. 1595 GOTO 720
  163. 1600 POKE &H113,&H62:POKE &H444,192:POKE 321,235:POKE 322,90               'ATI video mode 62
  164. 1610 POKE 324,136:POKE 325,196
  165. 1615 POKE 326,128:POKE 327,228:POKE 328,225:POKE 329,208:POKE 330,227:POKE 331,8
  166. 1620 POKE 332,220:POKE 333,176:POKE 334,178:POKE 335,254:POKE 336,202:POKE 337,239:POKE 338,195
  167. 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
  168. 1635 IF I=6 THEN POKE &H113,&H61
  169. 1640 GOTO 720
  170. 1650 POKE &H113,&H5F:POKE 321,186:POKE 322,206          'Paradise video mode 5f
  171. 1660 POKE 323,3:POKE 324,176:POKE 325,9:POKE 326,136:POKE 327,220:POKE 328,208
  172. 1665 POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,208:POKE 333,228:POKE 334,208:POKE 335,228
  173. 1670 POKE 336,239:POKE 337,195
  174. 1680 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  175. 1685 IF I=6 THEN POKE &H113,&H5E
  176. 1690 GOTO 720
  177. 1700 POKE &H113,&H79:POKE 321,186:POKE 322,214            'Chips & Tech Mode 79
  178. 1710 POKE 323,3:POKE 324,176:POKE 325,16:POKE 326,136:POKE 327,220:POKE 328,208
  179. 1715 POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,239:POKE 333,195
  180. 1730 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  181. 1735 IF I=6 THEN POKE &H113,&H78
  182. 1740 GOTO 720
  183. 1750 POKE &H113,&H5C:POKE 321,186:POKE 322,196                   'Genoa mode 5c
  184. 1760 POKE 323,3:POKE 324,176:POKE 325,6:POKE 326,238:POKE 327,66:POKE 328,236
  185. 1765 POKE 329,36:POKE 330,199:POKE 331,128:POKE 332,227:POKE 333,7:POKE 334,208
  186. 1770 POKE 335,227:POKE 336,208:POKE 337,227:POKE 338,208:POKE 339,227:POKE 340,8
  187. 1780 POKE 341,216:POKE 342,238:POKE 343,195
  188. 1785 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  189. 1787 IF I=6 THEN POKE &H113,&H7E
  190. 1790 GOTO 720
  191. 1800 POKE &H111,79:POKE &H113,2:POKE 321,177                   'VESA mode 101
  192. 1810 POKE 322,BS:POKE 323,210:POKE 324,227:POKE 325,136:POKE 326,218
  193. 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
  194. 1821 POKE 335,16:POKE 336,195:POKE &H465,48:POKE &H466,255
  195. 1835 'IF I=6 THEN POKE &H398,0
  196. 1840 GOTO 720
  197. 2000   '                    SYSTEM CONFIGURATION
  198. 2010   'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  199. 2015 DR$="d:"     'RAMDRIVE designation
  200. 2020 V=1    'V=0 is manual video card choice. V=1 is choice in line 2030.
  201. 2030 VC=7   'Video Card 1=Trident 2=Tseng 3=ATI 4=Paradise 5=Chips 6=Genoa
  202. 2040        '7=VESA (VESA card or VESA driver.Pick BS below to get full pix.)
  203. 2045 BS=4   'Bank Shift for different VESA configurations-values from 0 to 6
  204. 2050 DL=6   'Delay in sec.'s between slides in AUTO mode
  205. 2080 PT=6   'Pixels Trimmed from right edge of picture
  206. 2090 EX=1   'For S2 and M2. EX=0 is as rcvd. EX=1 is EXpanded to fill screen
  207. 2100 GOTO 20
  208.