/ MacFormat 1995 May / macformat-024.iso / Shareware City / Applications / TekaPIM folder / Context

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 43 6f 6e 74 65 78 | 74 00 00 00 00 00 00 00 |..Contex|t.......|
|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 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 00 2c 00 00 | 00 01 bb a8 19 6a 6b ab |.....,..|.....jk.|
|00000060| 2d df 64 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |-.d.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 86 ea 00 00 |........|........|
|00000080| 00 00 1e 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |....STAK|........|
|00000090| 00 00 00 0a 00 00 2c 00 | 00 00 1e 00 00 00 00 00 |......,.|........|
|000000a0| 00 00 00 00 00 00 00 01 | 00 00 0a 31 00 00 00 02 |........|...1....|
|000000b0| 00 00 0b 08 00 00 0f 17 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 10 80 00 02 20 80 00 | 02 20 80 00 02 20 80 00 |..... ..|. ... ..|
|000000f0| df fc b0 c7 00 00 00 00 | 00 66 01 60 00 a6 01 e0 |........|.f.`....|
|00000100| 00 00 00 00 01 90 02 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d d7 00 00 0c b5 | 00 40 00 80 00 00 00 00 |........|.@......|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 6f 6e 20 75 73 65 54 43 | 48 6f 6d 65 0d 69 66 20 |on useTC|Home.if |
|00000690| 6e 6f 74 28 74 68 65 20 | 73 74 61 63 6b 73 69 6e |not(the |stacksin|
|000006a0| 75 73 65 20 63 6f 6e 74 | 61 69 6e 73 20 22 54 43 |use cont|ains "TC|
|000006b0| 48 6f 6d 65 22 29 20 74 | 68 65 6e 0d 67 6f 20 54 |Home") t|hen.go T|
|000006c0| 43 48 6f 6d 65 0d 69 66 | 20 74 68 65 20 73 68 6f |CHome.if| the sho|
|000006d0| 72 74 20 6e 61 6d 65 20 | 6f 66 20 74 68 69 73 20 |rt name |of this |
|000006e0| 73 74 61 63 6b 20 ad 20 | 22 54 43 48 6f 6d 65 22 |stack . |"TCHome"|
|000006f0| 20 74 68 65 6e 0d 61 6e | 73 77 65 72 20 22 59 6f | then.an|swer "Yo|
|00000700| 75 20 6e 65 65 64 20 54 | 43 48 6f 6d 65 20 74 6f |u need T|CHome to|
|00000710| 20 75 73 65 20 74 68 69 | 73 20 73 74 61 63 6b 2e | use thi|s stack.|
|00000720| 22 26 72 65 74 75 72 6e | 26 c2 0d 22 50 6c 65 61 |"&return|&.."Plea|
|00000730| 73 65 20 63 6f 70 79 20 | 69 74 20 69 6e 74 6f 20 |se copy |it into |
|00000740| 74 68 65 20 73 61 6d 65 | 20 66 6f 6c 64 65 72 20 |the same| folder |
|00000750| 61 73 20 74 68 69 73 20 | 73 74 61 63 6b 2e 22 20 |as this |stack." |
|00000760| 77 69 74 68 20 22 4f 4b | 22 0d 64 6f 4d 65 6e 75 |with "OK|".doMenu|
|00000770| 20 22 51 75 69 74 20 48 | 79 70 65 72 43 61 72 64 | "Quit H|yperCard|
|00000780| 22 0d 65 6e 64 20 69 66 | 0d 64 6f 53 74 61 72 74 |".end if|.doStart|
|00000790| 75 70 53 74 75 66 66 0d | 65 6e 64 20 69 66 0d 65 |upStuff.|end if.e|
|000007a0| 6e 64 20 75 73 65 54 43 | 48 6f 6d 65 0d 0d 6f 6e |nd useTC|Home..on|
|000007b0| 20 53 74 61 72 74 75 70 | 0d 75 73 65 54 43 48 6f | Startup|.useTCHo|
|000007c0| 6d 65 0d 65 6e 64 20 53 | 74 61 72 74 75 70 0d 0d |me.end S|tartup..|
|000007d0| 2d 2d 20 6d 65 73 73 61 | 67 65 73 20 69 6e 74 65 |-- messa|ges inte|
|000007e0| 72 63 65 70 74 65 64 20 | 61 73 20 72 65 73 75 6c |rcepted |as resul|
|000007f0| 74 20 6f 66 20 62 65 69 | 6e 67 20 69 6e 20 75 73 |t of bei|ng in us|
|00000800| 65 0d 0d 6f 6e 20 6f 70 | 65 6e 63 61 72 64 0d 69 |e..on op|encard.i|
|00000810| 66 20 69 73 47 49 42 49 | 28 29 20 74 68 65 6e 20 |f isGIBI|() then |
|00000820| 64 6f 53 69 62 6c 69 6e | 67 73 0d 70 61 73 73 20 |doSiblin|gs.pass |
|00000830| 6f 70 65 6e 63 61 72 64 | 0d 65 6e 64 20 6f 70 65 |opencard|.end ope|
|00000840| 6e 63 61 72 64 0d 0d 6f | 6e 20 72 65 73 75 6d 65 |ncard..o|n resume|
|00000850| 73 74 61 63 6b 0d 69 66 | 20 69 73 47 49 42 49 28 |stack.if| isGIBI(|
|00000860| 29 20 74 68 65 6e 0d 64 | 6f 53 69 62 6c 69 6e 67 |) then.d|oSibling|
|00000870| 73 0d 64 6f 50 61 74 68 | 0d 65 6e 64 20 69 66 0d |s.doPath|.end if.|
|00000880| 70 61 73 73 20 72 65 73 | 75 6d 65 73 74 61 63 6b |pass res|umestack|
|00000890| 0d 65 6e 64 20 72 65 73 | 75 6d 65 73 74 61 63 6b |.end res|umestack|
|000008a0| 0d 0d 6f 6e 20 6f 70 65 | 6e 73 74 61 63 6b 0d 69 |..on ope|nstack.i|
|000008b0| 66 20 69 73 47 49 42 49 | 28 29 20 74 68 65 6e 0d |f isGIBI|() then.|
|000008c0| 67 6c 6f 62 61 6c 20 67 | 53 49 46 0d 70 75 74 20 |global g|SIF.put |
|000008d0| 66 61 6c 73 65 20 69 6e | 74 6f 20 67 53 49 46 0d |false in|to gSIF.|
|000008e0| 64 6f 53 69 62 6c 69 6e | 67 73 0d 64 6f 50 61 74 |doSiblin|gs.doPat|
|000008f0| 68 0d 73 63 77 78 20 30 | 2c 31 39 0d 65 6c 73 65 |h.scwx 0|,19.else|
|00000900| 20 69 66 20 74 68 65 20 | 73 68 6f 72 74 20 6e 61 | if the |short na|
|00000910| 6d 65 20 6f 66 20 74 68 | 69 73 20 73 74 61 63 6b |me of th|is stack|
|00000920| 3d 22 43 6f 6e 74 65 78 | 74 22 20 74 68 65 6e 0d |="Contex|t" then.|
|00000930| 75 73 65 54 43 48 6f 6d | 65 0d 73 74 61 72 74 20 |useTCHom|e.start |
|00000940| 75 73 69 6e 67 20 73 74 | 61 63 6b 20 22 43 6f 6e |using st|ack "Con|
|00000950| 74 65 78 74 22 0d 65 6e | 64 20 69 66 0d 70 61 73 |text".en|d if.pas|
|00000960| 73 20 6f 70 65 6e 73 74 | 61 63 6b 0d 65 6e 64 20 |s openst|ack.end |
|00000970| 6f 70 65 6e 73 74 61 63 | 6b 0d 0d 6f 6e 20 64 6f |openstac|k..on do|
|00000980| 50 61 74 68 0d 67 6c 6f | 62 61 6c 20 69 73 4e 61 |Path.glo|bal isNa|
|00000990| 76 69 67 61 74 69 6e 67 | 2c 69 6e 73 63 72 69 70 |vigating|,inscrip|
|000009a0| 74 2c 67 41 67 65 6e 74 | 52 75 6e 6e 69 6e 67 0d |t,gAgent|Running.|
|000009b0| 69 66 20 74 68 65 20 73 | 68 6f 72 74 20 6e 61 6d |if the s|hort nam|
|000009c0| 65 20 6f 66 20 74 68 69 | 73 20 73 74 61 63 6b 3d |e of thi|s stack=|
|000009d0| 22 43 6f 6e 74 65 78 74 | 22 20 6f 72 20 c2 0d 69 |"Context|" or ..i|
|000009e0| 73 4e 61 76 69 67 61 74 | 69 6e 67 3d 74 72 75 65 |sNavigat|ing=true|
|000009f0| 20 6f 72 20 69 6e 73 63 | 72 69 70 74 3d 74 72 75 | or insc|ript=tru|
|00000a00| 65 20 6f 72 20 67 41 67 | 65 6e 74 52 75 6e 6e 69 |e or gAg|entRunni|
|00000a10| 6e 67 3d 74 72 75 65 0d | 74 68 65 6e 20 69 66 20 |ng=true.|then if |
|00000a20| 66 6f 72 63 65 ad 74 72 | 75 65 20 74 68 65 6e 20 |force.tr|ue then |
|00000a30| 65 78 69 74 20 64 6f 50 | 61 74 68 0d 0d 67 6c 6f |exit doP|ath..glo|
|00000a40| 62 61 6c 20 67 43 50 2c | 67 43 4e 50 69 0d 70 75 |bal gCP,|gCNPi.pu|
|00000a50| 74 20 74 68 65 20 73 68 | 6f 72 74 20 6e 61 6d 65 |t the sh|ort name|
|00000a60| 20 6f 66 20 74 68 69 73 | 20 73 74 61 63 6b 20 69 | of this| stack i|
|00000a70| 6e 74 6f 20 73 0d 70 75 | 74 20 6c 6f 6e 67 73 74 |nto s.pu|t longst|
|00000a80| 61 63 6b 6e 61 6d 65 28 | 73 29 20 69 6e 74 6f 20 |ackname(|s) into |
|00000a90| 6e 0d 70 75 74 20 66 69 | 6c 65 73 6f 66 28 66 70 |n.put fi|lesof(fp|
|00000aa0| 74 68 28 6e 29 29 20 69 | 6e 74 6f 20 63 70 0d 69 |th(n)) i|nto cp.i|
|00000ab0| 66 20 6c 61 73 74 20 63 | 68 61 72 20 6f 66 20 63 |f last c|har of c|
|00000ac0| 70 3d 72 65 74 75 72 6e | 20 74 68 65 6e 20 64 65 |p=return| then de|
|00000ad0| 6c 65 74 65 20 74 68 65 | 20 6c 61 73 74 20 63 68 |lete the| last ch|
|00000ae0| 61 72 20 6f 66 20 63 70 | 0d 70 75 74 20 6c 69 6e |ar of cp|.put lin|
|00000af0| 65 6f 66 28 73 2c 63 70 | 29 20 69 6e 74 6f 20 63 |eof(s,cp|) into c|
|00000b00| 6e 70 69 0d 69 66 20 63 | 70 ad 62 67 20 66 6c 64 |npi.if c|p.bg fld|
|00000b10| 20 22 50 61 74 68 22 20 | 6f 72 20 63 70 ad 67 43 | "Path" |or cp.gC|
|00000b20| 50 20 74 68 65 6e 0d 70 | 75 74 20 63 70 20 69 6e |P then.p|ut cp in|
|00000b30| 74 6f 20 67 43 50 0d 70 | 75 74 20 67 43 50 20 69 |to gCP.p|ut gCP i|
|00000b40| 6e 74 6f 20 62 67 20 66 | 6c 64 20 22 50 61 74 68 |nto bg f|ld "Path|
|00000b50| 22 0d 70 75 74 20 22 22 | 20 69 6e 74 6f 20 67 43 |".put ""| into gC|
|00000b60| 4e 50 69 0d 65 6e 64 20 | 69 66 0d 70 75 74 20 63 |NPi.end |if.put c|
|00000b70| 6e 70 69 20 69 6e 74 6f | 20 67 43 4e 50 69 0d 73 |npi into| gCNPi.s|
|00000b80| 63 72 6f 6c 6c 4c 56 69 | 65 77 20 67 43 4e 50 69 |crollLVi|ew gCNPi|
|00000b90| 2c 22 50 61 74 68 22 0d | 73 65 74 20 74 68 65 20 |,"Path".|set the |
|00000ba0| 74 65 78 74 73 74 79 6c | 65 20 6f 66 20 6c 69 6e |textstyl|e of lin|
|00000bb0| 65 20 67 43 4e 50 69 20 | 6f 66 20 62 67 20 66 6c |e gCNPi |of bg fl|
|00000bc0| 64 20 22 50 61 74 68 22 | 20 74 6f 20 62 6f 6c 64 |d "Path"| to bold|
|00000bd0| 0d 65 6e 64 20 64 6f 50 | 61 74 68 0d 0d 6f 6e 20 |.end doP|ath..on |
|00000be0| 64 6f 53 69 62 6c 69 6e | 67 73 0d 67 6c 6f 62 61 |doSiblin|gs.globa|
|00000bf0| 6c 20 69 73 4e 61 76 69 | 67 61 74 69 6e 67 2c 69 |l isNavi|gating,i|
|00000c00| 6e 73 63 72 69 70 74 2c | 67 41 67 65 6e 74 52 75 |nscript,|gAgentRu|
|00000c10| 6e 6e 69 6e 67 0d 69 66 | 20 74 68 65 20 73 68 6f |nning.if| the sho|
|00000c20| 72 74 20 6e 61 6d 65 20 | 6f 66 20 74 68 69 73 20 |rt name |of this |
|00000c30| 73 74 61 63 6b 3d 22 43 | 6f 6e 74 65 78 74 22 20 |stack="C|ontext" |
|00000c40| 6f 72 20 c2 0d 69 73 4e | 61 76 69 67 61 74 69 6e |or ..isN|avigatin|
|00000c50| 67 3d 74 72 75 65 20 6f | 72 20 69 6e 73 63 72 69 |g=true o|r inscri|
|00000c60| 70 74 3d 74 72 75 65 20 | 6f 72 20 67 41 67 65 6e |pt=true |or gAgen|
|00000c70| 74 52 75 6e 6e 69 6e 67 | 3d 74 72 75 65 0d 74 68 |tRunning|=true.th|
|00000c80| 65 6e 20 69 66 20 66 6f | 72 63 65 ad 74 72 75 65 |en if fo|rce.true|
|00000c90| 20 74 68 65 6e 20 65 78 | 69 74 20 64 6f 53 69 62 | then ex|it doSib|
|00000ca0| 6c 69 6e 67 73 0d 0d 67 | 6c 6f 62 61 6c 20 67 43 |lings..g|lobal gC|
|00000cb0| 4e 53 69 2c 67 43 53 2c | 67 43 4e 50 69 0d 73 63 |NSi,gCS,|gCNPi.sc|
|00000cc0| 72 6f 6c 6c 4c 56 69 65 | 77 20 67 43 4e 50 69 2c |rollLVie|w gCNPi,|
|00000cd0| 22 50 61 74 68 22 0d 73 | 65 74 20 74 68 65 20 74 |"Path".s|et the t|
|00000ce0| 65 78 74 73 74 79 6c 65 | 20 6f 66 20 6c 69 6e 65 |extstyle| of line|
|00000cf0| 20 67 43 4e 50 69 20 6f | 66 20 62 67 20 66 6c 64 | gCNPi o|f bg fld|
|00000d00| 20 22 50 61 74 68 22 20 | 74 6f 20 62 6f 6c 64 0d | "Path" |to bold.|
|00000d10| 70 75 74 20 67 65 74 53 | 69 62 6c 69 6e 67 73 28 |put getS|iblings(|
|00000d20| 29 20 69 6e 74 6f 20 63 | 73 0d 69 66 20 6c 61 73 |) into c|s.if las|
|00000d30| 74 20 63 68 61 72 20 6f | 66 20 63 73 3d 72 65 74 |t char o|f cs=ret|
|00000d40| 75 72 6e 20 74 68 65 6e | 20 64 65 6c 65 74 65 20 |urn then| delete |
|00000d50| 74 68 65 20 6c 61 73 74 | 20 63 68 61 72 20 6f 66 |the last| char of|
|00000d60| 20 63 73 0d 70 75 74 20 | 62 67 20 66 6c 64 20 31 | cs.put |bg fld 1|
|00000d70| 20 69 6e 74 6f 20 6e 0d | 70 75 74 20 6c 69 6e 65 | into n.|put line|
|00000d80| 6f 66 28 6e 2c 63 73 29 | 20 69 6e 74 6f 20 63 6e |of(n,cs)| into cn|
|00000d90| 73 69 0d 0d 70 75 74 20 | 63 73 ad 67 43 53 20 69 |si..put |cs.gCS i|
|00000da0| 6e 74 6f 20 6e 65 77 73 | 69 62 73 0d 69 66 20 6e |nto news|ibs.if n|
|00000db0| 65 77 73 69 62 73 20 74 | 68 65 6e 0d 70 75 74 20 |ewsibs t|hen.put |
|00000dc0| 63 73 20 69 6e 74 6f 20 | 67 43 53 0d 70 75 74 20 |cs into |gCS.put |
|00000dd0| 67 43 53 20 69 6e 74 6f | 20 62 67 20 66 6c 64 20 |gCS into| bg fld |
|00000de0| 73 69 62 6c 69 6e 67 73 | 0d 2d 2d 20 70 75 74 20 |siblings|.-- put |
|00000df0| 22 22 20 69 6e 74 6f 20 | 67 43 4e 53 69 0d 65 6e |"" into |gCNSi.en|
|00000e00| 64 20 69 66 0d 0d 69 66 | 20 6e 65 77 73 69 62 73 |d if..if| newsibs|
|00000e10| 20 6f 72 20 63 6e 73 69 | ad 67 43 4e 53 69 20 74 | or cnsi|.gCNSi t|
|00000e20| 68 65 6e 0d 73 65 74 20 | 74 68 65 20 74 65 78 74 |hen.set |the text|
|00000e30| 73 74 79 6c 65 20 6f 66 | 20 6c 69 6e 65 20 63 6e |style of| line cn|
|00000e40| 73 69 20 6f 66 20 62 67 | 20 66 6c 64 20 73 69 62 |si of bg| fld sib|
|00000e50| 6c 69 6e 67 73 20 74 6f | 20 62 6f 6c 64 0d 73 63 |lings to| bold.sc|
|00000e60| 72 6f 6c 6c 4c 56 69 65 | 77 20 63 6e 73 69 2c 22 |rollLVie|w cnsi,"|
|00000e70| 53 69 62 6c 69 6e 67 73 | 22 0d 69 66 20 6e 6f 74 |Siblings|".if not|
|00000e80| 20 6e 65 77 73 69 62 73 | 20 74 68 65 6e 20 73 65 | newsibs| then se|
|00000e90| 74 20 74 68 65 20 74 65 | 78 74 73 74 79 6c 65 20 |t the te|xtstyle |
|00000ea0| 6f 66 20 6c 69 6e 65 20 | 67 43 4e 53 69 20 6f 66 |of line |gCNSi of|
|00000eb0| 20 62 67 20 66 6c 64 20 | 73 69 62 6c 69 6e 67 73 | bg fld |siblings|
|00000ec0| 20 74 6f 20 70 6c 61 69 | 6e 0d 70 75 74 20 63 6e | to plai|n.put cn|
|00000ed0| 73 69 20 69 6e 74 6f 20 | 67 43 4e 53 69 0d 65 6e |si into |gCNSi.en|
|00000ee0| 64 20 69 66 0d 65 6e 64 | 20 64 6f 53 69 62 6c 69 |d if.end| doSibli|
|00000ef0| 6e 67 73 0d 0d 0d 6f 6e | 20 77 65 6e 74 43 68 69 |ngs...on| wentChi|
|00000f00| 6c 64 0d 64 6f 50 61 74 | 68 0d 64 6f 53 69 62 6c |ld.doPat|h.doSibl|
|00000f10| 69 6e 67 73 0d 65 6e 64 | 20 77 65 6e 74 63 68 69 |ings.end| wentchi|
|00000f20| 6c 64 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 69 73 47 |ld..func|tion isG|
|00000f30| 49 42 49 0d 72 65 74 75 | 72 6e 20 74 68 65 72 65 |IBI.retu|rn there|
|00000f40| 20 69 73 20 61 20 62 67 | 20 66 6c 64 20 22 53 69 | is a bg| fld "Si|
|00000f50| 62 6c 69 6e 67 73 22 20 | 61 6e 64 20 74 68 65 72 |blings" |and ther|
|00000f60| 65 20 69 73 20 61 20 62 | 67 20 66 6c 64 20 22 50 |e is a b|g fld "P|
|00000f70| 61 74 68 22 0d 65 6e 64 | 20 69 73 47 49 42 49 0d |ath".end| isGIBI.|
|00000f80| 0d 2d 2d 20 6f 6e 20 77 | 65 6e 74 53 69 62 6c 69 |.-- on w|entSibli|
|00000f90| 6e 67 20 6e 65 77 73 69 | 62 0d 2d 2d 20 2d 2d 20 |ng newsi|b.-- -- |
|00000fa0| 65 69 74 68 65 72 20 73 | 74 61 63 6b 20 26 20 63 |either s|tack & c|
|00000fb0| 61 72 64 28 75 73 65 20 | 62 67 20 66 6c 64 20 31 |ard(use |bg fld 1|
|00000fc0| 29 20 6f 72 20 6a 75 73 | 74 20 73 74 61 63 6b 20 |) or jus|t stack |
|00000fd0| 28 69 66 20 63 64 3d 31 | 29 0d 2d 2d 20 70 75 74 |(if cd=1|).-- put|
|00000fe0| 20 74 68 65 20 73 68 6f | 72 74 20 6e 61 6d 65 20 | the sho|rt name |
|00000ff0| 6f 66 20 74 68 69 73 20 | 73 74 61 63 6b 20 69 6e |of this |stack in|
|00001000| 74 6f 20 63 31 0d 2d 2d | 20 69 66 20 74 68 65 20 |to c1.--| if the |
|00001010| 6e 75 6d 62 65 72 20 6f | 66 20 74 68 69 73 20 63 |number o|f this c|
|00001020| 64 3d 31 20 6f 72 20 74 | 68 65 20 73 68 6f 72 74 |d=1 or t|he short|
|00001030| 20 6e 61 6d 65 20 6f 66 | 20 74 68 69 73 20 63 64 | name of| this cd|
|00001040| 20 3d 20 22 22 20 74 68 | 65 6e 0d 2d 2d 20 77 65 | = "" th|en.-- we|
|00001050| 6e 74 43 68 6c 64 20 6e | 65 77 73 69 62 0d 2d 2d |ntChld n|ewsib.--|
|00001060| 20 65 6c 73 65 0d 2d 2d | 20 67 6c 6f 62 61 6c 20 | else.--| global |
|00001070| 67 43 50 2c 67 43 4e 50 | 69 2c 67 43 4e 53 2c 67 |gCP,gCNP|i,gCNS,g|
|00001080| 43 4e 53 69 0d 2d 2d 20 | 69 66 20 6e 65 77 73 69 |CNSi.-- |if newsi|
|00001090| 62 3d 22 22 20 74 68 65 | 6e 20 70 75 74 20 6c 69 |b="" the|n put li|
|000010a0| 6e 65 20 31 20 6f 66 20 | 62 67 20 66 6c 64 20 31 |ne 1 of |bg fld 1|
|000010b0| 20 69 6e 74 6f 20 6e 65 | 77 73 69 62 0d 2d 2d 20 | into ne|wsib.-- |
|000010c0| 69 66 20 67 43 4e 53 3d | 22 22 20 74 68 65 6e 0d |if gCNS=|"" then.|
|000010d0| 2d 2d 20 70 75 74 20 67 | 65 74 53 69 62 6c 69 6e |-- put g|etSiblin|
|000010e0| 67 73 28 29 20 69 6e 74 | 6f 20 67 43 4e 53 0d 2d |gs() int|o gCNS.-|
|000010f0| 2d 20 69 66 20 67 43 4e | 53 3d 22 22 20 74 68 65 |- if gCN|S="" the|
|00001100| 6e 0d 2d 2d 20 70 75 74 | 20 6e 65 77 73 69 62 20 |n.-- put| newsib |
|00001110| 69 6e 74 6f 20 67 43 4e | 53 0d 2d 2d 20 70 75 74 |into gCN|S.-- put|
|00001120| 20 31 20 69 6e 74 6f 20 | 67 43 4e 53 69 0d 2d 2d | 1 into |gCNSi.--|
|00001130| 20 65 6c 73 65 0d 2d 2d | 20 70 75 74 20 6e 75 6d | else.--| put num|
|00001140| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 69 6e 20 |ber of l|ines in |
|00001150| 28 63 68 61 72 20 31 20 | 74 6f 20 6f 66 66 73 65 |(char 1 |to offse|
|00001160| 74 28 6e 65 77 73 69 62 | 2c 67 43 4e 53 29 20 6f |t(newsib|,gCNS) o|
|00001170| 66 20 67 43 4e 53 29 20 | 69 6e 74 6f 20 67 43 4e |f gCNS) |into gCN|
|00001180| 53 69 0d 2d 2d 20 65 6e | 64 20 69 66 0d 2d 2d 20 |Si.-- en|d if.-- |
|00001190| 65 6e 64 20 69 66 0d 2d | 2d 20 65 6e 64 20 69 66 |end if.-|- end if|
|000011a0| 0d 2d 2d 20 65 6e 64 20 | 77 65 6e 74 53 69 62 6c |.-- end |wentSibl|
|000011b0| 69 6e 67 0d 0d 6f 6e 20 | 61 72 72 6f 77 4b 65 79 |ing..on |arrowKey|
|000011c0| 20 78 0d 69 66 20 74 68 | 65 20 73 65 6c 65 63 74 | x.if th|e select|
|000011d0| 65 64 43 68 75 6e 6b ad | 22 22 20 74 68 65 6e 20 |edChunk.|"" then |
|000011e0| 70 61 73 73 20 61 72 72 | 6f 77 4b 65 79 0d 69 66 |pass arr|owKey.if|
|000011f0| 20 78 3d 22 4c 65 66 74 | 22 20 74 68 65 6e 20 64 | x="Left|" then d|
|00001200| 6f 4d 65 6e 75 20 22 50 | 72 65 76 22 0d 65 6c 73 |oMenu "P|rev".els|
|00001210| 65 20 69 66 20 78 3d 22 | 52 69 67 68 74 22 20 74 |e if x="|Right" t|
|00001220| 68 65 6e 20 64 6f 4d 65 | 6e 75 20 22 4e 65 78 74 |hen doMe|nu "Next|
|00001230| 22 0d 65 6c 73 65 0d 69 | 66 20 78 3d 22 55 70 22 |".else.i|f x="Up"|
|00001240| 20 74 68 65 6e 20 67 6f | 50 61 72 65 6e 74 0d 65 | then go|Parent.e|
|00001250| 6c 73 65 20 69 66 20 78 | 3d 22 44 6f 77 6e 22 20 |lse if x|="Down" |
|00001260| 74 68 65 6e 20 67 6f 43 | 68 69 6c 64 0d 65 6e 64 |then goC|hild.end|
|00001270| 20 69 66 0d 65 6e 64 20 | 61 72 72 6f 77 4b 65 79 | if.end |arrowKey|
|00001280| 0d 0d 6f 6e 20 67 6f 50 | 61 72 65 6e 74 0d 67 6f |..on goP|arent.go|
|00001290| 20 54 43 48 6f 6d 65 0d | 65 6e 64 20 67 6f 50 61 | TCHome.|end goPa|
|000012a0| 72 65 6e 74 0d 0d 6f 6e | 20 67 6f 43 68 69 6c 64 |rent..on| goChild|
|000012b0| 0d 65 6e 64 20 67 6f 43 | 68 69 6c 64 0d 0d 6f 6e |.end goC|hild..on|
|000012c0| 20 70 61 74 68 4c 69 6e | 65 43 6c 69 63 6b 65 64 | pathLin|eClicked|
|000012d0| 20 63 4c 0d 69 66 20 63 | 4c 3d 30 20 74 68 65 6e | cL.if c|L=0 then|
|000012e0| 20 70 75 74 20 31 20 69 | 6e 74 6f 20 63 4c 0d 0d | put 1 i|nto cL..|
|000012f0| 67 6c 6f 62 61 6c 20 67 | 43 50 2c 67 43 4e 50 69 |global g|CP,gCNPi|
|00001300| 2c 67 43 4e 53 0d 0d 69 | 66 20 67 43 50 3d 22 22 |,gCNS..i|f gCP=""|
|00001310| 20 74 68 65 6e 20 70 75 | 74 20 62 67 20 66 6c 64 | then pu|t bg fld|
|00001320| 20 22 50 61 74 68 22 20 | 69 6e 74 6f 20 67 43 50 | "Path" |into gCP|
|00001330| 0d 69 66 20 67 43 4e 50 | 69 3d 22 22 20 74 68 65 |.if gCNP|i="" the|
|00001340| 6e 20 20 70 75 74 20 6e | 75 6d 62 65 72 20 6f 66 |n  put n|umber of|
|00001350| 20 6c 69 6e 65 73 20 69 | 6e 20 67 43 50 20 69 6e | lines i|n gCP in|
|00001360| 74 6f 20 67 43 4e 50 69 | 0d 0d 69 66 20 63 4c 3e |to gCNPi|..if cL>|
|00001370| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|00001380| 69 6e 20 28 67 43 50 29 | 20 74 68 65 6e 20 65 78 |in (gCP)| then ex|
|00001390| 69 74 20 70 61 74 68 4c | 69 6e 65 43 6c 69 63 6b |it pathL|ineClick|
|000013a0| 65 64 0d 69 66 20 63 4c | 3d 67 43 4e 50 69 20 74 |ed.if cL|=gCNPi t|
|000013b0| 68 65 6e 0d 67 6f 20 28 | 6c 69 6e 65 20 63 4c 20 |hen.go (|line cL |
|000013c0| 6f 66 20 67 43 50 29 0d | 65 78 69 74 20 70 61 74 |of gCP).|exit pat|
|000013d0| 68 4c 69 6e 65 43 6c 69 | 63 6b 65 64 0d 65 6e 64 |hLineCli|cked.end|
|000013e0| 20 69 66 0d 0d 67 6c 6f | 62 61 6c 20 69 73 4e 61 | if..glo|bal isNa|
|000013f0| 76 69 67 61 74 69 6e 67 | 0d 70 75 74 20 74 72 75 |vigating|.put tru|
|00001400| 65 20 69 6e 74 6f 20 69 | 73 4e 61 76 69 67 61 74 |e into i|sNavigat|
|00001410| 69 6e 67 0d 69 66 20 69 | 73 47 49 42 49 28 29 20 |ing.if i|sGIBI() |
|00001420| 74 68 65 6e 20 73 65 74 | 20 74 68 65 20 74 65 78 |then set| the tex|
|00001430| 74 73 74 79 6c 65 20 6f | 66 20 6c 69 6e 65 20 67 |tstyle o|f line g|
|00001440| 43 4e 50 69 20 6f 66 20 | 62 67 20 66 6c 64 20 50 |CNPi of |bg fld P|
|00001450| 61 74 68 20 74 6f 20 70 | 6c 61 69 6e 0d 70 75 74 |ath to p|lain.put|
|00001460| 20 6c 69 6e 65 20 63 6c | 20 6f 66 20 67 43 50 20 | line cl| of gCP |
|00001470| 69 6e 74 6f 20 74 61 72 | 67 0d 69 66 20 74 68 65 |into tar|g.if the|
|00001480| 72 65 20 69 73 20 61 20 | 73 74 61 63 6b 20 74 61 |re is a |stack ta|
|00001490| 72 67 20 74 68 65 6e 0d | 67 6f 20 73 74 61 63 6b |rg then.|go stack|
|000014a0| 20 74 61 72 67 0d 65 6c | 73 65 0d 70 75 74 20 6c | targ.el|se.put l|
|000014b0| 69 6e 65 20 63 4c 2d 31 | 20 6f 66 20 67 43 50 20 |ine cL-1| of gCP |
|000014c0| 69 6e 74 6f 20 70 72 6e | 74 0d 69 66 20 74 68 65 |into prn|t.if the|
|000014d0| 72 65 20 69 73 20 61 20 | 73 74 61 63 6b 20 70 72 |re is a |stack pr|
|000014e0| 6e 74 20 74 68 65 6e 0d | 67 6f 20 73 74 61 63 6b |nt then.|go stack|
|000014f0| 20 70 72 6e 74 0d 66 69 | 6e 64 20 73 74 72 69 6e | prnt.fi|nd strin|
|00001500| 67 20 74 61 72 67 20 69 | 6e 20 62 67 20 66 6c 64 |g targ i|n bg fld|
|00001510| 20 31 0d 65 6e 64 20 69 | 66 0d 65 6e 64 20 69 66 | 1.end i|f.end if|
|00001520| 0d 70 75 74 20 66 61 6c | 73 65 20 69 6e 74 6f 20 |.put fal|se into |
|00001530| 69 73 4e 61 76 69 67 61 | 74 69 6e 67 0d 2d 2d 20 |isNaviga|ting.-- |
|00001540| 77 65 6e 74 63 68 69 6c | 64 0d 6f 70 65 6e 63 61 |wentchil|d.openca|
|00001550| 72 64 0d 65 6e 64 20 70 | 61 74 68 4c 69 6e 65 43 |rd.end p|athLineC|
|00001560| 6c 69 63 6b 65 64 0d 0d | 6f 6e 20 73 69 62 6c 69 |licked..|on sibli|
|00001570| 6e 67 4c 69 6e 65 43 6c | 69 63 6b 65 64 20 69 0d |ngLineCl|icked i.|
|00001580| 66 69 6e 64 20 73 74 72 | 69 6e 67 20 6c 69 6e 65 |find str|ing line|
|00001590| 20 69 20 6f 66 20 62 67 | 20 66 6c 64 20 73 69 62 | i of bg| fld sib|
|000015a0| 6c 69 6e 67 73 20 69 6e | 20 62 67 20 66 6c 64 20 |lings in| bg fld |
|000015b0| 31 0d 65 6e 64 20 73 69 | 62 6c 69 6e 67 4c 69 6e |1.end si|blingLin|
|000015c0| 65 43 6c 69 63 6b 65 64 | 0d 0d 6f 6e 20 73 63 72 |eClicked|..on scr|
|000015d0| 6f 6c 6c 4c 56 69 65 77 | 20 6e 2c 66 0d 70 75 74 |ollLView| n,f.put|
|000015e0| 20 74 68 65 20 74 65 78 | 74 68 65 69 67 68 74 20 | the tex|theight |
|000015f0| 6f 66 20 62 67 20 66 6c | 64 20 66 20 69 6e 74 6f |of bg fl|d f into|
|00001600| 20 70 74 68 0d 70 75 74 | 20 6e 2d 28 68 65 69 67 | pth.put| n-(heig|
|00001610| 68 74 20 6f 66 20 62 67 | 20 66 6c 64 20 66 2f 28 |ht of bg| fld f/(|
|00001620| 32 2a 70 74 68 29 29 20 | 69 6e 74 6f 20 73 63 72 |2*pth)) |into scr|
|00001630| 6f 6c 6c 4c 69 6e 65 0d | 69 66 20 73 63 72 6f 6c |ollLine.|if scrol|
|00001640| 6c 4c 69 6e 65 3c 30 20 | 74 68 65 6e 20 73 65 74 |lLine<0 |then set|
|00001650| 20 74 68 65 20 73 63 72 | 6f 6c 6c 20 6f 66 20 62 | the scr|oll of b|
|00001660| 67 20 66 6c 64 20 66 20 | 74 6f 20 30 0d 65 6c 73 |g fld f |to 0.els|
|00001670| 65 20 73 65 74 20 74 68 | 65 20 73 63 72 6f 6c 6c |e set th|e scroll|
|00001680| 20 6f 66 20 62 67 20 66 | 6c 64 20 66 20 74 6f 20 | of bg f|ld f to |
|00001690| 74 72 75 6e 63 28 73 63 | 72 6f 6c 6c 4c 69 6e 65 |trunc(sc|rollLine|
|000016a0| 2a 70 74 68 29 2b 32 0d | 65 6e 64 20 73 63 72 6f |*pth)+2.|end scro|
|000016b0| 6c 6c 4c 56 69 65 77 0d | 0d 6f 6e 20 6e 65 77 20 |llLView.|.on new |
|000016c0| 61 0d 67 6f 20 6c 61 73 | 74 20 63 64 20 6f 66 20 |a.go las|t cd of |
|000016d0| 74 68 69 73 20 53 74 61 | 63 6b 0d 64 6f 4d 65 6e |this Sta|ck.doMen|
|000016e0| 75 20 22 4e 65 77 20 43 | 61 72 64 22 0d 70 75 74 |u "New C|ard".put|
|000016f0| 20 67 65 74 6e 61 6d 65 | 28 29 20 69 6e 74 6f 20 | getname|() into |
|00001700| 62 67 20 66 6c 64 20 31 | 0d 65 6e 64 20 6e 65 77 |bg fld 1|.end new|
|00001710| 0d 0d 2d 2d 20 46 72 61 | 6d 65 77 6f 72 6b 0d 0d |..-- Fra|mework..|
|00001720| 66 75 6e 63 74 69 6f 6e | 20 49 6e 74 65 72 6e 61 |function| Interna|
|00001730| 6c 69 7a 65 4c 69 73 74 | 20 66 0d 69 66 20 66 3d |lizeList| f.if f=|
|00001740| 22 22 20 74 68 65 6e 0d | 2d 2d 20 47 65 74 20 50 |"" then.|-- Get P|
|00001750| 72 65 66 65 72 65 6e 63 | 65 73 20 66 6f 6c 64 65 |referenc|es folde|
|00001760| 72 0d 2d 2d 20 74 61 63 | 6b 20 6f 6e 20 3a 48 79 |r.-- tac|k on :Hy|
|00001770| 70 65 72 63 61 72 64 3a | 2c 20 63 72 65 61 74 65 |percard:|, create|
|00001780| 20 74 68 61 74 20 66 6f | 6c 64 65 72 20 69 66 20 | that fo|lder if |
|00001790| 6e 65 63 65 73 73 61 72 | 79 0d 2d 2d 20 74 61 63 |necessar|y.-- tac|
|000017a0| 6b 20 6f 6e 20 73 68 6f | 72 74 20 6e 61 6d 65 20 |k on sho|rt name |
|000017b0| 6f 66 20 73 74 61 63 6b | 2c 20 63 72 65 61 74 65 |of stack|, create|
|000017c0| 20 66 69 6c 65 20 69 66 | 20 6e 65 63 65 73 73 61 | file if| necessa|
|000017d0| 72 79 0d 65 6e 64 20 69 | 66 0d 6f 70 65 6e 20 66 |ry.end i|f.open f|
|000017e0| 69 6c 65 20 66 0d 72 65 | 61 64 20 66 72 6f 6d 20 |ile f.re|ad from |
|000017f0| 66 69 6c 65 20 66 20 75 | 6e 74 69 6c 20 65 6e 64 |file f u|ntil end|
|00001800| 0d 63 6c 6f 73 65 20 66 | 69 6c 65 20 66 0d 70 75 |.close f|ile f.pu|
|00001810| 74 20 66 20 69 6e 74 6f | 20 69 74 65 6d 20 31 20 |t f into| item 1 |
|00001820| 6f 66 20 69 74 0d 72 65 | 74 75 72 6e 20 69 74 0d |of it.re|turn it.|
|00001830| 65 6e 64 20 49 6e 74 65 | 72 6e 61 6c 69 7a 65 4c |end Inte|rnalizeL|
|00001840| 69 73 74 0d 0d 66 75 6e | 63 74 69 6f 6e 20 45 78 |ist..fun|ction Ex|
|00001850| 74 65 72 6e 61 6c 69 7a | 65 4c 69 73 74 20 4c 2c |ternaliz|eList L,|
|00001860| 66 0d 69 66 20 66 3d 22 | 22 20 74 68 65 6e 20 70 |f.if f="|" then p|
|00001870| 75 74 20 69 74 65 6d 20 | 31 20 6f 66 20 4c 20 69 |ut item |1 of L i|
|00001880| 6e 74 6f 20 66 0d 70 75 | 74 20 43 6f 6d 70 61 63 |nto f.pu|t Compac|
|00001890| 74 4c 69 73 74 28 4c 29 | 20 69 6e 74 6f 20 4c 0d |tList(L)| into L.|
|000018a0| 6f 70 65 6e 20 66 69 6c | 65 20 66 0d 77 72 69 74 |open fil|e f.writ|
|000018b0| 65 20 4c 20 74 6f 20 66 | 69 6c 65 20 66 0d 63 6c |e L to f|ile f.cl|
|000018c0| 6f 73 65 20 66 69 6c 65 | 20 66 0d 72 65 74 75 72 |ose file| f.retur|
|000018d0| 6e 20 4c 0d 65 6e 64 20 | 45 78 74 65 72 6e 61 6c |n L.end |External|
|000018e0| 69 7a 65 4c 69 73 74 0d | 0d 66 75 6e 63 74 69 6f |izeList.|.functio|
|000018f0| 6e 20 47 65 74 49 74 65 | 6d 20 4c 2c 69 6e 61 6d |n GetIte|m L,inam|
|00001900| 65 0d 69 66 20 69 6e 61 | 6d 65 3d 69 74 65 6d 20 |e.if ina|me=item |
|00001910| 32 20 6f 66 20 4c 20 74 | 68 65 6e 20 70 75 74 20 |2 of L t|hen put |
|00001920| 22 22 20 69 6e 74 6f 20 | 69 6e 61 6d 65 0d 69 66 |"" into |iname.if|
|00001930| 20 69 6e 61 6d 65 ad 22 | 22 20 74 68 65 6e 0d 70 | iname."|" then.p|
|00001940| 75 74 20 6f 66 66 73 65 | 74 28 72 65 74 75 72 6e |ut offse|t(return|
|00001950| 26 69 6e 61 6d 65 26 22 | 2c 22 2c 4c 29 20 69 6e |&iname&"|,",L) in|
|00001960| 74 6f 20 69 6f 0d 69 66 | 20 69 6f 3d 30 20 74 68 |to io.if| io=0 th|
|00001970| 65 6e 20 72 65 74 75 72 | 6e 20 22 22 0d 70 75 74 |en retur|n "".put|
|00001980| 20 69 6e 61 6d 65 20 69 | 6e 74 6f 20 69 74 65 6d | iname i|nto item|
|00001990| 20 32 20 6f 66 20 4c 0d | 70 75 74 20 6e 75 6d 62 | 2 of L.|put numb|
|000019a0| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 69 6e 20 63 |er of li|nes in c|
|000019b0| 68 61 72 20 31 20 74 6f | 20 69 6f 20 6f 66 20 4c |har 1 to| io of L|
|000019c0| 20 69 6e 74 6f 20 69 74 | 65 6d 20 33 20 6f 66 20 | into it|em 3 of |
|000019d0| 4c 0d 65 6e 64 20 69 66 | 0d 70 75 74 20 6c 69 6e |L.end if|.put lin|
|000019e0| 65 20 28 69 74 65 6d 20 | 33 20 6f 66 20 4c 29 20 |e (item |3 of L) |
|000019f0| 6f 66 20 4c 20 69 6e 74 | 6f 20 69 0d 64 65 6c 65 |of L int|o i.dele|
|00001a00| 74 65 20 69 74 65 6d 20 | 31 20 6f 66 20 69 0d 72 |te item |1 of i.r|
|00001a10| 65 74 75 72 6e 20 69 0d | 65 6e 64 20 47 65 74 49 |eturn i.|end GetI|
|00001a20| 74 65 6d 0d 0d 66 75 6e | 63 74 69 6f 6e 20 53 65 |tem..fun|ction Se|
|00001a30| 74 49 74 65 6d 20 4c 2c | 69 4e 61 6d 65 2c 43 0d |tItem L,|iName,C.|
|00001a40| 69 66 20 69 6e 61 6d 65 | 3d 69 74 65 6d 20 32 20 |if iname|=item 2 |
|00001a50| 6f 66 20 4c 20 74 68 65 | 6e 20 70 75 74 20 22 22 |of L the|n put ""|
|00001a60| 20 69 6e 74 6f 20 69 6e | 61 6d 65 0d 69 66 20 69 | into in|ame.if i|
|00001a70| 6e 61 6d 65 ad 22 22 20 | 74 68 65 6e 0d 70 75 74 |name."" |then.put|
|00001a80| 20 6f 66 66 73 65 74 28 | 72 65 74 75 72 6e 26 69 | offset(|return&i|
|00001a90| 6e 61 6d 65 26 22 2c 22 | 2c 4c 29 20 69 6e 74 6f |name&","|,L) into|
|00001aa0| 20 69 6f 0d 69 66 20 69 | 6f 3d 30 20 74 68 65 6e | io.if i|o=0 then|
|00001ab0| 0d 70 75 74 20 72 65 74 | 75 72 6e 26 69 6e 61 6d |.put ret|urn&inam|
|00001ac0| 65 26 22 2c 22 26 43 20 | 61 66 74 65 72 20 4c 0d |e&","&C |after L.|
|00001ad0| 70 75 74 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 68 |put numb|er of ch|
|00001ae0| 61 72 73 20 69 6e 20 4c | 20 69 6e 74 6f 20 69 6f |ars in L| into io|
|00001af0| 0d 65 6e 64 20 69 66 0d | 70 75 74 20 69 6e 61 6d |.end if.|put inam|
|00001b00| 65 20 69 6e 74 6f 20 69 | 74 65 6d 20 32 20 6f 66 |e into i|tem 2 of|
|00001b10| 20 4c 0d 70 75 74 20 6e | 75 6d 62 65 72 20 6f 66 | L.put n|umber of|
|00001b20| 20 6c 69 6e 65 73 20 69 | 6e 20 63 68 61 72 20 31 | lines i|n char 1|
|00001b30| 20 74 6f 20 69 6f 20 6f | 66 20 4c 20 69 6e 74 6f | to io o|f L into|
|00001b40| 20 69 74 65 6d 20 33 20 | 6f 66 20 4c 0d 65 6e 64 | item 3 |of L.end|
|00001b50| 20 69 66 0d 70 75 74 20 | 69 74 65 6d 20 32 20 6f | if.put |item 2 o|
|00001b60| 66 20 4c 26 22 2c 22 26 | 43 20 69 6e 74 6f 20 6c |f L&","&|C into l|
|00001b70| 69 6e 65 20 28 69 74 65 | 6d 20 33 20 6f 66 20 4c |ine (ite|m 3 of L|
|00001b80| 29 20 6f 66 20 4c 0d 72 | 65 74 75 72 6e 20 4c 0d |) of L.r|eturn L.|
|00001b90| 65 6e 64 20 53 65 74 49 | 74 65 6d 0d 0d 66 75 6e |end SetI|tem..fun|
|00001ba0| 63 74 69 6f 6e 20 43 6f | 6d 70 61 63 74 4c 69 73 |ction Co|mpactLis|
|00001bb0| 74 20 4c 0d 70 75 74 20 | 6e 75 6d 62 65 72 20 6f |t L.put |number o|
|00001bc0| 66 20 6c 69 6e 65 73 20 | 69 6e 20 4c 20 69 6e 74 |f lines |in L int|
|00001bd0| 6f 20 4c 78 0d 72 65 70 | 65 61 74 20 77 69 74 68 |o Lx.rep|eat with|
|00001be0| 20 69 3d 4c 78 20 64 6f | 77 6e 20 74 6f 20 32 0d | i=Lx do|wn to 2.|
|00001bf0| 70 75 74 20 6c 69 6e 65 | 20 69 20 6f 66 20 4c 20 |put line| i of L |
|00001c00| 69 6e 74 6f 20 4c 6f 6e | 65 0d 64 65 6c 65 74 65 |into Lon|e.delete|
|00001c10| 20 69 74 65 6d 20 31 20 | 6f 66 20 4c 6f 6e 65 0d | item 1 |of Lone.|
|00001c20| 69 66 20 4c 6f 6e 65 3d | 22 22 20 74 68 65 6e 20 |if Lone=|"" then |
|00001c30| 64 65 6c 65 74 65 20 6c | 69 6e 65 20 69 20 6f 66 |delete l|ine i of|
|00001c40| 20 4c 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 72 65 | L.end r|epeat.re|
|00001c50| 74 75 72 6e 20 4c 0d 65 | 6e 64 20 43 6f 6d 70 61 |turn L.e|nd Compa|
|00001c60| 63 74 4c 69 73 74 0d 0d | 66 75 6e 63 74 69 6f 6e |ctList..|function|
|00001c70| 20 6c 69 6e 65 6f 66 20 | 6e 2c 6c 69 73 74 0d 70 | lineof |n,list.p|
|00001c80| 75 74 20 6f 66 66 73 65 | 74 28 72 65 74 75 72 6e |ut offse|t(return|
|00001c90| 26 6e 26 72 65 74 75 72 | 6e 2c 72 65 74 75 72 6e |&n&retur|n,return|
|00001ca0| 26 6c 69 73 74 26 72 65 | 74 75 72 6e 29 20 69 6e |&list&re|turn) in|
|00001cb0| 74 6f 20 68 6f 0d 72 65 | 74 75 72 6e 20 28 6e 75 |to ho.re|turn (nu|
|00001cc0| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 20 69 6e |mber of |lines in|
|00001cd0| 20 63 68 61 72 20 31 20 | 74 6f 20 68 6f 20 6f 66 | char 1 |to ho of|
|00001ce0| 20 28 72 65 74 75 72 6e | 26 6c 69 73 74 29 29 0d | (return|&list)).|
|00001cf0| 65 6e 64 20 6c 69 6e 65 | 6f 66 00 00 00 00 00 00 |end line|of......|
|00001d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001e80| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00001e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ea0| 00 00 00 00 00 00 00 00 | 00 01 44 31 00 01 55 08 |........|..D1..U.|
|00001eb0| 00 01 5c b5 00 01 5e d7 | 00 01 5a 33 00 01 00 17 |..\...^.|..Z3....|
|00001ec0| 00 01 04 5f 00 00 00 00 | 00 00 00 00 00 00 00 00 |..._....|........|
|00001ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002080| 00 00 00 80 4c 49 53 54 | 00 00 0f 17 00 00 00 00 |....LIST|........|
|00002090| 00 00 00 01 00 00 08 00 | 00 00 00 02 00 08 00 02 |........|........|
|000020a0| 00 01 00 03 e0 00 02 0d | 00 00 00 02 00 00 00 00 |........|........|
|000020b0| 00 00 10 5f 00 02 00 00 | 00 00 00 00 00 00 00 00 |..._....|........|
|000020c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002100| 00 00 08 00 50 41 47 45 | 00 00 10 5f 00 00 00 00 |....PAGE|..._....|
|00002110| 00 00 0f 17 80 00 01 f2 | 00 00 0b 08 e0 00 50 54 |........|......PT|
|00002120| 00 00 0e 33 a0 05 58 50 | 00 00 00 00 00 00 00 00 |...3..XP|........|
|00002130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000021f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000023f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002400| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002700| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002900| 00 00 02 20 42 4b 47 44 | 00 00 0a 31 00 00 00 00 |... BKGD|...1....|
|00002910| 00 00 00 00 00 00 00 00 | 00 00 00 02 00 00 0a 31 |........|.......1|
|00002920| 00 00 0a 31 00 00 00 05 | 00 00 00 00 00 00 00 00 |...1....|........|
|00002930| 00 00 00 2d 2d 20 69 74 | 65 6d 6e 61 6d 65 73 20 |...-- it|emnames |
|00002940| 6d 61 79 20 6e 6f 74 20 | 68 61 76 65 20 63 6f 6d |may not |have com|
|00002950| 6d 61 73 20 6f 72 20 72 | 65 74 75 72 6e 73 0d 2d |mas or r|eturns.-|
|00002960| 2d 20 63 6f 6e 74 65 6e | 74 20 6d 61 79 20 6e 6f |- conten|t may no|
|00002970| 74 20 68 61 76 65 20 72 | 65 74 75 72 6e 73 0d 2d |t have r|eturns.-|
|00002980| 2d 20 49 6e 74 65 72 6e | 61 6c 69 7a 65 4c 69 73 |- Intern|alizeLis|
|00002990| 74 28 66 69 6c 65 6e 61 | 6d 65 29 0d 2d 2d 20 45 |t(filena|me).-- E|
|000029a0| 78 74 65 72 6e 61 6c 69 | 7a 65 4c 69 73 74 28 4c |xternali|zeList(L|
|000029b0| 69 73 74 2c 3c 6f 70 74 | 69 6f 6e 61 6c 20 66 69 |ist,<opt|ional fi|
|000029c0| 6c 65 6e 61 6d 65 3e 29 | 20 2d 2d 20 6f 6e 6c 79 |lename>)| -- only|
|000029d0| 20 69 74 65 6d 73 20 77 | 69 74 68 20 6e 6f 6e 65 | items w|ith none|
|000029e0| 6d 70 74 79 20 63 6f 6e | 74 65 6e 74 73 20 61 72 |mpty con|tents ar|
|000029f0| 65 20 77 72 69 74 74 65 | 6e 20 6f 75 74 0d 2d 2d |e writte|n out.--|
|00002a00| 20 49 74 65 6d 20 47 65 | 74 49 74 65 6d 28 4c 69 | Item Ge|tItem(Li|
|00002a10| 73 74 2c 3c 6f 70 74 69 | 6f 6e 61 6c 20 69 74 65 |st,<opti|onal ite|
|00002a20| 6d 4e 61 6d 65 3e 29 0d | 2d 2d 20 4c 69 73 74 20 |mName>).|-- List |
|00002a30| 53 65 74 49 74 65 6d 28 | 4c 69 73 74 2c 3c 6f 70 |SetItem(|List,<op|
|00002a40| 74 69 6f 6e 61 6c 20 69 | 74 65 6d 4e 61 6d 65 3e |tional i|temName>|
|00002a50| 2c 63 6f 6e 74 65 6e 74 | 29 0d 2d 2d 20 4c 69 73 |,content|).-- Lis|
|00002a60| 74 20 43 6f 6d 70 61 63 | 74 28 4c 69 73 74 2c 3c |t Compac|t(List,<|
|00002a70| 6f 70 74 69 6f 6e 61 6c | 20 69 74 65 6d 4e 61 6d |optional| itemNam|
|00002a80| 65 29 20 2d 2d 20 72 65 | 6d 6f 76 65 73 20 69 74 |e) -- re|moves it|
|00002a90| 65 6d 73 20 77 69 74 68 | 20 65 6d 70 74 79 20 63 |ems with| empty c|
|00002aa0| 6f 6e 74 65 6e 74 73 0d | 0d 2d 2d 20 4c 69 73 74 |ontents.|.-- List|
|00002ab0| 20 73 74 72 75 63 74 75 | 72 65 3a 0d 2d 2d 20 6c | structu|re:.-- l|
|00002ac0| 69 6e 65 20 31 20 3d 20 | 6d 65 74 61 69 6e 66 6f |ine 1 = |metainfo|
|00002ad0| 3a 0d 2d 2d 20 66 69 6c | 65 6e 61 6d 65 2c 20 6c |:.-- fil|ename, l|
|00002ae0| 61 73 74 49 74 65 6d 4e | 61 6d 65 2c 20 6c 61 73 |astItemN|ame, las|
|00002af0| 74 49 74 65 6d 20 6c 69 | 6e 65 4e 75 6d 62 65 72 |tItem li|neNumber|
|00002b00| 0d 2d 2d 20 6c 69 6e 65 | 20 32 2e 2e 2e 6e 20 69 |.-- line| 2...n i|
|00002b10| 74 65 6d 73 0d 00 00 00 | 00 00 00 00 00 00 00 00 |tems....|........|
|00002b20| 00 00 00 a0 43 41 52 44 | 00 00 0b 08 00 00 00 00 |....CARD|........|
|00002b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b40| 00 00 10 5f 00 00 0a 31 | 00 00 00 03 00 00 00 00 |..._...1|........|
|00002b50| 00 00 00 00 00 00 4c 69 | 73 74 54 65 78 74 00 6f |......Li|stText.o|
|00002b60| 6e 20 6d 6f 75 73 65 55 | 70 0d 67 6f 20 63 64 20 |n mouseU|p.go cd |
|00002b70| 31 20 6f 66 20 74 63 68 | 6f 6d 65 0d 63 6c 69 63 |1 of tch|ome.clic|
|00002b80| 6b 20 61 74 20 74 68 65 | 20 6c 6f 63 20 6f 66 20 |k at the| loc of |
|00002b90| 63 64 20 62 74 6e 20 22 | 41 62 6f 75 74 22 0d 65 |cd btn "|About".e|
|00002ba0| 6e 64 20 6d 6f 75 73 65 | 55 70 00 00 00 00 00 00 |nd mouse|Up......|
|00002bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bc0| 00 00 00 40 43 41 52 44 | 00 00 0e 33 00 00 00 00 |...@CARD|...3....|
|00002bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002be0| 00 00 10 5f 00 00 0a 31 | 00 00 00 00 00 00 00 00 |..._...1|........|
|00002bf0| 00 00 00 00 00 00 4c 69 | 73 74 44 61 79 00 00 00 |......Li|stDay...|
|00002c00| 00 00 00 40 53 54 42 4c | 00 00 0c b5 00 00 00 00 |...@STBL|........|
|00002c10| 00 00 00 00 00 00 00 01 | 00 00 00 00 00 00 00 00 |........|........|
|00002c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c40| 00 00 00 20 46 54 42 4c | 00 00 0d d7 00 00 00 00 |... FTBL|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c60| 00 00 00 20 54 41 49 4c | ff ff ff ff 00 00 00 00 |... TAIL|........|
|00002c70| 0f 4e 75 20 8a 72 20 64 | 65 74 20 73 6c 75 74 c9 |.Nu .r d|et slut.|
|00002c80| 00 00 01 00 00 00 01 84 | 00 00 00 84 00 00 00 37 |........|.......7|
|00002c90| 74 31 2c 20 72 65 63 69 | 70 69 65 6e 74 32 2c 20 |t1, reci|pient2, |
|00002ca0| 2e 2e 2e 20 2c 20 72 65 | 63 69 70 69 65 6e 74 4e |... , re|cipientN|
|00002cb0| 07 43 6f 6e 74 65 78 74 | 02 00 00 00 53 54 41 4b |.Context|....STAK|
|00002cc0| 57 49 4c 44 00 00 00 00 | 00 00 00 00 00 00 0c 1f |WILD....|........|
|00002cd0| 00 00 53 54 41 4b 57 49 | 4c 44 00 00 00 00 00 00 |..STAKWI|LD......|
|00002ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 00 ab 83 74 ce 00 00 | 2c 00 00 00 01 bb 6f 6e |....t...|,.....on|
|00002d00| 74 65 6e 74 73 0d 2d 2d | 20 3c 65 6f 66 3e 0d 0d |tents.--| <eof>..|
|00002d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d20| 00 00 00 40 43 41 52 44 | 00 00 09 39 00 00 00 00 |...@CARD|...9....|
|00002d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d40| 00 00 10 b5 00 00 0a d9 | 00 00 00 00 00 00 00 00 |........|........|
|00002d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d60| 00 00 01 00 43 41 52 44 | 00 00 08 be 00 00 00 00 |....CARD|........|
|00002d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d80| 00 00 00 80 00 00 00 00 | 00 0f f0 00 00 7f fe 00 |........|........|
|00002d90| 00 f0 0f 00 03 c0 03 c0 | 07 00 00 e0 0e 00 00 70 |........|.......p|
|00002da0| 0c 00 00 30 18 00 00 18 | 39 ff ff 9c 31 ff ff 8c |...0....|9...1...|
|00002db0| 30 01 80 0c 60 01 80 06 | 60 01 80 06 60 01 80 06 |0...`...|`...`...|
|00002dc0| 60 01 80 06 60 01 80 06 | 60 01 80 06 60 01 80 06 |`...`...|`...`...|
|00002dd0| 60 01 80 06 30 01 80 0c | 30 01 80 0c 38 01 80 1c |`...0...|0...8...|
|00002de0| 18 01 80 18 0c 01 80 30 | 0e 01 80 70 07 01 80 e0 |.......0|...p....|
|00002df0| 03 c0 03 c0 00 f0 0f 00 | 00 7f fe 00 00 0f f0 00 |........|........|
|00002e00| 00 00 00 00 00 00 01 00 | 00 00 01 84 00 00 00 84 |........|........|
|00002e10| 00 00 00 37 00 96 3f 3c | 12 00 00 00 00 1c 00 32 |...7..?<|.......2|
|00002e20| 00 00 49 43 4f 4e 00 00 | 00 0a 2f a4 00 00 20 00 |..ICON..|../... .|
|00002e30| 00 00 00 96 40 54 04 54 | 65 6b 61 00 00 00 00 00 |....@T.T|eka.....|
|00002e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+