|
|||||||
Screen GrabberWhen 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) |
|||||||
| |||||||