home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / clarion / library / pcx3 / dump.cla next >
Text File  |  1992-08-19  |  623b  |  25 lines
  1. DUMP         PROGRAM
  2.          INCLUDE('PCX3.CPY')
  3.  
  4.          CODE
  5.          sethue(7,1)
  6.          blank
  7.          setcursor(10,10)
  8.          type('1-Epson   2-HP Laser Jet   3-HP Gray scale')
  9.          ask
  10.          k# = keycode()-48
  11.          if k# < 3 then PCX('TEMP.PCX')
  12.          else PCX('FROG.PCX').
  13.          IF ERROR() THEN STOP(ERROR()).
  14.  
  15.          LOOP C# = 0 TO 2             ! print tiny, medium, big
  16.            if k# = 1 then EPDUMP(0,0,640,480,C#,0).
  17.            if k# = 2 then HPDUMP(0,0,640,480,C#,0).
  18.            if k# = 3 then HPDUMP(0,0,320,200,C#,256).   !256=gray scale
  19.          .
  20.  
  21.          OUTPUT(CHR(12))             !FORM FEED
  22.  
  23.          SETVMODE(3)
  24.          RETURN
  25.