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