A RevTechie Replies - Mike Pope - Revelation Technologies (UK) Ltd
Published By | Date | Version | Knowledge Level | Keywords |
---|---|---|---|---|
Sprezzatura Ltd | 01 JAN 1992 | 2.11+ | EXPERT | RTP5, RTP51, REVERROR, MOUSEVARS, BREAK-ON |
Commenting on Vol 3 Issue 7 - RTP5 and RTP51
The explanation in Volume 3 Issue 7 of how to access RTP51 files suffers slightly in that it allows access to the REVERROR file only from within your own program, and not for example from the editor. On the assumption that REVMEDIA readers might find it useful to do something besides simply display the error messages, I've taken the liberty of attaching the code you could use to go through the "cumbersome" process of creating permanent access to the file (under the nom d'AREV of ERRORS) and not incidentally, allow you to use some proper tools to hack about with the error messages. Remember though BACKUP THE WHOLE DOS FILE BEFORE PLAYING WITH IT!
/* program MAKE_ERROR_VOL author Mike Pope, RT(UK) Ltd date 22nd December 1991 desc creates a volume by which the REVERROR file can be accessed w/in AREV as the ERRORSfile */ $INSERT INCLUDE, FILE.SYSTEM.EQUATES DECLARE SUBROUTINE RTP51 PATH = DRIVE() FILE = "ERRORS*GLOBAL" REC = "REVERROR.0" BFS = "RTP51" RTP51(INSTALL,BFS,"","","","",STATUS) RTP51(CREATE.MEDIA,BFS,"",PATH,"","",0) RTP51(OPEN.MEDIA,BFS,"",PATH,"",HANDLE,STATUS) RTP51(WRITE.MEDIA,BFS,HANDLE,"","",TIMEDATE(),STATUS) RTP51(WRITE.RECORD,BFS,HANDLE,FILE,"",REC,STATUS) OPEN "VOC" TO VOC_FILE THEN VOL_REC = "VOLUME" ; @FM : "RTP51" : @FM : PATH WRITE VOL_REC ON VOL_REC, "ERRVOL" END /* and now to make it all worthwhile... */ EXECUTE "ATTACH ERRVOL ERRORS (S)"
%%MOUSEVARS%%
The fourth LC argument, the array, has these differences in real life than documented
<8> | Mouse active |
<13> | Mouse type |
Suppressing Break-On Columns (Again!)
Am I the only person who knows that you can put anything - anything - into G type items that might otherwise follow the file name?
(Volume 3, Issue 8, Page 4)