TD7ߤdi  HP87 BIN Files :D601 viLIFg 9FORM =CFORM TmEFORM lTR87TX KOJTERMIN srMUNAVF CMUNAVL W                 MAKE_PROG rCBIN y=COUNT zFDATA84 YFDAT84 YY                     BUILD CRUNCH2 #"EDITR8 5\[ED87TX KJREDZERg LINCURg NSTRNGBg ~KEYONBg v                         zGETSAVEg GCURSBg =MATHBIg !TRACKBg SORTB2g jIPBINg ZFORMSBg LIF87 &%                          N[=] m7**JF#**JF#**JF#** J C****** JF#**0JF#**@JF#**PJF********@ MAINP"  0@P`p 0@P`pJF#** JF***= ****JF#**JF#**JF#** JF** 3F#**0JF#**@JF#**PJF **/**`JF#**pJF#**JF**53!** *JF#**JF#** JF ***/**0JF#**@JF#**PJF** /**`JF#**pJF#**JF**/**JF#**JF#**JF** MAINP STORE "BUILD"  0 S@GHJPI`SI DATA ,0&p kS 'S$#I 'I END&$#3** *0JF#**@JF#**PJF***/**`JF#**pJF#**JF** /**JF#**JF#**JF **ye*  BUILDE "BUILD"   BUILD 'GHJ**BUILD** *JF#** JF ***3 ** *`MI#** pJF#**JF!**p 腐[=/** JF#**0JF#**@JF**/ **PJF#**`JF#**pJF#** \{** JF#** JF#**XG PRICE@ 0B_CLOSE@'PRICE%PICEI  A0=!NEXT_I0(S1A5A0*A6S1*+@(S2A5S1*A6S2*+P(S3A5S2*A6S3*+`(S4A5S3*A6S4*+p%E0S1S2-*S3+5 ** KG#** 0JF#**@KG#** V=**PJF#**`JF#**pJF#** JF****9JF#**JF#** JF#** JF** P V1` V2pFLAG1 B0PA5B0+/A6A5-S1PRICE  S2S10S3S1@S4S1PI`A0PRICD7PJF#**`JF#**pJF#**JF**/!**JF#**JF#**JF ** /** JF#** 0JF#** @JF** EI p(S1A5A0*A6S1*+(S2A5S1*A6S2*+(S3A5S2*A6S3*+(S4A5S3*A6S4*+I BPRA00E4A0@PTR/**JF#**JF#**JF**^/** JF#**0JF#**@JF** /** PJF#** `JF#** pJF** PPSUM`TRADESp?D3A50A60/S1S2*-S3+*GD3D3A50A60/S2S3*-S4+*-CPSD3IPRICE@ A0PRp 腐[=O BB EXIT &B& PACK &B& MOVE &B&`cK9K9 PRINT &B& STORE &B& READ &B& SEARCH &BB&pVK9K9BB& DISPLAY &B& ENHANCE &B& INS/DEL & J-LP+@NN@N?NN &#NUPN&R&2o@/V) s ****** Select input mode P'INITIALROLLRNOT@Z`9TABULVEnter TAB length (maxR? B0 *E4E0E1+PE2*+0?D3A50A60/S1S2*-S3+*@GD3D3A50A60/S2S3*-S4+*-PA5B0+/`A6Ʊ MAINP[ IE  *** 'EDITR87' ** REV A1 LH David I Kosowsky J6/198304SIZE0! ** change to 24 for HP-86 **@9LP B&cK9K9 INS LINE &B& DEL LINE &B& PAGESIZE &B& TAB &BB&K9K9CV=** Press ENDLINE for default values shown in inverse video **?V@V6Enter number of lines per page (max 75 -  -spaces)p>V) (or press ENDLINE for TAB= TBD)._TB@TB5TBTBD@q"TBI?TBW>`0TBTB@TBR->`q3V#Input from KEYBOARD or FILWA5-p#PFTA0BPR-CPS*D3CPS=!NEXT_IIPRICE@ <FLAG1CPSD3 (PFT>PTRPTR+0TRADESTRADES+@$PPTRPTRT DW( 6default value for lines per pageP?RDd- :default value for characters per line`6TBD% o default value for TAB lengthepU WD u BU` uI`I1 legal size)JV/ (or press ENDLINE for LPD lines)1_LP@LP5LPLPD@Z@ 6LPI?LPU>LPLP0 LP?LPu>@;PAGESBaE: K/F@_A +AF5RNOT@GETFILE0AK1@4G/ k**** Select line, tab length ****P8V2Select printed line length -- (74 characters max.)`HV0 (or press ENDLINE 1RADES/*PPSUMPSUMPFT+`BPRA0p1-DISP USING "9(6D)" ; TRADES,PFT,PSUM,PPTR,CPS NEXT_II3G@V 18A,1X,2D.6D'INDICATOR VALUE =D3@FFLAG1=p F0.F@V&SIGNAL GIVEN ON MI2K9`&5@SIZESIZE0@SIZE4 R(AZ0 IPBINg  3764 bytes0B2BLPDLPD@RDRD@TBDTBD@%G@B`@BBBB&PNK9 ALP/@LMAXPAGESLP*PEVText may be up toPAGES pages, eachLP lines long`CNUJ& ****** Line numbering functionp,PJLP/@PP-&RNfor RD chars)p-_A@A5RRD@Z2AI?AU>PRAR?Rt>P TABUL0.@SIZE-*@K9@@RLCOUNT@ WDuE1A5A60*/A5*-S1*A5*-*S2*-A5*-S3*+*?E2A50A60/S1S2*-S3+*1B0V1V2D3*A0E4-*-B0OST RECENT DATA ENTRY@DCPS?2F@V&MODEL NOW IN A SELL MODE. GOOD LUCK!!!@ZP-F@V%MODEL NOW IN A BUY MODE. GOOD LUCK!!!`Zp2F@V*NO SIGNAL GIVEN ON MOST RECENT PRICE ENTRY CRUNCH GIVEN ON MOST RECENT PRp 腐[=5@MK@Ucol -@row +ROLL+** Cursor row, col on pageP-rowe>rowrowROLL-`FBCCPOS=(row-1) MOD 204*80+(col+4) ! ** rows 1 to LMAX, cols 1 to Rp(J0K@ULL !! **@rowLMAX='F@LMAX-*+@CURS (R1LCOUNT:ISTR@Z@0X WDR1 R WDR1  @LCOUNTLCOUNT+@ISTR@ -+@CURSP+  +@CURS HrowLCOUNT=rowLROW= *+@CURS  +R-@CURS :MS9 `' Dbackspace 0(col?!HOLD  - @OQ nK9:R1LROW-@R1LCOUNT> h/CL2*@ISTR@R1LROWIR1LCOUNT>&I @I@Z ISTRC0@CURSMV90 JPJ0! FUNCTIONSCQ WDrow colcolK@QcolR=  -Orow-LPLP->colR->`F@CURS1colR->F@CURS #CU~MB9`F@ KpauseT+TR@CUR0@DISPTOP`9Mc9p& tup arrowbMrowTR=8 LCOUNTTR-SIZE-*+@CURSd -@CURS ,kWDrow col-col- @Q@ - P CURS `1ME9 *** Roll up p<R1LROW+@R1LCOUNT> F@HOLD !R1=ROLL /C0 )ZcolRTB->!HOLD# TB+@CURS*** TAB 08Mb9P% *** PAGESIZE25SIZE=SIZE$SIZE4SIZE46LC0 @JTRTRSIZE+ R WD   *** Line counter ***PYISIZE-@I*@II+NU@I@I`QISIZE-@R+I*+@R@I@pCURSQ@ RS 62 ** Function Keys *******0@_ FUNCTIONSTR +ROLL+@TRe>(TRTRROLL- Top rowPbLROW SIZE+ROLL+@LROWe>-LROWLROWROLL- p;Md9( down arrowrOrowLCOUNT=rowLROW=# *col++@CURSt +@CURS;MY9 ( left arrow)col9 b@ +@R1-*&ISTR@C0+@CURS4Mi9`! *** Roll down 3R1TR-@TR= F@HOLD0#LROW=ROLL@/C0 @ -@fQ4HOLDAERR1 ***** Hold position ***** KEYSZJISTRIR1NU WDR1 &R&@I@q84 D******* Keyboard Interrupt Service ***** 0 KEYSK$ Bottom row`9MT9P& *** ENDLINE ***p$rowLROW=  +)row*@R1row+"row=ROLLCrowLMAX=*V@V20X,K'** ALL PAGES F a -@CURS[rowTR=D LCOUNTTR-SIZE-*+R+-@CURS -R+@CURS CURS <Mp9 ) "right arrow +colR9 R1-*P&ISTR@C0-@CURS`@MR=0 *+@CURS *** Home cursorp8MP9% S*** KEY LABEL ***FC0 @CL2 SIZE+-@CL2*@p 腐[=y T'@@Z@SIZE04@R@VDONE@uPaINSC0 @I WDrow colR WDrow colR-&`!I@C0@CURSp^DLINEC0 @ WDrow colR @I WD! ** NO ROOM FOR NEW LINE **@ZB ZILCOUNT+row+8@ WDI WDI- @I0? WDrow R @LCOUNTLCOUNT+@1TRTR@CUR0C1@DISPTOP-@JLCOUNT>@87J-*@R1J@ISTR@J@C0@CURSPM2=!EXIT`(MW=!DLINE *** -LINE p(M7=!CLR *** CLEAR 'MX=!INS sLNEW-SIZE->  - CURS)DISPTOP@TR-@ *3TR>ROLLROLL )ITRSIZETR+-0IILCOUNT>`IINU =NL@qp0PGI?PGS>NL@qALNI?LNW>LNLP>NL@q;PGPG@LINEPG-LP*LN+SLINE?LINELCOUNT>(NL row colR!I@C0@CURSdDCHARC0 @colR=I /I WDrow col+R &H WDrow colRI@I@C0@CURSNDELBKl *** I/R 3MU=!DELBK *** SHIFT-BACKSPACE (M6=!DCHAR *** -CHARM3=!PAK  /M1=!INSL *** INSERT line 0.Ma=!DEL *** DELETE line@M-WDI &R&@ I=ROLLP(I-*@I@I`CUR0@CURSpMSELECTG@PGLCOUNTLP/@LNLCOUNT-LP+ AERR15VText ends on page 3@VIncorrect page or lineq@lENHANCEW WDrow colcol@QW@ WDrow colcolQP)Q@colR=p#CURS`EXITGd>V/Do you wish to exit program and lose te  C1 col-+@C1@ WDrow col  FI WDrow col@I@C1@CURS0CLR@G@AERR1@?V&Do you wish to DELETE ALL TEXT -- Y/N&@_APAY5sG=!SEARCHPM4=!MOV`M5=!PRNTpMe=!FILEMr=!GETFILE+M(=!SELECT *** DISPLAYM)=!ENHANCEM0=!INSDEL HOLD0)DISPL@LNEPG, lineLN@V6V.Select starting line for display -- page, line;V or Enter T& for Top, or B for Bottom&0_PGLN@PG5 PGT /PGT5LINE@ZP0 xt -- Y/N&p @_A@AY5 OUT4V"End program or access Modem -- E/M@_AAE5@AZ @TERMIN87  "G@V'TERMIN87' not on disc@F05V&Insert correct disc, then press 'CON`#OUT`)G@VNew text configuration:@V@ZpLSTRIPBI@IB8@III 1 IIII@q:INSLC1 col-+@LCOUNTLMAX? 2@VjW-@ *@5LNEW>ROLLROLLPWILNEWLCOUNT@IINU WDI &R&@VI` I=ROLLpI@ -+6LCOUNTuPGB5YTRLCOUNTSIZE-+@CUR0LCOUNT-*+@DISPTOP@PAGSTR@NLPBTRLINE@CUR0TR-*+@DISPTOP`2PAGSTRNL@LN5p 腐[=uI+ @ILCOUNTLCOUNT- 1TRTR@CUR0C1@DISPTOP /+ m *** PACK *** PAKG@ %,V! ** Text Packing Function **@V 04V-Enter starting line -- II+!`-Z0RI-@Z0?!NXT!p-I2 WDJ+ @I25#!I2 5!NXT!.P0I2 @P0Z0>!NXT"5 WDJ I &I2P0-& 7C1##P5V#DRIVE number for CAT -- i.e. 0 or 1@_D#`AZ##p)ND:D70D&@ND@Z#0#B@VIncorrect DRIVE@Z#P#Z1$#RNOTP#OUT$ ANAME$CZ@' LN+@LNEW?LNEWLMAX>%`%)LNEWLCOUNT+?!GETLINE&PILCOUNT+LNEW-@ WDI R @I&3GETLINEV"Enter number of file lines to read& 8 V (or pres!page, line (i.e. 2,3) @LV0 (or press ENDLINE to abort)@_PGLN PPG5!OUT `,PAGSTR@J1LINE@NL 0 p,V%Enter ending line -- page, line DV$ (or pres"OL WDJ @LR?$ WDJ L+R " )II2P0+@STRIP"0I9"`"@i WDJ+ @IJ+LCOUNT-@ WDI WDI+ @ xI!@LFI@RNOT$0$ 7B@V@V Text line length=R characters$03V File line length=LF characters$@RNOT=V@Z%$P3V+ Select line length -- (10 min, 74 max)$`CV!  s ENDLINE for  full text&)&&09_A@A5LTLTA&@]LTLNEW+-LMAX>6V Max room isLMAXLNEW-+lines@Z&&P ADONE&`/@ILNEWLMAXs ENDLINE for last text line&)& =_PGLN@PG5J2LCOUNT@Z!!,PAGSTR@J2LINE@NL p!3J2J1?VIncorrect numbers !@Z 0! BV@V(*** Packing Text -- Please Wait I"PKLCOUNTLCOUNT-@J2J2-@J2J=#!0"`1I 5II@Z"`"p?LI@LR?IL+R "" WDJ+ I@Z!0"+NXTJ t(or press ENDLINE for LF& characters&$p:_A@A5RLFRA$=R?Rt>VIncorrect line length@Z$P$TABUL@RNOT%P%EV=Do you wish to Merge file or Replace A+&pL'I!@LI@LR>IRR*&LT'&$ILTLNEW+=!DONE'ILMAX>!TOOLONG'0LR?IL+R ' + WDI PDELC1 col-+`II@IR @ WDrow I1 F@HOLDpO WDrow R @rowLCOUNT=C1C1-OIrowLCOUNT-@ WDI WDN ***@JJ1!0GI1 WDJ @II1@STRIP@I=!NXT!@0* Insert space for punctuation !,.,:,?!PvMIII@M3=MF=MX=Mc=$II &@jJ+@JJ2?!0#@TRJ1@CUR0TR-*+@DISPTOP#%! *** READ ***# GETFILEG@#0DVEnter printer address -- i.e. 701 (&/P/L&4@E_A@A5AA5ALL@PN@Z44PAL5!PLINE4`AP1404p#VSelect page number to print4!_PN@PNPG>4p43VPrint line numbers -- Y/N&@_IR@I'0*LCOUNTLNEW-LP?!DISPL'@BTRLNEW@CUR0TR-*+@DISPTOP'PHDONEB@RNOT@ILMAX>LCOUNTLMAX@Z'0'`+LCOUNTLCOUNTI-2NL(p)9J2J1?#V@VIncorrect line numbers@Z(@) 7BLOCK`>!VMax block size 60 lines@Z(@)0FV>Enter starting line number of new text position - (page, line))@FV)  (or press ENDLINE for  eblock at J30p  WDJ BUN 0NN+@J0@TRJ3@CUR0TR-*+@DISPTOP1&" P *** STORE ***1 FILEG@1 EV=Store File Name (Enter C for CAT; or pr or press ENDLINE to abort)3 <_A@A5!OUTS1A@S130;S1>SCSCA3@<S193`& ** setup for RS-232 printer (HP 2601)3PJ&@2@Z'0'ATOOLONGV File too long - partially read !@ h@DONE'?NAMEB@V*INCORRECT FILE NAME, :MSUS, OR FILE TYPE !@Z#0(%! ] *** MOVE BLOCK ***( MOVG@@B( :V2To move a block of text, first enter the startind of text&)&)PB_PGLN@PG5J3LCOUNT+@Z))`LN5)0)pcPGPG@J3PG-LP*LN+@J3?J3LCOUNT+>)0)*G@V *** Working -- Please Wait * oess ENDLINE to abort)10_Z@ZC111@5V#DRIVE number for CAT -- i.e. 0 or 1@_D1PAZ1p1`)ND:D70D&@ND@Z1 1pB@VIncorrect DRIVE@Z1@1Z5!OUT1 AERR32 n&@&&DTR,CTS,1200 bd,frame3R4&@&enable XON/XOFF3T"&@ 7&3` 3p-ALLLINESDBLNBR3PGLCOUNTLP/38V Text contng (00V%and ending line numbers of the block.@V(@CV;Starting number - (page, line) (or press ENDLINE to abort)(P)_PGLN@PG5!OUT(`,PAGSTR@J1LINE@NL(@(p0V(Enter ending line number **)`N@JJ1J2@ BUN WDJ  ** Hold block in BUffer$01NN+@J@J3J1?0@0DJJ1J3BLOCK-- $ ** J3>J10 3 WDJ Wp 腐[=wA5EAY5%NBR@R1R+R1R5<VSingle- or Double-spaced -- S&/D&@_A5 AD5 DBL50S195p5@;V310-pitch (pica) or 12-pitch (elite) TYPE -@JJI1JJ 6UJJGIJJIJJ(-@I1JJ_6J@Z6`76SC&@II1@J0@Z6`7DBLk7 +DBLCNTR=g)&8p_I@I5!OUT83V+Enter starting line for search (page, line)8>V+ (or press ENDLINE for line 1&)&96_PGLN@PG5J1@Z9 9,PAGSTR@J1LINE@ D@PAGSTR@J1LINE@NL@`@BInsert5!INSRT@<VEnter last line of block to B& -- page, line&ACV# _ (or press ENDLINE for last text line&)&AB_PGLN@PG5t- 10/125P_A@A12555`A1015@5pCR9>!TR1-@Z5T@Z55E@R9>TR1- T5+TTX,K&@[7p@LINES6DLP/=[7p70'LINESCNTRLP=[7p7@DCNTRCNTR+@I@ALLPNPG=!OUT7P-ALL[7p@PNPN+@Z67` OUT7p@PuF@G@V*Form-feed or insert paper and press >NL89 +G@V! ** Searching -- Please Wait **90JJ1LCOUNT9@*P WDJ I@P9`9P3J@@V String not found !@ZBd9`3TRJ-@TR? TR9p6 *LCOUNTJ1-@ZAA ,PAGSTR@J2LINE@NL@A0IBLOCKJ2J1-+@JJ1LCOUNTBLOCK-A@3 WDJ WDJBLOCK+ @JAP^LCOUNTJ-@TRJ3J16<J1PN-LP*+@J2PNLP*6QCNTR@IJ1J2@PNILP/@PPN6 ILCOUNT>!OUT60RNI-LP+@NN@N?N 'CONT'@7G@V Printing ... @q7HPLINEV'Enter first line to print -- page, line@_PGLN8,PAGSTR@J1LINE@NL78BV&Enter last line to print -- page, line@_PGLN8 ,PAGSTR@ 8CUR0J-*+P+@DISPTOP9%! i*** INS/DEL ***9INSDELG@@B@8V0This function will INSERT a block of blank lines@7V/ =or DELETE a block of text lines@ 4V@V)Enter I or D (@J1LCOUNT>J3J1-A`<LCOUNTTR-?TRLCOUNT-Ap0CUR0J3-*+@DISPTOPAPGB@Z0B7INSRTVNumber of blank lines in block@_NB>N &6@ZI WDI @NBR5NBRP-&N& &@INBRI&6P7J0I@J0SC&@Z6p6`$kT'I@J0776pZJR@JJIJJg<J2LINE@NL880LINES@Z48@$ *** SEARCH ***8PSEARCHG@@B8`@V5Enter search string (or press ENDLINE to abort)@V8dKV* For string in inverse video: Enter HGL$(4&string&4& or press ENDLINE to abort)@0_A@A5!OUT@@BAD5BDelete@Z@`BInsert@PAI1@ @`@V Enter starting line of block to B& -- page, line&@p@_PGLNNLCOUNT+LMAX>VBLOCK TOO LARGE !@ZBB $JLCOUNTJ18B0N WDJN+ WDJ @J@LCOUNTLCOUNTN+B@LJJ1J1N+-@ WDJ R @Jp 腐[=   9 @ 16. Variable page length from 10 to 75 lines/page @ 17. Variable line length from 10 to 74 characters/line @ 18. Recovery from keys pressed in error without text loss @  e choose @ file input. @ 5. When prompted, choose the number of characters in each @ displayed/printed line. The default value (press ENDLINE) @ is 64, which will provide standard typ Xis designed @for the Hewlett-Packard HP-86/87 Computer. All editing and @command functions are executed using only the normal editing @keys of the HP-86/87 and the 14 user-defined keys. @ {2 8. Blocks of text may be moved to other locations F@ 9. Blocks of text may be inserted from stored files at any @ text location ? @ 10. Text may be "packed" at any time for maximum space   @ǠŠͺ @ 1. LOAD "EDITR87" 8@ 2. RUN ("IPBIN87", a binary program must be on disc)  @ 3. When pr ewriter format, with @ one inch margins for 10-pitch (Pica) type. The maximum @ value of 74 characters/line may be used with Pica type for @ maximum space economy, or with 12-pitch (Elite) printer @ type.   g@In addition to the normal editing functions of the HP-86/87, @"EDITR87" provides the following: 8 @ 1. All text lines are numbered in inverse video @ 2. Any number of blank R @ /utilization, or to facilitate text modification G @ 11. Versatile printing functions, including line number @ printing and automatic centering @ 12. Text file storage ;ompted, select page length. For standard size paper @ (8.5"+11"), press ENDLINE for 57 lines/page (or select up @ to 60 lines). For legal size (8.5"+14"), select up to 75 @ lines. The program will then tell you how many pages may @  @ 6. When prompted, choose TAB length. This is the number of @ spaces that the cursor will move when k7 (TAB) is pressed. @ @ǠԺ QBPTRJ3J1@ZA`B`OUT@ZBBdBp.ERR1B@@V /Error#on lineB,ROLL@V pSelect OptionB? *SIZE-*+@K9@@CURSC EDITR8 Vlines may be inserted into text @ 3. Any number of text lines may be deleted $ @ 4. Adjustable tabulator key F@ 5. Any character(s) may be displayed in inverse video, and @  a < @ 13. Text file reading with merge and block selection @ 14. String search G @ 15. Manipultion of up to 5 pages (60 lines/page) without @ file storage  R5 be manipulated before file storage is necessary. @ 4. When prompted, select whether text will be input from the @ keyboard (new text) or entered from a disc file. Refer @ to the instructions under the function if you e@ Ҹ  @ @ 7@Ҹ is a versatile text-editing program which S when printed. F@ 6. Any portion of text may be displayed, starting with any @ desired line J@ 7. PAGESIZE (16 or 24) is changed by a single key stroke @ p 腐[= mde space for @page numbers and titles. However, you may continue text entry @until all pages (4 or 5, depending on page length) are full. @You will be informed when no further room is available.  @  U -LINE "@ BACKSPACE, shift-BACKSPACE  @ I/R (insert blank space above cursor-moves text to right) @ CLEAR (requests confirmation before clearing worksp  (k1-k14). To prevent accidental loss of @text, all functions may be aborted by pressing ENDLINE before @any input when the message "(or press ENDLINE to abort)" is @displayed. @  @ To display a character in inverse video, place the cursor @over the character and press k2. The cursor will move to the @right, and the process can be repeated. Pressing k2 with the @cursor over an enhanced cha  @ The CRT screen will be formatted to display the chosen line@length. Line numbers and bars showing the text area will be @displayed. Type text, and note that a "bell" rings when you are@within   @ @ǠԺ ` @ All edit and command functions in "EDITR87" operate during @text entry, and are initi pNace) @ ROLL UP, ROLL DOWN (but will not roll beyond entered text) @ r@ Note that text inserted into an existing line by I/R may @result in loss of text from the end of that K @٠뱩 @ This function will produce a display of 16 lines (24 for @PAGESIZE 24) starting with a specified text line, or the first  five spaces of a line end. You will not be able to type @beyond the last column. Press ENDLINE to continue. Use two @spaces between sentence punctuation (i.e. !,.,:,?) and the start@of a new sentence. Other spacing rules are found under the ated by designated keys.  @ ]@The following functions operate exactly as in normal HP-86/87 @use except where noted:  @ PAUSE line, since the text@does not "wrap-around" to the next line. Refer to instructions @for the Ӡ and functions for easy insertion of new @words into lines of existing text. @ ] @text line if "T" is entered. The cursor will be at the top. If@"B" is entered, the last 9 (or 17 for PAGESIZE 24) lines of text@will be displayed, with the cursor at the last line. The ROLL @or ENDLINE keys may be used to scroll additional te z' @description of the PACK function. @ When you are within three lines of the end of a page, the @end-of-line "bell" will change its tone. This is a good time @to consider using the pack function, and to provi  8 @ KEY LABEL (two second display if covering text) P@ CURSOR (all arrows, but will not move beyond entered text) @ -CHAR @ M @ @ԠӠӺ Z@ All remaining functions and commands are controlled by the @14 user-defined keys U#xt lines onto@the display screen.  @ @  2@Š벩 p 腐[=  [ @Ԡ븩 @ This function permits you (upon confirmation) to end this @program and reset the computer to default conditions. The @function will also access "TERMIN87", a data-communic ng page and line numbers for the packing @sequence. Since the function takes some time to complete, @you may want to select the smallest text block needed to achieve@the desired results. @   @ This function will permit you to add a block of blank lines@anywhere in the text, or to delete a block of text. The program@will prompt you to provide the required line numbers, and will @the Tntal deletion of text, this @function will only operate on a blank line (clear line with @-LINE, shift-BACKSPACE, etc.). @ @Š붩 -ations @companion program to "EDITR87".  @ @ˠ빩 ,@ This function fills blank spaces at [  @ @ A 3@A few simple rules must be followed in entering text for the  n display the section of text involved. The program will not@permit you to insert lines beyond the capacity of the workspace @(i.e. 4 or 5 pages of text). @ 7s F@ This key will "toggle" between PAGESIZE 16 and PAGESIZE 24.@ @ 뷩  @ Press the end of each chosen @line of text, with words from the following line. The result @is a full document without unnecessary spaces, even when the @text is entered without paying attention to the ends of lines. @The PACK function is particul ) @PACK function to operate properly. g@ 1. New paragraphs should be preceeded by a blank line, or in- @ dented by at least one space. 4 @ 2. Single lines separated from the text by blan z @ӠŠ봩 @ This is an immediate-execution function which will add a @single blank line directly above the line containing the cursor,@provided that room is available in the workspa ying the key will move the cursor to the right by @the number of spaces specified at the start of the program. To @change this setting use STORE, then CLEAR, then READ.  @  L{arly useful when a new line, @containing only a few words, is inserted into the text using the@ӭ function. W@ When k9 is pressed, you will be prompted to give both @starting and endi !k lines will not@ be packed. k@ 3. Use two spaces to separate the start of a sentence from the @ preceeding punctuation (!,.,:,?).  @ ߗsracter will remove the enhancement. @All enhanced characters will be automatically underlined when @printed. @ @ӯ̠볩 ce.  @ @̠Š뵩 h@ Pressing k5 will immediately delete any line contain-@ing the cursor. To prevent accide p 腐[= Y ands alone!  @ (@This is the start of a new paragraph.  @ @ ng text space. The maximum size @of the block to be moved is 60 lines. After pressing k10, you @will be prompted to supply the starting and ending line numbers @(page, line) of the text block to be moved, as well as the line @number of the new s ~ 7@ 5. Select 10-pitch (Pica) or 12-pitch (Elite) type @The selection of type pitch will only be requested if the @printer address is given as "10", and the program assumes that @this designates a serial printer such  @Š뱲 @ All text entered into the workspace may be stored in a disc@file by pressing k12. You will be prompted for a file na 6----- (k9)--(enter line numbers for start and end)--@ N@Now is the time for all good men to come to the aid of their @country.  :tarting position of the text block. If the @text block is to be placed beyond the last text line entered @(but within the total workspace), first use ӯ to fill the @intervening space with blank lines. @ as the HP-2601. For other@serial printers, or for HP-IB printers with 12-pitch type, the @program coding on lines 3350 and 3530 may need alteration. @HP-IB printers such as the HP-82905A or 82905B will operate with@no modification, as will m kvme, or @you may enter "C" and then the drive number ("0","1",etc) to @obtain a CAT listing for that disc drive.  @ @Ġ뱳  :@The following illustrates the use of the function:  @ @Now is the time for  @all good men  i  @ @This line stands alone!  @ .@This is the start of a new paragraph. U  @Ԡ뱱 y@ This function permits a wide variety of printing choices. @You will be prompted to make the following choices:  >ost standard 10-pitch printers (HB-IB,@parallel, or serial).  @ V 4@Note that printer ESC (escape) and CTRL (control) codes may be @entered direct U @to come to the @aid of their country.  @ @This line st y  @ @Š뱰 f @ This function is used to move a block of text to a new @position anywhere in the existi ) @ 1. Printer address (701, 10, etc.) m@ 2. Print all pages of text, or one page, or selected lines @ 3. Print with or without line numbers , @ 4. Print single- or double-spaced text ly into the text. These codes, which enable a @variety of printing functions and options (bold print, enlarged @print, end-of-paper control, etc.) are described in each printer@owner's manual.  @ p 腐[= 1 =  @David I Kosowsky 8/12/82  @  54 yLINCNLINCURg $D6{-}}}***UNUSED*****UNUSED**LINPUMOVE CURSO***UNUSED**ΐYmH".(mΘ)mnm$Zc ^] ^^&UU ^Z5wL X YXY ^ u:MX  @ This function is used to enter text from a disc file. A @file name (or "C" for CAT) is first requested. If there is no @text in the workspace, you will be told the line length of the @first line of file text, and aske 0@ If you press (k13) after text has been entered into @the workspace from keyboard or file, you will be given the line @lengths of the file and of your existing format, and asked if @you wish to merge file text with existing text or to tn of a long text. The program will prompt you @for the string (word, characters, etc.) to be located. Your @choice of number of characters will depend on the degree of @repetition of the string in the text. You will then supply @the REDZREDZERg &$6@R/SgDIM SIZonm#1'L5ΐXH"conmH"onm#H"L>)ZX8L,MAZEREDIZEҽ^%^&L, Z^%^L)H"nm!)-u d to choose a line length for @the page format (for the same length, press ENDLINE). The line @length may be changed from that of the file if a different @configuration is desired (i.e. 74 characters on a 64-character @file to compress with  replace all@existing text with file text -- "M/R". Entering "R" will clear @the workspace and prompt for new line and TAB lengths, and for @the number of file lines to be entered. To merge file lines @from disc into existing text, enter "M" starting line for the search. If the string is found, an @appropriate text portion will be displayed, with the cursor on @the first character of the string. This function will locate @the first occurrance of the string after the starting line. J}ulhuhhuL8kfu Jf ut~4?P~vλWd^$Pdl$ Ƣΐtvtuf lv,Pl^SL8]fnu Jf u v~vP~vλWl4f ^&l4^te ,  and print in 12-pitch). If the file @was not stored by "EDITR87" or the author's HP-83/85 program @"EDITR5", then the file length given may not be the same for all@lines in the file. In this case, if your choice of line length @is too sm ~at the "M/R" prompt. @You will then supply the starting line for the file text, as @well as the number of file lines to be read. b@ The file lines read will be displayed as follows: all new @lines scrolled if a page or $K If @no match exists, the message "String not found !" will be shown.@ F@These instuctions are stored under the file name "ED87TXT". @  >' Ƣΐtuf 5= mall, any line longer than your selection will be @truncated, and a "*" will appear at the end of the displayed @line. Any number of stored file lines may be chosen to be @entered into the workspace.  'less, otherwise the first screen. @ @Ƞ뱴 W @ This function provides a convenient means for locating @a word or sectio p 腐[= STRB~-B  $:$abeg4HGLLWCRPTREVTRIMROTNOSARSTRNGB.H8\X Pe.H8XPA[ P(.k?=e vλWn, -o3#u }eXPR}.H8ZuKEYOvKEYONBg &"0(@oU?fKEY OKEY OFBAD 'KEY ON' FORMASYSTEM HOOK IN USR8^5-fȞS,ΐT%gdγR dÊ芊NpnjRmP_e5YZbV)W\W \D HJ{ Γ iHHDHO?PS^^%gdγz(xу}N% Nz(he&fm&N Hk `lVhΓ ~jHOHƮHO1D^Jhoh k Γ 6kO`g` Γ lО^o%gdγNH% ^Ho #dqX Pe.H8XX/P ȠXX PZ P ȠZ u(.kH8~~X>~@e5>ųXX Pu~ P}*-H8L{ q l{l q ΗkLh}n&nPl&l\W4Λe5m^b mI lL `/LNUX㝘cH"X/L,'$nmgȈ0c'nmoΐΐYVR8\ eVmP|t Lu IV^)VX^)_\_\R8JWpp) vΓ 4qHN8yxуH8ΕV48^DONE`g` fege HΓ 6kH㞘`^eó^ V%ge T XYXΓ mОaH8c N2ΕHͫ8V8^7ƮOH8DDH8e1ΓD%`SGGCUR=,GCURSBg $<0:g#2AMGCURSOR OFGCURSOR GCURSOR GCURSOGCURB\5 d ` g` FLNRbȈ/ȞEȤȟȪȣ Ȩ]` Z` Q/2`  h  U`  C` h  `U`^  ` 垀:.H8P {  Ƽks v q lL3vqλWL,vvλWL,- o3u euu{cl q ΗkUu{nf PPqRPenuPl5lv}xPRu{nPlP Re)RWv)e V_)VF.^ 8v%ge 1891 ,6 YLUJ  last columFirst column = LL]fnk} Z PRLT&8XZ9T>PN8zR;9mU\e m2^Iΐ^Iΐ^Iΐ^Iΐ^IΐMm 0mnm85uųelkla{ ka+[ Vh \[VhoP\V-^8ZDY-]a` (V` ^κ[ VδVκ[ V[\ h9Uh \ V\8!Z-]\Zκ[[ VZΐ ^` κ[o Vh \[VδV[\h V\8!-]a`8κ[\Z V`B.ΔQD{[Zΐ h8\h( YI`-^8Ʋ^ΐ jr B.ΐb2\b"~?} X~ffY}g~$&Ru8΄Γ xL8ffpуΓ ,cOQ&R. X`уR e& X0. MQ  fE / V0^.f V8 { k,/)M}0mu}mcdcuem00MmL`]f)xzI{ҬQҬҬ^ԬԬ5pxp(v@^5XҬ|ӛxPRΥ^5pxp^xXҬ#T %?'%n,mcH"L8 p Ʈ-L8h h -L8h L8e8` g@`P ] ] ] ] Ʈf %gdγ 2 AΓ i\ eӼμ[h Γ xLo\9U\8!^`(g 9U^ κ[ VS\Z^V&T` ^κ[ V[\ hT\Θ\κ[[LT`8(Z V\ h8[ VT`8κ[ Vh8[\9U-]`8\ΎY_jZGp^ v@%`0_JhT8~^v``01`8\\8ƝDYh^TAL ARGUMENNON-INTEGER ARGUMENhP %e^@(^ A^@0h ]n  f ]n  f p^\2Z\Dn  f.f^fX  Z  Y^[Z\P  V ʼnx @8΄^TPAT@@8^Vٞ <  ^f Z GZ^VQ ƙOfG ; G 3fXRQ RRP \ MQ@1x fF / f xVnXnff%ΐZxZXX ; GZ;? L,'nom.c(=e8c 32.302:veR 2891 .oC drakweH-ttelweH )c(:M$Zc ^] ^^&UU ^Z5wL X YXY ^ u:Mf8X &÷` Pb #ebb& bf8B`VÇP` RURȣRȚT ho&h`(_DY`8hop\Z VBxZxh T-h8]\h2\[ V\8ƝZ ^`g` ^Z^`2κ[ V`2^Z[ \hVTh \[D#UT Vκ[ V`8(^ ZVh\[oV`:^B8P8@h\[Z V[\h: V@ h TRAC%TRACKBg $$0*>=[TRACTRACKBTABLET NOT FOUN.c(e8c 41.502:veR 1891 .oC drakcaP-ttelweH )c(c%ΐX?'X/?'X/?'X/n%omp` Γ )cOL8} g.f X30x jOZ 1SORTjISORTB2g  $bB0 27 gNNnowanowanowanowanowanowanowanowanowanowanowanowaSORUPCSORElement length = Element length > length of strinLast column > size of elMATH!.MATHBIg $>:|.t\mSINCOSTANASINACOSATANOCDEFACMATHBI.c(e8c 22.302:veR 2891 .oC drakcaP-ttelweH )c(-^8w-^8[\h89U_h8`\^ V]a^8U^ `κ[ VZ^`8J\[+Uh8\ [+Uh'g2S8\[ Vh8\ [ VZ ^`Z^gPh8\ VZ ^`8^ ZTh \[Vh \[ V΃\V TT^fWT^xpVgxooh8o^h VÛ\h0o^]h `DY@qBqBt7`V5 @UvUas``y40'Yp 腐[=IPBIZIPBINg P$T _>.RDIbl v__PvvPP vvPK yo5[CPRINCLINCCURSOCCLEACWRITCDISON KBOFF KBON CCODOFF CCODCLPOCCPOCCHRKBDFINCONVER\TŞN`B`gFHΔR8V/ ȣ WVV EPlkVg`BNPȎFDPcvu#H".(u vuΐY$Zc ^] ^^&UU ^Z5wL .\P@p\Ɵ'\ƟZ c\Ɵ}Ε}^\\R8Ƅp\ƟX^XP^\XPβZ\Ɵ΄ZƟ\?΄\PΜ?΄Z\ƟX@X.e X-o3X u}\e   pX ː  XƤ J` Γ eOΓ XfOTR8TP8X-okl| kΓ fJOΓ fOP8XƤ p #,KXJ` Γ eΓ .mP48VT cX%%cX 8˯ftΡsΓ ~mP8iT KBD PAIRS ;CONVERT KBD INDEX ;CONVERT KBSGCLEAKEYBOARD ILINPUHGL]m#nmH"]cLr)noncH".(mnmncH"gȈΐ\0R8P5UQ : ƱRbal!vrtq,|u,aavX YXY ^ u:M``' 3a  edr%rO$T+ PV- W' P+ ƱyΐR8N\mMSX / u  u( Λm5uNZΏR8P 3PfpZferf |uX P}s u[}[ȀL@yL9^;}^=*u%=ʼn}5u}` }||\P{ |G}VeTX}Xm%ųZV}V LZu` uB` ZCBm5X PRTR ST QSX`F8S`ƱPP P< 8X`PK Y TU RTR Γ lXD6TRPFD=$tP `a uaPR8e( YZ[eYZeeef Pff V Ef' + dR8e( f+ .R8mP3Au%=}u} \+ PT- Z }ZpfZמR8e YZ[eYZeee R8e b^P ` OW^ ` aUkfR8fƯR8bWk\&@Ɵ\R8Φ-R8f^& ` -R8P\p^ .]R8n&mV-69f Y'ZmųZB^_B^2( %XƇe쇲^8c%LeI  Oxph`xfP7`R[8 Ra}&~=}~}b}\P e\+ Δ-R8m \mffP\fWWc klR8W e} eΔYR8pkfkfkfkfZPɠP 2RPDR ZV^iY[Zf\őf\f_f\_^ ?b3#V u\&ƦβZm\ƟΔl ΔYR8W Ƃ YYX' Y^β[Z^\^R8 Ƃ Z }c}Z7Z [ZD{Ȳ| V}VƄ\Ɵ ,% mnmcΔ\P8fX kf` kfgfggP8X dΈ P8%ãdƇe f8e쇞PrNP8X OpRpbRrrOP8X V pV p X X h;000RaV^#`x@8x`hpx㟞R?7= & e  z z   e z  ev o e[ eA 1 * ? ! e T   e      6 6 6p 腐[=Z {--- p C G V@V@V!V LIF UTILITY PROGRAM!V (use the soft keys)! V (A.L.R. CVD 6-81)!0V!@!PC< p!`Z!P!==+=" subroutine to"  LIFGET {RANSLATION&P N&`&pRO&BMRD/&RR+'q' ==s'  start with sector O'0ROE+>( '@NN+'P getline'`[A`'pzȋ\\ZȎ\Z[Z [Z\ZFH?@džDƆd^%d-]^_ ` ^-]^_ ` Zc-^X_ ` 垡` owanowanowanowanowanowanoC ...... command flagPT1 ..... rec char ptr`L ...... line lengthpN ...... line numberX ...... eof flagD ...... DSJ byteD7 ..... number bufferP ...... print flag  -- -@# "`[#"pZ' " ---#  a GET# C# G#0V#@ VLIFGET#PV#`VWHAT FILE SHALL i GET?#p _F1#V#V O.K. FILE F1$V ..3.$V$ $VWHAT SHALL i NAME THE NEW DATACL'h>( ' putstring'[F@(Z' (q(  --M(0 XLATE COMPLETE(@*(PV(` VDONE!(pq( --\-)  SECTOR BOUNDS)0)@I@D)PAMID/ MAINp%  __4  LIF UTILITY PROGRAM0@ -- -P  ALR CVD 6-81` --CpThis BASIC program  provides HP-85 LIF capaAVLBVPAV `BV pL qP DON'T PRINT Set up by getting msus and initializing soft  keys0AZ@2 LIFG @BPG`VWHAT MSUS SHALL  $0 VFILE?$@ _F2$PV$`VO.K. DATA FILE F2$ph$F$ P$$&V SHALL i PRINT THE FILE? (Y or N)$ _X$#XY5 P% Determine sector loc % of LIF fileR)`T1 curr rec ptr)p) J00#KF1@KK-0 SJ-2*+00'F1ASSK+52 0@ no match, next?0PJ>00`JJ+0pZ0FORMJFORMSB2g $Z>$/x]READCHAWRITECHAHOMPAGXPOYPOKURSOKEYKEYKEYSETKEENDKExzJ{L`ξ)L`o)e#fJgeH"L`]r).7βΩZm3m nu^nbility. LIFGET translates an LIF file into DGET form. LIFSAVE  translates a DSAVE file0 into LIF form. --`-Variable usage: L$ ..... line buffer0 M$ ..... MSUS@F1$ ....i QUERY?p _M[0Z p0LIFGETC["@LIFSAVEC[3`PmsusCZP`DpprinterC[catC[bnumGETC[RrsectorC[c C q@-- G%@[(%p% CREATE NEW DATA FILE%AZ&&F2E*&B@Z&&----ERROR IN CREATE&B& c=&&G@VERROR ON CREATE!!!@Z1p&F2& &0VNEW FILE CREATED &@VBEGINNING T7} vZvZ Σc7α7]W7e!\^΄ \۩e\ͩ-^\P^-Z\P^Z^^ ` 垡7kP&]^PnnnVVnn͐ːnPZ. source filePF2$ .... object file`A$ ..... directory buffpB$ ..... sector bufferY$ ..... putbyte argO ...... file originE ...... file extent R ...... current sec #0I,J,K .. temporaries@p 腐[=NO PRINT4`4pG4V LIFSAVE4V WHAT FILE SHALL i SAVE?5 _F15V@V O.K. F15 F1M&505@%VWHAT SHALL i CALL THE LIF FILE?5P _F25p determine file size 5[(6)-9`X<@`9e  putline9qZ@9t getnumber9v'D79wLD79xLL9y  ---@[G0@Z8@  --I@`  DONE@pV@YU@[Q @ VDONEA[Q  SEND &IBT1T1D`T1T1+DpT1W?E0D fill buferDBMRD/E RR+@T1E;V translation RO-*E/ % completedEE0IE@$LXRPAZPP'L!P BP0LLP@P`qP --$PBQ XQqQ  --lQ0Subroutine PUTBYTE toQpT1W?R QBMRD/Q INIT LIF BUFFER 0 --1 not in this sector1II+1 I?)P101@ NOT FOUND1PG1`VFILE NOT FOUND!!1pVaaaaaaahhh1 F@h@F1u2 --&2@ sector loc2P4OA69AZ6E6@F2M&E6AB6BZ6P6EB6F c=6P6GG@VCREATE ERROR!!!@Z1p6P6`F1F26p[(6 origin of LIF file6&V SHALL i PRINT THE DATA? (Y or N)6 _X6#XY58 EOFABMRD/A FA0qA` ---ApSubroutine to get aA line from the LIFB T1W?BPB0BMRD/B@ RR+@T1BE;V translation RO- `T1T1+EPF$P=kLLFF0qF@ --n-FP Subroutine to print a F` line into the data F  'LL$#GqG  ---G0S+V*AS++2`2p4EAS+V*AS++2 O => file origin3 E => file extent3V3 V FILE ORIGIN O30V FILE EXTENT E3@q3` ---3 P7RO7  change type to ****7@$AS+S+7P$AS+S+7`AMID/7 init line buffer8 T18"L  *E/ % completedBPB` CBp1LBT1V*BT1++BT1T1+BT1W?C@CBMRD/CRR+C T1C%;V translation RO- G Subroutine to put aG@ line into the LIFGB$P=kLLG`ILVGpJLVGYJ len byte 1G[Q HYI len byte 2H[Q H H@ILHPMEpSubroutine LIFSAVE4[4P4 INIT LIF BUFFER4Bh4#BBB&B&B&4#BBB&B&B&44Z8p4  --7-4@ a SAVE operation4P C4UPL8 #LLL&L&L&80LLL&8@q8P==8p now translate file8=@`9  not eof9=9t90 getstring9P[IP9Q0LLL5LL :*E/ % completedC@  get lineCp"L C#LLL&L&L&CLLL&DDL'h?D@D ROE++D0qD@ILDP*LIYLIIH`[Q putbyteHpIHH%Y2 if even byteH req'd then add a blankIL[Q I@qIP --@-I` Subroutine to getIp a string (line)I Xp 腐[=Hٟ-- PRINTER SELECT SUBR G0!VWHAT IS THE NEW PRINTER SC?@ _P1PP1` Cpq LIF87 .  {P}L X~ X6ك****BPGMDATAPROGNULLgrafassmasci????Name Type Bytes Recs  6KT1YR@T1T1+RPR`RpqR ---RSubroutine to get aS LIF data file andS  xform itS[#Tnow xform the fileTT ROE+>U`T@NvXaBaqb--ubCAT SUBROUTINEb0 Cb@GbP M/b`V (CONT to continue)bpbbqc--P-cRSECTOR SUBROUTINEc0Gc@VWHAT SECTOR SHALL i READ?cP C LIFB/LIFG $8.6SWSECTORSECTOLIFCALIF.c(e8c 12.402:veR 2891 .oC drakcaP-ttelweH )c(c'/ΐYcH".(L,'L,%L,H"X/m/c'xxH8xkly  :FORMFORM NrNHHެ)@W˫˫٫٫(6۰ib=_"N&&#VV88&# &]|GET FOR'FINPUDELETE FOR'FENTEFENTEQUESTIOMESSAGANSWERFORMRECLEAR STATU'FO`N+TPT`[A`getlineTpTL'h>U`U PUTNUMBERU D7LU0 'D7"#U@ZT UP--a-U`DONEUVU V DONE V*VV FV0hV@qV`-----c` _ScpAMSD/ccD=d`d  DSJ ERRORd0 F@h@Fd@V DSJ ERROR dPqd` ---DSJ O.K.dpV SECTOR IS:Adhd$VSHALL i DECOMPOSE THIS SECTOR?e _ReR tk{вbXkZ{m^km mX-}z~ZJ|^ε|α|{d*}^k m:Myt ^ ` /Llp J䃞H8Γ bΓ fLhLIFVOL: jW ^Γ cTLV RΚ^Γ c^Vr/~ }RM ENFORM ENFORM STATUXYZZFNAMEFPOFLETFNUFIELDSET INPUSET TAFDISKEY LABEBOTTOM LABECLEAR KECLEAR BOTTOCLEAR FORHIDE FORSHOW FORcc']}*mnmR58^V |FORM \cncH"}*c' ?'%c ---VpSubroutine to save anV 85 internal form dataV file as an LIF data W`[4PWpWnow translate fileX` XXpA[a@X'D7XBYYLD7Y LLYP/sY4qe e@kePkSECTOR DECOMP FOR Se`kepk BYTE # VALUEek --- --ueIVfkIAIfIf f0 k@k@k@kf@fPq------ NncQ3n cs h@n(cs}X V^_PV^BbQn,~n,d.n nd.(ndNULL>b^n @}~ ^n^P^Γ "dVPΓ cΓ $gX} YX ~X Xg#cH".( X/ΐXmnmmcH".(ΐXc%mnmc'mnm.c?e8c ]00.01[ 38/60/10 :LER .2891 ,.OC DRAKCAP-TTELWEH THGIRYPOC )c(\Ά\6Ş.c} e8c 垡e ^ɜ ΐYV8P^-bLX QBQ#BBB&B&B&Q#BBB&B&B&QQRR+R T1R;V translation RO-*E/ % completedR  ---R0&BT1RY`X<`@Y now send string`[G `` ZX``@--y`P eofile, write EOF`p YU`[Q `[Q aaBMRD/a Fa0qa@ ---aP ERRORap p 腐[=F\.u\.^>~^Z΄Z^\>@\P ƶ\}iJRcN9"L8k~ c L8k~ a L8^ Y -L8^  -L8^ Y  ` -L8kfL &^ -L8kfL &^ -L8^ a -L8^ ~ _P V }iZȝ"v f6Z΄ZfvZȞ @RRZȟvv 6ȠΓZȪv 6ȠΩ!!L8v~6v 6ȠF@R/Z W \\>β^΄Z~Z W [Z΄ZΩ!L8z :M\L8z  uC.NΐXL8P V JPV Zc^] ^^UU ^^ Z-oL P Q Pm 7}r}~}>~8}S 㞡L8\L8\m8| O \=|V a ^ @R ΓΩ tnn"t 7@R /L\V c R\J]\ ~ ]V^LV \ ^ >Rˠ[yβZz yZ 0Z~\V c c ^ e`eˠ垡L8e ^~ Z[Z΄Zf~Z΄ZfZV c \~ ]V \ f V c c L8V  8n4Γ qP6Γ qИL8 L8V O } C^ ^^\ e ] \\^Z 7Z T ^\Ë  ƶ\P ] ZZ΄Z^ ] \NO TAPE TURKEY!}屨e 88PJuΓΩZr7ZbRȠEJZȚ i S @Va a Zȣ S ~a i ƕ | O  y UV a v~ wV6 a | O i~ZȀh~Zȁ`~ZȂX~ ZȃP~ZȄH~Zȅ@~ZȆ8~Zȇ0~'Zȓ(~ZȜ ~ Zȡ~ZȢ~!Zȥa \ f ^&ÞttZ5vbT\Ve_^Zt`^Dn:^9n0^.n&^#n ^n ^ n^n_nonm.Z XΩ^t_Z6Z5vvbT\''ZvbT\ [Γ qP6Γ gL8}J}㳨㳥v u8:M\\L8\ T ^ Z ^΄Z^\\ ] T ~ c a \e ] \@@L8\ke ^nP\ ] ~XZ:V~~\P~$ZȬ ^>uL8ZȈMv \63\β\΄Z\\βZ \΄Zv@RZȉ.7L8v ~ w~a v>~ ~ w# i~ Y Zș0 ivv 6Ƞ\Z΄Z\!Zț' f\Z΄Zf\  YO'Z7L8~ ~ v>v"~ a \Z΄Zf\~ c X p 腐[=~CFORmCFORM Nr~xNSNCREATE FORCFOR@5|FORM \8|\=|\Εc'}*mnmcΐX.c?e8c ]00.90[ 28/61/10 :LER .2891 ,.OC DRAKCAP-TTELWEH THGIRYPOC )c(}r}~}>~8}M DEL LINE PAGE SIZESTORE FORMINV. VIDEO EXIT Γ· ` ΓΓΩL8 `vT6VTPRʼnv kT6VΚ^~ ƍ L8 `vRTVR6ʼnTPv kT6Vz^nP~ G~ ƍ  Mr ~ · L 8㞡L8e ^ KfiZ&^x ^Qx T k  iUL8S^> k~I~VΆV6ŞL8\~n G ƍ^^>ʼnV kZ΄Z^_ PPƁ^uR~U@R ΓΩ tnnt7@R 8uRRZ8 `RO.VTRv kT6VΚ^nk m .~ Ƒ~Z8L8_ i^Kei8^ eΓ qV6Γ q XвQΐ~X4e~8kZ> ~.L8n kvk8fnv>>Z6Ƞ^k8&n68kVVv>Z6Ƞ^k   ΓΩZr7ZbȜS R ƛ 8uR7Z8 `VOTvR6v8kTVz^~ Ƒ~Z8΄Zvn v. v8Z6kΩL8Z̀   $pqrs xwH)vHHHH;?NoRSNStHH sSI8&Vf^j8X&YXmQ8e8m%Γ eL8~ ƍ[CFORmCFORM OsyOTO¼CREATE FORCFOR@5|FORM \8|\=|\Εc'}*mnmcΐX.c?e8c ]00.90[ 28/61/10 :LER .2891 ,.OC DRAKCAP-TTELWEH THGIRYPOC )c(}r}~}>~8}nPHWHuHL8Z 8 ƕ [~'~_C~ ƍ QRS R QS Q k L8^ Nn_n0n_ P#P^PVZ[Z΄Z^~_ P^>P Ƒ^ NI/O FIELD INS LINEp 腐[=  EFOREFORM ߽L,EDIT FOREFOR@5|FORM \8|\=|\Εc'}*mnmcΐX.c?e8c ]00.90[ 18/60/11 :LER .2891 ,.OC DRAKCAP-TTELWEH THGIRYPOC )c(}r}~}>~8}p 腐[=  *㞡L8e ^^ e^ fZ&^x ^Éx R { Y  gUL8S^> ˨ ~I~VΆV6ŞL8\~n W Ɲ^^>ʼnV ˨ Z΄Z^_ ƒ^uR~U@R ΓΩ tnn 5t7@R ΓΩZr7ZbȜS R Ƭ IuR7Z8 pVOTvR6v8˨ TVz^~ Ƣ~Z8΄Zvn (v. (v8Z6 ΩL8Z̀  +05LP_c 6EFOREFORM ߽L,EDIT FOREFOR@5|FORM \8|\=|\Εc'}*mnmcΐX.c8d_dahL8Z I Ʀ l~'~_C~ Ɲ bRS R S w { L8^ n_n0n_ #^PVZ[Z΄Z^~_ ^>P Ƣ^ I/Ol  · L8uRRZ8 pRO.VTRv ˨ T6VΚ^n˨ m .~ Ƣ~Z8L8_ ^e8^ eΓ qV6Γ q XвQΐ~X4e~8˨ Z> ~.L8n ͨ (v 8fnv>>Z6Ƞ^8&n68ͨ V  ?Vv>Z6Ƞ^8&Vf^8X&YXm8e*8m%Γ eL8~ ƝbL8n4Γ qP6Γ qИL8 /L8V O C^ (^^\  ]\\^Z 7Z ^\Ë ( p\Pp 腐[=  Z~ Ɲ^ \NO TAPE TURKEY!}屨婎8*8PJuΓ qΓ gL8}J}㳨㳥>  FIELD INS LINE DEL LINE PAGE SIZESTORE FORMINV. VIDEO EXIT Γ· p ΓΓΩL8 pvT6VTPRʼnv ˨ T6VΚ^~ Ɲ L8 pvRTVR6ʼnTPv ˨ T6Vz^nP~ W~ Ɲ  r ~]UVCFORmCFORM 4Xd^uv49Ǒ4CREATE FORCFOR@5301 18/60/11Vinal (selectable) G @ 4. Full support of Hayes Smartmodem auto-dial modem @ #a. Touch-tone or pulse auto-dialing  @ (b. Auto-dial in originate or answer mode @ c. Sta  G @ 12. File transfer (Upload - send; Download - receive) @ 9a. Automatic adjustment of file size in download @ %b. Transfer of ASCII or program files ' @ 13. Calls companion text editig@ θ  @ @ 7@θ is a complete data communications program ndby auto-answer mode  @ d. Single-key redial @ e. Alternate number dialing for same log-on coding @ 5. Standard modem operation at 300 or 1200 baud rates @   ng program "EDITR87" to edit @ text off-line for uploading, or to edit received files @ 14. Single key toggle between PAGESIZE 16 and PAGESIZE 24 @ 15. Rapid reading of stored files, with adjustable reading @  speed   which is @designed for the Hewlett-Packard HP-86/87 Computer. All cursor @control, editing and terminal functions are executed using only @the standard keys of the HP-86/87 and the 14 user-defined keys. @  ? 6. Full printer control, including paper advance and skip-@ # over-perforations for tractor feed 7 @ 7. Printed copy of all or part of CRT display ? @ 8. Support of 7/8 bit words at all parity settings  G @ 16. Recovery from keys pressed in error with no loss of @ ) transmitted text or CRT display position G @ 17. Rapid selection of default conditions (shown in inverse@  viO .@"TERMIN87" provides the following features: 3 @ 1. Operation as terminal or host computer * @ 2. Full or half-duplex operation @ 3. Echo to remote term $+ @ 9. Selectable parity checking 8 @ 10. Supports Xon/Xoff handshake (CTRL-S/CTRL-Q) F@ 11. Auto log-on (20 positions) with simple coding, and @  without file storage delay.  edeo by pressing ENDLINE @ @ǠŠͺ @ 1. LOAD "TERMIN87"  @p 腐[=   * @ All letter, number and CTRL keys @ All cursor-control keys  @ BACKSPACE  @ ROLL  Nompted for the file @name (including :MSUS or .VOLUME, if required). Entering 'C' @will produce a catalog for any chosen disc drive. g @ Transmission of the file is automatic and may be stopped @before the entire file is sent boose codes 1-3, for @ an EPSOM or HP tractor-feed printer, the program will enable@ the skip-over-perforation feature of the printer. e @ 7. If you have chosen a standard modem (step 3), you will be @ prompted to choose 300 or 7g- @ minal will be echoed back. This is the normal configuration@ for full duplex operation. w@11. If Auto-dial modem, press 'connect' (k9) to access auto-dial@ selection keys. Refer to ϭ̠ for  @ 2 @ TR/NORM (only active during auto log-on) @ KEY LABEL $ @ USER-DEFINED KEYS (k1-k14) @ #y pressing END XFER (k4). @ @Ġ˳ Z@ This function provides for the storage of transmitted @data or program fileM1200 baud operation. @ @ @ @ 8. When prompted,details. @12. If standard modem, the 'Auto Logon Directory' will be dis- @ played (in auto-dial mode, press DIAL (k5)). k@13. Select a number from the directory, or press ENDLINE for @ manual log-on. See ϠǭΠ    @ˠ뱩 \ @ Transmits a momentary 'break' signal to the remote host @computer or terminal.  s. After pressing k3, you will be prompted @for a file name, and then for an approximate file size (in 256 @byte records). The file size is not critical, since the program@will automatically open new files (with the suffix /1, /2, etc.)@if requi6 2. RUN ("IPBIN87", a binary program must be on disc) @ 3. When prompted, choose modem type. Auto-dial refers to HAYES @ SMARTMODEM only (configuration switches 1-5 down, 6-7 up). @ Standard modem must support data carrier detect (D` select terminal or host configuration: @ Terminal : transmits CR, receives CR/LF  @ b : full/half duplex, local echo in half duplex @ Host computer: transmits CR/LF, receives CR @ U for details. @14. Follow prompts to make connection and start log-on. : @15. The following keys are active while communicating: :@ PAUSE, CONT (special functions in READ FILE (k5))  @ CLEAR  ԗ @ @Ġ벩 r@ This function provides for the transmission of stored @ASCII data or program files. You will be pr,yCD) line. @ 4. If you choose Auto-dial, you will be prompted to choose @ touch-tone or pulse (rotary) dialing. : @ 5. When prompted, enter printer address (usually 701) -@ 6. Enter code of printer type. If you ch Z : local echo, echo to remote terminal (select) @ (CR=carriage return, LF=line feed) @ 9. If Terminal, select full or half duplex when prompted @10. If Host computer, choose if characters sent by remote terp 腐[=F j @ This key is used to terminate any file transfer operation @(i.e. DOWNLOAD, UPLOAD, READ FILE).  @ @ĠŠ˵ TL @ This key will "toggle" between PAGESIZE 16 and PAGESIZE 24@ @Ժ뷩 1@ This key "toggles" the printer on and of 빩 @ This label reads 'connect' if auto-dial modem is selected,@and provides access to all Smartmodem auto-dial functions. @ If a standard modem is used, k9 displays the auto log-on m parity bit to ODD, EVEN, NONE, @ALWAYS 1 or ALWAYS 0. The parity setting, together with the @bits setting (k10) should be used to match received data framing@as closely as possible. Most data banks such as the Source and @Dow Jones News/ReCred. A page of text of 60 lines requires about 16 @records. @ When the download file has been opened and is ready to @receive data, "Download On" will be displayed in inverse video. @ This function may be used to display (and print) the @contents of any downloaded file or any file stored by "EDITR87" @or similar word processor/editor programs which store data as @individual strihf. The printer @status will be shown in inverse video even if user key labels @are not showing. @ @ǯԠ븩   @directory. @ If communications has been established (carrier detected @by modem) you will be prompted to elect to continue transmission@or to disconnect and redial and/or log-on.   @All transmitted data will be automatically stored. The download@may be terminated at any time by pressing END XFER (k4). The @message "** File transfer complete **" indicates proper file @operation. The program will indicate any problems ngs. @ You will be prompted for a file name (or enter 'C' to @catalog any disc drive). As the file is displayed, pressing @PAUSE will cause the display to scroll more slowly, pressing @CON  -@ This function permits the following: @ a. exit program - returns computer to reset conditions @ b. access editor - chains "EDITR87" if present on disc @ c. reconfigure sys   @ @Ӻ뱰 p @ This key "toggles" between 7 and 8 bit words, and is used @in conjunction with k11 to set the framink5during @transfer as well as required actions.  @ @  2@ĠҠ봩  T will restore normal speed. PRINT: (k7) may be used to copy@text as it is displayed, END XFER (k4) terminates the file read.@ @Š˶  tem without disconnecting - selects @ terminal/host computer configurations and baud rate @The program prompts for all choices. @ @̯0Mg of transmitted data @to match the incoming characters. See ERRCK (k12).  @ @Һ뱱 @ This key sets the systep 腐[=Zon. The @complete list of directory strings and instructions are accessed@as follows:  @ a. LOAD "TERMIN87"  @ b. LOADBIN "IPBIN87"  h) @ f. Send ID and password, followed by CR $@The log-on sequence may be aborte@ Places modem in 'answer' mode. Incoming calls will be @answered on the first ring. Pressing k3 cancels this mode. @Š볩 8 @ Returns modem to 'originate' mode from 'answer ͹O7 aborts any dial sequence. It is equivalent @to hanging up the telephone. @̯Ӡ빩 J@ Pressing k9 and entering a number will cause the modem to @dial#Waits # seconds (W0=10 second wait)  @ P xPauses log-on sequence until CONT is pressed @ (string) Sends literal string contained in ( ), followed @ by CR or CR/LF @ gd by pressing TR/NORM.  @ @ @ ϭ̠ @ These instructi K' mode. @ϭӠ봩 r@ Pressing k4 will immediately answer a ringing phone and @place the modem in 'answer' mode to connect. @̠뵩   that number in 'answer' mode. @נҠ뱳 q @ This function makes it possible to auto-dial a new number @for log-on sequence selected by DIAL (k5).  p 腐[=6 &QP&Q80 col for MX-100 8P1T#,K'CR'&N&&Q@Z8P1T#,K'CR'&&l60f1L&Q@Z#P1T#,K'CRQq"RF reconfigure flag5G@AUT LDLDD$ Log On,downld,error flags & stringsF<MDM@HOOK Auto-dial, carrier flags`YRDFD7F26file xfer off [D7=all transfers, F2=Upload, Read(RDF)]DP22Printer Enable Fl MAINPr EA ** 'TERMIN' ** REV AMI dDavid I Kosowsky 12/19822SIZE0 ** change to 24 for HP-86 **3/  No I/O rom@F@uT*S@AZX RS-232 Select CodeVUI@I'AW@A=SI@IX6I@S=F@VNo Serial Interface@u` Sp&5@SIZESIZE0@4EV=Enter Printer Address (2=No Printer) or press ENDLINE for 70169_A@A5P1P1A8%P1=PCD@Z9P1=[@&V@VEnter Code of Printer Type:D0V(  # ** Configure returns here5V300 or 1200 Baud Rate -- 3/12&@_A.BR@V@A125 BR KXECHOECF@VTerminal or Host Computer -- T/H&"F_A@AH5*? ** Operates as Terminal or Host Computor A= ** Uses Auto-dial (Hayes Smartmodem) or Standard Modem"A= ** Smartmodem configuration switches: 1-5 down, 6-7 up&(HD**SIZE4AZ IPBINg B I DIR 5 NAM 5DL5L5DDp0SISK9`KB1E00P9%@pG@[D8  CODE PRINTER MODELF0V(  ---- -- -P6V. 1 # HP 82905A, EPSOM MX-80T.V& 2 HP 82905BV0V( 3  EPSOM MX-100` X@Z"Terminal(X=0),Host(X=1)$*V@VFull- or Half-duplex -- F/H&&*_A@AH5ECHO(JF V** INTR DCD, Redial return (not auto-dial)0*RF[ @RF CA**Q0EA** Terminal : transmits CR, receives CR/LF, supports Xon/Xoff2A= ~: full/half duplex, local echo in half duplex4EA** Host computer: transmits CR/LF, receives CR, supports Xon/Xoff6FB : loc: len(I$)-1000LF@CRD1@D3 AERR18G@[6`@BR! * initialize, default baud rateCV=** Press ENDLINE for default values shown in inverse video **AAUT@V@V :,V$ 4 OTHERd,_A@A5@AAfBA?A>@PCDA@PRINIT@Zh3PRINITPCDPCDfZZZpZpCP1T#,K'CR'RD2CL8@L9" default output for key40X#L8@L9L9&@ B?T0T1%power on switch, printer control flagDoLL0ERDF@B1ʷjal echo, echo to remote terminal (selectable)8@HD** For Auto Log-on Directory: LIST 8000-8400 ***DFHD"**+HPAZR@A1)@ZTRVA!uto-dial or Standard Modem -- A/S& 9_A@AS5AUT@Z0[0@V":TPT@VT!ouch-tone or Pulse dialing -- T/P&$'_A@AP5 TPP&#K9# connect 0Gp 腐[=S@CLRBUF@q` *** Setup CardpCARDS%S'V ODD Parity8S'BRVDTR,RTS; 300/1200 Baud1S'VDisable autodisconnect6S '%Vxm)@A[@ ** D=cdisp ptr&CLRIN@SIK6R G@KP@NKEY0VConnection established:@F6DL5V@ZV@V5X,K'DLE7V/ Set correct BITS & PARITY -- i.e. (7,EVEN)  'AP9V@q D@S@K9227@K9AE ODD  K9TVOFF@q *& p**** Main Idle Loop **** HOLDA[@"I'A1A2W CARR@LOGON0* LF&LF&LF&Form feed = 4 line feedsp#PB1@PzPB=+B1B1P-L5&;B1B1P-L5&B1P+&%P1T#,K'B1Q@q>it,rcvr on; par check off *S'Venable xon/xoff0?S'Vdc3=xoff,dc1=xon,disable EOL4qFH'# P *** Setup KBD ***P"CS& Backspace=BSR CpVFL5V Log-on ...L@V@L@L0`AV9 ** Press CONT to start log-on -- TR/NORM to abort ** HOLDp'LOG2 *** REDIAL/LOG, connect#F2UPON@FINISH  vA2A1?A2D?!HOLD@3B1IDA2@DA2+P9XM ** Echo to remote terminal`BBB1@PB1MBCR@PpOPBM-+w,'AW@A(q .V"TURN PRINTER ON -- THEN PRESS CONT@F@0q4 } ** ERRORS **@&V=DA2> B1@qA5V=(V ** Input Data Lost **@B1@qBS,G@KEYSr1- *** setup input TRANSFER ***I @S A[@@AUT 5S'AW@A? DIRECT G@Z0 @V, Press 'connect' (k9) to start dial/log-on@ *D7!DNON AUTMDM@ &MDM!CONN POSITION 0:V"Abort connection and hang up -- Y/&@_A @(AY1!RESTOR G@PuF DAUTHANG@Zq0 F5V#Disconnect Modem,  +=/B1PM+PM+LF@ZfB1B1PM+-LF&B1PM+&@MPM++@Z`4ECF$SU#,K'B1Q@[ B1P2 h@V@I@[(@D 9RF2V* ** Input Buffer Overload -- Data Lost **PCLRIN@V@ZTR)V ** Error#on line**@VTF@RESUM@A[@@q`_I'A2W@DA2> I&Iag: (0=Printer off; 1=Printer on) ZP"CV@VEcho to remote terminal -- Y&/N&Echo to remote$)_A@AN5 ECF(Z00;CARD@I @S  Auto-dial modem ON test@%MODON@0'MDM@KEYS@AUT`p(V Awaiting modem carrier detect...&DL1V5X,K'DL@V*V" Activate modem and dial phone(S'AW@A?4DMDMHthen press 'CONT'@PuF P[ @@Z0 SCLRINS 'AW@S 'A+V@q Clear input queue BS@S'AP4W@S 'AP9W@q BCARD@S'AP4V@S PRINTR4I'A2W@A2D8?!HOLD %D7F2[`@HOLD01XOFF@HOLD  ** Download@6PRINTR* 4** PrinterPUBB1@L5LFp 腐[=$ ker`GNG=7P1T#,K'CRLF&Q Paper advp4N)=!UPLOAD $Upload6N0=!DOWNLD Download-NC9 CONT*RDFKJ0+& NKEYCP2LP ON!LPOFFPrinter on/offK9UWLPCT15 SIZE+-*t+@LP@C0 FT18T1@Q@Q@/Nd= +@ZD down arrow0NY= -@ZD left arrow1Np= +@ZD right arrowKEYLBLNP9p C0 0<JC0 -@J?Ja@S'AV$-K922A+@Z5&,N594 Parity'MDMD7!FD7([S@S'AW@BA@BB+' 0U @SF@KEYS@q7L0@FINISH zRestart logonMNs==r@LL0@FINISH Halt logon (TR/NORM)6Nr=!CCRT $Copy CRT5Na=%GET)}PRINIT@FINISH0 OUT5,MDMRESUM@OUT#OUT7FD7PuF@FINISH@%! w *** Send String ***P$TRANSOUT[`@A[@@KEYS@q`MDMqe1KSUAIDA2RESET I$p[(P@D@q73 *** Keyboard Interrupt Service ***-KEYST0KV KNKEYJ0K J0=!TRANSOUT0>NKoJ+@<JJSIZE-+@J>  J+P3 SIZE+-*@K9@C0`ZHp.NB9 GPauseq*RDFSF@KEYS@qr#F22AA$B*'@S'AV@BB+2AK9AEP9B*+B*+@Z54,Ne9@ @ Errchk5MDMD7!FD76CS@S FILE Read file:Nb=SIZE=SIZE$@$4@Z` CNb=SIZE$=$SIZE@4 Pagesize02N2=!EXIT ,ExitD2 + = 3J0J0@T0T0@ZP.* *** Implement Special Keys ***`<NT9' replace with terminatorpAKJ0=+KKJ0-L9&@ZBKKJ0 UPON@FINISHtD7!DNON[ u @F@v[ x4MDMRESUM@FINISH #FINISH.N7=G Q Clear8N(=(PF@SJ Send BREAK-NV  'AW@BA^!C@#"š! ~~&|$@LpC>2s  ~~|N|D B| $p A AsSIZE*+F7  SIZE+= SIZE*-HQ@QP`-) }*** Delete Character ***ppFINISHKJ0="KKJ0-2KKJ0--L9&KJ0+&@Z8NE=& +@ +@ZHroll up:Ni=( -@ -@ZH roll down)NR= *@ZHhome-Nc= -@ZDup arrow59 s Printer4PCD=!FD7F@C0 @T1P2P2@Z*N49& a Bits MDMD7!FD7"QS@S'AW@AA&p 腐[= u@ker`GNG=7P1T#,K'CRLF&Q Paper advp4N)=!UPLOAD $Upload6N0=!DOWNLD Download-NC9 CONT*RDF 腐[=ocess the input **& SCRATFILEAZ(p&DI'A1A2W@A1A2>I@Z @&& 6Rq4RESUMS@SIK6R@SJS'ABW@AB:SSL6Rq :SAVMDMF2!FD7 ** End File Xfer **0D7!FD7@ F2D7@qPS@ SCRATFILE`RESUM@Z#pp2UPLOADMDM!FD7 ** Upload **#F2UPON@FINISHD7!DNON @V@X  FV>Upload File Name (Enter C for CAT; or press ENDNH" % $(MM""I(s&@'O]J" A<  x;;;yxFp{1Bxxxvth1{sqEw0(=Cp "8 G$y[7 @<yp 3`` )}PRINIT@FINISH0 OUT5,MDMRESUM@OUT#OUT7FD7PuF@FINISH@%! w *** Send String ***P$TRANSOUT[`@A[@@KEYS@q`MDMqe1KSU u1B-!`8B1B1L9& ** Transfer string out!p'SU#,K'B1Q@[!'S'A3W@A3!!h"Z!"V=VE0@Z! "h" I@[(@@Z# p"0ZC1q"25V#DRIVE number for CAT -- i.e. 0 or 1@_D"4AZ"8"6)ND:D70D&@ND@V@q"8B@VIncorrect DRIVE@Z"2"@:6 @ ** save file - end of DOWNLOAD routine **"P(SAVEFILE@ 2AA$B*'@S'AV@BB+2AK9AEP9B*+B*+@Z54,Ne9@ @ Errchk5MDMD7!FD76CS@S 8p"AZ1"IVAFile size in 256 byte records - (est 16 records/page of 60 lines)"CV; Enter size from 1 to 1000 (or press ENDLINE for 40)"7_A@A5A@AA";A?A>V 'Incorrect file size@Z""*RSA@ZZM&RS#q#PZ:@P#0# ,PZ.@P ZM@q#08ZMZP@ZZP-@q#p>*@RDF lD7F2@B1@[1#+V@V ** File transfer complete **@V#B@F@OUT$%! ** Download **$ "DOWNLDMDMD7!FD7$0%SAVEFILE@Z5!RESTOR$`D7@I@[(@  'AW@BA^!C@#"š! ~~&|$@LpC>2s  ~~|N|D B| $p A A3W@A3%% "SU#,K'D3Q%0 S%@SSL6R%P&h wait till card takes over%`5I'A1A2W@DA2>&%pUB1IDA2@DA2 p+@B1@P2 PRINTR&5S@POSITION ** process input&0V%Input buffer full -- storing data ...@V&B SCRATFILE@DF@RESTOR@DF@RESUM& *XONS'A3W@ fkA3& &0"SU#,K'D1Q&@ S&PSSL6R&`q&p,( ** now process the input **& SCRATFILEAZ(p&DI'A1A2W@A1A2>I@Z(@&&0  腐[=@ p 腐[=!x!u@ker`GNG=7P1T#,K'CRLF&Q Paper advp4N)=!UPLOAD $Upload6N0=!DOWNLD Download-NC9 CONT*RDF!A1A2 Set buffer to zero(@DI+(P2I'V@A1@A2(`q(pBV@r=2V( ** File too small - partial download **@Z(((V ** No file transfer ! **@[@@q(RN !6Rq4RESUMS@SIK6R@SJS'ABW@AB:SSL6Rq :SAVMDMF2!FD7 ** End File Xfer **0D7!FD7@!:ONT **@F@)6Z))8VFILE SYSTEM ERROR@q)@&" ** read tape file **)PGETFILED7!FD7)`!SF@@POSITION)pEV=READ file name (Enter C for CAT; or press ENDLINE to abort))!_Z@Z!5!RESTOR)["0@ZC5)p)AZ1`)Z0(DF@RESTOR@DF0KEYS0<RDFD7F2@B1 file xfer on0UPON@ h0 SFh0$AZ0!00D7#p04$'B1!@B1500@ VB10PP20 0"B1B1CR&LF&0p.P2 P1T#,K'B1Q0Z0 0 B@F@[11.*@b;$ےv2B!u1B-!`8B1B1L9& ** Transfer string out!p'SU#,K'B1Q@[!'S'A3W@A3!!h"Z!"V=VE0@Z! "h" I@[(@@Z#!{Z)p1p [2@Z 1*@FINISH11B@c="V FILE NAME ALREADY USED@Z"p1?(=2V& DISC FULL -- CHANGE DISC AND PROCEED@F@Z"p1VDISC SYSTEM ERROR@Z"p28B@V, INCORRECT FILE NAME, :MSUS, OR FILE !TYPE !@q2 ** Strip blanks **2 ,BB1@IB820B1II 12P2@ I2PB1B1I@q2`DIRECT@G2p=V2 *** Auto Logon Directory ***!_ @V2J8I $'3@HJoo, ^ZJJHA ){9(r M%3oe$J)by8 Ӏo% @9[y I OJ@)s R D'Ng$B!{9P 7g y 7O<[ << ! 'Incorrect file size@Z""*RSA@ZZM&RS#q#PZ:@P#0# ,PZ.@P ZM@q#08ZMZP@ZZP-@q#p>*@RDF! isting for numberJ@Z33V8DDDLP@PDD)@P3T3XDDDDP3`5B DIRJ @P DIRJ ;3pUP=PB= L(L DIRJ ! P+B3KEYS@q4&POSITIONTOPL @CUR0 4# SIZE+@ *@G@q4 "RESTORTOPL@CUR04&DFq #FINISH40 *** EXIT ***4@'EXITF2UPON@FIN! A3W@A3%% "SU#,K'D3Q%0 S%@SSL6R%P&h wait till card takes over%`5I'A1A2W@DA2>&%pUB1IDA2@DA2! p+@B1@P2 PRINTR&5S@POSITION ** process input&0V%Input buffer full -- storing data ...@V&B SCRATFILE@DF@RESTOR@DF@RESUM& *XONS'A3W@!s 'CONT'@@Z45&AUTMDM@HANG5S@SIZE04@R5 V** TURN MODEM OFF **@F@u5G@RF@[ 53S'AW@A? S5 @Z5  *** COPY CRT **!"*50CCRTF2!FD752 D75@POSITION544V%Download ON: Proceed with COPY -- Y/N&56#_A@AY1!RESTOR58(DF@RESTOR@DF5@2@J1 @J2 SIZE+-!p 腐[=""u@ker`GNG=7P1T#,K'CRLF&Q Paper advp4N)=!UPLOAD $Upload6N0=!DOWNLD Download-NC9 CONT*RDF"5B4J2J1-SIZE>J2J25D6P1T#,K'Q@J1-*5P3JJ1J2@C0J*5`B1C0 5p:PB1CR@PB1P"R 5r"J5B1@J555tPIJ5@B1IIB1II(@I5<P1T#,K'B1CR&LF&Q5C0@J5#B1@PF@FINISH" 6OUTKP@ْXX[ 0@ng/oog'! !#/oOLHHHoCooo/Ooogon,! NF!=;3y [7 O =y 7l>@8 oAxl% o H%x &lyqpB9"5!RESTOR)["0@ZC5)p)AZ1`)Z0(DF@RESTOR@DF0KEYS0<RDFD7F2@B1 file xfer on0UPON@ h0 SFh0$AZ0"  7NK9BB CONFIG/EXT&B& REDIAL/LOG&B& BITS:7 &B&7cK9K9 PAR: ODD &B& ERRCHK:OFF&B& COPY CRT &B& PAPER ADV &BB&7 VK9K9BB& BREAK &B& UPLOAD &"B& DOWNLOAD &B&70cK9K9 END XFER &B& READ FILE&B& PAGESIZE &B& PRINT: &BB&7@K9K9@G@q7PYLOGONY4LL>L@LL0@qY L:L"{Z)p1p [2@Z 1*@FINISH11B@c="V FILE NAME ALREADY USED@Z"p1?(=2V& DISC FULL -- CHANGE DISC AND PROCEED@F@Z"p1VDISC SYSTEM ERROR@Z"p28B@V, INCORRECT FILE NAME, :MSUS, OR FILE "TYPE !@q2 ** Strip blanks **2 ,BB1@IB820B1II 12P2@ I2PB1B1I@q2`DIRECT@G2p=V2 *** Auto Logon Directory ***"KLL+L8-@L8L8+@Z`p`b0KLL+L8-L9&`p<A[`@NKEY@L<LL8+@qq`rRVMissing ')' in string: LLPLLı@LL0" @q` "P"`eL<SV  Logon paused& - press CONT to proceed&@LL+@L0aqa "W"a K 0123456789LL+L+=L+fZaZ`0a0PL=q9L" isting for numberJ@Z33V8DDDLP@PDD)@P3T3XDDDDP3`5B DIRJ @P DIRJ ;3pUP=PB= L(L DIRJ " 0@NKEY@qa1L=qLL+@q" "b0bP2MODONS@B1ATZCR&@TRANSbR!SIK6R@hbTI0IOKqb`4VTURN MODEM ON, THEN PRESS CONT@F@S" T@bpZbPb9TRANSS'A3W@A3bSc=SU#,K'B1Q@SSL6R@qcDCLRBUFI@I'V@A1@A2@qc?; ** Auto-dial: INTR " vDCD, connect return herec CONNG@@KEYON@A[Bc$0S@CLRIN@S 6Rc&VAAFAFSTF@V& Press DIAL (k5) to display di2ectory@LBLC33@8'G3%$HH @IQ@A@"s 'CONT'@@Z45&AUTMDM@HANG5S@SIZE04@R5 V** TURN MODEM OFF **@F@u5G@RF@[ 53S'AW@A? S5 @Z5  *** COPY CRT **"AA1?cpctr@G@@I5ccv801234I+fZcZcZdZdZdZcc7V Modem not operating !@Zd  no responsecAV No connection - dial again@Zd  '0'='OK','4'='ERROR'd=STFq"p 腐[=#j#u@ker`GNG=7P1T#,K'CRLF&Q Paper advp4N)=!UPLOAD $Upload6N0=!DOWNLD Download-NC9 CONT*RDF#p腐[=IR FSOURCE: Telenet (338-1400) (7,ODD); EEW1EW1(C 30138)W9(ID TCG383 ####) DIR   DIR 0 #one number (or press ENDLINE to abort auto-dial)dRE_A@G@A5)V Select Option@AF@LBLdT3@DDA@AFDDDD R&dVZc@d`REDLHOOKpPdp G@@Zc0d1HANGr@B1#@@TRANS@MDMe0d*S'AW@A?e d&V Hanging up ....@d @he/B1+++@TRANS@%h escape codee )B1ATZCR&@TRANS@he%CU @DLDDL@#MDM@HOOK@qe0G@AAF h@[ie53G@V ** Modem Off **@HOOK@LBLe@LBLCLRBUF@ePZePe`:KEYON HANG UPCHANG@ AUTO-ANSCAANSep6 DIAL CDIAL@ ORIGINATE#  7NK9BB CONFIG/EXT&B& REDIAL/LOG&B& BITS:7 &B&7cK9K9 PAR: ODD &B& ERRCHK:OFF&B& COPY CRT &B& PAPER ADV &BB&7 VK9K9BB& BREAK &B& UPLOAD &#@@Zc0i ANSHOOKpPi$5B1ATACR&@G@@VSending carrier ...i0HOOK@CLRBUFi@TRANS@ZcdiPAANSHOOKpPiT,B1ATS0=1CR&@TRANS@hi`0G@V& Auto-answer on -- waiting f#*or ring ..ip1V@V$ ** press ORIGINATE (k3) to abort **@iu!CLRBUF@AAF@Zcpi&ORIGHOOKpP[i@LBLi,B1ATS0=0CR&@TRANS@hi(G@V Select Option@AAF@qpTERMHOOK#pPGp"AAF[i@G@Z@@p NEWNHOOKpPp0;DL1*VDL@VNew number for same log-onp@ZdPpPV HANG UP FIRST@Zcpp`DLANSHOOKpPpp'VModem will dial in `nrfe"6tt9:d A>#KLL+L8-@L8L8+@Z`p`b0KLL+L8-L9&`p<A[`@NKEY@L<LL8+@qq`rRVMissing ')' in string: LLPLLı@LL0# LL0@[e q0/[ @AUTCARD@CONN0q2:V@V,Modem Carrier Lost -- Terminating Download !@Vq4$ SCRATFILE@*@Zq$q@SLFTHOOKpPG@qP<V*SELF TEST: Originate or Answer Mod# /e -- O/A@_Aq`3AO5!B1 ATS16=1C1DCR&@Zqqp0AA1qPB1ATS16=1ACR&q)STF@VPlease wait...@Zi0q>MDM@VSelf Test Complete !@HANG@CONNrAZ# ?I @!AE r i{zzxp@$<Ȁ*!?8 : P=Pause, (string=Literal string, )=CR after stringP*& $ : ))= No CR after string`2. # 2 : Spaces outside ( ) are ignoredp51 *** Enter Directory Strings Below ***W DIR FSOURCE: Telenet (338-1400) (7,ODD); EEW1EW1(C 30138)W9(ID TCG383 ####) DIR   DIR 0 #AA1?cpctr@G@@I5ccv801234I+fZcZcZdZdZdZcc7V Modem not operating !@Zd  no responsecAV No connection - dial again@Zd  '0'='OK','4'='ERROR'd=STFq#p 腐[=$i$$ERR1 jV=VVLength Error in DIR$(J*) -- NAME: ( ) ( ); portion >35 characters@F@ #ERR10  074-TERMIN5@POSITION? SS@EDITR8 SRIAP DBK TREVNOCNIFDBKRHCCOPCCOPLC$k*+0S2S2EI +@IP Z1%` F% p N8 S3IZ18NN+ S J05SSQJ N*J*$ sN8p S6IZ18NN+ SJ 5SSQJ N*J*Z1/*+0J@!PI MS*+PS6S6P$ R AAAA+ABAB+ ACAC+0ADAD+@AEAE+PAFAF+`&'A!DXMF!pMFZ5`MFX5!DONE$ MAINP STORED AS MUNAVF 0@ Z1P Q ` D pQ W(Q SQ XMH N8 S1$Z1/*+@JP!FI MS*+`S3S3FI +pI Z1@ G@  N8 S4 IZ180NN+@ SPJ$ /I +`Ip MF84:D701)V$RECORD NO TO BE CHANGED OF IF DONE 0_RECORD RECORD=!DON 1RECORD'A!DXMF! 1V+RECORD, DATE, DAY NO., MUNI INDEX 0&VREC$NZMFQQZZ-RRQQ2/ XZZRR+0ZXZ@UAA ZPAA?!ABB` TpJ*TTUJ DJ *+$Mz` DIR p DIR  DIR  DIR  DIR  FB **H*0@AZ PEJ @P DIRJ ;@$0IZ18@NN+P S`Jp5SSQJ N*J*Z1/*+J!DI MS*+S1S1DI +I $`5SSQJ N*J*Z1/*+pJ!GI MS*+S4S4GI +I Z1 H 0 N8@ S5PIZ1$ IORDADXMF @/V*ENTER CORRECT MUNI INDEX OR 3 IF NO CHANGE P _MF `MF35 p4RECORD 'A$DX"MF$# Z DON* MF84:D701A=DISP USING 1730 ; "D$.B DIRJ `)B= NAMJ @ZpdP=# NAMJ DIRJ / NAMJ DIRJ P- J@qBV=.VDIR$(n) >135 characters on line@F@ $RZ1 0 E @ N8P S2`IZ18pNN+ SJ5SSQJ N*J*Z1/*+J !EI MS$ 8`NN+p SJ5SSQJ N*J*Z1/*+J!HI MS*+ S5S5HI +0I@ Z1 P P ` $ ATE","A15","A20","A25","A40","A80","A120" 4k@'DATEA15A20A25A40A80A1200 AA@ ABP AC` ADp AE AFDU V W% X@ Y$p 腐[=%% 60J@!FI MS*+PS3S3FI +`Ip Z1@ G@  N8 S4IZ18 NN+0 S@J%I`0V*Do you want to use the CRT or the Printer?p)V$Input 1 for CRT or 2 for the Printer _NN=   Z 0  0 UJ- UJ JA15TS1/ ABBVAB Z0AB ?!ACC@ TPJ `*TTVJ EJ *+p0J> %'AFFRAF ZPAF ?!AGG` TpJ *TTRJ PJ *+0J> RJ- RJ JA120TS6/ 84AGG: DISP USING 1740%VIZ180NN+@ SPJ`5SSQJ N*J*Z1/*+pJ!DI MS*+S1S1DI +I Z1 % P5SSQJ N*J*Z1/*+`Jp!GI MS*+S4S4GI +I Z1 H  N80 S5@IZ18P%VJ- VJ JA20TS2/ACCWAC ZAC%?!ADD T0J%@*TTWJ FJ *+P0J> WJ- W% ; A$,Z,A15,A20,A25,A40,A80,A1200RAGGkP'AZA15A20A25A40A80A120@'#6X,4A,3X,3A,7X,3A,7X,3A,7X,3A,7X,3APOK2X,6A,2X,3D.DDD,2X,3D.DDD,2X,3D.DDD,2X,3D.DDD,2X,3D.DDD,2X,3D.DDD,2X,3D.DDD`AA%  E 0 N8@ S2PIZ18`NN+p SJ5SSQJ N*J*Z1/*+J!EI MS*+ % NN+` SpJ5SSQJ N*J*Z1/*+J!HI MS*+S5S5HI + I0 Z1 @ P P N8%WJ `JpA25TS3/ADDXAD ZAD@?!AEE TJ@ *TTXJ GJ *+00J> XJ- XJ @JP%/?pAB ?AC%? AD@?0AE?@AF ?P Z`0DONE*@"VTHATS ALL IF CONTINUE Y OR NP _F`FY5pppV That's all. % S2S2EI +0I@ Z1%P F% ` N8p S3IZ18NN+ SJ 5SSQJ N*J*Z1/*+%` S6pIZ18NN+ SJ5SSQJ N*J*Z1/*+ J0!PI MS*+@S6S6PI +P%A40TS4/`AEEYAE ZpAE?!AFF TJ*TTYJ HJ *+0J> YJ- YJ  J0A80TS5/@% MAINP STORED AS MUNAVL 0 Z1@ Q P D `Q W(pQ SQ XMH N8 S1 %p 腐[=&{&DXMF!01V+RECORD, DATE, DAY NO., MUNI INDEX@&VRECORDADXMFP/V*ENTER CORRECT MUNI INDEX OR 3 IF NO CHANGE` _MFpMF35 4RECORD 'A$DX"MF$#&yMF!pRECORDRECORD-MFZ5`NN+NMMY+=Z` 1RECORD'A!DXMD!0MDX5`@RECORDRECORD+PZ ` MM & J- UJ JA120TS6/AAAVAB ZAB=@ ABA?00ABA;!ABB@ TPJ`*TTVJ HJ *+p0J& *TTYJ EJ *+!p0J> YJ- YJ !J!A20TS2/"AEERAF Z"AF="0" AF?"0 T"@J"P*T&Z DON* AA AB0 AC@ ADP AE` AFp!VSTART SEARCH WITH RECORD NO._RECORDDU V W@ X% Y R&p NZAFAF+AEAE+ADAD+ ACAC+0ABAB+@AAAA+PGM5p`Z p&'A!DXMD!MD& > VJ- VJ JA80TS5/ABBWAC ZAC@=@ AC? 0AC;!ACC@ TPJ@`*TTWJ G&0TRJ DJ *+"`0J> RJ- RJ "pJ"A15TS1/"Mk#'AZA15A20A25A40A80A120#OK1X,6A,1X,3D.DDD,2X,3D.DDD,3X,3D.DDD,3X,3& VHOW MANY DAYS TO BE SHOWN _Y ;k0'DATEFUTRA15A20A25A40A80A12003/2X,4A,3X,4A,7X,3A,7X,3A,7X,3A,7X,3A,7X,3A,7X,4A@GM5Z`PZ` MD84:D701pZ  MF84:D70&Z5pMDX5!DONEZMDZ &'A!DXMF!0MFZ5 @MFX5!DONEPZMF`QQZZ-pRRQQ2/XZZRR+& J *+p0J> WJ- WJ JA40TS4/ ACCXAD Z AD%= @ AD? 0AD;!ADD @ T PJ% `*TT&D.DDD,3X,3D.DDD,3X,3D.DDD,3X,3D.DDD#ZP# DONE*#0V#@VEnd of calculations#P U& XJ FJ *+ p0J> XJ- XJ  J A25TS3/!ADDYAE Z!AE =!@! AE?!0AE;!AEE!@ T!PJ !`&p 腐[=''  MAIN  NAMCOUNT  DEFRUNTIM0 DEFASCIIS@ DEFPARSE P DEFERMSG ` DEFINIT pPARSE BYT0,0RUNTIMBYT0,0 DEFCOUNT. BYT377,377 ASCIISBSZ0  ASP"COUNT"0BYT377@ ERMSG BSZ0PBYT377` INIT BSZ0pRTN'62984e063084e070184 e0702840e070384@e070484Pe070584`e070684pe070784e070884e070984f071084f071184 f0712840f071384@f07'DS AND SUCH INTO A PROGRAM.`JFRUN THIS PROGRAM, THEN DO A SCRATCH COMMAND (IMPORTANT), THEN LOAD THEpJFBINARY "GETSAVEg" AND DO A "GET" COMMAND TO THE "GET_FILE" (FOLLOW THE)%INSTRUCTIONS WITH THE BINARY PROGRAM)@G S' LINE& *LINE?LN LINE&08LINE>LINE?LN LINE&@%LINE >LNLINEP`<SLN DATA &D&,0&CHANGE TO FIT SPECSp kS' :$BYT0,56 COUNT.BIN LDMR40,=0, 0!LDMR50,=0,)1D,0,0,00LIN1 ADMR40,R50DCMMR40,=0,j1DE JNCLIN1 P PUMDR40,+R12`RTNeASSEMBLE "CBIN"fONER DAD56215pFINCOUNT(  '*1484Pf071584`f071684pf071784f071884f071984g072084g072184 g0722840g072384@g072484Pg072584`g072684pg072784g072884g072'&4:D701$ .V)TYPE RECORD NO TO BE CHANGED OF IF DONE 0$0_RECORD$@RECORD=!DON$P1RECORD'A!DXMD!$`1V+RECORD, DATE, DAY NO., MUNI INDEX$p&VRECORDADXMD'GET_FILE nJAN1FEB(MAR1APR0MAY1JUN0JUL1AUG1SEP0OCT1NOV0DEC10@LINEPEDC5 VALUE=FIRST DAY OF WEEK MINUS 1 (MONDAY=1)`p' 'S$#I DTDEC4Z0 'I END&$#@*P  MAKE_PROGIONS WITH THE BINARY PROGRAM)MMAND (IMPORTANT), THEN LOAD THEMAR 1985cP' 8053084b053184b060184 b0602840b060384@b060484Pb060584`b060684pb060784b060884b060984c061084c061184 c0612840c061384@c'$/V*ENTER CORRECT MUNI INDEX OR 3 IF NO CHANGE$ _MD%MD35$ %4RECORD 'A$DX"MD$#% Z$ %0DON*%@q MUNAVL@@x'YEARYRYEARnDTND)DTFEB4Z0LEAP YEAR ADJUST 'YRNDND+0IND@DC= DCPDCDC+`DC' YCOUNT  B&,$236COUN.` 36COUN.`` R' 061484Pc061584`c061684pc061784c061884c061984d062084d062184 d0622840d062384@d062484Pd062584`d062684pd062784d062884d0'u MAINP STORE "MAKE_PROG" CREATE "GET_FILE",100,2560IETHIS PROGRAM CREATES A DATA FILE THAT THE "GET" COMMAND CAN TURN INTO@GCA PROGRAM. THE PURPOSE OF THIS PROGRAM IS TO SAVE TIME IN ENTERINGP&"KEY WOR'K= SKIP SAT.pDC= SKIP SUN.LINELINE+FI?6D40&I& &DT& &YR&4&BI >2D4I& &DT& &YR&4&+LINE?LN'p 腐[=((984h073084h073184 h0801840h080284@h080384Ph080484`h080584ph080684h080784h080884i080984i081084 i0811840i081284@i0813($t092884t092984 t0930840t100184@t100284Pt100384`t100484pt100584t100684t100784u100884u100984 u1010840u101184@u101284(+112784112884 1129840113084@120184P120284`120384p120484120584120684120784120884 1209840121084@121184P( ZG117.309011184G116.429011284H116.283011384H117.445011484 HZ0115840HZ011684@H117.739011784PH117.445011884`H117.298011984pH177.59(84Pi081484`i081584pi081684i081784i081884p081984p082084 p0821840p082284@p082384Pp082484`p082584pp082684p082784p08288(@Pu101384`u101484pu101584u101684u101784v101884v101984 v1020840v102184@v102284Pv102384`v102484pv102584v102684v102784(  121284`121384p121484121584121684121784121884 1219840122084@122184P122284`122384p122484122584122684( 1012084H117.591012184HZ012284IZ012384I117.885012484 I118.0320125840I117.737012684@I117.443012784PI117.737012884`IZ012984(X4q082984q083084 q0831840q090184@q090284Pq090384`q090484pq090584q090684q090784r090884r090984 r0910840r091184@r091284(w102884w102984 w1030840w103184@w110184Pw110284`w110384pw110484w110584w110684x110784x110884 x1109840x111084@x111184( UN122784122884 1229840123084@123184Y(BpIZ013084I117.737013184I117.59020184P118.031020284P118.47020384 P119.2140204840PZ020584@PZ020684PP118.32020784`P117.8(Pr091384`r091484pr091584r091684r091784s091884s091984 s0920840s092184@s092284Ps092384`s092484ps092584s092684s092784(Px111284`x111384px111484x111584x111684y111784y111884 y1119840y112084@y112184Py112284`y112384py112484y112584y112684( 010184FZ010284GZ010384G115.422010484 G115.7110105840G116.434010684@G117.016010784PGZ010884`GZ010984pG117.016011084(]76020884pP117.876020984P117.434021084P116.994021184QZ021284QZ021384 Q116.4090214840Q116.409021584@Q116.7021684PQ116.262021784(p 腐[=)) Z051384 `Z0514840`107.95051584@`108.22051684P`108.22051784``107.68051884p`107.68051984`Z052084`Z052184a107.68052) 109.24062084d108.55062184d108.28062284 d107.880623840dZ7062484@dZ7062584Pd106.26062684`d105.99062784pd106.39062884d160.660)PS112.81030884`S113.09030984pS112.95031084SZ031184SZ031284T112.81031384T112.95031484 T112.670315840T113.371031684@T113)40WZ041584@WZ041684PW114.07041784`W114.353041884pW114.07041984W113.782042084WZ042184XZ042284XZ042384 X1) !284a106.69052384 a105.80524840a104.213052584@a104.734052684PaZ052784`aZ052884paZ3.948052984a103.95053084a103.43053184b){62984d106.52063084eZ7070184eZ7070284 e106.920703840e107.59070484@eZ7070584Pe107.99070684`e108.13070784peZ7070884e).371031784PTZ031884`TZ031984pT112.804032084T112.804032184T113.23032284U113.23032384U113.51032484 UZ0325840UZ032684)13.580424840X113.36042584@X113.64042684PX113.781042784`X113.64042884pXZ042984XZ043084X113.213050184Y112.93050284Y112.790503) 104.98060184b106.291060284 bZ0603840bZ060484@b107.62060584Pb107.351060684`b107.08060784pb107.49060884b108.02060984bZ706)\Z7070984e109.21071084f109.21071184f109.21071284 f110.030713840f111.13071484@fZ071584PfZ071684`f111.71071784pf110.02)`Q115.681021884pQZ021984QZ022084QZ022184R115.103022284R114.671022384 R113.8110224840R113.811022584@RZ022684PRZ)@U113.794032784PU114.08032884`U114.363032984pU114.22033084U113.934033184UZ2040184VZ040284V113.934040384 V113.3640404840V11)F84 Y112.370504840Y111.383050584@YZ050684PYZ050784`Y110.97050884pY110.41050984Y109.582051084Y108.97051184`108.353051284`) 1084cZ7061184c107.75061284 c107.750613840c108.02061484@c108.83061584Pc109.51061684`cZ7061784pcZ7061884c109.24061984c)022784`R113.384022884pR113.101022984R113.81030184R113.67030284S114.52030384SZ030484 SZ0305840S113.802030684@S113.233030784) 3.222040584@V113.364040684PV113.93040794`VZ040884pVZ040984V114.073041084V114.36041184W114.22041284W114.93041384 W114.35404148)p 腐[=**Ki112.21081684pi112.5081784i112.92081884iZ081984pZ082084p113.2082184 p113.7660822840p113.624082384@p113.34082484Pp113.057*@sZ092384PsZ092484`s110.518092584ps109.827092684s110.376092784s110.625092884t109.684092984tZ093084 tZ1001840t108.86*  w111.3161031840w111.455110184@w111.734110284Pw111.594110384`wZ110484pwZ110584w111.873110684w112.293110784x111.732110884x111.*(112.832120884Z120984 Z1210840112.550121184@112.831121284P113.395121384`113.395121484p113.395121584Z121684Z*V071884f110.43071984f110.71072084g110.43072184gZ072284 gZ0723840g110.43072484@g110.71072584Pg111.26072684`g112.23072784pg*;082584`pZ082684ppZ082784p112.35082884p112.631082984q112.631083084q112.439083184 q112.4890901840qZ090284@qZ090384*1100284@t108.589100384Pt108.725100484`t108.589100584pt109.132100684tZ100784tZ100884u109.687100984u109.404101084 u109.541101184* /453110984 x111.8711110840xZ111184@xZ111284Px111.871111384`x111.032111484px110.060111584x110.610111684x110.887111784yZ111884*v113.08072884gZ072984gZ073084h112.79073184h113.5080184 h113.780802840h114.35080384@h114.92080484PhZ080584`hZ*9PqZ090484`q112.208090584pq111.507090684q112.065090784q112.345090884rZ090984r112.626091084 r112.6260911840r113.048091284@r113.048* 0u109.267101284@u109.54101384PuZ101484`uZ101584pu109.814101684u110.363101784u110.915101884v111.886101984v112.026102084 vZ* iyZ111984 y110.4711120840y110.333112184@y111.160112284PyZ112384`y111.855112484pyZ112584yZ112684y111.995112784111*080684ph114.35080784h114.06080884h114.21080984i114.63081084i114.35081184 iZ0812840iZ081384@i113.63081484Pi113.35081584`*9091384Pr113.755091484`r113.471091584prZ091684rZ091784r113.045091884s112.904091984s113.186092084 s112.7620921840s111.634092284* 1021840vZ102284@v112.166102384Pv112.867102484`v112.726102584pv111.811102684v111.042102784vZ102884wZ102984w110.487103084*v.715112884112.134112984 112.6951130840113.118120184@Z120284PZ120384`112.694120484p113.117120584113.683120684113.257120784*p 腐[=++022784`R83.24022884pR83.22022984R83.28030184R83.27030284S84.06030384SZ030484 SZ0305840S84.00030684@S83.25030784+ .28040584@V83.27040684PV84040794`VZ040884pVZ040984V84.01041084V84.04041184W84.04041284W84.08041384 W84.0604148+V4115.248122784115.248122884115.392122984 Z1230840Z123184@115.3923+pIZ013084I85.29013184I85.30020184P86.02020284P86.09020384 P86.180204840PZ020584@PZ020684PP86.07020784`P86.04+ PS83.17030884`S83.21030984pS83.17031084SZ031184SZ031284T83.17031384T83.19031484 T83.170315840T83.23031684@T83.+  40WZ041584@WZ041684PW84.00041784`W84.02041884pW84.02041984W83.29042084WZ042184XZ042284XZ042384 X8+o010184FZ010284GZ010384G84.04010484 G84.090105840G84.24010684@G85.04010784PGZ010884`GZ010984pG85.03011084+020884pP86.05020984P85.30021084P85.27021184QZ021284QZ021384 Q85.200214840Q85.20021584@Q85.26021684PQ85.22021784+ 26031784PTZ031884`TZ031984pT83.19032084T83.17032184T83.24032284U83.24032384U83.27032484 UZ0325840UZ032684+3.290424840X83.24042584@X83.27042684PX83.28042784`X83.27042884pXZ042984XZ043084X83.24050184Y83.18050284Y83.130503+G85.11011184G85.00011284H84.29011384H85.16011484 HZ0115840HZ011684@H85.23011784PH85.20011884`H85.17011984pH85.19+`Q85.13021884pQZ021984QZ022084QZ022184R85.01022284R84.31022384 R84.080224840R84.03022584@RZ022684PRZ+ \@U83.31032784PU84.04032884`U84.05032984pU84.1033084U84.08033184UZ040184VZ040284V84.09040384 V84.010404840V83+84 Y83.100504840Y82.21050584@YZ050684PYZ050784`Y82.19050884pY82.12050984Y82.00051084Y81.18051184`80.31051284`+l121784113.678121884114.388121984 114.3881220840114.531122184@114.960122284PZ122384`Z122484p115.104122584Z12268+.012084H85.21012184HZ012284IZ012384I85.22012484 I85.280125840I85.30012684@I85.25012784PI85.27012884`IZ012984+p 腐[=,!,76.29060184b77.23060284 bZ0603840bZ060484@b78.12060584Pb78.06060684`b78.15060784pb78.14060884b78.29060984bZ06,Z070984e79.15071084f79.24071184f79.28071284 f80.090713840f80.22071484@fZ071584PfZ071684`f80.29071784pf80.22, Yi82.15081684pi82.12081784i82.15081884iZ081984pZ082084p82.16082184 p82.250822840p82.28082384@p82.26082484Pp82.24,@sZ092384PsZ092484`s81.03092584ps80.19092684s80.22092784s80.27092884t80.09092984tZ093084 tZ1001840t79.23,:1084cZ061184c79.06061284 c79.060613840c79.13061484@c80.00061584Pc80.04061684`cZ061784pcZ061884c80.05061984c,n071884f80.26071984f80.29072084g80.24072184gZ072284 gZ0723840g80.24072484@g81.01072584Pg81.11072684`g81.26072784pg, 082584`pZ082684ppZ082784p82.13082884p82.12082984q82.12083084q82.08083184 q82.090901840qZ090284@qZ090384,100284@t79.21100384Pt79.22100484`t79.19100584pt79.23100684tZ100784tZ100884u8029100984u79.26101084 u79.25101184,{Z051384 `Z0514840`80.24051584@`80.24051684P`80.24051784``80.17051884p`80.14051984`Z052084`Z052184a80.08052,S80.14062084d79.30062184d80.01062284 d79.250623840dZ062484@dZ062584Pd79.12062684`d78.12062784pd78.16062884d78.150,82.06072884gZ072984gZ073084h82.03073184h82.16080184 h82.030802840h82.3080384@h83.11080484PhZ080584`hZ, PqZ090484`q82.07090584pq81.29090684q82.02090784q82.03090884rZ090984rZ091084 r82.050911840r82.13091284@r82.24,284a79.12052384 a79.040524840a77.25052584@a77.20052684PaZ052784`aZ052884paZ052984a77.07053084a76.24053184b,.62984d78.12063084eZ070184eZ070284 e78.150703840e78.24070484@eZ070584Pe79.00070684`e79.00070784peZ070884e, 080684ph83.1080784h83.04080884h83.07080984i83.09081084i83.09081184 iZ0812840iZ081384@i82.29081484Pi82.27081584`, 091384PrZ.15091484`r82.23091584prZ091684rZ091784r82.12091884s82.07091984s82.11092084 s82.060921840s81.21092284,p 腐[=-- He010784PG 010884`G 010984pG-iY011984pH 5012084H 5012184-0u79.23101284@u79.25101384PuZ101484`uZ101584pu79.31101684u80.06101784u80.15101884v81.05101984v81.18102084 vZ- yZ111984 y80.131120840y80.12112184@y80.16112284PyZ112384`y81.02112484pyZ112584yZ112684y81.0911278481.-0482.2912278482.2912288483.01122984 Z1230840Z123184@83.013- c 011084G 011184G 011284H-1021840vZ102284@v81.17102384Pv82102484`v81.29102584pv81.16102684v80.29102784vZ102884wZ102984w80.18103084-s0711288481.15112984 81.25113084081.27120184@Z120284PZ120384`81.15120484p81.2412058482.0412068481.30120784- Y010184F 010284G 010384G- e011384H 011484 H 0115840H-R w81.011031840w81.06110184@w81.08110284Pw81.07110384`wZ110484pwZ110584w81.09110684w81.17110784x81.16110884x81.0-81.23120884Z120984 Z121084081.17121184@81.23121284P81.29121384`81.3121484p81.30121584Z121684Z- Ua010484 G 0105840G 010684@G-ie011684@H 5011784PH 011884`H-4110984 x81.091110840xZ111184@xZ111284Px81.08111384`x80.3111484px80.12111584x80.1111684x80.16111784yZ111884-,12178482.0312188482.13121984 82.14122084082.17122184@82.24122284PZ122384`Z122484p82.28122584Z12268-p 腐[=.3.U012484 I 0125840I 012684@I.c020584@P 020684PP 020784`P . ~W021684PQ 5021784`Q 021884pQ.  e0022884pR 022984R 030184R .c5012784PI 5012884`I 012984pI.e5020884pP 020984P 021084P. `_021984Q 022084Q 022184R.g030284S 0030384S !030484 S.c013084I 013184I 020184P.[021184Q 021284Q 021384. e0022284R 022384 R 0224840R.[0305840S 5030684@S 5030784.UH 012284I 012384I .e 020284P 020384 P 0204840P.ZU Q 0214840Q 021584@Q . c 022584@R 022684PR 022784`R.p 腐[=// O]040584@V 0040684PV 0040794`V/c041784`W 041884pW 041984W/Mc0031684@T 5031784PT 031884`T/]032884`U 5032984pU 033084/ (e040884pV 040984V 041084V/Y]042084W 042184X 042284X/UPS 0030884`S 030984pS />e 031984pT 032084T 032184T/|UU 5033184U 040184V 0/ c 041184W 5041284W 041384 W/ S031084S 031184S 031284T /c032284U 0032384U 032484 U / U 40284V 040384 V 50404840V / #e0414840W 041584@W 041684PW /a031384T 5031484 T 50315840T/e0325840U 032684@U 0032784PU/p 腐[=0J0U 042384 X 0424840X 040_e 0504840Y 050584@Y 050684PY0PS 5051684P` 051784`` 0510 c 052784`a 052884pa 052984a0WU 2584@X 042684PX 042784`X 0-c050784`Y 050884pY 050984Y 0 uU 884p` 051984` 052084` 0 e053084a 053184b 060184b 01_042884pX 042984X 043084X0e051084Y 051184` 051284`0 [052184a 052284a 052384 a0c060284 b 0603840b 060484@b0c050184Y 050284Y 050384 Y0_051384 ` 0514840` 051584@`0 e0524840a 2052584@a 052684Pa0_5060584Pb 060684`b 060784pb0p 腐[=11 ,U 40e 070484@e 070584Pe 1 re071584Pf 071684`f 071784pf 1]0613840c 061484@c 061584Pc1e062584Pd 062684`d 5062784pd1 Y070684`e 5070784pe 070884e1 c071884f 071984f 072084g1Te 5061684`c 061784pc 061884c1a062884d 062984d 063084e1 %g070984e 071084f 071184f16a072184g 072284 g 0723840g1ZU060884b 060984b 06101e 5061984c 062084d 5062184d1U070184e 070284 e 070381 c071284 f 0713840f 071484@f1U 84c 061184c 5061284 c 1c062284 d 0623840d 062484@d 1p 腐[=2X2c080184 h 0802840h 080384@h2_c081384@i 081484Pi 081584`i2 |e082484Pp 082584`p 082684pp2c090584pq 090684q 090784q2W072484@g 072584Pg 0726842e080484Ph 080584`h 080684ph2W081684pi 081784i 0818842 xc082784p 082884p 082984q2U`g 072784pg 072884g 2c 080784h 080884h 080984i 2 Ui 081984p 082084p 2 e 083084q 083184 q 0901840q 2|[072984g 073084h 073184h2e081084i 081184 i 0812840i2 W082184 p 0822840p 082384@p2Kc090284@q 090384Pq 090484`q2p 腐[=33YY1001840t 100284@t 1003843 c101284@u 101384Pu 101484`u3U r 0911840r 091284@r 3c 092284@s 092384Ps 092484`s3 UPt 100484`t 100584pt 3 me 101584pu 101684u 101784u36Y091384Pr 091484`r 091584pr3e092584ps 092684s 092784s3 U100684t 100784t 100884u3c101884v 101984v 102084 v 3Ia091684r 091784r 091884s3e092884t 092984t 093084 t3 c100984u 101084 u 1011840u3e1021840v 102284@v 102384Pv3Y090884r 090984r 0910843 e091984s 092084 s 0921840s3p 腐[=4n4ZW102984w 103084 w 1031840w4:e1110840x 111184@x 111284Px 4 S112184@y 112284Py 112384`y 4c120384` 120484p 120584 4_110184@w 110284Pw 110384`w4xg111384`x 111484px !111584x4 a112484py 112584y 112684y4e120684 120784 1208844[102484`v 102584pv 1026844e110484pw 110584w 110684w4[111684x 111784y 1118844 bc112784 112884 112984 4jUv 102784v 102884w 49c 110784x 110884x 110984 x4 `Uy 111984 y 1120840y 4 _e 1130840 120184@ 120284P4p 腐[=55 ^5 ^5BU 21484p 121584 121684 5e122684 122784 122884 5 ^5^5]121784 121884 121984 5c122984  1230840 123184@5p 腐[=5 ^5^5]120984  1210840 121184@5e1220840 122184@ 122284P5,d5 ^5U 121284P 121384` 15*c 122384` 122484p 1225846|6^6^6^6 ^6p 腐[=6^6^6 ^6 ^6^6^6 ^6^6^6^6 ^6^77^7^7^7 ^7^7^7 ^7 ^7^7^7p 腐[=7 ^7^7^7^7 ^7^88^8^8^8 ^8^8^8 ^8 ^8^8^8 ^8^8^8^8 ^8^8p 腐[=99^9^9^9 ^9^9^9p 腐[=9 ^9 ^9^9^9 ^9^9^9^9 ^9^::^:^:^: ^:^:^: ^: ^:^:^: ^:^:p 腐[=:^:^: ^:^;;^;^;p 腐[=;^; ^;^;^; ^; ^;^;^; ^;^;^;^; ^;^<&<^<^<^< ^<^<^< ^< ^<p 腐[=<^<^< ^<^<^<^< ^<^== = =^=^= ==^=^=p 腐[== ==^=^=^= =^=^>4>>>> >p 腐[=>>> > >>> >>>> >????? ??? ? ???p 腐[=? ???? ?@q@@@@ @@@ @ @@@ @@@@ @@p 腐[=AAAAA AAAp 腐[=A A AAA AAAA ABcBBBB BBB B BBB BBp 腐[=BBB BCCCCp 腐[=CC CCC C CCC CCCC CDUDDDD DDD D Dp 腐[=DDD DDDD DEEEEE EEE E EEE EEEEp 腐[=E EFF