home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 17
/
CD_ASCQ_17_101194.iso
/
vrac
/
vester_e.zip
/
SEEPIX.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-08-08
|
2KB
|
30 lines
10 CLEAR,32768!:KEY OFF:CLS
15 X$="system":KEY 10,X$
20 DEF SEG=&H4F00
30 BLOAD "vu960a.asm",&H100
31 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT" This program is for viewing on a VGA (640x480) machine a picture that was"
32 PRINT"captured with the WXPIX.BAS program and has been COPYed from storage to"
33 PRINT"the RAMDISK under the title D:PIX.WX. With no RAMDISK you can load the pix"
34 PRINT"in agonizingly slowly by typing the Path and File name in when the"
35 PRINT"prompt below asks for it. A RAMDISK is highly recommended as most of the"
36 PRINT"operations like scrolling are very slow. On execution, the pix will be"
37 PRINT"displayed in the DEFAULT colors. Hit 1, 2, 3, or 4 to get other color schemes."
38 PRINT"For gray shades, hit 4, then G(ray) . Scrolling is done with the arrow keys,"
39 PRINT"and PAGE UP, PAGE DOWN, and HOME serve as normal. U(p) and D(own) are for"
40 PRINT"faster scrolling. Q(uit) returns you to BASIC. Once you go to gray (G)"
41 PRINT"you can only get back to proper colors by hitting C(olors)."
42 PRINT" This program can be adapted for EGA 640x350, 16 colors, by adding a POKE"
43 PRINT"in line 47, that is: 47 POKE 408,16 "
44 FOR F=3728 TO 3775:READ G:POKE F,G:NEXT F
48 PRINT:PRINT:PRINT:INPUT" What Path\File do you want to copy (default is D:PIX.WX)";A$
49 IF A$="" THEN A$="d:\pix.wx"
50 K=&H100:CALL K(A%,B%,A$)
60 PRINT:PRINT:PRINT:PRINT" HIT F2 FOR ANOTHER PIX-----HIT F10 and ENTER TO GOTO DOS"
61 END
97 'These data are for palette no.1. Each group of 3 is red, green, blue
98 'amplitudes. That is: 0,0,0=Black; 63,0,0=Bright Red; 63,63,63=White;etc.
99 'You can change them to form your own palette. Max. amplitude is 63.
100 DATA 0,0,0,0,31,0,0,47,0,0,63,0,31,63,0,63
110 DATA 0,47,63,0,31,63,0,16,63,0,0,63,16,0,63,31
120 DATA 0,63,47,0,63,63,0,47,63,0,31,63,0,63,63,63