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!^#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!!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#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!1 D!!V##!'!V^!`͏"!%^!*AB}/o}o!*AB}s!VC'!%!s!*ABҖ!VF'!%!s!*ABҶ* AI'!*ABL'!*AB!VO'!VX'!*AB!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!!^#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#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! ͮ*!s&*!s*^!ͮ*^!ͮ}X*#! sf*#:&os*^!҉!{!{^#V#s#r""*^#V!**^#V#s#r**^#V+!#^s""*!s#r*!s#r!^!ͮ!^!ͮ}v!^d**^#V#s#rs**^#V#s#r*!s#rs0sDs}2"""!#!+^!{ͮ}2*!s:&o}/! !#^!*ͮ!#^!)ͮ}o!^!ͮ}o!^!ͮ}o}/ **"ÿk !#^!}ͮ!^!ͮ}o!^!ͮ}o}/k **"! !#^!*ͮ!#^!)ͮ}ҩ **"*!s !#^!}ͮ *!s"!Ü!!"}2*!  "!*+"#ͬ"*#"*+"|J!!*+!Ü*+^!}o|gs!*#! +"#ͬ"*#"*+"|ʍ!!*+! sf!!}2!}2:&o:&o+!ͮ}o}/!!!G:&o! ͏ ͆C!!}2!:&o#}2Û!:& ":&o}2:&o"""!^!ͮ!^!ͮ}W"**"%"***^#V+s*^"!!s#!~ҙ"*!!sã"!!s#!~Ҹ"*!!s#!~"*! s#!!s#"""######w""#########"#&#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#}2םë$:՝&%:ם&o}2ɝ$%!"}2ɝ:ɝ&o"ٝ"۝"ݝ*ٝ*۝"*ݝ#s*ݝ^!-ABt%*ٝ*۝"*ݝ^â%!!sï%!!s!!sï%%~%%"ߝ""!^X&***ߝ.o&***ߝ#o&***ߝ#o&***ߝ#*^!ͮH&***ߝ!#!+^!{ͮ(o&*! so&%%o&%o&K&&o&""!*!**!*!!*"**%*!s#r*^!ͮ'**#**#!+^!{ͮ(''**#* #d'Õ'''(I((6)Ô))b**+Ï++c,Ï--Z.!}!y^#VP!{^#Vs!}^}2:&o}2ɞ+'}/'!!y^#V:ɞ&os!y!y^#V#s#r! .'! .'!!^#V#s#r!^#V!ͮ(!}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+!͏:&os!Y!^#V+!͏#*s#r""*!ғ)!*+"#ͬ"S*#"*S+"S|ʇ)1'n)*!s#r"*^#V!ͮ)!!@'*!s#r"*^#V!ͮ.*!^#V!ͮ*!!@'*!!@'*!s#ra**^#V!ͮa*!^#V!a*!!@'!B4'}/*!!:':&o!ABҥ*!*s#r:&o!AB}/o4'}y*:&o!AB}/*:&o*='4'}/+!!:'!*s#r"!^#V!HҎ+! .'!!^#V#s#r*"U*U^#V!ͮ*U^#V!}Ҏ+*U*U^#V+s#r""*^#V#*+"#ͬ"W*#"*W+"W|+! .'ý+**s#r"!"#*#"Y!*Y^#V+"%#ͬ"[*%#"%*[+"[|E,*Y#*%+^.',*!*!^#V*Y^#Vs#r"'*'"]*]^#V!@'!^#V*]^#V!^#V*]^!AB!AB"CB},!^#V*]^#V"),!^#V")*)*]^#V!Hx-!!@'!^#V*]^#V!H @-!^#V")x-*]^#V!Hr-!H*]^#V{ozg")x-!")*)!R'*'!U'"+"-!/B*-^a'*+^!/A!AB"CB}/-*+*-##*-X'î-L'}2O7'}/.:O&o!^#V='!^#V!06.!!^#V##s#rY.!^#V!<Y.!!^#V#s#r}2Q7'}/Ҁ.:Q&o!^#V='!!^#Vs#rAã.A3Ã;!G!! ͏. PROGRAM #! !G!! ͏. EXTERNAL #! !G!! ͏/ FUNCTION #! !G!! ͏E/ PROCEDURE #! !G!! ͏p/ LABEL #! !G!! ͏͛/ CONST #! !G!! ͏/ TYPE #! !G!! ͏/ VAR #! !G!! ͏0 BEGIN #! !G! ! ͏G0 REPEAT #! !G! ! ͏r0 RECORD #! !G! ! ͏͝0 CASE #! !G! ! ͏0 CASE #! !G! ! ͏0 OF #! !G!! ͏1 FOR #! !G!! ͏I1 WHILE #! !G!! ͏t1 WITH #! !G!! ͏͟1 DO #! !G!! ͏1 IF #! !G!! ͏1 THEN #! !G!! ͏ 2 ELSE #! !G!! ͏K2 END #! !G!! ͏v2 UNTIL #! !!s#r!!s#r!!s#r!-!AB!AB"CB!M!)2:=#!!M!)2(*#!!Q!!{s!Q!!}s!Q!!;s!Q!!:s!Q!!=s!Q!!(s!Q!!)s!Q!!.s!!s!!s!!!4!!!!!V##!'!!`͏"c*c!AB!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@!!͋BB!'!!`͏"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*q !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@!!͋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!AB"C! AB"CB*{ !!͋BB*{@! ABB!'! !`͏"}*}!AB!AB"CB*} !!͋BB*}@! ABB!'!!`͏"*!AB!AB"C!AB"C! AB"CB* !!͋BB*@!ABB!'!!`͏"*!AB!AB"C!AB"C! AB"CB* !!͋BB*@!ABB!'!!`͏"*!AB!AB"C!AB"C! AB"CB* !!͋BB*@!ABB!'!!`͏"*!AB!AB"CB* !!͋BB*@!!͋BB!'!!`͏"*!AB!AB"C!AB"CB* !!͋BB*@!ABB!'!!`͏"*!AB! AB"CB* !!͋BB*@!!͋BB!'!!`͏"*!AB!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!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"CB* !!͋BB*@!AB!AB"C!AB"C!AB"CB!'!!`͏"*!ABB* !!͋BB*@!!͋BB!'!!`͏"*!AB!AB"C! AB"CB* !AB!AB"C!AB"C!AB"C!AB"C!AB"C!AB"C!AB"CB*@!!͋BB!'!!`͏"*!AB! AB"CB* !!͋BB*@!!͋BB!'!!`͏"*!AB!AB"C! AB"CB* !!͋BB*@!!͋BB!'!!`͏"*!ABB* !!͋BB*@!ABB!'!!`͏"*!!͋BB* !!͋BB*@!!͋BB!'!!`͏"*!ABB* !!͋BB*@!!͋BB!'! !`͏"*!!͋BB* !!͋BB*@!!͋BB!'!!!`͏"*!ABB* !!͋BB*@!!͋BB!'!"!`͏"*!!͋BB* !!͋BB*@!!͋BB͝.͠.͗.͚."!9 *"! 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:_!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* 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{/_ ͓EzDxEE !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>g4Eo>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'WRITECR @'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