7 PEEP13 COMй PEEP13 DOC &e PEEP13L COM0 PEEPINSTASM;>  ë> GXXXX=7 XX)X(!0+| _^~#( ( G07 0@_X >O7{G7a{_s1=*!=""*"*[R(ҷS"͘<ADFGrHJ  K77L=ORdSX;0  X#( ## #^#VůO~(i # X G (_ >O8{{X>y0DG> r*>(.>(G"!="*" (> ͘*>S"*"=~# *>G"=+R8~ #GG(=*R*"S*"=XFind>!~G!~͢w#*!~͢(&# F(#~͢ #"X???*"XMark*"*x"ͩ:i_ 2=*R86\3(2!~# ((6 #6"XMem͘: =*> )Start ove!}!h6##6#ø:] XNo Fil*{\<0^X? (Y/n)͘N!6 PEEP.COM: Text File Viewer Version 1.3 - 5 NOV 87 Version 1.3 Update: - V 1.2 introduced a minor bug with major import - typing a non-existent command crashed the program! Very sorry about that. - LF's are stripped to make room for a few more K of file. - Responds to ^C,^R,^E,^X as per WordStar convention. Version 1.2 Update: - File printing available in "L" version. - Tab expansion done internally. No more line wrap problems. Long lines are truncated on CRT but sent whole to printer. - One line of overlap when scrolling. - High bit masking done immediately to avoid problems with listing and finding. FEATURES: 1. PEEP is a small program intended as a RAM disk resdient utility (a major reason for keeping it to 1k size) for viewing and printing text files in a flexible way. 2. You can do all of the things needed to look through the file without moving from the home row. (page, scan, find, etc.) No need to keep a (callused) finger on the CTRL key. 3. Before being displayed, characters are high bit masked. Control characters (except CR, LF, and TAB) are printed in "^" format. Thus WordStar files and captured files from a BBS are viewable. 4. PEEP reads the whole file into available memory. If the file is too big, it reads what does fit, and you can get the rest with the R command. 5. You can set a place marker in the text. 6. Files may be printed out from the place marker. 7. The installation file (PEEPINST.ASM) is for terminal installation. As is, the program is compatible with Wyse, Televideo, et. al. The source contains screen dependent code for: INSERT LINE : esc, E ERASE TO END OF LINE : esc, T HOME CURSOR : 1eh (^^) GOTOXY : esc, =, row+20h, col+20h DIM VIDEO ON AND OFF : esc ')' and esc '(' These are most easily altered with the PEEPINST.ASM file. USAGE: Commands are not intended to be mnemonic but are grouped physically for ease of use. (Don't panic! Essentially, the right hand moves ahead and the left hand moves back through the text. The main commands are mirror images, e.g. left index - ahead one screen, right index - back one screen.) --- Usage: PEEP Go To Mark | 0 | --- Read Type Init Printer Mark Print --- --- --- --- --- | R | | T | | I | | O | | P | --- --- --- --- --- --- --- --- --- --- --- --- --- --- --- | A | | S | | D | | F | | G | | H | | J | | K | | L | | ; | --- --- --- --- --- --- --- --- --- --- End Scan Next Next Find Find Prev Up R/Scan Top Line Screen Again Screen Line X - Exit - Hop 10 lines - Next Screen (F) Details -> A Display final screen. ; Display first screen. S Scroll continuously forward L Scroll back until key pressed. D Move forward one line of text K Move back one line of text F Move forward one screen J Move back one screen G Find a string H Repeat find - Search is forward - If found, string is contained in the top line of the screen R - READ: If PEEP beeped when reading in the file, additional text may be read in. The new text replaces text currently in memory with one screen of overlap. The beginning of the text can be re-read with additional R commands. O - MARK: Sets a pointer to the beginning of the line at top of screen. (Home cursor position). The marker is initialized to the beginning of the file. 0 - GO TO MARK: Instant return to the marker. I - INIT: Send initialization string to printer. It is installed with the PEEPINST overlay. P - PRINT: Send text from MARK to bottom of current screen to printer. Abort listing with ^C. Although long lines are truncated on the terminal display, they are sent whole to the printer. T - TYPE: Type a line to the printer, e.g. comments. A blank line sends a CRLF to the printer. ---- Known bugs: 1. The FIND function uses BDOS function 10. Injudicious use of ^P, ^U etc. can lead to unexpected results. Note: PEEP is a bare-bones version of VIEW. The same style of file viewing is also used in VCOMP (compare two text files) and BCOMP (compare two binary files). The latter three are for ZCPR3 users. PEEP is also available as an RCP segment. Oct 1987 Rob Friefeld 4607 Colorado St., Long Beach, CA 90814 213-434-7338 (voice) Suggestions and complaints welcome. > Xiiii=7 ii)i(!0+|  _o~#( ( X07 0@_:W0i z{X>O7{X7=2>2`ɯ2>a{_s,1h"*!h" "**&_"$* [$R(͍""vADFGHIJLLKwwL}OP8RSTX;00  i##( ## #^#VůO~(ͣ # i X (_ >O8{Ì: i>y0DG> ͬ*">(.>(G_" !h" *$"  )#)(> *">͍""* B" =~# * >G_" h+R8~ #͇#͇(h* R* _" ͍*"_""=iFind>!~#G!~w#* B!~(&# F(#~ #_B" i???#* "*iMark**" ʎ!(MiPrinting...[**"R8+()> uͶ**(͍ x >X#Print from MAR(!GͶF#~X(iType ->!ͶF#~Xi : !2 Printer O *x"(:i_ 2h*(R86\](2!~# ((6 #6"&iMem: h*$> B)Start ove!#!h6##6#8:] iNo Fil*{,\<0oi? (Y/n)N!6 ; PEEP 1.2 ; SCREEN INSTALLATION OVERLAY ; Instructions: ; 1. Have your video protocol handy. ; 2. Enter changes. ; 3. Assemble to .hex file. i.e. >ASM PEEPINST ; 4. Overlay PEEP i.e. >MLOAD PEEP.COM,PEEPINST ; ; The overlay for PEEP12 is not compatible with previous versions. ; To enter changes: ; - If you need fewer bytes than are available, fill in the remainder ; with 0's. ; - If you need exactly the number of bytes available, the last byte ; must have the high bit set. Add 80h to it. (See below.) ; - If you need more bytes, sorry, it won't work. Modify the source code. ; ; As distributed, PEEP works on most terminals e.g. Televideo, Wyse, Ampex. ; Kaypro II requires one change indicated below. true equ -1 false equ 0 esc equ 1bh tab equ 9 cr equ 0dh ; To install a printer initialization in PEEP12L, set following equate to TRUE. ; If installing PEEP12, set it to FALSE. lstok equ true ; Clear to end of line. There are 2 bytes available. org 10bh db esc,'T'+80h ; Last byte must be high bit set ; db 18h,0 ; Kaypro II sequence ; Home cursor without screen clear - 2 bytes. org 111h db 1eh,0 ; Insert line - 2 bytes org 11ah db esc,'E'+80h ; Move cursor to row 23, column 0. Up to 7 bytes. org 121h db esc,'=',37h,20h,0,0,0 ; Clear screen, home cursor - 2 bytes. org 12dh db 1ah,0 ; Dim video on. This sequence cannot take up space on the screen. It may ; be blank. org 133h db 0,0,0 ; db esc,')',0 ; default ; Dim video off. org 13ah db 0,0,0 ; db esc,'(',0 ; default ; Slow scan functions. Smaller number goes faster. Don't use 0! org 13fh dw 3000h if lstok ; Printer initializaton string ; First byte is char count. Maximum is 16 org 147h db 1 db cr endif ;lstok ; END