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