Carousel Volume 2 #1

home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / fkey / pathname.sit / Pathname.Pas < prev next >
MacBinary | 1986-07-17 | 3.3 KB | [TEXT/EDIT]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: Pathname.Pas
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	TheDraw Pascal screen Image `(image/theDrawPascalScreenImage)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Thu Jul 17 15:00:23 1986, modified Thu Jul 17 15:00:23 1986, creator Macintosh Edit, type ASCII, 2777 bytes "Pathname.Pas" , at 0xb59 348 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[EDIT]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 50 61 74 68 6e 61 | 6d 65 2e 50 61 73 00 00 |..Pathna|me.Pas..|
|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 45 44 49 | 54 01 00 00 00 00 00 00 |.TEXTEDI|T.......|
|00000050| 00 00 00 00 00 0a d9 00 | 00 01 5c 9b 42 f1 47 9b |........|..\.B.G.|
|00000060| 42 f1 47 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |B.G.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 4f 72 00 00 |........|....Or..|
|00000080| 7b 20 43 6f 6d 70 69 6c | 65 20 61 73 20 61 20 44 |{ Compil|e as a D|
|00000090| 41 21 20 7d 0d 0d 7b 24 | 68 20 27 20 27 7d 09 7b |A! }..{$|h ' '}.{|
|000000a0| 77 65 20 64 6f 6e 74 20 | 77 61 6e 74 20 61 20 50 |we dont |want a P|
|000000b0| 61 73 24 44 65 73 6b 41 | 63 63 48 65 61 64 65 72 |as$DeskA|ccHeader|
|000000c0| 20 7d 0d 7b 24 63 20 27 | 46 4b 45 59 27 20 36 20 | }.{$c '|FKEY' 6 |
|000000d0| 27 50 61 74 68 6e 61 6d | 65 27 20 7d 09 7b 43 72 |'Pathnam|e' }.{Cr|
|000000e0| 65 61 74 65 20 61 20 46 | 4b 45 59 20 72 65 73 6f |eate a F|KEY reso|
|000000f0| 75 72 63 65 20 77 69 74 | 68 20 61 20 49 44 20 3d |urce wit|h a ID =|
|00000100| 20 36 7d 0d 7b 24 74 20 | 46 4b 45 59 20 52 53 45 | 6}.{$t |FKEY RSE|
|00000110| 44 20 7d 0d 0d 7b 0d 20 | 20 54 68 69 73 20 69 73 |D }..{. | This is|
|00000120| 20 61 6e 20 46 4b 45 59 | 20 74 68 61 74 20 77 69 | an FKEY| that wi|
|00000130| 6c 6c 20 70 72 65 73 65 | 6e 74 20 74 68 65 20 55 |ll prese|nt the U|
|00000140| 73 65 72 20 77 69 74 68 | 20 74 68 65 20 73 74 61 |ser with| the sta|
|00000150| 6e 64 61 72 64 20 53 46 | 47 65 74 0d 20 20 64 69 |ndard SF|Get.  di|
|00000160| 61 6c 6f 67 20 62 6f 78 | 2e 20 20 54 68 65 20 65 |alog box|.  The e|
|00000170| 6e 74 69 72 65 20 48 46 | 53 20 70 61 74 68 6e 61 |ntire HF|S pathna|
|00000180| 6d 65 20 6f 66 20 74 68 | 65 20 66 6f 72 6d 0d 20 |me of th|e form. |
|00000190| 20 0d 20 20 64 69 73 6b | 3a 66 6f 6c 64 65 72 3a | .  disk|:folder:|
|000001a0| 66 6f 6c 64 65 72 3a 20 | 2e 2e 2e 20 3a 66 69 6c |folder: |... :fil|
|000001b0| 65 0d 20 20 0d 20 20 77 | 69 6c 6c 20 62 65 20 63 |e.  .  w|ill be c|
|000001c0| 6f 70 69 65 64 20 69 6e | 74 6f 20 74 68 65 20 63 |opied in|to the c|
|000001d0| 6c 69 70 62 6f 61 72 64 | 20 66 6f 72 20 73 75 62 |lipboard| for sub|
|000001e0| 73 65 71 75 65 6e 74 20 | 70 61 73 74 69 6e 67 2e |sequent |pasting.|
|000001f0| 0d 20 20 0d 20 20 54 68 | 69 73 20 69 73 20 75 73 |.  .  Th|is is us|
|00000200| 65 66 75 6c 20 66 6f 72 | 20 53 6c 69 64 65 73 68 |eful for| Slidesh|
|00000210| 6f 77 20 70 72 65 73 65 | 6e 74 61 74 69 6f 6e 73 |ow prese|ntations|
|00000220| 20 61 6e 64 20 73 70 65 | 63 69 66 79 69 6e 67 20 | and spe|cifying |
|00000230| 69 6e 63 6c 75 64 65 0d | 20 20 66 69 6c 65 73 2e |include.|  files.|
|00000240| 0d 20 20 0d 20 20 57 72 | 69 74 74 65 6e 20 62 79 |.  .  Wr|itten by|
|00000250| 20 3a 0d 09 4a 6f 6e 20 | 50 75 67 68 0d 09 4c 61 | :..Jon |Pugh..La|
|00000260| 77 72 65 6e 63 65 20 4c | 69 76 65 72 6d 6f 72 65 |wrence L|ivermore|
|00000270| 20 4e 61 74 69 6f 6e 61 | 6c 20 4c 61 62 0d 09 50 | Nationa|l Lab..P|
|00000280| 4f 20 42 6f 78 20 35 35 | 30 39 20 4c 2d 35 36 31 |O Box 55|09 L-561|
|00000290| 0d 09 4c 69 76 65 72 6d | 6f 72 65 20 43 41 20 39 |..Liverm|ore CA 9|
|000002a0| 34 35 35 30 0d 09 28 34 | 31 35 29 20 34 32 33 2d |4550..(4|15) 423-|
|000002b0| 34 32 33 39 0d 0d 20 20 | 43 6f 70 79 72 69 67 68 |4239..  |Copyrigh|
|000002c0| 74 20 31 39 38 36 2e 20 | 20 41 6c 6c 20 72 69 67 |t 1986. | All rig|
|000002d0| 68 74 73 20 72 65 73 65 | 72 76 65 64 2e 20 20 54 |hts rese|rved.  T|
|000002e0| 68 69 73 20 6d 61 79 20 | 62 65 20 66 72 65 65 6c |his may |be freel|
|000002f0| 79 20 64 69 73 74 72 69 | 62 75 74 65 64 0d 20 20 |y distri|buted.  |
|00000300| 61 73 20 6c 6f 6e 67 20 | 61 73 20 79 6f 75 20 64 |as long |as you d|
|00000310| 6f 6e 27 74 20 74 72 79 | 20 61 6e 64 20 63 6c 61 |on't try| and cla|
|00000320| 69 6d 20 69 74 20 6f 72 | 20 73 65 6c 6c 20 69 74 |im it or| sell it|
|00000330| 2e 20 20 49 66 20 79 6f | 75 20 70 61 69 64 20 6d |.  If yo|u paid m|
|00000340| 6f 6e 65 79 20 0d 20 20 | 66 6f 72 20 74 68 69 73 |oney .  |for this|
|00000350| 20 74 68 65 6e 20 79 6f | 75 20 68 61 76 65 20 62 | then yo|u have b|
|00000360| 65 65 6e 20 68 61 64 21 | 0d 7d 0d 0d 50 72 6f 67 |een had!|.}..Prog|
|00000370| 72 61 6d 20 46 69 6e 64 | 50 61 74 68 4e 61 6d 65 |ram Find|PathName|
|00000380| 3b 0d 0d 7b 24 49 20 27 | 4d 69 63 61 68 44 72 69 |;..{$I '|MicahDri|
|00000390| 76 65 3a 54 4d 4c 20 50 | 61 73 63 61 6c 3a 50 61 |ve:TML P|ascal:Pa|
|000003a0| 73 63 61 6c 20 53 79 73 | 74 65 6d 3a 4d 65 6d 54 |scal Sys|tem:MemT|
|000003b0| 79 70 65 73 2e 69 70 61 | 73 27 20 20 7d 0d 7b 24 |ypes.ipa|s'  }.{$|
|000003c0| 49 20 27 4d 69 63 61 68 | 44 72 69 76 65 3a 54 4d |I 'Micah|Drive:TM|
|000003d0| 4c 20 50 61 73 63 61 6c | 3a 50 61 73 63 61 6c 20 |L Pascal|:Pascal |
|000003e0| 53 79 73 74 65 6d 3a 51 | 75 69 63 6b 44 72 61 77 |System:Q|uickDraw|
|000003f0| 2e 69 70 61 73 27 20 7d | 0d 7b 24 49 20 27 4d 69 |.ipas' }|.{$I 'Mi|
|00000400| 63 61 68 44 72 69 76 65 | 3a 54 4d 4c 20 50 61 73 |cahDrive|:TML Pas|
|00000410| 63 61 6c 3a 50 61 73 63 | 61 6c 20 53 79 73 74 65 |cal:Pasc|al Syste|
|00000420| 6d 3a 4f 53 69 6e 74 66 | 2e 69 70 61 73 27 20 20 |m:OSintf|.ipas'  |
|00000430| 20 20 7d 0d 7b 24 49 20 | 27 4d 69 63 61 68 44 72 |  }.{$I |'MicahDr|
|00000440| 69 76 65 3a 54 4d 4c 20 | 50 61 73 63 61 6c 3a 50 |ive:TML |Pascal:P|
|00000450| 61 73 63 61 6c 20 53 79 | 73 74 65 6d 3a 54 6f 6f |ascal Sy|stem:Too|
|00000460| 6c 49 6e 74 66 2e 69 70 | 61 73 27 20 20 7d 0d 7b |lIntf.ip|as'  }.{|
|00000470| 24 49 20 27 4d 69 63 61 | 68 44 72 69 76 65 3a 54 |$I 'Mica|hDrive:T|
|00000480| 4d 4c 20 50 61 73 63 61 | 6c 3a 50 61 73 63 61 6c |ML Pasca|l:Pascal|
|00000490| 20 53 79 73 74 65 6d 3a | 50 61 63 6b 49 6e 74 66 | System:|PackIntf|
|000004a0| 2e 69 70 61 73 27 20 20 | 7d 0d 7b 24 49 20 27 4d |.ipas'  |}.{$I 'M|
|000004b0| 69 63 61 68 44 72 69 76 | 65 3a 54 4d 4c 20 50 61 |icahDriv|e:TML Pa|
|000004c0| 73 63 61 6c 3a 50 61 73 | 63 61 6c 20 53 79 73 74 |scal:Pas|cal Syst|
|000004d0| 65 6d 3a 48 46 53 2e 69 | 70 61 73 27 20 20 20 20 |em:HFS.i|pas'    |
|000004e0| 20 20 20 7d 0d 0d 50 72 | 6f 63 65 64 75 72 65 20 |   }..Pr|ocedure |
|000004f0| 50 61 74 68 4e 61 6d 65 | 3b 0d 43 6f 6e 73 74 0d |PathName|;.Const.|
|00000500| 09 46 53 46 43 42 4c 65 | 6e 09 3d 20 24 33 46 36 |.FSFCBLe|n.= $3F6|
|00000510| 3b 0d 56 41 52 0d 09 6d | 79 50 74 09 3a 20 50 6f |;.VAR..m|yPt.: Po|
|00000520| 69 6e 74 3b 0d 09 63 61 | 74 50 42 09 3a 20 43 49 |int;..ca|tPB.: CI|
|00000530| 6e 66 6f 50 42 52 65 63 | 3b 0d 09 76 6f 6c 50 42 |nfoPBRec|;..volPB|
|00000540| 09 3a 20 50 61 72 61 6d | 42 6c 6f 63 6b 52 65 63 |.: Param|BlockRec|
|00000550| 3b 0d 09 61 6e 45 72 72 | 09 3a 20 4f 53 45 72 72 |;..anErr|.: OSErr|
|00000560| 3b 0d 09 72 65 70 6c 79 | 09 3a 20 53 46 52 65 70 |;..reply|.: SFRep|
|00000570| 6c 79 3b 0d 09 48 46 53 | 09 3a 20 5e 49 6e 74 65 |ly;..HFS|.: ^Inte|
|00000580| 67 65 72 3b 0d 09 54 4c | 69 73 74 09 3a 20 53 46 |ger;..TL|ist.: SF|
|00000590| 54 79 70 65 4c 69 73 74 | 3b 0d 09 76 6f 6c 4e 61 |TypeList|;..volNa|
|000005a0| 6d 65 2c 20 4e 61 6d 65 | 09 3a 20 53 74 72 32 35 |me, Name|.: Str25|
|000005b0| 35 3b 0d 09 53 63 72 61 | 70 4e 61 6d 65 09 3a 20 |5;..Scra|pName.: |
|000005c0| 50 61 63 6b 65 64 20 41 | 72 72 61 79 20 5b 31 2e |Packed A|rray [1.|
|000005d0| 2e 32 35 35 5d 20 6f 66 | 20 43 68 61 72 3b 0d 09 |.255] of| Char;..|
|000005e0| 76 52 65 66 4e 75 6d 2c | 20 69 09 3a 20 49 6e 74 |vRefNum,| i.: Int|
|000005f0| 65 67 65 72 3b 0d 09 53 | 61 76 65 56 6f 6c 2c 20 |eger;..S|aveVol, |
|00000600| 44 69 72 52 65 66 2c 20 | 45 72 72 09 3a 20 4c 6f |DirRef, |Err.: Lo|
|00000610| 6e 67 49 6e 74 3b 0d 0d | 42 65 67 69 6e 0d 48 46 |ngInt;..|Begin.HF|
|00000620| 53 20 3a 3d 20 50 6f 69 | 6e 74 65 72 28 46 53 46 |S := Poi|nter(FSF|
|00000630| 43 42 4c 65 6e 29 3b 0d | 53 65 74 50 74 28 6d 79 |CBLen);.|SetPt(my|
|00000640| 50 74 2c 38 32 2c 33 30 | 29 3b 0d 53 46 47 65 74 |Pt,82,30|);.SFGet|
|00000650| 46 69 6c 65 28 6d 79 50 | 74 2c 27 46 69 6c 65 6e |File(myP|t,'Filen|
|00000660| 61 6d 65 20 74 6f 20 43 | 6f 70 79 3f 20 27 2c 4e |ame to C|opy? ',N|
|00000670| 49 4c 2c 2d 31 2c 54 4c | 69 73 74 2c 4e 49 4c 2c |IL,-1,TL|ist,NIL,|
|00000680| 72 65 70 6c 79 29 3b 0d | 49 46 20 72 65 70 6c 79 |reply);.|IF reply|
|00000690| 2e 67 6f 6f 64 20 54 48 | 45 4e 20 20 0d 09 4e 61 |.good TH|EN  ..Na|
|000006a0| 6d 65 20 3a 3d 20 72 65 | 70 6c 79 2e 66 4e 61 6d |me := re|ply.fNam|
|000006b0| 65 3b 0d 76 52 65 66 4e | 75 6d 20 3a 3d 20 72 65 |e;.vRefN|um := re|
|000006c0| 70 6c 79 2e 76 52 65 66 | 4e 75 6d 3b 0d 49 66 20 |ply.vRef|Num;.If |
|000006d0| 72 65 70 6c 79 2e 67 6f | 6f 64 20 74 68 65 6e 0d |reply.go|od then.|
|000006e0| 09 42 65 67 69 6e 0d 09 | 49 66 20 48 46 53 5e 20 |.Begin..|If HFS^ |
|000006f0| 3e 20 30 20 74 68 65 6e | 0d 09 09 42 65 67 69 6e |> 0 then|...Begin|
|00000700| 0d 09 09 76 6f 6c 4e 61 | 6d 65 20 3a 3d 20 4e 61 |...volNa|me := Na|
|00000710| 6d 65 3b 0d 09 09 57 69 | 74 68 20 63 61 74 50 42 |me;...Wi|th catPB|
|00000720| 20 64 6f 0d 09 09 09 42 | 65 67 69 6e 0d 09 09 09 | do....B|egin....|
|00000730| 69 6f 4e 61 6d 65 50 74 | 72 20 3a 3d 20 40 76 6f |ioNamePt|r := @vo|
|00000740| 6c 4e 61 6d 65 3b 0d 09 | 09 09 69 6f 43 6f 6d 70 |lName;..|..ioComp|
|00000750| 6c 65 74 69 6f 6e 20 3a | 3d 20 4e 49 4c 3b 0d 09 |letion :|= NIL;..|
|00000760| 09 09 69 6f 56 52 65 66 | 4e 75 6d 20 3a 3d 20 56 |..ioVRef|Num := V|
|00000770| 52 65 66 4e 75 6d 3b 0d | 09 09 09 69 6f 46 44 69 |RefNum;.|...ioFDi|
|00000780| 72 49 6e 64 65 78 20 3a | 3d 20 2d 31 3b 0d 09 09 |rIndex :|= -1;...|
|00000790| 09 69 6f 44 72 44 69 72 | 49 44 20 3a 3d 20 30 3b |.ioDrDir|ID := 0;|
|000007a0| 0d 09 09 09 61 6e 45 72 | 72 20 3a 3d 20 50 42 47 |....anEr|r := PBG|
|000007b0| 65 74 43 61 74 49 6e 66 | 6f 28 40 63 61 74 50 42 |etCatInf|o(@catPB|
|000007c0| 2c 46 41 4c 53 45 29 3b | 0d 09 09 09 44 69 72 52 |,FALSE);|....DirR|
|000007d0| 65 66 20 3a 3d 20 69 6f | 44 72 50 61 72 49 44 0d |ef := io|DrParID.|
|000007e0| 09 09 09 45 6e 64 3b 0d | 09 09 4e 61 6d 65 20 3a |...End;.|..Name :|
|000007f0| 3d 20 43 6f 6e 63 61 74 | 28 56 6f 6c 4e 61 6d 65 |= Concat|(VolName|
|00000800| 2c 27 3a 27 2c 4e 61 6d | 65 29 3b 0d 09 09 57 68 |,':',Nam|e);...Wh|
|00000810| 69 6c 65 20 44 69 72 52 | 65 66 20 3c 3e 20 31 20 |ile DirR|ef <> 1 |
|00000820| 64 6f 0d 09 09 09 42 65 | 67 69 6e 0d 09 09 09 53 |do....Be|gin....S|
|00000830| 61 76 65 56 6f 6c 20 3a | 3d 20 44 69 72 52 65 66 |aveVol :|= DirRef|
|00000840| 3b 0d 09 09 09 57 69 74 | 68 20 63 61 74 50 42 20 |;....Wit|h catPB |
|00000850| 64 6f 0d 09 09 09 09 42 | 65 67 69 6e 0d 09 09 09 |do.....B|egin....|
|00000860| 09 69 6f 4e 61 6d 65 50 | 74 72 20 3a 3d 20 40 76 |.ioNameP|tr := @v|
|00000870| 6f 6c 4e 61 6d 65 3b 0d | 09 09 09 09 69 6f 43 6f |olName;.|....ioCo|
|00000880| 6d 70 6c 65 74 69 6f 6e | 20 3a 3d 20 4e 49 4c 3b |mpletion| := NIL;|
|00000890| 0d 09 09 09 09 69 6f 56 | 52 65 66 4e 75 6d 20 3a |.....ioV|RefNum :|
|000008a0| 3d 20 56 52 65 66 4e 75 | 6d 3b 0d 09 09 09 09 69 |= VRefNu|m;.....i|
|000008b0| 6f 46 44 69 72 49 6e 64 | 65 78 20 3a 3d 20 2d 31 |oFDirInd|ex := -1|
|000008c0| 3b 0d 09 09 09 09 69 6f | 44 72 44 69 72 49 44 20 |;.....io|DrDirID |
|000008d0| 3a 3d 20 44 69 72 52 65 | 66 3b 0d 09 09 09 09 61 |:= DirRe|f;.....a|
|000008e0| 6e 45 72 72 20 3a 3d 20 | 50 42 47 65 74 43 61 74 |nErr := |PBGetCat|
|000008f0| 49 6e 66 6f 28 40 63 61 | 74 50 42 2c 46 41 4c 53 |Info(@ca|tPB,FALS|
|00000900| 45 29 3b 0d 09 09 09 09 | 44 69 72 52 65 66 20 3a |E);.....|DirRef :|
|00000910| 3d 20 69 6f 44 72 50 61 | 72 49 44 0d 09 09 09 09 |= ioDrPa|rID.....|
|00000920| 45 6e 64 3b 0d 09 09 09 | 4e 61 6d 65 20 3a 3d 20 |End;....|Name := |
|00000930| 43 6f 6e 63 61 74 28 56 | 6f 6c 4e 61 6d 65 2c 27 |Concat(V|olName,'|
|00000940| 3a 27 2c 4e 61 6d 65 29 | 0d 09 09 09 45 6e 64 0d |:',Name)|....End.|
|00000950| 09 09 45 6e 64 0d 09 45 | 6c 73 65 0d 09 09 42 65 |..End..E|lse...Be|
|00000960| 67 69 6e 0d 09 09 56 6f | 6c 4e 61 6d 65 20 3a 3d |gin...Vo|lName :=|
|00000970| 20 4e 61 6d 65 3b 0d 09 | 09 57 69 74 68 20 76 6f | Name;..|.With vo|
|00000980| 6c 50 42 20 64 6f 0d 09 | 09 09 42 65 67 69 6e 0d |lPB do..|..Begin.|
|00000990| 09 09 09 69 6f 4e 61 6d | 65 50 74 72 20 3a 3d 20 |...ioNam|ePtr := |
|000009a0| 40 76 6f 6c 4e 61 6d 65 | 3b 0d 09 09 09 69 6f 56 |@volName|;....ioV|
|000009b0| 52 65 66 4e 75 6d 20 3a | 3d 20 56 52 65 66 4e 75 |RefNum :|= VRefNu|
|000009c0| 6d 3b 0d 09 09 09 69 6f | 56 6f 6c 49 6e 64 65 78 |m;....io|VolIndex|
|000009d0| 20 3a 3d 20 30 3b 0d 09 | 09 09 61 6e 45 72 72 20 | := 0;..|..anErr |
|000009e0| 3a 3d 20 50 42 47 65 74 | 56 49 6e 66 6f 28 40 76 |:= PBGet|VInfo(@v|
|000009f0| 6f 6c 50 42 2c 46 41 4c | 53 45 29 3b 0d 09 09 09 |olPB,FAL|SE);....|
|00000a00| 49 66 20 61 6e 45 72 72 | 20 3c 3e 20 4e 6f 45 72 |If anErr| <> NoEr|
|00000a10| 72 20 74 68 65 6e 20 53 | 79 73 42 65 65 70 28 33 |r then S|ysBeep(3|
|00000a20| 29 3b 0d 09 09 09 45 6e | 64 3b 0d 09 09 4e 61 6d |);....En|d;...Nam|
|00000a30| 65 20 3a 3d 20 43 6f 6e | 63 61 74 28 56 6f 6c 4e |e := Con|cat(VolN|
|00000a40| 61 6d 65 2c 27 3a 27 2c | 4e 61 6d 65 29 0d 09 09 |ame,':',|Name)...|
|00000a50| 45 6e 64 3b 0d 09 45 72 | 72 20 3a 3d 20 5a 65 72 |End;..Er|r := Zer|
|00000a60| 6f 53 63 72 61 70 3b 0d | 09 46 6f 72 20 69 20 3a |oScrap;.|.For i :|
|00000a70| 3d 20 31 20 74 6f 20 4c | 65 6e 67 74 68 28 4e 61 |= 1 to L|ength(Na|
|00000a80| 6d 65 29 20 64 6f 0d 09 | 09 53 63 72 61 70 4e 61 |me) do..|.ScrapNa|
|00000a90| 6d 65 5b 69 5d 20 3a 3d | 20 4e 61 6d 65 5b 69 5d |me[i] :=| Name[i]|
|00000aa0| 3b 0d 09 45 72 72 20 3a | 3d 20 50 75 74 53 63 72 |;..Err :|= PutScr|
|00000ab0| 61 70 20 28 4c 65 6e 67 | 74 68 28 4e 61 6d 65 29 |ap (Leng|th(Name)|
|00000ac0| 2c 20 27 54 45 58 54 27 | 2c 20 40 53 63 72 61 70 |, 'TEXT'|, @Scrap|
|00000ad0| 4e 61 6d 65 29 0d 09 45 | 6e 64 0d 45 6e 64 3b 0d |Name)..E|nd.End;.|
|00000ae0| 0d 50 72 6f 63 65 64 75 | 72 65 20 54 68 65 46 4b |.Procedu|re TheFK|
|00000af0| 45 59 3b 0d 42 65 67 69 | 6e 0d 49 6e 69 74 46 6f |EY;.Begi|n.InitFo|
|00000b00| 6e 74 73 3b 0d 49 6e 69 | 74 57 69 6e 64 6f 77 73 |nts;.Ini|tWindows|
|00000b10| 3b 0d 49 6e 69 74 4d 65 | 6e 75 73 3b 0d 54 45 49 |;.InitMe|nus;.TEI|
|00000b20| 6e 69 74 3b 0d 49 6e 69 | 74 44 69 61 6c 6f 67 73 |nit;.Ini|tDialogs|
|00000b30| 28 4e 49 4c 29 3b 0d 50 | 61 74 68 4e 61 6d 65 0d |(NIL);.P|athName.|
|00000b40| 45 6e 64 3b 0d 0d 42 65 | 67 69 6e 09 7b 20 4d 61 |End;..Be|gin.{ Ma|
|00000b50| 69 6e 20 7d 0d 45 6e 64 | 2e 00 00 00 00 00 00 00 |in }.End|........|
|00000b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000b80| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000b90| 00 04 4e 56 ff e2 48 e7 | 1f 78 0c 6e 00 03 00 0c |..NV..H.|.x.n....|
|00000ba0| 6c 30 48 6e ff ec a8 98 | a8 9e 41 ee 00 08 26 18 |l0Hn....|..A...&.|
|00000bb0| 0c 50 61 74 68 6e 61 6d | 65 2e 50 61 73 6d 02 00 |.Pathnam|e.Pasm..|
|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 9f e4 5b 3b 00 00 | 0a d9 00 00 01 5c 2f 0c |....[;..|.....\/.|
|00000c00| 2f 04 a8 b2 20 55 20 50 | 2f 28 00 44 3f 28 00 4a |/... U P|/(.D?(.J|
|00000c10| 51 47 6c 1c 42 a8 00 44 | 30 3c 00 0c 4a 78 02 8e |QGl.B..D|0<..Jx..|
|00000c20| 6b 0a 30 38 0b a8 66 04 | 10 38 09 87 31 40 00 4a |k.08..f.|.8..1@.J|
|00000c30| 2f 28 00 1c 42 a7 a8 d8 | 24 57 a8 7a 20 53 48 68 |/(..B...|$W.z SHh|
|00000c40| 00 08 a8 7b 2f 0a 2f 2f | 00 04 a8 e4 48 e7 08 30 |...{/.//|....H..0|
|00000c50| 20 53 45 e8 00 28 49 e8 | 00 08 7e 00 1e 12 67 00 | SE..(I.|..~...g.|
|00000c60| 00 82 78 00 52 44 61 00 | 00 b8 4a 07 6a f6 1e 12 |..x.RDa.|..J.j...|
|00000c70| 51 4f 26 4f 2f 0b a8 8b | 61 00 00 be c0 c4 32 2c |QO&O/...|a.....2,|
|00000c80| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f aa 00 00 |.......M|onaco...|
|00000c90| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000ca0| 00 16 00 00 00 46 00 01 | 21 ba 02 94 00 00 00 1c |.....F..|!.......|
|00000cb0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000cc0| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 01 cb fc |........|........|
|00000cd0| 03 ec ff ff 00 00 00 0e | 00 01 cb f8 00 00 00 00 |........|........|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+