PPAIRP DOCPAIRP10 COM ;;06-08-85 PAIRP.DOC v1.0 06/14/85 Eric Gans French Dep't UCLA Los Angeles, CA 90024 After writing the WordStar control-character checker PAIRX (now in version 1.2), I thought I'd try something similar for Perfect Writer. I don't use PW, but some of my friends do, and apparently although there is some error checking for missed "fences" one still has to keep watch over the printer lest one underline a page or two. PAIRP is intended as a partial solution for that problem. It will inform you of any "fenced" areas exceeding the maximum number of lines (default=1), as well as of any fences you may have forgotten to close altogether. It checks (after "@" of course) for all six fences listed in the PW Manual: (),[],{},<>,"", and ''. Format: pairp [d:]filename [maxln] MAXLN is the allowable number of lines between opening and closing a fence. The default is 1, but you can input any number from 0 to 255. The program will output: 1) opening and closing lines for fences more than MAXLN apart, along with the fences and the commands to which they belong. 2) opening lines for fences unclosed at the end of the file. Since the fence structure is hierarchical, I have allowed for 50 levels. (If you've got more than 50 open fences, something is wrong somewhere!) 3) To keep you busy, a running total of lines read (up to 65535). To change the default MAXLN setting, just change the byte at 102H with DDT, etc. (SRW will do it faster). If there are any PW users out there who need something like this, and/or can suggest useful modifications, please don't hesitate to let me know; this program is meant to be practical.s#1Q:2!m~ ((#08:00_z0 WW#~ z:!""-o&<2!!͔:ʇ\ " O OS)q#s#r#:'w#:(w*)"'x3Ҍ#^#V#~#fo"+"/RѴ }0x(Ny2C-!"-!"-*/!͔*+͔!;͔>2%ͭ~2#^#V#~#fo!"-!͔͔!;͔ͭ!&4~w!͔([Type any key] x!Qo$;\!Z'd }0[-ɯR0[- !80S-!q"-!d͔!+͔-!"-x({:% !y͔!͔{#!>͔~O͠# PAIRP v1.0 (c) Eric Gans 06/14/85 Checks unmatched fences in PW files Format: pairp [d:]filename [maxlin] MaxLin {0-255}: Can't open file. Over 50 open fences: +++ ABORTED +++Reading line No unmatched fences. Lines read: Lines - ( ) : Fence : Command: Missing fence : from line : Command: K