яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя4 Хx#яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя( eFORTH SYSTEM DISK 12:47pm cee 23jan84 ) eFORTH Version 1.0 by Charles E. Eaker Distributed by Frank Hogg Laboratory, Inc. The Regency Tower 770 James Street Syracuse, New York 13203 (315) 474-7856 cr .( eFORTH INITIAL PROGRAM LOAD 12:47pm cee 23jan84 )forth definitions decimal 2 load | redefine (create) for locate utility 3 load | install disk error trap 6 load | eForth standard extensions 4 load | system date 5 load | system time 18 load | eForth standard editor 24 load | eForth double number electives 30 load | eForth documentation electives 36 load | eForth compiler electives 42 load | eForth miscellaneous electives 48 load | eForth disking electives 60 load | hardware dependent electives 72 load | system dependent extensions I'm cee system protect empty decimal exit ( create redefined for locate utility 12:47pm cee 23jan84 )( This block redefines the behavior of the word executed by create. It compiles the number of the block a word is loaded from as part of the word. This number is used by locate to find and list the source block for the word. This means that each word requires two additional bytes of memory. This feature can be disabled by simply not loading this block. In that event, locate, on block 44, will not work properly. ) system definitions : (create) ( -- ) blk @ , (create) ; ' (create) origin 20 + ! protect forth definitions ( disk error trap 12:47pm cee 23jan84 )system definitions hex : ?status ( -- ) disk 2- @ ?dup if dup 80 and abort" Drives not ready." dup 40 and abort" Disk is write protected." dup 20 and abort" Write fault." dup 10 and abort" Sector not found on disk." dup 08 and abort" CRC error." dup 04 and abort" Lost data." dup 02 and abort" Non-existent block." then ; : (r/w) ( adr blk dir -- adr ) (r/w) ?status ; decimal ' (r/w) origin 14 + ! protect forth definitions ( date SetDate 12:47pm cee 23jan84 ) 7 string date ( -- adr cnt ) : SetDate ( -- ) bl word count drop date cmove ; SetDate 23jan84 ( An example of how to set the date. ) exit ( time SetTime 12:47pm cee 23jan84 ) 7 string time ( -- adr cnt ) : SetTime ( -- ) bl word count drop time cmove ; SetTime 12:47pm ( An example of how to set the time. ) exit cr .( eFORTH STANDARD EXTENSIONS 12:47pm cee 23jan84 ) vocabulary editor immediate decimal 1 +load | system variables and constants 2 +load | assembler conditionals 3 +load | assembler extensions 4 +load | ## #### dump list .s 5 +load | stack and boolean extensions 6 +load | string operations 8 +load | i/o extensions 10 +load | block editing operations 11 +load | header operations words ( system constants and variables 12:47pm cee 23jan84 )system definitions origin 2+ dup constant version 12 + dup constant 'r/w 2+ dup constant 'start 2+ dup constant 'number 2+ dup constant 'create 2+ dup constant 'key 2+ dup constant 'key? 2+ dup constant 'emit 2+ dup constant 'expect 2+ dup constant 'type 2+ dup constant 'bell 2+ dup constant 'bs drop forth definitions 1024 constant 1024 64 constant c/l 1024 constant b/blk ( assembler conditionals 12:47pm cee 23jan84 ) assembler definitions hex : bsr ( adr -- ) here 1+ rel if 17 c, , else 8D c, c, then ; : bra ( adr -- ) here 1+ rel if 16 c, , else bl c, c, then ; : until ( adr cond -- ) >r here 1+ rel if 1- 10 c, r> c, , else r> c, c, then ; : if ( cond -- adr ) c, here 0 c, ; : then ( adr -- ) here over rel abort" branch too long." swap c! ; : else ( adr1 -- adr2 ) bl if swap then ; : repeat ( adr1 adr2 -- ) >r bra r> then ; : again ( adr -- ) bra ; : while ( cond -- adr ) if ; forth definitions decimal ( assembler extensions 12:47pm cee 23jan84 )( branch conditions not defined in the pre-compiled portion. ) assembler definitions : ne ( -- cond ) eq not ; : pl ( -- cond ) mi not ; : ls ( -- cond ) hi not ; : hs ( -- cond ) lo not ; : vs ( -- cond ) vc not ; : ge ( -- cond ) lt not ; : le ( -- cond ) gt not ; : cc ( -- cond ) lo not ; : cs ( -- cond ) cc not ; forth definitions : ;code system compile (;code) [compile] assembler r> drop ; immediate : code create here dup 2- ! [compile] assembler ; : end-code current @ context ! ; ( ## #### dump list .s 12:47pm cee 23jan84 ) : ## ( b -- ) base @ >r hex 0 <# # # #> type space r> base ! ; : #### ( u -- ) base @ >r hex 0 <# # # # # #> type space r> base ! ; : dump ( adr cnt --- ) base @ >r hex cr 5 spaces over 16 0 do dup 15 and 45 emit . 1+ loop drop space over 16 0 do dup 15 and 1 .r 1+ loop drop r> base ! over + swap do cr i #### 16 0 do i j + c@ ## loop space 16 0 do i j + c@ 127 and dup bl < if drop 95 then emit loop 16 +loop ; : list ( scr --- ) dup scr ! cr ." Block # " . b/blk c/l / 0 do cr i 2 .r space scr @ block i c/l * + c/l -trailing type loop cr ; : .s ( print stack ) cr 's s0 @ 2- do i @ . -2 +loop ; ( stack and boolean extensions 12:47pm cee 23jan84 )code roll ( u -- ) 0 ,u ldd 0 ,u addd d,u leax 0 ,x ldd 0 ,u std u pshs begin ,--x ldd 2 ,x std 0 ,s cmpx eq until 2 ,u leau 2 ,s leas next end-code code pick ( u -- n ) 0 ,u ldd 0 ,u addd d,u ldd 0 ,u std next end-code code 2over 4 ,u ldd 6 ,u ldx d x pshu next end-code code 2swap 0 ,u ldd 4 ,u ldx 0 ,u stx 4 ,u std 2 ,u ldd 6 ,u ldx 2 ,u stx 6 ,u std next end-code : 2rot >r >r 2swap r> r> 2swap ; code not ( bool -- bool ) 0 ,u com 1 ,u com next end-code -1 constant true 0 constant false : within ( n lo hi -- flg ) >r 1- over < swap r> < and ; ( string extensions 12:47pm cee 23jan84 ): text ( c -- ) pad c/l 2+ blank word pad over c@ 2+ cmove ; code -text ( adr1 cnt adr2 -- flg ) y pshs 0 ,u ldx 2 ,u ldd d,x leay 0 ,u sty 4 ,u ldy 1 # bitb eq not if ,y+ lda ,x+ suba eq if swap then begin 0 ,u cmpx eq not if swap ,y++ ldd ,x++ subd eq not until then then 4 ,u std 4 ,u leau y puls next end-code --> ( string extensions 12:47pm cee 23jan84 )system definitions code (") ( -- adr cnt ) | run-time word compiled by " ,y+ ldb clra d y pshu d,y leay next end-code forth definitions : ascii ( -- ) | compile or interpret an ascii character bl word 1+ c@ state @ ( a "smart" word ) if [compile] literal then ; immediate : " ( -- ) | compile or interpret a string literal state @ ( a "smart" word ) if compile system (") ascii " word c@ 1+ allot else ascii " text pad count then ; immediate : string ( b -- ) | create string variable of length b create dup c, 0 do bl c, loop does> count ; ( i/o extensions 12:47pm cee 23jan84 )system definitions 20 user 'put | holds address of current output device 22 user 'get | holds address of current input device : 'device ( b -- ) create c, does> c@ 'put @ + ; 12 dup 'device 'depth | address of device depth 2+ dup 'device 'width | address of device width 2+ dup 'device 'cr | cr execution vector for this device 2+ dup 'device 'page | page " " " " " 2+ dup 'device 'home | home cursor " " " " 2+ dup 'device 'xy | position cursor " " " 2+ dup 'device 'eol | erase to end of line " " " 2+ 'device 'eos | erase to end of screen " " forth definitions --> ( i/o extensions 12:47pm cee 23jan84 ) : width ( -- u ) system 'width @ ; : depth ( -- u ) system 'depth @ ; : xy ( x y -- ) system 'xy @ execute ; : page ( -- ) system 'page @ execute 0 l# ! 0 c# ! ; : home ( -- ) system 'home @ execute ; : eol ( -- ) system 'eol @ execute ; : eos ( -- ) system 'eos @ execute ; : ?cr ( cnt -- ) width c# @ - > if cr then ; ( block editing operations 12:47pm cee 23jan84 ) editor definitions : copy ( old new -- ) flush swap block 2- ! update ; : clear ( blk --- ) block b/blk blank update ; : clears ( blk cnt -- ) 0 ?do dup i + clear loop drop ; : wipe ( -- ) scr @ clear ; forth definitions ( header operations words 12:47pm cee 23jan84 )code ( nfa -- cfa ) x pulu ,x+ ldb 31 # andb b,x leax x pshu next end-code : if cr then type space ; : words ( -- ) cr context @ @ begin ?dup while dup id. 2- @ repeat cr ; cr .( eFORTH STANDARD EDITOR 09:12am cee 11feb84 )editor definitions variable 'update ' update 'update ! : update 'update @ execute ; : at ( -- adr rem ) r# @ dup b/blk 1- over u< abort" off of current editing block." scr @ block + c/l rot c/l mod - ; : at0 ( -- adr c/l ) at c/l - r# +! drop at ; forth definitions : v ( -- ) editor cr space at 2dup c/l swap - dup >r - r> type 94 emit type space r# @ c/l / . [compile] editor ; : t ( n -- ) c/l * r# ! v ; editor definitions 1 +load forth definitions ( -match 12:47pm cee 23jan84 ) code -match ( adr1 cnt1 adr2 cnt2 -- adr3 flg ) 0 ,u ldd d y pshs 6 ,u ldx 4 ,u ldd bl if begin 6 ,u ldx 1 ,x leax 6 ,u stx 4 ,u ldd 1 # subd 4 ,u std swap then 0 ,u cmpd lo not if 0 ,u ldd 0 ,s std 2 ,u ldy begin ,y+ lda ,x+ cmpa rot eq until d puls 1 # subd d pshs eq until clrb begin clra 4 ,u leau 0 ,u std 2 ,u stx d y puls next swap then 4 ,u ldd 6 ,u ldx d,x leax 1 # ldb bra end-code --> ( editor primitives 09:12am cee 11feb84 ) : l ( -- ) scr @ list ; : b ( -- ) -1 scr +! 0 r# ! ; : n ( -- ) 1 scr +! 0 r# ! ; : #i ( -- adr ) pad 66 + ; : #f ( -- adr ) pad 132 + ; : >i ( -- ) 94 text pad c@ if pad #i 66 cmove then ; : >f ( -- ) 94 text pad c@ if pad #f 66 cmove then ; --> ( insert delete and search primitives 12:47pm cee 23jan84 ) : insert ( -- ) at dup #i c@ min dup >r - 0 max over dup r@ + rot r# +! update ; : delete ( -- ) #f c@ >r r@ negate r# +! at drop r@ + at r@ - 2dup + >r cmove r> r> blank update ; : -search ( -- flg ) at drop dup >r b/blk r# @ - 0 max #f count -match swap r> - over if drop else r# +! then ; : ?found ( flg -- ) if #f count type ." ?" quit then ; : search ( -- ) >f -search ?found ; --> ( line editing commands 12:47pm cee 23jan84 ) : x ( -- ) at0 -trailing #i c! #i count cmove at over + swap dup >r b/blk r# @ - c/l - dup >r cmove r> r> swap + c/l blank update ; : p ( -- ) at0 blank >i insert ; : u ( -- ) c/l r# +! at0 over + b/blk r# @ - c/l - ( string editing commands 09:12am cee 11feb84 ) : till ( -- ) >f at over >r #f count -match ?found r> - #f c@ swap dup #f c! dup #i c! at drop #i count cmove r# +! delete #f c! v ; : s ( scr -- scr ) >f 0 over scr @ ?do drop -search dup 0= if v forth i . leave then n loop ?found ; : f ( -- ) search v ; : e ( -- ) delete v ; : i ( -- ) >i insert v ; : a ( -- ) z i ; : r ( -- ) delete i ; : d ( -- ) search e ; cr .( eFORTH DOUBLE NUMBERS 12:47pm cee 23jan84 ) forth definitions 1 +load | 2constant 2variable d+ dnegate 2 +load | double number operations 3 +load | mixed precision operations 4 +load | double number output 5 +load | double number input - interpretation only exit ( 2variable 2constant d+ dnegate 12:47pm cee 23jan84 ) : 2constant ( d -- ) create , , ;code 2 ,x ldd 4 ,x ldx d x pshu next end-code 0 0 2constant 0. : 2variable ( -- ) variable 0 , ; code d+ ( d1 d2 -- d3 ) 2 ,u ldd 6 ,u addd 6 ,u std 0 ,u ldd 5 ,u adcb 4 ,u adca 4 ,u std 4 ,u leau next end-code code dnegate ( d1 -- -d1 ) clra clrb 2 ,u subd 2 ,u std 0 # ldd 1 ,u sbcb 0 ,u sbca 0 ,u std next end-code ( double number operations 12:47pm cee 23jan84 ) : dabs ( d1 -- d2 ) dup 0< if dnegate then ; : d- ( d1 d2 -- d3 ) dnegate d+ ; : d0= ( d -- flg ) or 0= ; : d= ( d1 d2 -- flg ) d- d0= ; : d< ( d1 d2 -- flg ) d- swap drop 0< ; : d> ( d1 d2 -- flg ) 2swap d< ; : dmin ( d1 d2 -- d3 ) 2over 2over d> if 2swap then 2drop ; : dmax ( d1 d2 -- d3 ) 2over 2over d< if 2swap then 2drop ; code du< ( ud1 ud2 -- flg ) 4 ,u ldd 0 ,u cmpd lo not if 6 ,u ldd 2 ,u cmpd then 0 # ldd lo if coma comb then 6 ,u leau 0 ,u std next end-code ( mixed precision arithmetic 12:47pm cee 23jan84 ) : m+ ( d1 n -- d2 ) dup 0< d+ ; : m/ ( d n1 -- n2 ) 2dup xor >r abs >r dabs r> u/mod r> 0< if negate then swap drop ; : m* ( n1 n2 -- d ) 2dup xor >r abs swap abs u* r> 0< if dnegate then ; : */ ( n1 n2 n3 -- n4 ) >r m* r> m/ ; : m*/ ( d1 n1 n2 -- d2 ) 2 pick 4 pick xor >r >r abs >r dabs r> 2>r r@ u* 0 2r> u* d+ r@ abs u/mod r@ abs swap >r u/mod r> rot drop 2r> xor 0< if dnegate then ; ( double number output 09:12am cee 11feb84 ) 52 user fxp -1 fxp ! : d.r ( d u -- ) >r swap over dabs <# fxp @ 0< if #s else fxp @ ?dup if 0 do # loop then ascii . hold begin 3 0 do # 2dup or 0= ?leave loop 2dup or dup if ascii , hold then 0= until then sign #> r> over - spaces type ; : d. ( d -- ) 0 d.r space ; ( double number input 12:47pm cee 23jan84 ) 54 user dpl : number ( adr -- n or d ) 0 dpl ! dup 1+ c@ ascii - = dup >r - 0 0 rot begin >binary dup c@ bl - while dup c@ dup ascii : = swap ascii , ascii 0 within or dup 0= abort" ?" dpl ! repeat drop r> if dnegate then dpl @ if cnt @ else drop -1 then dpl ! ; system ' number 'number ! protect cr .( eFORTH DOCUMENTATION ELECTIVES 12:47pm cee 23jan84 ) forth definitions 1 +load | tab right center footer header 2 +load | index listing show 3 +load | printer control words exit ( tab center right footer header 09:12am cee 11feb84 ) : tab ( n -- ) c# @ - dup 0< if abs 0 do bs loop else spaces then ; : center ( adr cnt -- ) width 2/ over 2/ - tab type ; : right ( adr cnt -- ) width over - tab type ; : printing? ( -- flg ) system printer 'put @ = ; : footer ( -- ) depth 2- l# @ depth mod ?do cr loop cr ." copyright 1983" " Charles E. Eaker" right page ; : header ( -- ) printing? if l# @ if footer then cr cr time type " eFORTH DOCUMENTATION" center date right cr then ; ( index listing show 3/page 09:12am cee 11feb84 ) : index ( n1 n2 --- ) swap dup 60 mod if header then do i 60 mod 0= if header then i block cr i 5 .r space c/l -trailing type loop cr ; : listing ( blk -- ) header 3 / 3 * dup 3 + swap do cr i list loop ; : show ( beg end -- ) swap do i listing 3 +loop ; ( printer control words 12:47pm cee 23jan84 )( define and install printer form-feed and fancy cr ) system definitions : FormFeed ( -- ) 12 emit ; ( define it ) : ?escape ( -- ) key? if key 27 = if begin key? until key 13 = abort" aborted." then then ; : (cr) ( -- ) ?escape 0 c# ! 1 l# +! (cr) ; printer output ' FormFeed 'page ! ' (cr) 'cr ! term output ' (cr) 'cr ! forth definitions : print ( -- ) system printer output ; : ok ( -- ) footer quit ; ( print vocabularies 12:47pm cee 23jan84 ) header .( FORTH VOCABULARY) forth words cr cr .( SYSTEM VOCABULARY) system words cr cr .( EDITOR VOCABULARY) editor words cr cr .( ASSEMBLER VOCABULARY) assembler words cr cr exit To get a listing of words in the vocabularies, just load this block. To send it to the printer, just enter print 34 load ok ( reserved 12:47pm cee 23jan84 ) cr .( eFORTH COMPILER ELECTIVES 12:47pm cee 23jan84 ) system definitions : resolve ( adr -- ) here swap ! ; : mark ( -- adr ) here ; : back ( adr -- ) , ; forth definitions : recurse ( -- ) | compile a recursive call last @ cfa> , ; immediate 1 +load | positional case structure 3 +load | compiler security exit ( keyed case run-time words 12:47pm cee 23jan84 ) system definitions : ?next ( used by case run-time words ) r> drop ?dup if 0< if drop else 2drop then r> 2+ else r> @ then >r ; : (of) over = ?next ; : (of) over swap > ?next ; : (range) 3 pick >r within r> swap ?next ; : ("of) 2over drop -text 0= negate ?next ; forth definitions --> ( keyed case compiling words 12:47pm cee 23jan84 ) : of system compile (of) forward ; immediate : of system compile (>of) forward ; immediate : range system compile (range) forward ; immediate : "of system compile ("of) forward 1 ptr @ ! ; immediate : case 0 's ptr ! 0 ; immediate : endcase compile drop ptr @ @ if compile drop then begin ?dup while system resolve repeat drop ; immediate ( standard conditionals redefined 12:47pm cee 23jan84 )56 user csp : ?comp ( -- ) state @ 0= abort" Compilation only." ; : ?pairs ( n n -- ) ?comp - abort" syntax error." ; : begin ?comp [compile] begin 1 ; immediate : until 1 ?pairs [compile] until ; immediate : else 6 over = if drop [compile] else 5 else 2 ?pairs [compile] else 2 then ; immediate : if ?comp [compile] if 2 ; immediate : then 2 ?pairs [compile] then ; immediate : while ?comp [compile] while 4 ; immediate : repeat 4 ?pairs >r 1 ?pairs r> [compile] repeat ; immediate : again 1 ?pairs [compile] again ; immediate assembler definitions : begin here ; | The one above won't work in the assembler. forth definitions --> ( case and loop words redefined 12:47pm cee 23jan84 ): case ?comp [compile] case 5 ; immediate : of 5 ?pairs [compile] of 6 ; immediate : of 5 ?pairs [compile] >of 6 ; immediate : range 5 ?pairs [compile] range 6 ; immediate : "of 5 ?pairs [compile] "of 6 ; immediate : endcase 6 ?pairs [compile] endcase ; immediate : do ?comp [compile] do 3 ; immediate : ?do ?comp [compile] ?do 3 ; immediate : loop 3 ?pairs [compile] loop ; immediate : +loop 3 ?pairs [compile] +loop ; immediate : ?loop system dlv @ 0= abort" must be used in a loop." ; : leave ?loop [compile] leave ; immediate : ?leave ?loop [compile] ?leave ; immediate --> ( colon and semicolon redefined 12:47pm cee 23jan84 ) : : state @ abort" execution only." 's csp ! : ; immediate ( The old version of the colon is not immediate. ) : ; ( -- ) ?comp 's csp @ - abort" incomplete definition." compile exit r> drop ; immediate ( Redefine word executed by create to warn when a word is being redefined. ) system definitions : (create) >in @ bl word system find forth if cr here count type ." isn't unique." then drop >in ! (create) ; ' (create) 'create ! system protect forth definitions cr .( eFORTH MISCELLANEOUS ELECTIVES 12:47pm cee 23jan84 ) 1 +load | block marking utility 2 +load | locate utility 3 +load | improved version of copies exit ( block marking facility 12:47pm cee 23jan84 )forth definitions 4 string me ( -- adr cnt ) : I'm ( -- ) bl text pad 1+ me cmove ; editor definitions : Mark ( -- ) | Mark block with id string scr @ block >r time r@ c/l 21 - + swap cmove bl r@ c/l 14 - + c! me r@ c/l 13 - + swap cmove date r@ c/l 9 - + swap cmove bl r@ c/l 2- + c! ascii ) r> c/l 1- + c! forth update ; ' Mark 'update ! system protect forth definitions ( locate utility 12:47pm cee 23jan84 ) ( This word assumes that block 2 has been loaded. ) : locate ( -- ) ' dup system ['] ?status < swap ( room copy copies 09:12am cee 11feb84 ) : room ( -- blks ) 's 256 - pad - 1024 / ; : r 0 ?do 2dup room 1pass room + swap room + swap loop r> 1pass ; : >copy ( from to cnt -- ) >r r@ + swap r@ + swap r> room /mod swap >r 0 ?do room - swap room - swap 2dup room 1pass loop r@ - swap r@ - swap r> 1pass ; : copies ( from to cnt -- ) flush >r 2dup < r> swap if >copy else c@ disk 2- 2- @ + ; 0 2 DriveField blocks | number of blocks. 1 DriveField tracks | number of tracks 1 DriveField sectors | number of sectors/track 1 DriveField s/s | sectors/side 2 DriveField b/s | bytes/sector 1 DriveField s/b | sectors/block 1 DriveField 0sector# | first phys. sector # on track 1 DriveField tOrigin | first eFORTH track 1 DriveField sOrigin | first eFORTH sector on above track 1 DriveField 5"Flag | Special 5" Compatability flag drop ( drive drive0 >drive bounds 09:12am cee 11feb84 ) variable 'claim ( -- adr ) ' 2drop 'claim ! variable 'config ( -- adr ) ' noop 'config ! : Drive ( -- adr ) disk 2- 2- ; : Drive0 ( -- adr ) disk 2+ ; : >Drive ( dr# -- ) | Set current Drive. dup 3 > abort" Non-existent drive." 16 * Drive0 + Drive ! ; : Bounds ( -- org cnt ) 0 Drive @ Drive0 ?do i @ + 16 +loop Drive @ @ ; ( SectorCounts SetSides 12:47pm cee 23jan84 ) create SectorCounts ( -- adr ) ( 1 side 2 sides ) 10 c, 10 c, 20 c, 10 c, ( 5" single-density ) 17 c, 17 c, 34 c, 17 c, ( 5" double-sensity FHL FLEX ) 18 c, 18 c, 36 c, 18 c, ( 5" double-density ) 15 c, 15 c, 30 c, 15 c, ( 8" single-density ) 26 c, 26 c, 52 c, 26 c, ( 8" double-density ) 29 c, 29 c, 58 c, 29 c, ( 8" SWTP extra-density ) 0 , ( end of table sentinel ) here SectorCounts - 2- 2/ constant Entries ( -- size ) : SetSides ( sectors -- ) SectorCounts Entries 0 do 2dup c@ = ?leave 2+ loop 1+ c@ ?dup 0= abort" Unrecognizable format." s/s c! sectors c! ; ( ClearDisk Remove BackUp 09:12am cee 11feb84 ): ClearDisk ( -- ) pad 1024 blank pad Bounds over + swap ?do i false r/w loop drop ; : Remove ( dr# -- ) >Drive 0 blocks ! ; : BackUp ( FromDr# ToDr# -- ) swap >Drive Bounds rot >Drive Bounds rot min editor copies ; : Restore ( -- ) origin 10 + @ execute ; : ReadSector ( adr dadr -- ) 4 0 do 2dup origin 6 + @ execute 0= ?leave Restore loop ?status 2drop ; : WriteSector ( adr dadr -- ) 4 0 do 2dup origin 8 + @ execute 0= ?leave Restore loop ?status 2drop ; ( Claim Release Mount 09:12am cee 11feb84 ) : Configure ( -- ) 'config @ execute sectors c@ SetSides ; : Claim ( cnt -- ) Configure blocks @ over u< abort" exceeds disk capacity." dup blocks ! s/b c@ * sOrigin c@ + sectors c@ /mod 'claim @ execute pad 257 ReadSector 2517 13319 pad 2! Drive @ pad 4 + 12 cmove pad 257 WriteSector ; : Release ( cnt -- ) Configure blocks @ swap - Claim ; : Mount ( dr# -- ) >Drive pad 257 ReadSector pad 2@ 2517 13319 d- or abort" Unclaimed Disk." pad 4 + Drive @ 12 cmove ; cr .( HARDWARE DEPENDENT OPTIONS 12:47pm cee 23jan84 ) ( Remove the "|" from lines which apply to your system. ) | 1 +load | 132 column printer such as Epson MX80 2 +load | cursor control - eFORTH/CoCo | 3 +load | cursor control - FHL FLEX | 4 +load | cursor control - TeleVideo | 5 +load | cursor control - template exit The other blocks contain alternate definitions of date and time which take advantage of various hardware capabilities. If you have FLEX then block 66 should replace block 4. If you have a Gimix CPU board, then 67 should replace 4 and 68 should replace 5. ( index listing show 6/page 12:47pm cee 23jan84 ) : index ( n1 n2 --- ) swap dup 60 mod if header then do i 60 mod 0= if header then i block cr i 5 .r space c/l -trailing type loop cr ; : list2 ( blk -- ) scr ! cr ." Block # " scr @ 4 .r 55 spaces ." Block " scr @ 1+ 4 .r b/blk c/l / 0 do cr i 2 .r space scr @ block i c/l * + c/l type space scr @ 1+ block i c/l * + c/l type loop cr ; : listing ( scr -- ) header 6 / 6 * dup 6 + swap do cr i list2 2 +loop ; : show ( beg end -- ) swap do i listing 6 +loop ; system printer output 132 'width ! term output forth ( cursor control - eFORTH/CoCo 12:47pm cee 23jan84 )( These versions are for the Color Computer version of eFORTH. )system definitions : (page) ( -- ) 26 emit ; : (xy) ( x y -- ) 20 emit 32 + emit 32 + emit ; : (home) ( -- ) 30 emit ; : (eol) ( -- ) 5 emit ; : (eos) ( -- ) 19 emit ; term output ' (page) 'page ! ' (xy) 'xy ! ' (home) 'home ! ' (eos) 'eos ! ' (eol) 'eol ! 50 'width ! forth definitions ( cursor control - FHL FLEX 12:47pm cee 23jan84 )( These versions are for FHL Color Computer FLEX ) system definitions : (page) ( -- ) 2 emit ; : (xy) ( x y -- ) 20 emit 32 + emit 32 + emit ; : (home) ( -- ) 15 emit ; : (eol) ( -- ) 5 emit ; : (eos) ( -- ) 19 emit ; term output ' (page) 'page ! ' (xy) 'xy ! ' (home) 'home ! ' (eos) 'eos ! ' (eol) 'eol ! 50 'width ! forth definitions ( cursor control - TeleVideo 12:47pm cee 23jan84 )( These versions are for TeleVideo terminals ) system definitions : (page) ( -- ) 26 emit ; : (xy) ( x y -- ) 27 emit ascii = emit 32 + emit 32 + emit ; : (home) ( -- ) 30 emit ; : (eol) ( -- ) 27 emit ascii T emit ; : (eos) ( -- ) 27 emit ascii Y emit ; term output ' (page) 'page ! ' (xy) 'xy ! ' (home) 'home ! ' (eos) 'eos ! ' (eol) 'eol ! 80 'width ! forth definitions ( cursor control - template 12:47pm cee 23jan84 )( This block is a form for defining these for other terminals. )system definitions : (page) ( -- ) ; : (xy) ( x y -- ) ; : (home) ( -- ) ; : (eol) ( -- ) ; : (eos) ( -- ) ; term output ' (page) 'page ! ' (xy) 'xy ! ' (home) 'home ! ' (eos) 'eos ! ' (eol) 'eol ! 79 'width ! forth definitions ( date - FLEX 12:47pm cee 23jan84 ) hex : date ( -- adr cnt ) ( uses FLEX date registers ) <# CC10 c@ 0 # # 2drop CC0E c@ 1- 3 * " janfebmaraprmayjunjulaugsepoctnovdec" drop + 0 2 do dup i + c@ hold -1 +loop drop CC0F c@ 0 # # #> ; decimal ( date - Gimix CPU board 12:47pm cee 23jan84 ) hex 84 constant year : date ( -- adr cnt ) base @ hex year 0 <# # # 2drop E227 c@ dup 9 > if 6 - then 1- 3 * " janfebmaraprmayjunjulaugsepoctnovdec" drop + 0 2 do dup i + c@ hold -1 +loop drop E226 c@ 0 # # #> rot base ! ; decimal ( time - Gimix CPU board 12:47pm cee 23jan84 ) hex : time ( -- adr cnt ) base @ hex <# ascii m hold E224 c@ 11 > if ascii p hold else ascii a hold then E223 c@ 0 # # ascii : hold 2drop E224 c@ dup 1 < if 12 + else dup 12 > if dup 20 22 within if 18 - else 12 - then then then 0 # # #> rot base ! ; decimal ( reserved 12:47pm cee 23jan84 ) ( reserved 12:47pm cee 23jan84 ) яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя789:Е<=>?@ABCВяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяEFORTH COR6¬EFORTH BIN;sяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя( reserved 12:47pm cee 23jan84 ) cr .( COLOR COMPUTER EXTENSIONS 12:47pm cee 23jan84 ) system disking definitions 1 +load | (claim) for CoCo 2 +load | (configure) for CoCo 3 +load | cr for Radio Shack printers ' (configure) 'config ! ' (claim) 'claim ! forth exit ( claim for CoCo 12:47pm cee 23jan84 ) : (claim) ( sec trk -- ) pad 4354 ReadSector 0 pad 68 + pad do i @ + 2 +loop -34 - abort" This disk is in use." 2* swap 9 /mod swap 0= not - + pad swap erase pad 4354 WriteSector ; ( configure for CoCo 12:47pm cee 23jan84 ) : (configure) ( -- ) 35 tracks c! 18 sectors c! 1 0sector# c! 1 tOrigin c! 4 sOrigin c! 256 b/s ! 4 s/b c! tracks c@ tOrigin c@ - sectors c@ * sOrigin c@ - 4 / blocks ! ; ( Radio Shack printer cr 12:47pm 23jan84 ) : (cr) ( -- ) ?escape 0 c# ! 1 l# +! 13 emit ; printer output ' (cr) 'cr ! term output exit ( reserved 12:47pm cee 23jan84 ) ( reserved 12:47pm cee 23jan84 ) ( reserved 12:47pm cee 23jan84 ) ( reserved 12:47pm cee 23jan84 ) ( reserved 12:47pm cee 23jan84 ) ( reserved 12:47pm cee 23jan84 ) ( reserved 12:47pm cee 23jan84 ) ( reserved 12:47pm cee 23jan84 ) ( LAST BLOCK ON THIS DISK 12:47pm cee 23jan84 ) яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяe©я®ґ2d®Ўn”х€(?leave© мБ&ж1"®Ўn” …(?do© )мДЈB- 3D !„(do© =70‰Ђ4Јд41"®Ўn”t‚>т V74®Ўn” Q‚rѕ e56®Ўn” `ѓ2>т u74®Ўn” oѓ2rѕ …56®Ўn” Ѓй “мдгb6®Ўn” ЏЃк Јмdгf о џ‚rА °мд6®Ўn” єЮ ®Ўn” ГЬЭЬЭЮO_6 з «‚'у Ъ0Д6®Ўn” Х‚'т й6@®Ўn” д‚'х цё_6®Ўn” с„oveт!мB6®Ўn”!„droр!3B®Ўn”!„swaр!(766®Ўn”!!ѓroф!:4 7666 5 ®Ўn”!4ѓduр!PмД6®Ўn”!J„?duр!aмД'п л!Z„2duр!p766®Ўn”!i…2droр!„3D®Ўn”!|ѓmiо!’7ЈД, !Њѓmaш!Ј7ЈД/нД®Ўn”!ќ…cmovе!ємД'"4 ®B1‹ЇД®DЕ'¦ §Ђ¬Д'мЎнЃ¬Д&ш5 3F®Ўn”!І†ћo„®Ўn”м 7 Ц> Ц= Ц?¦џRџR К7џR7џR ё7џR7џRџR ў¦џR <&¦0ЊП ¦џR ‡–<Ѓ&†А—<¦ћ:›<џRn„мљ>Ъ?Э>Ц=XXXXкЧ=®Ўn”ѓccт%б %щѓdpт%б&ѓpcт%бЂЂ&Ѓш%б&Ѓщ%б &#Ѓх%б@&,Ѓу%б@&5Ѓб%б&>Ѓв%б &GЃд%бж40Ќя1џ:† —<мБ&Ж„каO6®Ўn”+$ѓ#пѓ"60Ќяџ:Ж€ Э60Ќяџ:Ж‰ Сѓяр%Д ЗѓяЂ$Ш в&P‚,ш&W&®‚,щ&W &¶‚,х&W@&ѕ‚,у&W`&ОмБ' МЌ0ЌюБ МЊ0Ќю¦6џ:®Ўn”&Ж„,pcтр#G,x&МfжO6† —<0Ќю†џ:®Ўn”&мѓ,x«&эЂ'„,x+«&эЃ'ѓ,-ш&э‚'%„,--ш&эѓ'.ѓ,y«&э '8„,y+«&эЎ'Aѓ,-щ&эў'K„,--щ&эЈ'Tѓ,u«&эА'^„,u+«&эБ'gѓ,-х&эВ'q„,--х&эГ'zѓ,s«&эР'„„,s+«&эС'Ќѓ,-у&эТ'—„,--у&эУ' ѓa,ш&э†'Єѓb,ш&э…'іѓd,ш&э‹'јѓa,щ&э¦'Еѓb,щ&эҐ'Оѓd,щ&э«'Чѓa,х&эЖ'аѓb,х&эЕ'йѓd,х&эЛ'тѓa,у&эЦ'ыѓb,у&эХ(ѓd,у&эЫ( ЃЈ(O_Э<®Ўn”(ЃЭ((–<Ѓ &¦A…Ђ'Љ§A®Ўn”Ж0ЌэFO6џ:®Ўn”Ж Ч<Жџ0ЌэE л($Ѓј(]†—<0Ќэ+џ:®Ўn”(Yѓnoр%Г(m„synг%Г(vѓdaб%Г(Ђѓseш%Г(‰ѓrtу%Г9(’ѓabш%Г:(›ѓrtй%Г;(¤ѓmuм%Г=(ѓswй%Г?(¶„negб%Г@(ї„negв%ГP(Й„comб%ГC(У„comв%ГS(Э„lsrб%ГD(з„lsrв%ГT(с„rorб%ГF(ы„rorв%ГV)„asrб%ГG)„asrв%ГW)„aslб%ГH)#„aslв%ГX)-„rolб%ГI)7„rolв%ГY)A„decб%ГJ)K„decв%ГZ)U„incб%ГL)_„incв%Г\)i„tstб%ГM)s„tstв%Г])}„clrб%ГO)‡„clrв%Г_)‘„swiІ%h?)›„swiі%h?)¦…andcг%l)±„orcг%l)ј„cwaй%l<)Ж„pulх%x7)Р„pshх%x6)Ъ„pshу%p4)д„pulу%p5)оѓexз%t)шѓtfт%t*„leaш%Х* „leaщ%Х*„leaу%Х*„leaх%Х*(ѓneз%Л@*2ѓcoн%ЛC*;ѓlsт%ЛD*Dѓroт%ЛF*Mѓasт%ЛG*Vѓasм%ЛH*_ѓroм%ЛI*hѓdeг%ЛJ*qѓinг%ЛL*zѓtsф%ЛM*ѓѓclт%ЛO*Њѓjmр%ЛN*•„subб%ёЂ*ћ„subв%ёВ*Ё„cmpб%ёЃ*І„cmpв%ёБ*ј„sbcб%ё‚*Ж„sbcв%ёВ*Р„andб%ё„*Ъ„andв%ёД*д„bitб%ё…*о„bitв%ёЕ*шѓldб%ё†+ѓldв%ёЖ+ѓstб%ё‡+ѓstв%ёЗ+„eorб%ё€+&„eorв%ёИ+0„adcб%ё‰+:„adcв%ёЙ+Dѓorб%ёЉ+Nѓorв%ёК+W„addб%ё‹+`„addв%ёЛ+jѓldш%ХЋ+tѓstш%ХЏ+}„cmpш%ХЊ+†ѓldд%ХМ+ђѓstд%ХН+™„addд%ХГ+ў„subд%Хѓ+¬ѓldх%ХО+¶ѓstх%ХП+їѓldщ%°Ћ+Иѓstщ%°Џ+Т„cmpщ%°Њ+Ьѓldу%°м+зѓstу%°ь+с„cmpу%°Њ+ы„cmpд%°ѓ,„cmpх%°ѓ,ѓjsт%ХЌжO6®Ўn”,‚eс,#&,.‚mй,#*,6‚hй,##,>‚lп,#$,F‚vг,#),N‚lф,#,,V‚gф,#/,^ѓnoфр$Ќ$Вf,fѓreмр#$#Y!N•яЂ$Р!•%%$І!N T#$ cf,t„nexфрѕ®Ўѕn”fр?««•,г/џ«•,ц/џ«•>"Њ н 6ѓmoо,ЯnџeFORTH Version 1.0-Copyright 1984 by Frank Hogg Laboratory, Inc.J‹_эшѓэмэаo‚ја"щЭ JЭьшЭѕ.џџЋ3џџџџЮ 0ЌяKn”¶ш‹ЮЮ 0Ќи{n”#Фяя-~™#я)яя*яя,яяhя†яЋ-~§§€§€/§€?9-С4 1ЊЁ-{-z3YмIЈ¤%1ЁЊ-ѕ%уЖ—г¤нBї-xm/*Ѕ/>мB66ж#O6_¦'G%hEiDY цOџ-t77«)л*б#%а#LнBЋ/мmH'Ћ/АЇI†§F®KЇDж'зGмBнДл(m+'Ѓ%LЎ"%†®DШ 'ЕА&"jF'Ѕ/>мД ЩjG'м%®D0‹ЇDмД\б#%Д_L Ач-{3K5 ®Ўn”.–-{4 ѕ-x7'ч-{ _O6-z Ъ.¶-{4 ѕ-x7( Ю.И4 ѕ-x7О П.Ч4 ѕ-xЅ/> ¬Ж9†~·· Ћ/ї Ћ/)ї .з.е~-ѕ¶я*¶я¶ …'J· …&.зя@ѕЌ'0їЌ;¶.е'.еЋ/юЇj;.зя@94†я§/¦, 4Ў.%† Oа(б$%Љ@л(Є,·я@}.з&4Ћё=0&ы5·.з¦/+·яI5†Ќ†Є-·яHЌo/ДШ5†ЌцяHЕ&щ99чяJ±яI'·яKЌм†.еЄ-·яHЌЦ¶яI§/9я…ЌЬ††ЖњЌ¶яK§Ђ щч.еч.жц.зЕ@'ЉКЂP·яHчя@9яYЌ°†¦ЖьЌЫ¦Ђ·яK щцяHЇф.ж9М04·яячя9@@@4†я‹Ь4ИЧ–4Ћ0$†Ж0Ч—Ж4ЧЦSдзЦSк„зЂH$г5Ч—ИЧ5—5ћ4Ћ0ЖO§J§0Z&хц0pЌ¤Z&ыЋ0Ж¦„Є¤§ЂZ&х5–@@4}0¦&Ћ0Ж¦‰ЃC¤„&;0Z&т|0¦¶0¦Ѓ'Bz0§&¶81·0§z0Ё&Ѕ/7яЌЋ0Ж¦‰Ѓ¤„§‰Ѓ0Z&с ·PЛ4ЖЂI%V ъ50¦ы5ђ†·0¦5ђ4Ћ0ќк†з†5”4OV%L ъHHH«а5„4Ћ014ь8)¤…'† ь8+¤…'†·145–4¶87·0ЁЅ0Є5†4Ѕ3.¶87·0Ё¶82·0©я3&}2Њ'цz0©&сЅ3Џ жяЋя–Ѓя'вя M'#Ѓ#.Ѓ7"ФЂЖ=ы14Ћ1а¦…'Е*s0Ґ ѕЅ3c5”†@ц14'ф‹ Z'пO м‹`ц14&}0Ґ'аЂ Б&ЪЂ@ Ц 00я1!|2"3#~4$5%6&7'^8([9)]:*;+,<{-=_.>}/?\ ця"ДБ9Ќц'ь4PЌ(Ж 4_ 4_DYYчя ЌЌ5Z&лЌ 5Ѓ &Ќ Жчя Ќѕ• ѕ—0&ь9 2БЖшчя"чяГчяЕчяЗчяЙчяКчяМчяПчяСчяУ94vџ2‡5цЃ"Ћ5OHn–9Ѓ %с4&¶2†Ѓ2"\нь2…10†0‰а543ЌHX3Е1Ќ—„ЂЖ=1«м„ЄДкAн„Ж40€ам„ЄДкAн„¦ўжa4ЖяFVjд*ъ¤„дн„5Z*Ш|2†5„46}2Љ&,†я·2Љ}2‹& ~ь2…В0†0‰а1ЌнXмҐCS¤„дн„ Ќ75¶46}2Љ'ч2Љ}2‹&нЌLь2…ђ0†0‰а1Ќ»XмҐЄ„кн„5¶46s2Љ'Ч ўЌ&ь2…Ќk0†1ЌљX1ҐЖ4м„Ё¤и!н„0€ jд&с5„|2†¶2†Ѓ3$ ¶2…Ѓ%†·2…92†¶2…LЃ%†·2… 9·2…9}2…& [z2…9}2†&†2·2† йz2† є2†94Ћж_0‹5Ж=ДDDD9Ќџь2…Ќд0‰4Ћж¬д' м‰нЃ¬д&ц2bМяянЃ¬д&ъ5ђяqь2…Ќ¶L4Ћю¬д' м‰ююнѓ¬д&ц2bМяянѓ¬д&ъ5ђO_э2…9ЌшЋжМяянЃЊю&щ9ь2…Ѓ$0Б3$,4яm0†Ћ5/X1ҐЖ4м„Є¤к!н„0€ 5Z&о¶2…5\Б3%Ф9ЌЖ¶2…LЃ%9я7 Ћ4Ьї2‡9Ђ Ѓ$·2‰Ћ4мї2‡9Ђ Ѓ3$ ·2†¶2‰·2…Ћ2Бї2‡9s2‹9s2Њ9Ћя"ѕ83М0ъ§!з¤†4§!¦¤€§¤ь85ѓ&ы0&о9ш|>ЂАарx<ЂАар2А552А2А4Ќ2А5 3х3Ѕ3Ч3к2А42А4w2А2А2А4Е4Х2А2А4L42А4}яяяяяяяїїїїїяї__яяяяяџџџџџїџпїooЯїooї__їOoџЯїяяяяяЯїїЯїЯпппЯїяoџџoяяїїїїяяяяџџЯїяяяяяяяяяяяїїяяпЯїяџoO/oџї?їїїїџoпЯїЯїЯпoџпПЇпппппoџЯїooџппЯїџooџooџџooЏпЯїяїїяїїяяїїяїїяЯїїЯяяяяяяяїЯпЯїяџoпЯЯяЯџOOOoџџџooooooooџooџЇЇЇЇЇЏOooЏooooooЏЯЯЯЯЯЏПппппoџo_???_ooooooo//OOOoџoooooџooџooooџпoo?_oџoџпoџЯЯЯЯЯЯooooooџoooooџџoooooooџџџoooooџЯЯЯпЯї??яяїЯпяПпппппПяї__яяяяяяяяяїЯяяяяяяяпЏoЏoooяяЏЏппЏoooЏяяџoџџoяяџoЏпЏooooїяїїїїїЯяЯЯЯ_џяo_?_o?їїїїїяяooooяяooooяяџoooџяяoяяЏoЏппяяяяпїїїїїїяяooooџяяoooџџяяooooяяoџџooяяooџЯяяпЯїЯїї?їїЯїїїяїїїїЯЯПЯЯїяї/OЯяяЇWЇWЇWЇ1а@@5…5O@,Ѕ.иЅ2ЌЅ0·яЯ9ѕ8hїrѕ8jї ѕ8lї ·яЮnџяюЌЧЅ3cnџАФЧјЧ®†U·qѕrї8hЋ8ѓїrnџяюЋ8^їrѕ ї8jѕ ї8lЌ ывМжnџяяяooooяяџoooџяяoяяЏoЏппяяяяпїїїїїїяяooooџяяoooџџяяooooяяoџџooяяooџЯяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяIi(k-$-d8E-|-П.в.в.в2®.в.в1V1c.в.в272?.в.в.в.вYhC8%.”.ґ.Х.Ж9ЎнIсQ4ћЕг*чЗ%1„useтраЄТжё6®Ўn”V„basеc oѓscтc2yѓ>iоc$‚ѓblлc&‹…statеc"”‡contexфcXџ‡currenфcZ¬„lasфc\№ЃиcГ‚rЈc0К‚s°cТ‚r°c Ъ‚h°cвѓctтc*кѓptтc,уѓcnфc.ѓdlцc@ь‚bм „herеЬ6®Ўn”ѓpaд.ЬГT л(‡decimaмAМ Э ®Ўn”7ѓheшRМ нL„scaо`77666¦Ђ'ЎД'шЇE¦Ђ'ЎД&шЇAмAЈCУ$Э$®E0мAЈE3G6ѓ@%М@4 ћз '¦Ђ§ Z&щ† §¤5 ®Ўn”YѓinАр†"ЊЏ"Њ!_ґСйЁХХ"Њ#f·„worдр»^!‚f®BмЃ„?ЕЂ& ЈЎ'®&м9ДЈЎ&фж94¦Ђ+Ў 'ш5 г„Ў¤&ц5 ж>9„finд-4 6жШБ"3ЦYћ:ЇД®„'Ќ§&Ц[ћ:СY'ЇД®„'Ќ”'ЇBOнД5 ®Ўn”®Дж&ЮO_нД5 ®Ўn”Ы‚-§ра+$шfwЃ§рzF?f€Г['ЭрЉђf¤4 ћЦ_Лз Ч_ћ`џ`ЇЎџ5 ћO0‹oЂoЂЦ[з„®Ўn”–ЉvocabularщраўТжёЭX®Ўn”РЕfortигbпЖsysteнгeш&€(forget©®Дњ%Hћ0€`®„¬Д"ъжСY%7џ`Ч_®Д0m‚*ь0ЇДћ:6®„'¬B%®&ш7н„0Бb$дмДЭoДoA®Ўn”ь†forgeфрЉFis unforgettable.fi‹definitionуњћXџZ®Ўn” €(create©рґ"Њ"Њ›ѕ"Ѕа"›•#‡Т06®Ўn”Ћ†creatевѕBn”nTRX\bOsbSОbYKeЩ…emptщре"ЊЕ"Ѕѕ#G•"!ёхљf¦‡protecфрЕ"Њ!N•."Ѕе"Ѕѕ#G•"!ёf‡>binarщc./70ж„А0%IБ % Б%AБ+$=АС!$7O6–!жE=гДнДO_6–!жF=гAнA–!жE=гДнД–!жD=лДзД7нB7нB/ Ї6®Ўn”/€(number©р!N#5"›•-%!N T#$$…$…!8a"›#$F?! cґы#fYА hя‡executе7n”†?stacл“%1Ќ®Ўn”$ЌFEmpty stack.В‡(abort©р c/!8ґЋ$… "Ѕь«/џqџЏ"Њ!_ґЊ}"Ѕ†"Њ#YН"Ѕ"›,•„#"Он# Tf‰interpreфр$…љ"Ѕzґґ•@"Њ Ёў–…querщр$…$…†"ЯХ"Њ•P‘$…о"«#"Ѕqfѕ„quiфр Б«Д ™ ok ёЁс>†origiо.†goldeоз†sysI/П„terнП2LXX:XXNXb,‡printeтПBPYPL1{!‚{{и‚cЈ~ћ0 6®Ўn”y‚lЈЏћ0 нQ†(key?© 4 ћ®®ё'Мяя O_65 ®Ўn”—…(key©З4 ћ®®ё„‰O Ыї†(emit©е4 ћжAБ %м Гн ®®7ё5 ®Ўn”Ь„(cr©р• Ѓ• Ѓf €(expect©р!&ч"Я$…о"Ѕs!N• %ґJ!f!N•%ґ^!№Ё8!N•%ґ”!"Њо"Њ%%ґ8о"«#"›!_ґ8Ѓ$Ќо"zЁl!N•%ґ¶!о"Њ$… '2№Й¬Ё2!N$Р$шґРо"Њ"Њ%%ґШ!ьЁ8!Nо"«#"О$Ќо"zЃЁ8!†(type©р$… '!N"›Ѓ#5Йя!fр…inpuф4 ћ®®ё 7џ®®ё5 ®Ўn”†outpuфB4 ћ®®ё7џ®®ґ5 ®Ўn”Љ„keyїhѕDn”aѓkeщuѕFn”o„emiфѓѕHn”|†expecф“ѕJn”Љ„typеЎѕLn”љ‚cтћ®€n”Ё‚bу»ѕPn”9„(bs©ро"Њ!_ґс#Yо"Ѕ•!NЃqЃ•яю|"zЁуьf¶„belмюѕNn”В†(bell©р•Ѓfч„holдћ,7з‚џ,®Ўn”‚<Ј2ЬГTЭ,®Ўn”-‚#ѕD3DЬћ,ГT“,6®Ўn”?„sigор!8%ґl•-fWЃЈрt"Њ T$… ®#Д c!& T#Д c!8• !$Рґћ•#•0#fp‚#урr!n$І$шґЇfЄ‚.тр T!N"х$…0\B c!#$‚џfїЃ®р$…ВqfвЃїр"Њдfрѓu.тр T$…0B c!#$‚џfь‚u®р$…qf…counф17жЂO6®Ўn”)‰-trailinзJмД/4 ®B0‹¦‚Ѓ &1?&цЇД5 ®Ўn”>…spacерЃfk†spaceур$… 'ђqЙЉf„(."©р c/!n# Tџf”…(r/w©іѕn”{ѓr/чАѕт V74®Ўn” Q‚rѕ e56®Ўn” `ѓ2>т u74®Ўn” oѓ2rѕ …56®Ўn” Ѓй “мдгb6®Ўn” ЏЃк Јмdгf о џ‚rА °мд6®Ўn” єЮ ®Ўn” ГЬЭЬЭЮO_6 з «‚'у Ъ0Д6®Ўn” Х‚'т й6@®Ўn” д‚'х цё_6®Ўn” с„oveт!мB6®Ўn”!„droр!3B®Ўn”!„swaр!(766®Ўn”!!ѓroф!:4 7666 5 ®Ўn”!4ѓduр!PмД6®Ўn”!J„?duр!aмД'п л!Z„2duр!p766®Ўn”!i…2droр!„3D®Ўn”!|ѓmiо!’7ЈД, !Њѓmaш!Ј7ЈД/нД®Ўn”!ќ…cmovе!ємД'"4 ®B1‹ЇД®DЕ'¦ §Ђ¬Д'мЎнЃ¬Д&ш5 3F®Ўn”!І†ћo„®Ўn”м 7 Ц> Ц= Ц?¦џRџR К7џR7џR ё7џR7џRџR ў¦џR <&¦0ЊП ¦џR ‡–<Ѓ&†А—<¦ћ:›<џRn„мљ>Ъ?Э>Ц=XXXXкЧ=®Ўn”ѓccт%б %щѓdpт%б&ѓpcт%бЂЂ&Ѓш%б&Ѓщ%б &#Ѓх%б@&,Ѓу%б@&5Ѓб%б&>Ѓв%б &GЃд%бж40Ќя1џ:† —<мБ&Ж„каO6®Ўn”+$ѓ#пѓ"60Ќяџ:Ж€ Э60Ќяџ:Ж‰ Сѓяр%Д ЗѓяЂ$Ш в&P‚,ш&W&®‚,щ&W &¶‚,х&W@&ѕ‚,у&W`&ОмБ' МЌ0ЌюБ МЊ0Ќю¦6џ:®Ўn”&Ж„,pcтр#G,x&МfжO6† —<0Ќю†џ:®Ўn”&мѓ,x«&эЂ'„,x+«&эЃ'ѓ,-ш&э‚'%„,--ш&эѓ'.ѓ,y«&э '8„,y+«&эЎ'Aѓ,-щ&эў'K„,--щ&эЈ'Tѓ,u«&эА'^„,u+«&эБ'gѓ,-х&эВ'q„,--х&эГ'zѓ,s«&эР'„„,s+«&эС'Ќѓ,-у&эТ'—„,--у&эУ' ѓa,ш&э†'Єѓb,ш&э…'іѓd,ш&э‹'јѓa,щ&э¦'Еѓb,щ&эҐ'Оѓd,щ&э«'Чѓa,х&эЖ'аѓb,х&эЕ'йѓd,х&эЛ'тѓa,у&эЦ'ыѓb,у&эХ(ѓd,у&эЫ( ЃЈ(O_Э<®Ўn”(ЃЭ((–<Ѓ &¦A…Ђ'Љ§A®Ўn”Ж0ЌэFO6џ:®Ўn”Ж Ч<Жџ0ЌэE л($Ѓј(]†—<0Ќэ+џ:®Ўn”(Yѓnoр%Г(m„synг%Г(vѓdaб%Г(Ђѓseш%Г(‰ѓrtу%Г9(’ѓabш%Г:(›ѓrtй%Г;(¤ѓmuм%Г=(ѓswй%Г?(¶„negб%Г@(ї„negв%ГP(Й„comб%ГC(У„comв%ГS(Э„lsrб%ГD(з„lsrв%ГT(с„rorб%ГF(ы„rorв%ГV)„asrб%ГG)„asrв%ГW)„aslб%ГH)#„aslв%ГX)-„rolб%ГI)7„rolв%ГY)A„decб%ГJ)K„decв%ГZ)U„incб%ГL)_„incв%Г\)i„tstб%ГM)s„tstв%Г])}„clrб%ГO)‡„clrв%Г_)‘„swiІ%h?)›„swiі%h?)¦…andcг%l)±„orcг%l)ј„cwaй%l<)Ж„pulх%x7)Р„pshх%x6)Ъ„pshу%p4)д„pulу%p5)оѓexз%t)шѓtfт%t*„leaш%Х* „leaщ%Х*„leaу%Х*„leaх%Х*(ѓneз%Л@*2ѓcoн%ЛC*;ѓlsт%ЛD*Dѓroт%ЛF*Mѓasт%ЛG*Vѓasм%ЛH*_ѓroм%ЛI*hѓdeг%ЛJ*qѓinг%ЛL*zѓtsф%ЛM*ѓѓclт%ЛO*Њѓjmр%ЛN*•„subб%ёЂ*ћ„subв%ёВ*Ё„cmpб%ёЃ*І„cmpв%ёБ*ј„sbcб%ё‚*Ж„sbcв%ёВ*Р„andб%ё„*Ъ„andв%ёД*д„bitб%ё…*о„bitв%ёЕ*шѓldб%ё†+ѓldв%ёЖ+ѓstб%ё‡+ѓstв%ёЗ+„eorб%ё€+&„eorв%ёИ+0„adcб%ё‰+:„adcв%ёЙ+Dѓorб%ёЉ+Nѓorв%ёК+W„addб%ё‹+`„addв%ёЛ+jѓldш%ХЋ+tѓstш%ХЏ+}„cmpш%ХЊ+†ѓldд%ХМ+ђѓstд%ХН+™„addд%ХГ+ў„subд%Хѓ+¬ѓldх%ХО+¶ѓstх%ХП+їѓldщ%°Ћ+Иѓstщ%°Џ+Т„cmpщ%°Њ+Ьѓldу%°м+зѓstу%°ь+с„cmpу%°Њ+ы„cmpд%°ѓ,„cmpх%°ѓ,ѓjsт%ХЌжO6®Ўn”,‚eс,#&,.‚mй,#*,6‚hй,##,>‚lп,#$,F‚vг,#),N‚lф,#,,V‚gф,#/,^ѓnoфр$Ќ$Вf,fѓreмр#$#Y!N•яЂ$Р!•%%$І!N T#$ cf,t„nexфрѕ®Ўѕn”fр?««•,г/џ«•,ц/џ«•>"Њ н 6ѓmoо,ЯnџeFORTH Version 1.0-Copyright 1984 by Frank Hogg Laboratory, Inc.J‹_эшѓэмэаo‚ја"щЭ JЭьшЭѕ.џџЋ3џџџџЮ 0ЌяKn”¶ш‹ЮЮ 0Ќи{n”#Фяя-~™#я)я*яя,яяhя†яЋ-~§§€§€/§€?9-С4 1ЊЁ-{-z3YмIЈ¤%1ЁЊ-ѕ%уЖ—г¤нBї-xm/*Ѕ/>мB66ж#O6_¦'G%hEiDY цOџ-t77«)л*б#%а#LнBЋ/мmH'Ћ/АЇI†§F®KЇDж'зGмBнДл(m+'Ѓ%LЎ"%†®DШ 'ЕА&"jF'Ѕ/>мД ЩjG'м%®D0‹ЇDмД\б#%Д_L Ач-{3K5 ®Ўn”.–-{4 ѕ-x7'ч-{ _O6-z Ъ.¶-{4 ѕ-x7( Ю.И4 ѕ-x7О П.Ч4 ѕ-xЅ/> ¬Ж9њ†~·· Ћ/ї Ћ/)ї .з.е~-ѕ¶я*¶я¶ …'J· …&.зя@ѕЌ'0їЌ;¶.е'.еЋ/юЇj;.зя@94†я§/¦, 4Ў.%† Oа(б$%Љ@л(Є,·я@}.з&4Ћё=0&ы5·.з¦/+·яI5†Ќ†Є-·яHЌo/ДШ5†ЌцяHЕ&щ99чяJ±яI'·яKЌм†.еЄ-·яHЌЦ¶яI§/9я…ЌЬ††ЖњЌ¶яK§Ђ щч.еч.жц.зЕ@'ЉКЂP·яHчя@9яYЌ°†¦ЖьЌЫ¦Ђ·яK щцяHЇф.ж9М04·яячя9@@@4†я‹Ь4ИЧ–4Ћ0$†Ж0Ч—Ж4ЧЦSдзЦSк„зЂH$г5Ч—ИЧ5—5ћ4Ћ0ЖO§J§0Z&хц0pЌ¤Z&ыЋ0Ж¦„Є¤§ЂZ&х5–@@4}0¦&Ћ0Ж¦‰ЃC¤„&;0Z&т|0¦¶0¦Ѓ'Bz0§&¶81·0§z0Ё&Ѕ/7яЌЋ0Ж¦‰Ѓ¤„§‰Ѓ0Z&с ·PЛ4ЖЂI%V ъ50¦ы5ђ†·0¦5ђ4Ћ0ќк†з†5”4OV%L ъHHH«а5„4Ћ014ь8)¤…'† ь8+¤…'†·145–4¶87·0ЁЅ0Є5†4Ѕ3.¶87·0Ё¶82·0©я3&}2Њ'цz0©&сЅ3Џ жяЋя–Ѓя'вя M'#Ѓ#.Ѓ7"ФЂЖ=ы14Ћ1а¦…'Е*s0Ґ ѕЅ3c5”†@ц14'ф‹ Z'пO м‹`ц14&}0Ґ'аЂ Б&ЪЂ@ Ц 00я1!|2"3#~4$5%6&7'^8([9)]:*;+,<{-=_.>}/?\ ця"ДБ9Ќц'ь4PЌ(Ж 4_ 4_DYYчя ЌЌ5Z&лЌ 5Ѓ &Ќ Жчя Ќѕ• ѕ—0&ь92БЖшчя"чяГчяЕчяЗчяЙчяКчяМчяПчяСчяУ94vџ2‡5цЃ"Ћ5OHn–9Ѓ %с4&¶2†Ѓ2"\нь2…10†0‰а543ЌHX3Е1Ќ—„ЂЖ=1«м„ЄДкAн„Ж40€ам„ЄДкAн„¦ўжa4ЖяFVjд*ъ¤„дн„5Z*Ш|2†5„46}2Љ&,†я·2Љ}2‹& ~ь2…В0†0‰а1ЌнXмҐCS¤„дн„ Ќ75¶46}2Љ'ч2Љ}2‹&нЌLь2…ђ0†0‰а1Ќ»XмҐЄ„кн„5¶46s2Љ'Ч ўЌ&ь2…Ќk0†1ЌљX1ҐЖ4м„Ё¤и!н„0€ jд&с5„|2†¶2†Ѓ3$ ¶2…Ѓ%†·2…92†¶2…LЃ%†·2… 9·2…9}2…& [z2…9}2†&†2·2† йz2† є2†94Ћж_0‹5Ж=ДDDD9Ќџь2…Ќд0‰4Ћж¬д' м‰нЃ¬д&ц2bМяянЃ¬д&ъ5ђяqь2…Ќ¶L4Ћю¬д' м‰ююнѓ¬д&ц2bМяянѓ¬д&ъ5ђO_э2…9ЌшЋжМяянЃЊю&щ9ь2…Ѓ$0Б3$,4яm0†Ћ5/X1ҐЖ4м„Є¤к!н„0€ 5Z&о¶2…5\Б3%Ф9ЌЖ¶2…LЃ%9я7 Ћ4Ьї2‡9Ђ Ѓ$·2‰Ћ4мї2‡9Ђ Ѓ3$ ·2†¶2‰·2…Ћ2Бї2‡9s2‹9s2Њ9Ћя"ѕ83М0ъ§!з¤†4§!¦¤€§¤ь85ѓ&ы0&о9ш|>ЂАарx<ЂАар2А552А2А4Ќ2А5 3х3Ѕ3Ч3к2А42А4w2А2А2А4Е4Х2А2А4L42А4}яяяяяяяїїїїїяї__яяяяяџџџџџїџпїooЯїooї__їOoџЯїяяяяяЯїїЯїЯпппЯїяoџџoяяїїїїяяяяџџЯїяяяяяяяяяяяїїяяпЯїяџoO/oџї?їїїїџoпЯїЯїЯпoџпПЇпппппoџЯїooџппЯїџooџooџџooЏпЯїяїїяїїяяїїяїїяЯїїЯяяяяяяяїЯпЯїяџoпЯЯяЯџOOOoџџџooooooooџooџЇЇЇЇЇЏOooЏooooooЏЯЯЯЯЯЏПппппoџo_???_ooooooo//OOOoџoooooџooџooooџпoo?_oџoџпoџЯЯЯЯЯЯooooooџoooooџџoooooooџџџoooooџЯЯЯпЯї??яяїЯпяПпппппПяї__яяяяяяяяяїЯяяяяяяяпЏoЏoooяяЏЏппЏoooЏяяџoџџoяяџoЏпЏooooїяїїїїїЯяЯЯЯ_џяo_?_o?їїїїїяяooooяяooooяяџoooџяяoяяЏoЏппяяяяпїїїїїїяяooooџяяoooџџяяooooяяoџџooяяooџЯяяпЯїЯїї?їїЯїїїяїїїїЯЯПЯЯїяї/OЯяяЇWЇWЇWЇ1а@@5…5O@,Ѕ.иЅ2ЌЅ0·яЯ9ѕ8hїrѕ8jї ѕ8lї ·яЮnџяюЌЧЅ3cnџАФЧјЧ®†U·qѕrї8hЋ8ѓїrnџяюЋ8^їrѕ ї8jѕ ї8lЌ ывМжnџ,Щ€(create©рЏ"Њ›Їf8¤‡?statuурМ#k"Њ!_ґ9•!N•Ђ$џFDrives not ready.!N•@$џFDisk is write protected.!N• $џFWrite fault.!N•$џFSector not found on disk.!N•$џF CRC error.!N•$џF Lost data.!N•$џFNon-existent block.f8Ѕ…(r/w©р±8Еf%=Жeditoтгk%J9›‡versioо09Ѕ„'r/ч<9Н†'starф>9Ъ‡'numbeт@9й‡'creatеB9щ„'keщD: …'keyїF:…'emiфH:$‡'expecфJ:2…'typеL:B…'belмN:Pѓ'bуP9„102ґ:jѓc/м@:w…b/blл,њѓbsтр#5,xґ:•Є›Ё:µ•ЌЄЄf:‘ѓbrбр#5,xґ:Ч•Є›Ё:ЭЄЄf:»…untiмр T#5,xґ; #Y•Є cЄ›Ё; cЄЄf:г‚iжрЄ$…Єf;„theор!,xFbranch too long.!&"Оf;(„elsер;!&;-f;R†repeaфр T:ї c;-f;g…agaiор:їf;~…whilер;f ;Ћ‚nер,1,jf ;ћ‚pмр,9,jf ;‚lур,A,jf ;ј‚hур,I,jf ;Л‚vур,Q,jf ;Ъ‚gер,Y,jf ;й‚lер,a,jf ;ш‚cгр,I,jf <‚cур< ,jf :ѓЕ;codерѕТ%G c!f <%„codера!N#k"Ѕ%Gf <=€end-codерґ"Њ§"Ѕf мДгД0Лм„нД4@мѓн¬д&ш3B2b®Ўn”>„picл>3мДгДмЛнД®Ўn”>,…2oveт>KмD®F6®Ўn”>C…2swaр>aмД®DЇДнDмB®FЇBнF®Ўn”>Y„2roфр T T>_ c c>_f>yѓnoф>cДcA®Ўn”>’„truеяя>¤…falsе>±†withiор T#Y!$Р!& c$Р$џf>ї„texфр,:{#G"\а,!"›#G!ёf>Ю…-texф?4 ®ДмB1‹ЇД®DЕ'¦ Ђ& ¬Д'мЎЈЃ'цнD3D5 ®Ўn” :^ѓ("©?=ж O6&1«®Ўn” >яЕasciйра#5"›љ"Њґ?fђf ?LБўрљ"Њґ?Њѕ?;•"а"›#5‡Ё?–•">г,/f ?l†strinзра!NЄ$… ;?№ЄЙ?±Т~8/f?7„'puфc?Ж„'geфc?Т‡'devicераЄТ~8"›?Л"Њ#f?Ю†'deptи?о?я†'widtи?о@ ѓ'cт?о@…'pagе?о@&…'homе?о@3ѓ'xщ?о@@„'eoм?о@K„'eoу?о?њ…widtир@"Њf@c…deptир@"Њf@u‚xщр@D"Њ f@‡„pagер@,"Њ $…Ќ"Ѕ$…|"Ѕf@„homер@9"Њ f@·ѓeoмр@P"Њ f@Кѓeoур@\"Њ f@Ьѓ?cтр@i|"Њ#$%%ґA«f„copщр!&й#k"ЅfA …cleaтрй:‰"\fA#†clearур$… 'AT!N ‘#A)ЙAH!fA9„wipер}"ЊA)f@о„йр•^>г,"›ґDT,D•B!ёfD7‚>жр•^>г,"›ґDw,D'•B!ёfDZ†inserфрBО!ND"›!ђ!N T#$$…!Ў!!N ®#!8!пD#5!& ®!ё cН"zBЅfD}†deletерD'"› T ®#Н"zBО! ®#BО ®#$!n# T!ё c c"\BЅfDѕ‡-searcирBО!!N T:‰Н"Њ#$$…!ЎD'/Cѓ!& c#$!ґE/!ЁE3Н"zfDщ†?founдрґESD'/џ™ ?нfE9†searcирD]EE@fEYЃшрCHD"ОD/!ёBО!#!&!N T:‰Н"Њ#$:{#$!N T!ё c c!&#:{"\BЅfEnЃррC"\D:D„fEІЃхр:{Н"zC!#:‰Н"Њ#$:{#$!пEґfEДЃзр:{#І!&й#:{HD"ОD/!ёEЖfEк„getур!#!& 'F)!N ‘EмЙF!fFЃърCHН"z!fF1ЃлрD,•„!ё,D'•B!ёfFE„tilмрD]BО! TD'/CѓE@ c#$D'"›!&!ND'"О!ND"ОBО!D/!ёН"zDЕD'"ОC2fFcЃурD]$…!}"Њ 'FЪ!E!N$шґFФC2 ‘дэFјCэЙFѕE@fF¬ЃжрE`C2fFвЃерDЕC2fFрЃйрD:D„C2fFюЃбрF3GfGЃтрDЕGfGЃдрE`FтfCh‰2constanфра››Тм®6®Ўn”G8‚0®GLGZ‰2variablер.$…›fGg‚d«G„мBгFнFмДйE©DнD3D®Ўn”G‡dnegatеG¦O_ЈBнBМвAўДнД®Ўn”Gњ„dabур!N%ґGОG¤fGЅ‚dрG¤G‚fGФѓd0Ѕр$І$шfGг‚dЅрGЧGзfGу‚dјрGЧ!&!%fH‚dѕр>_HfH„dmiор>I>IHґH7>_!‚fH$„dmaшр>I>IHґHR>_!‚fH?ѓduјH`мDЈД%мFЈBМ$CS3FнД®Ўn”HZ‚m«р!N%G‚fH‚mЇр!n$В T"х TGВ c#Д c%ґHЇ#!&!fHђ‚mЄр!n$В T"х!&"х#} c%ґHЦG¤fH№‚*Їр THј cH“fHЬѓm*Їр$•>1•>1$В T T"х TGВ c s ®#}$… ѓ#}G‚ ®"х#Д ®"х!& T#Д c!8! ѓ$В%ґI=G¤fHпѓfxрc4ICѓd.тр T!&!GВ0IG"Њ%ґInЁIєIG"Њ!_ґI„$… ;I„rЙI~•.•$… ;I¤r!n$І$ш I’ЙI”!n$І!NґIґ•,$шґIЉ\B c!#$‚џfIN‚d®р$…IRqfIОѓdpмc6IЯ†numbeтр$…Iг"Ѕ!N#5"›•-%!N T#$$…$…!8a!N"›#$ґJI!N"›!N•:%!&•,•0>Ж$І!N$шF?Iг"ЅЁJ! cґJSG¤Iг"ЊґJc"ЊЁJi!•яяIг"ЅfIкѓtaвр|"Њ#$!N%ґJ™"х$… ;J•№ЙJЏЁJ›‚fJs†centeтр@i$w!$w#$JwџfJЎ…righфр@i!#$JwџfJѕ‰printingїрY?Л"Њ%fJЦ†footeтр@{#kЌ"Њ@{$R 'K«ЙK «™copyright 1983?;Charles E. EakerJД@ќfJр†headeтрJаґKЌ"ЊґKXJч««B|џ?;eFORTH DOCUMENTATIONJЁBMJД«f K?…indeшр!&!N•<$RґKќKF ;KЛ ‘•<$R$шґK±KF ‘й« ‘•Вq:{HџЙKЎ«f K…‡listinзрKF•#ч•#І!N•#!& ;L« ‘=‘ЙKщf KУ„shoчр!& ;L" ‘KЫ•нLf!@W€FormFeeдр•Ѓf!L(‡?escapерfґLts•%ґLtfґL[s• %Faborted.f!L?„(cr©рLG$…|"Ѕ$ЌЌ"zf!L …prinфрY@f!L—‚oлрJчнf$Lz‡resolvер!&"Ѕf$Lё„marлрf$LО„bacлр›f$L©Зrecursерѕ"ЊAЌ›f%LЭ…?nexфр c!!_ґM,%ґM"!ЁM$!‚ c#GЁM0 c"Њ Tf%M„(of©р!%M f%M8…(of©р!!&%%M f%Ma‡(range©р•>1 T>Ж c!&M f%Mw…("of©р>I!?$ш#M f&LмВoжрѕM=rf&M±ГoжрѕMgrf&MФЕrangерѕMrf&MжГ"oжрѕMќr$Ќч"Њ"Ѕf&MъДcasер$… Шч"Ѕ$…f&NЗendcasерѕ!ч"Њ"ЊґNGѕ!!_ґNSLАЁNG!f'N+ѓcsрc8'N[…?comррљ"Њ$шFCompilation only.f'Nf†?pairурNl#$F syntax error.f'NЋЕbegiорNl$Ќf'N±Еuntiмр$ЌN•f'NЕДelsер•!%ґNш!Ј•ЁO$•N•Ј$•f'NЩВiжрNlЃ$•f'OДtheор$•N•’f'OЕwhilерNlC•f'O*Жrepeaфр•N• T$ЌN• cRf'O@Еagaiор$ЌN•1f'<…begiорf(O_ДcasерNlN•f(OѓВoжр•N•Mґ•f(OГoжр•N•MШ•f(OЗЕrangер•N•Mм•f(OЯГ"oжр•N•Mю•f(OщЗendcasер•N•N3f(PВdпрNl¶•f(P)Г?dпрNlТ•f(P<Дlooрр•N•зf(PPЕ+looрр•N•яf(Pe…?looрр "Њ$шFmust be used in a loop.f(P{ЕleavерPЃdf(P©Ж?leavерPЃ{f)P»Бєрљ"ЊFexecution only. ШN_"ЅЦf)PОБ»рNl ШN_"Њ#$Fincomplete definition.ѕf c!f)M—€(create©р†"Ња+ґQ]«/џ™ isn't unique.!†"Ѕ8f+Pц‚mе?»cee +QkѓI'нр>г,#5Qn!ёf+G*„Marлр}"Њй TB| ®:{•#$#!&!ё ®:{•#$#"ОQn ®:{• #$#!&!ёBM ®:{• #$#!&!ё ®:{#k#"О•) c:{#Y#"Оf,Qy†locatерЉ!N•8Е$Р!&A¦#k"Њ!N$ш!8$ІFwasn't loaded.=‘f-Q‘†HitKeщр™and hit any key.ьs!f-RD…1pasур•>1•>1%ґR «™Insert Source Disk RK,•>1•>1!#!& 'RЖ ‘>©ѕ:o#ЙRё!•>1•>1%ґRщ«™Insert Destination Disk RK,•>1•>1!#!& 'S ‘>·ѕ:o#ЙS!‚!‚f.Rl„rooнр Ш•#$,#$:o#чf.S)…copщр T ®#!& ®#!& cS.$B!& T$… 'SёS.#$!&S.#$!&!nS.RrЙSў ®#$!& ®#$!& cRrf.S|†copieур T!n$Р c!&ґSнS‚ЁSпSLf0Q+Зdiskinзгn9·1ЉDriveFielдра!Є#Т~8"›М#k#k"Њ#f1T†blockуT1T2†trackуT1T@‡sectorуT1TNѓs/уT1T]ѓb/уT1Thѓs/вT1Ts€0sectorЈT1T~‡tOrigiоT 1TЋ‡sOrigiоT 1Tќ†5"FlaзT2T¬†'claiнПXx2Tє‡'confiзПXп2TЙ…DrivерМ#k#kf2TЩ†Drive°рМ#Gf2Tн†>Drivер!N•%%FNon-existent drive.•#ІTф#TЯ"Ѕf2U†Boundур$…TЯ"ЊTф 'U^ ‘"Њ#•нUPTЯ"Њ"Њf3U;ЊSectorCountуП "$4:3Uj‡Entrieу3U—€SetSideурUwUџ$… ;UМ!n"›% Uє#GЙUј#5"›!_$шFUnrecognizable format.Ta"ОTV"Оf4U§‰ClearDisлр,:o"\,UB!#!& 'V% ‘>·ѕЙV!f4Uы†RemovерU$…T9"Ѕf4V-†BackUрр!&UUB!8UUB!8!ђSХf4VD‡Restorер• #"Њ f4VeЉReadSectoтр•$… ;VІ!n•#"Њ $ш V–VmЙV8Е!‚f4VЃ‹WriteSectoтр•$… ;Vо!n•#"Њ $ш VТVmЙVФ8Е!‚f5Vј‰ConfigurерTС"Њ TV"›U°f5Vш…ClaiнрWT9"Њ!$зFexceeds disk capacity.!NT9"ЅTw"›#ІTҐ"›#TV"›$BTБ"Њ ,•VЊ• Х•4,"ЯTЯ"Њ,•#•!ё,•VИf5W‡ReleasерWT9"Њ!&#$Wf5W“…MounфрU,•VЊ,"«• Х•4GЧ$ІFUnclaimed Disk.,•#TЯ"Њ•!ёf>Sх†(page©р•Ѓf>Wы„(xy©р•Ѓ• #Ѓ• #Ѓf>X†(home©р•Ѓf>X3…(eol©р•Ѓf>XH…(eos©р•ЃfIWЇ‡(claim©р,•VЊ$…,•D#, ;Xћ ‘"Њ#$•нX’•яЮ#$FThis disk is in use.$h!&• $B!&$ш>–#$#,!&"m,•VИfJXp‹(configure©р•#TG"О•TV"О$ЌT‡"О$ЌT–"О•TҐ"О•Tl"Ѕ•Tw"ОTG"›T–"›#$TV"›#ІTҐ"›#$•#чT9"ЅfKXг„(cr©рLG$…|"Ѕ$ЌЌ"z• ЃfяWЇ‡(claim©р,•VЊ$…,•D#, ;Xћ ‘"Њ#$•нX’•яЮ#$FThis disk is in use.$h!&• $B!&$ш>–#$#,!&"m,•VИfJXp‹(configure©р•#TG"О•яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя