In order for this site to work correctly, and for us to improve the site, we need to store a small file (called a cookie) on your computer.
By continuing to use this website, you agree to our cookies and privacy policy.
  
Home page Home page Home page Home page
Pixel
Pixel Header R1 C1 Pixel
Pixel Header R2 C1 Pixel
Pixel Header R3 C1 Pixel
Pixel

Screen Grabber

When documenting systems it is frequently necessary to use "snap-shots" of screens within the documentation. From much experimentation it became apparent that certain screen grab utilities conflict with AREV and cause the system to hang. To circumvent the problem once and for all the following screen grab routine was developed for use within AREV. To use, simply assign to a macro key as a subroutine call and then press the macro key when a screen shot is required.

This routine writes a file called CAPTURE.nnn to DOS where nnn is auto-incremented in the current session. Obviously the program could be amended to warn if the capture file exists from a previous session, to store screens in an AREV file or even to export into a WP file. (This is something successfully done by Tony Preston of Preston Microsolutions who has kindly sent his self documentation routines for inclusion in the utility diskette.)


0001      SUBROUTINE SCREEN.GRAB
0002  
0003         COMMON /SCRATCH/ CTR
0004         CALL VIDEO.RW(0, 0, 79, 23, "R", IMAGE)
0005         CALL MSG("Capturing Screen", "UB", SAVE, "")
0006         LENGTH = LEN(IMAGE)
0007         LINE.CTR = 0
0008         FOR X = 1 TO LENGTH STEP 2
0009            NEW.IMAGE := IMAGE[X,1]
0010            LINE.CTR += 1
0011            IF LINE.CTR = 80 THEN
0012               NEW.IMAGE := CHAR(13) : CHAR(10)
0013               LINE.CTR = 0
0014            END
0015         NEXT
0016         IF CTR ELSE CTR = 1
0017         OSWRITE NEW.IMAGE ON "CAPTURE." :CTR "R(0)#3"
0018         CTR += 1
0019         CALL MSG("", "DB", SAVE)
0020      RETURN

(Volume 1, Issue 9, Page 11)
Pixel
Pixel Footer R1 C1 Pixel
Pixel
Pixel
Pixel