IMD 1.18: 5/11/2012 20:02:00 pascal mt+ tv 3 of 3                 BACKUP SRC" !"CHN2 ERL+CMDS ERLR,-./01CPYINS ERL)DIROVL ERL E2 CMD]SB001 CMDSB003 CMDiSB004 CMDjSB006 CMDSB007 CMDSB008 CMDkSB00A CMDlSBIFDEF LIB'SPPMAIN CMDSR ERL 34SYNCHECKERL*TRAVERSEERLFUTIL3 ERL0()*UTILMOD ERLVARCHECKERL4E2 ERL E3 CMDhEDGLBLS SRC#$EDITWRITERL EDTYPES SRC%&IDSEARCHERLDLINKSPP SUB^MINIASM ERLESBINIT ERLSBLOG ERL SBRUN ERLSCANNER ERLw<=>?@ABCSMALLERRTXT bSPP 0011cdefSPP 002OPQRSTUVSPP 002XWXYZ[\QU%3B6#`MAb!9@(uNb3r@[#9@(uNb3r@[#9@(r@fԐh!ڠͪ`ͫ@ ں!ͬ B9D s B:'1CJ@ 2TCM@ 2U3@"" XF# Qf@ DMISCLIB ERLNSB SRCFJKLMNPPINIT ERL/GHIPPMOD1 ERL78PPMOD2 ERL 9PPMOD3 ERL:;PRETTY ERL56ROVLMGR ERL2SPP 003q{|}~SPP 004c SPP 006*mnoSPP 007gSPP 008fpqrstuvSPP 0093wxyzSPP 00AfSPP COM*_`aSPP=NSB A:PASLIB/S/V1:1600/X:1200/D:8300 r0F#/ζd,/5D q-**"1*"1#+:n Frp(9D6<*"1#+5Yefef9Yr@mVhͩ r)o9l 0D efr_+4f  UDb7(uNb@Vmɤa0R) 4(r@h   !ҨB_ Fr```/Vm(r@ ^ohTa +4`+4(dr@hø`"^ %YͼD@Vm7fӠ =rjd9Y<TYX@4 ͦLڰ'әO P8!f ;!%Y"7+4@"Hjnih8 1@*Ȉ)*j +1i驨)ȑHi@.0H)i)њp)ԕST@3F&#`5QIU:b!TB9Yť_@!@B9Y6R:hn:NBg9Mqe8rB+4fVh!(jX^j@+6Һ2 ;'і `0>ҥ`xCOPYBUF3@3@m`BBhҦp+r@[s Cp2 Q(fPgJn3C{2Vpg! /Q ./α[8DXB9D/l3CA2TU'3n! Q :/α[s4|#+5D6p#+5Yf5,!Y+uNb3efef6D+6k9xFVjk9xFVjk;&b2!`Y+D4IxFVu@˔U:@`/7O0J@ @+63hXH9Y|!nDd#e9 S y`@s:Ie9 &8LB!M7 #+5D4$#+5Y(%)hJ0}c }c0mg(efef4p'1BegX3oC6oIxFVjnXIxFVjnK68O,P!9CP&ܬ!nQ /αsXL7FXI)}b b0a`mf eu@@3h{2 :ͯ@LL) }$>@HI }$>HI }$ `! B9Y"Vmx+: 0Fo>(,÷"~f0&m@7+6j8n2 ar2ΆX *NQe:NFoOoL63n6l0Dٶ4   ('Ñ'K("k*k!y^#Vs#r*k^#V"!*! !s#r*!!s#r*! !s#r!y!y^#V!s#r!y^#V!ҏ!!{^#V!m!A"o*o!ͮ*m *m ^#V#s#r$!}!}^#V!A!*o!*m  2BEGIN CASE CONST DO DOWNTO DIV *END ELSE EXTERNAL=FOR FILE 5FUNCTION FORWARD #GOTO IF IN 3LABEL MOD -MODULE 8MODEND 9NOT (NIL ?OF OR /PACKED 1PҜ!^!0!^!9 }o!^!A!^!F }o:&o}o}:&o!^!9 }ҿ!I!I^#V#s#r!!I^#V+!^s:&ҿ!!^s}2!K!$s!I!s#r:&!Y!Y^s!   !^s!!I^#V+!Y^s:&9Z!^!.ͮҽ!W^!.ҽ!K!%s!I!I^#V#s#r!!I^#V+!^s!I^#V"*!I^#Vͮҽ!K!6s!^!EͮZ!I!I^#V#s#r!!I^#V+!^s!!^!*ͮ&!!K!:s!*0!!K!së#!ë#!ë#!K!së#!K!së#!^!.ͮ҃!!K!sÍ!!K!së#!^!=ͮҲ!!K!sü!!K!së#!K!së#!K!së#!K!së#!K!së#!K!)së#}2!A!+! s!A!+!A!+!:&o!A:&o!Z }o:&o!0:&o!9 }o}o:&o!_ͮ}%!I^#V!:&o!_}$!I!I^#V#s#r!!I^#V+:&os*#"!*+:&os!#ͬ"'* #" *'+"'|,'!}1ͭA '!!s#r!!s![!^#Vs#r!]!^#Vs#r!W! s!! s!c!s#r!!s"""**͊A'* ^#V!'* ^#V"H('!"1(**qA+(*^SuperCommand mode) to display7ͭ͢A!}1I*Type to exit7ͭ͢A!1ͺA!!!c 3!c!^#V+s#r! ##!s:AA_*]^{*)]T*[A#*#¶*~!Kw#6 F:A*î*!"K")"+*)2+"++MOVDDRMOVDESMOVDHTMOVDLUMOVDMVMOVDAWMOVEBXMOVECYMOVEDZMOVEE[MOVEH\MOVEL]MOVEM^MOVEA_MOVHB`MOVHCaMOVHDbMOVHEcMOVHHdMOVHLeMOVHMfMOVHAgMOVLBhMOVLCiMOVLDjMOVLEkMOVLHlMOVLLmMOVLMnMOVLAoMOVMBpMOVMCqMOVMDrMOVMEsMOVMHtMOVMLuHLT vMOVMAwMOVABxMOVACyMOVADzMOVAE{MOVA^!+ͮ!^!-ͮ}M!I!I^#V#s#r!!I^#V+!^s!K!%s!s0123456789ABCDEF#!!I!s#r!! ! 4!"!^!/!^!)} !^! !^!,} *#"!*+!^!K!,së#!K!.së#!K!+së#!^!=ͮS"!K!7s!M!sÓ"!^!>ͮ"!K!7s!M!sÓ"!K!7s!M!së#!K!7s!M!së#!K!7s!^!=ͮ"!M!s"!M!së#!] #=!# !G!^}24$!!A!I^#V!!+^!@@%͌*J%!K!s!K^!ͮґ%*! !! +^!E}Ҏ%!K!sü%!K^! ͮ*!}Ҽ%!K!s!K!6s!^! ͮ%%!^!@%s&!^!A#V!"(*^#V"H(((!"1(!"**s#r*"*ã'!}1q(VARCHECK Release 5.57ͭ͢A!}1͝((c) 1981 MT MicroSYSTEMS7ͭ͢A!}1ͭA!!( NAMES.$$$n5!!0!}1(Building identifer tree7ͭ͢A ~*! ^#*+s#r!/+#$+NOP LXIB STAXBINXB INRB DCRB MVIB RLC DADB LDAXB DCXB INRC DCRC MVIC RRC LXID STAXDINXD INRD DCRD MVID RAL DADD LDAXDDCXD INRE DCRE MVIE RAR RIM LXIH !SHLD "INXH #INRH $DCH|MOVAL}MOVAM~MOVAAADDB ADDC ADDD ADDE ADDH ADDL ADDM ADDA ADCB ADCC ADCD ADCE ADCH ADCL ADCM ADCA SUBB SUBC SUBD SUBE SUBH SUBL SUBM SUBA SBBB SBBC SBBD SBBE SBBH SBBL SBBM SBBA ANAB ANAC ANAD ANAE ANAH ANAL ANAM ANsÞ*! !!!*}/: !Ó !!+!$s!!+!*!C^s!!+!*!C^s!K!$s!Y!^s!Y^"!K!Asë#!K!Bsë#!K!Csë#ë#ë#!}!K!:së#!"T! "a!"3!3!3!3!3!3!3!3!3!3!!!'""" !##########################! !!############################ # #!I!s#r!"!!I^#V+!^s!*+!^s!^!^!Z }!&s&!^!a!^!z }K&s&!^!@ͮ!^}/o}p&s&!K^!:ҽ%!y!es#r!{!{^#V"%*%ͷ&MMMMMMM@#!*% !s#r*%!s#r*% !'s#r!!+" !c^#V!^#V}/4)!K^!ͮ.))!}1ͭA!}1l)#Tree constructed, remaining memory=7͢!!y^#V{ozg7AͭA!}1)8Writing identifiers with only one reference to NAMES.$$$7ͭ͢A!}1*8Use V)iew option of SPEED (RH %MVIH &DAA 'DADH )LHLD *DCXH +INRL ,DCRL -MVIL .CMA /SIM 0LXISP1STA 2INXSP3INRM 4DCRM 5MVIM 6STC 7DADSP9LDA :DCXSP;INRA CMC ?MOVBB@MOVBCAMOVBDBMOVBECMOVBHDMOVBLEMOVBMFMOVBAGMOVCBHMOVCCIMOVCDJMOVCEKMOVCHLMOVCLMMOVCMNMOVCAOMOVDBPMOVDCQAA XRAB XRAC XRAD XRAE XRAH XRAL XRAM XRAA ORAB ORAC ORAD ORAE ORAH ORAL ORAM ORAA CMPB CMPC CMPD CMPE CMPH CMPL CMPM CMPA RNZ POPB JNZ JMP CNZ PUSHBADI RST0 RZ RET JZ CZ CALL ACI RST1 RNC POPD JNC    OUT CNC PUSHDSUI RST2 RC JC IN CC SBI RST3 RPO POPH JPO XTHL CPO PUSHHANI RST4 RPE PCHL JPE XCHG CPE XRI RST5 RP POPPSJP DI CP PUSHPORI RST6 RM SPHL JM EI CM CPI RST7 0s#r3 5";"="?O!9*?s#r*?8^!ͮd4*?9*?6^#Vs#rg*??^!*?@^}%4*?4^#V!3*?!!s*?9!s#r!!+"A#ͬ"I*A#"A*I+"I|3g3"4*?*?ͮ}6*W!!:85*[*W!W*[^!68!@}2]!_W6 #!!gl6 #!*[!^!:ͮҪ6!"o*[!^k5}2]ð6!"o*o"k!"m*[*o^!.:!::ͫ;`;}/o*o*k}o*o*[^9*{8!s!}2wT9*{%9KBD: :*{49TRM: :}T9*{8!s!}2w:w&o"!}2}!! !~;͍:*^!*^!}Ҧ99!*^+"#ͬ"*#"*+"|9**^!v:`;}/999!}2}:}#;! 9*~/_#~/W#N#"ێ! *q"ݎ+q:؎+wy2؎N#F+p+q*q+r+s"q"َs#r*q*wzk<*ێ!}"9!>><@@@@@@@@@@@@@@@@AAAAAAAAAAAAAAAA????????????????????????????????????????????????????????????????-?-?-?-?-?-?-?-?-?-r?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?>?*ێß<"<**ێy05A1:ACA}oCAy~AڄA!!CAy~AڄA~ACAʄAyACAʄAÒA K K*9;~ABúA6*98~B*9~ BÁBzB-   iB{/_z/WzHB'BC\BBC\BdBC\B BC\B\B!WB!732768>0_0zB!DwBxiBxzBœB{œBxGòBz/W{/_ BCz¤BxBB !DBòB!B*@:ߎ!2ߎyB,Cx/Gy/O>=C@LNK <@SSB ;@SML ;@SS2 :@NED !:@LTD 6:@LED H:@GTD *:@GED ?:@SLD v:@SST :@EQD :@BSR ;DELETE :8@BST :@SIN `;@SAD ;CLOSED 3@NOK 8@SPN 8ASSIGN n5CLOSE 3REWRIT 0ASMCNV *IDSRCH *@LSU USUe@Jp` e$TY 4pPE9D UC>(r@V @(9D N!pC"@"tA:*¢ C@"-m`mm@(k9D%2c -eAINb!ͫ 'іm0tZ"e*C)C)C, CB33B)%C, B 7C DIV 0 $ɯ2ߎSCʸCʸCxCaCB}yC{/oz/g#B{/_z/W!BɯO>GzC“CʦCB{/_z/W}o|g#ɯo>gBo>g,C>2ߎ!.BC.BCBB!!}| (D@LSA A@GTA qA@CWT A@MOD C@DIV CVARCHEC TREESEA GETSYM INITIAL NEXTSYM DOIDENT DOSPECI DOMINIA DONUMBE COMMENT DOSTRIN RESWRDI RESWRDT NEWCH UPPERCA ERROR EXITVAR COUNTID NEWIT ROOT {OU (&"Ff"r*Lf ))Fd@*"ze8&"I2 J:t"@"tA:*¢ C@"-m`mm@(k9D%2c -eAINb!ͫ 'іm0tZ"eCCCCCCUDCCCUDCCCUDCCCUDCCC}gD|cD7|@NEU D@LEU FD@GTU D@GEU 7D@EQU D@UMD C@UDV C@GZF B@XDIVD BC@GETCH B@NEA gA@LEA A@GEA A@EQA CA@ULK <TFILE @CRL A@DYN <@WIN ATRAVERS NIA DONUMBE COMMENT DOSTRIN RESWRDI RESWRDT NEWCH UPPERCA ERROR EXITVAR COUNTID NEWIT ROOT {OU   a 0:VUS n FrY-*!ـQ Q/η[#9@pgFuNb38ܢ(9 BS:'7i CA 2U(B)N DR+ !@Q/αs9h!@Y+h\ n ͛C[L(ԂD6,/5Y$ptXʩHmpF[c:!nY 9D"@ pVmhp@VmpO0Jm8X^jD+6䃈n8X^jE+6Z'}D[F"߀o[D2 puNlõ@VmXxx@rh0D;'x}R/ Av CV D"@s(C.QrB9Y η[[÷bD͵/d frF[!Qpv(CNBTB>9Y)ҲL!րQp:!nuB7:'1r@`[÷bh C9XZ9D#psP@Vmp xPS6uB:'6 `(uNl;x _pxSm]!D&@&ܢ[L7D'8Z'}IG[L7-Fo>(іa іm`0tC*r*D4B9D;,/:nrv`xFVubd,/5D Ҽ l!@Q/αs9h!@Y+h\tn Cn ͛C8#+5E[-*j!e !@`y!ۊi^9D s[L0a9D;,/5Y$p7 ! `y͡ [!@Q/α[D2 uNl<:`}RuCEATB.9Yҹpͷ@(JuNbd '1Cd^be!``ypٴ0C 2ExUd^ڬ i\arF!@Q +h\o( rl  η[!րQp1@1% ([sf V @(uNl;x!րQ pv,C9[60[60XrhZ9D#sa  QfpwJuB::'1fрA @(uNl;x!6÷b"YBhUr aU&@Qj MD 5&N8U t&xo] v.xo] v.xo] v.y/M v.xo] v.xo] v.xo] v.u-]l8DOIDENTuB:'1B-9D:#+:m˔CSV3O@DISPPROu5$4ĔX ATISPTRtU5Dd@OPTSTRI-55PIDENTYe5TTOK[$IVAL]D5dRVAL`dUD4SAVENEXae$Ud4 RESWRDce$U4H@INSTRINeeDDU%(`CURSORa 00` a 00` Vmx0f9D;0#+:n Fr(@uNb'1ɓHjH O&JRN"` DȀ@ DR9$ `EO'ʂ8"@ 8O!$ PN"" dQ@ N 1< I&Dj#I2$N\R"`9<1}n@  QfҀGJꁈuC 2Vpg!rD[!Qp1р1f  eu{B*9YҴ!-!`y:`ͫ@fn0Vmx(`樄Rrn#ť0C ewCt0BF[C[Lh#&b>![! `y!"| iVqruxFVun!@Q/α[D2`uNl! `y!۴ !`y!2hVa^ (YegX9B C.Q  η[͡ <!րQp11"+6h5  D""7( r@r@`[#9pp B` ;x!րQpv,C9X樄\rhKťeY0C9HZ9D! sa s QfJᄳh`Z9D saБr@@[÷bh ͇o:!nuB:'6 @( uNl;x!րQpv,C`9XZ9D"sarE`rBUB@. C\0+h\uNl!a`y͡ uPB !(@uNbT@e!@Q+h\8XpL7D$QGXpL7D%_\-a0VmQ a0@Vm_ pO3{D7GXpL7D%u->Ҥd^@ͽ8&ܢ͵   Fi_ruxFVun!@Q/α[D2a0pX`F""<a[D2a0pٴ0CBCUB@'іaPZruPC 2UP9h!mX^jH+6ކ4pFZHu{B$9Ytҳ"2 ;:@`!i[m{pFZHwGZHL7D"j^-+!-0Ͷ .IorD+6ZUHu@J U 2TB9YI +68Z![#9089EX#+5D ApCb( Qrn68OJm0xFVur@h! Vmf@@dMC)r #Ȁg0Mæh4<* Fra ;!QV>ror@ +6@L\]@%Q5U22#*`1A12@ ԓ#.E&2Rc"`1Q&3S$M 2 #)]IN38QM憈uX^jD+6 B9Y,5>+!րQp1Ҡ1+@(luNb͵ f ݐаVhiPm$a@ Q f0  Q hf Ds60 p樄rhp樄ris}QUp9Iv8CPCTB@9Y4C/ S)1耜"1؀>1耘 J而 ɑ hQ Jq)ʊH(qܒȈ)08*iiќ@0 ȱp|8&2|c*`=IMU1Q&2TTc#1 3tӐ< =N22P#>`%=IMV2S'ԑPQS%GHI%:*a 00 9D#B99YVr@h!@ͤ` ͥ@ Z xFVuX@ˬBB2z^a2gy:`!Vh'y}QVZHL7 Fo>(˭sT}i i0>Ү@B|c>yFpg&uf0 eZhL7D q^-+<*Qpg&ui0@Vmx`9D8ͮ`!#2ͦ t!QrmHri4fܠ!@ro`BP9YegXE d,/:ϣ-$:@`3У M%:3#8Q MJ3c-q%M 2Ӑ0q "3# @M13FU#)`1 2TS.`L&2)YQ "2F UU'M%:3#8Q MJ3c-q%M 2Ӑ0q "3# @M13FU#)`1 2TS.`L&2)YQ "2F 7O0J3i83i Z樄trmkťsY11.@Q`hEnV7\"7+U7YUEb,|ZpȀYT0p9D s8!nb9D4@#+:n!Q /η[#9vB :'1 ]rD[!ـQpg!r@[ɎdtUE5ى6uX^ђSPG 1=MCLOSEDJ` a0 1fp E4QVuNb3GX^j@ +4xXG ˔U#`d#+:nX"\ %Y! U#e!@nͫ ;~*2-+~*2``/η[#93l0CU@ 2TCa 2"4K2UlXxFVuX@ˬBB2 :!Y'J@0 (Hr@J@ 0>  :  f }ch:ǀ`!Ҧ`#x&b7p(c Fc0381А1 f!i\1֒ Q fڠ'JrX^j@+6ZUT Cb2'6i 0Vm;x` 9Y 9YI +4f; B^^a2^4!eYa. γI0XrrX^j\"+TE.ZpUb-(*Ӏ>-YU   ՐTPP%SL18HEAPE$H NEWRECtUDdX`OUTSTRD5$SRCLINED5E( NESTLVLE5E$ SYMdԔDTHSYMLENiD OPkĕd CVALm%dNEXTCHo4dTUPREVCHq$U5u$H RESINDs5E$@TOTERRu5U%4(` MAGID;#+:n*@B7(uNbT ""РfoK&:QTԦ! ڀomGPr s7F#r@@[͡ xUPPERCA3n 2L:B`!0r:B`!=>*:B`!o3yDg> 0o>~:$SU&"`y@ XR^(Hd)@  "yA& HC" R"bI8v)Hd@  DRT Y(D:*@  )8@ 8I&PA)<+J@ I0 Lt`""$F@ @( @P* L'Ltl')$LG;!n Q m Qf׀g D0hD;@#+:n Fr(hegXrl0X^u'6ma!0>Ҿ P`f safLt'*"H}a&m (HuNb@ Fra!0>ҩf sސg(68]n<D;@#+:m˔CB9i Ca 00` a 00` a 00Ȫ*@ho h*@.Q/η[#9 xFVu@TA@˔B:'1U e!n*A`2@ Fr(efh]n!YC.Q@f.Vm dA:zrJ$C !!`yp CK2V+C!`y!i\p! rq xFVun!%Y!B9Y ҸB"3@r@ (ueg[D2n CBTB 9Y ҡb'1C\9wP CK2Fpg&LtT""*LE$" +6ZWDwLu{B*9Y ҥHͿ@"f m@іaPfma a}a &ma !0>Һ`(樄`rh樄rri`}Qܢ ͩ 0ͪForohTffi_a樄ZriC}YV C\^b7[#9s CK2V D5 ,/:n63i iD"PsdI:"zjJrJ ĠCT FC1l7H$"Fpܢͣ" Fr@'(rD+4,D!`y!!`y!hTa? @VmߠVm pO0J   E8 *@Be!!`ypٴHuBX !iUP f4rq8OJ^+60PH<D rD[!.Q+h\Hb '( r@ D2n C\V D8 *@NQ@fڐ' D2n C\ 9c@=MA &bV!.Q 0 η[͢@:::'6  (nuNb ͇x;H!njD sa rF[!aa`y!,iQm@(uNl:4!ڀ.Qpw1@ W2^ E©U~ At.ŅT@0TBPUj AU*VZPUj W*лB] A2^ x/e A2^ x/e A268O,ía(hef6s B !Vm xs4ar@[!@!`y!~i\V>rA +6r B !@VmpO0Jv B:'6 Vmc'(rms}QW8C\9c9aQMe6bb!@.Qp48,/5D"u-*,6誊k)pm0dN@:*** ~"-@j 'R3h8P:Z3@J D efrm{ťEDEZ" K2E`_aցVu fbj@ /Qf߱J D egXR0耋@ aց"BDj@'[#9 0K 1TaݡVARCin2 !R :CIl0Y$MCٴ &)QĢ:*Le> &"!@.Q pw0C\9`iD$0sa ma m'a frG@[üAPͩ]  (tuNbPͣ :!@.Qpw0B9Yx H@w0C\(9`iD sa 8 Qf0J3hiD sa@rB@[üA2^ x/e A@.Qкx/e A2^ x/e A2^ x/e A2^ x/e A* x11.(uNb3c!xrv xFVu!(68]n"9EXV D44,/5Y<pٴHCGBUC'іB(C.Qp; !m˔C͢@ ;!`y! TiRm*aڠ  Q fِ / Q hfp D{60Px樄rix樄rj@{}QV=K@vҢ'1C\^be:@B`9E9 *Be:@B`9hmIi4M 8DnQ f V(uNb3VA˔B:'1U e!n!pܭQhDnV4j!VW ZeV1 rm4a1 r@ [#9q B:'1rhxFVu'1C\2^n Fr(@uNb C\9B< J3h0609YpEH9DU(dE Bef4OiSy8gC"-h!(b2V EXV+r@"ՀEZE [ Ub+4xX ud,/5D fFmfPQ urj+60+6 : QUԒf ,/:ϢJE(r@f'(ˀ9D B.9D6A!k`@T< t:m2fP&m8Vmzf B8P!ft^ͬ@/`'+63o`i9c,'(xr2#pf@pChۮ͵ LXɌڀHP@PSTDH@CRL5uH`@EQIDTX @LEI4d(ϰ@DWDDu%8@STRD Cu{B9Yťz@Z@!}Z@!_+6*!Vm'VmfA QrkP36l0d@i9 S@C7q? "p@ͮ Ͳ0g+63@m1l   `0@Vml`0@VmpO0J0;0orK +60orO +68Z'՘}XA5$! f` ^iT0q _rm@36fqtFS fpfmpw+6i;6΃08傹D sW(uNb @ ͇[5!n>^ :*SU&"!.Q#93@ N γ>ҥL!Qpg! ;r@@[#9@ (eg[D2P; @(egX9Bڐ'1BP9D6$#+:mX^jC@+6ȄZU$Co\^b[s6p$#+5D *!Qf/Qf C\\@/βVh! D"pB9D:!@.Q @/βVmf\@/βD @h@"j-˔B 9D!G8!\(rv Dz egYxFVuܢ ͻL!؀2^eY"Qr@r@+6v B9YC#d#+5D s;!C!@.Vm@(rn8v B9Y(C\!C!(ڒ!Y xFVj@h:8ͥͦ\fmBVm6 Q Xf!!`y!р"Vm@/QV'1C;Qro9D C\ɌDh@MULDHh @WIND5HȨ@PLDʀUʠ@NEIDuDP @DWDD @SOA5E(` @LBA4(H @CNCD44 NAMETDdX RESET$Uu$HPUThTa8rtB\ : !.Qp: !.Qp:8ͪ"fPro 6C+6tp CBF D!CB{JI;B9YC\b6e!nGD:8,/:b6e!nG e!n9D C\Q@dX͘MOVELEd$U5XȐFILLCH́44XBLOCKR$4xhASSIGNPLDʀUʠ@NEIDuDP @DWDD @SOA5E(` @LBA4(H @CNCD44 NAMETDdX RESET$Uu$HPUTSPP=SPP/O:7 DIROVL A:PASLIB/S/P:1600 SB001 CMDSB006 CMDSBLOG ERL SB007 $$$    NXT : ^NAMEREC END; VAR INFILE : FILE; LOGINDX: FILE OF INTEGER; OUTFILE: TEXT; REC : LOGREC; REC2 : LOGENTRY; (* USED FOR PUTREC *) IOR : INTEGER; I : INTEGER; S : STRING; INDEX : INTEGEXT END; NEW(LP); LP^.S := S; LP^.NXT := LIST; LIST := LP END; PROCEDURE EXTRACT(VAR S:STRING; INDEX:INTEGER); VAR S1 : STRING[32]; BEGIN GETREC(INDEX); MOVE(REC[INDEX MOD 4],S1,32); (* COPY THE DATA INTO THE STRING *)8] = '-' THEN (* THIS IS IT! *) BEGIN STARTINGPOINT := I + 1; EXIT END END; (* IF WE GET HERE THEN EITHER EMPTY FILE OR NO PREVIOUS BACKUPS *) STARTINGPOINT := 0 END; PROCEDURE DELETE_FIRST_BATCH; VAR (* NOW SHUFFLE TO THE LEFT *) M := 0; FOR L := I+1 TO K DO BEGIN GETREC(L); MOVE(REC[L MOD 4],REC2,32); PUTREC(M); M := M + 1 END; (* VERSION 0024 *) PROGRAM BACK_IT_UP; (* THIS PROGRAM WILL READ THE LOG.DAT AND LOG.IDX FILES AND *) (* CREATE FILECOPY.SUB. THE LOG.DAT FILE WILL BE MARKED WITH *) (* A RECORD CONTAINING DASHES TO SIGNAL THAT ALL FILES PREVIOUS *) (* TO R; LIST : ^NAMEREC; (* SO WE CAN ELIMINATE DUPLICATES *) DATE : STRING; PROCEDURE INITIALIZE; BEGIN ASSIGN(INFILE,'LOG.DAT'); ASSIGN(LOGINDX,'LOG.IDX'); ASSIGN(OUTFILE,'FILECOPY.SUB'); RESET(INFILE); RESET(LOGINDX); REWRIT S1[0] := CHR(POS(' ',S1)-1); (* SET THE LENGTH BYTE *) S := S1 END; PROCEDURE GETREC(INDX:INTEGER); BEGIN BLOCKREAD(INFILE,REC,IOR,128,INDX DIV 4) END; PROCEDURE PUTREC(INDX:INTEGER); BEGIN GETREC(INDX); MOVE(REC2,REC[INDX MOD 4 I,J,K,L,M : INTEGER; BEGIN RESET(LOGINDX); (* RE OPEN THIS FILE *) I := 0; WHILE I < LOGINDX^ DO BEGIN GETREC(I); IF REC[I MOD 4,29]='-' THEN (* RECORD FOUND *) BEGIN IF I = LOGINDX^-1 THEN  FILLCHAR(REC2,32,CHR($1A)); PUTREC(M); EXIT END; I := I + 1 END END; BEGIN WRITELN('Pascal/MT+ ?? Backup program'); INITIALIZE; FIND_LAST_BACKUP(INDEX); (* NOW BUILD THE LIST *) FOR I := INTHAT RECORD HAVE BEEN BACKED UP (IF YOU RUN THE SUBMIT) *) TYPE LOGENTRY = PACKED ARRAY [0..31] OF CHAR; LOGREC = PACKED ARRAY [0..3] OF LOGENTRY; NAMESTR = STRING[16]; NAMEREC = RECORD S : NAMESTR; E(OUTFILE); LIST := NIL; WRITE('Enter today''s date: '); READLN(DATE) END; PROCEDURE ADD_2_LIST(S:STRING); VAR LP : ^NAMEREC; BEGIN LP := LIST; WHILE LP <> NIL DO BEGIN IF LP^.S = S THEN EXIT; LP := LP^.N],32); BLOCKWRITE(INFILE,REC,IOR,128,INDX DIV 4) END; PROCEDURE FIND_LAST_BACKUP(VAR STARTINGPOINT : INTEGER); VAR I : INTEGER; BEGIN FOR I := LOGINDX^-1 DOWNTO 0 DO (* WORK BACKWARDS *) BEGIN GETREC(I); IF REC[I MOD 4,2 EXIT; (* NO PREVIOUS DATA TO DELETE *) J := LOGINDX^ - I -1 ; K := LOGINDX^; (* SAVE THE CURRENT VALUE *) REWRITE(LOGINDX); LOGINDX^ := J; PUT(LOGINDX); CLOSE(LOGINDX,IOR); DEX TO LOGINDX^-1 DO BEGIN EXTRACT(S,I); ADD_2_LIST(S); (* ADD TO LIST IF NOT ALREADY THERE *) END; WHILE LIST <> NIL DO BEGIN WRITELN(OUTFILE,'PIP B:=',LIST^.S); LIST := LIST^.NXT END; CLOSE(OUTFILE    ,IOR); I := LOGINDX^; REWRITE(LOGINDX); BLOCKREAD(INFILE,REC,IOR,128,I DIV 4); FILLCHAR(REC[I MOD 4],30,'-'); MOVE(DATE[1],REC[I MOD 4],LENGTH(DATE)); REC[(I MOD 4),30] := CHR(13); REC[(I MOD 4),31] := CHR(10); (* ADD CR/LF AT RAY[0..CMDSZ] OF CHAR; (* HOLDS CHARACTR VALS OF CMMDS*) (* ELEMENTS ARE THE CONTROL FUNCTIONS FOR THE COMMANDS. THE INDEX *) (* INTO CMDARR IS THE NUMBER OF THE COMMAND *) NAME: FILENAME; (* NAME OF FILE *) F: FYLE; (* FILE POINTER FOR'*) NUMBLANKS: INTEGER; (* DON'T KNOW IF USED ANY MORE ? *) X,Y: INTEGER; (* X AND Y CURSOR POSITION *) NUMLFS: INTEGER; (* SET BY FIND WHEN IT SEES LF *) NUMDELS: INTEGER; (*INCREMENTED IN DELETELINE, USED IN COPYBUF*) DELBUFSZ: IEND *) IF (I+1) MOD 4 <> 0 THEN FILLCHAR(REC[(I+1) MOD 4],32,CHR($1A)); (* ADD EOF'S IF NECESSARY *) BLOCKWRITE(INFILE,REC,IOR,128,I DIV 4); LOGINDX^ := I + 1; PUT(LOGINDX); CLOSE(LOGINDX,IOR); DELETE_FIRST_BATCH; (* NOW GO AND(* VERSION 0006 *) VAR BUFSZ: INTEGER; (* SIZE OF BUFFER *) LASTLINE: INTEGER; (* POINTS TO END OF EDITED FILE *) CURRLINE: INTEGER; (* CURRENT LINE IN BUF BEING EDITED*) BEGINLINE: INTEGER; (* FIRST CHARACTER IN CURRLINE ? *) E FILE BEING EDITED ?*) FILEOPEN: BOOLEAN; (* TRUE IF FILE IS SUCCESSFULLY OPENED *) NEWFILE: BOOLEAN; (* TRUE IF FILE IS NEW *) NOFILE: BOOLEAN; (* TRUE :USER LEAVES BEFORE OPENING FILE*) RESULT: INTEGER; (* FOR FILE COMMANDS: SCRATCH *)NTEGER; (*SIZE OF DELETE BUFFER *) QUITFLG, (* TRUE IF DONE WITH EDIT *) NEWLINE, (* TRUE IF WRITING A NEW LINE FROM 'LINE'?*) LINEFLG, (* ? *) INSERTING, (* TRUE WHEN IN INSERT MODE *) CHANGED: BOOLEAN; (* TRUE IF LINE IN 'LINE' IS DELETE FIRST BATCH OF RECORDS *) CLOSE(INFILE,IOR); END.  EEEERSOc"E9!nN># NDFILE: INTEGER; (* LAST CHARACTER, OR ^Z ? *) BOF: BOOLEAN; (* BEGIN FILE *) CMD: INTEGER; (* READ COMMAND FROM KEYBOARD ?*) OLDCMD: INTEGER; (* HOLDS PREVIOUS COMMAND *) CH: CHAR; (* HOLDS CHARACTER FROM KEYBOARD ? *) CMDARR : AR FCB5C: INTEGER; (* POINTS TO FILE CONTROL BLOCK AT HEX 5C *) LINE: PACKED ARRAY[0..MAXLNSIZE] OF CHAR; (* FOR EDITNG A LINE FROM BUF*) ORIGLEN, (* ORIGINAL LENGTH OF LINE IN 'LINE' *) LENLINE, (* NEW LENGTH OF LINE IN 'LINE CHANGED *) STR: ARRAY[1..8] OF CHAR; (* USED IN STATUS LINE FOR MODE *) (* FOR GETTING FILE NAME FROM COMMAND BUFFER AT $80 *) CPMCMDBUF: ABSOLUTE[$80] PACKED ARRAY[0..CPMLINESZ] OF CHAR; CPMSTR: STRING[CPMLINESZ]; ANCHOR: INTEG    ER; (* POINTS TO CHARACTER BEFORE INSERT, DELETE,ADJUST*) CBP: INTEGER; (* COPY BUFFER POINTER FOR INSERTIONS, DELETIONS *) SRCHSTR: SSTRING; (* PUT STRING TO BE SEARCHED FOR HERE *) LAST_FIND, LAST_REPL: SSTRING; (* LAS XRPLCE = 8; XCUP = 9; XCDOWN = 10; XCRIGHT = 11; XCLEFT = 12; XINSLINE = 13; XDCHR = 14; XDLINE = 15; XDTOEOL = 16; XBEGEND = 17; XTOPBOT = 18; CARRAIGE RETURN} INSLINE = $0E; {N} DELWRD = $0F; {O} D_TO_EOL= $10; {P} SUPER = $11; {Q} PGEBACK = $12; {R} SRCH = $13; {S} BOT_TOP = $14; {T} ADJST = $15; {U}ORWARD } STATUSCOL = 0; {START POSITION FOR STAT REPORTS } FIRSTROW = 0; {FIRST ROW OF SCREEN OR BUF } FIRSTLINE = 0; STRLEN = 30; {UPPER BOUND ON EDSTRING} MAXLNSIZE = 255; (* MAX ALLOWED ST DATA FOR SEARCH AND REPLACE *) FIRSTMARK, LASTMARK: INTEGER; BUF: ABSOLUTE[$A000] ARRAY[0..0] OF CHAR; (* EDIT BUFFER *)  XTAB = 19; XWRDRIGHT = 20; XWRDLEFT = 21; XSUPERCMD = 22; XDELWORD = 23; LFTWORD = $01; {A} END_BEG = $02; {B} PGEFWD = $03; {C} RTWORD = $04; {D} SRCHSA ACCEPT = $16; {V} CBUFF = $17; {W} RPLCE = $18; {X} DLINE = $19; {Y} CHINS = $1A; {Z} ESC = $1B; {ESC} QUIT = $FE; {SPECIAL CHARACTER FOR QUITTING} CMDIZE OF LINESZ *) CPMLINESZ = 127;{FOR MT+ FILE NAMEING} MAXCH = 79; TYPE FILENAME = STRING[127]; {FOR GETTING FILENAME} DIRECTION = (RIGHT, BACKWARD); {DIRECTION TO TRAVEL IN BUFFER} (* VERSION 0008 *) (* LAST CHANGE - MARCH 16, 1981 *) CONST XINSRT = 0; XADJST = 1; XCHINS= 2; XSRCHSAME= 3; XPGEFWD = 4; XPGEBACK = 5; XCBUFF = 6; XSRCH = 7; ME= $05; {E} INSRT = $06; {F} DCHR = $07; {G} CLEFT = $08; {H} TAB_CHR = $09; {I} CDOWN = $0A; {J} CUP = $0B; {K} CRIGHT = $0C; {L} CR = $0D; {M = SZ = 23; {UPPER BOUND ON COMMAND ARRAY} LF = $0A; {LINE FEED} CNTRLZ = $1A; ESCAPE = $1B; NOMATCH = -10; {OUT OF RANGE OF BUFFER INDICATING NO MATCH } HALFSCREEN = 11;{USED IN PAGING BACK AND F CURSORPOS = (FIRSTCH,LASTCH,ZEROPOS,LASTPOS,XPOS); SEARCHKIND = (EQUAL, NOTEQUAL); EDSTRING = ARRAY[1..STRLEN] OF CHAR; RWFILE = (RESETT,REWRITTE); (* FOR DOFILE, OPENING AND CREATING FILES*)      FYLE = FILE; {FOR FILES} SSTRING = RECORD {USED FOR SEARCH AND REPLACE} LEN : BYTE; DATA : ARRAY[1..MAXCH] OF CHAR; END; STATREC = RECOSB_INTERFACE = RECORD PREV_CMD : CHAR; (* SET BY CALLING PROG IF IT WISHES *) (* TO RETURN AFTER CALLED PROG *) NEXT_CMD : CHAR; (* SET BY CALLING PROG TO INDICAT (* CALLED PROGRAM *) ERRNUM : INTEGER; (* ERROR NUMBER FOR END_STAT *) END;  *) BUFIDX : INTEGER; (* POINTER INTO BUFFER RETURNED BY *) X` ud,/5GYL7Yһ "̀ ;!{?YUn0PRT3k2@ !&ܬ (J3mpFY{@8!@Y GYL7'1BrrxFVuܢ. FrdC:j2zl4C^mX^uFYC^b7(~ri 9C&nxRD OCCUPIED : BOOLEAN; (* TRUE IF BUF CONTAINS TEXT *) END;  LEN : BYTE; DATA : ARRAY[1..MAXCH] OF CHAR; END; STATREC = RECOE *) (* WHAT PROG IS TO BE CALLED *) (* SET TO BLANK IF NONE DESIRED *) END_STAT : (OK,IOERR,SYNERR,XTRA1,XTRA2,XTRA3); QUEUEEMrxFVjrxFVjnP2@&nGETCON3@ eZ0L71P 1fJۀhťmYHB@vC'іi0tF*zDd'іfp֢ Vhͣ`f m dF:Bʂ,pB9D ~ `Wpo> R :<RUf#  (* ERROR CODE RETURNED FROM CALLED *) (* PROGRAM *) BUFIDX : INTEGER; (* POINTER INTO BUFFER RETURNED BY *) US%@3GINQ U$4QFRONT"tD5E` a 00` a 00` a 00` a 00` a 0LA2 B8YB:Y2&ܬUʹ fi>іk0tH@2:zzĈr\"-tkmk(]9Y&:HQ$ Bk`3i`_9Y6 B9Yr_+4Y! 2UH@1p1(dJ:B**JtĬN"-mmF@Qm+68D[HUͰ /a!VrUiSy8gY    ťt@[HEwpUbl@VqcM I9Bb\ͯNpE"-ͰBm@(riFpg!VrU 2{JI;s[`!n![xU^b+4xoܢ^xmVrxFVunç@lBLANKLI@(rD+4Q@ XyBTu{{[!>+( !(b Q(fPWJi+C^K2Vpg!VBYҵEvU[UnPREVLF3m#E\",͸"*!VmM`@(Y@>+ *"aܰQVr y^-* *C",\!X֐"hҦphEnV\"7+UXUEb,|Z@YH*\!@.Vm]eX/ {&:T-@ f@3k`pr H@UDYU\^*̀.Vmf` D7Y}'}c9ͫ#f@Qd[: ZB b4ŴL",f7ix75D sY!*pg&Lt&$"M xFVj@fP' e X^uE(s >+!-ͦ&^b-![BP:[2hͩb*܀VmpO3{uy^ohTagp7Xq\*܀uNb#n@VrnpxFVuOiSy8gr_+6 2,B !,H:"`!: iP q"€"ED4h*@!b0f`a$ y}QWUDb,DBhҦpVmGx@ABP9D5 #+:!(rlhAxFVj D2 D xFVjlAxFVuOiSy8gr@ grnAxFVj D2pg&Lu,*!LS8!"ǀ,ڪ*ǀ.QfJA(rmAxFVjiEEX!{?ܬt iV0@c˔BP9EX*ǀ'3C.Q /QV>hҦp^mD2@ BP9D7(#+5D7(#+:!D2 CsB9iKCI2TCB2F#h]n÷abd^4ͫb P+6]n!Y!eY=MEEY!iYVD>yFfԀ d@+6iX[Ch2TUZ'3'1CZ2TB9Y@%ҽj(k}Yܢd+68Z'՘}yY0*ɀ%Y#uNb3&:S, ci)*@}e mpE aՀrrxFVuC!`y!ڞi\X( eg[D2eV\rr 3@V\rA +6laxFVj@+6Z'}YܢVm 0f &h@%Y!hTag[B9Y""f'1ɇlY*@%Y+uNb38ܢͭ xPOSCURS3l{2@,>:@"`ðQf svX@CKV!ͧ*o=' 7[#90찀9D svX@CYڐ uNb33@b BWb-ûb n@(eg[D7w[#9mHB:'1  γnp0>+bͦ@ ͓6)ȓpmp2ހ{3oz (rmťNAD U!`y:`͠ ٠2fFiS`Q@o X^jA@+6>ҫ2@#&n0DISPLAY3mcE\",͵p^ Yt9#rkpkťgC8C[Ë2{JI8ED4(#+5D PÄ6$#+5D jC->ҹAEXw8Cg2TUZ!(ef6!``y}T4m@0| t@tCs 2/7qB9YpD48#+5D6#+5Y impFX8|uD{B 9Yҫ<ì 6Ɏdt$46DXHPAD lxFVj@+6 U\PhTa@Vma@ +6D4@@b@P.P(bh` hAh(DPp,0:$`5Y2pUTIL3 ERL0()*CHN2 $$$k-+*"-ûE[鎃u$U5D$Y84Y! xFVjoxFVj@Lt$)*B/Qfv@Vh! %Y!۔iVmQfЀ /VhYefef6r_+4dC:z$4CD4<#+5D xF3ܬhTa fѐ1V hҦp"@" 2hҦp""Vmx D F^-+2!^b6e!nQ z/ζe*.Vh!nV  D"s``0}TXL"B9Y =M! eYͬoVm2ؐ"f /Vhâip+B:'1CI\9Bh ^P ^j !%YͲNU@EXH!ڤ iQaVr@+6ZT4Cq\(pg&W(uNb3&:HQPP$ ͻCC2ri6@+6cA]bPͣ`ED5#+5D6#+5Y$CI2UG"7+68Z'}b     fD5X!Y#uNb33m((9D s7!n!Y!Y͹ ^ں YxLA N1Ҡ 1+ffmPg(uNb3ڃ9D s6!n!`Qpg! /Q /Vm bfg͸@ۊ !ۘ Ɏd$Ip6hq٠2#@&ܬ;F!Y*@.VmxH@rhXpm7 #+5EXͿZ Vm0w(eg[D2ͣ/Z QfPV 3h`6 B9Y@!ү"ͥA,lý"8VmcxxK6ۄ@@+6ihKCLBK2 Qf V$ Q fJ@ @(uNcH&ܢͯ!o (uNbͤAlJͥb2#L&U-?Hȉm Vm xH`9D s7,#+5D4,#+5Y,C9`rkP9D sdP:zz CTB9Yd-Ұ6!aeB 9Y5Ҡa0'1ɇhD4d5*@.Qfs45*@.Q /ζ*o=' Frаpb*o=' ˕c%Ү!J^!Vmoa@ hrkqxFVjiqxFVj` D7ve9B:^^$Ɏut$DTiH6jqxFVjlqxFVji8kҦppg! /Q a/VmdR:Jr 0XD8@Vhh@CkP(BEZͲ!@!`ypܭQhDnV6DZ Ub,|ZH4xq UC!`yͥal; ɎTTIx68DZ("р.p 6׈ p U\t !.Vm/ h(ED/3jB:'1BFXXC\ڢ!߀!`y!ۊ"iXAQr@ (~YDCͷb,|"!ۈ$iX!1fѱ&m)fpr@mS&9@o8Má4+6 @@fAm @QrjXYI~DXvTB9YMMٴLCsċ2EX8E xFVjm8ixFVjpD7qD7;Cu Y+r@ Lri9xFVu'1CMA2TCOA2TCCAܬ!Y!`Y͢DELETET3i889D5#+:!+6lX9xFVuOiSy8gD"3i (9D sdMB9YU\*À",<*.Qf߀WJl8;Cf2rD[!Q /αsr@+6Z'}wD B9YTUDb,<ó"ͨa@ ͇mXp!iUm Vm @QVr\"+TEZ.YH UDb,<*@bR>-YU(B9D E@t(B9Y$Cy\9PrhHPE#am6a|b,8!%Y*@.VmxS63iY!bVriP*@EEYP V"ʀgū*@ +60p`9D s8!n3ip`ef6EnVVj@ E#rY$0EXF""+e`3Օz6(#+5D54#+5Y%Ҽͬp'1ɇi8!n6先o`[B:'1C~ 2TCv 2U~V""\@Vm xskqxFVuupd,/5D;(͸ێ>**.Qf`@bX^jvP{9}'}U UC!`y!iT riyxFVun*".a߀V.r@ +6@ XBTC(͢Fi[V.pupd,/5D MC-[&:USQf*@ "i mf0f8m2Ñ>LFR?3jXID J +4f VIEWAFIt T@:P,/5D p-+F"ôbB@Qr@r_+4f͹-Lͺ`@Vh>*$!Vmz(rl6u@ B9YETٵXqV D U.Q /QVhҦp#r@"B@VmpE(9EXP ͨ"FiQQQr@ +4pEV D8"=K2,/:nud,/5D JD-+((!(b rD[*B1a!  B9YxHB9YDQҪ€ +a&a!  7#+5YTw-*J!Vmp'1UEb,<ú`2 Frf0A </Vmf Jj0CSB. Fr w(uNlr@mրG+4fYj:΂ief jAxFVjk9xFVjkC&:fQT&& d! Y"@,z!`y}a r@ [!XpN@ @a`hL&UЛ|-P(6rmH(,rnS}YW\ CqB4&n9D sVmsf`m0fߐLt""O@ B:'6mVm fжm א+63jXt)<N@S: #o9 t:ͲA *!,Lͻ }b@1P1FfP ]/Q  /VhbV*rj9xFVunVm' x(k҇maxFVu`uPd,/5D;(ťhEX!AY+YBP:X2fmc pO0JPEXu4U\^b[^D UC!`y!@Vm f ^ohTab@ XBT+\!Q /α[suX}(ri(ť\ęHDuD{B9YHCͻ.fi]Ar@ (SY&:PSђS&+ N!ۨ!( ^mX^jA@+6ͦ` eF "$a"dF )YDev )FU"Jtev !)FWb eN $FVre^ ))F_beDr )"FKJfxF{zJ*zd" "FnB**Jtfc *FHGz**rgw)!F[z**reLo*!rzJ2bҦ*^!VmWaRffL,m|# 1Q:6>ͭ :6>tl}Itl}Itl}AD4ht#+5Yn@fАff ffQfPf :6>ͦ :6>!CY!åY͠^(uNl~ãc<^<^ڜ!Y͹C۰,iYmءVm}Dg'!F|:r*bJr,gr&$"z:bJr*2b@ p(\. K%ր( q cf q H8yGX4@T'@"pFA$,*L;  Fu9GB@ @n7cydMyr6O#t @.Pj E[PV"ڀGū* *e!n3@ eX8L7D'porA+6Z'՘}H@Ym@GX8L7D!D@^-*!*@QV /αsvu{B 9Y (&rih }YVUnQV α[D2`0p[H *@A`y#uNc&ܬp*{JI;D2"#l`l(e9Y "׀xtC: *l@e",flqD%3l59D sf(uNb36m樄rhťsY!nï#r@ [D2ͷ@b#r@ [D2ͼ`nfiTAVjr@ [*@B7(C!`y!h P6 ` º`f@@UEZEX 3@VpQ-Wad#+:vU 4Gr*# XT%Y"` D 8m?A0Yb«", # g h2 !4 0@ [p% ( *@QV /αsX8L7D!ZGX8L7D!0p@E[H,/5D s\->QV Q @fՠ Dxi9E[H,/:n ͓ jI3m@BQ9Y63@@hEnV34\"7+Up[XUb,*B>-YUCb Vma !^#+5YUTB9Y>**Qf  suUnQ+hBTB 9Yү@Vmp'1ɓh*Hi 3`mypF[X"p6or@+6ZVB؂_Y!EY [xU9B2݀#+:[U[pB9    D s[pFn[D2&ܢo˕8D[U[xUmȭ! 2UPND aGZL7EFiPHru C\X&ܬ*i_pq}j r@(ʃ9EZ*!+4iXN8>P ̃Xor B9Y>*!Q rn;U\&!+6hAxFVj@(9Yefef1 fm c !p3hHꄗef_e!%Y͠AL>Pe (6rhCťb Y)l4p)!EY:"`uNb3efef600`e (r@ f@h'x}sB5)!aEY*M˭sZ *Aa&ܣ|&' $f* )Ff¢d0L f#$"gB**JteP+ *FDABdl3"(FIjzDd'*#)Bzb *gT# #$FM:*Dd3#',Fb2Jr$eh+ $]*r"2Jb,d<3)&$FhDf0-(FG:*:JrbLd3 #F\jz,e/&""VBjz*L#+:'3ܢ -*!Vmfՠdu q 4NQc4 s4c2eDy@i3&63o6h GYph0q 9NS Pu8 'C)R <Χ!l2FSt6Dq@y7DsIͫ`,ڼͬ "fրm !@s7 FS1eMQs9LFȀo9D@E@b:Sa9 FS)@l7Όͯ l!nVmf 11Pp2#)| :#)r7eΧ)i9Lrͷl~! NVmfа&(n9YWD;t,/5D&8Z!&QV&r@mYpEFor@ (YO->ҮfX B9EXEͪ@ڪiY0AfP ewUͥ`ny`orohVan0}TdBF[0K[h* Fr@іW(u:'1u{iijjmzpE8UnQ+hBTB9Y ү@­o@(rlhă U̘ͮSEARCH3@ /Q /6@9D4!!AQVriC62c 5%:b>ͨ p 6 U\ڼiYVkkk:BԑTPf$@  !tͫ !N!ZC\lfІm(rh[b-l*B+63m@|rm@9D: ͽ! !NQfрVZUnVmf3ruD{D2 ru{D2 /QVrohZ'3\9D z^-**؀NQVr0Xb9E[ *NVh!NQ@k ˔u{np+C\2TU![#9hx[Cb2TU![#9mxSCgB2Tu{Uh]n*UT%3AhDSTCURSd5U%4( GBLOOPSt44X8EXTSEENu$T4$E8PNXT45U(pNEXTSYMnt5U%%5`CRPENDIWDpwKEYWORDZD$4(~DBLCHRl4t4(}STACKDpCURRMAR5U$ĔV#`AIQQfb!pܭQ"hDnV4 'A !M㡤u2jYC\Ͷ,pX^jH+4@VmfͤLF!1TͥLҢ"$"(ͦB(ͩLnͧ@Obaрa rh(6t:Mvmfpr@[!Q`hҦp '1BP: e!(^mr@r@[!L"fאFm|x D˕gr0k|ҹB9EXEͷ~i^Ar@r@ba+63n#ť@AD88ͻ@*.Vmf@GJvX^j@$ba+6hh+ťNAD;t,/5Yr0IYҬ L" .VmB(9YVhi(ͬ@(rJ+6à B9Yһ`EXwB @+63l6G+6@ (OY@9 ! VmiAٷB?9YUDb1(OYt@;!.Qrhx>XND s-+ !-X!ZUOwf0^ruGY C'+6@c B9Y,!ү"2ـBEZyW`y/7Z bBD e g@c B9Yuy^ohTa (^9D: :ـB`͢ @і(9D5!*׀NVmnl!0>ҹB^!!VmGVmBa}l`& k'XgҦp"׀B`Vmlp!0>QVr@+68Z'՘}P7%!!.Q rwBD4,0#+5D C_!aY!!YͰaL:͡ XSޅljde" ()F`"b$d2 "zr*Lfd& #$UBbbLgT #Mb*Ld #$FpAjddp ))FgbAV"XDeTf H@4ͧ ڴ(Nf3 ^M* Qp՚3@m< +63lPpr7Fhe3F i7Si:YlWCYͷ i6LF(e6GrO i76ŀ3lp/Q^mTzNnVmf 'C)͛w@ d@7#+5D74Ce2VfuNb39D6@#+:b19B FrQpg&h!Հ.Qp88,/5D"q]IN2Q#-M%:2#-@M126 Q#&IM!%QR3 TU3b Q81M!%R2 TS,%9MIQ3 ST0%9MIQ 2SUPS#" QMe5 2 Аc?`9%13 Д#<`U UMj3UU#9Y5=YI&3RSU'1@`hBTB 9Y0ҿ `'1ɇr@ Cz 2rp B9Y9D4L#+:n FraР! Q f&ܢͦ`FororL +6orO@+6Z'}Yܣ&ܢͻfiYVr@[á@C&ܢͪ#&ܢJ2cQ =56bͷN8DX@"@fܐ!#r@ [D2ͿN B:'1 x}AA4, FPͰb# Qf7 D7D6 ,/5D @o-܀0@VmpO3y^iP AVrAv S7p Fͼb  ͢@: :`}{G[L7FXXu{誉(0mpE"-ͷͲ` ͢fiSaVrAt$Uof soaa@ ͇} >ү­@ ͇a B:'6c}g[!nj1>Ҷ ­ͬ@.Fi\ Vr@ [á@C&ܢ8ͯ@/`(uNl::`!ۜiP!Vr@@[á@B UBTB9YUBTB9YX >*x*"7(@uNl:*"7( [*!`y!ҭB."'1ɓjHph``3@mforh X^j@+68Z'ՙ/x 9EXH͠ : !b0Vm4ҐAX^jE +68Z'}cAX@*@Vma@(2uNl;T!0@VmkxP 9D!sdC2J"ʂ,@W",@!@7(ri6D@ B 9Yҽ*VVjPE#rYPE ͇}6!n3jHVk b5_@j g5_@k }5̘͠,@MULـD4x,@PSTDH4@EQIDTh@GTIŁD4 @GEIDT4@XJPd$@MVLUH@SFBDEtHͨ7RECORDS4H˘NEXTSYM҂Ut$HX7EXTSEENS H%3OPf` a 0G@::*B B9D B9Y/Q^Ҫ !Y Yeu`B FXCFXCO 2TBef4xD PsaР! Q4f&(ɀegXFpg!fpˀegX B:'`Vhi[!Vr@xFVun*QV/α[D2`X^u'6Lt$) B "@ fנ!V r@[#9 PB:'1CV@TB9YCyTB9Y >*͠`d:*QV /αsu\ U^b7[#9 `B:'1ɇU٠Q@:XV"@'ū*w`Um˔C+hBTB4O3yDguNl;*7(r\"+TE.ͽ,*@1`@X !݀QVC.Qpu(BF[BF[u{ux! 4hVf>һQ Q(feťsD ewdux2 tTDdXCURSOR45U(H7COLONSET%Te5(OUTPUTdYTh@GTIŁD4 @GEIDT4@XJPd$@MVLUH@SFBDEtHͨ7RECORDS4H˘NEXTSYM҂Ut$HX7EXTSEEN   S %3ApHLASTCHAa 00`t '*LAE",0ah!TB9YťQXX*Vhä4 ͓誈i 3pmpE",@ͤPͦ`a(9YCY@TB9Yrlh4@Vmfph>+v*ÀQV@QV4riȁ@(uNl;<!NQp B:'6f^hdC::*r*¤@G",pc3iXUpf :*ǀQV:r@ux Utc+609EX*Vm cVmx9EX*Q#r@ [D2VmQ /αs11 Y!Ҽ2 ;!, :`鎇u5D4eYefrnťDD etdBFXhu{ j(s0mnp EC'x}eEX!^b(r@ D2n U| D 0rklX^j@`+6p6ׁrUxX*Q <fנ1V@rrB9Y$ UXHUB,e*@!h2f$d.Qpg!V> Q`f 7J UDnQV@( ܢV 樄rnx6S\-Ȍ#+:n!.Q /α[svU9 B:'1ɓ i j3`m"p@2@ Z!.Q /αs5!%Y+r@`+6Z!( [!.Q /α[B9Yt ܢPpg&Lt`$"LF@"ŀ.fۀV.r@+4xXrpZ, >Ҿ"2\&ܣ`&nQ|f  D7EX^j@( hBUk^-+!,\þ`#`&gі0a٠.*:`2@ :&!,D:@`鎆ttUE5T9h68DX"ƀ6f V2ruX͡ [*`y!i-** EXHFa $rhx&2#-`qA13TRc)qa)B30U#- 1E3BQ#*@QM%:3<#)QM12ԑS#6 }M-%AMA3T6@M9aR2>ӑVSc9]Q%:3USc0]aQM:2T*9 1 !J3xT/`] =1=9MpS %Fv` a 00` a 00` t4ĔDY r@(/VhuNbzgі`@0tA*D8O, }VBP9D5#+:!( [!Q /αs1А 1 @Vm`pܭVh"`#cVjʫLèBX FrdF:Jr*pC",dͣ@Bdf%Y!iZp!Vmc ,r@[#92c%9MIQ b>ͭN4f@!V4@Vmx0ȁefrnťz Cr@0þ`B!NVmc@,r@[   #90YxFVj@ +6|0 `>|0 `>|0?(`?4| Z@)! ?(?4| @* ! ?(`?4| @*!?(?4 " X4 | @+`!?( ?48| @,p!?(?4| >@- @Z@ @-!^i^`1ZrrD5 *ˀ FrdI:Jr*ĠN",ͨbf^@-*! !@nQ /αsYxEZh"K2TB9YX U,d#+5D J->Ҭ4e.QV'1ɓ*ȩ)mpE U 2Ff +E+rDYZڂd#+:'3p@nf(YU fLt#!&"M"r@+6j(96 X^jsj!cYHeA\'x}oAY*@Vh*@Vm0a`fm$dM2BJ2Z'іfנfmpEi@0bfP /QfҀgJo@3C~  @9l@>h@@*@9t@>hOHUW9|@>hcV\9@>hwXa9 @>?(?4| @.8!?(?4| @.!?(@?4| @/x ?4@?r P@>h@@,Th@B?(`_4P| @@)`_4r| f@~8_"Ӏ#f@Vjʶ@͠ ;**QVbuNb3&:ZSf% f`43k 4rE efE+rDYZ "#fVjʣ<#rP VmaPAVfr0xFVjE eg[D2pg&Lt()'L@"̀ ۖ*̀-D*@h2^2F#uNb3o1xFVjG+6!?(wf>BP?k : 'R@Oh : @(r`rC?  d ŀxr | @>WPO@( P @ 4E!X׀>!?(R@_`^"4@=oՂ`^4@=@xE@>[^,T\_(7Y_h |: } @9@9@?F?!X׀:  D}8 `^0oL <@9@>h% : 0 }8 `@+?   P0 ŀx1%V,TW0,Gx# ŀxr| @> Y@,Gu@ @,G@x#i?!?(!?(!(0Z,T@T-G  P 0 B@9 @>Iqr0@a¿(' ŀxrx| @> P@( Wu@@(xW@+Eu q`^4R+WPH@>h   S,TY +WT0>,T T?@;HO@! |X׀>!?(|`^H4@=o`^J4@=@Yg΀6p&v@?"4~̀6_mhZ`N,TUO(/4Bn8}PB~PlA? p @]N,T@]O@9mr`@x9@9x@0r`rC?^N,T_0O>!?(@q`^V4~@=oq`^T4~@=oq`^Z4~@=oq`^`4@;V`n,T@Wo@>}`|[ohPq`^q`^r| @>V@@@@h 4h qtA!?(@0~PdAy @>h@ P@+?u@ @(7Qt90w^>X~t90} Xh Hn?a_,T]+G $': P#} ^$@̀6`^4a4B~PB~PBP@(`!!?(?T@4|0 @@90@9@?0 _U,TS. W4C?}|\@@@@*hW!\B~PtB~h $@ ̀6mLJ?_TLHB~PB~PB~PC?!|X׀>!?(|`^$4@=o`^"4@=@B}PB~PA?Z >B~PB~PB~PC?Q N,TQO+)/40 . %@9@>h0 : 0 }8 n Qpo@*X/u@@.0'@dC?}|Y`_@@@,H!]/B@?`\XA!@X׀>! ?(΂R4ƒ~@=@0 p QoBf}PB,~PiA@9@>h D{0>/7@ 6@9@>h : };x : };x @9@9@>h 4Bt}PB~PwAR@@@@@(` l#: 0#wd?:@;/H@/?:@?(!X׀>!?(}8$@@@(` }@pr¿ p': '} r>-(O`,+r(r| h qvB! ?(`~Pp @>h0P@9 @@/H T) @9D@>h H@,W   P4RC? x+: +} 2h `^ h `^4T!?(\4|  R@@)P   } H@>h= | j@`@-W_4BI}PB~PLP@`@@@(`4|0 D/ ŀxrX| @> Zh! h P@`@@@(` 3:  3}  B~PB~PB~P@(`b\ @9@>h HOC4BCCx}PB~P|9% @9@>h0 D{0>,onLHB~PB~PB~PC?!X׀>!?(!܄q`^$4~@=oq`^"4~@=@?Ba}PB~Pcÿ\0B~PB~PB~PC?Y,T_0 )? $,@9 @9@>h PBq#~9rY`,TZ/X? ŀxrH| @/`u@@/ рq[D?`^4I?j4D?!Ra:`w0F܀?"?!?(!?(!?( ?P@( G: pC} #B? BWx}PB~PZD? #- pn@,HE,JA@9 _s  ~Puāq0N"}| x%@?X` >%@9@>h K: 0K}8Ÿ %ŀxr| #@>3nLHB~4J?}|_п@@@+_!?(!?(4RC?4I?!?(!?(!?(0Th` RC*HeI !$2TʒRC*HeI !$2TFRC(e !rr`^`n`@)o   0 Z@9@>h> H@@@@@(`   4(w`^<4l 8ŀxr| N@> 4BZP/wZh ;: ;} @@90@9@?_h | ŀxr | @>'_@@@@h P@,TXO!P@9x@$C| @1/W\h q`^4C?!?(!?(!( rJ@9 @>hU HB[8}PB ~PF? D!h9q`^4C@_B@?@ Ph9`$ShS`B]x}PB~PCDB? Ph9`$S@-؏ G: @@G} <%<@>h | t!@~PAD@8P>,TP?+04D?"Sq>,T@Qq?+0` '@9R@9@>hB Dz0>.`Vq?@+u@@+!B|X׀>!?(| @9@9@>h  4B~PB~PBPC?!?(!?(!?(0114B~PB ~PB~PC?`[ ,T[п.0g4ˆ@)a~PB~PB~PC?!!X׀>!?([@@@@@(` T7:  7}  B~PB~PB~P@(` 7: 07} B@9@9@?$&4ہ̀7@!?(!Axu`?X`@(4r Pŀxr| @>B4BM(!Axu`?X`rE?4D?!?(!?(!?(S@*Hu@@(x@?ňk?HC @9~V?s`HrhrC> T!h l4@)"BlD?(!bxu`?X`@.4r 0!ŀxr| !@>`@*4HDG\O!?SA A\I*D`D4 J%@>hMDN~F@8 @)ؗ ـv̀7X@;x K| $)H$A@ p@UA.BYĿ(@D&>>h} D{0@;(wf>Xq?n!x(b  4t90} )@9@>h H @-pH 'ŀxr| '@>^?h_>,T@_?+0    P @ 0 @@?!?X`0 )!"X׀>!?(|q`^4 ~@=oq`^4 @;HÊB~PM?!?(!?(!( $" 2J\KDľh$nE!?(@~Pcy @>hXWP@*X<w^>d4ъ @>h 0W[A_B@?!?(!?(!?(U^,TW_*h_^,T@V_-P4`8_ /ŀxr| /@>Qq@@`@@(` t_: _T~,T T@;H @)xVnB~PB~PgD~h P@) 0  @@,!X׀>!?(wf>Ys?!?(  c:wp?],T[Q+P  K| 2$RHP p@]/+P4B~_ x)PRh@9 @>hs Hȍ| 5h9?(#s Lh4B^}PB~Pac!?(!?(!(Z,T@Z- P @ 4B~PB~PB~PC?j`LHB9~P)rE.H"$R\K)rE.H"$R\Jb_C}Fޱ) A6 Gr )׀9V`~; )ŀxr| ()@>8P1O@9@>h H |E?!?(!?(! @@@@@(`  [: p8[} -!X׀>!?(VQo@@.X!]!^B~PvE~h$`ſ!?(܄@~PU @>h][P@(rpr(| '0 /ŀxB~P{ſZ~,TWnB~Poh~ _\~B~Psh w^>[1~,TU~BzE}PB ~P}~PB}}PB=~P@?~P@(XPB ~PBPC?!CX׀>!?(`^H4 @=@PgFF~[4 B~PB ~PB~P@(`@9@9xo рqh ?!X!@,0!?(>hq`^4zƿ!\X׀>!?("4 | /@`@-_48_ 3/X 0 ` 4r N5ŀxrH| 5@>|P) \k@Bc~PB~PC?!|X׀>! ?(Rq@h B~P@)(gbDd: ()FQâb$f$f !&Fj*Ldhr '"b"RdHf "eb2flf "+FBgj )FPg$j )FpƢd|n !)FbeZ )"FCz\dY'FPFr*?(0_AN,T@VAO/ 0  4@(u@@/@[A   0 r+ŀxr| +@>X׀>!?(bY_@@-!P.B~P@?!?(Qqo@9x@>h2 H @, Zn,T@[ao.[rrC9@9@>h HߋB~PB~PBPC?!X׀>!?(bQhu@`@( ـqO |c: cSQ,TT@;o@*u@`@*p@cYE q`^z4v?c 1ŀxrx| 1@>XA@,8u!?(!?(!?(R΀7p&v@@* @gBNFx}PB~Po?r(r| @9@9@?rpr| @9x@kBqFx}PB#~PkWB@? !?(\ `^p4@=@sBwd?!|X׀>!bdf0f"*Fl:*ldr)'FZz"J|f@g'(*N !&Fj*Ldhr '"b"RdHf "eb2flf "+FBgj )FPg$j )FpƢd|n !)FbeZ )"FCz\dY'FPFr*   RSPTd44i@ DqEX#SVm<eRkv7H uK0Ub3qZPR@b0+ 8Z,q<  I@)%N,2I8B2@&$!L!r!BIB ` "!,N)! CIbI @)b!HbO+D L#H$B4@ dID@"DM@ ?E2@K%@@ h4t +N&3(S-] "28@e:3.ԓ#*1M&2ѐ.]2USc6I==RpT 3@hͬ63@mr@8B eͯm D/3@m@8B eͳ@mf@&:UT V"Ͷmf۰@D dD6X!Pʹ@.eͼ O)#rA@+6n B 9D s@\-˕CD2 L FVm(rA@+6Z!+6d@ !(!NQ4Vm#pC.Vmb@ B 9YCPp!ڜh\ #B@ "7(r\ھ "7(rj@ rCh\9kP#B]D2@ C_"Z!(vuNb$C2 D#s`G(8ᖈe!n9D!E C.Qp78!.erE [!@Q|t?-˔B.:'1 B9D sQVh!< VmgQPID@"DM@ ?E2@K%@@ h4t +NSU% E6` a 0b!! YP)" 4@ 8DnQ(f&@Q(f D2fQT"`@D N4!Pͩ@eͱ 1TC*I#rA@+6kHB9D ]@-˕mEʹ"@Q fQ D2"ǀxVm7f֑V<(r@+6l`H˔B9Y$EhD5E!ͯ.dEX!ͳ,h"*2@Qf݁mcr@ (rop6mB9D&p\-ȋ B9YEAąY" \!$ͥBB .QTPT" =1=9M2T S'M1 !J2 ԑPԑ?b]AA=AQ%>2Z Ӗ#'9aQMe63VUԑ#'Q !J2 USP" 1 !J2 & UJ2 TSc?} UI1%92 ΃@`+6lX8 rn;6A +6oP;6D@ D @|A PA}X@"@\!f͢arQ fPw D2"@$@Vm VmIffmS@VmZfІm)a r@+6@+63k8@ rlC63kP@ H˔B9D I@ CK@!0!ͮAL|*À2@QfҐm arA+63lP9D B`9Y4) 9D i Pq™)i…Xx" \!$ͺB< .Q4fm ڠ(rL+68Z! b( roPrh[6@+6i0Xrih[6oPD˔B9D y™0B 9Y@5q0U"e!ͻA:*@2@Qfm3 0((rL+68Z!,b(rhhrkHk6A+6khrkk6jHhD˔B9Y4B9Yd5aY(4U$e!ͨL!QTVmX pC",\*Qf fm Vm A͵!Xͱ!~@Q f԰ D2"ƀhVmfېV4(r@+6nxH˔B9D {ٷM1 !J2 ԑPԑ?b]AA=AQ%>2Z Ӗ#'9aQMe63VUԑ#'Q !J2 USP" 1 !J2 & UJ2 TSc?} UI1%92  PUNOUT,RDRIN,HOME,SELDSK,SETTRK,SETSEC,SETDMA, DSKREAD,DSKWRITE); FNAME = ARRAY [1..8] OF CHAR; (* CP/M FILE NAME *) EXTENSION = ARRAY [1..3] OF CHAR; (* EXTENSION TO NAME *) FCB = RECORD DSK : B   YTE; FN : FNAME; EXT : EXTENSION; OTHER: ARRAY [12..36] OF BYTE END; DIRENT = RECORD ET : BYTE; FN : FNAME; EXT : EXTENSION; OTHR : ARRAY [12..31] OF BYTE :INTEGER):INTEGER; EXTERNAL [1] PROCEDURE LOGWRITER; (* LOG WRITER OVERLAY *) EXTERNAL [2] PROCEDURE SPEED; (* EDITOR OVERLAY *) EXTERNAL [3] PROCEDURE SYNCHECK; (* SYNTAX CHECKER OVERLAY *) EXTERNAL [4] PROCEDURE VARCHECK; (* UNDEF VAR CHECKER *) (*--------------------------------------------------------------*) FUNCTION LINESZ : INTEGER; (* SO USER CAN SET SIZE OF A LINE *) BEGIN LINESZ := 79 (* 80 - 1 *) END; FUNCTION SCREENSZ : INTEGER; BEGIN SCREY := Y; (* THESE ARE USED ONLY BY USER SOFTWARE *) (* ROUTINES WHICH PERFORM CLR TO EOS AND *) (* CLR TO EOL *) END; PROCEDURE SB_CLR_SCRN; BEGIN SB_OUT_CH(CHR(esc)B_CLR_LINE *) (*--------------------------------------------------------------*) PROCEDURE SB_FLUSH_BUF; VAR CH : CHAR; BEGIN IF NOT BUFSTAT.OCCUPIED THEN EXIT; REPEAT PRNT_AT(20,1,'Buffer occupied'); PRNT_AT(21TER END UNTIL (CH='U') or (CH='F') OR (CH='W'); NEWFILE:=FALSE; END; PROCEDURE SB_BIOS_CALL(FUNC:CPMOPERATION; PARM:INTEGER); VAR DISPATCH_LOC : INTEGER; BEGIN DISPATCH_LOC := (MEMORY[1] + SWAP(MEMORY[2])) + (ORD( END; (*$I SBIFDEF.LIB*) VAR DIRFILE: FCB; (* FOR DISPLAYING DIRECTORIES *) DIRBUF: ARRAY [0..3] OF DIRENT; FSTRING: STRING; MEMORY: ABSOLUTE [$0000] ARRAY[0..0] OF BYTE; CMDCH: CHAR; @SFP:  OVERLAY *) EXTERNAL [6] PROCEDURE MTRUN; (* RUN PROGRAM OVERLAY *) EXTERNAL [7] PROCEDURE DISP_DIR; (* DIRECTORY DISPLAY OVERLAY *) EXTERNAL [8] FUNCTION GETFILE:BOOLEAN; (* GET EDITOR FILE NAME, ETC. *) EXTERNAL [8] PROCEDURE INIT; (* EDITENSZ := 22 (* NUMBER OF LINES ON PHYSICAL SCREEN - 2 *) END; FUNCTION STATUSROW : INTEGER; BEGIN STATUSROW := SCREENSZ + 1 END; PROCEDURE SB_OUT_CH(CH:CHAR); BEGIN SB_BIOS_CALL(CONOUT,ORD(CH)) END; FUNCTION SB_GETCH:CHAR; VAR ); sb_out_ch('*') END; PROCEDURE SB_CLR_EOS; BEGIN SB_OUT_CH(CHR(ESC)); SB_OUT_CH('Y'); SB_OUT_CH(CHR(0)); (* GIVE IT TIME TO WORK *) SB_OUT_CH(CHR(0)); (* GIVE IT TIME TO WORK *) SB_OUT_CH(CHR(0)); (* GIVE IT TIME TO WORK *) ,1,'F)lush, U)pdate, W)rite & Flush, L)eave:'); CH := SB_UP_CASE(SB_GETCH); SB_OUT_CH(CH); IF CH = 'L' THEN EXIT; IF CH = 'F' THEN BEGIN IF NEWFILE THEN PURGE(F); BUFSTAT.OCCUPIED := FALSE; FUNC)*3) - 3; INLINE("LHLD / PARM / "MOV C,L / "MOV B,H / "LHLD / DISPATCH_LOC / "PCHL); END; PROCEDURE PRNT_AT(ROW,COL:INTEGER; S:STRING); BEGIN XYGOTO(COL,ROW); WRITE([ADDR(SB_OUT_CH)],S) END; PRO EXTERNAL INTEGER; BUFSTAT: STATREC; INTRFACE: SB_INTERFACE; (* USED TO COMMUNICATE BETWEEN PROGRAMS *) SB_LAST_X, SB_LAST_Y: INTEGER; (* FOR SOFTWARE CLR TO EOL/ CLR TO EOS ROUTINES *) EXTERNAL FUNCTION @BDOS(PARM,FUNCOR INIT *) EXTERNAL [9] PROCEDURE EDITWRITE; (* EDITOR WRITE BUFFER OVERLAY *) EXTERNAL[10] PROCEDURE PRETTY; (* PROGRAM REFORMATER *) (*--------------------------------------------------------------*) (* User modification area BEGINS here: CH : CHAR; BEGIN SB_BIOS_CALL(CONIN,0); INLINE("STA / CH); SB_GETCH := CH END; PROCEDURE XYGOTO(X,Y:INTEGER); BEGIN SB_OUT_CH(CHR(ESC)); SB_OUT_CH('='); SB_OUT_CH(CHR(Y+32)); SB_OUT_CH(CHR(X+32)); SB_LAST_X := X; SB_LAST_ SB_OUT_CH(CHR(0)); (* GIVE IT TIME TO WORK *) END; PROCEDURE SB_CLR_LINE; BEGIN SB_OUT_CH(CHR(ESC)); SB_OUT_CH('T'); END; (*--------------------------------------------------------------*) (* User modification area ENDS WITH S EXIT END; IF CH = 'W' THEN BEGIN EDITWRITE; LOGWRITER; BUFSTAT.OCCUPIED := FALSE END; IF CH = 'U' THEN BEGIN EDITWRITE; (* BUT LEAVE IT OCCUPIED *) LOGWRICEDURE MENU; BEGIN SB_CLR_SCRN; PRNT_AT(1,1,'SpeedProgramming Package V5.5'); PRNT_AT(3,1,'Options: E)dit'); prnt_at(4,20, 'R)eformat'); prnt_at(5,20, 'S)yntax check'); prnt_at(6,20,     'V)ariable check'); prnt_at(7,20, 'X)eq'); prnt_at(8,20, 'D)ir'); prnt_at(9,20, 'F)ast compile'); prnt_at(10,20, 'Q)uit'); prnt_at(22,1,'Command? ') END; FUNCTION ; INTRFACE.NEXT_CMD := ' '; (* DEFAULT NO NEXT PROGRAM *) INTRFACE.END_STAT := OK; CMDCH := SB_UP_CASE(SB_GETCH); SB_OUT_CH(CMDCH); (* ECHO IT *) REPEAT FSTRING := ''; (*  (* SEE IF HE WANTS A FILE *) BEGIN INIT; (* CALL EDITOR *) IF BUFSTAT.OCCUPIED THEN SPEED END END T_CMD := 'E' END END; 'V' : IF GET_FILE_INTO_BUF THEN VARCHECK; 'R' : BEGIN IF GET_FILE_INTO_BUF THEN BEGIN INTRFACE.PREV_CMD := ' SB_CLR_SCRN; EXIT END END; 'L' : BEGIN SB_FLUSH_BUF; FSTRING := 'LINKMT'; MTRUN END; 'F' : BEGIN  SB_UP_CASE(CH:CHAR):CHAR; BEGIN IF (CH >= 'a') AND (CH <= 'z') THEN SB_UP_CASE := CHR(CH & $DF) ELSE SB_UP_CASE := CH END; (*$E-*) FUNCTION GET_FILE_INTO_BUF:BOOLEAN; BEGIN IF NOT BUFSTAT.OCCUPIED THEN IF GETFILE THEN DEFAULT IS NO PROGRAM *) CASE CMDCH OF 'D' : DISP_DIR; 'E' : BEGIN IF (BUFSTAT.OCCUPIED) AND ((INTRFACE.PREV_CMD = 'S') OR (INTRFACE.PREV_CMD = 'R'))THEN  ELSE SPEED; (* BUFFER OCCUPIED, EDIT OLD *) INTRFACE.PREV_CMD := ' '; IF INTRFACE.NEXT_CMD = 'E' THEN INTRFACE.NEXT_CMD := ' '; END; R'; PRETTY; INTRFACE.NEXT_CMD := 'E'; SB_CLR_SCRN END END; 'X' : BEGIN SB_FLUSH_BUF; FSTRING := '';  IF GET_FILE_INTO_BUF THEN BEGIN SB_FLUSH_BUF; FSTRING := 'FASTCOMP'; MOVE(ENDFILE,MEMORY[ADDR(BUF)-2],2);(* SET UP INTEGER *) MOVE(NAME,MEMORY[ADDR( (* GET FILE INTO BUFFER *) INIT; GET_FILE_INTO_BUF := BUFSTAT.OCCUPIED END; (*$E+*) BEGIN BUFSZ := (@SFP - ADDR(BUF))-$100; (* SET UP EDITOR BUFFER SIZE *) BUFSTAT.OCCUPIED := FALSE; NEWFILE := FALSE; REPEAT MENU(* DO NOTHING *) ELSE SB_FLUSH_BUF; (* MAKE SURE USER WANTS TO DO THIS *) IF NOT BUFSTAT.OCCUPIED THEN (* BUFFER IS EMPTY *) BEGIN IF GETFILE THEN  'S' : BEGIN IF GET_FILE_INTO_BUF THEN BEGIN INTRFACE.PREV_CMD := ' '; SYNCHECK; IF INTRFACE.END_STAT = SYNERR THEN INTRFACE.NEX MTRUN END; 'Q' : BEGIN INTRFACE.PREV_CMD := ' '; SB_FLUSH_BUF; IF BUFSTAT.OCCUPIED THEN CMDCH := '@' ELSE BEGIN BUF)-83],81); MTRUN END END END; CMDCH := INTRFACE.NEXT_CMD; UNTIL (CMDCH = ' ') OR (CMDCH = INTRFACE.PREV_CMD); UNTIL FALSE END.    +s#r!!!*###^#V[!^#V!^#V!~͚!O!FDQError #7͢*^#V!!yJ*! s*##!s!y!͞ SMALLERR.TXT͏p!y!Ͱm͞!J!?!s#r!?^#V*^#V!y!ͮs}/o}!y1!?.g!" !"*}2!:&o1}2!!Ì^#V:&os!Ì!Ì^#V#!?͵|s#r!!^#V^}2!!^#V#!?͵|s#r:&o!Ì^#V!^#Vͮ}2:&o}2 : &o=I@7:}2:&o}2#V"e!"c!*e^! !*e^!}o:g&o}/o}ҕ!x*c!*e^s*e#"e*e!^#V{ozg!ҋ!}2g*c#"c !|*e!^#V{ozgs#r!!s!^}/o:h&o}^!!s"s}2u}2w:u&o!"* !}2:&o}/- *"á #""!x*^:&oͮ:&o}/o}҅ *+"*!҂ !}2? :&o}/ҡ *{ozg"*"! !m"*{ozg"**"!*!^#V{ozg+"#ͬd##s#r#!!^#Vs#rÊ#!!^#V+s#r!^#V!h#!! !!^#V+++d#s#rÊ#!!s#r!!s#r! !s!x#!{ozg! 4!^!^}+%!z#! !m{ozgs#r!x! !ms#r!~A!2ͫz͕y!?^#V*^#VͮG!O!FD!A7͢Jd!FD[No msg7͢J!y!!?ͯe!^#V#͔!^#V!^#V+ͮ!O!FDNew file,Exchange mode7͢J!^#V!~^#VO!Cs!^! !:#&oI@7!!1o&"/:/&o}2%:%&o=}/o}21:1&o";"=*=*;""?"A*?O*A!}1!!y!^#V!~^#VO"O"Q! !*Qd"S*S!ͮ *O*S*Q{ozg+*S"E *g!*s^:w&o*s!^#V}d!*s^! ͮZ!!^#V#s#r*s#"s!*s^:w&o*s!}!*s^! ͮҸ!!^#V+s#r*s+"sg*s!ͮ!"i*s"i*i""*"y!*"*#"*+"|N!* =!!x*!x*^s*+"*+"!"""!x*!x**"*!"!^#V!^#V{ozg!Ҷ!v!!^#V!!^#V*!^#V!^#V{ozg!!^#V*r$!z^#V##v!!^#V!z^#V! s!!^#V!z^#V#! s!!s!!^#V!z^#V##s#r$!z^#VҐ$!zs#r!|^#V!z^#V{ozg"ō*ō!$*ō}/o|/g#v$*ōy!!^#V*ō{ozgs#r!z^#V!%!x!| !!s!Ì!s#r!!s#r!!s#r!~!s#r!Ō! w!w͸x!w͸x!w͸x!w͸x͚w!!s#r!!s#r!^#V!~^#VO͂! "*^!Sͮ*##^!ͮ}v!*###^#V^! ͮ*###*###^#V^! }!+%!^*!~ã,iàþ;NhèéäCáæ O!{!"Ò"Ë#@%D%H%%ø&ü&Î'](ý(D))}2!"*#"!*^:&oͮ*!ͮ}Ҵ!*^:&oͮ*Q*O"E*E"U"W"Y"[*[*U!g#s#r*W*U*[^#V{ozgs#r*Y!s#r!"_*_*[^#V+ң*_#*[^#Vj"_*Y*Y^#V#s#rh!x!! 4!|!s#r!^#V!^#Vͮ}2h!^}/o:h&o}/o}Һ!}2g^!^#^! **})*+"**>*"y*y""*"!*^! **}҇*#"W**Ҝ*"*}2}2!}2:&o!ͮ0 !"!"!x*^:&oͮ:&o}/o} *#s#r"*!ґ"! !!^#Vd"*!ґ"!*!**{ozg!^#V*{ozg#!!^#V*{ozgs#r}2:&o!ͮ!#!^#V!^#V "!!^#V#s#r!^#V!^#V #!! :&o!^#V!!^#V!z^#V^!|!s#r!!s!!s%+"Ǎ! !m{ozg"ˍ*Ǎ!~^#VOͅ*Ǎ*ˍ+"ɍ#ͬ"*ɍ#"ɍ*+"|ʼ%!x*ɍ^F×%!^#V!~^#VO"͍"ύ!"э!*͍^#V^!ͮ   &÷&*͍*͍^#V+s#r*͍*͍^#V#s#r!*͍^#V^!]&*э#"э!*͍^#V^F!*͍^#V^! ͮ!*͍^#V^!ͮ}o*э*ύ}&*͍*͍^#V#s#r(!}2ӍL}/&Æ'!!^#V^! &Æ'!!^#V^&)*+!g"**^#V#s#r(**^#V+s#r*#!͗}2:&oó)!! !ms#r)!! !m{ozg#s#r)!!s#r)!s#r)Y)q))))!^#V!~^#VO""!~^#V* *!~͔!^#V!~^#VO#,!!͠!^#V!^#Vҩ,! F! F!|!~^#VͮҞ,!Oͅ!O!^#V"!͋!^#V!~^#VOé,!!͠a!^#V! -!~^#V!ͮ,!^#V!,Ͷ*a!͝-!|a!*Ù/:&oF!~f/!p!x!^#V:&os!!͠!^#V͈!^#V!~^#VOÙ/!^#V ҙ/!x!^#V:&os!!͠!^}/Һ/͹*a!͝/!^#V}/o|/g#!͠ͅ!^#V!~^#VO}2a:&o! ͮ^#Vs#r!^#V!^#V!~͚!^#V!~^#VOa!x!^#V!^#V{ozg#! 4ͅ!!sa!͝*p*"!*!!2!x!^#V! s!!^#V#s#r!^#V2!s#r*!+"!À2!!s#r!^#V͈!^#Vs,5!͝*}/o|/g#"**}/o|/g#"!^#V*%G5Ͷ**M5!"c53c5 443c5:#&o!ͮ:#&o!ͮ}҄3!:&os!!s!Oͅ!^#V!~^#VO!!s!Oͅ!FD5E)xit to Supervisor, R)eturn1"ݍ*ݍ!Ō̓wmx*ݍ! ͮ!~^#V!ͮ}o}o*ݍ! ͮ!~^#Vͮ}o}o*ݍ!ͮ!~^#V!ͮ}o}҆'!}2Ӎ:Ӎ&o"ߍ"!~^#V*ߍ#'!~^#V{ozg#"ߍ!^#V!ͮ!^#V!ͮ}'!"ߍ,(!^#V*s#rG*!~^#V*!2*!~!s#rG*!~!~^#V*s#r!!^#V*s#r!^#V}*!s#rÛ*!^#V!қ*!!s#r!^#V!~^#VO"+Ñ+ø+$,ê,!-Ï-/.Ú/000|1102V3i23ý5w667S9D;÷;!!͠!͝ -!!͠a!^#V҃-!~^#Vͮa-!^#V!^#V^-͹*y-!|!!͠a!͝Î-!!͠}2}2 a! !m"*#!^#V*{ozg#}.*{ozg" * !^#V{oz 0*0*"!"!^#V!**}Q0!|*#"0͂!~!s#r!!s#r!^#V!~^#VO!^#V#͔*! ͮ0*!Һ0!~*s#r0!~!s#r#!~^#V*a!͝!"!^#V!^#V3!s#r!!s!O!FD;3 Adjust mode7͢J!^#V!~^#VO!^#V"%a!^}2!!s!"*!͝C}2#:#&oP5!^#V*%ͮҽ3! **#"c5!^#V*%ͮ4!͝!x!^#V^! ͮ4!!*7͢J!}2)C:}2':'&o!Eͮ=6!}2)!!s:'&o!Rͮm6!!s!Oͅ!}2):)&6a!^!ͮҶ6!!s#r!^#V!~^#VO!!s6!͝!!s!^!ͮ17!~^#V!#"++ͬ"W*++"ߍ!^#V,(!^#V!^#V{ozg#"ߍ*"*ߍ!͑}/o}\(!͋*ߍ+"ߍ2(""!*O͎*"*!^#V* }o͑}/o}Ҽ(!͋*#"("""*"*!s#r*!*^#V! };4=abort)? **!1!Qͫz͕y!*!^!ͮP=more, =abort7A?!*! s*#"*#"*!͵|!ͮ?*+"H?*#"*#"!!^#V#s#rô?!"!*! s!*#! s*##"!!^#V##s#r!!^#V#s#r!!͸ Ý>!!^#V#s#r!!!ͯe!*!*!^#V*{> to exit? *!!1!ͫz͕y!^!ͮ8BÙC!!!͏p!!͡k͞!ͮғB!̓BCan't create, Type *!1͕yÙC! ^#V +!!2ͳB Writing...*!! ^#V! ^#V{ozg#+"#ͬ"a*#"*a+"a|LCa!x!! ^#V!*! !5EY - Yank Q - Quit*!!hE$S - Syntax Scan B - Jump beginning*!!͘E!E - Jump end W - Write block*!!E"M - Marker Set J - Jump to line*!!EV - View*!EOption?*!C!͎!@!Z!x!a!z!x͸x!0!9!x͸x͚w*O^Ͱ*"Q*Q!ͮNHI!! ^#Vs#r! *Qs#r! ^#VÏIII*I+I}YI*I*I!^#VII}YI̓YIͶ*I͹*IͿ*Iͼ*I+I!!*III*I!^#V! ^#V å9*1!!*1^!͎̓wmx}^:*1+"1!*1^! ͮ[:!!^#V+s#r:!*1^! ͮ*1!}ҕ:!!^#V#s#r!*1#!g#s#r!*1!^#V{ozg#s#r!~^#V*3!^#V{ozg{ozg! ;!^#V!!͢C}2:&o! ͮ =͂:&o!ͮ!!ͮs}ҁ!Oͅ!!y> Can't open: ozg#!!!*[!}2!!sa:&o!^!ͮ}қ=! "]*]!Es*]#!Ss*]##!s!!s!!s!!͝@First:*! !1.g!!Ϳ@Last:*! !1.g! ^#V! ^#VҮ@!!Oͅ"*!!|^#V!!!|^#Vs!1!7͈͢y!|!!sB!!!ͯe*!ͮҙC!͌CCan't close, Type *!1͕y͂!!ͼCStatus/Commands:*!!CUsed:*!!!^#V#!*!!D Available:s!^MF*ÆF+ÆF+ÆF*ÆF*ÆF+ÆF +FÆF! +ÆF+ÆFB"FFF(FFFFF=FFF4FFFFFFFFFGF.FFFF!^!!^!B}o!^!E}F!^#V!!~͚!^#V!~^#VOÝCa!x!^#V^!͎̓wI!!s*I!^#V! ^#V0I!!s*I!^#VJIͿ*!^#V!͵|!ͮ!^#Vͮ}6II*I*I+I+ItHzHHHHHHHHHHHHHHHHHI6IwI}IIIIØMIJKïNÞSoPbQQRR!S!O!FD   J Delete mode7͢J!^#V!^#V2JK!^#V!^#Vj"y*y!^#V{ozg#"{!^#V!^#V{ozg!^#V!^#V{ozgJ!!^#V!!^#V*{!!^#V*{s#rJ!(O!FDJCopy buffer full7͢J!##s#r(M!!^#V!^#V{ozgs#r!!s#r!^#V"!^#V!^#V^M!^#V+"!!!*[!^#V!^#V!~͚!^#V!~^#VOI!^#V!~^#VO!!s#r!"s!!^#V#s#r!}2q!^#V"u!^#V"w! }2o:o&oBN^#V!~͚]P!O!}1.P Cannot copy7͢!!^#V#s#r!!s#r!!s#r!^#V!~^#VO!^#V!^#Vͮ҇PaQ!!^#V+s#r!!^#V^! ͮ'Q!!^#V+s#r!^#V!^#V+g"!!͠!!^#V*{ozg+s*! 4!!^#V*s#r!^#V*c:&o}/o}ҝS!}2!O!FD̓S#Buffer nearly full, stop inserting!7͢J!^#V!~^#VO!}2!}2!!^#V!^#VXs#r!x^#V"ͅI!^#V!~^#VOC}2!!s!}20Y!!^#V!^#V{ozgs#r:&o! ͮuV!!^#V!^#V{ozgs#r!!^#V!^#V{ozgs#r!*c!!^#V!^#V*c{ozg#!!^#V!^#Vs#r!!^#V!!^#V#!^#V!}2!!^#V!^#VsUXXXXXXXXXXXXX VXXXXWX:&ҲT!!s!Oͅ!^#V!~^#VOYÆYq[[\[]â__ab*"*^#V*Y**^#V+s#r**^+s*^#V*O! F*^#V*O"""*^#V"*!s#r!^#V!~^#VOͅ!~^#V4K͹*ÔK!|!^#V!!~͚!!~^#V++"}#ͬ"*}#"}*+"|ʑK!*}OͅmKI!*y#s#r!^#V!~^#VO!^#V"s!!^#V#s#r!!^#V!^#V{ozg+s#r!!^#V!^#VIoNIoN!!^#V!^#V{ozg+s#r!!!*w[ͳ*oN MoNoNMoNoNoNoNoNoNoNoNNoNoNMoN NoN:o&o!ͮ:o&o!ͮ}ҝN!}2qåNC}2o:q&M"!^#V!^#V{ozg+!ͮNnP!^#V!^#V{ozg!^#V#r!!^#V+s#r!^#V!~^#VOaQ!!^#V+s#r!^#V!~^#VO! F!^#V!~^#VO!^#V++!^#V+g#"!"!*^! ͮҫQ*#"*#"ÃQ!*^! ͮQ!"Q*"*!Oͅ!FDQ Insert mode7͢!s#r!!^#Vs#r!^#V!^#V{ozg!^#V"c!!^#V!*c!^#V!^#V{ozg#!!^#V^! ͮҫT!^#V!^#V!^#V{ozgI!}2:&o! :&o! ͮ}o:&o! ͮ}U:&o!ͮUI#r!!!!^#V[!!^#V#!^#Vs#r!!sa!!s!!s:&xW!^#V!^#V!~͚ÚW!!~^#VOͅ!^#V"!͋!^#V!~^#VO0Y!Oͅ!FDWAbort? 7͢JC}2:&o!Yw!yw͸xmxҽX!"*!s!!O+"#ͬ"*#"*+"|QZ*#*+! s)ZC}2:&o!ͮ:&o!ͮ}҃ZhY[:&o!ͮҰZ!$F**^#V#s#r[:&o! :&o!ͮ}[*#*^+:&os**^#s:&{ozgs#r!!^#V!^#V{ozgs#r!^#V"!*ws#r!^#V!]L!!s#r*w!ͮ!^#V!ͮ}ҮL!!! s!!! s!!s#r!"w!*!*w!^#V*{ozg!^#V!ͮ M!!^#V!^#V{ozgP!*!*!^#V!^#V*{ozg!!^#V!^#Vs#r!!^#V!^#Vs#r!!^#V#!*!^#V!!^#V!^#Vs#r*!^#V!^#VO!!!!^#V[O!!!*!^#V[!^#V!J:&o}/R͎!}2I!!^#V! s!!^#V#s#r!!^#V! s!!^#V#s#r!Is#r!^#V!ҏR!^#VI!~^#VͮҺR!Oͅ! FIR!!͠!^#V!~^#VO!!^#V#s#r"!!^#VU:&o! ͮUIU:&o! ͮ҅U!!^#V! s!!^#V#s#r! F!!^#V#s#r!^#V!͵|!ͮ,UU!^#VU!!^#V:&os!!^#V#s#r:&oF!!^#V#s#r:&o}2IC}2òT:&oXIC*c!!^#V!^#V!^#V{ozg#!!!!^#V[:&bX!^#V!!~͚ÑX!Oͅ!!~^#VOͅ!^#V"!͋!^#V!~^#VO!}2!!^#V#s#rX!Oͅ!^#V!~^#VO!}2C}20Y!}2C}20YoF**^#V#s#r:&o!ͮ:&o!ͮ*^!ͮ}o}o*^!P}QZ**^+s!Ñ!QWͅ!!Ñ^+"#ͬ"*#"*+"|[!Ñ*^Fä[!^#V!~^#VO!O[ not foundkY"u   !"y!"*#*u+^!#ͮ0\!"k\!"w*#*u+^!-ͮ`\!"y*u#"uÁ\*#*u+^!+ͮҁ\*u#"u*u*^ \! *w͏*#*u+^!0{ozg"w*u#"uÁ\*w*y͏"k*k""!!P*!s***^_!}2:&o!ͮA_*!^#V}2Q_*! }2:&o:&o}J^:&o}/{_!}2{Î_**s#r!}2{!*s#r:{&o""*#!+^!ͮ_**!P_**!P!^#V!^#VX_*_!Oͅ!>F!"e!m!eeY!m!zY*e##"e*e+O!>F!!eeY!!jzY*e##"e*e+O!?F! !eeY! !w!_qY!}2v*_!b!}2{!"}*_|b/g}/o#"_b!}2{!"}!}2u*_!:u!^#V:&o*}͏s#r*_+"_0e!}2ub*k*}{ozg"k*_!:v&o}o*_!ͮ}ҥe!!!*k[!^#V!!~͚!^#V!~^#VOèenYeõef"""O!9*s#r*8^!ͮ7f*9*6^#Vͮh!}2h!}2:&o}2ה:ה&o!9Xh:ה&o!A{ozg "͔kh:ה&o!}o|g"͔*͔"ٔ!@^#V!+ Қi*ٔ!s#r!}23Ͳ{}2-:-&o!$ͮh!}24i:-&o!+ͮhͲ{}2-i:-&o!-ͮi!}23Ͳ{}2-"7*/#"/*7+"7|ʁk!۔*/^!̓wmx}/~k!9^#V"1!}1͈y!}1ikBad Integer, Try again:7͢!9*1s#rÛkk!۔*ٔ:5&o!ͮstÚiäk"A"CO*C^!ͮdl*Ck@:PASTMP00.$$$!W!D!*C! !!D!s#r!"*^!ͮ1]*!s#r]*#!+^!Vͮ*#!+^!vͮ}ү]*!s*#!+^! *^!}Ҭ]*!tYs#r]*#!+^! ]*!tYs#r}2""":&o!ͮ"G!^!ͮF`!!!P*K!=`!"KC`!"Kð`!Oͅ!>F!"M!!MeY!!zY*M#O!?F*M##"M!!MeY!!W!KqY!}2Z*K!`!}2[!"]*K|`/g}/o#"K`!}2[!"]!}2Y*K!&o}/o}3e!m!k!c:{&owY)e!}2v!!!*k[:w&/d!^#V!!~͚!<OzcR, or kY!^#V:m&o!~^#VOC}2y:y&o!ͮc!Oͅ!!^#V:m&os#r!^#V!~^#VOèe:y&o!Rw!rws#rg**4^#V!4*9!s#rgkf*8^!kf*9*6^#Vs#rgf*8^!Ҫf!7!*Ls#r*͞s#röf*!s#r*8!sO"""*8^!f$g** !7:-&o! wi:4&Ci*ٔ*ٔ^#V!͏:-&o+gs#rli*ٔ*ٔ^#V! ͏:-&o!}o|gs#rͲ{}2-i:3&җi*ٔ*ٔ^#V}/o|/g#s#rÚk(g}25:5&o!ͮi*ٔ!s#rÚk:5&o!ͮi!!̓w!A!F!x͸x͚w!!̓w!$!!D!^#s!D!^!9Ul!D!!0s!D!!D!^#s*C*A*C͏p*C! !!4*A!ͮҩl*C@!s*A}/o|/g#"A÷l*C@!s*C<!s*C;!s*C8!s!9*Cs#r*C6!s#r*C ^!"^!"!^#V!^#V+"*!s#r!}2!^#V"*"!"!!s#r*#*+^:&o**d"*"**^+!^#V_**^#V!^#Vs#r*#"*#"!*^*#*+^**^}Ҿ^:Y&o}/o}ca!!O!I:[&owYYa!}2Z!!!*O*][*K+"K`a!}2Y`:Z&o*K!ͮ}ҿa!!!*O:&o[!^#V!!~͚!^#V!~^#VOa!!!*G[nY"i"k*k*ia*k"_b*i"xmx}//d!!^#V*}s#r*k*}"kée:&o:m&o{ozg"g!*k:m&o"s!*k:&o"q!^#V*k:m&o{ozg"o*g! Үd*s*q*oýd*s*q*o!!*k:&o!!^#V*gs#r!!^#V*gs#r!!s#r*!s#r*8!s1g!hph!!0!9!x!+w͸x!-w͸x!$w͸x͚w!9^#V!^}2ɔ!9^#V<^}/o:ɔ&o!̓wmx}/o}g!9^#V!9^#V4^#V͸ !9^#V!^}2ɔyg!9^#V<~g!}2h:ɔ&o!$wx͚w!۔j!PW!9^#V!^}2-:-&o! j:-&o!ͮ}j!۔^!zj!۔!!۔^+sñj:-&o!$ұj!۔!y!۔/y:-&ouyy!PW!9^#V!9^#V4^#V͸ !9^#V!^}2-0j!!۔^+"/#ͬ9*As#r*C=*Cs#r*C4*As#r*C?!s*Cͼu}/\m!7!s#rìm*C͹ujmìm*C*A !7!*CLs#r!7^#V!Ҭm!7!s#róm"M"OO*O8^!ͮ҂n*O*M!Qͯe*Q!ͮ҂n!}1   y!}1,nUnable to automatically close: 7͢*O7͢In in RESET7͈͢y!}1͈y!}1vnProgram aborted7͈͢y*O! !!4*O8!s*M!ͮn*M}/o|/g#"M*O@!sn*O@!s*O<!s*O;!s*s#r*_^!*_!^! ͮ}@q*_!!tq*c*_!W*c^!Ws!@}2e!gxq #!!o͍q #!*c!^!:ͮq!"w*c!^͌p}2eq!"w*w"s!"u*c*w^!.w!:w͸xmt"""******^**!{ozg{ozg*!*^*{ozgsvt}2""*!s#r*^!ͮҪtõu*!^!+w!-w͸xmxt*!^}2!"t!+}2!"**^v!}2:&o"Εaww(w!*Ε!#ww w(ww(w(w ww w(ww(w ww w w(wN2͕GqwAy~w#uw:͕"Е!9 *Е"Е! 9^#V!9ûw"Е!9^#V!9 !"9*Е 6#w"ҕ"ԕ!9w*ԕ|ww*ҕ:ԕ_7zd$|7z $|7z7z!2z!732768>0_0Uz!DRzxDzxzzwz{wzxGÍzz/W{/_ $|zzxzʩz !DäzÍzɯ2"}2㖯2*98~{!͕{:䖷z:z*9<6!!W*98~{D {@XDIVD $|@SML x@SS2 w@NED .w@LTD Cw@LED Uw@GTD 7w@GED Lw@EQD wDELETE t@NOK u@SPN u@GETCH {@S2I st@CCH uy@SSB x@H2I +gCLOSED eMIN YCHECKST zYSEARCHI wYPARSECM qYNOTFOUN nYPUTSTRI kYGETSTRI eYEO! !s!9*Os#r*O?!s*OA!s*O8!s*O9*Ms#r*O4*Ms#r*O=*Os#r*O^!ͮ*Oͼu}/o}ҫo!7!s#ro*O͹uҼoÈpo!7!*OLs#r!7^#V!lp!7!s#r*O<!x}/o*w*s}o*w*c^ }\r!g*u+*c*w^͌ps*u#"u*w#"wq*c*w^!.ͮ*w*c^ }r*w#"w!"u*u!*w*c^ }r!o*u+*c*w^͌ps*u#"u*w#"wÒr*c!!4*c+"#ͬ"*#"*+"|ʌu:&Zu**^#V!͏**^+gs#rÉu**^#V! ͏**^!}o|gs#ru:&o!-ͮҵu**^#V}/o|/g#s#rÿuiv"!}2*uCON:wu*8!s!}2av*!9:ԕ_!x~Gw @"ҕ"ڕ"ؕ!9w*ؕ|w"ԕ*ڕ|w}wfxw*ԕ#"ԕ*ڕ{zQxw*ҕ"ҕ!9DM! 9^#V"ԕ|²x}_F:ԕ_!x~ʲx!"9*ҕèx"ҕ!9! 9 w#x! 9*ҕ"ҕ!9! 9 /w#x! 9*ҕ"ҕ! !D*9;6> *!>2*9; ~z!9{*@:N{_{#:<2*9; ~0{zy n{q:<26 :<2:<2ʊ{#n{!#5Ø{"! *L"!{*@:!2y{|x/Gy/O>={ |)|){, {{33{OLN [sREWRIT kCOPYBUF IDELETEL IINSERT IREPLACE YSEARCH }Y@CNC /y@ISB !y@LBA y@BSR !x@CRL yINSNEWL +CHARINS +DELETEW +SUPERCO +WRITEBL +JMPTOLI +SETMARK +SYNTAXS +YANKFIL +VIEWAFI +GETNAME *NUMAT *PRINTAT *WORDLEFs*O;!s*O4*Ms#r*M!ip*O6!s#r*O@~fp!9^#V!9^#V4^#V͸ ip Èp*O<!s*O;!sÒpp}2]:]&o!a:]&o!z }p:]&o!}o|g}2]:]&o}2S:S&o"_"a"c!7!!:e&o!@{ozgs!g*c!!!o*c! !*c8!s^s"}"*}!}/o|/g#ͮҔs!;^}2yãs*;^}2y:y&oñs""*!}/o|/g#ͮs!<^}2s*<^}2:&ovLST:w&v*8!s!}2av*2vKBD:w*AvTRM:w}av*8!s!}2:&o"!}2!! !~!x͚w*^!*^!}ҳv w!*^+"#ͬ"˕*#"*˕+"˕|w**^!̓wmx}/w w9! 9 w# y! 9*ҕ!ܕ!ݕ"ܖ2ܕ2]"ey2O:ܕiy*ܖ:ܕG:▀2ܕ_!ݕ"ܖ*>O>2]Dyy2ߖ>2ޖ!ޖ/y K K*9;~ڨyͲ{Õy6*98~Ͳ{*9~ Ͳ{A\zzy-Dz{/_z/Wz#z'$|7z$|)|, { | DIV 0 $ɯ2뗱5|ʚ|ʚ|xb|C|{}[|{/oz/g#{{/_z/W!{ɯO>Gz|u|ʈ|{{/_z/W}o|g#ɯo>g{o>g|>2!.$|.$|{{@UMD |@UDV |@GZF {@DIV |@CPMR *WORDRIG *TOPBOTS *BEGENDL *LEAVE *ADJUST *DELETET *JMPBOT *JMPTOP *PAGEFWD *PAGEBAC *GOBACK *DELETEC *CURSORR *CURSORL *CURSORD *CURSORU *RESTORE *WHICHCO *@SLD w@SIN mx@MOD |UPDATEX POSCURS DISPTWO CMDWAIT CLR   TOEO BUFWLIN LINEWLI ERASELI WRITEOU CHGPTRS |SCRUNCH ySLAMRIG vLMOVELE sLMOVERI pNOTCH mNXTLF jPREVLF gFIND dGETLINE aBLANKLI ^WHEREIN XWRITEBU UDBUG RCHWAITI LCHRTYPE IGETCON @QUEUEEM =RMVFROM :ADD2Q 7PRT 4SPP=SPP/O:2 E2 UTIL3 CMDS CPYINS SR MISCLIB A:PASLIB/S/@/P:1600 SPP 002XWXYZ[\E2 $$$ASSIGN pCLOSE eEOF sRESET mBAKHALF CLRSCRN COMMAND +DISPLAY DISPTYP ŌGETCH CGOTOXY OOUTCH FPUTCH *QBACK QFRONT ÌSCREENP [@SST w@RST z@BST w@SAD x@CWT y@RIN .g@WIN ySPEED B: A:LINKMT SPPMAIN/F/L A:LINKMT SB001/F/L A:LINKMT SB007/F/L A:LINKMT SB006/F/L A:LINKMT E2/F/L A:LINKMT SB008/F/L A:LINKMT E3/F/L A:LINKMT SB003/F/L A:LINKMT SB00A/F/L A:LINKMT SB004/F/L    T LOGWRITE!}2:F&o!Uͮ> EDITWRIT LOGWRITE:F&o!Uͮ:F&o!Fͮ}o:F&o!Wͮ}4!}2p"H}2J!!^!!^͝:J&o!͏+++"L*HMD*L!N!QW""**"!^#VD!No!!PW:&o DISPDIR F:&o: &o!Sͮ: &o!Rͮ}o}`c.:&o}/ң GETFILE Ҡ INIT :&Ҡ SPEED ï SPEED ! }2 : &o!Eͮ! }2 F=! }2 SYNCHECK: &o!ͮ!E> 2|!|"!?"!+ "@! "B~2W#O~#+ m ͠ 6 !D *X͆ y@!r q:W=_*^#V"U DM* +r+s+p+q+ w" * ~2W#^#V#"^#V#" U :W![~# x± :W=_!r ~2Z>02c:W, 2d:W, 2e!f6# ZO!7!*Ls#r!7!s#r. !9^#V8^!| !9^#V!9^#V4^#V͸ !9^#V!^}2 í !9^#V!^}2 !9^#V!9^#V4^#V͸ : &oû ""*;!s!9*s#r*<~ *;!s SPP ó@KVc}Ý%~ !y!O"*!" * #"***}24!:4&o1!!12@:@&o}26:6&o"B"D!!=*B *D *D"*B"!!*!!Y!7͢J%!!6SpeedProgramming Package V5.54!!]Options: E)dit4!!u R)eformat4!!͑ S)yntax check4!!ͯV)ariable check4!!X)eq4!!D)ir4! ! F)ast compile4! !}2 F= VARCHECKF=B!R}2 PRETTY !E}2 %F.!P!PW MTRUN F! }2 .:&҃!@}2É%F.!͝LINKMT!PW MTRUN F=.!FASTCOMP!PW!!!++!!*!!!Qk *"M*M*M"MZ 0:*#^#V~ O: Gc #K ^#V"X > ![ ~# xt !c ~# x‡ :Z@2  @§ ! "   Unable to open overlay file: @: . $![c ~# x !cl ~# *@~ *<*!^!ͮ*<^}os*!^! ͮ}2:&o*<^}҃ *;!s:&o*8^!ͮ}ҧ *<^*;^} *!! s ""!9*s#rg!!!!!T:&o}/4}!!OBuffer occupied4!!͆(F)lush, U)pdate, W)rite & Flush, L)eave:4:}2F:F&o:F&o!Lͮҳ}:F&o!Fͮ:p&!! !}2}:F&o!Wͮ EDITWRIQ)uit4!! Command? 4}2:&o!a:&o!z }g:&o!}o|g}2q:&o}2:&o:&o}/ҡ GETFILE ҡ INIT :&o}2:&o*͂!q^#V!{ozg"!}2!}2p7! }2 !}2 :}2:& MTRUN FD.FFFFFFFFFfFFFEF: &o}2:&o! ͮ:&o: &oͮ}!}*}ʝ^#V#{ʙŒ!I6#6#6#6!G6#6!w##"w!9"q"k>2D!00"E!6# x!"""">22>22 x :Z@2a @ ! "a !OA ~# x# 3 ç Procedure: " " not found in overlay: @: . $ì }2!9^#V!:&os!9^#V!9^#V4^#V ""!9^#V=!!!9^#V8^!ͮҠ*!!Ls*^! ͮj!! L"Ú*^!ͮҚ!! L"!!L"`!9^#V8^!ͮ*!!Ls*^!Һ`!9^#VA~!9^#V<!   s`!!9^#V9^#V+"#ͬ"*#"*+"|I!9^#V"!*!?^!ͮ*!?!s*!A^}/!*!BL"!7!*!Ls#r!7^#V!*!A!s*!A~*!s*!<!s*!6!s#rL"+*18^!ͮ=:)&o! ͮ=!! L"+*'#"'u×!!9^#V9^#V+"-#ͬ"5*-#"-*5+"5|ʗ*'^d*'#"'p=á*7";*;"?{ozg##*?!*?"A*A"I^#V#"G^#V#"E"Cx~# xx2 + +~+ x({q#{;UYl}-- l-`*ByH҂){yxsMDs}lgot allowed 106 Number expected 108 File not allowed here 174 Pascal function or procedure expected 183 External declaration not allowed at this nesting level 201 Error in real number - digit expected 202 String constant must not exceed source lO`(**!B*!?^^s*!?*!?^#s*#"-!9^#V6!s#rOj }2#!9^#V"/*/?^!ͮ!7!*/BLs#r!7!*/Ls#r*/?!s*/B*/?^:#&os*/?*/*I*G:*I*C*G:*I*G{_zW*E^#V*C#)*E^#VR|"U"W*WM*Uo&"Y*Y"K*K!!L"[~#ʫ }»|!`iz}|ûûz{zû}| 1 Error in type 2 Identifier 3 'PROGRAM' 4 ')' 5 ':' 6 Illegal symbol 7 Error in parm list 8 'OF' 9 '(' 10 Error in type 11 '[' 12 ']' 13 'END' 14 ';' 15 Integer 16 '=' 17 'BEGIN' 18 Error in deine 206 Illegal real number 398 Implementation restriction 399 Implementation restriction 400 Illegal character in text 403 Error in reading include file 404 Error in writing list file, not enough room 407 Name table exceeded memory, sorry. ?^#s!7!s#r!9^#V=!'!!9^#V8^!J!9^#V"1!*19^#V+"-#ͬ"3*-#"-*3+"3|G*'^}2):)&o! ͮҨØ*18^!ͮ!:)&oL"+:)&o! ͮ!! L"+=!:)&oʻ!`i&}o&}o"9"@"B!+ "@! "Bɯ2]"^"`YPzʕ~~>2]}2bÉ"c"e"g#+n&*g*e*c|}o|gU{NK#zclaration part 19 error in 20 '.' 21 '*' 50 Error in constant 51 ':=' 52 'THEN' 53 'UNTIL' 54 'DO' 55 'TO' or 'DOWNTO' 56 'IF' 57 'FILE' 58 Error in 59 Error in variable 99 MODEND 105 sign n496 Invalid argument to INLINE pseudo procedure  403 Error in reading include file 404 Error in writing list file, not enough room 407 Name table exceeded memory, sorry.    ,fO}2:&o! N!)!):&oD*)!PW͞!}2:&o!y!yLOG.DATJ#!=!͏LOG.IDXJ#!y!  }/!y!!y!! !y! !=!!==^#V!s#r!=! !=!!,! ͏! !4!y!!'!!!==^#V^#V#!^,!==^#V^#V"!=!!==^#V*#s#r!=! !=!! !y!! ç" " """"*8!s*"* ![* !^+"*!"?"AO*A^!ͮҽ*A6@:PASTMP00.$$$!W!D!*A! !!D!!D!^#s!D!^!9Ү!D!!0s!D!!D!^#s*A*?*AJ#*A! !!4*?!ͮ*A@!s*?}/o|/g#"?s*K!ͮ.*K}/o|/g#"K*M@!s<*M@!s*M<!s*M;!s*M! !s!9*Ms#r*M?!s*MA!s*M8!s*M9*Ks#r*M4*Ks#r*M=*Ms#r*M^!ͮ*M͋&}/o} !7!s#"*W?^!ͮ="*W!!s*W9!s#rgt"*W8^!t"*W9*W6^#Vs#rg"*W8^!ͮ*W8^!ͮ}"!7!*WLs#r*S͞s#r"*S!s#r*W8!sO"["]"_*_8G#s*#"*#"Ü$*s*^!.ͮ**s^ }ҝ%*#"!"*!**s^ }ҝ%!*+*s*^G#s*#"*#"M%*s!!4*s!:u&o!@{ozgs!w*s!!!*s! ! !=! !=! !! ! 4!! !PW! ^#VD!^#V7d*J!)!*)!))!W!!^!Vͮ!! ^! ͮ}!!!!!!!!s!!! s!)!)!))!W!! * !}o|gs*! ^*[*! *s!7!*Ls#r!* !^,+"#ͬ"*#"*+"|ʿ!*L"!*L"*"}**s#r"!"#"%"'")"+*+8!s*'*A@!s*A<!s*A;!s*A8!s!9*As#r*A6!s#r*A9*?s#r*A=*As#r*A4*?s#r*A?!s*A͋&}/ҵ!7!s#r*A͈&*A*? !7!*ALs#r!7^#V!!7!r. *M͈& . !7!*MLs#r!7^#V! !7!s#r*M<!s*M;!s*M4*Ks#r*K! *M6!s#r*M@~ҿ !9^#V!9^#V4^#V͸ *M<!s*M;!s ""S"U"WO^!#C#*_*] !7!s#r*[!s#r*_8!sM#â#}2m:m&o!a:m&o!z }Ґ#:m&o!}o|g}2m:m&o}2c:c&o"o"q"s!7!s#r*o^!*o!^! ͮ}#*o!!&#*s**s8!s&"""******^**!{ozg{ozg*!*^*{ozgsÎ&8'"!}2*ͫ&CON:'&*8!s!}20'*&LST:'&*8!s!}20'*'KBD^#!!^{ozg!4!!^#! s!!^##! s!!! s!y!!'!!!==^#V^#V!^,ͤ!!'!==^#V^#V!j,! ͏! !y!!'!!!==^#V^#V!^,!'!==^#V^#V#!j"-*!!҆*!!^+"3*+! *!!}o|gs*+! ^*3҆*+! *3s!7!*+Ls#r!*#!^,+"1#ͬ"5*1#"1*5+"5|!*-L"/!*+L"/*-"-è*%*/s#rs#r "K"MO*M8^!ͮ*M*K!O *O!ͮ!}1W*!}1ͅUnable to automatically close: 7͢*M7͢͢ in RESET7͢W*!}1W*!}1Program aborted7͢W**M! !!4*M8!!9*Ws#r*W8^!ͮ@"*W9*W6^#Vs#rg*W?^!*W@^}"*W4^#V!!*W!!s*W9!s#r!!+"Y#ͬ"a*Y#"Y*a+"a|!gõ!!*W*W4^#V!4*W9!s#rg=o!W*s^!&!@}2u!w3$ #!!H$ #!*s!^!:ͮ҆$!"*s!^G#}2uÌ$!"*"!"*s*^!.ͦ(!:ͦ(͇)<)}/o**}o**s^ }%!w*+*s*^:'*'TRM:'}0'*8!s!}2:&o"!}2!! !~(i(*^!*^!}҂''!*^+"#ͬ"*#"*+"|'**^!R(<)}/''Ü'!}2:&o"0(''!*!''   ''''''''''''''''N2G@(AyM(#D(:"Ž!9 *Ž"Ž! 9^#V!9Ê("Ž!9^#V!9 !"9*Ž 6#ž("Ď"Ǝ!9͜(*Ǝ|((*Ď:Ǝ_!9:Ǝ_!(~Gw @"Ď"̎"ʎ!9++{+xG(+z/W{/_ +z+xD+D+ !D?+(+}[+-7?{_zWJ+}[+-7?zW{_b+:Տ!2ՏyŠ++x/Gy/O>=›++)ڵ+)Ҧ+, گ+Ó+33Ó+)Ҽ+, Ó+ + DIV 0 $ɯ2Տ+O,O,x,+z+},{/ j,@DIV ^,LOGWRIT &SHR ^+ASSIGN J#BLOCKW BLOCKR CLOSE REWRIT RESET @CCH D*@CNC )@ISB )@LBA )@WIN d*@MOD ry for disk q!{q: q^!PW!!!{4!}1!}1!!4L"ϋ!!L"ϋ*ϋ!ͮ!}1ͬ(Disk is empty, type to continue7͢!1]*ϋ!!4*ϋ! ͏#!}1!7!.7D͜(*ʎ|("Ǝ*̎|(}(5)(*Ǝ#"Ǝ*̎{z )(*Ď"Ď!9DM! 9^#V"Ǝ|)}_F:Ǝ_!(~ʁ)!"9*Ďw)"Ď!9! 9 w#–)! 9*Ď"Ď!9! 9 /w#·)! 9*Ď"Ď!9! 9 w#)! 9*Ď!Ύ!ώ"Ώ2Ύ2]"oz/g#z+{/_z/W!~+ɯO>Gz=,*,=,z+{/_z/W}o|g#ɯo>gz+o>g+>2Տ!.+.+z+z+@UMD ,@UDV u,@GZF s+SHL F+@XDIVD +@SSB )@SML )@SS2 {(@NED '@LTD (@LED $(@GTD (!4*ϋ! ͏ !7*͋#"͋*͋!!ͮ!}1*ы#"ы*ы!ͮҾ!}1͂Type for more...7͢!1!"ы%!!!{4!}1!}1!}1 | 7͢!!L"ϋ*ϋ!*ϋ!}o|gҏ4*2ԏO:Ύ8**Ώ:ΎG:ԏ2Ύ_!ώ"Ώ*ҏ>O>2]*y2я>2Џ!Џ) K KA*z*-*{/_z/Wz*'+*+*d+* +**!*!732768>0_0*!D*x*xz@GED (@SLD R(@SST i(@EQD '@BSR (DELETE &@BST (@SIN <)@SAD )CLOSED @CRL W*@NOK &@SPN &SHR ^+ASSIGN J#BLOCKW BLOCKR CLOSE REWRIT RESET @CCH D*@CNC )@ISB )@LBA )@WIN d*@MOD 3 !"͋!"ы!!?Which Disk? to abort 4!{!1!P !{^!ͮl]!{!^:}2y!!%!4!"Ӌ*Ӌ:y&o!@{ozgs*Ӌ#ͽ????????#!*Ӌ ???#!%!{c Listing of directo"ϋ!}1!}1J/End of directory, Type to exit to menu7͢!1!Ջ!֋"Ռ2Ջ2]"ٌʧ2یO:Ջګ*Ռ:ՋG:ی2Ջ_!֋"Ռ*ٌ>O>2]Æy2،>2׌!׌q K K*9;~6*98~*9   ~ ɯ2ߍ"ݍ}2܌2݌*98~z!܌:݌H:ތH*9<6!݌!W*98~t !D*9;6> *ݍ!ތ>2݌*9; ~H!*@:݌ʮͿ#:݌<2݌*9; ~ҐHy q:ߍ<2ߍ6 :݌<2݌:ߍ<2ߍ#!܌#5"SPP=SPP/O:3 SYNCHECK SCANNER IDSEARCH MINIASM A:PASLIB/S/P:1600 SB003 $$$! *L"!*@:!2y5nx/Gy/O>=Fl)`)Q, Z>33>)g, > y DIV 0 $ɯ2䍱•x%}ʻ{/oz/g#%{/_z/W!)ɯO>Gz%{/_z/W}o|g#ɯo>g%o>gn>2SPP=SPP/O:9 EDITWRIT UTILMOD A:PASLIB/S/@/P:1600 !.̈́.̈́%%@XDIVD @UMD *@UDV @GZF @DIV @CPMRD @GETCH @CCH @RST @CNC q@ISB c@LBA ^@CWT @CRL @MOD DISPDIR    SPP=SPP/O:8 UTIL3 SBINIT A:PASLIB/S/@/P:1600 SB003 CMDiSB004 CMDjSB008 $$$SPP=SPP/O:4 TRAVERSE VARCHECK IDSEARCH MINIASM A:PASLIB/S/P:1600 SB003 CMDiSB004 $$$   SPP=SPP/O:0A PRETTY PPMOD1 PPMOD2 PPMOD3 PPINIT A:PASLIB/S/@/P:1600 SB003 CMDiSB004 CMDjSB008 CMDkSB00A $$$rms, 80 char max: 4+!?!1!P''@!?9!PW!!?^+"y#ͬ"*y#"y*+"|ʐ!?*y!?*y^:s^!.!!!ͮ!O'!]'ͼ.COM]'J'!PW!{!!!{!͞!ͮ!!PW!s*<!s*;!s*! !s!9*s#r*?!s*A!s*8!s*9*s#r*4*s#r*=*s#r*^!ͮ*̀#}/o}!7!s#r*}#ì!7!*Ls#r!7^#Vs#rg?*8^!?*9*6^#Vs#rgñ*8^!ͮ*8^!ͮ}Ҕ!7!*Ls#r*͞s#rà*!s#r*8!sO"""*8^!** !7!s#r*!s#r͞! ! !?! !?!!?^#!!?^#!s!!?^##!s%!{!ʹ!!\*!!\÷""*k""O*8^!ͮҦ*!Ґ!7!s#r*<!s*;!s*4*s#r*!ҍ*6!s#r*@~Ҋ!9^#V!9^#V4^#V͸ Í ì*<!s*;!söò"""O!9*s#r*8^!ͮ *9*6^#V*8!sm}2:&o!a:&o!z }[:&o!}o|g}2:&o}2:&o"Ì"Ō"nj!7!s#r*Ì^!*Ì!^! ͮ}*Ì!!q!Ë*nj*Ì!W*nj^! !@}2Ɍ!ˌ # ) !^!ͮҀ!!BRun -- enter program name: 4!!"+!!1!P''!^!ͮ}j!͐FASTCOMP$!!;Run -- program name: 4!!}17͢Ͷ'!FASTCOMP$1!!Enter pa*!Ͱ*!ͮҦ!}1Ͷ'!}1PUnable to automatically close: 7͢*7͢m in RESET7͢Ͷ'!}1Ͷ'!}1͚Program aborted7͢Ͷ'*! !!4*8!s*!ͮ*}/o|/g#"*@!s*@s#rg*?^!*@^}*4^#V!Ҝ*!!s*9!s#r!!+"#ͬ"*#"*+"|ʙgÀ**4^#V!4*9!s#rg*?^!ͮ*!!s*9!!!ӌ #!*nj!^!:ͮQ!"ی*nj!^}2ɌW!"ی*ی"׌!"ٌ*nj*ی^!.͛%!:͛%|&1&}/o*ی*׌}o*ی*nj^ }!ˌ*ٌ+*nj*ی^s*ٌ#"ٌ*ی#"یg*nj*ی^!.ͮ*ی*nj^    }h *ی#"ی!"ٌ*ٌ!*ی*nj^ }h !ӌ*ٌ+*nj*ی^s*ٌ#"ٌ*ی#"ی *nj!!4*nj!:Ɍ&o!@{ozgs!ˌ*nj!!!ӌ*nj! !*nj8!s "݌"ߌ!!QW*o{ozg!:&o}>#*=:&o!?!!}2:&o!}2ù":&o#:&o!{ozg"9u#!"9*9Ã#-$"!}2*͠#CON:$ҿ#*8!s!}2%$*#LST:$#*8!s!}2%$*#KBD:$*$%"܍*|¶%}ڶ%*&ͺ%*܍#"܍*{z&ͺ%*ڍ"ڍ!9DM! 9^#V"܍|v&}_F:܍_!%~v&!"9*ڍl&"ڍ!9! 9 w#‹&! 9*ڍ"ڍ!9! 9 /w#¬&! 9*ڍ"ڍ!9! 9 w#&! 9*ڍ&# y&!yMD!`iO)*@@CPMRD (@GETCH (@CCH '@LSA ''@LEA A'@GTA '@GEA 8'@EQA &@SSB &@SML &@SS2 p%@LTD %@LED %@GTD $@GED %@SLD G%@SST ^%@EQD $@BSR %@NEA 'DELETE q!@BST %@SIN 1&@SAD |&CLOSED}2!y!^#V:&os!!^#V#!?dEs#r!y!^#V^}2!!^#V#!?dEs#r:&o!^#V!^#Vͮ}2:&o}2:&oҺҷ ã}2:&o}2:&o !!1o&"':'*݌*ߌ*݌!^*ߌ^*݌{ozg!!!*ߌ*݌!^*ߌ!*ߌ^!^st!"3"5"7*7*5*3*7*5*7^*5*3!{ozg{ozg*7!*7^*3{ozgso"!""!}2!TRM:$}%$*8!s!}2:&o"!}2!! !~%^%*^!*^!}w$$!*^+"#ͬ"Ӎ*#"*Ӎ+"Ӎ|$**^!G%1&}/$$Ñ$!}2:&o"֍%%$$!*֍!$$$$$>&}o&y'!'!!&y'!''&!''&!'/'!!"䎯22]"ʓ'2O:䍁ڗ'*:G:ꎀ2_!"*>O>2]r'y2>2!]' K K*9;~'('6*98~(*9~ (ɯ2" @NOK #CLOSE @SPN }#@CHN kASSIGN CHAIN INSERT POS !RESET @NED $@RST '@CNC ]'@ISB O'@LBA J'@CWT '@CRL 'MTRUN &o}2:&o}/o}2):)&o"3"5*5*3""7"9*7$*9!}1!!KB!^#V!~^#V$"G"I! !*I9"K*K!ͮұ*G*K*I{ozg+*K"=*I*G"=*="M"O"Q"S*S*M:&o+"#ͬ"*#"*+"|`"!^#V!^#V'G"g"*!"*!""!}2:&o"=!?!QW!}2!?!^}2*=^}2!}2!?^}2:&o:&o :&o}/o}P#:&o*=:&o^ͮ:&o:&$$$$$$$$$$$$$N2ՍG5%AyB%#9%:Ս"؍!9 *؍"؍! 9^#V!9%"؍!9^#V!9 !"9*؍ 6#“%"ڍ"܍!9͑%*܍|¶%ͺ%*ڍ:܍_!9:܍_!%~Gw @"ڍ""!9͑%*|¶}2뎯2*98~f(!(:쎷4(:4(*9<6!!W*98~`( !D*9;6> *!>2*9; ~4(!(*@:ʚ(ͫ(#:<2*9; ~|(4(y ʺ(q:<26 :<2:<2(#ú(!#5("! *L"!Ex>uÓã#=}~yÕõúv{$Pg` """ã"Í#Ñ#c$2%Ò%&ë&}2!"*#"!*^:&oͮ*!ͮ}҉!*^:&oͮ*"݋!"݋*݋}2!:&o1!<#s#r*O*M*S^#V{ozgs#r*Q!s#r!"W*W*S^#V+x*W#*S^#V?"W*Q*Q^#V#s#r=!x!! 4!|!s#r!^#V!^#Vͮ}2`!^}/o:`&o}/o}ҏ!}2_3!^#V"]!"[!*]^! !*]^!   }o:_&o}/o}j!x*[!*]^s*]#"]*]!^#V{ozg!`!}2_*[#"[!|*]!^#V{ozgs#r!!s!^}/o:`&o}Ҵ3!!s"k}2m}2o:m&o!ͮ<!*k^:o&o*k!^#Vv#""!x*^:&oͮ:&o}/o}Z*+"*!W!}2:&o}/v*{ozg"*"! !B"*{ozg"**"!*!^#V{ozg+"#ͬ"*#"*+"|#* !x*+s#r!^#V!= !! !!^#V+++9#s#r_ !!s#r!!s#r! !s!x#!{ozg! 4!^!^}"!z#! !B{ozgs#r!x! !Bs#r!~G!!z^#V##K!!^#V!z^#V! Ō^#V^!2#*Ɍ#"Ɍ!*Ō^#V^!*Ō^#V^! ͮ!*Ō^#V^!ͮ}o*Ɍ*nj}"*Ō*Ō^#V#s#r(!}2ˌ!}/ҥ#[$!y!^#V^! #[$!y!^#V^"Ռ*Ռ!?@*Ռ! ͮ!~^#V!^#V+s#r*#!l}2:&oÈ&!! !Bs#rÙ&!! !B{ozg#s#rÙ&!!s#rÙ&!s#rÙ&.&F&i&x&&!^#V!~^#V$""!~^#V*&!~s#r'!~^#V*!'!~!*^!0!9͗@@}/")î)(!"!!#"+ͬ"*+"*+"|ʮ)!*!*^*s!*^!9ҥ)!*!0s!"ë)!"F)+"!}2!}1 B!}1)Expanding tabs...7͢ B*"!!^#}9!*k^! ͮ/!!^#V#s#r*k#"k×!*k^:o&o*k!}җ!*k^! ͮҍ!!^#V+s#r*k+"k<*k!ͮү!"aõ*k"a*a"{"}*{"q!*}^! *}*{}*}+"}*}!x*^s*+"*+""""!x*!x**"*!!^#V!^#V{ozg!ҋv!!^#V!!^#V*!^#V!^#V{ozg!!^#V*s#r"*!f! !!^s!!^#V!z^#V#! s!!s!!^#V!z^#V##s#rþ!!z^#Ve!!zs#r!|^#V!z^#V{ozg"*!ҝ!*}/o|/g#Kä!*N!!^#V*{ozgs#r!z^#V!!!x!!!^#V!z^#V3!|!s#rͮ}o}o*Ռ! ͮ!~^#Vͮ}o}o*Ռ!ͮ!~^#V!ͮ}o}[$!}2ˌ:ˌ&o"׌"ٌ!~^#V*׌#Ҡ$!~^#V{ozg#"׌!^#V!ͮ!^#V!ͮ}$!"׌%!^#V*׌!^#V%!^#V!^#V{ozg#"s#r'!~!~^#V*s#r!!^#V*s#r!^#VR'!s#rp'!^#V!p'!!s#r!^#V!~^#V$Ú'!(Ý(ï),:-.!!s!!s#r!!s#r!!s#r!!^#V! s!!^#V#! s!!s#r!V*{ozg#"!!!**++!"!"*"!"**++  ,!*^! ҽ*!*^! ͮҍ*!"Ô**#"!*!*^s*#"*#"*!*! s*#"*#"*!dE!ͮҽ**#"***{*}"q*q""*"!*^! **}\*#",**q*"*}2}2!}2:&o!ͮ!"!"!x*^:&oͮ:&o}/o}*#"*!}2ë:&o}/*"#V9"*!f!*!**{ozg!^#V*{ozg#!!^#V*{ozgs#r}2:&o!ͮ!^#V!^#V Ҫ!!^#V#s#r!^#V!^#V !! :&o!^#V9##s#r!!^#Vs#r_ !!^#V!!s!!s%+"! !B{ozg"Ì*!~^#V$Z**Ì+"#ͬ"*#"*+"|ʑ"!x*^l"!^#V!~^#V$"Ō"nj!"Ɍ!*Ō^#V^!ͮ"Ì#*Ō*Ō^#V+s#r*Ō*Ō^#V#s#r!**ٌ"ی*׌!f}/o}1%!ی`*׌+"׌%"݌"ߌ!*݌$c*ߌ"*!^#V*݌ }of}/o}ґ%!`*݌#"݌T%"""*"*!s#r*!*^#V! }%*+!<"**^#V#s#rö%**!s#r3!!s! !s! !W}2"*!! ::&o!ͮk(*!Ͱ5v(*!͡3͞!ͮҎ(!}2Õ(!}2:&o!!!!!(VERSION#ͶA(î)!!+"#ͬ"*#"*+"|%)!!*^! !*^! }o}Ғ+*+"!*^}2!*! s!*#! s*##"!*:&os*#"!"*#"** ,!}1+:Error while expanding tabs, buffer overflow, type 7͢ B!1B   !}2,E*͋':&o!"!}10,READING7͢!"!!!*!t!*!dEv2!}1!.7D*"*#"!t^#V!*!^#V}<,!*!s*!^#V(-!}1 B!}1-.File too big to fit into buf!!s!!!s!!!s!!!s!!!s!!!s!!!s!!!s!!!s!! ! s!! ! s!! ! s!! !s!! !s!!!s!!!s!!!s!^#Vs#r!! M@!M@.A!M@.A!M@.A!M@.A@!!^#V#s#r!!s!j!s!!s1y2"""!"#"%"'*'8!s*#")*!-3*!LD"/*'! *!}o|gs*'! ^*/-9*;s#r*==*=s#r*=4*;s#r*=?!s*=2>}/\5!7!s#rì5*=/>j5ì5*=*; !7!*=Ls#r!7^#V!Ҭ5!7!s#ró5"G"IO*I8^!ͮ҂6*I*G!K͌8*K!ͮ҂6!}1s*I;!s*I4*Gs#r*G!i8*I6!s#r*I@~f8!9^#V!9^#V4^#V͸ i8 È8*I<!s*I;!sÒ8Î:"O"Q"SO!9*Ss#r*S8^!ͮ9*S9*S6^#Vs#rg*S?^!*S@^i&o!a:i&o!z }7;:i&o!}o|g}2i:i&o}2_:_&o"k"m"o!7!s#r*k^!*k!^! ͮ}Ң;*k!!ͽ=g;*o*k!W*o^!ҹ=!@}2q!s; #!!{; #!*o!fer, type 7͢ B!1B9-͎'9-!!s!}2!~L-.!n!s!r!s!p!s!*r-!W!!͝-Filename? 4!*!1!-CB!*^!ͮ-.!!!*͈'}/.!}1! 7D!*7͢. !!s!!!s!!! s!!!s!!!s!!!s!!!s!!s!!s!!s!!s3!|!s#r! !s!!! s!!! s!!s#rW!p^}/ұ1͑'!!s#r!!s#r!3*'! */s!7!*'Ls#r!*!XE+"-#ͬ"1*-#"-*1+"1|ʑ3!*)L"+!*'L"+*)")O3*!*+s#rä3";"=O*=^!ͮd4*=3@:PASTMP00.$$$!W!D!*=! !!D B!}1,6Unable to automatically close: 7͢*I7͢I6 in RESET7͢ B!}1 B!}1v6Program aborted7͢ B*I! !!4*I8!s*G!ͮ6*G}/o|/g#"G*I@!s6*I@!s*I<!s*I;!s*}Ҩ9*S4^#V!x9*S!!s*S9!s#r!!+"U#ͬ"]*U#"U*]+"]|u9g\9å9*S*S4^#V!4*S9!s#rg9*S?^!ͮ9*S!!s*S9!s#rg:*S8^!:*S^!:ͮ- 7͢ B!!1AB:&o!Y:&o!y}\...:&o!Yͮ:&o!yͮ}.!!!*͈'}/.!}1ͯ.Cannot create 7͢!*7͢ B.!n!s!p!s!!s.!n!s!}2:&o!!^#V^! ͮ*1!!^#V#s#r!!^#V#s#r!!^#V+^!ͮ0!!^#V++s#r!^#V!҂1ͅ'î1!!s#r!!^#V+s#r!!s#r6ô1ͅ'!!s!~!s#r!!s#r!!s#r!!s#r! !s#r! !!!D!^#s!D!^!9U4!D!!0s!D!!D!^#s*=*;*=:*=! !!4*;!ͮҩ4*=@!s*;}/o|/g#";÷4*=@!s*=<!s*=;!s*=8!s!9*=s#r*=6!s#r*=I! !s!9*Is#r*I?!s*IA!s*I8!s*I9*Gs#r*I4*Gs#r*I=*Is#r*I^!ͮ*I2>}/o}ҫ7!7!s#r7*I/>Ҽ7È87!7!*ILs#r!7^#V!l8!7!s#r*I<!9*S6^#Vs#rgÍ:*S8^!ͮ*S8^!ͮ}p:!7!*SLs#r*O͞s#r|:*O!s#r*S8!sO"W"Y"[*[8^!ҹ::*[*Y !7!s#r*W!s#r*[8!s:I;}2i:*o^ }D=!{*+*o*^:s*#"*#"<*o!!4*o!:q&o!@{ozgs!s*o!!!{*o! !*o8!s="""******^**!{o   zg{ozg*!*^*{ozgs5>>"!}2*R>CON:͐?q>*8!s!}2>*}>LST:͐?Ҝ>*8!s!}2>*ͨ>KBD:͐?*ͷ>TRM:͐?}>*8!s!}2:&o"!}2!! !~͗@_F:Ž_!@~(A!"9*A"!9! 9 w#=A! 9*"!9! 9 /w#^A! 9*"!9! 9 w#€A! 9*¥A# y“A!yMD!`iO>͒A}o͒AyAA!!͒AyAAA͒AAA͒AAA"ʎ D#C!̎#5D"Џ! *ЏL"ҏ}ID-7?{_zW8D}ID-7?zW{_PD!iD*@:ԏ!2ԏy„DýDx/Gy/O>=•DûD)گD)ҠD, کDÍD33ÍD)ҶD, ÍD D DIV 0 $ɯ2ԏDIEIExEDtD} E{/oz/g#WT B@CRL B@RCH AINIT 'GETFILE 'READFIL 'DETAB 'UPDATEV 'DOFILE 'EMPTYFI '@SLD ?@SIN @@WIN KB@MOD dEUPDATEX uPOSCURS rBAKHALF oDISPTWO lDISPLAY iCMDWAIT fCLRTOEO cBUFWLIN `LINEWLI ]ERASELI ZCLRSCRN WWRITEOU @*^!*^!})?À?!*^+"#ͬ"*#"*+"|y?**^!?@}/v?À?C?!}2:&o"?͈?ž?!*!Ù?͈?–?Þ?͈?ڞ?ʞ?Ö?͈?ږ?Þ?͈?ڞ?Ö?͈?ږ?ʖ?Þ?N2G?Ay?#?:"!aDq*ʎ K K*9;~*BaDB6*98~aD*9~ aDABzmB-B{/_z/WzB'D͹BD͹BdD͹B D͹B͹B!B!732768>0_0B!DBxBxzCB{BxGCz/W{/_tD{/_z/W!xDɯO>Gz7E$E7EtD{/_z/W}o|g#ɯo>gtDo>gýD>2ԏ!.D.DtDtD@UMD yE@UDV oE@GZF mDSHL 4D@CPMRD D@XDIVD D@GETCH aD@LSA A@LEA A@GTA A@GEA A@EQA A@SSB TCHGPTRS QSCRUNCH NSLAMRIG KLMOVELE HLMOVERI ENOTCH BNXTLF ?PREVLF <FIND 9GETLINE 6BLANKLI 3SCREENP 0WHEREIN -WRITEBU *DBUG 'GOTOXY $CHWAITI !CHRTYPE OUTCH GETCH GETCON QUEUEEM RMVFROM ADD2Q PRT  1- È!!W}2"*!!͑":&o!ͮV*!a*!͞!ͮy!}2{À!}2{:{&o!p^}/C!.!*%!!׍!*!!.!*%+."!W!׍!*!W!׍;+!׍I+.BAKI+6+!9 *"! 9^#V!91@"!9^#V!9 !"9* 6#E@""Ž!9C@*Ž|h@l@*:Ž_!9:Ž_!@~Gw @""Ȏ"Ǝ!9C@*Ǝ|h@"Ž*Ȏ|h@}h@@l@*Ž#"Ž*Ȏ{z@l@*"!9DM! 9^#V"Ž|(A} DzCx+C+C !D&CCɯ2Ϗ"͏}2̎2͎*98~œC!̎D:͎jC:ΎjC*9<6!͎!W*98~–C !D*9;6> *͏!Ύ>2͎*9; ~jC!C*@:͎CC#:͎<2͎*9; ~ҲCjCy Cq:Ϗ<2Ϗ6 :͎<2͎:Ϗ<2Ϗ OA@SML qA@SS2 "@@NED ?@LTD ?@LED ?@GTD ?@GED ?@EQD ?DELETE =CLOSED 8CLOSE 8@NOK 2>@SPN />SHR LD@DIV XEASSIGN :BLOCKR v2REWRIT 3RESET 5@SST @@RST -C@BSR @@BST M@@SAD .A@NEA A@CW!!!׍͑"!! !!!*͑"!!׍!ͮC!!!*͑"!!͞!ͮҐ!}1͇No directory room7͢ !^#V!^#V{ozg"Ӎ!!^#V!-{ozg"э*Ӎ*э *Ӎ"Ս*э"Ս!!^#V#*Ս!4!   " !t!s#r!"!}1͢+!}14 Writing...7͢͢+!!!*!t!^#V*э!Ͷ!t^#V!Ҵ!}1͛Disk full, Type 7͢͢+!1ͯ+ !!!t!t^#V!ͮ !}1Disk full, Type 7͢!ͮҤ*Y@:PASTMP00.$$$!W!D!*Y! !!D!!D!^#s!D!^!9ҕ!D!!0s!D!!D!^#s*Y*W*Y͑"*Y! !!4*W!ͮ*Y@!s*W}/o|/g#"W*Y@!s*Y<!#"c*e@!s#*e@!s*e<!s*e;!s*e! !s!9*es#r*e?!s*eA!s*e8!s*e9*cs#r*e4*cs#r*e=*es#r*e^!ͮ*el'}/o}!7!s#r*ei'!7!!s*o9!s#rg[!*o8^![!*o9*o6^#Vs#rg!*o8^!ͮ*o8^!ͮ}Ұ!!7!*oLs#r*k͞s#rü!*k!s#r*o8!sO"s"u"w*w8^!!*"*w*u*}/o**}o**^ }^$!*+**^͎"s*#"*#"#**^!.ͮ**^ }$*#"!"*!**^ }$!*+**^͎"s*#"*#"Ô$*!!4*}*'*: &o!!%}2: &o!}2 å&:&[': &o!{ozg"a'!"*o'("!!}2*!͌'CON:(ҫ'*!8!s!}2(*!ͷ'LST:('*!8!s!}2(*!'KBD:(*!'TRM:(}(*!1ͯ+vÔ"a"c!e!*a͑"!v!v!! *c!v! !!vL")*)"W*W"+"-*+*-!QW! !L!}2/:/&où"9";"="?"A"C*C8!s*?"E*9!m*9!s*Y;!s*Y8!s!9*Ys#r*Y6!s#r*Y9*Ws#r*Y=*Ys#r*Y4*Ws#r*Y?!s*Yl'}/Ҝ!7!s#r*Yi'Ҫ*Y*W !7!*YLs#r!7^#V!!7!s#r"c"e!*eLs#r!7^#V!Ҭ!7!s#r*e<!s*e;!s*e4*cs#r*c!ҩ*e6!s#r*e@~Ҧ!9^#V!9^#V4^#V͸ é *e<!s*e;!s!"k"m"oO!9*os#r*o8^! !7!s#r*s!s#r*w8!s1""""*!X"!"**!{!*!{!*s!{"{*{Ô""}2:&o!a:&o!z }":&o!}o|g}2:&o}2:&o"""!7!!:&o!@{ozgs!*!!!*! !*8!s`%"""******^**!{ozg{ozg*!*^*{ozgs[&%""!}2!: &o+"#ͬ8!s!}2:&o"'!}2#!+! !~)J)*'^!*'^!}c(ú(!*'^+")#ͬ"K*)#")*K+"K|ʳ(*'*)^!+3)*}/Ұ(ú(}(!}2#:#&o"N)((!*N!((((((((((((+"K*C! *9!}o|gs*C! ^*Km*C! *Ks!7!*CLs#r!*;!-+"I#ͬ"M*I#"I*M+"M|!*EL"G!*CL"G*E"EÏ*=*Gs#r"W"YO*Y^!O*e8^!ͮ*e*c!g*g!ͮ!}1͢+!}1lUnable to automatically close: 7͢*e7͉͢ in RESET7͢͢+!}1͢+!}1ͶProgram aborted7͢͢+*e! !!4*e8!s*c!ͮ*c}/o|/gͮ'!*o9*o6^#Vs#rg*o?^!*o@^} *o4^#V!Ҹ *o!!s*o9!s#r!!+"q#ͬ"y*q#"q*y+"y|ʵ gÜ *o*o4^#V!4*o9!s#rg$!*o?^!ͮ$!*os#r*^!*!^! ͮ}B#*!!]%#**!W*^!Y%!@}2!z# #!!͏# #!*!^!:ͮ#!"*!^͎"}2#!"*"!"**^!.͇)!:͇)h*"*#"*+"|L&!^#V!^#V*3&S&*!"*!"&!}2:&o"!!QW!}2!!^}2 *^}2 !}2 !^}2 : &o: &o :&o}/o}<': &o*: &o^ͮ: &o: &o{ozg!: &o((((((N2MG!)Ay.)#%):M"P!9 *P"P! 9^#V!9k)"P!9^#V!9 !"9*P 6#)"R"T!9})*T|¢)ͦ)*R:T_!9:T_!)~Gw @"R"Z"X!9})*X|¢)"T*Z|¢)}ڢ)   *ͦ)*T#"T*Z{z*ͦ)*R"R!9DM! 9^#V"T|b*}_F:T_!)~b*!"9*RX*"R!9! 9 w#w*! 9*R"R!9! 9 /w#˜*! 9*R"R!9! 9 w#º*! 9*R*# y*!yMD!`iO>*}o*y!.͂,.͂,#,#,@XDIVD ,@UMD (-@UDV -@GZF ,SHL +@GETCH ,@CCH +@LSA +@LEA -+@GTA *@GEA $+@EQA *@SSB *@SML *@SS2 \)@NED (@LTD (@LED )@GTD (@GED (@SLD 2L9ú<ÖñÉoò!#Ú$6%k%!E!E^#V+++s#r!E^#V!^#Vq!E!^#Vs#r! "*###!E^#Vs#r*#!Es*!Ss"K*K!^#VKҟ*K"M! *Ms#r! ##!s}2Y:Y&o!a:YR /PACKED 1PROGRAM !PROCEDURPREDEFIN;RECORD 4REPEAT SET "TYPE TO THEN UNTIL VAR WITH WHILE   "#&'(!A!s!{^#V"_!}2]!+!s#r:]&!+!+^#V#s#r!Ӌ!+^#V+ +!!*y+ ++* ++* ++!\!]"\2\2]"`+2bO:\ڃ+*\:\G:b2\_!]"\*`>O>2]^+y2_>2^!^I+ K K*9;~+,ï+6*98~,*9~ ,}+-7?{_zW+} 3)@SST J)@EQD (@BSR )@NEA *DELETE ]%@BST )@SIN *@SAD h*CLOSED @NOK l'@SPN i'SHR +@DIV -KEYPRES EXTRACT ASSIGN "BLOCKW CLOSE COPY ."POS %REWRIT RESET RENAME @CNC I+@ISB ;+@LB&o!z }*:Y&o!}o|g}2O4:Y&o}2O:O&o!!9^s!!E^#V+++^! ͮҤ!{!{^#V#s#r!{^#V!͛K!ͮҤ!}1!+7D!9!!E^#V^s!9^! ͮ!E!E^#V#s#r!9! s!E!E^#V#s#rABSOL+!^s!;!^s!{^#V*_8! !;^!'ͮ!}2]!^!'!+!+^#V+s#r!-!'s!A!s}2a:a&o!*ͮҩ!}2e!^:a&oð:a&o!*ͮ!9^!)ͮ!}2e+-7?zW{_+!,*@:c!2cy3,l,x/Gy/O>=D,j,)^,)O,, X,<,33<,)e,, <, w, DIV 0 $ɯ2c“,,,x,,#,}ʹ,{/oz/g##,{/_z/W!',ɯO>Gz,,,#,{/_z/W}o|g#ɯo>g#,o>gl,>2cA 6+@CWT +@CRL +@MOD -EDITWRI DOFILE  -KEYPRES EXTRACT ASSIGN "BLOCKW CLOSE COPY ."POS %REWRIT RESET RENAME @CNC I+@ISB ;+@LBUTE@AND 0ARRAY 2BEGIN CASE CONST DO DOWNTO DIV *END ELSE EXTERNAL=FOR FILE 5FUNCTION FORWARD #GOTO IF IN 3LABEL MOD -MODULE 8MODEND 9NOT (NIL ?OF O!}2e:e&Ұ!^!0!^!9 }o!^!A!^!F }o:q&o}o}:q&o!^!9 }!+!+^#V#s#r!Ӌ!+^#V+!^s:q&!!^ s}2q!-!$s!+!s#r:q&%   !;!;^ s!!^ s!Ӌ!+^#V+!;^s!:q&Mn!^!.ͮ!9^!.!-!%s!+!+^#V#s#r!Ӌ!+^#V+!^s!+^#V"s!*s!+^#Vͮ!-!6s!^!Eͮn!+!+^#V#s#r!Ӌ!+^#V+!}!-!:sÿ!!^!*ͮ:!-!:s!*D!-!sÿ!!ÿ!!ÿ!!-!sÿ!!-!sÿ!!^!.ͮҗ!-!sá!-!sÿ!!^!=ͮ!-!s!-!sÿ!!-!sÿ!!-!sÿ!!-!sÿ!!-! s!^ }2!#!+! s!#!+!#!+!:&o!A:&o!Z }o:&o!0:&o!9 }o}o:&o!_ͮ}##!+^#V!:&o!_}"!+!+^#V#s#r!Ӌ!+^#V+:&os*#"!*^#Vs#r!9! s!! s!E!s#r!y!s-!-^!6ͮ!E^#V!^#Vͮ}/o}j%! 0!}1͑%SYNCHECK Release 5.57͗͢J!}1ͽ%(c) 1981 MT MicroSYSTEMS7͗͢J!}1͗J3%!E!^#V+s#r! ##!s-A6&ͽH!-^!m͔H!M͔HI! H! HII!HI~I}/L(3(""}2!-^:&oͮ{(3)* *(!m͔H&(!͔H&(!M͔H&(!-͔H&(! ͔H&((!m͔H&((((((((!-^:&oͮ&o}/*!! !&,!-^!?ͮ3+3,!-^!(ͮ!-^!Cͮ}`+3&,!-^!Ґ+&}/ҍ+!: !͔H&,3!-^!ͮ!-^!ͮ}o!-^!ͮ}+! &,!-^!ͮ,3 &!-^!+!!^s!^!+ͮ!^!-ͮ}a!+!+^#V#s#r!Ӌ!+^#V+!^s!!-!%s!w͇0123456789ABCDEF#!!+!s#r!! ! 4!"u!^!/!^!)}!^! !^!,}*u#"usÿ!!-!)sÿ!!-!,sÿ!!-!.sÿ!!-!+sÿ!!^!=ͮg !-!7s!/!sç !^!>ͮғ !-!7s!/!sç !-!7s!/!sÿ!!-!7s!/!sÿ!!-!7s!^!=ͮ !/!s !/!sÿ!!]+:&os!^ }2H"!Ӌ!#!+^#V!Ӌ!+^!@T#)B^#!-!s!-^!ͮҥ#*! !! +^!E}Ң#!-!s#!-^! ͮ*!}#!-!s!-!6s!^! ͮ##!^!@'M()0-í)r*,ð,0u.^-'/3Í2A2544:!m!H!HI!HI!HI!HI! HI!!HI!HI!HIͫH!-!H!HI!HIͫH!!$H!%HI!'HI!&HI!HI!HI!HI!()3!}2!-^!'ͮ!-^!&ͮ}9)3å)!-^!,ͮ!-^!.ͮ}`)3!-^!ͮ!-^!$ͮ}o!-^!%ͮ}Ҟ)3å)!}2:&o}2ō:ō&)!!!&!-^!ͮ!-^!ͮ}o!-^!ͮ!!&&!-^!)ͮ!-^!+ͮ}o!-^!*ͮ}o!-^!-ͮ}o!-^!0ͮ}o!-^!Aͮ}ү,3!^!-^!)ͮ}ҩ,ï,&,!-^!,ͮ!-^!.ͮ},3&!-^!,ͮ!-^!.ͮ}o!-!*u+!^sò*u!2! !!u̓B}/N! ç!Ӌ!+!$s!Ӌ!+!w*u!͏K^s!Ӌ!+!w*u!͛K^s!-!$s!;!^s!;^ !-!Asÿ!!-!Bsÿ!!-!Csÿ!ÿ!$ÿ!!Q![  h! u. GGGGGGGGGG; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!+!s#r!"!Ӌ!+^#V+!^ s!*+!^ $'Ç$!^!A!^!Z }5$*Ç$!^!a!^!z }_$*Ç$!^!@ͮ!}^}/o}҄$*Ç$'!-^!:#!!+"#ͬ"*#"*+"|$!}1͗Jõ$!{!s#r!}!s!=!^#Vs#r!?!HIͫH!M!H!HI!HI!HI!HI!HI!HI!HI!HIͫH! !,H!$HI!%HI!'HI!&HI!HI!HI!H!1HI!2HI!4HI!"HI!5HI!HIIͫH!}q*!-^!ͮ/*3!!!&n*!-^!ͮk*3 &!-^!A*!! !&n*3)!-^!ͮҜ*3 &!!!&,!-^!ͮ+3!-^! + &!-^!ͮ*3 &!-^!ͮ}2Ǎ:Ǎ&*3:Ǎ^!/ͮ}o!-^!Bͮ}/-3&,&!-^!7ͮ!-^!3ͮ}]-3&3!!!&!-^!ͮҔ-3!!!&! !!&&}/-!2 !M͔H!HI&!-^!}2:&o}/-3:&ң-!!!   &!! !&!-^!&.&!!!&!-^!}2:&o}/W.3:&o!-^! ͮ}ң-!-^!ͮҊ.3!-^!ͮ.3!-^!ͮ.3!!!&!-^!ұ.!!!&&!-^!ͮ.3Ê.!^!1ͮ13!-^23!-^!G1! !!2I&Á13!&}/o1! ! ͔H!HI&!-^!G1!! !&! !!&&@23!-^! ͮ13&@23! !!&!&}/1! !!2I&@23&! &4!!!&!-^!3!!!&}2Ս:Ս&X4!!!&!-^!ͮ!-^!ͮ}o!-^!ͮ}4!-^!ͮҷ43!!!&4!-^!ͮ43 &!-^!4!! !&43X4!-^6! !5!& &!!^#V+s#r:3!!!&!!3!& &!-^!ͮl73Ù7!-^!ͮ҄73Ù7!7 !!2I& &!!6!&0&:3!-&!-^!ұ7!!6!&0&:3!-^!$8! !M-^!ͮ]9!!!&!!s~:!-^! !-^! }o!-^! }~:!-&!!3!& &:8::::::::::::::::::(5t55660777::!!^#V#s#r!-^!ͮ/;3!-^!ͮ:3!^!=ͮ=3Å=!-^!@ͮ҅=3!! !&!-^!ͮ!-^!$ͮ}a=3v=! !!2I&!! !&&!!!&!-^!Ҷ3>!-^!=ͮ>3!-^!ͮ>3!-^!ͮ!-^!$ͮ}Ҽ>3>! !! !&!-^}2ۍ3!-^!ͮa?!#?INTERR!ͮ{03!-^!$ͮ'03l0!-^!ͮ?03l0! !!2I&!-^!l03T0!! !&03!-^!ͮһ03&}/һ0!2 ! ͔H!HI&!}2ɍ:ɍ&o!&0@2!-^!ͮ03!!!&@2!-&!-^!3443!-^!ͮ!-^! ͮ}Ғ3!-^}2Ӎ3!!!&$&:Ӎ&o! ͮҏ3!!!&!!!&4!-^!ͮҧ33!-^!ͮҼ33!!!&!-^!ҧ3!!!&!-^!2ͮ4'}d6!-^!ͮ63&}/@6!2 ! ͔H!HI&!-^!6!!!&0&!-^!5!-^! ͮң630&!-^!ͮң63!!^#V+s#r! ! !&:3 &!!6!&0&:!!^#V#s#r30&!-^!-:!-^!*::׍&$9!~ :ٍ&]9!-^!ͮ]93 &3!-^!]9:3!^!-^!)ͮ}93!-^!,ͮ!-^!.ͮ}Ҫ93ñ9! !$!!&9 &:؍&9!-^!ͮ93 &!-^!ͮ93 &!!ͮҡ<3!!!&!-^!7ͮ_CMC ?MOVBB@MOVBCAMOVBDBMOVBECMOVBHDMOVBLEMOVBMFMOVBAGMOVCBHMOVCCIMOVCDJMOVCEKMOVCHLMOVCLMMOVCMNMOVCAOMOVDBPMOVDCQMOVDDRMOVDESMOVDHTMOVDLUMOVDMVMOVDAWMOVEBXMOVECYMOVEDZMOVEE[MOVEH\MOVEL]MOVEM^MOVEA_MOVHB`MOVHCaMOVCMPB CMPC CMPD CMPE CMPH CMPL CMPM CMPA RNZ POPB JNZ JMP CNZ PUSHBADI RST0 RZ RET JZ CZ CALL ACI RST1 RNC POPD JNC OUT CNC PUSHDSUI RST2 RC JC IN CC SBI RST3 RPO POPH JPO XTHL CPO PUSI! 9*"!9! 9 w#J! 9*@J# y.J!yMD!`iO>-J}o-JyhJnJ!!-JyhJnJhJ-JnJcJ-JnJ|J K K:!2y»JJx/Gy/O>=JJ)J)J, JJ33J)J, J J  I@SAD I@SS2 H@EQA -JASMCNV BIDSRCH )BSYNTAXS %@LSU K@CRL J@MOD K@DIV KSYNCHEC 6GETSYM 3INITIAL 0NEXTSYM -DOIDENT *DOSPECI 'DOMINIA $DONUMBE COMMENT DOSTRIN RESWRDI RESWRDT NEWCH UPPERCA ERROR EX&!-^!B! (B! :#A_*?^{|B)]T*=##lB#SB~!-w#6 F:#|BKB!"-"ߍ"*ߍBͿBʫB ~“B! ^#*s#r!B#BNOP LXIB STAXBINXB INRB DCRB MVIB RLC DHDbMOVHEcMOVHHdMOVHLeMOVHMfMOVHAgMOVLBhMOVLCiMOVLDjMOVLEkMOVLHlMOVLLmMOVLMnMOVLAoMOVMBpMOVMCqMOVMDrMOVMEsMOVMHtMOVMLuHLT vMOVMAwMOVABxMOVACyMOVADzMOVAE{MOVAH|MOVAL}MOVAM~MOVAAADDB ADDC ADDD ADDE ADDH ADDL ADDM ADDA ADCB ADCC ADCD ADCE ADCH AHHANI RST4 RPE PCHL JPE XCHG CPE XRI RST5 RP POPPSJP DI CP PUSHPORI RST6 RM SPHL JM EI CM CPI RST7 "!9 *"! 9^#V!9H"!9^#V!9 !"9* 6#H""!9H*|I DIV 0 $ɯ2KʀKʀKxHK)KͫJ}AK{/oz/g#ͫJ{/_z/W!ͯJɯO>GznK[KnKͫJ{/_z/W}o|g#ɯo>gͫJo>gJ>2!. K. KͫJͫJ!!}|KʹKþKK¹KþKLھKʾKùKLҾKʾKùKITSYN IAL 0NEXTSYM -DOIDENT *DOSPECI 'DOMINIA $DONUMBE COMMENT DOSTRIN RESWRDI RESWRDT NEWCH UPPERCA ERROR EX   !1C D!^!EAB!eAB"C!CAB"C!cAB"CB!^!EAB!eAB"CBe!}1z Formatting7͢!}!s!y!!^#V!^#V{ozgs#r!!!!y^#V!^#V+!{!y^#Vs#r!!^#V####s#r!y!s#O'!*AB !V^^'! *AB<!V^a'!*ABd*@A!V!['! *ABҀ!%!s!%~Ҏ1'1'!!y^#V+s#r!!^#V+^! !!^#V! s!!^#V#! s!!^#V#s#r!!&o! ͮ*!s&*!s*^!ͮ*^!ͮ}X*#! sf*#:&os*^!҉!{!{^#V#s#r""*^#V!**^#V#s#r**^#V+!#^s""*!s#r*!s#r!"#ͬ"*#"*+"|J!!*+!Ü*+^!}o|gs!*#! +"#ͬ"*#"*+"|ʍ!!*+! sf!!}2!}2:&o:&o+!ͮ}o}/!!!G:&o! ͏ ͆C!!}2!:&o#}2Û!:&  BF !!+"#ͬ"*#"*+"|D!}1C$!}1]Pascal/MT+ 5.57͢C!}1͍Program reformatting utility7͢C!}1!Available memory for expansion = 7͢!^#V!^#V{ozg#7?D bytes7͢C!^#V!r!!s#r͔.!%!s!^! ҃!}~ !}1C!}1x/I warned you, the new and old data has collided7͢C!}1ͻ/and the source text in the buffer has been lost7͢C!}1&Type to return to the supervisor7͢C!^#V#s#r!!^#V+s#r1Êw "!!!!{^#V!^#V m!!{^#V^}2t! }2!"!{^#V!^#VҜ*!s&:&o! ͮB!{!{^#V##s#r!}1!.7D!{^#V"*!s!!{^#V^! ͮ^!ͮ!^!ͮ}v!^d**^#V#s#rs**^#V#s#r*!s#rs0sDs}2"""!#!+^!{ͮ}2*!s:&o}/! !#^!*ͮ!#^!)ͮ}o!^!ͮ}o!^!":&o}2:&o"""!^!ͮ!^!ͮ}W"**"%"***^#V+s*^"!!s#!~ҙ"*!!sã"!!s#!~Ҹ"*!!s#!~"*! s#!!s#"""######w""###^#V{ozg#!e!}1]8You do not have much expansion space, Type E now if you7͢C!}1ͩ8have not saved (updated) your file recently and you wish7͢C!}19to do so before you possibly lose it! E)xit or C)ontinue:7͢C!1 D!!V##!'!V^!`͏"!%^!*AB}/o}o!*AB}s!VC'!%!s!*ABҖ!VF'!%!s!*ABҶ* AI'!*ABL'!*AB!VO'!VX'!*AB!!{!{^#V#s#r!!{^#V!!!{!{^#V+s#r&:&o!@:&o!Z }o:&o!a:&o!z }o}o:&o!_ͮ}ҭ*!s&:&o!0:&o!9 }*!s&:&o!'ͮ*!s&:ͮ}o}/ **"ÿk !#^!}ͮ!^!ͮ}o!^!ͮ}o}/k **"! !#^!*ͮ!#^!)ͮ}ҩ **"*!s !#^!}ͮ *!s"!Ü!!"}2*!  "!*+######"#&#c##,%ð%p&"""!^!ͮX#**"8#*!"s"Ý"ŝ"ǝ!^!ͮ#*Ý*ŝ"!^!AB!AB"C!AB"CB}/#*Ý*ŝ"Ò#!^!ͮ#*Ý*ŝ"u#*ǝ!"s!!#   ^s!ӝ!+!#^s!ӝ!+!#^s!}2ם!}2՝:՝&o:ם&o!ͮ}o}/Ҙ$!ӝ!M:ם&o)͆CҊ$!}2՝Õ$:ם&o#}2ם@$:՝&o}/%!}2ם:՝&o:ם&o+!ͮ}o}/%!#^!Q:ם&o^ͮ$!}2՝%:ם&o#^!{ͮ(''**#* #d'Õ'''(I((6)Ô))b**+Ï++c,Ï--Z.!}!y^#VP!{^#Vs!}^}2:&o}2ɞ+'}/'!!y^#V:ɞ&os!y!y^#V#s#r! .'! .'!!^#V#s#r!^#V!ͮ*!!@'*!!@'*!s#ra**^#V!ͮa*!^#V!a*!!@'!B4'}/*!!:':&o!ABҥ*!*s#r:&o!AB}/o4'}y*:&o!AB}/*:&o*='4'}/+!!x-!!@'!^#V*]^#V!H @-!^#V")x-*]^#V!Hr-!H*]^#V{ozg")x-!")*)!R'*'!U'"+"-!/B*-^a'*+^!/A!AB"CB}/-*+*-##*-X'î-L'}2O7'}/.:O! ͏0 BEGIN #! !G! ! ͏G0 REPEAT #! !G! ! ͏r0 RECORD #! !G! ! ͏͝0 CASE #! !G! ! ͏0 CASE #! !G! ! ͏0 OF #! !G!{s!Q!!}s!Q!!;s!Q!!:s!Q!!=s!Q!!(s!Q!!)s!Q!!.s!!s!!s!!!4!!!!!V##!'!!`͏"c*c!AB!}2םë$:՝&%:ם&o}2ɝ$%!"}2ɝ:ɝ&o"ٝ"۝"ݝ*ٝ*۝"*ݝ#s*ݝ^!-ABt%*ٝ*۝"*ݝ^â%!!sï%!!s!!sï%%~%%"ߝ""!^X&***ߝ.o&***ߝ#o&***ߝ#(!}2˞(!}2˞:˞&o!^#V!dͮ:(!}2՞A(!}2՞:՞&o"ߞ"4'}/Ҽ(*!Y!^#V+!͏^s*ߞ!Y!^#V+!͏#^#Vs#r!!^#V+s#r(*! s*ߞ!s#r"}2!!^#V#s#r!Y!^#V+:'!*s#r"!^#V!HҎ+! .'!!^#V#s#r*"U*U^#V!ͮ*U^#V!}Ҏ+*U*U^#V+s#r""*^#V#*+"#ͬ"W*#"*W+"W|+! .'ý+**s#r"!"#*#"Y!*&o!^#V='!^#V!06.!!^#V##s#rY.!^#V!<Y.!!^#V#s#r}2Q7'}/Ҁ.:Q&o!^#V='!!^#Vs#rAã.A3Ã;!G!! ͏. PROGRAM #! !G!! ͏. EXTERNAL #! !G!!! ͏1 FOR #! !G!! ͏I1 WHILE #! !G!! ͏t1 WITH #! !G!! ͏͟1 DO #! !G!! ͏1 IF #! !G!! ͏1 THEN #! !AB"CB*c !!͋BB*c@!!͋BB!'!!`͏"e*e!AB!AB"CB*e !!͋BB*e@!!͋BB!'!!`͏"g*g!AB!AB"C!AB"CB*g !AB!AB"C!AB"CB*g@!!͋BBo&***ߝ#*^!ͮH&***ߝ!#!+^!{ͮ(o&*! so&%%o&%o&K&&o&""!*!**!*!!*"**%*!s#r*^!ͮ'**#**#!+!͏:&os!Y!^#V+!͏#*s#r""*!ғ)!*+"#ͬ"S*#"*S+"S|ʇ)1'n)*!s#r"*^#V!ͮ)!!@'*!s#r"*^#V!ͮ.*!^#V!ͮY^#V+"%#ͬ"[*%#"%*[+"[|E,*Y#*%+^.',*!*!^#V*Y^#Vs#r"'*'"]*]^#V!@'!^#V*]^#V!^#V*]^!AB!AB"CB},!^#V*]^#V"),!^#V")*)*]^#V!H! ͏/ FUNCTION #! !G!! ͏E/ PROCEDURE #! !G!! ͏p/ LABEL #! !G!! ͏͛/ CONST #! !G!! ͏/ TYPE #! !G!! ͏/ VAR #! !G!G!! ͏ 2 ELSE #! !G!! ͏K2 END #! !G!! ͏v2 UNTIL #! !!s#r!!s#r!!s#r!-!AB!AB"CB!M!)2:=#!!M!)2(*#!!Q!!'!!`͏"i*i!AB!AB"C!AB"CB*i !AB!AB"C!AB"C!AB"CB*i@!!͋BB!'!!`͏"k*k!AB!AB"C! AB"CB*k !!͋BB*k@!!͋BB!'!!`͏"m*m!AB    !AB"C!AB"C! AB"CB*m !ABB*m@!!͋BB!'!!`͏"o*o!AB!AB"C!AB"C! AB"CB*o !AB!AB"CB*o@!!͋BB!'!!`͏"q*q!AB!AB"C!AB"C! AB"CB*qAB"C! AB"CB*{ !!͋BB*{@! ABB!'! !`͏"}*}!AB!AB"CB*} !!͋BB*}@! ABB!'!!`͏"*!AB!AB"C!AB"C! AB"CB* !!͋BB*@!ABB!'!AB"C!AB"C! AB"CB* !AB!AB"CB*@!!͋BB!'!!`͏"*!AB!AB"C!AB"C! AB"CB* !AB!AB"C!AB"C!AB"C!AB"C!AB"C! AB"C!AB"C!AB"CB!'!!`͏AB"C!AB"C!AB"C!AB"CB*@!!͋BB!'!!`͏"*!AB! AB"CB* !!͋BB*@!!͋BB!'!!`͏"*!AB!AB"C! AB"CB* !!͋BB*@!!͋BB!'*"! 9^#V!9%B"!9^#V!9 !"9* 6#9B""!97B*|\B`B*:_!9:_!B~Gw @"""!97B*|\B"*|\B}\BB`B*#"*{z»B`B*"!9DM! 9^#V"|C}_F:DxEE !DEE!)E*@:!2yDE}Ex/Gy/O>=UE{E)oE)`E, iEME33ME)vE, ME E DIV 0 $ɯ2¤E F FxEE4E}E{/oz/g#4E{/_z/W!8EɯO>GzEEE4E{/_z/W}o|g#ɯo>g4 !AB!AB"C!AB"CB*q@!!͋BB!'!!`͏"s*s!AB!AB"C! AB"CB*s !AB!AB"C!AB"C!AB"CB*s@!!͋BB!'! !`͏"u*u!AB! AB"CB*u !!͋BB*u@!`͏"*!AB!AB"C!AB"C! AB"CB* !!͋BB*@!ABB!'!!`͏"*!AB!AB"C!AB"C! AB"CB* !!͋BB*@!ABB!'!!`͏"*!AB!AB"CB* !"*!AB!AB"C!AB"C!AB"C!AB"C! AB"CB* !AB!AB"C!AB"C!AB"C!AB"C!AB"C!AB"C!AB"CB*@!AB!AB"C!AB"C!AB"CB!'!!`͏"*!AB!AB"C!AB!!`͏"*!ABB* !!͋BB*@!ABB!'!!`͏"*!!͋BB* !!͋BB*@!!͋BB!'!!`͏"*!ABB* !!͋BB*@!!͋BB!'! !`͏"*_!B~C!"9*C"!9! 9 w#1C! 9*"!9! 9 /w#RC! 9*"!9! 9 w#tC! 9*™C# y‡C!yMD!`iO>͆C}o͆CyCC!!͆CyCCC͆CCüC͆CCC"!Eq* Eo>g}E>2!.͓E.͓E4E4E@UMD 9F@UDV /F@MOD $F@GZF -E@DIV F@XDIVD E@GETCH !E@NEA C@LSA C@LEA C@GTA C@GEA C@SSB CC@SML eC@SST B@BSR B@SS2 BPRINTSY U'MOVELIN R'!!͋BB!'! !`͏"w*w!AB! AB"CB*w !!͋BB*w@!!͋BB!'! !`͏"y*y!AB!AB"C!AB"C! AB"CB*y !!͋BB*y@! ABB!'! !`͏"{*{!AB!AB"C!!͋BB*@!!͋BB!'!!`͏"*!AB!AB"C!AB"CB* !!͋BB*@!ABB!'!!`͏"*!AB! AB"CB* !!͋BB*@!!͋BB!'!!`͏"*!AB!"CB* !!͋BB*@!AB!AB"C!AB"C!AB"CB!'!!`͏"*!ABB* !!͋BB*@!!͋BB!'!!`͏"*!AB!AB"C! AB"CB* !AB!AB"C!AB"C!AB"C!!!͋BB* !!͋BB*@!!͋BB!'!!!`͏"*!ABB* !!͋BB*@!!͋BB!'!"!`͏"*!!͋BB* !!͋BB*@!!͋BB͝.͠.͗.͚."!9 K K*9;~D!E D6*98~!E*9~ !EADzaD-ͺD{/_z/WzD'͓EͭD͓EͭDd͓EͭD ͓EͭDͭD!D!732768>0_0D!DDxúDxzDD{DxGEz/W{/_ ͓EzWRITECR @'PUSHSTA ='POPSTAC :'STACKFU 7'STACKEM 4'PUTCH .'COLLIDE +'GETNEXT #GETSPEC #CHARTYP #GETCHLI #GETNUMB #@EQA CGETIDEN .IDTYPE +GETCOMM (SKIPSPA %STORENX "GETCHAR GOBBLE ['GETSYMB ##INITIAL .INSERTB F'INSERTS O'INSERTC C'LSHIFT     L'LSHIFTO I'PPSYMBO X'PUTLN 1'RSHIFTT a'RSHIFT ^'@SLD A@BST AB@SIN B@SAD "C@CWT D@CRL C@RCH C@WIN ?DPRETTY !   !   "   "   #   #   $   $   %   %   &   &   '   '