/ Carousel / CAROUSEL.cdr / mactosh / lang / mpw_lund.sit / Simula / SExamples / CopyFile.sim

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 43 6f 70 79 46 69 | 6c 65 2e 73 69 6d 00 00 |..CopyFi|le.sim..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 0b 0e 00 | 00 01 7e a0 83 14 94 a0 |........|..~.....|
|00000060| 83 14 94 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 dd 6e 00 00 |........|.....n..|
|00000080| 25 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |% ------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 25 09 43 6f 70 79 |--------|-.%.Copy|
|000000d0| 46 69 6c 65 0d 25 20 20 | 54 68 69 73 20 70 72 6f |File.%  |This pro|
|000000e0| 67 72 61 6d 20 64 65 6d | 6f 6e 73 74 72 61 74 65 |gram dem|onstrate|
|000000f0| 20 68 6f 77 20 74 6f 20 | 75 73 65 20 53 69 6d 75 | how to |use Simu|
|00000100| 6c 61 20 69 6e 74 65 72 | 66 61 63 65 20 74 6f 20 |la inter|face to |
|00000110| 74 68 65 20 0d 25 20 53 | 74 61 6e 64 61 72 64 20 |the .% S|tandard |
|00000120| 46 69 6c 65 20 50 61 63 | 6b 61 67 65 2e 0d 25 20 |File Pac|kage..% |
|00000130| 54 68 65 20 70 72 6f 67 | 72 61 6d 20 61 73 6b 73 |The prog|ram asks|
|00000140| 20 66 6f 72 20 61 20 66 | 69 6c 65 20 74 6f 20 63 | for a f|ile to c|
|00000150| 6f 70 79 2c 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 |opy, the| name of|
|00000160| 20 74 68 65 20 6e 65 77 | 20 66 69 6c 65 20 61 6e | the new| file an|
|00000170| 64 0d 25 20 74 68 65 6e | 20 61 63 74 75 61 6c 6c |d.% then| actuall|
|00000180| 79 20 63 6f 70 69 65 73 | 20 74 68 65 20 66 69 6c |y copies| the fil|
|00000190| 65 2e 20 54 68 65 20 66 | 69 6c 65 20 69 2f 6f 20 |e. The f|ile i/o |
|000001a0| 69 73 20 64 6f 6e 65 20 | 75 73 69 6e 67 20 53 69 |is done |using Si|
|000001b0| 6d 75 6c 61 20 0d 25 20 | 64 65 66 69 6e 65 64 20 |mula .% |defined |
|000001c0| 49 2f 4f 2e 0d 25 20 0d | 25 20 54 68 65 20 70 72 |I/O..% .|% The pr|
|000001d0| 6f 67 72 61 6d 20 65 78 | 63 65 72 73 69 63 65 73 |ogram ex|cersices|
|000001e0| 20 74 68 65 20 72 6f 75 | 69 74 69 6e 65 73 20 53 | the rou|itines S|
|000001f0| 46 47 65 74 46 69 6c 65 | 20 61 6e 64 20 53 46 50 |FGetFile| and SFP|
|00000200| 75 74 46 69 6c 65 0d 25 | 20 66 72 6f 6d 20 63 6c |utFile.%| from cl|
|00000210| 61 73 73 20 6d 61 63 50 | 61 63 6b 69 6e 74 66 2e |ass macP|ackintf.|
|00000220| 20 49 74 20 61 6c 73 6f | 20 75 73 65 65 73 20 74 | It also| usees t|
|00000230| 68 65 20 63 6c 61 73 73 | 20 6d 61 63 53 46 52 65 |he class| macSFRe|
|00000240| 70 6c 79 20 74 68 61 74 | 0d 25 20 68 6f 6c 64 73 |ply that|.% holds|
|00000250| 20 74 68 65 20 72 65 73 | 75 6c 74 20 66 72 6f 6d | the res|ult from|
|00000260| 20 63 61 6c 6c 69 6e 67 | 20 74 68 65 73 65 20 74 | calling| these t|
|00000270| 77 6f 20 70 72 6f 63 65 | 64 75 72 65 73 20 72 65 |wo proce|dures re|
|00000280| 73 70 65 63 74 69 76 65 | 6c 79 2e 0d 25 20 0d 25 |spective|ly..% .%|
|00000290| 0d 25 09 43 6f 6d 70 69 | 6c 65 20 74 68 65 20 70 |.%.Compi|le the p|
|000002a0| 72 6f 67 72 61 6d 20 77 | 69 74 68 20 74 68 65 20 |rogram w|ith the |
|000002b0| 63 6f 6d 6d 61 6e 64 20 | 0d 25 0d 25 09 09 73 69 |command |.%.%..si|
|000002c0| 6d 63 6f 6d 70 20 43 6f | 70 79 46 69 6c 65 0d 25 |mcomp Co|pyFile.%|
|000002d0| 0d 25 09 61 6e 64 20 6c | 69 6e 6b 20 69 74 20 77 |.%.and l|ink it w|
|000002e0| 69 74 68 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |ith the |followin|
|000002f0| 67 20 63 6f 6d 6d 61 6e | 64 3a 0d 25 0d 25 09 09 |g comman|d:.%.%..|
|00000300| 73 69 6d 6c 64 20 43 6f | 70 79 46 69 6c 65 20 2d |simld Co|pyFile -|
|00000310| 74 6f 6f 6c 62 6f 78 20 | 2d 41 50 50 4c 0d 25 20 |toolbox |-APPL.% |
|00000320| 54 68 69 73 20 73 65 71 | 75 65 6e 63 65 20 63 61 |This seq|uence ca|
|00000330| 6e 20 62 65 20 67 65 6e | 65 72 61 74 65 64 20 62 |n be gen|erated b|
|00000340| 79 20 65 6e 74 65 72 69 | 6e 67 20 22 6d 61 6b 65 |y enteri|ng "make|
|00000350| 20 63 6f 70 79 66 69 6c | 65 22 0d 25 0d 25 20 2d | copyfil|e".%.% -|
|00000360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003a0| 2d 2d 2d 2d 2d 2d 0d 62 | 65 67 69 6e 0d 0d 09 65 |------.b|egin...e|
|000003b0| 78 74 65 72 6e 61 6c 20 | 63 6c 61 73 73 20 4d 61 |xternal |class Ma|
|000003c0| 63 50 6f 69 6e 74 3d 22 | 3a 3a 53 49 6e 74 65 72 |cPoint="|::SInter|
|000003d0| 66 61 63 65 73 3a 4d 61 | 63 50 6f 69 6e 74 22 3b |faces:Ma|cPoint";|
|000003e0| 0d 09 65 78 74 65 72 6e | 61 6c 20 63 6c 61 73 73 |..extern|al class|
|000003f0| 20 4d 61 63 53 46 52 65 | 70 6c 79 3d 22 3a 3a 53 | MacSFRe|ply="::S|
|00000400| 49 6e 74 65 72 66 61 63 | 65 73 3a 4d 61 63 53 46 |Interfac|es:MacSF|
|00000410| 52 65 70 6c 79 22 3b 0d | 09 65 78 74 65 72 6e 61 |Reply";.|.externa|
|00000420| 6c 20 63 6c 61 73 73 20 | 4d 61 63 50 61 63 6b 49 |l class |MacPackI|
|00000430| 6e 74 66 3d 22 3a 3a 53 | 49 6e 74 65 72 66 61 63 |ntf="::S|Interfac|
|00000440| 65 73 3a 4d 61 63 50 61 | 63 6b 49 6e 74 66 22 3b |es:MacPa|ckIntf";|
|00000450| 0d 0d 09 72 65 66 28 4d | 61 63 50 61 63 6b 49 6e |...ref(M|acPackIn|
|00000460| 74 66 29 20 6d 79 4d 61 | 63 50 61 63 6b 49 6e 74 |tf) myMa|cPackInt|
|00000470| 66 3b 20 21 20 4e 65 65 | 64 73 20 6f 6e 65 20 6f |f; ! Nee|ds one o|
|00000480| 66 20 74 68 65 73 65 20 | 3b 09 0d 09 72 65 66 28 |f these |;...ref(|
|00000490| 4d 61 63 53 46 52 65 70 | 6c 79 29 20 6d 79 4d 61 |MacSFRep|ly) myMa|
|000004a0| 63 53 46 52 65 70 6c 79 | 3b 20 20 20 21 20 57 69 |cSFReply|;   ! Wi|
|000004b0| 6c 6c 20 68 6f 6c 64 20 | 74 68 65 20 72 65 73 75 |ll hold |the resu|
|000004c0| 6c 74 20 66 72 6f 6d 20 | 3b 20 0d 09 09 09 09 09 |lt from |; ......|
|000004d0| 09 09 09 09 09 09 20 20 | 21 20 63 61 6c 6c 73 20 |......  |! calls |
|000004e0| 74 6f 20 50 61 63 6b 49 | 6e 66 20 3b 0d 09 72 65 |to PackI|nf ;..re|
|000004f0| 66 28 4d 61 63 50 6f 69 | 6e 74 29 20 4c 65 66 74 |f(MacPoi|nt) Left|
|00000500| 55 70 70 65 72 43 6f 72 | 6e 65 72 3b 20 20 21 20 |UpperCor|ner;  ! |
|00000510| 50 6c 61 63 65 6d 65 6e | 74 20 6f 66 20 64 69 61 |Placemen|t of dia|
|00000520| 6c 6f 67 20 62 6f 78 20 | 3b 0d 09 0d 09 72 65 66 |log box |;....ref|
|00000530| 28 6f 75 74 66 69 6c 65 | 29 20 6d 79 4f 75 74 46 |(outfile|) myOutF|
|00000540| 69 6c 65 3b 20 21 20 73 | 69 6d 75 6c 61 20 66 69 |ile; ! s|imula fi|
|00000550| 6c 65 73 20 2d 20 75 73 | 65 64 20 74 6f 20 63 6f |les - us|ed to co|
|00000560| 70 79 20 3b 0d 09 72 65 | 66 28 69 6e 66 69 6c 65 |py ;..re|f(infile|
|00000570| 29 20 6d 79 49 6e 46 69 | 6c 65 3b 0d 09 74 65 78 |) myInFi|le;..tex|
|00000580| 74 20 61 72 72 61 79 20 | 54 79 70 65 4c 69 73 74 |t array |TypeList|
|00000590| 28 30 3a 30 29 3b 09 21 | 20 41 20 54 79 70 65 4c |(0:0);.!| A TypeL|
|000005a0| 69 73 74 20 68 61 73 20 | 74 6f 20 62 65 20 61 20 |ist has |to be a |
|000005b0| 6f 6e 65 20 64 69 6d 65 | 6e 73 69 6f 6e 61 6c 0d |one dime|nsional.|
|000005c0| 09 09 09 09 09 09 09 09 | 09 09 21 20 74 65 78 74 |........|..! text|
|000005d0| 20 61 72 72 61 79 20 77 | 69 74 68 20 6c 6f 77 65 | array w|ith lowe|
|000005e0| 72 69 6e 64 65 78 20 3d | 20 30 20 61 6e 64 0d 09 |rindex =| 0 and..|
|000005f0| 09 09 09 09 09 09 09 09 | 09 21 20 75 70 70 65 72 |........|.! upper|
|00000600| 69 6e 64 65 78 20 3c 3d | 20 33 2e 20 45 76 65 72 |index <=| 3. Ever|
|00000610| 79 20 65 6c 65 6d 65 6e | 74 0d 09 09 09 09 09 09 |y elemen|t.......|
|00000620| 09 09 09 09 21 20 68 61 | 73 20 74 6f 20 62 65 20 |....! ha|s to be |
|00000630| 61 20 66 6f 75 72 20 63 | 68 61 72 61 63 74 65 72 |a four c|haracter|
|00000640| 20 74 65 78 74 2e 3b 0d | 09 09 0d 09 4c 65 66 74 | text.;.|....Left|
|00000650| 55 70 70 65 72 43 6f 72 | 6e 65 72 3a 2d 6e 65 77 |UpperCor|ner:-new|
|00000660| 20 4d 61 63 50 6f 69 6e | 74 3b 09 21 20 4c 65 66 | MacPoin|t;.! Lef|
|00000670| 74 55 70 70 65 72 43 6f | 72 6e 65 72 20 6f 66 20 |tUpperCo|rner of |
|00000680| 44 69 61 6c 6f 67 20 57 | 69 6e 64 6f 77 3b 0d 09 |Dialog W|indow;..|
|00000690| 4c 65 66 74 55 70 70 65 | 72 43 6f 72 6e 65 72 2e |LeftUppe|rCorner.|
|000006a0| 68 3a 3d 32 30 3b 0d 09 | 4c 65 66 74 55 70 70 65 |h:=20;..|LeftUppe|
|000006b0| 72 43 6f 72 6e 65 72 2e | 76 3a 3d 32 30 3b 0d 0d |rCorner.|v:=20;..|
|000006c0| 09 6d 79 4d 61 63 50 61 | 63 6b 49 6e 74 66 3a 2d |.myMacPa|ckIntf:-|
|000006d0| 20 6e 65 77 20 4d 61 63 | 50 61 63 6b 49 6e 74 66 | new Mac|PackIntf|
|000006e0| 3b 0d 09 54 79 70 65 4c | 69 73 74 28 30 29 3a 2d |;..TypeL|ist(0):-|
|000006f0| 63 6f 70 79 28 22 54 45 | 58 54 22 29 3b 09 0d 09 |copy("TE|XT");...|
|00000700| 6d 79 4d 61 63 53 46 52 | 65 70 6c 79 3a 2d 6e 65 |myMacSFR|eply:-ne|
|00000710| 77 20 4d 61 63 53 46 52 | 65 70 6c 79 3b 09 0d 09 |w MacSFR|eply;...|
|00000720| 6d 79 4d 61 63 50 61 63 | 6b 49 6e 74 66 2e 53 46 |myMacPac|kIntf.SF|
|00000730| 47 65 74 46 69 6c 65 28 | 4c 65 66 74 55 70 70 65 |GetFile(|LeftUppe|
|00000740| 72 43 6f 72 6e 65 72 2c | 6e 6f 74 65 78 74 2c 0d |rCorner,|notext,.|
|00000750| 09 09 30 2c 31 2c 54 79 | 70 65 4c 69 73 74 2c 30 |..0,1,Ty|peList,0|
|00000760| 2c 6d 79 4d 61 63 53 46 | 52 65 70 6c 79 29 3b 0d |,myMacSF|Reply);.|
|00000770| 09 69 6e 73 70 65 63 74 | 20 6d 79 4d 61 63 53 46 |.inspect| myMacSF|
|00000780| 52 65 70 6c 79 20 64 6f | 0d 09 62 65 67 69 6e 0d |Reply do|..begin.|
|00000790| 09 09 69 66 20 47 6f 6f | 64 20 74 68 65 6e 0d 09 |..if Goo|d then..|
|000007a0| 09 62 65 67 69 6e 0d 09 | 09 09 6d 79 49 6e 46 69 |.begin..|..myInFi|
|000007b0| 6c 65 3a 2d 6e 65 77 20 | 69 6e 66 69 6c 65 28 66 |le:-new |infile(f|
|000007c0| 6e 61 6d 65 29 3b 0d 09 | 09 09 69 66 20 6e 6f 74 |name);..|..if not|
|000007d0| 20 6d 79 49 6e 46 69 6c | 65 2e 6f 70 65 6e 28 62 | myInFil|e.open(b|
|000007e0| 6c 61 6e 6b 73 28 31 33 | 32 29 29 20 74 68 65 6e |lanks(13|2)) then|
|000007f0| 0d 09 09 09 09 45 72 72 | 6f 72 28 22 54 68 65 20 |.....Err|or("The |
|00000800| 69 6e 66 69 6c 65 20 63 | 6f 75 6c 64 20 6e 6f 74 |infile c|ould not|
|00000810| 20 62 65 20 6f 70 65 6e | 65 64 22 29 3b 0d 09 09 | be open|ed");...|
|00000820| 65 6e 64 0d 09 09 65 6c | 73 65 0d 09 09 09 45 72 |end...el|se....Er|
|00000830| 72 6f 72 28 22 4e 6f 20 | 69 6e 66 69 6c 65 22 29 |ror("No |infile")|
|00000840| 3b 0d 09 65 6e 64 3b 0d | 0d 09 6d 79 4d 61 63 50 |;..end;.|..myMacP|
|00000850| 61 63 6b 49 6e 74 66 2e | 53 46 50 75 74 46 69 6c |ackIntf.|SFPutFil|
|00000860| 65 28 4c 65 66 74 55 70 | 70 65 72 43 6f 72 6e 65 |e(LeftUp|perCorne|
|00000870| 72 2c 22 53 61 76 65 20 | 64 6f 63 75 6d 65 6e 74 |r,"Save |document|
|00000880| 20 61 73 22 2c 20 0d 09 | 09 6e 6f 74 65 78 74 2c | as", ..|.notext,|
|00000890| 20 30 2c 20 6d 79 4d 61 | 63 53 46 52 65 70 6c 79 | 0, myMa|cSFReply|
|000008a0| 29 3b 09 09 0d 09 69 6e | 73 70 65 63 74 20 6d 79 |);....in|spect my|
|000008b0| 4d 61 63 53 46 52 65 70 | 6c 79 20 64 6f 0d 09 62 |MacSFRep|ly do..b|
|000008c0| 65 67 69 6e 0d 09 09 69 | 66 20 47 6f 6f 64 20 74 |egin...i|f Good t|
|000008d0| 68 65 6e 0d 09 09 62 65 | 67 69 6e 0d 09 09 09 6d |hen...be|gin....m|
|000008e0| 79 4f 75 74 66 69 6c 65 | 3a 2d 6e 65 77 20 6f 75 |yOutfile|:-new ou|
|000008f0| 74 66 69 6c 65 28 66 6e | 61 6d 65 29 3b 0d 09 09 |tfile(fn|ame);...|
|00000900| 09 69 66 20 6e 6f 74 20 | 6d 79 4f 75 74 66 69 6c |.if not |myOutfil|
|00000910| 65 2e 6f 70 65 6e 28 62 | 6c 61 6e 6b 73 28 31 33 |e.open(b|lanks(13|
|00000920| 32 29 29 20 74 68 65 6e | 0d 09 09 09 09 45 72 72 |2)) then|.....Err|
|00000930| 6f 72 28 22 54 68 65 20 | 6f 75 74 66 69 6c 65 20 |or("The |outfile |
|00000940| 63 6f 75 6c 64 20 6e 6f | 74 20 62 65 20 6f 70 65 |could no|t be ope|
|00000950| 6e 65 64 22 29 3b 0d 09 | 09 65 6e 64 0d 09 09 65 |ned");..|.end...e|
|00000960| 6c 73 65 0d 09 09 09 45 | 72 72 6f 72 28 22 4e 6f |lse....E|rror("No|
|00000970| 20 6f 75 74 66 69 6c 65 | 22 29 3b 0d 09 65 6e 64 | outfile|");..end|
|00000980| 3b 0d 09 0d 09 62 65 67 | 69 6e 0d 09 09 62 6f 6f |;....beg|in...boo|
|00000990| 6c 65 61 6e 20 6c 6f 6e | 67 69 6d 61 67 65 3b 20 |lean lon|gimage; |
|000009a0| 21 20 72 65 73 75 6c 74 | 20 6f 66 20 69 6e 72 65 |! result| of inre|
|000009b0| 63 6f 72 64 3a 20 74 72 | 75 65 0d 09 09 20 20 20 |cord: tr|ue...   |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009d0| 21 20 69 66 20 69 6d 61 | 67 65 20 77 61 73 20 66 |! if ima|ge was f|
|000009e0| 69 6c 6c 65 64 20 62 75 | 74 0d 09 09 09 09 09 09 |illed bu|t.......|
|000009f0| 09 09 20 21 20 6e 6f 20 | 6c 69 6e 65 2d 74 65 72 |.. ! no |line-ter|
|00000a00| 6d 69 6e 61 74 65 72 20 | 77 61 73 20 66 6f 75 6e |minater |was foun|
|00000a10| 64 2e 3b 0d 09 21 20 2d | 2d 20 75 73 65 20 73 61 |d.;..! -|- use sa|
|00000a20| 6d 65 20 69 6d 61 67 65 | 20 2d 20 6e 6f 20 69 6e |me image| - no in|
|00000a30| 74 65 72 6e 61 6c 20 63 | 6f 70 79 69 6e 67 20 6e |ternal c|opying n|
|00000a40| 65 65 64 65 64 21 2d 2d | 3b 0d 09 09 6d 79 4f 75 |eeded!--|;...myOu|
|00000a50| 74 66 69 6c 65 2e 69 6d | 61 67 65 3a 2d 6d 79 49 |tfile.im|age:-myI|
|00000a60| 6e 46 69 6c 65 2e 69 6d | 61 67 65 3b 0d 09 0d 09 |nFile.im|age;....|
|00000a70| 09 6c 6f 6e 67 69 6d 61 | 67 65 3a 3d 6d 79 49 6e |.longima|ge:=myIn|
|00000a80| 66 69 6c 65 2e 69 6e 72 | 65 63 6f 72 64 3b 0d 09 |file.inr|ecord;..|
|00000a90| 09 77 68 69 6c 65 20 6e | 6f 74 20 6d 79 49 6e 46 |.while n|ot myInF|
|00000aa0| 69 6c 65 2e 65 6e 64 66 | 69 6c 65 20 64 6f 0d 09 |ile.endf|ile do..|
|00000ab0| 09 62 65 67 69 6e 0d 09 | 09 09 6d 79 4f 75 74 66 |.begin..|..myOutf|
|00000ac0| 69 6c 65 2e 73 65 74 70 | 6f 73 28 6d 79 49 6e 66 |ile.setp|os(myInf|
|00000ad0| 69 6c 65 2e 70 6f 73 29 | 3b 0d 09 09 09 69 66 20 |ile.pos)|;....if |
|00000ae0| 6c 6f 6e 67 69 6d 61 67 | 65 20 74 68 65 6e 0d 09 |longimag|e then..|
|00000af0| 09 09 09 6d 79 4f 75 74 | 66 69 6c 65 2e 6f 75 74 |...myOut|file.out|
|00000b00| 72 65 63 6f 72 64 0d 09 | 09 09 65 6c 73 65 20 0d |record..|..else .|
|00000b10| 09 09 09 09 6d 79 4f 75 | 74 66 69 6c 65 2e 6f 75 |....myOu|tfile.ou|
|00000b20| 74 69 6d 61 67 65 3b 0d | 09 09 09 6c 6f 6e 67 69 |timage;.|...longi|
|00000b30| 6d 61 67 65 3a 3d 6d 79 | 49 6e 66 69 6c 65 2e 69 |mage:=my|Infile.i|
|00000b40| 6e 72 65 63 6f 72 64 3b | 0d 09 09 65 6e 64 3b 0d |nrecord;|...end;.|
|00000b50| 09 65 6e 64 20 2d 20 69 | 6e 6e 65 72 20 62 6c 6f |.end - i|nner blo|
|00000b60| 63 6b 20 2d 2d 3b 0d 09 | 6d 79 49 6e 46 69 6c 65 |ck --;..|myInFile|
|00000b70| 2e 63 6c 6f 73 65 3b 0d | 09 6d 79 4f 75 74 46 69 |.close;.|.myOutFi|
|00000b80| 6c 65 2e 63 6c 6f 73 65 | 3b 0d 65 6e 64 3b 00 00 |le.close|;.end;..|
|00000b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000c10| 02 67 2c 2f 0f 2f 38 0a | 02 a8 a9 2f 17 a8 93 2f |.g,/./8.|.../.../|
|00000c20| 2f 00 04 a8 91 3f 2f 00 | 06 3f 2f 00 02 53 57 a8 |/....?/.|.?/..SW.|
|00000c30| 0c 43 6f 70 79 46 69 6c | 65 2e 73 69 6d 6c 02 00 |.CopyFil|e.siml..|
|00000c40| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 60 |..TEXTMP|S .....`|
|00000c50| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 00 00 60 |..TEXTMP|S .....`|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 a0 6e 95 02 00 00 | 00 00 00 00 01 7e 82 48 |...n....|.....~.H|
|00000c80| 6e ff ec a8 98 a8 9e 0c | 78 3f ff 02 8e 53 ee ff |n.......|x?...S..|
|00000c90| ea 62 32 20 55 20 50 48 | 6e ff d4 aa 19 48 6e ff |.b2 U PH|n....Hn.|
|00000ca0| ce aa 1a 42 a7 42 27 2f | 2e 00 0e 48 6f 00 06 aa |...B.B'/|...Ho...|
|00000cb0| 44 54 4f 20 5f 20 50 20 | 68 00 08 2d 48 ff de a0 |DTO _ P |h..-H...|
|00000cc0| 29 2d 50 ff da 41 ee 00 | 08 26 18 30 18 26 58 3c |)-P..A..|.&.0.&X<|
|00000cd0| 18 42 90 20 53 d0 40 43 | fa 00 34 d2 f1 00 00 4e |.B. S.@C|..4....N|
|00000ce0| 91 48 6e ff ec a8 99 4a | 2e ff ea 67 12 20 6e ff |.Hn....J|...g. n.|
|00000cf0| de a0 2a 48 6e ff d4 aa | 14 48 6e ff ce aa 15 4c |..*Hn...|.Hn....L|
|00000d00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 7c 00 00 |...H..Mo|naco.|..|
|00000d10| 00 12 00 01 01 2a 00 0a | 00 71 01 ae 00 7c 01 d6 |.....*..|.q...|..|
|00000d20| 00 00 00 12 00 01 00 06 | 00 03 00 2b 00 0a 01 75 |........|...+...u|
|00000d30| 01 89 00 2b 00 0a 01 75 | 01 89 a0 82 ce 44 00 00 |...+...u|.....D..|
|00000d40| 02 d9 00 00 02 d9 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00000d50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 67 ac e8 |...L...L|...2.g..|
|00000d60| 04 6a 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.j.....2|..MPSR..|
|00000d70| 00 0a 03 ed ff ff 00 00 | 00 00 00 68 ae 14 00 00 |........|...h....|
+--------+-------------------------+-------------------------+--------+--------+