home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1996 July / macformat-039.iso / DATABASE / SHARED.DIR < prev   
Macromedia Director  |  1996-03-14  |  1.7 MB  |  [MV93/MD93]
view JSON data     |     view as text     |     open on a Mac     |     open on a PC

This file was processed as: Macromedia Director (archive/macromediaDirector).

You can browse this item here: SHARED.DIR

ConfidenceProgramDetectionMatch TypeSupport
100% dexvert Macromedia Director (archive/macromediaDirector) magic Supported
1% dexvert PC-Talk III data (other/pcTalkIIIData) ext Unsupported
1% dexvert RIFF (Generic Fallback) (archive/riff) fallback Supported
100% file RIFF (big-endian) data default
99% file data default
44% TrID Macromedia Director project (Big-endian) default
22% TrID Adobe Director Protected Cast (MV93) default
22% TrID Generic RIFX container (big-endian) default
11% TrID Philips Respironics M-Series data format default (weak)


id metadata
keyvalue
macFileType[MV93]
macFileCreator[MD93]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 52 49 46 58 00 17 b4 8c | 4d 56 39 33 69 6d 61 70 |RIFX....|MV93imap|
|00000010| 00 00 00 18 00 00 00 01 | 00 16 4d 94 00 00 00 00 |........|..M.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 4b 45 59 2a |........|....KEY*|
|00000030| 00 00 17 b8 00 0c 00 0c | 00 00 01 f9 00 00 01 cd |........|........|
|00000040| 00 00 00 07 00 00 00 0c | 53 54 58 54 00 00 00 0e |........|STXT....|
|00000050| 00 00 00 10 53 54 58 54 | 00 00 00 0d 00 00 00 11 |....STXT|........|
|00000060| 53 54 58 54 00 00 00 92 | 00 00 00 1c 53 54 58 54 |STXT....|....STXT|
|00000070| 00 00 00 49 00 00 00 20 | 53 54 58 54 00 00 00 60 |...I... |STXT...`|
|00000080| 00 00 00 21 53 54 58 54 | 00 00 00 23 00 00 00 22 |...!STXT|...#..."|
|00000090| 53 54 58 54 00 00 00 15 | 00 00 00 26 53 54 58 54 |STXT....|...&STXT|
|000000a0| 00 00 00 29 00 00 00 28 | 53 54 58 54 00 00 00 3c |...)...(|STXT...<|
|000000b0| 00 00 00 2a 53 54 58 54 | 00 00 03 ad 00 00 00 32 |...*STXT|.......2|
|000000c0| 53 54 58 54 00 00 00 4f | 00 00 00 33 53 54 58 54 |STXT...O|...3STXT|
|000000d0| 00 00 05 f9 00 00 00 34 | 53 54 58 54 00 00 00 2c |.......4|STXT...,|
|000000e0| 00 00 00 36 42 49 54 44 | 00 00 03 30 00 00 00 37 |...6BITD|...0...7|
|000000f0| 53 54 58 54 00 00 03 fd | 00 00 00 38 53 54 58 54 |STXT....|...8STXT|
|00000100| 00 00 00 59 00 00 00 3a | 73 6e 64 20 00 00 00 3b |...Y...:|snd ...;|
|00000110| 00 00 00 40 53 54 58 54 | 00 00 03 93 00 00 00 42 |...@STXT|.......B|
|00000120| 53 54 58 54 00 00 00 cc | 00 00 00 46 53 54 58 54 |STXT....|...FSTXT|
|00000130| 00 00 00 3f 00 00 00 47 | 42 49 54 44 00 00 00 14 |...?...G|BITD....|
|00000140| 00 00 00 4a 53 54 58 54 | 00 00 00 57 00 00 00 4d |...JSTXT|...W...M|
|00000150| 53 54 58 54 00 00 00 5a | 00 00 00 53 42 49 54 44 |STXT...Z|...SBITD|
|00000160| 00 00 00 61 00 00 00 54 | 53 54 58 54 00 00 00 fa |...a...T|STXT....|
|00000170| 00 00 00 5b 53 54 58 54 | 00 00 03 76 00 00 00 5c |...[STXT|...v...\|
|00000180| 53 54 58 54 00 00 01 89 | 00 00 00 5d 53 54 58 54 |STXT....|...]STXT|
|00000190| 00 00 00 5e 00 00 00 65 | 53 54 58 54 00 00 00 2f |...^...e|STXT.../|
|000001a0| 00 00 00 68 4d 6f 6f 56 | 00 00 00 41 00 00 00 69 |...hMooV|...A...i|
|000001b0| 73 6e 64 20 00 00 00 5f | 00 00 00 6b 53 54 58 54 |snd ..._|...kSTXT|
|000001c0| 00 00 00 6a 00 00 00 6d | 53 54 58 54 00 00 00 1f |...j...m|STXT....|
|000001d0| 00 00 00 6f 53 54 58 54 | 00 00 01 b7 00 00 00 71 |...oSTXT|.......q|
|000001e0| 53 54 58 54 00 00 00 77 | 00 00 00 73 53 54 58 54 |STXT...w|...sSTXT|
|000001f0| 00 00 05 03 00 00 00 7a | 42 49 54 44 00 00 00 99 |.......z|BITD....|
|00000200| 00 00 00 7c 53 54 58 54 | 00 00 00 7e 00 00 00 7d |...|STXT|...~...}|
|00000210| 53 54 58 54 00 00 00 75 | 00 00 00 80 53 54 58 54 |STXT...u|....STXT|
|00000220| 00 00 01 74 00 00 00 81 | 53 54 58 54 00 00 00 a0 |...t....|STXT....|
|00000230| 00 00 00 84 53 54 58 54 | 00 00 00 a1 00 00 00 85 |....STXT|........|
|00000240| 53 54 58 54 00 00 03 46 | 00 00 00 86 53 54 58 54 |STXT...F|....STXT|
|00000250| 00 00 02 00 00 00 00 88 | 53 54 58 54 00 00 00 8b |........|STXT....|
|00000260| 00 00 00 89 53 54 58 54 | 00 00 05 a9 00 00 00 8d |....STXT|........|
|00000270| 53 54 58 54 00 00 00 90 | 00 00 00 8f 53 54 58 54 |STXT....|....STXT|
|00000280| 00 00 03 4f 00 00 00 98 | 53 54 58 54 00 00 00 7f |...O....|STXT....|
|00000290| 00 00 00 9a 53 54 58 54 | 00 00 01 8f 00 00 00 9c |....STXT|........|
|000002a0| 53 54 58 54 00 00 02 cf | 00 00 00 9d 53 54 58 54 |STXT....|....STXT|
|000002b0| 00 00 03 18 00 00 00 9e | 53 54 58 54 00 00 04 78 |........|STXT...x|
|000002c0| 00 00 00 9f 42 49 54 44 | 00 00 03 49 00 00 00 a5 |....BITD|...I....|
|000002d0| 53 54 58 54 00 00 00 a9 | 00 00 00 a6 42 49 54 44 |STXT....|....BITD|
|000002e0| 00 00 05 ee 00 00 00 a7 | 53 54 58 54 00 00 00 8a |........|STXT....|
|000002f0| 00 00 00 aa 53 54 58 54 | 00 00 05 e0 00 00 00 af |....STXT|........|
|00000300| 53 54 58 54 00 00 00 52 | 00 00 00 b1 53 54 58 54 |STXT...R|....STXT|
|00000310| 00 00 00 48 00 00 00 b3 | 53 54 58 54 00 00 00 3d |...H....|STXT...=|
|00000320| 00 00 00 b4 53 54 58 54 | 00 00 00 ae 00 00 00 b5 |....STXT|........|
|00000330| 53 54 58 54 00 00 00 b2 | 00 00 00 b7 53 54 58 54 |STXT....|....STXT|
|00000340| 00 00 00 c0 00 00 00 b8 | 53 54 58 54 00 00 05 15 |........|STXT....|
|00000350| 00 00 00 b9 53 54 58 54 | 00 00 04 32 00 00 00 ba |....STXT|...2....|
|00000360| 53 54 58 54 00 00 00 be | 00 00 00 bc 53 54 58 54 |STXT....|....STXT|
|00000370| 00 00 00 bb 00 00 00 bf | 53 54 58 54 00 00 00 c1 |........|STXT....|
|00000380| 00 00 00 c2 53 54 58 54 | 00 00 00 c3 00 00 00 c4 |....STXT|........|
|00000390| 53 54 58 54 00 00 00 c9 | 00 00 00 c6 53 54 58 54 |STXT....|....STXT|
|000003a0| 00 00 00 c5 00 00 00 c7 | 53 54 58 54 00 00 00 ca |........|STXT....|
|000003b0| 00 00 00 c8 53 54 58 54 | 00 00 00 d0 00 00 00 cb |....STXT|........|
|000003c0| 53 54 58 54 00 00 00 cf | 00 00 00 cd 53 54 58 54 |STXT....|....STXT|
|000003d0| 00 00 03 38 00 00 00 ce | 53 54 58 54 00 00 00 d2 |...8....|STXT....|
|000003e0| 00 00 00 d4 53 54 58 54 | 00 00 00 d1 00 00 00 d6 |....STXT|........|
|000003f0| 53 54 58 54 00 00 03 d0 | 00 00 00 d7 53 54 58 54 |STXT....|....STXT|
|00000400| 00 00 00 dc 00 00 00 d8 | 53 54 58 54 00 00 05 29 |........|STXT...)|
|00000410| 00 00 00 d9 53 54 58 54 | 00 00 00 df 00 00 00 da |....STXT|........|
|00000420| 53 54 58 54 00 00 00 d5 | 00 00 00 db 53 54 58 54 |STXT....|....STXT|
|00000430| 00 00 02 71 00 00 00 e2 | 53 54 58 54 00 00 01 66 |...q....|STXT...f|
|00000440| 00 00 00 e3 53 54 58 54 | 00 00 00 e6 00 00 00 e4 |....STXT|........|
|00000450| 53 54 58 54 00 00 03 35 | 00 00 00 e5 53 54 58 54 |STXT...5|....STXT|
|00000460| 00 00 00 e1 00 00 00 e7 | 53 54 58 54 00 00 00 e9 |........|STXT....|
|00000470| 00 00 00 eb 53 54 58 54 | 00 00 00 43 00 00 00 ec |....STXT|...C....|
|00000480| 53 54 58 54 00 00 00 e8 | 00 00 00 ed 53 54 58 54 |STXT....|....STXT|
|00000490| 00 00 00 ea 00 00 00 ef | 53 54 58 54 00 00 05 a1 |........|STXT....|
|000004a0| 00 00 00 f1 53 54 58 54 | 00 00 00 ee 00 00 00 f3 |....STXT|........|
|000004b0| 53 54 58 54 00 00 00 f0 | 00 00 00 f6 53 54 58 54 |STXT....|....STXT|
|000004c0| 00 00 00 f4 00 00 00 fb | 53 54 58 54 00 00 04 80 |........|STXT....|
|000004d0| 00 00 00 fd 53 54 58 54 | 00 00 00 f5 00 00 01 01 |....STXT|........|
|000004e0| 53 54 58 54 00 00 00 7b | 00 00 01 03 53 54 58 54 |STXT...{|....STXT|
|000004f0| 00 00 00 f7 00 00 01 05 | 53 54 58 54 00 00 00 fc |........|STXT....|
|00000500| 00 00 01 07 53 54 58 54 | 00 00 00 fe 00 00 01 09 |....STXT|........|
|00000510| 53 54 58 54 00 00 01 02 | 00 00 01 0b 53 54 58 54 |STXT....|....STXT|
|00000520| 00 00 01 04 00 00 01 0d | 53 54 58 54 00 00 01 06 |........|STXT....|
|00000530| 00 00 01 0f 53 54 58 54 | 00 00 01 08 00 00 01 11 |....STXT|........|
|00000540| 53 54 58 54 00 00 01 0a | 00 00 01 13 53 54 58 54 |STXT....|....STXT|
|00000550| 00 00 01 0e 00 00 01 14 | 53 54 58 54 00 00 01 0c |........|STXT....|
|00000560| 00 00 01 15 53 54 58 54 | 00 00 01 10 00 00 01 16 |....STXT|........|
|00000570| 53 54 58 54 00 00 01 12 | 00 00 01 18 53 54 58 54 |STXT....|....STXT|
|00000580| 00 00 05 62 00 00 01 1a | 53 54 58 54 00 00 01 17 |...b....|STXT....|
|00000590| 00 00 01 1c 53 54 58 54 | 00 00 05 bf 00 00 01 1e |....STXT|........|
|000005a0| 53 54 58 54 00 00 01 19 | 00 00 01 1f 53 54 58 54 |STXT....|....STXT|
|000005b0| 00 00 01 25 00 00 01 20 | 53 54 58 54 00 00 01 1b |...%... |STXT....|
|000005c0| 00 00 01 21 53 54 58 54 | 00 00 01 29 00 00 01 22 |...!STXT|...)..."|
|000005d0| 53 54 58 54 00 00 01 27 | 00 00 01 23 53 54 58 54 |STXT...'|...#STXT|
|000005e0| 00 00 01 2b 00 00 01 24 | 53 54 58 54 00 00 01 2d |...+...$|STXT...-|
|000005f0| 00 00 01 26 53 54 58 54 | 00 00 01 2f 00 00 01 28 |...&STXT|.../...(|
|00000600| 53 54 58 54 00 00 01 31 | 00 00 01 2a 53 54 58 54 |STXT...1|...*STXT|
|00000610| 00 00 01 33 00 00 01 2c | 53 54 58 54 00 00 01 35 |...3...,|STXT...5|
|00000620| 00 00 01 2e 53 54 58 54 | 00 00 01 37 00 00 01 30 |....STXT|...7...0|
|00000630| 53 54 58 54 00 00 01 39 | 00 00 01 32 53 54 58 54 |STXT...9|...2STXT|
|00000640| 00 00 01 3b 00 00 01 34 | 53 54 58 54 00 00 01 3d |...;...4|STXT...=|
|00000650| 00 00 01 36 53 54 58 54 | 00 00 01 3f 00 00 01 38 |...6STXT|...?...8|
|00000660| 53 54 58 54 00 00 01 41 | 00 00 01 3a 53 54 58 54 |STXT...A|...:STXT|
|00000670| 00 00 01 43 00 00 01 3c | 53 54 58 54 00 00 01 45 |...C...<|STXT...E|
|00000680| 00 00 01 3e 53 54 58 54 | 00 00 01 47 00 00 01 40 |...>STXT|...G...@|
|00000690| 53 54 58 54 00 00 01 49 | 00 00 01 42 53 54 58 54 |STXT...I|...BSTXT|
|000006a0| 00 00 01 4b 00 00 01 44 | 53 54 58 54 00 00 01 4a |...K...D|STXT...J|
|000006b0| 00 00 01 46 53 54 58 54 | 00 00 01 4c 00 00 01 48 |...FSTXT|...L...H|
|000006c0| 53 54 58 54 00 00 01 50 | 00 00 01 4d 53 54 58 54 |STXT...P|...MSTXT|
|000006d0| 00 00 01 52 00 00 01 4f | 53 54 58 54 00 00 01 54 |...R...O|STXT...T|
|000006e0| 00 00 01 51 53 54 58 54 | 00 00 01 56 00 00 01 53 |...QSTXT|...V...S|
|000006f0| 53 54 58 54 00 00 01 58 | 00 00 01 55 53 54 58 54 |STXT...X|...USTXT|
|00000700| 00 00 05 09 00 00 01 59 | 53 54 58 54 00 00 01 57 |.......Y|STXT...W|
|00000710| 00 00 01 5a 53 54 58 54 | 00 00 02 f0 00 00 01 5b |...ZSTXT|.......[|
|00000720| 53 54 58 54 00 00 01 5d | 00 00 01 61 53 54 58 54 |STXT...]|...aSTXT|
|00000730| 00 00 01 64 00 00 01 62 | 53 54 58 54 00 00 01 68 |...d...b|STXT...h|
|00000740| 00 00 01 65 53 54 58 54 | 00 00 01 6a 00 00 01 67 |...eSTXT|...j...g|
|00000750| 53 54 58 54 00 00 01 6c | 00 00 01 69 53 54 58 54 |STXT...l|...iSTXT|
|00000760| 00 00 01 6e 00 00 01 6b | 53 54 58 54 00 00 00 82 |...n...k|STXT....|
|00000770| 00 00 01 6d 53 54 58 54 | 00 00 01 76 00 00 01 70 |...mSTXT|...v...p|
|00000780| 53 54 58 54 00 00 01 1d | 00 00 01 71 53 54 58 54 |STXT....|...qSTXT|
|00000790| 00 00 01 77 00 00 01 72 | 53 54 58 54 00 00 02 c6 |...w...r|STXT....|
|000007a0| 00 00 01 75 53 54 58 54 | 00 00 01 7c 00 00 01 78 |...uSTXT|...|...x|
|000007b0| 53 54 58 54 00 00 04 9e | 00 00 01 7d 53 54 58 54 |STXT....|...}STXT|
|000007c0| 00 00 01 7e 00 00 01 7f | 53 54 58 54 00 00 01 86 |...~....|STXT....|
|000007d0| 00 00 01 80 53 54 58 54 | 00 00 01 7b 00 00 01 81 |....STXT|...{....|
|000007e0| 53 54 58 54 00 00 01 88 | 00 00 01 8b 53 54 58 54 |STXT....|....STXT|
|000007f0| 00 00 01 8c 00 00 01 8d | 53 54 58 54 00 00 01 8e |........|STXT....|
|00000800| 00 00 01 90 53 54 58 54 | 00 00 01 c0 00 00 01 91 |....STXT|........|
|00000810| 53 54 58 54 00 00 01 92 | 00 00 01 93 53 54 58 54 |STXT....|....STXT|
|00000820| 00 00 01 97 00 00 01 95 | 53 54 58 54 00 00 01 98 |........|STXT....|
|00000830| 00 00 01 99 53 54 58 54 | 00 00 01 9a 00 00 01 9b |....STXT|........|
|00000840| 53 54 58 54 00 00 01 9f | 00 00 01 9c 53 54 58 54 |STXT....|....STXT|
|00000850| 00 00 03 05 00 00 01 9d | 53 54 58 54 00 00 04 1f |........|STXT....|
|00000860| 00 00 01 9e 53 54 58 54 | 00 00 01 a0 00 00 01 a1 |....STXT|........|
|00000870| 53 54 58 54 00 00 01 a9 | 00 00 01 a2 53 54 58 54 |STXT....|....STXT|
|00000880| 00 00 04 6d 00 00 01 a3 | 53 54 58 54 00 00 01 a8 |...m....|STXT....|
|00000890| 00 00 01 a4 53 54 58 54 | 00 00 03 39 00 00 01 a5 |....STXT|...9....|
|000008a0| 53 54 58 54 00 00 06 44 | 00 00 01 a6 53 54 58 54 |STXT...D|....STXT|
|000008b0| 00 00 01 aa 00 00 01 a7 | 53 54 58 54 00 00 01 b0 |........|STXT....|
|000008c0| 00 00 01 ac 53 54 58 54 | 00 00 01 b1 00 00 01 ae |....STXT|........|
|000008d0| 53 54 58 54 00 00 01 b3 | 00 00 01 af 53 54 58 54 |STXT....|....STXT|
|000008e0| 00 00 04 a4 00 00 01 b6 | 53 54 58 54 00 00 01 b9 |........|STXT....|
|000008f0| 00 00 01 ba 53 54 58 54 | 00 00 01 bf 00 00 01 bb |....STXT|........|
|00000900| 53 54 58 54 00 00 00 19 | 00 00 01 bc 53 54 58 54 |STXT....|....STXT|
|00000910| 00 00 02 3e 00 00 01 bd | 53 54 58 54 00 00 05 a8 |...>....|STXT....|
|00000920| 00 00 01 be 53 54 58 54 | 00 00 02 98 00 00 01 c3 |....STXT|........|
|00000930| 53 54 58 54 00 00 01 c9 | 00 00 01 c7 53 54 58 54 |STXT....|....STXT|
|00000940| 00 00 02 ef 00 00 01 cf | 42 49 54 44 00 00 04 24 |........|BITD...$|
|00000950| 00 00 01 d1 53 54 58 54 | 00 00 01 96 00 00 01 db |....STXT|........|
|00000960| 53 54 58 54 00 00 05 11 | 00 00 01 eb 53 54 58 54 |STXT....|....STXT|
|00000970| 00 00 02 de 00 00 01 f4 | 53 54 58 54 00 00 01 ed |........|STXT....|
|00000980| 00 00 01 f6 53 54 58 54 | 00 00 04 22 00 00 01 fb |....STXT|..."....|
|00000990| 53 54 58 54 00 00 05 13 | 00 00 02 0f 53 54 58 54 |STXT....|....STXT|
|000009a0| 00 00 01 ea 00 00 02 16 | 53 54 58 54 00 00 04 da |........|STXT....|
|000009b0| 00 00 02 3a 53 54 58 54 | 00 00 02 4f 00 00 02 48 |...:STXT|...O...H|
|000009c0| 53 54 58 54 00 00 01 d9 | 00 00 02 51 53 54 58 54 |STXT....|...QSTXT|
|000009d0| 00 00 02 59 00 00 02 57 | 53 54 58 54 00 00 02 60 |...Y...W|STXT...`|
|000009e0| 00 00 02 64 53 54 58 54 | 00 00 03 d2 00 00 02 74 |...dSTXT|.......t|
|000009f0| 53 54 58 54 00 00 03 b5 | 00 00 02 7e 53 54 58 54 |STXT....|...~STXT|
|00000a00| 00 00 02 a3 00 00 02 87 | 53 54 58 54 00 00 00 4b |........|STXT...K|
|00000a10| 00 00 02 89 53 54 58 54 | 00 00 02 85 00 00 02 8b |....STXT|........|
|00000a20| 53 54 58 54 00 00 02 8d | 00 00 02 91 53 54 58 54 |STXT....|....STXT|
|00000a30| 00 00 02 8a 00 00 02 93 | 53 54 58 54 00 00 02 8c |........|STXT....|
|00000a40| 00 00 02 95 53 54 58 54 | 00 00 02 8e 00 00 02 97 |....STXT|........|
|00000a50| 53 54 58 54 00 00 02 90 | 00 00 02 99 53 54 58 54 |STXT....|....STXT|
|00000a60| 00 00 02 92 00 00 02 9a | 53 54 58 54 00 00 02 94 |........|STXT....|
|00000a70| 00 00 02 9f 53 54 58 54 | 00 00 02 a7 00 00 02 a0 |....STXT|........|
|00000a80| 53 54 58 54 00 00 02 96 | 00 00 02 a1 53 54 58 54 |STXT....|....STXT|
|00000a90| 00 00 03 27 00 00 02 a2 | 53 54 58 54 00 00 05 d2 |...'....|STXT....|
|00000aa0| 00 00 02 a5 53 54 58 54 | 00 00 03 32 00 00 02 a8 |....STXT|...2....|
|00000ab0| 53 54 58 54 00 00 00 dd | 00 00 02 a9 53 54 58 54 |STXT....|....STXT|
|00000ac0| 00 00 02 a4 00 00 02 ab | 53 54 58 54 00 00 02 a6 |........|STXT....|
|00000ad0| 00 00 02 ad 53 54 58 54 | 00 00 00 76 00 00 02 af |....STXT|...v....|
|00000ae0| 53 54 58 54 00 00 04 71 | 00 00 02 b0 53 54 58 54 |STXT...q|....STXT|
|00000af0| 00 00 02 ac 00 00 02 b1 | 53 54 58 54 00 00 02 ae |........|STXT....|
|00000b00| 00 00 02 b3 53 54 58 54 | 00 00 02 9c 00 00 02 b4 |....STXT|........|
|00000b10| 53 54 58 54 00 00 00 3e | 00 00 02 b5 53 54 58 54 |STXT...>|....STXT|
|00000b20| 00 00 02 b8 00 00 02 b6 | 53 54 58 54 00 00 02 b2 |........|STXT....|
|00000b30| 00 00 02 b7 53 54 58 54 | 00 00 03 1c 00 00 02 b9 |....STXT|........|
|00000b40| 53 54 58 54 00 00 04 0e | 00 00 02 ba 53 54 58 54 |STXT....|....STXT|
|00000b50| 00 00 03 f5 00 00 02 bc | 53 54 58 54 00 00 02 70 |........|STXT...p|
|00000b60| 00 00 02 c1 53 54 58 54 | 00 00 03 97 00 00 02 cc |....STXT|........|
|00000b70| 53 54 58 54 00 00 02 d3 | 00 00 02 d2 53 54 58 54 |STXT....|....STXT|
|00000b80| 00 00 02 d5 00 00 02 d4 | 53 54 58 54 00 00 04 ae |........|STXT....|
|00000b90| 00 00 02 d6 53 54 58 54 | 00 00 02 d8 00 00 02 d7 |....STXT|........|
|00000ba0| 53 54 58 54 00 00 00 91 | 00 00 02 dc 53 54 58 54 |STXT....|....STXT|
|00000bb0| 00 00 02 78 00 00 02 e4 | 53 54 58 54 00 00 00 51 |...x....|STXT...Q|
|00000bc0| 00 00 02 e7 42 49 54 44 | 00 00 03 5f 00 00 02 e8 |....BITD|..._....|
|00000bd0| 53 54 58 54 00 00 02 07 | 00 00 02 ec 53 54 58 54 |STXT....|....STXT|
|00000be0| 00 00 04 fa 00 00 02 f2 | 53 54 58 54 00 00 05 45 |........|STXT...E|
|00000bf0| 00 00 02 fa 53 54 58 54 | 00 00 02 72 00 00 03 00 |....STXT|...r....|
|00000c00| 53 54 58 54 00 00 02 39 | 00 00 03 01 53 54 58 54 |STXT...9|....STXT|
|00000c10| 00 00 02 55 00 00 03 08 | 53 54 58 54 00 00 02 6a |...U....|STXT...j|
|00000c20| 00 00 03 0b 53 54 58 54 | 00 00 03 25 00 00 03 0c |....STXT|...%....|
|00000c30| 53 54 58 54 00 00 02 3f | 00 00 03 14 53 54 58 54 |STXT...?|....STXT|
|00000c40| 00 00 00 e0 00 00 03 15 | 53 54 58 54 00 00 00 6e |........|STXT...n|
|00000c50| 00 00 03 16 53 54 58 54 | 00 00 03 82 00 00 03 1d |....STXT|........|
|00000c60| 53 54 58 54 00 00 00 f9 | 00 00 03 1f 53 54 58 54 |STXT....|....STXT|
|00000c70| 00 00 03 1b 00 00 03 20 | 53 54 58 54 00 00 03 17 |....... |STXT....|
|00000c80| 00 00 03 21 53 54 58 54 | 00 00 01 5c 00 00 03 28 |...!STXT|...\...(|
|00000c90| 53 54 58 54 00 00 00 b6 | 00 00 03 29 53 54 58 54 |STXT....|...)STXT|
|00000ca0| 00 00 03 a1 00 00 03 2f | 53 54 58 54 00 00 03 3f |......./|STXT...?|
|00000cb0| 00 00 03 3a 53 54 58 54 | 00 00 03 40 00 00 03 3d |...:STXT|...@...=|
|00000cc0| 42 49 54 44 00 00 03 42 | 00 00 03 41 42 49 54 44 |BITD...B|...ABITD|
|00000cd0| 00 00 04 38 00 00 03 43 | 53 54 58 54 00 00 03 45 |...8...C|STXT...E|
|00000ce0| 00 00 03 44 42 49 54 44 | 00 00 03 48 00 00 03 47 |...DBITD|...H...G|
|00000cf0| 42 49 54 44 00 00 05 cf | 00 00 03 4a 53 54 58 54 |BITD....|...JSTXT|
|00000d00| 00 00 03 07 00 00 03 4c | 53 54 58 54 00 00 03 53 |.......L|STXT...S|
|00000d10| 00 00 03 51 53 54 58 54 | 00 00 00 93 00 00 03 55 |...QSTXT|.......U|
|00000d20| 53 54 58 54 00 00 03 84 | 00 00 03 59 42 49 54 44 |STXT....|...YBITD|
|00000d30| 00 00 04 b0 00 00 03 5b | 53 54 58 54 00 00 03 5a |.......[|STXT...Z|
|00000d40| 00 00 03 5c 42 49 54 44 | 00 00 01 84 00 00 03 63 |...\BITD|.......c|
|00000d50| 53 54 58 54 00 00 03 6f | 00 00 03 65 42 49 54 44 |STXT...o|...eBITD|
|00000d60| 00 00 00 72 00 00 03 66 | 42 49 54 44 00 00 03 68 |...r...f|BITD...h|
|00000d70| 00 00 03 67 42 49 54 44 | 00 00 03 6a 00 00 03 69 |...gBITD|...j...i|
|00000d80| 42 49 54 44 00 00 03 1e | 00 00 03 6c 53 54 58 54 |BITD....|...lSTXT|
|00000d90| 00 00 03 6e 00 00 03 6d | 42 49 54 44 00 00 00 74 |...n...m|BITD...t|
|00000da0| 00 00 03 70 42 49 54 44 | 00 00 04 99 00 00 03 73 |...pBITD|.......s|
|00000db0| 53 54 58 54 00 00 03 75 | 00 00 03 74 42 49 54 44 |STXT...u|...tBITD|
|00000dc0| 00 00 03 79 00 00 03 78 | 42 49 54 44 00 00 04 4f |...y...x|BITD...O|
|00000dd0| 00 00 03 7b 42 49 54 44 | 00 00 03 7e 00 00 03 7d |...{BITD|...~...}|
|00000de0| 42 49 54 44 00 00 03 80 | 00 00 03 7f 42 49 54 44 |BITD....|....BITD|
|00000df0| 00 00 03 83 00 00 03 81 | 42 49 54 44 00 00 03 87 |........|BITD....|
|00000e00| 00 00 03 86 42 49 54 44 | 00 00 02 da 00 00 03 89 |....BITD|........|
|00000e10| 53 54 58 54 00 00 03 8b | 00 00 03 8a 42 49 54 44 |STXT....|....BITD|
|00000e20| 00 00 03 8d 00 00 03 8c | 42 49 54 44 00 00 03 58 |........|BITD...X|
|00000e30| 00 00 03 90 42 49 54 44 | 00 00 04 5b 00 00 03 a3 |....BITD|...[....|
|00000e40| 53 54 58 54 00 00 04 be | 00 00 03 a9 53 54 58 54 |STXT....|....STXT|
|00000e50| 00 00 00 50 00 00 03 bc | 53 54 58 54 00 00 04 42 |...P....|STXT...B|
|00000e60| 00 00 03 c9 53 54 58 54 | 00 00 04 86 00 00 03 cc |....STXT|........|
|00000e70| 53 54 58 54 00 00 04 66 | 00 00 03 d1 53 54 58 54 |STXT...f|....STXT|
|00000e80| 00 00 03 ed 00 00 03 eb | 53 54 58 54 00 00 00 96 |........|STXT....|
|00000e90| 00 00 03 ee 53 54 58 54 | 00 00 05 19 00 00 03 f1 |....STXT|........|
|00000ea0| 53 54 58 54 00 00 00 05 | 00 00 04 00 43 41 53 2a |STXT....|....CAS*|
|00000eb0| 00 00 00 09 00 00 04 00 | 46 58 6d 70 00 00 00 08 |........|FXmp....|
|00000ec0| 00 00 04 00 46 6d 61 70 | 00 00 00 06 00 00 04 00 |....Fmap|........|
|00000ed0| 4c 63 74 78 00 00 00 04 | 00 00 04 00 56 57 43 46 |Lctx....|....VWCF|
|00000ee0| 00 00 00 0b 00 00 04 00 | 56 57 46 49 00 00 00 0f |........|VWFI....|
|00000ef0| 00 00 04 00 56 57 46 4d | 00 00 04 58 00 00 04 02 |....VWFM|...X....|
|00000f00| 53 54 58 54 00 00 01 fd | 00 00 04 06 53 54 58 54 |STXT....|....STXT|
|00000f10| 00 00 03 e9 00 00 04 12 | 53 54 58 54 00 00 04 c9 |........|STXT....|
|00000f20| 00 00 04 16 53 54 58 54 | 00 00 03 ea 00 00 04 19 |....STXT|........|
|00000f30| 53 54 58 54 00 00 03 19 | 00 00 04 1a 53 54 58 54 |STXT....|....STXT|
|00000f40| 00 00 01 d0 00 00 04 1b | 53 54 58 54 00 00 04 20 |........|STXT... |
|00000f50| 00 00 04 1d 53 54 58 54 | 00 00 06 24 00 00 04 1e |....STXT|...$....|
|00000f60| 53 54 58 54 00 00 05 56 | 00 00 04 27 53 54 58 54 |STXT...V|...'STXT|
|00000f70| 00 00 02 d9 00 00 04 28 | 53 54 58 54 00 00 00 a3 |.......(|STXT....|
|00000f80| 00 00 04 29 53 54 58 54 | 00 00 00 79 00 00 04 2f |...)STXT|...y.../|
|00000f90| 53 54 58 54 00 00 04 55 | 00 00 04 33 53 54 58 54 |STXT...U|...3STXT|
|00000fa0| 00 00 05 c7 00 00 04 34 | 53 54 58 54 00 00 03 91 |.......4|STXT....|
|00000fb0| 00 00 04 35 42 49 54 44 | 00 00 04 51 00 00 04 3a |...5BITD|...Q...:|
|00000fc0| 53 54 58 54 00 00 04 cf | 00 00 04 3c 53 54 58 54 |STXT....|...<STXT|
|00000fd0| 00 00 05 b5 00 00 04 3f | 53 54 58 54 00 00 04 14 |.......?|STXT....|
|00000fe0| 00 00 04 41 53 54 58 54 | 00 00 06 5d 00 00 04 43 |...ASTXT|...]...C|
|00000ff0| 53 54 58 54 00 00 01 00 | 00 00 04 46 53 54 58 54 |STXT....|...FSTXT|
|00001000| 00 00 03 60 00 00 04 4b | 53 54 58 54 00 00 04 d8 |...`...K|STXT....|
|00001010| 00 00 04 57 53 54 58 54 | 00 00 04 62 00 00 04 5c |...WSTXT|...b...\|
|00001020| 53 54 58 54 00 00 05 cc | 00 00 04 5d 53 54 58 54 |STXT....|...]STXT|
|00001030| 00 00 05 14 00 00 04 5e | 53 54 58 54 00 00 04 17 |.......^|STXT....|
|00001040| 00 00 04 60 53 54 58 54 | 00 00 04 36 00 00 04 64 |...`STXT|...6...d|
|00001050| 53 54 58 54 00 00 04 68 | 00 00 04 67 53 54 58 54 |STXT...h|...gSTXT|
|00001060| 00 00 05 5b 00 00 04 6b | 53 54 58 54 00 00 05 ff |...[...k|STXT....|
|00001070| 00 00 04 6c 53 54 58 54 | 00 00 04 72 00 00 04 6e |...lSTXT|...r...n|
|00001080| 53 54 58 54 00 00 04 25 | 00 00 04 6f 53 54 58 54 |STXT...%|...oSTXT|
|00001090| 00 00 04 75 00 00 04 74 | 53 54 58 54 00 00 04 cd |...u...t|STXT....|
|000010a0| 00 00 04 76 53 54 58 54 | 00 00 03 52 00 00 04 79 |...vSTXT|...R...y|
|000010b0| 53 54 58 54 00 00 04 31 | 00 00 04 7a 53 54 58 54 |STXT...1|...zSTXT|
|000010c0| 00 00 04 7c 00 00 04 7b | 53 54 58 54 00 00 04 7f |...|...{|STXT....|
|000010d0| 00 00 04 7e 53 54 58 54 | 00 00 03 10 00 00 04 83 |...~STXT|........|
|000010e0| 53 54 58 54 00 00 04 88 | 00 00 04 87 53 54 58 54 |STXT....|....STXT|
|000010f0| 00 00 04 8a 00 00 04 89 | 53 54 58 54 00 00 01 f0 |........|STXT....|
|00001100| 00 00 04 8b 53 54 58 54 | 00 00 04 8d 00 00 04 8c |....STXT|........|
|00001110| 53 54 58 54 00 00 04 8f | 00 00 04 8e 53 54 58 54 |STXT....|....STXT|
|00001120| 00 00 04 91 00 00 04 90 | 53 54 58 54 00 00 05 39 |........|STXT...9|
|00001130| 00 00 04 92 53 54 58 54 | 00 00 01 c1 00 00 04 93 |....STXT|........|
|00001140| 53 54 58 54 00 00 04 95 | 00 00 04 94 53 54 58 54 |STXT....|....STXT|
|00001150| 00 00 05 e6 00 00 04 96 | 53 54 58 54 00 00 05 b0 |........|STXT....|
|00001160| 00 00 04 97 53 54 58 54 | 00 00 04 9d 00 00 04 98 |....STXT|........|
|00001170| 53 54 58 54 00 00 04 5f | 00 00 04 9b 53 54 58 54 |STXT..._|....STXT|
|00001180| 00 00 04 5a 00 00 04 9c | 53 54 58 54 00 00 02 83 |...Z....|STXT....|
|00001190| 00 00 04 9f 53 54 58 54 | 00 00 04 a1 00 00 04 a0 |....STXT|........|
|000011a0| 53 54 58 54 00 00 04 a3 | 00 00 04 a2 53 54 58 54 |STXT....|....STXT|
|000011b0| 00 00 06 00 00 00 04 a7 | 53 54 58 54 00 00 04 a5 |........|STXT....|
|000011c0| 00 00 04 a9 53 54 58 54 | 00 00 04 a8 00 00 04 ab |....STXT|........|
|000011d0| 53 54 58 54 00 00 04 aa | 00 00 04 ad 53 54 58 54 |STXT....|....STXT|
|000011e0| 00 00 03 2b 00 00 04 b2 | 53 54 58 54 00 00 04 b1 |...+....|STXT....|
|000011f0| 00 00 04 b3 53 54 58 54 | 00 00 05 db 00 00 04 b4 |....STXT|........|
|00001200| 53 54 58 54 00 00 03 2a | 00 00 04 b5 53 54 58 54 |STXT...*|....STXT|
|00001210| 00 00 02 ed 00 00 04 b6 | 53 54 58 54 00 00 04 f8 |........|STXT....|
|00001220| 00 00 04 b7 53 54 58 54 | 00 00 04 ba 00 00 04 bb |....STXT|........|
|00001230| 53 54 58 54 00 00 05 ae | 00 00 04 bc 53 54 58 54 |STXT....|....STXT|
|00001240| 00 00 04 c1 00 00 04 c0 | 53 54 58 54 00 00 03 23 |........|STXT...#|
|00001250| 00 00 04 c2 53 54 58 54 | 00 00 04 c5 00 00 04 c3 |....STXT|........|
|00001260| 53 54 58 54 00 00 02 38 | 00 00 04 c4 53 54 58 54 |STXT...8|....STXT|
|00001270| 00 00 04 c8 00 00 04 c6 | 53 54 58 54 00 00 04 fd |........|STXT....|
|00001280| 00 00 04 c7 53 54 58 54 | 00 00 04 ce 00 00 04 cc |....STXT|........|
|00001290| 53 54 58 54 00 00 05 d7 | 00 00 04 d5 53 54 58 54 |STXT....|....STXT|
|000012a0| 00 00 06 01 00 00 04 d6 | 53 54 58 54 00 00 04 d7 |........|STXT....|
|000012b0| 00 00 04 d9 53 54 58 54 | 00 00 03 b9 00 00 04 dc |....STXT|........|
|000012c0| 53 54 58 54 00 00 04 db | 00 00 04 dd 53 54 58 54 |STXT....|....STXT|
|000012d0| 00 00 03 fe 00 00 04 de | 53 54 58 54 00 00 03 50 |........|STXT...P|
|000012e0| 00 00 04 df 53 54 58 54 | 00 00 01 cd 00 00 04 e0 |....STXT|........|
|000012f0| 53 54 58 54 00 00 05 cd | 00 00 04 e1 53 54 58 54 |STXT....|....STXT|
|00001300| 00 00 06 38 00 00 04 e2 | 53 54 58 54 00 00 05 02 |...8....|STXT....|
|00001310| 00 00 04 e6 53 54 58 54 | 00 00 03 c3 00 00 04 e7 |....STXT|........|
|00001320| 53 54 58 54 00 00 04 ec | 00 00 04 e8 53 54 58 54 |STXT....|....STXT|
|00001330| 00 00 01 4e 00 00 04 ea | 53 54 58 54 00 00 04 ed |...N....|STXT....|
|00001340| 00 00 04 eb 53 54 58 54 | 00 00 00 1d 00 00 04 ef |....STXT|........|
|00001350| 53 54 58 54 00 00 05 b2 | 00 00 04 f0 53 54 58 54 |STXT....|....STXT|
|00001360| 00 00 04 d3 00 00 04 f2 | 53 54 58 54 00 00 04 f4 |........|STXT....|
|00001370| 00 00 04 f3 53 54 58 54 | 00 00 01 f3 00 00 04 f5 |....STXT|........|
|00001380| 53 54 58 54 00 00 02 8f | 00 00 04 f6 53 54 58 54 |STXT....|....STXT|
|00001390| 00 00 03 7c 00 00 04 ff | 42 49 54 44 00 00 00 ab |...|....|BITD....|
|000013a0| 00 00 05 0a 53 54 58 54 | 00 00 03 7a 00 00 05 0f |....STXT|...z....|
|000013b0| 42 49 54 44 00 00 04 82 | 00 00 05 10 42 49 54 44 |BITD....|....BITD|
|000013c0| 00 00 02 6c 00 00 05 16 | 53 54 58 54 00 00 03 34 |...l....|STXT...4|
|000013d0| 00 00 05 1a 53 54 58 54 | 00 00 01 79 00 00 05 20 |....STXT|...y... |
|000013e0| 53 54 58 54 00 00 05 6a | 00 00 05 24 42 49 54 44 |STXT...j|...$BITD|
|000013f0| 00 00 03 0d 00 00 05 27 | 53 54 58 54 00 00 03 92 |.......'|STXT....|
|00001400| 00 00 05 2b 42 49 54 44 | 00 00 04 7d 00 00 05 31 |...+BITD|...}...1|
|00001410| 53 54 58 54 00 00 03 85 | 00 00 05 37 53 54 58 54 |STXT....|...7STXT|
|00001420| 00 00 04 81 00 00 05 3a | 53 54 58 54 00 00 04 d2 |.......:|STXT....|
|00001430| 00 00 05 3c 53 54 58 54 | 00 00 00 ad 00 00 05 4b |...<STXT|.......K|
|00001440| 53 54 58 54 00 00 05 d3 | 00 00 05 60 53 54 58 54 |STXT....|...`STXT|
|00001450| 00 00 05 79 00 00 05 84 | 53 54 58 54 00 00 04 30 |...y....|STXT...0|
|00001460| 00 00 05 95 53 54 58 54 | 00 00 03 e1 00 00 05 ac |....STXT|........|
|00001470| 53 54 58 54 00 00 04 ca | 00 00 05 ad 53 54 58 54 |STXT....|....STXT|
|00001480| 00 00 04 bd 00 00 05 af | 53 54 58 54 00 00 03 da |........|STXT....|
|00001490| 00 00 05 b6 53 54 58 54 | 00 00 04 4d 00 00 05 b7 |....STXT|...M....|
|000014a0| 53 54 58 54 00 00 01 c4 | 00 00 05 bc 53 54 58 54 |STXT....|....STXT|
|000014b0| 00 00 01 94 00 00 05 c0 | 53 54 58 54 00 00 03 b4 |........|STXT....|
|000014c0| 00 00 05 c2 53 54 58 54 | 00 00 03 8f 00 00 05 c5 |....STXT|........|
|000014d0| 42 49 54 44 00 00 04 e4 | 00 00 05 c6 53 54 58 54 |BITD....|....STXT|
|000014e0| 00 00 05 fa 00 00 05 d4 | 53 54 58 54 00 00 00 8e |........|STXT....|
|000014f0| 00 00 05 d6 53 54 58 54 | 00 00 00 bd 00 00 05 de |....STXT|........|
|00001500| 53 54 58 54 00 00 04 3b | 00 00 05 e5 53 54 58 54 |STXT...;|....STXT|
|00001510| 00 00 01 5e 00 00 05 e7 | 53 54 58 54 00 00 02 ca |...^....|STXT....|
|00001520| 00 00 05 f4 53 54 58 54 | 00 00 06 08 00 00 05 f6 |....STXT|........|
|00001530| 53 54 58 54 00 00 05 0b | 00 00 05 fd 53 54 58 54 |STXT....|....STXT|
|00001540| 00 00 01 b8 00 00 06 04 | 53 54 58 54 00 00 04 63 |........|STXT...c|
|00001550| 00 00 06 06 53 54 58 54 | 00 00 03 df 00 00 06 09 |....STXT|........|
|00001560| 53 54 58 54 00 00 04 bf | 00 00 06 0e 53 54 58 54 |STXT....|....STXT|
|00001570| 00 00 04 48 00 00 06 10 | 53 54 58 54 00 00 03 77 |...H....|STXT...w|
|00001580| 00 00 06 11 53 54 58 54 | 00 00 04 2a 00 00 06 20 |....STXT|...*... |
|00001590| 53 54 58 54 00 00 03 6b | 00 00 06 26 53 54 58 54 |STXT...k|...&STXT|
|000015a0| 00 00 02 4c 00 00 06 29 | 53 54 58 54 00 00 02 9e |...L...)|STXT....|
|000015b0| 00 00 06 41 53 54 58 54 | 00 00 01 c5 00 00 06 43 |...ASTXT|.......C|
|000015c0| 53 54 58 54 00 00 01 cb | 00 00 06 49 53 54 58 54 |STXT....|...ISTXT|
|000015d0| 00 00 03 56 00 00 06 6d | 53 54 58 54 00 00 03 56 |...V...m|STXT...V|
|000015e0| 00 00 06 6d 53 54 58 54 | 00 00 03 56 00 00 06 6d |...mSTXT|...V...m|
|000015f0| 53 54 58 54 00 00 03 56 | 00 00 06 6d 53 54 58 54 |STXT...V|...mSTXT|
|00001600| 00 00 03 56 00 00 06 6d | 53 54 58 54 00 00 03 56 |...V...m|STXT...V|
|00001610| 00 00 06 6d 53 54 58 54 | 00 00 03 56 00 00 06 6d |...mSTXT|...V...m|
|00001620| 53 54 58 54 00 00 03 56 | 00 00 06 6d 53 54 58 54 |STXT...V|...mSTXT|
|00001630| 00 00 03 56 00 00 06 6d | 53 54 58 54 00 00 03 56 |...V...m|STXT...V|
|00001640| 00 00 06 6d 53 54 58 54 | 00 00 01 c5 00 00 06 49 |...mSTXT|.......I|
|00001650| 53 54 58 54 00 00 01 c5 | 00 00 06 49 53 54 58 54 |STXT....|...ISTXT|
|00001660| 00 00 04 e2 00 00 06 38 | 53 54 58 54 66 ad 66 be |.......8|STXTf.f.|
|00001670| 00 e5 09 b0 00 ba 5e 00 | eb 00 00 0e 00 00 00 20 |......^.|....... |
|00001680| 00 1b 1e 98 54 69 6d 65 | 73 00 68 73 68 93 68 ad |....Time|s.hsh.h.|
|00001690| 00 e5 09 b0 00 ba 5e 20 | eb 00 00 08 00 00 00 20 |......^ |....... |
|000016a0| 00 1b 1e a0 53 75 6e 64 | 61 79 20 54 69 6d 65 00 |....Sund|ay Time.|
|000016b0| 00 e5 09 b0 00 ba 5e 40 | eb 00 00 07 00 00 00 20 |......^@|....... |
|000016c0| 00 1b 33 04 53 75 6e 64 | 61 79 20 54 69 6d 65 73 |..3.Sund|ay Times|
|000016d0| 00 e5 09 b0 00 ba 5e 60 | eb 00 00 13 00 00 00 20 |......^`|....... |
|000016e0| 00 1b 1e 90 00 0a 6e 0e | ac b0 b3 b2 aa a0 9d 98 |......n.|........|
|000016f0| 00 e5 09 b0 00 ba 5e 80 | eb 00 00 0e 00 00 00 20 |......^.|....... |
|00001700| 00 1b 1f ac 50 6f 77 65 | 72 00 69 63 6f 7d 80 7a |....Powe|r.ico}.z|
|00001710| 00 e5 09 b0 00 ba 5e a0 | eb 00 00 0d 00 00 00 20 |......^.|....... |
|00001720| 00 1b 1f 4c 44 65 73 69 | 67 6e 00 6c 76 84 8b 8f |...LDesi|gn.lv...|
|00001730| 00 e5 09 b0 00 ba 5e c0 | eb 00 00 0d 00 00 00 20 |......^.|....... |
|00001740| 00 1b 1f 24 53 65 6e 73 | 65 73 00 00 00 64 5f 00 |...$Sens|es...d_.|
|00001750| 00 e5 09 b0 00 ba 5e e0 | eb 00 00 0f 00 00 00 20 |......^.|....... |
|00001760| 00 1b 1e b8 4d 69 6e 64 | 00 5c 60 63 6e 7c 83 82 |....Mind|.\`cn|..|
|00001770| 00 e5 09 b0 00 ba 5f 00 | eb 00 00 0f 00 00 00 20 |......_.|....... |
|00001780| 00 1b 1f 48 42 6f 64 79 | 00 71 76 81 8f 98 95 94 |...HBody|.qv.....|
|00001790| 00 e5 09 b0 00 ba 5f 20 | eb 00 00 0d 00 00 00 20 |......_ |....... |
|000017a0| 00 1b 1e e0 53 65 6e 73 | 65 73 00 4a 3e 38 39 3b |....Sens|es.J>89;|
|000017b0| 00 e5 09 b0 00 ba 5f 40 | eb 00 00 0b 00 00 00 20 |......_@|....... |
|000017c0| 00 1b 1e b4 70 61 72 74 | 77 6f 72 6b 00 8d a5 b1 |....part|work....|
|000017d0| 00 e5 09 b0 00 ba 5f 60 | eb 00 00 0b 00 00 00 20 |......_`|....... |
|000017e0| 00 1b 2e d4 50 61 72 74 | 77 6f 72 6b 56 57 43 46 |....Part|workVWCF|
|000017f0| 00 00 00 50 00 50 04 5d | 00 90 00 c0 02 70 03 40 |...P.P.]|.....p.@|
|00001800| 03 ea 06 2b 0e 00 9a 00 | 00 01 00 00 00 00 00 ff |...+....|........|
|00001810| 00 08 01 01 00 14 cd 28 | 04 5d 00 08 00 00 00 00 |.......(|.]......|
|00001820| c3 7f ff e1 00 38 0f ff | 00 c3 00 19 00 01 7a b5 |.....8..|......z.|
|00001830| 00 00 00 3c 58 d3 20 06 | 01 e0 00 00 00 00 00 00 |...<X. .|........|
|00001840| 00 00 00 00 43 41 53 2a | 00 00 09 08 00 00 00 16 |....CAS*|........|
|00001850| 00 00 00 17 00 00 03 cf | 00 00 00 18 00 00 00 13 |........|........|
|00001860| 00 00 00 1a 00 00 00 10 | 00 00 00 0c 00 00 00 22 |........|......."|
|00001870| 00 00 00 24 00 00 00 25 | 00 00 00 28 00 00 00 0a |...$...%|...(....|
|00001880| 00 00 00 2e 00 00 00 54 | 00 00 00 33 00 00 00 55 |.......T|...3...U|
|00001890| 00 00 00 56 00 00 00 4a | 00 00 00 2a 00 00 00 20 |...V...J|...*... |
|000018a0| 00 00 00 69 00 00 02 0f | 00 00 00 2d 00 00 00 70 |...i....|...-...p|
|000018b0| 00 00 00 68 00 00 00 64 | 00 00 00 1e 00 00 00 6f |...h...d|.......o|
|000018c0| 00 00 00 21 00 00 00 26 | 00 00 00 35 00 00 00 9a |...!...&|...5....|
|000018d0| 00 00 00 7c 00 00 00 66 | 00 00 00 94 00 00 03 1a |...|...f|........|
|000018e0| 00 00 02 be 00 00 04 41 | 00 00 02 ba 00 00 00 87 |.......A|........|
|000018f0| 00 00 00 3a 00 00 02 e6 | 00 00 03 ff 00 00 02 e7 |...:....|........|
|00001900| 00 00 00 53 00 00 03 3d | 00 00 03 41 00 00 03 44 |...S...=|...A...D|
|00001910| 00 00 03 47 00 00 03 67 | 00 00 03 69 00 00 03 6d |...G...g|...i...m|
|00001920| 00 00 03 65 00 00 03 70 | 00 00 00 7a 00 00 05 24 |...e...p|...z...$|
|00001930| 00 00 00 9f 00 00 00 a6 | 00 00 03 74 00 00 03 78 |........|...t...x|
|00001940| 00 00 05 0f 00 00 03 7b | 00 00 00 47 00 00 00 36 |.......{|...G...6|
|00001950| 00 00 04 ff 00 00 03 7d | 00 00 03 7f 00 00 03 81 |.......}|........|
|00001960| 00 00 03 59 00 00 03 86 | 00 00 03 8a 00 00 03 8c |...Y....|........|
|00001970| 00 00 03 90 00 00 04 35 | 00 00 05 2b 00 00 03 5c |.......5|...+...\|
|00001980| 00 00 03 66 00 00 05 10 | 00 00 05 c5 00 00 00 42 |...f....|.......B|
|00001990| 00 00 00 11 00 00 04 12 | 00 00 04 19 00 00 03 eb |........|........|
|000019a0| 00 00 02 69 00 00 01 cf | 00 00 04 03 00 00 01 f6 |...i....|........|
|000019b0| 00 00 02 ec 00 00 02 16 | 00 00 01 eb 00 00 04 f5 |........|........|
|000019c0| 00 00 01 f4 00 00 02 48 | 00 00 02 51 00 00 02 57 |.......H|...Q...W|
|000019d0| 00 00 02 64 00 00 03 00 | 00 00 04 27 00 00 00 00 |...d....|...'....|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b60| 00 00 00 00 00 00 05 b6 | 00 00 04 1a 00 00 04 16 |........|........|
|00001b70| 00 00 04 06 00 00 03 c9 | 00 00 05 60 00 00 04 60 |........|...`...`|
|00001b80| 00 00 04 1b 00 00 04 1d | 00 00 05 95 00 00 03 f1 |........|........|
|00001b90| 00 00 04 7a 00 00 05 e5 | 00 00 04 b7 00 00 04 3f |...z....|.......?|
|00001ba0| 00 00 04 02 00 00 04 3c | 00 00 04 3a 00 00 04 43 |.......<|...:...C|
|00001bb0| 00 00 06 10 00 00 00 34 | 00 00 05 f6 00 00 04 33 |.......4|.......3|
|00001bc0| 00 00 04 8b 00 00 04 57 | 00 00 04 9c 00 00 04 5d |.......W|.......]|
|00001bd0| 00 00 04 9b 00 00 03 29 | 00 00 02 dc 00 00 05 c0 |.......)|........|
|00001be0| 00 00 01 a5 00 00 04 5c | 00 00 06 06 00 00 03 d1 |.......\|........|
|00001bf0| 00 00 01 d1 00 00 04 67 | 00 00 04 6f 00 00 04 6e |.......g|...o...n|
|00001c00| 00 00 04 74 00 00 04 76 | 00 00 04 79 00 00 04 7b |...t...v|...y...{|
|00001c10| 00 00 05 31 00 00 04 7e | 00 00 03 cc 00 00 04 87 |...1...~|........|
|00001c20| 00 00 04 89 00 00 04 8c | 00 00 04 8e 00 00 04 90 |........|........|
|00001c30| 00 00 04 92 00 00 04 94 | 00 00 04 97 00 00 03 73 |........|.......s|
|00001c40| 00 00 04 96 00 00 04 98 | 00 00 01 7d 00 00 04 9f |........|...}....|
|00001c50| 00 00 04 a0 00 00 04 a2 | 00 00 01 a6 00 00 04 a7 |........|........|
|00001c60| 00 00 04 a9 00 00 04 ab | 00 00 04 ad 00 00 04 b2 |........|........|
|00001c70| 00 00 03 5b 00 00 04 b3 | 00 00 06 20 00 00 05 fd |...[....|... ....|
|00001c80| 00 00 04 b4 00 00 04 bb | 00 00 06 6d 00 00 05 ac |........|...m....|
|00001c90| 00 00 04 bc 00 00 03 a9 | 00 00 05 af 00 00 06 0e |........|........|
|00001ca0| 00 00 04 c0 00 00 04 c3 | 00 00 04 c6 00 00 05 ad |........|........|
|00001cb0| 00 00 04 c4 00 00 04 c7 | 00 00 04 6c 00 00 04 cc |........|...l....|
|00001cc0| 00 00 05 3c 00 00 02 74 | 00 00 04 f2 00 00 05 d4 |...<...t|........|
|00001cd0| 00 00 04 d5 00 00 04 34 | 00 00 06 09 00 00 04 d6 |.......4|........|
|00001ce0| 00 00 04 dc 00 00 04 d9 | 00 00 04 de 00 00 04 e1 |........|........|
|00001cf0| 00 00 04 dd 00 00 04 df | 00 00 03 0c 00 00 04 e2 |........|........|
|00001d00| 00 00 04 e0 00 00 05 c6 | 00 00 04 e6 00 00 04 e7 |........|........|
|00001d10| 00 00 04 e8 00 00 04 eb | 00 00 04 ef 00 00 04 f3 |........|........|
|00001d20| 00 00 04 f6 00 00 02 e8 | 00 00 00 9c 00 00 04 4b |........|.......K|
|00001d30| 00 00 00 1c 00 00 02 89 | 00 00 02 d6 00 00 00 32 |........|.......2|
|00001d40| 00 00 04 2f 00 00 05 d6 | 00 00 00 85 00 00 00 40 |.../....|.......@|
|00001d50| 00 00 03 4c 00 00 00 4d | 00 00 00 84 00 00 00 a7 |...L...M|........|
|00001d60| 00 00 00 38 00 00 04 b6 | 00 00 00 81 00 00 00 80 |...8....|........|
|00001d70| 00 00 00 aa 00 00 05 0a | 00 00 05 4b 00 00 00 9e |........|...K....|
|00001d80| 00 00 00 af 00 00 00 b3 | 00 00 00 b5 00 00 00 b7 |........|........|
|00001d90| 00 00 00 b4 00 00 05 de | 00 00 00 b9 00 00 00 bf |........|........|
|00001da0| 00 00 03 55 00 00 00 b8 | 00 00 00 ba 00 00 00 bc |...U....|........|
|00001db0| 00 00 00 c2 00 00 00 c4 | 00 00 00 c7 00 00 05 c2 |........|........|
|00001dc0| 00 00 00 c8 00 00 00 46 | 00 00 00 c6 00 00 00 cb |.......F|........|
|00001dd0| 00 00 00 ce 00 00 00 cd | 00 00 00 d4 00 00 00 d6 |........|........|
|00001de0| 00 00 06 26 00 00 00 db | 00 00 00 d7 00 00 00 d9 |...&....|........|
|00001df0| 00 00 00 d8 00 00 00 da | 00 00 02 a9 00 00 03 15 |........|........|
|00001e00| 00 00 00 e4 00 00 04 1e | 00 00 00 e5 00 00 00 e7 |........|........|
|00001e10| 00 00 00 ec 00 00 00 eb | 00 00 00 ed 00 00 00 ef |........|........|
|00001e20| 00 00 00 f1 00 00 00 f3 | 00 00 00 f6 00 00 01 03 |........|........|
|00001e30| 00 00 00 fb 00 00 00 fd | 00 00 01 01 00 00 01 05 |........|........|
|00001e40| 00 00 00 5b 00 00 01 07 | 00 00 01 09 00 00 01 0b |...[....|........|
|00001e50| 00 00 01 0d 00 00 01 0f | 00 00 01 11 00 00 01 13 |........|........|
|00001e60| 00 00 01 15 00 00 01 14 | 00 00 01 16 00 00 01 18 |........|........|
|00001e70| 00 00 01 1a 00 00 01 1c | 00 00 01 1f 00 00 01 21 |........|.......!|
|00001e80| 00 00 01 71 00 00 01 75 | 00 00 01 1e 00 00 01 20 |...q...u|....... |
|00001e90| 00 00 01 23 00 00 01 22 | 00 00 01 24 00 00 01 26 |...#..."|...$...&|
|00001ea0| 00 00 01 28 00 00 01 2a | 00 00 01 2c 00 00 01 2e |...(...*|...,....|
|00001eb0| 00 00 01 30 00 00 01 32 | 00 00 01 34 00 00 01 36 |...0...2|...4...6|
|00001ec0| 00 00 01 38 00 00 01 3a | 00 00 01 3c 00 00 01 3e |...8...:|...<...>|
|00001ed0| 00 00 01 40 00 00 01 42 | 00 00 01 44 00 00 01 46 |...@...B|...D...F|
|00001ee0| 00 00 01 48 00 00 04 ea | 00 00 01 4d 00 00 01 4f |...H....|...M...O|
|00001ef0| 00 00 01 51 00 00 01 53 | 00 00 01 55 00 00 01 5a |...Q...S|...U...Z|
|00001f00| 00 00 01 5b 00 00 01 59 | 00 00 03 28 00 00 01 61 |...[...Y|...(...a|
|00001f10| 00 00 00 e2 00 00 01 62 | 00 00 00 e3 00 00 01 65 |.......b|.......e|
|00001f20| 00 00 01 67 00 00 01 69 | 00 00 01 6b 00 00 01 6d |...g...i|...k...m|
|00001f30| 00 00 01 78 00 00 01 70 | 00 00 01 72 00 00 05 84 |...x...p|...r....|
|00001f40| 00 00 01 80 00 00 05 20 | 00 00 01 81 00 00 01 7f |....... |........|
|00001f50| 00 00 00 5d 00 00 04 83 | 00 00 05 3a 00 00 03 63 |...]....|...:...c|
|00001f60| 00 00 01 8b 00 00 01 8d | 00 00 01 90 00 00 01 91 |........|........|
|00001f70| 00 00 01 93 00 00 01 95 | 00 00 01 db 00 00 01 99 |........|........|
|00001f80| 00 00 01 9b 00 00 01 9d | 00 00 01 9c 00 00 01 9e |........|........|
|00001f90| 00 00 01 a1 00 00 01 a3 | 00 00 01 a2 00 00 01 a4 |........|........|
|00001fa0| 00 00 01 a7 00 00 01 ae | 00 00 01 ac 00 00 01 af |........|........|
|00001fb0| 00 00 06 04 00 00 01 b6 | 00 00 01 ba 00 00 01 be |........|........|
|00001fc0| 00 00 01 bd 00 00 01 bb | 00 00 06 43 00 00 06 49 |........|...C...I|
|00001fd0| 00 00 01 bc 00 00 01 c7 | 00 00 05 bc 00 00 02 8b |........|........|
|00001fe0| 00 00 02 87 00 00 02 91 | 00 00 02 93 00 00 02 95 |........|........|
|00001ff0| 00 00 02 97 00 00 02 99 | 00 00 02 9a 00 00 02 9f |........|........|
|00002000| 00 00 02 a1 00 00 01 c3 | 00 00 02 a5 00 00 06 41 |........|.......A|
|00002010| 00 00 02 a0 00 00 02 ab | 00 00 02 ad 00 00 02 af |........|........|
|00002020| 00 00 02 b1 00 00 02 b3 | 00 00 02 b5 00 00 02 b7 |........|........|
|00002030| 00 00 02 b6 00 00 04 46 | 00 00 02 b4 00 00 05 27 |.......F|.......'|
|00002040| 00 00 02 b9 00 00 03 3a | 00 00 03 14 00 00 00 b1 |.......:|........|
|00002050| 00 00 04 93 00 00 04 f0 | 00 00 04 b5 00 00 03 6c |........|.......l|
|00002060| 00 00 03 1d 00 00 03 1f | 00 00 03 21 00 00 05 37 |........|...!...7|
|00002070| 00 00 02 a2 00 00 03 20 | 00 00 00 86 00 00 04 c2 |....... |........|
|00002080| 00 00 00 37 00 00 03 16 | 00 00 02 a8 00 00 02 b0 |...7....|........|
|00002090| 00 00 03 89 00 00 02 d2 | 00 00 02 d4 00 00 02 d7 |........|........|
|000020a0| 00 00 04 28 00 00 00 71 | 00 00 02 bc 00 00 03 4a |...(...q|.......J|
|000020b0| 00 00 04 29 00 00 03 43 | 00 00 03 bc 00 00 03 51 |...)...C|.......Q|
|000020c0| 00 00 00 5c 00 00 04 64 | 00 00 00 65 00 00 00 6b |...\...d|...e...k|
|000020d0| 00 00 00 6d 00 00 00 73 | 00 00 00 7d 00 00 00 88 |...m...s|...}....|
|000020e0| 00 00 00 89 00 00 00 8d | 00 00 00 8f 00 00 01 fb |........|........|
|000020f0| 00 00 00 98 00 00 00 9d | 00 00 00 a5 00 00 03 ee |........|........|
|00002100| 00 00 02 7e 00 00 05 f4 | 00 00 03 a3 00 00 05 b7 |...~....|........|
|00002110| 00 00 03 2f 00 00 02 c1 | 00 00 02 cc 00 00 03 08 |.../....|........|
|00002120| 00 00 02 e4 00 00 06 29 | 00 00 02 fa 00 00 05 e7 |.......)|........|
|00002130| 00 00 04 6b 00 00 03 0b | 00 00 02 f2 00 00 05 1a |...k....|........|
|00002140| 00 00 04 5e 00 00 05 16 | 00 00 06 11 00 00 03 01 |...^....|........|
|00002150| 00 00 02 3a 43 41 53 74 | 00 00 2b f7 00 04 00 00 |...:CASt|..+.....|
|00002160| 2b ed 0b 00 00 03 00 00 | 00 14 00 c2 eb c4 00 00 |+.......|........|
|00002170| 00 00 00 00 00 00 00 00 | 00 02 00 07 00 00 00 00 |........|........|
|00002180| 00 00 2b 8d 00 00 2b 8d | 00 00 2b 8d 00 00 2b 8d |..+...+.|..+...+.|
|00002190| 00 00 2b 8d 00 00 2b a1 | 00 00 2b b7 2d 2d 20 69 |..+...+.|..+.-- i|
|000021a0| 6e 63 6c 75 64 65 64 20 | 66 75 6e 63 74 69 6f 6e |ncluded |function|
|000021b0| 73 3a 0d 2d 2d 20 20 20 | 20 72 65 74 72 69 65 76 |s:.--   | retriev|
|000021c0| 65 72 65 63 28 72 65 63 | 6f 72 64 2c 66 69 6c 65 |erec(rec|ord,file|
|000021d0| 2c 69 6e 64 65 78 29 3a | 20 72 65 74 72 69 65 76 |,index):| retriev|
|000021e0| 65 20 61 6e 20 65 6e 74 | 69 72 65 20 72 65 63 6f |e an ent|ire reco|
|000021f0| 72 64 0d 2d 2d 20 20 20 | 20 72 65 74 72 69 65 76 |rd.--   | retriev|
|00002200| 65 28 72 65 63 6f 72 64 | 2c 66 69 65 6c 64 2c 66 |e(record|,field,f|
|00002210| 69 6c 65 2c 69 6e 64 65 | 78 29 20 20 20 3a 20 72 |ile,inde|x)   : r|
|00002220| 65 74 72 69 65 76 65 73 | 20 61 20 66 69 65 6c 64 |etrieves| a field|
|00002230| 20 66 72 6f 6d 20 61 20 | 72 65 63 6f 72 64 0d 2d | from a |record.-|
|00002240| 2d 20 20 20 20 73 65 61 | 72 63 68 28 73 74 72 69 |-    sea|rch(stri|
|00002250| 6e 67 2c 69 6e 64 65 78 | 6e 61 6d 65 29 20 20 20 |ng,index|name)   |
|00002260| 20 20 20 3a 20 72 65 74 | 75 72 6e 73 20 74 68 65 |   : ret|urns the|
|00002270| 20 72 65 63 6f 72 64 73 | 20 66 6f 6c 6c 6f 77 69 | records| followi|
|00002280| 6e 67 0d 2d 2d 20 20 20 | 20 20 20 20 20 20 20 20 |ng.--   |        |
|00002290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000022a0| 20 20 20 20 20 20 20 20 | 73 74 72 69 6e 67 20 69 |        |string i|
|000022b0| 6e 20 74 68 65 20 69 6e | 64 65 78 0d 2d 2d 20 20 |n the in|dex.--  |
|000022c0| 20 20 4c 6f 67 69 63 61 | 6c 41 6e 64 28 6c 69 73 |  Logica|lAnd(lis|
|000022d0| 74 41 2c 6c 69 73 74 42 | 29 20 20 20 20 20 20 20 |tA,listB|)       |
|000022e0| 3a 20 72 65 74 75 72 6e | 73 20 61 20 6c 69 73 74 |: return|s a list|
|000022f0| 20 77 68 69 63 68 20 68 | 6f 6c 64 73 20 6f 6e 6c | which h|olds onl|
|00002300| 79 20 6d 65 6d 62 65 72 | 73 20 0d 2d 2d 20 20 20 |y member|s .--   |
|00002310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002330| 65 78 69 73 74 69 6e 67 | 20 69 6e 20 62 6f 74 68 |existing| in both|
|00002340| 20 6c 69 73 74 41 20 26 | 20 6c 69 73 74 42 0d 2d | listA &| listB.-|
|00002350| 2d 20 20 20 20 73 6f 72 | 74 6c 69 6e 65 73 28 66 |-    sor|tlines(f|
|00002360| 69 65 6c 64 6e 61 6d 65 | 29 20 20 20 20 20 20 20 |ieldname|)       |
|00002370| 20 20 20 3a 20 72 65 74 | 75 72 6e 73 20 61 20 74 |   : ret|urns a t|
|00002380| 65 78 74 20 66 69 65 6c | 64 20 73 6f 72 74 65 64 |ext fiel|d sorted|
|00002390| 20 6f 6e 20 74 68 65 20 | 66 69 72 73 74 20 69 74 | on the |first it|
|000023a0| 65 6d 0d 2d 2d 20 20 20 | 20 73 6f 72 74 69 74 65 |em.--   | sortite|
|000023b0| 6d 73 28 6c 69 73 74 6e | 61 6d 65 29 20 20 20 20 |ms(listn|ame)    |
|000023c0| 20 20 20 20 20 20 20 3a | 20 72 65 74 75 72 6e 73 |       :| returns|
|000023d0| 20 61 20 6c 69 73 74 20 | 73 6f 72 74 65 64 20 62 | a list |sorted b|
|000023e0| 79 20 69 74 65 6d 0d 2d | 2d 20 20 20 20 42 73 65 |y item.-|-    Bse|
|000023f0| 61 72 63 68 28 73 74 72 | 2c 66 69 65 6c 64 29 20 |arch(str|,field) |
|00002400| 20 20 20 20 20 20 20 20 | 20 20 20 3a 20 72 65 74 |        |   : ret|
|00002410| 75 72 6e 73 20 74 68 65 | 20 6c 69 6e 65 20 6e 75 |urns the| line nu|
|00002420| 6d 20 6f 66 20 73 74 72 | 69 6e 67 20 69 6e 20 66 |m of str|ing in f|
|00002430| 69 65 6c 64 0d 2d 2d 20 | 20 20 20 69 42 73 65 61 |ield.-- |   iBsea|
|00002440| 72 63 68 28 69 74 65 6d | 2c 6c 69 73 74 29 20 20 |rch(item|,list)  |
|00002450| 20 20 20 20 20 20 20 20 | 20 3a 20 72 65 74 75 72 |        | : retur|
|00002460| 6e 73 20 74 68 65 20 70 | 6f 73 20 6f 66 20 69 74 |ns the p|os of it|
|00002470| 65 6d 20 69 6e 20 6c 69 | 73 74 0d 2d 2d 2d 2d 2d |em in li|st.-----|
|00002480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 2d 2d 20 |--------|----.-- |
|000024d0| 72 65 74 72 69 65 76 65 | 72 65 63 3a 20 72 65 74 |retrieve|rec: ret|
|000024e0| 72 69 65 76 65 20 61 6e | 20 65 6e 74 69 72 65 20 |rieve an| entire |
|000024f0| 72 65 63 6f 72 64 20 66 | 72 6f 6d 20 74 68 65 20 |record f|rom the |
|00002500| 64 61 74 61 62 61 73 65 | 0d 6f 6e 20 72 65 74 72 |database|.on retr|
|00002510| 69 65 76 65 72 65 63 20 | 72 65 63 6f 72 64 2c 20 |ieverec |record, |
|00002520| 66 69 6c 65 6e 61 6d 65 | 2c 20 69 6e 64 65 78 0d |filename|, index.|
|00002530| 20 20 67 6c 6f 62 61 6c | 20 67 50 61 74 68 2c 20 |  global| gPath, |
|00002540| 67 42 69 74 2c 20 67 48 | 44 70 61 74 68 0d 20 20 |gBit, gH|Dpath.  |
|00002550| 0d 20 20 2d 2d 73 74 61 | 72 74 74 69 6d 65 72 0d |.  --sta|rttimer.|
|00002560| 20 20 2d 2d 73 65 74 20 | 6d 79 66 69 6c 65 20 3d |  --set |myfile =|
|00002570| 20 66 69 6c 65 69 6f 28 | 6d 4e 65 77 2c 22 72 65 | fileio(|mNew,"re|
|00002580| 61 64 22 2c 67 50 61 74 | 68 20 20 26 20 66 69 6c |ad",gPat|h  & fil|
|00002590| 65 6e 61 6d 65 29 0d 20 | 20 73 65 74 20 6d 79 66 |ename). | set myf|
|000025a0| 69 6c 65 20 3d 20 66 69 | 6c 65 69 6f 28 6d 4e 65 |ile = fi|leio(mNe|
|000025b0| 77 2c 22 72 65 61 64 22 | 2c 67 48 44 70 61 74 68 |w,"read"|,gHDpath|
|000025c0| 20 26 20 66 69 6c 65 6e | 61 6d 65 29 20 2d 2d 20 | & filen|ame) -- |
|000025d0| 74 68 65 20 64 62 61 73 | 65 20 69 73 20 6f 6e 20 |the dbas|e is on |
|000025e0| 74 68 65 20 68 64 20 6e | 6f 77 0d 20 20 69 66 20 |the hd n|ow.  if |
|000025f0| 6e 6f 74 20 6f 62 6a 65 | 63 74 70 28 6d 79 66 69 |not obje|ctp(myfi|
|00002600| 6c 65 29 20 74 68 65 6e | 0d 20 20 20 20 61 6c 65 |le) then|.    ale|
|00002610| 72 74 20 22 50 72 6f 62 | 6c 65 6d 20 6f 70 65 6e |rt "Prob|lem open|
|00002620| 69 6e 67 20 64 61 74 61 | 62 61 73 65 22 0d 20 20 |ing data|base".  |
|00002630| 20 20 72 65 74 75 72 6e | 20 30 0d 20 20 65 6e 64 |  return| 0.  end|
|00002640| 20 69 66 0d 20 20 0d 20 | 20 69 66 20 69 74 65 6d | if.  . | if item|
|00002650| 20 72 65 63 6f 72 64 20 | 6f 66 20 66 69 65 6c 64 | record |of field|
|00002660| 20 69 6e 64 65 78 20 3c | 3e 20 22 22 20 74 68 65 | index <|> "" the|
|00002670| 6e 0d 20 20 20 20 73 65 | 74 20 74 6d 70 20 3d 20 |n.    se|t tmp = |
|00002680| 69 6e 74 65 67 65 72 28 | 69 74 65 6d 20 72 65 63 |integer(|item rec|
|00002690| 6f 72 64 20 6f 66 20 66 | 69 65 6c 64 20 69 6e 64 |ord of f|ield ind|
|000026a0| 65 78 29 20 20 0d 20 20 | 65 6c 73 65 0d 20 20 20 |ex)  .  |else.   |
|000026b0| 20 61 6c 65 72 74 20 22 | 45 72 72 6f 72 20 6c 6f | alert "|Error lo|
|000026c0| 61 64 69 6e 67 20 72 65 | 63 6f 72 64 3a 20 22 20 |ading re|cord: " |
|000026d0| 26 20 72 65 63 6f 72 64 | 20 26 20 22 20 66 72 6f |& record| & " fro|
|000026e0| 6d 20 74 68 65 20 64 61 | 74 61 62 61 73 65 22 0d |m the da|tabase".|
|000026f0| 20 20 65 6e 64 20 69 66 | 0d 20 20 0d 20 20 73 65 |  end if|.  .  se|
|00002700| 74 20 65 72 72 20 3d 20 | 6d 79 66 69 6c 65 28 6d |t err = |myfile(m|
|00002710| 53 65 74 50 6f 73 69 74 | 69 6f 6e 2c 74 6d 70 29 |SetPosit|ion,tmp)|
|00002720| 0d 20 20 0d 20 20 69 66 | 20 65 72 72 20 74 68 65 |.  .  if| err the|
|00002730| 6e 20 0d 20 20 20 20 61 | 6c 65 72 74 20 22 50 72 |n .    a|lert "Pr|
|00002740| 6f 62 6c 65 6d 20 72 65 | 74 72 69 65 76 69 6e 67 |oblem re|trieving|
|00002750| 20 72 65 63 6f 72 64 20 | 22 20 26 20 72 65 63 6f | record |" & reco|
|00002760| 72 64 20 22 20 75 73 69 | 6e 67 20 66 69 6c 65 69 |rd " usi|ng filei|
|00002770| 6f 22 0d 20 20 65 6c 73 | 65 0d 20 20 20 20 73 65 |o".  els|e.    se|
|00002780| 74 20 74 6d 70 20 3d 20 | 6d 79 66 69 6c 65 28 6d |t tmp = |myfile(m|
|00002790| 52 65 61 64 54 6f 6b 65 | 6e 2c 22 40 22 2c 22 22 |ReadToke|n,"@",""|
|000027a0| 29 20 0d 20 20 20 20 6d | 79 66 69 6c 65 28 6d 44 |) .    m|yfile(mD|
|000027b0| 69 73 70 6f 73 65 29 0d | 20 20 20 20 2d 2d 70 75 |ispose).|    --pu|
|000027c0| 74 20 74 68 65 20 74 69 | 6d 65 72 20 20 20 20 0d |t the ti|mer    .|
|000027d0| 20 20 20 20 72 65 74 75 | 72 6e 20 74 6d 70 0d 20 |    retu|rn tmp. |
|000027e0| 20 65 6e 64 20 69 66 0d | 20 20 0d 65 6e 64 20 72 | end if.|  .end r|
|000027f0| 65 74 72 69 65 76 65 72 | 65 63 0d 0d 2d 2d 2d 2d |etriever|ec..----|
|00002800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 0d 2d |--------|-----..-|
|00002850| 2d 20 72 65 74 72 69 65 | 76 65 3a 20 72 65 74 72 |- retrie|ve: retr|
|00002860| 69 65 76 65 20 61 20 66 | 69 65 6c 64 20 66 72 6f |ieve a f|ield fro|
|00002870| 6d 20 61 20 72 65 63 6f | 72 64 20 66 72 6f 6d 20 |m a reco|rd from |
|00002880| 74 68 65 20 64 61 74 61 | 62 61 73 65 0d 6f 6e 20 |the data|base.on |
|00002890| 72 65 74 72 69 65 76 65 | 20 72 65 63 6f 72 64 2c |retrieve| record,|
|000028a0| 66 69 65 6c 64 6e 75 6d | 2c 66 69 6c 65 6e 61 6d |fieldnum|,filenam|
|000028b0| 65 2c 69 6e 64 65 78 0d | 20 20 67 6c 6f 62 61 6c |e,index.|  global|
|000028c0| 20 67 50 61 74 68 2c 20 | 67 42 69 74 2c 20 67 48 | gPath, |gBit, gH|
|000028d0| 44 70 61 74 68 0d 20 20 | 0d 20 20 2d 2d 73 74 61 |Dpath.  |.  --sta|
|000028e0| 72 74 74 69 6d 65 72 0d | 20 20 73 65 74 20 6d 79 |rttimer.|  set my|
|000028f0| 66 69 6c 65 20 3d 20 66 | 69 6c 65 69 6f 28 6d 4e |file = f|ileio(mN|
|00002900| 65 77 2c 22 72 65 61 64 | 22 2c 67 48 44 70 61 74 |ew,"read|",gHDpat|
|00002910| 68 20 26 20 66 69 6c 65 | 6e 61 6d 65 29 0d 20 20 |h & file|name).  |
|00002920| 69 66 20 6e 6f 74 20 6f | 62 6a 65 63 74 70 28 6d |if not o|bjectp(m|
|00002930| 79 66 69 6c 65 29 20 74 | 68 65 6e 0d 20 20 20 20 |yfile) t|hen.    |
|00002940| 61 6c 65 72 74 20 22 50 | 72 6f 62 6c 65 6d 20 6f |alert "P|roblem o|
|00002950| 70 65 6e 69 6e 67 20 64 | 61 74 61 62 61 73 65 22 |pening d|atabase"|
|00002960| 0d 20 20 20 20 72 65 74 | 75 72 6e 20 30 0d 20 20 |.    ret|urn 0.  |
|00002970| 65 6e 64 20 69 66 0d 20 | 20 0d 20 20 73 65 74 20 |end if. | .  set |
|00002980| 74 6d 70 20 3d 20 69 6e | 74 65 67 65 72 28 69 74 |tmp = in|teger(it|
|00002990| 65 6d 20 72 65 63 6f 72 | 64 20 6f 66 20 66 69 65 |em recor|d of fie|
|000029a0| 6c 64 20 69 6e 64 65 78 | 29 0d 20 20 0d 20 20 73 |ld index|).  .  s|
|000029b0| 65 74 20 65 72 72 20 3d | 20 6d 79 66 69 6c 65 28 |et err =| myfile(|
|000029c0| 6d 53 65 74 50 6f 73 69 | 74 69 6f 6e 2c 74 6d 70 |mSetPosi|tion,tmp|
|000029d0| 29 0d 20 20 69 66 20 65 | 72 72 20 74 68 65 6e 20 |).  if e|rr then |
|000029e0| 0d 20 20 20 20 61 6c 65 | 72 74 20 22 70 72 6f 62 |.    ale|rt "prob|
|000029f0| 6c 65 6d 20 72 65 74 72 | 69 65 76 69 6e 67 20 72 |lem retr|ieving r|
|00002a00| 65 63 6f 72 64 22 0d 20 | 20 65 6c 73 65 0d 20 20 |ecord". | else.  |
|00002a10| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 |  repeat| with i |
|00002a20| 3d 20 31 20 74 6f 20 66 | 69 65 6c 64 6e 75 6d 0d |= 1 to f|ieldnum.|
|00002a30| 20 20 20 20 20 20 73 65 | 74 20 74 6d 70 20 3d 20 |      se|t tmp = |
|00002a40| 6d 79 66 69 6c 65 28 6d | 52 65 61 64 4c 69 6e 65 |myfile(m|ReadLine|
|00002a50| 29 20 0d 20 20 20 20 65 | 6e 64 20 72 65 70 65 61 |) .    e|nd repea|
|00002a60| 74 0d 20 20 20 20 73 65 | 74 20 74 6d 70 20 3d 20 |t.    se|t tmp = |
|00002a70| 63 68 61 72 20 31 20 74 | 6f 20 28 74 68 65 20 6e |char 1 t|o (the n|
|00002a80| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 73 20 69 |umber of| chars i|
|00002a90| 6e 20 74 6d 70 20 2d 20 | 31 29 20 6f 66 20 74 6d |n tmp - |1) of tm|
|00002aa0| 70 0d 20 20 20 20 6d 79 | 66 69 6c 65 28 6d 44 69 |p.    my|file(mDi|
|00002ab0| 73 70 6f 73 65 29 0d 20 | 20 20 20 72 65 74 75 72 |spose). |   retur|
|00002ac0| 6e 20 74 6d 70 0d 20 20 | 65 6e 64 20 69 66 0d 65 |n tmp.  |end if.e|
|00002ad0| 6e 64 20 72 65 74 72 69 | 65 76 65 0d 2d 2d 2d 2d |nd retri|eve.----|
|00002ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 2d 2d |--------|-----.--|
|00002b30| 20 73 65 61 72 63 68 3a | 20 70 65 72 66 6f 72 6d | search:| perform|
|00002b40| 73 20 61 20 73 65 61 72 | 63 68 20 6f 6e 20 74 68 |s a sear|ch on th|
|00002b50| 65 20 69 6e 64 65 78 65 | 73 0d 2d 2d 0d 2d 2d 20 |e indexe|s.--.-- |
|00002b60| 73 79 6e 74 61 78 3a 20 | 73 65 61 72 63 68 20 20 |syntax: |search  |
|00002b70| 73 74 72 69 6e 67 20 20 | 69 6e 64 65 78 0d 0d 6f |string  |index..o|
|00002b80| 6e 20 73 65 61 72 63 68 | 20 73 74 72 2c 69 6e 64 |n search| str,ind|
|00002b90| 65 78 74 6d 70 0d 20 20 | 0d 20 20 73 65 74 20 74 |extmp.  |.  set t|
|00002ba0| 6d 70 20 3d 20 20 42 73 | 65 61 72 63 68 20 28 73 |mp =  Bs|earch (s|
|00002bb0| 74 72 2c 69 6e 64 65 78 | 74 6d 70 29 20 0d 20 20 |tr,index|tmp) .  |
|00002bc0| 0d 20 20 69 66 20 74 6d | 70 20 74 68 65 6e 0d 20 |.  if tm|p then. |
|00002bd0| 20 20 20 72 65 74 75 72 | 6e 20 69 74 65 6d 20 32 |   retur|n item 2|
|00002be0| 20 74 6f 20 28 74 68 65 | 20 6e 75 6d 62 65 72 20 | to (the| number |
|00002bf0| 6f 66 20 69 74 65 6d 73 | 20 6f 66 20 6c 69 6e 65 |of items| of line|
|00002c00| 20 74 6d 70 20 6f 66 20 | 66 69 65 6c 64 20 69 6e | tmp of |field in|
|00002c10| 64 65 78 74 6d 70 29 20 | 6f 66 c2 0d 20 20 20 20 |dextmp) |of..    |
|00002c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002c30| 20 6c 69 6e 65 20 74 6d | 70 20 6f 66 20 66 69 65 | line tm|p of fie|
|00002c40| 6c 64 20 69 6e 64 65 78 | 74 6d 70 20 20 20 0d 20 |ld index|tmp   . |
|00002c50| 20 65 6c 73 65 0d 20 20 | 20 20 72 65 74 75 72 6e | else.  |  return|
|00002c60| 20 30 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 0d 65 | 0.  end| if.  .e|
|00002c70| 6e 64 20 73 65 61 72 63 | 68 0d 2d 2d 2d 2d 2d 2d |nd searc|h.------|
|00002c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 6f 6e 20 4c |--------|---.on L|
|00002cd0| 6f 67 69 63 61 6c 41 6e | 64 20 6c 69 73 74 41 2c |ogicalAn|d listA,|
|00002ce0| 6c 69 73 74 42 0d 20 20 | 73 65 74 20 74 6d 70 6c |listB.  |set tmpl|
|00002cf0| 69 73 74 20 3d 20 22 22 | 0d 20 20 0d 20 20 0d 20 |ist = ""|.  .  . |
|00002d00| 20 69 66 20 6c 69 73 74 | 41 20 3d 20 22 22 20 6f | if list|A = "" o|
|00002d10| 72 20 6c 69 73 74 41 20 | 3d 20 30 20 74 68 65 6e |r listA |= 0 then|
|00002d20| 20 72 65 74 75 72 6e 20 | 22 22 0d 20 20 69 66 20 | return |"".  if |
|00002d30| 6c 69 73 74 42 20 3d 20 | 22 22 20 6f 72 20 6c 69 |listB = |"" or li|
|00002d40| 73 74 42 20 3d 20 30 20 | 74 68 65 6e 20 72 65 74 |stB = 0 |then ret|
|00002d50| 75 72 6e 20 22 22 0d 20 | 20 73 65 74 20 6e 75 6d |urn "". | set num|
|00002d60| 41 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |A = the |number o|
|00002d70| 66 20 69 74 65 6d 73 20 | 6f 66 20 6c 69 73 74 41 |f items |of listA|
|00002d80| 0d 20 20 73 65 74 20 6e | 75 6d 42 20 3d 20 74 68 |.  set n|umB = th|
|00002d90| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 69 74 65 6d |e number| of item|
|00002da0| 73 20 6f 66 20 6c 69 73 | 74 42 0d 20 20 73 65 74 |s of lis|tB.  set|
|00002db0| 20 70 6f 73 41 20 3d 20 | 31 0d 20 20 73 65 74 20 | posA = |1.  set |
|00002dc0| 70 6f 73 42 20 3d 20 31 | 0d 20 20 0d 20 20 72 65 |posB = 1|.  .  re|
|00002dd0| 70 65 61 74 20 77 68 69 | 6c 65 20 70 6f 73 41 20 |peat whi|le posA |
|00002de0| 3c 3d 20 6e 75 6d 41 20 | 61 6e 64 20 70 6f 73 42 |<= numA |and posB|
|00002df0| 20 3c 3d 20 6e 75 6d 42 | 0d 20 20 20 20 0d 20 20 | <= numB|.    .  |
|00002e00| 20 20 69 66 20 69 6e 74 | 65 67 65 72 28 69 74 65 |  if int|eger(ite|
|00002e10| 6d 20 70 6f 73 41 20 6f | 66 20 6c 69 73 74 41 29 |m posA o|f listA)|
|00002e20| 20 3d 20 69 6e 74 65 67 | 65 72 28 69 74 65 6d 20 | = integ|er(item |
|00002e30| 70 6f 73 42 20 6f 66 20 | 6c 69 73 74 42 29 20 74 |posB of |listB) t|
|00002e40| 68 65 6e 0d 20 20 20 20 | 20 20 70 75 74 20 69 74 |hen.    |  put it|
|00002e50| 65 6d 20 70 6f 73 41 20 | 6f 66 20 6c 69 73 74 41 |em posA |of listA|
|00002e60| 20 26 20 22 2c 22 20 61 | 66 74 65 72 20 74 6d 70 | & "," a|fter tmp|
|00002e70| 6c 69 73 74 0d 20 20 20 | 20 20 20 73 65 74 20 70 |list.   |   set p|
|00002e80| 6f 73 41 20 3d 20 70 6f | 73 41 20 2b 20 31 0d 20 |osA = po|sA + 1. |
|00002e90| 20 20 20 20 20 73 65 74 | 20 70 6f 73 42 20 3d 20 |     set| posB = |
|00002ea0| 70 6f 73 42 20 2b 20 31 | 0d 20 20 20 20 65 6c 73 |posB + 1|.    els|
|00002eb0| 65 0d 20 20 20 20 20 20 | 69 66 20 69 6e 74 65 67 |e.      |if integ|
|00002ec0| 65 72 28 69 74 65 6d 20 | 70 6f 73 41 20 6f 66 20 |er(item |posA of |
|00002ed0| 6c 69 73 74 41 29 20 3c | 20 69 6e 74 65 67 65 72 |listA) <| integer|
|00002ee0| 28 69 74 65 6d 20 70 6f | 73 42 20 6f 66 20 6c 69 |(item po|sB of li|
|00002ef0| 73 74 42 29 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |stB) the|n.      |
|00002f00| 20 20 73 65 74 20 70 6f | 73 41 20 3d 20 70 6f 73 |  set po|sA = pos|
|00002f10| 41 20 2b 20 31 20 20 0d | 20 20 20 20 20 20 65 6c |A + 1  .|      el|
|00002f20| 73 65 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 70 |se.     |   set p|
|00002f30| 6f 73 42 20 3d 20 70 6f | 73 42 20 2b 20 31 0d 20 |osB = po|sB + 1. |
|00002f40| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00002f50| 20 20 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |  .    e|nd if.  |
|00002f60| 20 20 0d 20 20 65 6e 64 | 20 72 65 70 65 61 74 20 |  .  end| repeat |
|00002f70| 0d 20 20 0d 20 20 73 65 | 74 20 74 6d 70 6c 69 73 |.  .  se|t tmplis|
|00002f80| 74 20 3d 20 69 74 65 6d | 20 31 20 74 6f 20 28 74 |t = item| 1 to (t|
|00002f90| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 65 |he numbe|r of ite|
|00002fa0| 6d 73 20 6f 66 20 74 6d | 70 6c 69 73 74 20 20 2d |ms of tm|plist  -|
|00002fb0| 20 31 29 20 6f 66 20 74 | 6d 70 6c 69 73 74 0d 20 | 1) of t|mplist. |
|00002fc0| 20 2d 2d 73 65 74 20 74 | 6d 70 6c 69 73 74 20 3d | --set t|mplist =|
|00002fd0| 20 73 6f 72 74 69 74 65 | 6d 73 20 28 74 6d 70 6c | sortite|ms (tmpl|
|00002fe0| 69 73 74 29 0d 20 20 0d | 20 20 72 65 74 75 72 6e |ist).  .|  return|
|00002ff0| 20 74 6d 70 6c 69 73 74 | 0d 20 20 0d 65 6e 64 20 | tmplist|.  .end |
|00003000| 4c 6f 67 69 63 61 6c 41 | 6e 64 0d 0d 2d 2d 2d 2d |LogicalA|nd..----|
|00003010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 6f 6e |--------|-----.on|
|00003060| 20 4c 6f 67 69 63 61 6c | 4f 72 20 6c 69 73 74 41 | Logical|Or listA|
|00003070| 2c 6c 69 73 74 42 0d 20 | 20 73 65 74 20 74 6d 70 |,listB. | set tmp|
|00003080| 6c 69 73 74 20 3d 20 22 | 22 0d 20 20 0d 20 20 0d |list = "|".  .  .|
|00003090| 20 20 2d 2d 20 69 66 20 | 6c 69 73 74 41 20 3d 20 |  -- if |listA = |
|000030a0| 22 22 20 6f 72 20 6c 69 | 73 74 41 20 3d 20 30 20 |"" or li|stA = 0 |
|000030b0| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 22 22 0d 20 |then ret|urn "". |
|000030c0| 20 2d 2d 20 69 66 20 6c | 69 73 74 42 20 3d 20 22 | -- if l|istB = "|
|000030d0| 22 20 6f 72 20 6c 69 73 | 74 42 20 3d 20 30 20 74 |" or lis|tB = 0 t|
|000030e0| 68 65 6e 20 72 65 74 75 | 72 6e 20 22 22 0d 20 20 |hen retu|rn "".  |
|000030f0| 73 65 74 20 6e 75 6d 41 | 20 3d 20 74 68 65 20 6e |set numA| = the n|
|00003100| 75 6d 62 65 72 20 6f 66 | 20 69 74 65 6d 73 20 6f |umber of| items o|
|00003110| 66 20 6c 69 73 74 41 0d | 20 20 73 65 74 20 6e 75 |f listA.|  set nu|
|00003120| 6d 42 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |mB = the| number |
|00003130| 6f 66 20 69 74 65 6d 73 | 20 6f 66 20 6c 69 73 74 |of items| of list|
|00003140| 42 0d 20 20 73 65 74 20 | 70 6f 73 41 20 3d 20 31 |B.  set |posA = 1|
|00003150| 0d 20 20 73 65 74 20 70 | 6f 73 42 20 3d 20 31 0d |.  set p|osB = 1.|
|00003160| 20 20 0d 20 20 69 66 20 | 6c 69 73 74 41 20 3c 3e |  .  if |listA <>|
|00003170| 20 22 22 20 61 6e 64 20 | 6c 69 73 74 42 20 3c 3e | "" and |listB <>|
|00003180| 20 22 22 20 74 68 65 6e | 0d 20 20 20 20 72 65 70 | "" then|.    rep|
|00003190| 65 61 74 20 77 68 69 6c | 65 20 70 6f 73 41 20 3c |eat whil|e posA <|
|000031a0| 3d 20 6e 75 6d 41 20 61 | 6e 64 20 70 6f 73 42 20 |= numA a|nd posB |
|000031b0| 3c 3d 20 6e 75 6d 42 20 | 20 20 0d 20 20 20 20 20 |<= numB |  .     |
|000031c0| 20 69 66 20 69 6e 74 65 | 67 65 72 28 69 74 65 6d | if inte|ger(item|
|000031d0| 20 70 6f 73 41 20 6f 66 | 20 6c 69 73 74 41 29 20 | posA of| listA) |
|000031e0| 3d 20 69 6e 74 65 67 65 | 72 28 69 74 65 6d 20 70 |= intege|r(item p|
|000031f0| 6f 73 42 20 6f 66 20 6c | 69 73 74 42 29 20 74 68 |osB of l|istB) th|
|00003200| 65 6e 0d 20 20 20 20 20 | 20 20 20 70 75 74 20 69 |en.     |   put i|
|00003210| 74 65 6d 20 70 6f 73 41 | 20 6f 66 20 6c 69 73 74 |tem posA| of list|
|00003220| 41 20 26 20 22 2c 22 20 | 61 66 74 65 72 20 74 6d |A & "," |after tm|
|00003230| 70 6c 69 73 74 0d 20 20 | 20 20 20 20 20 20 73 65 |plist.  |      se|
|00003240| 74 20 70 6f 73 41 20 3d | 20 70 6f 73 41 20 2b 20 |t posA =| posA + |
|00003250| 31 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 70 6f |1.      |  set po|
|00003260| 73 42 20 3d 20 70 6f 73 | 42 20 2b 20 31 0d 20 20 |sB = pos|B + 1.  |
|00003270| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 20 |    else|.       |
|00003280| 20 69 66 20 69 6e 74 65 | 67 65 72 28 69 74 65 6d | if inte|ger(item|
|00003290| 20 70 6f 73 41 20 6f 66 | 20 6c 69 73 74 41 29 20 | posA of| listA) |
|000032a0| 3c 20 69 6e 74 65 67 65 | 72 28 69 74 65 6d 20 70 |< intege|r(item p|
|000032b0| 6f 73 42 20 6f 66 20 6c | 69 73 74 42 29 20 74 68 |osB of l|istB) th|
|000032c0| 65 6e 0d 20 20 20 20 20 | 20 20 20 20 20 70 75 74 |en.     |     put|
|000032d0| 20 69 74 65 6d 20 70 6f | 73 41 20 6f 66 20 6c 69 | item po|sA of li|
|000032e0| 73 74 41 20 26 20 22 2c | 22 20 61 66 74 65 72 20 |stA & ",|" after |
|000032f0| 74 6d 70 6c 69 73 74 0d | 20 20 20 20 20 20 20 20 |tmplist.|        |
|00003300| 20 20 73 65 74 20 70 6f | 73 41 20 3d 20 70 6f 73 |  set po|sA = pos|
|00003310| 41 20 2b 20 31 20 20 0d | 20 20 20 20 20 20 20 20 |A + 1  .|        |
|00003320| 65 6c 73 65 0d 20 20 20 | 20 20 20 20 20 20 20 70 |else.   |       p|
|00003330| 75 74 20 69 74 65 6d 20 | 70 6f 73 42 20 6f 66 20 |ut item |posB of |
|00003340| 6c 69 73 74 42 20 26 20 | 22 2c 22 20 61 66 74 65 |listB & |"," afte|
|00003350| 72 20 74 6d 70 6c 69 73 | 74 0d 20 20 20 20 20 20 |r tmplis|t.      |
|00003360| 20 20 20 20 73 65 74 20 | 70 6f 73 42 20 3d 20 70 |    set |posB = p|
|00003370| 6f 73 42 20 2b 20 31 0d | 20 20 20 20 20 20 20 20 |osB + 1.|        |
|00003380| 65 6e 64 20 69 66 0d 20 | 20 20 20 20 20 20 20 0d |end if. |       .|
|00003390| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |      en|d if.   |
|000033a0| 20 20 20 0d 20 20 20 20 | 65 6e 64 20 72 65 70 65 |   .    |end repe|
|000033b0| 61 74 20 0d 20 20 65 6e | 64 20 69 66 0d 20 20 0d |at .  en|d if.  .|
|000033c0| 20 20 69 66 20 70 6f 73 | 41 20 3c 3d 20 6e 75 6d |  if pos|A <= num|
|000033d0| 41 20 61 6e 64 20 6c 69 | 73 74 41 20 3c 3e 20 22 |A and li|stA <> "|
|000033e0| 22 20 74 68 65 6e 0d 20 | 20 20 20 70 75 74 20 69 |" then. |   put i|
|000033f0| 74 65 6d 20 70 6f 73 41 | 20 74 6f 20 6e 75 6d 41 |tem posA| to numA|
|00003400| 20 6f 66 20 6c 69 73 74 | 41 20 26 20 22 2c 22 20 | of list|A & "," |
|00003410| 61 66 74 65 72 20 74 6d | 70 6c 69 73 74 0d 20 20 |after tm|plist.  |
|00003420| 65 6c 73 65 20 69 66 20 | 70 6f 73 42 20 3c 3d 20 |else if |posB <= |
|00003430| 6e 75 6d 42 20 74 68 65 | 6e 0d 20 20 20 20 70 75 |numB the|n.    pu|
|00003440| 74 20 69 74 65 6d 20 70 | 6f 73 42 20 74 6f 20 6e |t item p|osB to n|
|00003450| 75 6d 42 20 6f 66 20 6c | 69 73 74 42 20 26 20 22 |umB of l|istB & "|
|00003460| 2c 22 20 61 66 74 65 72 | 20 74 6d 70 6c 69 73 74 |," after| tmplist|
|00003470| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 0d 20 20 73 |.  end i|f.  .  s|
|00003480| 65 74 20 74 6d 70 6c 69 | 73 74 20 3d 20 69 74 65 |et tmpli|st = ite|
|00003490| 6d 20 31 20 74 6f 20 28 | 74 68 65 20 6e 75 6d 62 |m 1 to (|the numb|
|000034a0| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 6f 66 20 74 |er of it|ems of t|
|000034b0| 6d 70 6c 69 73 74 20 20 | 2d 20 31 29 20 6f 66 20 |mplist  |- 1) of |
|000034c0| 74 6d 70 6c 69 73 74 0d | 20 20 2d 2d 73 65 74 20 |tmplist.|  --set |
|000034d0| 74 6d 70 6c 69 73 74 20 | 3d 20 73 6f 72 74 69 74 |tmplist |= sortit|
|000034e0| 65 6d 73 20 28 74 6d 70 | 6c 69 73 74 29 0d 20 20 |ems (tmp|list).  |
|000034f0| 0d 20 20 72 65 74 75 72 | 6e 20 74 6d 70 6c 69 73 |.  retur|n tmplis|
|00003500| 74 0d 20 20 0d 65 6e 64 | 20 4c 6f 67 69 63 61 6c |t.  .end| Logical|
|00003510| 4f 72 0d 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Or..----|--------|
|00003520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003560| 2d 2d 2d 2d 2d 0d 0d 2d | 2d 20 6d 6f 64 69 66 69 |-----..-|- modifi|
|00003570| 65 64 20 74 6f 20 63 6f | 6d 70 61 72 65 20 6f 6e |ed to co|mpare on|
|00003580| 20 69 74 65 6d 20 31 20 | 69 6e 73 74 65 61 64 20 | item 1 |instead |
|00003590| 6f 66 20 74 68 65 20 77 | 68 6f 6c 65 20 6c 69 6e |of the w|hole lin|
|000035a0| 65 0d 6f 6e 20 42 73 65 | 61 72 63 68 20 73 74 72 |e.on Bse|arch str|
|000035b0| 2c 20 74 78 74 0d 20 20 | 0d 20 20 73 65 74 20 74 |, txt.  |.  set t|
|000035c0| 78 74 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |xt = the| number |
|000035d0| 6f 66 20 63 61 73 74 20 | 74 78 74 0d 20 20 73 65 |of cast |txt.  se|
|000035e0| 74 20 73 74 61 72 74 20 | 3d 20 31 0d 20 20 73 65 |t start |= 1.  se|
|000035f0| 74 20 65 6e 64 20 3d 20 | 74 68 65 20 6e 75 6d 62 |t end = |the numb|
|00003600| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 6f 66 20 66 |er of li|nes of f|
|00003610| 69 65 6c 64 20 74 78 74 | 20 20 0d 20 20 73 65 74 |ield txt|  .  set|
|00003620| 20 6d 69 64 64 6c 65 20 | 3d 20 28 73 74 61 72 74 | middle |= (start|
|00003630| 20 2b 20 65 6e 64 29 20 | 2f 20 32 20 20 0d 20 20 | + end) |/ 2  .  |
|00003640| 0d 20 20 2d 2d 70 75 74 | 20 22 73 74 72 20 3d 20 |.  --put| "str = |
|00003650| 22 20 26 20 73 74 72 20 | 26 26 20 22 20 74 78 74 |" & str |&& " txt|
|00003660| 20 3d 20 22 20 26 26 20 | 74 78 74 0d 20 20 2d 2d | = " && |txt.  --|
|00003670| 20 62 73 65 61 72 63 68 | 20 6d 65 63 68 61 6e 69 | bsearch| mechani|
|00003680| 73 6d 0d 20 20 2d 2d 20 | 63 6f 6d 70 61 72 65 20 |sm.  -- |compare |
|00003690| 74 68 65 20 73 74 72 20 | 74 6f 20 74 68 65 20 6d |the str |to the m|
|000036a0| 69 64 64 6c 65 20 6c 69 | 6e 65 20 6f 66 20 74 68 |iddle li|ne of th|
|000036b0| 65 20 66 69 65 6c 64 0d | 20 20 2d 2d 20 69 66 20 |e field.|  -- if |
|000036c0| 73 74 72 20 3c 20 74 68 | 65 20 6d 69 64 64 6c 65 |str < th|e middle|
|000036d0| 20 6c 69 6e 65 20 74 68 | 65 6e 20 73 65 74 20 65 | line th|en set e|
|000036e0| 6e 64 20 74 6f 20 62 65 | 20 74 68 65 20 6d 69 64 |nd to be| the mid|
|000036f0| 64 6c 65 0d 20 20 2d 2d | 20 69 66 20 73 74 72 20 |dle.  --| if str |
|00003700| 3e 20 6d 69 64 64 6c 65 | 20 74 68 65 6e 20 73 65 |> middle| then se|
|00003710| 74 20 73 74 61 72 74 20 | 3d 20 6d 69 64 64 6c 65 |t start |= middle|
|00003720| 0d 20 20 2d 2d 20 69 66 | 20 73 74 72 20 3d 20 6d |.  -- if| str = m|
|00003730| 69 64 64 6c 65 20 74 68 | 65 6e 20 79 6f 75 27 72 |iddle th|en you'r|
|00003740| 65 20 73 65 74 0d 20 20 | 0d 20 20 72 65 70 65 61 |e set.  |.  repea|
|00003750| 74 20 77 68 69 6c 65 20 | 73 74 72 20 3c 3e 20 69 |t while |str <> i|
|00003760| 74 65 6d 20 31 20 6f 66 | 20 6c 69 6e 65 20 6d 69 |tem 1 of| line mi|
|00003770| 64 64 6c 65 20 6f 66 20 | 66 69 65 6c 64 20 74 78 |ddle of |field tx|
|00003780| 74 0d 20 20 20 20 0d 20 | 20 20 20 0d 20 20 20 20 |t.    . |   .    |
|00003790| 69 66 20 73 74 72 20 3d | 20 69 74 65 6d 20 31 20 |if str =| item 1 |
|000037a0| 6f 66 20 6c 69 6e 65 20 | 65 6e 64 20 6f 66 20 66 |of line |end of f|
|000037b0| 69 65 6c 64 20 74 78 74 | 20 74 68 65 6e 0d 20 20 |ield txt| then.  |
|000037c0| 20 20 20 20 72 65 74 75 | 72 6e 20 65 6e 64 0d 20 |    retu|rn end. |
|000037d0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 0d 20 |   end i|f.    . |
|000037e0| 20 20 20 69 66 20 73 74 | 61 72 74 20 3d 20 6d 69 |   if st|art = mi|
|000037f0| 64 64 6c 65 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |ddle the|n.      |
|00003800| 72 65 74 75 72 6e 20 30 | 0d 20 20 20 20 65 6e 64 |return 0|.    end|
|00003810| 20 69 66 20 0d 20 20 20 | 20 0d 20 20 20 20 69 66 | if .   | .    if|
|00003820| 20 73 74 72 20 3c 20 69 | 74 65 6d 20 31 20 6f 66 | str < i|tem 1 of|
|00003830| 20 6c 69 6e 65 20 6d 69 | 64 64 6c 65 20 6f 66 20 | line mi|ddle of |
|00003840| 66 69 65 6c 64 20 74 78 | 74 20 74 68 65 6e 0d 20 |field tx|t then. |
|00003850| 20 20 20 20 20 73 65 74 | 20 65 6e 64 20 3d 20 6d |     set| end = m|
|00003860| 69 64 64 6c 65 0d 20 20 | 20 20 65 6c 73 65 0d 20 |iddle.  |  else. |
|00003870| 20 20 20 20 20 73 65 74 | 20 73 74 61 72 74 20 3d |     set| start =|
|00003880| 20 6d 69 64 64 6c 65 0d | 20 20 20 20 65 6e 64 20 | middle.|    end |
|00003890| 69 66 0d 20 20 20 20 0d | 20 20 20 20 0d 20 20 20 |if.    .|    .   |
|000038a0| 20 73 65 74 20 6d 69 64 | 64 6c 65 20 3d 20 28 73 | set mid|dle = (s|
|000038b0| 74 61 72 74 20 2b 20 65 | 6e 64 29 20 2f 20 32 20 |tart + e|nd) / 2 |
|000038c0| 20 0d 20 20 20 20 0d 20 | 20 65 6e 64 20 72 65 70 | .    . | end rep|
|000038d0| 65 61 74 0d 20 20 0d 20 | 20 69 66 20 73 74 72 20 |eat.  . | if str |
|000038e0| 3d 20 69 74 65 6d 20 31 | 20 6f 66 20 6c 69 6e 65 |= item 1| of line|
|000038f0| 20 6d 69 64 64 6c 65 20 | 6f 66 20 66 69 65 6c 64 | middle |of field|
|00003900| 20 74 78 74 20 74 68 65 | 6e 0d 20 20 20 20 2d 2d | txt the|n.    --|
|00003910| 61 6c 65 72 74 20 73 74 | 72 69 6e 67 28 6d 69 64 |alert st|ring(mid|
|00003920| 64 6c 65 29 20 20 20 20 | 0d 20 20 20 20 72 65 74 |dle)    |.    ret|
|00003930| 75 72 6e 20 6d 69 64 64 | 6c 65 0d 20 20 65 6c 73 |urn midd|le.  els|
|00003940| 65 0d 20 20 20 20 72 65 | 74 75 72 6e 20 30 0d 20 |e.    re|turn 0. |
|00003950| 20 65 6e 64 20 69 66 0d | 20 20 0d 65 6e 64 20 42 | end if.|  .end B|
|00003960| 73 65 61 72 63 68 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |search.-|--------|
|00003970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000039a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000039b0| 2d 2d 2d 2d 2d 20 20 0d | 2d 2d 20 73 65 61 72 63 |-----  .|-- searc|
|000039c0| 68 65 73 20 61 6e 20 69 | 74 65 6d 20 6f 6e 20 61 |hes an i|tem on a|
|000039d0| 20 6c 69 73 74 0d 6f 6e | 20 69 42 73 65 61 72 63 | list.on| iBsearc|
|000039e0| 68 20 73 74 72 2c 74 78 | 74 0d 20 20 0d 20 20 73 |h str,tx|t.  .  s|
|000039f0| 65 74 20 73 74 61 72 74 | 20 3d 20 31 0d 20 20 73 |et start| = 1.  s|
|00003a00| 65 74 20 65 6e 64 20 3d | 20 74 68 65 20 6e 75 6d |et end =| the num|
|00003a10| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 6f 66 20 |ber of i|tems of |
|00003a20| 66 69 65 6c 64 20 74 78 | 74 20 20 0d 20 20 73 65 |field tx|t  .  se|
|00003a30| 74 20 6d 69 64 64 6c 65 | 20 3d 20 28 73 74 61 72 |t middle| = (star|
|00003a40| 74 20 2b 20 65 6e 64 29 | 20 2f 20 32 20 20 0d 20 |t + end)| / 2  . |
|00003a50| 20 0d 20 20 2d 2d 20 62 | 73 65 61 72 63 68 20 6d | .  -- b|search m|
|00003a60| 65 63 68 61 6e 69 73 6d | 0d 20 20 2d 2d 20 63 6f |echanism|.  -- co|
|00003a70| 6d 70 61 72 65 20 74 68 | 65 20 73 74 72 20 74 6f |mpare th|e str to|
|00003a80| 20 74 68 65 20 6d 69 64 | 64 6c 65 20 6c 69 6e 65 | the mid|dle line|
|00003a90| 20 6f 66 20 74 68 65 20 | 66 69 65 6c 64 0d 20 20 | of the |field.  |
|00003aa0| 2d 2d 20 69 66 20 73 74 | 72 20 3c 20 74 68 65 20 |-- if st|r < the |
|00003ab0| 6d 69 64 64 6c 65 20 6c | 69 6e 65 20 74 68 65 6e |middle l|ine then|
|00003ac0| 20 73 65 74 20 65 6e 64 | 20 74 6f 20 62 65 20 74 | set end| to be t|
|00003ad0| 68 65 20 6d 69 64 64 6c | 65 0d 20 20 2d 2d 20 69 |he middl|e.  -- i|
|00003ae0| 66 20 73 74 72 20 3e 20 | 6d 69 64 64 6c 65 20 74 |f str > |middle t|
|00003af0| 68 65 6e 20 73 65 74 20 | 73 74 61 72 74 20 3d 20 |hen set |start = |
|00003b00| 6d 69 64 64 6c 65 0d 20 | 20 2d 2d 20 69 66 20 73 |middle. | -- if s|
|00003b10| 74 72 20 3d 20 6d 69 64 | 64 6c 65 20 74 68 65 6e |tr = mid|dle then|
|00003b20| 20 79 6f 75 27 72 65 20 | 73 65 74 0d 20 20 2d 2d | you're |set.  --|
|00003b30| 73 65 74 20 73 74 72 20 | 3d 20 69 6e 74 65 67 65 |set str |= intege|
|00003b40| 72 28 73 74 72 29 0d 20 | 20 0d 20 20 72 65 70 65 |r(str). | .  repe|
|00003b50| 61 74 20 77 68 69 6c 65 | 20 73 74 72 20 3c 3e 20 |at while| str <> |
|00003b60| 69 6e 74 65 67 65 72 28 | 69 74 65 6d 20 6d 69 64 |integer(|item mid|
|00003b70| 64 6c 65 20 6f 66 20 74 | 78 74 29 0d 20 20 20 20 |dle of t|xt).    |
|00003b80| 70 75 74 20 73 74 61 72 | 74 20 26 26 20 6d 69 64 |put star|t && mid|
|00003b90| 64 6c 65 20 26 26 20 65 | 6e 64 0d 20 20 20 20 69 |dle && e|nd.    i|
|00003ba0| 66 20 73 74 72 20 3d 20 | 69 6e 74 65 67 65 72 28 |f str = |integer(|
|00003bb0| 69 74 65 6d 20 65 6e 64 | 20 6f 66 20 74 78 74 29 |item end| of txt)|
|00003bc0| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 72 65 74 75 | then.  |    retu|
|00003bd0| 72 6e 20 65 6e 64 0d 20 | 20 20 20 65 6e 64 20 69 |rn end. |   end i|
|00003be0| 66 0d 20 20 20 20 0d 20 | 20 20 20 69 66 20 73 74 |f.    . |   if st|
|00003bf0| 61 72 74 20 3d 20 69 6e | 74 65 67 65 72 28 6d 69 |art = in|teger(mi|
|00003c00| 64 64 6c 65 29 20 74 68 | 65 6e 0d 20 20 20 20 20 |ddle) th|en.     |
|00003c10| 20 72 65 74 75 72 6e 20 | 30 0d 20 20 20 20 65 6e | return |0.    en|
|00003c20| 64 20 69 66 20 0d 20 20 | 20 20 0d 20 20 20 20 69 |d if .  |  .    i|
|00003c30| 66 20 73 74 72 20 3c 20 | 69 6e 74 65 67 65 72 28 |f str < |integer(|
|00003c40| 69 74 65 6d 20 20 6d 69 | 64 64 6c 65 20 6f 66 20 |item  mi|ddle of |
|00003c50| 74 78 74 29 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |txt) the|n.      |
|00003c60| 73 65 74 20 65 6e 64 20 | 3d 20 6d 69 64 64 6c 65 |set end |= middle|
|00003c70| 0d 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |.    els|e.      |
|00003c80| 73 65 74 20 73 74 61 72 | 74 20 3d 20 6d 69 64 64 |set star|t = midd|
|00003c90| 6c 65 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |le.    e|nd if.  |
|00003ca0| 20 20 0d 20 20 20 20 0d | 20 20 20 20 73 65 74 20 |  .    .|    set |
|00003cb0| 6d 69 64 64 6c 65 20 3d | 20 28 73 74 61 72 74 20 |middle =| (start |
|00003cc0| 2b 20 65 6e 64 29 20 2f | 20 32 20 20 0d 20 20 20 |+ end) /| 2  .   |
|00003cd0| 20 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 20 | .  end |repeat. |
|00003ce0| 20 0d 20 20 69 66 20 73 | 74 72 20 3d 20 69 6e 74 | .  if s|tr = int|
|00003cf0| 65 67 65 72 28 69 74 65 | 6d 20 20 6d 69 64 64 6c |eger(ite|m  middl|
|00003d00| 65 20 6f 66 20 74 78 74 | 29 20 74 68 65 6e 0d 20 |e of txt|) then. |
|00003d10| 20 20 20 70 75 74 20 22 | 66 6f 75 6e 64 20 22 26 |   put "|found "&|
|00003d20| 26 73 74 72 26 26 22 20 | 69 6e 20 6c 69 73 74 22 |&str&&" |in list"|
|00003d30| 20 20 20 20 0d 20 20 20 | 20 2d 2d 61 6c 65 72 74 |    .   | --alert|
|00003d40| 20 73 74 72 69 6e 67 28 | 6d 69 64 64 6c 65 29 20 | string(|middle) |
|00003d50| 20 20 20 0d 20 20 20 20 | 72 65 74 75 72 6e 20 6d |   .    |return m|
|00003d60| 69 64 64 6c 65 0d 20 20 | 65 6c 73 65 0d 20 20 20 |iddle.  |else.   |
|00003d70| 20 70 75 74 20 22 64 69 | 64 6e 27 74 20 66 69 6e | put "di|dn't fin|
|00003d80| 64 20 22 26 26 73 74 72 | 0d 20 20 20 20 72 65 74 |d "&&str|.    ret|
|00003d90| 75 72 6e 20 30 0d 20 20 | 65 6e 64 20 69 66 0d 20 |urn 0.  |end if. |
|00003da0| 20 0d 65 6e 64 20 69 42 | 73 65 61 72 63 68 0d 0d | .end iB|search..|
|00003db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 20 |--------|------  |
|00003e00| 0d 2d 2d 20 73 6f 72 74 | 6c 69 6e 65 73 0d 2d 2d |.-- sort|lines.--|
|00003e10| 20 74 68 69 73 20 70 65 | 72 66 6f 72 6d 73 20 61 | this pe|rforms a|
|00003e20| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 62 75 62 62 | version| of bubb|
|00003e30| 6c 65 20 73 6f 72 74 20 | 6f 6e 20 74 68 65 20 6c |le sort |on the l|
|00003e40| 69 6e 65 73 20 0d 2d 2d | 20 6f 66 20 61 20 66 69 |ines .--| of a fi|
|00003e50| 65 6c 64 20 2d 20 69 74 | 20 73 6f 72 74 73 20 62 |eld - it| sorts b|
|00003e60| 79 20 74 68 65 20 66 69 | 72 73 74 20 69 74 65 6d |y the fi|rst item|
|00003e70| 20 6f 6e 20 65 61 63 68 | 20 6c 69 6e 65 0d 0d 6f | on each| line..o|
|00003e80| 6e 20 73 6f 72 74 6c 69 | 6e 65 73 20 74 78 74 0d |n sortli|nes txt.|
|00003e90| 20 20 0d 20 20 73 65 74 | 20 6e 75 6d 20 3d 20 74 |  .  set| num = t|
|00003ea0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|00003eb0| 65 73 20 6f 66 20 66 69 | 65 6c 64 20 74 78 74 0d |es of fi|eld txt.|
|00003ec0| 20 20 73 65 74 20 74 6d | 70 32 20 3d 20 74 68 65 |  set tm|p2 = the|
|00003ed0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|00003ee0| 74 78 74 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |txt.  re|peat wit|
|00003ef0| 68 20 69 20 3d 20 31 20 | 74 6f 20 6e 75 6d 0d 20 |h i = 1 |to num. |
|00003f00| 20 20 20 73 65 74 20 66 | 6c 61 67 20 3d 20 30 20 |   set f|lag = 0 |
|00003f10| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |.    rep|eat with|
|00003f20| 20 6a 20 3d 20 32 20 74 | 6f 20 6e 75 6d 0d 20 20 | j = 2 t|o num.  |
|00003f30| 20 20 20 20 69 66 20 69 | 74 65 6d 20 31 20 6f 66 |    if i|tem 1 of|
|00003f40| 20 6c 69 6e 65 20 6a 20 | 6f 66 20 66 69 65 6c 64 | line j |of field|
|00003f50| 20 74 6d 70 32 20 3c 20 | 69 74 65 6d 20 31 20 6f | tmp2 < |item 1 o|
|00003f60| 66 20 6c 69 6e 65 20 28 | 6a 2d 31 29 20 6f 66 20 |f line (|j-1) of |
|00003f70| 66 69 65 6c 64 20 74 6d | 70 32 20 74 68 65 6e 0d |field tm|p2 then.|
|00003f80| 20 20 20 20 20 20 20 20 | 73 65 74 20 66 6c 61 67 |        |set flag|
|00003f90| 20 3d 20 31 20 20 20 20 | 20 20 20 20 0d 20 20 20 | = 1    |    .   |
|00003fa0| 20 20 20 20 20 73 65 74 | 20 74 6d 70 20 3d 20 6c |     set| tmp = l|
|00003fb0| 69 6e 65 20 6a 2d 31 20 | 6f 66 20 66 69 65 6c 64 |ine j-1 |of field|
|00003fc0| 20 74 6d 70 32 0d 20 20 | 20 20 20 20 20 20 70 75 | tmp2.  |      pu|
|00003fd0| 74 20 6c 69 6e 65 20 6a | 20 6f 66 20 66 69 65 6c |t line j| of fiel|
|00003fe0| 64 20 74 78 74 20 69 6e | 74 6f 20 6c 69 6e 65 20 |d txt in|to line |
|00003ff0| 28 6a 2d 31 29 20 6f 66 | 20 66 69 65 6c 64 20 74 |(j-1) of| field t|
|00004000| 6d 70 32 0d 20 20 20 20 | 20 20 20 20 70 75 74 20 |mp2.    |    put |
|00004010| 74 6d 70 20 69 6e 74 6f | 20 6c 69 6e 65 20 6a 20 |tmp into| line j |
|00004020| 6f 66 20 66 69 65 6c 64 | 20 74 6d 70 32 20 20 20 |of field| tmp2   |
|00004030| 20 20 20 20 0d 20 20 20 | 20 20 20 65 6e 64 20 69 |    .   |   end i|
|00004040| 66 0d 20 20 20 20 65 6e | 64 20 72 65 70 65 61 74 |f.    en|d repeat|
|00004050| 0d 20 20 20 20 69 66 20 | 66 6c 61 67 20 3d 20 30 |.    if |flag = 0|
|00004060| 20 74 68 65 6e 20 65 78 | 69 74 20 72 65 70 65 61 | then ex|it repea|
|00004070| 74 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 65 |t.  end |repeat.e|
|00004080| 6e 64 20 73 6f 72 74 0d | 0d 2d 2d 2d 2d 2d 2d 2d |nd sort.|.-------|
|00004090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000040a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000040b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000040c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000040d0| 2d 2d 2d 2d 2d 2d 2d 20 | 20 0d 2d 2d 20 73 6f 72 |------- | .-- sor|
|000040e0| 74 69 74 65 6d 73 0d 2d | 2d 20 74 68 69 73 20 70 |titems.-|- this p|
|000040f0| 65 72 66 6f 72 6d 73 20 | 61 20 76 65 72 73 69 6f |erforms |a versio|
|00004100| 6e 20 6f 66 20 62 75 62 | 62 6c 65 20 73 6f 72 74 |n of bub|ble sort|
|00004110| 20 6f 6e 20 74 68 65 20 | 69 74 65 6d 73 20 0d 2d | on the |items .-|
|00004120| 2d 20 6f 66 20 61 20 6c | 69 6e 65 0d 0d 6f 6e 20 |- of a l|ine..on |
|00004130| 73 6f 72 74 69 74 65 6d | 73 20 74 78 74 0d 20 20 |sortitem|s txt.  |
|00004140| 0d 20 20 69 66 20 74 78 | 74 20 3d 20 22 22 20 74 |.  if tx|t = "" t|
|00004150| 68 65 6e 20 72 65 74 75 | 72 6e 20 22 22 0d 20 20 |hen retu|rn "".  |
|00004160| 73 65 74 20 6e 75 6d 20 | 3d 20 74 68 65 20 6e 75 |set num |= the nu|
|00004170| 6d 62 65 72 20 6f 66 20 | 69 74 65 6d 73 20 6f 66 |mber of |items of|
|00004180| 20 74 78 74 0d 20 20 72 | 65 70 65 61 74 20 77 69 | txt.  r|epeat wi|
|00004190| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 6e 75 6d 0d |th i = 1| to num.|
|000041a0| 20 20 20 20 73 65 74 20 | 66 6c 61 67 20 3d 20 30 |    set |flag = 0|
|000041b0| 20 0d 20 20 20 20 72 65 | 70 65 61 74 20 77 69 74 | .    re|peat wit|
|000041c0| 68 20 6a 20 3d 20 32 20 | 74 6f 20 6e 75 6d 0d 20 |h j = 2 |to num. |
|000041d0| 20 20 20 20 20 69 66 20 | 69 74 65 6d 20 6a 20 6f |     if |item j o|
|000041e0| 66 20 74 78 74 20 3c 20 | 69 74 65 6d 20 28 6a 2d |f txt < |item (j-|
|000041f0| 31 29 20 6f 66 20 74 78 | 74 20 74 68 65 6e 0d 20 |1) of tx|t then. |
|00004200| 20 20 20 20 20 20 20 73 | 65 74 20 66 6c 61 67 20 |       s|et flag |
|00004210| 3d 20 31 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |= 1     |   .    |
|00004220| 20 20 20 20 73 65 74 20 | 74 6d 70 20 3d 20 69 74 |    set |tmp = it|
|00004230| 65 6d 20 6a 2d 31 20 6f | 66 20 74 78 74 0d 20 20 |em j-1 o|f txt.  |
|00004240| 20 20 20 20 20 20 70 75 | 74 20 69 74 65 6d 20 6a |      pu|t item j|
|00004250| 20 6f 66 20 74 78 74 20 | 69 6e 74 6f 20 69 74 65 | of txt |into ite|
|00004260| 6d 20 28 6a 2d 31 29 20 | 6f 66 20 74 78 74 0d 20 |m (j-1) |of txt. |
|00004270| 20 20 20 20 20 20 20 70 | 75 74 20 74 6d 70 20 69 |       p|ut tmp i|
|00004280| 6e 74 6f 20 69 74 65 6d | 20 6a 20 6f 66 20 74 78 |nto item| j of tx|
|00004290| 74 20 20 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |t       | .      |
|000042a0| 65 6e 64 20 69 66 0d 20 | 20 20 20 65 6e 64 20 72 |end if. |   end r|
|000042b0| 65 70 65 61 74 0d 20 20 | 20 20 69 66 20 66 6c 61 |epeat.  |  if fla|
|000042c0| 67 20 3d 20 30 20 74 68 | 65 6e 20 65 78 69 74 20 |g = 0 th|en exit |
|000042d0| 72 65 70 65 61 74 0d 20 | 20 65 6e 64 20 72 65 70 |repeat. | end rep|
|000042e0| 65 61 74 0d 20 20 72 65 | 74 75 72 6e 20 74 78 74 |eat.  re|turn txt|
|000042f0| 0d 65 6e 64 20 73 6f 72 | 74 0d 2d 2d 2d 2d 2d 2d |.end sor|t.------|
|00004300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004340| 2d 2d 2d 2d 2d 2d 2d 2d | 20 20 0d 2d 2d 20 6d 65 |--------|  .-- me|
|00004350| 72 67 65 20 20 0d 2d 2d | 20 74 68 69 73 20 74 61 |rge  .--| this ta|
|00004360| 6b 65 73 20 32 20 6c 69 | 73 74 73 20 6f 66 20 69 |kes 2 li|sts of i|
|00004370| 74 65 6d 73 20 61 6e 64 | 20 6d 65 72 67 65 73 20 |tems and| merges |
|00004380| 74 68 65 6d 20 2d 20 69 | 2e 65 2e 20 70 75 74 73 |them - i|.e. puts|
|00004390| 20 74 68 65 6d 20 74 6f | 67 65 74 68 65 72 2c 0d | them to|gether,.|
|000043a0| 2d 2d 20 61 6e 64 20 72 | 65 6d 6f 76 65 73 20 64 |-- and r|emoves d|
|000043b0| 75 70 6c 69 63 61 74 65 | 73 20 74 68 65 6e 20 73 |uplicate|s then s|
|000043c0| 6f 72 74 73 20 69 74 0d | 0d 6f 6e 20 6d 65 72 67 |orts it.|.on merg|
|000043d0| 65 20 6c 69 73 74 41 2c | 20 6c 69 73 74 42 0d 20 |e listA,| listB. |
|000043e0| 20 0d 20 20 69 66 20 6c | 69 73 74 41 20 3d 20 22 | .  if l|istA = "|
|000043f0| 22 20 74 68 65 6e 20 72 | 65 74 75 72 6e 20 6c 69 |" then r|eturn li|
|00004400| 73 74 42 0d 20 20 69 66 | 20 6c 69 73 74 42 20 3d |stB.  if| listB =|
|00004410| 20 22 22 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 | "" then| return |
|00004420| 6c 69 73 74 41 0d 20 20 | 73 65 74 20 6c 69 73 74 |listA.  |set list|
|00004430| 4e 65 77 20 3d 20 22 22 | 0d 20 20 0d 20 20 73 65 |New = ""|.  .  se|
|00004440| 74 20 70 6f 73 41 20 3d | 20 31 0d 20 20 73 65 74 |t posA =| 1.  set|
|00004450| 20 70 6f 73 42 20 3d 20 | 31 0d 20 20 73 65 74 20 | posB = |1.  set |
|00004460| 70 6f 73 4e 65 77 20 3d | 20 31 0d 20 20 0d 20 20 |posNew =| 1.  .  |
|00004470| 73 65 74 20 6e 75 6d 41 | 20 3d 20 74 68 65 20 6e |set numA| = the n|
|00004480| 75 6d 62 65 72 20 6f 66 | 20 69 74 65 6d 73 20 6f |umber of| items o|
|00004490| 66 20 6c 69 73 74 41 0d | 20 20 73 65 74 20 6e 75 |f listA.|  set nu|
|000044a0| 6d 42 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |mB = the| number |
|000044b0| 6f 66 20 69 74 65 6d 73 | 20 6f 66 20 6c 69 73 74 |of items| of list|
|000044c0| 42 0d 20 20 0d 20 20 72 | 65 70 65 61 74 20 77 68 |B.  .  r|epeat wh|
|000044d0| 69 6c 65 20 70 6f 73 41 | 20 3c 3d 20 6e 75 6d 41 |ile posA| <= numA|
|000044e0| 20 61 6e 64 20 70 6f 73 | 42 20 3c 3d 20 6e 75 6d | and pos|B <= num|
|000044f0| 42 0d 20 20 20 20 69 66 | 20 69 6e 74 65 67 65 72 |B.    if| integer|
|00004500| 28 69 74 65 6d 20 70 6f | 73 41 20 6f 66 20 6c 69 |(item po|sA of li|
|00004510| 73 74 41 29 20 3d 20 69 | 6e 74 65 67 65 72 28 69 |stA) = i|nteger(i|
|00004520| 74 65 6d 20 70 6f 73 42 | 20 6f 66 20 6c 69 73 74 |tem posB| of list|
|00004530| 42 29 20 74 68 65 6e 0d | 20 20 20 20 20 20 70 75 |B) then.|      pu|
|00004540| 74 20 69 74 65 6d 20 70 | 6f 73 41 20 6f 66 20 6c |t item p|osA of l|
|00004550| 69 73 74 41 20 26 20 22 | 2c 22 20 61 66 74 65 72 |istA & "|," after|
|00004560| 20 6c 69 73 74 4e 65 77 | 0d 20 20 20 20 20 20 73 | listNew|.      s|
|00004570| 65 74 20 70 6f 73 41 20 | 3d 20 70 6f 73 41 20 2b |et posA |= posA +|
|00004580| 20 31 0d 20 20 20 20 20 | 20 73 65 74 20 70 6f 73 | 1.     | set pos|
|00004590| 42 20 3d 20 70 6f 73 42 | 20 2b 20 31 0d 20 20 20 |B = posB| + 1.   |
|000045a0| 20 65 6c 73 65 20 69 66 | 20 69 6e 74 65 67 65 72 | else if| integer|
|000045b0| 28 69 74 65 6d 20 70 6f | 73 41 20 6f 66 20 6c 69 |(item po|sA of li|
|000045c0| 73 74 41 29 20 3c 20 69 | 6e 74 65 67 65 72 28 69 |stA) < i|nteger(i|
|000045d0| 74 65 6d 20 70 6f 73 42 | 20 6f 66 20 6c 69 73 74 |tem posB| of list|
|000045e0| 42 29 20 74 68 65 6e 0d | 20 20 20 20 20 20 70 75 |B) then.|      pu|
|000045f0| 74 20 69 74 65 6d 20 70 | 6f 73 41 20 6f 66 20 6c |t item p|osA of l|
|00004600| 69 73 74 41 20 26 20 22 | 2c 22 20 61 66 74 65 72 |istA & "|," after|
|00004610| 20 6c 69 73 74 4e 65 77 | 20 20 20 20 20 20 0d 20 | listNew|      . |
|00004620| 20 20 20 20 20 73 65 74 | 20 70 6f 73 41 20 3d 20 |     set| posA = |
|00004630| 70 6f 73 41 2b 31 0d 20 | 20 20 20 65 6c 73 65 0d |posA+1. |   else.|
|00004640| 20 20 20 20 20 20 70 75 | 74 20 69 74 65 6d 20 70 |      pu|t item p|
|00004650| 6f 73 42 20 6f 66 20 6c | 69 73 74 42 20 26 20 22 |osB of l|istB & "|
|00004660| 2c 22 20 61 66 74 65 72 | 20 6c 69 73 74 4e 65 77 |," after| listNew|
|00004670| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 73 65 74 |      . |     set|
|00004680| 20 70 6f 73 42 20 3d 20 | 70 6f 73 42 20 2b 20 31 | posB = |posB + 1|
|00004690| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |.    end| if.    |
|000046a0| 73 65 74 20 70 6f 73 4e | 65 77 20 3d 20 70 6f 73 |set posN|ew = pos|
|000046b0| 4e 65 77 20 2b 20 31 0d | 20 20 65 6e 64 20 72 65 |New + 1.|  end re|
|000046c0| 70 65 61 74 0d 20 20 0d | 20 20 69 66 20 70 6f 73 |peat.  .|  if pos|
|000046d0| 41 20 3c 3d 20 6e 75 6d | 41 20 74 68 65 6e 0d 20 |A <= num|A then. |
|000046e0| 20 20 20 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |   repea|t while |
|000046f0| 70 6f 73 41 20 3c 3d 20 | 6e 75 6d 41 0d 20 20 20 |posA <= |numA.   |
|00004700| 20 20 20 70 75 74 20 69 | 74 65 6d 20 70 6f 73 41 |   put i|tem posA|
|00004710| 20 6f 66 20 6c 69 73 74 | 41 20 26 20 22 2c 22 20 | of list|A & "," |
|00004720| 61 66 74 65 72 20 6c 69 | 73 74 4e 65 77 0d 20 20 |after li|stNew.  |
|00004730| 20 20 20 20 73 65 74 20 | 70 6f 73 41 20 3d 20 70 |    set |posA = p|
|00004740| 6f 73 41 20 2b 20 31 0d | 20 20 20 20 65 6e 64 20 |osA + 1.|    end |
|00004750| 72 65 70 65 61 74 20 20 | 20 20 0d 20 20 65 6c 73 |repeat  |  .  els|
|00004760| 65 0d 20 20 20 20 72 65 | 70 65 61 74 20 77 68 69 |e.    re|peat whi|
|00004770| 6c 65 20 70 6f 73 42 20 | 3c 3d 20 6e 75 6d 42 0d |le posB |<= numB.|
|00004780| 20 20 20 20 20 20 70 75 | 74 20 69 74 65 6d 20 70 |      pu|t item p|
|00004790| 6f 73 42 20 6f 66 20 6c | 69 73 74 42 20 26 20 22 |osB of l|istB & "|
|000047a0| 2c 22 20 61 66 74 65 72 | 20 6c 69 73 74 4e 65 77 |," after| listNew|
|000047b0| 0d 20 20 20 20 20 20 73 | 65 74 20 70 6f 73 42 20 |.      s|et posB |
|000047c0| 3d 20 70 6f 73 42 20 2b | 20 31 20 20 0d 20 20 20 |= posB +| 1  .   |
|000047d0| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 20 20 65 6e | end rep|eat.  en|
|000047e0| 64 20 69 66 0d 20 20 0d | 20 20 72 65 74 75 72 6e |d if.  .|  return|
|000047f0| 20 6c 69 73 74 4e 65 77 | 0d 65 6e 64 20 6d 65 72 | listNew|.end mer|
|00004800| 67 65 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ge.-----|--------|
|00004810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004850| 2d 2d 2d 2d 20 0d 0d 2d | 2d 20 73 65 61 72 63 68 |---- ..-|- search|
|00004860| 65 73 20 61 20 73 74 72 | 69 6e 67 20 69 74 65 6d |es a str|ing item|
|00004870| 20 6f 6e 20 61 20 6c 69 | 73 74 0d 6f 6e 20 73 69 | on a li|st.on si|
|00004880| 42 73 65 61 72 63 68 20 | 73 74 72 2c 74 78 74 0d |Bsearch |str,txt.|
|00004890| 20 20 0d 20 20 73 65 74 | 20 73 74 61 72 74 20 3d |  .  set| start =|
|000048a0| 20 31 0d 20 20 73 65 74 | 20 65 6e 64 20 3d 20 74 | 1.  set| end = t|
|000048b0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 65 |he numbe|r of ite|
|000048c0| 6d 73 20 6f 66 20 66 69 | 65 6c 64 20 74 78 74 20 |ms of fi|eld txt |
|000048d0| 20 0d 20 20 73 65 74 20 | 6d 69 64 64 6c 65 20 3d | .  set |middle =|
|000048e0| 20 28 73 74 61 72 74 20 | 2b 20 65 6e 64 29 20 2f | (start |+ end) /|
|000048f0| 20 32 20 20 0d 20 20 0d | 20 20 2d 2d 20 62 73 65 | 2  .  .|  -- bse|
|00004900| 61 72 63 68 20 6d 65 63 | 68 61 6e 69 73 6d 0d 20 |arch mec|hanism. |
|00004910| 20 2d 2d 20 63 6f 6d 70 | 61 72 65 20 74 68 65 20 | -- comp|are the |
|00004920| 73 74 72 20 74 6f 20 74 | 68 65 20 6d 69 64 64 6c |str to t|he middl|
|00004930| 65 20 6c 69 6e 65 20 6f | 66 20 74 68 65 20 66 69 |e line o|f the fi|
|00004940| 65 6c 64 0d 20 20 2d 2d | 20 69 66 20 73 74 72 20 |eld.  --| if str |
|00004950| 3c 20 74 68 65 20 6d 69 | 64 64 6c 65 20 6c 69 6e |< the mi|ddle lin|
|00004960| 65 20 74 68 65 6e 20 73 | 65 74 20 65 6e 64 20 74 |e then s|et end t|
|00004970| 6f 20 62 65 20 74 68 65 | 20 6d 69 64 64 6c 65 0d |o be the| middle.|
|00004980| 20 20 2d 2d 20 69 66 20 | 73 74 72 20 3e 20 6d 69 |  -- if |str > mi|
|00004990| 64 64 6c 65 20 74 68 65 | 6e 20 73 65 74 20 73 74 |ddle the|n set st|
|000049a0| 61 72 74 20 3d 20 6d 69 | 64 64 6c 65 0d 20 20 2d |art = mi|ddle.  -|
|000049b0| 2d 20 69 66 20 73 74 72 | 20 3d 20 6d 69 64 64 6c |- if str| = middl|
|000049c0| 65 20 74 68 65 6e 20 79 | 6f 75 27 72 65 20 73 65 |e then y|ou're se|
|000049d0| 74 0d 20 20 0d 20 20 0d | 20 20 72 65 70 65 61 74 |t.  .  .|  repeat|
|000049e0| 20 77 68 69 6c 65 20 73 | 74 72 20 3c 3e 20 28 69 | while s|tr <> (i|
|000049f0| 74 65 6d 20 6d 69 64 64 | 6c 65 20 6f 66 20 74 78 |tem midd|le of tx|
|00004a00| 74 29 0d 20 20 20 20 70 | 75 74 20 73 74 61 72 74 |t).    p|ut start|
|00004a10| 20 26 26 20 6d 69 64 64 | 6c 65 20 26 26 20 65 6e | && midd|le && en|
|00004a20| 64 0d 20 20 20 20 69 66 | 20 73 74 72 20 3d 20 28 |d.    if| str = (|
|00004a30| 69 74 65 6d 20 65 6e 64 | 20 6f 66 20 74 78 74 29 |item end| of txt)|
|00004a40| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 72 65 74 75 | then.  |    retu|
|00004a50| 72 6e 20 65 6e 64 0d 20 | 20 20 20 65 6e 64 20 69 |rn end. |   end i|
|00004a60| 66 0d 20 20 20 20 0d 20 | 20 20 20 69 66 20 73 74 |f.    . |   if st|
|00004a70| 61 72 74 20 3d 20 28 6d | 69 64 64 6c 65 29 20 74 |art = (m|iddle) t|
|00004a80| 68 65 6e 0d 20 20 20 20 | 20 20 72 65 74 75 72 6e |hen.    |  return|
|00004a90| 20 30 0d 20 20 20 20 65 | 6e 64 20 69 66 20 0d 20 | 0.    e|nd if . |
|00004aa0| 20 20 20 0d 20 20 20 20 | 69 66 20 73 74 72 20 3c |   .    |if str <|
|00004ab0| 20 28 69 74 65 6d 20 20 | 6d 69 64 64 6c 65 20 6f | (item  |middle o|
|00004ac0| 66 20 74 78 74 29 20 74 | 68 65 6e 0d 20 20 20 20 |f txt) t|hen.    |
|00004ad0| 20 20 73 65 74 20 65 6e | 64 20 3d 20 6d 69 64 64 |  set en|d = midd|
|00004ae0| 6c 65 0d 20 20 20 20 65 | 6c 73 65 0d 20 20 20 20 |le.    e|lse.    |
|00004af0| 20 20 73 65 74 20 73 74 | 61 72 74 20 3d 20 6d 69 |  set st|art = mi|
|00004b00| 64 64 6c 65 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |ddle.   | end if.|
|00004b10| 20 20 20 20 0d 20 20 20 | 20 0d 20 20 20 20 73 65 |    .   | .    se|
|00004b20| 74 20 6d 69 64 64 6c 65 | 20 3d 20 28 73 74 61 72 |t middle| = (star|
|00004b30| 74 20 2b 20 65 6e 64 29 | 20 2f 20 32 20 20 0d 20 |t + end)| / 2  . |
|00004b40| 20 20 20 0d 20 20 65 6e | 64 20 72 65 70 65 61 74 |   .  en|d repeat|
|00004b50| 0d 20 20 0d 20 20 69 66 | 20 73 74 72 20 3d 20 28 |.  .  if| str = (|
|00004b60| 69 74 65 6d 20 20 6d 69 | 64 64 6c 65 20 6f 66 20 |item  mi|ddle of |
|00004b70| 74 78 74 29 20 74 68 65 | 6e 0d 20 20 20 20 70 75 |txt) the|n.    pu|
|00004b80| 74 20 22 66 6f 75 6e 64 | 20 22 26 26 73 74 72 26 |t "found| "&&str&|
|00004b90| 26 22 20 69 6e 20 6c 69 | 73 74 22 20 20 20 20 0d |&" in li|st"    .|
|00004ba0| 20 20 20 20 2d 2d 61 6c | 65 72 74 20 73 74 72 69 |    --al|ert stri|
|00004bb0| 6e 67 28 6d 69 64 64 6c | 65 29 20 20 20 20 0d 20 |ng(middl|e)    . |
|00004bc0| 20 20 20 72 65 74 75 72 | 6e 20 6d 69 64 64 6c 65 |   retur|n middle|
|00004bd0| 0d 20 20 65 6c 73 65 0d | 20 20 20 20 70 75 74 20 |.  else.|    put |
|00004be0| 22 64 69 64 6e 27 74 20 | 66 69 6e 64 20 22 26 26 |"didn't |find "&&|
|00004bf0| 73 74 72 0d 20 20 20 20 | 72 65 74 75 72 6e 20 30 |str.    |return 0|
|00004c00| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 0d 65 6e 64 |.  end i|f.  .end|
|00004c10| 20 73 69 42 73 65 61 72 | 63 68 0d 2d 2d 2d 2d 2d | siBsear|ch.-----|
|00004c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004c60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 0d 6f 6e |--------|---- .on|
|00004c70| 20 66 69 6e 64 20 73 74 | 72 2c 74 78 74 0d 20 20 | find st|r,txt.  |
|00004c80| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|00004c90| 31 20 74 6f 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |1 to the| number |
|00004ca0| 6f 66 20 69 74 65 6d 73 | 20 6f 66 20 66 69 65 6c |of items| of fiel|
|00004cb0| 64 20 74 78 74 0d 20 20 | 20 20 69 66 20 73 74 72 |d txt.  |  if str|
|00004cc0| 20 3d 20 69 74 65 6d 20 | 69 20 6f 66 20 66 69 65 | = item |i of fie|
|00004cd0| 6c 64 20 74 78 74 20 74 | 68 65 6e 20 0d 20 20 20 |ld txt t|hen .   |
|00004ce0| 20 20 20 70 75 74 20 69 | 0d 20 20 20 20 20 20 65 |   put i|.      e|
|00004cf0| 78 69 74 20 72 65 70 65 | 61 74 0d 20 20 20 20 65 |xit repe|at.    e|
|00004d00| 6e 64 20 69 66 0d 20 20 | 65 6e 64 20 72 65 70 65 |nd if.  |end repe|
|00004d10| 61 74 0d 20 20 72 65 74 | 75 72 6e 20 2d 31 0d 65 |at.  ret|urn -1.e|
|00004d20| 6e 64 20 66 69 6e 64 0d | 20 00 2a 00 04 01 dc 02 |nd find.| .*.....|
|00004d30| 7c 00 00 02 a0 00 00 02 | a7 00 00 00 00 00 01 00 ||.......|........|
|00004d40| 00 00 00 00 0b 00 09 00 | 04 00 00 00 09 00 00 00 |........|........|
|00004d50| 00 00 00 6d 43 41 53 74 | 00 00 4c f9 00 04 00 00 |...mCASt|..L.....|
|00004d60| 4c ef 0b 00 00 03 00 00 | 00 14 00 c2 eb c0 00 00 |L.......|........|
|00004d70| 00 00 00 00 00 00 00 00 | 00 03 00 07 00 00 00 00 |........|........|
|00004d80| 00 00 4a ff 00 00 4a ff | 00 00 4a ff 00 00 4a ff |..J...J.|..J...J.|
|00004d90| 00 00 4a ff 00 00 4b 13 | 00 00 4c b9 2d 2d 20 50 |..J...K.|..L.-- P|
|00004da0| 61 72 73 65 72 0d 2d 2d | 20 45 6c 61 6e 20 44 65 |arser.--| Elan De|
|00004db0| 6b 65 6c 0d 2d 2d 20 32 | 37 2f 38 2f 39 35 0d 2d |kel.-- 2|7/8/95.-|
|00004dc0| 2d 0d 2d 2d 20 74 68 69 | 73 20 77 69 6c 6c 20 72 |-.-- thi|s will r|
|00004dd0| 65 61 64 20 74 68 65 20 | 64 61 74 61 62 61 73 65 |ead the |database|
|00004de0| 20 73 63 72 69 70 74 20 | 66 69 6c 65 20 61 6e 64 | script |file and|
|00004df0| 20 67 65 74 20 61 6c 6c | 20 74 68 65 20 75 73 65 | get all| the use|
|00004e00| 66 75 6c 20 0d 2d 2d 20 | 69 6e 66 6f 72 6d 61 74 |ful .-- |informat|
|00004e10| 69 6f 6e 20 6f 6e 20 74 | 68 65 20 64 61 74 61 62 |ion on t|he datab|
|00004e20| 61 73 65 20 66 69 6c 65 | 2c 20 6e 61 6d 65 6c 79 |ase file|, namely|
|00004e30| 3a 0d 2d 2d 0d 2d 2d 20 | 61 29 20 74 68 65 20 6e |:.--.-- |a) the n|
|00004e40| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 70 74 65 72 |umber of| chapter|
|00004e50| 73 0d 2d 2d 20 62 29 20 | 74 68 65 20 63 68 61 70 |s.-- b) |the chap|
|00004e60| 74 65 72 20 6e 61 6d 65 | 73 0d 2d 2d 20 63 29 20 |ter name|s.-- c) |
|00004e70| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 61 72 |the numb|er of ar|
|00004e80| 74 69 63 6c 65 73 20 69 | 6e 20 65 61 63 68 20 63 |ticles i|n each c|
|00004e90| 68 61 70 74 65 72 0d 2d | 2d 20 64 29 20 77 68 69 |hapter.-|- d) whi|
|00004ea0| 63 68 20 61 72 74 69 63 | 6c 65 73 20 61 72 65 20 |ch artic|les are |
|00004eb0| 70 69 63 74 75 72 65 73 | 2c 20 63 75 74 74 69 6e |pictures|, cuttin|
|00004ec0| 67 73 2c 20 51 54 27 73 | 2c 20 6f 72 20 73 6f 75 |gs, QT's|, or sou|
|00004ed0| 6e 64 73 0d 2d 2d 20 65 | 29 20 74 68 65 20 63 61 |nds.-- e|) the ca|
|00004ee0| 70 74 69 6f 6e 73 0d 2d | 2d 20 66 29 20 74 68 65 |ptions.-|- f) the|
|00004ef0| 20 61 72 74 69 63 6c 65 | 20 64 61 74 65 20 61 6e | article| date an|
|00004f00| 64 20 6e 65 77 73 70 61 | 70 65 72 20 6e 61 6d 65 |d newspa|per name|
|00004f10| 0d 2d 2d 20 67 29 20 74 | 68 65 20 6e 61 6d 65 20 |.-- g) t|he name |
|00004f20| 6f 66 20 74 68 65 20 61 | 72 74 69 63 6c 65 20 66 |of the a|rticle f|
|00004f30| 69 6c 65 20 6f 6e 20 64 | 69 73 6b 0d 2d 2d 0d 2d |ile on d|isk.--.-|
|00004f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00004f90| 6f 6e 20 42 61 74 63 68 | 50 72 6f 63 65 73 73 20 |on Batch|Process |
|00004fa0| 77 6f 72 6c 64 2c 73 74 | 61 72 74 6e 75 6d 0d 20 |world,st|artnum. |
|00004fb0| 20 0d 20 20 70 75 74 20 | 77 6f 72 6c 64 0d 20 20 | .  put |world.  |
|00004fc0| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|00004fd0| 66 69 65 6c 64 20 28 22 | 63 75 74 74 69 6e 67 69 |field ("|cuttingi|
|00004fe0| 6e 64 65 78 22 26 77 6f | 72 6c 64 29 20 3d 20 22 |ndex"&wo|rld) = "|
|00004ff0| 22 0d 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 |".  set |the text|
|00005000| 20 6f 66 20 66 69 65 6c | 64 20 22 42 61 74 63 68 | of fiel|d "Batch|
|00005010| 45 72 72 6f 72 73 22 20 | 3d 20 22 22 0d 20 20 42 |Errors" |= "".  B|
|00005020| 61 74 63 68 50 61 72 73 | 65 20 28 77 6f 72 6c 64 |atchPars|e (world|
|00005030| 29 2c 73 74 61 72 74 6e | 75 6d 0d 20 20 2d 2d 20 |),startn|um.  -- |
|00005040| 42 61 74 63 68 49 6e 64 | 65 78 0d 20 20 0d 65 6e |BatchInd|ex.  .en|
|00005050| 64 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d.------|--------|
|00005060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000050a0| 2d 2d 0d 6f 6e 20 50 72 | 6f 63 65 73 73 50 65 72 |--.on Pr|ocessPer|
|000050b0| 73 6f 6e 20 66 6e 61 6d | 65 0d 20 20 0d 20 20 63 |son fnam|e.  .  c|
|000050c0| 75 72 73 6f 72 20 34 20 | 2d 2d 20 63 6c 6f 63 6b |ursor 4 |-- clock|
|000050d0| 0d 20 20 69 66 20 50 61 | 72 73 65 66 69 6c 65 20 |.  if Pa|rsefile |
|000050e0| 28 66 6e 61 6d 65 20 26 | 20 22 2e 53 43 52 22 29 |(fname &| ".SCR")|
|000050f0| 20 3d 20 2d 31 20 74 68 | 65 6e 0d 20 20 20 20 61 | = -1 th|en.    a|
|00005100| 6c 65 72 74 20 22 70 72 | 6f 62 6c 65 6d 20 77 69 |lert "pr|oblem wi|
|00005110| 74 68 20 73 63 72 69 70 | 74 20 66 69 6c 65 22 0d |th scrip|t file".|
|00005120| 20 20 20 20 63 75 72 73 | 6f 72 20 30 0d 20 20 20 |    curs|or 0.   |
|00005130| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 32 0d 20 | go to f|rame 2. |
|00005140| 20 20 20 61 62 6f 72 74 | 0d 20 20 65 6e 64 20 69 |   abort|.  end i|
|00005150| 66 0d 20 20 0d 20 20 69 | 66 20 4d 61 6b 65 49 6e |f.  .  i|f MakeIn|
|00005160| 64 65 78 20 28 66 6e 61 | 6d 65 20 26 20 22 2e 54 |dex (fna|me & ".T|
|00005170| 58 54 22 29 20 3d 20 2d | 31 20 74 68 65 6e 0d 20 |XT") = -|1 then. |
|00005180| 20 20 20 61 6c 65 72 74 | 20 22 70 72 6f 62 6c 65 |   alert| "proble|
|00005190| 6d 20 77 69 74 68 20 74 | 65 78 74 20 63 75 74 74 |m with t|ext cutt|
|000051a0| 69 6e 67 73 20 66 69 6c | 65 22 0d 20 20 20 20 63 |ings fil|e".    c|
|000051b0| 75 72 73 6f 72 20 30 0d | 20 20 20 20 67 6f 20 74 |ursor 0.|    go t|
|000051c0| 6f 20 66 72 61 6d 65 20 | 32 0d 20 20 20 20 61 62 |o frame |2.    ab|
|000051d0| 6f 72 74 0d 20 20 65 6e | 64 20 69 66 0d 20 20 0d |ort.  en|d if.  .|
|000051e0| 20 20 63 75 72 73 6f 72 | 20 30 0d 65 6e 64 0d 2d |  cursor| 0.end.-|
|000051f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00005240| 2d 2d 20 74 68 69 73 20 | 70 61 72 73 65 73 20 61 |-- this |parses a|
|00005250| 6c 6c 20 74 68 65 20 66 | 69 6c 65 73 20 69 6e 20 |ll the f|iles in |
|00005260| 74 68 65 20 63 75 72 72 | 65 6e 74 20 64 69 72 65 |the curr|ent dire|
|00005270| 63 74 6f 72 79 0d 6f 6e | 20 42 61 74 63 68 50 61 |ctory.on| BatchPa|
|00005280| 72 73 65 20 77 6f 72 6c | 64 2c 20 73 74 61 72 74 |rse worl|d, start|
|00005290| 6e 75 6d 0d 20 20 67 6c | 6f 62 61 6c 20 67 4d 61 |num.  gl|obal gMa|
|000052a0| 6b 65 72 4e 61 6d 65 2c | 20 6d 50 61 74 68 2c 20 |kerName,| mPath, |
|000052b0| 67 4d 61 6b 65 72 4e 75 | 6d 0d 20 20 0d 20 20 73 |gMakerNu|m.  .  s|
|000052c0| 65 74 20 6d 70 61 74 68 | 20 3d 20 74 68 65 20 70 |et mpath| = the p|
|000052d0| 61 74 68 6e 61 6d 65 20 | 26 20 77 6f 72 6c 64 20 |athname |& world |
|000052e0| 26 20 22 3a 22 0d 20 20 | 70 75 74 20 5b 5d 20 69 |& ":".  |put [] i|
|000052f0| 6e 74 6f 20 66 69 6c 65 | 4c 69 73 74 0d 20 20 0d |nto file|List.  .|
|00005300| 20 20 73 65 74 20 6e 75 | 6d 20 3d 20 74 68 65 20 |  set nu|m = the |
|00005310| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|00005320| 6f 66 20 66 69 65 6c 64 | 20 22 66 69 6c 65 6e 61 |of field| "filena|
|00005330| 6d 65 73 22 0d 20 20 72 | 65 70 65 61 74 20 77 69 |mes".  r|epeat wi|
|00005340| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 6e 75 6d 0d |th i = 1| to num.|
|00005350| 20 20 20 20 73 65 74 20 | 6e 20 3d 20 6c 69 6e 65 |    set |n = line|
|00005360| 20 69 20 6f 66 20 66 69 | 65 6c 64 20 22 66 69 6c | i of fi|eld "fil|
|00005370| 65 6e 61 6d 65 73 22 0d | 20 20 20 20 69 66 20 6e |enames".|    if n|
|00005380| 6f 74 65 6d 70 74 79 28 | 6e 29 20 74 68 65 6e 0d |otempty(|n) then.|
|00005390| 20 20 20 20 20 20 61 64 | 64 28 66 69 6c 65 6c 69 |      ad|d(fileli|
|000053a0| 73 74 2c 6e 29 0d 20 20 | 20 20 65 6e 64 20 69 66 |st,n).  |  end if|
|000053b0| 0d 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |.  end r|epeat.  |
|000053c0| 73 65 74 20 6e 75 6d 20 | 3d 20 74 68 65 20 6e 75 |set num |= the nu|
|000053d0| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 20 6f 66 |mber of |lines of|
|000053e0| 20 66 69 65 6c 64 20 22 | 66 69 6c 65 6e 61 6d 65 | field "|filename|
|000053f0| 73 32 22 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |s2".  re|peat wit|
|00005400| 68 20 69 20 3d 20 31 20 | 74 6f 20 6e 75 6d 0d 20 |h i = 1 |to num. |
|00005410| 20 20 20 73 65 74 20 6e | 20 3d 20 6c 69 6e 65 20 |   set n| = line |
|00005420| 69 20 6f 66 20 66 69 65 | 6c 64 20 22 66 69 6c 65 |i of fie|ld "file|
|00005430| 6e 61 6d 65 73 32 22 0d | 20 20 20 20 69 66 20 6e |names2".|    if n|
|00005440| 6f 74 65 6d 70 74 79 28 | 6e 29 20 74 68 65 6e 0d |otempty(|n) then.|
|00005450| 20 20 20 20 20 20 61 64 | 64 28 66 69 6c 65 6c 69 |      ad|d(fileli|
|00005460| 73 74 2c 6e 29 0d 20 20 | 20 20 65 6e 64 20 69 66 |st,n).  |  end if|
|00005470| 0d 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |.  end r|epeat.  |
|00005480| 0d 20 20 2d 2d 20 20 72 | 65 70 65 61 74 20 77 69 |.  --  r|epeat wi|
|00005490| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 74 68 65 20 |th i = 1| to the |
|000054a0| 6d 61 78 49 6e 74 65 67 | 65 72 20 20 20 20 0d 20 |maxInteg|er    . |
|000054b0| 20 2d 2d 20 20 20 20 70 | 75 74 20 67 65 74 4e 74 | --    p|ut getNt|
|000054c0| 68 46 69 6c 65 4e 61 6d | 65 49 6e 46 6f 6c 64 65 |hFileNam|eInFolde|
|000054d0| 72 28 6d 70 61 74 68 2c | 20 69 29 20 69 6e 74 6f |r(mpath,| i) into|
|000054e0| 20 6e 0d 20 20 2d 2d 20 | 20 20 20 69 66 20 6e 20 | n.  -- |   if n |
|000054f0| 3d 20 45 4d 50 54 59 20 | 74 68 65 6e 20 65 78 69 |= EMPTY |then exi|
|00005500| 74 20 72 65 70 65 61 74 | 0d 20 20 2d 2d 20 20 20 |t repeat|.  --   |
|00005510| 20 73 65 74 20 6e 75 6d | 20 3d 20 74 68 65 20 6e | set num| = the n|
|00005520| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 73 20 6f |umber of| chars o|
|00005530| 66 20 6e 0d 20 20 2d 2d | 20 20 20 20 69 66 20 63 |f n.  --|    if c|
|00005540| 68 61 72 20 28 6e 75 6d | 2d 33 29 20 74 6f 20 6e |har (num|-3) to n|
|00005550| 75 6d 20 6f 66 20 6e 20 | 3d 20 22 2e 73 63 72 22 |um of n |= ".scr"|
|00005560| 20 74 68 65 6e 0d 20 20 | 2d 2d 20 20 20 20 20 20 | then.  |--      |
|00005570| 61 70 70 65 6e 64 28 66 | 69 6c 65 4c 69 73 74 2c |append(f|ileList,|
|00005580| 20 6e 29 0d 20 20 2d 2d | 20 20 20 20 65 6e 64 20 | n).  --|    end |
|00005590| 69 66 0d 20 20 2d 2d 20 | 20 65 6e 64 20 72 65 70 |if.  -- | end rep|
|000055a0| 65 61 74 0d 20 20 0d 20 | 20 73 65 74 20 6e 75 6d |eat.  . | set num|
|000055b0| 20 3d 20 63 6f 75 6e 74 | 28 66 69 6c 65 4c 69 73 | = count|(fileLis|
|000055c0| 74 29 0d 20 20 73 65 74 | 20 74 6d 70 65 72 72 6c |t).  set| tmperrl|
|000055d0| 69 73 74 20 3d 20 5b 5d | 0d 20 20 0d 20 20 72 65 |ist = []|.  .  re|
|000055e0| 70 65 61 74 20 77 69 74 | 68 20 69 20 3d 20 73 74 |peat wit|h i = st|
|000055f0| 61 72 74 6e 75 6d 20 74 | 6f 20 6e 75 6d 0d 20 20 |artnum t|o num.  |
|00005600| 20 20 73 65 74 20 66 6e | 61 6d 65 20 3d 20 67 65 |  set fn|ame = ge|
|00005610| 74 41 74 28 66 69 6c 65 | 4c 69 73 74 2c 69 29 0d |tAt(file|List,i).|
|00005620| 20 20 20 20 70 75 74 20 | 22 62 61 74 63 68 20 70 |    put |"batch p|
|00005630| 61 72 73 69 6e 67 20 22 | 20 26 26 20 66 6e 61 6d |arsing "| && fnam|
|00005640| 65 0d 20 20 20 20 73 65 | 74 20 67 4d 61 6b 65 72 |e.    se|t gMaker|
|00005650| 6e 75 6d 20 3d 20 6e 61 | 6d 65 74 6f 6e 75 6d 28 |num = na|metonum(|
|00005660| 66 6e 61 6d 65 29 0d 20 | 20 20 20 73 65 74 20 67 |fname). |   set g|
|00005670| 4d 61 6b 65 72 4e 61 6d | 65 20 3d 20 66 6e 61 6d |MakerNam|e = fnam|
|00005680| 65 0d 20 20 20 20 73 65 | 74 20 65 72 72 20 3d 20 |e.    se|t err = |
|00005690| 50 61 72 73 65 46 69 6c | 65 28 66 6e 61 6d 65 26 |ParseFil|e(fname&|
|000056a0| 22 2e 73 63 72 22 29 20 | 20 0d 20 20 20 20 0d 20 |".scr") | .    . |
|000056b0| 20 20 20 69 66 20 65 72 | 72 20 3d 20 2d 31 20 74 |   if er|r = -1 t|
|000056c0| 68 65 6e 20 20 0d 20 20 | 20 20 20 20 61 64 64 28 |hen  .  |    add(|
|000056d0| 74 6d 70 65 72 72 6c 69 | 73 74 2c 20 66 6e 61 6d |tmperrli|st, fnam|
|000056e0| 65 29 20 20 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |e)  .   | end if.|
|000056f0| 20 20 20 20 0d 20 20 20 | 20 73 65 74 20 74 68 65 |    .   | set the|
|00005700| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|00005710| 20 22 2e 22 0d 20 20 20 | 20 73 65 74 20 66 6e 61 | ".".   | set fna|
|00005720| 6d 65 20 3d 20 69 74 65 | 6d 20 31 20 6f 66 20 66 |me = ite|m 1 of f|
|00005730| 6e 61 6d 65 0d 20 20 20 | 20 73 65 74 20 74 68 65 |name.   | set the|
|00005740| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|00005750| 20 22 2c 22 0d 20 20 20 | 20 0d 20 20 20 20 73 65 | ",".   | .    se|
|00005760| 74 20 65 72 72 20 3d 20 | 6d 61 6b 65 49 6e 64 65 |t err = |makeInde|
|00005770| 78 28 66 6e 61 6d 65 26 | 22 2e 54 58 54 22 29 20 |x(fname&|".TXT") |
|00005780| 0d 20 20 20 20 69 66 20 | 65 72 72 20 3d 20 2d 31 |.    if |err = -1|
|00005790| 20 74 68 65 6e 20 20 0d | 20 20 20 20 20 20 61 64 | then  .|      ad|
|000057a0| 64 28 74 6d 70 65 72 72 | 6c 69 73 74 2c 20 66 6e |d(tmperr|list, fn|
|000057b0| 61 6d 65 29 20 20 0d 20 | 20 20 20 65 6e 64 20 69 |ame)  . |   end i|
|000057c0| 66 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 20 |f.  end |repeat. |
|000057d0| 20 0d 20 20 73 65 74 20 | 6e 75 6d 20 3d 20 63 6f | .  set |num = co|
|000057e0| 75 6e 74 28 74 6d 70 65 | 72 72 6c 69 73 74 29 0d |unt(tmpe|rrlist).|
|000057f0| 20 20 70 75 74 20 22 45 | 72 72 6f 72 73 20 69 6e |  put "E|rrors in|
|00005800| 20 22 20 26 26 20 6e 75 | 6d 20 26 26 20 22 73 63 | " && nu|m && "sc|
|00005810| 72 69 70 74 20 66 69 6c | 65 73 3a 22 0d 20 20 0d |ript fil|es:".  .|
|00005820| 20 20 73 65 74 20 74 6d | 70 6e 75 6d 20 3d 20 28 |  set tm|pnum = (|
|00005830| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |the numb|er of li|
|00005840| 6e 65 73 20 6f 66 20 66 | 69 65 6c 64 20 22 42 61 |nes of f|ield "Ba|
|00005850| 74 63 68 45 72 72 6f 72 | 73 22 29 20 2b 20 31 0d |tchError|s") + 1.|
|00005860| 20 20 70 75 74 20 22 45 | 72 72 6f 72 73 20 69 6e |  put "E|rrors in|
|00005870| 20 22 20 26 26 20 6e 75 | 6d 20 26 26 20 22 73 63 | " && nu|m && "sc|
|00005880| 72 69 70 74 20 66 69 6c | 65 73 3a 22 20 69 6e 74 |ript fil|es:" int|
|00005890| 6f 20 6c 69 6e 65 20 74 | 6d 70 6e 75 6d 20 6f 66 |o line t|mpnum of|
|000058a0| 20 66 69 65 6c 64 20 22 | 42 61 74 63 68 45 72 72 | field "|BatchErr|
|000058b0| 6f 72 73 22 0d 20 20 0d | 20 20 72 65 70 65 61 74 |ors".  .|  repeat|
|000058c0| 20 77 69 74 68 20 69 20 | 3d 20 31 20 74 6f 20 6e | with i |= 1 to n|
|000058d0| 75 6d 0d 20 20 20 20 70 | 75 74 20 69 20 26 20 22 |um.    p|ut i & "|
|000058e0| 3a 22 26 26 20 67 65 74 | 61 74 28 74 6d 70 65 72 |:"&& get|at(tmper|
|000058f0| 72 6c 69 73 74 2c 69 29 | 0d 20 20 20 20 73 65 74 |rlist,i)|.    set|
|00005900| 20 74 6d 70 6e 75 6d 20 | 3d 20 28 74 68 65 20 6e | tmpnum |= (the n|
|00005910| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|00005920| 66 20 66 69 65 6c 64 20 | 22 42 61 74 63 68 45 72 |f field |"BatchEr|
|00005930| 72 6f 72 73 22 29 20 2b | 20 31 0d 20 20 20 20 70 |rors") +| 1.    p|
|00005940| 75 74 20 69 20 26 20 22 | 3a 22 26 26 20 67 65 74 |ut i & "|:"&& get|
|00005950| 61 74 28 74 6d 70 65 72 | 72 6c 69 73 74 2c 69 29 |at(tmper|rlist,i)|
|00005960| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 74 6d 70 6e 75 | into li|ne tmpnu|
|00005970| 6d 20 6f 66 20 66 69 65 | 6c 64 20 22 42 61 74 63 |m of fie|ld "Batc|
|00005980| 68 45 72 72 6f 72 73 22 | 0d 20 20 65 6e 64 20 72 |hErrors"|.  end r|
|00005990| 65 70 65 61 74 0d 65 6e | 64 0d 0d 2d 2d 2d 2d 2d |epeat.en|d..-----|
|000059a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 6f 6e 20 50 |--------|---.on P|
|000059f0| 61 72 73 65 46 69 6c 65 | 20 6e 61 6d 65 0d 20 20 |arseFile| name.  |
|00005a00| 67 6c 6f 62 61 6c 20 66 | 69 6c 65 4f 62 6a 2c 20 |global f|ileObj, |
|00005a10| 74 78 74 2c 20 6d 70 61 | 74 68 0d 20 20 0d 20 20 |txt, mpa|th.  .  |
|00005a20| 2d 2d 20 74 68 65 20 73 | 63 72 69 70 74 20 66 69 |-- the s|cript fi|
|00005a30| 6c 65 73 20 61 72 65 20 | 65 69 74 68 65 72 20 6f |les are |either o|
|00005a40| 66 20 74 79 70 65 20 54 | 45 58 54 20 6f 72 20 57 |f type T|EXT or W|
|00005a50| 36 42 4e 20 28 49 20 68 | 61 76 65 20 6e 6f 20 69 |6BN (I h|ave no i|
|00005a60| 64 65 61 20 77 68 65 72 | 65 20 74 68 69 73 20 63 |dea wher|e this c|
|00005a70| 61 6d 65 20 66 72 6f 6d | 29 0d 20 20 2d 2d 20 73 |ame from|).  -- s|
|00005a80| 65 74 20 66 69 6c 65 4f | 62 6a 20 3d 20 66 69 6c |et fileO|bj = fil|
|00005a90| 65 69 6f 28 6d 4e 65 77 | 2c 22 3f 72 65 61 64 22 |eio(mNew|,"?read"|
|00005aa0| 2c 22 54 45 58 54 22 29 | 0d 20 20 2d 2d 20 69 66 |,"TEXT")|.  -- if|
|00005ab0| 20 6e 6f 74 20 6f 62 6a | 65 63 74 50 28 66 69 6c | not obj|ectP(fil|
|00005ac0| 65 4f 62 6a 29 20 74 68 | 65 6e 20 73 65 74 20 66 |eObj) th|en set f|
|00005ad0| 69 6c 65 4f 62 6a 20 3d | 20 66 69 6c 65 69 6f 28 |ileObj =| fileio(|
|00005ae0| 6d 4e 65 77 2c 22 3f 72 | 65 61 64 22 2c 22 57 36 |mNew,"?r|ead","W6|
|00005af0| 42 4e 22 29 0d 20 20 0d | 20 20 0d 20 20 69 66 20 |BN").  .|  .  if |
|00005b00| 74 68 65 20 70 61 72 61 | 6d 63 6f 75 6e 74 20 3d |the para|mcount =|
|00005b10| 20 30 20 74 68 65 6e 0d | 20 20 20 20 73 65 74 20 | 0 then.|    set |
|00005b20| 66 69 6c 65 4f 62 6a 20 | 3d 20 66 69 6c 65 69 6f |fileObj |= fileio|
|00005b30| 28 6d 4e 65 77 2c 22 3f | 72 65 61 64 22 2c 22 54 |(mNew,"?|read","T|
|00005b40| 45 58 54 22 29 0d 20 20 | 65 6c 73 65 0d 20 20 20 |EXT").  |else.   |
|00005b50| 20 73 65 74 20 66 69 6c | 65 4f 62 6a 20 3d 20 66 | set fil|eObj = f|
|00005b60| 69 6c 65 69 6f 28 6d 4e | 65 77 2c 22 72 65 61 64 |ileio(mN|ew,"read|
|00005b70| 22 2c 6d 50 61 74 68 20 | 26 20 6e 61 6d 65 29 0d |",mPath |& name).|
|00005b80| 20 20 65 6e 64 20 69 66 | 0d 20 20 0d 20 20 69 66 |  end if|.  .  if|
|00005b90| 20 6e 6f 74 20 6f 62 6a | 65 63 74 50 28 66 69 6c | not obj|ectP(fil|
|00005ba0| 65 4f 62 6a 29 20 74 68 | 65 6e 20 20 20 0d 20 20 |eObj) th|en   .  |
|00005bb0| 20 20 61 6c 65 72 74 20 | 22 65 72 72 6f 72 20 6f |  alert |"error o|
|00005bc0| 70 65 6e 69 6e 67 20 66 | 69 6c 65 22 20 26 26 20 |pening f|ile" && |
|00005bd0| 6e 61 6d 65 20 0d 20 20 | 20 20 65 78 69 74 0d 20 |name .  |  exit. |
|00005be0| 20 65 6c 73 65 20 20 20 | 20 0d 20 20 20 20 73 65 | else   | .    se|
|00005bf0| 74 20 74 78 74 20 3d 20 | 66 69 6c 65 4f 62 6a 28 |t txt = |fileObj(|
|00005c00| 6d 52 65 61 64 46 69 6c | 65 29 0d 20 20 20 20 66 |mReadFil|e).    f|
|00005c10| 69 6c 65 4f 62 6a 28 6d | 64 69 73 70 6f 73 65 29 |ileObj(m|dispose)|
|00005c20| 0d 20 20 20 20 73 65 74 | 20 65 72 72 20 3d 20 50 |.    set| err = P|
|00005c30| 61 72 73 65 28 29 0d 20 | 20 20 20 69 66 20 65 72 |arse(). |   if er|
|00005c40| 72 20 3d 20 2d 31 20 74 | 68 65 6e 20 20 0d 20 20 |r = -1 t|hen  .  |
|00005c50| 20 20 20 20 72 65 74 75 | 72 6e 20 2d 31 0d 20 20 |    retu|rn -1.  |
|00005c60| 20 20 20 20 65 78 69 74 | 0d 20 20 20 20 65 6e 64 |    exit|.    end|
|00005c70| 20 69 66 0d 20 20 65 6e | 64 20 69 66 0d 20 20 0d | if.  en|d if.  .|
|00005c80| 20 20 70 75 74 20 22 73 | 61 76 69 6e 67 2e 2e 2e |  put "s|aving...|
|00005c90| 22 0d 20 20 0d 20 20 53 | 61 76 65 4e 65 77 50 61 |".  .  S|aveNewPa|
|00005ca0| 72 73 65 0d 20 20 0d 20 | 20 72 65 74 75 72 6e 20 |rse.  . | return |
|00005cb0| 30 0d 20 20 0d 65 6e 64 | 0d 2d 2d 2d 2d 2d 2d 2d |0.  .end|.-------|
|00005cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 6f 6e 20 50 61 72 |--------|-.on Par|
|00005d10| 73 65 0d 20 20 67 6c 6f | 62 61 6c 20 74 78 74 2c |se.  glo|bal txt,|
|00005d20| 20 67 43 68 61 70 74 65 | 72 73 2c 20 67 41 72 74 | gChapte|rs, gArt|
|00005d30| 69 63 6c 65 73 2c 20 67 | 43 61 70 74 69 6f 6e 73 |icles, g|Captions|
|00005d40| 2c 20 67 54 69 74 6c 65 | 73 2c 20 67 44 61 74 65 |, gTitle|s, gDate|
|00005d50| 73 2c 20 67 4e 61 6d 65 | 2c 20 67 54 6f 74 61 6c |s, gName|, gTotal|
|00005d60| 43 68 61 70 74 65 72 73 | 0d 20 20 67 6c 6f 62 61 |Chapters|.  globa|
|00005d70| 6c 20 67 4e 75 67 67 65 | 74 73 0d 20 20 0d 20 20 |l gNugge|ts.  .  |
|00005d80| 2d 2d 20 67 65 74 20 6e | 61 6d 65 0d 20 20 2d 2d |-- get n|ame.  --|
|00005d90| 20 64 61 74 65 0d 20 20 | 2d 2d 20 6e 61 74 69 6f | date.  |-- natio|
|00005da0| 6e 61 6c 69 74 79 0d 20 | 20 2d 2d 20 73 74 72 61 |nality. | -- stra|
|00005db0| 70 6c 69 6e 65 0d 20 20 | 2d 2d 20 70 61 72 74 77 |pline.  |-- partw|
|00005dc0| 6f 72 6b 20 66 69 6c 65 | 6e 61 6d 65 0d 20 20 0d |ork file|name.  .|
|00005dd0| 20 20 2d 2d 20 67 65 74 | 20 63 68 61 70 74 65 72 |  -- get| chapter|
|00005de0| 20 6e 61 6d 65 73 0d 20 | 20 2d 2d 20 67 65 74 20 | names. | -- get |
|00005df0| 61 72 74 69 63 6c 65 73 | 3a 20 70 69 63 73 2c 20 |articles|: pics, |
|00005e00| 74 65 78 74 2c 20 71 74 | 27 73 20 65 74 63 2e 0d |text, qt|'s etc..|
|00005e10| 20 20 2d 2d 20 67 65 74 | 20 63 61 70 74 69 6f 6e |  -- get| caption|
|00005e20| 73 0d 20 20 0d 20 20 2d | 2d 20 74 68 65 20 70 69 |s.  .  -|- the pi|
|00005e30| 63 74 27 73 20 77 69 6c | 6c 20 61 6c 6c 20 62 65 |ct's wil|l all be|
|00005e40| 20 70 75 74 20 69 6e 74 | 6f 20 61 20 64 69 72 65 | put int|o a dire|
|00005e50| 63 74 6f 72 20 6d 6f 76 | 69 65 2c 20 73 6f 20 61 |ctor mov|ie, so a|
|00005e60| 6c 6c 20 69 20 6e 65 65 | 64 20 74 6f 20 6b 6e 6f |ll i nee|d to kno|
|00005e70| 77 20 0d 20 20 2d 2d 20 | 69 73 20 77 68 69 63 68 |w .  -- |is which|
|00005e80| 20 61 72 65 20 67 6f 69 | 6e 67 20 74 6f 20 62 65 | are goi|ng to be|
|00005e90| 20 70 69 63 74 27 73 20 | 61 6e 64 20 77 68 69 63 | pict's |and whic|
|00005ea0| 68 20 6e 6f 74 2e 0d 20 | 20 0d 20 20 73 65 74 20 |h not.. | .  set |
|00005eb0| 64 65 62 75 67 20 3d 20 | 30 20 20 20 2d 2d 20 73 |debug = |0   -- s|
|00005ec0| 65 74 20 74 68 69 73 20 | 74 6f 20 74 72 75 65 20 |et this |to true |
|00005ed0| 74 6f 20 67 65 74 20 61 | 20 70 72 69 6e 74 6f 75 |to get a| printou|
|00005ee0| 74 20 6f 66 20 74 68 65 | 20 70 61 72 73 65 64 20 |t of the| parsed |
|00005ef0| 74 65 78 74 0d 20 20 0d | 20 20 69 66 20 64 65 62 |text.  .|  if deb|
|00005f00| 75 67 20 74 68 65 6e 20 | 73 65 74 20 74 68 65 20 |ug then |set the |
|00005f10| 74 65 78 74 20 6f 66 20 | 66 69 65 6c 64 20 22 70 |text of |field "p|
|00005f20| 61 72 73 65 64 22 20 3d | 20 22 22 0d 20 20 73 65 |arsed" =| "".  se|
|00005f30| 74 20 67 43 68 61 70 74 | 65 72 73 20 3d 20 5b 5d |t gChapt|ers = []|
|00005f40| 0d 20 20 73 65 74 20 67 | 41 72 74 69 63 6c 65 73 |.  set g|Articles|
|00005f50| 20 3d 20 5b 5d 0d 20 20 | 73 65 74 20 74 6d 70 6c | = [].  |set tmpl|
|00005f60| 69 73 74 20 3d 20 5b 5d | 0d 20 20 73 65 74 20 67 |ist = []|.  set g|
|00005f70| 43 61 70 74 69 6f 6e 73 | 20 3d 20 22 22 0d 20 20 |Captions| = "".  |
|00005f80| 73 65 74 20 67 54 69 74 | 6c 65 73 20 3d 20 22 22 |set gTit|les = ""|
|00005f90| 0d 20 20 73 65 74 20 74 | 6d 70 74 69 74 6c 65 73 |.  set t|mptitles|
|00005fa0| 20 3d 20 22 22 0d 20 20 | 73 65 74 20 74 6d 70 63 | = "".  |set tmpc|
|00005fb0| 61 70 74 69 6f 6e 73 20 | 3d 20 22 22 0d 20 20 73 |aptions |= "".  s|
|00005fc0| 65 74 20 67 44 61 74 65 | 73 20 3d 20 5b 5d 0d 20 |et gDate|s = []. |
|00005fd0| 20 73 65 74 20 74 6d 70 | 64 61 74 65 73 20 3d 20 | set tmp|dates = |
|00005fe0| 5b 5d 0d 20 20 73 65 74 | 20 67 4e 75 67 67 65 74 |[].  set| gNugget|
|00005ff0| 73 20 3d 20 22 22 0d 20 | 20 73 65 74 20 63 61 70 |s = "". | set cap|
|00006000| 74 69 6f 6e 54 65 78 74 | 20 3d 20 22 22 0d 20 20 |tionText| = "".  |
|00006010| 0d 20 20 73 65 74 20 67 | 4e 61 6d 65 20 3d 20 22 |.  set g|Name = "|
|00006020| 22 0d 20 20 0d 20 20 73 | 65 74 20 6e 75 6d 20 3d |".  .  s|et num =|
|00006030| 20 31 0d 20 20 73 65 74 | 20 74 6f 74 61 6c 6e 75 | 1.  set| totalnu|
|00006040| 6d 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |m = the |number o|
|00006050| 66 20 6c 69 6e 65 73 20 | 6f 66 20 74 78 74 0d 20 |f lines |of txt. |
|00006060| 20 73 65 74 20 63 68 61 | 70 20 3d 20 30 20 20 20 | set cha|p = 0   |
|00006070| 20 20 20 20 2d 2d 20 77 | 65 20 73 74 61 72 74 20 |    -- w|e start |
|00006080| 6f 66 66 20 62 65 66 6f | 72 65 20 63 68 61 70 74 |off befo|re chapt|
|00006090| 65 72 20 6f 6e 65 20 28 | 74 68 65 20 69 6e 74 72 |er one (|the intr|
|000060a0| 6f 29 0d 20 20 73 65 74 | 20 69 6e 4e 75 67 67 65 |o).  set| inNugge|
|000060b0| 74 73 20 3d 20 30 0d 20 | 20 73 65 74 20 61 72 74 |ts = 0. | set art|
|000060c0| 69 63 6c 65 20 3d 20 30 | 0d 20 20 0d 20 20 2d 2d |icle = 0|.  .  --|
|000060d0| 2d 20 50 41 52 53 45 52 | 20 2d 2d 2d 2d 2d 2d 2d |- PARSER| -------|
|000060e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000060f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 20 |--------|------. |
|00006100| 20 2d 2d 20 67 6f 20 74 | 68 72 6f 75 67 68 20 74 | -- go t|hrough t|
|00006110| 68 65 20 74 65 78 74 20 | 61 6e 64 20 50 61 72 73 |he text |and Pars|
|00006120| 65 20 69 74 0d 20 20 0d | 20 20 72 65 70 65 61 74 |e it.  .|  repeat|
|00006130| 20 77 69 74 68 20 6e 75 | 6d 20 3d 20 31 20 74 6f | with nu|m = 1 to|
|00006140| 20 74 6f 74 61 6c 6e 75 | 6d 0d 20 20 20 20 0d 20 | totalnu|m.    . |
|00006150| 20 20 20 73 65 74 20 6c | 6e 20 3d 20 6c 69 6e 65 |   set l|n = line|
|00006160| 20 6e 75 6d 20 6f 66 20 | 74 78 74 0d 20 20 20 20 | num of |txt.    |
|00006170| 0d 20 20 20 20 69 66 20 | 6e 6f 74 20 6e 6f 74 45 |.    if |not notE|
|00006180| 6d 70 74 79 28 6c 6e 29 | 20 74 68 65 6e 20 6e 65 |mpty(ln)| then ne|
|00006190| 78 74 20 72 65 70 65 61 | 74 20 20 2d 2d 20 73 6b |xt repea|t  -- sk|
|000061a0| 69 70 20 65 6d 70 74 79 | 20 6c 69 6e 65 73 0d 20 |ip empty| lines. |
|000061b0| 20 20 20 0d 20 20 20 20 | 69 66 20 63 68 61 70 20 |   .    |if chap |
|000061c0| 3d 20 30 20 74 68 65 6e | 0d 20 20 20 20 20 20 69 |= 0 then|.      i|
|000061d0| 66 20 63 68 61 72 20 31 | 20 6f 66 20 6c 6e 20 3c |f char 1| of ln <|
|000061e0| 3e 20 22 31 22 20 74 68 | 65 6e 20 0d 20 20 20 20 |> "1" th|en .    |
|000061f0| 20 20 20 20 6e 65 78 74 | 20 72 65 70 65 61 74 0d |    next| repeat.|
|00006200| 20 20 20 20 20 20 65 6c | 73 65 20 0d 20 20 20 20 |      el|se .    |
|00006210| 20 20 20 20 73 65 74 20 | 63 68 61 70 20 3d 20 31 |    set |chap = 1|
|00006220| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |.      e|nd if.  |
|00006230| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 0d 20 20 |  end if|.    .  |
|00006240| 20 20 0d 20 20 20 20 2d | 2d 20 49 4e 54 52 4f 0d |  .    -|- INTRO.|
|00006250| 20 20 20 20 0d 20 20 20 | 20 2d 2d 20 72 65 61 64 |    .   | -- read|
|00006260| 20 74 68 65 20 69 6e 74 | 72 6f 20 69 6e 66 6f 72 | the int|ro infor|
|00006270| 6d 61 74 69 6f 6e 0d 20 | 20 20 20 69 66 20 63 68 |mation. |   if ch|
|00006280| 61 70 20 3d 20 31 20 74 | 68 65 6e 0d 20 20 20 20 |ap = 1 t|hen.    |
|00006290| 20 20 69 66 20 6c 6e 20 | 63 6f 6e 74 61 69 6e 73 |  if ln |contains|
|000062a0| 20 22 4e 61 6d 65 22 20 | 74 68 65 6e 0d 20 20 20 | "Name" |then.   |
|000062b0| 20 20 20 20 20 73 65 74 | 20 6e 75 6d 20 3d 20 6e |     set| num = n|
|000062c0| 75 6d 20 2b 20 31 0d 20 | 20 20 20 20 20 20 20 2d |um + 1. |       -|
|000062d0| 2d 20 67 65 74 20 74 68 | 65 20 6c 61 73 74 20 77 |- get th|e last w|
|000062e0| 6f 72 64 20 6f 6e 20 74 | 68 65 20 6c 69 6e 65 2c |ord on t|he line,|
|000062f0| 20 68 6f 70 65 66 75 6c | 6c 79 20 74 68 69 73 20 | hopeful|ly this |
|00006300| 69 73 20 74 68 65 20 6e | 61 6d 65 0d 20 20 20 20 |is the n|ame.    |
|00006310| 20 20 20 20 73 65 74 20 | 67 4e 61 6d 65 20 3d 20 |    set |gName = |
|00006320| 77 6f 72 64 20 28 74 68 | 65 20 6e 75 6d 62 65 72 |word (th|e number|
|00006330| 20 6f 66 20 77 6f 72 64 | 73 20 6f 66 20 6c 69 6e | of word|s of lin|
|00006340| 65 20 6e 75 6d 20 6f 66 | 20 74 78 74 29 20 6f 66 |e num of| txt) of|
|00006350| 20 6c 69 6e 65 20 6e 75 | 6d 20 6f 66 20 74 78 74 | line nu|m of txt|
|00006360| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 20 20 20 |.      e|nd if   |
|00006370| 20 20 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |  .    e|nd if.  |
|00006380| 20 20 0d 20 20 20 20 0d | 20 20 20 20 2d 2d 20 4e |  .    .|    -- N|
|00006390| 45 57 20 43 48 41 50 54 | 45 52 0d 20 20 20 20 0d |EW CHAPT|ER.    .|
|000063a0| 20 20 20 20 2d 2d 20 72 | 65 61 64 20 74 68 65 20 |    -- r|ead the |
|000063b0| 63 68 61 70 74 65 72 20 | 69 6e 66 6f 72 6d 61 74 |chapter |informat|
|000063c0| 69 6f 6e 2c 20 77 68 69 | 63 68 20 66 6f 6c 6c 6f |ion, whi|ch follo|
|000063d0| 77 73 20 74 68 65 20 73 | 61 6d 65 20 66 6f 72 6d |ws the s|ame form|
|000063e0| 61 74 20 66 6f 72 20 61 | 6c 6c 20 74 68 65 0d 20 |at for a|ll the. |
|000063f0| 20 20 20 2d 2d 20 63 68 | 61 70 74 65 72 73 2e 20 |   -- ch|apters. |
|00006400| 0d 20 20 20 20 69 66 20 | 63 68 61 72 20 31 20 6f |.    if |char 1 o|
|00006410| 66 20 6c 6e 20 3c 3e 20 | 73 74 72 69 6e 67 28 63 |f ln <> |string(c|
|00006420| 68 61 70 29 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |hap) the|n.      |
|00006430| 0d 20 20 20 20 20 20 69 | 66 20 69 6e 4e 75 67 67 |.      i|f inNugg|
|00006440| 65 74 73 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |ets then|.       |
|00006450| 20 70 75 74 20 22 65 72 | 72 6f 72 20 69 6e 20 74 | put "er|ror in t|
|00006460| 68 65 20 6e 75 67 67 65 | 74 73 2e 22 0d 20 20 20 |he nugge|ts.".   |
|00006470| 20 20 20 20 20 72 65 74 | 75 72 6e 20 2d 31 0d 20 |     ret|urn -1. |
|00006480| 20 20 20 20 20 20 20 65 | 78 69 74 0d 20 20 20 20 |       e|xit.    |
|00006490| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 20 20 0d |  end if|.      .|
|000064a0| 20 20 20 20 20 20 2d 2d | 20 6e 65 77 20 63 68 61 |      --| new cha|
|000064b0| 70 74 65 72 2c 20 67 65 | 74 20 74 68 65 20 6e 61 |pter, ge|t the na|
|000064c0| 6d 65 0d 20 20 20 20 20 | 20 69 66 20 64 65 62 75 |me.     | if debu|
|000064d0| 67 20 74 68 65 6e 20 70 | 75 74 20 22 2d 2d 2d 2d |g then p|ut "----|
|000064e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000064f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00006500| 2d 2d 2d 2d 2d 2d 22 20 | 69 6e 74 6f 20 6c 69 6e |------" |into lin|
|00006510| 65 20 c2 0d 20 20 20 20 | 20 20 20 20 20 20 28 28 |e ..    |      ((|
|00006520| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |the numb|er of li|
|00006530| 6e 65 73 20 6f 66 20 66 | 69 65 6c 64 20 22 70 61 |nes of f|ield "pa|
|00006540| 72 73 65 64 22 29 20 2b | 20 31 29 20 6f 66 20 66 |rsed") +| 1) of f|
|00006550| 69 65 6c 64 20 22 70 61 | 72 73 65 64 22 0d 20 20 |ield "pa|rsed".  |
|00006560| 20 20 20 20 0d 20 20 20 | 20 20 20 73 65 74 20 63 |    .   |   set c|
|00006570| 68 61 70 20 3d 20 63 68 | 61 70 20 2b 20 31 0d 20 |hap = ch|ap + 1. |
|00006580| 20 20 20 20 20 0d 20 20 | 20 20 20 20 2d 2d 20 6d |     .  |    -- m|
|00006590| 61 6b 65 20 6c 69 73 74 | 73 20 6f 66 20 61 6c 6c |ake list|s of all|
|000065a0| 20 74 68 65 20 74 69 74 | 6c 65 73 2c 20 63 61 70 | the tit|les, cap|
|000065b0| 74 69 6f 6e 73 2c 20 65 | 74 63 2e 2e 2e 0d 20 20 |tions, e|tc....  |
|000065c0| 20 20 20 20 69 66 20 63 | 68 61 70 20 3e 20 32 20 |    if c|hap > 2 |
|000065d0| 74 68 65 6e 20 2d 2d 20 | 0d 20 20 20 20 20 20 20 |then -- |.       |
|000065e0| 20 61 64 64 28 67 41 72 | 74 69 63 6c 65 73 2c 74 | add(gAr|ticles,t|
|000065f0| 6d 70 6c 69 73 74 29 0d | 20 20 20 20 20 20 20 20 |mplist).|        |
|00006600| 0d 20 20 20 20 20 20 20 | 20 2d 2d 20 6d 61 6b 65 |.       | -- make|
|00006610| 20 74 68 65 20 32 20 64 | 69 6d 65 6e 73 69 6f 6e | the 2 d|imension|
|00006620| 61 6c 20 63 61 70 74 69 | 6f 6e 20 6c 69 73 74 0d |al capti|on list.|
|00006630| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00006640| 69 74 65 6d 64 65 6c 69 | 6d 69 74 65 72 20 3d 20 |itemdeli|miter = |
|00006650| 22 40 22 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |"@".    |    set |
|00006660| 63 61 70 6e 75 6d 20 3d | 20 74 68 65 20 6e 75 6d |capnum =| the num|
|00006670| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 6f 66 20 |ber of i|tems of |
|00006680| 67 43 61 70 74 69 6f 6e | 73 0d 20 20 20 20 20 20 |gCaption|s.      |
|00006690| 20 20 69 66 20 67 43 61 | 70 74 69 6f 6e 73 20 3d |  if gCa|ptions =|
|000066a0| 20 22 22 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 | "" then|.       |
|000066b0| 20 20 20 73 65 74 20 67 | 43 61 70 74 69 6f 6e 73 |   set g|Captions|
|000066c0| 20 3d 20 22 40 22 20 26 | 20 74 6d 70 63 61 70 74 | = "@" &| tmpcapt|
|000066d0| 69 6f 6e 73 0d 20 20 20 | 20 20 20 20 20 65 6c 73 |ions.   |     els|
|000066e0| 65 0d 20 20 20 20 20 20 | 20 20 20 20 70 75 74 20 |e.      |    put |
|000066f0| 74 6d 70 63 61 70 74 69 | 6f 6e 73 20 69 6e 74 6f |tmpcapti|ons into|
|00006700| 20 69 74 65 6d 20 28 63 | 61 70 6e 75 6d 2b 31 29 | item (c|apnum+1)|
|00006710| 20 6f 66 20 67 43 61 70 | 74 69 6f 6e 73 0d 20 20 | of gCap|tions.  |
|00006720| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |      en|d if.   |
|00006730| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 69 74 65 |     set| the ite|
|00006740| 6d 64 65 6c 69 6d 69 74 | 65 72 20 3d 20 22 2c 22 |mdelimit|er = ","|
|00006750| 0d 20 20 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |.       | .      |
|00006760| 20 20 2d 2d 20 6d 61 6b | 65 20 74 68 65 20 32 20 |  -- mak|e the 2 |
|00006770| 64 69 6d 65 6e 73 69 6f | 6e 61 6c 20 74 69 74 6c |dimensio|nal titl|
|00006780| 65 20 6c 69 73 74 0d 20 | 20 20 20 20 20 20 20 73 |e list. |       s|
|00006790| 65 74 20 74 68 65 20 69 | 74 65 6d 64 65 6c 69 6d |et the i|temdelim|
|000067a0| 69 74 65 72 20 3d 20 22 | 40 22 0d 20 20 20 20 20 |iter = "|@".     |
|000067b0| 20 20 20 73 65 74 20 74 | 69 74 6e 75 6d 20 3d 20 |   set t|itnum = |
|000067c0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 69 74 |the numb|er of it|
|000067d0| 65 6d 73 20 6f 66 20 67 | 54 69 74 6c 65 73 0d 20 |ems of g|Titles. |
|000067e0| 20 20 20 20 20 20 20 69 | 66 20 67 54 69 74 6c 65 |       i|f gTitle|
|000067f0| 73 20 3d 20 22 22 20 74 | 68 65 6e 0d 20 20 20 20 |s = "" t|hen.    |
|00006800| 20 20 20 20 20 20 73 65 | 74 20 67 54 69 74 6c 65 |      se|t gTitle|
|00006810| 73 20 3d 20 22 40 22 20 | 26 20 74 6d 70 74 69 74 |s = "@" |& tmptit|
|00006820| 6c 65 73 0d 20 20 20 20 | 20 20 20 20 65 6c 73 65 |les.    |    else|
|00006830| 0d 20 20 20 20 20 20 20 | 20 20 20 70 75 74 20 74 |.       |   put t|
|00006840| 6d 70 74 69 74 6c 65 73 | 20 69 6e 74 6f 20 69 74 |mptitles| into it|
|00006850| 65 6d 20 28 74 69 74 6e | 75 6d 2b 31 29 20 6f 66 |em (titn|um+1) of|
|00006860| 20 67 54 69 74 6c 65 73 | 0d 20 20 20 20 20 20 20 | gTitles|.       |
|00006870| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 20 20 20 | end if.|        |
|00006880| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|00006890| 6d 69 74 65 72 20 3d 20 | 22 2c 22 0d 20 20 20 20 |miter = |",".    |
|000068a0| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 2d 2d 61 |    .   |     --a|
|000068b0| 64 64 28 67 43 61 70 74 | 69 6f 6e 73 2c 74 6d 70 |dd(gCapt|ions,tmp|
|000068c0| 63 61 70 74 69 6f 6e 73 | 29 0d 20 20 20 20 20 20 |captions|).      |
|000068d0| 20 20 2d 2d 61 64 64 28 | 67 54 69 74 6c 65 73 2c |  --add(|gTitles,|
|000068e0| 74 6d 70 74 69 74 6c 65 | 73 29 0d 20 20 20 20 20 |tmptitle|s).     |
|000068f0| 20 20 20 61 64 64 28 67 | 44 61 74 65 73 2c 74 6d |   add(g|Dates,tm|
|00006900| 70 64 61 74 65 73 29 0d | 20 20 20 20 20 20 65 6e |pdates).|      en|
|00006910| 64 20 69 66 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |d if.   |   .    |
|00006920| 20 20 2d 2d 20 61 64 64 | 20 74 68 65 20 63 68 61 |  -- add| the cha|
|00006930| 70 74 65 72 20 6e 61 6d | 65 73 20 69 6e 74 6f 20 |pter nam|es into |
|00006940| 74 68 65 20 67 6c 6f 62 | 61 6c 20 6c 69 73 74 20 |the glob|al list |
|00006950| 67 43 68 61 70 74 65 72 | 73 0d 20 20 20 20 20 20 |gChapter|s.      |
|00006960| 2d 2d 20 6c 6e 20 3c 3e | 20 22 6e 75 67 67 65 74 |-- ln <>| "nugget|
|00006970| 73 22 20 61 6e 64 20 6c | 6e 20 3c 3e 20 22 4e 55 |s" and l|n <> "NU|
|00006980| 47 47 45 54 53 22 20 61 | 6e 64 20 6c 6e 20 3c 3e |GGETS" a|nd ln <>|
|00006990| 20 22 4e 75 67 67 65 74 | 73 22 20 74 68 65 6e 0d | "Nugget|s" then.|
|000069a0| 20 20 20 20 20 20 69 66 | 20 6e 6f 74 20 28 6c 6e |      if| not (ln|
|000069b0| 20 63 6f 6e 74 61 69 6e | 73 20 22 6e 75 67 67 65 | contain|s "nugge|
|000069c0| 74 73 22 29 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |ts") the|n.      |
|000069d0| 20 20 61 64 64 28 67 43 | 68 61 70 74 65 72 73 2c |  add(gC|hapters,|
|000069e0| 6c 6e 29 0d 20 20 20 20 | 20 20 65 6c 73 65 20 20 |ln).    |  else  |
|000069f0| 0d 20 20 20 20 20 20 20 | 20 2d 2d 20 65 76 65 72 |.       | -- ever|
|00006a00| 79 74 68 69 6e 67 20 69 | 6e 20 74 68 65 20 6e 75 |ything i|n the nu|
|00006a10| 67 67 65 74 73 20 63 68 | 61 70 74 65 72 20 73 68 |ggets ch|apter sh|
|00006a20| 6f 75 6c 64 20 62 65 20 | 73 61 76 65 64 20 61 73 |ould be |saved as|
|00006a30| 20 69 73 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 | is.    |    set |
|00006a40| 69 6e 4e 75 67 67 65 74 | 73 20 3d 20 31 0d 20 20 |inNugget|s = 1.  |
|00006a50| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|00006a60| 20 0d 20 20 20 20 20 20 | 2d 2d 20 6d 61 6b 65 20 | .      |-- make |
|00006a70| 61 20 6c 69 73 74 20 6f | 66 20 74 68 65 20 61 72 |a list o|f the ar|
|00006a80| 74 69 63 6c 65 20 74 79 | 70 65 73 20 28 65 67 2e |ticle ty|pes (eg.|
|00006a90| 20 70 69 63 2c 20 63 75 | 74 74 69 6e 67 29 20 66 | pic, cu|tting) f|
|00006aa0| 6f 72 20 65 61 63 68 20 | 63 68 61 70 74 65 72 0d |or each |chapter.|
|00006ab0| 20 20 20 20 20 20 73 65 | 74 20 74 6d 70 6c 69 73 |      se|t tmplis|
|00006ac0| 74 20 3d 20 5b 5d 0d 20 | 20 20 20 20 20 73 65 74 |t = []. |     set|
|00006ad0| 20 74 6d 70 74 69 74 6c | 65 73 20 3d 20 5b 5d 0d | tmptitl|es = [].|
|00006ae0| 20 20 20 20 20 20 73 65 | 74 20 74 6d 70 63 61 70 |      se|t tmpcap|
|00006af0| 74 69 6f 6e 73 20 3d 20 | 22 22 0d 20 20 20 20 20 |tions = |"".     |
|00006b00| 20 73 65 74 20 74 6d 70 | 64 61 74 65 73 20 3d 20 | set tmp|dates = |
|00006b10| 5b 5d 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |[].     | .      |
|00006b20| 69 66 20 64 65 62 75 67 | 20 74 68 65 6e 20 70 75 |if debug| then pu|
|00006b30| 74 20 22 43 68 61 70 74 | 65 72 3a 22 20 26 26 20 |t "Chapt|er:" && |
|00006b40| 6c 6e 20 69 6e 74 6f 20 | 6c 69 6e 65 20 c2 0d 20 |ln into |line .. |
|00006b50| 20 20 20 20 20 20 20 20 | 20 28 28 74 68 65 20 6e |        | ((the n|
|00006b60| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|00006b70| 66 20 66 69 65 6c 64 20 | 22 70 61 72 73 65 64 22 |f field |"parsed"|
|00006b80| 29 20 2b 20 31 29 20 6f | 66 20 66 69 65 6c 64 20 |) + 1) o|f field |
|00006b90| 22 70 61 72 73 65 64 22 | 0d 20 20 20 20 20 20 0d |"parsed"|.      .|
|00006ba0| 20 20 20 20 20 20 2d 2d | 73 65 74 20 6e 75 6d 20 |      --|set num |
|00006bb0| 3d 20 6e 75 6d 2b 31 0d | 20 20 20 20 20 20 0d 20 |= num+1.|      . |
|00006bc0| 20 20 20 20 20 0d 20 20 | 20 20 20 20 2d 2d 20 67 |     .  |    -- g|
|00006bd0| 65 74 20 74 68 65 20 6e | 65 78 74 20 63 68 61 70 |et the n|ext chap|
|00006be0| 74 65 72 20 6e 75 6d 62 | 65 72 2e 20 74 68 69 73 |ter numb|er. this|
|00006bf0| 20 69 73 20 69 6e 20 63 | 61 73 65 20 74 68 65 20 | is in c|ase the |
|00006c00| 65 64 69 74 6f 72 73 20 | 64 69 64 6e 27 74 20 6d |editors |didn't m|
|00006c10| 61 6b 65 0d 20 20 20 20 | 20 20 2d 2d 20 74 68 65 |ake.    |  -- the|
|00006c20| 20 63 68 61 70 74 65 72 | 20 6e 75 6d 62 65 72 73 | chapter| numbers|
|00006c30| 20 63 6f 6e 73 65 63 75 | 74 69 76 65 0d 20 20 20 | consecu|tive.   |
|00006c40| 20 20 20 0d 20 20 20 20 | 20 20 2d 2d 20 73 6b 69 |   .    |  -- ski|
|00006c50| 70 20 74 6f 20 74 68 65 | 20 6e 65 78 74 20 6e 6f |p to the| next no|
|00006c60| 74 20 65 6d 70 74 79 20 | 6c 69 6e 65 0d 20 20 20 |t empty |line.   |
|00006c70| 20 20 20 73 65 74 20 6e | 75 6d 20 3d 20 6e 75 6d |   set n|um = num|
|00006c80| 20 2b 20 31 0d 20 20 20 | 20 20 20 72 65 70 65 61 | + 1.   |   repea|
|00006c90| 74 20 77 68 69 6c 65 20 | 6e 6f 74 20 6e 6f 74 45 |t while |not notE|
|00006ca0| 6d 70 74 79 28 6c 69 6e | 65 20 6e 75 6d 20 6f 66 |mpty(lin|e num of|
|00006cb0| 20 74 78 74 29 20 20 20 | 0d 20 20 20 20 20 20 20 | txt)   |.       |
|00006cc0| 20 73 65 74 20 6e 75 6d | 20 3d 20 6e 75 6d 20 2b | set num| = num +|
|00006cd0| 20 31 20 20 0d 20 20 20 | 20 20 20 65 6e 64 20 72 | 1  .   |   end r|
|00006ce0| 65 70 65 61 74 0d 20 20 | 20 20 20 20 0d 20 20 20 |epeat.  |    .   |
|00006cf0| 20 20 20 73 65 74 20 6f | 6c 64 63 68 61 70 20 3d |   set o|ldchap =|
|00006d00| 20 63 68 61 70 0d 20 20 | 20 20 20 20 73 65 74 20 | chap.  |    set |
|00006d10| 63 68 61 70 20 3d 20 28 | 63 68 61 72 74 6f 6e 75 |chap = (|chartonu|
|00006d20| 6d 28 63 68 61 72 20 31 | 20 6f 66 20 77 6f 72 64 |m(char 1| of word|
|00006d30| 20 31 20 6f 66 20 28 6c | 69 6e 65 20 6e 75 6d 20 | 1 of (l|ine num |
|00006d40| 6f 66 20 74 78 74 29 29 | 2d 34 38 29 0d 20 20 20 |of txt))|-48).   |
|00006d50| 20 20 20 0d 20 20 20 20 | 20 20 2d 2d 20 69 66 20 |   .    |  -- if |
|00006d60| 74 68 65 20 63 68 61 70 | 74 65 72 20 6e 75 6d 62 |the chap|ter numb|
|00006d70| 65 72 73 20 73 75 64 64 | 65 6e 6c 79 20 6a 75 6d |ers sudd|enly jum|
|00006d80| 70 20 74 68 65 6e 20 74 | 68 65 72 65 20 69 73 20 |p then t|here is |
|00006d90| 70 72 6f 62 61 62 6c 79 | 20 61 6e 20 65 72 72 6f |probably| an erro|
|00006da0| 72 0d 20 20 20 20 20 20 | 69 66 20 6e 6f 74 20 69 |r.      |if not i|
|00006db0| 6e 4e 75 67 67 65 74 73 | 20 61 6e 64 20 28 28 63 |nNuggets| and ((c|
|00006dc0| 68 61 70 20 2d 20 6f 6c | 64 63 68 61 70 20 3e 20 |hap - ol|dchap > |
|00006dd0| 35 29 20 6f 72 20 28 6f | 6c 64 63 68 61 70 20 3e |5) or (o|ldchap >|
|00006de0| 20 63 68 61 70 29 20 6f | 72 20 28 63 68 61 70 20 | chap) o|r (chap |
|00006df0| 3c 20 30 29 29 20 74 68 | 65 6e 20 20 20 0d 20 20 |< 0)) th|en   .  |
|00006e00| 20 20 20 20 20 20 70 75 | 74 20 22 65 72 72 6f 72 |      pu|t "error|
|00006e10| 20 69 6e 20 22 26 26 20 | 6f 6c 64 63 68 61 70 20 | in "&& |oldchap |
|00006e20| 26 22 2e 22 20 26 20 61 | 72 74 69 63 6c 65 20 0d |&"." & a|rticle .|
|00006e30| 20 20 20 20 20 20 20 20 | 72 65 74 75 72 6e 20 2d |        |return -|
|00006e40| 31 0d 20 20 20 20 20 20 | 20 20 65 78 69 74 0d 20 |1.      |  exit. |
|00006e50| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00006e60| 20 20 0d 20 20 20 20 20 | 20 70 75 74 20 67 4e 61 |  .     | put gNa|
|00006e70| 6d 65 20 26 26 20 22 63 | 68 61 70 20 3d 20 22 20 |me && "c|hap = " |
|00006e80| 26 26 20 63 68 61 70 0d | 20 20 20 20 20 20 73 65 |&& chap.|      se|
|00006e90| 74 20 6e 75 6d 20 3d 20 | 6e 75 6d 20 2d 20 31 0d |t num = |num - 1.|
|00006ea0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 73 65 74 |      . |     set|
|00006eb0| 20 61 72 74 69 63 6c 65 | 20 3d 20 30 0d 20 20 20 | article| = 0.   |
|00006ec0| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 0d 20 20 20 | else.  |    .   |
|00006ed0| 20 20 20 2d 2d 20 4e 75 | 67 67 65 74 3f 0d 20 20 |   -- Nu|gget?.  |
|00006ee0| 20 20 20 20 69 66 20 69 | 6e 4e 75 67 67 65 74 73 |    if i|nNuggets|
|00006ef0| 20 3d 20 31 20 74 68 65 | 6e 20 20 0d 20 20 20 20 | = 1 the|n  .    |
|00006f00| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |    .   |     -- |
|00006f10| 73 61 76 65 20 6e 75 67 | 67 65 74 73 20 69 6e 74 |save nug|gets int|
|00006f20| 6f 20 61 20 6c 69 73 74 | 20 64 65 6c 69 6d 69 74 |o a list| delimit|
|00006f30| 65 64 20 62 79 20 23 27 | 73 2e 20 74 68 69 73 20 |ed by #'|s. this |
|00006f40| 69 73 20 62 65 63 61 75 | 73 65 20 6e 75 67 67 65 |is becau|se nugge|
|00006f50| 74 73 20 6f 66 74 65 6e | 0d 20 20 20 20 20 20 20 |ts often|.       |
|00006f60| 20 2d 2d 20 63 6f 6e 74 | 61 69 6e 20 71 75 6f 74 | -- cont|ain quot|
|00006f70| 65 73 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |es.     |   .    |
|00006f80| 20 20 20 20 73 65 74 20 | 61 72 74 69 63 6c 65 20 |    set |article |
|00006f90| 3d 20 61 72 74 69 63 6c | 65 20 2b 20 31 0d 20 20 |= articl|e + 1.  |
|00006fa0| 20 20 20 20 20 20 64 65 | 6c 65 74 65 20 77 6f 72 |      de|lete wor|
|00006fb0| 64 20 31 20 6f 66 20 6c | 6e 0d 20 20 20 20 20 20 |d 1 of l|n.      |
|00006fc0| 20 20 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |  .     |   set t|
|00006fd0| 68 65 20 69 74 65 6d 64 | 65 6c 69 6d 69 74 65 72 |he itemd|elimiter|
|00006fe0| 20 3d 20 22 23 22 0d 20 | 20 20 20 20 20 20 20 73 | = "#". |       s|
|00006ff0| 65 74 20 74 6d 70 6e 75 | 67 6e 75 6d 20 3d 20 74 |et tmpnu|gnum = t|
|00007000| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 65 |he numbe|r of ite|
|00007010| 6d 73 20 6f 66 20 67 4e | 75 67 67 65 74 73 0d 20 |ms of gN|uggets. |
|00007020| 20 20 20 20 20 20 20 69 | 66 20 67 4e 75 67 67 65 |       i|f gNugge|
|00007030| 74 73 20 3d 20 22 22 20 | 74 68 65 6e 20 0d 20 20 |ts = "" |then .  |
|00007040| 20 20 20 20 20 20 20 20 | 73 65 74 20 67 4e 75 67 |        |set gNug|
|00007050| 67 65 74 73 20 3d 20 6c | 6e 0d 20 20 20 20 20 20 |gets = l|n.      |
|00007060| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 20 20 20 |  else. |        |
|00007070| 20 70 75 74 20 6c 6e 20 | 69 6e 74 6f 20 69 74 65 | put ln |into ite|
|00007080| 6d 20 28 74 6d 70 6e 75 | 67 6e 75 6d 2b 31 29 20 |m (tmpnu|gnum+1) |
|00007090| 6f 66 20 67 4e 75 67 67 | 65 74 73 0d 20 20 20 20 |of gNugg|ets.    |
|000070a0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|000070b0| 20 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |   set t|he itemd|
|000070c0| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 2c 22 0d 20 |elimiter| = ",". |
|000070d0| 20 20 20 20 20 20 20 0d | 20 20 20 20 20 20 20 20 |       .|        |
|000070e0| 73 65 74 20 6e 75 6d 20 | 3d 20 6e 75 6d 20 2b 20 |set num |= num + |
|000070f0| 31 0d 20 20 20 20 20 20 | 20 20 69 66 20 64 65 62 |1.      |  if deb|
|00007100| 75 67 20 74 68 65 6e 20 | 70 75 74 20 63 68 61 70 |ug then |put chap|
|00007110| 20 26 20 22 2e 22 20 26 | 20 61 72 74 69 63 6c 65 | & "." &| article|
|00007120| 20 26 26 20 6c 6e 20 26 | 26 20 6c 69 6e 65 20 6e | && ln &|& line n|
|00007130| 75 6d 20 6f 66 20 74 78 | 74 20 69 6e 74 6f 20 6c |um of tx|t into l|
|00007140| 69 6e 65 20 c2 0d 20 20 | 20 20 20 20 20 20 20 20 |ine ..  |        |
|00007150| 20 20 20 20 28 28 74 68 | 65 20 6e 75 6d 62 65 72 |    ((th|e number|
|00007160| 20 6f 66 20 6c 69 6e 65 | 73 20 6f 66 20 66 69 65 | of line|s of fie|
|00007170| 6c 64 20 22 70 61 72 73 | 65 64 22 29 20 2b 20 31 |ld "pars|ed") + 1|
|00007180| 29 20 6f 66 20 66 69 65 | 6c 64 20 22 70 61 72 73 |) of fie|ld "pars|
|00007190| 65 64 22 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |ed"     |   .    |
|000071a0| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |    .   |     -- |
|000071b0| 73 6f 75 6e 64 20 20 20 | 0d 20 20 20 20 20 20 65 |sound   |.      e|
|000071c0| 6c 73 65 20 69 66 20 6c | 6e 20 63 6f 6e 74 61 69 |lse if l|n contai|
|000071d0| 6e 73 20 22 61 75 64 69 | 6f 22 20 6f 72 20 6c 6e |ns "audi|o" or ln|
|000071e0| 20 63 6f 6e 74 61 69 6e | 73 20 22 73 6f 75 6e 64 | contain|s "sound|
|000071f0| 22 20 6f 72 20 6c 6e 20 | 63 6f 6e 74 61 69 6e 73 |" or ln |contains|
|00007200| 20 22 62 62 63 22 20 74 | 68 65 6e 0d 20 20 20 20 | "bbc" t|hen.    |
|00007210| 20 20 20 20 73 65 74 20 | 61 72 74 69 63 6c 65 20 |    set |article |
|00007220| 3d 20 61 72 74 69 63 6c | 65 20 2b 20 31 0d 20 20 |= articl|e + 1.  |
|00007230| 20 20 20 20 20 20 61 64 | 64 28 74 6d 70 6c 69 73 |      ad|d(tmplis|
|00007240| 74 2c 61 72 74 69 63 6c | 65 2c 22 73 6f 75 6e 64 |t,articl|e,"sound|
|00007250| 22 29 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |").     |   .    |
|00007260| 20 20 20 20 2d 2d 20 73 | 6b 69 70 20 74 6f 20 74 |    -- s|kip to t|
|00007270| 68 65 20 6e 65 78 74 20 | 6e 75 6d 62 65 72 65 64 |he next |numbered|
|00007280| 20 6c 69 6e 65 2c 20 65 | 67 2e 20 32 2e 32 20 6f | line, e|g. 2.2 o|
|00007290| 72 20 33 2e 35 0d 20 20 | 20 20 20 20 20 20 73 65 |r 3.5.  |      se|
|000072a0| 74 20 6e 75 6d 20 3d 20 | 6e 75 6d 20 2b 20 31 0d |t num = |num + 1.|
|000072b0| 20 20 20 20 20 20 20 20 | 73 65 74 20 6e 75 6d 20 |        |set num |
|000072c0| 3d 20 53 6b 69 70 54 6f | 4e 75 6d 62 65 72 28 74 |= SkipTo|Number(t|
|000072d0| 78 74 2c 63 68 61 70 2c | 61 72 74 69 63 6c 65 2c |xt,chap,|article,|
|000072e0| 6e 75 6d 29 0d 20 20 20 | 20 20 20 20 20 69 66 20 |num).   |     if |
|000072f0| 6e 75 6d 20 3d 20 2d 31 | 20 74 68 65 6e 20 0d 20 |num = -1| then . |
|00007300| 20 20 20 20 20 20 20 20 | 20 72 65 74 75 72 6e 20 |        | return |
|00007310| 2d 31 0d 20 20 20 20 20 | 20 20 20 20 20 65 78 69 |-1.     |     exi|
|00007320| 74 0d 20 20 20 20 20 20 | 20 20 65 6e 64 20 69 66 |t.      |  end if|
|00007330| 0d 20 20 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |.       | .      |
|00007340| 20 20 69 66 20 64 65 62 | 75 67 20 74 68 65 6e 20 |  if deb|ug then |
|00007350| 0d 20 20 20 20 20 20 20 | 20 20 20 70 75 74 20 63 |.       |   put c|
|00007360| 68 61 70 20 26 20 22 2e | 22 20 26 20 61 72 74 69 |hap & ".|" & arti|
|00007370| 63 6c 65 20 26 26 22 53 | 6f 75 6e 64 3a 22 20 69 |cle &&"S|ound:" i|
|00007380| 6e 74 6f 20 6c 69 6e 65 | 20 c2 0d 20 20 20 20 20 |nto line| ..     |
|00007390| 20 20 20 20 20 20 20 20 | 20 28 28 74 68 65 20 6e |        | ((the n|
|000073a0| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|000073b0| 66 20 66 69 65 6c 64 20 | 22 70 61 72 73 65 64 22 |f field |"parsed"|
|000073c0| 29 20 2b 20 31 29 20 6f | 66 20 66 69 65 6c 64 20 |) + 1) o|f field |
|000073d0| 22 70 61 72 73 65 64 22 | 0d 20 20 20 20 20 20 20 |"parsed"|.       |
|000073e0| 20 65 6e 64 20 69 66 20 | 20 0d 20 20 20 20 20 20 | end if | .      |
|000073f0| 20 20 0d 20 20 20 20 20 | 20 20 20 2d 2d 20 69 66 |  .     |   -- if|
|00007400| 20 74 68 65 20 6c 69 6e | 65 20 64 6f 65 73 6e 27 | the lin|e doesn'|
|00007410| 74 20 63 6f 6e 74 61 69 | 6e 20 74 68 65 20 77 6f |t contai|n the wo|
|00007420| 72 64 20 63 61 70 74 69 | 6f 6e 2c 20 74 68 65 6e |rd capti|on, then|
|00007430| 20 74 68 65 72 65 27 73 | 20 61 20 6d 69 73 74 61 | there's| a mista|
|00007440| 6b 65 0d 20 20 20 20 20 | 20 20 20 69 66 20 6e 6f |ke.     |   if no|
|00007450| 74 20 28 6c 69 6e 65 20 | 6e 75 6d 20 6f 66 20 74 |t (line |num of t|
|00007460| 78 74 20 63 6f 6e 74 61 | 69 6e 73 20 28 22 63 61 |xt conta|ins ("ca|
|00007470| 70 74 69 6f 6e 22 29 29 | 20 74 68 65 6e 0d 20 20 |ption"))| then.  |
|00007480| 20 20 20 20 20 20 20 20 | 70 75 74 20 22 65 72 72 |        |put "err|
|00007490| 6f 72 3a 20 22 20 26 26 | 20 63 68 61 70 20 26 20 |or: " &&| chap & |
|000074a0| 22 2e 22 20 26 20 61 72 | 74 69 63 6c 65 20 26 26 |"." & ar|ticle &&|
|000074b0| 20 22 73 68 6f 75 6c 64 | 20 68 61 76 65 20 61 20 | "should| have a |
|000074c0| 63 61 70 74 69 6f 6e 22 | 0d 20 20 20 20 20 20 20 |caption"|.       |
|000074d0| 20 20 20 72 65 74 75 72 | 6e 20 2d 31 0d 20 20 20 |   retur|n -1.   |
|000074e0| 20 20 20 20 20 20 20 65 | 78 69 74 0d 20 20 20 20 |       e|xit.    |
|000074f0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|00007500| 20 20 20 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 74 |   .    |    -- t|
|00007510| 68 65 20 63 61 70 74 69 | 6f 6e 20 69 73 20 6f 6e |he capti|on is on|
|00007520| 20 74 68 65 20 6c 69 6e | 65 20 66 6f 6c 6c 6f 77 | the lin|e follow|
|00007530| 69 6e 67 20 74 68 65 20 | 63 61 70 74 69 6f 6e 20 |ing the |caption |
|00007540| 68 65 61 64 69 6e 67 0d | 20 20 20 20 20 20 20 20 |heading.|        |
|00007550| 73 65 74 20 6e 75 6d 20 | 3d 20 6e 75 6d 20 2b 20 |set num |= num + |
|00007560| 31 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |1.      |  .     |
|00007570| 20 20 20 69 66 20 64 65 | 62 75 67 20 74 68 65 6e |   if de|bug then|
|00007580| 20 70 75 74 20 63 68 61 | 70 20 26 20 22 2e 22 20 | put cha|p & "." |
|00007590| 26 20 61 72 74 69 63 6c | 65 20 26 20 22 20 43 61 |& articl|e & " Ca|
|000075a0| 70 74 69 6f 6e 3a 22 20 | 26 26 20 6c 69 6e 65 20 |ption:" |&& line |
|000075b0| 6e 75 6d 20 6f 66 20 74 | 78 74 20 69 6e 74 6f 20 |num of t|xt into |
|000075c0| 6c 69 6e 65 20 c2 0d 20 | 20 20 20 20 20 20 20 20 |line .. |        |
|000075d0| 20 20 20 20 20 28 28 74 | 68 65 20 6e 75 6d 62 65 |     ((t|he numbe|
|000075e0| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 66 20 66 69 |r of lin|es of fi|
|000075f0| 65 6c 64 20 22 70 61 72 | 73 65 64 22 29 20 2b 20 |eld "par|sed") + |
|00007600| 31 29 20 6f 66 20 66 69 | 65 6c 64 20 22 70 61 72 |1) of fi|eld "par|
|00007610| 73 65 64 22 0d 20 20 20 | 20 20 20 20 20 0d 20 20 |sed".   |     .  |
|00007620| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 69 74 |      se|t the it|
|00007630| 65 6d 64 65 6c 69 6d 69 | 74 65 72 20 3d 20 22 23 |emdelimi|ter = "#|
|00007640| 22 0d 20 20 20 20 20 20 | 20 20 70 75 74 20 6c 69 |".      |  put li|
|00007650| 6e 65 20 6e 75 6d 20 6f | 66 20 74 78 74 20 69 6e |ne num o|f txt in|
|00007660| 74 6f 20 69 74 65 6d 20 | 61 72 74 69 63 6c 65 20 |to item |article |
|00007670| 6f 66 20 74 6d 70 63 61 | 70 74 69 6f 6e 73 0d 20 |of tmpca|ptions. |
|00007680| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 69 |       s|et the i|
|00007690| 74 65 6d 64 65 6c 69 6d | 69 74 65 72 20 3d 20 22 |temdelim|iter = "|
|000076a0| 2c 22 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |,".     |   .    |
|000076b0| 20 20 20 20 2d 2d 20 50 | 49 43 54 55 52 45 0d 20 |    -- P|ICTURE. |
|000076c0| 20 20 20 20 20 65 6c 73 | 65 20 69 66 20 6c 6e 20 |     els|e if ln |
|000076d0| 63 6f 6e 74 61 69 6e 73 | 20 22 70 69 63 22 20 6f |contains| "pic" o|
|000076e0| 72 20 6c 6e 20 63 6f 6e | 74 61 69 6e 73 20 22 70 |r ln con|tains "p|
|000076f0| 68 6f 74 6f 22 20 74 68 | 65 6e 0d 20 20 20 20 20 |hoto" th|en.     |
|00007700| 20 20 20 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |   .    |    set |
|00007710| 61 72 74 69 63 6c 65 20 | 3d 20 61 72 74 69 63 6c |article |= articl|
|00007720| 65 20 2b 20 31 0d 20 20 | 20 20 20 20 20 20 61 64 |e + 1.  |      ad|
|00007730| 64 28 74 6d 70 6c 69 73 | 74 2c 61 72 74 69 63 6c |d(tmplis|t,articl|
|00007740| 65 2c 22 70 69 63 22 29 | 0d 20 20 20 20 20 20 20 |e,"pic")|.       |
|00007750| 20 0d 20 20 20 20 20 20 | 20 20 2d 2d 20 73 6b 69 | .      |  -- ski|
|00007760| 70 20 74 6f 20 74 68 65 | 20 6e 65 78 74 20 6e 75 |p to the| next nu|
|00007770| 6d 62 65 72 65 64 20 6c | 69 6e 65 2c 20 65 67 2e |mbered l|ine, eg.|
|00007780| 20 32 2e 32 20 6f 72 20 | 33 2e 35 0d 20 20 20 20 | 2.2 or |3.5.    |
|00007790| 20 20 20 20 73 65 74 20 | 6e 75 6d 20 3d 20 6e 75 |    set |num = nu|
|000077a0| 6d 20 2b 20 31 0d 20 20 | 20 20 20 20 20 20 73 65 |m + 1.  |      se|
|000077b0| 74 20 6e 75 6d 20 3d 20 | 53 6b 69 70 54 6f 4e 75 |t num = |SkipToNu|
|000077c0| 6d 62 65 72 28 74 78 74 | 2c 63 68 61 70 2c 61 72 |mber(txt|,chap,ar|
|000077d0| 74 69 63 6c 65 2c 6e 75 | 6d 29 0d 20 20 20 20 20 |ticle,nu|m).     |
|000077e0| 20 20 20 69 66 20 6e 75 | 6d 20 3d 20 2d 31 20 74 |   if nu|m = -1 t|
|000077f0| 68 65 6e 20 0d 20 20 20 | 20 20 20 20 20 20 20 72 |hen .   |       r|
|00007800| 65 74 75 72 6e 20 2d 31 | 0d 20 20 20 20 20 20 20 |eturn -1|.       |
|00007810| 20 20 20 65 78 69 74 0d | 20 20 20 20 20 20 20 20 |   exit.|        |
|00007820| 65 6e 64 20 69 66 0d 20 | 20 20 20 20 20 20 20 0d |end if. |       .|
|00007830| 20 20 20 20 20 20 20 20 | 69 66 20 64 65 62 75 67 |        |if debug|
|00007840| 20 74 68 65 6e 20 0d 20 | 20 20 20 20 20 20 20 20 | then . |        |
|00007850| 20 70 75 74 20 63 68 61 | 70 20 26 20 22 2e 22 20 | put cha|p & "." |
|00007860| 26 20 61 72 74 69 63 6c | 65 20 26 26 22 50 69 63 |& articl|e &&"Pic|
|00007870| 3a 22 20 69 6e 74 6f 20 | 6c 69 6e 65 20 c2 0d 20 |:" into |line .. |
|00007880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 28 74 |        |     ((t|
|00007890| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|000078a0| 65 73 20 6f 66 20 66 69 | 65 6c 64 20 22 70 61 72 |es of fi|eld "par|
|000078b0| 73 65 64 22 29 20 2b 20 | 31 29 20 6f 66 20 66 69 |sed") + |1) of fi|
|000078c0| 65 6c 64 20 22 70 61 72 | 73 65 64 22 0d 20 20 20 |eld "par|sed".   |
|000078d0| 20 20 20 20 20 65 6e 64 | 20 69 66 20 20 0d 20 20 |     end| if  .  |
|000078e0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 2d |      . |       -|
|000078f0| 2d 20 69 66 20 74 68 65 | 20 6c 69 6e 65 20 64 6f |- if the| line do|
|00007900| 65 73 6e 27 74 20 63 6f | 6e 74 61 69 6e 20 74 68 |esn't co|ntain th|
|00007910| 65 20 77 6f 72 64 20 63 | 61 70 74 69 6f 6e 2c 20 |e word c|aption, |
|00007920| 74 68 65 6e 20 74 68 65 | 72 65 27 73 20 61 20 6d |then the|re's a m|
|00007930| 69 73 74 61 6b 65 0d 20 | 20 20 20 20 20 20 20 69 |istake. |       i|
|00007940| 66 20 6e 6f 74 20 28 6c | 69 6e 65 20 6e 75 6d 20 |f not (l|ine num |
|00007950| 6f 66 20 74 78 74 20 63 | 6f 6e 74 61 69 6e 73 20 |of txt c|ontains |
|00007960| 28 22 63 61 70 74 69 6f | 6e 22 29 29 20 74 68 65 |("captio|n")) the|
|00007970| 6e 0d 20 20 20 20 20 20 | 20 20 20 20 70 75 74 20 |n.      |    put |
|00007980| 22 65 72 72 6f 72 3a 20 | 22 20 26 26 20 63 68 61 |"error: |" && cha|
|00007990| 70 20 26 20 22 2e 22 20 | 26 20 61 72 74 69 63 6c |p & "." |& articl|
|000079a0| 65 20 26 26 20 22 73 68 | 6f 75 6c 64 20 68 61 76 |e && "sh|ould hav|
|000079b0| 65 20 61 20 63 61 70 74 | 69 6f 6e 22 0d 20 20 20 |e a capt|ion".   |
|000079c0| 20 20 20 20 20 20 20 72 | 65 74 75 72 6e 20 2d 31 |       r|eturn -1|
|000079d0| 0d 20 20 20 20 20 20 20 | 20 20 20 65 78 69 74 0d |.       |   exit.|
|000079e0| 20 20 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |        |end if. |
|000079f0| 20 20 20 20 20 20 20 0d | 20 20 20 20 20 20 20 20 |       .|        |
|00007a00| 2d 2d 20 74 68 65 20 63 | 61 70 74 69 6f 6e 20 69 |-- the c|aption i|
|00007a10| 73 20 6f 6e 20 74 68 65 | 20 6c 69 6e 65 20 66 6f |s on the| line fo|
|00007a20| 6c 6c 6f 77 69 6e 67 20 | 74 68 65 20 63 61 70 74 |llowing |the capt|
|00007a30| 69 6f 6e 20 68 65 61 64 | 69 6e 67 0d 20 20 20 20 |ion head|ing.    |
|00007a40| 20 20 20 20 73 65 74 20 | 6e 75 6d 20 3d 20 6e 75 |    set |num = nu|
|00007a50| 6d 20 2b 20 31 0d 20 20 | 20 20 20 20 20 20 0d 20 |m + 1.  |      . |
|00007a60| 20 20 20 20 20 20 20 69 | 66 20 64 65 62 75 67 20 |       i|f debug |
|00007a70| 74 68 65 6e 20 70 75 74 | 20 63 68 61 70 20 26 20 |then put| chap & |
|00007a80| 22 2e 22 20 26 20 61 72 | 74 69 63 6c 65 20 26 20 |"." & ar|ticle & |
|00007a90| 22 20 43 61 70 74 69 6f | 6e 3a 22 20 26 26 20 6c |" Captio|n:" && l|
|00007aa0| 69 6e 65 20 6e 75 6d 20 | 6f 66 20 74 78 74 20 69 |ine num |of txt i|
|00007ab0| 6e 74 6f 20 6c 69 6e 65 | 20 c2 0d 20 20 20 20 20 |nto line| ..     |
|00007ac0| 20 20 20 20 20 20 20 20 | 20 28 28 74 68 65 20 6e |        | ((the n|
|00007ad0| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|00007ae0| 66 20 66 69 65 6c 64 20 | 22 70 61 72 73 65 64 22 |f field |"parsed"|
|00007af0| 29 20 2b 20 31 29 20 6f | 66 20 66 69 65 6c 64 20 |) + 1) o|f field |
|00007b00| 22 70 61 72 73 65 64 22 | 0d 20 20 20 20 20 20 20 |"parsed"|.       |
|00007b10| 20 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 | .      |  set th|
|00007b20| 65 20 69 74 65 6d 64 65 | 6c 69 6d 69 74 65 72 20 |e itemde|limiter |
|00007b30| 3d 20 22 23 22 0d 20 20 | 20 20 20 20 20 20 70 75 |= "#".  |      pu|
|00007b40| 74 20 6c 69 6e 65 20 6e | 75 6d 20 6f 66 20 74 78 |t line n|um of tx|
|00007b50| 74 20 69 6e 74 6f 20 69 | 74 65 6d 20 61 72 74 69 |t into i|tem arti|
|00007b60| 63 6c 65 20 6f 66 20 74 | 6d 70 63 61 70 74 69 6f |cle of t|mpcaptio|
|00007b70| 6e 73 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |ns.     |   set t|
|00007b80| 68 65 20 69 74 65 6d 64 | 65 6c 69 6d 69 74 65 72 |he itemd|elimiter|
|00007b90| 20 3d 20 22 2c 22 0d 20 | 20 20 20 20 20 20 20 0d | = ",". |       .|
|00007ba0| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 65 |        |.      e|
|00007bb0| 6c 73 65 20 69 66 20 6c | 6e 20 63 6f 6e 74 61 69 |lse if l|n contai|
|00007bc0| 6e 73 20 22 6d 6f 76 69 | 65 22 20 6f 72 20 6c 6e |ns "movi|e" or ln|
|00007bd0| 20 63 6f 6e 74 61 69 6e | 73 20 22 76 69 64 65 6f | contain|s "video|
|00007be0| 22 20 6f 72 20 6c 6e 20 | 63 6f 6e 74 61 69 6e 73 |" or ln |contains|
|00007bf0| 20 22 67 72 61 70 68 69 | 63 22 20 c2 0d 20 20 20 | "graphi|c" ..   |
|00007c00| 20 20 20 20 20 20 20 20 | 6f 72 20 6c 6e 20 63 6f |        |or ln co|
|00007c10| 6e 74 61 69 6e 73 20 22 | 66 6f 6f 74 61 67 65 22 |ntains "|footage"|
|00007c20| 20 6f 72 20 6c 6e 20 63 | 6f 6e 74 61 69 6e 73 20 | or ln c|ontains |
|00007c30| 22 66 69 6c 6d 22 20 20 | 6f 72 20 6c 6e 20 63 6f |"film"  |or ln co|
|00007c40| 6e 74 61 69 6e 73 20 22 | 61 6e 69 6d 61 74 69 6f |ntains "|animatio|
|00007c50| 6e 22 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 |n" then.|        |
|00007c60| 0d 20 20 20 20 20 20 20 | 20 2d 2d 20 4d 4f 56 49 |.       | -- MOVI|
|00007c70| 45 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |E.      |  .     |
|00007c80| 20 20 20 73 65 74 20 61 | 72 74 69 63 6c 65 20 3d |   set a|rticle =|
|00007c90| 20 61 72 74 69 63 6c 65 | 20 2b 20 31 0d 20 20 20 | article| + 1.   |
|00007ca0| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 69 66 |     .  |      if|
|00007cb0| 20 6c 6e 20 63 6f 6e 74 | 61 69 6e 73 20 22 67 72 | ln cont|ains "gr|
|00007cc0| 61 70 68 69 63 22 20 6f | 72 20 6c 6e 20 63 6f 6e |aphic" o|r ln con|
|00007cd0| 74 61 69 6e 73 20 22 61 | 6e 69 6d 61 74 69 6f 6e |tains "a|nimation|
|00007ce0| 22 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 20 |" then. |        |
|00007cf0| 20 61 64 64 28 74 6d 70 | 6c 69 73 74 2c 61 72 74 | add(tmp|list,art|
|00007d00| 69 63 6c 65 2c 22 61 6e | 69 6d 61 74 69 6f 6e 22 |icle,"an|imation"|
|00007d10| 29 0d 20 20 20 20 20 20 | 20 20 65 6c 73 65 20 20 |).      |  else  |
|00007d20| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 20 20 |     .  |        |
|00007d30| 61 64 64 28 74 6d 70 6c | 69 73 74 2c 61 72 74 69 |add(tmpl|ist,arti|
|00007d40| 63 6c 65 2c 22 6d 6f 76 | 69 65 22 29 0d 20 20 20 |cle,"mov|ie").   |
|00007d50| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00007d60| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |    .   |     -- |
|00007d70| 73 6b 69 70 20 74 6f 20 | 74 68 65 20 6e 65 78 74 |skip to |the next|
|00007d80| 20 6e 75 6d 62 65 72 65 | 64 20 6c 69 6e 65 2c 20 | numbere|d line, |
|00007d90| 65 67 2e 20 32 2e 32 20 | 6f 72 20 33 2e 35 0d 20 |eg. 2.2 |or 3.5. |
|00007da0| 20 20 20 20 20 20 20 73 | 65 74 20 6e 75 6d 20 3d |       s|et num =|
|00007db0| 20 6e 75 6d 20 2b 20 31 | 0d 20 20 20 20 20 20 20 | num + 1|.       |
|00007dc0| 20 73 65 74 20 6e 75 6d | 20 3d 20 53 6b 69 70 54 | set num| = SkipT|
|00007dd0| 6f 4e 75 6d 62 65 72 28 | 74 78 74 2c 63 68 61 70 |oNumber(|txt,chap|
|00007de0| 2c 61 72 74 69 63 6c 65 | 2c 6e 75 6d 29 0d 20 20 |,article|,num).  |
|00007df0| 20 20 20 20 20 20 69 66 | 20 6e 75 6d 20 3d 20 2d |      if| num = -|
|00007e00| 31 20 74 68 65 6e 20 0d | 20 20 20 20 20 20 20 20 |1 then .|        |
|00007e10| 20 20 72 65 74 75 72 6e | 20 2d 31 0d 20 20 20 20 |  return| -1.    |
|00007e20| 20 20 20 20 20 20 65 78 | 69 74 0d 20 20 20 20 20 |      ex|it.     |
|00007e30| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|00007e40| 20 20 0d 20 20 20 20 20 | 20 20 20 69 66 20 64 65 |  .     |   if de|
|00007e50| 62 75 67 20 74 68 65 6e | 20 0d 20 20 20 20 20 20 |bug then| .      |
|00007e60| 20 20 20 20 70 75 74 20 | 63 68 61 70 20 26 20 22 |    put |chap & "|
|00007e70| 2e 22 20 26 20 61 72 74 | 69 63 6c 65 20 26 26 22 |." & art|icle &&"|
|00007e80| 4d 6f 76 69 65 3a 22 20 | 26 26 20 6c 69 6e 65 20 |Movie:" |&& line |
|00007e90| 6e 75 6d 20 6f 66 20 74 | 78 74 20 69 6e 74 6f 20 |num of t|xt into |
|00007ea0| 6c 69 6e 65 20 c2 0d 20 | 20 20 20 20 20 20 20 20 |line .. |        |
|00007eb0| 20 20 20 20 20 28 28 74 | 68 65 20 6e 75 6d 62 65 |     ((t|he numbe|
|00007ec0| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 66 20 66 69 |r of lin|es of fi|
|00007ed0| 65 6c 64 20 22 70 61 72 | 73 65 64 22 29 20 2b 20 |eld "par|sed") + |
|00007ee0| 31 29 20 6f 66 20 66 69 | 65 6c 64 20 22 70 61 72 |1) of fi|eld "par|
|00007ef0| 73 65 64 22 0d 20 20 20 | 20 20 20 20 20 65 6e 64 |sed".   |     end|
|00007f00| 20 69 66 20 20 0d 20 20 | 20 20 20 20 20 20 0d 20 | if  .  |      . |
|00007f10| 20 20 20 20 20 20 20 2d | 2d 20 69 66 20 74 68 65 |       -|- if the|
|00007f20| 20 6c 69 6e 65 20 64 6f | 65 73 6e 27 74 20 63 6f | line do|esn't co|
|00007f30| 6e 74 61 69 6e 20 74 68 | 65 20 77 6f 72 64 20 63 |ntain th|e word c|
|00007f40| 61 70 74 69 6f 6e 2c 20 | 74 68 65 6e 20 74 68 65 |aption, |then the|
|00007f50| 72 65 27 73 20 61 20 6d | 69 73 74 61 6b 65 0d 20 |re's a m|istake. |
|00007f60| 20 20 20 20 20 20 20 69 | 66 20 6e 6f 74 20 28 6c |       i|f not (l|
|00007f70| 69 6e 65 20 6e 75 6d 20 | 6f 66 20 74 78 74 20 63 |ine num |of txt c|
|00007f80| 6f 6e 74 61 69 6e 73 20 | 28 22 63 61 70 74 69 6f |ontains |("captio|
|00007f90| 6e 22 29 29 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |n")) the|n.      |
|00007fa0| 20 20 20 20 70 75 74 20 | 22 65 72 72 6f 72 3a 20 |    put |"error: |
|00007fb0| 22 20 26 26 20 63 68 61 | 70 20 26 20 22 2e 22 20 |" && cha|p & "." |
|00007fc0| 26 20 61 72 74 69 63 6c | 65 20 26 26 20 22 73 68 |& articl|e && "sh|
|00007fd0| 6f 75 6c 64 20 68 61 76 | 65 20 61 20 63 61 70 74 |ould hav|e a capt|
|00007fe0| 69 6f 6e 22 0d 20 20 20 | 20 20 20 20 20 20 20 72 |ion".   |       r|
|00007ff0| 65 74 75 72 6e 20 2d 31 | 0d 20 20 20 20 20 20 20 |eturn -1|.       |
|00008000| 20 20 20 65 78 69 74 0d | 20 20 20 20 20 20 20 20 |   exit.|        |
|00008010| 65 6e 64 20 69 66 0d 20 | 20 20 20 20 20 20 20 0d |end if. |       .|
|00008020| 20 20 20 20 20 20 20 20 | 2d 2d 20 74 68 65 20 63 |        |-- the c|
|00008030| 61 70 74 69 6f 6e 20 69 | 73 20 6f 6e 20 74 68 65 |aption i|s on the|
|00008040| 20 6c 69 6e 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 | line fo|llowing |
|00008050| 74 68 65 20 63 61 70 74 | 69 6f 6e 0d 20 20 20 20 |the capt|ion.    |
|00008060| 20 20 20 20 73 65 74 20 | 6e 75 6d 20 3d 20 6e 75 |    set |num = nu|
|00008070| 6d 20 2b 20 31 0d 20 20 | 20 20 20 20 20 20 0d 20 |m + 1.  |      . |
|00008080| 20 20 20 20 20 20 20 69 | 66 20 64 65 62 75 67 20 |       i|f debug |
|00008090| 74 68 65 6e 20 70 75 74 | 20 63 68 61 70 20 26 20 |then put| chap & |
|000080a0| 22 2e 22 20 26 20 61 72 | 74 69 63 6c 65 20 26 20 |"." & ar|ticle & |
|000080b0| 22 20 43 61 70 74 69 6f | 6e 3a 22 20 26 26 20 6c |" Captio|n:" && l|
|000080c0| 69 6e 65 20 6e 75 6d 20 | 6f 66 20 74 78 74 20 69 |ine num |of txt i|
|000080d0| 6e 74 6f 20 6c 69 6e 65 | 20 c2 0d 20 20 20 20 20 |nto line| ..     |
|000080e0| 20 20 20 20 20 20 20 20 | 20 28 28 74 68 65 20 6e |        | ((the n|
|000080f0| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|00008100| 66 20 66 69 65 6c 64 20 | 22 70 61 72 73 65 64 22 |f field |"parsed"|
|00008110| 29 20 2b 20 31 29 20 6f | 66 20 66 69 65 6c 64 20 |) + 1) o|f field |
|00008120| 22 70 61 72 73 65 64 22 | 0d 20 20 20 20 20 20 20 |"parsed"|.       |
|00008130| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|00008140| 69 6d 69 74 65 72 20 3d | 20 22 23 22 0d 20 20 20 |imiter =| "#".   |
|00008150| 20 20 20 20 20 70 75 74 | 20 6c 69 6e 65 20 6e 75 |     put| line nu|
|00008160| 6d 20 6f 66 20 74 78 74 | 20 69 6e 74 6f 20 69 74 |m of txt| into it|
|00008170| 65 6d 20 61 72 74 69 63 | 6c 65 20 6f 66 20 74 6d |em artic|le of tm|
|00008180| 70 63 61 70 74 69 6f 6e | 73 0d 20 20 20 20 20 20 |pcaption|s.      |
|00008190| 20 20 73 65 74 20 74 68 | 65 20 69 74 65 6d 64 65 |  set th|e itemde|
|000081a0| 6c 69 6d 69 74 65 72 20 | 3d 20 22 2c 22 0d 20 20 |limiter |= ",".  |
|000081b0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 65 6c 73 |      . |     els|
|000081c0| 65 20 69 66 20 6c 6e 20 | 63 6f 6e 74 61 69 6e 73 |e if ln |contains|
|000081d0| 20 22 70 61 72 74 77 6f | 72 6b 22 20 61 6e 64 20 | "partwo|rk" and |
|000081e0| 63 68 61 70 20 3e 20 31 | 20 74 68 65 6e 0d 20 20 |chap > 1| then.  |
|000081f0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 2d |      . |       -|
|00008200| 2d 20 50 41 52 54 57 4f | 52 4b 0d 20 20 20 20 20 |- PARTWO|RK.     |
|00008210| 20 20 20 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |   .    |    set |
|00008220| 61 72 74 69 63 6c 65 20 | 3d 20 61 72 74 69 63 6c |article |= articl|
|00008230| 65 20 2b 20 31 0d 20 20 | 20 20 20 20 20 20 61 64 |e + 1.  |      ad|
|00008240| 64 28 74 6d 70 6c 69 73 | 74 2c 61 72 74 69 63 6c |d(tmplis|t,articl|
|00008250| 65 2c 22 70 61 72 74 77 | 6f 72 6b 22 29 0d 20 20 |e,"partw|ork").  |
|00008260| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 2d |      . |       -|
|00008270| 2d 20 73 6b 69 70 20 74 | 6f 20 74 68 65 20 6e 65 |- skip t|o the ne|
|00008280| 78 74 20 6e 75 6d 62 65 | 72 65 64 20 6c 69 6e 65 |xt numbe|red line|
|00008290| 2c 20 65 67 2e 20 32 2e | 32 20 6f 72 20 33 2e 35 |, eg. 2.|2 or 3.5|
|000082a0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 6e 75 6d |.       | set num|
|000082b0| 20 3d 20 6e 75 6d 20 2b | 20 31 0d 20 20 20 20 20 | = num +| 1.     |
|000082c0| 20 20 20 73 65 74 20 6e | 75 6d 20 3d 20 53 6b 69 |   set n|um = Ski|
|000082d0| 70 54 6f 4e 75 6d 62 65 | 72 28 74 78 74 2c 63 68 |pToNumbe|r(txt,ch|
|000082e0| 61 70 2c 61 72 74 69 63 | 6c 65 2c 6e 75 6d 29 0d |ap,artic|le,num).|
|000082f0| 20 20 20 20 20 20 20 20 | 69 66 20 6e 75 6d 20 3d |        |if num =|
|00008300| 20 2d 31 20 74 68 65 6e | 20 0d 20 20 20 20 20 20 | -1 then| .      |
|00008310| 20 20 20 20 72 65 74 75 | 72 6e 20 2d 31 0d 20 20 |    retu|rn -1.  |
|00008320| 20 20 20 20 20 20 20 20 | 65 78 69 74 0d 20 20 20 |        |exit.   |
|00008330| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00008340| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 69 66 20 |    .   |     if |
|00008350| 64 65 62 75 67 20 74 68 | 65 6e 20 0d 20 20 20 20 |debug th|en .    |
|00008360| 20 20 20 20 20 20 70 75 | 74 20 63 68 61 70 20 26 |      pu|t chap &|
|00008370| 20 22 2e 22 20 26 20 61 | 72 74 69 63 6c 65 20 26 | "." & a|rticle &|
|00008380| 26 22 50 61 72 74 77 6f | 72 6b 32 3a 22 20 26 26 |&"Partwo|rk2:" &&|
|00008390| 20 6c 69 6e 65 20 6e 75 | 6d 20 6f 66 20 74 78 74 | line nu|m of txt|
|000083a0| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 c2 0d 20 20 20 | into li|ne ..   |
|000083b0| 20 20 20 20 20 20 20 20 | 20 20 20 28 28 74 68 65 |        |   ((the|
|000083c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|000083d0| 20 6f 66 20 66 69 65 6c | 64 20 22 70 61 72 73 65 | of fiel|d "parse|
|000083e0| 64 22 29 20 2b 20 31 29 | 20 6f 66 20 66 69 65 6c |d") + 1)| of fiel|
|000083f0| 64 20 22 70 61 72 73 65 | 64 22 0d 20 20 20 20 20 |d "parse|d".     |
|00008400| 20 20 20 65 6e 64 20 69 | 66 20 20 0d 20 20 20 20 |   end i|f  .    |
|00008410| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |    .   |     -- |
|00008420| 69 66 20 74 68 65 20 6c | 69 6e 65 20 64 6f 65 73 |if the l|ine does|
|00008430| 6e 27 74 20 63 6f 6e 74 | 61 69 6e 20 74 68 65 20 |n't cont|ain the |
|00008440| 77 6f 72 64 20 63 61 70 | 74 69 6f 6e 2c 20 74 68 |word cap|tion, th|
|00008450| 65 6e 20 74 68 65 72 65 | 27 73 20 61 20 6d 69 73 |en there|'s a mis|
|00008460| 74 61 6b 65 0d 20 20 20 | 20 20 20 20 20 69 66 20 |take.   |     if |
|00008470| 6e 6f 74 20 28 6c 69 6e | 65 20 6e 75 6d 20 6f 66 |not (lin|e num of|
|00008480| 20 74 78 74 20 63 6f 6e | 74 61 69 6e 73 20 28 22 | txt con|tains ("|
|00008490| 63 61 70 74 69 6f 6e 22 | 29 29 20 74 68 65 6e 0d |caption"|)) then.|
|000084a0| 20 20 20 20 20 20 20 20 | 20 20 70 75 74 20 22 65 |        |  put "e|
|000084b0| 72 72 6f 72 3a 20 22 20 | 26 26 20 63 68 61 70 20 |rror: " |&& chap |
|000084c0| 26 20 22 2e 22 20 26 20 | 61 72 74 69 63 6c 65 20 |& "." & |article |
|000084d0| 26 26 20 22 73 68 6f 75 | 6c 64 20 68 61 76 65 20 |&& "shou|ld have |
|000084e0| 61 20 63 61 70 74 69 6f | 6e 22 0d 20 20 20 20 20 |a captio|n".     |
|000084f0| 20 20 20 20 20 72 65 74 | 75 72 6e 20 2d 31 0d 20 |     ret|urn -1. |
|00008500| 20 20 20 20 20 20 20 20 | 20 65 78 69 74 0d 20 20 |        | exit.  |
|00008510| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |      en|d if.   |
|00008520| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 2d 2d |     .  |      --|
|00008530| 20 74 68 65 20 63 61 70 | 74 69 6f 6e 20 69 73 20 | the cap|tion is |
|00008540| 6f 6e 20 74 68 65 20 6c | 69 6e 65 20 66 6f 6c 6c |on the l|ine foll|
|00008550| 6f 77 69 6e 67 20 74 68 | 65 20 63 61 70 74 69 6f |owing th|e captio|
|00008560| 6e 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 6e 75 |n.      |  set nu|
|00008570| 6d 20 3d 20 6e 75 6d 20 | 2b 20 31 20 20 20 20 0d |m = num |+ 1    .|
|00008580| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 |        |.       |
|00008590| 20 69 66 20 64 65 62 75 | 67 20 74 68 65 6e 20 70 | if debu|g then p|
|000085a0| 75 74 20 63 68 61 70 20 | 26 20 22 2e 22 20 26 20 |ut chap |& "." & |
|000085b0| 61 72 74 69 63 6c 65 20 | 26 20 22 20 43 61 70 74 |article |& " Capt|
|000085c0| 69 6f 6e 3a 22 20 26 26 | 20 6c 69 6e 65 20 6e 75 |ion:" &&| line nu|
|000085d0| 6d 20 6f 66 20 74 78 74 | 20 69 6e 74 6f 20 6c 69 |m of txt| into li|
|000085e0| 6e 65 20 c2 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ne ..   |        |
|000085f0| 20 20 20 28 28 74 68 65 | 20 6e 75 6d 62 65 72 20 |   ((the| number |
|00008600| 6f 66 20 6c 69 6e 65 73 | 20 6f 66 20 66 69 65 6c |of lines| of fiel|
|00008610| 64 20 22 70 61 72 73 65 | 64 22 29 20 2b 20 31 29 |d "parse|d") + 1)|
|00008620| 20 6f 66 20 66 69 65 6c | 64 20 22 70 61 72 73 65 | of fiel|d "parse|
|00008630| 64 22 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |d".     |   set t|
|00008640| 68 65 20 69 74 65 6d 64 | 65 6c 69 6d 69 74 65 72 |he itemd|elimiter|
|00008650| 20 3d 20 22 23 22 0d 20 | 20 20 20 20 20 20 20 70 | = "#". |       p|
|00008660| 75 74 20 6c 69 6e 65 20 | 6e 75 6d 20 6f 66 20 74 |ut line |num of t|
|00008670| 78 74 20 69 6e 74 6f 20 | 69 74 65 6d 20 61 72 74 |xt into |item art|
|00008680| 69 63 6c 65 20 6f 66 20 | 74 6d 70 63 61 70 74 69 |icle of |tmpcapti|
|00008690| 6f 6e 73 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |ons.    |    set |
|000086a0| 74 68 65 20 69 74 65 6d | 64 65 6c 69 6d 69 74 65 |the item|delimite|
|000086b0| 72 20 3d 20 22 2c 22 0d | 20 20 20 20 20 20 20 20 |r = ",".|        |
|000086c0| 2d 2d 61 64 64 28 74 6d | 70 74 69 74 6c 65 73 2c |--add(tm|ptitles,|
|000086d0| 61 72 74 69 63 6c 65 2c | 22 50 61 72 74 77 6f 72 |article,|"Partwor|
|000086e0| 6b 22 29 0d 20 20 20 20 | 20 20 20 20 61 64 64 28 |k").    |    add(|
|000086f0| 74 6d 70 64 61 74 65 73 | 2c 61 72 74 69 63 6c 65 |tmpdates|,article|
|00008700| 2c 22 20 22 29 0d 20 20 | 20 20 20 20 20 20 0d 20 |," ").  |      . |
|00008710| 20 20 20 20 20 65 6c 73 | 65 20 69 66 20 6c 6e 20 |     els|e if ln |
|00008720| 63 6f 6e 74 61 69 6e 73 | 20 22 63 75 74 74 69 6e |contains| "cuttin|
|00008730| 67 22 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 |g" then.|        |
|00008740| 0d 20 20 20 20 20 20 20 | 20 2d 2d 20 43 55 54 54 |.       | -- CUTT|
|00008750| 49 4e 47 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |ING.    |    .   |
|00008760| 20 20 20 20 20 73 65 74 | 20 61 72 74 69 63 6c 65 |     set| article|
|00008770| 20 3d 20 61 72 74 69 63 | 6c 65 20 2b 20 31 0d 20 | = artic|le + 1. |
|00008780| 20 20 20 20 20 20 20 61 | 64 64 28 74 6d 70 6c 69 |       a|dd(tmpli|
|00008790| 73 74 2c 61 72 74 69 63 | 6c 65 2c 22 63 75 74 74 |st,artic|le,"cutt|
|000087a0| 69 6e 67 22 29 0d 20 20 | 20 20 20 20 20 20 0d 20 |ing").  |      . |
|000087b0| 20 20 20 20 20 20 20 69 | 66 20 64 65 62 75 67 20 |       i|f debug |
|000087c0| 74 68 65 6e 20 70 75 74 | 20 63 68 61 70 20 26 20 |then put| chap & |
|000087d0| 22 2e 22 20 26 20 61 72 | 74 69 63 6c 65 20 26 26 |"." & ar|ticle &&|
|000087e0| 20 22 43 75 74 74 69 6e | 67 3a 22 20 20 69 6e 74 | "Cuttin|g:"  int|
|000087f0| 6f 20 6c 69 6e 65 20 c2 | 0d 20 20 20 20 20 20 20 |o line .|.       |
|00008800| 20 20 20 20 20 20 20 28 | 28 74 68 65 20 6e 75 6d |       (|(the num|
|00008810| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 6f 66 20 |ber of l|ines of |
|00008820| 66 69 65 6c 64 20 22 70 | 61 72 73 65 64 22 29 20 |field "p|arsed") |
|00008830| 2b 20 31 29 20 6f 66 20 | 66 69 65 6c 64 20 22 70 |+ 1) of |field "p|
|00008840| 61 72 73 65 64 22 0d 20 | 20 20 20 20 20 20 20 0d |arsed". |       .|
|00008850| 20 20 20 20 20 20 20 20 | 2d 2d 20 73 6b 69 70 20 |        |-- skip |
|00008860| 74 6f 20 74 68 65 20 6e | 65 78 74 20 6e 75 6d 62 |to the n|ext numb|
|00008870| 65 72 65 64 20 6c 69 6e | 65 2c 20 65 67 2e 20 32 |ered lin|e, eg. 2|
|00008880| 2e 32 20 6f 72 20 33 2e | 35 0d 20 20 20 20 20 20 |.2 or 3.|5.      |
|00008890| 20 20 73 65 74 20 6e 75 | 6d 20 3d 20 6e 75 6d 20 |  set nu|m = num |
|000088a0| 2b 20 31 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |+ 1.    |    set |
|000088b0| 6e 75 6d 20 3d 20 53 6b | 69 70 54 6f 4e 75 6d 62 |num = Sk|ipToNumb|
|000088c0| 65 72 28 74 78 74 2c 63 | 68 61 70 2c 61 72 74 69 |er(txt,c|hap,arti|
|000088d0| 63 6c 65 2c 6e 75 6d 29 | 0d 20 20 20 20 20 20 20 |cle,num)|.       |
|000088e0| 20 69 66 20 6e 75 6d 20 | 3d 20 2d 31 20 74 68 65 | if num |= -1 the|
|000088f0| 6e 20 0d 20 20 20 20 20 | 20 20 20 20 20 72 65 74 |n .     |     ret|
|00008900| 75 72 6e 20 2d 31 0d 20 | 20 20 20 20 20 20 20 20 |urn -1. |        |
|00008910| 20 65 78 69 74 0d 20 20 | 20 20 20 20 20 20 65 6e | exit.  |      en|
|00008920| 64 20 69 66 0d 20 20 20 | 20 20 20 20 20 0d 20 20 |d if.   |     .  |
|00008930| 20 20 20 20 20 20 2d 2d | 20 73 6f 6d 65 74 69 6d |      --| sometim|
|00008940| 65 73 20 74 68 65 20 74 | 65 78 74 20 69 73 20 6f |es the t|ext is o|
|00008950| 6e 20 74 68 65 20 6e 65 | 78 74 20 6c 69 6e 65 2c |n the ne|xt line,|
|00008960| 20 69 6e 73 74 65 61 64 | 20 6f 66 20 6f 6e 20 74 | instead| of on t|
|00008970| 68 65 20 73 61 6d 65 20 | 6c 69 6e 65 0d 20 20 20 |he same |line.   |
|00008980| 20 20 20 20 20 69 66 20 | 6e 6f 74 45 6d 70 74 79 |     if |notEmpty|
|00008990| 28 6c 69 6e 65 20 28 6e | 75 6d 2b 31 29 20 6f 66 |(line (n|um+1) of|
|000089a0| 20 74 78 74 29 20 74 68 | 65 6e 0d 20 20 20 20 20 | txt) th|en.     |
|000089b0| 20 20 20 20 20 73 65 74 | 20 6e 75 6d 20 3d 20 6e |     set| num = n|
|000089c0| 75 6d 2b 31 0d 20 20 20 | 20 20 20 20 20 65 6c 73 |um+1.   |     els|
|000089d0| 65 0d 20 20 20 20 20 20 | 20 20 20 20 64 65 6c 65 |e.      |    dele|
|000089e0| 74 65 20 77 6f 72 64 20 | 31 20 6f 66 20 6c 69 6e |te word |1 of lin|
|000089f0| 65 20 6e 75 6d 20 6f 66 | 20 74 78 74 0d 20 20 20 |e num of| txt.   |
|00008a00| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00008a10| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 69 66 20 |    .   |     if |
|00008a20| 64 65 62 75 67 20 74 68 | 65 6e 20 70 75 74 20 63 |debug th|en put c|
|00008a30| 68 61 70 20 26 20 22 2e | 22 20 26 20 61 72 74 69 |hap & ".|" & arti|
|00008a40| 63 6c 65 20 26 26 20 22 | 48 65 61 64 6c 69 6e 65 |cle && "|Headline|
|00008a50| 3a 22 20 26 26 20 6c 69 | 6e 65 20 6e 75 6d 20 6f |:" && li|ne num o|
|00008a60| 66 20 74 78 74 20 69 6e | 74 6f 20 6c 69 6e 65 20 |f txt in|to line |
|00008a70| c2 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00008a80| 28 28 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |((the nu|mber of |
|00008a90| 6c 69 6e 65 73 20 6f 66 | 20 66 69 65 6c 64 20 22 |lines of| field "|
|00008aa0| 70 61 72 73 65 64 22 29 | 20 2b 20 31 29 20 6f 66 |parsed")| + 1) of|
|00008ab0| 20 66 69 65 6c 64 20 22 | 70 61 72 73 65 64 22 0d | field "|parsed".|
|00008ac0| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00008ad0| 69 74 65 6d 64 65 6c 69 | 6d 69 74 65 72 20 3d 20 |itemdeli|miter = |
|00008ae0| 22 23 22 0d 20 20 20 20 | 20 20 20 20 70 75 74 20 |"#".    |    put |
|00008af0| 6c 69 6e 65 20 6e 75 6d | 20 6f 66 20 74 78 74 20 |line num| of txt |
|00008b00| 69 6e 74 6f 20 69 74 65 | 6d 20 61 72 74 69 63 6c |into ite|m articl|
|00008b10| 65 20 6f 66 20 74 6d 70 | 74 69 74 6c 65 73 0d 20 |e of tmp|titles. |
|00008b20| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 69 |       s|et the i|
|00008b30| 74 65 6d 64 65 6c 69 6d | 69 74 65 72 20 3d 20 22 |temdelim|iter = "|
|00008b40| 2c 22 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |,".     |   .    |
|00008b50| 20 20 20 20 2d 2d 61 64 | 64 28 74 6d 70 74 69 74 |    --ad|d(tmptit|
|00008b60| 6c 65 73 2c 61 72 74 69 | 63 6c 65 2c 6c 69 6e 65 |les,arti|cle,line|
|00008b70| 20 6e 75 6d 20 6f 66 20 | 74 78 74 29 0d 20 20 20 | num of |txt).   |
|00008b80| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 2d 2d |     .  |      --|
|00008b90| 20 73 6b 69 70 20 74 6f | 20 74 68 65 20 6e 65 78 | skip to| the nex|
|00008ba0| 74 20 6e 75 6d 62 65 72 | 65 64 20 6c 69 6e 65 2c |t number|ed line,|
|00008bb0| 20 65 67 2e 20 32 2e 32 | 20 6f 72 20 33 2e 35 0d | eg. 2.2| or 3.5.|
|00008bc0| 20 20 20 20 20 20 20 20 | 73 65 74 20 6e 75 6d 20 |        |set num |
|00008bd0| 3d 20 6e 75 6d 20 2b 20 | 31 0d 20 20 20 20 20 20 |= num + |1.      |
|00008be0| 20 20 73 65 74 20 6e 75 | 6d 20 3d 20 53 6b 69 70 |  set nu|m = Skip|
|00008bf0| 54 6f 4e 75 6d 62 65 72 | 28 74 78 74 2c 63 68 61 |ToNumber|(txt,cha|
|00008c00| 70 2c 61 72 74 69 63 6c | 65 2c 6e 75 6d 29 0d 20 |p,articl|e,num). |
|00008c10| 20 20 20 20 20 20 20 69 | 66 20 6e 75 6d 20 3d 20 |       i|f num = |
|00008c20| 2d 31 20 74 68 65 6e 20 | 0d 20 20 20 20 20 20 20 |-1 then |.       |
|00008c30| 20 20 20 72 65 74 75 72 | 6e 20 2d 31 0d 20 20 20 |   retur|n -1.   |
|00008c40| 20 20 20 20 20 20 20 65 | 78 69 74 0d 20 20 20 20 |       e|xit.    |
|00008c50| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|00008c60| 20 20 20 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 73 |   .    |    -- s|
|00008c70| 6f 6d 65 74 69 6d 65 73 | 20 74 68 65 20 74 65 78 |ometimes| the tex|
|00008c80| 74 20 69 73 20 6f 6e 20 | 74 68 65 20 6e 65 78 74 |t is on |the next|
|00008c90| 20 6c 69 6e 65 2c 20 69 | 6e 73 74 65 61 64 20 6f | line, i|nstead o|
|00008ca0| 66 20 6f 6e 20 74 68 65 | 20 73 61 6d 65 20 6c 69 |f on the| same li|
|00008cb0| 6e 65 0d 20 20 20 20 20 | 20 20 20 69 66 20 6e 6f |ne.     |   if no|
|00008cc0| 74 45 6d 70 74 79 28 6c | 69 6e 65 20 28 6e 75 6d |tEmpty(l|ine (num|
|00008cd0| 2b 31 29 20 6f 66 20 74 | 78 74 29 20 74 68 65 6e |+1) of t|xt) then|
|00008ce0| 0d 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 6e |.       |   set n|
|00008cf0| 75 6d 20 3d 20 6e 75 6d | 2b 31 0d 20 20 20 20 20 |um = num|+1.     |
|00008d00| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 20 20 |   else.|        |
|00008d10| 20 20 64 65 6c 65 74 65 | 20 77 6f 72 64 20 31 20 |  delete| word 1 |
|00008d20| 6f 66 20 6c 69 6e 65 20 | 6e 75 6d 20 6f 66 20 74 |of line |num of t|
|00008d30| 78 74 20 0d 20 20 20 20 | 20 20 20 20 65 6e 64 20 |xt .    |    end |
|00008d40| 69 66 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |if.     |   .    |
|00008d50| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 69 66 20 |    .   |     if |
|00008d60| 64 65 62 75 67 20 74 68 | 65 6e 20 70 75 74 20 63 |debug th|en put c|
|00008d70| 68 61 70 20 26 20 22 2e | 22 20 26 20 61 72 74 69 |hap & ".|" & arti|
|00008d80| 63 6c 65 20 26 26 20 22 | 44 61 74 65 3a 22 20 26 |cle && "|Date:" &|
|00008d90| 26 20 6c 69 6e 65 20 6e | 75 6d 20 6f 66 20 74 78 |& line n|um of tx|
|00008da0| 74 20 69 6e 74 6f 20 6c | 69 6e 65 20 c2 0d 20 20 |t into l|ine ..  |
|00008db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 28 74 68 |        |    ((th|
|00008dc0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |e number| of line|
|00008dd0| 73 20 6f 66 20 66 69 65 | 6c 64 20 22 70 61 72 73 |s of fie|ld "pars|
|00008de0| 65 64 22 29 20 2b 20 31 | 29 20 6f 66 20 66 69 65 |ed") + 1|) of fie|
|00008df0| 6c 64 20 22 70 61 72 73 | 65 64 22 20 0d 20 20 20 |ld "pars|ed" .   |
|00008e00| 20 20 20 20 20 61 64 64 | 28 74 6d 70 64 61 74 65 |     add|(tmpdate|
|00008e10| 73 2c 61 72 74 69 63 6c | 65 2c 20 6c 69 6e 65 20 |s,articl|e, line |
|00008e20| 6e 75 6d 20 6f 66 20 74 | 78 74 29 0d 20 20 20 20 |num of t|xt).    |
|00008e30| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |    .   |     -- |
|00008e40| 73 6b 69 70 20 74 6f 20 | 74 68 65 20 6e 65 78 74 |skip to |the next|
|00008e50| 20 6e 75 6d 62 65 72 65 | 64 20 6c 69 6e 65 2c 20 | numbere|d line, |
|00008e60| 65 67 2e 20 32 2e 32 20 | 6f 72 20 33 2e 35 0d 20 |eg. 2.2 |or 3.5. |
|00008e70| 20 20 20 20 20 20 20 73 | 65 74 20 6e 75 6d 20 3d |       s|et num =|
|00008e80| 20 6e 75 6d 20 2b 20 31 | 0d 20 20 20 20 20 20 20 | num + 1|.       |
|00008e90| 20 73 65 74 20 6e 75 6d | 20 3d 20 53 6b 69 70 54 | set num| = SkipT|
|00008ea0| 6f 4e 75 6d 62 65 72 28 | 74 78 74 2c 63 68 61 70 |oNumber(|txt,chap|
|00008eb0| 2c 61 72 74 69 63 6c 65 | 2c 6e 75 6d 29 0d 20 20 |,article|,num).  |
|00008ec0| 20 20 20 20 20 20 69 66 | 20 6e 75 6d 20 3d 20 2d |      if| num = -|
|00008ed0| 31 20 74 68 65 6e 20 0d | 20 20 20 20 20 20 20 20 |1 then .|        |
|00008ee0| 20 20 72 65 74 75 72 6e | 20 2d 31 0d 20 20 20 20 |  return| -1.    |
|00008ef0| 20 20 20 20 20 20 65 78 | 69 74 0d 20 20 20 20 20 |      ex|it.     |
|00008f00| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|00008f10| 20 20 0d 20 20 20 20 20 | 20 20 20 2d 2d 20 69 66 |  .     |   -- if|
|00008f20| 20 74 68 65 20 6c 69 6e | 65 20 64 6f 65 73 6e 27 | the lin|e doesn'|
|00008f30| 74 20 63 6f 6e 74 61 69 | 6e 20 74 68 65 20 77 6f |t contai|n the wo|
|00008f40| 72 64 20 63 61 70 74 69 | 6f 6e 2c 20 74 68 65 6e |rd capti|on, then|
|00008f50| 20 74 68 65 72 65 27 73 | 20 61 20 6d 69 73 74 61 | there's| a mista|
|00008f60| 6b 65 0d 20 20 20 20 20 | 20 20 20 69 66 20 6e 6f |ke.     |   if no|
|00008f70| 74 20 28 6c 69 6e 65 20 | 6e 75 6d 20 6f 66 20 74 |t (line |num of t|
|00008f80| 78 74 20 63 6f 6e 74 61 | 69 6e 73 20 28 22 63 61 |xt conta|ins ("ca|
|00008f90| 70 74 69 6f 6e 22 29 29 | 20 74 68 65 6e 0d 20 20 |ption"))| then.  |
|00008fa0| 20 20 20 20 20 20 20 20 | 70 75 74 20 22 65 72 72 |        |put "err|
|00008fb0| 6f 72 3a 20 22 20 26 26 | 20 63 68 61 70 20 26 20 |or: " &&| chap & |
|00008fc0| 22 2e 22 20 26 20 61 72 | 74 69 63 6c 65 20 26 26 |"." & ar|ticle &&|
|00008fd0| 20 22 73 68 6f 75 6c 64 | 20 68 61 76 65 20 61 20 | "should| have a |
|00008fe0| 63 61 70 74 69 6f 6e 22 | 0d 20 20 20 20 20 20 20 |caption"|.       |
|00008ff0| 20 20 20 72 65 74 75 72 | 6e 20 2d 31 0d 20 20 20 |   retur|n -1.   |
|00009000| 20 20 20 20 20 20 20 65 | 78 69 74 0d 20 20 20 20 |       e|xit.    |
|00009010| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|00009020| 20 20 20 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 74 |   .    |    -- t|
|00009030| 68 65 20 63 61 70 74 69 | 6f 6e 20 69 73 20 6f 6e |he capti|on is on|
|00009040| 20 74 68 65 20 6c 69 6e | 65 20 66 6f 6c 6c 6f 77 | the lin|e follow|
|00009050| 69 6e 67 20 74 68 65 20 | 63 61 70 74 69 6f 6e 0d |ing the |caption.|
|00009060| 20 20 20 20 20 20 20 20 | 73 65 74 20 6e 75 6d 20 |        |set num |
|00009070| 3d 20 6e 75 6d 20 2b 20 | 31 20 20 20 20 0d 20 20 |= num + |1    .  |
|00009080| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 69 |      . |       i|
|00009090| 66 20 64 65 62 75 67 20 | 74 68 65 6e 20 70 75 74 |f debug |then put|
|000090a0| 20 63 68 61 70 20 26 20 | 22 2e 22 20 26 20 61 72 | chap & |"." & ar|
|000090b0| 74 69 63 6c 65 20 26 26 | 20 22 43 61 70 74 69 6f |ticle &&| "Captio|
|000090c0| 6e 3a 22 20 26 26 20 6c | 69 6e 65 20 6e 75 6d 20 |n:" && l|ine num |
|000090d0| 6f 66 20 74 78 74 20 69 | 6e 74 6f 20 6c 69 6e 65 |of txt i|nto line|
|000090e0| 20 c2 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|000090f0| 20 28 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | ((the n|umber of|
|00009100| 20 6c 69 6e 65 73 20 6f | 66 20 66 69 65 6c 64 20 | lines o|f field |
|00009110| 22 70 61 72 73 65 64 22 | 29 20 2b 20 31 29 20 6f |"parsed"|) + 1) o|
|00009120| 66 20 66 69 65 6c 64 20 | 22 70 61 72 73 65 64 22 |f field |"parsed"|
|00009130| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|00009140| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|00009150| 20 22 23 22 0d 20 20 20 | 20 20 20 20 20 70 75 74 | "#".   |     put|
|00009160| 20 6c 69 6e 65 20 6e 75 | 6d 20 6f 66 20 74 78 74 | line nu|m of txt|
|00009170| 20 69 6e 74 6f 20 69 74 | 65 6d 20 61 72 74 69 63 | into it|em artic|
|00009180| 6c 65 20 6f 66 20 74 6d | 70 63 61 70 74 69 6f 6e |le of tm|pcaption|
|00009190| 73 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 |s.      |  set th|
|000091a0| 65 20 69 74 65 6d 64 65 | 6c 69 6d 69 74 65 72 20 |e itemde|limiter |
|000091b0| 3d 20 22 2c 22 0d 20 20 | 20 20 20 20 20 20 0d 20 |= ",".  |      . |
|000091c0| 20 20 20 20 20 20 20 2d | 2d 61 64 64 28 74 6d 70 |       -|-add(tmp|
|000091d0| 63 61 70 74 69 6f 6e 73 | 2c 61 72 74 69 63 6c 65 |captions|,article|
|000091e0| 2c 6c 69 6e 65 20 6e 75 | 6d 20 6f 66 20 74 78 74 |,line nu|m of txt|
|000091f0| 29 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |).      |  .     |
|00009200| 20 65 6c 73 65 20 2d 2d | 20 6f 74 68 65 72 20 73 | else --| other s|
|00009210| 74 75 66 66 20 28 73 6b | 79 2c 20 72 61 64 69 6f |tuff (sk|y, radio|
|00009220| 20 69 6e 74 65 72 76 69 | 65 77 2c 20 65 74 63 2e | intervi|ew, etc.|
|00009230| 29 0d 20 20 20 20 20 20 | 20 20 2d 2d 20 4f 54 48 |).      |  -- OTH|
|00009240| 45 52 20 53 54 55 46 46 | 0d 20 20 20 20 20 20 20 |ER STUFF|.       |
|00009250| 20 73 65 74 20 61 72 74 | 69 63 6c 65 20 3d 20 61 | set art|icle = a|
|00009260| 72 74 69 63 6c 65 20 2b | 20 31 0d 20 20 20 20 20 |rticle +| 1.     |
|00009270| 20 20 20 64 65 6c 65 74 | 65 20 77 6f 72 64 20 31 |   delet|e word 1|
|00009280| 20 6f 66 20 6c 6e 0d 20 | 20 20 20 20 20 20 20 61 | of ln. |       a|
|00009290| 64 64 28 74 6d 70 6c 69 | 73 74 2c 6c 6e 29 0d 20 |dd(tmpli|st,ln). |
|000092a0| 20 20 20 20 20 20 20 73 | 65 74 20 6e 75 6d 20 3d |       s|et num =|
|000092b0| 20 6e 75 6d 20 2b 20 31 | 0d 20 20 20 20 20 20 20 | num + 1|.       |
|000092c0| 20 69 66 20 64 65 62 75 | 67 20 74 68 65 6e 20 70 | if debu|g then p|
|000092d0| 75 74 20 63 68 61 70 20 | 26 20 22 2e 22 20 26 20 |ut chap |& "." & |
|000092e0| 61 72 74 69 63 6c 65 20 | 26 26 20 6c 6e 20 26 26 |article |&& ln &&|
|000092f0| 20 6c 69 6e 65 20 6e 75 | 6d 20 6f 66 20 74 78 74 | line nu|m of txt|
|00009300| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 c2 0d 20 20 20 | into li|ne ..   |
|00009310| 20 20 20 20 20 20 20 20 | 20 20 20 28 28 74 68 65 |        |   ((the|
|00009320| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|00009330| 20 6f 66 20 66 69 65 6c | 64 20 22 70 61 72 73 65 | of fiel|d "parse|
|00009340| 64 22 29 20 2b 20 31 29 | 20 6f 66 20 66 69 65 6c |d") + 1)| of fiel|
|00009350| 64 20 22 70 61 72 73 65 | 64 22 0d 20 20 20 20 20 |d "parse|d".     |
|00009360| 20 65 6e 64 20 69 66 20 | 20 20 20 20 0d 20 20 20 | end if |    .   |
|00009370| 20 65 6e 64 20 69 66 20 | 20 0d 20 20 65 6e 64 20 | end if | .  end |
|00009380| 72 65 70 65 61 74 20 20 | 0d 20 20 0d 20 20 0d 20 |repeat  |.  .  . |
|00009390| 20 2d 2d 20 67 43 68 61 | 70 74 65 72 73 2c 20 67 | -- gCha|pters, g|
|000093a0| 41 72 74 69 63 6c 65 73 | 2c 20 67 43 61 70 74 69 |Articles|, gCapti|
|000093b0| 6f 6e 73 2c 20 67 54 69 | 74 6c 65 73 2c 20 67 44 |ons, gTi|tles, gD|
|000093c0| 61 74 65 73 2c 20 67 4e | 61 6d 65 0d 20 20 61 64 |ates, gN|ame.  ad|
|000093d0| 64 61 74 28 67 43 68 61 | 70 74 65 72 73 2c 31 2c |dat(gCha|pters,1,|
|000093e0| 22 49 4e 54 52 4f 22 29 | 0d 20 20 61 64 64 61 74 |"INTRO")|.  addat|
|000093f0| 28 67 41 72 74 69 63 6c | 65 73 2c 31 2c 5b 22 50 |(gArticl|es,1,["P|
|00009400| 61 72 74 77 6f 72 6b 22 | 5d 29 0d 20 20 0d 20 20 |artwork"|]).  .  |
|00009410| 2d 2d 61 64 64 61 74 28 | 67 43 61 70 74 69 6f 6e |--addat(|gCaption|
|00009420| 73 2c 31 2c 5b 5d 29 0d | 20 20 2d 2d 61 64 64 61 |s,1,[]).|  --adda|
|00009430| 74 28 67 54 69 74 6c 65 | 73 2c 31 2c 5b 5d 29 0d |t(gTitle|s,1,[]).|
|00009440| 20 20 61 64 64 61 74 28 | 67 44 61 74 65 73 2c 31 |  addat(|gDates,1|
|00009450| 2c 5b 5d 29 0d 20 20 73 | 65 74 20 67 54 6f 74 61 |,[]).  s|et gTota|
|00009460| 6c 43 68 61 70 74 65 72 | 73 20 3d 20 63 6f 75 6e |lChapter|s = coun|
|00009470| 74 28 67 43 68 61 70 74 | 65 72 73 29 0d 20 20 0d |t(gChapt|ers).  .|
|00009480| 20 20 72 65 74 75 72 6e | 20 30 0d 65 6e 64 0d 2d |  return| 0.end.-|
|00009490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000094a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000094b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000094c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000094d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000094e0| 6f 6e 20 6e 6f 74 45 6d | 70 74 79 20 73 74 72 0d |on notEm|pty str.|
|000094f0| 20 20 2d 2d 20 66 69 6e | 64 20 6f 75 74 20 69 66 |  -- fin|d out if|
|00009500| 20 61 20 73 74 72 69 6e | 67 20 69 73 20 65 6d 70 | a strin|g is emp|
|00009510| 74 79 0d 20 20 2d 2d 20 | 61 20 73 74 72 69 6e 67 |ty.  -- |a string|
|00009520| 20 69 73 20 6e 6f 74 20 | 65 6d 70 74 79 20 69 66 | is not |empty if|
|00009530| 3a 0d 20 20 2d 2d 20 20 | 20 20 69 74 20 63 6f 6e |:.  --  |  it con|
|00009540| 74 61 69 6e 73 20 6d 6f | 72 65 20 74 68 61 6e 20 |tains mo|re than |
|00009550| 66 69 76 65 20 63 68 61 | 72 61 63 74 65 72 73 0d |five cha|racters.|
|00009560| 20 20 2d 2d 20 20 20 20 | 69 66 20 69 74 20 63 6f |  --    |if it co|
|00009570| 6e 74 61 69 6e 73 20 6c | 65 73 73 20 74 68 61 6e |ntains l|ess than|
|00009580| 20 66 69 76 65 20 63 68 | 61 72 61 63 74 65 72 73 | five ch|aracters|
|00009590| 2c 20 69 74 20 6d 75 73 | 74 20 63 6f 6e 74 61 69 |, it mus|t contai|
|000095a0| 6e 20 61 0d 20 20 2d 2d | 20 20 20 20 70 72 69 6e |n a.  --|    prin|
|000095b0| 74 69 6e 67 20 63 68 61 | 72 61 63 74 65 72 2c 20 |ting cha|racter, |
|000095c0| 69 65 2e 20 61 20 6c 65 | 74 74 65 72 2c 6e 75 6d |ie. a le|tter,num|
|000095d0| 62 65 72 2c 20 6f 72 20 | 70 75 6e 63 74 75 61 74 |ber, or |punctuat|
|000095e0| 69 6f 6e 0d 20 20 0d 20 | 20 73 65 74 20 6e 75 6d |ion.  . | set num|
|000095f0| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|00009600| 20 63 68 61 72 73 20 6f | 66 20 73 74 72 0d 20 20 | chars o|f str.  |
|00009610| 69 66 20 6e 75 6d 20 3e | 20 35 20 74 68 65 6e 20 |if num >| 5 then |
|00009620| 72 65 74 75 72 6e 20 31 | 0d 20 20 0d 20 20 73 65 |return 1|.  .  se|
|00009630| 74 20 61 6c 70 68 61 6e | 75 6d 20 3d 20 22 61 62 |t alphan|um = "ab|
|00009640| 63 64 65 66 67 68 69 6a | 6b 6c 6d 6e 6f 70 71 72 |cdefghij|klmnopqr|
|00009650| 73 74 75 76 77 78 79 7a | 31 32 33 34 35 36 37 38 |stuvwxyz|12345678|
|00009660| 39 30 21 40 24 25 5e 26 | 2a 28 29 2d 3d 5f 2b 7b |90!@$%^&|*()-=_+{|
|00009670| 7d 5b 5d 3b 3a 27 5c 7c | 2c 2e 3c 3e 2f 3f 60 7e |}[];:'\||,.<>/?`~|
|00009680| 22 0d 20 20 0d 20 20 72 | 65 70 65 61 74 20 77 69 |".  .  r|epeat wi|
|00009690| 74 68 20 6a 20 3d 20 31 | 20 74 6f 20 6e 75 6d 0d |th j = 1| to num.|
|000096a0| 20 20 20 20 0d 20 20 20 | 20 69 66 20 61 6c 70 68 |    .   | if alph|
|000096b0| 61 6e 75 6d 20 63 6f 6e | 74 61 69 6e 73 20 63 68 |anum con|tains ch|
|000096c0| 61 72 20 6a 20 6f 66 20 | 73 74 72 20 74 68 65 6e |ar j of |str then|
|000096d0| 20 0d 20 20 20 20 20 20 | 72 65 74 75 72 6e 20 31 | .      |return 1|
|000096e0| 0d 20 20 20 20 20 20 65 | 78 69 74 20 72 65 70 65 |.      e|xit repe|
|000096f0| 61 74 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |at.    e|nd if.  |
|00009700| 20 20 0d 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |  .  end| repeat.|
|00009710| 20 20 0d 20 20 72 65 74 | 75 72 6e 20 30 0d 65 6e |  .  ret|urn 0.en|
|00009720| 64 0d 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d..-----|--------|
|00009730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00009740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00009750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00009760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00009770| 2d 2d 2d 0d 6f 6e 20 53 | 6b 69 70 54 6f 4e 75 6d |---.on S|kipToNum|
|00009780| 62 65 72 20 74 78 74 2c | 63 68 61 70 2c 61 72 74 |ber txt,|chap,art|
|00009790| 2c 6e 75 6d 0d 20 20 0d | 20 20 73 65 74 20 73 74 |,num.  .|  set st|
|000097a0| 61 72 74 20 3d 20 6e 75 | 6d 0d 20 20 0d 20 20 72 |art = nu|m.  .  r|
|000097b0| 65 70 65 61 74 20 77 68 | 69 6c 65 20 63 68 61 72 |epeat wh|ile char|
|000097c0| 20 31 20 6f 66 20 77 6f | 72 64 20 31 20 6f 66 20 | 1 of wo|rd 1 of |
|000097d0| 28 6c 69 6e 65 20 6e 75 | 6d 20 6f 66 20 74 78 74 |(line nu|m of txt|
|000097e0| 29 20 3c 3e 20 73 74 72 | 69 6e 67 28 63 68 61 70 |) <> str|ing(chap|
|000097f0| 29 0d 20 20 20 20 73 65 | 74 20 6e 75 6d 20 3d 20 |).    se|t num = |
|00009800| 6e 75 6d 20 2b 20 31 20 | 20 0d 20 20 20 20 69 66 |num + 1 | .    if|
|00009810| 20 28 6e 75 6d 20 2d 20 | 73 74 61 72 74 29 20 3e | (num - |start) >|
|00009820| 20 35 20 74 68 65 6e 0d | 20 20 20 20 20 20 70 75 | 5 then.|      pu|
|00009830| 74 20 22 45 72 72 6f 72 | 20 69 6e 20 22 20 26 26 |t "Error| in " &&|
|00009840| 20 63 68 61 70 20 26 22 | 2e 22 26 61 72 74 0d 20 | chap &"|."&art. |
|00009850| 20 20 20 20 20 72 65 74 | 75 72 6e 20 2d 31 0d 20 |     ret|urn -1. |
|00009860| 20 20 20 20 20 65 78 69 | 74 0d 20 20 20 20 65 6e |     exi|t.    en|
|00009870| 64 20 69 66 20 20 20 20 | 0d 20 20 65 6e 64 20 72 |d if    |.  end r|
|00009880| 65 70 65 61 74 0d 20 20 | 0d 20 20 72 65 74 75 72 |epeat.  |.  retur|
|00009890| 6e 20 6e 75 6d 20 0d 65 | 6e 64 0d 00 32 00 32 01 |n num .e|nd..2.2.|
|000098a0| 82 02 2c 00 00 01 f7 00 | 00 02 12 00 b4 8c dc 00 |..,.....|........|
|000098b0| 15 00 00 00 00 00 0b 00 | 09 00 04 00 00 00 09 00 |........|........|
|000098c0| 00 00 00 00 00 00 00 13 | 32 00 0b 00 09 00 04 00 |........|2.......|
|000098d0| 00 00 09 ac ac 11 11 09 | 09 00 00 13 62 00 0b 00 |........|....b...|
|000098e0| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 00 14 |........|........|
|000098f0| ab 00 0b 00 09 00 04 00 | 00 00 09 ac ac 11 11 09 |........|........|
|00009900| 09 00 00 14 b8 00 0b 00 | 09 00 04 00 00 00 09 00 |........|........|
|00009910| 00 00 00 00 00 00 00 15 | f0 00 0b 00 09 00 04 00 |........|........|
|00009920| 00 00 09 ac ac 11 11 09 | 09 00 00 16 03 00 0b 00 |........|........|
|00009930| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 00 21 |........|.......!|
|00009940| 37 00 0b 00 09 00 04 00 | 00 00 09 ac ac 11 11 09 |7.......|........|
|00009950| 09 00 00 21 41 00 0b 00 | 09 00 04 00 00 00 09 00 |...!A...|........|
|00009960| 00 00 00 00 00 00 00 24 | 11 00 0b 00 09 00 04 00 |.......$|........|
|00009970| 00 00 09 ac ac 11 11 09 | 09 00 00 24 19 00 0b 00 |........|...$....|
|00009980| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 00 29 |........|.......)|
|00009990| 18 00 0b 00 09 00 04 00 | 00 00 09 ac ac 11 11 09 |........|........|
|000099a0| 09 00 00 29 22 00 0b 00 | 09 00 04 00 00 00 09 00 |...)"...|........|
|000099b0| 00 00 00 00 00 00 00 2e | cd 00 0b 00 09 00 04 00 |........|........|
|000099c0| 00 00 09 ac ac 11 11 09 | 09 00 00 2e d5 00 0b 00 |........|........|
|000099d0| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 00 34 |........|.......4|
|000099e0| 63 00 0b 00 09 00 04 00 | 00 00 09 ac ac 11 11 09 |c.......|........|
|000099f0| 09 00 00 34 6e 00 0b 00 | 09 00 04 00 00 00 09 00 |...4n...|........|
|00009a00| 00 00 00 00 00 00 00 39 | ad 00 0b 00 09 00 04 00 |.......9|........|
|00009a10| 00 00 09 ac ac 11 11 09 | 09 00 00 39 c0 00 0b 00 |........|...9....|
|00009a20| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 00 44 |........|.......D|
|00009a30| 9e 00 0b 00 09 00 04 00 | 00 00 09 ac ac 11 11 09 |........|........|
|00009a40| 09 00 00 44 ac 00 0b 00 | 09 00 04 00 00 00 09 00 |...D....|........|
|00009a50| 00 00 00 00 00 20 43 41 | 53 74 00 00 5c e3 00 04 |..... CA|St..\...|
|00009a60| 00 00 5c d9 0b 00 00 03 | 00 00 00 14 00 c2 eb bc |..\.....|........|
|00009a70| 00 00 00 00 00 00 00 00 | 00 00 00 04 00 07 00 00 |........|........|
|00009a80| 00 00 00 00 5c 78 00 00 | 5c 79 00 00 5c 79 00 00 |....\x..|\y..\y..|
|00009a90| 5c 79 00 00 5c 79 00 00 | 5c 8d 00 00 5c a3 2d 2d |\y..\y..|\...\.--|
|00009aa0| 20 67 65 74 20 74 68 65 | 20 72 65 71 75 65 73 74 | get the| request|
|00009ab0| 65 64 20 61 72 74 69 63 | 6c 65 20 6f 66 20 74 68 |ed artic|le of th|
|00009ac0| 65 20 63 75 72 72 65 6e | 74 20 63 68 61 70 74 65 |e curren|t chapte|
|00009ad0| 72 0d 6f 6e 20 47 6f 41 | 72 74 69 63 6c 65 0d 20 |r.on GoA|rticle. |
|00009ae0| 20 67 6c 6f 62 61 6c 20 | 67 43 68 61 70 74 65 72 | global |gChapter|
|00009af0| 73 2c 20 67 54 69 74 6c | 65 73 2c 20 67 41 72 74 |s, gTitl|es, gArt|
|00009b00| 69 63 6c 65 73 2c 20 67 | 44 61 74 65 73 2c 20 67 |icles, g|Dates, g|
|00009b10| 43 61 70 74 69 6f 6e 73 | 2c 20 67 43 75 72 43 75 |Captions|, gCurCu|
|00009b20| 74 74 69 6e 67 0d 20 20 | 67 6c 6f 62 61 6c 20 67 |tting.  |global g|
|00009b30| 43 75 72 43 68 61 70 2c | 20 67 43 75 72 41 72 74 |CurChap,| gCurArt|
|00009b40| 69 63 6c 65 2c 20 67 4e | 61 6d 65 2c 20 6d 79 74 |icle, gN|ame, myt|
|00009b50| 65 78 74 2c 20 67 41 72 | 74 69 63 6c 65 50 61 67 |ext, gAr|ticlePag|
|00009b60| 65 2c 20 67 46 75 6c 6c | 43 75 74 74 69 6e 67 73 |e, gFull|Cuttings|
|00009b70| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 46 6f 72 6d 61 |.  globa|l gForma|
|00009b80| 74 74 65 64 54 65 78 74 | 2c 20 67 54 65 78 74 50 |ttedText|, gTextP|
|00009b90| 61 67 65 73 2c 20 67 4d | 61 78 4c 69 6e 65 73 2c |ages, gM|axLines,|
|00009ba0| 20 67 43 75 72 49 6e 64 | 65 78 2c 20 67 57 6f 72 | gCurInd|ex, gWor|
|00009bb0| 6c 64 2c 20 67 53 65 65 | 6e 4d 61 70 73 0d 20 20 |ld, gSee|nMaps.  |
|00009bc0| 67 6c 6f 62 61 6c 20 67 | 50 61 70 65 72 4c 6f 63 |global g|PaperLoc|
|00009bd0| 68 2c 20 67 4d 61 6b 65 | 72 4e 61 6d 65 2c 20 67 |h, gMake|rName, g|
|00009be0| 48 65 61 64 6c 6f 63 48 | 2c 20 67 4e 61 6d 65 4c |HeadlocH|, gNameL|
|00009bf0| 6f 63 68 2c 20 67 4e 61 | 6d 65 4c 6f 63 76 0d 20 |och, gNa|meLocv. |
|00009c00| 20 67 6c 6f 62 61 6c 20 | 67 4d 61 6b 65 72 4e 75 | global |gMakerNu|
|00009c10| 6d 2c 20 67 51 54 70 61 | 74 68 2c 20 67 53 6f 75 |m, gQTpa|th, gSou|
|00009c20| 6e 64 50 61 74 68 2c 20 | 67 4e 75 67 67 65 74 54 |ndPath, |gNuggetT|
|00009c30| 69 6d 65 2c 20 67 4e 75 | 67 67 65 74 44 65 6c 61 |ime, gNu|ggetDela|
|00009c40| 79 2c 20 67 4e 61 6d 65 | 43 61 73 74 6e 75 6d 0d |y, gName|Castnum.|
|00009c50| 20 20 67 6c 6f 62 61 6c | 20 67 49 6e 41 4d 61 70 |  global| gInAMap|
|00009c60| 2c 20 67 43 75 72 54 79 | 70 65 2c 20 67 50 72 69 |, gCurTy|pe, gPri|
|00009c70| 6e 74 48 65 61 64 2c 20 | 67 43 75 72 50 69 63 2c |ntHead, |gCurPic,|
|00009c80| 20 67 4e 75 67 67 65 74 | 4f 6e 0d 20 20 0d 20 20 | gNugget|On.  .  |
|00009c90| 73 65 74 20 67 4e 75 67 | 67 65 74 54 69 6d 65 20 |set gNug|getTime |
|00009ca0| 3d 20 74 68 65 20 74 69 | 63 6b 73 0d 20 20 73 65 |= the ti|cks.  se|
|00009cb0| 74 20 67 4e 75 67 67 65 | 74 4f 6e 20 3d 20 30 0d |t gNugge|tOn = 0.|
|00009cc0| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f |  set th|e text o|
|00009cd0| 66 20 66 69 65 6c 64 20 | 22 41 72 74 69 63 6c 65 |f field |"Article|
|00009ce0| 4e 75 6d 62 65 72 22 20 | 3d 20 67 4d 61 6b 65 72 |Number" |= gMaker|
|00009cf0| 4e 75 6d 20 26 20 22 3a | 22 20 26 26 20 67 43 75 |Num & ":|" && gCu|
|00009d00| 72 43 68 61 70 20 26 20 | 22 2e 22 20 26 20 67 43 |rChap & |"." & gC|
|00009d10| 75 72 41 72 74 69 63 6c | 65 0d 20 20 73 65 74 20 |urArticl|e.  set |
|00009d20| 74 79 70 65 20 3d 20 67 | 65 74 41 74 28 67 65 74 |type = g|etAt(get|
|00009d30| 61 74 28 67 41 72 74 69 | 63 6c 65 73 2c 67 43 75 |at(gArti|cles,gCu|
|00009d40| 72 43 68 61 70 29 2c 20 | 67 43 75 72 41 72 74 69 |rChap), |gCurArti|
|00009d50| 63 6c 65 29 0d 20 20 73 | 65 74 20 67 43 75 72 54 |cle).  s|et gCurT|
|00009d60| 79 70 65 20 3d 20 74 79 | 70 65 0d 20 20 73 65 74 |ype = ty|pe.  set|
|00009d70| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 39 20 20 | picspri|te = 9  |
|00009d80| 2d 2d 20 74 68 65 20 73 | 70 72 69 74 65 20 74 68 |-- the s|prite th|
|00009d90| 65 20 70 69 63 74 20 61 | 70 70 65 61 72 73 20 6f |e pict a|ppears o|
|00009da0| 6e 0d 20 20 73 65 74 20 | 63 75 74 74 69 6e 67 73 |n.  set |cuttings|
|00009db0| 70 72 69 74 65 20 3d 20 | 36 0d 20 20 73 65 74 20 |prite = |6.  set |
|00009dc0| 74 69 74 6c 65 73 70 72 | 69 74 65 20 3d 20 38 0d |titlespr|ite = 8.|
|00009dd0| 20 20 73 65 74 20 70 61 | 70 65 72 73 70 72 69 74 |  set pa|persprit|
|00009de0| 65 20 3d 20 31 31 0d 20 | 20 73 65 74 20 64 61 74 |e = 11. | set dat|
|00009df0| 65 73 70 72 69 74 65 20 | 3d 20 31 32 0d 20 20 73 |esprite |= 12.  s|
|00009e00| 65 74 20 63 61 70 74 69 | 6f 6e 73 70 72 69 74 65 |et capti|onsprite|
|00009e10| 20 3d 20 37 0d 20 20 73 | 65 74 20 66 6f 72 77 61 | = 7.  s|et forwa|
|00009e20| 72 64 62 75 74 74 6f 6e | 20 3d 20 32 30 0d 20 20 |rdbutton| = 20.  |
|00009e30| 73 65 74 20 62 61 63 6b | 62 75 74 74 6f 6e 20 3d |set back|button =|
|00009e40| 20 31 39 0d 20 20 73 65 | 74 20 68 65 61 64 73 70 | 19.  se|t headsp|
|00009e50| 72 69 74 65 20 3d 20 31 | 30 20 20 0d 20 20 73 65 |rite = 1|0  .  se|
|00009e60| 74 20 6e 61 6d 65 73 70 | 72 69 74 65 20 3d 20 34 |t namesp|rite = 4|
|00009e70| 0d 20 20 73 65 74 20 68 | 65 61 64 6c 6f 63 68 20 |.  set h|eadloch |
|00009e80| 3d 20 67 48 65 61 64 6c | 6f 63 68 20 20 2d 2d 20 |= gHeadl|och  -- |
|00009e90| 74 68 65 20 6c 6f 63 68 | 20 6f 66 20 74 68 65 20 |the loch| of the |
|00009ea0| 68 65 61 64 73 68 6f 74 | 20 73 70 72 69 74 65 0d |headshot| sprite.|
|00009eb0| 20 20 73 65 74 20 67 49 | 6e 41 4d 61 70 20 3d 20 |  set gI|nAMap = |
|00009ec0| 30 0d 20 20 73 65 74 20 | 67 50 72 69 6e 74 48 65 |0.  set |gPrintHe|
|00009ed0| 61 64 20 3d 20 22 22 0d | 20 20 0d 20 20 70 75 70 |ad = "".|  .  pup|
|00009ee0| 70 65 74 74 65 6d 70 6f | 20 32 35 0d 20 20 0d 20 |pettempo| 25.  . |
|00009ef0| 20 73 6f 75 6e 64 20 70 | 6c 61 79 66 69 6c 65 20 | sound p|layfile |
|00009f00| 31 2c 67 53 6f 75 6e 64 | 50 61 74 68 20 26 20 22 |1,gSound|Path & "|
|00009f10| 53 22 20 26 20 67 4d 61 | 6b 65 72 4e 75 6d 20 26 |S" & gMa|kerNum &|
|00009f20| 20 22 41 22 20 26 20 67 | 43 75 72 43 68 61 70 20 | "A" & g|CurChap |
|00009f30| 26 20 67 43 75 72 41 72 | 74 69 63 6c 65 0d 20 20 |& gCurAr|ticle.  |
|00009f40| 0d 20 20 69 66 20 6e 6f | 74 28 74 68 65 20 66 72 |.  if no|t(the fr|
|00009f50| 61 6d 65 6c 61 62 65 6c | 20 63 6f 6e 74 61 69 6e |amelabel| contain|
|00009f60| 73 20 22 70 69 63 74 22 | 29 20 74 68 65 6e 20 2d |s "pict"|) then -|
|00009f70| 2d 20 69 73 20 74 68 65 | 72 65 20 61 20 70 69 63 |- is the|re a pic|
|00009f80| 74 20 74 6f 20 75 6e 6c | 6f 61 64 3f 3f 0d 20 20 |t to unl|oad??.  |
|00009f90| 20 20 73 65 74 20 67 43 | 75 72 50 69 63 20 3d 20 |  set gC|urPic = |
|00009fa0| 30 20 20 0d 20 20 65 6e | 64 20 69 66 0d 20 20 0d |0  .  en|d if.  .|
|00009fb0| 20 20 69 66 20 74 79 70 | 65 20 3c 3e 20 22 63 75 |  if typ|e <> "cu|
|00009fc0| 74 74 69 6e 67 22 20 61 | 6e 64 20 67 57 6f 72 6c |tting" a|nd gWorl|
|00009fd0| 64 20 3d 20 22 64 65 73 | 69 67 6e 22 20 61 6e 64 |d = "des|ign" and|
|00009fe0| 20 74 68 65 20 66 72 61 | 6d 65 6c 61 62 65 6c 20 | the fra|melabel |
|00009ff0| 3d 20 22 63 75 74 74 69 | 6e 67 22 20 74 68 65 6e |= "cutti|ng" then|
|0000a000| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |.    set| the loc|
|0000a010| 68 20 6f 66 20 73 70 72 | 69 74 65 20 6e 61 6d 65 |h of spr|ite name|
|0000a020| 73 70 72 69 74 65 20 3d | 20 31 30 30 30 0d 20 20 |sprite =| 1000.  |
|0000a030| 20 20 73 65 74 20 74 68 | 65 20 63 61 73 74 6e 75 |  set th|e castnu|
|0000a040| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 6e 61 6d 65 |m of spr|ite name|
|0000a050| 73 70 72 69 74 65 20 3d | 20 67 4e 61 6d 65 43 61 |sprite =| gNameCa|
|0000a060| 73 74 6e 75 6d 20 20 0d | 20 20 65 6e 64 20 69 66 |stnum  .|  end if|
|0000a070| 0d 20 20 0d 20 20 2d 2d | 20 73 65 65 20 69 66 20 |.  .  --| see if |
|0000a080| 77 65 20 77 65 72 65 20 | 69 6e 20 61 6e 20 61 6e |we were |in an an|
|0000a090| 69 6d 61 74 69 6f 6e 0d | 20 20 73 65 74 20 74 68 |imation.|  set th|
|0000a0a0| 65 20 69 74 65 6d 64 65 | 6c 69 6d 69 74 65 72 20 |e itemde|limiter |
|0000a0b0| 3d 20 22 2e 22 20 0d 20 | 20 73 65 74 20 74 6d 70 |= "." . | set tmp|
|0000a0c0| 20 3d 20 69 74 65 6d 20 | 32 20 6f 66 20 74 68 65 | = item |2 of the|
|0000a0d0| 20 66 72 61 6d 65 6c 61 | 62 65 6c 0d 20 20 73 65 | framela|bel.  se|
|0000a0e0| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|0000a0f0| 74 65 72 20 3d 20 22 2c | 22 20 0d 20 20 0d 20 20 |ter = ",|" .  .  |
|0000a100| 2d 2d 20 69 66 20 77 65 | 20 77 65 72 65 20 69 6e |-- if we| were in|
|0000a110| 20 61 6e 20 61 6e 69 6d | 61 74 69 6f 6e 20 74 68 | an anim|ation th|
|0000a120| 65 6e 20 63 6c 65 61 6e | 20 74 68 65 20 73 63 72 |en clean| the scr|
|0000a130| 65 65 6e 0d 20 20 69 66 | 20 74 6d 70 20 3d 20 22 |een.  if| tmp = "|
|0000a140| 61 6e 69 6d 22 20 6f 72 | 20 74 68 65 20 66 72 61 |anim" or| the fra|
|0000a150| 6d 65 6c 61 62 65 6c 20 | 3d 20 22 71 74 22 20 74 |melabel |= "qt" t|
|0000a160| 68 65 6e 0d 20 20 20 20 | 0d 20 20 20 20 69 66 20 |hen.    |.    if |
|0000a170| 74 68 65 20 66 72 61 6d | 65 6c 61 62 65 6c 20 3d |the fram|elabel =|
|0000a180| 20 22 71 74 22 20 74 68 | 65 6e 0d 20 20 20 20 20 | "qt" th|en.     |
|0000a190| 20 2d 2d 20 70 75 70 70 | 65 74 73 70 72 69 74 65 | -- pupp|etsprite|
|0000a1a0| 20 31 36 2c 31 0d 20 20 | 20 20 20 20 2d 2d 20 73 | 16,1.  |    -- s|
|0000a1b0| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|0000a1c0| 70 72 69 74 65 20 31 36 | 20 3d 20 31 30 30 30 0d |prite 16| = 1000.|
|0000a1d0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6d 6f |      se|t the mo|
|0000a1e0| 76 69 65 72 61 74 65 20 | 6f 66 20 73 70 72 69 74 |vierate |of sprit|
|0000a1f0| 65 20 31 36 20 3d 20 30 | 20 20 20 20 20 20 0d 20 |e 16 = 0|      . |
|0000a200| 20 20 20 20 20 75 70 64 | 61 74 65 73 74 61 67 65 |     upd|atestage|
|0000a210| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |.    end| if.    |
|0000a220| 0d 20 20 20 20 70 75 70 | 70 65 74 73 70 72 69 74 |.    pup|petsprit|
|0000a230| 65 20 34 37 2c 31 0d 20 | 20 20 20 73 65 74 20 74 |e 47,1. |   set t|
|0000a240| 68 65 20 63 61 73 74 6e | 75 6d 20 6f 66 20 73 70 |he castn|um of sp|
|0000a250| 72 69 74 65 20 34 37 20 | 3d 20 74 68 65 20 6e 75 |rite 47 |= the nu|
|0000a260| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 22 73 63 |mber of |cast "sc|
|0000a270| 72 65 65 6e 62 6c 61 6e | 6b 22 20 20 0d 20 20 20 |reenblan|k"  .   |
|0000a280| 20 73 70 72 69 74 65 42 | 6f 78 20 34 37 2c 20 30 | spriteB|ox 47, 0|
|0000a290| 2c 20 30 2c 20 36 34 30 | 2c 20 34 38 30 0d 20 20 |, 0, 640|, 480.  |
|0000a2a0| 20 20 75 70 64 61 74 65 | 73 74 61 67 65 0d 20 20 |  update|stage.  |
|0000a2b0| 20 20 70 75 70 70 65 74 | 73 70 72 69 74 65 20 34 |  puppet|sprite 4|
|0000a2c0| 37 2c 30 0d 20 20 20 20 | 0d 20 20 65 6e 64 20 69 |7,0.    |.  end i|
|0000a2d0| 66 0d 20 20 0d 20 20 2d | 2d 20 69 66 20 74 68 65 |f.  .  -|- if the|
|0000a2e0| 20 61 72 74 69 63 6c 65 | 20 69 73 20 61 20 50 49 | article| is a PI|
|0000a2f0| 43 54 20 74 68 65 6e 3a | 0d 20 20 69 66 20 74 79 |CT then:|.  if ty|
|0000a300| 70 65 20 3d 20 22 70 69 | 63 22 20 74 68 65 6e 0d |pe = "pi|c" then.|
|0000a310| 20 20 20 20 47 6f 50 69 | 63 74 41 72 74 69 63 6c |    GoPi|ctArticl|
|0000a320| 65 0d 20 20 20 20 0d 20 | 20 65 6c 73 65 20 69 66 |e.    . | else if|
|0000a330| 20 74 79 70 65 20 3d 20 | 22 61 6e 69 6d 61 74 69 | type = |"animati|
|0000a340| 6f 6e 22 20 74 68 65 6e | 0d 20 20 20 20 47 6f 41 |on" then|.    GoA|
|0000a350| 6e 69 6d 41 72 74 69 63 | 6c 65 0d 20 20 20 20 0d |nimArtic|le.    .|
|0000a360| 20 20 20 20 2d 2d 20 4d | 41 50 0d 20 20 65 6c 73 |    -- M|AP.  els|
|0000a370| 65 20 69 66 20 74 79 70 | 65 20 3d 20 22 6d 61 70 |e if typ|e = "map|
|0000a380| 22 20 74 68 65 6e 0d 20 | 20 20 20 0d 20 20 20 20 |" then. |   .    |
|0000a390| 73 65 74 20 67 49 6e 41 | 4d 61 70 20 3d 20 31 0d |set gInA|Map = 1.|
|0000a3a0| 20 20 20 20 0d 20 20 20 | 20 70 75 70 70 65 74 73 |    .   | puppets|
|0000a3b0| 70 72 69 74 65 20 66 6f | 72 77 61 72 64 62 75 74 |prite fo|rwardbut|
|0000a3c0| 74 6f 6e 2c 30 0d 20 20 | 20 20 70 75 70 70 65 74 |ton,0.  |  puppet|
|0000a3d0| 73 70 72 69 74 65 20 62 | 61 63 6b 62 75 74 74 6f |sprite b|ackbutto|
|0000a3e0| 6e 2c 30 0d 20 20 20 20 | 70 75 70 70 65 74 73 70 |n,0.    |puppetsp|
|0000a3f0| 72 69 74 65 20 70 61 70 | 65 72 73 70 72 69 74 65 |rite pap|ersprite|
|0000a400| 2c 30 0d 20 20 20 20 0d | 20 20 20 20 47 65 74 4d |,0.    .|    GetM|
|0000a410| 61 70 43 61 70 0d 20 20 | 20 20 0d 20 20 20 20 75 |apCap.  |  .    u|
|0000a420| 6e 70 75 70 70 65 74 20 | 22 34 2c 31 30 22 20 20 |npuppet |"4,10"  |
|0000a430| 20 20 20 20 0d 20 20 20 | 20 0d 20 20 20 20 67 6f |    .   | .    go|
|0000a440| 20 74 6f 20 66 72 61 6d | 65 20 67 4d 61 6b 65 72 | to fram|e gMaker|
|0000a450| 4e 61 6d 65 0d 20 20 20 | 20 43 6c 65 61 6e 4d 65 |Name.   | CleanMe|
|0000a460| 6d 0d 20 20 20 20 70 75 | 70 70 65 74 74 65 6d 70 |m.    pu|ppettemp|
|0000a470| 6f 20 31 32 0d 20 20 20 | 20 73 65 74 20 74 68 65 |o 12.   | set the|
|0000a480| 20 76 69 73 69 62 69 6c | 69 74 79 20 6f 66 20 73 | visibil|ity of s|
|0000a490| 70 72 69 74 65 20 31 39 | 20 3d 20 31 0d 20 20 20 |prite 19| = 1.   |
|0000a4a0| 20 73 65 74 20 74 68 65 | 20 76 69 73 69 62 69 6c | set the| visibil|
|0000a4b0| 69 74 79 20 6f 66 20 73 | 70 72 69 74 65 20 32 30 |ity of s|prite 20|
|0000a4c0| 20 3d 20 31 0d 20 20 20 | 20 0d 20 20 20 20 73 65 | = 1.   | .    se|
|0000a4d0| 74 20 74 68 65 20 6c 6f | 63 68 20 6f 66 20 73 70 |t the lo|ch of sp|
|0000a4e0| 72 69 74 65 20 68 65 61 | 64 73 70 72 69 74 65 20 |rite hea|dsprite |
|0000a4f0| 3d 20 68 65 61 64 6c 6f | 63 68 0d 20 20 20 20 0d |= headlo|ch.    .|
|0000a500| 20 20 20 20 2d 2d 20 4d | 4f 56 49 45 0d 20 20 65 |    -- M|OVIE.  e|
|0000a510| 6c 73 65 20 69 66 20 74 | 79 70 65 20 3d 20 22 6d |lse if t|ype = "m|
|0000a520| 6f 76 69 65 22 20 20 74 | 68 65 6e 20 20 20 0d 20 |ovie"  t|hen   . |
|0000a530| 20 20 20 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |   .    |set the |
|0000a540| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 68 |loch of |sprite h|
|0000a550| 65 61 64 73 70 72 69 74 | 65 20 3d 20 68 65 61 64 |eadsprit|e = head|
|0000a560| 6c 6f 63 68 0d 20 20 20 | 20 70 75 70 70 65 74 73 |loch.   | puppets|
|0000a570| 70 72 69 74 65 20 66 6f | 72 77 61 72 64 62 75 74 |prite fo|rwardbut|
|0000a580| 74 6f 6e 2c 30 0d 20 20 | 20 20 70 75 70 70 65 74 |ton,0.  |  puppet|
|0000a590| 73 70 72 69 74 65 20 62 | 61 63 6b 62 75 74 74 6f |sprite b|ackbutto|
|0000a5a0| 6e 2c 30 0d 20 20 20 20 | 70 75 70 70 65 74 73 70 |n,0.    |puppetsp|
|0000a5b0| 72 69 74 65 20 70 61 70 | 65 72 73 70 72 69 74 65 |rite pap|ersprite|
|0000a5c0| 2c 30 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 74 |,0.    s|et the t|
|0000a5d0| 65 78 74 20 6f 66 20 66 | 69 65 6c 64 20 22 63 61 |ext of f|ield "ca|
|0000a5e0| 70 74 69 6f 6e 2d 71 74 | 22 20 3d 20 22 20 22 0d |ption-qt|" = " ".|
|0000a5f0| 20 20 20 20 0d 20 20 20 | 20 75 6e 70 75 70 70 65 |    .   | unpuppe|
|0000a600| 74 20 22 34 2c 31 30 22 | 20 20 0d 20 20 20 20 0d |t "4,10"|  .    .|
|0000a610| 20 20 20 20 2d 2d 20 6d | 61 6b 65 20 74 68 65 20 |    -- m|ake the |
|0000a620| 51 54 20 62 6c 61 63 6b | 0d 20 20 20 20 73 65 74 |QT black|.    set|
|0000a630| 20 63 6e 75 6d 20 3d 20 | 74 68 65 20 6e 75 6d 62 | cnum = |the numb|
|0000a640| 65 72 20 6f 66 20 63 61 | 73 74 20 22 51 54 63 61 |er of ca|st "QTca|
|0000a650| 73 74 22 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |st".    |set the |
|0000a660| 66 69 6c 65 6e 61 6d 65 | 20 6f 66 20 63 61 73 74 |filename| of cast|
|0000a670| 20 63 6e 75 6d 20 3d 20 | 67 51 54 70 61 74 68 20 | cnum = |gQTpath |
|0000a680| 26 20 22 42 4c 41 43 4b | 2e 4d 4f 56 22 0d 20 20 |& "BLACK|.MOV".  |
|0000a690| 20 20 73 65 74 20 74 68 | 65 20 6e 61 6d 65 20 6f |  set th|e name o|
|0000a6a0| 66 20 63 61 73 74 20 63 | 6e 75 6d 20 3d 20 22 51 |f cast c|num = "Q|
|0000a6b0| 54 63 61 73 74 22 0d 20 | 20 20 20 0d 20 20 20 20 |Tcast". |   .    |
|0000a6c0| 2d 2d 20 67 6f 20 74 6f | 20 51 54 20 66 72 61 6d |-- go to| QT fram|
|0000a6d0| 65 20 69 6e 20 74 68 65 | 20 73 63 6f 72 65 0d 20 |e in the| score. |
|0000a6e0| 20 20 20 69 66 20 67 4d | 61 6b 65 72 6e 75 6d 20 |   if gM|akernum |
|0000a6f0| 3d 20 31 31 39 20 74 68 | 65 6e 20 2d 2d 20 73 70 |= 119 th|en -- sp|
|0000a700| 65 63 69 61 6c 20 63 61 | 73 65 20 66 6f 72 20 4d |ecial ca|se for M|
|0000a710| 61 74 69 73 73 65 0d 20 | 20 20 20 20 20 67 6f 20 |atisse. |     go |
|0000a720| 74 6f 20 66 72 61 6d 65 | 20 22 51 54 2e 4d 41 54 |to frame| "QT.MAT|
|0000a730| 22 0d 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |".    el|se.     |
|0000a740| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 22 51 54 | go to f|rame "QT|
|0000a750| 22 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |".    en|d if.   |
|0000a760| 20 0d 20 20 20 20 43 6c | 65 61 6e 4d 65 6d 20 2d | .    Cl|eanMem -|
|0000a770| 2d 20 75 6e 6c 6f 61 64 | 20 70 69 63 74 73 0d 20 |- unload| picts. |
|0000a780| 20 20 20 55 6e 6c 6f 61 | 64 4d 65 6d 20 2d 2d 20 |   Unloa|dMem -- |
|0000a790| 75 6e 6c 6f 61 64 20 65 | 76 65 72 79 74 68 69 6e |unload e|verythin|
|0000a7a0| 67 20 61 70 61 72 74 20 | 66 72 6f 6d 20 74 68 65 |g apart |from the|
|0000a7b0| 20 63 75 72 72 65 6e 74 | 20 66 72 61 6d 65 0d 20 | current| frame. |
|0000a7c0| 20 20 20 0d 20 20 20 20 | 0d 20 20 20 20 69 66 20 |   .    |.    if |
|0000a7d0| 67 57 6f 72 6c 64 20 3d | 20 22 53 65 6e 73 65 73 |gWorld =| "Senses|
|0000a7e0| 22 20 6f 72 20 67 57 6f | 72 6c 64 20 3d 20 22 44 |" or gWo|rld = "D|
|0000a7f0| 65 73 69 67 6e 22 20 74 | 68 65 6e 0d 20 20 20 20 |esign" t|hen.    |
|0000a800| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|0000a810| 66 20 73 70 72 69 74 65 | 20 6e 61 6d 65 73 70 72 |f sprite| namespr|
|0000a820| 69 74 65 20 3d 20 67 4e | 61 6d 65 4c 6f 63 68 0d |ite = gN|ameLoch.|
|0000a830| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|0000a840| 63 76 20 6f 66 20 73 70 | 72 69 74 65 20 6e 61 6d |cv of sp|rite nam|
|0000a850| 65 73 70 72 69 74 65 20 | 3d 20 67 4e 61 6d 65 4c |esprite |= gNameL|
|0000a860| 6f 63 76 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |ocv.    |end if. |
|0000a870| 20 20 20 0d 20 20 20 20 | 0d 20 20 20 20 70 75 70 |   .    |.    pup|
|0000a880| 70 65 74 73 70 72 69 74 | 65 20 63 61 70 74 69 6f |petsprit|e captio|
|0000a890| 6e 73 70 72 69 74 65 2c | 31 0d 20 20 20 20 73 65 |nsprite,|1.    se|
|0000a8a0| 74 20 63 61 70 74 69 6f | 6e 6c 6f 63 68 20 3d 20 |t captio|nloch = |
|0000a8b0| 74 68 65 20 6c 6f 63 68 | 20 6f 66 20 73 70 72 69 |the loch| of spri|
|0000a8c0| 74 65 20 63 61 70 74 69 | 6f 6e 73 70 72 69 74 65 |te capti|onsprite|
|0000a8d0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 63 61 73 |.    set| the cas|
|0000a8e0| 74 6e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 63 |tnum of |sprite c|
|0000a8f0| 61 70 74 69 6f 6e 73 70 | 72 69 74 65 20 3d 20 74 |aptionsp|rite = t|
|0000a900| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 73 |he numbe|r of cas|
|0000a910| 74 20 22 63 61 70 74 69 | 6f 6e 2d 71 74 22 0d 20 |t "capti|on-qt". |
|0000a920| 20 20 20 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |   .    |set the |
|0000a930| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 63 |loch of |sprite c|
|0000a940| 61 70 74 69 6f 6e 73 70 | 72 69 74 65 20 3d 20 31 |aptionsp|rite = 1|
|0000a950| 30 30 30 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |000.    |set the |
|0000a960| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 70 |loch of |sprite p|
|0000a970| 69 63 73 70 72 69 74 65 | 20 3d 20 31 30 30 30 0d |icsprite| = 1000.|
|0000a980| 20 20 20 20 75 70 64 61 | 74 65 73 74 61 67 65 0d |    upda|testage.|
|0000a990| 20 20 20 20 0d 20 20 20 | 20 73 65 74 20 74 6d 70 |    .   | set tmp|
|0000a9a0| 63 61 70 20 3d 20 47 65 | 74 43 61 70 74 69 6f 6e |cap = Ge|tCaption|
|0000a9b0| 28 29 20 20 0d 20 20 20 | 20 73 65 74 20 74 68 65 |()  .   | set the|
|0000a9c0| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|0000a9d0| 63 61 70 74 69 6f 6e 2d | 71 74 22 20 3d 20 20 74 |caption-|qt" =  t|
|0000a9e0| 6d 70 63 61 70 0d 20 20 | 20 20 0d 20 20 20 20 69 |mpcap.  |  .    i|
|0000a9f0| 66 20 67 57 6f 72 6c 64 | 20 3c 3e 20 22 53 65 6e |f gWorld| <> "Sen|
|0000aa00| 73 65 73 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |ses" the|n.      |
|0000aa10| 73 65 74 20 74 68 65 20 | 74 65 78 74 68 65 69 67 |set the |textheig|
|0000aa20| 68 74 20 6f 66 20 66 69 | 65 6c 64 20 22 63 61 70 |ht of fi|eld "cap|
|0000aa30| 74 69 6f 6e 2d 71 74 22 | 20 3d 20 31 38 20 20 2d |tion-qt"| = 18  -|
|0000aa40| 2d 20 6c 65 61 64 69 6e | 67 0d 20 20 20 20 65 6c |- leadin|g.    el|
|0000aa50| 73 65 0d 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |se.     | set the|
|0000aa60| 20 74 65 78 74 68 65 69 | 67 68 74 20 6f 66 20 66 | texthei|ght of f|
|0000aa70| 69 65 6c 64 20 22 63 61 | 70 74 69 6f 6e 2d 71 74 |ield "ca|ption-qt|
|0000aa80| 22 20 3d 20 32 35 0d 20 | 20 20 20 65 6e 64 20 69 |" = 25. |   end i|
|0000aa90| 66 0d 20 20 20 20 0d 20 | 20 20 20 2d 2d 20 61 64 |f.    . |   -- ad|
|0000aaa0| 6a 75 73 74 20 74 68 65 | 20 68 65 69 67 68 74 20 |just the| height |
|0000aab0| 6f 66 20 74 68 65 20 51 | 54 20 63 61 70 74 69 6f |of the Q|T captio|
|0000aac0| 6e 2c 20 74 6f 20 63 65 | 6e 74 65 72 20 69 74 0d |n, to ce|nter it.|
|0000aad0| 20 20 20 20 69 66 20 67 | 57 6f 72 6c 64 20 3d 20 |    if g|World = |
|0000aae0| 22 44 69 73 63 6f 76 65 | 72 22 20 74 68 65 6e 0d |"Discove|r" then.|
|0000aaf0| 20 20 20 20 20 20 73 65 | 74 20 63 65 6e 74 65 72 |      se|t center|
|0000ab00| 70 6f 69 6e 74 20 3d 20 | 32 35 30 20 20 0d 20 20 |point = |250  .  |
|0000ab10| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 73 65 74 |  else. |     set|
|0000ab20| 20 63 65 6e 74 65 72 70 | 6f 69 6e 74 20 3d 20 32 | centerp|oint = 2|
|0000ab30| 38 30 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |80.    e|nd if.  |
|0000ab40| 20 20 73 65 74 20 63 61 | 70 68 20 3d 20 74 68 65 |  set ca|ph = the|
|0000ab50| 20 68 65 69 67 68 74 20 | 6f 66 20 63 61 73 74 20 | height |of cast |
|0000ab60| 22 63 61 70 74 69 6f 6e | 2d 71 74 22 0d 20 20 20 |"caption|-qt".   |
|0000ab70| 20 0d 20 20 20 20 2d 2d | 20 69 6e 20 64 65 73 69 | .    --| in desi|
|0000ab80| 67 6e 20 74 68 65 20 63 | 61 70 74 69 6f 6e 20 64 |gn the c|aption d|
|0000ab90| 6f 65 73 20 6e 6f 74 20 | 6e 65 65 64 20 76 65 72 |oes not |need ver|
|0000aba0| 74 69 63 61 6c 20 63 65 | 6e 74 65 72 69 6e 67 0d |tical ce|ntering.|
|0000abb0| 20 20 20 20 69 66 20 67 | 57 6f 72 6c 64 20 3c 3e |    if g|World <>|
|0000abc0| 20 22 53 65 6e 73 65 73 | 22 20 61 6e 64 20 67 57 | "Senses|" and gW|
|0000abd0| 6f 72 6c 64 20 3c 3e 20 | 22 42 6f 64 79 22 20 74 |orld <> |"Body" t|
|0000abe0| 68 65 6e 20 0d 20 20 20 | 20 20 20 73 65 74 20 74 |hen .   |   set t|
|0000abf0| 68 65 20 6c 6f 63 76 20 | 6f 66 20 73 70 72 69 74 |he locv |of sprit|
|0000ac00| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 20 |e captio|nsprite |
|0000ac10| 3d 20 63 65 6e 74 65 72 | 70 6f 69 6e 74 20 2d 20 |= center|point - |
|0000ac20| 28 63 61 70 68 2f 32 29 | 0d 20 20 20 20 65 6c 73 |(caph/2)|.    els|
|0000ac30| 65 20 69 66 20 67 57 6f | 72 6c 64 20 3d 20 22 42 |e if gWo|rld = "B|
|0000ac40| 6f 64 79 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |ody" the|n.      |
|0000ac50| 73 65 74 20 74 68 65 20 | 6c 6f 63 76 20 6f 66 20 |set the |locv of |
|0000ac60| 73 70 72 69 74 65 20 63 | 61 70 74 69 6f 6e 73 70 |sprite c|aptionsp|
|0000ac70| 72 69 74 65 20 3d 20 31 | 31 32 20 20 0d 20 20 20 |rite = 1|12  .   |
|0000ac80| 20 65 6e 64 20 69 66 0d | 20 20 20 20 73 65 74 20 | end if.|    set |
|0000ac90| 74 68 65 20 6c 6f 63 68 | 20 6f 66 20 73 70 72 69 |the loch| of spri|
|0000aca0| 74 65 20 63 61 70 74 69 | 6f 6e 73 70 72 69 74 65 |te capti|onsprite|
|0000acb0| 20 3d 20 63 61 70 74 69 | 6f 6e 6c 6f 63 68 0d 20 | = capti|onloch. |
|0000acc0| 20 20 20 75 70 64 61 74 | 65 73 74 61 67 65 0d 20 |   updat|estage. |
|0000acd0| 20 20 20 0d 20 20 20 20 | 2d 2d 20 74 68 65 20 70 |   .    |-- the p|
|0000ace0| 6c 61 79 2f 73 74 6f 70 | 20 62 75 74 74 6f 6e 20 |lay/stop| button |
|0000acf0| 73 70 72 69 74 65 0d 20 | 20 20 20 70 75 70 70 65 |sprite. |   puppe|
|0000ad00| 74 73 70 72 69 74 65 20 | 31 31 2c 31 20 0d 20 20 |tsprite |11,1 .  |
|0000ad10| 20 20 0d 20 20 20 20 2d | 2d 20 67 65 74 20 74 68 |  .    -|- get th|
|0000ad20| 65 20 51 54 6d 6f 76 69 | 65 0d 20 20 20 20 73 65 |e QTmovi|e.    se|
|0000ad30| 74 20 66 6e 61 6d 65 20 | 3d 20 67 51 54 70 61 74 |t fname |= gQTpat|
|0000ad40| 68 20 26 20 22 56 22 20 | 26 20 67 4d 61 6b 65 72 |h & "V" |& gMaker|
|0000ad50| 4e 75 6d 20 26 20 22 2e | 4d 4f 56 22 0d 20 20 20 |Num & ".|MOV".   |
|0000ad60| 20 70 75 74 20 66 6e 61 | 6d 65 0d 20 20 20 20 73 | put fna|me.    s|
|0000ad70| 65 74 20 74 68 65 20 66 | 69 6c 65 6e 61 6d 65 20 |et the f|ilename |
|0000ad80| 6f 66 20 63 61 73 74 20 | 63 6e 75 6d 20 3d 20 66 |of cast |cnum = f|
|0000ad90| 6e 61 6d 65 0d 20 20 20 | 20 73 65 74 20 74 68 65 |name.   | set the|
|0000ada0| 20 6e 61 6d 65 20 6f 66 | 20 63 61 73 74 20 63 6e | name of| cast cn|
|0000adb0| 75 6d 20 3d 20 22 51 54 | 63 61 73 74 22 0d 20 20 |um = "QT|cast".  |
|0000adc0| 20 20 2d 2d 20 20 75 70 | 64 61 74 65 73 74 61 67 |  --  up|datestag|
|0000add0| 65 0d 20 20 20 20 0d 20 | 20 20 20 2d 2d 20 73 74 |e.    . |   -- st|
|0000ade0| 61 72 74 20 74 68 65 20 | 51 54 0d 20 20 20 20 0d |art the |QT.    .|
|0000adf0| 20 20 20 20 73 65 74 20 | 74 68 65 20 6d 6f 76 69 |    set |the movi|
|0000ae00| 65 74 69 6d 65 20 6f 66 | 20 73 70 72 69 74 65 20 |etime of| sprite |
|0000ae10| 31 36 20 3d 20 30 0d 20 | 20 20 20 75 70 64 61 74 |16 = 0. |   updat|
|0000ae20| 65 73 74 61 67 65 0d 20 | 20 20 20 73 65 74 20 74 |estage. |   set t|
|0000ae30| 68 65 20 6d 6f 76 69 65 | 72 61 74 65 20 6f 66 20 |he movie|rate of |
|0000ae40| 73 70 72 69 74 65 20 31 | 36 20 3d 20 31 0d 20 20 |sprite 1|6 = 1.  |
|0000ae50| 20 20 75 70 64 61 74 65 | 73 74 61 67 65 0d 20 20 |  update|stage.  |
|0000ae60| 20 20 0d 20 20 20 20 53 | 65 74 56 6f 6c 75 6d 65 |  .    S|etVolume|
|0000ae70| 0d 20 20 20 20 0d 20 20 | 20 20 0d 20 20 20 20 2d |.    .  |  .    -|
|0000ae80| 2d 20 53 4f 55 4e 44 0d | 20 20 65 6c 73 65 20 69 |- SOUND.|  else i|
|0000ae90| 66 20 74 79 70 65 20 3d | 20 22 73 6f 75 6e 64 22 |f type =| "sound"|
|0000aea0| 20 20 74 68 65 6e 20 20 | 20 0d 20 20 20 20 47 6f |  then  | .    Go|
|0000aeb0| 53 6f 75 6e 64 41 72 74 | 69 63 6c 65 0d 20 20 20 |SoundArt|icle.   |
|0000aec0| 20 0d 20 20 20 20 0d 20 | 20 20 20 2d 2d 20 43 55 | .    . |   -- CU|
|0000aed0| 54 54 49 4e 47 0d 20 20 | 65 6c 73 65 20 69 66 20 |TTING.  |else if |
|0000aee0| 74 79 70 65 20 3d 20 22 | 63 75 74 74 69 6e 67 22 |type = "|cutting"|
|0000aef0| 20 20 74 68 65 6e 20 20 | 20 0d 20 20 20 20 0d 20 |  then  | .    . |
|0000af00| 20 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |   puppe|tsprite |
|0000af10| 66 6f 72 77 61 72 64 62 | 75 74 74 6f 6e 2c 30 0d |forwardb|utton,0.|
|0000af20| 20 20 20 20 70 75 70 70 | 65 74 73 70 72 69 74 65 |    pupp|etsprite|
|0000af30| 20 62 61 63 6b 62 75 74 | 74 6f 6e 2c 30 0d 20 20 | backbut|ton,0.  |
|0000af40| 20 20 0d 20 20 20 20 69 | 66 20 67 57 6f 72 6c 64 |  .    i|f gWorld|
|0000af50| 20 3c 3e 20 22 6d 69 6e | 64 22 20 74 68 65 6e 0d | <> "min|d" then.|
|0000af60| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|0000af70| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 68 65 61 |ch of sp|rite hea|
|0000af80| 64 73 70 72 69 74 65 20 | 3d 20 31 30 30 30 0d 20 |dsprite |= 1000. |
|0000af90| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 0d 20 |   end i|f.    . |
|0000afa0| 20 20 20 69 66 20 67 57 | 6f 72 6c 64 20 3d 20 22 |   if gW|orld = "|
|0000afb0| 73 65 6e 73 65 73 22 20 | 6f 72 20 67 57 6f 72 6c |senses" |or gWorl|
|0000afc0| 64 20 3d 20 22 6d 69 6e | 64 22 20 74 68 65 6e 20 |d = "min|d" then |
|0000afd0| 0d 20 20 20 20 20 20 73 | 65 74 20 67 4d 61 78 4c |.      s|et gMaxL|
|0000afe0| 69 6e 65 73 20 3d 20 31 | 36 20 20 0d 20 20 20 20 |ines = 1|6  .    |
|0000aff0| 65 6c 73 65 20 20 69 66 | 20 67 57 6f 72 6c 64 20 |else  if| gWorld |
|0000b000| 3d 20 22 44 69 73 63 6f | 76 65 72 22 20 74 68 65 |= "Disco|ver" the|
|0000b010| 6e 20 0d 20 20 20 20 20 | 20 73 65 74 20 67 4d 61 |n .     | set gMa|
|0000b020| 78 4c 69 6e 65 73 20 3d | 20 31 35 20 20 0d 20 20 |xLines =| 15  .  |
|0000b030| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 73 65 74 |  else. |     set|
|0000b040| 20 67 4d 61 78 4c 69 6e | 65 73 20 3d 20 31 37 20 | gMaxLin|es = 17 |
|0000b050| 20 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 | .    en|d if.   |
|0000b060| 20 0d 20 20 20 20 0d 20 | 20 20 20 2d 2d 20 63 6c | .    . |   -- cl|
|0000b070| 65 61 6e 20 75 70 20 74 | 68 65 20 74 65 78 74 20 |ean up t|he text |
|0000b080| 62 6f 78 65 73 20 6f 6e | 20 73 63 72 65 65 6e 2c |boxes on| screen,|
|0000b090| 20 6f 6e 6c 79 20 69 66 | 20 77 65 27 72 65 20 6e | only if| we're n|
|0000b0a0| 6f 74 20 63 75 72 72 65 | 6e 74 6c 79 20 69 6e 20 |ot curre|ntly in |
|0000b0b0| 61 20 63 75 74 74 69 6e | 67 20 20 20 0d 20 20 20 |a cuttin|g   .   |
|0000b0c0| 20 69 66 20 74 68 65 20 | 66 72 61 6d 65 6c 61 62 | if the |framelab|
|0000b0d0| 65 6c 20 3c 3e 20 22 63 | 75 74 74 69 6e 67 22 20 |el <> "c|utting" |
|0000b0e0| 74 68 65 6e 0d 20 20 20 | 20 20 20 73 65 74 20 74 |then.   |   set t|
|0000b0f0| 68 65 20 74 65 78 74 20 | 6f 66 20 66 69 65 6c 64 |he text |of field|
|0000b100| 20 22 63 75 74 74 69 6e | 67 22 20 3d 20 22 20 22 | "cuttin|g" = " "|
|0000b110| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 73 65 74 |      . |     set|
|0000b120| 20 74 68 65 20 74 65 78 | 74 73 69 7a 65 20 6f 66 | the tex|tsize of|
|0000b130| 20 66 69 65 6c 64 20 22 | 63 75 74 74 69 6e 67 22 | field "|cutting"|
|0000b140| 20 3d 20 31 38 0d 20 20 | 20 20 20 20 0d 20 20 20 | = 18.  |    .   |
|0000b150| 20 20 20 73 65 74 20 74 | 68 65 20 74 65 78 74 20 |   set t|he text |
|0000b160| 6f 66 20 66 69 65 6c 64 | 20 22 64 61 74 65 22 20 |of field| "date" |
|0000b170| 3d 20 22 20 22 0d 20 20 | 20 20 20 20 73 65 74 20 |= " ".  |    set |
|0000b180| 74 68 65 20 74 65 78 74 | 20 6f 66 20 66 69 65 6c |the text| of fiel|
|0000b190| 64 20 22 63 61 70 74 69 | 6f 6e 22 20 3d 20 22 20 |d "capti|on" = " |
|0000b1a0| 22 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |".      |set the |
|0000b1b0| 74 65 78 74 20 6f 66 20 | 66 69 65 6c 64 20 22 74 |text of |field "t|
|0000b1c0| 69 74 6c 65 22 20 3d 20 | 22 20 22 0d 20 20 20 20 |itle" = |" ".    |
|0000b1d0| 20 20 0d 20 20 20 20 20 | 20 2d 2d 20 67 65 74 20 |  .     | -- get |
|0000b1e0| 72 69 64 20 6f 66 20 74 | 68 65 20 70 69 63 74 75 |rid of t|he pictu|
|0000b1f0| 72 65 0d 20 20 20 20 20 | 20 70 75 70 70 65 74 73 |re.     | puppets|
|0000b200| 70 72 69 74 65 20 70 69 | 63 73 70 72 69 74 65 2c |prite pi|csprite,|
|0000b210| 31 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |1.      |set the |
|0000b220| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 70 |loch of |sprite p|
|0000b230| 69 63 73 70 72 69 74 65 | 20 3d 20 31 30 30 30 0d |icsprite| = 1000.|
|0000b240| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 69 66 20 |      . |     if |
|0000b250| 67 57 6f 72 6c 64 20 3d | 20 22 53 65 6e 73 65 73 |gWorld =| "Senses|
|0000b260| 22 20 6f 72 20 67 57 6f | 72 6c 64 20 3d 20 22 44 |" or gWo|rld = "D|
|0000b270| 65 73 69 67 6e 22 20 74 | 68 65 6e 0d 20 20 20 20 |esign" t|hen.    |
|0000b280| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 68 |    set |the loch|
|0000b290| 20 6f 66 20 73 70 72 69 | 74 65 20 6e 61 6d 65 73 | of spri|te names|
|0000b2a0| 70 72 69 74 65 20 3d 20 | 31 30 30 30 0d 20 20 20 |prite = |1000.   |
|0000b2b0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|0000b2c0| 0d 20 20 20 20 20 20 75 | 6e 70 75 70 70 65 74 20 |.      u|npuppet |
|0000b2d0| 22 34 2c 31 30 22 20 20 | 0d 20 20 20 20 20 20 0d |"4,10"  |.      .|
|0000b2e0| 20 20 20 20 20 20 69 66 | 20 67 4d 61 6b 65 72 4e |      if| gMakerN|
|0000b2f0| 75 6d 20 3d 20 31 31 39 | 20 74 68 65 6e 20 20 20 |um = 119| then   |
|0000b300| 2d 2d 20 73 70 65 63 69 | 61 6c 20 63 61 73 65 20 |-- speci|al case |
|0000b310| 66 6f 72 20 4d 61 74 69 | 73 73 65 0d 20 20 20 20 |for Mati|sse.    |
|0000b320| 20 20 20 20 67 6f 20 74 | 6f 20 66 72 61 6d 65 20 |    go t|o frame |
|0000b330| 22 63 75 74 74 69 6e 67 | 2e 4d 41 54 22 0d 20 20 |"cutting|.MAT".  |
|0000b340| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 20 |    else|.       |
|0000b350| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 22 63 75 | go to f|rame "cu|
|0000b360| 74 74 69 6e 67 22 0d 20 | 20 20 20 20 20 65 6e 64 |tting". |     end|
|0000b370| 20 69 66 0d 20 20 20 20 | 20 20 43 6c 65 61 6e 4d | if.    |  CleanM|
|0000b380| 65 6d 0d 20 20 20 20 20 | 20 70 75 70 70 65 74 73 |em.     | puppets|
|0000b390| 70 72 69 74 65 20 70 61 | 70 65 72 73 70 72 69 74 |prite pa|persprit|
|0000b3a0| 65 2c 31 0d 20 20 20 20 | 20 20 73 65 74 20 67 50 |e,1.    |  set gP|
|0000b3b0| 61 70 65 72 6c 6f 63 68 | 20 3d 20 74 68 65 20 6c |aperloch| = the l|
|0000b3c0| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 70 61 |och of s|prite pa|
|0000b3d0| 70 65 72 73 70 72 69 74 | 65 0d 20 20 20 20 20 20 |persprit|e.      |
|0000b3e0| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|0000b3f0| 73 70 72 69 74 65 20 70 | 61 70 65 72 73 70 72 69 |sprite p|aperspri|
|0000b400| 74 65 20 3d 20 31 30 30 | 30 0d 20 20 20 20 20 20 |te = 100|0.      |
|0000b410| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |.    end| if.    |
|0000b420| 0d 20 20 20 20 2d 2d 20 | 63 6c 6f 63 6b 20 63 75 |.    -- |clock cu|
|0000b430| 72 73 6f 72 0d 20 20 20 | 20 63 75 72 73 6f 72 20 |rsor.   | cursor |
|0000b440| 34 0d 20 20 20 20 0d 20 | 20 20 20 0d 20 20 20 20 |4.    . |   .    |
|0000b450| 2d 2d 20 6d 61 6b 65 20 | 61 6c 6c 20 74 68 65 20 |-- make |all the |
|0000b460| 63 68 61 6e 67 65 73 20 | 74 6f 20 74 68 65 20 74 |changes |to the t|
|0000b470| 65 78 74 20 6f 66 66 73 | 63 72 65 65 6e 2c 20 61 |ext offs|creen, a|
|0000b480| 6e 64 20 74 68 65 6e 20 | 0d 20 20 20 20 2d 2d 20 |nd then |.    -- |
|0000b490| 72 65 64 72 61 77 20 74 | 68 65 6d 20 61 6c 6c 20 |redraw t|hem all |
|0000b4a0| 74 6f 20 74 68 65 20 73 | 63 72 65 65 6e 20 61 74 |to the s|creen at|
|0000b4b0| 20 6f 6e 63 65 0d 20 20 | 20 20 0d 20 20 20 20 70 | once.  |  .    p|
|0000b4c0| 75 70 70 65 74 73 70 72 | 69 74 65 20 63 75 74 74 |uppetspr|ite cutt|
|0000b4d0| 69 6e 67 73 70 72 69 74 | 65 2c 31 0d 20 20 20 20 |ingsprit|e,1.    |
|0000b4e0| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 74 69 74 |puppetsp|rite tit|
|0000b4f0| 6c 65 73 70 72 69 74 65 | 2c 31 0d 20 20 20 20 70 |lesprite|,1.    p|
|0000b500| 75 70 70 65 74 73 70 72 | 69 74 65 20 70 61 70 65 |uppetspr|ite pape|
|0000b510| 72 73 70 72 69 74 65 2c | 31 0d 20 20 20 20 70 75 |rsprite,|1.    pu|
|0000b520| 70 70 65 74 73 70 72 69 | 74 65 20 64 61 74 65 73 |ppetspri|te dates|
|0000b530| 70 72 69 74 65 2c 31 0d | 20 20 20 20 70 75 70 70 |prite,1.|    pupp|
|0000b540| 65 74 73 70 72 69 74 65 | 20 63 61 70 74 69 6f 6e |etsprite| caption|
|0000b550| 73 70 72 69 74 65 2c 31 | 0d 20 20 20 20 0d 20 20 |sprite,1|.    .  |
|0000b560| 20 20 73 65 74 20 63 75 | 74 74 69 6e 67 6c 6f 63 |  set cu|ttingloc|
|0000b570| 68 20 3d 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |h = the |loch of |
|0000b580| 73 70 72 69 74 65 20 63 | 75 74 74 69 6e 67 73 70 |sprite c|uttingsp|
|0000b590| 72 69 74 65 0d 20 20 20 | 20 73 65 74 20 74 69 74 |rite.   | set tit|
|0000b5a0| 6c 65 6c 6f 63 68 20 3d | 20 74 68 65 20 6c 6f 63 |leloch =| the loc|
|0000b5b0| 68 20 6f 66 20 73 70 72 | 69 74 65 20 74 69 74 6c |h of spr|ite titl|
|0000b5c0| 65 73 70 72 69 74 65 0d | 20 20 20 20 73 65 74 20 |esprite.|    set |
|0000b5d0| 64 61 74 65 6c 6f 63 68 | 20 3d 20 74 68 65 20 6c |dateloch| = the l|
|0000b5e0| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 64 61 |och of s|prite da|
|0000b5f0| 74 65 73 70 72 69 74 65 | 0d 20 20 20 20 73 65 74 |tesprite|.    set|
|0000b600| 20 63 61 70 74 69 6f 6e | 6c 6f 63 68 20 3d 20 74 | caption|loch = t|
|0000b610| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|0000b620| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 0d |e captio|nsprite.|
|0000b630| 20 20 20 20 0d 20 20 20 | 20 0d 20 20 20 20 73 65 |    .   | .    se|
|0000b640| 74 20 74 68 65 20 63 61 | 73 74 6e 75 6d 20 6f 66 |t the ca|stnum of|
|0000b650| 20 73 70 72 69 74 65 20 | 63 61 70 74 69 6f 6e 73 | sprite |captions|
|0000b660| 70 72 69 74 65 20 3d 20 | 74 68 65 20 6e 75 6d 62 |prite = |the numb|
|0000b670| 65 72 20 6f 66 20 63 61 | 73 74 20 22 63 61 70 74 |er of ca|st "capt|
|0000b680| 69 6f 6e 22 0d 20 20 20 | 20 73 65 74 20 74 68 65 |ion".   | set the|
|0000b690| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|0000b6a0| 63 75 74 74 69 6e 67 73 | 70 72 69 74 65 20 3d 20 |cuttings|prite = |
|0000b6b0| 31 30 30 30 0d 20 20 20 | 20 73 65 74 20 74 68 65 |1000.   | set the|
|0000b6c0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|0000b6d0| 63 61 70 74 69 6f 6e 73 | 70 72 69 74 65 20 3d 20 |captions|prite = |
|0000b6e0| 31 30 30 30 0d 20 20 20 | 20 73 65 74 20 74 68 65 |1000.   | set the|
|0000b6f0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|0000b700| 64 61 74 65 73 70 72 69 | 74 65 20 3d 20 31 30 30 |datespri|te = 100|
|0000b710| 30 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |0.    se|t the lo|
|0000b720| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 74 69 74 |ch of sp|rite tit|
|0000b730| 6c 65 73 70 72 69 74 65 | 20 3d 20 31 30 30 30 0d |lesprite| = 1000.|
|0000b740| 20 20 20 20 0d 20 20 20 | 20 75 70 64 61 74 65 73 |    .   | updates|
|0000b750| 74 61 67 65 0d 20 20 20 | 20 0d 20 20 20 20 2d 2d |tage.   | .    --|
|0000b760| 20 67 65 74 20 74 68 65 | 20 63 61 70 74 69 6f 6e | get the| caption|
|0000b770| 20 74 65 78 74 20 61 6e | 64 20 74 68 65 20 68 65 | text an|d the he|
|0000b780| 61 64 6c 69 6e 65 20 20 | 20 20 0d 20 20 20 20 0d |adline  |  .    .|
|0000b790| 20 20 20 20 73 65 74 20 | 74 6d 70 64 61 74 65 20 |    set |tmpdate |
|0000b7a0| 3d 20 67 65 74 41 74 28 | 67 65 74 41 74 28 67 44 |= getAt(|getAt(gD|
|0000b7b0| 61 74 65 73 2c 67 43 75 | 72 43 68 61 70 29 2c 67 |ates,gCu|rChap),g|
|0000b7c0| 43 75 72 41 72 74 69 63 | 6c 65 29 0d 20 20 20 20 |CurArtic|le).    |
|0000b7d0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 69 74 65 |.    set| the ite|
|0000b7e0| 6d 64 65 6c 69 6d 69 74 | 65 72 20 3d 20 22 40 22 |mdelimit|er = "@"|
|0000b7f0| 0d 20 20 20 20 73 65 74 | 20 74 6d 70 63 61 70 20 |.    set| tmpcap |
|0000b800| 3d 20 69 74 65 6d 20 67 | 43 75 72 43 68 61 70 20 |= item g|CurChap |
|0000b810| 6f 66 20 67 54 69 74 6c | 65 73 0d 20 20 20 20 73 |of gTitl|es.    s|
|0000b820| 65 74 20 74 68 65 20 69 | 74 65 6d 64 65 6c 69 6d |et the i|temdelim|
|0000b830| 69 74 65 72 20 3d 20 22 | 23 22 0d 20 20 20 20 73 |iter = "|#".    s|
|0000b840| 65 74 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 66 |et the t|ext of f|
|0000b850| 69 65 6c 64 20 22 74 69 | 74 6c 65 22 20 3d 20 69 |ield "ti|tle" = i|
|0000b860| 74 65 6d 20 67 43 75 72 | 41 72 74 69 63 6c 65 20 |tem gCur|Article |
|0000b870| 6f 66 20 74 6d 70 63 61 | 70 0d 20 20 20 20 73 65 |of tmpca|p.    se|
|0000b880| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|0000b890| 74 65 72 20 3d 20 22 2c | 22 0d 20 20 20 20 0d 20 |ter = ",|".    . |
|0000b8a0| 20 20 20 73 65 74 20 74 | 6d 70 63 61 70 20 3d 20 |   set t|mpcap = |
|0000b8b0| 47 65 74 43 61 70 74 69 | 6f 6e 28 29 20 20 0d 20 |GetCapti|on()  . |
|0000b8c0| 20 20 20 73 65 74 20 74 | 68 65 20 74 65 78 74 20 |   set t|he text |
|0000b8d0| 6f 66 20 66 69 65 6c 64 | 20 22 63 61 70 74 69 6f |of field| "captio|
|0000b8e0| 6e 22 20 3d 20 20 74 6d | 70 63 61 70 0d 20 20 20 |n" =  tm|pcap.   |
|0000b8f0| 20 0d 20 20 20 20 2d 2d | 20 69 66 20 6e 6f 74 20 | .    --| if not |
|0000b900| 73 74 72 69 6e 67 70 28 | 63 61 70 74 69 6f 6e 29 |stringp(|caption)|
|0000b910| 20 74 68 65 6e 20 73 65 | 74 20 63 61 70 74 69 6f | then se|t captio|
|0000b920| 6e 20 3d 20 22 20 22 0d | 20 20 20 20 69 66 20 6e |n = " ".|    if n|
|0000b930| 6f 74 20 73 74 72 69 6e | 67 70 28 74 69 74 6c 65 |ot strin|gp(title|
|0000b940| 29 20 74 68 65 6e 20 73 | 65 74 20 74 69 74 6c 65 |) then s|et title|
|0000b950| 20 3d 20 22 20 22 0d 20 | 20 20 20 69 66 20 6e 6f | = " ". |   if no|
|0000b960| 74 20 73 74 72 69 6e 67 | 70 28 64 61 74 65 29 20 |t string|p(date) |
|0000b970| 74 68 65 6e 20 73 65 74 | 20 64 61 74 65 20 3d 20 |then set| date = |
|0000b980| 22 20 22 0d 20 20 20 20 | 0d 20 20 20 20 0d 20 20 |" ".    |.    .  |
|0000b990| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 68 65 |  set th|e texthe|
|0000b9a0| 69 67 68 74 20 6f 66 20 | 66 69 65 6c 64 20 22 63 |ight of |field "c|
|0000b9b0| 61 70 74 69 6f 6e 22 20 | 3d 20 31 38 20 20 2d 2d |aption" |= 18  --|
|0000b9c0| 20 6c 65 61 64 69 6e 67 | 0d 20 20 20 20 73 65 74 | leading|.    set|
|0000b9d0| 20 74 6d 70 6e 75 6d 20 | 3d 20 63 68 61 72 74 6f | tmpnum |= charto|
|0000b9e0| 6e 75 6d 28 63 68 61 72 | 20 31 20 6f 66 20 74 6d |num(char| 1 of tm|
|0000b9f0| 70 64 61 74 65 29 0d 20 | 20 20 20 0d 20 20 20 20 |pdate). |   .    |
|0000ba00| 73 65 74 20 70 61 70 65 | 72 20 3d 20 69 74 65 6d |set pape|r = item|
|0000ba10| 20 31 20 6f 66 20 74 6d | 70 64 61 74 65 0d 20 20 | 1 of tm|pdate.  |
|0000ba20| 20 20 64 65 6c 65 74 65 | 20 69 74 65 6d 20 31 20 |  delete| item 1 |
|0000ba30| 6f 66 20 74 6d 70 64 61 | 74 65 0d 20 20 20 20 0d |of tmpda|te.    .|
|0000ba40| 20 20 20 20 2d 2d 20 67 | 65 74 20 72 69 64 20 6f |    -- g|et rid o|
|0000ba50| 66 20 6c 65 61 64 69 6e | 67 20 77 68 69 74 65 73 |f leadin|g whites|
|0000ba60| 70 61 63 65 0d 20 20 20 | 20 73 65 74 20 70 61 70 |pace.   | set pap|
|0000ba70| 65 72 20 3d 20 77 6f 72 | 64 20 31 20 74 6f 20 28 |er = wor|d 1 to (|
|0000ba80| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 77 6f |the numb|er of wo|
|0000ba90| 72 64 73 20 6f 66 20 70 | 61 70 65 72 29 20 6f 66 |rds of p|aper) of|
|0000baa0| 20 70 61 70 65 72 0d 20 | 20 20 20 0d 20 20 20 20 | paper. |   .    |
|0000bab0| 2d 2d 20 67 65 74 20 72 | 69 64 20 6f 66 20 22 54 |-- get r|id of "T|
|0000bac0| 68 65 22 0d 20 20 20 20 | 69 66 20 77 6f 72 64 20 |he".    |if word |
|0000bad0| 31 20 6f 66 20 70 61 70 | 65 72 20 3d 20 22 54 68 |1 of pap|er = "Th|
|0000bae0| 65 22 20 74 68 65 6e 20 | 64 65 6c 65 74 65 20 77 |e" then |delete w|
|0000baf0| 6f 72 64 20 31 20 6f 66 | 20 70 61 70 65 72 0d 20 |ord 1 of| paper. |
|0000bb00| 20 20 20 0d 20 20 20 20 | 2d 2d 20 67 65 74 20 74 |   .    |-- get t|
|0000bb10| 68 65 20 63 6f 72 72 65 | 63 74 20 4e 65 77 73 70 |he corre|ct Newsp|
|0000bb20| 61 70 65 72 20 62 69 74 | 6d 61 70 0d 20 20 20 20 |aper bit|map.    |
|0000bb30| 69 66 20 70 61 70 65 72 | 20 3d 20 22 54 69 6d 65 |if paper| = "Time|
|0000bb40| 22 20 74 68 65 6e 20 73 | 65 74 20 70 61 70 65 72 |" then s|et paper|
|0000bb50| 20 3d 20 22 54 69 6d 65 | 73 22 20 2d 2d 20 65 72 | = "Time|s" -- er|
|0000bb60| 72 6f 72 20 63 6f 72 72 | 65 63 74 69 6f 6e 0d 20 |ror corr|ection. |
|0000bb70| 20 20 20 65 6c 73 65 20 | 69 66 20 70 61 70 65 72 |   else |if paper|
|0000bb80| 20 3d 20 22 53 75 6e 64 | 61 79 20 54 69 6d 65 22 | = "Sund|ay Time"|
|0000bb90| 20 74 68 65 6e 20 73 65 | 74 20 70 61 70 65 72 20 | then se|t paper |
|0000bba0| 3d 20 22 53 75 6e 64 61 | 79 20 54 69 6d 65 73 22 |= "Sunda|y Times"|
|0000bbb0| 0d 20 20 20 20 65 6c 73 | 65 20 69 66 20 70 61 70 |.    els|e if pap|
|0000bbc0| 65 72 20 3d 20 22 54 69 | 6d 65 73 20 4c 69 74 65 |er = "Ti|mes Lite|
|0000bbd0| 72 61 72 79 20 53 75 70 | 70 6c 65 6d 65 6e 74 22 |rary Sup|plement"|
|0000bbe0| 20 74 68 65 6e 20 73 65 | 74 20 70 61 70 65 72 20 | then se|t paper |
|0000bbf0| 3d 20 22 74 6c 73 22 0d | 20 20 20 20 0d 20 20 20 |= "tls".|    .   |
|0000bc00| 20 69 66 20 67 4d 61 6b | 65 72 4e 75 6d 20 3d 20 | if gMak|erNum = |
|0000bc10| 31 31 39 20 74 68 65 6e | 20 20 2d 2d 20 73 70 65 |119 then|  -- spe|
|0000bc20| 63 69 61 6c 20 63 61 73 | 65 20 66 6f 72 20 4d 61 |cial cas|e for Ma|
|0000bc30| 74 69 73 73 65 0d 20 20 | 20 20 20 20 73 65 74 20 |tisse.  |    set |
|0000bc40| 74 68 65 20 63 61 73 74 | 6e 75 6d 20 6f 66 20 73 |the cast|num of s|
|0000bc50| 70 72 69 74 65 20 70 61 | 70 65 72 73 70 72 69 74 |prite pa|persprit|
|0000bc60| 65 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |e = the |number o|
|0000bc70| 66 20 63 61 73 74 20 28 | 70 61 70 65 72 26 22 2e |f cast (|paper&".|
|0000bc80| 6c 6f 67 6f 2e 4d 41 54 | 22 29 0d 20 20 20 20 65 |logo.MAT|").    e|
|0000bc90| 6c 73 65 0d 20 20 20 20 | 20 20 73 65 74 20 74 68 |lse.    |  set th|
|0000bca0| 65 20 63 61 73 74 6e 75 | 6d 20 6f 66 20 73 70 72 |e castnu|m of spr|
|0000bcb0| 69 74 65 20 70 61 70 65 | 72 73 70 72 69 74 65 20 |ite pape|rsprite |
|0000bcc0| 3d 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |= the nu|mber of |
|0000bcd0| 63 61 73 74 20 28 70 61 | 70 65 72 26 22 2e 6c 6f |cast (pa|per&".lo|
|0000bce0| 67 6f 22 29 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |go").   | end if.|
|0000bcf0| 20 20 20 20 0d 20 20 20 | 20 2d 2d 20 73 65 74 20 |    .   | -- set |
|0000bd00| 74 68 65 20 64 61 74 65 | 62 6f 78 0d 20 20 20 20 |the date|box.    |
|0000bd10| 69 66 20 63 68 61 72 20 | 31 20 6f 66 20 74 6d 70 |if char |1 of tmp|
|0000bd20| 64 61 74 65 20 3d 20 22 | 20 22 20 74 68 65 6e 20 |date = "| " then |
|0000bd30| 64 65 6c 65 74 65 20 63 | 68 61 72 20 31 20 6f 66 |delete c|har 1 of|
|0000bd40| 20 74 6d 70 64 61 74 65 | 0d 20 20 20 20 73 65 74 | tmpdate|.    set|
|0000bd50| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 66 69 65 | the tex|t of fie|
|0000bd60| 6c 64 20 22 64 61 74 65 | 22 20 3d 20 74 6d 70 64 |ld "date|" = tmpd|
|0000bd70| 61 74 65 0d 20 20 20 20 | 0d 20 20 20 20 2d 2d 20 |ate.    |.    -- |
|0000bd80| 70 72 65 70 61 72 65 20 | 74 68 65 20 68 65 61 64 |prepare |the head|
|0000bd90| 65 72 20 66 6f 72 20 74 | 68 65 20 70 72 69 6e 74 |er for t|he print|
|0000bda0| 6f 75 74 0d 20 20 20 20 | 73 65 74 20 67 50 72 69 |out.    |set gPri|
|0000bdb0| 6e 74 48 65 61 64 20 3d | 20 69 74 65 6d 20 67 43 |ntHead =| item gC|
|0000bdc0| 75 72 43 68 61 70 20 6f | 66 20 67 54 69 74 6c 65 |urChap o|f gTitle|
|0000bdd0| 73 20 26 20 72 65 74 75 | 72 6e 20 20 20 0d 20 20 |s & retu|rn   .  |
|0000bde0| 20 20 69 66 20 70 61 70 | 65 72 20 3d 20 22 54 69 |  if pap|er = "Ti|
|0000bdf0| 6d 65 73 22 20 74 68 65 | 6e 20 0d 20 20 20 20 20 |mes" the|n .     |
|0000be00| 20 70 75 74 20 22 54 68 | 65 20 54 69 6d 65 73 22 | put "Th|e Times"|
|0000be10| 20 26 20 72 65 74 75 72 | 6e 20 61 66 74 65 72 20 | & retur|n after |
|0000be20| 67 50 72 69 6e 74 48 65 | 61 64 0d 20 20 20 20 65 |gPrintHe|ad.    e|
|0000be30| 6c 73 65 20 69 66 20 70 | 61 70 65 72 20 3d 20 22 |lse if p|aper = "|
|0000be40| 53 75 6e 64 61 79 20 54 | 69 6d 65 73 22 20 74 68 |Sunday T|imes" th|
|0000be50| 65 6e 0d 20 20 20 20 20 | 20 70 75 74 20 22 53 75 |en.     | put "Su|
|0000be60| 6e 64 61 79 20 54 69 6d | 65 73 22 20 26 20 72 65 |nday Tim|es" & re|
|0000be70| 74 75 72 6e 20 61 66 74 | 65 72 20 67 50 72 69 6e |turn aft|er gPrin|
|0000be80| 74 48 65 61 64 0d 20 20 | 20 20 65 6c 73 65 20 69 |tHead.  |  else i|
|0000be90| 66 20 70 61 70 65 72 20 | 3d 20 22 74 6c 73 22 20 |f paper |= "tls" |
|0000bea0| 74 68 65 6e 0d 20 20 20 | 20 20 20 70 75 74 20 22 |then.   |   put "|
|0000beb0| 54 69 6d 65 73 20 4c 69 | 74 65 72 61 72 79 20 53 |Times Li|terary S|
|0000bec0| 75 70 70 6c 65 6d 65 6e | 74 22 20 26 20 72 65 74 |upplemen|t" & ret|
|0000bed0| 75 72 6e 20 61 66 74 65 | 72 20 67 50 72 69 6e 74 |urn afte|r gPrint|
|0000bee0| 48 65 61 64 0d 20 20 20 | 20 65 6c 73 65 20 0d 20 |Head.   | else . |
|0000bef0| 20 20 20 20 20 70 75 74 | 20 70 61 70 65 72 20 26 |     put| paper &|
|0000bf00| 20 72 65 74 75 72 6e 20 | 61 66 74 65 72 20 67 50 | return |after gP|
|0000bf10| 72 69 6e 74 48 65 61 64 | 0d 20 20 20 20 65 6e 64 |rintHead|.    end|
|0000bf20| 20 69 66 0d 20 20 20 20 | 70 75 74 20 74 6d 70 64 | if.    |put tmpd|
|0000bf30| 61 74 65 20 26 20 72 65 | 74 75 72 6e 20 61 66 74 |ate & re|turn aft|
|0000bf40| 65 72 20 67 50 72 69 6e | 74 48 65 61 64 0d 20 20 |er gPrin|tHead.  |
|0000bf50| 20 20 0d 20 20 20 20 73 | 65 74 20 67 41 72 74 69 |  .    s|et gArti|
|0000bf60| 63 6c 65 50 61 67 65 20 | 3d 20 31 20 20 2d 2d 20 |clePage |= 1  -- |
|0000bf70| 73 74 61 72 74 20 6f 6e | 20 70 61 67 65 20 6f 6e |start on| page on|
|0000bf80| 65 20 0d 20 20 20 20 0d | 20 20 20 20 2d 2d 20 67 |e .    .|    -- g|
|0000bf90| 65 74 20 74 68 65 20 63 | 75 74 74 69 6e 67 73 20 |et the c|uttings |
|0000bfa0| 74 65 78 74 20 20 20 0d | 20 20 20 20 73 65 74 20 |text   .|    set |
|0000bfb0| 61 72 74 20 3d 20 28 67 | 43 75 72 43 68 61 70 29 |art = (g|CurChap)|
|0000bfc0| 20 26 20 22 2e 22 20 26 | 20 67 43 75 72 41 72 74 | & "." &| gCurArt|
|0000bfd0| 69 63 6c 65 0d 20 20 20 | 20 0d 20 20 20 20 2d 2d |icle.   | .    --|
|0000bfe0| 20 66 69 6e 64 20 74 68 | 65 20 69 6e 64 65 78 20 | find th|e index |
|0000bff0| 69 6e 20 74 68 65 20 69 | 6e 64 65 78 20 6c 69 73 |in the i|ndex lis|
|0000c000| 74 0d 20 20 20 20 73 65 | 74 20 6e 75 6d 20 3d 20 |t.    se|t num = |
|0000c010| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 69 74 |the numb|er of it|
|0000c020| 65 6d 73 20 6f 66 20 67 | 43 75 72 49 6e 64 65 78 |ems of g|CurIndex|
|0000c030| 0d 20 20 20 20 73 65 74 | 20 69 6e 64 65 78 20 3d |.    set| index =|
|0000c040| 20 2d 31 0d 20 20 20 20 | 0d 20 20 20 20 72 65 70 | -1.    |.    rep|
|0000c050| 65 61 74 20 77 69 74 68 | 20 69 20 3d 20 32 20 74 |eat with| i = 2 t|
|0000c060| 6f 20 6e 75 6d 0d 20 20 | 20 20 20 20 73 65 74 20 |o num.  |    set |
|0000c070| 74 6d 70 20 3d 20 69 74 | 65 6d 20 69 20 6f 66 20 |tmp = it|em i of |
|0000c080| 67 43 75 72 49 6e 64 65 | 78 0d 20 20 20 20 20 20 |gCurInde|x.      |
|0000c090| 73 65 74 20 74 6d 70 32 | 20 3d 20 69 74 65 6d 20 |set tmp2| = item |
|0000c0a0| 28 69 2b 31 29 20 6f 66 | 20 67 43 75 72 49 6e 64 |(i+1) of| gCurInd|
|0000c0b0| 65 78 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |ex.     | .      |
|0000c0c0| 69 66 20 61 72 74 20 3d | 20 63 68 61 72 20 31 20 |if art =| char 1 |
|0000c0d0| 74 6f 20 33 20 6f 66 20 | 74 6d 70 20 74 68 65 6e |to 3 of |tmp then|
|0000c0e0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|0000c0f0| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|0000c100| 20 22 3a 22 0d 20 20 20 | 20 20 20 20 20 73 65 74 | ":".   |     set|
|0000c110| 20 69 6e 64 65 78 20 3d | 20 76 61 6c 75 65 28 69 | index =| value(i|
|0000c120| 74 65 6d 20 32 20 6f 66 | 20 74 6d 70 29 0d 20 20 |tem 2 of| tmp).  |
|0000c130| 20 20 20 20 20 20 73 65 | 74 20 6e 65 78 74 69 6e |      se|t nextin|
|0000c140| 64 65 78 20 3d 20 76 61 | 6c 75 65 20 28 69 74 65 |dex = va|lue (ite|
|0000c150| 6d 20 32 20 6f 66 20 74 | 6d 70 32 29 0d 20 20 20 |m 2 of t|mp2).   |
|0000c160| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 69 74 65 |     set| the ite|
|0000c170| 6d 64 65 6c 69 6d 69 74 | 65 72 20 3d 20 22 2c 22 |mdelimit|er = ","|
|0000c180| 0d 20 20 20 20 20 20 20 | 20 65 78 69 74 20 72 65 |.       | exit re|
|0000c190| 70 65 61 74 0d 20 20 20 | 20 20 20 65 6e 64 20 69 |peat.   |   end i|
|0000c1a0| 66 0d 20 20 20 20 65 6e | 64 20 72 65 70 65 61 74 |f.    en|d repeat|
|0000c1b0| 0d 20 20 20 20 0d 20 20 | 20 20 0d 20 20 20 20 2d |.    .  |  .    -|
|0000c1c0| 2d 20 67 65 74 20 74 68 | 65 20 63 75 74 74 69 6e |- get th|e cuttin|
|0000c1d0| 67 20 74 65 78 74 0d 20 | 20 20 20 2d 2d 20 69 74 |g text. |   -- it|
|0000c1e0| 73 20 6f 6b 20 69 66 20 | 74 68 65 20 63 75 74 74 |s ok if |the cutt|
|0000c1f0| 69 6e 67 20 73 68 6f 77 | 73 20 75 70 20 61 20 62 |ing show|s up a b|
|0000c200| 69 74 20 61 66 74 65 72 | 20 74 68 65 20 72 65 73 |it after| the res|
|0000c210| 74 20 6f 66 20 74 68 65 | 20 73 63 72 65 65 6e 20 |t of the| screen |
|0000c220| 20 20 20 0d 20 20 20 20 | 69 66 20 69 6e 64 65 78 |   .    |if index|
|0000c230| 20 3c 3e 20 2d 31 20 74 | 68 65 6e 0d 20 20 20 20 | <> -1 t|hen.    |
|0000c240| 20 20 2d 2d 20 67 65 74 | 20 74 68 65 20 6e 65 63 |  -- get| the nec|
|0000c250| 65 73 73 61 72 79 20 61 | 72 74 69 63 6c 65 20 6f |essary a|rticle o|
|0000c260| 75 74 20 6f 66 20 74 68 | 65 20 67 46 75 6c 6c 43 |ut of th|e gFullC|
|0000c270| 75 74 74 69 6e 67 73 20 | 20 20 20 20 20 0d 20 20 |uttings |     .  |
|0000c280| 20 20 20 20 69 66 20 6e | 65 78 74 69 6e 64 65 78 |    if n|extindex|
|0000c290| 20 3c 3e 20 22 22 20 61 | 6e 64 20 6e 65 78 74 69 | <> "" a|nd nexti|
|0000c2a0| 6e 64 65 78 20 3c 3e 20 | 30 20 74 68 65 6e 0d 20 |ndex <> |0 then. |
|0000c2b0| 20 20 20 20 20 20 20 69 | 66 20 69 6e 64 65 78 20 |       i|f index |
|0000c2c0| 3e 20 30 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |> 0 then|.       |
|0000c2d0| 20 20 20 73 65 74 20 67 | 43 75 72 43 75 74 74 69 |   set g|CurCutti|
|0000c2e0| 6e 67 20 3d 20 63 68 61 | 72 20 69 6e 64 65 78 20 |ng = cha|r index |
|0000c2f0| 74 6f 20 6e 65 78 74 69 | 6e 64 65 78 20 6f 66 20 |to nexti|ndex of |
|0000c300| 67 46 75 6c 6c 43 75 74 | 74 69 6e 67 73 0d 20 20 |gFullCut|tings.  |
|0000c310| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |      el|se.     |
|0000c320| 20 20 20 20 20 73 65 74 | 20 67 43 75 72 43 75 74 |     set| gCurCut|
|0000c330| 74 69 6e 67 20 3d 20 63 | 68 61 72 20 31 20 74 6f |ting = c|har 1 to|
|0000c340| 20 6e 65 78 74 69 6e 64 | 65 78 20 6f 66 20 67 46 | nextind|ex of gF|
|0000c350| 75 6c 6c 43 75 74 74 69 | 6e 67 73 0d 20 20 20 20 |ullCutti|ngs.    |
|0000c360| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|0000c370| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 20 20 69 66 | else.  |      if|
|0000c380| 20 69 6e 64 65 78 20 3e | 20 30 20 74 68 65 6e 0d | index >| 0 then.|
|0000c390| 20 20 20 20 20 20 20 20 | 20 20 73 65 74 20 67 43 |        |  set gC|
|0000c3a0| 75 72 43 75 74 74 69 6e | 67 20 3d 20 63 68 61 72 |urCuttin|g = char|
|0000c3b0| 20 69 6e 64 65 78 20 74 | 6f 20 28 74 68 65 20 6e | index t|o (the n|
|0000c3c0| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 73 20 6f |umber of| chars o|
|0000c3d0| 66 20 67 46 75 6c 6c 43 | 75 74 74 69 6e 67 73 29 |f gFullC|uttings)|
|0000c3e0| 20 6f 66 20 67 46 75 6c | 6c 43 75 74 74 69 6e 67 | of gFul|lCutting|
|0000c3f0| 73 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 65 |s     . |       e|
|0000c400| 6c 73 65 0d 20 20 20 20 | 20 20 20 20 20 20 73 65 |lse.    |      se|
|0000c410| 74 20 67 43 75 72 43 75 | 74 74 69 6e 67 20 3d 20 |t gCurCu|tting = |
|0000c420| 63 68 61 72 20 31 20 74 | 6f 20 28 74 68 65 20 6e |char 1 t|o (the n|
|0000c430| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 73 20 6f |umber of| chars o|
|0000c440| 66 20 67 46 75 6c 6c 43 | 75 74 74 69 6e 67 73 29 |f gFullC|uttings)|
|0000c450| 20 6f 66 20 67 46 75 6c | 6c 43 75 74 74 69 6e 67 | of gFul|lCutting|
|0000c460| 73 0d 20 20 20 20 20 20 | 20 20 65 6e 64 20 69 66 |s.      |  end if|
|0000c470| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |.      e|nd if.  |
|0000c480| 20 20 20 20 0d 20 20 20 | 20 20 20 64 65 6c 65 74 |    .   |   delet|
|0000c490| 65 20 6c 69 6e 65 20 31 | 20 74 6f 20 32 20 6f 66 |e line 1| to 2 of|
|0000c4a0| 20 67 43 75 72 43 75 74 | 74 69 6e 67 0d 20 20 20 | gCurCut|ting.   |
|0000c4b0| 20 20 20 0d 20 20 20 20 | 20 20 2d 2d 20 62 72 65 |   .    |  -- bre|
|0000c4c0| 61 6b 20 74 68 65 20 74 | 65 78 74 20 63 6f 72 72 |ak the t|ext corr|
|0000c4d0| 65 63 74 6c 79 20 43 55 | 54 54 49 4e 47 0d 20 20 |ectly CU|TTING.  |
|0000c4e0| 20 20 20 20 69 66 20 67 | 57 6f 72 6c 64 20 3d 20 |    if g|World = |
|0000c4f0| 22 44 69 73 63 6f 76 65 | 72 22 20 74 68 65 6e 0d |"Discove|r" then.|
|0000c500| 20 20 20 20 20 20 20 20 | 73 65 74 20 67 46 6f 72 |        |set gFor|
|0000c510| 6d 61 74 74 65 64 54 65 | 78 74 20 3d 20 46 69 6c |mattedTe|xt = Fil|
|0000c520| 6c 54 65 78 74 28 67 43 | 75 72 43 75 74 74 69 6e |lText(gC|urCuttin|
|0000c530| 67 2c 22 54 69 6d 65 73 | 22 2c 31 38 2c 34 30 30 |g,"Times|",18,400|
|0000c540| 29 0d 20 20 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |).      |else.   |
|0000c550| 20 20 20 20 20 73 65 74 | 20 67 46 6f 72 6d 61 74 |     set| gFormat|
|0000c560| 74 65 64 54 65 78 74 20 | 3d 20 46 69 6c 6c 54 65 |tedText |= FillTe|
|0000c570| 78 74 28 67 43 75 72 43 | 75 74 74 69 6e 67 2c 22 |xt(gCurC|utting,"|
|0000c580| 54 69 6d 65 73 22 2c 31 | 38 2c 34 34 30 29 0d 20 |Times",1|8,440). |
|0000c590| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|0000c5a0| 20 20 0d 20 20 20 20 20 | 20 64 65 6c 65 74 65 20 |  .     | delete |
|0000c5b0| 6c 69 6e 65 20 28 74 68 | 65 20 6e 75 6d 62 65 72 |line (th|e number|
|0000c5c0| 20 6f 66 20 6c 69 6e 65 | 73 20 6f 66 20 67 46 6f | of line|s of gFo|
|0000c5d0| 72 6d 61 74 74 65 64 54 | 65 78 74 29 20 6f 66 20 |rmattedT|ext) of |
|0000c5e0| 67 46 6f 72 6d 61 74 74 | 65 64 54 65 78 74 20 0d |gFormatt|edText .|
|0000c5f0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 74 65 |      se|t the te|
|0000c600| 78 74 20 6f 66 20 66 69 | 65 6c 64 20 22 63 75 74 |xt of fi|eld "cut|
|0000c610| 74 69 6e 67 22 20 3d 20 | 6c 69 6e 65 20 31 20 74 |ting" = |line 1 t|
|0000c620| 6f 20 67 4d 61 78 4c 69 | 6e 65 73 20 6f 66 20 67 |o gMaxLi|nes of g|
|0000c630| 46 6f 72 6d 61 74 74 65 | 64 54 65 78 74 0d 20 20 |Formatte|dText.  |
|0000c640| 20 20 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 |    set |the text|
|0000c650| 68 65 69 67 68 74 20 6f | 66 20 66 69 65 6c 64 20 |height o|f field |
|0000c660| 22 63 75 74 74 69 6e 67 | 22 20 3d 20 32 31 20 2d |"cutting|" = 21 -|
|0000c670| 2d 20 6c 65 61 64 69 6e | 67 0d 20 20 20 20 20 20 |- leadin|g.      |
|0000c680| 73 65 74 20 74 6d 70 6c | 69 6e 65 73 20 3d 20 28 |set tmpl|ines = (|
|0000c690| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |the numb|er of li|
|0000c6a0| 6e 65 73 20 6f 66 20 67 | 46 6f 72 6d 61 74 74 65 |nes of g|Formatte|
|0000c6b0| 64 54 65 78 74 29 20 0d | 20 20 20 20 20 20 0d 20 |dText) .|      . |
|0000c6c0| 20 20 20 20 20 2d 2d 20 | 66 69 67 75 72 65 20 6f |     -- |figure o|
|0000c6d0| 75 74 20 68 6f 77 20 6d | 61 6e 79 20 70 61 67 65 |ut how m|any page|
|0000c6e0| 73 20 77 65 20 68 61 76 | 65 0d 20 20 20 20 20 20 |s we hav|e.      |
|0000c6f0| 73 65 74 20 67 54 65 78 | 74 50 61 67 65 73 20 3d |set gTex|tPages =|
|0000c700| 20 74 6d 70 6c 69 6e 65 | 73 20 2f 20 67 4d 61 78 | tmpline|s / gMax|
|0000c710| 4c 69 6e 65 73 0d 20 20 | 20 20 20 20 69 66 20 67 |Lines.  |    if g|
|0000c720| 54 65 78 74 50 61 67 65 | 73 20 2a 20 67 4d 61 78 |TextPage|s * gMax|
|0000c730| 4c 69 6e 65 73 20 3c 20 | 74 6d 70 6c 69 6e 65 73 |Lines < |tmplines|
|0000c740| 20 74 68 65 6e 20 73 65 | 74 20 67 54 65 78 74 50 | then se|t gTextP|
|0000c750| 61 67 65 73 20 3d 20 67 | 54 65 78 74 50 61 67 65 |ages = g|TextPage|
|0000c760| 73 20 2b 20 31 0d 20 20 | 20 20 20 20 0d 20 20 20 |s + 1.  |    .   |
|0000c770| 20 65 6e 64 20 69 66 0d | 20 20 20 20 0d 20 20 20 | end if.|    .   |
|0000c780| 20 2d 2d 20 67 65 74 20 | 72 69 64 20 6f 66 20 74 | -- get |rid of t|
|0000c790| 68 65 20 66 6f 72 77 61 | 72 64 20 61 6e 64 20 62 |he forwa|rd and b|
|0000c7a0| 61 63 6b 77 61 72 64 20 | 62 75 74 74 6f 6e 73 20 |ackward |buttons |
|0000c7b0| 61 73 20 6e 65 63 65 73 | 73 61 72 79 0d 20 20 20 |as neces|sary.   |
|0000c7c0| 20 69 66 20 67 54 65 78 | 74 50 61 67 65 73 20 3d | if gTex|tPages =|
|0000c7d0| 20 31 20 74 68 65 6e 0d | 20 20 20 20 20 20 73 65 | 1 then.|      se|
|0000c7e0| 74 20 74 68 65 20 76 69 | 73 69 62 69 6c 69 74 79 |t the vi|sibility|
|0000c7f0| 20 6f 66 20 73 70 72 69 | 74 65 20 66 6f 72 77 61 | of spri|te forwa|
|0000c800| 72 64 62 75 74 74 6f 6e | 20 3d 20 30 0d 20 20 20 |rdbutton| = 0.   |
|0000c810| 20 20 20 2d 2d 20 70 75 | 70 70 65 74 73 70 72 69 |   -- pu|ppetspri|
|0000c820| 74 65 20 66 6f 72 77 61 | 72 64 62 75 74 74 6f 6e |te forwa|rdbutton|
|0000c830| 2c 31 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |,1      |  .     |
|0000c840| 20 2d 2d 20 73 65 74 20 | 74 68 65 20 6c 6f 63 68 | -- set |the loch|
|0000c850| 20 6f 66 20 73 70 72 69 | 74 65 20 66 6f 72 77 61 | of spri|te forwa|
|0000c860| 72 64 62 75 74 74 6f 6e | 20 3d 20 31 30 30 30 0d |rdbutton| = 1000.|
|0000c870| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 73 |    else|.      s|
|0000c880| 65 74 20 74 68 65 20 76 | 69 73 69 62 69 6c 69 74 |et the v|isibilit|
|0000c890| 79 20 6f 66 20 73 70 72 | 69 74 65 20 66 6f 72 77 |y of spr|ite forw|
|0000c8a0| 61 72 64 62 75 74 74 6f | 6e 20 3d 20 31 0d 20 20 |ardbutto|n = 1.  |
|0000c8b0| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 73 65 74 |  end if|.    set|
|0000c8c0| 20 74 68 65 20 76 69 73 | 69 62 69 6c 69 74 79 20 | the vis|ibility |
|0000c8d0| 6f 66 20 73 70 72 69 74 | 65 20 62 61 63 6b 62 75 |of sprit|e backbu|
|0000c8e0| 74 74 6f 6e 20 3d 20 30 | 0d 20 20 20 20 2d 2d 20 |tton = 0|.    -- |
|0000c8f0| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 62 61 63 |puppetsp|rite bac|
|0000c900| 6b 62 75 74 74 6f 6e 2c | 31 0d 20 20 20 20 2d 2d |kbutton,|1.    --|
|0000c910| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|0000c920| 20 73 70 72 69 74 65 20 | 62 61 63 6b 62 75 74 74 | sprite |backbutt|
|0000c930| 6f 6e 20 3d 20 31 30 30 | 30 0d 20 20 20 20 0d 20 |on = 100|0.    . |
|0000c940| 20 20 20 2d 2d 20 61 64 | 6a 75 73 74 20 74 68 65 |   -- ad|just the|
|0000c950| 20 68 65 69 67 68 74 20 | 6f 66 20 74 68 65 20 43 | height |of the C|
|0000c960| 75 74 74 69 6e 67 20 63 | 61 70 74 69 6f 6e 2c 20 |utting c|aption, |
|0000c970| 74 6f 20 63 65 6e 74 65 | 72 20 69 74 0d 20 20 20 |to cente|r it.   |
|0000c980| 20 69 66 20 67 57 6f 72 | 6c 64 20 3d 20 22 50 6f | if gWor|ld = "Po|
|0000c990| 77 65 72 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |wer" the|n.      |
|0000c9a0| 73 65 74 20 63 65 6e 74 | 65 72 70 6f 69 6e 74 20 |set cent|erpoint |
|0000c9b0| 3d 20 32 37 37 0d 20 20 | 20 20 65 6c 73 65 20 69 |= 277.  |  else i|
|0000c9c0| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 44 65 73 69 |f gWorld| = "Desi|
|0000c9d0| 67 6e 22 20 74 68 65 6e | 0d 20 20 20 20 20 20 73 |gn" then|.      s|
|0000c9e0| 65 74 20 63 65 6e 74 65 | 72 70 6f 69 6e 74 20 3d |et cente|rpoint =|
|0000c9f0| 20 32 39 35 0d 20 20 20 | 20 65 6c 73 65 20 69 66 | 295.   | else if|
|0000ca00| 20 67 57 6f 72 6c 64 20 | 3d 20 22 53 65 6e 73 65 | gWorld |= "Sense|
|0000ca10| 73 22 20 74 68 65 6e 0d | 20 20 20 20 20 20 73 65 |s" then.|      se|
|0000ca20| 74 20 63 65 6e 74 65 72 | 70 6f 69 6e 74 20 3d 20 |t center|point = |
|0000ca30| 32 39 35 0d 20 20 20 20 | 65 6c 73 65 20 69 66 20 |295.    |else if |
|0000ca40| 67 57 6f 72 6c 64 20 3d | 20 22 4d 69 6e 64 22 20 |gWorld =| "Mind" |
|0000ca50| 74 68 65 6e 0d 20 20 20 | 20 20 20 73 65 74 20 63 |then.   |   set c|
|0000ca60| 65 6e 74 65 72 70 6f 69 | 6e 74 20 3d 20 32 38 32 |enterpoi|nt = 282|
|0000ca70| 0d 20 20 20 20 65 6c 73 | 65 20 69 66 20 67 57 6f |.    els|e if gWo|
|0000ca80| 72 6c 64 20 3d 20 22 42 | 6f 64 79 22 20 74 68 65 |rld = "B|ody" the|
|0000ca90| 6e 0d 20 20 20 20 20 20 | 73 65 74 20 63 65 6e 74 |n.      |set cent|
|0000caa0| 65 72 70 6f 69 6e 74 20 | 3d 20 32 37 35 0d 20 20 |erpoint |= 275.  |
|0000cab0| 20 20 65 6c 73 65 20 69 | 66 20 67 57 6f 72 6c 64 |  else i|f gWorld|
|0000cac0| 20 3d 20 22 44 69 73 63 | 6f 76 65 72 22 20 74 68 | = "Disc|over" th|
|0000cad0| 65 6e 0d 20 20 20 20 20 | 20 73 65 74 20 63 65 6e |en.     | set cen|
|0000cae0| 74 65 72 70 6f 69 6e 74 | 20 3d 20 32 36 37 0d 20 |terpoint| = 267. |
|0000caf0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 73 65 |   end i|f.    se|
|0000cb00| 74 20 63 61 70 68 20 3d | 20 74 68 65 20 68 65 69 |t caph =| the hei|
|0000cb10| 67 68 74 20 6f 66 20 63 | 61 73 74 20 22 63 61 70 |ght of c|ast "cap|
|0000cb20| 74 69 6f 6e 22 0d 20 20 | 20 20 0d 20 20 20 20 0d |tion".  |  .    .|
|0000cb30| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 76 |    set |the locv|
|0000cb40| 20 6f 66 20 73 70 72 69 | 74 65 20 63 61 70 74 69 | of spri|te capti|
|0000cb50| 6f 6e 73 70 72 69 74 65 | 20 3d 20 63 65 6e 74 65 |onsprite| = cente|
|0000cb60| 72 70 6f 69 6e 74 20 2d | 20 28 63 61 70 68 2f 32 |rpoint -| (caph/2|
|0000cb70| 29 0d 20 20 20 20 0d 20 | 20 20 20 0d 20 20 20 20 |).    . |   .    |
|0000cb80| 2d 2d 20 70 75 74 20 74 | 68 65 20 73 63 72 65 65 |-- put t|he scree|
|0000cb90| 6e 20 69 6e 20 70 6c 61 | 63 65 20 61 6c 6c 20 61 |n in pla|ce all a|
|0000cba0| 74 20 6f 6e 63 65 0d 20 | 20 20 20 73 65 74 20 74 |t once. |   set t|
|0000cbb0| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|0000cbc0| 65 20 63 75 74 74 69 6e | 67 73 70 72 69 74 65 20 |e cuttin|gsprite |
|0000cbd0| 3d 20 63 75 74 74 69 6e | 67 6c 6f 63 68 0d 20 20 |= cuttin|gloch.  |
|0000cbe0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|0000cbf0| 66 20 73 70 72 69 74 65 | 20 74 69 74 6c 65 73 70 |f sprite| titlesp|
|0000cc00| 72 69 74 65 20 3d 20 74 | 69 74 6c 65 6c 6f 63 68 |rite = t|itleloch|
|0000cc10| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |.    set| the loc|
|0000cc20| 68 20 6f 66 20 73 70 72 | 69 74 65 20 64 61 74 65 |h of spr|ite date|
|0000cc30| 73 70 72 69 74 65 20 3d | 20 64 61 74 65 6c 6f 63 |sprite =| dateloc|
|0000cc40| 68 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |h.    se|t the lo|
|0000cc50| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 70 61 70 |ch of sp|rite pap|
|0000cc60| 65 72 73 70 72 69 74 65 | 20 3d 20 67 50 61 70 65 |ersprite| = gPape|
|0000cc70| 72 6c 6f 63 68 20 0d 20 | 20 20 20 0d 20 20 20 20 |rloch . |   .    |
|0000cc80| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|0000cc90| 73 70 72 69 74 65 20 63 | 61 70 74 69 6f 6e 73 70 |sprite c|aptionsp|
|0000cca0| 72 69 74 65 20 3d 20 63 | 61 70 74 69 6f 6e 6c 6f |rite = c|aptionlo|
|0000ccb0| 63 68 0d 20 20 20 20 0d | 20 20 20 20 69 66 20 67 |ch.    .|    if g|
|0000ccc0| 57 6f 72 6c 64 20 3d 20 | 22 53 65 6e 73 65 73 22 |World = |"Senses"|
|0000ccd0| 20 74 68 65 6e 20 2d 2d | 20 69 6e 20 73 65 6e 73 | then --| in sens|
|0000cce0| 65 73 20 77 65 20 68 61 | 76 65 20 74 6f 20 6d 6f |es we ha|ve to mo|
|0000ccf0| 76 65 20 74 68 65 20 6e | 61 6d 65 20 62 69 74 6d |ve the n|ame bitm|
|0000cd00| 61 70 0d 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |ap.     | set the|
|0000cd10| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|0000cd20| 6e 61 6d 65 73 70 72 69 | 74 65 20 3d 20 39 35 0d |namespri|te = 95.|
|0000cd30| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|0000cd40| 63 76 20 6f 66 20 73 70 | 72 69 74 65 20 6e 61 6d |cv of sp|rite nam|
|0000cd50| 65 73 70 72 69 74 65 20 | 3d 20 32 35 0d 20 20 20 |esprite |= 25.   |
|0000cd60| 20 65 6c 73 65 20 69 66 | 20 67 57 6f 72 6c 64 20 | else if| gWorld |
|0000cd70| 3d 20 22 44 65 73 69 67 | 6e 22 20 74 68 65 6e 0d |= "Desig|n" then.|
|0000cd80| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 63 61 |      se|t the ca|
|0000cd90| 73 74 6e 75 6d 20 6f 66 | 20 73 70 72 69 74 65 20 |stnum of| sprite |
|0000cda0| 6e 61 6d 65 73 70 72 69 | 74 65 20 3d 20 74 68 65 |namespri|te = the|
|0000cdb0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|0000cdc0| 28 67 4d 61 6b 65 72 4e | 75 6d 20 26 20 22 2e 6e |(gMakerN|um & ".n|
|0000cdd0| 61 6d 65 32 22 29 0d 20 | 20 20 20 20 20 73 65 74 |ame2"). |     set|
|0000cde0| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|0000cdf0| 69 74 65 20 6e 61 6d 65 | 73 70 72 69 74 65 20 3d |ite name|sprite =|
|0000ce00| 20 39 32 0d 20 20 20 20 | 20 20 73 65 74 20 74 68 | 92.    |  set th|
|0000ce10| 65 20 6c 6f 63 76 20 6f | 66 20 73 70 72 69 74 65 |e locv o|f sprite|
|0000ce20| 20 6e 61 6d 65 73 70 72 | 69 74 65 20 3d 20 34 38 | namespr|ite = 48|
|0000ce30| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |.    end| if.    |
|0000ce40| 0d 20 20 20 20 75 70 64 | 61 74 65 73 74 61 67 65 |.    upd|atestage|
|0000ce50| 0d 20 20 20 20 0d 20 20 | 20 20 2d 2d 20 6e 6f 72 |.    .  |  -- nor|
|0000ce60| 6d 61 6c 20 63 75 72 73 | 6f 72 0d 20 20 20 20 63 |mal curs|or.    c|
|0000ce70| 75 72 73 6f 72 20 30 0d | 20 20 20 20 0d 20 20 20 |ursor 0.|    .   |
|0000ce80| 20 2d 2d 20 50 41 52 54 | 57 4f 52 4b 0d 20 20 65 | -- PART|WORK.  e|
|0000ce90| 6c 73 65 20 69 66 20 74 | 79 70 65 20 3d 20 22 70 |lse if t|ype = "p|
|0000cea0| 61 72 74 77 6f 72 6b 22 | 20 6f 72 20 74 79 70 65 |artwork"| or type|
|0000ceb0| 20 3d 20 22 50 61 72 74 | 77 6f 72 6b 22 20 74 68 | = "Part|work" th|
|0000cec0| 65 6e 20 20 0d 20 20 20 | 20 0d 20 20 20 20 0d 20 |en  .   | .    . |
|0000ced0| 20 20 20 69 66 20 67 43 | 75 72 43 68 61 70 20 3d |   if gC|urChap =|
|0000cee0| 20 31 20 74 68 65 6e 20 | 20 20 20 20 20 20 20 20 | 1 then |        |
|0000cef0| 20 20 2d 2d 20 72 65 61 | 6c 20 70 61 72 74 77 6f |  -- rea|l partwo|
|0000cf00| 72 6b 0d 20 20 20 20 20 | 20 69 66 20 67 57 6f 72 |rk.     | if gWor|
|0000cf10| 6c 64 20 3d 20 22 73 65 | 6e 73 65 73 22 20 74 68 |ld = "se|nses" th|
|0000cf20| 65 6e 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 67 |en.     |   set g|
|0000cf30| 4d 61 78 4c 69 6e 65 73 | 20 3d 20 32 30 0d 20 20 |MaxLines| = 20.  |
|0000cf40| 20 20 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 |    else| if gWor|
|0000cf50| 6c 64 20 3d 20 22 6d 69 | 6e 64 22 20 74 68 65 6e |ld = "mi|nd" then|
|0000cf60| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 67 4d 61 |.       | set gMa|
|0000cf70| 78 4c 69 6e 65 73 20 3d | 20 31 37 0d 20 20 20 20 |xLines =| 17.    |
|0000cf80| 20 20 65 6c 73 65 20 69 | 66 20 67 57 6f 72 6c 64 |  else i|f gWorld|
|0000cf90| 20 3d 20 22 62 6f 64 79 | 22 20 74 68 65 6e 0d 20 | = "body|" then. |
|0000cfa0| 20 20 20 20 20 20 20 73 | 65 74 20 67 4d 61 78 4c |       s|et gMaxL|
|0000cfb0| 69 6e 65 73 20 3d 20 31 | 37 0d 20 20 20 20 20 20 |ines = 1|7.      |
|0000cfc0| 65 6c 73 65 20 69 66 20 | 67 57 6f 72 6c 64 20 3d |else if |gWorld =|
|0000cfd0| 20 22 64 69 73 63 6f 76 | 65 72 22 20 74 68 65 6e | "discov|er" then|
|0000cfe0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 67 4d 61 |.       | set gMa|
|0000cff0| 78 4c 69 6e 65 73 20 3d | 20 31 35 0d 20 20 20 20 |xLines =| 15.    |
|0000d000| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 20 20 73 |  else. |       s|
|0000d010| 65 74 20 67 4d 61 78 4c | 69 6e 65 73 20 3d 20 31 |et gMaxL|ines = 1|
|0000d020| 35 0d 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |5.      |end if. |
|0000d030| 20 20 20 65 6c 73 65 20 | 20 20 20 20 20 20 20 20 |   else |        |
|0000d040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|0000d050| 20 20 2d 2d 20 69 6e 6e | 65 72 20 70 61 72 74 77 |  -- inn|er partw|
|0000d060| 6f 72 6b 73 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |orks.   |   .    |
|0000d070| 20 20 0d 20 20 20 20 20 | 20 69 66 20 67 57 6f 72 |  .     | if gWor|
|0000d080| 6c 64 20 3d 20 22 73 65 | 6e 73 65 73 22 20 74 68 |ld = "se|nses" th|
|0000d090| 65 6e 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 67 |en.     |   set g|
|0000d0a0| 4d 61 78 4c 69 6e 65 73 | 20 3d 20 31 31 0d 20 20 |MaxLines| = 11.  |
|0000d0b0| 20 20 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 |    else| if gWor|
|0000d0c0| 6c 64 20 3d 20 22 6d 69 | 6e 64 22 20 74 68 65 6e |ld = "mi|nd" then|
|0000d0d0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 67 4d 61 |.       | set gMa|
|0000d0e0| 78 4c 69 6e 65 73 20 3d | 20 38 0d 20 20 20 20 20 |xLines =| 8.     |
|0000d0f0| 20 65 6c 73 65 20 69 66 | 20 67 57 6f 72 6c 64 20 | else if| gWorld |
|0000d100| 3d 20 22 64 69 73 63 6f | 76 65 72 22 20 74 68 65 |= "disco|ver" the|
|0000d110| 6e 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 67 4d |n.      |  set gM|
|0000d120| 61 78 4c 69 6e 65 73 20 | 3d 20 38 0d 20 20 20 20 |axLines |= 8.    |
|0000d130| 20 20 65 6c 73 65 20 69 | 66 20 67 57 6f 72 6c 64 |  else i|f gWorld|
|0000d140| 20 3d 20 22 64 65 73 69 | 67 6e 22 20 74 68 65 6e | = "desi|gn" then|
|0000d150| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 67 4d 61 |.       | set gMa|
|0000d160| 78 4c 69 6e 65 73 20 3d | 20 37 0d 20 20 20 20 20 |xLines =| 7.     |
|0000d170| 20 65 6c 73 65 20 69 66 | 20 67 57 6f 72 6c 64 20 | else if| gWorld |
|0000d180| 3d 20 22 70 6f 77 65 72 | 22 20 74 68 65 6e 0d 20 |= "power|" then. |
|0000d190| 20 20 20 20 20 20 20 73 | 65 74 20 67 4d 61 78 4c |       s|et gMaxL|
|0000d1a0| 69 6e 65 73 20 3d 20 39 | 0d 20 20 20 20 20 20 65 |ines = 9|.      e|
|0000d1b0| 6c 73 65 20 69 66 20 67 | 57 6f 72 6c 64 20 3d 20 |lse if g|World = |
|0000d1c0| 22 62 6f 64 79 22 20 74 | 68 65 6e 0d 20 20 20 20 |"body" t|hen.    |
|0000d1d0| 20 20 20 20 73 65 74 20 | 67 4d 61 78 4c 69 6e 65 |    set |gMaxLine|
|0000d1e0| 73 20 3d 20 31 31 0d 20 | 20 20 20 20 20 65 6c 73 |s = 11. |     els|
|0000d1f0| 65 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 67 4d |e.      |  set gM|
|0000d200| 61 78 4c 69 6e 65 73 20 | 3d 20 31 35 0d 20 20 20 |axLines |= 15.   |
|0000d210| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|0000d220| 0d 20 20 20 20 20 20 0d | 20 20 20 20 65 6e 64 20 |.      .|    end |
|0000d230| 69 66 0d 20 20 20 20 0d | 20 20 20 20 0d 20 20 20 |if.    .|    .   |
|0000d240| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|0000d250| 20 73 70 72 69 74 65 20 | 68 65 61 64 73 70 72 69 | sprite |headspri|
|0000d260| 74 65 20 3d 20 68 65 61 | 64 6c 6f 63 68 0d 20 20 |te = hea|dloch.  |
|0000d270| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|0000d280| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|0000d290| 74 65 20 3d 20 31 30 30 | 30 0d 20 20 20 20 70 75 |te = 100|0.    pu|
|0000d2a0| 70 70 65 74 73 70 72 69 | 74 65 20 70 61 70 65 72 |ppetspri|te paper|
|0000d2b0| 73 70 72 69 74 65 2c 30 | 0d 20 20 20 20 0d 20 20 |sprite,0|.    .  |
|0000d2c0| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f |  set th|e text o|
|0000d2d0| 66 20 66 69 65 6c 64 20 | 22 63 61 70 74 69 6f 6e |f field |"caption|
|0000d2e0| 2d 70 61 72 74 77 6f 72 | 6b 22 20 3d 20 20 20 22 |-partwor|k" =   "|
|0000d2f0| 20 22 0d 20 20 20 20 69 | 66 20 67 57 6f 72 6c 64 | ".    i|f gWorld|
|0000d300| 20 3d 20 22 73 65 6e 73 | 65 73 22 20 74 68 65 6e | = "sens|es" then|
|0000d310| 0d 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 74 |.      s|et the t|
|0000d320| 65 78 74 68 65 69 67 68 | 74 20 6f 66 20 66 69 65 |extheigh|t of fie|
|0000d330| 6c 64 20 22 63 61 70 74 | 69 6f 6e 2d 70 61 72 74 |ld "capt|ion-part|
|0000d340| 77 6f 72 6b 22 20 3d 20 | 32 35 0d 20 20 20 20 65 |work" = |25.    e|
|0000d350| 6c 73 65 0d 20 20 20 20 | 20 20 73 65 74 20 74 68 |lse.    |  set th|
|0000d360| 65 20 74 65 78 74 68 65 | 69 67 68 74 20 6f 66 20 |e texthe|ight of |
|0000d370| 66 69 65 6c 64 20 22 63 | 61 70 74 69 6f 6e 2d 70 |field "c|aption-p|
|0000d380| 61 72 74 77 6f 72 6b 22 | 20 3d 20 31 38 0d 20 20 |artwork"| = 18.  |
|0000d390| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 0d 20 20 |  end if|.    .  |
|0000d3a0| 20 20 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 74 |  .    s|et the t|
|0000d3b0| 65 78 74 20 6f 66 20 66 | 69 65 6c 64 20 22 70 61 |ext of f|ield "pa|
|0000d3c0| 72 74 77 6f 72 6b 22 20 | 3d 20 22 20 22 0d 20 20 |rtwork" |= " ".  |
|0000d3d0| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f |  set th|e text o|
|0000d3e0| 66 20 66 69 65 6c 64 20 | 22 70 61 72 74 77 6f 72 |f field |"partwor|
|0000d3f0| 6b 32 22 20 3d 20 22 20 | 22 0d 20 20 20 20 73 65 |k2" = " |".    se|
|0000d400| 74 20 74 68 65 20 74 65 | 78 74 73 69 7a 65 20 6f |t the te|xtsize o|
|0000d410| 66 20 66 69 65 6c 64 20 | 22 70 61 72 74 77 6f 72 |f field |"partwor|
|0000d420| 6b 22 20 3d 20 31 34 0d | 20 20 20 20 73 65 74 20 |k" = 14.|    set |
|0000d430| 74 68 65 20 74 65 78 74 | 73 69 7a 65 20 6f 66 20 |the text|size of |
|0000d440| 66 69 65 6c 64 20 22 70 | 61 72 74 77 6f 72 6b 32 |field "p|artwork2|
|0000d450| 22 20 3d 20 31 34 0d 20 | 20 20 20 0d 20 20 20 20 |" = 14. |   .    |
|0000d460| 0d 20 20 20 20 75 6e 70 | 75 70 70 65 74 20 22 34 |.    unp|uppet "4|
|0000d470| 2c 31 30 22 20 20 0d 20 | 20 20 20 0d 20 20 20 20 |,10"  . |   .    |
|0000d480| 69 66 20 67 43 75 72 43 | 68 61 70 20 3e 20 31 20 |if gCurC|hap > 1 |
|0000d490| 20 74 68 65 6e 20 0d 20 | 20 20 20 20 20 69 66 20 | then . |     if |
|0000d4a0| 67 4d 61 6b 65 72 4e 75 | 6d 20 3d 20 31 31 39 20 |gMakerNu|m = 119 |
|0000d4b0| 74 68 65 6e 20 20 20 20 | 20 20 2d 2d 20 73 70 65 |then    |  -- spe|
|0000d4c0| 63 69 61 6c 20 63 61 73 | 65 20 66 6f 72 20 4d 61 |cial cas|e for Ma|
|0000d4d0| 74 69 73 73 65 0d 20 20 | 20 20 20 20 20 20 67 6f |tisse.  |      go|
|0000d4e0| 20 74 6f 20 66 72 61 6d | 65 20 22 69 6e 6e 65 72 | to fram|e "inner|
|0000d4f0| 70 61 72 74 77 6f 72 6b | 2e 4d 41 54 22 0d 20 20 |partwork|.MAT".  |
|0000d500| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 20 |    else|.       |
|0000d510| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 22 69 6e | go to f|rame "in|
|0000d520| 6e 65 72 70 61 72 74 77 | 6f 72 6b 22 20 20 0d 20 |nerpartw|ork"  . |
|0000d530| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|0000d540| 20 20 0d 20 20 20 20 20 | 20 70 75 70 70 65 74 73 |  .     | puppets|
|0000d550| 70 72 69 74 65 20 70 69 | 63 73 70 72 69 74 65 2c |prite pi|csprite,|
|0000d560| 31 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |1.      |set the |
|0000d570| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 70 |loch of |sprite p|
|0000d580| 69 63 73 70 72 69 74 65 | 20 3d 20 31 30 30 30 0d |icsprite| = 1000.|
|0000d590| 20 20 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 |    else| if gWor|
|0000d5a0| 6c 64 20 3d 20 22 50 6f | 77 65 72 22 20 74 68 65 |ld = "Po|wer" the|
|0000d5b0| 6e 0d 20 20 20 20 20 20 | 67 6f 20 74 6f 20 66 72 |n.      |go to fr|
|0000d5c0| 61 6d 65 20 22 70 61 72 | 74 77 6f 72 6b 22 20 20 |ame "par|twork"  |
|0000d5d0| 2d 2d 20 6e 61 72 72 6f | 77 20 66 69 72 73 74 20 |-- narro|w first |
|0000d5e0| 70 61 67 65 20 6f 66 20 | 74 65 78 74 0d 20 20 20 |page of |text.   |
|0000d5f0| 20 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |   puppe|tsprite |
|0000d600| 70 69 63 73 70 72 69 74 | 65 2c 31 0d 20 20 20 20 |picsprit|e,1.    |
|0000d610| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|0000d620| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|0000d630| 74 65 20 3d 20 31 30 30 | 30 0d 20 20 20 20 65 6c |te = 100|0.    el|
|0000d640| 73 65 20 0d 20 20 20 20 | 20 20 69 66 20 67 4d 61 |se .    |  if gMa|
|0000d650| 6b 65 72 6e 75 6d 20 3d | 20 31 31 39 20 74 68 65 |kernum =| 119 the|
|0000d660| 6e 20 20 20 20 20 20 2d | 2d 20 73 70 65 63 69 61 |n      -|- specia|
|0000d670| 6c 20 63 61 73 65 20 66 | 6f 72 20 4d 61 74 69 73 |l case f|or Matis|
|0000d680| 73 65 0d 20 20 20 20 20 | 20 20 20 67 6f 20 74 6f |se.     |   go to|
|0000d690| 20 66 72 61 6d 65 20 22 | 70 61 72 74 77 6f 72 6b | frame "|partwork|
|0000d6a0| 32 2e 4d 41 54 22 20 2d | 2d 20 77 69 64 65 20 66 |2.MAT" -|- wide f|
|0000d6b0| 69 72 73 74 20 70 61 67 | 65 20 6f 66 20 74 65 78 |irst pag|e of tex|
|0000d6c0| 74 0d 20 20 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |t.      |else.   |
|0000d6d0| 20 20 20 20 20 67 6f 20 | 74 6f 20 66 72 61 6d 65 |     go |to frame|
|0000d6e0| 20 22 70 61 72 74 77 6f | 72 6b 32 22 20 2d 2d 20 | "partwo|rk2" -- |
|0000d6f0| 77 69 64 65 20 66 69 72 | 73 74 20 70 61 67 65 20 |wide fir|st page |
|0000d700| 6f 66 20 74 65 78 74 0d | 20 20 20 20 20 20 65 6e |of text.|      en|
|0000d710| 64 20 69 66 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |d if.   | end if.|
|0000d720| 20 20 20 20 0d 20 20 20 | 20 43 6c 65 61 6e 4d 65 |    .   | CleanMe|
|0000d730| 6d 0d 20 20 20 20 0d 20 | 20 20 20 2d 2d 20 6d 6f |m.    . |   -- mo|
|0000d740| 76 65 20 74 68 65 20 63 | 75 74 74 69 6e 67 20 61 |ve the c|utting a|
|0000d750| 6e 64 20 63 61 70 74 69 | 6f 6e 20 6f 66 66 73 63 |nd capti|on offsc|
|0000d760| 72 65 65 6e 0d 20 20 20 | 20 70 75 70 70 65 74 73 |reen.   | puppets|
|0000d770| 70 72 69 74 65 20 63 75 | 74 74 69 6e 67 73 70 72 |prite cu|ttingspr|
|0000d780| 69 74 65 2c 31 0d 20 20 | 20 20 73 65 74 20 63 75 |ite,1.  |  set cu|
|0000d790| 74 74 69 6e 67 6c 6f 63 | 68 20 3d 20 74 68 65 20 |ttingloc|h = the |
|0000d7a0| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 63 |loch of |sprite c|
|0000d7b0| 75 74 74 69 6e 67 73 70 | 72 69 74 65 0d 20 20 20 |uttingsp|rite.   |
|0000d7c0| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|0000d7d0| 20 73 70 72 69 74 65 20 | 63 75 74 74 69 6e 67 73 | sprite |cuttings|
|0000d7e0| 70 72 69 74 65 20 3d 20 | 31 30 30 30 0d 20 20 20 |prite = |1000.   |
|0000d7f0| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 63 61 | puppets|prite ca|
|0000d800| 70 74 69 6f 6e 73 70 72 | 69 74 65 2c 31 0d 20 20 |ptionspr|ite,1.  |
|0000d810| 20 20 73 65 74 20 63 61 | 70 74 69 6f 6e 6c 6f 63 |  set ca|ptionloc|
|0000d820| 68 20 3d 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |h = the |loch of |
|0000d830| 73 70 72 69 74 65 20 63 | 61 70 74 69 6f 6e 73 70 |sprite c|aptionsp|
|0000d840| 72 69 74 65 0d 20 20 20 | 20 73 65 74 20 74 68 65 |rite.   | set the|
|0000d850| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|0000d860| 63 61 70 74 69 6f 6e 73 | 70 72 69 74 65 20 3d 20 |captions|prite = |
|0000d870| 31 30 30 30 0d 20 20 20 | 20 75 70 64 61 74 65 73 |1000.   | updates|
|0000d880| 74 61 67 65 0d 20 20 20 | 20 0d 20 20 20 20 69 66 |tage.   | .    if|
|0000d890| 20 67 57 6f 72 6c 64 20 | 3d 20 22 53 65 6e 73 65 | gWorld |= "Sense|
|0000d8a0| 73 22 20 6f 72 20 67 57 | 6f 72 6c 64 20 3d 20 22 |s" or gW|orld = "|
|0000d8b0| 44 65 73 69 67 6e 22 20 | 74 68 65 6e 0d 20 20 20 |Design" |then.   |
|0000d8c0| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |   set t|he loch |
|0000d8d0| 6f 66 20 73 70 72 69 74 | 65 20 6e 61 6d 65 73 70 |of sprit|e namesp|
|0000d8e0| 72 69 74 65 20 3d 20 67 | 4e 61 6d 65 4c 6f 63 68 |rite = g|NameLoch|
|0000d8f0| 0d 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |.      s|et the l|
|0000d900| 6f 63 76 20 6f 66 20 73 | 70 72 69 74 65 20 6e 61 |ocv of s|prite na|
|0000d910| 6d 65 73 70 72 69 74 65 | 20 3d 20 67 4e 61 6d 65 |mesprite| = gName|
|0000d920| 4c 6f 63 76 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |Locv.   | end if.|
|0000d930| 20 20 20 20 0d 20 20 20 | 20 0d 20 20 20 20 73 65 |    .   | .    se|
|0000d940| 74 20 67 41 72 74 69 63 | 6c 65 50 61 67 65 20 3d |t gArtic|lePage =|
|0000d950| 20 31 20 20 2d 2d 20 73 | 74 61 72 74 20 6f 6e 20 | 1  -- s|tart on |
|0000d960| 70 61 67 65 20 6f 6e 65 | 20 0d 20 20 20 20 0d 20 |page one| .    . |
|0000d970| 20 20 20 2d 2d 20 67 65 | 74 20 74 68 65 20 74 65 |   -- ge|t the te|
|0000d980| 78 74 20 20 20 0d 20 20 | 20 20 73 65 74 20 74 6d |xt   .  |  set tm|
|0000d990| 70 63 61 70 20 3d 20 47 | 65 74 43 61 70 74 69 6f |pcap = G|etCaptio|
|0000d9a0| 6e 28 29 20 20 0d 20 20 | 20 20 73 65 74 20 74 68 |n()  .  |  set th|
|0000d9b0| 65 20 74 65 78 74 20 6f | 66 20 66 69 65 6c 64 20 |e text o|f field |
|0000d9c0| 22 63 61 70 74 69 6f 6e | 2d 70 61 72 74 77 6f 72 |"caption|-partwor|
|0000d9d0| 6b 22 20 3d 20 20 74 6d | 70 63 61 70 0d 20 20 20 |k" =  tm|pcap.   |
|0000d9e0| 20 0d 20 20 20 20 2d 2d | 20 66 69 6e 64 20 74 68 | .    --| find th|
|0000d9f0| 65 20 69 6e 64 65 78 20 | 69 6e 20 74 68 65 20 69 |e index |in the i|
|0000da00| 6e 64 65 78 20 6c 69 73 | 74 0d 20 20 20 20 73 65 |ndex lis|t.    se|
|0000da10| 74 20 6e 75 6d 20 3d 20 | 74 68 65 20 6e 75 6d 62 |t num = |the numb|
|0000da20| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 6f 66 20 67 |er of it|ems of g|
|0000da30| 43 75 72 49 6e 64 65 78 | 0d 20 20 20 20 73 65 74 |CurIndex|.    set|
|0000da40| 20 69 6e 64 65 78 20 3d | 20 2d 31 0d 20 20 20 20 | index =| -1.    |
|0000da50| 73 65 74 20 61 72 74 20 | 3d 20 67 43 75 72 43 68 |set art |= gCurCh|
|0000da60| 61 70 20 26 20 22 2e 22 | 20 26 20 67 43 75 72 41 |ap & "."| & gCurA|
|0000da70| 72 74 69 63 6c 65 0d 20 | 20 20 20 0d 20 20 20 20 |rticle. |   .    |
|0000da80| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|0000da90| 32 20 74 6f 20 6e 75 6d | 0d 20 20 20 20 20 20 73 |2 to num|.      s|
|0000daa0| 65 74 20 74 6d 70 20 3d | 20 69 74 65 6d 20 69 20 |et tmp =| item i |
|0000dab0| 6f 66 20 67 43 75 72 49 | 6e 64 65 78 0d 20 20 20 |of gCurI|ndex.   |
|0000dac0| 20 20 20 73 65 74 20 74 | 6d 70 32 20 3d 20 69 74 |   set t|mp2 = it|
|0000dad0| 65 6d 20 28 69 2b 31 29 | 20 6f 66 20 67 43 75 72 |em (i+1)| of gCur|
|0000dae0| 49 6e 64 65 78 0d 20 20 | 20 20 20 20 0d 20 20 20 |Index.  |    .   |
|0000daf0| 20 20 20 69 66 20 28 61 | 72 74 20 3d 20 63 68 61 |   if (a|rt = cha|
|0000db00| 72 20 31 20 74 6f 20 33 | 20 6f 66 20 74 6d 70 29 |r 1 to 3| of tmp)|
|0000db10| 20 6f 72 20 28 67 43 75 | 72 43 68 61 70 20 3d 20 | or (gCu|rChap = |
|0000db20| 31 20 61 6e 64 20 63 68 | 61 72 20 31 20 6f 66 20 |1 and ch|ar 1 of |
|0000db30| 74 6d 70 20 3d 20 22 31 | 22 29 20 74 68 65 6e 0d |tmp = "1|") then.|
|0000db40| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|0000db50| 69 74 65 6d 64 65 6c 69 | 6d 69 74 65 72 20 3d 20 |itemdeli|miter = |
|0000db60| 22 3a 22 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |":".    |    set |
|0000db70| 69 6e 64 65 78 20 3d 20 | 76 61 6c 75 65 28 69 74 |index = |value(it|
|0000db80| 65 6d 20 32 20 6f 66 20 | 74 6d 70 29 0d 20 20 20 |em 2 of |tmp).   |
|0000db90| 20 20 20 20 20 73 65 74 | 20 6e 65 78 74 69 6e 64 |     set| nextind|
|0000dba0| 65 78 20 3d 20 76 61 6c | 75 65 20 28 69 74 65 6d |ex = val|ue (item|
|0000dbb0| 20 32 20 6f 66 20 74 6d | 70 32 29 0d 20 20 20 20 | 2 of tm|p2).    |
|0000dbc0| 20 20 20 20 73 65 74 20 | 74 68 65 20 69 74 65 6d |    set |the item|
|0000dbd0| 64 65 6c 69 6d 69 74 65 | 72 20 3d 20 22 2c 22 0d |delimite|r = ",".|
|0000dbe0| 20 20 20 20 20 20 20 20 | 65 78 69 74 20 72 65 70 |        |exit rep|
|0000dbf0| 65 61 74 0d 20 20 20 20 | 20 20 65 6e 64 20 69 66 |eat.    |  end if|
|0000dc00| 0d 20 20 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |.    end| repeat.|
|0000dc10| 20 20 20 20 0d 20 20 20 | 20 0d 20 20 20 20 2d 2d |    .   | .    --|
|0000dc20| 20 67 65 74 20 74 68 65 | 20 63 75 74 74 69 6e 67 | get the| cutting|
|0000dc30| 20 74 65 78 74 0d 20 20 | 20 20 2d 2d 20 69 74 73 | text.  |  -- its|
|0000dc40| 20 6f 6b 20 69 66 20 74 | 68 65 20 63 75 74 74 69 | ok if t|he cutti|
|0000dc50| 6e 67 20 73 68 6f 77 73 | 20 75 70 20 61 20 62 69 |ng shows| up a bi|
|0000dc60| 74 20 61 66 74 65 72 20 | 74 68 65 20 72 65 73 74 |t after |the rest|
|0000dc70| 20 6f 66 20 74 68 65 20 | 73 63 72 65 65 6e 20 20 | of the |screen  |
|0000dc80| 20 0d 20 20 20 20 70 75 | 74 20 22 69 6e 64 65 78 | .    pu|t "index|
|0000dc90| 20 3d 20 22 20 26 26 20 | 69 6e 64 65 78 20 26 26 | = " && |index &&|
|0000dca0| 20 22 6e 65 78 74 69 6e | 64 65 78 20 3d 20 22 20 | "nextin|dex = " |
|0000dcb0| 26 26 20 6e 65 78 74 69 | 6e 64 65 78 0d 20 20 20 |&& nexti|ndex.   |
|0000dcc0| 20 69 66 20 69 6e 64 65 | 78 20 3c 3e 20 2d 31 20 | if inde|x <> -1 |
|0000dcd0| 74 68 65 6e 0d 20 20 20 | 20 20 20 2d 2d 20 67 65 |then.   |   -- ge|
|0000dce0| 74 20 74 68 65 20 6e 65 | 63 65 73 73 61 72 79 20 |t the ne|cessary |
|0000dcf0| 61 72 74 69 63 6c 65 20 | 6f 75 74 20 6f 66 20 74 |article |out of t|
|0000dd00| 68 65 20 67 46 75 6c 6c | 43 75 74 74 69 6e 67 73 |he gFull|Cuttings|
|0000dd10| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 69 66 20 |      . |     if |
|0000dd20| 6e 65 78 74 69 6e 64 65 | 78 20 3c 3e 20 22 22 20 |nextinde|x <> "" |
|0000dd30| 61 6e 64 20 6e 65 78 74 | 69 6e 64 65 78 20 3c 3e |and next|index <>|
|0000dd40| 20 30 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 | 0 then.|        |
|0000dd50| 69 66 20 69 6e 64 65 78 | 20 3e 20 30 20 74 68 65 |if index| > 0 the|
|0000dd60| 6e 0d 20 20 20 20 20 20 | 20 20 20 20 73 65 74 20 |n.      |    set |
|0000dd70| 67 43 75 72 43 75 74 74 | 69 6e 67 20 3d 20 63 68 |gCurCutt|ing = ch|
|0000dd80| 61 72 20 69 6e 64 65 78 | 20 74 6f 20 6e 65 78 74 |ar index| to next|
|0000dd90| 69 6e 64 65 78 20 6f 66 | 20 67 46 75 6c 6c 43 75 |index of| gFullCu|
|0000dda0| 74 74 69 6e 67 73 0d 20 | 20 20 20 20 20 20 20 65 |ttings. |       e|
|0000ddb0| 6c 73 65 0d 20 20 20 20 | 20 20 20 20 20 20 73 65 |lse.    |      se|
|0000ddc0| 74 20 67 43 75 72 43 75 | 74 74 69 6e 67 20 3d 20 |t gCurCu|tting = |
|0000ddd0| 63 68 61 72 20 31 20 74 | 6f 20 6e 65 78 74 69 6e |char 1 t|o nextin|
|0000dde0| 64 65 78 20 6f 66 20 67 | 46 75 6c 6c 43 75 74 74 |dex of g|FullCutt|
|0000ddf0| 69 6e 67 73 0d 20 20 20 | 20 20 20 20 20 65 6e 64 |ings.   |     end|
|0000de00| 20 69 66 0d 20 20 20 20 | 20 20 65 6c 73 65 0d 20 | if.    |  else. |
|0000de10| 20 20 20 20 20 20 20 69 | 66 20 69 6e 64 65 78 20 |       i|f index |
|0000de20| 3e 20 30 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |> 0 then|.       |
|0000de30| 20 20 20 73 65 74 20 67 | 43 75 72 43 75 74 74 69 |   set g|CurCutti|
|0000de40| 6e 67 20 3d 20 63 68 61 | 72 20 69 6e 64 65 78 20 |ng = cha|r index |
|0000de50| 74 6f 20 28 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |to (the |number o|
|0000de60| 66 20 63 68 61 72 73 20 | 6f 66 20 67 46 75 6c 6c |f chars |of gFull|
|0000de70| 43 75 74 74 69 6e 67 73 | 29 20 6f 66 20 67 46 75 |Cuttings|) of gFu|
|0000de80| 6c 6c 43 75 74 74 69 6e | 67 73 20 20 20 20 20 0d |llCuttin|gs     .|
|0000de90| 20 20 20 20 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |        |else.   |
|0000dea0| 20 20 20 20 20 20 20 73 | 65 74 20 67 43 75 72 43 |       s|et gCurC|
|0000deb0| 75 74 74 69 6e 67 20 3d | 20 63 68 61 72 20 31 20 |utting =| char 1 |
|0000dec0| 74 6f 20 28 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |to (the |number o|
|0000ded0| 66 20 63 68 61 72 73 20 | 6f 66 20 67 46 75 6c 6c |f chars |of gFull|
|0000dee0| 43 75 74 74 69 6e 67 73 | 29 20 6f 66 20 67 46 75 |Cuttings|) of gFu|
|0000def0| 6c 6c 43 75 74 74 69 6e | 67 73 0d 20 20 20 20 20 |llCuttin|gs.     |
|0000df00| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|0000df10| 65 6e 64 20 69 66 0d 20 | 20 20 20 20 20 0d 20 20 |end if. |     .  |
|0000df20| 20 20 20 20 2d 2d 20 64 | 65 6c 65 74 65 20 74 68 |    -- d|elete th|
|0000df30| 65 20 69 6e 69 74 69 61 | 6c 20 40 20 61 6e 64 20 |e initia|l @ and |
|0000df40| 61 72 74 69 63 6c 65 20 | 6e 75 6d 62 65 72 0d 20 |article |number. |
|0000df50| 20 20 20 20 20 69 66 20 | 69 6e 64 65 78 20 3d 20 |     if |index = |
|0000df60| 30 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 64 |0 then. |       d|
|0000df70| 65 6c 65 74 65 20 6c 69 | 6e 65 20 31 20 6f 66 20 |elete li|ne 1 of |
|0000df80| 67 43 75 72 43 75 74 74 | 69 6e 67 0d 20 20 20 20 |gCurCutt|ing.    |
|0000df90| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 20 20 64 |  else. |       d|
|0000dfa0| 65 6c 65 74 65 20 6c 69 | 6e 65 20 31 20 74 6f 20 |elete li|ne 1 to |
|0000dfb0| 32 20 6f 66 20 67 43 75 | 72 43 75 74 74 69 6e 67 |2 of gCu|rCutting|
|0000dfc0| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |.      e|nd if.  |
|0000dfd0| 20 20 20 20 0d 20 20 20 | 20 20 20 69 66 20 67 57 |    .   |   if gW|
|0000dfe0| 6f 72 6c 64 20 3d 20 22 | 73 65 6e 73 65 73 22 20 |orld = "|senses" |
|0000dff0| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 73 65 74 |then.   |     set|
|0000e000| 20 63 75 74 74 69 6e 67 | 77 69 64 74 68 20 3d 20 | cutting|width = |
|0000e010| 33 36 30 0d 20 20 20 20 | 20 20 65 6c 73 65 20 69 |360.    |  else i|
|0000e020| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 64 69 73 63 |f gWorld| = "disc|
|0000e030| 6f 76 65 72 22 20 74 68 | 65 6e 0d 20 20 20 20 20 |over" th|en.     |
|0000e040| 20 20 20 73 65 74 20 63 | 75 74 74 69 6e 67 77 69 |   set c|uttingwi|
|0000e050| 64 74 68 20 3d 20 34 34 | 30 0d 20 20 20 20 20 20 |dth = 44|0.      |
|0000e060| 65 6c 73 65 20 69 66 20 | 67 57 6f 72 6c 64 20 3d |else if |gWorld =|
|0000e070| 20 22 62 6f 64 79 22 20 | 74 68 65 6e 0d 20 20 20 | "body" |then.   |
|0000e080| 20 20 20 20 20 73 65 74 | 20 63 75 74 74 69 6e 67 |     set| cutting|
|0000e090| 77 69 64 74 68 20 3d 20 | 34 34 30 0d 20 20 20 20 |width = |440.    |
|0000e0a0| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 20 20 73 |  else. |       s|
|0000e0b0| 65 74 20 63 75 74 74 69 | 6e 67 77 69 64 74 68 20 |et cutti|ngwidth |
|0000e0c0| 3d 20 34 34 30 0d 20 20 | 20 20 20 20 65 6e 64 20 |= 440.  |    end |
|0000e0d0| 69 66 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |if.     | .      |
|0000e0e0| 2d 2d 20 70 61 72 74 77 | 6f 72 6b 0d 20 20 20 20 |-- partw|ork.    |
|0000e0f0| 20 20 0d 20 20 20 20 20 | 20 69 66 20 67 57 6f 72 |  .     | if gWor|
|0000e100| 6c 64 20 3d 20 22 50 6f | 77 65 72 22 20 61 6e 64 |ld = "Po|wer" and|
|0000e110| 20 67 43 75 72 43 68 61 | 70 20 3d 20 31 20 74 68 | gCurCha|p = 1 th|
|0000e120| 65 6e 0d 20 20 20 20 20 | 20 20 20 2d 2d 20 62 72 |en.     |   -- br|
|0000e130| 65 61 6b 20 74 68 65 20 | 74 65 78 74 20 63 6f 72 |eak the |text cor|
|0000e140| 72 65 63 74 6c 79 2c 20 | 69 65 2e 20 6e 61 72 72 |rectly, |ie. narr|
|0000e150| 6f 77 20 66 69 72 73 74 | 20 70 61 67 65 20 6f 66 |ow first| page of|
|0000e160| 20 74 65 78 74 0d 20 20 | 20 20 20 20 20 20 73 65 | text.  |      se|
|0000e170| 74 20 67 46 6f 72 6d 61 | 74 74 65 64 54 65 78 74 |t gForma|ttedText|
|0000e180| 20 3d 20 46 69 6c 6c 54 | 65 78 74 28 67 43 75 72 | = FillT|ext(gCur|
|0000e190| 43 75 74 74 69 6e 67 2c | 22 47 65 6e 65 76 61 22 |Cutting,|"Geneva"|
|0000e1a0| 2c 31 34 2c 31 37 30 29 | 0d 20 20 20 20 20 20 20 |,14,170)|.       |
|0000e1b0| 20 64 65 6c 65 74 65 20 | 6c 69 6e 65 20 28 74 68 | delete |line (th|
|0000e1c0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |e number| of line|
|0000e1d0| 73 20 6f 66 20 67 46 6f | 72 6d 61 74 74 65 64 54 |s of gFo|rmattedT|
|0000e1e0| 65 78 74 29 20 6f 66 20 | 67 46 6f 72 6d 61 74 74 |ext) of |gFormatt|
|0000e1f0| 65 64 54 65 78 74 20 20 | 20 0d 20 20 20 20 20 20 |edText  | .      |
|0000e200| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f |  set th|e text o|
|0000e210| 66 20 66 69 65 6c 64 20 | 22 70 61 72 74 77 6f 72 |f field |"partwor|
|0000e220| 6b 22 20 3d 20 6c 69 6e | 65 20 31 20 74 6f 20 67 |k" = lin|e 1 to g|
|0000e230| 4d 61 78 4c 69 6e 65 73 | 20 6f 66 20 67 46 6f 72 |MaxLines| of gFor|
|0000e240| 6d 61 74 74 65 64 54 65 | 78 74 20 20 0d 20 20 20 |mattedTe|xt  .   |
|0000e250| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 74 65 78 |     set| the tex|
|0000e260| 74 68 65 69 67 68 74 20 | 6f 66 20 66 69 65 6c 64 |theight |of field|
|0000e270| 20 22 70 61 72 74 77 6f | 72 6b 22 20 3d 20 32 30 | "partwo|rk" = 20|
|0000e280| 20 2d 2d 20 70 61 72 74 | 77 6f 72 6b 20 6c 65 61 | -- part|work lea|
|0000e290| 64 69 6e 67 0d 20 20 20 | 20 20 20 20 20 73 65 74 |ding.   |     set|
|0000e2a0| 20 74 68 65 20 74 65 78 | 74 68 65 69 67 68 74 20 | the tex|theight |
|0000e2b0| 6f 66 20 66 69 65 6c 64 | 20 22 70 61 72 74 77 6f |of field| "partwo|
|0000e2c0| 72 6b 32 22 20 3d 20 32 | 30 20 2d 2d 20 70 61 72 |rk2" = 2|0 -- par|
|0000e2d0| 74 77 6f 72 6b 20 6c 65 | 61 64 69 6e 67 0d 20 20 |twork le|ading.  |
|0000e2e0| 20 20 20 20 20 20 73 65 | 74 20 67 46 6f 72 6d 61 |      se|t gForma|
|0000e2f0| 74 74 65 64 54 65 78 74 | 20 3d 20 6c 69 6e 65 20 |ttedText| = line |
|0000e300| 31 20 74 6f 20 67 4d 61 | 78 4c 69 6e 65 73 20 6f |1 to gMa|xLines o|
|0000e310| 66 20 67 46 6f 72 6d 61 | 74 74 65 64 54 65 78 74 |f gForma|ttedText|
|0000e320| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 6d 70 |.       | set tmp|
|0000e330| 6e 75 6d 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |num = th|e number|
|0000e340| 20 6f 66 20 77 6f 72 64 | 73 20 6f 66 20 67 46 6f | of word|s of gFo|
|0000e350| 72 6d 61 74 74 65 64 54 | 65 78 74 0d 20 20 20 20 |rmattedT|ext.    |
|0000e360| 20 20 20 20 64 65 6c 65 | 74 65 20 77 6f 72 64 20 |    dele|te word |
|0000e370| 31 20 74 6f 20 74 6d 70 | 6e 75 6d 20 6f 66 20 67 |1 to tmp|num of g|
|0000e380| 43 75 72 43 75 74 74 69 | 6e 67 0d 20 20 20 20 20 |CurCutti|ng.     |
|0000e390| 20 20 20 73 65 74 20 74 | 6d 70 74 65 78 74 20 3d |   set t|mptext =|
|0000e3a0| 20 46 69 6c 6c 54 65 78 | 74 28 67 43 75 72 43 75 | FillTex|t(gCurCu|
|0000e3b0| 74 74 69 6e 67 2c 22 47 | 65 6e 65 76 61 22 2c 31 |tting,"G|eneva",1|
|0000e3c0| 34 2c 63 75 74 74 69 6e | 67 77 69 64 74 68 29 0d |4,cuttin|gwidth).|
|0000e3d0| 20 20 20 20 20 20 20 20 | 70 75 74 20 72 65 74 75 |        |put retu|
|0000e3e0| 72 6e 20 26 20 74 6d 70 | 74 65 78 74 20 61 66 74 |rn & tmp|text aft|
|0000e3f0| 65 72 20 67 46 6f 72 6d | 61 74 74 65 64 54 65 78 |er gForm|attedTex|
|0000e400| 74 0d 20 20 20 20 20 20 | 20 20 64 65 6c 65 74 65 |t.      |  delete|
|0000e410| 20 6c 69 6e 65 20 28 74 | 68 65 20 6e 75 6d 62 65 | line (t|he numbe|
|0000e420| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 66 20 67 46 |r of lin|es of gF|
|0000e430| 6f 72 6d 61 74 74 65 64 | 54 65 78 74 29 20 6f 66 |ormatted|Text) of|
|0000e440| 20 67 46 6f 72 6d 61 74 | 74 65 64 54 65 78 74 20 | gFormat|tedText |
|0000e450| 20 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 6d | .      |  set tm|
|0000e460| 70 6c 69 6e 65 73 20 3d | 20 28 74 68 65 20 6e 75 |plines =| (the nu|
|0000e470| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 20 6f 66 |mber of |lines of|
|0000e480| 20 67 46 6f 72 6d 61 74 | 74 65 64 54 65 78 74 29 | gFormat|tedText)|
|0000e490| 20 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 | .      |  .     |
|0000e4a0| 20 20 20 2d 2d 20 61 64 | 64 20 61 20 66 75 6c 6c |   -- ad|d a full|
|0000e4b0| 73 74 6f 70 0d 20 20 20 | 20 20 20 20 20 73 65 74 |stop.   |     set|
|0000e4c0| 20 74 6d 70 63 68 61 72 | 20 3d 20 74 68 65 20 6e | tmpchar| = the n|
|0000e4d0| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 73 20 6f |umber of| chars o|
|0000e4e0| 66 20 67 46 6f 72 6d 61 | 74 74 65 64 54 65 78 74 |f gForma|ttedText|
|0000e4f0| 0d 20 20 20 20 20 20 20 | 20 69 66 20 63 68 61 72 |.       | if char|
|0000e500| 20 74 6d 70 63 68 61 72 | 20 6f 66 20 67 46 6f 72 | tmpchar| of gFor|
|0000e510| 6d 61 74 74 65 64 54 65 | 78 74 20 3d 20 72 65 74 |mattedTe|xt = ret|
|0000e520| 75 72 6e 20 74 68 65 6e | 20 0d 20 20 20 20 20 20 |urn then| .      |
|0000e530| 20 20 20 20 70 75 74 20 | 22 2e 22 20 69 6e 74 6f |    put |"." into|
|0000e540| 20 63 68 61 72 20 28 74 | 6d 70 63 68 61 72 29 20 | char (t|mpchar) |
|0000e550| 6f 66 20 67 46 6f 72 6d | 61 74 74 65 64 54 65 78 |of gForm|attedTex|
|0000e560| 74 0d 20 20 20 20 20 20 | 20 20 65 6c 73 65 0d 20 |t.      |  else. |
|0000e570| 20 20 20 20 20 20 20 20 | 20 70 75 74 20 22 2e 22 |        | put "."|
|0000e580| 20 69 6e 74 6f 20 63 68 | 61 72 20 28 74 6d 70 63 | into ch|ar (tmpc|
|0000e590| 68 61 72 2b 31 29 20 6f | 66 20 67 46 6f 72 6d 61 |har+1) o|f gForma|
|0000e5a0| 74 74 65 64 54 65 78 74 | 0d 20 20 20 20 20 20 20 |ttedText|.       |
|0000e5b0| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 20 20 20 | end if.|        |
|0000e5c0| 0d 20 20 20 20 20 20 65 | 6c 73 65 20 20 2d 2d 20 |.      e|lse  -- |
|0000e5d0| 77 69 64 65 20 66 69 72 | 73 74 20 70 61 67 65 20 |wide fir|st page |
|0000e5e0| 6f 66 20 74 65 78 74 0d | 20 20 20 20 20 20 20 20 |of text.|        |
|0000e5f0| 73 65 74 20 67 46 6f 72 | 6d 61 74 74 65 64 54 65 |set gFor|mattedTe|
|0000e600| 78 74 20 3d 20 46 69 6c | 6c 54 65 78 74 28 67 43 |xt = Fil|lText(gC|
|0000e610| 75 72 43 75 74 74 69 6e | 67 2c 22 47 65 6e 65 76 |urCuttin|g,"Genev|
|0000e620| 61 22 2c 31 34 2c 63 75 | 74 74 69 6e 67 77 69 64 |a",14,cu|ttingwid|
|0000e630| 74 68 29 0d 20 20 20 20 | 20 20 20 20 64 65 6c 65 |th).    |    dele|
|0000e640| 74 65 20 6c 69 6e 65 20 | 28 74 68 65 20 6e 75 6d |te line |(the num|
|0000e650| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 6f 66 20 |ber of l|ines of |
|0000e660| 67 46 6f 72 6d 61 74 74 | 65 64 54 65 78 74 29 20 |gFormatt|edText) |
|0000e670| 6f 66 20 67 46 6f 72 6d | 61 74 74 65 64 54 65 78 |of gForm|attedTex|
|0000e680| 74 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 6d |t.      |  set tm|
|0000e690| 70 6c 69 6e 65 73 20 3d | 20 28 74 68 65 20 6e 75 |plines =| (the nu|
|0000e6a0| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 20 6f 66 |mber of |lines of|
|0000e6b0| 20 67 46 6f 72 6d 61 74 | 74 65 64 54 65 78 74 29 | gFormat|tedText)|
|0000e6c0| 0d 20 20 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |.       | .      |
|0000e6d0| 20 20 2d 2d 20 61 64 64 | 20 61 20 66 75 6c 6c 73 |  -- add| a fulls|
|0000e6e0| 74 6f 70 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |top.    |    set |
|0000e6f0| 74 6d 70 63 68 61 72 20 | 3d 20 74 68 65 20 6e 75 |tmpchar |= the nu|
|0000e700| 6d 62 65 72 20 6f 66 20 | 63 68 61 72 73 20 6f 66 |mber of |chars of|
|0000e710| 20 67 46 6f 72 6d 61 74 | 74 65 64 54 65 78 74 0d | gFormat|tedText.|
|0000e720| 20 20 20 20 20 20 20 20 | 69 66 20 63 68 61 72 20 |        |if char |
|0000e730| 74 6d 70 63 68 61 72 20 | 6f 66 20 67 46 6f 72 6d |tmpchar |of gForm|
|0000e740| 61 74 74 65 64 54 65 78 | 74 20 3d 20 72 65 74 75 |attedTex|t = retu|
|0000e750| 72 6e 20 74 68 65 6e 20 | 0d 20 20 20 20 20 20 20 |rn then |.       |
|0000e760| 20 20 20 70 75 74 20 22 | 2e 22 20 69 6e 74 6f 20 |   put "|." into |
|0000e770| 63 68 61 72 20 28 74 6d | 70 63 68 61 72 29 20 6f |char (tm|pchar) o|
|0000e780| 66 20 67 46 6f 72 6d 61 | 74 74 65 64 54 65 78 74 |f gForma|ttedText|
|0000e790| 0d 20 20 20 20 20 20 20 | 20 65 6c 73 65 0d 20 20 |.       | else.  |
|0000e7a0| 20 20 20 20 20 20 20 20 | 70 75 74 20 22 2e 22 20 |        |put "." |
|0000e7b0| 69 6e 74 6f 20 63 68 61 | 72 20 28 74 6d 70 63 68 |into cha|r (tmpch|
|0000e7c0| 61 72 2b 31 29 20 6f 66 | 20 67 46 6f 72 6d 61 74 |ar+1) of| gFormat|
|0000e7d0| 74 65 64 54 65 78 74 0d | 20 20 20 20 20 20 20 20 |tedText.|        |
|0000e7e0| 65 6e 64 20 69 66 0d 20 | 20 20 20 20 20 20 20 0d |end if. |       .|
|0000e7f0| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|0000e800| 74 65 78 74 20 6f 66 20 | 66 69 65 6c 64 20 22 70 |text of |field "p|
|0000e810| 61 72 74 77 6f 72 6b 32 | 22 20 3d 20 22 20 22 0d |artwork2|" = " ".|
|0000e820| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|0000e830| 74 65 78 74 68 65 69 67 | 68 74 20 6f 66 20 66 69 |textheig|ht of fi|
|0000e840| 65 6c 64 20 22 70 61 72 | 74 77 6f 72 6b 32 22 20 |eld "par|twork2" |
|0000e850| 3d 20 32 30 20 2d 2d 20 | 70 61 72 74 77 6f 72 6b |= 20 -- |partwork|
|0000e860| 20 6c 65 61 64 69 6e 67 | 0d 20 20 20 20 20 20 20 | leading|.       |
|0000e870| 20 73 65 74 20 74 68 65 | 20 74 65 78 74 20 6f 66 | set the| text of|
|0000e880| 20 66 69 65 6c 64 20 22 | 70 61 72 74 77 6f 72 6b | field "|partwork|
|0000e890| 32 22 20 3d 20 6c 69 6e | 65 20 31 20 74 6f 20 67 |2" = lin|e 1 to g|
|0000e8a0| 4d 61 78 4c 69 6e 65 73 | 20 6f 66 20 67 46 6f 72 |MaxLines| of gFor|
|0000e8b0| 6d 61 74 74 65 64 54 65 | 78 74 20 20 0d 20 20 20 |mattedTe|xt  .   |
|0000e8c0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|0000e8d0| 0d 20 20 20 20 20 20 0d | 20 20 20 20 20 20 0d 20 |.      .|      . |
|0000e8e0| 20 20 20 20 20 2d 2d 20 | 66 69 67 75 72 65 20 6f |     -- |figure o|
|0000e8f0| 75 74 20 68 6f 77 20 6d | 61 6e 79 20 70 61 67 65 |ut how m|any page|
|0000e900| 73 20 77 65 20 68 61 76 | 65 0d 20 20 20 20 20 20 |s we hav|e.      |
|0000e910| 73 65 74 20 67 54 65 78 | 74 50 61 67 65 73 20 3d |set gTex|tPages =|
|0000e920| 20 74 6d 70 6c 69 6e 65 | 73 20 2f 20 67 4d 61 78 | tmpline|s / gMax|
|0000e930| 4c 69 6e 65 73 0d 20 20 | 20 20 20 20 69 66 20 67 |Lines.  |    if g|
|0000e940| 54 65 78 74 50 61 67 65 | 73 20 2a 20 67 4d 61 78 |TextPage|s * gMax|
|0000e950| 4c 69 6e 65 73 20 3c 20 | 74 6d 70 6c 69 6e 65 73 |Lines < |tmplines|
|0000e960| 20 74 68 65 6e 20 73 65 | 74 20 67 54 65 78 74 50 | then se|t gTextP|
|0000e970| 61 67 65 73 20 3d 20 67 | 54 65 78 74 50 61 67 65 |ages = g|TextPage|
|0000e980| 73 20 2b 20 31 0d 20 20 | 20 20 20 20 0d 20 20 20 |s + 1.  |    .   |
|0000e990| 20 20 20 2d 2d 20 67 65 | 74 20 72 69 64 20 6f 66 |   -- ge|t rid of|
|0000e9a0| 20 74 68 65 20 66 6f 72 | 77 61 72 64 20 61 6e 64 | the for|ward and|
|0000e9b0| 20 62 61 63 6b 77 61 72 | 64 20 62 75 74 74 6f 6e | backwar|d button|
|0000e9c0| 73 20 61 73 20 6e 65 63 | 65 73 73 61 72 79 0d 20 |s as nec|essary. |
|0000e9d0| 20 20 20 20 20 69 66 20 | 67 54 65 78 74 50 61 67 |     if |gTextPag|
|0000e9e0| 65 73 20 3d 20 31 20 74 | 68 65 6e 0d 20 20 20 20 |es = 1 t|hen.    |
|0000e9f0| 20 20 20 20 73 65 74 20 | 74 68 65 20 76 69 73 69 |    set |the visi|
|0000ea00| 62 69 6c 69 74 79 20 6f | 66 20 73 70 72 69 74 65 |bility o|f sprite|
|0000ea10| 20 66 6f 72 77 61 72 64 | 62 75 74 74 6f 6e 20 3d | forward|button =|
|0000ea20| 20 30 0d 20 20 20 20 20 | 20 20 20 2d 2d 70 75 70 | 0.     |   --pup|
|0000ea30| 70 65 74 73 70 72 69 74 | 65 20 66 6f 72 77 61 72 |petsprit|e forwar|
|0000ea40| 64 62 75 74 74 6f 6e 2c | 31 20 20 20 20 20 20 20 |dbutton,|1       |
|0000ea50| 20 0d 20 20 20 20 20 20 | 20 20 2d 2d 73 65 74 20 | .      |  --set |
|0000ea60| 74 68 65 20 6c 6f 63 68 | 20 6f 66 20 73 70 72 69 |the loch| of spri|
|0000ea70| 74 65 20 66 6f 72 77 61 | 72 64 62 75 74 74 6f 6e |te forwa|rdbutton|
|0000ea80| 20 3d 20 31 30 30 30 0d | 20 20 20 20 20 20 65 6c | = 1000.|      el|
|0000ea90| 73 65 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |se.     |   set t|
|0000eaa0| 68 65 20 76 69 73 69 62 | 69 6c 69 74 79 20 6f 66 |he visib|ility of|
|0000eab0| 20 73 70 72 69 74 65 20 | 66 6f 72 77 61 72 64 62 | sprite |forwardb|
|0000eac0| 75 74 74 6f 6e 20 3d 20 | 31 0d 20 20 20 20 20 20 |utton = |1.      |
|0000ead0| 65 6e 64 20 69 66 0d 20 | 20 20 20 20 20 0d 20 20 |end if. |     .  |
|0000eae0| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 0d 20 20 |  end if|.    .  |
|0000eaf0| 20 20 2d 2d 20 68 69 64 | 65 20 62 61 63 6b 20 62 |  -- hid|e back b|
|0000eb00| 75 74 74 6f 6e 0d 20 20 | 20 20 73 65 74 20 74 68 |utton.  |  set th|
|0000eb10| 65 20 76 69 73 69 62 69 | 6c 69 74 79 20 6f 66 20 |e visibi|lity of |
|0000eb20| 73 70 72 69 74 65 20 62 | 61 63 6b 62 75 74 74 6f |sprite b|ackbutto|
|0000eb30| 6e 20 3d 20 30 0d 20 20 | 20 20 75 70 64 61 74 65 |n = 0.  |  update|
|0000eb40| 73 74 61 67 65 20 20 0d | 20 20 20 20 0d 20 20 20 |stage  .|    .   |
|0000eb50| 20 0d 20 20 20 20 2d 2d | 20 67 65 74 20 74 68 65 | .    --| get the|
|0000eb60| 20 70 69 63 74 0d 20 20 | 20 20 69 66 20 67 43 75 | pict.  |  if gCu|
|0000eb70| 72 43 68 61 70 20 3e 20 | 31 20 74 68 65 6e 0d 20 |rChap > |1 then. |
|0000eb80| 20 20 20 20 20 73 65 74 | 20 70 69 63 63 61 73 74 |     set| piccast|
|0000eb90| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|0000eba0| 20 63 61 73 74 20 28 67 | 4d 61 6b 65 72 4e 75 6d | cast (g|MakerNum|
|0000ebb0| 20 26 20 22 2d 22 20 26 | 20 67 43 75 72 43 68 61 | & "-" &| gCurCha|
|0000ebc0| 70 20 26 20 22 2e 22 20 | 26 20 67 43 75 72 41 72 |p & "." |& gCurAr|
|0000ebd0| 74 69 63 6c 65 29 0d 20 | 20 20 20 20 20 70 75 74 |ticle). |     put|
|0000ebe0| 20 28 67 4d 61 6b 65 72 | 4e 75 6d 20 26 20 22 2d | (gMaker|Num & "-|
|0000ebf0| 22 20 26 20 67 43 75 72 | 43 68 61 70 20 26 20 22 |" & gCur|Chap & "|
|0000ec00| 2e 22 20 26 20 67 43 75 | 72 41 72 74 69 63 6c 65 |." & gCu|rArticle|
|0000ec10| 29 0d 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 69 |).      |.      i|
|0000ec20| 66 20 70 69 63 63 61 73 | 74 20 3e 20 30 20 74 68 |f piccas|t > 0 th|
|0000ec30| 65 6e 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 73 |en    . |       s|
|0000ec40| 65 74 20 74 68 65 20 73 | 74 72 65 74 63 68 20 6f |et the s|tretch o|
|0000ec50| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|0000ec60| 74 65 20 3d 20 30 0d 20 | 20 20 20 20 20 20 20 73 |te = 0. |       s|
|0000ec70| 65 74 20 74 68 65 20 63 | 61 73 74 6e 75 6d 20 6f |et the c|astnum o|
|0000ec80| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|0000ec90| 74 65 20 3d 20 70 69 63 | 63 61 73 74 0d 20 20 20 |te = pic|cast.   |
|0000eca0| 20 20 20 20 20 73 65 74 | 20 77 20 3d 20 31 2e 30 |     set| w = 1.0|
|0000ecb0| 20 2a 20 28 74 68 65 20 | 77 69 64 74 68 20 6f 66 | * (the |width of|
|0000ecc0| 20 63 61 73 74 20 70 69 | 63 63 61 73 74 29 20 2f | cast pi|ccast) /|
|0000ecd0| 20 32 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 68 | 2.     |   set h|
|0000ece0| 20 3d 20 31 2e 30 20 2a | 20 28 74 68 65 20 68 65 | = 1.0 *| (the he|
|0000ecf0| 69 67 68 74 20 6f 66 20 | 63 61 73 74 20 70 69 63 |ight of |cast pic|
|0000ed00| 63 61 73 74 29 20 2f 20 | 32 20 20 0d 20 20 20 20 |cast) / |2  .    |
|0000ed10| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 69 66 20 |    .   |     if |
|0000ed20| 67 57 6f 72 6c 64 20 3d | 20 22 73 65 6e 73 65 73 |gWorld =| "senses|
|0000ed30| 22 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 20 |" then. |        |
|0000ed40| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|0000ed50| 20 73 70 72 69 74 65 20 | 70 69 63 73 70 72 69 74 | sprite |picsprit|
|0000ed60| 65 20 3d 20 32 31 30 20 | 2b 20 77 0d 20 20 20 20 |e = 210 |+ w.    |
|0000ed70| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|0000ed80| 63 76 20 6f 66 20 73 70 | 72 69 74 65 20 70 69 63 |cv of sp|rite pic|
|0000ed90| 73 70 72 69 74 65 20 3d | 20 35 30 20 2b 20 68 20 |sprite =| 50 + h |
|0000eda0| 20 20 20 0d 20 20 20 20 | 20 20 20 20 65 6c 73 65 |   .    |    else|
|0000edb0| 20 69 66 20 67 57 6f 72 | 6c 64 20 3d 20 22 44 65 | if gWor|ld = "De|
|0000edc0| 73 69 67 6e 22 20 74 68 | 65 6e 0d 20 20 20 20 20 |sign" th|en.     |
|0000edd0| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |     set| the loc|
|0000ede0| 68 20 6f 66 20 73 70 72 | 69 74 65 20 70 69 63 73 |h of spr|ite pics|
|0000edf0| 70 72 69 74 65 20 3d 20 | 31 32 35 20 2b 20 77 0d |prite = |125 + w.|
|0000ee00| 20 20 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 |        |  set th|
|0000ee10| 65 20 6c 6f 63 76 20 6f | 66 20 73 70 72 69 74 65 |e locv o|f sprite|
|0000ee20| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 31 33 32 | picspri|te = 132|
|0000ee30| 20 2b 20 68 20 20 20 20 | 0d 20 20 20 20 20 20 20 | + h    |.       |
|0000ee40| 20 65 6c 73 65 20 69 66 | 20 67 57 6f 72 6c 64 20 | else if| gWorld |
|0000ee50| 3d 20 22 70 6f 77 65 72 | 22 20 74 68 65 6e 0d 20 |= "power|" then. |
|0000ee60| 20 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |        | set the|
|0000ee70| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|0000ee80| 70 69 63 73 70 72 69 74 | 65 20 3d 20 32 32 33 20 |picsprit|e = 223 |
|0000ee90| 2b 20 77 0d 20 20 20 20 | 20 20 20 20 20 20 73 65 |+ w.    |      se|
|0000eea0| 74 20 74 68 65 20 6c 6f | 63 76 20 6f 66 20 73 70 |t the lo|cv of sp|
|0000eeb0| 72 69 74 65 20 70 69 63 | 73 70 72 69 74 65 20 3d |rite pic|sprite =|
|0000eec0| 20 34 38 20 2b 20 68 20 | 20 20 20 0d 20 20 20 20 | 48 + h |   .    |
|0000eed0| 20 20 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 |    else| if gWor|
|0000eee0| 6c 64 20 3d 20 22 4d 69 | 6e 64 22 20 74 68 65 6e |ld = "Mi|nd" then|
|0000eef0| 0d 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |.       |   set t|
|0000ef00| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|0000ef10| 65 20 70 69 63 73 70 72 | 69 74 65 20 3d 20 33 38 |e picspr|ite = 38|
|0000ef20| 20 2b 20 77 0d 20 20 20 | 20 20 20 20 20 20 20 73 | + w.   |       s|
|0000ef30| 65 74 20 74 68 65 20 6c | 6f 63 76 20 6f 66 20 73 |et the l|ocv of s|
|0000ef40| 70 72 69 74 65 20 70 69 | 63 73 70 72 69 74 65 20 |prite pi|csprite |
|0000ef50| 3d 20 31 33 32 20 2b 20 | 68 20 20 20 20 0d 20 20 |= 132 + |h    .  |
|0000ef60| 20 20 20 20 20 20 65 6c | 73 65 20 69 66 20 67 57 |      el|se if gW|
|0000ef70| 6f 72 6c 64 20 3d 20 22 | 62 6f 64 79 22 20 74 68 |orld = "|body" th|
|0000ef80| 65 6e 0d 20 20 20 20 20 | 20 20 20 20 20 73 65 74 |en.     |     set|
|0000ef90| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|0000efa0| 69 74 65 20 70 69 63 73 | 70 72 69 74 65 20 3d 20 |ite pics|prite = |
|0000efb0| 31 34 30 20 2b 20 77 0d | 20 20 20 20 20 20 20 20 |140 + w.|        |
|0000efc0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|0000efd0| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|0000efe0| 74 65 20 3d 20 39 35 20 | 2b 20 68 20 20 20 20 20 |te = 95 |+ h     |
|0000eff0| 0d 20 20 20 20 20 20 20 | 20 65 6c 73 65 0d 20 20 |.       | else.  |
|0000f000| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|0000f010| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 70 |loch of |sprite p|
|0000f020| 69 63 73 70 72 69 74 65 | 20 3d 20 37 30 20 2b 20 |icsprite| = 70 + |
|0000f030| 77 0d 20 20 20 20 20 20 | 20 20 20 20 73 65 74 20 |w.      |    set |
|0000f040| 74 68 65 20 6c 6f 63 76 | 20 6f 66 20 73 70 72 69 |the locv| of spri|
|0000f050| 74 65 20 70 69 63 73 70 | 72 69 74 65 20 3d 20 37 |te picsp|rite = 7|
|0000f060| 30 20 2b 20 68 20 20 20 | 20 20 0d 20 20 20 20 20 |0 + h   |  .     |
|0000f070| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|0000f080| 65 6e 64 20 69 66 0d 20 | 20 20 20 20 20 0d 20 20 |end if. |     .  |
|0000f090| 20 20 65 6c 73 65 20 69 | 66 20 67 57 6f 72 6c 64 |  else i|f gWorld|
|0000f0a0| 20 3d 20 22 50 6f 77 65 | 72 22 20 74 68 65 6e 0d | = "Powe|r" then.|
|0000f0b0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 2d 2d 20 |      . |     -- |
|0000f0c0| 67 65 74 20 74 68 65 20 | 6d 61 70 73 0d 20 20 20 |get the |maps.   |
|0000f0d0| 20 20 20 0d 20 20 20 20 | 20 20 70 75 70 70 65 74 |   .    |  puppet|
|0000f0e0| 74 65 6d 70 6f 20 32 0d | 20 20 20 20 20 20 0d 20 |tempo 2.|      . |
|0000f0f0| 20 20 20 20 20 2d 2d 20 | 69 66 20 74 68 65 72 65 |     -- |if there|
|0000f100| 73 20 61 20 6d 61 70 2c | 20 61 6e 64 20 74 68 65 |s a map,| and the|
|0000f110| 72 65 20 73 68 6f 75 6c | 64 20 62 65 2c 20 74 68 |re shoul|d be, th|
|0000f120| 65 6e 20 67 6f 20 74 6f | 20 69 74 0d 20 20 20 20 |en go to| it.    |
|0000f130| 20 20 69 66 20 6c 61 62 | 65 6c 28 67 6d 61 6b 65 |  if lab|el(gmake|
|0000f140| 72 6e 75 6d 20 26 20 22 | 2e 6d 61 70 22 29 20 74 |rnum & "|.map") t|
|0000f150| 68 65 6e 0d 20 20 20 20 | 20 20 20 20 67 6f 20 74 |hen.    |    go t|
|0000f160| 6f 20 66 72 61 6d 65 20 | 28 67 6d 61 6b 65 72 6e |o frame |(gmakern|
|0000f170| 75 6d 20 26 20 22 2e 6d | 61 70 22 29 0d 20 20 20 |um & ".m|ap").   |
|0000f180| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|0000f190| 0d 20 20 20 20 20 20 73 | 65 74 20 67 53 65 65 6e |.      s|et gSeen|
|0000f1a0| 4d 61 70 73 20 3d 20 31 | 0d 20 20 20 20 65 6e 64 |Maps = 1|.    end|
|0000f1b0| 20 69 66 20 20 0d 20 20 | 20 20 0d 20 20 20 20 2d | if  .  |  .    -|
|0000f1c0| 2d 20 6d 6f 76 65 20 74 | 68 65 20 63 75 74 74 69 |- move t|he cutti|
|0000f1d0| 6e 67 20 61 6e 64 20 63 | 61 70 74 69 6f 6e 20 62 |ng and c|aption b|
|0000f1e0| 61 63 6b 20 6f 6e 73 63 | 72 65 65 6e 0d 20 20 20 |ack onsc|reen.   |
|0000f1f0| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|0000f200| 20 73 70 72 69 74 65 20 | 63 75 74 74 69 6e 67 73 | sprite |cuttings|
|0000f210| 70 72 69 74 65 20 3d 20 | 63 75 74 74 69 6e 67 6c |prite = |cuttingl|
|0000f220| 6f 63 68 0d 20 20 20 20 | 70 75 70 70 65 74 73 70 |och.    |puppetsp|
|0000f230| 72 69 74 65 20 63 75 74 | 74 69 6e 67 73 70 72 69 |rite cut|tingspri|
|0000f240| 74 65 2c 30 0d 20 20 20 | 20 73 65 74 20 74 68 65 |te,0.   | set the|
|0000f250| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|0000f260| 63 61 70 74 69 6f 6e 73 | 70 72 69 74 65 20 3d 20 |captions|prite = |
|0000f270| 63 75 74 74 69 6e 67 6c | 6f 63 68 0d 20 20 20 20 |cuttingl|och.    |
|0000f280| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 63 61 70 |puppetsp|rite cap|
|0000f290| 74 69 6f 6e 73 70 72 69 | 74 65 2c 30 0d 20 20 20 |tionspri|te,0.   |
|0000f2a0| 20 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 20 20 | .  end |if.  .  |
|0000f2b0| 4e 61 76 42 75 74 74 6f | 6e 55 70 64 61 74 65 0d |NavButto|nUpdate.|
|0000f2c0| 20 20 45 6e 64 54 72 61 | 70 4d 6f 75 73 65 0d 65 |  EndTra|pMouse.e|
|0000f2d0| 6e 64 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nd.-----|--------|
|0000f2e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000f2f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000f300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000f310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0000f320| 2d 0d 6f 6e 20 43 68 65 | 63 6b 50 72 69 6e 74 0d |-.on Che|ckPrint.|
|0000f330| 20 20 67 6c 6f 62 61 6c | 20 67 50 72 69 6e 74 48 |  global| gPrintH|
|0000f340| 65 61 64 2c 20 67 43 75 | 72 43 75 74 74 69 6e 67 |ead, gCu|rCutting|
|0000f350| 2c 20 67 6d 61 6b 65 72 | 6e 75 6d 0d 20 20 0d 20 |, gmaker|num.  . |
|0000f360| 20 2d 2d 20 74 68 69 73 | 20 69 73 20 64 69 73 61 | -- this| is disa|
|0000f370| 62 6c 65 64 20 66 6f 72 | 20 6e 6f 77 0d 20 20 0d |bled for| now.  .|
|0000f380| 20 20 2d 2d 20 20 69 66 | 20 74 68 65 20 6b 65 79 |  --  if| the key|
|0000f390| 20 3d 20 22 70 22 20 74 | 68 65 6e 20 0d 20 20 2d | = "p" t|hen .  -|
|0000f3a0| 2d 20 20 20 20 0d 20 20 | 2d 2d 20 20 20 20 69 66 |-    .  |--    if|
|0000f3b0| 20 74 68 65 20 66 72 61 | 6d 65 6c 61 62 65 6c 20 | the fra|melabel |
|0000f3c0| 3d 20 22 63 75 74 74 69 | 6e 67 22 20 6f 72 20 74 |= "cutti|ng" or t|
|0000f3d0| 68 65 20 66 72 61 6d 65 | 6c 61 62 65 6c 20 63 6f |he frame|label co|
|0000f3e0| 6e 74 61 69 6e 73 20 22 | 70 61 72 74 77 6f 72 6b |ntains "|partwork|
|0000f3f0| 22 20 74 68 65 6e 20 0d | 20 20 2d 2d 20 20 20 20 |" then .|  --    |
|0000f400| 20 20 73 65 74 20 6d 6e | 61 6d 65 20 3d 20 6c 69 |  set mn|ame = li|
|0000f410| 6e 65 20 67 4d 61 6b 65 | 72 6e 75 6d 20 6f 66 20 |ne gMake|rnum of |
|0000f420| 66 69 65 6c 64 20 22 6d | 61 6b 65 72 66 75 6c 6c |field "m|akerfull|
|0000f430| 6e 61 6d 65 73 22 0d 20 | 20 2d 2d 20 20 20 20 20 |names". | --     |
|0000f440| 20 73 65 74 20 70 72 69 | 6e 74 74 65 78 74 20 3d | set pri|nttext =|
|0000f450| 20 22 4d 61 6b 65 72 73 | 20 6f 66 20 74 68 65 20 | "Makers| of the |
|0000f460| 32 30 74 68 20 43 65 6e | 74 75 72 79 22 20 26 20 |20th Cen|tury" & |
|0000f470| 72 65 74 75 72 6e 20 26 | 20 22 43 6f 70 79 72 69 |return &| "Copyri|
|0000f480| 67 68 74 20 4e 65 77 73 | 20 4d 75 6c 74 69 6d 65 |ght News| Multime|
|0000f490| 64 69 61 22 20 26 20 72 | 65 74 75 72 6e 20 26 20 |dia" & r|eturn & |
|0000f4a0| 72 65 74 75 72 6e 20 26 | 20 6d 6e 61 6d 65 20 26 |return &| mname &|
|0000f4b0| 20 72 65 74 75 72 6e 20 | 26 20 67 50 72 69 6e 74 | return |& gPrint|
|0000f4c0| 48 65 61 64 20 26 20 72 | 65 74 75 72 6e 20 26 20 |Head & r|eturn & |
|0000f4d0| 72 65 74 75 72 6e 20 26 | 20 72 65 74 75 72 6e 20 |return &| return |
|0000f4e0| 26 20 67 43 75 72 43 75 | 74 74 69 6e 67 0d 20 20 |& gCurCu|tting.  |
|0000f4f0| 2d 2d 20 20 20 20 20 20 | 69 66 20 63 68 61 72 20 |--      |if char |
|0000f500| 28 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 |(the num|ber of c|
|0000f510| 68 61 72 73 20 6f 66 20 | 70 72 69 6e 74 74 65 78 |hars of |printtex|
|0000f520| 74 29 20 6f 66 20 70 72 | 69 6e 74 74 65 78 74 20 |t) of pr|inttext |
|0000f530| 3d 20 22 40 22 20 74 68 | 65 6e 20 64 65 6c 65 74 |= "@" th|en delet|
|0000f540| 65 20 63 68 61 72 20 28 | 74 68 65 20 6e 75 6d 62 |e char (|the numb|
|0000f550| 65 72 20 6f 66 20 63 68 | 61 72 73 20 6f 66 20 70 |er of ch|ars of p|
|0000f560| 72 69 6e 74 74 65 78 74 | 29 20 6f 66 20 70 72 69 |rinttext|) of pri|
|0000f570| 6e 74 74 65 78 74 0d 20 | 20 2d 2d 20 20 20 20 20 |nttext. | --     |
|0000f580| 20 70 75 74 20 70 72 69 | 6e 74 74 65 78 74 0d 20 | put pri|nttext. |
|0000f590| 20 2d 2d 20 20 20 20 20 | 20 0d 20 20 2d 2d 20 20 | --     | .  --  |
|0000f5a0| 20 20 20 20 69 66 20 74 | 68 65 20 6d 61 63 68 69 |    if t|he machi|
|0000f5b0| 6e 65 74 79 70 65 20 3c | 20 32 35 36 20 74 68 65 |netype <| 256 the|
|0000f5c0| 6e 20 2d 2d 20 4d 41 43 | 0d 20 20 2d 2d 20 20 20 |n -- MAC|.  --   |
|0000f5d0| 20 20 20 20 20 2d 2d 20 | 70 72 69 6e 74 20 69 74 |     -- |print it|
|0000f5e0| 21 0d 20 20 2d 2d 20 20 | 20 20 20 20 20 20 6f 70 |!.  --  |      op|
|0000f5f0| 65 6e 78 6c 69 62 20 28 | 22 50 72 69 6e 74 58 6f |enxlib (|"PrintXo|
|0000f600| 62 6a 22 29 0d 20 20 2d | 2d 20 20 20 20 20 20 20 |bj").  -|-       |
|0000f610| 20 70 75 74 20 50 72 69 | 6e 74 58 4f 62 6a 28 6d | put Pri|ntXObj(m|
|0000f620| 4e 65 77 29 20 69 6e 74 | 6f 20 70 4f 62 6a 0d 20 |New) int|o pObj. |
|0000f630| 20 2d 2d 20 20 20 20 20 | 20 20 20 70 4f 62 6a 28 | --     |   pObj(|
|0000f640| 6d 53 65 74 54 65 78 74 | 2c 70 72 69 6e 74 74 65 |mSetText|,printte|
|0000f650| 78 74 29 0d 20 20 2d 2d | 20 20 20 20 20 20 20 20 |xt).  --|        |
|0000f660| 70 75 74 20 70 4f 62 6a | 28 6d 50 72 69 6e 74 29 |put pObj|(mPrint)|
|0000f670| 20 69 6e 74 6f 20 45 72 | 72 0d 20 20 2d 2d 20 20 | into Er|r.  --  |
|0000f680| 20 20 20 20 20 20 69 66 | 20 45 72 72 20 3c 3e 20 |      if| Err <> |
|0000f690| 22 22 20 74 68 65 6e 20 | 41 6c 65 72 74 28 45 72 |"" then |Alert(Er|
|0000f6a0| 72 29 0d 20 20 2d 2d 20 | 20 20 20 20 20 20 20 70 |r).  -- |       p|
|0000f6b0| 75 74 20 70 4f 62 6a 28 | 6d 44 69 73 70 6f 73 65 |ut pObj(|mDispose|
|0000f6c0| 29 0d 20 20 2d 2d 20 20 | 20 20 20 20 20 20 63 6c |).  --  |      cl|
|0000f6d0| 6f 73 65 58 6c 69 62 20 | 28 22 50 72 69 6e 74 58 |oseXlib |("PrintX|
|0000f6e0| 6f 62 6a 22 29 0d 20 20 | 2d 2d 20 20 20 20 20 20 |obj").  |--      |
|0000f6f0| 65 6e 64 20 69 66 0d 20 | 20 2d 2d 20 20 20 20 65 |end if. | --    e|
|0000f700| 6e 64 20 69 66 0d 20 20 | 2d 2d 20 20 65 6e 64 20 |nd if.  |--  end |
|0000f710| 69 66 0d 65 6e 64 00 00 | 33 00 32 01 c5 02 9a 00 |if.end..|3.2.....|
|0000f720| 00 04 59 00 00 04 61 00 | 5a db 10 00 01 00 00 00 |..Y...a.|Z.......|
|0000f730| 00 00 0b 00 09 00 04 00 | 00 00 09 00 00 00 00 00 |........|........|
|0000f740| 00 3c 43 41 53 74 00 00 | 36 0a 00 04 00 00 36 00 |.<CASt..|6.....6.|
|0000f750| 0b 00 00 03 00 00 00 14 | 00 c2 ea cc 00 00 00 00 |........|........|
|0000f760| 00 00 00 00 00 00 00 3c | 00 07 00 00 00 00 00 00 |.......<|........|
|0000f770| 35 9f 00 00 35 a0 00 00 | 35 a0 00 00 35 a0 00 00 |5...5...|5...5...|
|0000f780| 35 a0 00 00 35 b4 00 00 | 35 ca 6f 6e 20 47 6f 50 |5...5...|5.on GoP|
|0000f790| 69 63 74 41 72 74 69 63 | 6c 65 0d 20 20 67 6c 6f |ictArtic|le.  glo|
|0000f7a0| 62 61 6c 20 67 43 68 61 | 70 74 65 72 73 2c 20 67 |bal gCha|pters, g|
|0000f7b0| 54 69 74 6c 65 73 2c 20 | 67 41 72 74 69 63 6c 65 |Titles, |gArticle|
|0000f7c0| 73 2c 20 67 44 61 74 65 | 73 2c 20 67 43 61 70 74 |s, gDate|s, gCapt|
|0000f7d0| 69 6f 6e 73 2c 20 67 43 | 75 72 43 75 74 74 69 6e |ions, gC|urCuttin|
|0000f7e0| 67 0d 20 20 67 6c 6f 62 | 61 6c 20 67 43 75 72 43 |g.  glob|al gCurC|
|0000f7f0| 68 61 70 2c 20 67 43 75 | 72 41 72 74 69 63 6c 65 |hap, gCu|rArticle|
|0000f800| 2c 20 67 4e 61 6d 65 2c | 20 6d 79 74 65 78 74 2c |, gName,| mytext,|
|0000f810| 20 67 41 72 74 69 63 6c | 65 50 61 67 65 2c 20 67 | gArticl|ePage, g|
|0000f820| 46 75 6c 6c 43 75 74 74 | 69 6e 67 73 0d 20 20 67 |FullCutt|ings.  g|
|0000f830| 6c 6f 62 61 6c 20 67 46 | 6f 72 6d 61 74 74 65 64 |lobal gF|ormatted|
|0000f840| 54 65 78 74 2c 20 67 54 | 65 78 74 50 61 67 65 73 |Text, gT|extPages|
|0000f850| 2c 20 67 4d 61 78 4c 69 | 6e 65 73 2c 20 67 43 75 |, gMaxLi|nes, gCu|
|0000f860| 72 49 6e 64 65 78 2c 20 | 67 57 6f 72 6c 64 2c 20 |rIndex, |gWorld, |
|0000f870| 67 53 65 65 6e 4d 61 70 | 73 0d 20 20 67 6c 6f 62 |gSeenMap|s.  glob|
|0000f880| 61 6c 20 67 50 61 70 65 | 72 4c 6f 63 68 2c 20 67 |al gPape|rLoch, g|
|0000f890| 4d 61 6b 65 72 4e 61 6d | 65 2c 20 67 48 65 61 64 |MakerNam|e, gHead|
|0000f8a0| 6c 6f 63 48 2c 20 67 4e | 61 6d 65 4c 6f 63 68 2c |locH, gN|ameLoch,|
|0000f8b0| 20 67 4e 61 6d 65 4c 6f | 63 76 0d 20 20 67 6c 6f | gNameLo|cv.  glo|
|0000f8c0| 62 61 6c 20 67 4d 61 6b | 65 72 4e 75 6d 2c 20 67 |bal gMak|erNum, g|
|0000f8d0| 51 54 70 61 74 68 2c 20 | 67 53 6f 75 6e 64 50 61 |QTpath, |gSoundPa|
|0000f8e0| 74 68 2c 20 67 4e 75 67 | 67 65 74 54 69 6d 65 2c |th, gNug|getTime,|
|0000f8f0| 20 67 4e 75 67 67 65 74 | 44 65 6c 61 79 2c 20 67 | gNugget|Delay, g|
|0000f900| 4e 61 6d 65 43 61 73 74 | 6e 75 6d 0d 20 20 67 6c |NameCast|num.  gl|
|0000f910| 6f 62 61 6c 20 67 43 75 | 72 50 69 63 0d 20 20 0d |obal gCu|rPic.  .|
|0000f920| 20 20 73 65 74 20 70 69 | 63 73 70 72 69 74 65 20 |  set pi|csprite |
|0000f930| 3d 20 39 20 20 2d 2d 20 | 74 68 65 20 73 70 72 69 |= 9  -- |the spri|
|0000f940| 74 65 20 74 68 65 20 70 | 69 63 74 20 61 70 70 65 |te the p|ict appe|
|0000f950| 61 72 73 20 6f 6e 0d 20 | 20 73 65 74 20 63 75 74 |ars on. | set cut|
|0000f960| 74 69 6e 67 73 70 72 69 | 74 65 20 3d 20 36 0d 20 |tingspri|te = 6. |
|0000f970| 20 73 65 74 20 74 69 74 | 6c 65 73 70 72 69 74 65 | set tit|lesprite|
|0000f980| 20 3d 20 38 0d 20 20 73 | 65 74 20 70 61 70 65 72 | = 8.  s|et paper|
|0000f990| 73 70 72 69 74 65 20 3d | 20 31 31 0d 20 20 73 65 |sprite =| 11.  se|
|0000f9a0| 74 20 64 61 74 65 73 70 | 72 69 74 65 20 3d 20 31 |t datesp|rite = 1|
|0000f9b0| 32 0d 20 20 73 65 74 20 | 63 61 70 74 69 6f 6e 73 |2.  set |captions|
|0000f9c0| 70 72 69 74 65 20 3d 20 | 37 0d 20 20 73 65 74 20 |prite = |7.  set |
|0000f9d0| 66 6f 72 77 61 72 64 62 | 75 74 74 6f 6e 20 3d 20 |forwardb|utton = |
|0000f9e0| 32 30 0d 20 20 73 65 74 | 20 62 61 63 6b 62 75 74 |20.  set| backbut|
|0000f9f0| 74 6f 6e 20 3d 20 31 39 | 0d 20 20 73 65 74 20 68 |ton = 19|.  set h|
|0000fa00| 65 61 64 73 70 72 69 74 | 65 20 3d 20 31 30 20 20 |eadsprit|e = 10  |
|0000fa10| 0d 20 20 73 65 74 20 6e | 61 6d 65 73 70 72 69 74 |.  set n|amesprit|
|0000fa20| 65 20 3d 20 34 0d 20 20 | 73 65 74 20 68 65 61 64 |e = 4.  |set head|
|0000fa30| 6c 6f 63 68 20 3d 20 67 | 48 65 61 64 6c 6f 63 68 |loch = g|Headloch|
|0000fa40| 20 20 2d 2d 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 |  -- the| loch of|
|0000fa50| 20 74 68 65 20 68 65 61 | 64 73 68 6f 74 20 73 70 | the hea|dshot sp|
|0000fa60| 72 69 74 65 0d 20 20 73 | 65 74 20 74 68 65 20 6c |rite.  s|et the l|
|0000fa70| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 68 65 |och of s|prite he|
|0000fa80| 61 64 73 70 72 69 74 65 | 20 3d 20 68 65 61 64 6c |adsprite| = headl|
|0000fa90| 6f 63 68 0d 20 20 0d 20 | 20 0d 20 20 2d 2d 20 50 |och.  . | .  -- P|
|0000faa0| 49 43 54 0d 20 20 70 75 | 70 70 65 74 73 70 72 69 |ICT.  pu|ppetspri|
|0000fab0| 74 65 20 66 6f 72 77 61 | 72 64 62 75 74 74 6f 6e |te forwa|rdbutton|
|0000fac0| 2c 30 0d 20 20 70 75 70 | 70 65 74 73 70 72 69 74 |,0.  pup|petsprit|
|0000fad0| 65 20 62 61 63 6b 62 75 | 74 74 6f 6e 2c 30 0d 20 |e backbu|tton,0. |
|0000fae0| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 70 61 | puppets|prite pa|
|0000faf0| 70 65 72 73 70 72 69 74 | 65 2c 30 0d 20 20 0d 20 |persprit|e,0.  . |
|0000fb00| 20 73 65 74 20 6f 6c 64 | 66 72 61 6d 65 6c 61 62 | set old|framelab|
|0000fb10| 65 6c 20 3d 20 74 68 65 | 20 66 72 61 6d 65 6c 61 |el = the| framela|
|0000fb20| 62 65 6c 0d 20 20 0d 20 | 20 73 65 74 20 74 68 65 |bel.  . | set the|
|0000fb30| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|0000fb40| 63 61 70 74 69 6f 6e 2d | 70 69 63 22 20 3d 20 22 |caption-|pic" = "|
|0000fb50| 20 22 0d 20 20 73 65 74 | 20 74 68 65 20 74 65 78 | ".  set| the tex|
|0000fb60| 74 20 6f 66 20 66 69 65 | 6c 64 20 22 63 61 70 74 |t of fie|ld "capt|
|0000fb70| 69 6f 6e 2d 70 69 63 32 | 22 20 3d 20 22 20 22 20 |ion-pic2|" = " " |
|0000fb80| 20 0d 20 20 0d 20 20 69 | 66 20 6e 6f 74 20 28 74 | .  .  i|f not (t|
|0000fb90| 68 65 20 66 72 61 6d 65 | 6c 61 62 65 6c 20 63 6f |he frame|label co|
|0000fba0| 6e 74 61 69 6e 73 20 22 | 70 69 63 22 29 20 74 68 |ntains "|pic") th|
|0000fbb0| 65 6e 0d 20 20 20 20 75 | 6e 70 75 70 70 65 74 20 |en.    u|npuppet |
|0000fbc0| 22 34 2c 31 30 22 20 20 | 20 20 20 0d 20 20 65 6c |"4,10"  |   .  el|
|0000fbd0| 73 65 0d 20 20 20 20 70 | 75 70 70 65 74 73 70 72 |se.    p|uppetspr|
|0000fbe0| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|0000fbf0| 65 2c 30 20 2d 2d 20 75 | 6e 70 75 70 70 65 74 20 |e,0 -- u|npuppet |
|0000fc00| 74 68 65 20 70 69 63 74 | 20 63 61 70 74 69 6f 6e |the pict| caption|
|0000fc10| 20 20 20 20 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |    .  e|nd if.  |
|0000fc20| 0d 20 20 2d 2d 20 67 65 | 74 20 74 68 65 20 63 61 |.  -- ge|t the ca|
|0000fc30| 73 74 6e 75 6d 62 65 72 | 20 6f 66 20 74 68 65 20 |stnumber| of the |
|0000fc40| 70 69 63 74 75 72 65 0d | 20 20 73 65 74 20 70 69 |picture.|  set pi|
|0000fc50| 63 63 61 73 74 6e 61 6d | 65 20 3d 20 28 67 4d 61 |ccastnam|e = (gMa|
|0000fc60| 6b 65 72 4e 75 6d 20 26 | 20 22 2d 22 20 26 20 67 |kerNum &| "-" & g|
|0000fc70| 43 75 72 43 68 61 70 20 | 26 20 22 2e 22 20 26 20 |CurChap |& "." & |
|0000fc80| 67 43 75 72 41 72 74 69 | 63 6c 65 29 0d 20 20 73 |gCurArti|cle).  s|
|0000fc90| 65 74 20 70 69 63 63 61 | 73 74 20 3d 20 74 68 65 |et picca|st = the|
|0000fca0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|0000fcb0| 70 69 63 63 61 73 74 6e | 61 6d 65 0d 20 20 70 75 |piccastn|ame.  pu|
|0000fcc0| 74 20 28 67 4d 61 6b 65 | 72 4e 75 6d 20 26 20 22 |t (gMake|rNum & "|
|0000fcd0| 2d 22 20 26 20 67 43 75 | 72 43 68 61 70 20 26 20 |-" & gCu|rChap & |
|0000fce0| 22 2e 22 20 26 20 67 43 | 75 72 41 72 74 69 63 6c |"." & gC|urArticl|
|0000fcf0| 65 29 0d 20 20 0d 20 20 | 69 66 20 76 61 6c 75 65 |e).  .  |if value|
|0000fd00| 28 67 4d 61 6b 65 72 4e | 75 6d 29 20 3d 20 31 31 |(gMakerN|um) = 11|
|0000fd10| 39 20 74 68 65 6e 20 20 | 20 2d 2d 20 73 70 65 63 |9 then  | -- spec|
|0000fd20| 69 61 6c 20 63 61 73 65 | 20 66 6f 72 20 4d 61 74 |ial case| for Mat|
|0000fd30| 69 73 73 65 0d 20 20 20 | 20 73 65 74 20 50 69 63 |isse.   | set Pic|
|0000fd40| 74 46 72 61 6d 65 20 3d | 20 22 70 69 63 74 2e 4d |tFrame =| "pict.M|
|0000fd50| 41 54 22 0d 20 20 20 20 | 73 65 74 20 50 69 63 74 |AT".    |set Pict|
|0000fd60| 46 72 61 6d 65 32 20 3d | 20 22 70 69 63 74 32 2e |Frame2 =| "pict2.|
|0000fd70| 4d 41 54 22 0d 20 20 65 | 6c 73 65 0d 20 20 20 20 |MAT".  e|lse.    |
|0000fd80| 73 65 74 20 50 69 63 74 | 46 72 61 6d 65 20 3d 20 |set Pict|Frame = |
|0000fd90| 22 70 69 63 74 22 0d 20 | 20 20 20 73 65 74 20 50 |"pict". |   set P|
|0000fda0| 69 63 74 46 72 61 6d 65 | 32 20 3d 20 22 70 69 63 |ictFrame|2 = "pic|
|0000fdb0| 74 32 22 0d 20 20 65 6e | 64 20 69 66 0d 20 20 0d |t2".  en|d if.  .|
|0000fdc0| 20 20 69 66 20 70 69 63 | 63 61 73 74 6e 61 6d 65 |  if pic|castname|
|0000fdd0| 20 3d 20 22 39 36 2d 33 | 2e 36 22 20 74 68 65 6e | = "96-3|.6" then|
|0000fde0| 0d 20 20 20 20 2d 2d 20 | 74 68 69 73 20 69 73 20 |.    -- |this is |
|0000fdf0| 61 20 73 70 65 63 69 61 | 6c 20 63 61 73 65 20 66 |a specia|l case f|
|0000fe00| 6f 72 20 4a 75 6e 67 0d | 20 20 20 20 67 6f 20 74 |or Jung.|    go t|
|0000fe10| 6f 20 66 72 61 6d 65 20 | 22 70 69 63 74 32 22 0d |o frame |"pict2".|
|0000fe20| 20 20 65 6c 73 65 20 69 | 66 20 28 67 57 6f 72 6c |  else i|f (gWorl|
|0000fe30| 64 20 3d 20 22 64 65 73 | 69 67 6e 22 20 6f 72 20 |d = "des|ign" or |
|0000fe40| 67 57 6f 72 6c 64 20 3d | 20 22 73 65 6e 73 65 73 |gWorld =| "senses|
|0000fe50| 22 20 6f 72 20 67 57 6f | 72 6c 64 20 3d 20 22 6d |" or gWo|rld = "m|
|0000fe60| 69 6e 64 22 29 20 61 6e | 64 20 70 69 63 63 61 73 |ind") an|d piccas|
|0000fe70| 74 20 3e 20 30 20 74 68 | 65 6e 20 20 20 20 0d 20 |t > 0 th|en    . |
|0000fe80| 20 20 20 69 66 20 74 68 | 65 20 77 69 64 74 68 20 |   if th|e width |
|0000fe90| 6f 66 20 63 61 73 74 20 | 70 69 63 63 61 73 74 20 |of cast |piccast |
|0000fea0| 3e 3d 20 74 68 65 20 68 | 65 69 67 68 74 20 6f 66 |>= the h|eight of|
|0000feb0| 20 63 61 73 74 20 70 69 | 63 63 61 73 74 20 74 68 | cast pi|ccast th|
|0000fec0| 65 6e 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |en      |  .     |
|0000fed0| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 50 69 63 | go to f|rame Pic|
|0000fee0| 74 46 72 61 6d 65 32 0d | 20 20 20 20 65 6c 73 65 |tFrame2.|    else|
|0000fef0| 0d 20 20 20 20 20 20 67 | 6f 20 74 6f 20 66 72 61 |.      g|o to fra|
|0000ff00| 6d 65 20 50 69 63 74 46 | 72 61 6d 65 0d 20 20 20 |me PictF|rame.   |
|0000ff10| 20 65 6e 64 20 69 66 0d | 20 20 65 6c 73 65 0d 20 | end if.|  else. |
|0000ff20| 20 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 50 |   go to| frame P|
|0000ff30| 69 63 74 46 72 61 6d 65 | 0d 20 20 65 6e 64 20 69 |ictFrame|.  end i|
|0000ff40| 66 0d 20 20 0d 20 20 0d | 20 20 43 6c 65 61 6e 4d |f.  .  .|  CleanM|
|0000ff50| 65 6d 0d 20 20 73 65 74 | 20 67 43 75 72 50 69 63 |em.  set| gCurPic|
|0000ff60| 20 3d 20 70 69 63 63 61 | 73 74 20 2d 2d 20 72 65 | = picca|st -- re|
|0000ff70| 6d 65 6d 62 65 72 20 74 | 68 65 20 70 69 63 74 20 |member t|he pict |
|0000ff80| 74 6f 20 75 6e 6c 6f 61 | 64 20 6c 61 74 65 72 20 |to unloa|d later |
|0000ff90| 6f 6e 0d 20 20 0d 20 20 | 69 66 20 67 57 6f 72 6c |on.  .  |if gWorl|
|0000ffa0| 64 20 3d 20 22 53 65 6e | 73 65 73 22 20 6f 72 20 |d = "Sen|ses" or |
|0000ffb0| 67 57 6f 72 6c 64 20 3d | 20 22 44 65 73 69 67 6e |gWorld =| "Design|
|0000ffc0| 22 20 74 68 65 6e 0d 20 | 20 20 20 73 65 74 20 74 |" then. |   set t|
|0000ffd0| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|0000ffe0| 65 20 6e 61 6d 65 73 70 | 72 69 74 65 20 3d 20 67 |e namesp|rite = g|
|0000fff0| 4e 61 6d 65 4c 6f 63 68 | 0d 20 20 20 20 73 65 74 |NameLoch|.    set|
|00010000| 20 74 68 65 20 6c 6f 63 | 76 20 6f 66 20 73 70 72 | the loc|v of spr|
|00010010| 69 74 65 20 6e 61 6d 65 | 73 70 72 69 74 65 20 3d |ite name|sprite =|
|00010020| 20 67 4e 61 6d 65 4c 6f | 63 76 0d 20 20 65 6e 64 | gNameLo|cv.  end|
|00010030| 20 69 66 0d 20 20 0d 20 | 20 0d 20 20 2d 2d 20 6d | if.  . | .  -- m|
|00010040| 6f 76 65 20 63 61 70 74 | 69 6f 6e 20 61 6e 64 20 |ove capt|ion and |
|00010050| 70 69 63 74 20 6f 66 66 | 73 63 72 65 65 6e 0d 20 |pict off|screen. |
|00010060| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 63 61 | puppets|prite ca|
|00010070| 70 74 69 6f 6e 73 70 72 | 69 74 65 2c 31 20 0d 20 |ptionspr|ite,1 . |
|00010080| 20 73 65 74 20 63 61 70 | 74 69 6f 6e 6c 6f 63 68 | set cap|tionloch|
|00010090| 20 3d 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 | = the l|och of s|
|000100a0| 70 72 69 74 65 20 63 61 | 70 74 69 6f 6e 73 70 72 |prite ca|ptionspr|
|000100b0| 69 74 65 0d 20 20 73 65 | 74 20 74 68 65 20 6c 6f |ite.  se|t the lo|
|000100c0| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 63 61 70 |ch of sp|rite cap|
|000100d0| 74 69 6f 6e 73 70 72 69 | 74 65 20 3d 20 31 30 30 |tionspri|te = 100|
|000100e0| 30 20 20 0d 20 20 70 75 | 70 70 65 74 73 70 72 69 |0  .  pu|ppetspri|
|000100f0| 74 65 20 70 69 63 73 70 | 72 69 74 65 2c 31 0d 20 |te picsp|rite,1. |
|00010100| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|00010110| 20 73 70 72 69 74 65 20 | 70 69 63 73 70 72 69 74 | sprite |picsprit|
|00010120| 65 20 3d 20 31 30 30 30 | 0d 20 20 75 70 64 61 74 |e = 1000|.  updat|
|00010130| 65 73 74 61 67 65 0d 20 | 20 0d 20 20 69 66 20 28 |estage. | .  if (|
|00010140| 67 57 6f 72 6c 64 20 3d | 20 22 73 65 6e 73 65 73 |gWorld =| "senses|
|00010150| 22 20 6f 72 20 67 57 6f | 72 6c 64 20 3d 20 22 44 |" or gWo|rld = "D|
|00010160| 65 73 69 67 6e 22 29 20 | 61 6e 64 20 28 74 68 65 |esign") |and (the|
|00010170| 20 66 72 61 6d 65 6c 61 | 62 65 6c 20 3d 20 50 69 | framela|bel = Pi|
|00010180| 63 74 46 72 61 6d 65 32 | 29 20 74 68 65 6e 0d 20 |ctFrame2|) then. |
|00010190| 20 20 20 73 65 74 20 74 | 68 65 20 63 61 73 74 6e |   set t|he castn|
|000101a0| 75 6d 20 6f 66 20 73 70 | 72 69 74 65 20 63 61 70 |um of sp|rite cap|
|000101b0| 74 69 6f 6e 73 70 72 69 | 74 65 20 3d 20 74 68 65 |tionspri|te = the|
|000101c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|000101d0| 22 63 61 70 74 69 6f 6e | 2d 70 69 63 32 22 0d 20 |"caption|-pic2". |
|000101e0| 20 65 6c 73 65 0d 20 20 | 20 20 73 65 74 20 74 68 | else.  |  set th|
|000101f0| 65 20 63 61 73 74 6e 75 | 6d 20 6f 66 20 73 70 72 |e castnu|m of spr|
|00010200| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|00010210| 65 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |e = the |number o|
|00010220| 66 20 63 61 73 74 20 22 | 63 61 70 74 69 6f 6e 2d |f cast "|caption-|
|00010230| 70 69 63 22 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |pic".  e|nd if.  |
|00010240| 0d 20 20 73 65 74 20 74 | 6d 70 63 61 70 20 3d 20 |.  set t|mpcap = |
|00010250| 47 65 74 43 61 70 74 69 | 6f 6e 28 29 0d 20 20 0d |GetCapti|on().  .|
|00010260| 20 20 69 66 20 28 67 57 | 6f 72 6c 64 20 3d 20 22 |  if (gW|orld = "|
|00010270| 73 65 6e 73 65 73 22 20 | 6f 72 20 67 57 6f 72 6c |senses" |or gWorl|
|00010280| 64 20 3d 20 22 64 65 73 | 69 67 6e 22 29 20 61 6e |d = "des|ign") an|
|00010290| 64 20 74 68 65 20 66 72 | 61 6d 65 6c 61 62 65 6c |d the fr|amelabel|
|000102a0| 20 3d 20 50 69 63 74 46 | 72 61 6d 65 32 20 74 68 | = PictF|rame2 th|
|000102b0| 65 6e 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 74 |en.    s|et the t|
|000102c0| 65 78 74 20 6f 66 20 66 | 69 65 6c 64 20 22 63 61 |ext of f|ield "ca|
|000102d0| 70 74 69 6f 6e 2d 70 69 | 63 32 22 20 3d 20 74 6d |ption-pi|c2" = tm|
|000102e0| 70 63 61 70 20 0d 20 20 | 20 20 73 65 74 20 74 68 |pcap .  |  set th|
|000102f0| 65 20 74 65 78 74 68 65 | 69 67 68 74 20 6f 66 20 |e texthe|ight of |
|00010300| 66 69 65 6c 64 20 22 63 | 61 70 74 69 6f 6e 2d 70 |field "c|aption-p|
|00010310| 69 63 32 22 20 3d 20 31 | 38 20 0d 20 20 65 6c 73 |ic2" = 1|8 .  els|
|00010320| 65 20 20 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |e  .    |set the |
|00010330| 74 65 78 74 20 6f 66 20 | 66 69 65 6c 64 20 22 63 |text of |field "c|
|00010340| 61 70 74 69 6f 6e 2d 70 | 69 63 22 20 3d 20 74 6d |aption-p|ic" = tm|
|00010350| 70 63 61 70 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |pcap.  e|nd if.  |
|00010360| 0d 20 20 73 65 74 20 74 | 68 65 20 74 65 78 74 68 |.  set t|he texth|
|00010370| 65 69 67 68 74 20 6f 66 | 20 66 69 65 6c 64 20 22 |eight of| field "|
|00010380| 63 61 70 74 69 6f 6e 2d | 70 69 63 22 20 3d 20 31 |caption-|pic" = 1|
|00010390| 38 20 20 2d 2d 20 6c 65 | 61 64 69 6e 67 0d 20 20 |8  -- le|ading.  |
|000103a0| 0d 20 20 69 66 20 67 57 | 6f 72 6c 64 20 3d 20 22 |.  if gW|orld = "|
|000103b0| 53 65 6e 73 65 73 22 20 | 74 68 65 6e 0d 20 20 20 |Senses" |then.   |
|000103c0| 20 73 65 74 20 74 68 65 | 20 74 65 78 74 68 65 69 | set the| texthei|
|000103d0| 67 68 74 20 6f 66 20 66 | 69 65 6c 64 20 22 63 61 |ght of f|ield "ca|
|000103e0| 70 74 69 6f 6e 2d 70 69 | 63 32 22 20 3d 20 32 35 |ption-pi|c2" = 25|
|000103f0| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 0d 20 20 73 |.  end i|f.  .  s|
|00010400| 65 74 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 66 |et the t|ext of f|
|00010410| 69 65 6c 64 20 22 63 75 | 74 74 69 6e 67 22 20 3d |ield "cu|tting" =|
|00010420| 20 22 20 22 0d 20 20 73 | 65 74 20 74 68 65 20 74 | " ".  s|et the t|
|00010430| 65 78 74 20 6f 66 20 66 | 69 65 6c 64 20 22 74 69 |ext of f|ield "ti|
|00010440| 74 6c 65 22 20 3d 20 22 | 20 22 0d 20 20 0d 20 20 |tle" = "| ".  .  |
|00010450| 2d 2d 20 61 64 6a 75 73 | 74 20 74 68 65 20 68 65 |-- adjus|t the he|
|00010460| 69 67 68 74 20 6f 66 20 | 74 68 65 20 50 69 63 74 |ight of |the Pict|
|00010470| 20 63 61 70 74 69 6f 6e | 2c 20 74 6f 20 63 65 6e | caption|, to cen|
|00010480| 74 65 72 20 69 74 0d 20 | 20 69 66 20 67 57 6f 72 |ter it. | if gWor|
|00010490| 6c 64 20 3d 20 22 50 6f | 77 65 72 22 20 74 68 65 |ld = "Po|wer" the|
|000104a0| 6e 0d 20 20 20 20 73 65 | 74 20 63 65 6e 74 65 72 |n.    se|t center|
|000104b0| 70 6f 69 6e 74 20 3d 20 | 32 36 35 20 20 20 20 20 |point = |265     |
|000104c0| 20 0d 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 | .  else| if gWor|
|000104d0| 6c 64 20 3d 20 22 73 65 | 6e 73 65 73 22 20 74 68 |ld = "se|nses" th|
|000104e0| 65 6e 0d 20 20 20 20 73 | 65 74 20 63 65 6e 74 65 |en.    s|et cente|
|000104f0| 72 70 6f 69 6e 74 20 3d | 20 32 37 35 0d 20 20 65 |rpoint =| 275.  e|
|00010500| 6c 73 65 20 69 66 20 67 | 57 6f 72 6c 64 20 3d 20 |lse if g|World = |
|00010510| 22 64 69 73 63 6f 76 65 | 72 22 20 74 68 65 6e 0d |"discove|r" then.|
|00010520| 20 20 20 20 73 65 74 20 | 63 65 6e 74 65 72 70 6f |    set |centerpo|
|00010530| 69 6e 74 20 3d 20 32 35 | 30 0d 20 20 65 6c 73 65 |int = 25|0.  else|
|00010540| 0d 20 20 20 20 73 65 74 | 20 63 65 6e 74 65 72 70 |.    set| centerp|
|00010550| 6f 69 6e 74 20 3d 20 33 | 30 30 0d 20 20 65 6e 64 |oint = 3|00.  end|
|00010560| 20 69 66 0d 20 20 0d 20 | 20 69 66 20 67 57 6f 72 | if.  . | if gWor|
|00010570| 6c 64 20 3c 3e 20 22 53 | 65 6e 73 65 73 22 20 61 |ld <> "S|enses" a|
|00010580| 6e 64 20 67 57 6f 72 6c | 64 20 3c 3e 20 22 42 6f |nd gWorl|d <> "Bo|
|00010590| 64 79 22 20 74 68 65 6e | 0d 20 20 20 20 73 65 74 |dy" then|.    set|
|000105a0| 20 63 61 70 68 20 3d 20 | 74 68 65 20 68 65 69 67 | caph = |the heig|
|000105b0| 68 74 20 6f 66 20 63 61 | 73 74 20 22 63 61 70 74 |ht of ca|st "capt|
|000105c0| 69 6f 6e 2d 70 69 63 22 | 0d 20 20 20 20 69 66 20 |ion-pic"|.    if |
|000105d0| 67 57 6f 72 6c 64 20 3d | 20 22 44 65 73 69 67 6e |gWorld =| "Design|
|000105e0| 22 20 74 68 65 6e 20 0d | 20 20 20 20 20 20 69 66 |" then .|      if|
|000105f0| 20 74 68 65 20 66 72 61 | 6d 65 6c 61 62 65 6c 20 | the fra|melabel |
|00010600| 3d 20 22 70 69 63 74 32 | 22 20 74 68 65 6e 0d 20 |= "pict2|" then. |
|00010610| 20 20 20 20 20 20 20 73 | 65 74 20 63 61 70 68 20 |       s|et caph |
|00010620| 3d 20 74 68 65 20 68 65 | 69 67 68 74 20 6f 66 20 |= the he|ight of |
|00010630| 63 61 73 74 20 22 63 61 | 70 74 69 6f 6e 2d 70 69 |cast "ca|ption-pi|
|00010640| 63 32 22 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |c2".    |    set |
|00010650| 74 68 65 20 6c 6f 63 76 | 20 6f 66 20 73 70 72 69 |the locv| of spri|
|00010660| 74 65 20 63 61 70 74 69 | 6f 6e 73 70 72 69 74 65 |te capti|onsprite|
|00010670| 20 3d 20 63 65 6e 74 65 | 72 70 6f 69 6e 74 20 2d | = cente|rpoint -|
|00010680| 20 28 63 61 70 68 2f 32 | 29 0d 20 20 20 20 20 20 | (caph/2|).      |
|00010690| 65 6e 64 20 69 66 0d 20 | 20 20 20 65 6c 73 65 0d |end if. |   else.|
|000106a0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|000106b0| 63 76 20 6f 66 20 73 70 | 72 69 74 65 20 63 61 70 |cv of sp|rite cap|
|000106c0| 74 69 6f 6e 73 70 72 69 | 74 65 20 3d 20 63 65 6e |tionspri|te = cen|
|000106d0| 74 65 72 70 6f 69 6e 74 | 20 2d 20 28 63 61 70 68 |terpoint| - (caph|
|000106e0| 2f 32 29 0d 20 20 20 20 | 65 6e 64 20 69 66 20 20 |/2).    |end if  |
|000106f0| 0d 20 20 20 20 0d 20 20 | 20 20 0d 20 20 65 6c 73 |.    .  |  .  els|
|00010700| 65 20 69 66 20 67 57 6f | 72 6c 64 20 3d 20 22 42 |e if gWo|rld = "B|
|00010710| 6f 64 79 22 20 74 68 65 | 6e 0d 20 20 20 20 73 65 |ody" the|n.    se|
|00010720| 74 20 74 68 65 20 6c 6f | 63 76 20 6f 66 20 73 70 |t the lo|cv of sp|
|00010730| 72 69 74 65 20 63 61 70 | 74 69 6f 6e 73 70 72 69 |rite cap|tionspri|
|00010740| 74 65 20 3d 20 31 31 32 | 0d 20 20 65 6e 64 20 69 |te = 112|.  end i|
|00010750| 66 0d 20 20 0d 20 20 2d | 2d 20 69 66 20 69 74 20 |f.  .  -|- if it |
|00010760| 65 78 69 73 74 73 20 74 | 68 65 6e 20 70 75 74 20 |exists t|hen put |
|00010770| 69 74 20 6f 6e 20 74 68 | 65 20 73 63 72 65 65 6e |it on th|e screen|
|00010780| 2c 20 67 65 74 74 69 6e | 67 20 72 69 64 20 6f 66 |, gettin|g rid of|
|00010790| 20 74 68 65 20 63 75 74 | 74 69 6e 67 20 62 6f 78 | the cut|ting box|
|000107a0| 0d 20 20 0d 20 20 69 66 | 20 70 69 63 63 61 73 74 |.  .  if| piccast|
|000107b0| 20 3e 20 30 20 74 68 65 | 6e 20 20 20 20 0d 20 20 | > 0 the|n    .  |
|000107c0| 20 20 73 65 74 20 74 68 | 65 20 73 74 72 65 74 63 |  set th|e stretc|
|000107d0| 68 20 6f 66 20 73 70 72 | 69 74 65 20 70 69 63 73 |h of spr|ite pics|
|000107e0| 70 72 69 74 65 20 3d 20 | 30 0d 20 20 20 20 73 65 |prite = |0.    se|
|000107f0| 74 20 74 68 65 20 63 61 | 73 74 6e 75 6d 20 6f 66 |t the ca|stnum of|
|00010800| 20 73 70 72 69 74 65 20 | 70 69 63 73 70 72 69 74 | sprite |picsprit|
|00010810| 65 20 3d 20 70 69 63 63 | 61 73 74 0d 20 20 20 20 |e = picc|ast.    |
|00010820| 73 65 74 20 77 20 3d 20 | 31 2e 30 20 2a 20 28 74 |set w = |1.0 * (t|
|00010830| 68 65 20 77 69 64 74 68 | 20 6f 66 20 63 61 73 74 |he width| of cast|
|00010840| 20 70 69 63 63 61 73 74 | 29 20 2f 20 32 0d 20 20 | piccast|) / 2.  |
|00010850| 20 20 73 65 74 20 68 20 | 3d 20 31 2e 30 20 2a 20 |  set h |= 1.0 * |
|00010860| 28 74 68 65 20 68 65 69 | 67 68 74 20 6f 66 20 63 |(the hei|ght of c|
|00010870| 61 73 74 20 70 69 63 63 | 61 73 74 29 20 2f 20 32 |ast picc|ast) / 2|
|00010880| 0d 20 20 20 20 0d 20 20 | 20 20 69 66 20 67 57 6f |.    .  |  if gWo|
|00010890| 72 6c 64 20 3d 20 22 64 | 65 73 69 67 6e 22 20 74 |rld = "d|esign" t|
|000108a0| 68 65 6e 0d 20 20 20 20 | 20 20 69 66 20 74 68 65 |hen.    |  if the|
|000108b0| 20 77 69 64 74 68 20 6f | 66 20 63 61 73 74 20 70 | width o|f cast p|
|000108c0| 69 63 63 61 73 74 20 3e | 20 74 68 65 20 68 65 69 |iccast >| the hei|
|000108d0| 67 68 74 20 6f 66 20 63 | 61 73 74 20 70 69 63 63 |ght of c|ast picc|
|000108e0| 61 73 74 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |ast then|.       |
|000108f0| 20 2d 2d 20 77 69 64 65 | 20 70 69 63 74 73 20 20 | -- wide| picts  |
|00010900| 32 35 36 2c 31 34 36 0d | 20 20 20 20 20 20 20 20 |256,146.|        |
|00010910| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|00010920| 73 70 72 69 74 65 20 70 | 69 63 73 70 72 69 74 65 |sprite p|icsprite|
|00010930| 20 3d 20 39 38 20 2b 20 | 77 0d 20 20 20 20 20 20 | = 98 + |w.      |
|00010940| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|00010950| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|00010960| 74 65 20 3d 20 31 33 31 | 20 2b 20 68 0d 20 20 20 |te = 131| + h.   |
|00010970| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |     set| the loc|
|00010980| 68 20 6f 66 20 73 70 72 | 69 74 65 20 63 61 70 74 |h of spr|ite capt|
|00010990| 69 6f 6e 73 70 72 69 74 | 65 20 3d 20 34 39 33 0d |ionsprit|e = 493.|
|000109a0| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |      el|se.     |
|000109b0| 20 20 20 2d 2d 20 74 61 | 6c 6c 20 70 69 63 73 20 |   -- ta|ll pics |
|000109c0| 20 32 35 36 2c 37 32 0d | 20 20 20 20 20 20 20 20 | 256,72.|        |
|000109d0| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|000109e0| 73 70 72 69 74 65 20 70 | 69 63 73 70 72 69 74 65 |sprite p|icsprite|
|000109f0| 20 3d 20 32 37 35 20 2b | 20 77 0d 20 20 20 20 20 | = 275 +| w.     |
|00010a00| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 76 20 |   set t|he locv |
|00010a10| 6f 66 20 73 70 72 69 74 | 65 20 70 69 63 73 70 72 |of sprit|e picspr|
|00010a20| 69 74 65 20 3d 20 34 38 | 30 2d 68 0d 20 20 20 20 |ite = 48|0-h.    |
|00010a30| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 68 |    set |the loch|
|00010a40| 20 6f 66 20 73 70 72 69 | 74 65 20 63 61 70 74 69 | of spri|te capti|
|00010a50| 6f 6e 73 70 72 69 74 65 | 20 3d 20 31 33 38 0d 20 |onsprite| = 138. |
|00010a60| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00010a70| 65 6c 73 65 20 69 66 20 | 67 57 6f 72 6c 64 20 3d |else if |gWorld =|
|00010a80| 20 22 70 6f 77 65 72 22 | 20 74 68 65 6e 0d 20 20 | "power"| then.  |
|00010a90| 20 20 20 20 0d 20 20 20 | 20 20 20 73 65 74 20 74 |    .   |   set t|
|00010aa0| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00010ab0| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 20 |e captio|nsprite |
|00010ac0| 3d 20 63 61 70 74 69 6f | 6e 6c 6f 63 68 0d 20 20 |= captio|nloch.  |
|00010ad0| 20 20 20 20 69 66 20 74 | 68 65 20 77 69 64 74 68 |    if t|he width|
|00010ae0| 20 6f 66 20 63 61 73 74 | 20 70 69 63 63 61 73 74 | of cast| piccast|
|00010af0| 20 3e 20 74 68 65 20 68 | 65 69 67 68 74 20 6f 66 | > the h|eight of|
|00010b00| 20 63 61 73 74 20 70 69 | 63 63 61 73 74 20 74 68 | cast pi|ccast th|
|00010b10| 65 6e 0d 20 20 20 20 20 | 20 20 20 2d 2d 20 77 69 |en.     |   -- wi|
|00010b20| 64 65 20 70 69 63 74 73 | 20 20 32 35 36 2c 31 34 |de picts|  256,14|
|00010b30| 36 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 |6.      |  set th|
|00010b40| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00010b50| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 36 34 30 | picspri|te = 640|
|00010b60| 20 2d 20 77 0d 20 20 20 | 20 20 20 20 20 73 65 74 | - w.   |     set|
|00010b70| 20 74 68 65 20 6c 6f 63 | 76 20 6f 66 20 73 70 72 | the loc|v of spr|
|00010b80| 69 74 65 20 70 69 63 73 | 70 72 69 74 65 20 3d 20 |ite pics|prite = |
|00010b90| 31 34 36 20 2b 20 68 0d | 20 20 20 20 20 20 65 6c |146 + h.|      el|
|00010ba0| 73 65 0d 20 20 20 20 20 | 20 20 20 2d 2d 20 74 61 |se.     |   -- ta|
|00010bb0| 6c 6c 20 70 69 63 73 20 | 20 32 35 36 2c 37 32 0d |ll pics | 256,72.|
|00010bc0| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00010bd0| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 70 |loch of |sprite p|
|00010be0| 69 63 73 70 72 69 74 65 | 20 3d 20 32 35 36 20 2b |icsprite| = 256 +|
|00010bf0| 20 77 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 | w.     |   set t|
|00010c00| 68 65 20 6c 6f 63 76 20 | 6f 66 20 73 70 72 69 74 |he locv |of sprit|
|00010c10| 65 20 70 69 63 73 70 72 | 69 74 65 20 3d 20 37 32 |e picspr|ite = 72|
|00010c20| 20 2b 20 68 0d 20 20 20 | 20 20 20 65 6e 64 20 69 | + h.   |   end i|
|00010c30| 66 0d 20 20 20 20 65 6c | 73 65 20 69 66 20 67 57 |f.    el|se if gW|
|00010c40| 6f 72 6c 64 20 3d 20 22 | 64 69 73 63 6f 76 65 72 |orld = "|discover|
|00010c50| 22 20 74 68 65 6e 0d 20 | 20 20 20 20 20 0d 20 20 |" then. |     .  |
|00010c60| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 68 |    set |the loch|
|00010c70| 20 6f 66 20 73 70 72 69 | 74 65 20 63 61 70 74 69 | of spri|te capti|
|00010c80| 6f 6e 73 70 72 69 74 65 | 20 3d 20 63 61 70 74 69 |onsprite| = capti|
|00010c90| 6f 6e 6c 6f 63 68 0d 20 | 20 20 20 20 20 69 66 20 |onloch. |     if |
|00010ca0| 74 68 65 20 77 69 64 74 | 68 20 6f 66 20 63 61 73 |the widt|h of cas|
|00010cb0| 74 20 70 69 63 63 61 73 | 74 20 3e 20 74 68 65 20 |t piccas|t > the |
|00010cc0| 68 65 69 67 68 74 20 6f | 66 20 63 61 73 74 20 70 |height o|f cast p|
|00010cd0| 69 63 63 61 73 74 20 74 | 68 65 6e 0d 20 20 20 20 |iccast t|hen.    |
|00010ce0| 20 20 20 20 2d 2d 20 77 | 69 64 65 20 70 69 63 74 |    -- w|ide pict|
|00010cf0| 73 20 20 32 35 36 2c 31 | 34 36 0d 20 20 20 20 20 |s  256,1|46.     |
|00010d00| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |   set t|he loch |
|00010d10| 6f 66 20 73 70 72 69 74 | 65 20 70 69 63 73 70 72 |of sprit|e picspr|
|00010d20| 69 74 65 20 3d 20 32 35 | 30 20 2b 20 77 0d 20 20 |ite = 25|0 + w.  |
|00010d30| 20 20 20 20 20 20 2d 2d | 20 73 65 74 20 74 68 65 |      --| set the|
|00010d40| 20 6c 6f 63 76 20 6f 66 | 20 73 70 72 69 74 65 20 | locv of| sprite |
|00010d50| 70 69 63 73 70 72 69 74 | 65 20 3d 20 31 34 36 20 |picsprit|e = 146 |
|00010d60| 2b 20 68 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |+ h.    |    set |
|00010d70| 74 68 65 20 6c 6f 63 76 | 20 6f 66 20 73 70 72 69 |the locv| of spri|
|00010d80| 74 65 20 70 69 63 73 70 | 72 69 74 65 20 3d 20 34 |te picsp|rite = 4|
|00010d90| 32 31 20 2d 20 68 0d 20 | 20 20 20 20 20 65 6c 73 |21 - h. |     els|
|00010da0| 65 0d 20 20 20 20 20 20 | 20 20 2d 2d 20 74 61 6c |e.      |  -- tal|
|00010db0| 6c 20 70 69 63 73 20 20 | 32 35 36 2c 37 32 0d 20 |l pics  |256,72. |
|00010dc0| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |       s|et the l|
|00010dd0| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 70 69 |och of s|prite pi|
|00010de0| 63 73 70 72 69 74 65 20 | 3d 20 32 35 30 20 2b 20 |csprite |= 250 + |
|00010df0| 77 0d 20 20 20 20 20 20 | 20 20 2d 2d 20 20 73 65 |w.      |  --  se|
|00010e00| 74 20 74 68 65 20 6c 6f | 63 76 20 6f 66 20 73 70 |t the lo|cv of sp|
|00010e10| 72 69 74 65 20 70 69 63 | 73 70 72 69 74 65 20 3d |rite pic|sprite =|
|00010e20| 20 37 32 20 2b 20 68 0d | 20 20 20 20 20 20 20 20 | 72 + h.|        |
|00010e30| 73 65 74 20 74 68 65 20 | 6c 6f 63 76 20 6f 66 20 |set the |locv of |
|00010e40| 73 70 72 69 74 65 20 70 | 69 63 73 70 72 69 74 65 |sprite p|icsprite|
|00010e50| 20 3d 20 34 32 31 20 2d | 20 68 0d 20 20 20 20 20 | = 421 -| h.     |
|00010e60| 20 65 6e 64 20 69 66 0d | 20 20 20 20 65 6c 73 65 | end if.|    else|
|00010e70| 20 69 66 20 67 57 6f 72 | 6c 64 20 3d 20 22 73 65 | if gWor|ld = "se|
|00010e80| 6e 73 65 73 22 20 74 68 | 65 6e 0d 20 20 20 20 20 |nses" th|en.     |
|00010e90| 20 0d 20 20 20 20 20 20 | 69 66 20 74 68 65 20 77 | .      |if the w|
|00010ea0| 69 64 74 68 20 6f 66 20 | 63 61 73 74 20 70 69 63 |idth of |cast pic|
|00010eb0| 63 61 73 74 20 3e 20 74 | 68 65 20 68 65 69 67 68 |cast > t|he heigh|
|00010ec0| 74 20 6f 66 20 63 61 73 | 74 20 70 69 63 63 61 73 |t of cas|t piccas|
|00010ed0| 74 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 2d |t then. |       -|
|00010ee0| 2d 20 77 69 64 65 20 70 | 69 63 74 73 20 20 31 39 |- wide p|icts  19|
|00010ef0| 31 2c 35 36 0d 20 20 20 | 20 20 20 20 20 73 65 74 |1,56.   |     set|
|00010f00| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|00010f10| 69 74 65 20 70 69 63 73 | 70 72 69 74 65 20 3d 20 |ite pics|prite = |
|00010f20| 31 39 31 20 2b 20 77 0d | 20 20 20 20 20 20 20 20 |191 + w.|        |
|00010f30| 73 65 74 20 74 68 65 20 | 6c 6f 63 76 20 6f 66 20 |set the |locv of |
|00010f40| 73 70 72 69 74 65 20 70 | 69 63 73 70 72 69 74 65 |sprite p|icsprite|
|00010f50| 20 3d 20 34 36 20 2b 20 | 68 0d 20 20 20 20 20 20 | = 46 + |h.      |
|00010f60| 65 6c 73 65 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |else.   |     -- |
|00010f70| 74 61 6c 6c 20 70 69 63 | 73 20 20 31 39 31 2c 35 |tall pic|s  191,5|
|00010f80| 36 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |6.      |  .     |
|00010f90| 20 20 20 73 65 74 20 63 | 61 70 68 20 3d 20 74 68 |   set c|aph = th|
|00010fa0| 65 20 68 65 69 67 68 74 | 20 6f 66 20 63 61 73 74 |e height| of cast|
|00010fb0| 20 22 63 61 70 74 69 6f | 6e 2d 70 69 63 22 0d 20 | "captio|n-pic". |
|00010fc0| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |       s|et the l|
|00010fd0| 6f 63 76 20 6f 66 20 73 | 70 72 69 74 65 20 63 61 |ocv of s|prite ca|
|00010fe0| 70 74 69 6f 6e 73 70 72 | 69 74 65 20 3d 20 63 65 |ptionspr|ite = ce|
|00010ff0| 6e 74 65 72 70 6f 69 6e | 74 20 2d 20 28 63 61 70 |nterpoin|t - (cap|
|00011000| 68 2f 32 29 0d 20 20 20 | 20 20 20 20 20 0d 20 20 |h/2).   |     .  |
|00011010| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|00011020| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 70 69 63 |ch of sp|rite pic|
|00011030| 73 70 72 69 74 65 20 3d | 20 31 39 31 20 2b 20 77 |sprite =| 191 + w|
|00011040| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|00011050| 20 6c 6f 63 76 20 6f 66 | 20 73 70 72 69 74 65 20 | locv of| sprite |
|00011060| 70 69 63 73 70 72 69 74 | 65 20 3d 20 34 35 20 2b |picsprit|e = 45 +|
|00011070| 20 68 0d 20 20 20 20 20 | 20 65 6e 64 20 69 66 0d | h.     | end if.|
|00011080| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 73 65 74 |      . |     set|
|00011090| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|000110a0| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|000110b0| 65 20 3d 20 63 61 70 74 | 69 6f 6e 6c 6f 63 68 0d |e = capt|ionloch.|
|000110c0| 20 20 20 20 20 20 0d 20 | 20 20 20 65 6c 73 65 20 |      . |   else |
|000110d0| 69 66 20 67 57 6f 72 6c | 64 20 3d 20 22 6d 69 6e |if gWorl|d = "min|
|000110e0| 64 22 20 74 68 65 6e 0d | 20 20 20 20 20 20 0d 20 |d" then.|      . |
|000110f0| 20 20 20 20 20 69 66 20 | 70 69 63 63 61 73 74 6e |     if |piccastn|
|00011100| 61 6d 65 20 3d 20 22 39 | 36 2d 33 2e 36 22 20 74 |ame = "9|6-3.6" t|
|00011110| 68 65 6e 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 73 |hen.    |    -- s|
|00011120| 70 65 63 69 61 6c 20 63 | 61 73 65 20 66 6f 72 20 |pecial c|ase for |
|00011130| 4a 75 6e 67 0d 20 20 20 | 20 20 20 20 20 73 65 74 |Jung.   |     set|
|00011140| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|00011150| 69 74 65 20 70 69 63 73 | 70 72 69 74 65 20 3d 20 |ite pics|prite = |
|00011160| 34 35 37 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |457.    |    set |
|00011170| 74 68 65 20 6c 6f 63 76 | 20 6f 66 20 73 70 72 69 |the locv| of spri|
|00011180| 74 65 20 70 69 63 73 70 | 72 69 74 65 20 3d 20 32 |te picsp|rite = 2|
|00011190| 38 34 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |84.     |   .    |
|000111a0| 20 20 65 6c 73 65 20 69 | 66 20 70 69 63 63 61 73 |  else i|f piccas|
|000111b0| 74 6e 61 6d 65 20 3d 20 | 22 39 36 2d 33 2e 36 62 |tname = |"96-3.6b|
|000111c0| 22 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 2d |" then. |       -|
|000111d0| 2d 20 61 6e 6f 74 68 65 | 72 20 73 70 65 63 69 61 |- anothe|r specia|
|000111e0| 6c 20 63 61 73 65 20 66 | 6f 72 20 4a 75 6e 67 0d |l case f|or Jung.|
|000111f0| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00011200| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 70 |loch of |sprite p|
|00011210| 69 63 73 70 72 69 74 65 | 20 3d 20 34 35 31 0d 20 |icsprite| = 451. |
|00011220| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |       s|et the l|
|00011230| 6f 63 76 20 6f 66 20 73 | 70 72 69 74 65 20 70 69 |ocv of s|prite pi|
|00011240| 63 73 70 72 69 74 65 20 | 3d 20 32 38 32 0d 20 20 |csprite |= 282.  |
|00011250| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 65 6c 73 |      . |     els|
|00011260| 65 20 69 66 20 28 74 68 | 65 20 77 69 64 74 68 20 |e if (th|e width |
|00011270| 6f 66 20 63 61 73 74 20 | 70 69 63 63 61 73 74 29 |of cast |piccast)|
|00011280| 20 3e 20 28 74 68 65 20 | 68 65 69 67 68 74 20 6f | > (the |height o|
|00011290| 66 20 63 61 73 74 20 70 | 69 63 63 61 73 74 29 20 |f cast p|iccast) |
|000112a0| 6f 72 20 c2 0d 20 20 20 | 20 20 20 20 20 20 28 74 |or ..   |      (t|
|000112b0| 68 65 20 77 69 64 74 68 | 20 6f 66 20 63 61 73 74 |he width| of cast|
|000112c0| 20 70 69 63 63 61 73 74 | 29 20 3d 20 28 74 68 65 | piccast|) = (the|
|000112d0| 20 68 65 69 67 68 74 20 | 6f 66 20 63 61 73 74 20 | height |of cast |
|000112e0| 70 69 63 63 61 73 74 29 | 20 74 68 65 6e 0d 20 20 |piccast)| then.  |
|000112f0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 2d |      . |       -|
|00011300| 2d 20 77 69 64 65 20 70 | 69 63 74 73 20 20 31 39 |- wide p|icts  19|
|00011310| 31 2c 35 36 0d 20 20 20 | 20 20 20 20 20 73 65 74 |1,56.   |     set|
|00011320| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|00011330| 69 74 65 20 70 69 63 73 | 70 72 69 74 65 20 3d 20 |ite pics|prite = |
|00011340| 32 35 36 20 2b 20 77 0d | 20 20 20 20 20 20 20 20 |256 + w.|        |
|00011350| 73 65 74 20 74 68 65 20 | 6c 6f 63 76 20 6f 66 20 |set the |locv of |
|00011360| 73 70 72 69 74 65 20 70 | 69 63 73 70 72 69 74 65 |sprite p|icsprite|
|00011370| 20 3d 20 39 36 20 2b 20 | 68 0d 20 20 20 20 20 20 | = 96 + |h.      |
|00011380| 65 6c 73 65 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |else.   |     -- |
|00011390| 74 61 6c 6c 20 70 69 63 | 73 20 20 31 39 31 2c 35 |tall pic|s  191,5|
|000113a0| 36 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |6.      |  .     |
|000113b0| 20 20 20 73 65 74 20 63 | 61 70 68 20 3d 20 74 68 |   set c|aph = th|
|000113c0| 65 20 68 65 69 67 68 74 | 20 6f 66 20 63 61 73 74 |e height| of cast|
|000113d0| 20 22 63 61 70 74 69 6f | 6e 2d 70 69 63 22 0d 20 | "captio|n-pic". |
|000113e0| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |       s|et the l|
|000113f0| 6f 63 76 20 6f 66 20 73 | 70 72 69 74 65 20 63 61 |ocv of s|prite ca|
|00011400| 70 74 69 6f 6e 73 70 72 | 69 74 65 20 3d 20 63 65 |ptionspr|ite = ce|
|00011410| 6e 74 65 72 70 6f 69 6e | 74 20 2d 20 28 63 61 70 |nterpoin|t - (cap|
|00011420| 68 2f 32 29 0d 20 20 20 | 20 20 20 20 20 0d 20 20 |h/2).   |     .  |
|00011430| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|00011440| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 70 69 63 |ch of sp|rite pic|
|00011450| 73 70 72 69 74 65 20 3d | 20 33 34 38 20 2b 20 77 |sprite =| 348 + w|
|00011460| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|00011470| 20 6c 6f 63 76 20 6f 66 | 20 73 70 72 69 74 65 20 | locv of| sprite |
|00011480| 70 69 63 73 70 72 69 74 | 65 20 3d 20 39 36 20 2b |picsprit|e = 96 +|
|00011490| 20 68 0d 20 20 20 20 20 | 20 65 6e 64 20 69 66 0d | h.     | end if.|
|000114a0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 73 65 74 |      . |     set|
|000114b0| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|000114c0| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|000114d0| 65 20 3d 20 63 61 70 74 | 69 6f 6e 6c 6f 63 68 0d |e = capt|ionloch.|
|000114e0| 20 20 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 |    else| if gWor|
|000114f0| 6c 64 20 3d 20 22 62 6f | 64 79 22 20 74 68 65 6e |ld = "bo|dy" then|
|00011500| 0d 20 20 20 20 20 20 0d | 20 20 20 20 20 20 69 66 |.      .|      if|
|00011510| 20 74 68 65 20 77 69 64 | 74 68 20 6f 66 20 63 61 | the wid|th of ca|
|00011520| 73 74 20 70 69 63 63 61 | 73 74 20 3e 20 74 68 65 |st picca|st > the|
|00011530| 20 68 65 69 67 68 74 20 | 6f 66 20 63 61 73 74 20 | height |of cast |
|00011540| 70 69 63 63 61 73 74 20 | 74 68 65 6e 0d 20 20 20 |piccast |then.   |
|00011550| 20 20 20 20 20 2d 2d 20 | 77 69 64 65 20 70 69 63 |     -- |wide pic|
|00011560| 74 73 20 20 31 39 31 2c | 35 36 0d 20 20 20 20 20 |ts  191,|56.     |
|00011570| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |   set t|he loch |
|00011580| 6f 66 20 73 70 72 69 74 | 65 20 70 69 63 73 70 72 |of sprit|e picspr|
|00011590| 69 74 65 20 3d 20 32 39 | 38 20 2b 20 77 0d 20 20 |ite = 29|8 + w.  |
|000115a0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|000115b0| 63 76 20 6f 66 20 73 70 | 72 69 74 65 20 70 69 63 |cv of sp|rite pic|
|000115c0| 73 70 72 69 74 65 20 3d | 20 36 38 20 2b 20 68 0d |sprite =| 68 + h.|
|000115d0| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |      el|se.     |
|000115e0| 20 20 20 2d 2d 20 74 61 | 6c 6c 20 70 69 63 73 20 |   -- ta|ll pics |
|000115f0| 20 31 39 31 2c 35 36 0d | 20 20 20 20 20 20 20 20 | 191,56.|        |
|00011600| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|00011610| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|00011620| 70 69 63 73 70 72 69 74 | 65 20 3d 20 32 39 36 20 |picsprit|e = 296 |
|00011630| 2b 20 77 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |+ w.    |    set |
|00011640| 74 68 65 20 6c 6f 63 76 | 20 6f 66 20 73 70 72 69 |the locv| of spri|
|00011650| 74 65 20 70 69 63 73 70 | 72 69 74 65 20 3d 20 36 |te picsp|rite = 6|
|00011660| 38 20 2b 20 68 0d 20 20 | 20 20 20 20 65 6e 64 20 |8 + h.  |    end |
|00011670| 69 66 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |if.     | .      |
|00011680| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|00011690| 73 70 72 69 74 65 20 63 | 61 70 74 69 6f 6e 73 70 |sprite c|aptionsp|
|000116a0| 72 69 74 65 20 3d 20 63 | 61 70 74 69 6f 6e 6c 6f |rite = c|aptionlo|
|000116b0| 63 68 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |ch.    e|nd if.  |
|000116c0| 65 6c 73 65 0d 20 20 20 | 20 73 65 74 20 74 68 65 |else.   | set the|
|000116d0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|000116e0| 63 61 70 74 69 6f 6e 73 | 70 72 69 74 65 20 3d 20 |captions|prite = |
|000116f0| 63 61 70 74 69 6f 6e 6c | 6f 63 68 0d 20 20 65 6e |captionl|och.  en|
|00011700| 64 20 69 66 0d 20 20 0d | 20 20 75 70 64 61 74 65 |d if.  .|  update|
|00011710| 73 74 61 67 65 0d 20 20 | 0d 20 20 69 66 20 70 69 |stage.  |.  if pi|
|00011720| 63 63 61 73 74 6e 61 6d | 65 20 3d 20 22 31 33 36 |ccastnam|e = "136|
|00011730| 2d 32 2e 32 22 20 74 68 | 65 6e 20 0d 20 20 20 20 |-2.2" th|en .    |
|00011740| 67 6f 20 74 6f 20 66 72 | 61 6d 65 20 22 31 33 36 |go to fr|ame "136|
|00011750| 2d 32 2e 32 22 0d 20 20 | 20 20 73 65 74 20 74 68 |-2.2".  |  set th|
|00011760| 65 20 76 69 73 69 62 6c | 65 20 6f 66 20 73 70 72 |e visibl|e of spr|
|00011770| 69 74 65 20 32 30 20 3d | 20 31 20 20 20 20 0d 20 |ite 20 =| 1    . |
|00011780| 20 65 6c 73 65 20 69 66 | 20 70 69 63 63 61 73 74 | else if| piccast|
|00011790| 6e 61 6d 65 20 3d 20 22 | 31 33 36 2d 32 2e 33 22 |name = "|136-2.3"|
|000117a0| 20 74 68 65 6e 20 0d 20 | 20 20 20 67 6f 20 74 6f | then . |   go to|
|000117b0| 20 66 72 61 6d 65 20 22 | 31 33 36 2d 32 2e 33 22 | frame "|136-2.3"|
|000117c0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 76 69 73 |.    set| the vis|
|000117d0| 69 62 6c 65 20 6f 66 20 | 73 70 72 69 74 65 20 32 |ible of |sprite 2|
|000117e0| 30 20 3d 20 31 20 20 20 | 20 0d 20 20 65 6c 73 65 |0 = 1   | .  else|
|000117f0| 20 69 66 20 70 69 63 63 | 61 73 74 6e 61 6d 65 20 | if picc|astname |
|00011800| 3d 20 22 39 36 2d 33 2e | 36 22 20 74 68 65 6e 20 |= "96-3.|6" then |
|00011810| 20 20 0d 20 20 20 20 67 | 6f 20 74 6f 20 66 72 61 |  .    g|o to fra|
|00011820| 6d 65 20 22 6a 75 6e 67 | 22 0d 20 20 65 6e 64 20 |me "jung|".  end |
|00011830| 69 66 0d 20 20 0d 65 6e | 64 0d 2d 2d 2d 2d 2d 2d |if.  .en|d.------|
|00011840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00011850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00011860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00011870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00011880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00011890| 2d 2d 2d 2d 2d 2d 2d 0d | 6f 6e 20 47 6f 53 6f 75 |-------.|on GoSou|
|000118a0| 6e 64 41 72 74 69 63 6c | 65 0d 20 20 67 6c 6f 62 |ndArticl|e.  glob|
|000118b0| 61 6c 20 67 43 68 61 70 | 74 65 72 73 2c 20 67 54 |al gChap|ters, gT|
|000118c0| 69 74 6c 65 73 2c 20 67 | 41 72 74 69 63 6c 65 73 |itles, g|Articles|
|000118d0| 2c 20 67 44 61 74 65 73 | 2c 20 67 43 61 70 74 69 |, gDates|, gCapti|
|000118e0| 6f 6e 73 2c 20 67 43 75 | 72 43 75 74 74 69 6e 67 |ons, gCu|rCutting|
|000118f0| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 43 75 72 43 68 |.  globa|l gCurCh|
|00011900| 61 70 2c 20 67 43 75 72 | 41 72 74 69 63 6c 65 2c |ap, gCur|Article,|
|00011910| 20 67 4e 61 6d 65 2c 20 | 6d 79 74 65 78 74 2c 20 | gName, |mytext, |
|00011920| 67 41 72 74 69 63 6c 65 | 50 61 67 65 2c 20 67 46 |gArticle|Page, gF|
|00011930| 75 6c 6c 43 75 74 74 69 | 6e 67 73 0d 20 20 67 6c |ullCutti|ngs.  gl|
|00011940| 6f 62 61 6c 20 67 46 6f | 72 6d 61 74 74 65 64 54 |obal gFo|rmattedT|
|00011950| 65 78 74 2c 20 67 54 65 | 78 74 50 61 67 65 73 2c |ext, gTe|xtPages,|
|00011960| 20 67 4d 61 78 4c 69 6e | 65 73 2c 20 67 43 75 72 | gMaxLin|es, gCur|
|00011970| 49 6e 64 65 78 2c 20 67 | 57 6f 72 6c 64 2c 20 67 |Index, g|World, g|
|00011980| 53 65 65 6e 4d 61 70 73 | 0d 20 20 67 6c 6f 62 61 |SeenMaps|.  globa|
|00011990| 6c 20 67 50 61 70 65 72 | 4c 6f 63 68 2c 20 67 4d |l gPaper|Loch, gM|
|000119a0| 61 6b 65 72 4e 61 6d 65 | 2c 20 67 48 65 61 64 6c |akerName|, gHeadl|
|000119b0| 6f 63 48 2c 20 67 4e 61 | 6d 65 4c 6f 63 68 2c 20 |ocH, gNa|meLoch, |
|000119c0| 67 4e 61 6d 65 4c 6f 63 | 76 0d 20 20 67 6c 6f 62 |gNameLoc|v.  glob|
|000119d0| 61 6c 20 67 4d 61 6b 65 | 72 4e 75 6d 2c 20 67 51 |al gMake|rNum, gQ|
|000119e0| 54 70 61 74 68 2c 20 67 | 53 6f 75 6e 64 50 61 74 |Tpath, g|SoundPat|
|000119f0| 68 2c 20 67 4e 75 67 67 | 65 74 54 69 6d 65 2c 20 |h, gNugg|etTime, |
|00011a00| 67 4e 75 67 67 65 74 44 | 65 6c 61 79 2c 20 67 4e |gNuggetD|elay, gN|
|00011a10| 61 6d 65 43 61 73 74 6e | 75 6d 0d 20 20 0d 20 20 |ameCastn|um.  .  |
|00011a20| 73 65 74 20 70 69 63 73 | 70 72 69 74 65 20 3d 20 |set pics|prite = |
|00011a30| 39 20 20 2d 2d 20 74 68 | 65 20 73 70 72 69 74 65 |9  -- th|e sprite|
|00011a40| 20 74 68 65 20 70 69 63 | 74 20 61 70 70 65 61 72 | the pic|t appear|
|00011a50| 73 20 6f 6e 0d 20 20 73 | 65 74 20 63 75 74 74 69 |s on.  s|et cutti|
|00011a60| 6e 67 73 70 72 69 74 65 | 20 3d 20 36 0d 20 20 73 |ngsprite| = 6.  s|
|00011a70| 65 74 20 74 69 74 6c 65 | 73 70 72 69 74 65 20 3d |et title|sprite =|
|00011a80| 20 38 0d 20 20 73 65 74 | 20 70 61 70 65 72 73 70 | 8.  set| papersp|
|00011a90| 72 69 74 65 20 3d 20 31 | 31 0d 20 20 73 65 74 20 |rite = 1|1.  set |
|00011aa0| 64 61 74 65 73 70 72 69 | 74 65 20 3d 20 31 32 0d |datespri|te = 12.|
|00011ab0| 20 20 73 65 74 20 63 61 | 70 74 69 6f 6e 73 70 72 |  set ca|ptionspr|
|00011ac0| 69 74 65 20 3d 20 37 0d | 20 20 73 65 74 20 66 6f |ite = 7.|  set fo|
|00011ad0| 72 77 61 72 64 62 75 74 | 74 6f 6e 20 3d 20 32 30 |rwardbut|ton = 20|
|00011ae0| 0d 20 20 73 65 74 20 62 | 61 63 6b 62 75 74 74 6f |.  set b|ackbutto|
|00011af0| 6e 20 3d 20 31 39 0d 20 | 20 73 65 74 20 68 65 61 |n = 19. | set hea|
|00011b00| 64 73 70 72 69 74 65 20 | 3d 20 31 30 20 20 0d 20 |dsprite |= 10  . |
|00011b10| 20 73 65 74 20 6e 61 6d | 65 73 70 72 69 74 65 20 | set nam|esprite |
|00011b20| 3d 20 34 0d 20 20 73 65 | 74 20 68 65 61 64 6c 6f |= 4.  se|t headlo|
|00011b30| 63 68 20 3d 20 67 48 65 | 61 64 6c 6f 63 68 20 20 |ch = gHe|adloch  |
|00011b40| 2d 2d 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 74 |-- the l|och of t|
|00011b50| 68 65 20 68 65 61 64 73 | 68 6f 74 20 73 70 72 69 |he heads|hot spri|
|00011b60| 74 65 0d 20 20 0d 20 20 | 0d 20 20 2d 2d 20 53 4f |te.  .  |.  -- SO|
|00011b70| 55 4e 44 0d 20 20 73 65 | 74 20 74 68 65 20 6c 6f |UND.  se|t the lo|
|00011b80| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 68 65 61 |ch of sp|rite hea|
|00011b90| 64 73 70 72 69 74 65 20 | 3d 20 68 65 61 64 6c 6f |dsprite |= headlo|
|00011ba0| 63 68 0d 20 20 70 75 70 | 70 65 74 73 70 72 69 74 |ch.  pup|petsprit|
|00011bb0| 65 20 66 6f 72 77 61 72 | 64 62 75 74 74 6f 6e 2c |e forwar|dbutton,|
|00011bc0| 30 0d 20 20 70 75 70 70 | 65 74 73 70 72 69 74 65 |0.  pupp|etsprite|
|00011bd0| 20 62 61 63 6b 62 75 74 | 74 6f 6e 2c 30 0d 20 20 | backbut|ton,0.  |
|00011be0| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 70 61 70 |puppetsp|rite pap|
|00011bf0| 65 72 73 70 72 69 74 65 | 2c 30 0d 20 20 73 65 74 |ersprite|,0.  set|
|00011c00| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 66 69 65 | the tex|t of fie|
|00011c10| 6c 64 20 22 63 61 70 74 | 69 6f 6e 2d 71 74 22 20 |ld "capt|ion-qt" |
|00011c20| 3d 20 22 20 22 0d 20 20 | 0d 20 20 75 6e 70 75 70 |= " ".  |.  unpup|
|00011c30| 70 65 74 20 22 34 2c 31 | 30 22 20 20 0d 20 20 0d |pet "4,1|0"  .  .|
|00011c40| 20 20 2d 2d 20 67 65 74 | 20 74 68 65 20 73 6f 75 |  -- get| the sou|
|00011c50| 6e 64 20 20 20 20 0d 20 | 20 73 65 74 20 66 6e 61 |nd    . | set fna|
|00011c60| 6d 65 20 3d 20 67 53 6f | 75 6e 64 70 61 74 68 20 |me = gSo|undpath |
|00011c70| 26 20 22 53 22 20 26 20 | 67 4d 61 6b 65 72 4e 75 |& "S" & |gMakerNu|
|00011c80| 6d 20 26 20 22 2e 41 49 | 46 22 0d 20 20 70 75 70 |m & ".AI|F".  pup|
|00011c90| 70 65 74 73 70 72 69 74 | 65 20 31 36 2c 31 0d 20 |petsprit|e 16,1. |
|00011ca0| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|00011cb0| 20 73 70 72 69 74 65 20 | 31 36 20 3d 20 31 30 30 | sprite |16 = 100|
|00011cc0| 30 0d 20 20 73 6f 75 6e | 64 20 70 6c 61 79 46 69 |0.  soun|d playFi|
|00011cd0| 6c 65 20 31 2c 20 66 6e | 61 6d 65 0d 20 20 0d 20 |le 1, fn|ame.  . |
|00011ce0| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 22 51 54 | go to f|rame "QT|
|00011cf0| 22 0d 20 20 0d 20 20 69 | 66 20 67 57 6f 72 6c 64 |".  .  i|f gWorld|
|00011d00| 20 3d 20 22 53 65 6e 73 | 65 73 22 20 6f 72 20 67 | = "Sens|es" or g|
|00011d10| 57 6f 72 6c 64 20 3d 20 | 22 44 65 73 69 67 6e 22 |World = |"Design"|
|00011d20| 20 74 68 65 6e 0d 20 20 | 20 20 73 65 74 20 74 68 | then.  |  set th|
|00011d30| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00011d40| 20 6e 61 6d 65 73 70 72 | 69 74 65 20 3d 20 67 4e | namespr|ite = gN|
|00011d50| 61 6d 65 4c 6f 63 68 0d | 20 20 20 20 73 65 74 20 |ameLoch.|    set |
|00011d60| 74 68 65 20 6c 6f 63 76 | 20 6f 66 20 73 70 72 69 |the locv| of spri|
|00011d70| 74 65 20 6e 61 6d 65 73 | 70 72 69 74 65 20 3d 20 |te names|prite = |
|00011d80| 67 4e 61 6d 65 4c 6f 63 | 76 0d 20 20 65 6e 64 20 |gNameLoc|v.  end |
|00011d90| 69 66 0d 20 20 0d 20 20 | 69 66 20 67 57 6f 72 6c |if.  .  |if gWorl|
|00011da0| 64 20 3d 20 22 53 65 6e | 73 65 73 22 20 20 6f 72 |d = "Sen|ses"  or|
|00011db0| 20 67 57 6f 72 6c 64 20 | 3d 20 22 44 65 73 69 67 | gWorld |= "Desig|
|00011dc0| 6e 22 20 74 68 65 6e 20 | 20 0d 20 20 20 20 70 75 |n" then | .    pu|
|00011dd0| 70 70 65 74 73 70 72 69 | 74 65 20 32 35 2c 31 0d |ppetspri|te 25,1.|
|00011de0| 20 20 20 20 70 75 70 70 | 65 74 73 70 72 69 74 65 |    pupp|etsprite|
|00011df0| 20 32 36 2c 31 0d 20 20 | 20 20 70 75 70 70 65 74 | 26,1.  |  puppet|
|00011e00| 73 70 72 69 74 65 20 32 | 37 2c 31 20 0d 20 20 20 |sprite 2|7,1 .   |
|00011e10| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 32 38 | puppets|prite 28|
|00011e20| 2c 31 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 0d 20 |,1.  end| if.  . |
|00011e30| 20 0d 20 20 0d 20 20 70 | 75 70 70 65 74 73 70 72 | .  .  p|uppetspr|
|00011e40| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|00011e50| 65 2c 31 0d 20 20 73 65 | 74 20 63 61 70 74 69 6f |e,1.  se|t captio|
|00011e60| 6e 6c 6f 63 68 20 3d 20 | 74 68 65 20 6c 6f 63 68 |nloch = |the loch|
|00011e70| 20 6f 66 20 73 70 72 69 | 74 65 20 63 61 70 74 69 | of spri|te capti|
|00011e80| 6f 6e 73 70 72 69 74 65 | 0d 20 20 73 65 74 20 74 |onsprite|.  set t|
|00011e90| 68 65 20 63 61 73 74 6e | 75 6d 20 6f 66 20 73 70 |he castn|um of sp|
|00011ea0| 72 69 74 65 20 63 61 70 | 74 69 6f 6e 73 70 72 69 |rite cap|tionspri|
|00011eb0| 74 65 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |te = the| number |
|00011ec0| 6f 66 20 63 61 73 74 20 | 22 63 61 70 74 69 6f 6e |of cast |"caption|
|00011ed0| 2d 71 74 22 0d 20 20 0d | 20 20 73 65 74 20 74 68 |-qt".  .|  set th|
|00011ee0| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00011ef0| 20 63 61 70 74 69 6f 6e | 73 70 72 69 74 65 20 3d | caption|sprite =|
|00011f00| 20 31 30 30 30 0d 20 20 | 73 65 74 20 74 68 65 20 | 1000.  |set the |
|00011f10| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 70 |loch of |sprite p|
|00011f20| 69 63 73 70 72 69 74 65 | 20 3d 20 31 30 30 30 0d |icsprite| = 1000.|
|00011f30| 20 20 75 70 64 61 74 65 | 73 74 61 67 65 0d 20 20 |  update|stage.  |
|00011f40| 0d 20 20 73 65 74 20 74 | 6d 70 63 61 70 20 3d 20 |.  set t|mpcap = |
|00011f50| 47 65 74 43 61 70 74 69 | 6f 6e 28 29 0d 20 20 73 |GetCapti|on().  s|
|00011f60| 65 74 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 66 |et the t|ext of f|
|00011f70| 69 65 6c 64 20 22 63 61 | 70 74 69 6f 6e 2d 71 74 |ield "ca|ption-qt|
|00011f80| 22 20 3d 20 20 74 6d 70 | 63 61 70 0d 20 20 0d 20 |" =  tmp|cap.  . |
|00011f90| 20 69 66 20 67 57 6f 72 | 6c 64 20 3c 3e 20 22 53 | if gWor|ld <> "S|
|00011fa0| 65 6e 73 65 73 22 20 74 | 68 65 6e 0d 20 20 20 20 |enses" t|hen.    |
|00011fb0| 73 65 74 20 74 68 65 20 | 74 65 78 74 68 65 69 67 |set the |textheig|
|00011fc0| 68 74 20 6f 66 20 66 69 | 65 6c 64 20 22 63 61 70 |ht of fi|eld "cap|
|00011fd0| 74 69 6f 6e 2d 71 74 22 | 20 3d 20 31 38 20 20 2d |tion-qt"| = 18  -|
|00011fe0| 2d 20 6c 65 61 64 69 6e | 67 0d 20 20 65 6c 73 65 |- leadin|g.  else|
|00011ff0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 74 65 78 |.    set| the tex|
|00012000| 74 68 65 69 67 68 74 20 | 6f 66 20 66 69 65 6c 64 |theight |of field|
|00012010| 20 22 63 61 70 74 69 6f | 6e 2d 71 74 22 20 3d 20 | "captio|n-qt" = |
|00012020| 32 35 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 0d 20 |25.  end| if.  . |
|00012030| 20 2d 2d 20 61 64 6a 75 | 73 74 20 74 68 65 20 68 | -- adju|st the h|
|00012040| 65 69 67 68 74 20 6f 66 | 20 74 68 65 20 53 6f 75 |eight of| the Sou|
|00012050| 6e 64 20 63 61 70 74 69 | 6f 6e 2c 20 74 6f 20 63 |nd capti|on, to c|
|00012060| 65 6e 74 65 72 20 69 74 | 0d 20 20 69 66 20 67 57 |enter it|.  if gW|
|00012070| 6f 72 6c 64 20 3d 20 22 | 6d 69 6e 64 22 20 74 68 |orld = "|mind" th|
|00012080| 65 6e 0d 20 20 20 20 73 | 65 74 20 63 65 6e 74 65 |en.    s|et cente|
|00012090| 72 70 6f 69 6e 74 20 3d | 20 32 30 30 0d 20 20 65 |rpoint =| 200.  e|
|000120a0| 6c 73 65 0d 20 20 20 20 | 73 65 74 20 63 65 6e 74 |lse.    |set cent|
|000120b0| 65 72 70 6f 69 6e 74 20 | 3d 20 32 38 30 0d 20 20 |erpoint |= 280.  |
|000120c0| 65 6e 64 20 69 66 0d 20 | 20 73 65 74 20 63 61 70 |end if. | set cap|
|000120d0| 68 20 3d 20 74 68 65 20 | 68 65 69 67 68 74 20 6f |h = the |height o|
|000120e0| 66 20 63 61 73 74 20 22 | 63 61 70 74 69 6f 6e 2d |f cast "|caption-|
|000120f0| 71 74 22 0d 20 20 0d 20 | 20 69 66 20 67 57 6f 72 |qt".  . | if gWor|
|00012100| 6c 64 20 3c 3e 20 22 53 | 65 6e 73 65 73 22 20 74 |ld <> "S|enses" t|
|00012110| 68 65 6e 20 2d 2d 20 69 | 6e 20 64 65 73 69 67 6e |hen -- i|n design|
|00012120| 20 74 68 65 20 63 61 70 | 74 69 6f 6e 20 64 6f 65 | the cap|tion doe|
|00012130| 73 20 6e 6f 74 20 6e 65 | 65 64 20 76 65 72 74 69 |s not ne|ed verti|
|00012140| 63 61 6c 20 63 65 6e 74 | 65 72 69 6e 67 0d 20 20 |cal cent|ering.  |
|00012150| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|00012160| 66 20 73 70 72 69 74 65 | 20 63 61 70 74 69 6f 6e |f sprite| caption|
|00012170| 73 70 72 69 74 65 20 3d | 20 63 65 6e 74 65 72 70 |sprite =| centerp|
|00012180| 6f 69 6e 74 20 2d 20 28 | 63 61 70 68 2f 32 29 0d |oint - (|caph/2).|
|00012190| 20 20 65 6e 64 20 69 66 | 0d 20 20 73 65 74 20 74 |  end if|.  set t|
|000121a0| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|000121b0| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 20 |e captio|nsprite |
|000121c0| 3d 20 63 61 70 74 69 6f | 6e 6c 6f 63 68 0d 20 20 |= captio|nloch.  |
|000121d0| 0d 20 20 0d 65 6e 64 0d | 0d 2d 2d 2d 2d 2d 2d 2d |.  .end.|.-------|
|000121e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000121f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00012200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00012210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00012220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00012230| 2d 2d 2d 2d 2d 2d 0d 6f | 6e 20 47 6f 41 6e 69 6d |------.o|n GoAnim|
|00012240| 41 72 74 69 63 6c 65 0d | 20 20 67 6c 6f 62 61 6c |Article.|  global|
|00012250| 20 67 43 68 61 70 74 65 | 72 73 2c 20 67 54 69 74 | gChapte|rs, gTit|
|00012260| 6c 65 73 2c 20 67 41 72 | 74 69 63 6c 65 73 2c 20 |les, gAr|ticles, |
|00012270| 67 44 61 74 65 73 2c 20 | 67 43 61 70 74 69 6f 6e |gDates, |gCaption|
|00012280| 73 2c 20 67 43 75 72 43 | 75 74 74 69 6e 67 0d 20 |s, gCurC|utting. |
|00012290| 20 67 6c 6f 62 61 6c 20 | 67 43 75 72 43 68 61 70 | global |gCurChap|
|000122a0| 2c 20 67 43 75 72 41 72 | 74 69 63 6c 65 2c 20 67 |, gCurAr|ticle, g|
|000122b0| 4e 61 6d 65 2c 20 6d 79 | 74 65 78 74 2c 20 67 41 |Name, my|text, gA|
|000122c0| 72 74 69 63 6c 65 50 61 | 67 65 2c 20 67 46 75 6c |rticlePa|ge, gFul|
|000122d0| 6c 43 75 74 74 69 6e 67 | 73 0d 20 20 67 6c 6f 62 |lCutting|s.  glob|
|000122e0| 61 6c 20 67 46 6f 72 6d | 61 74 74 65 64 54 65 78 |al gForm|attedTex|
|000122f0| 74 2c 20 67 54 65 78 74 | 50 61 67 65 73 2c 20 67 |t, gText|Pages, g|
|00012300| 4d 61 78 4c 69 6e 65 73 | 2c 20 67 43 75 72 49 6e |MaxLines|, gCurIn|
|00012310| 64 65 78 2c 20 67 57 6f | 72 6c 64 2c 20 67 53 65 |dex, gWo|rld, gSe|
|00012320| 65 6e 4d 61 70 73 0d 20 | 20 67 6c 6f 62 61 6c 20 |enMaps. | global |
|00012330| 67 50 61 70 65 72 4c 6f | 63 68 2c 20 67 4d 61 6b |gPaperLo|ch, gMak|
|00012340| 65 72 4e 61 6d 65 2c 20 | 67 48 65 61 64 6c 6f 63 |erName, |gHeadloc|
|00012350| 48 2c 20 67 4e 61 6d 65 | 4c 6f 63 68 2c 20 67 4e |H, gName|Loch, gN|
|00012360| 61 6d 65 4c 6f 63 76 2c | 20 67 51 54 41 6e 69 6d |ameLocv,| gQTAnim|
|00012370| 70 61 74 68 0d 20 20 67 | 6c 6f 62 61 6c 20 67 4d |path.  g|lobal gM|
|00012380| 61 6b 65 72 4e 75 6d 2c | 20 67 51 54 70 61 74 68 |akerNum,| gQTpath|
|00012390| 2c 20 67 53 6f 75 6e 64 | 50 61 74 68 2c 20 67 4e |, gSound|Path, gN|
|000123a0| 75 67 67 65 74 54 69 6d | 65 2c 20 67 4e 75 67 67 |uggetTim|e, gNugg|
|000123b0| 65 74 44 65 6c 61 79 2c | 20 67 4e 61 6d 65 43 61 |etDelay,| gNameCa|
|000123c0| 73 74 6e 75 6d 0d 20 20 | 0d 20 20 73 65 74 20 70 |stnum.  |.  set p|
|000123d0| 69 63 73 70 72 69 74 65 | 20 3d 20 39 20 20 2d 2d |icsprite| = 9  --|
|000123e0| 20 74 68 65 20 73 70 72 | 69 74 65 20 74 68 65 20 | the spr|ite the |
|000123f0| 70 69 63 74 20 61 70 70 | 65 61 72 73 20 6f 6e 0d |pict app|ears on.|
|00012400| 20 20 73 65 74 20 63 75 | 74 74 69 6e 67 73 70 72 |  set cu|ttingspr|
|00012410| 69 74 65 20 3d 20 36 0d | 20 20 73 65 74 20 74 69 |ite = 6.|  set ti|
|00012420| 74 6c 65 73 70 72 69 74 | 65 20 3d 20 38 0d 20 20 |tlesprit|e = 8.  |
|00012430| 73 65 74 20 70 61 70 65 | 72 73 70 72 69 74 65 20 |set pape|rsprite |
|00012440| 3d 20 31 31 0d 20 20 73 | 65 74 20 64 61 74 65 73 |= 11.  s|et dates|
|00012450| 70 72 69 74 65 20 3d 20 | 31 32 0d 20 20 73 65 74 |prite = |12.  set|
|00012460| 20 63 61 70 74 69 6f 6e | 73 70 72 69 74 65 20 3d | caption|sprite =|
|00012470| 20 37 0d 20 20 73 65 74 | 20 66 6f 72 77 61 72 64 | 7.  set| forward|
|00012480| 62 75 74 74 6f 6e 20 3d | 20 32 30 0d 20 20 73 65 |button =| 20.  se|
|00012490| 74 20 62 61 63 6b 62 75 | 74 74 6f 6e 20 3d 20 31 |t backbu|tton = 1|
|000124a0| 39 0d 20 20 73 65 74 20 | 68 65 61 64 73 70 72 69 |9.  set |headspri|
|000124b0| 74 65 20 3d 20 31 30 20 | 20 0d 20 20 73 65 74 20 |te = 10 | .  set |
|000124c0| 6e 61 6d 65 73 70 72 69 | 74 65 20 3d 20 34 0d 20 |namespri|te = 4. |
|000124d0| 20 73 65 74 20 68 65 61 | 64 6c 6f 63 68 20 3d 20 | set hea|dloch = |
|000124e0| 67 48 65 61 64 6c 6f 63 | 68 20 20 2d 2d 20 74 68 |gHeadloc|h  -- th|
|000124f0| 65 20 6c 6f 63 68 20 6f | 66 20 74 68 65 20 68 65 |e loch o|f the he|
|00012500| 61 64 73 68 6f 74 20 73 | 70 72 69 74 65 0d 20 20 |adshot s|prite.  |
|00012510| 0d 20 20 0d 20 20 69 66 | 20 6e 6f 74 20 6d 61 72 |.  .  if| not mar|
|00012520| 6b 65 72 28 67 4d 61 6b | 65 72 6e 75 6d 20 26 20 |ker(gMak|ernum & |
|00012530| 22 2e 61 6e 69 6d 22 29 | 20 74 68 65 6e 20 65 78 |".anim")| then ex|
|00012540| 69 74 0d 20 20 0d 20 20 | 73 65 74 20 74 68 65 20 |it.  .  |set the |
|00012550| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 68 |loch of |sprite h|
|00012560| 65 61 64 73 70 72 69 74 | 65 20 3d 20 68 65 61 64 |eadsprit|e = head|
|00012570| 6c 6f 63 68 0d 20 20 70 | 75 70 70 65 74 73 70 72 |loch.  p|uppetspr|
|00012580| 69 74 65 20 66 6f 72 77 | 61 72 64 62 75 74 74 6f |ite forw|ardbutto|
|00012590| 6e 2c 30 0d 20 20 70 75 | 70 70 65 74 73 70 72 69 |n,0.  pu|ppetspri|
|000125a0| 74 65 20 62 61 63 6b 62 | 75 74 74 6f 6e 2c 30 0d |te backb|utton,0.|
|000125b0| 20 20 70 75 70 70 65 74 | 73 70 72 69 74 65 20 70 |  puppet|sprite p|
|000125c0| 61 70 65 72 73 70 72 69 | 74 65 2c 30 0d 20 20 73 |aperspri|te,0.  s|
|000125d0| 65 74 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 66 |et the t|ext of f|
|000125e0| 69 65 6c 64 20 22 63 61 | 70 74 69 6f 6e 2d 71 74 |ield "ca|ption-qt|
|000125f0| 22 20 3d 20 22 20 22 0d | 20 20 0d 20 20 75 6e 70 |" = " ".|  .  unp|
|00012600| 75 70 70 65 74 20 22 34 | 2c 31 30 22 20 20 0d 20 |uppet "4|,10"  . |
|00012610| 20 0d 20 20 2d 2d 20 20 | 67 65 74 20 74 68 65 20 | .  --  |get the |
|00012620| 51 54 6d 6f 76 69 65 0d | 20 20 2d 2d 20 20 73 65 |QTmovie.|  --  se|
|00012630| 74 20 63 6e 75 6d 20 3d | 20 74 68 65 20 6e 75 6d |t cnum =| the num|
|00012640| 62 65 72 20 6f 66 20 63 | 61 73 74 20 22 51 54 63 |ber of c|ast "QTc|
|00012650| 61 73 74 22 0d 20 20 2d | 2d 20 20 73 65 74 20 66 |ast".  -|-  set f|
|00012660| 6e 61 6d 65 20 3d 20 67 | 51 54 41 6e 69 6d 70 61 |name = g|QTAnimpa|
|00012670| 74 68 20 26 20 22 41 22 | 20 26 20 67 4d 61 6b 65 |th & "A"| & gMake|
|00012680| 72 4e 75 6d 20 26 20 22 | 41 22 20 26 20 67 43 75 |rNum & "|A" & gCu|
|00012690| 72 43 68 61 70 20 26 20 | 67 43 75 72 41 72 74 69 |rChap & |gCurArti|
|000126a0| 63 6c 65 20 26 20 22 2e | 4d 4f 56 22 0d 20 20 2d |cle & ".|MOV".  -|
|000126b0| 2d 20 20 70 75 74 20 66 | 6e 61 6d 65 0d 20 20 2d |-  put f|name.  -|
|000126c0| 2d 20 20 73 65 74 20 74 | 68 65 20 66 69 6c 65 6e |-  set t|he filen|
|000126d0| 61 6d 65 20 6f 66 20 63 | 61 73 74 20 22 51 54 63 |ame of c|ast "QTc|
|000126e0| 61 73 74 22 20 3d 20 66 | 6e 61 6d 65 0d 20 20 2d |ast" = f|name.  -|
|000126f0| 2d 20 20 73 65 74 20 74 | 68 65 20 6e 61 6d 65 20 |-  set t|he name |
|00012700| 6f 66 20 63 61 73 74 20 | 63 6e 75 6d 20 3d 20 22 |of cast |cnum = "|
|00012710| 51 54 63 61 73 74 22 0d | 20 20 0d 20 20 67 6f 20 |QTcast".|  .  go |
|00012720| 74 6f 20 66 72 61 6d 65 | 20 67 4d 61 6b 65 72 6e |to frame| gMakern|
|00012730| 75 6d 20 26 20 22 2e 61 | 6e 69 6d 22 0d 20 20 43 |um & ".a|nim".  C|
|00012740| 6c 65 61 6e 4d 65 6d 0d | 20 20 0d 20 20 69 66 20 |leanMem.|  .  if |
|00012750| 67 57 6f 72 6c 64 20 3d | 20 22 53 65 6e 73 65 73 |gWorld =| "Senses|
|00012760| 22 20 6f 72 20 67 57 6f | 72 6c 64 20 3d 20 22 44 |" or gWo|rld = "D|
|00012770| 65 73 69 67 6e 22 20 74 | 68 65 6e 0d 20 20 20 20 |esign" t|hen.    |
|00012780| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|00012790| 73 70 72 69 74 65 20 6e | 61 6d 65 73 70 72 69 74 |sprite n|amesprit|
|000127a0| 65 20 3d 20 67 4e 61 6d | 65 4c 6f 63 68 0d 20 20 |e = gNam|eLoch.  |
|000127b0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|000127c0| 66 20 73 70 72 69 74 65 | 20 6e 61 6d 65 73 70 72 |f sprite| namespr|
|000127d0| 69 74 65 20 3d 20 67 4e | 61 6d 65 4c 6f 63 76 0d |ite = gN|ameLocv.|
|000127e0| 20 20 65 6e 64 20 69 66 | 0d 20 20 0d 20 20 69 66 |  end if|.  .  if|
|000127f0| 20 67 57 6f 72 6c 64 20 | 3d 20 22 53 65 6e 73 65 | gWorld |= "Sense|
|00012800| 73 22 20 6f 72 20 67 57 | 6f 72 6c 64 20 3d 20 22 |s" or gW|orld = "|
|00012810| 44 65 73 69 67 6e 22 20 | 74 68 65 6e 20 20 0d 20 |Design" |then  . |
|00012820| 20 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |   puppe|tsprite |
|00012830| 32 35 2c 31 0d 20 20 20 | 20 70 75 70 70 65 74 73 |25,1.   | puppets|
|00012840| 70 72 69 74 65 20 32 36 | 2c 31 0d 20 20 20 20 70 |prite 26|,1.    p|
|00012850| 75 70 70 65 74 73 70 72 | 69 74 65 20 32 37 2c 31 |uppetspr|ite 27,1|
|00012860| 20 0d 20 20 20 20 70 75 | 70 70 65 74 73 70 72 69 | .    pu|ppetspri|
|00012870| 74 65 20 32 38 2c 31 0d | 20 20 65 6e 64 20 69 66 |te 28,1.|  end if|
|00012880| 0d 20 20 0d 20 20 0d 20 | 20 0d 20 20 70 75 70 70 |.  .  . | .  pupp|
|00012890| 65 74 73 70 72 69 74 65 | 20 63 61 70 74 69 6f 6e |etsprite| caption|
|000128a0| 73 70 72 69 74 65 2c 31 | 0d 20 20 73 65 74 20 63 |sprite,1|.  set c|
|000128b0| 61 70 74 69 6f 6e 6c 6f | 63 68 20 3d 20 74 68 65 |aptionlo|ch = the|
|000128c0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|000128d0| 63 61 70 74 69 6f 6e 73 | 70 72 69 74 65 0d 20 20 |captions|prite.  |
|000128e0| 73 65 74 20 74 68 65 20 | 63 61 73 74 6e 75 6d 20 |set the |castnum |
|000128f0| 6f 66 20 73 70 72 69 74 | 65 20 63 61 70 74 69 6f |of sprit|e captio|
|00012900| 6e 73 70 72 69 74 65 20 | 3d 20 74 68 65 20 6e 75 |nsprite |= the nu|
|00012910| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 22 63 61 |mber of |cast "ca|
|00012920| 70 74 69 6f 6e 2d 71 74 | 22 0d 20 20 0d 20 20 73 |ption-qt|".  .  s|
|00012930| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|00012940| 70 72 69 74 65 20 63 61 | 70 74 69 6f 6e 73 70 72 |prite ca|ptionspr|
|00012950| 69 74 65 20 3d 20 31 30 | 30 30 0d 20 20 73 65 74 |ite = 10|00.  set|
|00012960| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|00012970| 69 74 65 20 70 69 63 73 | 70 72 69 74 65 20 3d 20 |ite pics|prite = |
|00012980| 31 30 30 30 0d 20 20 75 | 70 64 61 74 65 73 74 61 |1000.  u|pdatesta|
|00012990| 67 65 0d 20 20 0d 20 20 | 73 65 74 20 74 6d 70 63 |ge.  .  |set tmpc|
|000129a0| 61 70 20 3d 20 47 65 74 | 43 61 70 74 69 6f 6e 28 |ap = Get|Caption(|
|000129b0| 29 20 20 0d 20 20 73 65 | 74 20 74 68 65 20 74 65 |)  .  se|t the te|
|000129c0| 78 74 20 6f 66 20 66 69 | 65 6c 64 20 22 63 61 70 |xt of fi|eld "cap|
|000129d0| 74 69 6f 6e 2d 71 74 22 | 20 3d 20 20 74 6d 70 63 |tion-qt"| =  tmpc|
|000129e0| 61 70 0d 20 20 0d 20 20 | 69 66 20 67 57 6f 72 6c |ap.  .  |if gWorl|
|000129f0| 64 20 3c 3e 20 22 53 65 | 6e 73 65 73 22 20 74 68 |d <> "Se|nses" th|
|00012a00| 65 6e 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 74 |en.    s|et the t|
|00012a10| 65 78 74 68 65 69 67 68 | 74 20 6f 66 20 66 69 65 |extheigh|t of fie|
|00012a20| 6c 64 20 22 63 61 70 74 | 69 6f 6e 2d 71 74 22 20 |ld "capt|ion-qt" |
|00012a30| 3d 20 31 38 20 20 2d 2d | 20 6c 65 61 64 69 6e 67 |= 18  --| leading|
|00012a40| 0d 20 20 65 6c 73 65 0d | 20 20 20 20 73 65 74 20 |.  else.|    set |
|00012a50| 74 68 65 20 74 65 78 74 | 68 65 69 67 68 74 20 6f |the text|height o|
|00012a60| 66 20 66 69 65 6c 64 20 | 22 63 61 70 74 69 6f 6e |f field |"caption|
|00012a70| 2d 71 74 22 20 3d 20 32 | 35 0d 20 20 65 6e 64 20 |-qt" = 2|5.  end |
|00012a80| 69 66 0d 20 20 0d 20 20 | 2d 2d 20 62 72 69 6e 67 |if.  .  |-- bring|
|00012a90| 20 75 70 20 74 68 65 20 | 51 54 20 6d 6f 76 69 65 | up the |QT movie|
|00012aa0| 0d 20 20 0d 20 20 2d 2d | 20 61 64 6a 75 73 74 20 |.  .  --| adjust |
|00012ab0| 74 68 65 20 68 65 69 67 | 68 74 20 6f 66 20 74 68 |the heig|ht of th|
|00012ac0| 65 20 51 54 20 63 61 70 | 74 69 6f 6e 2c 20 74 6f |e QT cap|tion, to|
|00012ad0| 20 63 65 6e 74 65 72 20 | 69 74 0d 20 20 69 66 20 | center |it.  if |
|00012ae0| 67 57 6f 72 6c 64 20 3d | 20 22 44 69 73 63 6f 76 |gWorld =| "Discov|
|00012af0| 65 72 22 20 74 68 65 6e | 0d 20 20 20 20 73 65 74 |er" then|.    set|
|00012b00| 20 63 65 6e 74 65 72 70 | 6f 69 6e 74 20 3d 20 32 | centerp|oint = 2|
|00012b10| 35 30 20 20 0d 20 20 65 | 6c 73 65 0d 20 20 20 20 |50  .  e|lse.    |
|00012b20| 73 65 74 20 63 65 6e 74 | 65 72 70 6f 69 6e 74 20 |set cent|erpoint |
|00012b30| 3d 20 32 38 30 0d 20 20 | 65 6e 64 20 69 66 0d 20 |= 280.  |end if. |
|00012b40| 20 73 65 74 20 63 61 70 | 68 20 3d 20 74 68 65 20 | set cap|h = the |
|00012b50| 68 65 69 67 68 74 20 6f | 66 20 63 61 73 74 20 22 |height o|f cast "|
|00012b60| 63 61 70 74 69 6f 6e 2d | 71 74 22 0d 20 20 0d 20 |caption-|qt".  . |
|00012b70| 20 2d 2d 20 69 6e 20 64 | 65 73 69 67 6e 20 74 68 | -- in d|esign th|
|00012b80| 65 20 63 61 70 74 69 6f | 6e 20 64 6f 65 73 20 6e |e captio|n does n|
|00012b90| 6f 74 20 6e 65 65 64 20 | 76 65 72 74 69 63 61 6c |ot need |vertical|
|00012ba0| 20 63 65 6e 74 65 72 69 | 6e 67 0d 20 20 69 66 20 | centeri|ng.  if |
|00012bb0| 67 57 6f 72 6c 64 20 3c | 3e 20 22 53 65 6e 73 65 |gWorld <|> "Sense|
|00012bc0| 73 22 20 61 6e 64 20 67 | 57 6f 72 6c 64 20 3c 3e |s" and g|World <>|
|00012bd0| 20 22 42 6f 64 79 22 20 | 74 68 65 6e 20 0d 20 20 | "Body" |then .  |
|00012be0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|00012bf0| 66 20 73 70 72 69 74 65 | 20 63 61 70 74 69 6f 6e |f sprite| caption|
|00012c00| 73 70 72 69 74 65 20 3d | 20 63 65 6e 74 65 72 70 |sprite =| centerp|
|00012c10| 6f 69 6e 74 20 2d 20 28 | 63 61 70 68 2f 32 29 0d |oint - (|caph/2).|
|00012c20| 20 20 65 6c 73 65 20 69 | 66 20 67 57 6f 72 6c 64 |  else i|f gWorld|
|00012c30| 20 3d 20 22 42 6f 64 79 | 22 20 74 68 65 6e 0d 20 | = "Body|" then. |
|00012c40| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 76 20 |   set t|he locv |
|00012c50| 6f 66 20 73 70 72 69 74 | 65 20 63 61 70 74 69 6f |of sprit|e captio|
|00012c60| 6e 73 70 72 69 74 65 20 | 3d 20 31 31 32 20 20 0d |nsprite |= 112  .|
|00012c70| 20 20 65 6e 64 20 69 66 | 0d 20 20 73 65 74 20 74 |  end if|.  set t|
|00012c80| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00012c90| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 20 |e captio|nsprite |
|00012ca0| 3d 20 63 61 70 74 69 6f | 6e 6c 6f 63 68 0d 20 20 |= captio|nloch.  |
|00012cb0| 0d 20 20 2d 2d 20 73 74 | 61 72 74 20 74 68 65 20 |.  -- st|art the |
|00012cc0| 51 54 0d 20 20 73 65 74 | 20 74 68 65 20 6d 6f 76 |QT.  set| the mov|
|00012cd0| 69 65 72 61 74 65 20 6f | 66 20 73 70 72 69 74 65 |ierate o|f sprite|
|00012ce0| 20 33 20 3d 20 31 0d 20 | 20 0d 20 20 2d 2d 20 74 | 3 = 1. | .  -- t|
|00012cf0| 68 65 20 70 6c 61 79 2f | 73 74 6f 70 20 62 75 74 |he play/|stop but|
|00012d00| 74 6f 6e 20 73 70 72 69 | 74 65 0d 20 20 70 75 70 |ton spri|te.  pup|
|00012d10| 70 65 74 73 70 72 69 74 | 65 20 31 31 2c 31 20 0d |petsprit|e 11,1 .|
|00012d20| 20 20 0d 65 6e 64 0d 0d | 0d 00 00 32 00 32 02 25 |  .end..|...2.2.%|
|00012d30| 02 a9 00 00 25 40 00 00 | 25 48 00 00 00 00 00 01 |....%@..|%H......|
|00012d40| 00 00 00 00 00 0b 00 09 | 00 04 00 00 00 09 00 00 |........|........|
|00012d50| 00 00 00 00 43 41 53 74 | 00 00 48 1a 00 04 00 00 |....CASt|..H.....|
|00012d60| 48 10 0b 00 00 03 00 00 | 00 14 00 c2 eb 94 00 00 |H.......|........|
|00012d70| 00 00 00 00 00 00 00 00 | 00 0e 00 07 00 00 00 00 |........|........|
|00012d80| 00 00 47 5f 00 00 47 60 | 00 00 47 60 00 00 47 60 |..G_..G`|..G`..G`|
|00012d90| 00 00 47 60 00 00 47 74 | 00 00 47 da 2d 2d 20 47 |..G`..Gt|..G.-- G|
|00012da0| 6f 20 74 6f 20 74 68 65 | 20 66 69 72 73 74 20 61 |o to the| first a|
|00012db0| 72 74 69 63 6c 65 20 6f | 66 20 74 68 65 20 63 6c |rticle o|f the cl|
|00012dc0| 69 63 6b 65 64 20 6f 6e | 20 63 68 61 70 74 65 72 |icked on| chapter|
|00012dd0| 0d 0d 6f 6e 20 49 6e 69 | 74 44 61 74 61 20 0d 20 |..on Ini|tData . |
|00012de0| 20 67 6c 6f 62 61 6c 20 | 67 46 75 6c 6c 43 75 74 | global |gFullCut|
|00012df0| 74 69 6e 67 73 2c 20 67 | 4d 61 78 4c 69 6e 65 73 |tings, g|MaxLines|
|00012e00| 2c 20 67 43 75 72 49 6e | 64 65 78 2c 20 67 4e 61 |, gCurIn|dex, gNa|
|00012e10| 6d 65 2c 20 67 4d 61 6b | 65 72 4e 61 6d 65 2c 20 |me, gMak|erName, |
|00012e20| 67 57 6f 72 6c 64 0d 20 | 20 67 6c 6f 62 61 6c 20 |gWorld. | global |
|00012e30| 67 53 65 65 6e 4d 61 70 | 73 2c 20 6d 50 61 74 68 |gSeenMap|s, mPath|
|00012e40| 2c 20 67 48 65 61 64 6c | 6f 63 48 2c 20 67 4e 61 |, gHeadl|ocH, gNa|
|00012e50| 6d 65 4c 6f 63 68 2c 20 | 67 4e 61 6d 65 4c 6f 63 |meLoch, |gNameLoc|
|00012e60| 76 2c 20 67 4d 61 6b 65 | 72 4e 75 6d 0d 20 20 67 |v, gMake|rNum.  g|
|00012e70| 6c 6f 62 61 6c 20 67 51 | 54 70 61 74 68 2c 20 67 |lobal gQ|Tpath, g|
|00012e80| 53 6f 75 6e 64 50 61 74 | 68 2c 20 67 54 6f 74 61 |SoundPat|h, gTota|
|00012e90| 6c 43 68 61 70 74 65 72 | 73 2c 20 67 4d 61 78 4e |lChapter|s, gMaxN|
|00012ea0| 75 67 67 65 74 73 2c 20 | 67 4e 75 67 67 65 74 73 |uggets, |gNuggets|
|00012eb0| 2c 20 67 57 68 69 63 68 | 4e 75 67 67 65 74 2c 20 |, gWhich|Nugget, |
|00012ec0| 67 4e 75 67 67 65 74 4c | 69 73 74 0d 20 20 67 6c |gNuggetL|ist.  gl|
|00012ed0| 6f 62 61 6c 20 67 4e 75 | 67 67 65 74 4f 6e 2c 20 |obal gNu|ggetOn, |
|00012ee0| 67 4e 61 6d 65 43 61 73 | 74 6e 75 6d 2c 20 67 49 |gNameCas|tnum, gI|
|00012ef0| 6e 41 4d 61 70 2c 20 67 | 4e 75 67 67 65 74 44 65 |nAMap, g|NuggetDe|
|00012f00| 6c 61 79 2c 20 67 4e 75 | 67 67 65 74 54 69 6d 65 |lay, gNu|ggetTime|
|00012f10| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 54 72 61 70 53 |.  globa|l gTrapS|
|00012f20| 74 61 72 74 0d 20 20 0d | 20 20 2d 2d 53 65 74 56 |tart.  .|  --SetV|
|00012f30| 6f 6c 75 6d 65 0d 20 20 | 75 70 64 61 74 65 73 74 |olume.  |updatest|
|00012f40| 61 67 65 0d 20 20 0d 20 | 20 73 65 74 20 67 49 6e |age.  . | set gIn|
|00012f50| 41 4d 61 70 20 3d 20 30 | 20 2d 2d 20 61 72 65 20 |AMap = 0| -- are |
|00012f60| 77 65 20 69 6e 20 61 20 | 6d 61 70 3f 0d 20 20 0d |we in a |map?.  .|
|00012f70| 20 20 73 65 74 20 67 54 | 72 61 70 53 74 61 72 74 |  set gT|rapStart|
|00012f80| 20 3d 20 30 20 20 2d 2d | 20 74 68 65 20 6d 6f 75 | = 0  --| the mou|
|00012f90| 73 65 74 72 61 70 20 74 | 69 6d 65 72 0d 20 20 0d |setrap t|imer.  .|
|00012fa0| 20 20 2d 2d 20 6b 69 6c | 6c 20 74 68 65 20 73 6f |  -- kil|l the so|
|00012fb0| 75 6e 64 20 66 72 6f 6d | 20 74 68 65 20 77 6f 72 |und from| the wor|
|00012fc0| 6c 64 73 0d 20 20 73 6f | 75 6e 64 20 73 74 6f 70 |lds.  so|und stop|
|00012fd0| 20 31 0d 20 20 73 6f 75 | 6e 64 20 73 74 6f 70 20 | 1.  sou|nd stop |
|00012fe0| 32 0d 20 20 0d 20 20 73 | 65 74 20 74 68 65 20 6b |2.  .  s|et the k|
|00012ff0| 65 79 44 6f 77 6e 53 63 | 72 69 70 74 20 74 6f 20 |eyDownSc|ript to |
|00013000| 22 43 68 65 63 6b 50 72 | 69 6e 74 22 0d 20 20 0d |"CheckPr|int".  .|
|00013010| 20 20 49 6e 69 74 44 61 | 74 61 47 6c 6f 62 61 6c |  InitDa|taGlobal|
|00013020| 73 0d 20 20 73 65 74 20 | 67 6d 61 6b 65 72 6e 75 |s.  set |gmakernu|
|00013030| 6d 20 3d 20 76 61 6c 75 | 65 28 67 6d 61 6b 65 72 |m = valu|e(gmaker|
|00013040| 6e 75 6d 29 0d 20 20 73 | 65 74 20 67 6d 61 6b 65 |num).  s|et gmake|
|00013050| 72 6e 61 6d 65 20 3d 20 | 6c 69 6e 65 20 67 6d 61 |rname = |line gma|
|00013060| 6b 65 72 6e 75 6d 20 6f | 66 20 66 69 65 6c 64 20 |kernum o|f field |
|00013070| 22 4d 61 6b 65 72 6e 75 | 6d 6c 69 73 74 22 0d 20 |"Makernu|mlist". |
|00013080| 20 73 65 74 20 6e 61 6d | 65 20 3d 20 67 6d 61 6b | set nam|e = gmak|
|00013090| 65 72 6e 61 6d 65 0d 20 | 20 73 65 74 20 74 68 65 |ername. | set the|
|000130a0| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|000130b0| 41 72 74 69 63 6c 65 4e | 75 6d 62 65 72 22 20 3d |ArticleN|umber" =|
|000130c0| 20 73 74 72 69 6e 67 28 | 67 4d 61 6b 65 72 4e 75 | string(|gMakerNu|
|000130d0| 6d 29 0d 20 20 0d 20 20 | 2d 2d 20 67 65 74 20 74 |m).  .  |-- get t|
|000130e0| 68 65 20 73 74 72 61 70 | 6c 69 6e 65 0d 20 20 2d |he strap|line.  -|
|000130f0| 2d 20 28 74 68 69 73 20 | 69 73 20 6e 6f 77 20 64 |- (this |is now d|
|00013100| 6f 6e 65 20 69 6e 20 42 | 6c 61 63 6b 53 63 72 65 |one in B|lackScre|
|00013110| 65 6e 29 0d 20 20 2d 2d | 20 73 65 74 20 74 68 65 |en).  --| set the|
|00013120| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|00013130| 73 74 72 61 70 6c 69 6e | 65 22 20 3d 20 6c 69 6e |straplin|e" = lin|
|00013140| 65 20 67 6d 61 6b 65 72 | 6e 75 6d 20 6f 66 20 66 |e gmaker|num of f|
|00013150| 69 65 6c 64 20 22 6d 61 | 6b 65 72 73 73 74 72 61 |ield "ma|kersstra|
|00013160| 70 6c 69 6e 65 73 22 0d | 20 20 2d 2d 20 64 65 6c |plines".|  -- del|
|00013170| 65 74 65 20 69 74 65 6d | 20 31 20 6f 66 20 66 69 |ete item| 1 of fi|
|00013180| 65 6c 64 20 22 73 74 72 | 61 70 6c 69 6e 65 22 0d |eld "str|apline".|
|00013190| 20 20 0d 20 20 73 65 74 | 20 67 53 65 65 6e 4d 61 |  .  set| gSeenMa|
|000131a0| 70 73 20 3d 20 30 20 20 | 20 2d 2d 20 66 6c 61 67 |ps = 0  | -- flag|
|000131b0| 2c 20 73 6f 20 77 65 20 | 63 61 6e 20 73 68 6f 77 |, so we |can show|
|000131c0| 20 74 68 65 20 6d 61 70 | 20 7a 6f 6f 6d 20 69 6e | the map| zoom in|
|000131d0| 20 6f 6e 6c 79 20 6f 6e | 63 65 0d 20 20 0d 20 20 | only on|ce.  .  |
|000131e0| 73 74 61 72 74 74 69 6d | 65 72 0d 20 20 0d 20 20 |starttim|er.  .  |
|000131f0| 73 65 74 20 67 4d 61 78 | 4c 69 6e 65 73 20 3d 20 |set gMax|Lines = |
|00013200| 31 38 20 20 20 20 20 20 | 20 20 2d 2d 20 74 68 65 |18      |  -- the|
|00013210| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|00013220| 20 66 6f 72 20 74 68 65 | 20 63 75 74 74 69 6e 67 | for the| cutting|
|00013230| 73 20 74 65 78 74 20 62 | 6f 78 0d 20 20 0d 20 20 |s text b|ox.  .  |
|00013240| 2d 2d 20 6c 6f 61 64 20 | 73 63 72 69 70 74 20 66 |-- load |script f|
|00013250| 69 6c 65 2c 20 70 61 72 | 73 65 20 69 74 2c 20 6c |ile, par|se it, l|
|00013260| 6f 61 64 20 74 68 65 20 | 63 75 74 74 69 6e 67 20 |oad the |cutting |
|00013270| 74 65 78 74 0d 20 20 2d | 2d 20 52 65 61 64 53 63 |text.  -|- ReadSc|
|00013280| 72 69 70 74 0d 20 20 0d | 20 20 2d 2d 20 69 6e 69 |ript.  .|  -- ini|
|00013290| 74 69 61 6c 69 7a 65 20 | 6e 75 67 67 65 74 73 0d |tialize |nuggets.|
|000132a0| 20 20 73 65 74 20 74 68 | 65 20 69 74 65 6d 64 65 |  set th|e itemde|
|000132b0| 6c 69 6d 69 74 65 72 20 | 3d 20 22 23 22 0d 20 20 |limiter |= "#".  |
|000132c0| 73 65 74 20 67 4d 61 78 | 4e 75 67 67 65 74 73 20 |set gMax|Nuggets |
|000132d0| 3d 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |= the nu|mber of |
|000132e0| 69 74 65 6d 73 20 6f 66 | 20 67 4e 75 67 67 65 74 |items of| gNugget|
|000132f0| 73 0d 20 20 73 65 74 20 | 74 68 65 20 69 74 65 6d |s.  set |the item|
|00013300| 64 65 6c 69 6d 69 74 65 | 72 20 3d 20 22 2c 22 0d |delimite|r = ",".|
|00013310| 20 20 73 65 74 20 67 57 | 68 69 63 68 4e 75 67 67 |  set gW|hichNugg|
|00013320| 65 74 20 3d 20 72 61 6e | 64 6f 6d 28 67 4d 61 78 |et = ran|dom(gMax|
|00013330| 4e 75 67 67 65 74 73 29 | 0d 20 20 73 65 74 20 67 |Nuggets)|.  set g|
|00013340| 4e 75 67 67 65 74 4c 69 | 73 74 20 3d 20 5b 67 57 |NuggetLi|st = [gW|
|00013350| 68 69 63 68 4e 75 67 67 | 65 74 5d 0d 20 20 73 65 |hichNugg|et].  se|
|00013360| 74 20 67 4e 75 67 67 65 | 74 4f 6e 20 3d 20 30 0d |t gNugge|tOn = 0.|
|00013370| 20 20 73 65 74 20 67 4e | 75 67 67 65 74 44 65 6c |  set gN|uggetDel|
|00013380| 61 79 20 3d 20 31 35 2a | 36 30 20 20 20 20 20 2d |ay = 15*|60     -|
|00013390| 2d 20 69 6e 69 74 69 61 | 6c 20 64 65 6c 61 79 20 |- initia|l delay |
|000133a0| 74 69 6c 6c 20 6e 75 67 | 67 65 74 73 20 63 6f 6d |till nug|gets com|
|000133b0| 65 20 75 70 20 6f 6e 20 | 74 68 65 20 73 63 72 65 |e up on |the scre|
|000133c0| 65 6e 0d 20 20 73 65 74 | 20 67 4e 75 67 67 65 74 |en.  set| gNugget|
|000133d0| 54 69 6d 65 20 3d 20 74 | 68 65 20 74 69 63 6b 73 |Time = t|he ticks|
|000133e0| 0d 20 20 70 75 74 20 22 | 6c 6f 61 64 69 6e 67 20 |.  put "|loading |
|000133f0| 73 63 72 69 70 74 20 66 | 69 6c 65 20 61 6e 64 20 |script f|ile and |
|00013400| 70 61 72 73 69 6e 67 20 | 69 74 20 74 6f 6f 6b 3a |parsing |it took:|
|00013410| 20 22 20 26 26 20 74 68 | 65 20 74 69 6d 65 72 20 | " && th|e timer |
|00013420| 26 26 20 22 74 69 63 6b | 73 22 0d 20 20 0d 20 20 |&& "tick|s".  .  |
|00013430| 2d 2d 20 70 75 74 20 75 | 70 20 74 68 65 20 68 65 |-- put u|p the he|
|00013440| 61 64 73 68 6f 74 0d 20 | 20 70 75 70 70 65 74 73 |adshot. | puppets|
|00013450| 70 72 69 74 65 20 31 30 | 2c 31 0d 20 20 73 65 74 |prite 10|,1.  set|
|00013460| 20 74 68 65 20 63 61 73 | 74 6e 75 6d 20 6f 66 20 | the cas|tnum of |
|00013470| 73 70 72 69 74 65 20 31 | 30 20 3d 20 74 68 65 20 |sprite 1|0 = the |
|00013480| 6e 75 6d 62 65 72 20 6f | 66 20 63 61 73 74 20 28 |number o|f cast (|
|00013490| 67 4d 61 6b 65 72 4e 75 | 6d 20 26 20 22 2d 68 65 |gMakerNu|m & "-he|
|000134a0| 61 64 22 29 0d 20 20 0d | 20 20 69 66 20 67 57 6f |ad").  .|  if gWo|
|000134b0| 72 6c 64 20 3d 20 22 50 | 6f 77 65 72 22 20 74 68 |rld = "P|ower" th|
|000134c0| 65 6e 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |en.    s|et the l|
|000134d0| 6f 63 76 20 6f 66 20 73 | 70 72 69 74 65 20 31 30 |ocv of s|prite 10|
|000134e0| 20 3d 20 31 30 31 0d 20 | 20 20 20 73 65 74 20 74 | = 101. |   set t|
|000134f0| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00013500| 65 20 31 30 20 3d 20 34 | 32 0d 20 20 20 20 73 65 |e 10 = 4|2.    se|
|00013510| 74 20 67 48 65 61 64 6c | 6f 63 48 20 3d 20 34 32 |t gHeadl|ocH = 42|
|00013520| 0d 20 20 65 6c 73 65 20 | 69 66 20 67 57 6f 72 6c |.  else |if gWorl|
|00013530| 64 20 3d 20 22 53 65 6e | 73 65 73 22 20 74 68 65 |d = "Sen|ses" the|
|00013540| 6e 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |n.    se|t the lo|
|00013550| 63 76 20 6f 66 20 73 70 | 72 69 74 65 20 31 30 20 |cv of sp|rite 10 |
|00013560| 3d 20 33 39 0d 20 20 20 | 20 73 65 74 20 74 68 65 |= 39.   | set the|
|00013570| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|00013580| 31 30 20 3d 20 33 38 0d | 20 20 20 20 73 65 74 20 |10 = 38.|    set |
|00013590| 67 48 65 61 64 6c 6f 63 | 68 20 3d 20 33 38 0d 20 |gHeadloc|h = 38. |
|000135a0| 20 65 6c 73 65 20 69 66 | 20 67 57 6f 72 6c 64 20 | else if| gWorld |
|000135b0| 3d 20 22 6d 69 6e 64 22 | 20 74 68 65 6e 0d 20 20 |= "mind"| then.  |
|000135c0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|000135d0| 66 20 73 70 72 69 74 65 | 20 31 30 20 3d 20 35 33 |f sprite| 10 = 53|
|000135e0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |.    set| the loc|
|000135f0| 68 20 6f 66 20 73 70 72 | 69 74 65 20 31 30 20 3d |h of spr|ite 10 =|
|00013600| 20 34 31 0d 20 20 20 20 | 73 65 74 20 67 48 65 61 | 41.    |set gHea|
|00013610| 64 6c 6f 63 48 20 3d 20 | 34 31 0d 20 20 65 6c 73 |dlocH = |41.  els|
|00013620| 65 20 69 66 20 67 57 6f | 72 6c 64 20 3d 20 22 64 |e if gWo|rld = "d|
|00013630| 69 73 63 6f 76 65 72 22 | 20 74 68 65 6e 20 20 20 |iscover"| then   |
|00013640| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |.    set| the loc|
|00013650| 68 20 6f 66 20 73 70 72 | 69 74 65 20 31 30 20 3d |h of spr|ite 10 =|
|00013660| 20 33 35 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 | 35.    |set the |
|00013670| 6c 6f 63 76 20 6f 66 20 | 73 70 72 69 74 65 20 31 |locv of |sprite 1|
|00013680| 30 20 3d 20 38 35 0d 20 | 20 20 20 73 65 74 20 67 |0 = 85. |   set g|
|00013690| 48 65 61 64 4c 6f 63 48 | 20 3d 20 33 35 0d 20 20 |HeadLocH| = 35.  |
|000136a0| 65 6c 73 65 20 69 66 20 | 67 57 6f 72 6c 64 20 3d |else if |gWorld =|
|000136b0| 20 22 62 6f 64 79 22 20 | 74 68 65 6e 0d 20 20 20 | "body" |then.   |
|000136c0| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 76 20 6f 66 | set the| locv of|
|000136d0| 20 73 70 72 69 74 65 20 | 31 30 20 3d 20 36 31 0d | sprite |10 = 61.|
|000136e0| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 68 |    set |the loch|
|000136f0| 20 6f 66 20 73 70 72 69 | 74 65 20 31 30 20 3d 20 | of spri|te 10 = |
|00013700| 34 37 0d 20 20 20 20 73 | 65 74 20 67 48 65 61 64 |47.    s|et gHead|
|00013710| 6c 6f 63 48 20 3d 20 34 | 37 0d 20 20 65 6c 73 65 |locH = 4|7.  else|
|00013720| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |.    set| the loc|
|00013730| 76 20 6f 66 20 73 70 72 | 69 74 65 20 31 30 20 3d |v of spr|ite 10 =|
|00013740| 20 35 33 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 | 53.    |set the |
|00013750| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 31 |loch of |sprite 1|
|00013760| 30 20 3d 20 34 32 0d 20 | 20 20 20 73 65 74 20 67 |0 = 42. |   set g|
|00013770| 48 65 61 64 6c 6f 63 48 | 20 3d 20 34 32 0d 20 20 |HeadlocH| = 42.  |
|00013780| 65 6e 64 20 69 66 0d 20 | 20 0d 20 20 0d 20 20 2d |end if. | .  .  -|
|00013790| 2d 20 70 75 74 20 75 70 | 20 74 68 65 20 6e 61 6d |- put up| the nam|
|000137a0| 65 20 62 69 74 6d 61 70 | 0d 20 20 70 75 70 70 65 |e bitmap|.  puppe|
|000137b0| 74 73 70 72 69 74 65 20 | 34 2c 31 0d 20 20 73 65 |tsprite |4,1.  se|
|000137c0| 74 20 67 4e 61 6d 65 43 | 61 73 74 6e 75 6d 20 3d |t gNameC|astnum =|
|000137d0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|000137e0| 61 73 74 20 28 67 6d 61 | 6b 65 72 6e 75 6d 26 22 |ast (gma|kernum&"|
|000137f0| 2e 6e 61 6d 65 22 29 0d | 20 20 73 65 74 20 74 68 |.name").|  set th|
|00013800| 65 20 63 61 73 74 6e 75 | 6d 20 6f 66 20 73 70 72 |e castnu|m of spr|
|00013810| 69 74 65 20 34 20 3d 20 | 67 4e 61 6d 65 43 61 73 |ite 4 = |gNameCas|
|00013820| 74 6e 75 6d 0d 20 20 0d | 20 20 69 66 20 67 57 6f |tnum.  .|  if gWo|
|00013830| 72 6c 64 20 3d 20 22 50 | 6f 77 65 72 22 20 74 68 |rld = "P|ower" th|
|00013840| 65 6e 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |en.    s|et the l|
|00013850| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 34 20 |och of s|prite 4 |
|00013860| 3d 20 31 35 31 0d 20 20 | 20 20 73 65 74 20 74 68 |= 151.  |  set th|
|00013870| 65 20 6c 6f 63 76 20 6f | 66 20 73 70 72 69 74 65 |e locv o|f sprite|
|00013880| 20 34 20 3d 20 32 34 0d | 20 20 65 6c 73 65 20 69 | 4 = 24.|  else i|
|00013890| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 44 65 73 69 |f gWorld| = "Desi|
|000138a0| 67 6e 22 20 74 68 65 6e | 0d 20 20 20 20 73 65 74 |gn" then|.    set|
|000138b0| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|000138c0| 69 74 65 20 34 20 3d 20 | 31 33 37 0d 20 20 20 20 |ite 4 = |137.    |
|000138d0| 73 65 74 20 74 68 65 20 | 6c 6f 63 76 20 6f 66 20 |set the |locv of |
|000138e0| 73 70 72 69 74 65 20 34 | 20 3d 20 39 36 0d 20 20 |sprite 4| = 96.  |
|000138f0| 20 20 73 65 74 20 67 4e | 61 6d 65 4c 6f 63 68 20 |  set gN|ameLoch |
|00013900| 3d 20 31 33 37 0d 20 20 | 20 20 73 65 74 20 67 4e |= 137.  |  set gN|
|00013910| 61 6d 65 4c 6f 63 76 20 | 3d 20 39 36 0d 20 20 65 |ameLocv |= 96.  e|
|00013920| 6c 73 65 20 69 66 20 67 | 57 6f 72 6c 64 20 3d 20 |lse if g|World = |
|00013930| 22 4d 69 6e 64 22 20 74 | 68 65 6e 0d 20 20 20 20 |"Mind" t|hen.    |
|00013940| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|00013950| 73 70 72 69 74 65 20 34 | 20 3d 20 32 34 34 0d 20 |sprite 4| = 244. |
|00013960| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 76 20 |   set t|he locv |
|00013970| 6f 66 20 73 70 72 69 74 | 65 20 34 20 3d 20 36 38 |of sprit|e 4 = 68|
|00013980| 0d 20 20 65 6c 73 65 20 | 69 66 20 67 57 6f 72 6c |.  else |if gWorl|
|00013990| 64 20 3d 20 22 64 69 73 | 63 6f 76 65 72 22 20 74 |d = "dis|cover" t|
|000139a0| 68 65 6e 0d 20 20 20 20 | 69 66 20 67 4e 61 6d 65 |hen.    |if gName|
|000139b0| 43 61 73 74 4e 75 6d 20 | 3e 20 30 20 74 68 65 6e |CastNum |> 0 then|
|000139c0| 0d 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |.      s|et the l|
|000139d0| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 34 20 |och of s|prite 4 |
|000139e0| 3d 20 28 74 68 65 20 77 | 69 64 74 68 20 6f 66 20 |= (the w|idth of |
|000139f0| 63 61 73 74 20 67 4e 61 | 6d 65 43 61 73 74 6e 75 |cast gNa|meCastnu|
|00013a00| 6d 29 2f 32 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |m)/2.   | end if.|
|00013a10| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 76 |    set |the locv|
|00013a20| 20 6f 66 20 73 70 72 69 | 74 65 20 34 20 3d 20 32 | of spri|te 4 = 2|
|00013a30| 30 0d 20 20 20 20 0d 20 | 20 65 6c 73 65 20 69 66 |0.    . | else if|
|00013a40| 20 67 57 6f 72 6c 64 20 | 3d 20 22 62 6f 64 79 22 | gWorld |= "body"|
|00013a50| 20 74 68 65 6e 0d 20 20 | 20 20 73 65 74 20 74 68 | then.  |  set th|
|00013a60| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00013a70| 20 34 20 3d 20 33 36 30 | 0d 20 20 20 20 73 65 74 | 4 = 360|.    set|
|00013a80| 20 74 68 65 20 6c 6f 63 | 76 20 6f 66 20 73 70 72 | the loc|v of spr|
|00013a90| 69 74 65 20 34 20 3d 20 | 31 31 0d 20 20 65 6c 73 |ite 4 = |11.  els|
|00013aa0| 65 20 69 66 20 67 57 6f | 72 6c 64 20 3d 20 22 53 |e if gWo|rld = "S|
|00013ab0| 65 6e 73 65 73 22 20 74 | 68 65 6e 0d 20 20 20 20 |enses" t|hen.    |
|00013ac0| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|00013ad0| 73 70 72 69 74 65 20 34 | 20 3d 20 31 37 32 0d 20 |sprite 4| = 172. |
|00013ae0| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 76 20 |   set t|he locv |
|00013af0| 6f 66 20 73 70 72 69 74 | 65 20 34 20 3d 20 31 39 |of sprit|e 4 = 19|
|00013b00| 0d 20 20 20 20 73 65 74 | 20 67 4e 61 6d 65 4c 6f |.    set| gNameLo|
|00013b10| 63 68 20 3d 20 31 37 32 | 0d 20 20 20 20 73 65 74 |ch = 172|.    set|
|00013b20| 20 67 4e 61 6d 65 4c 6f | 63 76 20 3d 20 31 39 0d | gNameLo|cv = 19.|
|00013b30| 20 20 65 6e 64 20 69 66 | 0d 20 20 0d 20 20 75 70 |  end if|.  .  up|
|00013b40| 64 61 74 65 73 74 61 67 | 65 0d 20 20 0d 20 20 2d |datestag|e.  .  -|
|00013b50| 2d 20 72 65 61 64 20 74 | 65 78 74 20 63 75 74 74 |- read t|ext cutt|
|00013b60| 69 6e 67 73 20 66 69 6c | 65 0d 20 20 0d 20 20 2d |ings fil|e.  .  -|
|00013b70| 2d 20 6f 6e 20 50 43 20 | 6e 65 65 64 20 74 6f 20 |- on PC |need to |
|00013b80| 6f 70 65 6e 20 74 68 65 | 20 66 69 6c 65 69 6f 20 |open the| fileio |
|00013b90| 78 6f 62 6a 65 63 74 0d | 20 20 69 66 20 74 68 65 |xobject.|  if the|
|00013ba0| 20 6d 61 63 68 69 6e 65 | 74 79 70 65 20 3d 20 32 | machine|type = 2|
|00013bb0| 35 36 20 74 68 65 6e 20 | 0d 20 20 20 20 6f 70 65 |56 then |.    ope|
|00013bc0| 6e 78 6c 69 62 28 74 68 | 65 20 70 61 74 68 6e 61 |nxlib(th|e pathna|
|00013bd0| 6d 65 20 26 20 22 66 69 | 6c 65 69 6f 2e 64 6c 6c |me & "fi|leio.dll|
|00013be0| 22 29 20 20 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |")  .  e|nd if.  |
|00013bf0| 0d 20 20 73 65 74 20 63 | 75 6e 61 6d 65 20 3d 20 |.  set c|uname = |
|00013c00| 22 43 55 22 20 26 20 67 | 4d 61 6b 65 72 4e 75 6d |"CU" & g|MakerNum|
|00013c10| 0d 20 20 73 65 74 20 6f | 62 6a 20 3d 20 66 69 6c |.  set o|bj = fil|
|00013c20| 65 69 6f 28 6d 4e 65 77 | 2c 22 72 65 61 64 22 2c |eio(mNew|,"read",|
|00013c30| 20 6d 50 61 74 68 20 26 | 20 63 75 6e 61 6d 65 20 | mPath &| cuname |
|00013c40| 26 20 22 2e 54 58 54 22 | 29 0d 20 20 69 66 20 6f |& ".TXT"|).  if o|
|00013c50| 62 6a 65 63 74 70 28 6f | 62 6a 29 20 74 68 65 6e |bjectp(o|bj) then|
|00013c60| 0d 20 20 20 20 73 65 74 | 20 67 46 75 6c 6c 43 75 |.    set| gFullCu|
|00013c70| 74 74 69 6e 67 73 20 3d | 20 6f 62 6a 28 6d 52 65 |ttings =| obj(mRe|
|00013c80| 61 64 46 69 6c 65 29 0d | 20 20 20 20 6f 62 6a 28 |adFile).|    obj(|
|00013c90| 6d 44 69 73 70 6f 73 65 | 29 0d 20 20 20 20 64 65 |mDispose|).    de|
|00013ca0| 6c 65 74 65 20 6c 69 6e | 65 20 28 74 68 65 20 6e |lete lin|e (the n|
|00013cb0| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|00013cc0| 66 20 67 46 75 6c 6c 43 | 75 74 74 69 6e 67 73 29 |f gFullC|uttings)|
|00013cd0| 20 6f 66 20 67 46 75 6c | 6c 43 75 74 74 69 6e 67 | of gFul|lCutting|
|00013ce0| 73 0d 20 20 65 6c 73 65 | 0d 20 20 20 20 61 6c 65 |s.  else|.    ale|
|00013cf0| 72 74 20 22 45 72 72 6f | 72 20 6f 70 65 6e 69 6e |rt "Erro|r openin|
|00013d00| 67 20 22 20 26 26 20 28 | 63 75 6e 61 6d 65 20 26 |g " && (|cuname &|
|00013d10| 20 22 2e 54 58 54 22 29 | 0d 20 20 20 20 73 65 74 | ".TXT")|.    set|
|00013d20| 20 66 6f 72 63 64 20 3d | 20 30 20 0d 20 20 20 20 | forcd =| 0 .    |
|00013d30| 69 66 20 66 6f 72 63 64 | 20 3d 20 31 20 74 68 65 |if forcd| = 1 the|
|00013d40| 6e 0d 20 20 20 20 20 20 | 52 65 74 75 72 6e 54 6f |n.      |ReturnTo|
|00013d50| 57 6f 72 6c 64 0d 20 20 | 20 20 65 6c 73 65 0d 20 |World.  |  else. |
|00013d60| 20 20 20 20 20 61 62 6f | 72 74 0d 20 20 20 20 20 |     abo|rt.     |
|00013d70| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 32 0d 20 | go to f|rame 2. |
|00013d80| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 65 6e 64 20 |   end i|f.  end |
|00013d90| 69 66 0d 20 20 0d 20 20 | 69 66 20 74 68 65 20 6d |if.  .  |if the m|
|00013da0| 61 63 68 69 6e 65 74 79 | 70 65 20 3d 20 32 35 36 |achinety|pe = 256|
|00013db0| 20 74 68 65 6e 20 0d 20 | 20 20 20 63 6c 6f 73 65 | then . |   close|
|00013dc0| 78 6c 69 62 28 74 68 65 | 20 70 61 74 68 6e 61 6d |xlib(the| pathnam|
|00013dd0| 65 20 26 20 22 66 69 6c | 65 69 6f 2e 64 6c 6c 22 |e & "fil|eio.dll"|
|00013de0| 29 20 20 0d 20 20 65 6e | 64 20 69 66 0d 20 20 0d |)  .  en|d if.  .|
|00013df0| 20 20 2d 2d 20 67 65 74 | 20 74 68 65 20 63 75 72 |  -- get| the cur|
|00013e00| 72 65 6e 74 20 63 75 74 | 74 69 6e 67 20 69 6e 64 |rent cut|ting ind|
|00013e10| 65 78 0d 20 20 73 65 74 | 20 63 75 74 74 69 6e 67 |ex.  set| cutting|
|00013e20| 69 6e 64 65 78 63 61 73 | 74 20 3d 20 74 68 65 20 |indexcas|t = the |
|00013e30| 6e 75 6d 62 65 72 20 6f | 66 20 63 61 73 74 20 28 |number o|f cast (|
|00013e40| 22 43 75 74 74 69 6e 67 | 49 6e 64 65 78 22 20 26 |"Cutting|Index" &|
|00013e50| 20 67 57 6f 72 6c 64 29 | 0d 20 20 73 65 74 20 74 | gWorld)|.  set t|
|00013e60| 6d 70 20 3d 20 62 73 65 | 61 72 63 68 28 67 4d 61 |mp = bse|arch(gMa|
|00013e70| 6b 65 72 4e 61 6d 65 2c | 20 63 75 74 74 69 6e 67 |kerName,| cutting|
|00013e80| 69 6e 64 65 78 63 61 73 | 74 29 0d 20 20 73 65 74 |indexcas|t).  set|
|00013e90| 20 67 43 75 72 49 6e 64 | 65 78 20 3d 20 6c 69 6e | gCurInd|ex = lin|
|00013ea0| 65 20 74 6d 70 20 6f 66 | 20 66 69 65 6c 64 20 63 |e tmp of| field c|
|00013eb0| 75 74 74 69 6e 67 69 6e | 64 65 78 63 61 73 74 0d |uttingin|dexcast.|
|00013ec0| 20 20 0d 20 20 0d 20 20 | 2d 2d 20 66 69 78 70 61 |  .  .  |-- fixpa|
|00013ed0| 6c 65 74 74 65 2c 20 62 | 75 74 20 6f 6e 6c 79 20 |lette, b|ut only |
|00013ee0| 63 61 6c 6c 20 69 74 20 | 6f 6e 20 61 20 4d 41 43 |call it |on a MAC|
|00013ef0| 0d 20 20 69 66 20 74 68 | 65 20 6d 61 63 68 69 6e |.  if th|e machin|
|00013f00| 65 74 79 70 65 20 3c 20 | 32 35 36 20 74 68 65 6e |etype < |256 then|
|00013f10| 20 20 20 20 0d 20 20 20 | 20 6f 70 65 6e 78 6c 69 |    .   | openxli|
|00013f20| 62 20 28 74 68 65 20 70 | 61 74 68 6e 61 6d 65 20 |b (the p|athname |
|00013f30| 26 20 22 46 69 78 50 61 | 6c 65 74 74 65 22 29 0d |& "FixPa|lette").|
|00013f40| 20 20 20 20 73 65 74 20 | 6f 62 6a 20 3d 20 66 69 |    set |obj = fi|
|00013f50| 78 70 61 6c 65 74 74 65 | 28 6d 4e 65 77 2c 30 2c |xpalette|(mNew,0,|
|00013f60| 30 2c 36 34 30 2c 34 38 | 30 29 0d 20 20 20 20 6f |0,640,48|0).    o|
|00013f70| 62 6a 28 6d 50 61 74 63 | 68 49 74 29 0d 20 20 20 |bj(mPatc|hIt).   |
|00013f80| 20 6f 62 6a 28 6d 44 69 | 73 70 6f 73 65 29 0d 20 | obj(mDi|spose). |
|00013f90| 20 20 20 63 6c 6f 73 65 | 78 6c 69 62 20 28 74 68 |   close|xlib (th|
|00013fa0| 65 20 70 61 74 68 6e 61 | 6d 65 20 26 20 22 46 69 |e pathna|me & "Fi|
|00013fb0| 78 50 61 6c 65 74 74 65 | 22 29 0d 20 20 65 6e 64 |xPalette|").  end|
|00013fc0| 20 69 66 0d 20 20 0d 20 | 20 0d 20 20 2d 2d 20 67 | if.  . | .  -- g|
|00013fd0| 65 74 20 74 68 65 20 6c | 69 73 74 20 6f 66 20 63 |et the l|ist of c|
|00013fe0| 68 61 70 74 65 72 20 74 | 69 74 6c 65 73 20 66 6f |hapter t|itles fo|
|00013ff0| 72 20 74 68 65 20 6e 61 | 76 20 62 75 74 74 6f 6e |r the na|v button|
|00014000| 0d 20 20 73 65 74 20 6e | 75 6d 20 3d 20 63 6f 75 |.  set n|um = cou|
|00014010| 6e 74 28 67 43 68 61 70 | 74 65 72 73 29 0d 20 20 |nt(gChap|ters).  |
|00014020| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|00014030| 66 69 65 6c 64 20 22 63 | 68 61 70 74 65 72 74 69 |field "c|hapterti|
|00014040| 74 6c 65 73 22 20 3d 20 | 22 49 4e 54 52 4f 44 55 |tles" = |"INTRODU|
|00014050| 43 54 49 4f 4e 22 0d 20 | 20 72 65 70 65 61 74 20 |CTION". | repeat |
|00014060| 77 69 74 68 20 69 20 3d | 20 32 20 74 6f 20 6e 75 |with i =| 2 to nu|
|00014070| 6d 0d 20 20 20 20 70 75 | 74 20 67 65 74 61 74 28 |m.    pu|t getat(|
|00014080| 67 43 68 61 70 74 65 72 | 73 2c 69 29 20 69 6e 74 |gChapter|s,i) int|
|00014090| 6f 20 6c 69 6e 65 20 69 | 20 6f 66 20 66 69 65 6c |o line i| of fiel|
|000140a0| 64 20 22 63 68 61 70 74 | 65 72 74 69 74 6c 65 73 |d "chapt|ertitles|
|000140b0| 22 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 20 |".  end |repeat. |
|000140c0| 20 2d 2d 70 75 74 20 22 | 46 4c 59 49 4e 47 20 46 | --put "|FLYING F|
|000140d0| 41 43 54 53 22 20 69 6e | 74 6f 20 6c 69 6e 65 20 |ACTS" in|to line |
|000140e0| 28 69 29 20 6f 66 20 66 | 69 65 6c 64 20 22 63 68 |(i) of f|ield "ch|
|000140f0| 61 70 74 65 72 74 69 74 | 6c 65 73 22 0d 20 20 0d |aptertit|les".  .|
|00014100| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f |  set th|e text o|
|00014110| 66 20 66 69 65 6c 64 20 | 22 43 75 72 72 65 6e 74 |f field |"Current|
|00014120| 41 72 74 69 63 6c 65 22 | 20 3d 20 22 20 22 0d 20 |Article"| = " ". |
|00014130| 20 73 65 74 20 74 68 65 | 20 74 65 78 74 20 6f 66 | set the| text of|
|00014140| 20 66 69 65 6c 64 20 22 | 43 75 72 72 65 6e 74 43 | field "|CurrentC|
|00014150| 68 61 70 74 65 72 22 20 | 3d 20 22 20 22 0d 20 20 |hapter" |= " ".  |
|00014160| 0d 20 20 2d 2d 20 68 69 | 64 65 20 6e 61 76 20 62 |.  -- hi|de nav b|
|00014170| 75 74 74 6f 6e 73 0d 20 | 20 73 65 74 20 74 68 65 |uttons. | set the|
|00014180| 20 76 69 73 69 62 6c 65 | 20 6f 66 20 73 70 72 69 | visible| of spri|
|00014190| 74 65 20 33 35 20 3d 20 | 30 0d 20 20 73 65 74 20 |te 35 = |0.  set |
|000141a0| 74 68 65 20 76 69 73 69 | 62 6c 65 20 6f 66 20 73 |the visi|ble of s|
|000141b0| 70 72 69 74 65 20 33 36 | 20 3d 20 30 0d 20 20 0d |prite 36| = 0.  .|
|000141c0| 20 20 2d 2d 20 68 69 64 | 65 20 66 20 61 6e 64 20 |  -- hid|e f and |
|000141d0| 62 20 62 75 74 74 6f 6e | 73 0d 20 20 73 65 74 20 |b button|s.  set |
|000141e0| 74 68 65 20 76 69 73 69 | 62 6c 65 20 6f 66 20 73 |the visi|ble of s|
|000141f0| 70 72 69 74 65 20 31 39 | 20 3d 20 30 0d 20 20 73 |prite 19| = 0.  s|
|00014200| 65 74 20 74 68 65 20 76 | 69 73 69 62 6c 65 20 6f |et the v|isible o|
|00014210| 66 20 73 70 72 69 74 65 | 20 32 30 20 3d 20 30 0d |f sprite| 20 = 0.|
|00014220| 20 20 0d 20 20 4e 61 76 | 42 75 74 74 6f 6e 57 69 |  .  Nav|ButtonWi|
|00014230| 6e 64 6f 77 0d 20 20 0d | 20 20 2d 2d 20 67 65 74 |ndow.  .|  -- get|
|00014240| 20 72 69 64 20 6f 66 20 | 74 68 65 20 62 6c 61 63 | rid of |the blac|
|00014250| 6b 20 63 6f 76 65 72 69 | 6e 67 20 74 68 65 20 73 |k coveri|ng the s|
|00014260| 63 72 65 65 6e 0d 20 20 | 55 6e 42 6c 61 63 6b 53 |creen.  |UnBlackS|
|00014270| 63 72 65 65 6e 0d 20 20 | 0d 20 20 2d 2d 20 70 6c |creen.  |.  -- pl|
|00014280| 61 79 20 73 6f 75 6e 64 | 0d 20 20 73 6f 75 6e 64 |ay sound|.  sound|
|00014290| 20 70 6c 61 79 66 69 6c | 65 20 31 2c 20 67 53 6f | playfil|e 1, gSo|
|000142a0| 75 6e 64 50 61 74 68 20 | 26 20 22 53 22 20 26 20 |undPath |& "S" & |
|000142b0| 67 4d 61 6b 65 72 4e 75 | 6d 0d 20 20 0d 20 20 70 |gMakerNu|m.  .  p|
|000142c0| 75 74 20 22 69 6e 69 74 | 69 61 6c 69 7a 69 6e 67 |ut "init|ializing|
|000142d0| 20 74 68 65 20 64 61 74 | 61 62 61 73 65 20 74 6f | the dat|abase to|
|000142e0| 6f 6b 3a 22 20 26 26 20 | 74 68 65 20 74 69 6d 65 |ok:" && |the time|
|000142f0| 72 20 26 26 20 22 74 69 | 63 6b 73 22 0d 20 20 0d |r && "ti|cks".  .|
|00014300| 65 6e 64 0d 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |end..---|--------|
|00014310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014350| 2d 2d 2d 0d 6f 6e 20 47 | 6f 43 68 61 70 74 65 72 |---.on G|oChapter|
|00014360| 20 6e 75 6d 0d 20 20 67 | 6c 6f 62 61 6c 20 67 43 | num.  g|lobal gC|
|00014370| 68 61 70 74 65 72 73 2c | 20 67 54 69 74 6c 65 73 |hapters,| gTitles|
|00014380| 2c 20 67 41 72 74 69 63 | 6c 65 73 2c 20 67 44 61 |, gArtic|les, gDa|
|00014390| 74 65 73 2c 20 67 43 61 | 70 74 69 6f 6e 73 20 0d |tes, gCa|ptions .|
|000143a0| 20 20 67 6c 6f 62 61 6c | 20 67 43 75 72 43 68 61 |  global| gCurCha|
|000143b0| 70 2c 20 67 43 75 72 41 | 72 74 69 63 6c 65 0d 20 |p, gCurA|rticle. |
|000143c0| 20 0d 20 20 73 65 74 20 | 6e 75 6d 63 68 61 70 73 | .  set |numchaps|
|000143d0| 20 3d 20 63 6f 75 6e 74 | 28 67 43 68 61 70 74 65 | = count|(gChapte|
|000143e0| 72 73 29 0d 20 20 0d 20 | 20 70 75 74 20 22 67 6f |rs).  . | put "go|
|000143f0| 63 68 61 70 20 22 20 26 | 26 20 6e 75 6d 0d 20 20 |chap " &|& num.  |
|00014400| 69 66 20 6e 75 6d 20 3e | 20 28 6e 75 6d 63 68 61 |if num >| (numcha|
|00014410| 70 73 2b 31 29 20 74 68 | 65 6e 20 65 78 69 74 0d |ps+1) th|en exit.|
|00014420| 20 20 69 66 20 6e 75 6d | 20 3c 20 31 20 74 68 65 |  if num| < 1 the|
|00014430| 6e 20 65 78 69 74 0d 20 | 20 0d 20 20 75 6e 70 75 |n exit. | .  unpu|
|00014440| 70 70 65 74 20 22 34 2c | 31 30 22 20 0d 20 20 0d |ppet "4,|10" .  .|
|00014450| 20 20 69 66 20 6e 75 6d | 20 3d 20 28 6e 75 6d 63 |  if num| = (numc|
|00014460| 68 61 70 73 20 2b 20 31 | 29 20 74 68 65 6e 20 0d |haps + 1|) then .|
|00014470| 20 20 20 20 2d 2d 20 47 | 6f 46 6c 79 69 6e 67 46 |    -- G|oFlyingF|
|00014480| 61 63 74 73 0d 20 20 65 | 6c 73 65 0d 20 20 20 20 |acts.  e|lse.    |
|00014490| 73 65 74 20 67 43 75 72 | 43 68 61 70 20 3d 20 6e |set gCur|Chap = n|
|000144a0| 75 6d 0d 20 20 20 20 73 | 65 74 20 67 43 75 72 41 |um.    s|et gCurA|
|000144b0| 72 74 69 63 6c 65 20 3d | 20 31 0d 20 20 20 20 47 |rticle =| 1.    G|
|000144c0| 6f 41 72 74 69 63 6c 65 | 20 20 0d 20 20 65 6e 64 |oArticle|  .  end|
|000144d0| 20 69 66 0d 20 20 0d 65 | 6e 64 0d 0d 2d 2d 2d 2d | if.  .e|nd..----|
|000144e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000144f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 0d 0d 6f 6e 20 |--------|--...on |
|00014530| 47 6f 46 6c 79 69 6e 67 | 46 61 63 74 73 0d 20 20 |GoFlying|Facts.  |
|00014540| 67 6c 6f 62 61 6c 20 67 | 4e 75 67 67 65 74 73 2c |global g|Nuggets,|
|00014550| 20 67 57 6f 72 6c 64 2c | 20 67 4e 61 6d 65 6c 6f | gWorld,| gNamelo|
|00014560| 63 68 2c 20 67 4e 61 6d | 65 6c 6f 63 76 2c 20 67 |ch, gNam|elocv, g|
|00014570| 4e 61 6d 65 43 61 73 74 | 6e 75 6d 2c 20 67 68 65 |NameCast|num, ghe|
|00014580| 61 64 6c 6f 63 68 0d 20 | 20 67 6c 6f 62 61 6c 20 |adloch. | global |
|00014590| 67 4d 61 6b 65 72 6e 75 | 6d 2c 20 67 46 6c 79 69 |gMakernu|m, gFlyi|
|000145a0| 6e 67 46 61 63 74 73 2c | 20 67 41 72 74 69 63 6c |ngFacts,| gArticl|
|000145b0| 65 50 61 67 65 2c 20 67 | 54 65 78 74 50 61 67 65 |ePage, g|TextPage|
|000145c0| 73 2c 20 67 4d 61 78 4c | 69 6e 65 73 0d 20 20 0d |s, gMaxL|ines.  .|
|000145d0| 20 20 73 65 74 20 6e 61 | 6d 65 73 70 72 69 74 65 |  set na|mesprite|
|000145e0| 20 3d 20 34 0d 20 20 73 | 65 74 20 68 65 61 64 73 | = 4.  s|et heads|
|000145f0| 70 72 69 74 65 20 3d 20 | 31 30 0d 20 20 0d 20 20 |prite = |10.  .  |
|00014600| 2d 2d 20 70 75 74 20 74 | 68 65 20 6e 61 6d 65 20 |-- put t|he name |
|00014610| 62 69 74 6d 61 70 20 61 | 6e 64 20 74 68 65 20 20 |bitmap a|nd the  |
|00014620| 68 65 61 64 73 68 6f 74 | 20 69 6e 20 74 68 65 20 |headshot| in the |
|00014630| 72 69 67 68 74 20 70 6c | 61 63 65 2c 20 69 6e 20 |right pl|ace, in |
|00014640| 63 61 73 65 20 77 65 27 | 76 65 20 6d 6f 76 65 64 |case we'|ve moved|
|00014650| 0d 20 20 2d 2d 20 74 68 | 65 6d 2c 20 66 6f 72 20 |.  -- th|em, for |
|00014660| 65 78 61 6d 70 6c 65 2c | 20 69 6e 20 74 68 65 20 |example,| in the |
|00014670| 63 75 74 74 69 6e 67 73 | 0d 20 20 69 66 20 67 57 |cuttings|.  if gW|
|00014680| 6f 72 6c 64 20 3d 20 22 | 64 65 73 69 67 6e 22 20 |orld = "|design" |
|00014690| 61 6e 64 20 74 68 65 20 | 66 72 61 6d 65 6c 61 62 |and the |framelab|
|000146a0| 65 6c 20 3d 20 22 63 75 | 74 74 69 6e 67 22 20 74 |el = "cu|tting" t|
|000146b0| 68 65 6e 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |hen.    |set the |
|000146c0| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 6e |loch of |sprite n|
|000146d0| 61 6d 65 73 70 72 69 74 | 65 20 3d 20 31 30 30 30 |amesprit|e = 1000|
|000146e0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 63 61 73 |.    set| the cas|
|000146f0| 74 6e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 6e |tnum of |sprite n|
|00014700| 61 6d 65 73 70 72 69 74 | 65 20 3d 20 67 4e 61 6d |amesprit|e = gNam|
|00014710| 65 43 61 73 74 6e 75 6d | 20 20 0d 20 20 65 6e 64 |eCastnum|  .  end|
|00014720| 20 69 66 0d 20 20 73 65 | 74 20 74 68 65 20 6c 6f | if.  se|t the lo|
|00014730| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 68 65 61 |ch of sp|rite hea|
|00014740| 64 73 70 72 69 74 65 20 | 3d 20 67 68 65 61 64 6c |dsprite |= gheadl|
|00014750| 6f 63 68 0d 20 20 0d 20 | 20 73 65 74 20 67 46 6c |och.  . | set gFl|
|00014760| 79 69 6e 67 46 61 63 74 | 73 20 3d 20 22 20 22 0d |yingFact|s = " ".|
|00014770| 20 20 0d 20 20 73 65 74 | 20 74 68 65 20 69 74 65 |  .  set| the ite|
|00014780| 6d 64 65 6c 69 6d 69 74 | 65 72 20 3d 20 22 40 22 |mdelimit|er = "@"|
|00014790| 0d 20 20 73 65 74 20 74 | 6d 70 6e 75 67 67 65 74 |.  set t|mpnugget|
|000147a0| 20 3d 20 69 74 65 6d 20 | 67 4d 61 6b 65 72 6e 75 | = item |gMakernu|
|000147b0| 6d 20 6f 66 20 66 69 65 | 6c 64 20 28 22 6d 61 6b |m of fie|ld ("mak|
|000147c0| 65 72 6e 75 67 67 65 74 | 22 20 26 20 28 28 67 4d |ernugget|" & ((gM|
|000147d0| 61 6b 65 72 6e 75 6d 2f | 32 30 29 2b 31 29 29 0d |akernum/|20)+1)).|
|000147e0| 20 20 0d 20 20 73 65 74 | 20 74 68 65 20 69 74 65 |  .  set| the ite|
|000147f0| 6d 64 65 6c 69 6d 69 74 | 65 72 20 3d 20 22 23 22 |mdelimit|er = "#"|
|00014800| 0d 20 20 73 65 74 20 6e | 75 6d 20 3d 20 74 68 65 |.  set n|um = the|
|00014810| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|00014820| 20 6f 66 20 74 6d 70 6e | 75 67 67 65 74 0d 20 20 | of tmpn|ugget.  |
|00014830| 0d 20 20 72 65 70 65 61 | 74 20 77 69 74 68 20 69 |.  repea|t with i|
|00014840| 20 3d 20 31 20 74 6f 20 | 6e 75 6d 0d 20 20 20 20 | = 1 to |num.    |
|00014850| 70 75 74 20 69 74 65 6d | 20 69 20 6f 66 20 74 6d |put item| i of tm|
|00014860| 70 6e 75 67 67 65 74 20 | 26 20 72 65 74 75 72 6e |pnugget |& return|
|00014870| 20 61 66 74 65 72 20 67 | 46 6c 79 69 6e 67 46 61 | after g|FlyingFa|
|00014880| 63 74 73 0d 20 20 20 20 | 2d 2d 20 70 75 74 20 69 |cts.    |-- put i|
|00014890| 74 65 6d 20 69 20 6f 66 | 20 67 4e 75 67 67 65 74 |tem i of| gNugget|
|000148a0| 73 20 26 20 72 65 74 75 | 72 6e 20 26 20 72 65 74 |s & retu|rn & ret|
|000148b0| 75 72 6e 20 61 66 74 65 | 72 20 67 46 6c 79 69 6e |urn afte|r gFlyin|
|000148c0| 67 46 61 63 74 73 20 0d | 20 20 65 6e 64 20 72 65 |gFacts .|  end re|
|000148d0| 70 65 61 74 0d 20 20 0d | 20 20 64 65 6c 65 74 65 |peat.  .|  delete|
|000148e0| 20 63 68 61 72 20 31 20 | 6f 66 20 67 46 6c 79 69 | char 1 |of gFlyi|
|000148f0| 6e 67 46 61 63 74 73 0d | 20 20 64 65 6c 65 74 65 |ngFacts.|  delete|
|00014900| 20 6c 69 6e 65 20 31 20 | 6f 66 20 67 46 6c 79 69 | line 1 |of gFlyi|
|00014910| 6e 67 46 61 63 74 73 0d | 20 20 69 66 20 74 68 65 |ngFacts.|  if the|
|00014920| 20 6c 61 73 74 20 6c 69 | 6e 65 20 6f 66 20 67 46 | last li|ne of gF|
|00014930| 6c 79 69 6e 67 46 61 63 | 74 73 20 3d 20 22 22 20 |lyingFac|ts = "" |
|00014940| 74 68 65 6e 20 64 65 6c | 65 74 65 20 74 68 65 20 |then del|ete the |
|00014950| 6c 61 73 74 20 6c 69 6e | 65 20 6f 66 20 67 46 6c |last lin|e of gFl|
|00014960| 79 69 6e 67 46 61 63 74 | 73 0d 20 20 0d 20 20 73 |yingFact|s.  .  s|
|00014970| 65 74 20 74 68 65 20 69 | 74 65 6d 64 65 6c 69 6d |et the i|temdelim|
|00014980| 69 74 65 72 20 3d 20 22 | 2c 22 0d 20 20 69 66 20 |iter = "|,".  if |
|00014990| 67 57 6f 72 6c 64 20 3d | 20 22 50 6f 77 65 72 22 |gWorld =| "Power"|
|000149a0| 20 74 68 65 6e 20 0d 20 | 20 20 20 73 65 74 20 67 | then . |   set g|
|000149b0| 4d 61 78 4c 69 6e 65 73 | 20 3d 20 31 39 0d 20 20 |MaxLines| = 19.  |
|000149c0| 65 6c 73 65 20 69 66 20 | 67 57 6f 72 6c 64 20 3d |else if |gWorld =|
|000149d0| 20 22 53 65 6e 73 65 73 | 22 20 74 68 65 6e 20 0d | "Senses|" then .|
|000149e0| 20 20 20 20 73 65 74 20 | 67 4d 61 78 4c 69 6e 65 |    set |gMaxLine|
|000149f0| 73 20 3d 20 32 35 0d 20 | 20 65 6c 73 65 20 69 66 |s = 25. | else if|
|00014a00| 20 67 57 6f 72 6c 64 20 | 3d 20 22 62 6f 64 79 22 | gWorld |= "body"|
|00014a10| 20 74 68 65 6e 20 0d 20 | 20 20 20 73 65 74 20 67 | then . |   set g|
|00014a20| 4d 61 78 4c 69 6e 65 73 | 20 3d 20 32 32 0d 20 20 |MaxLines| = 22.  |
|00014a30| 65 6c 73 65 0d 20 20 20 | 20 73 65 74 20 67 4d 61 |else.   | set gMa|
|00014a40| 78 4c 69 6e 65 73 20 3d | 20 32 30 0d 20 20 65 6e |xLines =| 20.  en|
|00014a50| 64 20 69 66 0d 20 20 0d | 20 20 73 65 74 20 74 68 |d if.  .|  set th|
|00014a60| 65 20 74 65 78 74 20 6f | 66 20 66 69 65 6c 64 20 |e text o|f field |
|00014a70| 22 66 6c 79 69 6e 67 66 | 61 63 74 73 22 20 3d 20 |"flyingf|acts" = |
|00014a80| 6c 69 6e 65 20 31 20 74 | 6f 20 67 4d 61 78 4c 69 |line 1 t|o gMaxLi|
|00014a90| 6e 65 73 20 6f 66 20 67 | 46 6c 79 69 6e 67 46 61 |nes of g|FlyingFa|
|00014aa0| 63 74 73 0d 20 20 0d 20 | 20 73 65 74 20 6e 75 6d |cts.  . | set num|
|00014ab0| 6c 69 6e 65 73 20 3d 20 | 28 74 68 65 20 6e 75 6d |lines = |(the num|
|00014ac0| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 6f 66 20 |ber of l|ines of |
|00014ad0| 67 46 6c 79 69 6e 67 46 | 61 63 74 73 29 0d 20 20 |gFlyingF|acts).  |
|00014ae0| 73 65 74 20 74 6d 70 70 | 61 67 65 73 20 3d 20 6e |set tmpp|ages = n|
|00014af0| 75 6d 6c 69 6e 65 73 2f | 67 4d 61 78 4c 69 6e 65 |umlines/|gMaxLine|
|00014b00| 73 0d 20 20 0d 20 20 69 | 66 20 74 6d 70 70 61 67 |s.  .  i|f tmppag|
|00014b10| 65 73 20 2a 20 67 4d 61 | 78 4c 69 6e 65 73 20 3d |es * gMa|xLines =|
|00014b20| 20 6e 75 6d 6c 69 6e 65 | 73 20 74 68 65 6e 0d 20 | numline|s then. |
|00014b30| 20 20 20 73 65 74 20 67 | 54 65 78 74 50 61 67 65 |   set g|TextPage|
|00014b40| 73 20 3d 20 74 6d 70 70 | 61 67 65 73 0d 20 20 65 |s = tmpp|ages.  e|
|00014b50| 6c 73 65 0d 20 20 20 20 | 73 65 74 20 67 54 65 78 |lse.    |set gTex|
|00014b60| 74 50 61 67 65 73 20 3d | 20 74 6d 70 70 61 67 65 |tPages =| tmppage|
|00014b70| 73 20 2b 20 31 0d 20 20 | 65 6e 64 20 69 66 0d 20 |s + 1.  |end if. |
|00014b80| 20 0d 20 20 73 65 74 20 | 67 41 72 74 69 63 6c 65 | .  set |gArticle|
|00014b90| 50 61 67 65 20 3d 20 31 | 0d 20 20 67 6f 20 74 6f |Page = 1|.  go to|
|00014ba0| 20 66 72 61 6d 65 20 22 | 66 61 63 74 73 22 20 20 | frame "|facts"  |
|00014bb0| 0d 20 20 0d 20 20 69 66 | 20 67 57 6f 72 6c 64 20 |.  .  if| gWorld |
|00014bc0| 3d 20 22 53 65 6e 73 65 | 73 22 20 6f 72 20 67 57 |= "Sense|s" or gW|
|00014bd0| 6f 72 6c 64 20 3d 20 22 | 44 65 73 69 67 6e 22 20 |orld = "|Design" |
|00014be0| 74 68 65 6e 0d 20 20 20 | 20 73 65 74 20 74 68 65 |then.   | set the|
|00014bf0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|00014c00| 6e 61 6d 65 73 70 72 69 | 74 65 20 3d 20 67 4e 61 |namespri|te = gNa|
|00014c10| 6d 65 4c 6f 63 68 0d 20 | 20 20 20 73 65 74 20 74 |meLoch. |   set t|
|00014c20| 68 65 20 6c 6f 63 76 20 | 6f 66 20 73 70 72 69 74 |he locv |of sprit|
|00014c30| 65 20 6e 61 6d 65 73 70 | 72 69 74 65 20 3d 20 67 |e namesp|rite = g|
|00014c40| 4e 61 6d 65 4c 6f 63 76 | 0d 20 20 65 6e 64 20 69 |NameLocv|.  end i|
|00014c50| 66 0d 20 20 0d 20 20 73 | 65 74 20 74 68 65 20 74 |f.  .  s|et the t|
|00014c60| 65 78 74 20 6f 66 20 66 | 69 65 6c 64 20 22 63 75 |ext of f|ield "cu|
|00014c70| 72 72 65 6e 74 63 68 61 | 70 74 65 72 22 20 3d 20 |rrentcha|pter" = |
|00014c80| 22 46 4c 59 49 4e 47 20 | 46 41 43 54 53 22 0d 20 |"FLYING |FACTS". |
|00014c90| 20 73 65 74 20 74 68 65 | 20 74 65 78 74 20 6f 66 | set the| text of|
|00014ca0| 20 66 69 65 6c 64 20 22 | 63 75 72 72 65 6e 74 61 | field "|currenta|
|00014cb0| 72 74 69 63 6c 65 22 20 | 3d 20 22 31 2f 31 22 0d |rticle" |= "1/1".|
|00014cc0| 20 20 0d 20 20 73 65 74 | 20 74 68 65 20 76 69 73 |  .  set| the vis|
|00014cd0| 69 62 6c 65 20 6f 66 20 | 73 70 72 69 74 65 20 33 |ible of |sprite 3|
|00014ce0| 35 20 3d 20 30 0d 20 20 | 73 65 74 20 74 68 65 20 |5 = 0.  |set the |
|00014cf0| 76 69 73 69 62 6c 65 20 | 6f 66 20 73 70 72 69 74 |visible |of sprit|
|00014d00| 65 20 33 36 20 3d 20 30 | 0d 20 20 0d 20 20 73 65 |e 36 = 0|.  .  se|
|00014d10| 74 20 74 68 65 20 76 69 | 73 69 62 6c 65 20 6f 66 |t the vi|sible of|
|00014d20| 20 73 70 72 69 74 65 20 | 31 39 20 3d 20 30 0d 20 | sprite |19 = 0. |
|00014d30| 20 69 66 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f | if the |number o|
|00014d40| 66 20 6c 69 6e 65 73 20 | 6f 66 20 67 46 6c 79 69 |f lines |of gFlyi|
|00014d50| 6e 67 46 61 63 74 73 20 | 3e 20 67 4d 61 78 4c 69 |ngFacts |> gMaxLi|
|00014d60| 6e 65 73 20 74 68 65 6e | 0d 20 20 20 20 73 65 74 |nes then|.    set|
|00014d70| 20 74 68 65 20 76 69 73 | 69 62 6c 65 20 6f 66 20 | the vis|ible of |
|00014d80| 73 70 72 69 74 65 20 32 | 30 20 3d 20 31 0d 20 20 |sprite 2|0 = 1.  |
|00014d90| 65 6c 73 65 0d 20 20 20 | 20 73 65 74 20 74 68 65 |else.   | set the|
|00014da0| 20 76 69 73 69 62 6c 65 | 20 6f 66 20 73 70 72 69 | visible| of spri|
|00014db0| 74 65 20 32 30 20 3d 20 | 30 0d 20 20 65 6e 64 20 |te 20 = |0.  end |
|00014dc0| 69 66 0d 65 6e 64 0d 0d | 2d 2d 2d 2d 2d 2d 2d 2d |if.end..|--------|
|00014dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014e10| 2d 2d 2d 2d 2d 2d 0d 6f | 6e 20 4e 61 6d 65 54 6f |------.o|n NameTo|
|00014e20| 4e 75 6d 20 6e 61 6d 65 | 0d 20 20 73 65 74 20 6e |Num name|.  set n|
|00014e30| 75 6d 20 3d 20 62 73 65 | 61 72 63 68 28 6e 61 6d |um = bse|arch(nam|
|00014e40| 65 2c 22 4d 61 6b 65 72 | 4c 69 73 74 22 29 20 20 |e,"Maker|List")  |
|00014e50| 0d 20 20 72 65 74 75 72 | 6e 20 20 76 61 6c 75 65 |.  retur|n  value|
|00014e60| 28 69 74 65 6d 20 32 20 | 6f 66 20 6c 69 6e 65 20 |(item 2 |of line |
|00014e70| 6e 75 6d 20 6f 66 20 66 | 69 65 6c 64 20 22 4d 61 |num of f|ield "Ma|
|00014e80| 6b 65 72 4c 69 73 74 22 | 29 0d 65 6e 64 0d 2d 2d |kerList"|).end.--|
|00014e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00014ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 6f 6e 20 |--------|----.on |
|00014ee0| 49 6e 69 74 44 61 74 61 | 47 6c 6f 62 61 6c 73 0d |InitData|Globals.|
|00014ef0| 20 20 67 6c 6f 62 61 6c | 20 67 44 65 6c 69 6d 2c |  global| gDelim,|
|00014f00| 20 67 57 6f 72 6c 64 2c | 20 6d 50 61 74 68 2c 20 | gWorld,| mPath, |
|00014f10| 67 4d 61 6b 65 72 4e 61 | 6d 65 2c 20 67 4d 61 6b |gMakerNa|me, gMak|
|00014f20| 65 72 4e 75 6d 2c 20 67 | 53 6f 75 6e 64 50 61 74 |erNum, g|SoundPat|
|00014f30| 68 2c 20 67 51 54 50 61 | 74 68 2c 20 67 44 72 69 |h, gQTPa|th, gDri|
|00014f40| 76 65 0d 20 20 67 6c 6f | 62 61 6c 20 67 51 54 62 |ve.  glo|bal gQTb|
|00014f50| 75 74 74 6f 6e 73 2c 20 | 67 4d 61 6b 65 72 73 50 |uttons, |gMakersP|
|00014f60| 61 74 68 2c 20 67 51 54 | 41 6e 69 6d 70 61 74 68 |ath, gQT|Animpath|
|00014f70| 2c 20 67 43 6c 69 63 6b | 53 6e 64 43 61 73 74 0d |, gClick|SndCast.|
|00014f80| 20 20 0d 20 20 2d 2d 20 | 74 68 65 20 63 61 73 74 |  .  -- |the cast|
|00014f90| 6e 75 6d 20 6f 66 20 74 | 68 65 20 63 6c 69 63 6b |num of t|he click|
|00014fa0| 20 73 6f 75 6e 64 0d 20 | 20 73 65 74 20 67 43 6c | sound. | set gCl|
|00014fb0| 69 63 6b 53 6e 64 43 61 | 73 74 20 3d 20 74 68 65 |ickSndCa|st = the|
|00014fc0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|00014fd0| 22 63 6c 69 63 6b 22 0d | 20 20 0d 20 20 70 75 74 |"click".|  .  put|
|00014fe0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|00014ff0| 61 73 74 20 22 71 74 70 | 6c 61 79 22 20 69 6e 74 |ast "qtp|lay" int|
|00015000| 6f 20 69 74 65 6d 20 31 | 20 6f 66 20 67 51 54 62 |o item 1| of gQTb|
|00015010| 75 74 74 6f 6e 73 0d 20 | 20 70 75 74 20 74 68 65 |uttons. | put the|
|00015020| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|00015030| 22 71 74 73 74 6f 70 22 | 20 69 6e 74 6f 20 69 74 |"qtstop"| into it|
|00015040| 65 6d 20 32 20 6f 66 20 | 67 51 54 62 75 74 74 6f |em 2 of |gQTbutto|
|00015050| 6e 73 0d 20 20 0d 20 20 | 69 66 20 74 68 65 20 6d |ns.  .  |if the m|
|00015060| 61 63 68 69 6e 65 74 79 | 70 65 20 3c 3e 20 32 35 |achinety|pe <> 25|
|00015070| 36 20 74 68 65 6e 0d 20 | 20 20 20 2d 2d 20 6d 61 |6 then. |   -- ma|
|00015080| 63 69 6e 74 6f 73 68 0d | 20 20 20 20 0d 20 20 20 |cintosh.|    .   |
|00015090| 20 73 65 74 20 67 44 65 | 6c 69 6d 20 3d 20 22 3a | set gDe|lim = ":|
|000150a0| 22 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 69 74 |".    se|t the it|
|000150b0| 65 6d 64 65 6c 69 6d 69 | 74 65 72 20 3d 20 67 44 |emdelimi|ter = gD|
|000150c0| 65 6c 69 6d 0d 20 20 20 | 20 73 65 74 20 67 44 72 |elim.   | set gDr|
|000150d0| 69 76 65 20 3d 20 69 74 | 65 6d 20 31 20 6f 66 20 |ive = it|em 1 of |
|000150e0| 74 68 65 20 70 61 74 68 | 6e 61 6d 65 0d 20 20 20 |the path|name.   |
|000150f0| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|00015100| 69 6d 69 74 65 72 20 3d | 20 22 2c 22 0d 20 20 65 |imiter =| ",".  e|
|00015110| 6c 73 65 0d 20 20 20 20 | 2d 2d 20 50 43 0d 20 20 |lse.    |-- PC.  |
|00015120| 20 20 0d 20 20 20 20 73 | 65 74 20 67 44 65 6c 69 |  .    s|et gDeli|
|00015130| 6d 20 3d 20 22 5c 22 0d | 20 20 20 20 73 65 74 20 |m = "\".|    set |
|00015140| 74 68 65 20 69 74 65 6d | 64 65 6c 69 6d 69 74 65 |the item|delimite|
|00015150| 72 20 3d 20 67 44 65 6c | 69 6d 0d 20 20 20 20 73 |r = gDel|im.    s|
|00015160| 65 74 20 67 44 72 69 76 | 65 20 3d 20 69 74 65 6d |et gDriv|e = item|
|00015170| 20 31 20 6f 66 20 74 68 | 65 20 70 61 74 68 6e 61 | 1 of th|e pathna|
|00015180| 6d 65 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 69 |me.    s|et the i|
|00015190| 74 65 6d 64 65 6c 69 6d | 69 74 65 72 20 3d 20 22 |temdelim|iter = "|
|000151a0| 2c 22 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 0d 20 |,".  end| if.  . |
|000151b0| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|000151c0| 69 6d 69 74 65 72 20 3d | 20 22 2e 22 0d 20 20 73 |imiter =| ".".  s|
|000151d0| 65 74 20 67 57 6f 72 6c | 64 20 3d 20 69 74 65 6d |et gWorl|d = item|
|000151e0| 20 31 20 6f 66 20 74 68 | 65 20 6d 6f 76 69 65 6e | 1 of th|e movien|
|000151f0| 61 6d 65 0d 20 20 73 65 | 74 20 74 68 65 20 69 74 |ame.  se|t the it|
|00015200| 65 6d 64 65 6c 69 6d 69 | 74 65 72 20 3d 20 22 2c |emdelimi|ter = ",|
|00015210| 22 0d 20 20 0d 20 20 2d | 2d 20 74 68 65 20 70 61 |".  .  -|- the pa|
|00015220| 74 68 6e 61 6d 65 20 66 | 6f 72 20 74 68 65 20 73 |thname f|or the s|
|00015230| 63 72 69 70 74 20 61 6e | 64 20 74 65 78 74 20 66 |cript an|d text f|
|00015240| 69 6c 65 73 0d 20 20 73 | 65 74 20 6d 50 61 74 68 |iles.  s|et mPath|
|00015250| 20 3d 20 74 68 65 20 70 | 61 74 68 6e 61 6d 65 20 | = the p|athname |
|00015260| 26 20 67 57 6f 72 6c 64 | 20 26 20 67 44 65 6c 69 |& gWorld| & gDeli|
|00015270| 6d 0d 20 20 0d 20 20 2d | 2d 20 74 68 65 20 70 61 |m.  .  -|- the pa|
|00015280| 74 68 6e 61 6d 65 20 66 | 6f 72 20 74 68 65 20 51 |thname f|or the Q|
|00015290| 54 27 73 20 61 6e 64 20 | 53 6f 75 6e 64 73 0d 20 |T's and |Sounds. |
|000152a0| 20 73 65 74 20 67 53 6f | 75 6e 64 50 61 74 68 20 | set gSo|undPath |
|000152b0| 3d 20 67 44 72 69 76 65 | 20 26 20 67 44 65 6c 69 |= gDrive| & gDeli|
|000152c0| 6d 20 26 20 22 53 4f 55 | 4e 44 44 42 22 20 26 20 |m & "SOU|NDDB" & |
|000152d0| 67 44 65 6c 69 6d 0d 20 | 20 73 65 74 20 67 51 54 |gDelim. | set gQT|
|000152e0| 70 61 74 68 20 3d 20 67 | 44 72 69 76 65 20 26 20 |path = g|Drive & |
|000152f0| 67 44 65 6c 69 6d 20 26 | 20 22 51 54 44 42 22 20 |gDelim &| "QTDB" |
|00015300| 26 20 67 44 65 6c 69 6d | 0d 20 20 73 65 74 20 67 |& gDelim|.  set g|
|00015310| 51 54 41 6e 69 6d 70 61 | 74 68 20 3d 20 67 44 72 |QTAnimpa|th = gDr|
|00015320| 69 76 65 20 26 20 67 44 | 65 6c 69 6d 20 26 20 22 |ive & gD|elim & "|
|00015330| 51 54 41 4e 49 4d 22 20 | 26 20 67 44 65 6c 69 6d |QTANIM" |& gDelim|
|00015340| 0d 20 20 73 65 74 20 67 | 4d 61 6b 65 72 73 50 61 |.  set g|MakersPa|
|00015350| 74 68 20 3d 20 67 44 72 | 69 76 65 20 26 20 67 44 |th = gDr|ive & gD|
|00015360| 65 6c 69 6d 20 26 20 22 | 4d 41 4b 45 52 53 22 20 |elim & "|MAKERS" |
|00015370| 26 20 67 44 65 6c 69 6d | 0d 20 20 0d 20 20 2d 2d |& gDelim|.  .  --|
|00015380| 20 74 68 65 20 6d 61 6b | 65 72 73 20 6e 61 6d 65 | the mak|ers name|
|00015390| 20 66 72 6f 6d 20 74 68 | 65 20 6c 69 73 74 0d 20 | from th|e list. |
|000153a0| 20 73 65 74 20 67 4d 61 | 6b 65 72 4e 61 6d 65 20 | set gMa|kerName |
|000153b0| 3d 20 77 6f 72 64 20 31 | 20 6f 66 20 6c 69 6e 65 |= word 1| of line|
|000153c0| 20 76 61 6c 75 65 28 67 | 4d 61 6b 65 72 4e 75 6d | value(g|MakerNum|
|000153d0| 29 20 6f 66 20 66 69 65 | 6c 64 20 22 4d 61 6b 65 |) of fie|ld "Make|
|000153e0| 72 4e 75 6d 4c 69 73 74 | 22 0d 65 6e 64 0d 0d 2d |rNumList|".end..-|
|000153f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 6f 6e |--------|-----.on|
|00015440| 20 41 64 6a 75 73 74 54 | 65 78 74 20 74 78 74 2c | AdjustT|ext txt,|
|00015450| 6d 61 78 6c 69 6e 65 73 | 0d 20 20 2d 2d 20 74 68 |maxlines|.  -- th|
|00015460| 69 73 20 61 64 6a 75 73 | 74 73 20 74 68 65 20 74 |is adjus|ts the t|
|00015470| 65 78 74 20 73 6f 20 74 | 68 61 74 20 74 68 65 72 |ext so t|hat ther|
|00015480| 65 20 61 72 65 20 6e 6f | 20 62 6c 61 6e 6b 20 6c |e are no| blank l|
|00015490| 69 6e 65 73 20 6f 6e 20 | 74 68 65 20 62 65 67 69 |ines on |the begi|
|000154a0| 6e 6e 69 6e 67 20 6f 66 | 20 0d 20 20 2d 2d 20 70 |nning of| .  -- p|
|000154b0| 61 67 65 73 2c 20 61 6e | 64 20 6e 6f 20 73 6f 6c |ages, an|d no sol|
|000154c0| 69 74 61 72 79 20 6c 69 | 6e 65 73 20 6f 6e 20 74 |itary li|nes on t|
|000154d0| 68 65 20 65 6e 64 73 20 | 6f 66 20 70 61 67 65 73 |he ends |of pages|
|000154e0| 0d 20 20 0d 20 20 73 65 | 74 20 6e 75 6d 6c 69 6e |.  .  se|t numlin|
|000154f0| 65 73 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |es = the| number |
|00015500| 6f 66 20 6c 69 6e 65 73 | 20 6f 66 20 74 78 74 0d |of lines| of txt.|
|00015510| 20 20 73 65 74 20 6e 75 | 6d 70 61 67 65 73 20 3d |  set nu|mpages =|
|00015520| 20 6e 75 6d 6c 69 6e 65 | 73 20 2f 20 6d 61 78 6c | numline|s / maxl|
|00015530| 69 6e 65 73 0d 20 20 69 | 66 20 28 6e 75 6d 70 61 |ines.  i|f (numpa|
|00015540| 67 65 73 20 2a 20 6e 75 | 6d 6c 69 6e 65 73 29 20 |ges * nu|mlines) |
|00015550| 3c 20 6e 75 6d 6c 69 6e | 65 73 20 74 68 65 6e 20 |< numlin|es then |
|00015560| 73 65 74 20 6e 75 6d 70 | 61 67 65 73 20 3d 20 6e |set nump|ages = n|
|00015570| 75 6d 70 61 67 65 73 20 | 2b 20 31 0d 20 20 0d 20 |umpages |+ 1.  . |
|00015580| 20 72 65 70 65 61 74 20 | 77 69 74 68 20 69 20 3d | repeat |with i =|
|00015590| 20 31 20 74 6f 20 6e 75 | 6d 70 61 67 65 73 0d 20 | 1 to nu|mpages. |
|000155a0| 20 20 20 69 66 20 6c 69 | 6e 65 20 20 28 28 28 69 |   if li|ne  (((i|
|000155b0| 2d 31 29 20 2a 20 6d 61 | 78 6c 69 6e 65 73 29 2b |-1) * ma|xlines)+|
|000155c0| 31 29 20 6f 66 20 74 78 | 74 20 3d 20 72 65 74 75 |1) of tx|t = retu|
|000155d0| 72 6e 20 74 68 65 6e 20 | 64 65 6c 65 74 65 20 c2 |rn then |delete .|
|000155e0| 0d 20 20 20 20 20 20 20 | 20 6c 69 6e 65 20 20 28 |.       | line  (|
|000155f0| 28 28 69 2d 31 29 20 2a | 20 6d 61 78 6c 69 6e 65 |((i-1) *| maxline|
|00015600| 73 29 2b 31 29 20 6f 66 | 20 74 78 74 0d 20 20 20 |s)+1) of| txt.   |
|00015610| 20 69 66 20 6c 69 6e 65 | 20 28 28 69 20 2a 20 6d | if line| ((i * m|
|00015620| 61 78 6c 69 6e 65 73 29 | 2d 31 29 20 6f 66 20 74 |axlines)|-1) of t|
|00015630| 78 74 20 3d 20 72 65 74 | 75 72 6e 20 74 68 65 6e |xt = ret|urn then|
|00015640| 20 0d 20 20 20 20 20 20 | 73 65 74 20 74 6d 70 20 | .      |set tmp |
|00015650| 3d 20 6c 69 6e 65 20 28 | 69 20 2a 20 6d 61 78 6c |= line (|i * maxl|
|00015660| 69 6e 65 73 29 20 74 6f | 20 6e 75 6d 6c 69 6e 65 |ines) to| numline|
|00015670| 73 20 6f 66 20 74 78 74 | 0d 20 20 20 20 20 20 64 |s of txt|.      d|
|00015680| 65 6c 65 74 65 20 6c 69 | 6e 65 20 28 69 20 2a 20 |elete li|ne (i * |
|00015690| 6d 61 78 6c 69 6e 65 73 | 29 20 74 6f 20 6e 75 6d |maxlines|) to num|
|000156a0| 6c 69 6e 65 73 20 6f 66 | 20 74 78 74 0d 20 20 20 |lines of| txt.   |
|000156b0| 20 20 20 70 75 74 20 72 | 65 74 75 72 6e 20 69 6e |   put r|eturn in|
|000156c0| 74 6f 20 6c 69 6e 65 20 | 28 69 2a 6d 61 78 6c 69 |to line |(i*maxli|
|000156d0| 6e 65 73 29 20 6f 66 20 | 74 78 74 0d 20 20 20 20 |nes) of |txt.    |
|000156e0| 20 20 70 75 74 20 72 65 | 74 75 72 6e 20 26 20 74 |  put re|turn & t|
|000156f0| 6d 70 20 61 66 74 65 72 | 20 74 78 74 0d 20 20 20 |mp after| txt.   |
|00015700| 20 65 6e 64 20 69 66 20 | 20 0d 20 20 65 6e 64 20 | end if | .  end |
|00015710| 72 65 70 65 61 74 0d 20 | 20 0d 20 20 72 65 74 75 |repeat. | .  retu|
|00015720| 72 6e 20 74 78 74 0d 20 | 20 0d 65 6e 64 0d 2d 2d |rn txt. | .end.--|
|00015730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 2d 2d 20 |--------|----.-- |
|00015780| 74 68 69 73 20 63 61 6c | 6c 73 20 62 72 65 61 6b |this cal|ls break|
|00015790| 74 65 78 74 20 6f 6e 20 | 74 68 65 20 74 65 78 74 |text on |the text|
|000157a0| 20 0d 6f 6e 20 46 69 6c | 6c 54 65 78 74 20 74 78 | .on Fil|lText tx|
|000157b0| 74 2c 66 6e 74 2c 73 7a | 2c 77 69 64 74 68 0d 20 |t,fnt,sz|,width. |
|000157c0| 20 2d 2d 20 67 6c 6f 62 | 61 6c 20 67 42 72 65 61 | -- glob|al gBrea|
|000157d0| 6b 4f 62 6a 0d 20 20 0d | 20 20 2d 2d 20 66 6c 64 |kObj.  .|  -- fld|
|000157e0| 20 3d 20 74 68 65 20 74 | 65 78 74 20 66 69 65 6c | = the t|ext fiel|
|000157f0| 64 20 74 6f 20 70 75 74 | 20 74 68 65 20 74 65 78 |d to put| the tex|
|00015800| 74 20 69 6e 74 6f 0d 20 | 20 2d 2d 20 74 78 74 20 |t into. | -- txt |
|00015810| 3d 20 74 68 65 20 63 6c | 65 61 6e 20 74 65 78 74 |= the cl|ean text|
|00015820| 0d 20 20 2d 2d 20 70 67 | 20 3d 20 74 68 65 20 70 |.  -- pg| = the p|
|00015830| 61 67 65 20 6f 66 20 74 | 65 78 74 0d 20 20 2d 2d |age of t|ext.  --|
|00015840| 20 6c 69 6e 65 73 20 3d | 20 74 68 65 20 6e 75 6d | lines =| the num|
|00015850| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 70 65 72 |ber of l|ines per|
|00015860| 20 70 61 67 65 0d 20 20 | 0d 20 20 72 65 74 75 72 | page.  |.  retur|
|00015870| 6e 20 74 78 74 0d 20 20 | 0d 20 20 2d 2d 20 20 69 |n txt.  |.  --  i|
|00015880| 66 20 74 68 65 20 6d 61 | 63 68 69 6e 65 74 79 70 |f the ma|chinetyp|
|00015890| 65 20 3c 20 32 35 36 20 | 74 68 65 6e 20 20 20 2d |e < 256 |then   -|
|000158a0| 2d 20 6f 6e 6c 79 20 63 | 61 6c 6c 20 62 72 65 61 |- only c|all brea|
|000158b0| 6b 74 65 78 74 20 6f 6e | 20 74 68 65 20 4d 41 43 |ktext on| the MAC|
|000158c0| 49 4e 54 4f 53 48 21 0d | 20 20 2d 2d 20 20 20 20 |INTOSH!.|  --    |
|000158d0| 6f 70 65 6e 78 6c 69 62 | 20 22 42 72 65 61 6b 74 |openxlib| "Breakt|
|000158e0| 65 78 74 22 0d 20 20 2d | 2d 20 20 20 20 0d 20 20 |ext".  -|-    .  |
|000158f0| 2d 2d 20 20 20 20 73 65 | 74 20 67 42 72 65 61 6b |--    se|t gBreak|
|00015900| 4f 62 6a 20 3d 20 20 42 | 72 65 61 6b 54 65 78 74 |Obj =  B|reakText|
|00015910| 28 6d 4e 65 77 2c 66 6e | 74 2c 73 7a 2c 77 69 64 |(mNew,fn|t,sz,wid|
|00015920| 74 68 29 20 20 0d 20 20 | 2d 2d 20 20 20 20 69 66 |th)  .  |--    if|
|00015930| 20 6e 6f 74 20 6f 62 6a | 65 63 74 70 28 67 42 72 | not obj|ectp(gBr|
|00015940| 65 61 6b 4f 62 6a 29 20 | 74 68 65 6e 0d 20 20 2d |eakObj) |then.  -|
|00015950| 2d 20 20 20 20 20 20 70 | 75 74 20 22 45 72 72 6f |-      p|ut "Erro|
|00015960| 72 20 69 6e 69 74 69 61 | 6c 69 7a 69 6e 67 20 42 |r initia|lizing B|
|00015970| 72 65 61 6b 54 65 78 74 | 20 78 6f 62 6a 22 0d 20 |reakText| xobj". |
|00015980| 20 2d 2d 20 20 20 20 65 | 6c 73 65 0d 20 20 2d 2d | --    e|lse.  --|
|00015990| 20 20 20 20 20 20 73 65 | 74 20 74 6d 70 20 3d 20 |      se|t tmp = |
|000159a0| 67 42 72 65 61 6b 4f 62 | 6a 28 6d 42 72 65 61 6b |gBreakOb|j(mBreak|
|000159b0| 2c 74 78 74 29 0d 20 20 | 2d 2d 20 20 20 20 20 20 |,txt).  |--      |
|000159c0| 72 65 74 75 72 6e 20 74 | 6d 70 0d 20 20 2d 2d 20 |return t|mp.  -- |
|000159d0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 2d 2d 20 20 |   end i|f.  --  |
|000159e0| 20 20 0d 20 20 2d 2d 20 | 20 20 20 63 6c 6f 73 65 |  .  -- |   close|
|000159f0| 78 6c 69 62 20 22 42 72 | 65 61 6b 74 65 78 74 22 |xlib "Br|eaktext"|
|00015a00| 0d 20 20 2d 2d 20 20 20 | 20 0d 20 20 2d 2d 20 20 |.  --   | .  --  |
|00015a10| 65 6c 73 65 0d 20 20 2d | 2d 20 20 20 20 72 65 74 |else.  -|-    ret|
|00015a20| 75 72 6e 20 74 78 74 0d | 20 20 2d 2d 20 20 65 6e |urn txt.|  --  en|
|00015a30| 64 20 69 66 0d 65 6e 64 | 0d 0d 2d 2d 2d 2d 2d 2d |d if.end|..------|
|00015a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015a80| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 2d 2d 20 67 6f 20 74 |--------|.-- go t|
|00015a90| 6f 20 74 68 65 20 6e 65 | 78 74 20 6f 72 20 74 68 |o the ne|xt or th|
|00015aa0| 65 20 70 72 65 76 69 6f | 75 73 20 61 72 74 69 63 |e previo|us artic|
|00015ab0| 6c 65 20 69 6e 20 74 68 | 65 20 63 75 72 72 65 6e |le in th|e curren|
|00015ac0| 74 20 63 68 61 70 74 65 | 72 0d 6f 6e 20 4d 6f 76 |t chapte|r.on Mov|
|00015ad0| 65 41 72 74 69 63 6c 65 | 20 64 69 72 0d 20 20 67 |eArticle| dir.  g|
|00015ae0| 6c 6f 62 61 6c 20 67 43 | 75 72 41 72 74 69 63 6c |lobal gC|urArticl|
|00015af0| 65 2c 20 67 41 72 74 69 | 63 6c 65 73 2c 20 67 43 |e, gArti|cles, gC|
|00015b00| 75 72 43 68 61 70 2c 20 | 67 4d 61 6b 65 72 6e 75 |urChap, |gMakernu|
|00015b10| 6d 0d 20 20 0d 20 20 73 | 65 74 20 6e 75 6d 20 3d |m.  .  s|et num =|
|00015b20| 20 63 6f 75 6e 74 28 67 | 65 74 61 74 28 67 41 72 | count(g|etat(gAr|
|00015b30| 74 69 63 6c 65 73 2c 20 | 67 43 75 72 43 68 61 70 |ticles, |gCurChap|
|00015b40| 29 29 0d 20 20 0d 20 20 | 69 66 20 64 69 72 20 3d |)).  .  |if dir =|
|00015b50| 20 22 70 72 65 76 22 20 | 74 68 65 6e 20 0d 20 20 | "prev" |then .  |
|00015b60| 20 20 69 66 20 67 43 75 | 72 41 72 74 69 63 6c 65 |  if gCu|rArticle|
|00015b70| 20 3e 20 31 20 74 68 65 | 6e 20 0d 20 20 20 20 20 | > 1 the|n .     |
|00015b80| 20 73 65 74 20 67 43 75 | 72 41 72 74 69 63 6c 65 | set gCu|rArticle|
|00015b90| 20 3d 20 67 43 75 72 41 | 72 74 69 63 6c 65 20 2d | = gCurA|rticle -|
|00015ba0| 20 31 0d 20 20 20 20 65 | 6c 73 65 0d 20 20 20 20 | 1.    e|lse.    |
|00015bb0| 20 20 73 65 74 20 67 43 | 75 72 41 72 74 69 63 6c |  set gC|urArticl|
|00015bc0| 65 20 3d 20 6e 75 6d 0d | 20 20 20 20 65 6e 64 20 |e = num.|    end |
|00015bd0| 69 66 0d 20 20 20 20 0d | 20 20 20 20 69 66 20 67 |if.    .|    if g|
|00015be0| 4d 61 6b 65 72 6e 75 6d | 20 3d 20 31 30 20 61 6e |Makernum| = 10 an|
|00015bf0| 64 20 67 63 75 72 63 68 | 61 70 20 3d 20 32 20 61 |d gcurch|ap = 2 a|
|00015c00| 6e 64 20 67 43 75 72 61 | 72 74 69 63 6c 65 20 3d |nd gCura|rticle =|
|00015c10| 20 33 20 74 68 65 6e 0d | 20 20 20 20 20 20 73 65 | 3 then.|      se|
|00015c20| 74 20 67 43 75 72 41 72 | 74 69 63 6c 65 20 3d 20 |t gCurAr|ticle = |
|00015c30| 32 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |2.    en|d if.   |
|00015c40| 20 69 66 20 67 4d 61 6b | 65 72 6e 75 6d 20 3d 20 | if gMak|ernum = |
|00015c50| 33 39 20 61 6e 64 20 67 | 63 75 72 63 68 61 70 20 |39 and g|curchap |
|00015c60| 3d 20 32 20 61 6e 64 20 | 67 43 75 72 61 72 74 69 |= 2 and |gCurarti|
|00015c70| 63 6c 65 20 3d 20 32 20 | 74 68 65 6e 0d 20 20 20 |cle = 2 |then.   |
|00015c80| 20 20 20 73 65 74 20 67 | 43 75 72 41 72 74 69 63 |   set g|CurArtic|
|00015c90| 6c 65 20 3d 20 31 0d 20 | 20 20 20 65 6e 64 20 69 |le = 1. |   end i|
|00015ca0| 66 0d 20 20 65 6c 73 65 | 0d 20 20 20 20 69 66 20 |f.  else|.    if |
|00015cb0| 67 43 75 72 41 72 74 69 | 63 6c 65 20 3c 20 6e 75 |gCurArti|cle < nu|
|00015cc0| 6d 20 74 68 65 6e 20 0d | 20 20 20 20 20 20 73 65 |m then .|      se|
|00015cd0| 74 20 67 43 75 72 41 72 | 74 69 63 6c 65 20 3d 20 |t gCurAr|ticle = |
|00015ce0| 67 43 75 72 41 72 74 69 | 63 6c 65 20 2b 20 31 0d |gCurArti|cle + 1.|
|00015cf0| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 73 |    else|.      s|
|00015d00| 65 74 20 67 43 75 72 41 | 72 74 69 63 6c 65 20 3d |et gCurA|rticle =|
|00015d10| 20 31 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 | 1.    e|nd if.  |
|00015d20| 20 20 0d 20 20 20 20 69 | 66 20 67 4d 61 6b 65 72 |  .    i|f gMaker|
|00015d30| 6e 75 6d 20 3d 20 31 30 | 20 61 6e 64 20 67 63 75 |num = 10| and gcu|
|00015d40| 72 63 68 61 70 20 3d 20 | 32 20 61 6e 64 20 67 43 |rchap = |2 and gC|
|00015d50| 75 72 61 72 74 69 63 6c | 65 20 3d 20 33 20 74 68 |urarticl|e = 3 th|
|00015d60| 65 6e 0d 20 20 20 20 20 | 20 73 65 74 20 67 43 75 |en.     | set gCu|
|00015d70| 72 41 72 74 69 63 6c 65 | 20 3d 20 34 0d 20 20 20 |rArticle| = 4.   |
|00015d80| 20 65 6e 64 20 69 66 0d | 20 20 20 20 69 66 20 67 | end if.|    if g|
|00015d90| 4d 61 6b 65 72 6e 75 6d | 20 3d 20 33 39 20 61 6e |Makernum| = 39 an|
|00015da0| 64 20 67 63 75 72 63 68 | 61 70 20 3d 20 32 20 61 |d gcurch|ap = 2 a|
|00015db0| 6e 64 20 67 43 75 72 61 | 72 74 69 63 6c 65 20 3d |nd gCura|rticle =|
|00015dc0| 20 32 20 74 68 65 6e 0d | 20 20 20 20 20 20 73 65 | 2 then.|      se|
|00015dd0| 74 20 67 43 75 72 41 72 | 74 69 63 6c 65 20 3d 20 |t gCurAr|ticle = |
|00015de0| 33 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 65 |3.    en|d if.  e|
|00015df0| 6e 64 20 69 66 0d 20 20 | 0d 20 20 4e 61 76 42 75 |nd if.  |.  NavBu|
|00015e00| 74 74 6f 6e 55 70 64 61 | 74 65 0d 20 20 47 6f 41 |ttonUpda|te.  GoA|
|00015e10| 72 74 69 63 6c 65 0d 65 | 6e 64 0d 2d 2d 2d 2d 2d |rticle.e|nd.-----|
|00015e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00015e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 6f 6e 20 53 63 72 |--------|-.on Scr|
|00015e70| 6f 6c 6c 50 61 67 65 20 | 64 69 72 0d 20 20 67 6c |ollPage |dir.  gl|
|00015e80| 6f 62 61 6c 20 67 41 72 | 74 69 63 6c 65 50 61 67 |obal gAr|ticlePag|
|00015e90| 65 2c 20 67 43 75 72 43 | 75 74 74 69 6e 67 2c 20 |e, gCurC|utting, |
|00015ea0| 67 46 6f 72 6d 61 74 74 | 65 64 54 65 78 74 2c 20 |gFormatt|edText, |
|00015eb0| 67 54 65 78 74 50 61 67 | 65 73 2c 20 67 4d 61 78 |gTextPag|es, gMax|
|00015ec0| 4c 69 6e 65 73 0d 20 20 | 67 6c 6f 62 61 6c 20 67 |Lines.  |global g|
|00015ed0| 57 6f 72 6c 64 2c 20 67 | 43 75 72 43 68 61 70 2c |World, g|CurChap,|
|00015ee0| 20 67 50 69 63 4c 6f 63 | 68 2c 20 67 46 6c 79 69 | gPicLoc|h, gFlyi|
|00015ef0| 6e 67 46 61 63 74 73 2c | 20 67 4d 61 6b 65 72 4e |ngFacts,| gMakerN|
|00015f00| 75 6d 0d 20 20 0d 20 20 | 2d 2d 20 72 65 6d 65 6d |um.  .  |-- remem|
|00015f10| 62 65 72 20 77 68 65 72 | 65 20 74 68 65 20 70 69 |ber wher|e the pi|
|00015f20| 63 74 20 69 73 20 6f 6e | 20 74 68 65 20 73 63 72 |ct is on| the scr|
|00015f30| 65 65 6e 0d 20 20 73 65 | 74 20 70 69 63 73 70 72 |een.  se|t picspr|
|00015f40| 69 74 65 20 3d 20 33 20 | 20 2d 2d 20 74 68 65 20 |ite = 3 | -- the |
|00015f50| 73 70 72 69 74 65 20 6f | 66 20 74 68 65 20 70 69 |sprite o|f the pi|
|00015f60| 63 74 75 72 65 20 69 6e | 20 74 68 65 20 70 61 72 |cture in| the par|
|00015f70| 74 77 6f 72 6b 0d 20 20 | 73 65 74 20 63 75 74 74 |twork.  |set cutt|
|00015f80| 69 6e 67 73 70 72 69 74 | 65 20 3d 20 36 0d 20 20 |ingsprit|e = 6.  |
|00015f90| 69 66 20 74 68 65 20 66 | 72 61 6d 65 6c 61 62 65 |if the f|ramelabe|
|00015fa0| 6c 20 63 6f 6e 74 61 69 | 6e 73 20 22 70 61 72 74 |l contai|ns "part|
|00015fb0| 77 6f 72 6b 22 20 61 6e | 64 20 67 41 72 74 69 63 |work" an|d gArtic|
|00015fc0| 6c 65 50 61 67 65 20 3d | 20 31 20 74 68 65 6e 0d |lePage =| 1 then.|
|00015fd0| 20 20 20 20 73 65 74 20 | 67 50 69 63 4c 6f 63 68 |    set |gPicLoch|
|00015fe0| 20 3d 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 | = the l|och of s|
|00015ff0| 70 72 69 74 65 20 70 69 | 63 73 70 72 69 74 65 0d |prite pi|csprite.|
|00016000| 20 20 65 6e 64 20 69 66 | 0d 20 20 0d 20 20 2d 2d |  end if|.  .  --|
|00016010| 20 67 6f 20 74 6f 20 74 | 68 65 20 6e 65 78 74 20 | go to t|he next |
|00016020| 70 61 67 65 20 6f 66 20 | 74 68 65 20 63 75 74 74 |page of |the cutt|
|00016030| 69 6e 67 73 20 74 65 78 | 74 0d 20 20 69 66 20 64 |ings tex|t.  if d|
|00016040| 69 72 20 3d 20 22 62 61 | 63 6b 22 20 74 68 65 6e |ir = "ba|ck" then|
|00016050| 0d 20 20 20 20 69 66 20 | 67 41 72 74 69 63 6c 65 |.    if |gArticle|
|00016060| 50 61 67 65 20 3e 20 31 | 20 74 68 65 6e 20 0d 20 |Page > 1| then . |
|00016070| 20 20 20 20 20 73 65 74 | 20 67 41 72 74 69 63 6c |     set| gArticl|
|00016080| 65 50 61 67 65 20 3d 20 | 67 41 72 74 69 63 6c 65 |ePage = |gArticle|
|00016090| 50 61 67 65 20 2d 20 31 | 20 0d 20 20 20 20 65 6c |Page - 1| .    el|
|000160a0| 73 65 0d 20 20 20 20 20 | 20 73 65 74 20 67 41 72 |se.     | set gAr|
|000160b0| 74 69 63 6c 65 50 61 67 | 65 20 3d 20 67 54 65 78 |ticlePag|e = gTex|
|000160c0| 74 50 61 67 65 73 0d 20 | 20 20 20 65 6e 64 20 69 |tPages. |   end i|
|000160d0| 66 0d 20 20 20 20 0d 20 | 20 65 6c 73 65 20 69 66 |f.    . | else if|
|000160e0| 20 64 69 72 20 3d 20 22 | 6e 65 78 74 22 20 74 68 | dir = "|next" th|
|000160f0| 65 6e 20 20 0d 20 20 20 | 20 69 66 20 67 41 72 74 |en  .   | if gArt|
|00016100| 69 63 6c 65 50 61 67 65 | 20 3c 20 67 54 65 78 74 |iclePage| < gText|
|00016110| 50 61 67 65 73 20 74 68 | 65 6e 20 0d 20 20 20 20 |Pages th|en .    |
|00016120| 20 20 73 65 74 20 67 41 | 72 74 69 63 6c 65 50 61 |  set gA|rticlePa|
|00016130| 67 65 20 3d 20 67 41 72 | 74 69 63 6c 65 50 61 67 |ge = gAr|ticlePag|
|00016140| 65 20 2b 20 31 20 0d 20 | 20 20 20 65 6c 73 65 0d |e + 1 . |   else.|
|00016150| 20 20 20 20 20 20 73 65 | 74 20 67 41 72 74 69 63 |      se|t gArtic|
|00016160| 6c 65 50 61 67 65 20 3d | 20 31 0d 20 20 20 20 65 |lePage =| 1.    e|
|00016170| 6e 64 20 69 66 0d 20 20 | 65 6e 64 20 69 66 0d 20 |nd if.  |end if. |
|00016180| 20 0d 20 20 0d 20 20 0d | 20 20 69 66 20 74 68 65 | .  .  .|  if the|
|00016190| 20 66 72 61 6d 65 6c 61 | 62 65 6c 20 63 6f 6e 74 | framela|bel cont|
|000161a0| 61 69 6e 73 20 22 63 75 | 74 74 69 6e 67 22 20 74 |ains "cu|tting" t|
|000161b0| 68 65 6e 0d 20 20 20 20 | 0d 20 20 20 20 73 65 74 |hen.    |.    set|
|000161c0| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 66 69 65 | the tex|t of fie|
|000161d0| 6c 64 20 22 63 75 74 74 | 69 6e 67 22 20 3d 20 6c |ld "cutt|ing" = l|
|000161e0| 69 6e 65 20 28 28 28 67 | 41 72 74 69 63 6c 65 50 |ine (((g|ArticleP|
|000161f0| 61 67 65 2d 31 29 2a 67 | 4d 61 78 4c 69 6e 65 73 |age-1)*g|MaxLines|
|00016200| 29 2b 31 29 20 c2 0d 20 | 20 20 20 20 74 6f 20 28 |)+1) .. |    to (|
|00016210| 67 41 72 74 69 63 6c 65 | 50 61 67 65 20 2a 20 67 |gArticle|Page * g|
|00016220| 4d 61 78 4c 69 6e 65 73 | 29 20 6f 66 20 67 46 6f |MaxLines|) of gFo|
|00016230| 72 6d 61 74 74 65 64 54 | 65 78 74 0d 20 20 65 6c |rmattedT|ext.  el|
|00016240| 73 65 20 69 66 20 74 68 | 65 20 66 72 61 6d 65 6c |se if th|e framel|
|00016250| 61 62 65 6c 20 3d 20 22 | 66 61 63 74 73 22 20 74 |abel = "|facts" t|
|00016260| 68 65 6e 20 0d 20 20 20 | 20 0d 20 20 20 20 73 65 |hen .   | .    se|
|00016270| 74 20 74 68 65 20 74 65 | 78 74 20 6f 66 20 66 69 |t the te|xt of fi|
|00016280| 65 6c 64 20 22 66 6c 79 | 69 6e 67 66 61 63 74 73 |eld "fly|ingfacts|
|00016290| 22 20 3d 20 6c 69 6e 65 | 20 28 28 28 67 41 72 74 |" = line| (((gArt|
|000162a0| 69 63 6c 65 50 61 67 65 | 2d 31 29 2a 67 4d 61 78 |iclePage|-1)*gMax|
|000162b0| 4c 69 6e 65 73 29 2b 31 | 29 20 c2 0d 20 20 20 20 |Lines)+1|) ..    |
|000162c0| 20 74 6f 20 28 67 41 72 | 74 69 63 6c 65 50 61 67 | to (gAr|ticlePag|
|000162d0| 65 20 2a 20 67 4d 61 78 | 4c 69 6e 65 73 29 20 6f |e * gMax|Lines) o|
|000162e0| 66 20 67 46 6c 79 69 6e | 67 46 61 63 74 73 0d 20 |f gFlyin|gFacts. |
|000162f0| 20 65 6c 73 65 20 69 66 | 20 74 68 65 20 66 72 61 | else if| the fra|
|00016300| 6d 65 6c 61 62 65 6c 20 | 63 6f 6e 74 61 69 6e 73 |melabel |contains|
|00016310| 20 22 70 61 72 74 77 6f | 72 6b 22 20 74 68 65 6e | "partwo|rk" then|
|00016320| 20 0d 20 20 20 20 69 66 | 20 67 41 72 74 69 63 6c | .    if| gArticl|
|00016330| 65 50 61 67 65 20 3d 20 | 31 20 61 6e 64 20 28 67 |ePage = |1 and (g|
|00016340| 57 6f 72 6c 64 20 3d 20 | 22 50 6f 77 65 72 22 29 |World = |"Power")|
|00016350| 20 61 6e 64 20 67 43 75 | 72 43 68 61 70 20 3d 20 | and gCu|rChap = |
|00016360| 31 20 74 68 65 6e 20 0d | 20 20 20 20 20 20 73 65 |1 then .|      se|
|00016370| 74 20 74 68 65 20 74 65 | 78 74 20 6f 66 20 66 69 |t the te|xt of fi|
|00016380| 65 6c 64 20 22 70 61 72 | 74 77 6f 72 6b 22 20 3d |eld "par|twork" =|
|00016390| 20 22 20 22 0d 20 20 20 | 20 20 20 0d 20 20 20 20 | " ".   |   .    |
|000163a0| 20 20 69 66 20 67 4d 61 | 6b 65 72 6e 75 6d 20 3d |  if gMa|kernum =|
|000163b0| 20 31 31 39 20 74 68 65 | 6e 20 20 2d 2d 20 73 70 | 119 the|n  -- sp|
|000163c0| 65 63 69 61 6c 20 63 61 | 73 65 20 66 6f 72 20 4d |ecial ca|se for M|
|000163d0| 61 74 69 73 73 65 0d 20 | 20 20 20 20 20 20 20 67 |atisse. |       g|
|000163e0| 6f 20 74 6f 20 66 72 61 | 6d 65 20 22 70 61 72 74 |o to fra|me "part|
|000163f0| 77 6f 72 6b 2e 4d 41 54 | 22 20 2d 2d 20 6e 61 72 |work.MAT|" -- nar|
|00016400| 72 6f 77 20 66 69 72 73 | 74 20 70 61 67 65 0d 20 |row firs|t page. |
|00016410| 20 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |     els|e.      |
|00016420| 20 20 67 6f 20 74 6f 20 | 66 72 61 6d 65 20 22 70 |  go to |frame "p|
|00016430| 61 72 74 77 6f 72 6b 22 | 20 2d 2d 20 6e 61 72 72 |artwork"| -- narr|
|00016440| 6f 77 20 66 69 72 73 74 | 20 70 61 67 65 0d 20 20 |ow first| page.  |
|00016450| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|00016460| 20 0d 20 20 20 20 20 20 | 2d 2d 20 6d 6f 76 65 20 | .      |-- move |
|00016470| 74 68 65 20 74 65 78 74 | 20 6f 66 66 73 63 72 65 |the text| offscre|
|00016480| 65 6e 2c 20 73 6f 20 77 | 65 20 63 61 6e 20 75 70 |en, so w|e can up|
|00016490| 64 61 74 65 20 69 74 0d | 20 20 20 20 20 20 70 75 |date it.|      pu|
|000164a0| 70 70 65 74 73 70 72 69 | 74 65 20 63 75 74 74 69 |ppetspri|te cutti|
|000164b0| 6e 67 73 70 72 69 74 65 | 2c 31 0d 20 20 20 20 20 |ngsprite|,1.     |
|000164c0| 20 73 65 74 20 63 75 74 | 74 69 6e 67 6c 6f 63 68 | set cut|tingloch|
|000164d0| 20 3d 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 | = the l|och of s|
|000164e0| 70 72 69 74 65 20 63 75 | 74 74 69 6e 67 73 70 72 |prite cu|ttingspr|
|000164f0| 69 74 65 0d 20 20 20 20 | 20 20 73 65 74 20 74 68 |ite.    |  set th|
|00016500| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00016510| 20 63 75 74 74 69 6e 67 | 73 70 72 69 74 65 20 3d | cutting|sprite =|
|00016520| 20 31 30 30 30 0d 20 20 | 20 20 20 20 75 70 64 61 | 1000.  |    upda|
|00016530| 74 65 73 74 61 67 65 0d | 20 20 20 20 20 20 0d 20 |testage.|      . |
|00016540| 20 20 20 20 20 2d 2d 20 | 6d 6f 76 65 20 74 68 65 |     -- |move the|
|00016550| 20 74 65 78 74 20 62 61 | 63 6b 20 6f 6e 73 63 72 | text ba|ck onscr|
|00016560| 65 65 6e 20 61 74 20 74 | 68 65 20 73 61 6d 65 20 |een at t|he same |
|00016570| 74 69 6d 65 20 61 73 20 | 74 68 65 20 70 69 63 74 |time as |the pict|
|00016580| 0d 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |.      s|et the l|
|00016590| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 70 69 |och of s|prite pi|
|000165a0| 63 73 70 72 69 74 65 20 | 3d 20 67 50 69 63 4c 6f |csprite |= gPicLo|
|000165b0| 63 48 0d 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |cH.     | set the|
|000165c0| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|000165d0| 70 61 72 74 77 6f 72 6b | 22 20 3d 20 6c 69 6e 65 |partwork|" = line|
|000165e0| 20 28 28 28 67 41 72 74 | 69 63 6c 65 50 61 67 65 | (((gArt|iclePage|
|000165f0| 2d 31 29 2a 67 4d 61 78 | 4c 69 6e 65 73 29 2b 31 |-1)*gMax|Lines)+1|
|00016600| 29 20 c2 0d 20 20 20 20 | 20 74 6f 20 28 67 41 72 |) ..    | to (gAr|
|00016610| 74 69 63 6c 65 50 61 67 | 65 20 2a 20 67 4d 61 78 |ticlePag|e * gMax|
|00016620| 4c 69 6e 65 73 29 20 6f | 66 20 67 46 6f 72 6d 61 |Lines) o|f gForma|
|00016630| 74 74 65 64 54 65 78 74 | 0d 20 20 20 20 20 20 73 |ttedText|.      s|
|00016640| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|00016650| 70 72 69 74 65 20 63 75 | 74 74 69 6e 67 73 70 72 |prite cu|ttingspr|
|00016660| 69 74 65 20 3d 20 63 75 | 74 74 69 6e 67 6c 6f 63 |ite = cu|ttingloc|
|00016670| 68 0d 20 20 20 20 20 20 | 70 75 70 70 65 74 73 70 |h.      |puppetsp|
|00016680| 72 69 74 65 20 63 75 74 | 74 69 6e 67 73 70 72 69 |rite cut|tingspri|
|00016690| 74 65 2c 30 0d 20 20 20 | 20 20 20 75 70 64 61 74 |te,0.   |   updat|
|000166a0| 65 73 74 61 67 65 0d 20 | 20 20 20 65 6c 73 65 20 |estage. |   else |
|000166b0| 69 66 20 67 43 75 72 43 | 68 61 70 20 3e 20 31 20 |if gCurC|hap > 1 |
|000166c0| 74 68 65 6e 20 20 0d 20 | 20 20 20 20 20 2d 2d 20 |then  . |     -- |
|000166d0| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|000166e0| 73 70 72 69 74 65 20 70 | 69 63 73 70 72 69 74 65 |sprite p|icsprite|
|000166f0| 20 3d 20 31 30 30 30 0d | 20 20 20 20 20 20 69 66 | = 1000.|      if|
|00016700| 20 67 4d 61 6b 65 72 6e | 75 6d 20 3d 20 31 31 39 | gMakern|um = 119|
|00016710| 20 74 68 65 6e 20 20 2d | 2d 20 73 70 65 63 69 61 | then  -|- specia|
|00016720| 6c 20 63 61 73 65 20 66 | 6f 72 20 4d 61 74 69 73 |l case f|or Matis|
|00016730| 73 65 0d 20 20 20 20 20 | 20 20 20 67 6f 20 74 6f |se.     |   go to|
|00016740| 20 66 72 61 6d 65 20 22 | 69 6e 6e 65 72 70 61 72 | frame "|innerpar|
|00016750| 74 77 6f 72 6b 2e 4d 41 | 54 22 20 20 2d 2d 20 77 |twork.MA|T"  -- w|
|00016760| 69 64 65 20 70 61 67 65 | 0d 20 20 20 20 20 20 65 |ide page|.      e|
|00016770| 6c 73 65 0d 20 20 20 20 | 20 20 20 20 67 6f 20 74 |lse.    |    go t|
|00016780| 6f 20 66 72 61 6d 65 20 | 22 69 6e 6e 65 72 70 61 |o frame |"innerpa|
|00016790| 72 74 77 6f 72 6b 22 20 | 20 2d 2d 20 77 69 64 65 |rtwork" | -- wide|
|000167a0| 20 70 61 67 65 0d 20 20 | 20 20 20 20 65 6e 64 20 | page.  |    end |
|000167b0| 69 66 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |if.     | .      |
|000167c0| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|000167d0| 66 69 65 6c 64 20 22 70 | 61 72 74 77 6f 72 6b 32 |field "p|artwork2|
|000167e0| 22 20 3d 20 6c 69 6e 65 | 20 28 28 28 67 41 72 74 |" = line| (((gArt|
|000167f0| 69 63 6c 65 50 61 67 65 | 2d 31 29 2a 67 4d 61 78 |iclePage|-1)*gMax|
|00016800| 4c 69 6e 65 73 29 2b 31 | 29 20 c2 0d 20 20 20 20 |Lines)+1|) ..    |
|00016810| 20 74 6f 20 28 67 41 72 | 74 69 63 6c 65 50 61 67 | to (gAr|ticlePag|
|00016820| 65 20 2a 20 67 4d 61 78 | 4c 69 6e 65 73 29 20 6f |e * gMax|Lines) o|
|00016830| 66 20 67 46 6f 72 6d 61 | 74 74 65 64 54 65 78 74 |f gForma|ttedText|
|00016840| 0d 20 20 20 20 65 6c 73 | 65 20 0d 20 20 20 20 20 |.    els|e .     |
|00016850| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|00016860| 20 73 70 72 69 74 65 20 | 70 69 63 73 70 72 69 74 | sprite |picsprit|
|00016870| 65 20 3d 20 31 30 30 30 | 0d 20 20 20 20 20 20 0d |e = 1000|.      .|
|00016880| 20 20 20 20 20 20 69 66 | 20 67 4d 61 6b 65 72 6e |      if| gMakern|
|00016890| 75 6d 20 3d 20 31 31 39 | 20 74 68 65 6e 20 20 2d |um = 119| then  -|
|000168a0| 2d 20 73 70 65 63 69 61 | 6c 20 63 61 73 65 20 66 |- specia|l case f|
|000168b0| 6f 72 20 4d 61 74 69 73 | 73 65 0d 20 20 20 20 20 |or Matis|se.     |
|000168c0| 20 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 22 |   go to| frame "|
|000168d0| 70 61 72 74 77 6f 72 6b | 32 2e 4d 41 54 22 20 20 |partwork|2.MAT"  |
|000168e0| 2d 2d 20 77 69 64 65 20 | 70 61 67 65 0d 20 20 20 |-- wide |page.   |
|000168f0| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 20 20 |   else.|        |
|00016900| 67 6f 20 74 6f 20 66 72 | 61 6d 65 20 22 70 61 72 |go to fr|ame "par|
|00016910| 74 77 6f 72 6b 32 22 20 | 20 2d 2d 20 77 69 64 65 |twork2" | -- wide|
|00016920| 20 70 61 67 65 0d 20 20 | 20 20 20 20 65 6e 64 20 | page.  |    end |
|00016930| 69 66 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |if.     | .      |
|00016940| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|00016950| 66 69 65 6c 64 20 22 70 | 61 72 74 77 6f 72 6b 32 |field "p|artwork2|
|00016960| 22 20 3d 20 6c 69 6e 65 | 20 28 28 28 67 41 72 74 |" = line| (((gArt|
|00016970| 69 63 6c 65 50 61 67 65 | 2d 31 29 2a 67 4d 61 78 |iclePage|-1)*gMax|
|00016980| 4c 69 6e 65 73 29 2b 31 | 29 20 c2 0d 20 20 20 20 |Lines)+1|) ..    |
|00016990| 20 74 6f 20 28 67 41 72 | 74 69 63 6c 65 50 61 67 | to (gAr|ticlePag|
|000169a0| 65 20 2a 20 67 4d 61 78 | 4c 69 6e 65 73 29 20 6f |e * gMax|Lines) o|
|000169b0| 66 20 67 46 6f 72 6d 61 | 74 74 65 64 54 65 78 74 |f gForma|ttedText|
|000169c0| 0d 20 20 20 20 65 6e 64 | 20 69 66 20 20 20 0d 20 |.    end| if   . |
|000169d0| 20 65 6e 64 20 69 66 0d | 20 20 0d 20 20 73 65 74 | end if.|  .  set|
|000169e0| 20 66 6f 72 77 61 72 64 | 62 75 74 74 6f 6e 20 3d | forward|button =|
|000169f0| 20 32 30 0d 20 20 73 65 | 74 20 62 61 63 6b 62 75 | 20.  se|t backbu|
|00016a00| 74 74 6f 6e 20 3d 20 31 | 39 0d 20 20 0d 20 20 2d |tton = 1|9.  .  -|
|00016a10| 2d 20 64 65 61 6c 20 77 | 69 74 68 20 74 68 65 20 |- deal w|ith the |
|00016a20| 66 6f 72 77 61 72 64 20 | 61 6e 64 20 62 61 63 6b |forward |and back|
|00016a30| 77 61 72 64 20 62 75 74 | 74 6f 6e 73 0d 20 20 69 |ward but|tons.  i|
|00016a40| 66 20 67 41 72 74 69 63 | 6c 65 50 61 67 65 20 3e |f gArtic|lePage >|
|00016a50| 20 31 20 74 68 65 6e 20 | 0d 20 20 20 20 73 65 74 | 1 then |.    set|
|00016a60| 20 74 68 65 20 76 69 73 | 69 62 69 6c 69 74 79 20 | the vis|ibility |
|00016a70| 6f 66 20 73 70 72 69 74 | 65 20 62 61 63 6b 62 75 |of sprit|e backbu|
|00016a80| 74 74 6f 6e 20 3d 20 31 | 0d 20 20 20 20 2d 2d 20 |tton = 1|.    -- |
|00016a90| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 62 61 63 |puppetsp|rite bac|
|00016aa0| 6b 62 75 74 74 6f 6e 2c | 30 0d 20 20 65 6c 73 65 |kbutton,|0.  else|
|00016ab0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 76 69 73 |.    set| the vis|
|00016ac0| 69 62 69 6c 69 74 79 20 | 6f 66 20 73 70 72 69 74 |ibility |of sprit|
|00016ad0| 65 20 62 61 63 6b 62 75 | 74 74 6f 6e 20 3d 20 30 |e backbu|tton = 0|
|00016ae0| 0d 20 20 20 20 2d 2d 20 | 70 75 70 70 65 74 73 70 |.    -- |puppetsp|
|00016af0| 72 69 74 65 20 62 61 63 | 6b 62 75 74 74 6f 6e 2c |rite bac|kbutton,|
|00016b00| 31 0d 20 20 20 20 2d 2d | 20 73 65 74 20 74 68 65 |1.    --| set the|
|00016b10| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|00016b20| 62 61 63 6b 62 75 74 74 | 6f 6e 20 3d 20 31 30 30 |backbutt|on = 100|
|00016b30| 30 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 69 66 20 |0.  end |if.  if |
|00016b40| 67 41 72 74 69 63 6c 65 | 50 61 67 65 20 3d 20 67 |gArticle|Page = g|
|00016b50| 54 65 78 74 50 61 67 65 | 73 20 74 68 65 6e 20 0d |TextPage|s then .|
|00016b60| 20 20 20 20 73 65 74 20 | 74 68 65 20 76 69 73 69 |    set |the visi|
|00016b70| 62 69 6c 69 74 79 20 6f | 66 20 73 70 72 69 74 65 |bility o|f sprite|
|00016b80| 20 66 6f 72 77 61 72 64 | 62 75 74 74 6f 6e 20 3d | forward|button =|
|00016b90| 20 30 0d 20 20 20 20 2d | 2d 20 70 75 70 70 65 74 | 0.    -|- puppet|
|00016ba0| 73 70 72 69 74 65 20 66 | 6f 72 77 61 72 64 62 75 |sprite f|orwardbu|
|00016bb0| 74 74 6f 6e 2c 31 0d 20 | 20 20 20 2d 2d 20 73 65 |tton,1. |   -- se|
|00016bc0| 74 20 74 68 65 20 6c 6f | 63 68 20 6f 66 20 73 70 |t the lo|ch of sp|
|00016bd0| 72 69 74 65 20 66 6f 72 | 77 61 72 64 62 75 74 74 |rite for|wardbutt|
|00016be0| 6f 6e 20 3d 20 31 30 30 | 30 0d 20 20 65 6c 73 65 |on = 100|0.  else|
|00016bf0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 76 69 73 |.    set| the vis|
|00016c00| 69 62 69 6c 69 74 79 20 | 6f 66 20 73 70 72 69 74 |ibility |of sprit|
|00016c10| 65 20 66 6f 72 77 61 72 | 64 62 75 74 74 6f 6e 20 |e forwar|dbutton |
|00016c20| 3d 20 31 0d 20 20 20 20 | 2d 2d 20 70 75 70 70 65 |= 1.    |-- puppe|
|00016c30| 74 73 70 72 69 74 65 20 | 66 6f 72 77 61 72 64 62 |tsprite |forwardb|
|00016c40| 75 74 74 6f 6e 2c 30 0d | 20 20 65 6e 64 20 69 66 |utton,0.|  end if|
|00016c50| 0d 20 20 0d 20 20 45 6e | 64 54 72 61 70 4d 6f 75 |.  .  En|dTrapMou|
|00016c60| 73 65 0d 65 6e 64 0d 0d | 2d 2d 2d 2d 2d 2d 2d 2d |se.end..|--------|
|00016c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00016c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00016c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00016ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00016cb0| 2d 2d 2d 2d 2d 2d 0d 6f | 6e 20 53 65 74 56 6f 6c |------.o|n SetVol|
|00016cc0| 75 6d 65 0d 20 20 67 6c | 6f 62 61 6c 20 67 57 6f |ume.  gl|obal gWo|
|00016cd0| 72 6c 64 0d 20 20 0d 20 | 20 73 65 74 20 76 6f 6c |rld.  . | set vol|
|00016ce0| 73 70 72 69 74 65 20 3d | 20 33 37 0d 20 20 0d 20 |sprite =| 37.  . |
|00016cf0| 20 73 65 74 20 6c 65 76 | 65 6c 20 3d 20 74 68 65 | set lev|el = the|
|00016d00| 20 73 6f 75 6e 64 6c 65 | 76 65 6c 0d 20 20 70 75 | soundle|vel.  pu|
|00016d10| 70 70 65 74 73 70 72 69 | 74 65 20 76 6f 6c 73 70 |ppetspri|te volsp|
|00016d20| 72 69 74 65 2c 31 0d 20 | 20 0d 20 20 69 66 20 74 |rite,1. | .  if t|
|00016d30| 68 65 20 66 72 61 6d 65 | 6c 61 62 65 6c 20 3d 20 |he frame|label = |
|00016d40| 22 71 74 22 20 74 68 65 | 6e 0d 20 20 20 20 73 65 |"qt" the|n.    se|
|00016d50| 74 20 74 68 65 20 63 61 | 73 74 6e 75 6d 20 6f 66 |t the ca|stnum of|
|00016d60| 20 73 70 72 69 74 65 20 | 76 6f 6c 73 70 72 69 74 | sprite |volsprit|
|00016d70| 65 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |e = the |number o|
|00016d80| 66 20 63 61 73 74 20 28 | 22 76 6f 6c 22 20 26 20 |f cast (|"vol" & |
|00016d90| 6c 65 76 65 6c 29 0d 20 | 20 65 6e 64 20 69 66 0d |level). | end if.|
|00016da0| 65 6e 64 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |end.----|--------|
|00016db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00016dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00016dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00016de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00016df0| 2d 2d 0d 2d 2d 20 64 72 | 61 67 20 74 68 65 20 76 |--.-- dr|ag the v|
|00016e00| 6f 6c 75 6d 65 20 73 6c | 69 64 65 72 0d 0d 6f 6e |olume sl|ider..on|
|00016e10| 20 56 6f 6c 75 6d 65 44 | 72 61 67 20 64 69 72 0d | VolumeD|rag dir.|
|00016e20| 20 20 67 6c 6f 62 61 6c | 20 67 57 6f 72 6c 64 0d |  global| gWorld.|
|00016e30| 20 20 0d 20 20 73 65 74 | 20 6d 65 20 3d 20 74 68 |  .  set| me = th|
|00016e40| 65 20 63 6c 69 63 6b 6f | 6e 0d 20 20 69 66 20 6e |e clicko|n.  if n|
|00016e50| 6f 74 20 74 68 65 20 70 | 75 70 70 65 74 20 6f 66 |ot the p|uppet of|
|00016e60| 20 73 70 72 69 74 65 20 | 6d 65 20 74 68 65 6e 20 | sprite |me then |
|00016e70| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 6d 65 2c |puppetsp|rite me,|
|00016e80| 31 0d 20 20 0d 20 20 73 | 65 74 20 6f 6c 64 6c 65 |1.  .  s|et oldle|
|00016e90| 76 65 6c 20 3d 20 74 68 | 65 20 73 6f 75 6e 64 6c |vel = th|e soundl|
|00016ea0| 65 76 65 6c 0d 20 20 0d | 20 20 69 66 20 74 68 65 |evel.  .|  if the|
|00016eb0| 20 70 61 72 61 6d 63 6f | 75 6e 74 20 3d 20 30 20 | paramco|unt = 0 |
|00016ec0| 74 68 65 6e 0d 20 20 20 | 20 0d 20 20 20 20 69 66 |then.   | .    if|
|00016ed0| 20 67 57 6f 72 6c 64 20 | 3d 20 22 6d 69 6e 64 22 | gWorld |= "mind"|
|00016ee0| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 73 65 74 20 | then.  |    set |
|00016ef0| 62 6f 74 74 6f 6d 20 3d | 20 20 33 35 20 20 20 20 |bottom =|  35    |
|00016f00| 2d 2d 20 6c 65 76 65 6c | 20 31 0d 20 20 20 20 65 |-- level| 1.    e|
|00016f10| 6c 73 65 0d 20 20 20 20 | 20 20 73 65 74 20 62 6f |lse.    |  set bo|
|00016f20| 74 74 6f 6d 20 3d 20 20 | 32 35 20 20 20 20 2d 2d |ttom =  |25    --|
|00016f30| 20 6c 65 76 65 6c 20 31 | 0d 20 20 20 20 65 6e 64 | level 1|.    end|
|00016f40| 20 69 66 20 0d 20 20 20 | 20 0d 20 20 20 20 73 65 | if .   | .    se|
|00016f50| 74 20 69 6e 63 20 3d 20 | 28 28 74 68 65 20 68 65 |t inc = |((the he|
|00016f60| 69 67 68 74 20 6f 66 20 | 73 70 72 69 74 65 20 6d |ight of |sprite m|
|00016f70| 65 29 20 2d 20 62 6f 74 | 74 6f 6d 29 2f 37 20 2d |e) - bot|tom)/7 -|
|00016f80| 2d 20 70 69 78 65 6c 73 | 20 70 65 72 20 6c 65 76 |- pixels| per lev|
|00016f90| 65 6c 0d 20 20 20 20 0d | 20 20 20 20 72 65 70 65 |el.    .|    repe|
|00016fa0| 61 74 20 77 68 69 6c 65 | 20 74 68 65 20 6d 6f 75 |at while| the mou|
|00016fb0| 73 65 64 6f 77 6e 0d 20 | 20 20 20 20 20 73 65 74 |sedown. |     set|
|00016fc0| 20 6d 76 20 3d 20 74 68 | 65 20 6d 6f 75 73 65 76 | mv = th|e mousev|
|00016fd0| 0d 20 20 20 20 20 20 73 | 65 74 20 76 20 3d 20 6d |.      s|et v = m|
|00016fe0| 76 20 2d 20 28 74 68 65 | 20 74 6f 70 20 6f 66 20 |v - (the| top of |
|00016ff0| 73 70 72 69 74 65 20 6d | 65 29 20 20 20 0d 20 20 |sprite m|e)   .  |
|00017000| 20 20 20 20 73 65 74 20 | 6c 65 76 65 6c 20 3d 20 |    set |level = |
|00017010| 38 2d 28 76 2f 69 6e 63 | 29 0d 20 20 20 20 20 20 |8-(v/inc|).      |
|00017020| 69 66 20 6c 65 76 65 6c | 20 3e 20 37 20 74 68 65 |if level| > 7 the|
|00017030| 6e 20 73 65 74 20 6c 65 | 76 65 6c 20 3d 20 37 0d |n set le|vel = 7.|
|00017040| 20 20 20 20 20 20 65 6c | 73 65 20 69 66 20 6c 65 |      el|se if le|
|00017050| 76 65 6c 20 3c 20 30 20 | 74 68 65 6e 20 73 65 74 |vel < 0 |then set|
|00017060| 20 6c 65 76 65 6c 20 3d | 20 30 0d 20 20 20 20 20 | level =| 0.     |
|00017070| 20 69 66 20 6f 6c 64 6c | 65 76 65 6c 20 3c 3e 20 | if oldl|evel <> |
|00017080| 6c 65 76 65 6c 20 74 68 | 65 6e 0d 20 20 20 20 20 |level th|en.     |
|00017090| 20 20 20 73 65 74 20 74 | 68 65 20 73 6f 75 6e 64 |   set t|he sound|
|000170a0| 6c 65 76 65 6c 20 3d 20 | 6c 65 76 65 6c 0d 20 20 |level = |level.  |
|000170b0| 20 20 20 20 20 20 2d 2d | 20 20 70 75 70 70 65 74 |      --|  puppet|
|000170c0| 73 6f 75 6e 64 20 22 64 | 6f 6f 70 22 0d 20 20 20 |sound "d|oop".   |
|000170d0| 20 20 20 20 20 73 65 74 | 20 6f 6c 64 6c 65 76 65 |     set| oldleve|
|000170e0| 6c 20 3d 20 6c 65 76 65 | 6c 0d 20 20 20 20 20 20 |l = leve|l.      |
|000170f0| 65 6e 64 20 69 66 0d 20 | 20 20 20 20 20 75 70 64 |end if. |     upd|
|00017100| 61 74 65 73 74 61 67 65 | 0d 20 20 20 20 20 20 69 |atestage|.      i|
|00017110| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 62 6f 64 79 |f gWorld| = "body|
|00017120| 22 20 61 6e 64 20 74 68 | 65 20 66 72 61 6d 65 6c |" and th|e framel|
|00017130| 61 62 65 6c 20 3d 20 22 | 63 75 74 74 69 6e 67 22 |abel = "|cutting"|
|00017140| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 73 65 | then.  |      se|
|00017150| 74 20 74 68 65 20 63 61 | 73 74 6e 75 6d 20 6f 66 |t the ca|stnum of|
|00017160| 20 73 70 72 69 74 65 20 | 6d 65 20 3d 20 74 68 65 | sprite |me = the|
|00017170| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|00017180| 28 22 76 6f 6c 62 22 20 | 26 20 6c 65 76 65 6c 29 |("volb" |& level)|
|00017190| 0d 20 20 20 20 20 20 65 | 6c 73 65 0d 20 20 20 20 |.      e|lse.    |
|000171a0| 20 20 20 20 73 65 74 20 | 74 68 65 20 63 61 73 74 |    set |the cast|
|000171b0| 6e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 6d 65 |num of s|prite me|
|000171c0| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|000171d0| 20 63 61 73 74 20 28 22 | 76 6f 6c 22 20 26 20 6c | cast ("|vol" & l|
|000171e0| 65 76 65 6c 29 0d 20 20 | 20 20 20 20 65 6e 64 20 |evel).  |    end |
|000171f0| 69 66 0d 20 20 20 20 65 | 6e 64 20 72 65 70 65 61 |if.    e|nd repea|
|00017200| 74 0d 20 20 20 20 0d 20 | 20 65 6c 73 65 20 69 66 |t.    . | else if|
|00017210| 20 64 69 72 20 3d 20 22 | 68 6f 72 69 7a 6f 6e 74 | dir = "|horizont|
|00017220| 61 6c 22 20 74 68 65 6e | 0d 20 20 20 20 0d 20 20 |al" then|.    .  |
|00017230| 20 20 73 65 74 20 62 6f | 74 74 6f 6d 20 3d 20 32 |  set bo|ttom = 2|
|00017240| 35 20 2d 2d 20 6c 65 76 | 65 6c 20 31 0d 20 20 20 |5 -- lev|el 1.   |
|00017250| 20 0d 20 20 20 20 73 65 | 74 20 69 6e 63 20 3d 20 | .    se|t inc = |
|00017260| 28 28 74 68 65 20 77 69 | 64 74 68 20 6f 66 20 73 |((the wi|dth of s|
|00017270| 70 72 69 74 65 20 6d 65 | 29 20 2d 20 62 6f 74 74 |prite me|) - bott|
|00017280| 6f 6d 29 2f 37 20 2d 2d | 20 70 69 78 65 6c 73 20 |om)/7 --| pixels |
|00017290| 70 65 72 20 6c 65 76 65 | 6c 0d 20 20 20 20 0d 20 |per leve|l.    . |
|000172a0| 20 20 20 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |   repea|t while |
|000172b0| 74 68 65 20 6d 6f 75 73 | 65 64 6f 77 6e 0d 20 20 |the mous|edown.  |
|000172c0| 20 20 20 20 73 65 74 20 | 6d 68 20 3d 20 74 68 65 |    set |mh = the|
|000172d0| 20 6d 6f 75 73 65 68 0d | 20 20 20 20 20 20 73 65 | mouseh.|      se|
|000172e0| 74 20 68 20 3d 20 28 74 | 68 65 20 72 69 67 68 74 |t h = (t|he right|
|000172f0| 20 6f 66 20 73 70 72 69 | 74 65 20 6d 65 29 20 2d | of spri|te me) -|
|00017300| 20 6d 68 0d 20 20 20 20 | 20 20 73 65 74 20 6c 65 | mh.    |  set le|
|00017310| 76 65 6c 20 3d 20 38 2d | 28 68 2f 69 6e 63 29 0d |vel = 8-|(h/inc).|
|00017320| 20 20 20 20 20 20 69 66 | 20 6c 65 76 65 6c 20 3e |      if| level >|
|00017330| 20 37 20 74 68 65 6e 20 | 73 65 74 20 6c 65 76 65 | 7 then |set leve|
|00017340| 6c 20 3d 20 37 0d 20 20 | 20 20 20 20 65 6c 73 65 |l = 7.  |    else|
|00017350| 20 69 66 20 6c 65 76 65 | 6c 20 3c 20 30 20 74 68 | if leve|l < 0 th|
|00017360| 65 6e 20 73 65 74 20 6c | 65 76 65 6c 20 3d 20 30 |en set l|evel = 0|
|00017370| 0d 20 20 20 20 20 20 69 | 66 20 6f 6c 64 6c 65 76 |.      i|f oldlev|
|00017380| 65 6c 20 3c 3e 20 6c 65 | 76 65 6c 20 74 68 65 6e |el <> le|vel then|
|00017390| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|000173a0| 20 73 6f 75 6e 64 6c 65 | 76 65 6c 20 3d 20 6c 65 | soundle|vel = le|
|000173b0| 76 65 6c 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 20 |vel.    |    --  |
|000173c0| 70 75 70 70 65 74 73 6f | 75 6e 64 20 22 64 6f 6f |puppetso|und "doo|
|000173d0| 70 22 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 6f |p".     |   set o|
|000173e0| 6c 64 6c 65 76 65 6c 20 | 3d 20 6c 65 76 65 6c 0d |ldlevel |= level.|
|000173f0| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |      en|d if.   |
|00017400| 20 20 20 75 70 64 61 74 | 65 73 74 61 67 65 0d 20 |   updat|estage. |
|00017410| 20 20 20 20 20 69 66 20 | 67 57 6f 72 6c 64 20 3d |     if |gWorld =|
|00017420| 20 22 62 6f 64 79 22 20 | 74 68 65 6e 0d 20 20 20 | "body" |then.   |
|00017430| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 63 61 73 |     set| the cas|
|00017440| 74 6e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 6d |tnum of |sprite m|
|00017450| 65 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |e = the |number o|
|00017460| 66 20 63 61 73 74 20 28 | 22 76 6f 6c 62 22 20 26 |f cast (|"volb" &|
|00017470| 20 6c 65 76 65 6c 29 0d | 20 20 20 20 20 20 65 6c | level).|      el|
|00017480| 73 65 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |se.     |   set t|
|00017490| 68 65 20 63 61 73 74 6e | 75 6d 20 6f 66 20 73 70 |he castn|um of sp|
|000174a0| 72 69 74 65 20 6d 65 20 | 3d 20 74 68 65 20 6e 75 |rite me |= the nu|
|000174b0| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 28 22 76 |mber of |cast ("v|
|000174c0| 6f 6c 22 20 26 20 6c 65 | 76 65 6c 29 0d 20 20 20 |ol" & le|vel).   |
|000174d0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 65 6e |   end i|f.    en|
|000174e0| 64 20 72 65 70 65 61 74 | 0d 20 20 20 20 0d 20 20 |d repeat|.    .  |
|000174f0| 65 6e 64 20 69 66 0d 65 | 6e 64 0d 00 01 1f 00 0b |end if.e|nd......|
|00017500| 01 dc 02 4f 00 00 30 45 | 00 00 30 45 00 00 00 00 |...O..0E|..0E....|
|00017510| 00 05 00 00 00 00 00 0b | 00 09 00 04 00 00 00 09 |........|........|
|00017520| 00 00 00 00 00 00 00 00 | 00 39 00 0b 00 09 00 04 |........|.9......|
|00017530| 00 00 00 09 ac ac 11 11 | 09 09 00 00 00 41 00 0b |........|.....A..|
|00017540| 00 09 00 04 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00017550| 15 bb 00 0b 00 09 00 04 | 00 00 00 09 ac ac 11 11 |........|........|
|00017560| 09 09 00 00 15 c4 00 0b | 00 09 00 04 00 00 00 09 |........|........|
|00017570| 00 00 00 00 00 00 43 41 | 53 74 00 00 18 38 00 04 |......CA|St...8..|
|00017580| 00 00 18 2e 0b 00 00 03 | 00 00 00 14 00 c2 eb b4 |........|........|
|00017590| 00 00 00 00 00 00 00 00 | 00 00 00 06 00 07 00 00 |........|........|
|000175a0| 00 00 00 00 17 cd 00 00 | 17 ce 00 00 17 ce 00 00 |........|........|
|000175b0| 17 ce 00 00 17 ce 00 00 | 17 e2 00 00 17 f8 6f 6e |........|......on|
|000175c0| 20 63 68 65 63 6b 63 61 | 73 74 0d 20 20 72 65 70 | checkca|st.  rep|
|000175d0| 65 61 74 20 77 69 74 68 | 20 69 20 3d 20 31 20 74 |eat with| i = 1 t|
|000175e0| 6f 20 39 39 39 20 20 0d | 20 20 20 20 69 66 20 28 |o 999  .|    if (|
|000175f0| 74 68 65 20 64 65 70 74 | 68 20 6f 66 20 63 61 73 |the dept|h of cas|
|00017600| 74 20 69 29 20 3e 20 38 | 20 74 68 65 6e 20 70 75 |t i) > 8| then pu|
|00017610| 74 20 22 77 68 6f 6f 70 | 73 21 20 63 61 73 74 20 |t "whoop|s! cast |
|00017620| 22 20 26 26 20 69 20 26 | 26 20 22 20 3e 20 38 20 |" && i &|& " > 8 |
|00017630| 62 69 74 21 21 22 0d 20 | 20 20 20 0d 20 20 65 6e |bit!!". |   .  en|
|00017640| 64 20 72 65 70 65 61 74 | 0d 65 6e 64 0d 0d 2d 2d |d repeat|.end..--|
|00017650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 0d 6f |--------|-----..o|
|000176a0| 6e 20 47 65 74 43 61 70 | 74 69 6f 6e 0d 20 20 67 |n GetCap|tion.  g|
|000176b0| 6c 6f 62 61 6c 20 67 43 | 75 72 43 68 61 70 2c 20 |lobal gC|urChap, |
|000176c0| 67 43 75 72 41 72 74 69 | 63 6c 65 2c 20 67 43 61 |gCurArti|cle, gCa|
|000176d0| 70 74 69 6f 6e 73 0d 20 | 20 0d 20 20 73 65 74 20 |ptions. | .  set |
|000176e0| 74 68 65 20 69 74 65 6d | 64 65 6c 69 6d 69 74 65 |the item|delimite|
|000176f0| 72 20 3d 20 22 40 22 0d | 20 20 73 65 74 20 74 6d |r = "@".|  set tm|
|00017700| 70 20 3d 20 69 74 65 6d | 20 67 43 75 72 43 68 61 |p = item| gCurCha|
|00017710| 70 20 6f 66 20 67 43 61 | 70 74 69 6f 6e 73 0d 20 |p of gCa|ptions. |
|00017720| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|00017730| 69 6d 69 74 65 72 20 3d | 20 22 23 22 20 20 0d 20 |imiter =| "#"  . |
|00017740| 20 73 65 74 20 74 6d 70 | 20 3d 20 69 74 65 6d 20 | set tmp| = item |
|00017750| 67 43 75 72 41 72 74 69 | 63 6c 65 20 6f 66 20 74 |gCurArti|cle of t|
|00017760| 6d 70 0d 20 20 73 65 74 | 20 74 68 65 20 69 74 65 |mp.  set| the ite|
|00017770| 6d 64 65 6c 69 6d 69 74 | 65 72 20 3d 20 22 2c 22 |mdelimit|er = ","|
|00017780| 0d 20 20 0d 20 20 2d 2d | 20 67 65 74 20 72 69 64 |.  .  --| get rid|
|00017790| 20 6f 66 20 74 68 65 20 | 6c 65 61 64 69 6e 67 20 | of the |leading |
|000177a0| 6e 65 77 6c 69 6e 65 2c | 20 72 69 67 68 74 20 61 |newline,| right a|
|000177b0| 66 74 65 72 20 74 68 65 | 20 73 74 72 75 64 65 6c |fter the| strudel|
|000177c0| 0d 20 20 64 65 6c 65 74 | 65 20 6c 69 6e 65 20 31 |.  delet|e line 1|
|000177d0| 20 6f 66 20 74 6d 70 20 | 20 0d 20 20 0d 20 20 2d | of tmp | .  .  -|
|000177e0| 2d 20 61 64 64 20 61 20 | 70 65 72 69 6f 64 20 61 |- add a |period a|
|000177f0| 74 20 74 68 65 20 65 6e | 64 20 6f 66 20 74 68 65 |t the en|d of the|
|00017800| 20 74 65 78 74 0d 20 20 | 73 65 74 20 74 6d 70 63 | text.  |set tmpc|
|00017810| 68 61 72 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |har = th|e number|
|00017820| 20 6f 66 20 63 68 61 72 | 73 20 6f 66 20 74 6d 70 | of char|s of tmp|
|00017830| 0d 20 20 69 66 20 63 68 | 61 72 20 74 6d 70 63 68 |.  if ch|ar tmpch|
|00017840| 61 72 20 6f 66 20 74 6d | 70 20 3d 20 72 65 74 75 |ar of tm|p = retu|
|00017850| 72 6e 20 74 68 65 6e 20 | 70 75 74 20 22 2e 22 20 |rn then |put "." |
|00017860| 69 6e 74 6f 20 63 68 61 | 72 20 74 6d 70 63 68 61 |into cha|r tmpcha|
|00017870| 72 20 6f 66 20 74 6d 70 | 0d 20 20 72 65 74 75 72 |r of tmp|.  retur|
|00017880| 6e 20 74 6d 70 0d 65 6e | 64 0d 2d 2d 2d 2d 2d 2d |n tmp.en|d.------|
|00017890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000178a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000178b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000178c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000178d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 6f 6e 20 55 6e 6c |--------|-.on Unl|
|000178e0| 6f 61 64 4d 65 6d 0d 20 | 20 2d 2d 20 63 6c 65 61 |oadMem. | -- clea|
|000178f0| 6e 20 74 68 65 20 6d 65 | 6d 6f 72 79 0d 20 20 75 |n the me|mory.  u|
|00017900| 6e 6c 6f 61 64 20 2d 2d | 20 75 6e 6c 6f 61 64 20 |nload --| unload |
|00017910| 61 6c 6c 20 74 68 65 20 | 63 61 73 74 6d 65 6d 62 |all the |castmemb|
|00017920| 65 72 73 20 69 6e 20 61 | 6c 6c 20 74 68 65 20 66 |ers in a|ll the f|
|00017930| 72 61 6d 65 73 20 61 70 | 61 72 74 20 66 72 6f 6d |rames ap|art from|
|00017940| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 6f 6e 65 | the cur|rent one|
|00017950| 0d 20 20 70 75 74 20 22 | 75 6e 6c 6f 61 64 65 64 |.  put "|unloaded|
|00017960| 20 6d 65 6d 6f 72 79 20 | 66 72 6f 6d 20 65 76 65 | memory |from eve|
|00017970| 72 79 74 68 69 6e 67 20 | 65 78 63 65 70 74 20 63 |rything |except c|
|00017980| 75 72 72 65 6e 74 20 66 | 72 61 6d 65 2e 20 66 72 |urrent f|rame. fr|
|00017990| 65 65 3d 22 26 26 28 74 | 68 65 20 66 72 65 65 62 |ee="&&(t|he freeb|
|000179a0| 79 74 65 73 2f 31 30 32 | 34 29 0d 65 6e 64 0d 2d |ytes/102|4).end.-|
|000179b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000179c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000179d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000179e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000179f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 6f |--------|------.o|
|00017a00| 6e 20 43 6c 65 61 6e 4d | 65 6d 0d 20 20 67 6c 6f |n CleanM|em.  glo|
|00017a10| 62 61 6c 20 67 43 75 72 | 50 69 63 0d 20 20 0d 20 |bal gCur|Pic.  . |
|00017a20| 20 69 66 20 67 43 75 72 | 50 69 63 20 3e 20 30 20 | if gCur|Pic > 0 |
|00017a30| 74 68 65 6e 0d 20 20 20 | 20 75 6e 6c 6f 61 64 20 |then.   | unload |
|00017a40| 67 43 75 72 50 69 63 0d | 20 20 20 20 70 75 74 20 |gCurPic.|    put |
|00017a50| 22 75 6e 6c 6f 61 64 65 | 64 20 22 20 26 26 20 28 |"unloade|d " && (|
|00017a60| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 63 61 73 74 |the name| of cast|
|00017a70| 20 67 43 75 72 50 69 63 | 29 20 26 26 20 22 20 66 | gCurPic|) && " f|
|00017a80| 72 65 65 3d 22 26 26 28 | 74 68 65 20 66 72 65 65 |ree="&&(|the free|
|00017a90| 62 79 74 65 73 2f 31 30 | 32 34 29 0d 20 20 20 20 |bytes/10|24).    |
|00017aa0| 0d 20 20 65 6e 64 20 69 | 66 0d 65 6e 64 0d 0d 2d |.  end i|f.end..-|
|00017ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 6f |--------|------.o|
|00017b00| 6e 20 42 6c 61 63 6b 53 | 63 72 65 65 6e 0d 20 20 |n BlackS|creen.  |
|00017b10| 67 6c 6f 62 61 6c 20 67 | 4d 61 6b 65 72 4e 75 6d |global g|MakerNum|
|00017b20| 2c 20 67 57 6f 72 6c 64 | 2c 20 67 4e 75 67 67 65 |, gWorld|, gNugge|
|00017b30| 74 73 0d 20 20 0d 20 20 | 2d 2d 20 62 6c 61 63 6b |ts.  .  |-- black|
|00017b40| 6f 75 74 20 74 68 65 20 | 73 63 72 65 65 6e 0d 20 |out the |screen. |
|00017b50| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 34 37 | puppets|prite 47|
|00017b60| 2c 31 0d 20 20 73 65 74 | 20 74 68 65 20 63 61 73 |,1.  set| the cas|
|00017b70| 74 6e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 34 |tnum of |sprite 4|
|00017b80| 37 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |7 = the |number o|
|00017b90| 66 20 63 61 73 74 20 22 | 62 6c 61 63 6b 62 6f 78 |f cast "|blackbox|
|00017ba0| 22 0d 20 20 73 70 72 69 | 74 65 42 6f 78 20 34 37 |".  spri|teBox 47|
|00017bb0| 2c 20 30 2c 20 30 2c 20 | 36 34 30 2c 20 34 38 30 |, 0, 0, |640, 480|
|00017bc0| 0d 20 20 0d 20 20 2d 2d | 20 67 65 74 20 74 68 65 |.  .  --| get the|
|00017bd0| 20 73 74 72 61 70 6c 69 | 6e 65 0d 20 20 73 65 74 | strapli|ne.  set|
|00017be0| 20 67 4d 61 6b 65 72 6e | 75 6d 20 3d 20 76 61 6c | gMakern|um = val|
|00017bf0| 75 65 28 67 4d 61 6b 65 | 72 6e 75 6d 29 0d 20 20 |ue(gMake|rnum).  |
|00017c00| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|00017c10| 66 69 65 6c 64 20 22 73 | 74 72 61 70 6c 69 6e 65 |field "s|trapline|
|00017c20| 22 20 3d 20 6c 69 6e 65 | 20 67 6d 61 6b 65 72 6e |" = line| gmakern|
|00017c30| 75 6d 20 6f 66 20 66 69 | 65 6c 64 20 22 6d 61 6b |um of fi|eld "mak|
|00017c40| 65 72 73 73 74 72 61 70 | 6c 69 6e 65 73 22 0d 20 |ersstrap|lines". |
|00017c50| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|00017c60| 69 6d 69 74 65 72 20 3d | 20 22 2c 22 0d 20 20 64 |imiter =| ",".  d|
|00017c70| 65 6c 65 74 65 20 69 74 | 65 6d 20 31 20 6f 66 20 |elete it|em 1 of |
|00017c80| 66 69 65 6c 64 20 22 73 | 74 72 61 70 6c 69 6e 65 |field "s|trapline|
|00017c90| 22 0d 20 20 0d 20 20 2d | 2d 20 6c 6f 61 64 20 73 |".  .  -|- load s|
|00017ca0| 63 72 69 70 74 20 66 69 | 6c 65 2c 20 70 61 72 73 |cript fi|le, pars|
|00017cb0| 65 20 69 74 2c 20 6c 6f | 61 64 20 74 68 65 20 63 |e it, lo|ad the c|
|00017cc0| 75 74 74 69 6e 67 20 74 | 65 78 74 0d 20 20 52 65 |utting t|ext.  Re|
|00017cd0| 61 64 53 63 72 69 70 74 | 0d 20 20 0d 20 20 73 65 |adScript|.  .  se|
|00017ce0| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|00017cf0| 74 65 72 20 3d 20 22 2e | 22 0d 20 20 73 65 74 20 |ter = ".|".  set |
|00017d00| 67 57 6f 72 6c 64 20 3d | 20 69 74 65 6d 20 31 20 |gWorld =| item 1 |
|00017d10| 6f 66 20 74 68 65 20 6d | 6f 76 69 65 6e 61 6d 65 |of the m|oviename|
|00017d20| 0d 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |.  set t|he itemd|
|00017d30| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 2c 22 0d 20 |elimiter| = ",". |
|00017d40| 20 0d 20 20 73 65 74 20 | 74 6d 70 6e 75 6d 20 3d | .  set |tmpnum =|
|00017d50| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 6c | the num|ber of l|
|00017d60| 69 6e 65 73 20 6f 66 20 | 66 69 65 6c 64 20 28 22 |ines of |field ("|
|00017d70| 4c 6f 61 64 69 6e 67 4c | 69 6e 65 73 22 26 67 57 |LoadingL|ines"&gW|
|00017d80| 6f 72 6c 64 29 0d 20 20 | 73 65 74 20 74 68 65 20 |orld).  |set the |
|00017d90| 74 65 78 74 20 6f 66 20 | 66 69 65 6c 64 20 22 4c |text of |field "L|
|00017da0| 6f 61 64 69 6e 67 54 65 | 78 74 22 20 3d 20 6c 69 |oadingTe|xt" = li|
|00017db0| 6e 65 20 72 61 6e 64 6f | 6d 28 74 6d 70 6e 75 6d |ne rando|m(tmpnum|
|00017dc0| 29 20 6f 66 20 66 69 65 | 6c 64 20 28 22 4c 6f 61 |) of fie|ld ("Loa|
|00017dd0| 64 69 6e 67 4c 69 6e 65 | 73 22 26 67 57 6f 72 6c |dingLine|s"&gWorl|
|00017de0| 64 29 0d 20 20 2d 2d 20 | 73 65 74 20 74 68 65 20 |d).  -- |set the |
|00017df0| 69 74 65 6d 64 65 6c 69 | 6d 69 74 65 72 20 3d 20 |itemdeli|miter = |
|00017e00| 22 23 22 0d 20 20 2d 2d | 20 73 65 74 20 74 68 65 |"#".  --| set the|
|00017e10| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|00017e20| 4c 6f 61 64 69 6e 67 54 | 65 78 74 22 20 3d 20 69 |LoadingT|ext" = i|
|00017e30| 74 65 6d 20 72 61 6e 64 | 6f 6d 28 74 68 65 20 6e |tem rand|om(the n|
|00017e40| 75 6d 62 65 72 20 6f 66 | 20 69 74 65 6d 73 20 6f |umber of| items o|
|00017e50| 66 20 67 4e 75 67 67 65 | 74 73 29 20 6f 66 20 67 |f gNugge|ts) of g|
|00017e60| 4e 75 67 67 65 74 73 0d | 20 20 2d 2d 20 73 65 74 |Nuggets.|  -- set|
|00017e70| 20 74 68 65 20 69 74 65 | 6d 64 65 6c 69 6d 69 74 | the ite|mdelimit|
|00017e80| 65 72 20 3d 20 22 2c 22 | 0d 20 20 0d 20 20 70 75 |er = ","|.  .  pu|
|00017e90| 70 70 65 74 73 70 72 69 | 74 65 20 34 38 2c 31 0d |ppetspri|te 48,1.|
|00017ea0| 20 20 73 65 74 20 74 68 | 65 20 63 61 73 74 6e 75 |  set th|e castnu|
|00017eb0| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 34 38 20 3d |m of spr|ite 48 =|
|00017ec0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|00017ed0| 61 73 74 20 22 4c 6f 61 | 64 69 6e 67 54 65 78 74 |ast "Loa|dingText|
|00017ee0| 22 0d 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 68 |".  set |the loch|
|00017ef0| 20 6f 66 20 73 70 72 69 | 74 65 20 34 38 20 3d 20 | of spri|te 48 = |
|00017f00| 31 30 30 0d 20 20 73 65 | 74 20 74 68 65 20 6c 6f |100.  se|t the lo|
|00017f10| 63 76 20 6f 66 20 73 70 | 72 69 74 65 20 34 38 20 |cv of sp|rite 48 |
|00017f20| 3d 20 31 35 30 0d 20 20 | 0d 65 6e 64 0d 2d 2d 2d |= 150.  |.end.---|
|00017f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00017f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 6f 6e 20 |--------|----.on |
|00017f80| 55 6e 42 6c 61 63 6b 53 | 63 72 65 65 6e 0d 20 20 |UnBlackS|creen.  |
|00017f90| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|00017fa0| 73 70 72 69 74 65 20 34 | 37 20 3d 20 32 30 30 30 |sprite 4|7 = 2000|
|00017fb0| 0d 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |.  set t|he loch |
|00017fc0| 6f 66 20 73 70 72 69 74 | 65 20 34 38 20 3d 20 32 |of sprit|e 48 = 2|
|00017fd0| 30 30 30 0d 20 20 70 75 | 70 70 65 74 73 70 72 69 |000.  pu|ppetspri|
|00017fe0| 74 65 20 34 38 2c 30 0d | 20 20 70 75 70 70 65 74 |te 48,0.|  puppet|
|00017ff0| 73 70 72 69 74 65 20 34 | 37 2c 30 0d 20 20 0d 20 |sprite 4|7,0.  . |
|00018000| 20 75 70 64 61 74 65 73 | 74 61 67 65 0d 65 6e 64 | updates|tage.end|
|00018010| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00018020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018060| 0d 2d 2d 20 70 6c 61 79 | 20 61 20 63 6c 69 63 6b |.-- play| a click|
|00018070| 20 73 6f 75 6e 64 20 6f | 6e 20 73 6f 75 6e 64 20 | sound o|n sound |
|00018080| 63 68 61 6e 6e 65 6c 20 | 32 0d 2d 2d 20 70 6c 75 |channel |2.-- plu|
|00018090| 73 2c 20 74 72 61 70 20 | 6d 6f 75 73 65 63 6c 69 |s, trap |mousecli|
|000180a0| 63 6b 73 20 68 65 72 65 | 0d 0d 6f 6e 20 43 6c 69 |cks here|..on Cli|
|000180b0| 63 6b 53 6e 64 0d 20 20 | 67 6c 6f 62 61 6c 20 67 |ckSnd.  |global g|
|000180c0| 43 6c 69 63 6b 53 6e 64 | 43 61 73 74 0d 20 20 0d |ClickSnd|Cast.  .|
|000180d0| 20 20 70 75 70 70 65 74 | 73 6f 75 6e 64 20 32 2c |  puppet|sound 2,|
|000180e0| 67 43 6c 69 63 6b 53 6e | 64 43 61 73 74 20 20 0d |gClickSn|dCast  .|
|000180f0| 20 20 54 72 61 70 4d 6f | 75 73 65 0d 20 20 0d 65 |  TrapMo|use.  .e|
|00018100| 6e 64 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nd.-----|--------|
|00018110| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018150| 2d 2d 0d 6f 6e 20 54 72 | 61 70 4d 6f 75 73 65 20 |--.on Tr|apMouse |
|00018160| 2d 2d 20 74 72 61 70 20 | 6d 6f 75 73 65 63 6c 69 |-- trap |mousecli|
|00018170| 63 6b 73 20 6f 6e 20 74 | 68 65 20 73 63 72 65 65 |cks on t|he scree|
|00018180| 6e 0d 20 20 67 6c 6f 62 | 61 6c 20 67 54 72 61 70 |n.  glob|al gTrap|
|00018190| 53 74 61 72 74 0d 20 20 | 0d 20 20 2d 2d 20 69 66 |Start.  |.  -- if|
|000181a0| 20 74 68 65 20 74 69 63 | 6b 73 20 2d 20 67 54 72 | the tic|ks - gTr|
|000181b0| 61 70 53 74 61 72 74 20 | 3c 20 36 30 20 74 68 65 |apStart |< 60 the|
|000181c0| 6e 20 0d 20 20 2d 2d 20 | 20 20 70 75 74 20 22 74 |n .  -- |  put "t|
|000181d0| 72 61 70 70 65 64 20 6d | 6f 75 73 65 63 6c 69 63 |rapped m|ouseclic|
|000181e0| 6b 2c 20 77 69 74 68 20 | 74 69 6d 65 72 21 22 0d |k, with |timer!".|
|000181f0| 20 20 2d 2d 20 65 6e 64 | 20 69 66 0d 20 20 0d 20 |  -- end| if.  . |
|00018200| 20 2d 2d 20 70 75 74 20 | 28 74 68 65 20 74 69 63 | -- put |(the tic|
|00018210| 6b 73 20 2d 20 67 54 72 | 61 70 73 74 61 72 74 29 |ks - gTr|apstart)|
|00018220| 0d 20 20 2d 2d 20 73 65 | 74 20 67 54 72 61 70 53 |.  -- se|t gTrapS|
|00018230| 74 61 72 74 20 3d 20 74 | 68 65 20 74 69 63 6b 73 |tart = t|he ticks|
|00018240| 0d 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |.  puppe|tsprite |
|00018250| 34 36 2c 31 0d 20 20 73 | 65 74 20 74 68 65 20 63 |46,1.  s|et the c|
|00018260| 61 73 74 6e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astnum o|f sprite|
|00018270| 20 34 36 20 3d 20 31 30 | 34 32 20 2d 2d 20 74 68 | 46 = 10|42 -- th|
|00018280| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 61 73 74 |e number| of cast|
|00018290| 20 22 73 63 72 65 65 6e | 62 6c 61 6e 6b 22 0d 20 | "screen|blank". |
|000182a0| 20 73 70 72 69 74 65 62 | 6f 78 20 34 36 2c 30 2c | spriteb|ox 46,0,|
|000182b0| 30 2c 36 34 30 2c 34 38 | 30 0d 20 20 75 70 64 61 |0,640,48|0.  upda|
|000182c0| 74 65 73 74 61 67 65 0d | 20 20 2d 2d 70 75 74 20 |testage.|  --put |
|000182d0| 22 73 74 61 72 74 20 6d | 6f 75 73 65 74 72 61 70 |"start m|ousetrap|
|000182e0| 22 0d 65 6e 64 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |".end.--|--------|
|000182f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018330| 2d 2d 2d 2d 2d 0d 6f 6e | 20 45 6e 64 54 72 61 70 |-----.on| EndTrap|
|00018340| 4d 6f 75 73 65 0d 20 20 | 70 75 70 70 65 74 73 70 |Mouse.  |puppetsp|
|00018350| 72 69 74 65 20 34 36 2c | 30 0d 20 20 2d 2d 70 75 |rite 46,|0.  --pu|
|00018360| 74 20 22 65 6e 64 20 6d | 6f 75 73 65 74 72 61 70 |t "end m|ousetrap|
|00018370| 22 0d 65 6e 64 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |".end.--|--------|
|00018380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000183a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000183b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000183c0| 2d 2d 2d 2d 2d 0d 6f 6e | 20 42 75 74 74 6f 6e 43 |-----.on| ButtonC|
|000183d0| 6c 69 63 6b 0d 20 20 67 | 6c 6f 62 61 6c 20 67 43 |lick.  g|lobal gC|
|000183e0| 6c 69 63 6b 53 6e 64 43 | 61 73 74 0d 20 20 0d 20 |lickSndC|ast.  . |
|000183f0| 20 43 6c 69 63 6b 53 6e | 64 0d 20 20 75 70 64 61 | ClickSn|d.  upda|
|00018400| 74 65 73 74 61 67 65 0d | 20 20 73 65 74 20 6d 65 |testage.|  set me|
|00018410| 20 3d 20 74 68 65 20 63 | 6c 69 63 6b 6f 6e 0d 20 | = the c|lickon. |
|00018420| 20 73 65 74 20 6d 79 6e | 61 6d 65 20 3d 20 74 68 | set myn|ame = th|
|00018430| 65 20 6e 61 6d 65 20 6f | 66 20 63 61 73 74 20 28 |e name o|f cast (|
|00018440| 74 68 65 20 63 61 73 74 | 6e 75 6d 20 6f 66 20 73 |the cast|num of s|
|00018450| 70 72 69 74 65 20 6d 65 | 29 0d 20 20 0d 20 20 73 |prite me|).  .  s|
|00018460| 65 74 20 74 68 65 20 69 | 74 65 6d 64 65 6c 69 6d |et the i|temdelim|
|00018470| 69 74 65 72 20 3d 20 22 | 2e 22 0d 20 20 73 65 74 |iter = "|.".  set|
|00018480| 20 6d 79 6e 61 6d 65 20 | 3d 20 69 74 65 6d 20 31 | myname |= item 1|
|00018490| 20 6f 66 20 6d 79 6e 61 | 6d 65 0d 20 20 73 65 74 | of myna|me.  set|
|000184a0| 20 74 68 65 20 69 74 65 | 6d 64 65 6c 69 6d 69 74 | the ite|mdelimit|
|000184b0| 65 72 20 3d 20 22 2c 22 | 0d 20 20 0d 20 20 70 75 |er = ","|.  .  pu|
|000184c0| 70 70 65 74 73 70 72 69 | 74 65 20 6d 65 2c 31 0d |ppetspri|te me,1.|
|000184d0| 20 20 73 65 74 20 6d 79 | 6e 61 6d 65 20 3d 20 6d |  set my|name = m|
|000184e0| 79 6e 61 6d 65 20 26 20 | 22 2e 64 6f 77 6e 22 0d |yname & |".down".|
|000184f0| 20 20 73 65 74 20 74 68 | 65 20 63 61 73 74 6e 75 |  set th|e castnu|
|00018500| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 6d 65 20 3d |m of spr|ite me =|
|00018510| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|00018520| 61 73 74 20 6d 79 6e 61 | 6d 65 0d 20 20 0d 20 20 |ast myna|me.  .  |
|00018530| 75 70 64 61 74 65 73 74 | 61 67 65 0d 20 20 0d 20 |updatest|age.  . |
|00018540| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 6d 65 | puppets|prite me|
|00018550| 2c 30 0d 65 6e 64 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |,0.end.-|--------|
|00018560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000185a0| 2d 2d 2d 2d 2d 2d 0d 6f | 6e 20 47 65 74 4d 61 70 |------.o|n GetMap|
|000185b0| 43 61 70 20 0d 20 20 67 | 6c 6f 62 61 6c 20 67 4d |Cap .  g|lobal gM|
|000185c0| 61 6b 65 72 4e 61 6d 65 | 2c 20 67 4d 61 70 43 61 |akerName|, gMapCa|
|000185d0| 70 2c 20 67 43 75 72 4d | 61 70 0d 20 20 0d 20 20 |p, gCurM|ap.  .  |
|000185e0| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|000185f0| 6d 69 74 65 72 20 3d 20 | 22 23 22 20 0d 20 20 73 |miter = |"#" .  s|
|00018600| 65 74 20 6e 75 6d 20 3d | 20 74 68 65 20 6e 75 6d |et num =| the num|
|00018610| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 6f 66 20 |ber of i|tems of |
|00018620| 66 69 65 6c 64 20 22 4d | 61 70 43 61 70 74 69 6f |field "M|apCaptio|
|00018630| 6e 73 22 0d 20 20 73 65 | 74 20 74 68 65 20 69 74 |ns".  se|t the it|
|00018640| 65 6d 64 65 6c 69 6d 69 | 74 65 72 20 3d 20 22 2c |emdelimi|ter = ",|
|00018650| 22 20 0d 20 20 0d 20 20 | 0d 20 20 73 65 74 20 74 |" .  .  |.  set t|
|00018660| 68 65 20 74 65 78 74 20 | 6f 66 20 66 69 65 6c 64 |he text |of field|
|00018670| 20 22 63 61 70 74 69 6f | 6e 2d 6d 61 70 22 20 3d | "captio|n-map" =|
|00018680| 20 22 20 22 0d 20 20 0d | 20 20 72 65 70 65 61 74 | " ".  .|  repeat|
|00018690| 20 77 69 74 68 20 69 20 | 3d 20 31 20 74 6f 20 6e | with i |= 1 to n|
|000186a0| 75 6d 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 69 |um.    s|et the i|
|000186b0| 74 65 6d 64 65 6c 69 6d | 69 74 65 72 20 3d 20 22 |temdelim|iter = "|
|000186c0| 23 22 20 0d 20 20 20 20 | 73 65 74 20 67 4d 61 70 |#" .    |set gMap|
|000186d0| 43 61 70 20 3d 20 69 74 | 65 6d 20 69 20 6f 66 20 |Cap = it|em i of |
|000186e0| 66 69 65 6c 64 20 22 4d | 61 70 43 61 70 74 69 6f |field "M|apCaptio|
|000186f0| 6e 73 22 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |ns".    |set the |
|00018700| 69 74 65 6d 64 65 6c 69 | 6d 69 74 65 72 20 3d 20 |itemdeli|miter = |
|00018710| 22 2c 22 0d 20 20 20 20 | 69 66 20 77 6f 72 64 20 |",".    |if word |
|00018720| 31 20 6f 66 20 67 4d 61 | 70 43 61 70 20 3d 20 67 |1 of gMa|pCap = g|
|00018730| 4d 61 6b 65 72 4e 61 6d | 65 20 74 68 65 6e 0d 20 |MakerNam|e then. |
|00018740| 20 20 20 20 20 73 65 74 | 20 67 43 75 72 4d 61 70 |     set| gCurMap|
|00018750| 20 3d 20 31 0d 20 20 20 | 20 20 20 47 65 74 4e 65 | = 1.   |   GetNe|
|00018760| 78 74 4d 61 70 43 61 70 | 0d 20 20 20 20 20 20 65 |xtMapCap|.      e|
|00018770| 78 69 74 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |xit.    |end if. |
|00018780| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 20 20 0d 20 | end rep|eat.  . |
|00018790| 20 73 65 74 20 67 4d 61 | 70 43 61 70 20 3d 20 22 | set gMa|pCap = "|
|000187a0| 20 22 0d 65 6e 64 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | ".end.-|--------|
|000187b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000187c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000187d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000187e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000187f0| 2d 2d 2d 2d 2d 0d 6f 6e | 20 47 65 74 4e 65 78 74 |-----.on| GetNext|
|00018800| 4d 61 70 43 61 70 0d 20 | 20 67 6c 6f 62 61 6c 20 |MapCap. | global |
|00018810| 67 43 75 72 4d 61 70 2c | 20 67 4d 61 70 43 61 70 |gCurMap,| gMapCap|
|00018820| 0d 20 20 0d 20 20 73 65 | 74 20 63 61 70 74 69 6f |.  .  se|t captio|
|00018830| 6e 73 70 72 69 74 65 20 | 3d 20 31 38 0d 20 20 73 |nsprite |= 18.  s|
|00018840| 65 74 20 63 61 70 74 69 | 6f 6e 6c 6f 63 68 20 3d |et capti|onloch =|
|00018850| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|00018860| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|00018870| 65 0d 20 20 70 75 70 70 | 65 74 73 70 72 69 74 65 |e.  pupp|etsprite|
|00018880| 20 63 61 70 74 69 6f 6e | 73 70 72 69 74 65 2c 31 | caption|sprite,1|
|00018890| 0d 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |.  set t|he loch |
|000188a0| 6f 66 20 73 70 72 69 74 | 65 20 63 61 70 74 69 6f |of sprit|e captio|
|000188b0| 6e 73 70 72 69 74 65 20 | 3d 20 31 30 30 30 0d 20 |nsprite |= 1000. |
|000188c0| 20 75 70 64 61 74 65 73 | 74 61 67 65 0d 20 20 0d | updates|tage.  .|
|000188d0| 20 20 73 65 74 20 74 68 | 65 20 69 74 65 6d 64 65 |  set th|e itemde|
|000188e0| 6c 69 6d 69 74 65 72 20 | 3d 20 22 40 22 0d 20 20 |limiter |= "@".  |
|000188f0| 73 65 74 20 74 6d 70 20 | 3d 20 69 74 65 6d 20 28 |set tmp |= item (|
|00018900| 67 43 75 72 4d 61 70 2b | 31 29 20 6f 66 20 67 4d |gCurMap+|1) of gM|
|00018910| 61 70 43 61 70 0d 20 20 | 64 65 6c 65 74 65 20 6c |apCap.  |delete l|
|00018920| 69 6e 65 20 31 20 74 6f | 20 32 20 6f 66 20 74 6d |ine 1 to| 2 of tm|
|00018930| 70 0d 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 |p.  set |the text|
|00018940| 20 6f 66 20 66 69 65 6c | 64 20 22 63 61 70 74 69 | of fiel|d "capti|
|00018950| 6f 6e 2d 6d 61 70 22 20 | 3d 20 74 6d 70 0d 20 20 |on-map" |= tmp.  |
|00018960| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|00018970| 6d 69 74 65 72 20 3d 20 | 22 2c 22 0d 20 20 0d 20 |miter = |",".  . |
|00018980| 20 2d 2d 20 61 64 6a 75 | 73 74 20 74 68 65 20 68 | -- adju|st the h|
|00018990| 65 69 67 68 74 20 6f 66 | 20 74 68 65 20 63 61 70 |eight of| the cap|
|000189a0| 74 69 6f 6e 2c 20 74 6f | 20 63 65 6e 74 65 72 20 |tion, to| center |
|000189b0| 69 74 0d 20 20 73 65 74 | 20 63 65 6e 74 65 72 70 |it.  set| centerp|
|000189c0| 6f 69 6e 74 20 3d 20 32 | 36 35 0d 20 20 73 65 74 |oint = 2|65.  set|
|000189d0| 20 63 61 70 68 20 3d 20 | 74 68 65 20 68 65 69 67 | caph = |the heig|
|000189e0| 68 74 20 6f 66 20 63 61 | 73 74 20 22 63 61 70 74 |ht of ca|st "capt|
|000189f0| 69 6f 6e 2d 6d 61 70 22 | 0d 20 20 73 65 74 20 74 |ion-map"|.  set t|
|00018a00| 68 65 20 6c 6f 63 76 20 | 6f 66 20 73 70 72 69 74 |he locv |of sprit|
|00018a10| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 20 |e captio|nsprite |
|00018a20| 3d 20 63 65 6e 74 65 72 | 70 6f 69 6e 74 20 2d 20 |= center|point - |
|00018a30| 28 63 61 70 68 2f 32 29 | 0d 20 20 73 65 74 20 74 |(caph/2)|.  set t|
|00018a40| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00018a50| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 20 |e captio|nsprite |
|00018a60| 3d 20 63 61 70 74 69 6f | 6e 6c 6f 63 68 0d 20 20 |= captio|nloch.  |
|00018a70| 75 70 64 61 74 65 73 74 | 61 67 65 0d 20 20 45 6e |updatest|age.  En|
|00018a80| 64 54 72 61 70 4d 6f 75 | 73 65 0d 65 6e 64 0d 0d |dTrapMou|se.end..|
|00018a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00018ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 6f |--------|------.o|
|00018ae0| 6e 20 51 54 62 75 74 74 | 6f 6e 43 6c 69 63 6b 0d |n QTbutt|onClick.|
|00018af0| 20 20 67 6c 6f 62 61 6c | 20 67 51 54 62 75 74 74 |  global| gQTbutt|
|00018b00| 6f 6e 73 2c 20 67 51 54 | 6c 6f 63 68 2c 20 67 51 |ons, gQT|loch, gQ|
|00018b10| 54 73 74 61 74 75 73 0d | 20 20 0d 20 20 4e 61 76 |Tstatus.|  .  Nav|
|00018b20| 42 75 74 74 6f 6e 43 6c | 6f 73 65 0d 20 20 0d 20 |ButtonCl|ose.  . |
|00018b30| 20 69 66 20 74 68 65 20 | 6d 6f 76 69 65 72 61 74 | if the |movierat|
|00018b40| 65 20 6f 66 20 73 70 72 | 69 74 65 20 31 36 20 74 |e of spr|ite 16 t|
|00018b50| 68 65 6e 0d 20 20 20 20 | 0d 20 20 20 20 2d 2d 20 |hen.    |.    -- |
|00018b60| 73 74 6f 70 20 74 68 65 | 20 6d 6f 76 69 65 0d 20 |stop the| movie. |
|00018b70| 20 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |   puppe|tsprite |
|00018b80| 31 31 2c 31 0d 20 20 20 | 20 73 65 74 20 74 68 65 |11,1.   | set the|
|00018b90| 20 6d 6f 76 69 65 72 61 | 74 65 20 6f 66 20 73 70 | moviera|te of sp|
|00018ba0| 72 69 74 65 20 31 36 20 | 3d 20 30 20 0d 20 20 20 |rite 16 |= 0 .   |
|00018bb0| 20 73 65 74 20 74 68 65 | 20 63 61 73 74 6e 75 6d | set the| castnum|
|00018bc0| 20 6f 66 20 73 70 72 69 | 74 65 20 31 31 20 3d 20 | of spri|te 11 = |
|00018bd0| 76 61 6c 75 65 28 69 74 | 65 6d 20 31 20 6f 66 20 |value(it|em 1 of |
|00018be0| 67 51 54 42 75 74 74 6f | 6e 73 29 0d 20 20 20 20 |gQTButto|ns).    |
|00018bf0| 73 65 74 20 67 51 54 73 | 74 61 74 75 73 20 3d 20 |set gQTs|tatus = |
|00018c00| 30 20 0d 20 20 65 6c 73 | 65 0d 20 20 20 20 2d 2d |0 .  els|e.    --|
|00018c10| 20 73 74 61 72 74 20 74 | 68 65 20 6d 6f 76 69 65 | start t|he movie|
|00018c20| 0d 20 20 20 20 70 75 70 | 70 65 74 73 70 72 69 74 |.    pup|petsprit|
|00018c30| 65 20 31 31 2c 31 0d 20 | 20 20 20 0d 20 20 20 20 |e 11,1. |   .    |
|00018c40| 2d 2d 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |--set th|e loch o|
|00018c50| 66 20 73 70 72 69 74 65 | 20 31 36 20 3d 20 67 51 |f sprite| 16 = gQ|
|00018c60| 54 6c 6f 63 68 0d 20 20 | 20 20 70 75 70 70 65 74 |Tloch.  |  puppet|
|00018c70| 73 70 72 69 74 65 20 31 | 36 2c 30 0d 20 20 20 20 |sprite 1|6,0.    |
|00018c80| 0d 20 20 20 20 69 66 20 | 74 68 65 20 6d 6f 76 69 |.    if |the movi|
|00018c90| 65 74 69 6d 65 20 6f 66 | 20 73 70 72 69 74 65 20 |etime of| sprite |
|00018ca0| 31 36 20 3d 20 74 68 65 | 20 64 75 72 61 74 69 6f |16 = the| duratio|
|00018cb0| 6e 20 6f 66 20 63 61 73 | 74 20 22 51 54 63 61 73 |n of cas|t "QTcas|
|00018cc0| 74 22 20 74 68 65 6e 20 | 0d 20 20 20 20 20 20 73 |t" then |.      s|
|00018cd0| 65 74 20 74 68 65 20 6d | 6f 76 69 65 74 69 6d 65 |et the m|ovietime|
|00018ce0| 20 6f 66 20 73 70 72 69 | 74 65 20 31 36 20 3d 20 | of spri|te 16 = |
|00018cf0| 30 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |0.    en|d if.   |
|00018d00| 20 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6d 6f | .    se|t the mo|
|00018d10| 76 69 65 72 61 74 65 20 | 6f 66 20 73 70 72 69 74 |vierate |of sprit|
|00018d20| 65 20 31 36 20 3d 20 31 | 20 0d 20 20 20 20 73 65 |e 16 = 1| .    se|
|00018d30| 74 20 74 68 65 20 63 61 | 73 74 6e 75 6d 20 6f 66 |t the ca|stnum of|
|00018d40| 20 73 70 72 69 74 65 20 | 31 31 20 3d 20 76 61 6c | sprite |11 = val|
|00018d50| 75 65 28 69 74 65 6d 20 | 32 20 6f 66 20 67 51 54 |ue(item |2 of gQT|
|00018d60| 42 75 74 74 6f 6e 73 29 | 0d 20 20 20 20 73 65 74 |Buttons)|.    set|
|00018d70| 20 67 51 54 73 74 61 74 | 75 73 20 3d 20 31 0d 20 | gQTstat|us = 1. |
|00018d80| 20 65 6e 64 20 69 66 0d | 65 6e 64 00 00 4b 00 6f | end if.|end..K.o|
|00018d90| 02 30 02 5a 00 00 01 57 | 00 00 01 60 00 00 00 00 |.0.Z...W|...`....|
|00018da0| 00 01 00 00 00 00 00 0b | 00 09 00 04 00 00 00 09 |........|........|
|00018db0| 00 00 00 00 00 00 43 41 | 53 74 00 00 00 79 00 1e |......CA|St...y..|
|00018dc0| 00 00 00 55 03 00 00 00 | 00 00 00 00 ff ff ff ff |...U....|........|
|00018dd0| ff ff 00 00 00 00 00 00 | 06 00 01 eb 06 00 00 00 |........|........|
|00018de0| 06 00 00 00 00 14 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00018df0| 00 00 00 00 00 00 00 08 | 00 00 00 00 00 00 00 00 |........|........|
|00018e00| 00 00 00 07 00 00 00 07 | 00 00 00 07 00 00 00 07 |........|........|
|00018e10| 00 00 00 07 00 00 00 07 | 00 00 00 1b 06 70 61 72 |........|.....par|
|00018e20| 73 65 64 00 2e 00 3b 01 | a9 02 40 00 00 00 00 00 |sed...;.|..@.....|
|00018e30| 00 00 00 00 b4 8c dc 44 | 43 41 53 74 00 00 00 7c |.......D|CASt...||
|00018e40| 00 1e 00 00 00 58 03 00 | 01 02 00 00 00 00 ff ff |.....X..|........|
|00018e50| ff ff ff ff 00 00 00 00 | 00 00 00 80 01 44 00 80 |........|.....D..|
|00018e60| 00 00 00 80 00 00 00 14 | 00 00 00 00 00 00 00 00 |........|........|
|00018e70| 00 00 00 00 00 00 00 00 | 00 08 00 00 00 00 00 00 |........|........|
|00018e80| 00 00 00 00 00 0a 00 00 | 00 0a 00 00 00 0a 00 00 |........|........|
|00018e90| 00 0a 00 00 00 0a 00 00 | 00 0a 00 00 00 1e 09 46 |........|.......F|
|00018ea0| 69 6c 65 4e 61 6d 65 73 | 00 5a 00 8c 00 f0 01 ea |ileNames|.Z......|
|00018eb0| 00 00 00 00 00 00 00 00 | 00 68 9b 88 43 41 53 74 |........|.h..CASt|
|00018ec0| 00 00 00 72 00 1e 00 00 | 00 4e 03 00 00 00 00 00 |...r....|.N......|
|00018ed0| 00 00 ff ff ff ff ff ff | 00 00 00 00 00 00 00 62 |........|.......b|
|00018ee0| 00 e7 00 62 00 00 00 62 | 00 00 00 14 00 00 00 00 |...b...b|........|
|00018ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|00018f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00018f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00018f20| 00 14 00 5a 00 8c 00 f0 | 01 ea 00 00 00 dd 00 00 |...Z....|........|
|00018f30| 00 dd 00 a1 4e 84 43 41 | 53 74 00 00 0a 94 00 04 |....N.CA|St......|
|00018f40| 00 00 0a 8a 0b 00 00 03 | 00 00 00 14 00 c2 eb b0 |........|........|
|00018f50| 00 00 00 00 00 00 00 00 | 00 00 00 07 00 07 00 00 |........|........|
|00018f60| 00 00 00 00 0a 2a 00 00 | 0a 2a 00 00 0a 2a 00 00 |.....*..|.*...*..|
|00018f70| 0a 2a 00 00 0a 2a 00 00 | 0a 3e 00 00 0a 54 6f 6e |.*...*..|.>...Ton|
|00018f80| 20 47 65 74 50 65 6f 70 | 6c 65 0d 20 20 67 6c 6f | GetPeop|le.  glo|
|00018f90| 62 61 6c 20 6d 70 61 74 | 68 0d 20 20 0d 20 20 0d |bal mpat|h.  .  .|
|00018fa0| 20 20 0d 20 20 2d 2d 20 | 67 65 74 20 74 68 65 20 |  .  -- |get the |
|00018fb0| 6c 69 73 74 20 6f 66 20 | 6e 61 6d 65 73 20 74 68 |list of |names th|
|00018fc0| 61 74 20 68 61 76 65 20 | 22 2e 54 58 54 22 20 0d |at have |".TXT" .|
|00018fd0| 20 20 73 65 74 20 66 74 | 79 70 65 20 3d 20 22 74 |  set ft|ype = "t|
|00018fe0| 78 74 22 0d 20 20 0d 20 | 20 2d 2d 20 67 65 74 20 |xt".  . | -- get |
|00018ff0| 74 68 65 20 6c 69 73 74 | 20 6f 66 20 66 69 6c 65 |the list| of file|
|00019000| 73 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |s in the| current|
|00019010| 20 66 6f 6c 64 65 72 0d | 20 20 70 75 74 20 5b 5d | folder.|  put []|
|00019020| 20 69 6e 74 6f 20 66 69 | 6c 65 4c 69 73 74 0d 20 | into fi|leList. |
|00019030| 20 09 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 | .repeat| with i |
|00019040| 3d 20 31 20 74 6f 20 74 | 68 65 20 6d 61 78 49 6e |= 1 to t|he maxIn|
|00019050| 74 65 67 65 72 0d 20 20 | 20 20 09 09 70 75 74 20 |teger.  |  ..put |
|00019060| 67 65 74 4e 74 68 46 69 | 6c 65 4e 61 6d 65 49 6e |getNthFi|leNameIn|
|00019070| 46 6f 6c 64 65 72 28 6d | 70 61 74 68 2c 20 69 29 |Folder(m|path, i)|
|00019080| 20 c2 0d 09 09 09 69 6e | 74 6f 20 6e 0d 20 20 20 | .....in|to n.   |
|00019090| 20 09 09 69 66 20 6e 20 | 3d 20 45 4d 50 54 59 20 | ..if n |= EMPTY |
|000190a0| 74 68 65 6e 20 65 78 69 | 74 20 72 65 70 65 61 74 |then exi|t repeat|
|000190b0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 69 74 65 |.    set| the ite|
|000190c0| 6d 64 65 6c 69 6d 69 74 | 65 72 20 3d 20 22 2e 22 |mdelimit|er = "."|
|000190d0| 0d 20 20 20 20 69 66 20 | 69 74 65 6d 20 32 20 6f |.    if |item 2 o|
|000190e0| 66 20 6e 20 3d 20 66 74 | 79 70 65 20 74 68 65 6e |f n = ft|ype then|
|000190f0| 0d 20 20 20 20 20 20 69 | 66 20 74 68 65 20 6e 75 |.      i|f the nu|
|00019100| 6d 62 65 72 20 6f 66 20 | 63 68 61 72 73 20 6f 66 |mber of |chars of|
|00019110| 20 6e 20 3e 20 34 20 6f | 72 20 c2 0d 20 20 20 20 | n > 4 o|r ..    |
|00019120| 20 20 20 20 20 20 20 20 | 28 74 68 65 20 6e 75 6d |        |(the num|
|00019130| 62 65 72 20 6f 66 20 63 | 68 61 72 73 20 6f 66 20 |ber of c|hars of |
|00019140| 6e 20 3d 20 34 20 61 6e | 64 20 63 68 61 72 20 31 |n = 4 an|d char 1|
|00019150| 20 74 6f 20 32 20 6f 66 | 20 6e 20 3c 3e 20 22 43 | to 2 of| n <> "C|
|00019160| 55 22 20 c2 0d 20 20 20 | 20 20 20 20 20 20 20 20 |U" ..   |        |
|00019170| 20 20 61 6e 64 20 63 68 | 61 72 20 31 20 74 6f 20 |  and ch|ar 1 to |
|00019180| 32 20 6f 66 20 6e 20 3c | 3e 20 22 53 43 22 29 20 |2 of n <|> "SC") |
|00019190| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 09 09 61 |then.   |     ..a|
|000191a0| 70 70 65 6e 64 28 66 69 | 6c 65 4c 69 73 74 2c 20 |ppend(fi|leList, |
|000191b0| 69 74 65 6d 20 31 20 6f | 66 20 6e 29 0d 20 20 20 |item 1 o|f n).   |
|000191c0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 65 6e |   end i|f.    en|
|000191d0| 64 20 69 66 0d 20 20 20 | 20 73 65 74 20 74 68 65 |d if.   | set the|
|000191e0| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|000191f0| 20 22 2c 22 0d 20 20 09 | 65 6e 64 20 72 65 70 65 | ",".  .|end repe|
|00019200| 61 74 0d 20 20 0d 20 20 | 2d 2d 09 70 75 74 20 66 |at.  .  |--.put f|
|00019210| 69 6c 65 4c 69 73 74 0d | 20 20 0d 20 20 0d 20 20 |ileList.|  .  .  |
|00019220| 0d 20 20 73 65 74 20 6e | 75 6d 20 3d 20 63 6f 75 |.  set n|um = cou|
|00019230| 6e 74 28 66 69 6c 65 6c | 69 73 74 29 0d 20 20 73 |nt(filel|ist).  s|
|00019240| 65 74 20 74 78 74 66 69 | 6c 65 6c 69 73 74 20 3d |et txtfi|lelist =|
|00019250| 20 5b 5d 0d 20 20 0d 20 | 20 2d 2d 20 70 75 74 20 | [].  . | -- put |
|00019260| 66 69 6c 65 6e 61 6d 65 | 73 20 69 6e 20 74 68 65 |filename|s in the|
|00019270| 20 6d 61 6b 65 72 66 69 | 6c 65 6e 61 6d 65 20 6c | makerfi|lename l|
|00019280| 69 73 74 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |ist.  re|peat wit|
|00019290| 68 20 69 20 3d 20 31 20 | 74 6f 20 6e 75 6d 0d 20 |h i = 1 |to num. |
|000192a0| 20 20 20 73 65 74 20 74 | 6d 70 20 3d 20 67 65 74 |   set t|mp = get|
|000192b0| 61 74 28 66 69 6c 65 6c | 69 73 74 2c 69 29 0d 20 |at(filel|ist,i). |
|000192c0| 20 20 20 0d 20 20 20 20 | 73 65 74 20 74 6d 70 6e |   .    |set tmpn|
|000192d0| 75 6d 20 3d 20 62 73 65 | 61 72 63 68 28 74 6d 70 |um = bse|arch(tmp|
|000192e0| 2c 22 4d 61 6b 65 72 4c | 69 73 74 22 29 0d 20 20 |,"MakerL|ist").  |
|000192f0| 20 20 69 66 20 74 6d 70 | 6e 75 6d 20 3e 20 30 20 |  if tmp|num > 0 |
|00019300| 74 68 65 6e 0d 20 20 20 | 20 20 20 70 75 74 20 74 |then.   |   put t|
|00019310| 6d 70 20 69 6e 74 6f 20 | 69 74 65 6d 20 33 20 6f |mp into |item 3 o|
|00019320| 66 20 6c 69 6e 65 20 74 | 6d 70 6e 75 6d 20 6f 66 |f line t|mpnum of|
|00019330| 20 66 69 65 6c 64 20 22 | 4d 61 6b 65 72 46 69 6c | field "|MakerFil|
|00019340| 65 4e 61 6d 65 73 22 20 | 20 0d 20 20 20 20 65 6c |eNames" | .    el|
|00019350| 73 65 0d 20 20 20 20 20 | 20 70 75 74 20 22 70 72 |se.     | put "pr|
|00019360| 6f 62 6c 65 6d 20 77 69 | 74 68 3a 20 22 20 26 26 |oblem wi|th: " &&|
|00019370| 20 74 6d 70 0d 20 20 20 | 20 65 6e 64 20 69 66 0d | tmp.   | end if.|
|00019380| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 0d |  end re|peat.  .|
|00019390| 20 20 69 66 20 31 20 74 | 68 65 6e 0d 20 20 20 20 |  if 1 t|hen.    |
|000193a0| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|000193b0| 66 69 65 6c 64 20 22 46 | 69 6c 65 6e 61 6d 65 73 |field "F|ilenames|
|000193c0| 22 20 3d 20 22 20 22 0d | 20 20 20 20 73 65 74 20 |" = " ".|    set |
|000193d0| 74 68 65 20 74 65 78 74 | 20 6f 66 20 66 69 65 6c |the text| of fiel|
|000193e0| 64 20 22 46 69 6c 65 6e | 61 6d 65 73 32 22 20 3d |d "Filen|ames2" =|
|000193f0| 20 22 20 22 20 0d 20 20 | 20 20 69 66 20 6e 75 6d | " " .  |  if num|
|00019400| 20 3e 20 32 35 20 74 68 | 65 6e 0d 20 20 20 20 20 | > 25 th|en.     |
|00019410| 20 72 65 70 65 61 74 20 | 77 69 74 68 20 69 20 3d | repeat |with i =|
|00019420| 20 31 20 74 6f 20 32 35 | 0d 20 20 20 20 20 20 20 | 1 to 25|.       |
|00019430| 20 73 65 74 20 74 6d 70 | 20 3d 20 67 65 74 61 74 | set tmp| = getat|
|00019440| 28 66 69 6c 65 6c 69 73 | 74 2c 69 29 0d 20 20 20 |(filelis|t,i).   |
|00019450| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 70 75 |     .  |      pu|
|00019460| 74 20 69 74 65 6d 20 31 | 20 6f 66 20 74 6d 70 20 |t item 1| of tmp |
|00019470| 69 6e 74 6f 20 6c 69 6e | 65 20 28 74 68 65 20 6e |into lin|e (the n|
|00019480| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|00019490| 66 20 66 69 65 6c 64 20 | 22 66 69 6c 65 6e 61 6d |f field |"filenam|
|000194a0| 65 73 22 29 20 2b 20 31 | 20 6f 66 c2 0d 20 66 69 |es") + 1| of.. fi|
|000194b0| 65 6c 64 20 22 46 69 6c | 65 6e 61 6d 65 73 22 20 |eld "Fil|enames" |
|000194c0| 20 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 | .      |  .     |
|000194d0| 20 20 20 0d 20 20 20 20 | 20 20 65 6e 64 20 72 65 |   .    |  end re|
|000194e0| 70 65 61 74 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |peat.   |   .    |
|000194f0| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 |  repeat| with i |
|00019500| 3d 20 32 36 20 74 6f 20 | 6e 75 6d 0d 20 20 20 20 |= 26 to |num.    |
|00019510| 20 20 20 20 73 65 74 20 | 74 6d 70 20 3d 20 67 65 |    set |tmp = ge|
|00019520| 74 61 74 28 66 69 6c 65 | 6c 69 73 74 2c 69 29 0d |tat(file|list,i).|
|00019530| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 |        |.       |
|00019540| 20 70 75 74 20 69 74 65 | 6d 20 31 20 6f 66 20 74 | put ite|m 1 of t|
|00019550| 6d 70 20 69 6e 74 6f 20 | 6c 69 6e 65 20 28 74 68 |mp into |line (th|
|00019560| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |e number| of line|
|00019570| 73 20 6f 66 20 66 69 65 | 6c 64 20 22 66 69 6c 65 |s of fie|ld "file|
|00019580| 6e 61 6d 65 73 32 22 29 | 20 2b 20 31 20 6f 66 c2 |names2")| + 1 of.|
|00019590| 0d 20 66 69 65 6c 64 20 | 22 46 69 6c 65 6e 61 6d |. field |"Filenam|
|000195a0| 65 73 32 22 20 20 0d 20 | 20 20 20 20 20 20 20 0d |es2"  . |       .|
|000195b0| 20 20 20 20 20 20 65 6e | 64 20 72 65 70 65 61 74 |      en|d repeat|
|000195c0| 0d 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |.    els|e.      |
|000195d0| 0d 20 20 20 20 20 20 72 | 65 70 65 61 74 20 77 69 |.      r|epeat wi|
|000195e0| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 6e 75 6d 0d |th i = 1| to num.|
|000195f0| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 6d 70 20 |        |set tmp |
|00019600| 3d 20 67 65 74 61 74 28 | 66 69 6c 65 6c 69 73 74 |= getat(|filelist|
|00019610| 2c 69 29 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |,i).    |    .   |
|00019620| 20 20 20 20 20 70 75 74 | 20 69 74 65 6d 20 31 20 |     put| item 1 |
|00019630| 6f 66 20 74 6d 70 20 69 | 6e 74 6f 20 6c 69 6e 65 |of tmp i|nto line|
|00019640| 20 28 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 | (the nu|mber of |
|00019650| 6c 69 6e 65 73 20 6f 66 | 20 66 69 65 6c 64 20 22 |lines of| field "|
|00019660| 66 69 6c 65 6e 61 6d 65 | 73 22 29 20 2b 20 31 20 |filename|s") + 1 |
|00019670| 6f 66 c2 0d 20 66 69 65 | 6c 64 20 22 46 69 6c 65 |of.. fie|ld "File|
|00019680| 6e 61 6d 65 73 22 20 20 | 0d 20 20 20 20 20 20 20 |names"  |.       |
|00019690| 20 0d 20 20 20 20 20 20 | 65 6e 64 20 72 65 70 65 | .      |end repe|
|000196a0| 61 74 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |at.    e|nd if.  |
|000196b0| 65 6e 64 20 69 66 0d 65 | 6e 64 0d 0d 0d 6f 6e 20 |end if.e|nd...on |
|000196c0| 44 6f 49 6e 64 65 78 20 | 0d 20 20 67 6c 6f 62 61 |DoIndex |.  globa|
|000196d0| 6c 20 6d 50 61 74 68 0d | 20 20 0d 20 20 2d 2d 20 |l mPath.|  .  -- |
|000196e0| 67 65 74 20 74 68 65 20 | 6c 69 73 74 20 6f 66 20 |get the |list of |
|000196f0| 66 69 6c 65 73 20 69 6e | 20 74 68 65 20 63 75 72 |files in| the cur|
|00019700| 72 65 6e 74 20 66 6f 6c | 64 65 72 0d 20 20 70 75 |rent fol|der.  pu|
|00019710| 74 20 5b 5d 20 69 6e 74 | 6f 20 66 69 6c 65 4c 69 |t [] int|o fileLi|
|00019720| 73 74 0d 20 20 09 72 65 | 70 65 61 74 20 77 69 74 |st.  .re|peat wit|
|00019730| 68 20 69 20 3d 20 31 20 | 74 6f 20 74 68 65 20 6d |h i = 1 |to the m|
|00019740| 61 78 49 6e 74 65 67 65 | 72 0d 20 20 20 20 09 09 |axIntege|r.    ..|
|00019750| 70 75 74 20 67 65 74 4e | 74 68 46 69 6c 65 4e 61 |put getN|thFileNa|
|00019760| 6d 65 49 6e 46 6f 6c 64 | 65 72 28 6d 70 61 74 68 |meInFold|er(mpath|
|00019770| 2c 20 69 29 20 c2 0d 09 | 09 09 69 6e 74 6f 20 6e |, i) ...|..into n|
|00019780| 0d 20 20 20 20 09 09 69 | 66 20 6e 20 3d 20 45 4d |.    ..i|f n = EM|
|00019790| 50 54 59 20 74 68 65 6e | 20 65 78 69 74 20 72 65 |PTY then| exit re|
|000197a0| 70 65 61 74 0d 20 20 20 | 20 09 09 61 70 70 65 6e |peat.   | ..appen|
|000197b0| 64 28 66 69 6c 65 4c 69 | 73 74 2c 20 6e 29 0d 20 |d(fileLi|st, n). |
|000197c0| 20 09 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 0d | .end re|peat.  .|
|000197d0| 20 20 2d 2d 09 70 75 74 | 20 66 69 6c 65 4c 69 73 |  --.put| fileLis|
|000197e0| 74 0d 20 20 0d 20 20 2d | 2d 20 67 65 74 20 74 68 |t.  .  -|- get th|
|000197f0| 65 20 6c 69 73 74 20 6f | 66 20 6e 61 6d 65 73 20 |e list o|f names |
|00019800| 74 68 61 74 20 68 61 76 | 65 20 22 2e 54 58 54 22 |that hav|e ".TXT"|
|00019810| 20 0d 20 20 0d 20 20 73 | 65 74 20 6e 75 6d 20 3d | .  .  s|et num =|
|00019820| 20 63 6f 75 6e 74 28 66 | 69 6c 65 6c 69 73 74 29 | count(f|ilelist)|
|00019830| 0d 20 20 73 65 74 20 74 | 78 74 66 69 6c 65 6c 69 |.  set t|xtfileli|
|00019840| 73 74 20 3d 20 5b 5d 0d | 20 20 0d 20 20 72 65 70 |st = [].|  .  rep|
|00019850| 65 61 74 20 77 69 74 68 | 20 69 20 3d 20 31 20 74 |eat with| i = 1 t|
|00019860| 6f 20 6e 75 6d 0d 20 20 | 20 20 73 65 74 20 74 6d |o num.  |  set tm|
|00019870| 70 20 3d 20 67 65 74 61 | 74 28 66 69 6c 65 6c 69 |p = geta|t(fileli|
|00019880| 73 74 2c 69 29 0d 20 20 | 20 20 73 65 74 20 74 68 |st,i).  |  set th|
|00019890| 65 20 69 74 65 6d 64 65 | 6c 69 6d 69 74 65 72 20 |e itemde|limiter |
|000198a0| 3d 20 22 2e 22 0d 20 20 | 20 20 69 66 20 69 74 65 |= ".".  |  if ite|
|000198b0| 6d 20 32 20 6f 66 20 74 | 6d 70 20 3d 20 22 54 58 |m 2 of t|mp = "TX|
|000198c0| 54 22 20 74 68 65 6e 0d | 20 20 20 20 20 20 61 64 |T" then.|      ad|
|000198d0| 64 28 74 78 74 66 69 6c | 65 6c 69 73 74 2c 74 6d |d(txtfil|elist,tm|
|000198e0| 70 29 20 20 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |p)  .   | end if.|
|000198f0| 20 20 20 20 73 65 74 20 | 74 68 65 20 69 74 65 6d |    set |the item|
|00019900| 64 65 6c 69 6d 69 74 65 | 72 20 3d 20 22 2c 22 0d |delimite|r = ",".|
|00019910| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 0d |  end re|peat.  .|
|00019920| 20 20 70 75 74 20 74 78 | 74 66 69 6c 65 6c 69 73 |  put tx|tfilelis|
|00019930| 74 0d 20 20 0d 20 20 73 | 65 74 20 6e 75 6d 20 3d |t.  .  s|et num =|
|00019940| 20 63 6f 75 6e 74 28 74 | 78 74 66 69 6c 65 6c 69 | count(t|xtfileli|
|00019950| 73 74 29 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |st).  re|peat wit|
|00019960| 68 20 69 20 3d 20 31 20 | 74 6f 20 6e 75 6d 0d 20 |h i = 1 |to num. |
|00019970| 20 20 20 6d 61 6b 65 69 | 6e 64 65 78 20 28 67 65 |   makei|ndex (ge|
|00019980| 74 61 74 28 74 78 74 66 | 69 6c 65 6c 69 73 74 2c |tat(txtf|ilelist,|
|00019990| 69 29 29 0d 20 20 65 6e | 64 20 72 65 70 65 61 74 |i)).  en|d repeat|
|000199a0| 0d 20 20 0d 65 6e 64 0d | 00 48 00 35 01 ee 02 89 |.  .end.|.H.5....|
|000199b0| 00 00 00 0c 00 00 00 0c | 00 9e 9e 9e 00 01 00 00 |........|........|
|000199c0| 00 00 00 0b 00 09 00 04 | 00 00 00 09 00 00 00 00 |........|........|
|000199d0| 00 00 43 41 53 74 00 00 | 0c a2 00 04 00 00 0c 98 |..CASt..|........|
|000199e0| 0b 00 00 03 00 00 00 14 | 00 c2 eb ac 00 00 00 00 |........|........|
|000199f0| 00 00 00 00 00 00 00 08 | 00 07 00 00 00 00 00 00 |........|........|
|00019a00| 0c 38 00 00 0c 38 00 00 | 0c 38 00 00 0c 38 00 00 |.8...8..|.8...8..|
|00019a10| 0c 38 00 00 0c 4c 00 00 | 0c 62 2d 2d 20 47 6c 6f |.8...L..|.b-- Glo|
|00019a20| 62 61 6c 20 6d 6f 75 73 | 65 64 6f 77 6e 20 68 61 |bal mous|edown ha|
|00019a30| 6e 64 6c 65 72 0d 0d 6f | 6e 20 6d 6f 75 73 65 64 |ndler..o|n moused|
|00019a40| 6f 77 6e 20 20 2d 2d 20 | 63 61 74 63 68 20 6d 6f |own  -- |catch mo|
|00019a50| 75 73 65 63 6c 69 63 6b | 73 20 61 6e 64 20 63 6c |useclick|s and cl|
|00019a60| 6f 73 65 20 74 68 65 20 | 6e 61 76 20 62 75 74 74 |ose the |nav butt|
|00019a70| 6f 6e 20 77 69 6e 64 6f | 77 0d 20 20 67 6c 6f 62 |on windo|w.  glob|
|00019a80| 61 6c 20 67 51 54 73 74 | 61 74 75 73 2c 20 67 43 |al gQTst|atus, gC|
|00019a90| 75 72 54 79 70 65 0d 20 | 20 0d 20 20 4e 61 76 42 |urType. | .  NavB|
|00019aa0| 75 74 74 6f 6e 43 6c 6f | 73 65 0d 20 20 0d 20 20 |uttonClo|se.  .  |
|00019ab0| 2d 2d 20 73 74 61 72 74 | 20 74 68 65 20 71 74 20 |-- start| the qt |
|00019ac0| 61 67 61 69 6e 20 69 66 | 20 77 65 20 61 72 65 20 |again if| we are |
|00019ad0| 69 6e 20 61 20 71 74 20 | 61 72 74 69 63 6c 65 0d |in a qt |article.|
|00019ae0| 20 20 69 66 20 67 51 54 | 73 74 61 74 75 73 20 61 |  if gQT|status a|
|00019af0| 6e 64 20 74 68 65 20 66 | 72 61 6d 65 6c 61 62 65 |nd the f|ramelabe|
|00019b00| 6c 20 3d 20 22 71 74 22 | 20 61 6e 64 20 67 43 75 |l = "qt"| and gCu|
|00019b10| 72 54 79 70 65 20 3d 20 | 22 6d 6f 76 69 65 22 20 |rType = |"movie" |
|00019b20| 20 74 68 65 6e 20 0d 20 | 20 20 20 73 65 74 20 74 | then . |   set t|
|00019b30| 68 65 20 6d 6f 76 69 65 | 72 61 74 65 20 6f 66 20 |he movie|rate of |
|00019b40| 73 70 72 69 74 65 20 31 | 36 20 3d 20 31 0d 20 20 |sprite 1|6 = 1.  |
|00019b50| 65 6e 64 20 69 66 0d 20 | 20 70 61 73 73 20 20 0d |end if. | pass  .|
|00019b60| 65 6e 64 0d 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |end..---|--------|
|00019b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00019b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00019b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00019ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00019bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2d 2d 20 74 68 69 |--------|-.-- thi|
|00019bc0| 73 20 63 68 65 63 6b 73 | 20 66 6f 72 20 72 6f 6c |s checks| for rol|
|00019bd0| 6c 6f 76 65 72 73 20 0d | 0d 6f 6e 20 52 6f 6c 6c |lovers .|.on Roll|
|00019be0| 6f 76 65 72 73 0d 20 20 | 67 6c 6f 62 61 6c 20 67 |overs.  |global g|
|00019bf0| 43 68 61 70 74 65 72 73 | 2c 20 67 43 75 72 43 68 |Chapters|, gCurCh|
|00019c00| 61 70 2c 20 67 54 6f 74 | 61 6c 43 68 61 70 74 65 |ap, gTot|alChapte|
|00019c10| 72 73 2c 20 67 57 6f 72 | 6c 64 2c 20 67 51 54 42 |rs, gWor|ld, gQTB|
|00019c20| 75 74 74 6f 6e 73 2c 20 | 67 43 75 72 54 79 70 65 |uttons, |gCurType|
|00019c30| 0d 20 20 0d 20 20 44 6f | 4e 75 67 67 65 74 0d 20 |.  .  Do|Nugget. |
|00019c40| 20 0d 20 20 0d 20 20 2d | 2d 20 72 6f 6c 6c 6f 76 | .  .  -|- rollov|
|00019c50| 65 72 73 20 6f 6e 20 74 | 68 65 20 68 65 6c 70 2f |ers on t|he help/|
|00019c60| 73 65 61 72 63 68 2f 71 | 75 69 74 20 62 75 74 74 |search/q|uit butt|
|00019c70| 6f 6e 73 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |ons.  re|peat wit|
|00019c80| 68 20 69 20 3d 20 32 35 | 20 74 6f 20 32 39 0d 20 |h i = 25| to 29. |
|00019c90| 20 20 20 0d 20 20 20 20 | 69 66 20 72 6f 6c 6c 6f |   .    |if rollo|
|00019ca0| 76 65 72 28 69 29 20 74 | 68 65 6e 20 20 0d 20 20 |ver(i) t|hen  .  |
|00019cb0| 20 20 20 20 0d 20 20 20 | 20 20 20 2d 2d 20 20 20 |    .   |   --   |
|00019cc0| 20 20 20 73 65 74 20 74 | 68 65 20 63 61 73 74 6e |   set t|he castn|
|00019cd0| 75 6d 20 6f 66 20 73 70 | 72 69 74 65 20 69 20 3d |um of sp|rite i =|
|00019ce0| 20 28 74 68 65 20 63 61 | 73 74 6e 75 6d 20 6f 66 | (the ca|stnum of|
|00019cf0| 20 73 70 72 69 74 65 20 | 69 29 20 2b 20 31 0d 20 | sprite |i) + 1. |
|00019d00| 20 20 20 20 20 2d 2d 20 | 20 20 20 20 20 75 70 64 |     -- |     upd|
|00019d10| 61 74 65 73 74 61 67 65 | 0d 20 20 20 20 20 20 2d |atestage|.      -|
|00019d20| 2d 20 20 20 20 20 20 72 | 65 70 65 61 74 20 77 68 |-      r|epeat wh|
|00019d30| 69 6c 65 20 72 6f 6c 6c | 6f 76 65 72 28 69 29 20 |ile roll|over(i) |
|00019d40| 61 6e 64 20 6e 6f 74 20 | 74 68 65 20 6d 6f 75 73 |and not |the mous|
|00019d50| 65 64 6f 77 6e 20 20 0d | 20 20 20 20 20 20 2d 2d |edown  .|      --|
|00019d60| 20 20 20 20 20 20 65 6e | 64 20 72 65 70 65 61 74 |      en|d repeat|
|00019d70| 0d 20 20 20 20 20 20 2d | 2d 20 20 20 20 20 20 73 |.      -|-      s|
|00019d80| 65 74 20 74 68 65 20 63 | 61 73 74 6e 75 6d 20 6f |et the c|astnum o|
|00019d90| 66 20 73 70 72 69 74 65 | 20 69 20 3d 20 28 74 68 |f sprite| i = (th|
|00019da0| 65 20 63 61 73 74 6e 75 | 6d 20 6f 66 20 73 70 72 |e castnu|m of spr|
|00019db0| 69 74 65 20 69 29 20 2d | 20 31 0d 20 20 20 20 20 |ite i) -| 1.     |
|00019dc0| 20 2d 2d 20 20 20 20 20 | 20 65 78 69 74 0d 20 20 | --     | exit.  |
|00019dd0| 20 20 20 20 0d 20 20 20 | 20 20 20 2d 2d 20 6d 61 |    .   |   -- ma|
|00019de0| 6b 65 20 74 68 65 20 68 | 69 67 68 6c 69 67 68 74 |ke the h|ighlight|
|00019df0| 65 64 20 63 61 73 74 20 | 75 70 70 65 72 6d 6f 73 |ed cast |uppermos|
|00019e00| 74 2c 20 69 2e 65 2e 20 | 69 6e 20 73 70 72 69 74 |t, i.e. |in sprit|
|00019e10| 65 20 34 38 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |e 48.   |   .    |
|00019e20| 20 20 69 66 20 67 57 6f | 72 6c 64 20 3d 20 22 70 |  if gWo|rld = "p|
|00019e30| 6f 77 65 72 22 20 61 6e | 64 20 69 20 3d 20 32 35 |ower" an|d i = 25|
|00019e40| 20 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 2d |  then. |       -|
|00019e50| 2d 20 73 70 65 63 69 61 | 6c 20 63 61 73 65 20 61 |- specia|l case a|
|00019e60| 73 20 6e 61 76 20 6d 65 | 6e 75 20 6f 76 65 72 6c |s nav me|nu overl|
|00019e70| 61 70 73 20 70 6f 77 65 | 72 20 62 75 74 74 6f 6e |aps powe|r button|
|00019e80| 0d 20 20 20 20 20 20 20 | 20 69 66 20 72 6f 6c 6c |.       | if roll|
|00019e90| 6f 76 65 72 28 33 34 29 | 20 74 68 65 6e 20 65 78 |over(34)| then ex|
|00019ea0| 69 74 20 2d 2d 20 64 6f | 6e 74 20 68 69 67 68 6c |it -- do|nt highl|
|00019eb0| 69 67 68 74 20 69 66 20 | 6d 6f 75 73 65 20 69 73 |ight if |mouse is|
|00019ec0| 20 6f 6e 20 6e 61 76 20 | 62 75 74 74 6f 6e 0d 20 | on nav |button. |
|00019ed0| 20 20 20 20 20 20 20 73 | 65 74 20 74 6d 70 63 61 |       s|et tmpca|
|00019ee0| 73 74 6e 75 6d 20 3d 20 | 74 68 65 20 63 61 73 74 |stnum = |the cast|
|00019ef0| 6e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 69 0d |num of s|prite i.|
|00019f00| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00019f10| 63 61 73 74 6e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castnum |of sprit|
|00019f20| 65 20 69 20 3d 20 74 6d | 70 63 61 73 74 6e 75 6d |e i = tm|pcastnum|
|00019f30| 20 2b 20 31 0d 20 20 20 | 20 20 20 20 20 0d 20 20 | + 1.   |     .  |
|00019f40| 20 20 20 20 20 20 2d 2d | 20 6c 6f 6f 70 20 77 68 |      --| loop wh|
|00019f50| 69 6c 65 20 72 6f 6c 6c | 6f 76 65 72 0d 20 20 20 |ile roll|over.   |
|00019f60| 20 20 20 20 20 72 65 70 | 65 61 74 20 77 68 69 6c |     rep|eat whil|
|00019f70| 65 20 72 6f 6c 6c 6f 76 | 65 72 28 69 29 20 61 6e |e rollov|er(i) an|
|00019f80| 64 20 6e 6f 74 20 74 68 | 65 20 6d 6f 75 73 65 64 |d not th|e moused|
|00019f90| 6f 77 6e 20 61 6e 64 20 | 6e 6f 74 20 72 6f 6c 6c |own and |not roll|
|00019fa0| 6f 76 65 72 28 33 34 29 | 20 0d 20 20 20 20 20 20 |over(34)| .      |
|00019fb0| 20 20 20 20 75 70 64 61 | 74 65 73 74 61 67 65 0d |    upda|testage.|
|00019fc0| 20 20 20 20 20 20 20 20 | 65 6e 64 20 72 65 70 65 |        |end repe|
|00019fd0| 61 74 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |at.     |   set t|
|00019fe0| 68 65 20 63 61 73 74 6e | 75 6d 20 6f 66 20 73 70 |he castn|um of sp|
|00019ff0| 72 69 74 65 20 69 20 3d | 20 74 6d 70 63 61 73 74 |rite i =| tmpcast|
|0001a000| 6e 75 6d 20 0d 20 20 20 | 20 20 20 20 20 0d 20 20 |num .   |     .  |
|0001a010| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 20 |    else|.       |
|0001a020| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 34 38 | puppets|prite 48|
|0001a030| 2c 31 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |,1.     |   set t|
|0001a040| 68 65 20 63 61 73 74 6e | 75 6d 20 6f 66 20 73 70 |he castn|um of sp|
|0001a050| 72 69 74 65 20 34 38 20 | 3d 20 28 74 68 65 20 63 |rite 48 |= (the c|
|0001a060| 61 73 74 6e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astnum o|f sprite|
|0001a070| 20 69 29 20 2b 20 31 0d | 20 20 20 20 20 20 20 20 | i) + 1.|        |
|0001a080| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|0001a090| 73 70 72 69 74 65 20 34 | 38 20 3d 20 74 68 65 20 |sprite 4|8 = the |
|0001a0a0| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 69 |loch of |sprite i|
|0001a0b0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|0001a0c0| 20 6c 6f 63 76 20 6f 66 | 20 73 70 72 69 74 65 20 | locv of| sprite |
|0001a0d0| 34 38 20 3d 20 74 68 65 | 20 6c 6f 63 76 20 6f 66 |48 = the| locv of|
|0001a0e0| 20 73 70 72 69 74 65 20 | 69 0d 20 20 20 20 20 20 | sprite |i.      |
|0001a0f0| 20 20 0d 20 20 20 20 20 | 20 20 20 2d 2d 20 69 6e |  .     |   -- in|
|0001a100| 20 64 69 73 63 6f 76 65 | 72 79 20 74 68 65 20 68 | discove|ry the h|
|0001a110| 69 67 68 6c 69 67 68 74 | 65 64 20 73 70 72 69 74 |ighlight|ed sprit|
|0001a120| 65 20 6d 75 73 74 20 68 | 61 76 65 20 6d 61 74 74 |e must h|ave matt|
|0001a130| 65 20 69 6e 6b 0d 20 20 | 20 20 20 20 20 20 69 66 |e ink.  |      if|
|0001a140| 20 67 57 6f 72 6c 64 20 | 3d 20 22 64 69 73 63 6f | gWorld |= "disco|
|0001a150| 76 65 72 22 20 6f 72 20 | 67 57 6f 72 6c 64 20 3d |ver" or |gWorld =|
|0001a160| 20 22 73 65 6e 73 65 73 | 22 20 74 68 65 6e 20 0d | "senses|" then .|
|0001a170| 20 20 20 20 20 20 20 20 | 20 20 73 65 74 20 74 6d |        |  set tm|
|0001a180| 70 69 6e 6b 20 3d 20 74 | 68 65 20 69 6e 6b 20 6f |pink = t|he ink o|
|0001a190| 66 20 73 70 72 69 74 65 | 20 34 38 0d 20 20 20 20 |f sprite| 48.    |
|0001a1a0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 69 6e |      se|t the in|
|0001a1b0| 6b 20 6f 66 20 73 70 72 | 69 74 65 20 34 38 20 3d |k of spr|ite 48 =|
|0001a1c0| 20 38 20 20 20 20 20 20 | 2d 2d 20 6d 61 74 74 65 | 8      |-- matte|
|0001a1d0| 0d 20 20 20 20 20 20 20 | 20 65 6e 64 20 69 66 0d |.       | end if.|
|0001a1e0| 20 20 20 20 20 20 20 20 | 75 70 64 61 74 65 73 74 |        |updatest|
|0001a1f0| 61 67 65 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |age.    |    .   |
|0001a200| 20 20 20 20 20 2d 2d 20 | 6c 6f 6f 70 20 77 68 69 |     -- |loop whi|
|0001a210| 6c 65 20 72 6f 6c 6c 6f | 76 65 72 0d 20 20 20 20 |le rollo|ver.    |
|0001a220| 20 20 20 20 72 65 70 65 | 61 74 20 77 68 69 6c 65 |    repe|at while|
|0001a230| 20 72 6f 6c 6c 6f 76 65 | 72 28 34 38 29 20 61 6e | rollove|r(48) an|
|0001a240| 64 20 6e 6f 74 20 74 68 | 65 20 6d 6f 75 73 65 64 |d not th|e moused|
|0001a250| 6f 77 6e 20 20 0d 20 20 | 20 20 20 20 20 20 20 20 |own  .  |        |
|0001a260| 75 70 64 61 74 65 73 74 | 61 67 65 0d 20 20 20 20 |updatest|age.    |
|0001a270| 20 20 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 20 |    end |repeat. |
|0001a280| 20 20 20 20 20 20 20 0d | 20 20 20 20 20 20 20 20 |       .|        |
|0001a290| 2d 2d 20 63 6c 65 61 6e | 20 75 70 0d 20 20 20 20 |-- clean| up.    |
|0001a2a0| 20 20 20 20 70 75 70 70 | 65 74 73 70 72 69 74 65 |    pupp|etsprite|
|0001a2b0| 20 34 38 2c 30 0d 20 20 | 20 20 20 20 20 20 0d 20 | 48,0.  |      . |
|0001a2c0| 20 20 20 20 20 20 20 69 | 66 20 67 57 6f 72 6c 64 |       i|f gWorld|
|0001a2d0| 20 3d 20 22 64 69 73 63 | 6f 76 65 72 22 20 6f 72 | = "disc|over" or|
|0001a2e0| 20 67 57 6f 72 6c 64 20 | 3d 20 22 73 65 6e 73 65 | gWorld |= "sense|
|0001a2f0| 73 22 20 74 68 65 6e 20 | 0d 20 20 20 20 20 20 20 |s" then |.       |
|0001a300| 20 20 20 73 65 74 20 74 | 68 65 20 69 6e 6b 20 6f |   set t|he ink o|
|0001a310| 66 20 73 70 72 69 74 65 | 20 34 38 20 3d 20 74 6d |f sprite| 48 = tm|
|0001a320| 70 69 6e 6b 0d 20 20 20 | 20 20 20 20 20 65 6e 64 |pink.   |     end|
|0001a330| 20 69 66 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 | if.    |    .   |
|0001a340| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|0001a350| 65 78 69 74 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |exit.   | end if.|
|0001a360| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 0d |  end re|peat.  .|
|0001a370| 20 20 0d 20 20 69 66 20 | 74 68 65 20 66 72 61 6d |  .  if |the fram|
|0001a380| 65 6c 61 62 65 6c 20 3d | 20 22 71 74 22 20 61 6e |elabel =| "qt" an|
|0001a390| 64 20 28 67 43 75 72 54 | 79 70 65 20 3d 20 22 71 |d (gCurT|ype = "q|
|0001a3a0| 74 22 20 6f 72 20 67 43 | 75 72 54 79 70 65 20 3d |t" or gC|urType =|
|0001a3b0| 20 22 6d 6f 76 69 65 22 | 29 20 74 68 65 6e 0d 20 | "movie"|) then. |
|0001a3c0| 20 20 20 69 66 20 74 68 | 65 20 74 79 70 65 20 6f |   if th|e type o|
|0001a3d0| 66 20 73 70 72 69 74 65 | 20 31 36 20 3d 20 31 36 |f sprite| 16 = 16|
|0001a3e0| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 69 66 20 74 | then.  |    if t|
|0001a3f0| 68 65 20 6d 6f 76 69 65 | 72 61 74 65 20 6f 66 20 |he movie|rate of |
|0001a400| 73 70 72 69 74 65 20 31 | 36 20 74 68 65 6e 0d 20 |sprite 1|6 then. |
|0001a410| 20 20 20 20 20 20 20 69 | 66 20 74 68 65 20 63 61 |       i|f the ca|
|0001a420| 73 74 6e 75 6d 20 6f 66 | 20 73 70 72 69 74 65 20 |stnum of| sprite |
|0001a430| 31 31 20 3c 3e 20 76 61 | 6c 75 65 28 69 74 65 6d |11 <> va|lue(item|
|0001a440| 20 32 20 6f 66 20 67 51 | 54 42 75 74 74 6f 6e 73 | 2 of gQ|TButtons|
|0001a450| 29 20 74 68 65 6e 20 20 | 2d 2d 20 70 6c 61 79 0d |) then  |-- play.|
|0001a460| 20 20 20 20 20 20 20 20 | 20 20 70 75 70 70 65 74 |        |  puppet|
|0001a470| 73 70 72 69 74 65 20 31 | 31 2c 31 0d 20 20 20 20 |sprite 1|1,1.    |
|0001a480| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 63 61 |      se|t the ca|
|0001a490| 73 74 6e 75 6d 20 6f 66 | 20 73 70 72 69 74 65 20 |stnum of| sprite |
|0001a4a0| 31 31 20 3d 20 76 61 6c | 75 65 28 69 74 65 6d 20 |11 = val|ue(item |
|0001a4b0| 32 20 6f 66 20 67 51 54 | 42 75 74 74 6f 6e 73 29 |2 of gQT|Buttons)|
|0001a4c0| 0d 20 20 20 20 20 20 20 | 20 65 6e 64 20 69 66 0d |.       | end if.|
|0001a4d0| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |      el|se.     |
|0001a4e0| 20 20 20 69 66 20 74 68 | 65 20 63 61 73 74 6e 75 |   if th|e castnu|
|0001a4f0| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 31 31 20 3c |m of spr|ite 11 <|
|0001a500| 3e 20 76 61 6c 75 65 28 | 69 74 65 6d 20 31 20 6f |> value(|item 1 o|
|0001a510| 66 20 67 51 54 42 75 74 | 74 6f 6e 73 29 20 74 68 |f gQTBut|tons) th|
|0001a520| 65 6e 20 20 2d 2d 20 73 | 74 6f 70 0d 20 20 20 20 |en  -- s|top.    |
|0001a530| 20 20 20 20 20 20 70 75 | 70 70 65 74 73 70 72 69 |      pu|ppetspri|
|0001a540| 74 65 20 31 31 2c 31 0d | 20 20 20 20 20 20 20 20 |te 11,1.|        |
|0001a550| 20 20 73 65 74 20 74 68 | 65 20 63 61 73 74 6e 75 |  set th|e castnu|
|0001a560| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 31 31 20 3d |m of spr|ite 11 =|
|0001a570| 20 76 61 6c 75 65 28 69 | 74 65 6d 20 31 20 6f 66 | value(i|tem 1 of|
|0001a580| 20 67 51 54 42 75 74 74 | 6f 6e 73 29 0d 20 20 20 | gQTButt|ons).   |
|0001a590| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6d |       s|et the m|
|0001a5a0| 6f 76 69 65 74 69 6d 65 | 20 6f 66 20 73 70 72 69 |ovietime| of spri|
|0001a5b0| 74 65 20 31 36 20 3d 20 | 30 20 2d 2d 20 72 65 77 |te 16 = |0 -- rew|
|0001a5c0| 69 6e 64 20 51 54 0d 20 | 20 20 20 20 20 20 20 65 |ind QT. |       e|
|0001a5d0| 6e 64 20 69 66 0d 20 20 | 20 20 20 20 65 6e 64 20 |nd if.  |    end |
|0001a5e0| 69 66 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |if.    e|nd if.  |
|0001a5f0| 65 6e 64 20 69 66 0d 20 | 20 0d 65 6e 64 0d 2d 2d |end if. | .end.--|
|0001a600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001a610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001a620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001a630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001a640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001a650| 2d 2d 00 46 00 46 02 5b | 02 f9 00 00 02 4d 00 00 |--.F.F.[|.....M..|
|0001a660| 02 51 00 9e 9e 9e 00 01 | 00 00 00 00 00 0b 00 09 |.Q......|........|
|0001a670| 00 04 00 00 00 09 00 00 | 00 00 00 00 43 41 53 74 |........|....CASt|
|0001a680| 00 00 00 72 00 1e 00 00 | 00 4e 03 00 02 04 00 00 |...r....|.N......|
|0001a690| 00 00 ff ff ff ff ff ff | 00 00 00 00 00 00 00 20 |........|....... |
|0001a6a0| 00 aa 00 20 00 00 00 20 | 00 00 00 14 00 00 00 00 |... ... |........|
|0001a6b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|0001a6c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001a6d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001a6e0| 00 14 00 6e 00 a0 01 04 | 01 fe 00 00 00 31 00 00 |...n....|.....1..|
|0001a6f0| 00 31 00 f5 84 88 43 41 | 53 74 00 00 00 aa 00 04 |.1....CA|St......|
|0001a700| 00 00 00 a0 0b 00 00 01 | 00 00 00 14 00 c2 eb a8 |........|........|
|0001a710| 00 00 00 00 00 00 00 00 | 00 00 00 09 00 07 00 00 |........|........|
|0001a720| 00 00 00 00 00 40 00 00 | 00 40 00 00 00 40 00 00 |.....@..|.@...@..|
|0001a730| 00 40 00 00 00 40 00 00 | 00 54 00 00 00 6a 6f 6e |.@...@..|.T...jon|
|0001a740| 20 6d 6f 75 73 65 55 70 | 0d 20 20 43 6c 69 63 6b | mouseUp|.  Click|
|0001a750| 53 6e 64 0d 20 20 75 70 | 64 61 74 65 73 74 61 67 |Snd.  up|datestag|
|0001a760| 65 0d 20 20 67 6f 20 74 | 6f 20 66 72 61 6d 65 20 |e.  go t|o frame |
|0001a770| 22 64 61 74 61 62 61 73 | 65 22 0d 65 6e 64 00 ac |"databas|e".end..|
|0001a780| 00 37 02 21 02 b2 00 00 | 00 15 00 00 00 15 00 d3 |.7.!....|........|
|0001a790| 00 80 00 01 00 00 00 00 | 00 0b 00 09 00 04 00 00 |........|........|
|0001a7a0| 00 09 00 00 00 00 00 00 | 43 41 53 74 00 00 02 94 |........|CASt....|
|0001a7b0| 00 04 00 00 02 8a 0b 00 | 00 03 00 00 00 14 00 c2 |........|........|
|0001a7c0| eb a4 00 00 00 00 00 00 | 00 00 00 00 00 0a 00 07 |........|........|
|0001a7d0| 00 00 00 00 00 00 02 2a | 00 00 02 2a 00 00 02 2a |.......*|...*...*|
|0001a7e0| 00 00 02 2a 00 00 02 2a | 00 00 02 3e 00 00 02 54 |...*...*|...>...T|
|0001a7f0| 6f 6e 20 75 6e 70 75 70 | 70 65 74 20 73 74 72 0d |on unpup|pet str.|
|0001a800| 20 20 2d 2d 20 72 65 6d | 6f 76 65 73 20 61 6c 6c |  -- rem|oves all|
|0001a810| 20 74 68 65 20 70 75 70 | 70 65 74 73 2c 20 61 70 | the pup|pets, ap|
|0001a820| 61 72 74 20 66 72 6f 6d | 20 74 68 65 20 73 70 72 |art from| the spr|
|0001a830| 69 74 65 73 20 6c 69 73 | 74 65 64 20 69 6e 20 73 |ites lis|ted in s|
|0001a840| 74 72 2e 0d 20 20 2d 2d | 20 73 74 72 20 63 6f 6e |tr..  --| str con|
|0001a850| 74 61 69 6e 73 20 74 68 | 65 20 6e 75 6d 62 65 72 |tains th|e number|
|0001a860| 73 20 6f 66 20 74 68 65 | 20 73 70 72 69 74 65 73 |s of the| sprites|
|0001a870| 20 79 6f 75 20 64 6f 6e | 27 74 20 77 61 6e 74 20 | you don|'t want |
|0001a880| 75 6e 70 75 70 70 65 74 | 65 64 2c 0d 20 20 2d 2d |unpuppet|ed,.  --|
|0001a890| 20 69 6e 20 61 73 63 65 | 6e 64 69 6e 67 20 6f 72 | in asce|nding or|
|0001a8a0| 64 65 72 0d 20 20 0d 20 | 20 69 66 20 74 68 65 20 |der.  . | if the |
|0001a8b0| 70 61 72 61 6d 63 6f 75 | 6e 74 20 3e 20 30 20 74 |paramcou|nt > 0 t|
|0001a8c0| 68 65 6e 0d 20 20 20 20 | 72 65 70 65 61 74 20 77 |hen.    |repeat w|
|0001a8d0| 69 74 68 20 69 20 3d 20 | 31 20 74 6f 20 34 38 20 |ith i = |1 to 48 |
|0001a8e0| 20 0d 20 20 20 20 20 20 | 69 66 20 69 20 3d 20 69 | .      |if i = i|
|0001a8f0| 74 65 6d 20 31 20 6f 66 | 20 73 74 72 20 74 68 65 |tem 1 of| str the|
|0001a900| 6e 0d 20 20 20 20 20 20 | 20 20 64 65 6c 65 74 65 |n.      |  delete|
|0001a910| 20 69 74 65 6d 20 31 20 | 6f 66 20 73 74 72 0d 20 | item 1 |of str. |
|0001a920| 20 20 20 20 20 20 20 6e | 65 78 74 20 72 65 70 65 |       n|ext repe|
|0001a930| 61 74 0d 20 20 20 20 20 | 20 65 6c 73 65 0d 20 20 |at.     | else.  |
|0001a940| 20 20 20 20 20 20 70 75 | 70 70 65 74 73 70 72 69 |      pu|ppetspri|
|0001a950| 74 65 20 69 2c 30 0d 20 | 20 20 20 20 20 65 6e 64 |te i,0. |     end|
|0001a960| 20 69 66 0d 20 20 20 20 | 65 6e 64 20 72 65 70 65 | if.    |end repe|
|0001a970| 61 74 0d 20 20 65 6c 73 | 65 0d 20 20 20 20 72 65 |at.  els|e.    re|
|0001a980| 70 65 61 74 20 77 69 74 | 68 20 69 20 3d 20 31 20 |peat wit|h i = 1 |
|0001a990| 74 6f 20 34 38 20 20 0d | 20 20 20 20 20 20 70 75 |to 48  .|      pu|
|0001a9a0| 70 70 65 74 73 70 72 69 | 74 65 20 69 2c 30 0d 20 |ppetspri|te i,0. |
|0001a9b0| 20 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |   end r|epeat.  |
|0001a9c0| 65 6e 64 20 69 66 0d 65 | 6e 64 0d 0d 2d 2d 2d 2d |end if.e|nd..----|
|0001a9d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001a9e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001a9f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001aa00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001aa10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 00 68 00 36 01 d7 |--------|--.h.6..|
|0001aa20| 02 34 00 00 00 0b 00 00 | 00 0b 00 8d 00 00 00 01 |.4......|........|
|0001aa30| 00 00 00 00 00 0b 00 09 | 00 04 00 00 00 09 00 00 |........|........|
|0001aa40| 00 00 00 00 43 41 53 74 | 00 00 00 80 00 1e 00 00 |....CASt|........|
|0001aa50| 00 5c 03 00 01 00 00 00 | 00 00 ff ff ff ff ff ff |.\......|........|
|0001aa60| 00 00 00 00 00 00 00 0e | 00 33 00 0e 00 00 00 0e |........|.3......|
|0001aa70| 00 00 00 14 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001aa80| 00 00 00 00 00 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001aa90| 00 0e 00 00 00 0e 00 00 | 00 0e 00 00 00 0e 00 00 |........|........|
|0001aaa0| 00 0e 00 00 00 0e 00 00 | 00 22 0d 41 72 74 69 63 |........|.".Artic|
|0001aab0| 6c 65 4e 75 6d 62 65 72 | 00 33 00 32 00 c9 01 90 |leNumber|.3.2....|
|0001aac0| 00 00 00 00 00 00 00 00 | 00 fc 82 88 43 41 53 74 |........|....CASt|
|0001aad0| 00 00 00 7d 00 1e 00 00 | 00 59 03 00 01 02 00 00 |...}....|.Y......|
|0001aae0| 00 00 ff ff ff ff ff ff | 00 00 00 00 00 00 00 10 |........|........|
|0001aaf0| 01 44 00 10 00 00 00 10 | 00 00 00 14 00 00 00 00 |.D......|........|
|0001ab00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|0001ab10| 00 00 00 00 00 00 00 00 | 00 0b 00 00 00 0b 00 00 |........|........|
|0001ab20| 00 0b 00 00 00 0b 00 00 | 00 0b 00 00 00 0b 00 00 |........|........|
|0001ab30| 00 1f 0a 46 69 6c 65 4e | 61 6d 65 73 32 00 5a 00 |...FileN|ames2.Z.|
|0001ab40| 8c 00 f0 01 ea 00 00 00 | 00 00 00 00 00 00 68 9b |........|......h.|
|0001ab50| 88 0f 43 41 53 74 00 00 | 10 fb 00 04 00 00 10 f1 |..CASt..|........|
|0001ab60| 0b 00 00 03 00 00 00 14 | 00 c2 eb 90 00 00 00 00 |........|........|
|0001ab70| 00 00 00 00 00 00 00 0f | 00 07 00 00 00 00 00 00 |........|........|
|0001ab80| 10 8f 00 00 10 91 00 00 | 10 91 00 00 10 91 00 00 |........|........|
|0001ab90| 10 91 00 00 10 a5 00 00 | 10 bb 2d 2d 20 61 64 64 |........|..-- add|
|0001aba0| 73 20 74 68 65 20 70 65 | 72 73 6f 6e 73 20 69 64 |s the pe|rsons id|
|0001abb0| 20 6e 75 6d 62 65 72 0d | 6f 6e 20 66 69 78 6e 61 | number.|on fixna|
|0001abc0| 6d 65 73 37 20 73 74 61 | 72 74 2c 65 6e 64 0d 20 |mes7 sta|rt,end. |
|0001abd0| 20 0d 20 20 73 65 74 20 | 6c 61 73 74 6e 61 6d 65 | .  set |lastname|
|0001abe0| 20 3d 20 22 22 0d 20 20 | 73 65 74 20 65 72 72 6f | = "".  |set erro|
|0001abf0| 72 20 3d 20 22 22 0d 20 | 20 0d 20 20 72 65 70 65 |r = "". | .  repe|
|0001ac00| 61 74 20 77 69 74 68 20 | 69 20 3d 20 73 74 61 72 |at with |i = star|
|0001ac10| 74 20 74 6f 20 65 6e 64 | 0d 20 20 20 20 73 65 74 |t to end|.    set|
|0001ac20| 20 74 6d 70 6e 61 6d 65 | 20 3d 20 73 74 72 69 6e | tmpname| = strin|
|0001ac30| 67 28 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 63 61 |g(the na|me of ca|
|0001ac40| 73 74 20 69 29 0d 20 20 | 20 20 0d 20 20 20 20 69 |st i).  |  .    i|
|0001ac50| 66 20 77 6f 72 64 20 32 | 20 6f 66 20 74 6d 70 6e |f word 2| of tmpn|
|0001ac60| 61 6d 65 20 3d 20 22 68 | 65 61 64 22 20 74 68 65 |ame = "h|ead" the|
|0001ac70| 6e 20 0d 20 20 20 20 20 | 20 73 65 74 20 6e 61 6d |n .     | set nam|
|0001ac80| 65 20 3d 20 77 6f 72 64 | 20 31 20 6f 66 20 74 6d |e = word| 1 of tm|
|0001ac90| 70 6e 61 6d 65 0d 20 20 | 20 20 20 20 69 66 20 6e |pname.  |    if n|
|0001aca0| 61 6d 65 20 3c 3e 20 6c | 61 73 74 6e 61 6d 65 20 |ame <> l|astname |
|0001acb0| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 73 65 74 |then.   |     set|
|0001acc0| 20 74 6d 70 6e 75 6d 20 | 3d 20 62 73 65 61 72 63 | tmpnum |= bsearc|
|0001acd0| 68 28 6e 61 6d 65 2c 22 | 4d 61 6b 65 72 4c 69 73 |h(name,"|MakerLis|
|0001ace0| 74 22 29 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |t")     |  .     |
|0001acf0| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 20 0d 20 | end if.|      . |
|0001ad00| 20 20 20 20 20 69 66 20 | 74 6d 70 6e 75 6d 20 3e |     if |tmpnum >|
|0001ad10| 20 30 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 | 0 then.|        |
|0001ad20| 70 75 74 20 22 30 6c 64 | 20 22 20 26 26 20 74 6d |put "0ld| " && tm|
|0001ad30| 70 6e 61 6d 65 0d 20 20 | 20 20 20 20 20 20 73 65 |pname.  |      se|
|0001ad40| 74 20 74 6d 70 6e 61 6d | 65 20 3d 20 69 74 65 6d |t tmpnam|e = item|
|0001ad50| 20 32 20 6f 66 20 6c 69 | 6e 65 20 76 61 6c 75 65 | 2 of li|ne value|
|0001ad60| 28 74 6d 70 6e 75 6d 29 | 20 6f 66 20 66 69 65 6c |(tmpnum)| of fiel|
|0001ad70| 64 20 22 4d 61 6b 65 72 | 4c 69 73 74 22 20 26 20 |d "Maker|List" & |
|0001ad80| 22 2d 68 65 61 64 22 0d | 20 20 20 20 20 20 20 20 |"-head".|        |
|0001ad90| 73 65 74 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |set the |name of |
|0001ada0| 63 61 73 74 20 69 20 3d | 20 74 6d 70 6e 61 6d 65 |cast i =| tmpname|
|0001adb0| 20 20 0d 20 20 20 20 20 | 20 20 20 70 75 74 20 22 |  .     |   put "|
|0001adc0| 6e 65 77 22 20 26 26 20 | 74 6d 70 6e 61 6d 65 0d |new" && |tmpname.|
|0001add0| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |      el|se.     |
|0001ade0| 20 20 20 70 75 74 20 22 | 65 72 72 6f 72 20 22 20 |   put "|error " |
|0001adf0| 26 26 20 74 6d 70 6e 61 | 6d 65 0d 20 20 20 20 20 |&& tmpna|me.     |
|0001ae00| 20 20 20 70 75 74 20 22 | 65 72 72 6f 72 22 20 26 |   put "|error" &|
|0001ae10| 26 20 74 6d 70 6e 61 6d | 65 20 26 20 72 65 74 75 |& tmpnam|e & retu|
|0001ae20| 72 6e 20 61 66 74 65 72 | 20 65 72 72 6f 72 0d 20 |rn after| error. |
|0001ae30| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|0001ae40| 20 20 0d 20 20 20 20 65 | 6c 73 65 20 69 66 20 31 |  .    e|lse if 1|
|0001ae50| 3d 31 20 74 68 65 6e 0d | 20 20 20 20 20 20 0d 20 |=1 then.|      . |
|0001ae60| 20 20 20 20 20 70 75 74 | 20 22 30 6c 64 20 22 20 |     put| "0ld " |
|0001ae70| 26 26 20 74 6d 70 6e 61 | 6d 65 0d 20 20 20 20 20 |&& tmpna|me.     |
|0001ae80| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|0001ae90| 69 6d 69 74 65 72 20 3d | 20 22 2d 22 0d 20 20 20 |imiter =| "-".   |
|0001aea0| 20 20 20 73 65 74 20 6e | 61 6d 65 20 3d 20 69 74 |   set n|ame = it|
|0001aeb0| 65 6d 20 32 20 6f 66 20 | 74 6d 70 6e 61 6d 65 0d |em 2 of |tmpname.|
|0001aec0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 69 74 |      se|t the it|
|0001aed0| 65 6d 64 65 6c 69 6d 69 | 74 65 72 20 3d 20 22 2c |emdelimi|ter = ",|
|0001aee0| 22 0d 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 69 |".      |.      i|
|0001aef0| 66 20 6c 61 73 74 6e 61 | 6d 65 20 3c 3e 20 6e 61 |f lastna|me <> na|
|0001af00| 6d 65 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 |me then.|        |
|0001af10| 73 65 74 20 74 6d 70 6e | 75 6d 20 3d 20 62 73 65 |set tmpn|um = bse|
|0001af20| 61 72 63 68 28 6e 61 6d | 65 2c 22 4d 61 6b 65 72 |arch(nam|e,"Maker|
|0001af30| 4c 69 73 74 22 29 20 20 | 20 20 20 0d 20 20 20 20 |List")  |   .    |
|0001af40| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 20 20 0d |  end if|.      .|
|0001af50| 20 20 20 20 20 20 69 66 | 20 74 6d 70 6e 75 6d 20 |      if| tmpnum |
|0001af60| 3d 20 22 30 22 20 74 68 | 65 6e 20 0d 20 20 20 20 |= "0" th|en .    |
|0001af70| 20 20 20 20 70 75 74 20 | 22 65 72 72 6f 72 22 20 |    put |"error" |
|0001af80| 26 26 20 74 6d 70 6e 61 | 6d 65 0d 20 20 20 20 20 |&& tmpna|me.     |
|0001af90| 20 20 20 70 75 74 20 22 | 65 72 72 6f 72 22 20 26 |   put "|error" &|
|0001afa0| 26 20 74 6d 70 6e 61 6d | 65 20 26 20 72 65 74 75 |& tmpnam|e & retu|
|0001afb0| 72 6e 20 61 66 74 65 72 | 20 65 72 72 6f 72 0d 20 |rn after| error. |
|0001afc0| 20 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |     els|e.      |
|0001afd0| 20 20 73 65 74 20 74 68 | 65 20 69 74 65 6d 64 65 |  set th|e itemde|
|0001afe0| 6c 69 6d 69 74 65 72 20 | 3d 20 22 2d 22 0d 20 20 |limiter |= "-".  |
|0001aff0| 20 20 20 20 20 20 73 65 | 74 20 74 6d 70 6e 61 6d |      se|t tmpnam|
|0001b000| 65 20 3d 20 69 74 65 6d | 20 31 20 6f 66 20 74 6d |e = item| 1 of tm|
|0001b010| 70 6e 61 6d 65 0d 20 20 | 20 20 20 20 20 20 73 65 |pname.  |      se|
|0001b020| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|0001b030| 74 65 72 20 3d 20 22 2c | 22 0d 20 20 20 20 20 20 |ter = ",|".      |
|0001b040| 20 20 73 65 74 20 74 6d | 70 6e 61 6d 65 20 3d 20 |  set tm|pname = |
|0001b050| 69 74 65 6d 20 32 20 6f | 66 20 6c 69 6e 65 20 76 |item 2 o|f line v|
|0001b060| 61 6c 75 65 28 74 6d 70 | 6e 75 6d 29 20 6f 66 20 |alue(tmp|num) of |
|0001b070| 66 69 65 6c 64 20 22 4d | 61 6b 65 72 4c 69 73 74 |field "M|akerList|
|0001b080| 22 20 26 20 22 2d 22 20 | 26 20 74 6d 70 6e 61 6d |" & "-" |& tmpnam|
|0001b090| 65 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |e.      |  .     |
|0001b0a0| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 20 73 65 | end if.|      se|
|0001b0b0| 74 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 63 61 |t the na|me of ca|
|0001b0c0| 73 74 20 69 20 3d 20 74 | 6d 70 6e 61 6d 65 20 20 |st i = t|mpname  |
|0001b0d0| 0d 20 20 20 20 20 20 70 | 75 74 20 22 6e 65 77 22 |.      p|ut "new"|
|0001b0e0| 20 26 26 20 74 6d 70 6e | 61 6d 65 20 20 0d 20 20 | && tmpn|ame  .  |
|0001b0f0| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 0d 20 20 |  end if|.    .  |
|0001b100| 20 20 73 65 74 20 6c 61 | 73 74 6e 61 6d 65 20 3d |  set la|stname =|
|0001b110| 20 6e 61 6d 65 0d 20 20 | 65 6e 64 20 72 65 70 65 | name.  |end repe|
|0001b120| 61 74 0d 20 20 0d 20 20 | 70 75 74 20 65 72 72 6f |at.  .  |put erro|
|0001b130| 72 0d 65 6e 64 0d 0d 2d | 2d 20 61 64 64 73 20 22 |r.end..-|- adds "|
|0001b140| 6e 61 6d 65 22 20 74 6f | 20 74 68 65 20 65 6e 64 |name" to| the end|
|0001b150| 20 6f 66 20 74 68 65 20 | 6e 61 6d 65 0d 6f 6e 20 | of the |name.on |
|0001b160| 66 69 78 6e 61 6d 65 73 | 33 20 73 74 61 72 74 2c |fixnames|3 start,|
|0001b170| 65 6e 64 0d 20 20 0d 20 | 20 72 65 70 65 61 74 20 |end.  . | repeat |
|0001b180| 77 69 74 68 20 69 20 3d | 20 73 74 61 72 74 20 74 |with i =| start t|
|0001b190| 6f 20 65 6e 64 0d 20 20 | 20 20 73 65 74 20 74 6d |o end.  |  set tm|
|0001b1a0| 70 6e 61 6d 65 20 3d 20 | 73 74 72 69 6e 67 28 74 |pname = |string(t|
|0001b1b0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 63 61 73 74 20 |he name |of cast |
|0001b1c0| 69 29 0d 20 20 20 20 70 | 75 74 20 22 30 6c 64 20 |i).    p|ut "0ld |
|0001b1d0| 22 20 26 26 20 74 6d 70 | 6e 61 6d 65 0d 20 20 20 |" && tmp|name.   |
|0001b1e0| 20 73 65 74 20 74 6d 70 | 6e 61 6d 65 20 3d 20 74 | set tmp|name = t|
|0001b1f0| 6d 70 6e 61 6d 65 20 26 | 26 20 22 6e 61 6d 65 22 |mpname &|& "name"|
|0001b200| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6e 61 6d |.    set| the nam|
|0001b210| 65 20 6f 66 20 63 61 73 | 74 20 69 20 3d 20 74 6d |e of cas|t i = tm|
|0001b220| 70 6e 61 6d 65 0d 20 20 | 20 20 70 75 74 20 22 6e |pname.  |  put "n|
|0001b230| 65 77 22 20 26 26 20 74 | 6d 70 6e 61 6d 65 0d 20 |ew" && t|mpname. |
|0001b240| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 20 20 0d 65 | end rep|eat.  .e|
|0001b250| 6e 64 0d 0d 2d 2d 20 73 | 77 69 74 63 68 65 73 20 |nd..-- s|witches |
|0001b260| 74 68 65 20 6e 61 6d 65 | 20 77 69 74 68 20 61 20 |the name| with a |
|0001b270| 6e 75 6d 62 65 72 2c 20 | 66 6f 72 20 74 68 65 20 |number, |for the |
|0001b280| 6e 61 6d 65 73 20 62 69 | 74 6d 61 70 73 0d 6f 6e |names bi|tmaps.on|
|0001b290| 20 66 69 78 6e 61 6d 65 | 73 38 20 73 74 61 72 74 | fixname|s8 start|
|0001b2a0| 2c 65 6e 64 0d 20 20 0d | 20 20 72 65 70 65 61 74 |,end.  .|  repeat|
|0001b2b0| 20 77 69 74 68 20 69 20 | 3d 20 73 74 61 72 74 20 | with i |= start |
|0001b2c0| 74 6f 20 65 6e 64 0d 20 | 20 20 20 73 65 74 20 74 |to end. |   set t|
|0001b2d0| 6d 70 6e 61 6d 65 20 3d | 20 73 74 72 69 6e 67 28 |mpname =| string(|
|0001b2e0| 77 6f 72 64 20 31 20 6f | 66 20 74 68 65 20 6e 61 |word 1 o|f the na|
|0001b2f0| 6d 65 20 6f 66 20 63 61 | 73 74 20 69 29 0d 20 20 |me of ca|st i).  |
|0001b300| 20 20 70 75 74 20 22 30 | 6c 64 20 22 20 26 26 20 |  put "0|ld " && |
|0001b310| 74 6d 70 6e 61 6d 65 0d | 20 20 20 20 73 65 74 20 |tmpname.|    set |
|0001b320| 74 6d 70 6e 61 6d 65 20 | 3d 20 77 6f 72 64 20 31 |tmpname |= word 1|
|0001b330| 20 6f 66 20 74 6d 70 6e | 61 6d 65 0d 20 20 20 20 | of tmpn|ame.    |
|0001b340| 73 65 74 20 74 6d 70 20 | 3d 20 6e 61 6d 65 74 6f |set tmp |= nameto|
|0001b350| 6e 75 6d 28 74 6d 70 6e | 61 6d 65 29 0d 20 20 20 |num(tmpn|ame).   |
|0001b360| 20 69 66 20 74 6d 70 20 | 20 3d 20 31 20 61 6e 64 | if tmp | = 1 and|
|0001b370| 20 74 6d 70 6e 61 6d 65 | 20 3c 3e 20 22 41 6c 69 | tmpname| <> "Ali|
|0001b380| 22 20 74 68 65 6e 20 0d | 20 20 20 20 20 20 70 75 |" then .|      pu|
|0001b390| 74 20 22 65 72 72 6f 72 | 20 22 20 26 20 74 6d 70 |t "error| " & tmp|
|0001b3a0| 6e 61 6d 65 0d 20 20 20 | 20 65 6c 73 65 0d 20 20 |name.   | else.  |
|0001b3b0| 20 20 20 20 73 65 74 20 | 74 6d 70 6e 61 6d 65 20 |    set |tmpname |
|0001b3c0| 3d 20 74 6d 70 20 26 22 | 2e 6e 61 6d 65 32 22 0d |= tmp &"|.name2".|
|0001b3d0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6e 61 |      se|t the na|
|0001b3e0| 6d 65 20 6f 66 20 63 61 | 73 74 20 69 20 3d 20 74 |me of ca|st i = t|
|0001b3f0| 6d 70 6e 61 6d 65 0d 20 | 20 20 20 20 20 70 75 74 |mpname. |     put|
|0001b400| 20 22 6e 65 77 22 20 26 | 26 20 74 6d 70 6e 61 6d | "new" &|& tmpnam|
|0001b410| 65 0d 20 20 20 20 65 6e | 64 20 69 66 20 0d 20 20 |e.    en|d if .  |
|0001b420| 20 20 0d 20 20 20 20 0d | 20 20 20 20 0d 20 20 65 |  .    .|    .  e|
|0001b430| 6e 64 20 72 65 70 65 61 | 74 0d 20 20 0d 65 6e 64 |nd repea|t.  .end|
|0001b440| 0d 0d 2d 2d 20 74 61 6b | 65 73 20 74 68 65 20 6e |..-- tak|es the n|
|0001b450| 61 6d 65 20 69 6e 20 70 | 61 72 65 6e 74 68 65 73 |ame in p|arenthes|
|0001b460| 65 73 20 61 6e 64 20 6d | 61 6b 65 73 20 69 74 20 |es and m|akes it |
|0001b470| 74 68 65 20 6e 61 6d 65 | 0d 6f 6e 20 66 69 78 6e |the name|.on fixn|
|0001b480| 61 6d 65 73 35 20 73 74 | 61 72 74 2c 65 6e 64 0d |ames5 st|art,end.|
|0001b490| 20 20 0d 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |  .  rep|eat with|
|0001b4a0| 20 69 20 3d 20 73 74 61 | 72 74 20 74 6f 20 65 6e | i = sta|rt to en|
|0001b4b0| 64 0d 20 20 20 20 73 65 | 74 20 74 6d 70 6e 61 6d |d.    se|t tmpnam|
|0001b4c0| 65 20 3d 20 73 74 72 69 | 6e 67 28 74 68 65 20 6e |e = stri|ng(the n|
|0001b4d0| 61 6d 65 20 6f 66 20 63 | 61 73 74 20 69 29 0d 20 |ame of c|ast i). |
|0001b4e0| 20 20 20 69 66 20 6e 6f | 74 20 28 74 6d 70 6e 61 |   if no|t (tmpna|
|0001b4f0| 6d 65 20 63 6f 6e 74 61 | 69 6e 73 20 22 28 22 29 |me conta|ins "(")|
|0001b500| 20 74 68 65 6e 20 0d 20 | 20 20 20 20 20 6e 65 78 | then . |     nex|
|0001b510| 74 20 72 65 70 65 61 74 | 0d 20 20 20 20 65 6c 73 |t repeat|.    els|
|0001b520| 65 0d 20 20 20 20 20 20 | 70 75 74 20 22 30 6c 64 |e.      |put "0ld|
|0001b530| 20 22 20 26 26 20 74 6d | 70 6e 61 6d 65 0d 20 20 | " && tm|pname.  |
|0001b540| 20 20 20 20 73 65 74 20 | 74 68 65 20 69 74 65 6d |    set |the item|
|0001b550| 64 65 6c 69 6d 69 74 65 | 72 20 3d 20 22 28 22 0d |delimite|r = "(".|
|0001b560| 20 20 20 20 20 20 73 65 | 74 20 6e 65 77 6e 61 6d |      se|t newnam|
|0001b570| 65 20 3d 20 69 74 65 6d | 20 32 20 6f 66 20 74 6d |e = item| 2 of tm|
|0001b580| 70 6e 61 6d 65 0d 20 20 | 20 20 20 20 73 65 74 20 |pname.  |    set |
|0001b590| 74 68 65 20 69 74 65 6d | 64 65 6c 69 6d 69 74 65 |the item|delimite|
|0001b5a0| 72 20 3d 20 22 29 22 0d | 20 20 20 20 20 20 73 65 |r = ")".|      se|
|0001b5b0| 74 20 6e 65 77 6e 61 6d | 65 20 3d 20 69 74 65 6d |t newnam|e = item|
|0001b5c0| 20 31 20 6f 66 20 6e 65 | 77 6e 61 6d 65 0d 20 20 | 1 of ne|wname.  |
|0001b5d0| 20 20 20 20 73 65 74 20 | 74 68 65 20 69 74 65 6d |    set |the item|
|0001b5e0| 64 65 6c 69 6d 69 74 65 | 72 20 3d 20 22 2d 22 0d |delimite|r = "-".|
|0001b5f0| 20 20 20 20 20 20 73 65 | 74 20 74 6d 70 6e 61 6d |      se|t tmpnam|
|0001b600| 65 20 3d 20 69 74 65 6d | 20 31 20 6f 66 20 74 6d |e = item| 1 of tm|
|0001b610| 70 6e 61 6d 65 20 26 20 | 22 2d 22 20 26 20 6e 65 |pname & |"-" & ne|
|0001b620| 77 6e 61 6d 65 0d 20 20 | 20 20 20 20 0d 20 20 20 |wname.  |    .   |
|0001b630| 20 20 20 73 65 74 20 74 | 68 65 20 6e 61 6d 65 20 |   set t|he name |
|0001b640| 6f 66 20 63 61 73 74 20 | 69 20 3d 20 74 6d 70 6e |of cast |i = tmpn|
|0001b650| 61 6d 65 0d 20 20 20 20 | 20 20 70 75 74 20 22 6e |ame.    |  put "n|
|0001b660| 65 77 22 20 26 26 20 74 | 6d 70 6e 61 6d 65 0d 20 |ew" && t|mpname. |
|0001b670| 20 20 20 65 6e 64 20 69 | 66 20 20 0d 20 20 65 6e |   end i|f  .  en|
|0001b680| 64 20 72 65 70 65 61 74 | 0d 20 20 0d 65 6e 64 0d |d repeat|.  .end.|
|0001b690| 0d 2d 2d 20 72 65 6d 6f | 76 65 73 20 74 68 65 20 |.-- remo|ves the |
|0001b6a0| 6c 61 73 74 20 6e 75 6d | 62 65 72 20 66 72 6f 6d |last num|ber from|
|0001b6b0| 20 74 68 65 20 6e 61 6d | 65 20 28 65 67 2e 20 32 | the nam|e (eg. 2|
|0001b6c0| 2e 33 2d 4a 6f 65 2d 34 | 29 0d 6f 6e 20 66 69 78 |.3-Joe-4|).on fix|
|0001b6d0| 6e 61 6d 65 73 20 20 73 | 74 61 72 74 2c 20 65 6e |names  s|tart, en|
|0001b6e0| 64 0d 20 20 0d 20 20 72 | 65 70 65 61 74 20 77 69 |d.  .  r|epeat wi|
|0001b6f0| 74 68 20 69 20 3d 20 73 | 74 61 72 74 20 74 6f 20 |th i = s|tart to |
|0001b700| 65 6e 64 0d 20 20 20 20 | 73 65 74 20 74 6d 70 6e |end.    |set tmpn|
|0001b710| 61 6d 65 20 3d 20 73 74 | 72 69 6e 67 28 74 68 65 |ame = st|ring(the|
|0001b720| 20 6e 61 6d 65 20 6f 66 | 20 63 61 73 74 20 69 29 | name of| cast i)|
|0001b730| 20 20 0d 20 20 20 20 70 | 75 74 20 22 30 6c 64 20 |  .    p|ut "0ld |
|0001b740| 22 20 26 26 20 74 6d 70 | 6e 61 6d 65 0d 20 20 20 |" && tmp|name.   |
|0001b750| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|0001b760| 69 6d 69 74 65 72 20 3d | 20 22 2d 22 0d 20 20 20 |imiter =| "-".   |
|0001b770| 20 73 65 74 20 74 6d 70 | 6e 61 6d 65 20 3d 20 69 | set tmp|name = i|
|0001b780| 74 65 6d 20 31 20 74 6f | 20 32 20 6f 66 20 74 6d |tem 1 to| 2 of tm|
|0001b790| 70 6e 61 6d 65 0d 20 20 | 20 20 73 65 74 20 74 68 |pname.  |  set th|
|0001b7a0| 65 20 69 74 65 6d 64 65 | 6c 69 6d 69 74 65 72 20 |e itemde|limiter |
|0001b7b0| 3d 20 22 2c 22 0d 20 20 | 20 20 0d 20 20 20 20 73 |= ",".  |  .    s|
|0001b7c0| 65 74 20 74 68 65 20 6e | 61 6d 65 20 6f 66 20 63 |et the n|ame of c|
|0001b7d0| 61 73 74 20 69 20 3d 20 | 74 6d 70 6e 61 6d 65 0d |ast i = |tmpname.|
|0001b7e0| 20 20 20 20 0d 20 20 20 | 20 70 75 74 20 22 6e 65 |    .   | put "ne|
|0001b7f0| 77 22 20 26 26 20 74 6d | 70 6e 61 6d 65 0d 20 20 |w" && tm|pname.  |
|0001b800| 65 6e 64 20 72 65 70 65 | 61 74 20 20 0d 65 6e 64 |end repe|at  .end|
|0001b810| 0d 0d 2d 2d 20 72 65 6d | 6f 76 65 73 20 65 78 74 |..-- rem|oves ext|
|0001b820| 72 61 20 73 70 61 63 65 | 73 20 66 72 6f 6d 20 74 |ra space|s from t|
|0001b830| 68 65 20 65 6e 64 20 6f | 66 20 74 68 65 20 6e 61 |he end o|f the na|
|0001b840| 6d 65 0d 6f 6e 20 66 69 | 78 6e 61 6d 65 73 32 20 |me.on fi|xnames2 |
|0001b850| 20 73 74 61 72 74 2c 20 | 65 6e 64 0d 20 20 0d 20 | start, |end.  . |
|0001b860| 20 72 65 70 65 61 74 20 | 77 69 74 68 20 69 20 3d | repeat |with i =|
|0001b870| 20 73 74 61 72 74 20 74 | 6f 20 65 6e 64 0d 20 20 | start t|o end.  |
|0001b880| 20 20 73 65 74 20 74 6d | 70 6e 61 6d 65 20 3d 20 |  set tm|pname = |
|0001b890| 73 74 72 69 6e 67 28 74 | 68 65 20 6e 61 6d 65 20 |string(t|he name |
|0001b8a0| 6f 66 20 63 61 73 74 20 | 69 29 20 20 0d 20 20 20 |of cast |i)  .   |
|0001b8b0| 20 0d 20 20 20 20 69 66 | 20 63 68 61 72 20 28 74 | .    if| char (t|
|0001b8c0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 68 61 |he numbe|r of cha|
|0001b8d0| 72 73 20 6f 66 20 74 6d | 70 6e 61 6d 65 29 20 6f |rs of tm|pname) o|
|0001b8e0| 66 20 74 6d 70 6e 61 6d | 65 20 3d 20 22 20 22 20 |f tmpnam|e = " " |
|0001b8f0| 74 68 65 6e 20 0d 20 20 | 20 20 20 20 70 75 74 20 |then .  |    put |
|0001b900| 22 30 6c 64 20 22 20 26 | 26 20 74 6d 70 6e 61 6d |"0ld " &|& tmpnam|
|0001b910| 65 0d 20 20 20 20 20 20 | 64 65 6c 65 74 65 20 63 |e.      |delete c|
|0001b920| 68 61 72 20 28 74 68 65 | 20 6e 75 6d 62 65 72 20 |har (the| number |
|0001b930| 6f 66 20 63 68 61 72 73 | 20 6f 66 20 74 6d 70 6e |of chars| of tmpn|
|0001b940| 61 6d 65 29 20 6f 66 20 | 74 6d 70 6e 61 6d 65 0d |ame) of |tmpname.|
|0001b950| 20 20 20 20 20 20 70 75 | 74 20 22 6e 65 77 22 20 |      pu|t "new" |
|0001b960| 26 26 20 74 6d 70 6e 61 | 6d 65 20 20 0d 20 20 20 |&& tmpna|me  .   |
|0001b970| 20 65 6e 64 20 69 66 0d | 20 20 20 20 0d 20 20 20 | end if.|    .   |
|0001b980| 20 73 65 74 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 | set the| name of|
|0001b990| 20 63 61 73 74 20 69 20 | 3d 20 74 6d 70 6e 61 6d | cast i |= tmpnam|
|0001b9a0| 65 0d 20 20 20 20 0d 20 | 20 65 6e 64 20 72 65 70 |e.    . | end rep|
|0001b9b0| 65 61 74 0d 65 6e 64 0d | 0d 0d 2d 2d 20 70 75 74 |eat.end.|..-- put|
|0001b9c0| 73 20 68 65 61 64 20 61 | 74 20 74 68 65 20 65 6e |s head a|t the en|
|0001b9d0| 64 0d 6f 6e 20 66 69 78 | 6e 61 6d 65 73 34 20 20 |d.on fix|names4  |
|0001b9e0| 73 74 61 72 74 2c 20 65 | 6e 64 0d 20 20 0d 20 20 |start, e|nd.  .  |
|0001b9f0| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|0001ba00| 73 74 61 72 74 20 74 6f | 20 65 6e 64 0d 20 20 20 |start to| end.   |
|0001ba10| 20 73 65 74 20 74 6d 70 | 6e 61 6d 65 20 3d 20 73 | set tmp|name = s|
|0001ba20| 74 72 69 6e 67 28 74 68 | 65 20 6e 61 6d 65 20 6f |tring(th|e name o|
|0001ba30| 66 20 63 61 73 74 20 69 | 29 20 0d 20 20 20 20 0d |f cast i|) .    .|
|0001ba40| 20 20 20 20 69 66 20 77 | 6f 72 64 20 31 20 6f 66 |    if w|ord 1 of|
|0001ba50| 20 74 6d 70 6e 61 6d 65 | 20 3d 20 22 68 65 61 64 | tmpname| = "head|
|0001ba60| 22 20 74 68 65 6e 0d 20 | 20 20 20 20 20 64 65 6c |" then. |     del|
|0001ba70| 65 74 65 20 77 6f 72 64 | 20 31 20 6f 66 20 74 6d |ete word| 1 of tm|
|0001ba80| 70 6e 61 6d 65 0d 20 20 | 20 20 20 20 73 65 74 20 |pname.  |    set |
|0001ba90| 74 6d 70 6e 61 6d 65 20 | 3d 20 74 6d 70 6e 61 6d |tmpname |= tmpnam|
|0001baa0| 65 20 26 26 20 22 68 65 | 61 64 22 0d 20 20 20 20 |e && "he|ad".    |
|0001bab0| 20 20 70 75 74 20 22 6e | 65 77 20 22 20 26 26 20 |  put "n|ew " && |
|0001bac0| 74 6d 70 6e 61 6d 65 20 | 20 0d 20 20 20 20 65 6e |tmpname | .    en|
|0001bad0| 64 20 69 66 0d 20 20 20 | 20 2d 2d 20 73 65 74 20 |d if.   | -- set |
|0001bae0| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 63 61 73 74 |the name| of cast|
|0001baf0| 20 69 20 3d 20 74 6d 70 | 6e 61 6d 65 0d 20 20 20 | i = tmp|name.   |
|0001bb00| 20 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 65 | .  end |repeat.e|
|0001bb10| 6e 64 20 0d 0d 2d 2d 20 | 66 69 78 65 73 20 72 6f |nd ..-- |fixes ro|
|0001bb20| 75 6c 65 74 74 65 20 62 | 6f 64 79 72 6f 6c 65 74 |ulette b|odyrolet|
|0001bb30| 74 65 2e 6d 6f 76 69 65 | 2e 30 30 30 30 33 2c 20 |te.movie|.00003, |
|0001bb40| 72 6f 6c 65 74 74 65 30 | 31 0d 6f 6e 20 66 69 78 |rolette0|1.on fix|
|0001bb50| 6e 61 6d 65 73 36 20 73 | 74 61 72 74 2c 65 6e 64 |names6 s|tart,end|
|0001bb60| 0d 20 20 73 65 74 20 63 | 6f 75 6e 74 20 3d 20 31 |.  set c|ount = 1|
|0001bb70| 0d 20 20 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |.  .  re|peat wit|
|0001bb80| 68 20 69 20 3d 20 73 74 | 61 72 74 20 74 6f 20 65 |h i = st|art to e|
|0001bb90| 6e 64 0d 20 20 20 20 0d | 20 20 20 20 73 65 74 20 |nd.    .|    set |
|0001bba0| 74 6d 70 6e 61 6d 65 20 | 3d 20 22 72 6f 6c 65 74 |tmpname |= "rolet|
|0001bbb0| 74 65 22 20 26 20 63 6f | 75 6e 74 0d 20 20 20 20 |te" & co|unt.    |
|0001bbc0| 73 65 74 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |set the |name of |
|0001bbd0| 63 61 73 74 20 69 20 3d | 20 74 6d 70 6e 61 6d 65 |cast i =| tmpname|
|0001bbe0| 0d 20 20 20 20 70 75 74 | 20 22 6e 65 77 22 20 26 |.    put| "new" &|
|0001bbf0| 26 20 74 6d 70 6e 61 6d | 65 0d 20 20 20 20 73 65 |& tmpnam|e.    se|
|0001bc00| 74 20 63 6f 75 6e 74 20 | 3d 20 63 6f 75 6e 74 20 |t count |= count |
|0001bc10| 20 2b 20 31 0d 20 20 65 | 6e 64 20 72 65 70 65 61 | + 1.  e|nd repea|
|0001bc20| 74 0d 20 20 0d 65 6e 64 | 0d 01 30 00 46 00 46 01 |t.  .end|..0.F.F.|
|0001bc30| c7 02 49 00 00 00 1e 00 | 00 00 24 00 e3 41 d0 00 |..I.....|..$..A..|
|0001bc40| 01 00 00 00 00 00 0b 00 | 09 00 04 00 00 00 09 00 |........|........|
|0001bc50| 00 00 00 00 00 05 43 41 | 53 74 00 00 13 26 00 04 |......CA|St...&..|
|0001bc60| 00 00 13 1c 0b 00 00 03 | 00 00 00 14 00 c2 eb b8 |........|........|
|0001bc70| 00 00 00 00 00 00 00 00 | 00 00 00 05 00 07 00 00 |........|........|
|0001bc80| 00 00 00 00 12 bc 00 00 | 12 bc 00 00 12 bc 00 00 |........|........|
|0001bc90| 12 bc 00 00 12 bc 00 00 | 12 d0 00 00 12 e6 2d 2d |........|......--|
|0001bca0| 20 74 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 72 | this fu|nction r|
|0001bcb0| 75 6e 73 20 6d 61 6b 65 | 20 69 6e 64 65 78 20 6f |uns make| index o|
|0001bcc0| 6e 20 61 6c 6c 20 74 68 | 65 20 22 2e 74 78 74 22 |n all th|e ".txt"|
|0001bcd0| 20 66 69 6c 65 73 20 69 | 6e 20 74 68 65 20 63 75 | files i|n the cu|
|0001bce0| 72 72 65 6e 74 0d 2d 2d | 20 64 69 72 65 63 74 6f |rrent.--| directo|
|0001bcf0| 72 79 0d 0d 6f 6e 20 42 | 61 74 63 68 49 6e 64 65 |ry..on B|atchInde|
|0001bd00| 78 0d 20 20 67 6c 6f 62 | 61 6c 20 6d 70 61 74 68 |x.  glob|al mpath|
|0001bd10| 2c 20 67 77 6f 72 6c 64 | 2c 20 67 6d 61 6b 65 72 |, gworld|, gmaker|
|0001bd20| 6e 75 6d 0d 20 20 0d 20 | 20 0d 20 20 73 65 74 20 |num.  . | .  set |
|0001bd30| 74 68 65 20 69 74 65 6d | 64 65 6c 69 6d 69 74 65 |the item|delimite|
|0001bd40| 72 20 3d 20 22 2e 22 0d | 20 20 73 65 74 20 67 57 |r = ".".|  set gW|
|0001bd50| 6f 72 6c 64 20 3d 20 69 | 74 65 6d 20 31 20 6f 66 |orld = i|tem 1 of|
|0001bd60| 20 74 68 65 20 6d 6f 76 | 69 65 6e 61 6d 65 0d 20 | the mov|iename. |
|0001bd70| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|0001bd80| 69 6d 69 74 65 72 20 3d | 20 22 2c 22 0d 20 20 0d |imiter =| ",".  .|
|0001bd90| 20 20 73 65 74 20 6d 70 | 61 74 68 20 3d 20 74 68 |  set mp|ath = th|
|0001bda0| 65 20 70 61 74 68 6e 61 | 6d 65 20 26 20 67 77 6f |e pathna|me & gwo|
|0001bdb0| 72 6c 64 20 26 20 22 3a | 22 0d 20 20 0d 20 20 2d |rld & ":|".  .  -|
|0001bdc0| 2d 73 65 74 20 74 68 65 | 20 74 65 78 74 20 6f 66 |-set the| text of|
|0001bdd0| 20 66 69 65 6c 64 20 28 | 22 43 75 74 74 69 6e 67 | field (|"Cutting|
|0001bde0| 49 6e 64 65 78 22 26 67 | 77 6f 72 6c 64 29 20 3d |Index"&g|world) =|
|0001bdf0| 20 22 22 0d 20 20 70 75 | 74 20 5b 5d 20 69 6e 74 | "".  pu|t [] int|
|0001be00| 6f 20 66 69 6c 65 4c 69 | 73 74 0d 20 20 0d 20 20 |o fileLi|st.  .  |
|0001be10| 72 65 70 65 61 74 20 77 | 69 74 68 20 69 20 3d 20 |repeat w|ith i = |
|0001be20| 31 20 74 6f 20 74 68 65 | 20 6d 61 78 49 6e 74 65 |1 to the| maxInte|
|0001be30| 67 65 72 20 20 20 20 0d | 20 20 20 20 70 75 74 20 |ger    .|    put |
|0001be40| 67 65 74 4e 74 68 46 69 | 6c 65 4e 61 6d 65 49 6e |getNthFi|leNameIn|
|0001be50| 46 6f 6c 64 65 72 28 6d | 70 61 74 68 2c 20 69 29 |Folder(m|path, i)|
|0001be60| 20 69 6e 74 6f 20 6e 0d | 20 20 20 20 69 66 20 6e | into n.|    if n|
|0001be70| 20 3d 20 45 4d 50 54 59 | 20 74 68 65 6e 20 65 78 | = EMPTY| then ex|
|0001be80| 69 74 20 72 65 70 65 61 | 74 0d 20 20 20 20 73 65 |it repea|t.    se|
|0001be90| 74 20 6e 75 6d 20 3d 20 | 74 68 65 20 6e 75 6d 62 |t num = |the numb|
|0001bea0| 65 72 20 6f 66 20 63 68 | 61 72 73 20 6f 66 20 6e |er of ch|ars of n|
|0001beb0| 0d 20 20 20 20 69 66 20 | 63 68 61 72 20 28 6e 75 |.    if |char (nu|
|0001bec0| 6d 2d 33 29 20 74 6f 20 | 6e 75 6d 20 6f 66 20 6e |m-3) to |num of n|
|0001bed0| 20 3d 20 22 2e 74 78 74 | 22 20 74 68 65 6e 0d 20 | = ".txt|" then. |
|0001bee0| 20 20 20 20 20 61 70 70 | 65 6e 64 28 66 69 6c 65 |     app|end(file|
|0001bef0| 4c 69 73 74 2c 20 6e 29 | 0d 20 20 20 20 65 6e 64 |List, n)|.    end|
|0001bf00| 20 69 66 0d 20 20 65 6e | 64 20 72 65 70 65 61 74 | if.  en|d repeat|
|0001bf10| 0d 20 20 0d 20 20 70 75 | 74 20 22 66 69 6c 65 6c |.  .  pu|t "filel|
|0001bf20| 69 73 74 20 3d 20 22 20 | 26 26 20 66 69 6c 65 6c |ist = " |&& filel|
|0001bf30| 69 73 74 0d 20 20 0d 20 | 20 73 65 74 20 6e 75 6d |ist.  . | set num|
|0001bf40| 20 3d 20 63 6f 75 6e 74 | 28 66 69 6c 65 4c 69 73 | = count|(fileLis|
|0001bf50| 74 29 0d 20 20 0d 20 20 | 72 65 70 65 61 74 20 77 |t).  .  |repeat w|
|0001bf60| 69 74 68 20 69 20 3d 20 | 31 20 74 6f 20 6e 75 6d |ith i = |1 to num|
|0001bf70| 0d 20 20 20 20 73 65 74 | 20 74 6d 70 6e 61 6d 65 |.    set| tmpname|
|0001bf80| 20 3d 20 20 67 65 74 41 | 74 28 66 69 6c 65 4c 69 | =  getA|t(fileLi|
|0001bf90| 73 74 2c 69 29 0d 20 20 | 20 20 70 75 74 20 22 62 |st,i).  |  put "b|
|0001bfa0| 61 74 63 68 20 69 6e 64 | 65 78 69 6e 67 20 22 20 |atch ind|exing " |
|0001bfb0| 26 26 20 74 6d 70 6e 61 | 6d 65 0d 20 20 20 20 73 |&& tmpna|me.    s|
|0001bfc0| 65 74 20 74 68 65 20 69 | 74 65 6d 64 65 6c 69 6d |et the i|temdelim|
|0001bfd0| 69 74 65 72 20 3d 20 22 | 2e 22 0d 20 20 20 20 73 |iter = "|.".    s|
|0001bfe0| 65 74 20 74 6d 70 6e 61 | 6d 65 20 3d 20 69 74 65 |et tmpna|me = ite|
|0001bff0| 6d 20 31 20 6f 66 20 74 | 6d 70 6e 61 6d 65 0d 20 |m 1 of t|mpname. |
|0001c000| 20 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |   set t|he itemd|
|0001c010| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 2c 22 0d 20 |elimiter| = ",". |
|0001c020| 20 20 20 73 65 74 20 67 | 6d 61 6b 65 72 6e 75 6d |   set g|makernum|
|0001c030| 20 3d 20 6e 61 6d 65 74 | 6f 6e 75 6d 28 74 6d 70 | = namet|onum(tmp|
|0001c040| 6e 61 6d 65 29 0d 20 20 | 20 20 0d 20 20 20 20 73 |name).  |  .    s|
|0001c050| 65 74 20 65 72 72 20 3d | 20 6d 61 6b 65 49 6e 64 |et err =| makeInd|
|0001c060| 65 78 28 67 65 74 41 74 | 28 66 69 6c 65 4c 69 73 |ex(getAt|(fileLis|
|0001c070| 74 2c 69 29 29 20 0d 20 | 20 20 20 69 66 20 65 72 |t,i)) . |   if er|
|0001c080| 72 20 3d 20 2d 31 20 74 | 68 65 6e 0d 20 20 20 20 |r = -1 t|hen.    |
|0001c090| 20 20 73 65 74 20 74 6d | 70 6e 75 6d 20 3d 20 28 |  set tm|pnum = (|
|0001c0a0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |the numb|er of li|
|0001c0b0| 6e 65 73 20 6f 66 20 66 | 69 65 6c 64 20 22 42 61 |nes of f|ield "Ba|
|0001c0c0| 74 63 68 45 72 72 6f 72 | 73 22 29 20 2b 20 31 0d |tchError|s") + 1.|
|0001c0d0| 20 20 20 20 20 20 70 75 | 74 20 22 49 6e 64 65 78 |      pu|t "Index|
|0001c0e0| 20 45 72 72 6f 72 3a 20 | 22 20 26 26 20 67 65 74 | Error: |" && get|
|0001c0f0| 41 74 28 66 69 6c 65 4c | 69 73 74 2c 69 29 20 69 |At(fileL|ist,i) i|
|0001c100| 6e 74 6f 20 6c 69 6e 65 | 20 74 6d 70 6e 75 6d 20 |nto line| tmpnum |
|0001c110| 6f 66 20 66 69 65 6c 64 | 20 22 42 61 74 63 68 45 |of field| "BatchE|
|0001c120| 72 72 6f 72 73 22 0d 20 | 20 20 20 65 6e 64 20 69 |rrors". |   end i|
|0001c130| 66 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 20 |f.  end |repeat. |
|0001c140| 20 0d 65 6e 64 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | .end.--|--------|
|0001c150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001c160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001c170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001c180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001c190| 2d 2d 2d 2d 0d 2d 2d 20 | 74 68 69 73 20 66 75 6e |----.-- |this fun|
|0001c1a0| 63 74 69 6f 6e 20 6f 70 | 65 6e 73 20 74 68 65 20 |ction op|ens the |
|0001c1b0| 70 65 72 73 6f 6e 73 20 | 63 75 74 74 69 6e 67 73 |persons |cuttings|
|0001c1c0| 20 66 69 6c 65 2c 20 66 | 69 67 75 72 65 73 20 6f | file, f|igures o|
|0001c1d0| 75 74 20 74 68 65 20 6f | 66 66 73 65 74 73 20 6f |ut the o|ffsets o|
|0001c1e0| 66 20 0d 2d 2d 20 74 68 | 65 20 63 75 74 74 69 6e |f .-- th|e cuttin|
|0001c1f0| 67 73 20 69 6e 20 74 68 | 65 20 66 69 6c 65 2c 20 |gs in th|e file, |
|0001c200| 61 6e 64 20 74 68 65 6e | 20 73 61 76 65 73 20 74 |and then| saves t|
|0001c210| 68 65 0d 2d 2d 20 69 6e | 64 65 78 65 73 20 69 6e |he.-- in|dexes in|
|0001c220| 74 6f 20 74 68 65 20 22 | 43 75 74 74 69 6e 67 73 |to the "|Cuttings|
|0001c230| 49 6e 64 65 78 22 20 74 | 65 78 74 20 66 69 65 6c |Index" t|ext fiel|
|0001c240| 64 0d 2d 2d 20 61 6e 64 | 20 73 61 76 65 73 20 74 |d.-- and| saves t|
|0001c250| 68 65 20 74 65 78 74 20 | 66 69 6c 65 20 69 6e 74 |he text |file int|
|0001c260| 6f 20 61 20 6e 65 77 20 | 66 69 6c 65 20 77 69 74 |o a new |file wit|
|0001c270| 68 20 61 20 6e 65 77 20 | 6e 61 6d 65 0d 0d 6f 6e |h a new |name..on|
|0001c280| 20 4d 61 6b 65 49 6e 64 | 65 78 20 66 6e 61 6d 65 | MakeInd|ex fname|
|0001c290| 0d 20 20 67 6c 6f 62 61 | 6c 20 49 6e 64 65 78 2c |.  globa|l Index,|
|0001c2a0| 20 4d 61 69 6e 49 6e 64 | 65 78 2c 20 6d 50 61 74 | MainInd|ex, mPat|
|0001c2b0| 68 2c 20 67 4d 61 6b 65 | 72 4e 75 6d 2c 20 67 4d |h, gMake|rNum, gM|
|0001c2c0| 61 6b 65 72 4e 61 6d 65 | 2c 20 67 4e 61 6d 65 2c |akerName|, gName,|
|0001c2d0| 20 67 77 6f 72 6c 64 0d | 20 20 0d 20 20 70 75 74 | gworld.|  .  put|
|0001c2e0| 20 22 69 6e 64 65 78 69 | 6e 67 3a 20 22 20 26 26 | "indexi|ng: " &&|
|0001c2f0| 20 66 6e 61 6d 65 0d 20 | 20 73 65 74 20 74 68 65 | fname. | set the|
|0001c300| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|0001c310| 20 22 2e 22 0d 20 20 73 | 65 74 20 67 57 6f 72 6c | ".".  s|et gWorl|
|0001c320| 64 20 3d 20 69 74 65 6d | 20 31 20 6f 66 20 74 68 |d = item| 1 of th|
|0001c330| 65 20 6d 6f 76 69 65 6e | 61 6d 65 0d 20 20 73 65 |e movien|ame.  se|
|0001c340| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|0001c350| 74 65 72 20 3d 20 22 2c | 22 0d 20 20 0d 20 20 73 |ter = ",|".  .  s|
|0001c360| 65 74 20 67 6e 61 6d 65 | 20 3d 20 6c 69 6e 65 20 |et gname| = line |
|0001c370| 67 4d 61 6b 65 72 4e 75 | 6d 20 6f 66 20 66 69 65 |gMakerNu|m of fie|
|0001c380| 6c 64 20 22 6d 61 6b 65 | 72 6e 75 6d 6c 69 73 74 |ld "make|rnumlist|
|0001c390| 22 0d 20 20 73 65 74 20 | 74 68 65 6e 61 6d 20 3d |".  set |thenam =|
|0001c3a0| 20 66 6e 61 6d 65 0d 20 | 20 69 66 20 74 68 65 20 | fname. | if the |
|0001c3b0| 70 61 72 61 6d 63 6f 75 | 6e 74 20 3d 20 31 20 74 |paramcou|nt = 1 t|
|0001c3c0| 68 65 6e 0d 20 20 20 20 | 73 65 74 20 6d 79 4f 62 |hen.    |set myOb|
|0001c3d0| 6a 20 3d 20 66 69 6c 65 | 69 6f 28 6d 4e 65 77 2c |j = file|io(mNew,|
|0001c3e0| 22 72 65 61 64 22 2c 20 | 6d 50 61 74 68 20 26 20 |"read", |mPath & |
|0001c3f0| 66 6e 61 6d 65 29 0d 20 | 20 65 6c 73 65 0d 20 20 |fname). | else.  |
|0001c400| 20 20 73 65 74 20 6d 79 | 4f 62 6a 20 3d 20 66 69 |  set my|Obj = fi|
|0001c410| 6c 65 69 6f 28 6d 4e 65 | 77 2c 22 3f 72 65 61 64 |leio(mNe|w,"?read|
|0001c420| 22 2c 22 54 45 58 54 22 | 29 0d 20 20 65 6e 64 20 |","TEXT"|).  end |
|0001c430| 69 66 0d 20 20 0d 20 20 | 69 66 20 6e 6f 74 20 6f |if.  .  |if not o|
|0001c440| 62 6a 65 63 74 70 28 6d | 79 4f 62 6a 29 20 74 68 |bjectp(m|yObj) th|
|0001c450| 65 6e 0d 20 20 20 20 61 | 6c 65 72 74 20 22 70 72 |en.    a|lert "pr|
|0001c460| 6f 62 6c 65 6d 20 6f 70 | 65 6e 69 6e 67 20 22 20 |oblem op|ening " |
|0001c470| 26 26 20 66 6e 61 6d 65 | 0d 20 20 20 20 61 62 6f |&& fname|.    abo|
|0001c480| 72 74 0d 20 20 65 6c 73 | 65 0d 20 20 20 20 2d 2d |rt.  els|e.    --|
|0001c490| 20 65 78 74 72 61 63 74 | 20 74 68 65 20 70 65 72 | extract| the per|
|0001c4a0| 73 6f 6e 73 20 6e 61 6d | 65 20 66 72 6f 6d 20 74 |sons nam|e from t|
|0001c4b0| 68 65 20 66 69 6c 65 6e | 61 6d 65 0d 20 20 20 20 |he filen|ame.    |
|0001c4c0| 73 65 74 20 66 6e 61 6d | 65 20 3d 20 6d 79 4f 62 |set fnam|e = myOb|
|0001c4d0| 6a 28 6d 46 69 6c 65 4e | 61 6d 65 29 0d 20 20 20 |j(mFileN|ame).   |
|0001c4e0| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|0001c4f0| 69 6d 69 74 65 72 20 3d | 20 22 3a 22 0d 20 20 20 |imiter =| ":".   |
|0001c500| 20 73 65 74 20 66 6e 61 | 6d 65 20 3d 20 69 74 65 | set fna|me = ite|
|0001c510| 6d 20 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |m (the n|umber of|
|0001c520| 20 69 74 65 6d 73 20 6f | 66 20 66 6e 61 6d 65 29 | items o|f fname)|
|0001c530| 20 6f 66 20 66 6e 61 6d | 65 0d 20 20 20 20 73 65 | of fnam|e.    se|
|0001c540| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|0001c550| 74 65 72 20 3d 20 22 2e | 22 0d 20 20 20 20 73 65 |ter = ".|".    se|
|0001c560| 74 20 66 6e 61 6d 65 20 | 3d 20 69 74 65 6d 20 31 |t fname |= item 1|
|0001c570| 20 6f 66 20 66 6e 61 6d | 65 0d 20 20 20 20 73 65 | of fnam|e.    se|
|0001c580| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|0001c590| 74 65 72 20 3d 20 22 2c | 22 0d 20 20 20 20 70 75 |ter = ",|".    pu|
|0001c5a0| 74 20 22 47 65 74 74 69 | 6e 67 20 69 6e 64 65 78 |t "Getti|ng index|
|0001c5b0| 65 73 20 66 6f 72 3a 20 | 22 20 26 20 66 6e 61 6d |es for: |" & fnam|
|0001c5c0| 65 0d 20 20 20 20 0d 20 | 20 20 20 73 65 74 20 74 |e.    . |   set t|
|0001c5d0| 6d 70 66 69 6c 65 20 3d | 20 6d 79 4f 62 6a 28 6d |mpfile =| myObj(m|
|0001c5e0| 52 65 61 64 46 69 6c 65 | 29 0d 20 20 20 20 73 65 |ReadFile|).    se|
|0001c5f0| 74 20 74 6d 70 66 69 6c | 65 63 6f 70 79 20 3d 20 |t tmpfil|ecopy = |
|0001c600| 74 6d 70 66 69 6c 65 0d | 20 20 20 20 73 65 74 20 |tmpfile.|    set |
|0001c610| 74 68 65 20 69 74 65 6d | 64 65 6c 69 6d 69 74 65 |the item|delimite|
|0001c620| 72 20 3d 20 22 40 22 0d | 20 20 20 20 73 65 74 20 |r = "@".|    set |
|0001c630| 69 6e 75 6d 20 3d 20 74 | 68 65 20 6e 75 6d 62 65 |inum = t|he numbe|
|0001c640| 72 20 6f 66 20 69 74 65 | 6d 73 20 6f 66 20 74 6d |r of ite|ms of tm|
|0001c650| 70 66 69 6c 65 0d 20 20 | 20 20 73 65 74 20 74 68 |pfile.  |  set th|
|0001c660| 65 20 69 74 65 6d 64 65 | 6c 69 6d 69 74 65 72 20 |e itemde|limiter |
|0001c670| 3d 20 22 2c 22 0d 20 20 | 20 20 73 65 74 20 6f 66 |= ",".  |  set of|
|0001c680| 66 73 65 74 20 3d 20 30 | 0d 20 20 20 20 73 65 74 |fset = 0|.    set|
|0001c690| 20 61 20 3d 20 30 0d 20 | 20 20 20 73 65 74 20 69 | a = 0. |   set i|
|0001c6a0| 6e 64 65 78 20 3d 20 22 | 22 0d 20 20 20 20 73 65 |ndex = "|".    se|
|0001c6b0| 74 20 66 69 72 73 74 20 | 3d 20 31 0d 20 20 20 20 |t first |= 1.    |
|0001c6c0| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |.    rep|eat with|
|0001c6d0| 20 69 20 3d 20 31 20 74 | 6f 20 69 6e 75 6d 0d 20 | i = 1 t|o inum. |
|0001c6e0| 20 20 20 20 20 0d 20 20 | 20 20 20 20 73 65 74 20 |     .  |    set |
|0001c6f0| 74 68 65 20 69 74 65 6d | 64 65 6c 69 6d 69 74 65 |the item|delimite|
|0001c700| 72 20 3d 20 22 40 22 0d | 20 20 20 20 20 20 73 65 |r = "@".|      se|
|0001c710| 74 20 74 6d 70 20 3d 20 | 69 74 65 6d 20 69 20 6f |t tmp = |item i o|
|0001c720| 66 20 74 6d 70 66 69 6c | 65 0d 20 20 20 20 20 20 |f tmpfil|e.      |
|0001c730| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|0001c740| 6d 69 74 65 72 20 3d 20 | 22 2c 22 0d 20 20 20 20 |miter = |",".    |
|0001c750| 20 20 0d 20 20 20 20 20 | 20 69 66 20 69 20 3d 20 |  .     | if i = |
|0001c760| 69 6e 75 6d 20 61 6e 64 | 20 74 68 65 20 6e 75 6d |inum and| the num|
|0001c770| 62 65 72 20 6f 66 20 63 | 68 61 72 73 20 6f 66 20 |ber of c|hars of |
|0001c780| 74 6d 70 20 3c 20 33 20 | 74 68 65 6e 20 65 78 69 |tmp < 3 |then exi|
|0001c790| 74 20 72 65 70 65 61 74 | 0d 20 20 20 20 20 20 0d |t repeat|.      .|
|0001c7a0| 20 20 20 20 20 20 69 66 | 20 66 69 72 73 74 20 74 |      if| first t|
|0001c7b0| 68 65 6e 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |hen.    |    set |
|0001c7c0| 74 6d 70 61 72 74 20 3d | 20 6c 69 6e 65 20 31 20 |tmpart =| line 1 |
|0001c7d0| 6f 66 20 74 6d 70 0d 20 | 20 20 20 20 20 20 20 73 |of tmp. |       s|
|0001c7e0| 65 74 20 66 69 72 73 74 | 20 3d 20 30 0d 20 20 20 |et first| = 0.   |
|0001c7f0| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 20 20 |   else.|        |
|0001c800| 73 65 74 20 74 6d 70 61 | 72 74 20 3d 20 6c 69 6e |set tmpa|rt = lin|
|0001c810| 65 20 32 20 6f 66 20 74 | 6d 70 0d 20 20 20 20 20 |e 2 of t|mp.     |
|0001c820| 20 65 6e 64 20 69 66 0d | 20 20 20 20 20 20 0d 20 | end if.|      . |
|0001c830| 20 20 20 20 20 69 66 20 | 74 68 65 20 6e 75 6d 62 |     if |the numb|
|0001c840| 65 72 20 6f 66 20 63 68 | 61 72 73 20 6f 66 20 74 |er of ch|ars of t|
|0001c850| 6d 70 61 72 74 20 3e 20 | 34 20 74 68 65 6e 0d 20 |mpart > |4 then. |
|0001c860| 20 20 20 20 20 20 20 70 | 75 74 20 22 65 72 72 6f |       p|ut "erro|
|0001c870| 72 2e 20 61 72 74 69 63 | 6c 65 20 6e 75 6d 62 65 |r. artic|le numbe|
|0001c880| 72 20 69 73 20 77 72 6f | 6e 67 2e 22 0d 20 20 20 |r is wro|ng.".   |
|0001c890| 20 20 20 20 20 72 65 74 | 75 72 6e 20 2d 31 0d 20 |     ret|urn -1. |
|0001c8a0| 20 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |     els|e.      |
|0001c8b0| 20 20 73 65 74 20 61 72 | 74 20 3d 20 77 6f 72 64 |  set ar|t = word|
|0001c8c0| 20 31 20 6f 66 20 74 6d | 70 61 72 74 0d 20 20 20 | 1 of tm|part.   |
|0001c8d0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|0001c8e0| 0d 20 20 20 20 20 20 73 | 65 74 20 61 20 3d 20 6f |.      s|et a = o|
|0001c8f0| 66 66 73 65 74 20 2b 20 | 61 0d 20 20 20 20 20 20 |ffset + |a.      |
|0001c900| 0d 20 20 20 20 20 20 69 | 66 20 69 6e 64 65 78 20 |.      i|f index |
|0001c910| 3d 20 22 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |= "" the|n.      |
|0001c920| 20 20 70 75 74 20 61 72 | 74 20 26 20 22 3a 22 20 |  put ar|t & ":" |
|0001c930| 26 20 61 20 69 6e 74 6f | 20 69 74 65 6d 20 31 20 |& a into| item 1 |
|0001c940| 6f 66 20 69 6e 64 65 78 | 0d 20 20 20 20 20 20 65 |of index|.      e|
|0001c950| 6c 73 65 20 20 20 0d 20 | 20 20 20 20 20 20 20 70 |lse   . |       p|
|0001c960| 75 74 20 61 72 74 20 26 | 20 22 3a 22 20 26 20 61 |ut art &| ":" & a|
|0001c970| 20 69 6e 74 6f 20 69 74 | 65 6d 20 28 28 74 68 65 | into it|em ((the|
|0001c980| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|0001c990| 20 6f 66 20 69 6e 64 65 | 78 29 20 2b 20 31 29 20 | of inde|x) + 1) |
|0001c9a0| 6f 66 20 69 6e 64 65 78 | 0d 20 20 20 20 20 20 65 |of index|.      e|
|0001c9b0| 6e 64 20 69 66 0d 20 20 | 20 20 20 20 0d 20 20 20 |nd if.  |    .   |
|0001c9c0| 20 20 20 73 65 74 20 6f | 66 66 73 65 74 20 3d 20 |   set o|ffset = |
|0001c9d0| 28 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 |(the num|ber of c|
|0001c9e0| 68 61 72 73 20 6f 66 20 | 74 6d 70 29 20 2b 20 31 |hars of |tmp) + 1|
|0001c9f0| 0d 20 20 20 20 20 20 0d | 20 20 20 20 65 6e 64 20 |.      .|    end |
|0001ca00| 72 65 70 65 61 74 0d 20 | 20 20 20 0d 20 20 20 20 |repeat. |   .    |
|0001ca10| 0d 20 20 20 20 0d 20 20 | 20 20 2d 2d 20 64 69 73 |.    .  |  -- dis|
|0001ca20| 70 6f 73 65 20 74 68 65 | 20 78 6f 62 6a 65 63 74 |pose the| xobject|
|0001ca30| 0d 20 20 20 20 6d 79 4f | 62 6a 28 6d 64 69 73 70 |.    myO|bj(mdisp|
|0001ca40| 6f 73 65 29 0d 20 20 20 | 20 0d 20 20 20 20 73 65 |ose).   | .    se|
|0001ca50| 74 20 6e 75 6d 20 3d 20 | 74 68 65 20 6e 75 6d 62 |t num = |the numb|
|0001ca60| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 6f 66 20 66 |er of li|nes of f|
|0001ca70| 69 65 6c 64 20 28 22 43 | 75 74 74 69 6e 67 49 6e |ield ("C|uttingIn|
|0001ca80| 64 65 78 22 26 67 77 6f | 72 6c 64 29 0d 20 20 20 |dex"&gwo|rld).   |
|0001ca90| 20 0d 20 20 20 20 2d 2d | 20 73 65 65 20 69 66 20 | .    --| see if |
|0001caa0| 6e 61 6d 65 20 65 78 69 | 73 74 73 20 69 6e 20 63 |name exi|sts in c|
|0001cab0| 75 74 74 69 6e 67 20 69 | 6e 64 65 78 2e 20 69 66 |utting i|ndex. if|
|0001cac0| 20 69 74 20 64 6f 65 73 | 20 74 68 65 6e 20 64 65 | it does| then de|
|0001cad0| 6c 65 74 65 20 69 74 0d | 20 20 20 20 73 65 74 20 |lete it.|    set |
|0001cae0| 66 6e 61 6d 65 20 3d 20 | 67 6e 61 6d 65 0d 20 20 |fname = |gname.  |
|0001caf0| 20 20 70 75 74 20 66 6e | 61 6d 65 20 26 22 3a 22 |  put fn|ame &":"|
|0001cb00| 26 69 6e 64 65 78 0d 20 | 20 20 20 73 65 74 20 69 |&index. |   set i|
|0001cb10| 20 3d 20 62 73 65 61 72 | 63 68 28 66 6e 61 6d 65 | = bsear|ch(fname|
|0001cb20| 2c 28 22 43 75 74 74 69 | 6e 67 49 6e 64 65 78 22 |,("Cutti|ngIndex"|
|0001cb30| 26 67 77 6f 72 6c 64 29 | 29 0d 20 20 20 20 69 66 |&gworld)|).    if|
|0001cb40| 20 69 20 74 68 65 6e 0d | 20 20 20 20 20 20 64 65 | i then.|      de|
|0001cb50| 6c 65 74 65 20 6c 69 6e | 65 20 69 20 6f 66 20 66 |lete lin|e i of f|
|0001cb60| 69 65 6c 64 20 28 22 43 | 75 74 74 69 6e 67 49 6e |ield ("C|uttingIn|
|0001cb70| 64 65 78 22 26 67 77 6f | 72 6c 64 29 0d 20 20 20 |dex"&gwo|rld).   |
|0001cb80| 20 65 6e 64 20 69 66 0d | 20 20 20 20 0d 20 20 20 | end if.|    .   |
|0001cb90| 20 2d 2d 20 20 20 20 72 | 65 70 65 61 74 20 77 69 | --    r|epeat wi|
|0001cba0| 74 68 20 69 20 3d 20 31 | 20 74 6f 20 6e 75 6d 0d |th i = 1| to num.|
|0001cbb0| 20 20 20 20 2d 2d 20 20 | 20 20 20 20 69 66 20 69 |    --  |    if i|
|0001cbc0| 74 65 6d 20 31 20 6f 66 | 20 6c 69 6e 65 20 69 20 |tem 1 of| line i |
|0001cbd0| 6f 66 20 66 69 65 6c 64 | 20 22 43 75 74 74 69 6e |of field| "Cuttin|
|0001cbe0| 67 49 6e 64 65 78 22 20 | 3d 20 66 6e 61 6d 65 20 |gIndex" |= fname |
|0001cbf0| 74 68 65 6e 0d 20 20 20 | 20 2d 2d 20 20 20 20 20 |then.   | --     |
|0001cc00| 20 20 20 70 75 74 20 22 | 6c 6f 6f 70 20 22 20 26 |   put "|loop " &|
|0001cc10| 26 20 69 0d 20 20 20 20 | 2d 2d 20 20 20 20 20 20 |& i.    |--      |
|0001cc20| 20 20 64 65 6c 65 74 65 | 20 6c 69 6e 65 20 69 20 |  delete| line i |
|0001cc30| 6f 66 20 66 69 65 6c 64 | 20 22 43 75 74 74 69 6e |of field| "Cuttin|
|0001cc40| 67 49 6e 64 65 78 22 0d | 20 20 20 20 2d 2d 20 20 |gIndex".|    --  |
|0001cc50| 20 20 20 20 20 20 65 78 | 69 74 20 72 65 70 65 61 |      ex|it repea|
|0001cc60| 74 0d 20 20 20 20 2d 2d | 20 20 20 20 20 20 65 6e |t.    --|      en|
|0001cc70| 64 20 69 66 0d 20 20 20 | 20 2d 2d 20 20 20 20 65 |d if.   | --    e|
|0001cc80| 6e 64 20 72 65 70 65 61 | 74 0d 20 20 20 20 0d 20 |nd repea|t.    . |
|0001cc90| 20 20 20 73 65 74 20 69 | 6e 64 65 78 20 3d 20 20 |   set i|ndex =  |
|0001cca0| 66 6e 61 6d 65 20 26 20 | 22 2c 22 20 26 20 69 6e |fname & |"," & in|
|0001ccb0| 64 65 78 0d 20 20 20 20 | 2d 2d 20 70 75 74 20 74 |dex.    |-- put t|
|0001ccc0| 68 65 20 69 6e 64 65 78 | 20 69 6e 20 74 68 65 20 |he index| in the |
|0001ccd0| 69 6e 64 65 78 20 6c 69 | 73 74 0d 20 20 20 20 69 |index li|st.    i|
|0001cce0| 66 20 6c 69 6e 65 20 31 | 20 6f 66 20 66 69 65 6c |f line 1| of fiel|
|0001ccf0| 64 20 28 22 43 75 74 74 | 69 6e 67 49 6e 64 65 78 |d ("Cutt|ingIndex|
|0001cd00| 22 26 67 77 6f 72 6c 64 | 29 20 3d 20 22 22 20 74 |"&gworld|) = "" t|
|0001cd10| 68 65 6e 0d 20 20 20 20 | 20 20 70 75 74 20 69 6e |hen.    |  put in|
|0001cd20| 64 65 78 20 69 6e 74 6f | 20 6c 69 6e 65 20 31 20 |dex into| line 1 |
|0001cd30| 6f 66 20 66 69 65 6c 64 | 20 28 22 43 75 74 74 69 |of field| ("Cutti|
|0001cd40| 6e 67 49 6e 64 65 78 22 | 26 67 77 6f 72 6c 64 29 |ngIndex"|&gworld)|
|0001cd50| 20 20 20 20 20 20 0d 20 | 20 20 20 65 6c 73 65 0d |      . |   else.|
|0001cd60| 20 20 20 20 20 20 70 75 | 74 20 69 6e 64 65 78 20 |      pu|t index |
|0001cd70| 69 6e 74 6f 20 6c 69 6e | 65 20 c2 0d 20 20 20 20 |into lin|e ..    |
|0001cd80| 20 20 28 28 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |  ((the |number o|
|0001cd90| 66 20 6c 69 6e 65 73 20 | 6f 66 20 66 69 65 6c 64 |f lines |of field|
|0001cda0| 20 28 22 43 75 74 74 69 | 6e 67 49 6e 64 65 78 22 | ("Cutti|ngIndex"|
|0001cdb0| 26 67 77 6f 72 6c 64 29 | 29 2b 31 29 20 6f 66 20 |&gworld)|)+1) of |
|0001cdc0| 66 69 65 6c 64 20 28 22 | 43 75 74 74 69 6e 67 49 |field ("|CuttingI|
|0001cdd0| 6e 64 65 78 22 26 67 77 | 6f 72 6c 64 29 0d 20 20 |ndex"&gw|orld).  |
|0001cde0| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 0d 20 20 |  end if|.    .  |
|0001cdf0| 20 20 0d 20 20 20 20 2d | 2d 20 73 6f 72 74 20 74 |  .    -|- sort t|
|0001ce00| 68 65 20 69 6e 64 65 78 | 2c 20 73 6f 20 77 65 20 |he index|, so we |
|0001ce10| 63 61 6e 20 64 6f 20 61 | 20 62 69 6e 61 72 79 20 |can do a| binary |
|0001ce20| 73 65 61 72 63 68 20 6f | 6e 20 69 74 20 6c 61 74 |search o|n it lat|
|0001ce30| 65 72 20 6f 6e 0d 20 20 | 20 20 53 6f 72 74 4c 69 |er on.  |  SortLi|
|0001ce40| 6e 65 73 20 28 22 43 75 | 74 74 69 6e 67 49 6e 64 |nes ("Cu|ttingInd|
|0001ce50| 65 78 22 26 67 77 6f 72 | 6c 64 29 0d 20 20 20 20 |ex"&gwor|ld).    |
|0001ce60| 2d 2d 73 65 74 20 67 4d | 61 6b 65 72 4e 75 6d 20 |--set gM|akerNum |
|0001ce70| 3d 20 4e 41 6d 65 54 6f | 4e 75 6d 28 67 6d 61 6b |= NAmeTo|Num(gmak|
|0001ce80| 65 72 6e 61 6d 65 29 0d | 20 20 20 20 73 65 74 20 |ername).|    set |
|0001ce90| 66 6e 61 6d 65 20 3d 20 | 22 43 55 22 20 26 20 67 |fname = |"CU" & g|
|0001cea0| 4d 61 6b 65 72 4e 75 6d | 20 26 20 22 2e 54 58 54 |MakerNum| & ".TXT|
|0001ceb0| 22 0d 20 20 20 20 73 65 | 74 20 6d 79 6f 62 6a 20 |".    se|t myobj |
|0001cec0| 3d 20 66 69 6c 65 69 6f | 28 6d 4e 65 77 2c 22 77 |= fileio|(mNew,"w|
|0001ced0| 72 69 74 65 22 2c 20 6d | 50 61 74 68 20 26 20 66 |rite", m|Path & f|
|0001cee0| 6e 61 6d 65 29 0d 20 20 | 20 20 70 75 74 20 22 77 |name).  |  put "w|
|0001cef0| 72 69 74 69 6e 67 3a 20 | 22 20 26 26 20 66 6e 61 |riting: |" && fna|
|0001cf00| 6d 65 0d 20 20 20 20 6d | 79 6f 62 6a 28 6d 57 72 |me.    m|yobj(mWr|
|0001cf10| 69 74 65 53 74 72 69 6e | 67 2c 74 6d 70 66 69 6c |iteStrin|g,tmpfil|
|0001cf20| 65 63 6f 70 79 29 0d 20 | 20 20 20 6d 79 6f 62 6a |ecopy). |   myobj|
|0001cf30| 28 6d 44 69 73 70 6f 73 | 65 29 0d 20 20 20 20 0d |(mDispos|e).    .|
|0001cf40| 20 20 20 20 72 65 74 75 | 72 6e 20 30 0d 20 20 65 |    retu|rn 0.  e|
|0001cf50| 6e 64 20 69 66 0d 65 6e | 64 0d 00 46 00 46 01 db |nd if.en|d..F.F..|
|0001cf60| 02 6a 00 00 00 59 00 00 | 00 63 00 00 00 00 00 01 |.j...Y..|.c......|
|0001cf70| 00 00 00 00 00 0b 00 09 | 00 04 00 00 00 09 00 00 |........|........|
|0001cf80| 00 00 00 00 43 41 53 74 | 00 00 00 7e 00 1e 00 00 |....CASt|...~....|
|0001cf90| 00 5a 03 00 00 00 00 00 | 00 00 ff ff ff ff ff ff |.Z......|........|
|0001cfa0| 00 00 00 00 00 00 00 10 | 01 44 00 10 00 00 00 10 |........|.D......|
|0001cfb0| 00 00 00 14 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001cfc0| 00 00 00 00 00 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001cfd0| 00 0c 00 00 00 0c 00 00 | 00 0c 00 00 00 0c 00 00 |........|........|
|0001cfe0| 00 0c 00 00 00 0c 00 00 | 00 20 0b 42 61 74 63 68 |........|. .Batch|
|0001cff0| 45 72 72 6f 72 73 00 33 | 00 32 01 27 01 f8 00 00 |Errors.3|.2.'....|
|0001d000| 00 00 00 00 00 00 00 d4 | d9 00 43 41 53 74 00 00 |........|..CASt..|
|0001d010| 00 72 00 1e 00 00 00 4e | 03 00 01 00 00 00 00 00 |.r.....N|........|
|0001d020| ff ff ff ff ff ff 00 00 | 00 00 00 00 00 10 00 66 |........|.......f|
|0001d030| 00 10 00 00 00 10 00 00 | 00 14 00 00 00 00 00 00 |........|........|
|0001d040| 00 00 00 00 00 00 00 00 | 00 00 00 08 00 00 00 00 |........|........|
|0001d050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001d060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 14 |........|........|
|0001d070| 00 47 00 46 00 dd 01 a4 | 00 00 00 0d 00 00 00 0d |.G.F....|........|
|0001d080| 00 f2 e3 28 43 41 53 74 | 00 00 00 72 00 1e 00 00 |...(CASt|...r....|
|0001d090| 00 4e 03 00 01 00 00 00 | 00 00 ff ff ff ff ff ff |.N......|........|
|0001d0a0| 00 00 00 00 00 00 00 10 | 00 5e 00 10 00 00 00 10 |........|.^......|
|0001d0b0| 00 00 00 14 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001d0c0| 00 00 00 00 00 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001d0d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001d0e0| 00 00 00 00 00 00 00 00 | 00 14 00 4d 01 01 00 e3 |........|...M....|
|0001d0f0| 02 5f 00 00 00 0c 00 00 | 00 0c 00 d4 d9 00 43 41 |._......|......CA|
|0001d100| 53 74 00 00 00 2f 00 01 | 00 00 00 28 06 00 00 00 |St.../..|...(....|
|0001d110| 14 00 00 00 00 00 00 00 | 00 00 00 00 10 00 00 00 |........|........|
|0001d120| 00 00 02 00 00 00 00 00 | 00 00 00 00 00 00 06 05 |........|........|
|0001d130| 63 6c 69 63 6b 44 43 41 | 53 74 00 00 00 81 00 1e |clickDCA|St......|
|0001d140| 00 00 00 5d 03 00 00 00 | 00 00 00 00 ff ff ff ff |...]....|........|
|0001d150| ff ff 00 00 00 00 00 00 | 0b d0 01 44 0b d0 00 00 |........|...D....|
|0001d160| 0b d0 00 00 00 14 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001d170| 00 00 00 00 00 00 00 08 | 00 00 00 00 00 00 00 00 |........|........|
|0001d180| 00 00 00 0f 00 00 00 0f | 00 00 00 0f 00 00 00 0f |........|........|
|0001d190| 00 00 00 0f 00 00 00 0f | 00 00 00 23 0e 4d 61 6b |........|...#.Mak|
|0001d1a0| 65 72 46 75 6c 6c 4e 61 | 6d 65 73 00 88 00 a3 01 |erFullNa|mes.....|
|0001d1b0| 92 02 2b 00 00 0b 94 00 | 00 0b 94 00 a1 4e 84 0d |..+.....|.....N..|
|0001d1c0| 43 41 53 74 00 00 04 00 | 00 04 00 00 03 f6 0b 00 |CASt....|........|
|0001d1d0| 00 03 00 00 00 14 00 c2 | eb 98 00 00 00 00 00 00 |........|........|
|0001d1e0| 00 00 00 00 00 0d 00 07 | 00 00 00 00 00 00 03 96 |........|........|
|0001d1f0| 00 00 03 96 00 00 03 96 | 00 00 03 96 00 00 03 96 |........|........|
|0001d200| 00 00 03 aa 00 00 03 c0 | 6f 6e 20 64 6f 6d 65 62 |........|on domeb|
|0001d210| 61 62 79 0d 20 20 0d 20 | 20 73 65 74 20 6e 75 6d |aby.  . | set num|
|0001d220| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|0001d230| 20 6c 69 6e 65 73 20 6f | 66 20 66 69 65 6c 64 20 | lines o|f field |
|0001d240| 22 6d 61 6b 65 72 6e 75 | 6d 62 65 72 73 22 0d 20 |"makernu|mbers". |
|0001d250| 20 0d 20 20 72 65 70 65 | 61 74 20 77 69 74 68 20 | .  repe|at with |
|0001d260| 69 20 3d 20 31 20 74 6f | 20 6e 75 6d 0d 20 20 20 |i = 1 to| num.   |
|0001d270| 20 73 65 74 20 62 6f 6f | 20 3d 20 6c 69 6e 65 20 | set boo| = line |
|0001d280| 69 20 6f 66 20 66 69 65 | 6c 64 20 22 6d 61 6b 65 |i of fie|ld "make|
|0001d290| 72 6e 75 6d 62 65 72 73 | 22 0d 20 20 20 20 73 65 |rnumbers|".    se|
|0001d2a0| 74 20 74 6d 70 20 3d 20 | 77 6f 72 64 28 74 68 65 |t tmp = |word(the|
|0001d2b0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 77 6f 72 64 73 | number |of words|
|0001d2c0| 20 6f 66 20 62 6f 6f 29 | 20 6f 66 20 62 6f 6f 20 | of boo)| of boo |
|0001d2d0| 26 22 2c 22 26 77 6f 72 | 64 20 31 20 6f 66 20 62 |&","&wor|d 1 of b|
|0001d2e0| 6f 6f 0d 20 20 20 20 70 | 75 74 20 74 6d 70 20 69 |oo.    p|ut tmp i|
|0001d2f0| 6e 74 6f 20 6c 69 6e 65 | 20 69 20 6f 66 20 66 69 |nto line| i of fi|
|0001d300| 65 6c 64 20 22 4d 61 6b | 65 72 4c 69 73 74 22 0d |eld "Mak|erList".|
|0001d310| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 0d |  end re|peat.  .|
|0001d320| 20 20 73 6f 72 74 6c 69 | 6e 65 73 28 22 6d 61 6b |  sortli|nes("mak|
|0001d330| 65 72 6c 69 73 74 22 29 | 0d 20 20 0d 65 6e 64 0d |erlist")|.  .end.|
|0001d340| 0d 0d 6f 6e 20 64 6f 6d | 65 32 0d 20 20 0d 20 20 |..on dom|e2.  .  |
|0001d350| 73 65 74 20 6e 75 6d 20 | 3d 20 74 68 65 20 6e 75 |set num |= the nu|
|0001d360| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 20 6f 66 |mber of |lines of|
|0001d370| 20 66 69 65 6c 64 20 22 | 6d 61 6b 65 72 6c 69 73 | field "|makerlis|
|0001d380| 74 22 0d 20 20 0d 20 20 | 72 65 70 65 61 74 20 77 |t".  .  |repeat w|
|0001d390| 69 74 68 20 69 20 3d 20 | 31 20 74 6f 20 6e 75 6d |ith i = |1 to num|
|0001d3a0| 0d 20 20 20 20 73 65 74 | 20 74 6d 70 20 3d 20 6c |.    set| tmp = l|
|0001d3b0| 69 6e 65 20 69 20 6f 66 | 20 66 69 65 6c 64 20 22 |ine i of| field "|
|0001d3c0| 6d 61 6b 65 72 6c 69 73 | 74 22 0d 20 20 20 20 73 |makerlis|t".    s|
|0001d3d0| 65 74 20 74 6d 70 6e 75 | 6d 20 3d 20 76 61 6c 75 |et tmpnu|m = valu|
|0001d3e0| 65 20 28 69 74 65 6d 20 | 32 20 6f 66 20 74 6d 70 |e (item |2 of tmp|
|0001d3f0| 29 0d 20 20 20 20 0d 20 | 20 20 20 70 75 74 20 69 |).    . |   put i|
|0001d400| 74 65 6d 20 31 20 6f 66 | 20 74 6d 70 20 69 6e 74 |tem 1 of| tmp int|
|0001d410| 6f 20 6c 69 6e 65 20 74 | 6d 70 6e 75 6d 20 6f 66 |o line t|mpnum of|
|0001d420| 20 66 69 65 6c 64 20 22 | 6d 61 6b 65 72 6e 75 6d | field "|makernum|
|0001d430| 6c 69 73 74 22 0d 20 20 | 65 6e 64 20 72 65 70 65 |list".  |end repe|
|0001d440| 61 74 0d 20 20 0d 65 6e | 64 0d 0d 6f 6e 20 64 6f |at.  .en|d..on do|
|0001d450| 6d 65 33 0d 20 20 0d 20 | 20 73 65 74 20 6e 75 6d |me3.  . | set num|
|0001d460| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|0001d470| 20 6c 69 6e 65 73 20 6f | 66 20 66 69 65 6c 64 20 | lines o|f field |
|0001d480| 22 6d 61 6b 65 72 66 75 | 6c 6c 6e 61 6d 65 73 22 |"makerfu|llnames"|
|0001d490| 0d 20 20 0d 20 20 0d 20 | 20 72 65 70 65 61 74 20 |.  .  . | repeat |
|0001d4a0| 77 69 74 68 20 69 20 3d | 20 31 35 36 20 74 6f 20 |with i =| 156 to |
|0001d4b0| 6e 75 6d 0d 20 20 20 20 | 64 65 6c 65 74 65 20 77 |num.    |delete w|
|0001d4c0| 6f 72 64 20 31 20 6f 66 | 20 6c 69 6e 65 20 69 20 |ord 1 of| line i |
|0001d4d0| 6f 66 20 66 69 65 6c 64 | 20 22 6d 61 6b 65 72 66 |of field| "makerf|
|0001d4e0| 75 6c 6c 6e 61 6d 65 73 | 22 0d 20 20 20 20 73 65 |ullnames|".    se|
|0001d4f0| 74 20 74 6d 70 20 3d 20 | 6c 69 6e 65 20 69 20 6f |t tmp = |line i o|
|0001d500| 66 20 66 69 65 6c 64 20 | 22 6d 61 6b 65 72 66 75 |f field |"makerfu|
|0001d510| 6c 6c 6e 61 6d 65 73 22 | 0d 20 20 20 20 73 65 74 |llnames"|.    set|
|0001d520| 20 6e 75 6d 32 20 3d 20 | 74 68 65 20 6e 75 6d 62 | num2 = |the numb|
|0001d530| 65 72 20 6f 66 20 77 6f | 72 64 73 20 6f 66 20 74 |er of wo|rds of t|
|0001d540| 6d 70 0d 20 20 20 20 70 | 75 74 20 20 77 6f 72 64 |mp.    p|ut  word|
|0001d550| 20 31 20 74 6f 20 6e 75 | 6d 32 20 6f 66 20 74 6d | 1 to nu|m2 of tm|
|0001d560| 70 20 69 6e 74 6f 20 6c | 69 6e 65 20 69 20 6f 66 |p into l|ine i of|
|0001d570| 20 66 69 65 6c 64 20 22 | 6d 61 6b 65 72 66 75 6c | field "|makerful|
|0001d580| 6c 6e 61 6d 65 73 22 20 | 0d 20 20 20 20 0d 20 20 |lnames" |.    .  |
|0001d590| 65 6e 64 20 72 65 70 65 | 61 74 0d 65 6e 64 00 3b |end repe|at.end.;|
|0001d5a0| 00 38 00 d1 01 96 00 00 | 02 a4 00 00 02 a4 00 68 |.8......|.......h|
|0001d5b0| ee d0 00 01 00 00 00 00 | 00 0b 00 09 00 04 00 00 |........|........|
|0001d5c0| 00 09 00 00 00 00 00 00 | 43 41 53 74 00 00 1a fc |........|CASt....|
|0001d5d0| 00 04 00 00 1a f2 0b 00 | 00 03 00 00 00 14 00 c2 |........|........|
|0001d5e0| eb 8c 00 00 00 00 00 00 | 00 00 00 00 00 10 00 07 |........|........|
|0001d5f0| 00 00 00 00 00 00 1a 92 | 00 00 1a 92 00 00 1a 92 |........|........|
|0001d600| 00 00 1a 92 00 00 1a 92 | 00 00 1a a6 00 00 1a bc |........|........|
|0001d610| 6f 6e 20 42 61 74 63 68 | 52 65 61 64 43 61 70 74 |on Batch|ReadCapt|
|0001d620| 69 6f 6e 73 20 77 6f 72 | 6c 64 0d 20 20 67 6c 6f |ions wor|ld.  glo|
|0001d630| 62 61 6c 20 67 6d 61 6b | 65 72 6e 75 6d 2c 20 67 |bal gmak|ernum, g|
|0001d640| 77 6f 72 6c 64 0d 20 20 | 0d 20 20 73 65 74 20 67 |world.  |.  set g|
|0001d650| 77 6f 72 6c 64 20 3d 20 | 77 6f 72 6c 64 0d 20 20 |world = |world.  |
|0001d660| 73 65 74 20 6d 70 61 74 | 68 20 3d 20 74 68 65 20 |set mpat|h = the |
|0001d670| 70 61 74 68 6e 61 6d 65 | 20 26 20 77 6f 72 6c 64 |pathname| & world|
|0001d680| 20 26 20 22 3a 22 0d 20 | 20 70 75 74 20 5b 5d 20 | & ":". | put [] |
|0001d690| 69 6e 74 6f 20 66 69 6c | 65 4c 69 73 74 0d 20 20 |into fil|eList.  |
|0001d6a0| 0d 20 20 72 65 70 65 61 | 74 20 77 69 74 68 20 69 |.  repea|t with i|
|0001d6b0| 20 3d 20 31 20 74 6f 20 | 74 68 65 20 6d 61 78 49 | = 1 to |the maxI|
|0001d6c0| 6e 74 65 67 65 72 20 20 | 20 20 0d 20 20 20 20 70 |nteger  |  .    p|
|0001d6d0| 75 74 20 67 65 74 4e 74 | 68 46 69 6c 65 4e 61 6d |ut getNt|hFileNam|
|0001d6e0| 65 49 6e 46 6f 6c 64 65 | 72 28 6d 70 61 74 68 2c |eInFolde|r(mpath,|
|0001d6f0| 20 69 29 20 69 6e 74 6f | 20 6e 0d 20 20 20 20 69 | i) into| n.    i|
|0001d700| 66 20 6e 20 3d 20 45 4d | 50 54 59 20 74 68 65 6e |f n = EM|PTY then|
|0001d710| 20 65 78 69 74 20 72 65 | 70 65 61 74 0d 20 20 20 | exit re|peat.   |
|0001d720| 20 73 65 74 20 6e 75 6d | 20 3d 20 74 68 65 20 6e | set num| = the n|
|0001d730| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 73 20 6f |umber of| chars o|
|0001d740| 66 20 6e 0d 20 20 20 20 | 69 66 20 63 68 61 72 20 |f n.    |if char |
|0001d750| 28 6e 75 6d 2d 33 29 20 | 74 6f 20 6e 75 6d 20 6f |(num-3) |to num o|
|0001d760| 66 20 6e 20 3d 20 22 2e | 43 41 50 22 20 74 68 65 |f n = ".|CAP" the|
|0001d770| 6e 0d 20 20 20 20 20 20 | 61 70 70 65 6e 64 28 66 |n.      |append(f|
|0001d780| 69 6c 65 4c 69 73 74 2c | 20 6e 29 0d 20 20 20 20 |ileList,| n).    |
|0001d790| 65 6e 64 20 69 66 0d 20 | 20 65 6e 64 20 72 65 70 |end if. | end rep|
|0001d7a0| 65 61 74 0d 20 20 0d 20 | 20 73 65 74 20 6e 75 6d |eat.  . | set num|
|0001d7b0| 20 3d 20 63 6f 75 6e 74 | 28 66 69 6c 65 4c 69 73 | = count|(fileLis|
|0001d7c0| 74 29 0d 20 20 73 65 74 | 20 74 6d 70 65 72 72 6c |t).  set| tmperrl|
|0001d7d0| 69 73 74 20 3d 20 5b 5d | 0d 20 20 0d 20 20 72 65 |ist = []|.  .  re|
|0001d7e0| 70 65 61 74 20 77 69 74 | 68 20 69 20 3d 20 31 20 |peat wit|h i = 1 |
|0001d7f0| 74 6f 20 6e 75 6d 0d 20 | 20 20 20 73 65 74 20 66 |to num. |   set f|
|0001d800| 6e 61 6d 65 20 3d 20 67 | 65 74 41 74 28 66 69 6c |name = g|etAt(fil|
|0001d810| 65 4c 69 73 74 2c 69 29 | 0d 20 20 20 20 73 65 74 |eList,i)|.    set|
|0001d820| 20 74 68 65 20 69 74 65 | 6d 64 65 6c 69 6d 69 74 | the ite|mdelimit|
|0001d830| 65 72 20 3d 20 22 2e 22 | 0d 20 20 20 20 73 65 74 |er = "."|.    set|
|0001d840| 20 67 6d 61 6b 65 72 6e | 75 6d 20 3d 20 69 74 65 | gmakern|um = ite|
|0001d850| 6d 20 31 20 6f 66 20 66 | 6e 61 6d 65 0d 20 20 20 |m 1 of f|name.   |
|0001d860| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|0001d870| 69 6d 69 74 65 72 20 3d | 20 22 2c 22 0d 20 20 20 |imiter =| ",".   |
|0001d880| 20 0d 20 20 20 20 70 75 | 74 20 22 62 61 74 63 68 | .    pu|t "batch|
|0001d890| 20 72 65 61 64 69 6e 67 | 20 63 61 70 74 69 6f 6e | reading| caption|
|0001d8a0| 73 20 22 20 26 26 20 66 | 6e 61 6d 65 0d 20 20 20 |s " && f|name.   |
|0001d8b0| 20 73 65 74 20 67 4d 61 | 6b 65 72 4e 61 6d 65 20 | set gMa|kerName |
|0001d8c0| 3d 20 63 68 61 72 20 31 | 20 74 6f 20 28 28 74 68 |= char 1| to ((th|
|0001d8d0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 68 61 72 |e number| of char|
|0001d8e0| 73 20 6f 66 20 66 6e 61 | 6d 65 29 2d 34 29 20 6f |s of fna|me)-4) o|
|0001d8f0| 66 20 66 6e 61 6d 65 0d | 20 20 20 20 73 65 74 20 |f fname.|    set |
|0001d900| 65 72 72 20 3d 20 52 65 | 61 64 43 61 70 74 69 6f |err = Re|adCaptio|
|0001d910| 6e 73 28 77 6f 72 6c 64 | 20 26 20 22 3a 22 20 26 |ns(world| & ":" &|
|0001d920| 20 66 6e 61 6d 65 29 0d | 20 20 20 20 0d 20 20 20 | fname).|    .   |
|0001d930| 20 69 66 20 65 72 72 20 | 3d 20 2d 31 20 74 68 65 | if err |= -1 the|
|0001d940| 6e 20 20 0d 20 20 20 20 | 20 20 61 64 64 28 74 6d |n  .    |  add(tm|
|0001d950| 70 65 72 72 6c 69 73 74 | 2c 20 66 6e 61 6d 65 29 |perrlist|, fname)|
|0001d960| 20 20 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |  .    e|nd if.  |
|0001d970| 20 20 0d 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |  .  end| repeat.|
|0001d980| 20 20 0d 65 6e 64 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |  .end.-|--------|
|0001d990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001d9a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001d9b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001d9c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001d9d0| 2d 2d 2d 2d 2d 2d 2d 0d | 6f 6e 20 52 65 61 64 4e |-------.|on ReadN|
|0001d9e0| 65 77 43 61 70 74 69 6f | 6e 73 20 0d 20 20 67 6c |ewCaptio|ns .  gl|
|0001d9f0| 6f 62 61 6c 20 67 6d 61 | 6b 65 72 6e 61 6d 65 2c |obal gma|kername,|
|0001da00| 20 6d 70 61 74 68 2c 20 | 67 77 6f 72 6c 64 0d 20 | mpath, |gworld. |
|0001da10| 20 0d 20 20 70 75 70 70 | 65 74 73 6f 75 6e 64 20 | .  pupp|etsound |
|0001da20| 22 63 6c 69 63 6b 22 0d | 20 20 75 70 64 61 74 65 |"click".|  update|
|0001da30| 73 74 61 67 65 0d 20 20 | 73 65 74 20 66 6e 61 6d |stage.  |set fnam|
|0001da40| 65 20 3d 20 67 77 6f 72 | 6c 64 20 26 20 22 3a 22 |e = gwor|ld & ":"|
|0001da50| 20 26 20 6e 61 6d 65 74 | 6f 6e 75 6d 28 67 4d 61 | & namet|onum(gMa|
|0001da60| 6b 65 72 6e 61 6d 65 29 | 20 26 20 22 2e 43 41 50 |kername)| & ".CAP|
|0001da70| 22 0d 20 20 73 65 74 20 | 65 72 72 20 3d 20 52 65 |".  set |err = Re|
|0001da80| 61 64 43 61 70 74 69 6f | 6e 73 20 28 66 6e 61 6d |adCaptio|ns (fnam|
|0001da90| 65 29 0d 20 20 69 66 20 | 65 72 72 20 3d 20 2d 31 |e).  if |err = -1|
|0001daa0| 20 74 68 65 6e 0d 20 20 | 20 20 61 6c 65 72 74 20 | then.  |  alert |
|0001dab0| 22 70 72 6f 62 6c 65 6d | 20 6c 6f 61 64 69 6e 67 |"problem| loading|
|0001dac0| 20 63 61 70 74 69 6f 6e | 20 66 6f 72 3a 22 26 66 | caption| for:"&f|
|0001dad0| 6e 61 6d 65 0d 20 20 20 | 20 67 6f 20 74 6f 20 66 |name.   | go to f|
|0001dae0| 72 61 6d 65 20 32 0d 20 | 20 65 6e 64 20 69 66 20 |rame 2. | end if |
|0001daf0| 0d 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 22 |.  go to| frame "|
|0001db00| 64 61 74 61 62 61 73 65 | 22 0d 65 6e 64 0d 2d 2d |database|".end.--|
|0001db10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001db20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001db30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001db40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001db50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 6f |--------|------.o|
|0001db60| 6e 20 52 65 61 64 43 61 | 70 74 69 6f 6e 73 20 66 |n ReadCa|ptions f|
|0001db70| 6e 61 6d 65 0d 20 20 67 | 6c 6f 62 61 6c 20 6d 79 |name.  g|lobal my|
|0001db80| 6f 62 6a 2c 20 67 6d 61 | 6b 65 72 6e 75 6d 0d 20 |obj, gma|kernum. |
|0001db90| 20 0d 20 20 73 65 74 20 | 6d 79 70 61 74 68 20 3d | .  set |mypath =|
|0001dba0| 20 74 68 65 20 70 61 74 | 68 6e 61 6d 65 20 26 20 | the pat|hname & |
|0001dbb0| 66 6e 61 6d 65 0d 20 20 | 73 65 74 20 6d 79 6f 62 |fname.  |set myob|
|0001dbc0| 6a 20 3d 20 66 69 6c 65 | 69 6f 28 6d 4e 65 77 2c |j = file|io(mNew,|
|0001dbd0| 22 72 65 61 64 22 2c 6d | 79 70 61 74 68 29 0d 20 |"read",m|ypath). |
|0001dbe0| 20 69 66 20 6e 6f 74 20 | 6f 62 6a 65 63 74 70 28 | if not |objectp(|
|0001dbf0| 6d 79 6f 62 6a 29 20 74 | 68 65 6e 0d 20 20 20 20 |myobj) t|hen.    |
|0001dc00| 61 6c 65 72 74 20 22 63 | 6f 75 6c 64 6e 74 20 6f |alert "c|ouldnt o|
|0001dc10| 70 65 6e 20 22 20 26 26 | 20 6d 79 70 61 74 68 0d |pen " &&| mypath.|
|0001dc20| 20 20 20 20 72 65 74 75 | 72 6e 20 2d 31 0d 20 20 |    retu|rn -1.  |
|0001dc30| 65 6e 64 20 69 66 0d 20 | 20 0d 20 20 70 75 74 20 |end if. | .  put |
|0001dc40| 22 67 6d 61 6b 65 72 6e | 75 6d 20 20 3d 20 22 20 |"gmakern|um  = " |
|0001dc50| 26 20 67 6d 61 6b 65 72 | 6e 75 6d 0d 20 20 73 65 |& gmaker|num.  se|
|0001dc60| 74 20 73 63 61 73 74 20 | 3d 20 74 68 65 20 6e 75 |t scast |= the nu|
|0001dc70| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 28 67 4d |mber of |cast (gM|
|0001dc80| 61 6b 65 72 4e 75 6d 20 | 26 20 22 2e 63 61 70 22 |akerNum |& ".cap"|
|0001dc90| 29 0d 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 |).  set |the text|
|0001dca0| 20 6f 66 20 66 69 65 6c | 64 20 73 63 61 73 74 20 | of fiel|d scast |
|0001dcb0| 3d 20 6d 79 6f 62 6a 28 | 6d 52 65 61 64 46 69 6c |= myobj(|mReadFil|
|0001dcc0| 65 29 0d 20 20 73 65 74 | 20 74 68 65 20 6e 61 6d |e).  set| the nam|
|0001dcd0| 65 20 6f 66 20 63 61 73 | 74 20 73 63 61 73 74 20 |e of cas|t scast |
|0001dce0| 3d 20 67 4d 61 6b 65 72 | 4e 75 6d 20 26 20 22 2e |= gMaker|Num & ".|
|0001dcf0| 63 61 70 22 0d 20 20 2d | 2d 64 65 6c 65 74 65 20 |cap".  -|-delete |
|0001dd00| 6c 69 6e 65 20 31 20 74 | 6f 20 32 20 6f 66 20 66 |line 1 t|o 2 of f|
|0001dd10| 69 65 6c 64 20 73 63 61 | 73 74 0d 20 20 70 75 74 |ield sca|st.  put|
|0001dd20| 20 22 64 6f 6e 65 20 22 | 20 26 26 20 66 6e 61 6d | "done "| && fnam|
|0001dd30| 65 0d 20 20 6d 79 6f 62 | 6a 28 6d 44 69 73 70 6f |e.  myob|j(mDispo|
|0001dd40| 73 65 29 0d 20 20 72 65 | 74 75 72 6e 20 30 0d 65 |se).  re|turn 0.e|
|0001dd50| 6e 64 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nd.-----|--------|
|0001dd60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001dd70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001dd80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001dd90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001dda0| 2d 2d 2d 0d 2d 2d 20 74 | 68 69 73 20 77 72 69 74 |---.-- t|his writ|
|0001ddb0| 65 73 20 74 68 65 20 73 | 63 72 69 70 74 73 20 69 |es the s|cripts i|
|0001ddc0| 6e 74 6f 20 61 20 63 61 | 73 74 6d 65 6d 62 65 72 |nto a ca|stmember|
|0001ddd0| 0d 2d 2d 20 61 6e 64 20 | 77 72 69 74 65 73 20 74 |.-- and |writes t|
|0001dde0| 68 65 20 63 61 70 74 69 | 6f 6e 73 20 69 6e 74 6f |he capti|ons into|
|0001ddf0| 20 61 20 66 69 6c 65 20 | 6f 6e 20 64 69 73 6b 2e | a file |on disk.|
|0001de00| 20 74 68 65 20 63 61 70 | 74 69 6f 6e 73 20 73 68 | the cap|tions sh|
|0001de10| 6f 75 6c 64 20 74 68 65 | 6e 20 62 65 20 66 6f 72 |ould the|n be for|
|0001de20| 6d 61 74 74 65 64 0d 2d | 2d 20 69 6e 20 77 6f 72 |matted.-|- in wor|
|0001de30| 64 2c 20 73 61 76 65 64 | 20 77 69 74 68 20 6c 69 |d, saved| with li|
|0001de40| 6e 65 62 72 65 61 6b 73 | 2c 20 61 6e 64 20 74 68 |nebreaks|, and th|
|0001de50| 65 6e 20 69 6d 70 6f 72 | 74 65 64 20 69 6e 74 6f |en impor|ted into|
|0001de60| 20 64 69 72 65 63 74 6f | 72 2e 0d 0d 6f 6e 20 73 | directo|r...on s|
|0001de70| 61 76 65 4e 65 77 50 61 | 72 73 65 20 0d 20 20 67 |aveNewPa|rse .  g|
|0001de80| 6c 6f 62 61 6c 20 67 43 | 68 61 70 74 65 72 73 2c |lobal gC|hapters,|
|0001de90| 20 67 41 72 74 69 63 6c | 65 73 2c 20 67 43 61 70 | gArticl|es, gCap|
|0001dea0| 74 69 6f 6e 73 2c 20 67 | 54 69 74 6c 65 73 2c 20 |tions, g|Titles, |
|0001deb0| 67 44 61 74 65 73 2c 20 | 67 4e 61 6d 65 2c 20 67 |gDates, |gName, g|
|0001dec0| 4d 61 6b 65 72 4e 61 6d | 65 2c 20 67 4e 75 67 67 |MakerNam|e, gNugg|
|0001ded0| 65 74 73 2c 20 6d 70 61 | 74 68 0d 20 20 67 6c 6f |ets, mpa|th.  glo|
|0001dee0| 62 61 6c 20 67 4d 61 6b | 65 72 4e 75 6d 0d 20 20 |bal gMak|erNum.  |
|0001def0| 0d 20 20 0d 20 20 73 65 | 74 20 74 6d 70 74 78 74 |.  .  se|t tmptxt|
|0001df00| 20 3d 20 22 22 0d 20 20 | 70 75 74 20 22 73 65 74 | = "".  |put "set|
|0001df10| 20 67 43 68 61 70 74 65 | 72 73 20 3d 20 22 20 26 | gChapte|rs = " &|
|0001df20| 26 20 67 43 68 61 70 74 | 65 72 73 20 69 6e 74 6f |& gChapt|ers into|
|0001df30| 20 6c 69 6e 65 20 31 20 | 6f 66 20 74 6d 70 74 78 | line 1 |of tmptx|
|0001df40| 74 0d 20 20 70 75 74 20 | 22 73 65 74 20 67 41 72 |t.  put |"set gAr|
|0001df50| 74 69 63 6c 65 73 20 3d | 20 22 20 26 26 20 67 41 |ticles =| " && gA|
|0001df60| 72 74 69 63 6c 65 73 20 | 69 6e 74 6f 20 6c 69 6e |rticles |into lin|
|0001df70| 65 20 32 20 6f 66 20 74 | 6d 70 74 78 74 0d 20 20 |e 2 of t|mptxt.  |
|0001df80| 70 75 74 20 22 73 65 74 | 20 67 44 61 74 65 73 20 |put "set| gDates |
|0001df90| 3d 20 22 20 26 26 20 67 | 44 61 74 65 73 20 69 6e |= " && g|Dates in|
|0001dfa0| 74 6f 20 6c 69 6e 65 20 | 33 20 6f 66 20 74 6d 70 |to line |3 of tmp|
|0001dfb0| 74 78 74 0d 20 20 73 65 | 74 20 74 6d 70 6c 69 73 |txt.  se|t tmplis|
|0001dfc0| 74 20 3d 20 5b 5d 0d 20 | 20 61 64 64 28 74 6d 70 |t = []. | add(tmp|
|0001dfd0| 6c 69 73 74 2c 67 4e 61 | 6d 65 29 0d 20 20 70 75 |list,gNa|me).  pu|
|0001dfe0| 74 20 22 73 65 74 20 67 | 4e 61 6d 65 20 3d 20 67 |t "set g|Name = g|
|0001dff0| 65 74 61 74 28 22 20 26 | 20 74 6d 70 6c 69 73 74 |etat(" &| tmplist|
|0001e000| 20 26 20 22 2c 31 29 22 | 20 69 6e 74 6f 20 6c 69 | & ",1)"| into li|
|0001e010| 6e 65 20 34 20 6f 66 20 | 74 6d 70 74 78 74 0d 20 |ne 4 of |tmptxt. |
|0001e020| 20 0d 20 20 70 75 74 20 | 67 54 69 74 6c 65 73 20 | .  put |gTitles |
|0001e030| 69 6e 74 6f 20 6c 69 6e | 65 20 35 20 6f 66 20 74 |into lin|e 5 of t|
|0001e040| 6d 70 74 78 74 0d 20 20 | 70 75 74 20 67 4e 75 67 |mptxt.  |put gNug|
|0001e050| 67 65 74 73 20 69 6e 74 | 6f 20 6c 69 6e 65 20 36 |gets int|o line 6|
|0001e060| 20 6f 66 20 74 6d 70 74 | 78 74 0d 20 20 0d 20 20 | of tmpt|xt.  .  |
|0001e070| 0d 20 20 2d 2d 73 65 74 | 20 67 4d 61 6b 65 72 4e |.  --set| gMakerN|
|0001e080| 75 6d 20 3d 20 4e 61 6d | 65 54 6f 4e 75 6d 28 67 |um = Nam|eToNum(g|
|0001e090| 4d 61 6b 65 72 4e 61 6d | 65 29 0d 20 20 70 75 74 |MakerNam|e).  put|
|0001e0a0| 20 22 73 61 76 69 6e 67 | 3a 20 22 20 26 26 20 67 | "saving|: " && g|
|0001e0b0| 6d 61 6b 65 72 6e 75 6d | 20 26 26 20 67 6e 61 6d |makernum| && gnam|
|0001e0c0| 65 0d 20 20 0d 20 20 69 | 66 20 67 4d 61 6b 65 72 |e.  .  i|f gMaker|
|0001e0d0| 4e 75 6d 20 3d 20 30 20 | 74 68 65 6e 0d 20 20 20 |Num = 0 |then.   |
|0001e0e0| 20 61 6c 65 72 74 20 22 | 45 72 72 6f 72 20 66 69 | alert "|Error fi|
|0001e0f0| 6e 64 69 6e 67 20 6e 75 | 6d 62 65 72 20 6f 66 20 |nding nu|mber of |
|0001e100| 22 20 26 26 20 67 4e 61 | 6d 65 0d 20 20 20 20 61 |" && gNa|me.    a|
|0001e110| 62 6f 72 74 0d 20 20 65 | 6c 73 65 20 20 20 20 0d |bort.  e|lse    .|
|0001e120| 20 20 20 20 73 65 74 20 | 6d 79 70 61 74 68 20 3d |    set |mypath =|
|0001e130| 20 6d 70 61 74 68 20 26 | 20 67 4d 61 6b 65 72 4e | mpath &| gMakerN|
|0001e140| 75 6d 26 22 2e 43 41 50 | 22 20 20 0d 20 20 20 20 |um&".CAP|"  .    |
|0001e150| 73 65 74 20 6d 79 6f 62 | 6a 3d 66 69 6c 65 69 6f |set myob|j=fileio|
|0001e160| 28 6d 4e 65 77 2c 22 77 | 72 69 74 65 22 2c 6d 79 |(mNew,"w|rite",my|
|0001e170| 70 61 74 68 29 0d 20 20 | 20 20 0d 20 20 20 20 69 |path).  |  .    i|
|0001e180| 66 20 6e 6f 74 20 6f 62 | 6a 65 63 74 70 28 6d 79 |f not ob|jectp(my|
|0001e190| 4f 62 6a 29 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |Obj) the|n.      |
|0001e1a0| 61 6c 65 72 74 20 22 70 | 72 6f 62 6c 65 6d 20 77 |alert "p|roblem w|
|0001e1b0| 72 69 74 69 6e 67 20 74 | 6f 20 22 20 26 26 20 6d |riting t|o " && m|
|0001e1c0| 79 70 61 74 68 0d 20 20 | 20 20 20 20 61 62 6f 72 |ypath.  |    abor|
|0001e1d0| 74 0d 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |t.    en|d if.   |
|0001e1e0| 20 0d 20 20 20 20 73 65 | 74 20 69 20 3d 20 74 68 | .    se|t i = th|
|0001e1f0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 61 73 74 |e number| of cast|
|0001e200| 20 67 4d 61 6b 65 72 6e | 75 6d 20 26 26 20 22 73 | gMakern|um && "s|
|0001e210| 63 72 69 70 74 22 0d 20 | 20 20 20 69 66 20 69 20 |cript". |   if i |
|0001e220| 3e 20 30 20 74 68 65 6e | 20 20 0d 20 20 20 20 20 |> 0 then|  .     |
|0001e230| 20 0d 20 20 20 20 20 20 | 73 65 74 20 63 61 70 74 | .      |set capt|
|0001e240| 69 6f 6e 74 78 74 20 3d | 20 22 22 0d 20 20 20 20 |iontxt =| "".    |
|0001e250| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f |  set th|e text o|
|0001e260| 66 20 66 69 65 6c 64 20 | 69 20 3d 20 74 6d 70 74 |f field |i = tmpt|
|0001e270| 78 74 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |xt.     | .      |
|0001e280| 2d 2d 20 20 73 65 74 20 | 63 61 70 74 69 6f 6e 74 |--  set |captiont|
|0001e290| 78 74 20 3d 20 22 22 0d | 20 20 20 20 20 20 73 65 |xt = "".|      se|
|0001e2a0| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|0001e2b0| 74 65 72 20 3d 20 22 40 | 22 0d 20 20 20 20 20 20 |ter = "@|".      |
|0001e2c0| 73 65 74 20 6e 75 6d 63 | 68 61 70 20 3d 20 74 68 |set numc|hap = th|
|0001e2d0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 69 74 65 6d |e number| of item|
|0001e2e0| 73 20 6f 66 20 67 43 61 | 70 74 69 6f 6e 73 0d 20 |s of gCa|ptions. |
|0001e2f0| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 69 74 65 |     set| the ite|
|0001e300| 6d 64 65 6c 69 6d 69 74 | 65 72 20 3d 20 22 2c 22 |mdelimit|er = ","|
|0001e310| 0d 20 20 20 20 20 20 0d | 20 20 20 20 20 20 72 65 |.      .|      re|
|0001e320| 70 65 61 74 20 77 69 74 | 68 20 6a 20 3d 20 31 20 |peat wit|h j = 1 |
|0001e330| 74 6f 20 6e 75 6d 63 68 | 61 70 0d 20 20 20 20 20 |to numch|ap.     |
|0001e340| 20 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |   set t|he itemd|
|0001e350| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 40 22 0d 20 |elimiter| = "@". |
|0001e360| 20 20 20 20 20 20 20 73 | 65 74 20 74 6d 70 63 61 |       s|et tmpca|
|0001e370| 70 20 3d 20 69 74 65 6d | 20 6a 20 6f 66 20 67 43 |p = item| j of gC|
|0001e380| 61 70 74 69 6f 6e 73 0d | 20 20 20 20 20 20 20 20 |aptions.|        |
|0001e390| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|0001e3a0| 6d 69 74 65 72 20 3d 20 | 22 23 22 20 20 20 20 20 |miter = |"#"     |
|0001e3b0| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 73 65 |     .  |      se|
|0001e3c0| 74 20 6e 75 6d 61 72 74 | 20 3d 20 74 68 65 20 6e |t numart| = the n|
|0001e3d0| 75 6d 62 65 72 20 6f 66 | 20 69 74 65 6d 73 20 6f |umber of| items o|
|0001e3e0| 66 20 74 6d 70 63 61 70 | 0d 20 20 20 20 20 20 20 |f tmpcap|.       |
|0001e3f0| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|0001e400| 69 6d 69 74 65 72 20 3d | 20 22 2c 22 20 0d 20 20 |imiter =| "," .  |
|0001e410| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 72 |      . |       r|
|0001e420| 65 70 65 61 74 20 77 69 | 74 68 20 6b 20 3d 20 31 |epeat wi|th k = 1|
|0001e430| 20 74 6f 20 6e 75 6d 61 | 72 74 0d 20 20 20 20 20 | to numa|rt.     |
|0001e440| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 69 74 65 |     set| the ite|
|0001e450| 6d 64 65 6c 69 6d 69 74 | 65 72 20 3d 20 22 23 22 |mdelimit|er = "#"|
|0001e460| 0d 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 69 |.       |   set i|
|0001e470| 74 20 3d 20 69 74 65 6d | 20 6b 20 6f 66 20 74 6d |t = item| k of tm|
|0001e480| 70 63 61 70 20 0d 20 20 | 20 20 20 20 20 20 20 20 |pcap .  |        |
|0001e490| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|0001e4a0| 6d 69 74 65 72 20 3d 20 | 22 2c 22 0d 20 20 20 20 |miter = |",".    |
|0001e4b0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 20 |      . |        |
|0001e4c0| 20 69 66 20 6b 20 3d 20 | 6e 75 6d 61 72 74 20 74 | if k = |numart t|
|0001e4d0| 68 65 6e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |hen.    |        |
|0001e4e0| 70 75 74 20 69 74 20 26 | 20 72 65 74 75 72 6e 20 |put it &| return |
|0001e4f0| 26 20 22 40 22 20 26 20 | 72 65 74 75 72 6e 20 61 |& "@" & |return a|
|0001e500| 66 74 65 72 20 63 61 70 | 74 69 6f 6e 74 78 74 0d |fter cap|tiontxt.|
|0001e510| 20 20 20 20 20 20 20 20 | 20 20 65 6c 73 65 0d 20 |        |  else. |
|0001e520| 20 20 20 20 20 20 20 20 | 20 20 20 70 75 74 20 69 |        |   put i|
|0001e530| 74 20 26 20 72 65 74 75 | 72 6e 20 26 20 22 23 22 |t & retu|rn & "#"|
|0001e540| 20 26 20 72 65 74 75 72 | 6e 20 61 66 74 65 72 20 | & retur|n after |
|0001e550| 63 61 70 74 69 6f 6e 74 | 78 74 0d 20 20 20 20 20 |captiont|xt.     |
|0001e560| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|0001e570| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 20 |      . |        |
|0001e580| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|0001e590| 69 6d 69 74 65 72 20 3d | 20 22 2c 22 0d 20 20 20 |imiter =| ",".   |
|0001e5a0| 20 20 20 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |     end| repeat.|
|0001e5b0| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 65 |        |.      e|
|0001e5c0| 6e 64 20 72 65 70 65 61 | 74 0d 20 20 20 20 20 20 |nd repea|t.      |
|0001e5d0| 0d 20 20 20 20 20 20 69 | 66 20 30 20 74 68 65 6e |.      i|f 0 then|
|0001e5e0| 0d 20 20 20 20 20 20 20 | 20 70 75 74 20 63 61 70 |.       | put cap|
|0001e5f0| 74 69 6f 6e 74 78 74 20 | 69 6e 74 6f 20 63 61 73 |tiontxt |into cas|
|0001e600| 74 20 28 69 2b 31 29 0d | 20 20 20 20 20 20 20 20 |t (i+1).|        |
|0001e610| 73 65 74 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |set the |name of |
|0001e620| 63 61 73 74 20 28 69 2b | 31 29 20 3d 20 67 4d 61 |cast (i+|1) = gMa|
|0001e630| 6b 65 72 6e 61 6d 65 0d | 20 20 20 20 20 20 65 6e |kername.|      en|
|0001e640| 64 20 69 66 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |d if.   |   .    |
|0001e650| 20 20 2d 2d 20 77 72 69 | 74 65 20 74 68 65 20 63 |  -- wri|te the c|
|0001e660| 61 70 74 69 6f 6e 20 74 | 6f 20 74 68 65 20 63 61 |aption t|o the ca|
|0001e670| 70 74 69 6f 6e 20 66 69 | 6c 65 0d 20 20 20 20 20 |ption fi|le.     |
|0001e680| 20 6d 79 6f 62 6a 28 6d | 57 72 69 74 65 53 74 72 | myobj(m|WriteStr|
|0001e690| 69 6e 67 2c 63 61 70 74 | 69 6f 6e 74 78 74 29 0d |ing,capt|iontxt).|
|0001e6a0| 20 20 20 20 20 20 0d 20 | 20 20 20 65 6e 64 20 69 |      . |   end i|
|0001e6b0| 66 0d 20 20 20 20 0d 20 | 20 65 6e 64 20 69 66 0d |f.    . | end if.|
|0001e6c0| 20 20 73 65 74 20 74 6d | 70 74 78 74 20 3d 20 22 |  set tm|ptxt = "|
|0001e6d0| 22 0d 20 20 73 65 74 20 | 74 78 74 20 3d 20 22 22 |".  set |txt = ""|
|0001e6e0| 0d 20 20 6d 79 6f 62 6a | 28 6d 64 69 73 70 6f 73 |.  myobj|(mdispos|
|0001e6f0| 65 29 0d 65 6e 64 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |e).end.-|--------|
|0001e700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001e710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001e720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001e730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001e740| 2d 2d 2d 2d 2d 2d 2d 0d | 6f 6e 20 63 6c 65 61 6e |-------.|on clean|
|0001e750| 63 61 73 74 20 73 2c 65 | 0d 20 20 72 65 70 65 61 |cast s,e|.  repea|
|0001e760| 74 20 77 69 74 68 20 69 | 20 3d 20 73 20 74 6f 20 |t with i| = s to |
|0001e770| 65 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6e 61 |e.    se|t the na|
|0001e780| 6d 65 20 6f 66 20 63 61 | 73 74 20 69 20 3d 20 22 |me of ca|st i = "|
|0001e790| 61 22 20 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |a" .    |set the |
|0001e7a0| 74 65 78 74 20 6f 66 20 | 66 69 65 6c 64 20 69 20 |text of |field i |
|0001e7b0| 3d 20 22 22 0d 20 20 65 | 6e 64 20 72 65 70 65 61 |= "".  e|nd repea|
|0001e7c0| 74 0d 20 20 0d 65 6e 64 | 0d 2d 2d 2d 2d 2d 2d 2d |t.  .end|.-------|
|0001e7d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001e7e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001e7f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001e800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001e810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 2d 2d 20 74 68 69 |--------|-.-- thi|
|0001e820| 73 20 72 65 61 64 73 20 | 74 68 65 20 6e 65 77 20 |s reads |the new |
|0001e830| 73 63 72 69 70 74 20 66 | 69 6c 65 20 61 6e 64 20 |script f|ile and |
|0001e840| 6c 6f 61 64 73 20 65 76 | 65 72 79 74 68 69 6e 67 |loads ev|erything|
|0001e850| 20 69 6e 74 6f 20 67 6c | 6f 62 61 6c 20 6c 69 73 | into gl|obal lis|
|0001e860| 74 73 0d 6f 6e 20 52 65 | 61 64 53 63 72 69 70 74 |ts.on Re|adScript|
|0001e870| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 43 68 61 70 74 |.  globa|l gChapt|
|0001e880| 65 72 73 2c 20 67 41 72 | 74 69 63 6c 65 73 2c 20 |ers, gAr|ticles, |
|0001e890| 67 43 61 70 74 69 6f 6e | 73 2c 20 67 54 69 74 6c |gCaption|s, gTitl|
|0001e8a0| 65 73 2c 20 67 44 61 74 | 65 73 2c 20 67 4e 61 6d |es, gDat|es, gNam|
|0001e8b0| 65 2c 20 67 4d 61 6b 65 | 72 6e 61 6d 65 2c 20 67 |e, gMake|rname, g|
|0001e8c0| 4e 75 67 67 65 74 73 0d | 20 20 67 6c 6f 62 61 6c |Nuggets.|  global|
|0001e8d0| 20 67 54 6f 74 61 6c 43 | 68 61 70 74 65 72 73 2c | gTotalC|hapters,|
|0001e8e0| 20 74 6d 70 66 69 6c 65 | 2c 20 6d 50 61 74 68 2c | tmpfile|, mPath,|
|0001e8f0| 20 67 4d 61 6b 65 72 4e | 75 6d 0d 20 20 0d 20 20 | gMakerN|um.  .  |
|0001e900| 73 65 74 20 66 6f 72 63 | 64 20 3d 20 30 0d 20 20 |set forc|d = 0.  |
|0001e910| 0d 20 20 73 65 74 20 66 | 6e 61 6d 65 20 3d 20 67 |.  set f|name = g|
|0001e920| 4d 61 6b 65 72 6e 75 6d | 20 26 26 20 22 73 63 72 |Makernum| && "scr|
|0001e930| 69 70 74 22 0d 20 20 2d | 2d 20 73 65 74 20 66 6e |ipt".  -|- set fn|
|0001e940| 61 6d 65 20 3d 20 67 4d | 61 6b 65 72 4e 61 6d 65 |ame = gM|akerName|
|0001e950| 20 26 20 22 2e 6e 65 77 | 22 0d 20 20 2d 2d 20 73 | & ".new|".  -- s|
|0001e960| 65 74 20 6d 79 4f 62 6a | 20 3d 20 66 69 6c 65 69 |et myObj| = filei|
|0001e970| 6f 28 6d 4e 65 77 2c 22 | 72 65 61 64 22 2c 6d 50 |o(mNew,"|read",mP|
|0001e980| 61 74 68 20 26 20 66 6e | 61 6d 65 29 0d 20 20 73 |ath & fn|ame).  s|
|0001e990| 65 74 20 63 6e 75 6d 20 | 3d 20 74 68 65 20 6e 75 |et cnum |= the nu|
|0001e9a0| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 66 6e 61 |mber of |cast fna|
|0001e9b0| 6d 65 0d 20 20 0d 20 20 | 69 66 20 6e 6f 74 20 28 |me.  .  |if not (|
|0001e9c0| 63 6e 75 6d 20 3e 20 30 | 29 20 74 68 65 6e 0d 20 |cnum > 0|) then. |
|0001e9d0| 20 20 20 61 6c 65 72 74 | 20 22 50 72 6f 62 6c 65 |   alert| "Proble|
|0001e9e0| 6d 20 6c 6f 61 64 69 6e | 67 22 20 26 26 20 66 6e |m loadin|g" && fn|
|0001e9f0| 61 6d 65 20 26 26 20 c2 | 0d 20 20 20 20 20 20 20 |ame && .|.       |
|0001ea00| 20 22 2e 20 54 68 69 73 | 20 6d 65 61 6e 73 20 74 | ". This| means t|
|0001ea10| 68 69 73 20 70 65 72 73 | 6f 6e 73 20 73 63 72 69 |his pers|ons scri|
|0001ea20| 70 74 20 66 69 6c 65 20 | 6d 75 73 74 20 62 65 20 |pt file |must be |
|0001ea30| 72 65 2d 69 6e 64 65 78 | 65 64 22 20 20 20 0d 20 |re-index|ed"   . |
|0001ea40| 20 20 20 75 6e 70 75 70 | 70 65 74 0d 20 20 20 20 |   unpup|pet.    |
|0001ea50| 69 66 20 66 6f 72 63 64 | 20 3d 20 31 20 74 68 65 |if forcd| = 1 the|
|0001ea60| 6e 0d 20 20 20 20 20 20 | 52 65 74 75 72 6e 54 6f |n.      |ReturnTo|
|0001ea70| 57 6f 72 6c 64 20 20 0d | 20 20 20 20 65 6c 73 65 |World  .|    else|
|0001ea80| 0d 20 20 20 20 20 20 67 | 6f 20 74 6f 20 66 72 61 |.      g|o to fra|
|0001ea90| 6d 65 20 32 0d 20 20 20 | 20 20 20 61 62 6f 72 74 |me 2.   |   abort|
|0001eaa0| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 65 6c |.    end| if.  el|
|0001eab0| 73 65 20 20 20 20 20 0d | 20 20 20 20 73 65 74 20 |se     .|    set |
|0001eac0| 74 6d 70 74 78 74 20 3d | 20 74 68 65 20 74 65 78 |tmptxt =| the tex|
|0001ead0| 74 20 6f 66 20 66 69 65 | 6c 64 20 63 6e 75 6d 20 |t of fie|ld cnum |
|0001eae0| 20 0d 20 20 20 20 73 65 | 74 20 74 6d 70 66 69 6c | .    se|t tmpfil|
|0001eaf0| 65 20 3d 20 74 6d 70 74 | 78 74 0d 20 20 20 20 72 |e = tmpt|xt.    r|
|0001eb00| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 31 |epeat wi|th i = 1|
|0001eb10| 20 74 6f 20 34 0d 20 20 | 20 20 20 20 64 6f 20 6c | to 4.  |    do l|
|0001eb20| 69 6e 65 20 69 20 6f 66 | 20 74 6d 70 74 78 74 20 |ine i of| tmptxt |
|0001eb30| 20 0d 20 20 20 20 65 6e | 64 20 72 65 70 65 61 74 | .    en|d repeat|
|0001eb40| 20 0d 20 20 20 20 0d 20 | 20 20 20 73 65 74 20 67 | .    . |   set g|
|0001eb50| 54 69 74 6c 65 73 20 3d | 20 6c 69 6e 65 20 35 20 |Titles =| line 5 |
|0001eb60| 6f 66 20 74 6d 70 74 78 | 74 0d 20 20 20 20 73 65 |of tmptx|t.    se|
|0001eb70| 74 20 67 43 61 70 74 69 | 6f 6e 73 20 3d 20 74 68 |t gCapti|ons = th|
|0001eb80| 65 20 74 65 78 74 20 6f | 66 20 63 61 73 74 20 28 |e text o|f cast (|
|0001eb90| 67 4d 61 6b 65 72 6e 75 | 6d 20 26 20 22 2e 43 41 |gMakernu|m & ".CA|
|0001eba0| 50 22 29 0d 20 20 20 20 | 73 65 74 20 67 4e 75 67 |P").    |set gNug|
|0001ebb0| 67 65 74 73 20 3d 20 6c | 69 6e 65 20 36 20 6f 66 |gets = l|ine 6 of|
|0001ebc0| 20 74 6d 70 74 78 74 0d | 20 20 20 20 2d 2d 73 65 | tmptxt.|    --se|
|0001ebd0| 74 20 74 6d 70 66 69 6c | 65 20 3d 20 74 6d 70 74 |t tmpfil|e = tmpt|
|0001ebe0| 78 74 20 20 0d 20 20 20 | 20 73 65 74 20 67 54 6f |xt  .   | set gTo|
|0001ebf0| 74 61 6c 43 68 61 70 74 | 65 72 73 20 3d 20 63 6f |talChapt|ers = co|
|0001ec00| 75 6e 74 28 67 41 72 74 | 69 63 6c 65 73 29 0d 20 |unt(gArt|icles). |
|0001ec10| 20 65 6e 64 20 69 66 0d | 65 6e 64 0d 2d 2d 2d 2d | end if.|end.----|
|0001ec20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001ec30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001ec40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001ec50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001ec60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 2d 2d 6f |--------|----.--o|
|0001ec70| 6e 20 45 72 72 6f 72 0d | 2d 2d 20 20 72 65 74 75 |n Error.|--  retu|
|0001ec80| 72 6e 20 2d 31 20 0d 2d | 2d 20 20 61 62 6f 72 74 |rn -1 .-|-  abort|
|0001ec90| 0d 2d 2d 65 6e 64 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.--end.-|--------|
|0001eca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001ecb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001ecc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001ecd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001ece0| 2d 2d 2d 2d 2d 2d 2d 0d | 6f 6e 20 50 72 65 70 61 |-------.|on Prepa|
|0001ecf0| 72 65 43 61 73 74 73 20 | 6e 65 78 74 0d 20 20 67 |reCasts |next.  g|
|0001ed00| 6c 6f 62 61 6c 20 74 6d | 70 6c 69 73 74 0d 20 20 |lobal tm|plist.  |
|0001ed10| 0d 20 20 73 65 74 20 74 | 6d 70 6c 69 73 74 20 3d |.  set t|mplist =|
|0001ed20| 20 5b 5d 0d 20 20 0d 20 | 20 73 65 74 20 66 6c 69 | [].  . | set fli|
|0001ed30| 73 74 20 3d 20 22 46 69 | 6c 65 6e 61 6d 65 73 22 |st = "Fi|lenames"|
|0001ed40| 0d 20 20 73 65 74 20 6e | 75 6d 20 3d 20 74 68 65 |.  set n|um = the|
|0001ed50| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|0001ed60| 20 6f 66 20 66 69 65 6c | 64 20 66 6c 69 73 74 0d | of fiel|d flist.|
|0001ed70| 20 20 0d 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |  .  rep|eat with|
|0001ed80| 20 69 20 3d 20 31 20 74 | 6f 20 6e 75 6d 0d 20 20 | i = 1 t|o num.  |
|0001ed90| 20 20 0d 20 20 20 20 73 | 65 74 20 74 6d 70 20 3d |  .    s|et tmp =|
|0001eda0| 20 6c 69 6e 65 20 69 20 | 6f 66 20 66 69 65 6c 64 | line i |of field|
|0001edb0| 20 66 6c 69 73 74 0d 20 | 20 20 20 69 66 20 6e 6f | flist. |   if no|
|0001edc0| 74 65 6d 70 74 79 28 74 | 6d 70 29 20 74 68 65 6e |tempty(t|mp) then|
|0001edd0| 0d 20 20 20 20 20 20 73 | 65 74 20 6d 6e 75 6d 20 |.      s|et mnum |
|0001ede0| 3d 20 6e 61 6d 65 74 6f | 6e 75 6d 28 74 6d 70 29 |= nameto|num(tmp)|
|0001edf0| 20 20 0d 20 20 20 20 20 | 20 61 64 64 28 74 6d 70 |  .     | add(tmp|
|0001ee00| 6c 69 73 74 2c 6d 6e 75 | 6d 29 0d 20 20 20 20 65 |list,mnu|m).    e|
|0001ee10| 6e 64 20 69 66 0d 20 20 | 65 6e 64 20 72 65 70 65 |nd if.  |end repe|
|0001ee20| 61 74 0d 20 20 0d 20 20 | 73 65 74 20 66 6c 69 73 |at.  .  |set flis|
|0001ee30| 74 20 3d 20 22 46 69 6c | 65 6e 61 6d 65 73 32 22 |t = "Fil|enames2"|
|0001ee40| 0d 20 20 73 65 74 20 6e | 75 6d 20 3d 20 74 68 65 |.  set n|um = the|
|0001ee50| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|0001ee60| 20 6f 66 20 66 69 65 6c | 64 20 66 6c 69 73 74 0d | of fiel|d flist.|
|0001ee70| 20 20 0d 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |  .  rep|eat with|
|0001ee80| 20 69 20 3d 20 31 20 74 | 6f 20 6e 75 6d 0d 20 20 | i = 1 t|o num.  |
|0001ee90| 20 20 0d 20 20 20 20 73 | 65 74 20 74 6d 70 20 3d |  .    s|et tmp =|
|0001eea0| 20 6c 69 6e 65 20 69 20 | 6f 66 20 66 69 65 6c 64 | line i |of field|
|0001eeb0| 20 66 6c 69 73 74 0d 20 | 20 20 20 69 66 20 6e 6f | flist. |   if no|
|0001eec0| 74 65 6d 70 74 79 28 74 | 6d 70 29 20 74 68 65 6e |tempty(t|mp) then|
|0001eed0| 0d 20 20 20 20 20 20 73 | 65 74 20 6d 6e 75 6d 20 |.      s|et mnum |
|0001eee0| 3d 20 6e 61 6d 65 74 6f | 6e 75 6d 28 74 6d 70 29 |= nameto|num(tmp)|
|0001eef0| 20 20 0d 20 20 20 20 20 | 20 61 64 64 28 74 6d 70 |  .     | add(tmp|
|0001ef00| 6c 69 73 74 2c 6d 6e 75 | 6d 29 0d 20 20 20 20 65 |list,mnu|m).    e|
|0001ef10| 6e 64 20 69 66 0d 20 20 | 65 6e 64 20 72 65 70 65 |nd if.  |end repe|
|0001ef20| 61 74 0d 20 20 0d 20 20 | 70 75 74 20 74 6d 70 6c |at.  .  |put tmpl|
|0001ef30| 69 73 74 0d 20 20 0d 20 | 20 73 65 74 20 6e 75 6d |ist.  . | set num|
|0001ef40| 20 3d 20 63 6f 75 6e 74 | 28 74 6d 70 6c 69 73 74 | = count|(tmplist|
|0001ef50| 29 0d 20 20 72 65 70 65 | 61 74 20 77 69 74 68 20 |).  repe|at with |
|0001ef60| 69 20 3d 20 31 20 74 6f | 20 6e 75 6d 0d 20 20 20 |i = 1 to| num.   |
|0001ef70| 20 73 65 74 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 | set the| name of|
|0001ef80| 20 63 61 73 74 20 6e 65 | 78 74 20 3d 20 67 65 74 | cast ne|xt = get|
|0001ef90| 61 74 28 74 6d 70 6c 69 | 73 74 2c 69 29 20 26 26 |at(tmpli|st,i) &&|
|0001efa0| 20 22 73 63 72 69 70 74 | 22 0d 20 20 20 20 73 65 | "script|".    se|
|0001efb0| 74 20 6e 65 78 74 20 3d | 20 6e 65 78 74 20 2b 20 |t next =| next + |
|0001efc0| 31 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 20 |1.  end |repeat. |
|0001efd0| 20 0d 20 20 72 65 70 65 | 61 74 20 77 69 74 68 20 | .  repe|at with |
|0001efe0| 69 20 3d 20 31 20 74 6f | 20 6e 75 6d 0d 20 20 20 |i = 1 to| num.   |
|0001eff0| 20 73 65 74 20 74 68 65 | 20 6e 61 6d 65 20 6f 66 | set the| name of|
|0001f000| 20 63 61 73 74 20 6e 65 | 78 74 20 3d 20 67 65 74 | cast ne|xt = get|
|0001f010| 61 74 28 74 6d 70 6c 69 | 73 74 2c 69 29 20 26 20 |at(tmpli|st,i) & |
|0001f020| 22 2e 43 41 50 22 0d 20 | 20 20 20 73 65 74 20 6e |".CAP". |   set n|
|0001f030| 65 78 74 20 3d 20 6e 65 | 78 74 20 2b 20 31 0d 20 |ext = ne|xt + 1. |
|0001f040| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 65 6e 64 0d | end rep|eat.end.|
|0001f050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001f060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001f070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001f080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001f090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0001f0a0| 0d 0d 00 32 00 32 02 1e | 02 cb 00 00 15 80 00 00 |...2.2..|........|
|0001f0b0| 15 89 00 64 64 b2 00 01 | 00 00 00 00 00 0b 00 09 |...dd...|........|
|0001f0c0| 00 04 00 00 00 09 00 00 | 00 00 00 00 43 41 53 74 |........|....CASt|
|0001f0d0| 00 00 00 81 00 0e 00 00 | 00 6d 0a 00 00 00 00 00 |........|.m......|
|0001f0e0| 00 f0 01 40 0a 00 00 2a | 00 00 00 14 00 00 00 00 |...@...*|........|
|0001f0f0| 00 00 00 00 00 00 00 01 | 00 00 00 00 00 08 00 00 |........|........|
|0001f100| 00 00 00 00 00 00 00 00 | 00 07 00 00 00 16 00 00 |........|........|
|0001f110| 00 1f 00 00 00 1f 00 00 | 00 1f 00 00 00 1f 00 00 |........|........|
|0001f120| 00 33 06 51 54 63 61 73 | 74 0e 41 72 6d 61 64 69 |.3.QTcas|t.Armadi|
|0001f130| 6c 6c 6f 3a 51 54 44 42 | 08 56 31 35 35 2e 4d 4f |llo:QTDB|.V155.MO|
|0001f140| 56 00 46 00 46 01 8f 02 | 36 00 00 00 00 00 00 00 |V.F.F...|6.......|
|0001f150| 00 00 46 00 46 41 43 41 | 53 74 00 00 04 79 00 04 |..F.FACA|St...y..|
|0001f160| 00 00 04 6f 0b 00 00 03 | 00 00 00 14 00 c2 eb a0 |...o....|........|
|0001f170| 00 00 00 00 00 00 00 00 | 00 00 00 0b 00 07 00 00 |........|........|
|0001f180| 00 00 00 00 04 00 00 00 | 04 0f 00 00 04 0f 00 00 |........|........|
|0001f190| 04 0f 00 00 04 0f 00 00 | 04 23 00 00 04 39 2d 2d |........|.#...9--|
|0001f1a0| 20 6d 6f 64 69 66 69 65 | 64 20 74 6f 20 63 6f 6d | modifie|d to com|
|0001f1b0| 70 61 72 65 20 6f 6e 20 | 69 74 65 6d 20 31 20 69 |pare on |item 1 i|
|0001f1c0| 6e 73 74 65 61 64 20 6f | 66 20 74 68 65 20 77 68 |nstead o|f the wh|
|0001f1d0| 6f 6c 65 20 6c 69 6e 65 | 0d 6f 6e 20 42 73 65 61 |ole line|.on Bsea|
|0001f1e0| 72 63 68 20 73 74 72 2c | 20 74 78 74 0d 20 20 0d |rch str,| txt.  .|
|0001f1f0| 20 20 73 65 74 20 74 78 | 74 20 3d 20 74 68 65 20 |  set tx|t = the |
|0001f200| 6e 75 6d 62 65 72 20 6f | 66 20 63 61 73 74 20 74 |number o|f cast t|
|0001f210| 78 74 0d 20 20 73 65 74 | 20 73 74 61 72 74 20 3d |xt.  set| start =|
|0001f220| 20 31 0d 20 20 73 65 74 | 20 65 6e 64 20 3d 20 74 | 1.  set| end = t|
|0001f230| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|0001f240| 65 73 20 6f 66 20 66 69 | 65 6c 64 20 74 78 74 20 |es of fi|eld txt |
|0001f250| 20 0d 20 20 73 65 74 20 | 6d 69 64 64 6c 65 20 3d | .  set |middle =|
|0001f260| 20 28 73 74 61 72 74 20 | 2b 20 65 6e 64 29 20 2f | (start |+ end) /|
|0001f270| 20 32 20 20 0d 20 20 0d | 20 20 2d 2d 70 75 74 20 | 2  .  .|  --put |
|0001f280| 22 73 74 72 20 3d 20 22 | 20 26 20 73 74 72 20 26 |"str = "| & str &|
|0001f290| 26 20 22 20 74 78 74 20 | 3d 20 22 20 26 26 20 74 |& " txt |= " && t|
|0001f2a0| 78 74 0d 20 20 2d 2d 20 | 62 73 65 61 72 63 68 20 |xt.  -- |bsearch |
|0001f2b0| 6d 65 63 68 61 6e 69 73 | 6d 0d 20 20 2d 2d 20 63 |mechanis|m.  -- c|
|0001f2c0| 6f 6d 70 61 72 65 20 74 | 68 65 20 73 74 72 20 74 |ompare t|he str t|
|0001f2d0| 6f 20 74 68 65 20 6d 69 | 64 64 6c 65 20 6c 69 6e |o the mi|ddle lin|
|0001f2e0| 65 20 6f 66 20 74 68 65 | 20 66 69 65 6c 64 0d 20 |e of the| field. |
|0001f2f0| 20 2d 2d 20 69 66 20 73 | 74 72 20 3c 20 74 68 65 | -- if s|tr < the|
|0001f300| 20 6d 69 64 64 6c 65 20 | 6c 69 6e 65 20 74 68 65 | middle |line the|
|0001f310| 6e 20 73 65 74 20 65 6e | 64 20 74 6f 20 62 65 20 |n set en|d to be |
|0001f320| 74 68 65 20 6d 69 64 64 | 6c 65 0d 20 20 2d 2d 20 |the midd|le.  -- |
|0001f330| 69 66 20 73 74 72 20 3e | 20 6d 69 64 64 6c 65 20 |if str >| middle |
|0001f340| 74 68 65 6e 20 73 65 74 | 20 73 74 61 72 74 20 3d |then set| start =|
|0001f350| 20 6d 69 64 64 6c 65 0d | 20 20 2d 2d 20 69 66 20 | middle.|  -- if |
|0001f360| 73 74 72 20 3d 20 6d 69 | 64 64 6c 65 20 74 68 65 |str = mi|ddle the|
|0001f370| 6e 20 79 6f 75 27 72 65 | 20 73 65 74 0d 20 20 0d |n you're| set.  .|
|0001f380| 20 20 72 65 70 65 61 74 | 20 77 68 69 6c 65 20 73 |  repeat| while s|
|0001f390| 74 72 20 3c 3e 20 69 74 | 65 6d 20 31 20 6f 66 20 |tr <> it|em 1 of |
|0001f3a0| 6c 69 6e 65 20 6d 69 64 | 64 6c 65 20 6f 66 20 66 |line mid|dle of f|
|0001f3b0| 69 65 6c 64 20 74 78 74 | 0d 20 20 20 20 0d 20 20 |ield txt|.    .  |
|0001f3c0| 20 20 0d 20 20 20 20 69 | 66 20 73 74 72 20 3d 20 |  .    i|f str = |
|0001f3d0| 69 74 65 6d 20 31 20 6f | 66 20 6c 69 6e 65 20 65 |item 1 o|f line e|
|0001f3e0| 6e 64 20 6f 66 20 66 69 | 65 6c 64 20 74 78 74 20 |nd of fi|eld txt |
|0001f3f0| 74 68 65 6e 0d 20 20 20 | 20 20 20 72 65 74 75 72 |then.   |   retur|
|0001f400| 6e 20 65 6e 64 0d 20 20 | 20 20 65 6e 64 20 69 66 |n end.  |  end if|
|0001f410| 0d 20 20 20 20 0d 20 20 | 20 20 69 66 20 73 74 61 |.    .  |  if sta|
|0001f420| 72 74 20 3d 20 6d 69 64 | 64 6c 65 20 74 68 65 6e |rt = mid|dle then|
|0001f430| 0d 20 20 20 20 20 20 72 | 65 74 75 72 6e 20 30 0d |.      r|eturn 0.|
|0001f440| 20 20 20 20 65 6e 64 20 | 69 66 20 0d 20 20 20 20 |    end |if .    |
|0001f450| 0d 20 20 20 20 69 66 20 | 73 74 72 20 3c 20 69 74 |.    if |str < it|
|0001f460| 65 6d 20 31 20 6f 66 20 | 6c 69 6e 65 20 6d 69 64 |em 1 of |line mid|
|0001f470| 64 6c 65 20 6f 66 20 66 | 69 65 6c 64 20 74 78 74 |dle of f|ield txt|
|0001f480| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 73 65 74 20 | then.  |    set |
|0001f490| 65 6e 64 20 3d 20 6d 69 | 64 64 6c 65 0d 20 20 20 |end = mi|ddle.   |
|0001f4a0| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 73 65 74 20 | else.  |    set |
|0001f4b0| 73 74 61 72 74 20 3d 20 | 6d 69 64 64 6c 65 0d 20 |start = |middle. |
|0001f4c0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 0d 20 |   end i|f.    . |
|0001f4d0| 20 20 20 0d 20 20 20 20 | 73 65 74 20 6d 69 64 64 |   .    |set midd|
|0001f4e0| 6c 65 20 3d 20 28 73 74 | 61 72 74 20 2b 20 65 6e |le = (st|art + en|
|0001f4f0| 64 29 20 2f 20 32 20 20 | 0d 20 20 20 20 0d 20 20 |d) / 2  |.    .  |
|0001f500| 65 6e 64 20 72 65 70 65 | 61 74 0d 20 20 0d 20 20 |end repe|at.  .  |
|0001f510| 69 66 20 73 74 72 20 3d | 20 69 74 65 6d 20 31 20 |if str =| item 1 |
|0001f520| 6f 66 20 6c 69 6e 65 20 | 6d 69 64 64 6c 65 20 6f |of line |middle o|
|0001f530| 66 20 66 69 65 6c 64 20 | 74 78 74 20 74 68 65 6e |f field |txt then|
|0001f540| 0d 20 20 20 20 2d 2d 61 | 6c 65 72 74 20 73 74 72 |.    --a|lert str|
|0001f550| 69 6e 67 28 6d 69 64 64 | 6c 65 29 20 20 20 20 0d |ing(midd|le)    .|
|0001f560| 20 20 20 20 72 65 74 75 | 72 6e 20 6d 69 64 64 6c |    retu|rn middl|
|0001f570| 65 0d 20 20 65 6c 73 65 | 0d 20 20 20 20 72 65 74 |e.  else|.    ret|
|0001f580| 75 72 6e 20 30 0d 20 20 | 65 6e 64 20 69 66 0d 20 |urn 0.  |end if. |
|0001f590| 20 0d 65 6e 64 20 42 73 | 65 61 72 63 68 20 0e 62 | .end Bs|earch .b|
|0001f5a0| 73 65 61 72 63 68 20 73 | 63 72 69 70 74 00 6e 00 |search s|cript.n.|
|0001f5b0| 6e 01 c0 02 66 00 00 03 | f8 00 00 03 ff 00 00 00 |n...f...|........|
|0001f5c0| 00 00 01 00 00 00 00 00 | 0b 00 09 00 04 00 00 00 |........|........|
|0001f5d0| 09 00 00 00 00 00 00 41 | 43 41 53 74 00 00 00 7c |.......A|CASt...||
|0001f5e0| 00 1e 00 00 00 58 03 00 | 00 00 00 00 00 00 ff ff |.....X..|........|
|0001f5f0| ff ff ff ff 00 00 00 00 | 00 00 0c 10 01 92 0c 10 |........|........|
|0001f600| 00 00 0c 10 00 00 00 14 | 00 00 00 00 00 00 00 00 |........|........|
|0001f610| 00 00 00 00 00 00 00 00 | 00 08 00 00 00 00 00 00 |........|........|
|0001f620| 00 00 00 00 00 0a 00 00 | 00 0a 00 00 00 0a 00 00 |........|........|
|0001f630| 00 0a 00 00 00 0a 00 00 | 00 0a 00 00 00 1e 09 4d |........|.......M|
|0001f640| 61 6b 65 72 4c 69 73 74 | 00 44 01 e5 01 f8 03 33 |akerList|.D.....3|
|0001f650| 00 00 03 79 00 00 03 80 | 00 a1 4e 84 43 41 53 74 |...y....|..N.CASt|
|0001f660| 00 00 00 7f 00 1e 00 00 | 00 5b 03 00 00 00 00 00 |........|.[......|
|0001f670| 00 00 ff ff ff ff ff ff | 00 00 00 00 00 00 0b c0 |........|........|
|0001f680| 01 92 0b c0 00 00 0b c0 | 00 00 00 14 00 00 00 00 |........|........|
|0001f690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|0001f6a0| 00 00 00 00 00 00 00 00 | 00 0d 00 00 00 0d 00 00 |........|........|
|0001f6b0| 00 0d 00 00 00 0d 00 00 | 00 0d 00 00 00 0d 00 00 |........|........|
|0001f6c0| 00 21 0c 4d 61 6b 65 72 | 4e 75 6d 4c 69 73 74 00 |.!.Maker|NumList.|
|0001f6d0| 28 01 04 01 dc 02 52 00 | 00 02 7e 00 00 02 85 00 |(.....R.|..~.....|
|0001f6e0| a1 4e 84 41 43 41 53 74 | 00 00 00 81 00 1e 00 00 |.N.ACASt|........|
|0001f6f0| 00 5d 03 00 00 00 00 00 | 00 00 ff ff ff ff ff ff |.]......|........|
|0001f700| 00 00 00 00 00 00 0c 10 | 01 92 0c 10 00 00 0c 10 |........|........|
|0001f710| 00 00 00 14 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f720| 00 00 00 00 00 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f730| 00 0f 00 00 00 0f 00 00 | 00 0f 00 00 00 0f 00 00 |........|........|
|0001f740| 00 0f 00 00 00 0f 00 00 | 00 23 0e 4d 61 6b 65 72 |........|.#.Maker|
|0001f750| 46 69 6c 65 4e 61 6d 65 | 73 00 28 01 04 01 dc 02 |FileName|s.(.....|
|0001f760| 52 00 00 04 d3 00 00 04 | da 00 a1 4e 84 41 43 41 |R.......|...N.ACA|
|0001f770| 53 74 00 00 01 68 00 04 | 00 00 01 5e 0b 00 00 03 |St...h..|...^....|
|0001f780| 00 00 00 14 00 c2 eb c8 | 00 00 00 00 00 00 00 00 |........|........|
|0001f790| 00 00 00 01 00 07 00 00 | 00 00 00 00 00 fe 00 00 |........|........|
|0001f7a0| 00 fe 00 00 00 fe 00 00 | 00 fe 00 00 00 fe 00 00 |........|........|
|0001f7b0| 01 12 00 00 01 28 6f 6e | 20 52 65 62 75 69 6c 64 |.....(on| Rebuild|
|0001f7c0| 49 6e 64 65 78 20 20 0d | 20 20 67 6c 6f 62 61 6c |Index  .|  global|
|0001f7d0| 20 67 6d 61 6b 65 72 6e | 61 6d 65 0d 20 20 0d 20 | gmakern|ame.  . |
|0001f7e0| 20 70 75 70 70 65 74 73 | 6f 75 6e 64 20 22 63 6c | puppets|ound "cl|
|0001f7f0| 69 63 6b 22 0d 20 20 75 | 70 64 61 74 65 73 74 61 |ick".  u|pdatesta|
|0001f800| 67 65 0d 20 20 0d 20 20 | 2d 2d 73 65 74 20 74 6d |ge.  .  |--set tm|
|0001f810| 70 20 3d 20 62 73 65 61 | 72 63 68 28 67 6d 61 6b |p = bsea|rch(gmak|
|0001f820| 65 72 6e 61 6d 65 2c 22 | 4d 61 6b 65 72 4c 69 73 |ername,"|MakerLis|
|0001f830| 74 22 29 20 0d 20 20 2d | 2d 70 72 6f 63 65 73 73 |t") .  -|-process|
|0001f840| 70 65 72 73 6f 6e 20 28 | 69 74 65 6d 20 33 20 6f |person (|item 3 o|
|0001f850| 66 20 6c 69 6e 65 20 74 | 6d 70 20 6f 66 20 66 69 |f line t|mp of fi|
|0001f860| 65 6c 64 20 22 4d 61 6b | 65 72 46 69 6c 65 4e 61 |eld "Mak|erFileNa|
|0001f870| 6d 65 73 22 29 0d 20 20 | 0d 20 20 70 72 6f 63 65 |mes").  |.  proce|
|0001f880| 73 73 70 65 72 73 6f 6e | 28 67 4d 61 6b 65 72 6e |ssperson|(gMakern|
|0001f890| 61 6d 65 29 0d 20 20 67 | 6f 20 74 6f 20 66 72 61 |ame).  g|o to fra|
|0001f8a0| 6d 65 20 22 64 61 74 61 | 62 61 73 65 22 0d 20 20 |me "data|base".  |
|0001f8b0| 0d 65 6e 64 00 ac 00 37 | 02 21 02 b2 00 00 00 c9 |.end...7|.!......|
|0001f8c0| 00 00 00 c9 00 00 00 00 | 00 01 00 00 00 00 00 0b |........|........|
|0001f8d0| 00 09 00 04 00 00 00 09 | 00 00 00 00 00 00 43 41 |........|......CA|
|0001f8e0| 53 74 00 00 00 7e 00 1e | 00 00 00 5a 03 00 00 0a |St...~..|...Z....|
|0001f8f0| 00 00 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f900| 00 10 00 82 00 10 00 00 | 00 10 00 00 00 14 00 00 |........|........|
|0001f910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 08 |........|........|
|0001f920| 00 00 00 00 00 00 00 00 | 00 00 00 0c 00 00 00 0c |........|........|
|0001f930| 00 00 00 0c 00 00 00 0c | 00 00 00 0c 00 00 00 0c |........|........|
|0001f940| 00 00 00 20 0b 73 65 63 | 74 69 6f 6e 4e 61 6d 65 |... .sec|tionName|
|0001f950| 00 c4 00 cc 01 5a 02 2a | 00 00 00 00 00 00 00 00 |.....Z.*|........|
|0001f960| 00 4a 39 90 43 41 53 74 | 00 00 00 72 00 1e 00 00 |.J9.CASt|...r....|
|0001f970| 00 4e 03 00 01 00 00 00 | 00 00 ff ff ff ff ff ff |.N......|........|
|0001f980| 00 00 00 00 00 00 00 10 | 00 66 00 10 00 00 00 10 |........|.f......|
|0001f990| 00 00 00 14 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f9a0| 00 00 00 00 00 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f9b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001f9c0| 00 00 00 00 00 00 00 00 | 00 14 00 47 00 46 00 dd |........|...G.F..|
|0001f9d0| 01 a4 00 00 00 0c 00 00 | 00 0c 00 f2 e3 28 43 41 |........|.....(CA|
|0001f9e0| 53 74 00 00 01 10 00 04 | 00 00 01 06 0b 00 00 01 |St......|........|
|0001f9f0| 00 00 00 14 00 c2 eb 88 | 00 00 00 00 00 00 00 00 |........|........|
|0001fa00| 00 00 00 11 00 07 00 00 | 00 00 00 00 00 91 00 00 |........|........|
|0001fa10| 00 a6 00 00 00 a6 00 00 | 00 a6 00 00 00 a6 00 00 |........|........|
|0001fa20| 00 ba 00 00 00 d0 6f 6e | 20 6d 6f 75 73 65 44 6f |......on| mouseDo|
|0001fa30| 77 6e 0d 20 20 67 6c 6f | 62 61 6c 20 67 43 75 72 |wn.  glo|bal gCur|
|0001fa40| 43 68 61 70 0d 20 20 0d | 20 20 43 6c 69 63 6b 53 |Chap.  .|  ClickS|
|0001fa50| 6e 64 0d 20 20 75 70 64 | 61 74 65 73 74 61 67 65 |nd.  upd|atestage|
|0001fa60| 0d 20 20 73 65 74 20 73 | 70 20 3d 20 74 68 65 20 |.  set s|p = the |
|0001fa70| 63 6c 69 63 6b 6f 6e 20 | 2d 20 33 36 0d 20 20 0d |clickon |- 36.  .|
|0001fa80| 20 20 69 66 20 73 70 20 | 3c 3e 20 67 43 75 72 43 |  if sp |<> gCurC|
|0001fa90| 68 61 70 20 74 68 65 6e | 0d 20 20 20 20 47 6f 43 |hap then|.    GoC|
|0001faa0| 68 61 70 74 65 72 28 73 | 70 29 0d 20 20 65 6e 64 |hapter(s|p).  end|
|0001fab0| 20 69 66 0d 65 6e 64 14 | 73 70 69 64 65 72 20 62 | if.end.|spider b|
|0001fac0| 75 74 74 6f 6e 20 73 63 | 72 69 70 74 00 ac 00 37 |utton sc|ript...7|
|0001fad0| 02 21 02 b2 00 00 00 77 | 00 00 00 80 00 85 00 1d |.!.....w|........|
|0001fae0| 00 01 00 00 00 00 00 0b | 00 09 00 04 00 00 00 09 |........|........|
|0001faf0| 00 00 00 00 00 00 43 41 | 53 74 00 00 02 14 00 04 |......CA|St......|
|0001fb00| 00 00 02 0a 0b 00 00 01 | 00 00 00 14 00 c2 eb 80 |........|........|
|0001fb10| 00 00 00 00 00 00 00 00 | 00 00 00 13 00 07 00 00 |........|........|
|0001fb20| 00 00 00 00 01 9e 00 00 | 01 aa 00 00 01 aa 00 00 |........|........|
|0001fb30| 01 aa 00 00 01 aa 00 00 | 01 be 00 00 01 d4 6f 6e |........|......on|
|0001fb40| 20 6d 6f 75 73 65 64 6f | 77 6e 0d 20 20 73 65 74 | mousedo|wn.  set|
|0001fb50| 20 6f 6d 68 20 3d 20 74 | 68 65 20 6d 6f 75 73 65 | omh = t|he mouse|
|0001fb60| 68 0d 20 20 73 65 74 20 | 6f 6d 76 20 3d 20 74 68 |h.  set |omv = th|
|0001fb70| 65 20 6d 6f 75 73 65 76 | 0d 20 20 0d 20 20 72 65 |e mousev|.  .  re|
|0001fb80| 70 65 61 74 20 77 68 69 | 6c 65 20 74 68 65 20 6d |peat whi|le the m|
|0001fb90| 6f 75 73 65 64 6f 77 6e | 0d 20 20 20 20 73 65 74 |ousedown|.    set|
|0001fba0| 20 6d 68 20 3d 20 74 68 | 65 20 6d 6f 75 73 65 68 | mh = th|e mouseh|
|0001fbb0| 0d 20 20 20 20 73 65 74 | 20 6d 76 20 3d 20 74 68 |.    set| mv = th|
|0001fbc0| 65 20 6d 6f 75 73 65 76 | 0d 20 20 20 20 73 65 74 |e mousev|.    set|
|0001fbd0| 20 64 68 20 3d 20 6d 68 | 20 2d 20 6f 6d 68 0d 20 | dh = mh| - omh. |
|0001fbe0| 20 20 20 73 65 74 20 64 | 76 20 3d 20 6d 76 20 2d |   set d|v = mv -|
|0001fbf0| 20 6f 6d 76 0d 20 20 20 | 20 72 65 70 65 61 74 20 | omv.   | repeat |
|0001fc00| 77 69 74 68 20 69 20 3d | 20 33 36 20 74 6f 20 34 |with i =| 36 to 4|
|0001fc10| 33 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |3.      |set the |
|0001fc20| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 69 |loch of |sprite i|
|0001fc30| 20 3d 20 28 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 | = (the |loch of |
|0001fc40| 73 70 72 69 74 65 20 69 | 29 2b 64 68 0d 20 20 20 |sprite i|)+dh.   |
|0001fc50| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 76 20 |   set t|he locv |
|0001fc60| 6f 66 20 73 70 72 69 74 | 65 20 69 20 3d 20 28 74 |of sprit|e i = (t|
|0001fc70| 68 65 20 6c 6f 63 76 20 | 6f 66 20 73 70 72 69 74 |he locv |of sprit|
|0001fc80| 65 20 69 29 2b 64 76 0d | 20 20 20 20 65 6e 64 20 |e i)+dv.|    end |
|0001fc90| 72 65 70 65 61 74 0d 20 | 20 20 20 75 70 64 61 74 |repeat. |   updat|
|0001fca0| 65 73 74 61 67 65 0d 20 | 20 20 20 73 65 74 20 6f |estage. |   set o|
|0001fcb0| 6d 68 20 3d 20 6d 68 0d | 20 20 20 20 73 65 74 20 |mh = mh.|    set |
|0001fcc0| 6f 6d 76 20 3d 20 6d 76 | 0d 20 20 65 6e 64 20 72 |omv = mv|.  end r|
|0001fcd0| 65 70 65 61 74 0d 20 20 | 0d 65 6e 64 0b 73 70 69 |epeat.  |.end.spi|
|0001fce0| 64 65 72 20 64 72 61 67 | 00 46 00 46 01 f2 02 cc |der drag|.F.F....|
|0001fcf0| 00 00 00 00 00 00 00 0c | 00 46 00 46 00 01 00 00 |........|.F.F....|
|0001fd00| 00 00 00 0b 00 09 00 04 | 00 00 00 09 00 00 00 00 |........|........|
|0001fd10| 00 00 43 41 53 74 00 00 | 00 83 00 1e 00 00 00 5f |..CASt..|......._|
|0001fd20| 03 00 00 00 00 00 00 00 | ff ff ff ff ff ff 00 00 |........|........|
|0001fd30| 00 00 00 00 0b d0 02 2c | 0b d0 00 00 0b d0 00 00 |.......,|........|
|0001fd40| 00 14 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001fd50| 00 00 00 08 00 00 00 00 | 00 00 00 00 00 00 00 11 |........|........|
|0001fd60| 00 00 00 11 00 00 00 11 | 00 00 00 11 00 00 00 11 |........|........|
|0001fd70| 00 00 00 11 00 00 00 25 | 10 4d 61 6b 65 72 73 53 |.......%|.MakersS|
|0001fd80| 74 72 61 70 6c 69 6e 65 | 73 00 7d 00 c1 01 e7 02 |trapline|s.}.....|
|0001fd90| 6d 00 00 1a 75 00 00 1a | 75 00 32 00 4c 41 43 41 |m...u...|u.2.LACA|
|0001fda0| 53 74 00 00 00 a7 00 1e | 00 00 00 83 03 00 00 00 |St......|........|
|0001fdb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001fdc0| 00 70 00 e7 00 70 00 00 | 00 70 00 00 00 14 00 00 |.p...p..|.p......|
|0001fdd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 08 |........|........|
|0001fde0| 00 00 00 00 00 00 00 00 | 00 00 00 0b 00 00 00 0b |........|........|
|0001fdf0| 00 00 00 0b 00 00 00 0b | 00 00 00 1f 00 00 00 35 |........|.......5|
|0001fe00| 00 00 00 49 0a 6e 75 67 | 67 65 74 74 65 78 74 00 |...I.nug|gettext.|
|0001fe10| 59 00 2c 00 ef 01 8a 00 | 00 00 00 00 00 00 00 01 |Y.,.....|........|
|0001fe20| 59 00 2c 00 01 00 00 00 | 00 00 0b 00 09 00 04 00 |Y.,.....|........|
|0001fe30| 00 00 09 00 00 00 00 00 | 00 00 eb 01 95 01 81 02 |........|........|
|0001fe40| f3 00 00 00 00 00 00 00 | 00 00 83 53 28 41 43 41 |........|...S(ACA|
|0001fe50| 53 74 00 00 00 e9 00 13 | 00 00 00 d0 08 00 00 01 |St......|........|
|0001fe60| 00 04 00 04 01 df 02 78 | 00 01 ff 00 00 01 05 00 |.......x|........|
|0001fe70| 00 00 14 00 c2 eb 74 00 | 00 00 00 00 00 00 00 00 |......t.|........|
|0001fe80| 00 00 16 00 07 00 00 00 | 00 00 00 00 64 00 00 00 |........|....d...|
|0001fe90| 70 00 00 00 70 00 00 00 | 70 00 00 00 70 00 00 00 |p...p...|p...p...|
|0001fea0| 84 00 00 00 9a 2d 2d 20 | 63 61 74 63 68 20 61 6c |.....-- |catch al|
|0001feb0| 6c 20 74 68 65 20 6d 6f | 75 73 65 63 6c 69 63 6b |l the mo|useclick|
|0001fec0| 73 0d 0d 6f 6e 20 6d 6f | 75 73 65 44 6f 77 6e 0d |s..on mo|useDown.|
|0001fed0| 20 20 2d 2d 0d 20 20 70 | 75 74 20 22 74 72 61 70 |  --.  p|ut "trap|
|0001fee0| 70 65 64 20 6d 6f 75 73 | 65 63 6c 69 63 6b 21 22 |ped mous|eclick!"|
|0001fef0| 0d 65 6e 64 0d 0d 6f 6e | 20 6d 6f 75 73 65 55 70 |.end..on| mouseUp|
|0001ff00| 0d 20 20 2d 2d 0d 65 6e | 64 0b 73 63 72 65 65 6e |.  --.en|d.screen|
|0001ff10| 62 6c 61 6e 6b 00 32 00 | 32 02 17 02 1d 00 00 00 |blank.2.|2.......|
|0001ff20| 4a 00 00 00 4a 0a 32 00 | 32 00 01 00 00 00 00 00 |J...J.2.|2.......|
|0001ff30| 0b 00 09 00 04 00 00 00 | 09 00 00 00 00 00 00 41 |........|.......A|
|0001ff40| 43 41 53 74 00 00 00 2e | 00 01 00 00 00 27 06 00 |CASt....|.....'..|
|0001ff50| 00 00 14 00 00 00 00 00 | 00 00 00 00 00 00 10 00 |........|........|
|0001ff60| 00 00 00 00 02 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0001ff70| 05 04 64 6f 6f 70 43 41 | 53 74 00 00 02 09 00 04 |..doopCA|St......|
|0001ff80| 00 00 01 ff 0b 00 00 03 | 00 00 00 14 00 c2 ea c8 |........|........|
|0001ff90| 00 00 00 00 00 00 00 00 | 00 00 00 3d 00 07 00 00 |........|...=....|
|0001ffa0| 00 00 00 00 01 9f 00 00 | 01 9f 00 00 01 9f 00 00 |........|........|
|0001ffb0| 01 9f 00 00 01 9f 00 00 | 01 b3 00 00 01 c9 6f 6e |........|......on|
|0001ffc0| 20 44 6f 53 70 69 64 65 | 72 54 65 78 74 20 6e 75 | DoSpide|rText nu|
|0001ffd0| 6d 0d 20 20 73 65 74 20 | 73 65 63 74 69 6f 6e 63 |m.  set |sectionc|
|0001ffe0| 61 73 74 20 3d 20 74 68 | 65 20 63 61 73 74 6e 75 |ast = th|e castnu|
|0001fff0| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 34 33 0d 20 |m of spr|ite 43. |
|00020000| 20 69 66 20 6e 75 6d 20 | 3d 20 31 20 74 68 65 6e | if num |= 1 then|
|00020010| 20 20 20 20 20 20 20 0d | 20 20 20 20 73 65 74 20 |       .|    set |
|00020020| 74 68 65 20 74 65 78 74 | 20 6f 66 20 66 69 65 6c |the text| of fiel|
|00020030| 64 20 73 65 63 74 69 6f | 6e 63 61 73 74 20 3d 20 |d sectio|ncast = |
|00020040| 22 49 4e 54 52 4f 44 55 | 43 54 49 4f 4e 22 0d 20 |"INTRODU|CTION". |
|00020050| 20 65 6c 73 65 0d 20 20 | 20 20 73 65 74 20 74 68 | else.  |  set th|
|00020060| 65 20 74 65 78 74 20 6f | 66 20 66 69 65 6c 64 20 |e text o|f field |
|00020070| 73 65 63 74 69 6f 6e 63 | 61 73 74 20 3d 20 67 65 |sectionc|ast = ge|
|00020080| 74 41 74 28 67 43 68 61 | 70 74 65 72 73 2c 6e 75 |tAt(gCha|pters,nu|
|00020090| 6d 29 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 0d 20 |m).  end| if.  . |
|000200a0| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|000200b0| 20 73 70 72 69 74 65 20 | 34 33 20 3d 20 74 68 65 | sprite |43 = the|
|000200c0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|000200d0| 33 36 20 2d 20 28 74 68 | 65 20 77 69 64 74 68 20 |36 - (th|e width |
|000200e0| 6f 66 20 63 61 73 74 20 | 73 65 63 74 69 6f 6e 63 |of cast |sectionc|
|000200f0| 61 73 74 29 20 2d 20 33 | 30 0d 20 20 73 65 74 20 |ast) - 3|0.  set |
|00020100| 74 68 65 20 6c 6f 63 76 | 20 6f 66 20 73 70 72 69 |the locv| of spri|
|00020110| 74 65 20 34 33 20 3d 20 | 74 68 65 20 6c 6f 63 76 |te 43 = |the locv|
|00020120| 20 6f 66 20 73 70 72 69 | 74 65 20 33 36 20 2d 20 | of spri|te 36 - |
|00020130| 28 28 74 68 65 20 68 65 | 69 67 68 74 20 6f 66 20 |((the he|ight of |
|00020140| 63 61 73 74 20 73 65 63 | 74 69 6f 6e 63 61 73 74 |cast sec|tioncast|
|00020150| 29 2f 32 29 20 2d 20 35 | 20 0d 65 6e 64 01 86 01 |)/2) - 5| .end...|
|00020160| 2b 03 4e 04 3a 00 00 00 | 5a 00 00 00 5a 00 00 00 |+.N.:...|Z...Z...|
|00020170| 00 00 01 00 00 00 00 00 | 0b 00 09 00 04 00 00 00 |........|........|
|00020180| 09 00 00 00 00 00 00 41 | 43 41 53 74 00 00 00 ad |.......A|CASt....|
|00020190| 00 1c 00 00 00 8b 01 00 | 80 2e 00 00 00 05 00 2d |........|.......-|
|000201a0| 00 32 00 00 00 05 00 48 | 00 4d 00 16 00 1b 00 08 |.2.....H|.M......|
|000201b0| 00 01 00 00 00 14 00 c2 | eb 6c 00 00 00 00 00 00 |........|.l......|
|000201c0| 00 00 00 00 00 18 00 07 | 00 00 00 00 00 00 00 1d |........|........|
|000201d0| 00 00 00 2b 00 00 00 2b | 00 00 00 2b 00 00 00 2b |...+...+|...+...+|
|000201e0| 00 00 00 3f 00 00 00 55 | 6f 6e 20 6d 6f 75 73 65 |...?...U|on mouse|
|000201f0| 64 6f 77 6e 0d 20 20 53 | 68 6f 77 4e 75 67 67 65 |down.  S|howNugge|
|00020200| 74 0d 65 6e 64 0d 70 6f | 77 65 72 2d 6e 75 67 67 |t.end.po|wer-nugg|
|00020210| 65 74 31 00 70 00 5d 01 | 06 01 bb 00 00 00 00 00 |et1.p.].|........|
|00020220| 00 00 0c 01 70 00 5d 00 | 01 00 00 00 00 00 0b 00 |....p.].|........|
|00020230| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 41 43 41 |........|.....ACA|
|00020240| 53 74 00 00 00 4d 00 1c | 00 00 00 2b 01 01 80 82 |St...M..|...+....|
|00020250| 00 04 00 02 00 4c 00 84 | 00 04 00 02 00 58 00 90 |.....L..|.....X..|
|00020260| 00 28 00 43 00 08 00 01 | 00 00 00 14 00 00 00 00 |.(.C....|........|
|00020270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 02 00 00 |........|........|
|00020280| 00 00 00 00 00 00 00 00 | 00 09 08 62 6c 61 63 6b |........|...black|
|00020290| 62 6f 78 00 4b 45 59 2a | 00 00 17 b8 00 0c 00 0c |box.KEY*|........|
|000202a0| 00 00 01 f9 00 00 01 cd | 00 00 00 07 00 00 00 0c |........|........|
|000202b0| 53 54 58 54 00 00 00 0e | 00 00 00 10 53 54 58 54 |STXT....|....STXT|
|000202c0| 00 00 00 0d 00 00 00 11 | 53 54 58 54 00 00 00 92 |........|STXT....|
|000202d0| 00 00 00 1c 53 54 58 54 | 00 00 00 49 00 00 00 20 |....STXT|...I... |
|000202e0| 53 54 58 54 00 00 00 60 | 00 00 00 21 53 54 58 54 |STXT...`|...!STXT|
|000202f0| 00 00 00 23 00 00 00 22 | 53 54 58 54 00 00 00 15 |...#..."|STXT....|
|00020300| 00 00 00 26 53 54 58 54 | 00 00 00 29 00 00 00 28 |...&STXT|...)...(|
|00020310| 53 54 58 54 00 00 00 3c | 00 00 00 2a 53 54 58 54 |STXT...<|...*STXT|
|00020320| 00 00 03 ad 00 00 00 32 | 53 54 58 54 00 00 00 4f |.......2|STXT...O|
|00020330| 00 00 00 33 53 54 58 54 | 00 00 05 f9 00 00 00 34 |...3STXT|.......4|
|00020340| 53 54 58 54 00 00 00 2c | 00 00 00 36 42 49 54 44 |STXT...,|...6BITD|
|00020350| 00 00 03 30 00 00 00 37 | 53 54 58 54 00 00 03 fd |...0...7|STXT....|
|00020360| 00 00 00 38 53 54 58 54 | 00 00 00 59 00 00 00 3a |...8STXT|...Y...:|
|00020370| 73 6e 64 20 00 00 00 3b | 00 00 00 40 53 54 58 54 |snd ...;|...@STXT|
|00020380| 00 00 03 93 00 00 00 42 | 53 54 58 54 00 00 00 cc |.......B|STXT....|
|00020390| 00 00 00 46 53 54 58 54 | 00 00 00 3f 00 00 00 47 |...FSTXT|...?...G|
|000203a0| 42 49 54 44 00 00 00 14 | 00 00 00 4a 53 54 58 54 |BITD....|...JSTXT|
|000203b0| 00 00 00 57 00 00 00 4d | 53 54 58 54 00 00 00 5a |...W...M|STXT...Z|
|000203c0| 00 00 00 53 42 49 54 44 | 00 00 00 61 00 00 00 54 |...SBITD|...a...T|
|000203d0| 53 54 58 54 00 00 00 fa | 00 00 00 5b 53 54 58 54 |STXT....|...[STXT|
|000203e0| 00 00 03 76 00 00 00 5c | 53 54 58 54 00 00 01 89 |...v...\|STXT....|
|000203f0| 00 00 00 5d 53 54 58 54 | 00 00 00 5e 00 00 00 65 |...]STXT|...^...e|
|00020400| 53 54 58 54 00 00 00 2f | 00 00 00 68 4d 6f 6f 56 |STXT.../|...hMooV|
|00020410| 00 00 00 41 00 00 00 69 | 73 6e 64 20 00 00 00 5f |...A...i|snd ..._|
|00020420| 00 00 00 6b 53 54 58 54 | 00 00 00 6a 00 00 00 6d |...kSTXT|...j...m|
|00020430| 53 54 58 54 00 00 00 1f | 00 00 00 6f 53 54 58 54 |STXT....|...oSTXT|
|00020440| 00 00 01 b7 00 00 00 71 | 53 54 58 54 00 00 00 77 |.......q|STXT...w|
|00020450| 00 00 00 73 53 54 58 54 | 00 00 05 03 00 00 00 7a |...sSTXT|.......z|
|00020460| 42 49 54 44 00 00 00 99 | 00 00 00 7c 53 54 58 54 |BITD....|...|STXT|
|00020470| 00 00 00 7e 00 00 00 7d | 53 54 58 54 00 00 00 75 |...~...}|STXT...u|
|00020480| 00 00 00 80 53 54 58 54 | 00 00 01 74 00 00 00 81 |....STXT|...t....|
|00020490| 53 54 58 54 00 00 00 a0 | 00 00 00 84 53 54 58 54 |STXT....|....STXT|
|000204a0| 00 00 00 a1 00 00 00 85 | 53 54 58 54 00 00 03 46 |........|STXT...F|
|000204b0| 00 00 00 86 53 54 58 54 | 00 00 02 00 00 00 00 88 |....STXT|........|
|000204c0| 53 54 58 54 00 00 00 8b | 00 00 00 89 53 54 58 54 |STXT....|....STXT|
|000204d0| 00 00 05 a9 00 00 00 8d | 53 54 58 54 00 00 00 90 |........|STXT....|
|000204e0| 00 00 00 8f 53 54 58 54 | 00 00 03 4f 00 00 00 98 |....STXT|...O....|
|000204f0| 53 54 58 54 00 00 00 7f | 00 00 00 9a 53 54 58 54 |STXT....|....STXT|
|00020500| 00 00 01 8f 00 00 00 9c | 53 54 58 54 00 00 02 cf |........|STXT....|
|00020510| 00 00 00 9d 53 54 58 54 | 00 00 03 18 00 00 00 9e |....STXT|........|
|00020520| 53 54 58 54 00 00 04 78 | 00 00 00 9f 42 49 54 44 |STXT...x|....BITD|
|00020530| 00 00 03 49 00 00 00 a5 | 53 54 58 54 00 00 00 a9 |...I....|STXT....|
|00020540| 00 00 00 a6 42 49 54 44 | 00 00 05 ee 00 00 00 a7 |....BITD|........|
|00020550| 53 54 58 54 00 00 00 8a | 00 00 00 aa 53 54 58 54 |STXT....|....STXT|
|00020560| 00 00 05 e0 00 00 00 af | 53 54 58 54 00 00 00 52 |........|STXT...R|
|00020570| 00 00 00 b1 53 54 58 54 | 00 00 00 48 00 00 00 b3 |....STXT|...H....|
|00020580| 53 54 58 54 00 00 00 3d | 00 00 00 b4 53 54 58 54 |STXT...=|....STXT|
|00020590| 00 00 00 ae 00 00 00 b5 | 53 54 58 54 00 00 00 b2 |........|STXT....|
|000205a0| 00 00 00 b7 53 54 58 54 | 00 00 00 c0 00 00 00 b8 |....STXT|........|
|000205b0| 53 54 58 54 00 00 05 15 | 00 00 00 b9 53 54 58 54 |STXT....|....STXT|
|000205c0| 00 00 04 32 00 00 00 ba | 53 54 58 54 00 00 00 be |...2....|STXT....|
|000205d0| 00 00 00 bc 53 54 58 54 | 00 00 00 bb 00 00 00 bf |....STXT|........|
|000205e0| 53 54 58 54 00 00 00 c1 | 00 00 00 c2 53 54 58 54 |STXT....|....STXT|
|000205f0| 00 00 00 c3 00 00 00 c4 | 53 54 58 54 00 00 00 c9 |........|STXT....|
|00020600| 00 00 00 c6 53 54 58 54 | 00 00 00 c5 00 00 00 c7 |....STXT|........|
|00020610| 53 54 58 54 00 00 00 ca | 00 00 00 c8 53 54 58 54 |STXT....|....STXT|
|00020620| 00 00 00 d0 00 00 00 cb | 53 54 58 54 00 00 00 cf |........|STXT....|
|00020630| 00 00 00 cd 53 54 58 54 | 00 00 03 38 00 00 00 ce |....STXT|...8....|
|00020640| 53 54 58 54 00 00 00 d2 | 00 00 00 d4 53 54 58 54 |STXT....|....STXT|
|00020650| 00 00 00 d1 00 00 00 d6 | 53 54 58 54 00 00 03 d0 |........|STXT....|
|00020660| 00 00 00 d7 53 54 58 54 | 00 00 00 dc 00 00 00 d8 |....STXT|........|
|00020670| 53 54 58 54 00 00 05 29 | 00 00 00 d9 53 54 58 54 |STXT...)|....STXT|
|00020680| 00 00 00 df 00 00 00 da | 53 54 58 54 00 00 00 d5 |........|STXT....|
|00020690| 00 00 00 db 53 54 58 54 | 00 00 02 71 00 00 00 e2 |....STXT|...q....|
|000206a0| 53 54 58 54 00 00 01 66 | 00 00 00 e3 53 54 58 54 |STXT...f|....STXT|
|000206b0| 00 00 00 e6 00 00 00 e4 | 53 54 58 54 00 00 03 35 |........|STXT...5|
|000206c0| 00 00 00 e5 53 54 58 54 | 00 00 00 e1 00 00 00 e7 |....STXT|........|
|000206d0| 53 54 58 54 00 00 00 e9 | 00 00 00 eb 53 54 58 54 |STXT....|....STXT|
|000206e0| 00 00 00 43 00 00 00 ec | 53 54 58 54 00 00 00 e8 |...C....|STXT....|
|000206f0| 00 00 00 ed 53 54 58 54 | 00 00 00 ea 00 00 00 ef |....STXT|........|
|00020700| 53 54 58 54 00 00 05 a1 | 00 00 00 f1 53 54 58 54 |STXT....|....STXT|
|00020710| 00 00 00 ee 00 00 00 f3 | 53 54 58 54 00 00 00 f0 |........|STXT....|
|00020720| 00 00 00 f6 53 54 58 54 | 00 00 00 f4 00 00 00 fb |....STXT|........|
|00020730| 53 54 58 54 00 00 04 80 | 00 00 00 fd 53 54 58 54 |STXT....|....STXT|
|00020740| 00 00 00 f5 00 00 01 01 | 53 54 58 54 00 00 00 7b |........|STXT...{|
|00020750| 00 00 01 03 53 54 58 54 | 00 00 00 f7 00 00 01 05 |....STXT|........|
|00020760| 53 54 58 54 00 00 00 fc | 00 00 01 07 53 54 58 54 |STXT....|....STXT|
|00020770| 00 00 00 fe 00 00 01 09 | 53 54 58 54 00 00 01 02 |........|STXT....|
|00020780| 00 00 01 0b 53 54 58 54 | 00 00 01 04 00 00 01 0d |....STXT|........|
|00020790| 53 54 58 54 00 00 01 06 | 00 00 01 0f 53 54 58 54 |STXT....|....STXT|
|000207a0| 00 00 01 08 00 00 01 11 | 53 54 58 54 00 00 01 0a |........|STXT....|
|000207b0| 00 00 01 13 53 54 58 54 | 00 00 01 0e 00 00 01 14 |....STXT|........|
|000207c0| 53 54 58 54 00 00 01 0c | 00 00 01 15 53 54 58 54 |STXT....|....STXT|
|000207d0| 00 00 01 10 00 00 01 16 | 53 54 58 54 00 00 01 12 |........|STXT....|
|000207e0| 00 00 01 18 53 54 58 54 | 00 00 05 62 00 00 01 1a |....STXT|...b....|
|000207f0| 53 54 58 54 00 00 01 17 | 00 00 01 1c 53 54 58 54 |STXT....|....STXT|
|00020800| 00 00 05 bf 00 00 01 1e | 53 54 58 54 00 00 01 19 |........|STXT....|
|00020810| 00 00 01 1f 53 54 58 54 | 00 00 01 25 00 00 01 20 |....STXT|...%... |
|00020820| 53 54 58 54 00 00 01 1b | 00 00 01 21 53 54 58 54 |STXT....|...!STXT|
|00020830| 00 00 01 29 00 00 01 22 | 53 54 58 54 00 00 01 27 |...)..."|STXT...'|
|00020840| 00 00 01 23 53 54 58 54 | 00 00 01 2b 00 00 01 24 |...#STXT|...+...$|
|00020850| 53 54 58 54 00 00 01 2d | 00 00 01 26 53 54 58 54 |STXT...-|...&STXT|
|00020860| 00 00 01 2f 00 00 01 28 | 53 54 58 54 00 00 01 31 |.../...(|STXT...1|
|00020870| 00 00 01 2a 53 54 58 54 | 00 00 01 33 00 00 01 2c |...*STXT|...3...,|
|00020880| 53 54 58 54 00 00 01 35 | 00 00 01 2e 53 54 58 54 |STXT...5|....STXT|
|00020890| 00 00 01 37 00 00 01 30 | 53 54 58 54 00 00 01 39 |...7...0|STXT...9|
|000208a0| 00 00 01 32 53 54 58 54 | 00 00 01 3b 00 00 01 34 |...2STXT|...;...4|
|000208b0| 53 54 58 54 00 00 01 3d | 00 00 01 36 53 54 58 54 |STXT...=|...6STXT|
|000208c0| 00 00 01 3f 00 00 01 38 | 53 54 58 54 00 00 01 41 |...?...8|STXT...A|
|000208d0| 00 00 01 3a 53 54 58 54 | 00 00 01 43 00 00 01 3c |...:STXT|...C...<|
|000208e0| 53 54 58 54 00 00 01 45 | 00 00 01 3e 53 54 58 54 |STXT...E|...>STXT|
|000208f0| 00 00 01 47 00 00 01 40 | 53 54 58 54 00 00 01 49 |...G...@|STXT...I|
|00020900| 00 00 01 42 53 54 58 54 | 00 00 01 4b 00 00 01 44 |...BSTXT|...K...D|
|00020910| 53 54 58 54 00 00 01 4a | 00 00 01 46 53 54 58 54 |STXT...J|...FSTXT|
|00020920| 00 00 01 4c 00 00 01 48 | 53 54 58 54 00 00 01 50 |...L...H|STXT...P|
|00020930| 00 00 01 4d 53 54 58 54 | 00 00 01 52 00 00 01 4f |...MSTXT|...R...O|
|00020940| 53 54 58 54 00 00 01 54 | 00 00 01 51 53 54 58 54 |STXT...T|...QSTXT|
|00020950| 00 00 01 56 00 00 01 53 | 53 54 58 54 00 00 01 58 |...V...S|STXT...X|
|00020960| 00 00 01 55 53 54 58 54 | 00 00 05 09 00 00 01 59 |...USTXT|.......Y|
|00020970| 53 54 58 54 00 00 01 57 | 00 00 01 5a 53 54 58 54 |STXT...W|...ZSTXT|
|00020980| 00 00 02 f0 00 00 01 5b | 53 54 58 54 00 00 01 5d |.......[|STXT...]|
|00020990| 00 00 01 61 53 54 58 54 | 00 00 01 64 00 00 01 62 |...aSTXT|...d...b|
|000209a0| 53 54 58 54 00 00 01 68 | 00 00 01 65 53 54 58 54 |STXT...h|...eSTXT|
|000209b0| 00 00 01 6a 00 00 01 67 | 53 54 58 54 00 00 01 6c |...j...g|STXT...l|
|000209c0| 00 00 01 69 53 54 58 54 | 00 00 01 6e 00 00 01 6b |...iSTXT|...n...k|
|000209d0| 53 54 58 54 00 00 00 82 | 00 00 01 6d 53 54 58 54 |STXT....|...mSTXT|
|000209e0| 00 00 01 76 00 00 01 70 | 53 54 58 54 00 00 01 1d |...v...p|STXT....|
|000209f0| 00 00 01 71 53 54 58 54 | 00 00 01 77 00 00 01 72 |...qSTXT|...w...r|
|00020a00| 53 54 58 54 00 00 02 c6 | 00 00 01 75 53 54 58 54 |STXT....|...uSTXT|
|00020a10| 00 00 01 7c 00 00 01 78 | 53 54 58 54 00 00 04 9e |...|...x|STXT....|
|00020a20| 00 00 01 7d 53 54 58 54 | 00 00 01 7e 00 00 01 7f |...}STXT|...~....|
|00020a30| 53 54 58 54 00 00 01 86 | 00 00 01 80 53 54 58 54 |STXT....|....STXT|
|00020a40| 00 00 01 7b 00 00 01 81 | 53 54 58 54 00 00 01 88 |...{....|STXT....|
|00020a50| 00 00 01 8b 53 54 58 54 | 00 00 01 8c 00 00 01 8d |....STXT|........|
|00020a60| 53 54 58 54 00 00 01 8e | 00 00 01 90 53 54 58 54 |STXT....|....STXT|
|00020a70| 00 00 01 c0 00 00 01 91 | 53 54 58 54 00 00 01 92 |........|STXT....|
|00020a80| 00 00 01 93 53 54 58 54 | 00 00 01 97 00 00 01 95 |....STXT|........|
|00020a90| 53 54 58 54 00 00 01 98 | 00 00 01 99 53 54 58 54 |STXT....|....STXT|
|00020aa0| 00 00 01 9a 00 00 01 9b | 53 54 58 54 00 00 01 9f |........|STXT....|
|00020ab0| 00 00 01 9c 53 54 58 54 | 00 00 03 05 00 00 01 9d |....STXT|........|
|00020ac0| 53 54 58 54 00 00 04 1f | 00 00 01 9e 53 54 58 54 |STXT....|....STXT|
|00020ad0| 00 00 01 a0 00 00 01 a1 | 53 54 58 54 00 00 01 a9 |........|STXT....|
|00020ae0| 00 00 01 a2 53 54 58 54 | 00 00 04 6d 00 00 01 a3 |....STXT|...m....|
|00020af0| 53 54 58 54 00 00 01 a8 | 00 00 01 a4 53 54 58 54 |STXT....|....STXT|
|00020b00| 00 00 03 39 00 00 01 a5 | 53 54 58 54 00 00 06 44 |...9....|STXT...D|
|00020b10| 00 00 01 a6 53 54 58 54 | 00 00 01 aa 00 00 01 a7 |....STXT|........|
|00020b20| 53 54 58 54 00 00 01 b0 | 00 00 01 ac 53 54 58 54 |STXT....|....STXT|
|00020b30| 00 00 01 b1 00 00 01 ae | 53 54 58 54 00 00 01 b3 |........|STXT....|
|00020b40| 00 00 01 af 53 54 58 54 | 00 00 04 a4 00 00 01 b6 |....STXT|........|
|00020b50| 53 54 58 54 00 00 01 b9 | 00 00 01 ba 53 54 58 54 |STXT....|....STXT|
|00020b60| 00 00 01 bf 00 00 01 bb | 53 54 58 54 00 00 00 19 |........|STXT....|
|00020b70| 00 00 01 bc 53 54 58 54 | 00 00 02 3e 00 00 01 bd |....STXT|...>....|
|00020b80| 53 54 58 54 00 00 05 a8 | 00 00 01 be 53 54 58 54 |STXT....|....STXT|
|00020b90| 00 00 02 98 00 00 01 c3 | 53 54 58 54 00 00 01 c9 |........|STXT....|
|00020ba0| 00 00 01 c7 53 54 58 54 | 00 00 02 ef 00 00 01 cf |....STXT|........|
|00020bb0| 42 49 54 44 00 00 04 24 | 00 00 01 d1 53 54 58 54 |BITD...$|....STXT|
|00020bc0| 00 00 01 96 00 00 01 db | 53 54 58 54 00 00 05 11 |........|STXT....|
|00020bd0| 00 00 01 eb 53 54 58 54 | 00 00 02 de 00 00 01 f4 |....STXT|........|
|00020be0| 53 54 58 54 00 00 01 ed | 00 00 01 f6 53 54 58 54 |STXT....|....STXT|
|00020bf0| 00 00 04 22 00 00 01 fb | 53 54 58 54 00 00 05 13 |..."....|STXT....|
|00020c00| 00 00 02 0f 53 54 58 54 | 00 00 01 ea 00 00 02 16 |....STXT|........|
|00020c10| 53 54 58 54 00 00 04 da | 00 00 02 3a 53 54 58 54 |STXT....|...:STXT|
|00020c20| 00 00 02 4f 00 00 02 48 | 53 54 58 54 00 00 01 d9 |...O...H|STXT....|
|00020c30| 00 00 02 51 53 54 58 54 | 00 00 02 59 00 00 02 57 |...QSTXT|...Y...W|
|00020c40| 53 54 58 54 00 00 02 60 | 00 00 02 64 53 54 58 54 |STXT...`|...dSTXT|
|00020c50| 00 00 03 d2 00 00 02 74 | 53 54 58 54 00 00 03 b5 |.......t|STXT....|
|00020c60| 00 00 02 7e 53 54 58 54 | 00 00 02 a3 00 00 02 87 |...~STXT|........|
|00020c70| 53 54 58 54 00 00 00 4b | 00 00 02 89 53 54 58 54 |STXT...K|....STXT|
|00020c80| 00 00 02 85 00 00 02 8b | 53 54 58 54 00 00 02 8d |........|STXT....|
|00020c90| 00 00 02 91 53 54 58 54 | 00 00 02 8a 00 00 02 93 |....STXT|........|
|00020ca0| 53 54 58 54 00 00 02 8c | 00 00 02 95 53 54 58 54 |STXT....|....STXT|
|00020cb0| 00 00 02 8e 00 00 02 97 | 53 54 58 54 00 00 02 90 |........|STXT....|
|00020cc0| 00 00 02 99 53 54 58 54 | 00 00 02 92 00 00 02 9a |....STXT|........|
|00020cd0| 53 54 58 54 00 00 02 94 | 00 00 02 9f 53 54 58 54 |STXT....|....STXT|
|00020ce0| 00 00 02 a7 00 00 02 a0 | 53 54 58 54 00 00 02 96 |........|STXT....|
|00020cf0| 00 00 02 a1 53 54 58 54 | 00 00 03 27 00 00 02 a2 |....STXT|...'....|
|00020d00| 53 54 58 54 00 00 05 d2 | 00 00 02 a5 53 54 58 54 |STXT....|....STXT|
|00020d10| 00 00 03 32 00 00 02 a8 | 53 54 58 54 00 00 00 dd |...2....|STXT....|
|00020d20| 00 00 02 a9 53 54 58 54 | 00 00 02 a4 00 00 02 ab |....STXT|........|
|00020d30| 53 54 58 54 00 00 02 a6 | 00 00 02 ad 53 54 58 54 |STXT....|....STXT|
|00020d40| 00 00 00 76 00 00 02 af | 53 54 58 54 00 00 04 71 |...v....|STXT...q|
|00020d50| 00 00 02 b0 53 54 58 54 | 00 00 02 ac 00 00 02 b1 |....STXT|........|
|00020d60| 53 54 58 54 00 00 02 ae | 00 00 02 b3 53 54 58 54 |STXT....|....STXT|
|00020d70| 00 00 02 9c 00 00 02 b4 | 53 54 58 54 00 00 00 3e |........|STXT...>|
|00020d80| 00 00 02 b5 53 54 58 54 | 00 00 02 b8 00 00 02 b6 |....STXT|........|
|00020d90| 53 54 58 54 00 00 02 b2 | 00 00 02 b7 53 54 58 54 |STXT....|....STXT|
|00020da0| 00 00 03 1c 00 00 02 b9 | 53 54 58 54 00 00 04 0e |........|STXT....|
|00020db0| 00 00 02 ba 53 54 58 54 | 00 00 03 f5 00 00 02 bc |....STXT|........|
|00020dc0| 53 54 58 54 00 00 02 70 | 00 00 02 c1 53 54 58 54 |STXT...p|....STXT|
|00020dd0| 00 00 03 97 00 00 02 cc | 53 54 58 54 00 00 02 d3 |........|STXT....|
|00020de0| 00 00 02 d2 53 54 58 54 | 00 00 02 d5 00 00 02 d4 |....STXT|........|
|00020df0| 53 54 58 54 00 00 04 ae | 00 00 02 d6 53 54 58 54 |STXT....|....STXT|
|00020e00| 00 00 02 d8 00 00 02 d7 | 53 54 58 54 00 00 00 91 |........|STXT....|
|00020e10| 00 00 02 dc 53 54 58 54 | 00 00 02 78 00 00 02 e4 |....STXT|...x....|
|00020e20| 53 54 58 54 00 00 00 51 | 00 00 02 e7 42 49 54 44 |STXT...Q|....BITD|
|00020e30| 00 00 03 5f 00 00 02 e8 | 53 54 58 54 00 00 02 07 |..._....|STXT....|
|00020e40| 00 00 02 ec 53 54 58 54 | 00 00 04 fa 00 00 02 f2 |....STXT|........|
|00020e50| 53 54 58 54 00 00 05 45 | 00 00 02 fa 53 54 58 54 |STXT...E|....STXT|
|00020e60| 00 00 02 72 00 00 03 00 | 53 54 58 54 00 00 02 39 |...r....|STXT...9|
|00020e70| 00 00 03 01 53 54 58 54 | 00 00 02 55 00 00 03 08 |....STXT|...U....|
|00020e80| 53 54 58 54 00 00 02 6a | 00 00 03 0b 53 54 58 54 |STXT...j|....STXT|
|00020e90| 00 00 03 25 00 00 03 0c | 53 54 58 54 00 00 02 3f |...%....|STXT...?|
|00020ea0| 00 00 03 14 53 54 58 54 | 00 00 00 e0 00 00 03 15 |....STXT|........|
|00020eb0| 53 54 58 54 00 00 00 6e | 00 00 03 16 53 54 58 54 |STXT...n|....STXT|
|00020ec0| 00 00 03 82 00 00 03 1d | 53 54 58 54 00 00 00 f9 |........|STXT....|
|00020ed0| 00 00 03 1f 53 54 58 54 | 00 00 03 1b 00 00 03 20 |....STXT|....... |
|00020ee0| 53 54 58 54 00 00 03 17 | 00 00 03 21 53 54 58 54 |STXT....|...!STXT|
|00020ef0| 00 00 01 5c 00 00 03 28 | 53 54 58 54 00 00 00 b6 |...\...(|STXT....|
|00020f00| 00 00 03 29 53 54 58 54 | 00 00 03 a1 00 00 03 2f |...)STXT|......./|
|00020f10| 53 54 58 54 00 00 03 3f | 00 00 03 3a 53 54 58 54 |STXT...?|...:STXT|
|00020f20| 00 00 03 40 00 00 03 3d | 42 49 54 44 00 00 03 42 |...@...=|BITD...B|
|00020f30| 00 00 03 41 42 49 54 44 | 00 00 04 38 00 00 03 43 |...ABITD|...8...C|
|00020f40| 53 54 58 54 00 00 03 45 | 00 00 03 44 42 49 54 44 |STXT...E|...DBITD|
|00020f50| 00 00 03 48 00 00 03 47 | 42 49 54 44 00 00 05 cf |...H...G|BITD....|
|00020f60| 00 00 03 4a 53 54 58 54 | 00 00 03 07 00 00 03 4c |...JSTXT|.......L|
|00020f70| 53 54 58 54 00 00 03 53 | 00 00 03 51 53 54 58 54 |STXT...S|...QSTXT|
|00020f80| 00 00 00 93 00 00 03 55 | 53 54 58 54 00 00 03 84 |.......U|STXT....|
|00020f90| 00 00 03 59 42 49 54 44 | 00 00 04 b0 00 00 03 5b |...YBITD|.......[|
|00020fa0| 53 54 58 54 00 00 03 5a | 00 00 03 5c 42 49 54 44 |STXT...Z|...\BITD|
|00020fb0| 00 00 01 84 00 00 03 63 | 53 54 58 54 00 00 03 6f |.......c|STXT...o|
|00020fc0| 00 00 03 65 42 49 54 44 | 00 00 00 72 00 00 03 66 |...eBITD|...r...f|
|00020fd0| 42 49 54 44 00 00 03 68 | 00 00 03 67 42 49 54 44 |BITD...h|...gBITD|
|00020fe0| 00 00 03 6a 00 00 03 69 | 42 49 54 44 00 00 03 1e |...j...i|BITD....|
|00020ff0| 00 00 03 6c 53 54 58 54 | 00 00 03 6e 00 00 03 6d |...lSTXT|...n...m|
|00021000| 42 49 54 44 00 00 00 74 | 00 00 03 70 42 49 54 44 |BITD...t|...pBITD|
|00021010| 00 00 04 99 00 00 03 73 | 53 54 58 54 00 00 03 75 |.......s|STXT...u|
|00021020| 00 00 03 74 42 49 54 44 | 00 00 03 79 00 00 03 78 |...tBITD|...y...x|
|00021030| 42 49 54 44 00 00 04 4f | 00 00 03 7b 42 49 54 44 |BITD...O|...{BITD|
|00021040| 00 00 03 7e 00 00 03 7d | 42 49 54 44 00 00 03 80 |...~...}|BITD....|
|00021050| 00 00 03 7f 42 49 54 44 | 00 00 03 83 00 00 03 81 |....BITD|........|
|00021060| 42 49 54 44 00 00 03 87 | 00 00 03 86 42 49 54 44 |BITD....|....BITD|
|00021070| 00 00 02 da 00 00 03 89 | 53 54 58 54 00 00 03 8b |........|STXT....|
|00021080| 00 00 03 8a 42 49 54 44 | 00 00 03 8d 00 00 03 8c |....BITD|........|
|00021090| 42 49 54 44 00 00 03 58 | 00 00 03 90 42 49 54 44 |BITD...X|....BITD|
|000210a0| 00 00 04 5b 00 00 03 a3 | 53 54 58 54 00 00 04 be |...[....|STXT....|
|000210b0| 00 00 03 a9 53 54 58 54 | 00 00 00 50 00 00 03 bc |....STXT|...P....|
|000210c0| 53 54 58 54 00 00 04 42 | 00 00 03 c9 53 54 58 54 |STXT...B|....STXT|
|000210d0| 00 00 04 86 00 00 03 cc | 53 54 58 54 00 00 04 66 |........|STXT...f|
|000210e0| 00 00 03 d1 53 54 58 54 | 00 00 03 ed 00 00 03 eb |....STXT|........|
|000210f0| 53 54 58 54 00 00 00 96 | 00 00 03 ee 53 54 58 54 |STXT....|....STXT|
|00021100| 00 00 05 19 00 00 03 f1 | 53 54 58 54 00 00 00 05 |........|STXT....|
|00021110| 00 00 04 00 43 41 53 2a | 00 00 00 09 00 00 04 00 |....CAS*|........|
|00021120| 46 58 6d 70 00 00 00 08 | 00 00 04 00 46 6d 61 70 |FXmp....|....Fmap|
|00021130| 00 00 00 06 00 00 04 00 | 4c 63 74 78 00 00 00 04 |........|Lctx....|
|00021140| 00 00 04 00 56 57 43 46 | 00 00 00 0b 00 00 04 00 |....VWCF|........|
|00021150| 56 57 46 49 00 00 00 0f | 00 00 04 00 56 57 46 4d |VWFI....|....VWFM|
|00021160| 00 00 04 58 00 00 04 02 | 53 54 58 54 00 00 01 fd |...X....|STXT....|
|00021170| 00 00 04 06 53 54 58 54 | 00 00 03 e9 00 00 04 12 |....STXT|........|
|00021180| 53 54 58 54 00 00 04 c9 | 00 00 04 16 53 54 58 54 |STXT....|....STXT|
|00021190| 00 00 03 ea 00 00 04 19 | 53 54 58 54 00 00 03 19 |........|STXT....|
|000211a0| 00 00 04 1a 53 54 58 54 | 00 00 01 d0 00 00 04 1b |....STXT|........|
|000211b0| 53 54 58 54 00 00 04 20 | 00 00 04 1d 53 54 58 54 |STXT... |....STXT|
|000211c0| 00 00 06 24 00 00 04 1e | 53 54 58 54 00 00 05 56 |...$....|STXT...V|
|000211d0| 00 00 04 27 53 54 58 54 | 00 00 02 d9 00 00 04 28 |...'STXT|.......(|
|000211e0| 53 54 58 54 00 00 00 a3 | 00 00 04 29 53 54 58 54 |STXT....|...)STXT|
|000211f0| 00 00 00 79 00 00 04 2f | 53 54 58 54 00 00 04 55 |...y.../|STXT...U|
|00021200| 00 00 04 33 53 54 58 54 | 00 00 05 c7 00 00 04 34 |...3STXT|.......4|
|00021210| 53 54 58 54 00 00 03 91 | 00 00 04 35 42 49 54 44 |STXT....|...5BITD|
|00021220| 00 00 04 51 00 00 04 3a | 53 54 58 54 00 00 04 cf |...Q...:|STXT....|
|00021230| 00 00 04 3c 53 54 58 54 | 00 00 05 b5 00 00 04 3f |...<STXT|.......?|
|00021240| 53 54 58 54 00 00 04 14 | 00 00 04 41 53 54 58 54 |STXT....|...ASTXT|
|00021250| 00 00 06 5d 00 00 04 43 | 53 54 58 54 00 00 01 00 |...]...C|STXT....|
|00021260| 00 00 04 46 53 54 58 54 | 00 00 03 60 00 00 04 4b |...FSTXT|...`...K|
|00021270| 53 54 58 54 00 00 04 d8 | 00 00 04 57 53 54 58 54 |STXT....|...WSTXT|
|00021280| 00 00 04 62 00 00 04 5c | 53 54 58 54 00 00 05 cc |...b...\|STXT....|
|00021290| 00 00 04 5d 53 54 58 54 | 00 00 05 14 00 00 04 5e |...]STXT|.......^|
|000212a0| 53 54 58 54 00 00 04 17 | 00 00 04 60 53 54 58 54 |STXT....|...`STXT|
|000212b0| 00 00 04 36 00 00 04 64 | 53 54 58 54 00 00 04 68 |...6...d|STXT...h|
|000212c0| 00 00 04 67 53 54 58 54 | 00 00 05 5b 00 00 04 6b |...gSTXT|...[...k|
|000212d0| 53 54 58 54 00 00 05 ff | 00 00 04 6c 53 54 58 54 |STXT....|...lSTXT|
|000212e0| 00 00 04 72 00 00 04 6e | 53 54 58 54 00 00 04 25 |...r...n|STXT...%|
|000212f0| 00 00 04 6f 53 54 58 54 | 00 00 04 75 00 00 04 74 |...oSTXT|...u...t|
|00021300| 53 54 58 54 00 00 04 cd | 00 00 04 76 53 54 58 54 |STXT....|...vSTXT|
|00021310| 00 00 03 52 00 00 04 79 | 53 54 58 54 00 00 04 31 |...R...y|STXT...1|
|00021320| 00 00 04 7a 53 54 58 54 | 00 00 04 7c 00 00 04 7b |...zSTXT|...|...{|
|00021330| 53 54 58 54 00 00 04 7f | 00 00 04 7e 53 54 58 54 |STXT....|...~STXT|
|00021340| 00 00 03 10 00 00 04 83 | 53 54 58 54 00 00 04 88 |........|STXT....|
|00021350| 00 00 04 87 53 54 58 54 | 00 00 04 8a 00 00 04 89 |....STXT|........|
|00021360| 53 54 58 54 00 00 01 f0 | 00 00 04 8b 53 54 58 54 |STXT....|....STXT|
|00021370| 00 00 04 8d 00 00 04 8c | 53 54 58 54 00 00 04 8f |........|STXT....|
|00021380| 00 00 04 8e 53 54 58 54 | 00 00 04 91 00 00 04 90 |....STXT|........|
|00021390| 53 54 58 54 00 00 05 39 | 00 00 04 92 53 54 58 54 |STXT...9|....STXT|
|000213a0| 00 00 01 c1 00 00 04 93 | 53 54 58 54 00 00 04 95 |........|STXT....|
|000213b0| 00 00 04 94 53 54 58 54 | 00 00 05 e6 00 00 04 96 |....STXT|........|
|000213c0| 53 54 58 54 00 00 05 b0 | 00 00 04 97 53 54 58 54 |STXT....|....STXT|
|000213d0| 00 00 04 9d 00 00 04 98 | 53 54 58 54 00 00 04 5f |........|STXT..._|
|000213e0| 00 00 04 9b 53 54 58 54 | 00 00 04 5a 00 00 04 9c |....STXT|...Z....|
|000213f0| 53 54 58 54 00 00 02 83 | 00 00 04 9f 53 54 58 54 |STXT....|....STXT|
|00021400| 00 00 04 a1 00 00 04 a0 | 53 54 58 54 00 00 04 a3 |........|STXT....|
|00021410| 00 00 04 a2 53 54 58 54 | 00 00 06 00 00 00 04 a7 |....STXT|........|
|00021420| 53 54 58 54 00 00 04 a5 | 00 00 04 a9 53 54 58 54 |STXT....|....STXT|
|00021430| 00 00 04 a8 00 00 04 ab | 53 54 58 54 00 00 04 aa |........|STXT....|
|00021440| 00 00 04 ad 53 54 58 54 | 00 00 03 2b 00 00 04 b2 |....STXT|...+....|
|00021450| 53 54 58 54 00 00 04 b1 | 00 00 04 b3 53 54 58 54 |STXT....|....STXT|
|00021460| 00 00 05 db 00 00 04 b4 | 53 54 58 54 00 00 03 2a |........|STXT...*|
|00021470| 00 00 04 b5 53 54 58 54 | 00 00 02 ed 00 00 04 b6 |....STXT|........|
|00021480| 53 54 58 54 00 00 04 f8 | 00 00 04 b7 53 54 58 54 |STXT....|....STXT|
|00021490| 00 00 04 ba 00 00 04 bb | 53 54 58 54 00 00 05 ae |........|STXT....|
|000214a0| 00 00 04 bc 53 54 58 54 | 00 00 04 c1 00 00 04 c0 |....STXT|........|
|000214b0| 53 54 58 54 00 00 03 23 | 00 00 04 c2 53 54 58 54 |STXT...#|....STXT|
|000214c0| 00 00 04 c5 00 00 04 c3 | 53 54 58 54 00 00 02 38 |........|STXT...8|
|000214d0| 00 00 04 c4 53 54 58 54 | 00 00 04 c8 00 00 04 c6 |....STXT|........|
|000214e0| 53 54 58 54 00 00 04 fd | 00 00 04 c7 53 54 58 54 |STXT....|....STXT|
|000214f0| 00 00 04 ce 00 00 04 cc | 53 54 58 54 00 00 05 d7 |........|STXT....|
|00021500| 00 00 04 d5 53 54 58 54 | 00 00 06 01 00 00 04 d6 |....STXT|........|
|00021510| 53 54 58 54 00 00 04 d7 | 00 00 04 d9 53 54 58 54 |STXT....|....STXT|
|00021520| 00 00 03 b9 00 00 04 dc | 53 54 58 54 00 00 04 db |........|STXT....|
|00021530| 00 00 04 dd 53 54 58 54 | 00 00 03 fe 00 00 04 de |....STXT|........|
|00021540| 53 54 58 54 00 00 03 50 | 00 00 04 df 53 54 58 54 |STXT...P|....STXT|
|00021550| 00 00 01 cd 00 00 04 e0 | 53 54 58 54 00 00 05 cd |........|STXT....|
|00021560| 00 00 04 e1 53 54 58 54 | 00 00 06 38 00 00 04 e2 |....STXT|...8....|
|00021570| 53 54 58 54 00 00 05 02 | 00 00 04 e6 53 54 58 54 |STXT....|....STXT|
|00021580| 00 00 03 c3 00 00 04 e7 | 53 54 58 54 00 00 04 ec |........|STXT....|
|00021590| 00 00 04 e8 53 54 58 54 | 00 00 01 4e 00 00 04 ea |....STXT|...N....|
|000215a0| 53 54 58 54 00 00 04 ed | 00 00 04 eb 53 54 58 54 |STXT....|....STXT|
|000215b0| 00 00 00 1d 00 00 04 ef | 53 54 58 54 00 00 05 b2 |........|STXT....|
|000215c0| 00 00 04 f0 53 54 58 54 | 00 00 04 d3 00 00 04 f2 |....STXT|........|
|000215d0| 53 54 58 54 00 00 04 f4 | 00 00 04 f3 53 54 58 54 |STXT....|....STXT|
|000215e0| 00 00 01 f3 00 00 04 f5 | 53 54 58 54 00 00 02 8f |........|STXT....|
|000215f0| 00 00 04 f6 53 54 58 54 | 00 00 03 7c 00 00 04 ff |....STXT|...|....|
|00021600| 42 49 54 44 00 00 00 ab | 00 00 05 0a 53 54 58 54 |BITD....|....STXT|
|00021610| 00 00 03 7a 00 00 05 0f | 42 49 54 44 00 00 04 82 |...z....|BITD....|
|00021620| 00 00 05 10 42 49 54 44 | 00 00 02 6c 00 00 05 16 |....BITD|...l....|
|00021630| 53 54 58 54 00 00 03 34 | 00 00 05 1a 53 54 58 54 |STXT...4|....STXT|
|00021640| 00 00 01 79 00 00 05 20 | 53 54 58 54 00 00 05 6a |...y... |STXT...j|
|00021650| 00 00 05 24 42 49 54 44 | 00 00 03 0d 00 00 05 27 |...$BITD|.......'|
|00021660| 53 54 58 54 00 00 03 92 | 00 00 05 2b 42 49 54 44 |STXT....|...+BITD|
|00021670| 00 00 04 7d 00 00 05 31 | 53 54 58 54 00 00 03 85 |...}...1|STXT....|
|00021680| 00 00 05 37 53 54 58 54 | 00 00 04 81 00 00 05 3a |...7STXT|.......:|
|00021690| 53 54 58 54 00 00 04 d2 | 00 00 05 3c 53 54 58 54 |STXT....|...<STXT|
|000216a0| 00 00 00 ad 00 00 05 4b | 53 54 58 54 00 00 05 d3 |.......K|STXT....|
|000216b0| 00 00 05 60 53 54 58 54 | 00 00 05 79 00 00 05 84 |...`STXT|...y....|
|000216c0| 53 54 58 54 00 00 04 30 | 00 00 05 95 53 54 58 54 |STXT...0|....STXT|
|000216d0| 00 00 03 e1 00 00 05 ac | 53 54 58 54 00 00 04 ca |........|STXT....|
|000216e0| 00 00 05 ad 53 54 58 54 | 00 00 04 bd 00 00 05 af |....STXT|........|
|000216f0| 53 54 58 54 00 00 03 da | 00 00 05 b6 53 54 58 54 |STXT....|....STXT|
|00021700| 00 00 04 4d 00 00 05 b7 | 53 54 58 54 00 00 01 c4 |...M....|STXT....|
|00021710| 00 00 05 bc 53 54 58 54 | 00 00 01 94 00 00 05 c0 |....STXT|........|
|00021720| 53 54 58 54 00 00 03 b4 | 00 00 05 c2 53 54 58 54 |STXT....|....STXT|
|00021730| 00 00 03 8f 00 00 05 c5 | 42 49 54 44 00 00 04 e4 |........|BITD....|
|00021740| 00 00 05 c6 53 54 58 54 | 00 00 05 fa 00 00 05 d4 |....STXT|........|
|00021750| 53 54 58 54 00 00 00 8e | 00 00 05 d6 53 54 58 54 |STXT....|....STXT|
|00021760| 00 00 00 bd 00 00 05 de | 53 54 58 54 00 00 04 3b |........|STXT...;|
|00021770| 00 00 05 e5 53 54 58 54 | 00 00 01 5e 00 00 05 e7 |....STXT|...^....|
|00021780| 53 54 58 54 00 00 02 ca | 00 00 05 f4 53 54 58 54 |STXT....|....STXT|
|00021790| 00 00 06 08 00 00 05 f6 | 53 54 58 54 00 00 05 0b |........|STXT....|
|000217a0| 00 00 05 fd 53 54 58 54 | 00 00 01 b8 00 00 06 04 |....STXT|........|
|000217b0| 53 54 58 54 00 00 04 63 | 00 00 06 06 53 54 58 54 |STXT...c|....STXT|
|000217c0| 00 00 03 df 00 00 06 09 | 53 54 58 54 00 00 04 bf |........|STXT....|
|000217d0| 00 00 06 0e 53 54 58 54 | 00 00 04 48 00 00 06 10 |....STXT|...H....|
|000217e0| 53 54 58 54 00 00 03 77 | 00 00 06 11 53 54 58 54 |STXT...w|....STXT|
|000217f0| 00 00 04 2a 00 00 06 20 | 53 54 58 54 00 00 03 6b |...*... |STXT...k|
|00021800| 00 00 06 26 53 54 58 54 | 00 00 02 4c 00 00 06 29 |...&STXT|...L...)|
|00021810| 53 54 58 54 00 00 02 9e | 00 00 06 41 53 54 58 54 |STXT....|...ASTXT|
|00021820| 00 00 01 c5 00 00 06 43 | 53 54 58 54 00 00 01 cb |.......C|STXT....|
|00021830| 00 00 06 49 53 54 58 54 | 00 00 03 56 00 00 06 6d |...ISTXT|...V...m|
|00021840| 53 54 58 54 00 00 03 56 | 00 00 06 6d 53 54 58 54 |STXT...V|...mSTXT|
|00021850| 00 00 03 56 00 00 06 6d | 53 54 58 54 00 00 03 56 |...V...m|STXT...V|
|00021860| 00 00 06 6d 53 54 58 54 | 00 00 03 56 00 00 06 6d |...mSTXT|...V...m|
|00021870| 53 54 58 54 00 00 03 56 | 00 00 06 6d 53 54 58 54 |STXT...V|...mSTXT|
|00021880| 00 00 03 56 00 00 06 6d | 53 54 58 54 00 00 03 56 |...V...m|STXT...V|
|00021890| 00 00 06 6d 53 54 58 54 | 00 00 03 56 00 00 06 6d |...mSTXT|...V...m|
|000218a0| 53 54 58 54 00 00 03 56 | 00 00 06 6d 53 54 58 54 |STXT...V|...mSTXT|
|000218b0| 00 00 01 c5 00 00 06 49 | 53 54 58 54 00 00 01 c5 |.......I|STXT....|
|000218c0| 00 00 06 49 53 54 58 54 | 00 00 04 e2 00 00 06 38 |...ISTXT|.......8|
|000218d0| 53 54 58 54 66 ad 66 be | 00 e5 09 b0 00 ba 5e 00 |STXTf.f.|......^.|
|000218e0| eb 00 00 0e 00 00 00 20 | 00 1b 1e 98 54 69 6d 65 |....... |....Time|
|000218f0| 73 00 68 73 68 93 68 ad | 00 e5 09 b0 00 ba 5e 20 |s.hsh.h.|......^ |
|00021900| eb 00 00 08 00 00 00 20 | 00 1b 1e a0 53 75 6e 64 |....... |....Sund|
|00021910| 61 79 20 54 69 6d 65 00 | 00 e5 09 b0 00 ba 5e 40 |ay Time.|......^@|
|00021920| eb 00 00 07 00 00 00 20 | 00 1b 33 04 53 75 6e 64 |....... |..3.Sund|
|00021930| 61 79 20 54 69 6d 65 73 | 00 e5 09 b0 00 ba 5e 60 |ay Times|......^`|
|00021940| eb 00 00 13 00 00 00 20 | 00 1b 1e 90 00 0a 6e 0e |....... |......n.|
|00021950| ac b0 b3 b2 aa a0 9d 98 | 00 e5 09 b0 00 ba 5e 80 |........|......^.|
|00021960| eb 00 00 0e 00 00 00 20 | 00 1b 1f ac 50 6f 77 65 |....... |....Powe|
|00021970| 72 00 69 63 6f 7d 80 7a | 00 e5 09 b0 00 ba 5e a0 |r.ico}.z|......^.|
|00021980| eb 00 00 0d 00 00 00 20 | 00 1b 1f 4c 44 65 73 69 |....... |...LDesi|
|00021990| 67 6e 00 6c 76 84 8b 8f | 00 e5 09 b0 00 ba 5e c0 |gn.lv...|......^.|
|000219a0| eb 00 00 0d 00 00 00 20 | 00 1b 1f 24 53 65 6e 73 |....... |...$Sens|
|000219b0| 65 73 00 00 00 64 5f 00 | 00 e5 09 b0 00 ba 5e e0 |es...d_.|......^.|
|000219c0| eb 00 00 0f 00 00 00 20 | 00 1b 1e b8 4d 69 6e 64 |....... |....Mind|
|000219d0| 00 5c 60 63 6e 7c 83 82 | 00 e5 09 b0 00 ba 5f 00 |.\`cn|..|......_.|
|000219e0| eb 00 00 0f 00 00 00 20 | 00 1b 1f 48 42 6f 64 79 |....... |...HBody|
|000219f0| 00 71 76 81 8f 98 95 94 | 00 e5 09 b0 00 ba 5f 20 |.qv.....|......_ |
|00021a00| eb 00 00 0d 00 00 00 20 | 00 1b 1e e0 53 65 6e 73 |....... |....Sens|
|00021a10| 65 73 00 4a 3e 38 39 3b | 00 e5 09 b0 00 ba 5f 40 |es.J>89;|......_@|
|00021a20| eb 00 00 0b 00 00 00 20 | 00 1b 1e b4 70 61 72 74 |....... |....part|
|00021a30| 77 6f 72 6b 00 8d a5 b1 | 00 e5 09 b0 00 ba 5f 60 |work....|......_`|
|00021a40| eb 00 00 0b 00 00 00 20 | 00 1b 2e d4 50 61 72 74 |....... |....Part|
|00021a50| 77 6f 72 6b 56 57 43 46 | 00 00 00 50 00 50 04 5d |workVWCF|...P.P.]|
|00021a60| 00 90 00 c0 02 70 03 40 | 03 ea 06 2b 0e 00 9a 00 |.....p.@|...+....|
|00021a70| 00 01 00 00 00 00 00 ff | 00 08 01 01 00 14 cd 28 |........|.......(|
|00021a80| 04 5d 00 08 00 00 00 00 | c3 7f ff e1 00 38 0f ff |.]......|.....8..|
|00021a90| 00 c3 00 19 00 01 40 50 | 00 00 00 3c 44 84 4a 66 |......@P|...<D.Jf|
|00021aa0| 01 e0 00 00 00 00 00 00 | 00 00 00 00 43 41 53 2a |........|....CAS*|
|00021ab0| 00 00 09 08 00 00 00 16 | 00 00 00 17 00 00 03 cf |........|........|
|00021ac0| 00 00 00 18 00 00 00 13 | 00 00 00 1a 00 00 00 10 |........|........|
|00021ad0| 00 00 00 0c 00 00 00 22 | 00 00 00 24 00 00 00 25 |......."|...$...%|
|00021ae0| 00 00 00 28 00 00 00 0a | 00 00 00 2e 00 00 00 54 |...(....|.......T|
|00021af0| 00 00 00 33 00 00 00 55 | 00 00 00 56 00 00 00 4a |...3...U|...V...J|
|00021b00| 00 00 00 2a 00 00 00 20 | 00 00 00 69 00 00 02 0f |...*... |...i....|
|00021b10| 00 00 00 2d 00 00 00 70 | 00 00 00 68 00 00 00 64 |...-...p|...h...d|
|00021b20| 00 00 00 1e 00 00 00 6f | 00 00 00 21 00 00 00 26 |.......o|...!...&|
|00021b30| 00 00 00 35 00 00 00 9a | 00 00 00 7c 00 00 00 66 |...5....|...|...f|
|00021b40| 00 00 00 94 00 00 03 1a | 00 00 02 be 00 00 04 41 |........|.......A|
|00021b50| 00 00 02 ba 00 00 00 87 | 00 00 00 3a 00 00 02 e6 |........|...:....|
|00021b60| 00 00 03 ff 00 00 02 e7 | 00 00 00 53 00 00 03 3d |........|...S...=|
|00021b70| 00 00 03 41 00 00 03 44 | 00 00 03 47 00 00 03 67 |...A...D|...G...g|
|00021b80| 00 00 03 69 00 00 03 6d | 00 00 03 65 00 00 03 70 |...i...m|...e...p|
|00021b90| 00 00 00 7a 00 00 05 24 | 00 00 00 9f 00 00 00 a6 |...z...$|........|
|00021ba0| 00 00 03 74 00 00 03 78 | 00 00 05 0f 00 00 03 7b |...t...x|.......{|
|00021bb0| 00 00 00 47 00 00 00 36 | 00 00 04 ff 00 00 03 7d |...G...6|.......}|
|00021bc0| 00 00 03 7f 00 00 03 81 | 00 00 03 59 00 00 03 86 |........|...Y....|
|00021bd0| 00 00 03 8a 00 00 03 8c | 00 00 03 90 00 00 04 35 |........|.......5|
|00021be0| 00 00 05 2b 00 00 03 5c | 00 00 03 66 00 00 05 10 |...+...\|...f....|
|00021bf0| 00 00 05 c5 00 00 00 42 | 00 00 00 11 00 00 04 12 |.......B|........|
|00021c00| 00 00 04 19 00 00 03 eb | 00 00 02 69 00 00 01 cf |........|...i....|
|00021c10| 00 00 04 03 00 00 01 f6 | 00 00 02 ec 00 00 02 16 |........|........|
|00021c20| 00 00 01 eb 00 00 04 f5 | 00 00 01 f4 00 00 02 48 |........|.......H|
|00021c30| 00 00 02 51 00 00 02 57 | 00 00 02 64 00 00 03 00 |...Q...W|...d....|
|00021c40| 00 00 04 27 00 00 00 00 | 00 00 00 00 00 00 00 00 |...'....|........|
|00021c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00021dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 05 b6 |........|........|
|00021dd0| 00 00 04 1a 00 00 04 16 | 00 00 04 06 00 00 03 c9 |........|........|
|00021de0| 00 00 05 60 00 00 04 60 | 00 00 04 1b 00 00 04 1d |...`...`|........|
|00021df0| 00 00 05 95 00 00 03 f1 | 00 00 04 7a 00 00 05 e5 |........|...z....|
|00021e00| 00 00 04 b7 00 00 04 3f | 00 00 04 02 00 00 04 3c |.......?|.......<|
|00021e10| 00 00 04 3a 00 00 04 43 | 00 00 06 10 00 00 00 34 |...:...C|.......4|
|00021e20| 00 00 05 f6 00 00 04 33 | 00 00 04 8b 00 00 04 57 |.......3|.......W|
|00021e30| 00 00 04 9c 00 00 04 5d | 00 00 04 9b 00 00 03 29 |.......]|.......)|
|00021e40| 00 00 02 dc 00 00 05 c0 | 00 00 01 a5 00 00 04 5c |........|.......\|
|00021e50| 00 00 06 06 00 00 03 d1 | 00 00 01 d1 00 00 04 67 |........|.......g|
|00021e60| 00 00 04 6f 00 00 04 6e | 00 00 04 74 00 00 04 76 |...o...n|...t...v|
|00021e70| 00 00 04 79 00 00 04 7b | 00 00 05 31 00 00 04 7e |...y...{|...1...~|
|00021e80| 00 00 03 cc 00 00 04 87 | 00 00 04 89 00 00 04 8c |........|........|
|00021e90| 00 00 04 8e 00 00 04 90 | 00 00 04 92 00 00 04 94 |........|........|
|00021ea0| 00 00 04 97 00 00 03 73 | 00 00 04 96 00 00 04 98 |.......s|........|
|00021eb0| 00 00 01 7d 00 00 04 9f | 00 00 04 a0 00 00 04 a2 |...}....|........|
|00021ec0| 00 00 01 a6 00 00 04 a7 | 00 00 04 a9 00 00 04 ab |........|........|
|00021ed0| 00 00 04 ad 00 00 04 b2 | 00 00 03 5b 00 00 04 b3 |........|...[....|
|00021ee0| 00 00 06 20 00 00 05 fd | 00 00 04 b4 00 00 04 bb |... ....|........|
|00021ef0| 00 00 06 6d 00 00 05 ac | 00 00 04 bc 00 00 03 a9 |...m....|........|
|00021f00| 00 00 05 af 00 00 06 0e | 00 00 04 c0 00 00 04 c3 |........|........|
|00021f10| 00 00 04 c6 00 00 05 ad | 00 00 04 c4 00 00 04 c7 |........|........|
|00021f20| 00 00 04 6c 00 00 04 cc | 00 00 05 3c 00 00 02 74 |...l....|...<...t|
|00021f30| 00 00 04 f2 00 00 05 d4 | 00 00 04 d5 00 00 04 34 |........|.......4|
|00021f40| 00 00 06 09 00 00 04 d6 | 00 00 04 dc 00 00 04 d9 |........|........|
|00021f50| 00 00 04 de 00 00 04 e1 | 00 00 04 dd 00 00 04 df |........|........|
|00021f60| 00 00 03 0c 00 00 04 e2 | 00 00 04 e0 00 00 05 c6 |........|........|
|00021f70| 00 00 04 e6 00 00 04 e7 | 00 00 04 e8 00 00 04 eb |........|........|
|00021f80| 00 00 04 ef 00 00 04 f3 | 00 00 04 f6 00 00 02 e8 |........|........|
|00021f90| 00 00 00 9c 00 00 04 4b | 00 00 00 1c 00 00 02 89 |.......K|........|
|00021fa0| 00 00 02 d6 00 00 00 32 | 00 00 04 2f 00 00 05 d6 |.......2|.../....|
|00021fb0| 00 00 00 85 00 00 00 40 | 00 00 03 4c 00 00 00 4d |.......@|...L...M|
|00021fc0| 00 00 00 84 00 00 00 a7 | 00 00 00 38 00 00 04 b6 |........|...8....|
|00021fd0| 00 00 00 81 00 00 00 80 | 00 00 00 aa 00 00 05 0a |........|........|
|00021fe0| 00 00 05 4b 00 00 00 9e | 00 00 00 af 00 00 00 b3 |...K....|........|
|00021ff0| 00 00 00 b5 00 00 00 b7 | 00 00 00 b4 00 00 05 de |........|........|
|00022000| 00 00 00 b9 00 00 00 bf | 00 00 03 55 00 00 00 b8 |........|...U....|
|00022010| 00 00 00 ba 00 00 00 bc | 00 00 00 c2 00 00 00 c4 |........|........|
|00022020| 00 00 00 c7 00 00 05 c2 | 00 00 00 c8 00 00 00 46 |........|.......F|
|00022030| 00 00 00 c6 00 00 00 cb | 00 00 00 ce 00 00 00 cd |........|........|
|00022040| 00 00 00 d4 00 00 00 d6 | 00 00 06 26 00 00 00 db |........|...&....|
|00022050| 00 00 00 d7 00 00 00 d9 | 00 00 00 d8 00 00 00 da |........|........|
|00022060| 00 00 02 a9 00 00 03 15 | 00 00 00 e4 00 00 04 1e |........|........|
|00022070| 00 00 00 e5 00 00 00 e7 | 00 00 00 ec 00 00 00 eb |........|........|
|00022080| 00 00 00 ed 00 00 00 ef | 00 00 00 f1 00 00 00 f3 |........|........|
|00022090| 00 00 00 f6 00 00 01 03 | 00 00 00 fb 00 00 00 fd |........|........|
|000220a0| 00 00 01 01 00 00 01 05 | 00 00 00 5b 00 00 01 07 |........|...[....|
|000220b0| 00 00 01 09 00 00 01 0b | 00 00 01 0d 00 00 01 0f |........|........|
|000220c0| 00 00 01 11 00 00 01 13 | 00 00 01 15 00 00 01 14 |........|........|
|000220d0| 00 00 01 16 00 00 01 18 | 00 00 01 1a 00 00 01 1c |........|........|
|000220e0| 00 00 01 1f 00 00 01 21 | 00 00 01 71 00 00 01 75 |.......!|...q...u|
|000220f0| 00 00 01 1e 00 00 01 20 | 00 00 01 23 00 00 01 22 |....... |...#..."|
|00022100| 00 00 01 24 00 00 01 26 | 00 00 01 28 00 00 01 2a |...$...&|...(...*|
|00022110| 00 00 01 2c 00 00 01 2e | 00 00 01 30 00 00 01 32 |...,....|...0...2|
|00022120| 00 00 01 34 00 00 01 36 | 00 00 01 38 00 00 01 3a |...4...6|...8...:|
|00022130| 00 00 01 3c 00 00 01 3e | 00 00 01 40 00 00 01 42 |...<...>|...@...B|
|00022140| 00 00 01 44 00 00 01 46 | 00 00 01 48 00 00 04 ea |...D...F|...H....|
|00022150| 00 00 01 4d 00 00 01 4f | 00 00 01 51 00 00 01 53 |...M...O|...Q...S|
|00022160| 00 00 01 55 00 00 01 5a | 00 00 01 5b 00 00 01 59 |...U...Z|...[...Y|
|00022170| 00 00 03 28 00 00 01 61 | 00 00 00 e2 00 00 01 62 |...(...a|.......b|
|00022180| 00 00 00 e3 00 00 01 65 | 00 00 01 67 00 00 01 69 |.......e|...g...i|
|00022190| 00 00 01 6b 00 00 01 6d | 00 00 01 78 00 00 01 70 |...k...m|...x...p|
|000221a0| 00 00 01 72 00 00 05 84 | 00 00 01 80 00 00 05 20 |...r....|....... |
|000221b0| 00 00 01 81 00 00 01 7f | 00 00 00 5d 00 00 04 83 |........|...]....|
|000221c0| 00 00 05 3a 00 00 03 63 | 00 00 01 8b 00 00 01 8d |...:...c|........|
|000221d0| 00 00 01 90 00 00 01 91 | 00 00 01 93 00 00 01 95 |........|........|
|000221e0| 00 00 01 db 00 00 01 99 | 00 00 01 9b 00 00 01 9d |........|........|
|000221f0| 00 00 01 9c 00 00 01 9e | 00 00 01 a1 00 00 01 a3 |........|........|
|00022200| 00 00 01 a2 00 00 01 a4 | 00 00 01 a7 00 00 01 ae |........|........|
|00022210| 00 00 01 ac 00 00 01 af | 00 00 06 04 00 00 01 b6 |........|........|
|00022220| 00 00 01 ba 00 00 01 be | 00 00 01 bd 00 00 01 bb |........|........|
|00022230| 00 00 06 43 00 00 06 49 | 00 00 01 bc 00 00 01 c7 |...C...I|........|
|00022240| 00 00 05 bc 00 00 02 8b | 00 00 02 87 00 00 02 91 |........|........|
|00022250| 00 00 02 93 00 00 02 95 | 00 00 02 97 00 00 02 99 |........|........|
|00022260| 00 00 02 9a 00 00 02 9f | 00 00 02 a1 00 00 01 c3 |........|........|
|00022270| 00 00 02 a5 00 00 06 41 | 00 00 02 a0 00 00 02 ab |.......A|........|
|00022280| 00 00 02 ad 00 00 02 af | 00 00 02 b1 00 00 02 b3 |........|........|
|00022290| 00 00 02 b5 00 00 02 b7 | 00 00 02 b6 00 00 04 46 |........|.......F|
|000222a0| 00 00 02 b4 00 00 05 27 | 00 00 02 b9 00 00 03 3a |.......'|.......:|
|000222b0| 00 00 03 14 00 00 00 b1 | 00 00 04 93 00 00 04 f0 |........|........|
|000222c0| 00 00 04 b5 00 00 03 6c | 00 00 03 1d 00 00 03 1f |.......l|........|
|000222d0| 00 00 03 21 00 00 05 37 | 00 00 02 a2 00 00 03 20 |...!...7|....... |
|000222e0| 00 00 00 86 00 00 04 c2 | 00 00 00 37 00 00 03 16 |........|...7....|
|000222f0| 00 00 02 a8 00 00 02 b0 | 00 00 03 89 00 00 02 d2 |........|........|
|00022300| 00 00 02 d4 00 00 02 d7 | 00 00 04 28 00 00 00 71 |........|...(...q|
|00022310| 00 00 02 bc 00 00 03 4a | 00 00 04 29 00 00 03 43 |.......J|...)...C|
|00022320| 00 00 03 bc 00 00 03 51 | 00 00 00 5c 00 00 04 64 |.......Q|...\...d|
|00022330| 00 00 00 65 00 00 00 6b | 00 00 00 6d 00 00 00 73 |...e...k|...m...s|
|00022340| 00 00 00 7d 00 00 00 88 | 00 00 00 89 00 00 00 8d |...}....|........|
|00022350| 00 00 00 8f 00 00 01 fb | 00 00 00 98 00 00 00 9d |........|........|
|00022360| 00 00 00 a5 00 00 03 ee | 00 00 02 7e 00 00 05 f4 |........|...~....|
|00022370| 00 00 03 a3 00 00 05 b7 | 00 00 03 2f 00 00 02 c1 |........|.../....|
|00022380| 00 00 02 cc 00 00 03 08 | 00 00 02 e4 00 00 06 29 |........|.......)|
|00022390| 00 00 02 fa 00 00 05 e7 | 00 00 04 6b 00 00 03 0b |........|...k....|
|000223a0| 00 00 02 f2 00 00 05 1a | 00 00 04 5e 00 00 05 16 |........|...^....|
|000223b0| 00 00 06 11 00 00 03 01 | 00 00 02 3a 43 41 53 74 |........|...:CASt|
|000223c0| 00 00 2b f7 00 04 00 00 | 2b ed 0b 00 00 03 00 00 |..+.....|+.......|
|000223d0| 00 14 00 c2 eb c4 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000223e0| 00 02 00 07 00 00 00 00 | 00 00 2b 8d 00 00 2b 8d |........|..+...+.|
|000223f0| 00 00 2b 8d 00 00 2b 8d | 00 00 2b 8d 00 00 2b a1 |..+...+.|..+...+.|
|00022400| 00 00 2b b7 2d 2d 20 69 | 6e 63 6c 75 64 65 64 20 |..+.-- i|ncluded |
|00022410| 66 75 6e 63 74 69 6f 6e | 73 3a 0d 2d 2d 20 20 20 |function|s:.--   |
|00022420| 20 72 65 74 72 69 65 76 | 65 72 65 63 28 72 65 63 | retriev|erec(rec|
|00022430| 6f 72 64 2c 66 69 6c 65 | 2c 69 6e 64 65 78 29 3a |ord,file|,index):|
|00022440| 20 72 65 74 72 69 65 76 | 65 20 61 6e 20 65 6e 74 | retriev|e an ent|
|00022450| 69 72 65 20 72 65 63 6f | 72 64 0d 2d 2d 20 20 20 |ire reco|rd.--   |
|00022460| 20 72 65 74 72 69 65 76 | 65 28 72 65 63 6f 72 64 | retriev|e(record|
|00022470| 2c 66 69 65 6c 64 2c 66 | 69 6c 65 2c 69 6e 64 65 |,field,f|ile,inde|
|00022480| 78 29 20 20 20 3a 20 72 | 65 74 72 69 65 76 65 73 |x)   : r|etrieves|
|00022490| 20 61 20 66 69 65 6c 64 | 20 66 72 6f 6d 20 61 20 | a field| from a |
|000224a0| 72 65 63 6f 72 64 0d 2d | 2d 20 20 20 20 73 65 61 |record.-|-    sea|
|000224b0| 72 63 68 28 73 74 72 69 | 6e 67 2c 69 6e 64 65 78 |rch(stri|ng,index|
|000224c0| 6e 61 6d 65 29 20 20 20 | 20 20 20 3a 20 72 65 74 |name)   |   : ret|
|000224d0| 75 72 6e 73 20 74 68 65 | 20 72 65 63 6f 72 64 73 |urns the| records|
|000224e0| 20 66 6f 6c 6c 6f 77 69 | 6e 67 0d 2d 2d 20 20 20 | followi|ng.--   |
|000224f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00022500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00022510| 73 74 72 69 6e 67 20 69 | 6e 20 74 68 65 20 69 6e |string i|n the in|
|00022520| 64 65 78 0d 2d 2d 20 20 | 20 20 4c 6f 67 69 63 61 |dex.--  |  Logica|
|00022530| 6c 41 6e 64 28 6c 69 73 | 74 41 2c 6c 69 73 74 42 |lAnd(lis|tA,listB|
|00022540| 29 20 20 20 20 20 20 20 | 3a 20 72 65 74 75 72 6e |)       |: return|
|00022550| 73 20 61 20 6c 69 73 74 | 20 77 68 69 63 68 20 68 |s a list| which h|
|00022560| 6f 6c 64 73 20 6f 6e 6c | 79 20 6d 65 6d 62 65 72 |olds onl|y member|
|00022570| 73 20 0d 2d 2d 20 20 20 | 20 20 20 20 20 20 20 20 |s .--   |        |
|00022580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00022590| 20 20 20 20 20 20 20 20 | 65 78 69 73 74 69 6e 67 |        |existing|
|000225a0| 20 69 6e 20 62 6f 74 68 | 20 6c 69 73 74 41 20 26 | in both| listA &|
|000225b0| 20 6c 69 73 74 42 0d 2d | 2d 20 20 20 20 73 6f 72 | listB.-|-    sor|
|000225c0| 74 6c 69 6e 65 73 28 66 | 69 65 6c 64 6e 61 6d 65 |tlines(f|ieldname|
|000225d0| 29 20 20 20 20 20 20 20 | 20 20 20 3a 20 72 65 74 |)       |   : ret|
|000225e0| 75 72 6e 73 20 61 20 74 | 65 78 74 20 66 69 65 6c |urns a t|ext fiel|
|000225f0| 64 20 73 6f 72 74 65 64 | 20 6f 6e 20 74 68 65 20 |d sorted| on the |
|00022600| 66 69 72 73 74 20 69 74 | 65 6d 0d 2d 2d 20 20 20 |first it|em.--   |
|00022610| 20 73 6f 72 74 69 74 65 | 6d 73 28 6c 69 73 74 6e | sortite|ms(listn|
|00022620| 61 6d 65 29 20 20 20 20 | 20 20 20 20 20 20 20 3a |ame)    |       :|
|00022630| 20 72 65 74 75 72 6e 73 | 20 61 20 6c 69 73 74 20 | returns| a list |
|00022640| 73 6f 72 74 65 64 20 62 | 79 20 69 74 65 6d 0d 2d |sorted b|y item.-|
|00022650| 2d 20 20 20 20 42 73 65 | 61 72 63 68 28 73 74 72 |-    Bse|arch(str|
|00022660| 2c 66 69 65 6c 64 29 20 | 20 20 20 20 20 20 20 20 |,field) |        |
|00022670| 20 20 20 3a 20 72 65 74 | 75 72 6e 73 20 74 68 65 |   : ret|urns the|
|00022680| 20 6c 69 6e 65 20 6e 75 | 6d 20 6f 66 20 73 74 72 | line nu|m of str|
|00022690| 69 6e 67 20 69 6e 20 66 | 69 65 6c 64 0d 2d 2d 20 |ing in f|ield.-- |
|000226a0| 20 20 20 69 42 73 65 61 | 72 63 68 28 69 74 65 6d |   iBsea|rch(item|
|000226b0| 2c 6c 69 73 74 29 20 20 | 20 20 20 20 20 20 20 20 |,list)  |        |
|000226c0| 20 3a 20 72 65 74 75 72 | 6e 73 20 74 68 65 20 70 | : retur|ns the p|
|000226d0| 6f 73 20 6f 66 20 69 74 | 65 6d 20 69 6e 20 6c 69 |os of it|em in li|
|000226e0| 73 74 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |st.-----|--------|
|000226f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022730| 2d 2d 2d 2d 0d 2d 2d 20 | 72 65 74 72 69 65 76 65 |----.-- |retrieve|
|00022740| 72 65 63 3a 20 72 65 74 | 72 69 65 76 65 20 61 6e |rec: ret|rieve an|
|00022750| 20 65 6e 74 69 72 65 20 | 72 65 63 6f 72 64 20 66 | entire |record f|
|00022760| 72 6f 6d 20 74 68 65 20 | 64 61 74 61 62 61 73 65 |rom the |database|
|00022770| 0d 6f 6e 20 72 65 74 72 | 69 65 76 65 72 65 63 20 |.on retr|ieverec |
|00022780| 72 65 63 6f 72 64 2c 20 | 66 69 6c 65 6e 61 6d 65 |record, |filename|
|00022790| 2c 20 69 6e 64 65 78 0d | 20 20 67 6c 6f 62 61 6c |, index.|  global|
|000227a0| 20 67 50 61 74 68 2c 20 | 67 42 69 74 2c 20 67 48 | gPath, |gBit, gH|
|000227b0| 44 70 61 74 68 0d 20 20 | 0d 20 20 2d 2d 73 74 61 |Dpath.  |.  --sta|
|000227c0| 72 74 74 69 6d 65 72 0d | 20 20 2d 2d 73 65 74 20 |rttimer.|  --set |
|000227d0| 6d 79 66 69 6c 65 20 3d | 20 66 69 6c 65 69 6f 28 |myfile =| fileio(|
|000227e0| 6d 4e 65 77 2c 22 72 65 | 61 64 22 2c 67 50 61 74 |mNew,"re|ad",gPat|
|000227f0| 68 20 20 26 20 66 69 6c | 65 6e 61 6d 65 29 0d 20 |h  & fil|ename). |
|00022800| 20 73 65 74 20 6d 79 66 | 69 6c 65 20 3d 20 66 69 | set myf|ile = fi|
|00022810| 6c 65 69 6f 28 6d 4e 65 | 77 2c 22 72 65 61 64 22 |leio(mNe|w,"read"|
|00022820| 2c 67 48 44 70 61 74 68 | 20 26 20 66 69 6c 65 6e |,gHDpath| & filen|
|00022830| 61 6d 65 29 20 2d 2d 20 | 74 68 65 20 64 62 61 73 |ame) -- |the dbas|
|00022840| 65 20 69 73 20 6f 6e 20 | 74 68 65 20 68 64 20 6e |e is on |the hd n|
|00022850| 6f 77 0d 20 20 69 66 20 | 6e 6f 74 20 6f 62 6a 65 |ow.  if |not obje|
|00022860| 63 74 70 28 6d 79 66 69 | 6c 65 29 20 74 68 65 6e |ctp(myfi|le) then|
|00022870| 0d 20 20 20 20 61 6c 65 | 72 74 20 22 50 72 6f 62 |.    ale|rt "Prob|
|00022880| 6c 65 6d 20 6f 70 65 6e | 69 6e 67 20 64 61 74 61 |lem open|ing data|
|00022890| 62 61 73 65 22 0d 20 20 | 20 20 72 65 74 75 72 6e |base".  |  return|
|000228a0| 20 30 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 0d 20 | 0.  end| if.  . |
|000228b0| 20 69 66 20 69 74 65 6d | 20 72 65 63 6f 72 64 20 | if item| record |
|000228c0| 6f 66 20 66 69 65 6c 64 | 20 69 6e 64 65 78 20 3c |of field| index <|
|000228d0| 3e 20 22 22 20 74 68 65 | 6e 0d 20 20 20 20 73 65 |> "" the|n.    se|
|000228e0| 74 20 74 6d 70 20 3d 20 | 69 6e 74 65 67 65 72 28 |t tmp = |integer(|
|000228f0| 69 74 65 6d 20 72 65 63 | 6f 72 64 20 6f 66 20 66 |item rec|ord of f|
|00022900| 69 65 6c 64 20 69 6e 64 | 65 78 29 20 20 0d 20 20 |ield ind|ex)  .  |
|00022910| 65 6c 73 65 0d 20 20 20 | 20 61 6c 65 72 74 20 22 |else.   | alert "|
|00022920| 45 72 72 6f 72 20 6c 6f | 61 64 69 6e 67 20 72 65 |Error lo|ading re|
|00022930| 63 6f 72 64 3a 20 22 20 | 26 20 72 65 63 6f 72 64 |cord: " |& record|
|00022940| 20 26 20 22 20 66 72 6f | 6d 20 74 68 65 20 64 61 | & " fro|m the da|
|00022950| 74 61 62 61 73 65 22 0d | 20 20 65 6e 64 20 69 66 |tabase".|  end if|
|00022960| 0d 20 20 0d 20 20 73 65 | 74 20 65 72 72 20 3d 20 |.  .  se|t err = |
|00022970| 6d 79 66 69 6c 65 28 6d | 53 65 74 50 6f 73 69 74 |myfile(m|SetPosit|
|00022980| 69 6f 6e 2c 74 6d 70 29 | 0d 20 20 0d 20 20 69 66 |ion,tmp)|.  .  if|
|00022990| 20 65 72 72 20 74 68 65 | 6e 20 0d 20 20 20 20 61 | err the|n .    a|
|000229a0| 6c 65 72 74 20 22 50 72 | 6f 62 6c 65 6d 20 72 65 |lert "Pr|oblem re|
|000229b0| 74 72 69 65 76 69 6e 67 | 20 72 65 63 6f 72 64 20 |trieving| record |
|000229c0| 22 20 26 20 72 65 63 6f | 72 64 20 22 20 75 73 69 |" & reco|rd " usi|
|000229d0| 6e 67 20 66 69 6c 65 69 | 6f 22 0d 20 20 65 6c 73 |ng filei|o".  els|
|000229e0| 65 0d 20 20 20 20 73 65 | 74 20 74 6d 70 20 3d 20 |e.    se|t tmp = |
|000229f0| 6d 79 66 69 6c 65 28 6d | 52 65 61 64 54 6f 6b 65 |myfile(m|ReadToke|
|00022a00| 6e 2c 22 40 22 2c 22 22 | 29 20 0d 20 20 20 20 6d |n,"@",""|) .    m|
|00022a10| 79 66 69 6c 65 28 6d 44 | 69 73 70 6f 73 65 29 0d |yfile(mD|ispose).|
|00022a20| 20 20 20 20 2d 2d 70 75 | 74 20 74 68 65 20 74 69 |    --pu|t the ti|
|00022a30| 6d 65 72 20 20 20 20 0d | 20 20 20 20 72 65 74 75 |mer    .|    retu|
|00022a40| 72 6e 20 74 6d 70 0d 20 | 20 65 6e 64 20 69 66 0d |rn tmp. | end if.|
|00022a50| 20 20 0d 65 6e 64 20 72 | 65 74 72 69 65 76 65 72 |  .end r|etriever|
|00022a60| 65 63 0d 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ec..----|--------|
|00022a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022ab0| 2d 2d 2d 2d 2d 0d 0d 2d | 2d 20 72 65 74 72 69 65 |-----..-|- retrie|
|00022ac0| 76 65 3a 20 72 65 74 72 | 69 65 76 65 20 61 20 66 |ve: retr|ieve a f|
|00022ad0| 69 65 6c 64 20 66 72 6f | 6d 20 61 20 72 65 63 6f |ield fro|m a reco|
|00022ae0| 72 64 20 66 72 6f 6d 20 | 74 68 65 20 64 61 74 61 |rd from |the data|
|00022af0| 62 61 73 65 0d 6f 6e 20 | 72 65 74 72 69 65 76 65 |base.on |retrieve|
|00022b00| 20 72 65 63 6f 72 64 2c | 66 69 65 6c 64 6e 75 6d | record,|fieldnum|
|00022b10| 2c 66 69 6c 65 6e 61 6d | 65 2c 69 6e 64 65 78 0d |,filenam|e,index.|
|00022b20| 20 20 67 6c 6f 62 61 6c | 20 67 50 61 74 68 2c 20 |  global| gPath, |
|00022b30| 67 42 69 74 2c 20 67 48 | 44 70 61 74 68 0d 20 20 |gBit, gH|Dpath.  |
|00022b40| 0d 20 20 2d 2d 73 74 61 | 72 74 74 69 6d 65 72 0d |.  --sta|rttimer.|
|00022b50| 20 20 73 65 74 20 6d 79 | 66 69 6c 65 20 3d 20 66 |  set my|file = f|
|00022b60| 69 6c 65 69 6f 28 6d 4e | 65 77 2c 22 72 65 61 64 |ileio(mN|ew,"read|
|00022b70| 22 2c 67 48 44 70 61 74 | 68 20 26 20 66 69 6c 65 |",gHDpat|h & file|
|00022b80| 6e 61 6d 65 29 0d 20 20 | 69 66 20 6e 6f 74 20 6f |name).  |if not o|
|00022b90| 62 6a 65 63 74 70 28 6d | 79 66 69 6c 65 29 20 74 |bjectp(m|yfile) t|
|00022ba0| 68 65 6e 0d 20 20 20 20 | 61 6c 65 72 74 20 22 50 |hen.    |alert "P|
|00022bb0| 72 6f 62 6c 65 6d 20 6f | 70 65 6e 69 6e 67 20 64 |roblem o|pening d|
|00022bc0| 61 74 61 62 61 73 65 22 | 0d 20 20 20 20 72 65 74 |atabase"|.    ret|
|00022bd0| 75 72 6e 20 30 0d 20 20 | 65 6e 64 20 69 66 0d 20 |urn 0.  |end if. |
|00022be0| 20 0d 20 20 73 65 74 20 | 74 6d 70 20 3d 20 69 6e | .  set |tmp = in|
|00022bf0| 74 65 67 65 72 28 69 74 | 65 6d 20 72 65 63 6f 72 |teger(it|em recor|
|00022c00| 64 20 6f 66 20 66 69 65 | 6c 64 20 69 6e 64 65 78 |d of fie|ld index|
|00022c10| 29 0d 20 20 0d 20 20 73 | 65 74 20 65 72 72 20 3d |).  .  s|et err =|
|00022c20| 20 6d 79 66 69 6c 65 28 | 6d 53 65 74 50 6f 73 69 | myfile(|mSetPosi|
|00022c30| 74 69 6f 6e 2c 74 6d 70 | 29 0d 20 20 69 66 20 65 |tion,tmp|).  if e|
|00022c40| 72 72 20 74 68 65 6e 20 | 0d 20 20 20 20 61 6c 65 |rr then |.    ale|
|00022c50| 72 74 20 22 70 72 6f 62 | 6c 65 6d 20 72 65 74 72 |rt "prob|lem retr|
|00022c60| 69 65 76 69 6e 67 20 72 | 65 63 6f 72 64 22 0d 20 |ieving r|ecord". |
|00022c70| 20 65 6c 73 65 0d 20 20 | 20 20 72 65 70 65 61 74 | else.  |  repeat|
|00022c80| 20 77 69 74 68 20 69 20 | 3d 20 31 20 74 6f 20 66 | with i |= 1 to f|
|00022c90| 69 65 6c 64 6e 75 6d 0d | 20 20 20 20 20 20 73 65 |ieldnum.|      se|
|00022ca0| 74 20 74 6d 70 20 3d 20 | 6d 79 66 69 6c 65 28 6d |t tmp = |myfile(m|
|00022cb0| 52 65 61 64 4c 69 6e 65 | 29 20 0d 20 20 20 20 65 |ReadLine|) .    e|
|00022cc0| 6e 64 20 72 65 70 65 61 | 74 0d 20 20 20 20 73 65 |nd repea|t.    se|
|00022cd0| 74 20 74 6d 70 20 3d 20 | 63 68 61 72 20 31 20 74 |t tmp = |char 1 t|
|00022ce0| 6f 20 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |o (the n|umber of|
|00022cf0| 20 63 68 61 72 73 20 69 | 6e 20 74 6d 70 20 2d 20 | chars i|n tmp - |
|00022d00| 31 29 20 6f 66 20 74 6d | 70 0d 20 20 20 20 6d 79 |1) of tm|p.    my|
|00022d10| 66 69 6c 65 28 6d 44 69 | 73 70 6f 73 65 29 0d 20 |file(mDi|spose). |
|00022d20| 20 20 20 72 65 74 75 72 | 6e 20 74 6d 70 0d 20 20 |   retur|n tmp.  |
|00022d30| 65 6e 64 20 69 66 0d 65 | 6e 64 20 72 65 74 72 69 |end if.e|nd retri|
|00022d40| 65 76 65 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |eve.----|--------|
|00022d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022d70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022d90| 2d 2d 2d 2d 2d 0d 2d 2d | 20 73 65 61 72 63 68 3a |-----.--| search:|
|00022da0| 20 70 65 72 66 6f 72 6d | 73 20 61 20 73 65 61 72 | perform|s a sear|
|00022db0| 63 68 20 6f 6e 20 74 68 | 65 20 69 6e 64 65 78 65 |ch on th|e indexe|
|00022dc0| 73 0d 2d 2d 0d 2d 2d 20 | 73 79 6e 74 61 78 3a 20 |s.--.-- |syntax: |
|00022dd0| 73 65 61 72 63 68 20 20 | 73 74 72 69 6e 67 20 20 |search  |string  |
|00022de0| 69 6e 64 65 78 0d 0d 6f | 6e 20 73 65 61 72 63 68 |index..o|n search|
|00022df0| 20 73 74 72 2c 69 6e 64 | 65 78 74 6d 70 0d 20 20 | str,ind|extmp.  |
|00022e00| 0d 20 20 73 65 74 20 74 | 6d 70 20 3d 20 20 42 73 |.  set t|mp =  Bs|
|00022e10| 65 61 72 63 68 20 28 73 | 74 72 2c 69 6e 64 65 78 |earch (s|tr,index|
|00022e20| 74 6d 70 29 20 0d 20 20 | 0d 20 20 69 66 20 74 6d |tmp) .  |.  if tm|
|00022e30| 70 20 74 68 65 6e 0d 20 | 20 20 20 72 65 74 75 72 |p then. |   retur|
|00022e40| 6e 20 69 74 65 6d 20 32 | 20 74 6f 20 28 74 68 65 |n item 2| to (the|
|00022e50| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|00022e60| 20 6f 66 20 6c 69 6e 65 | 20 74 6d 70 20 6f 66 20 | of line| tmp of |
|00022e70| 66 69 65 6c 64 20 69 6e | 64 65 78 74 6d 70 29 20 |field in|dextmp) |
|00022e80| 6f 66 c2 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |of..    |        |
|00022e90| 20 20 20 20 20 20 20 20 | 20 6c 69 6e 65 20 74 6d |        | line tm|
|00022ea0| 70 20 6f 66 20 66 69 65 | 6c 64 20 69 6e 64 65 78 |p of fie|ld index|
|00022eb0| 74 6d 70 20 20 20 0d 20 | 20 65 6c 73 65 0d 20 20 |tmp   . | else.  |
|00022ec0| 20 20 72 65 74 75 72 6e | 20 30 0d 20 20 65 6e 64 |  return| 0.  end|
|00022ed0| 20 69 66 0d 20 20 0d 65 | 6e 64 20 73 65 61 72 63 | if.  .e|nd searc|
|00022ee0| 68 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |h.------|--------|
|00022ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022f10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00022f30| 2d 2d 2d 0d 6f 6e 20 4c | 6f 67 69 63 61 6c 41 6e |---.on L|ogicalAn|
|00022f40| 64 20 6c 69 73 74 41 2c | 6c 69 73 74 42 0d 20 20 |d listA,|listB.  |
|00022f50| 73 65 74 20 74 6d 70 6c | 69 73 74 20 3d 20 22 22 |set tmpl|ist = ""|
|00022f60| 0d 20 20 0d 20 20 0d 20 | 20 69 66 20 6c 69 73 74 |.  .  . | if list|
|00022f70| 41 20 3d 20 22 22 20 6f | 72 20 6c 69 73 74 41 20 |A = "" o|r listA |
|00022f80| 3d 20 30 20 74 68 65 6e | 20 72 65 74 75 72 6e 20 |= 0 then| return |
|00022f90| 22 22 0d 20 20 69 66 20 | 6c 69 73 74 42 20 3d 20 |"".  if |listB = |
|00022fa0| 22 22 20 6f 72 20 6c 69 | 73 74 42 20 3d 20 30 20 |"" or li|stB = 0 |
|00022fb0| 74 68 65 6e 20 72 65 74 | 75 72 6e 20 22 22 0d 20 |then ret|urn "". |
|00022fc0| 20 73 65 74 20 6e 75 6d | 41 20 3d 20 74 68 65 20 | set num|A = the |
|00022fd0| 6e 75 6d 62 65 72 20 6f | 66 20 69 74 65 6d 73 20 |number o|f items |
|00022fe0| 6f 66 20 6c 69 73 74 41 | 0d 20 20 73 65 74 20 6e |of listA|.  set n|
|00022ff0| 75 6d 42 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |umB = th|e number|
|00023000| 20 6f 66 20 69 74 65 6d | 73 20 6f 66 20 6c 69 73 | of item|s of lis|
|00023010| 74 42 0d 20 20 73 65 74 | 20 70 6f 73 41 20 3d 20 |tB.  set| posA = |
|00023020| 31 0d 20 20 73 65 74 20 | 70 6f 73 42 20 3d 20 31 |1.  set |posB = 1|
|00023030| 0d 20 20 0d 20 20 72 65 | 70 65 61 74 20 77 68 69 |.  .  re|peat whi|
|00023040| 6c 65 20 70 6f 73 41 20 | 3c 3d 20 6e 75 6d 41 20 |le posA |<= numA |
|00023050| 61 6e 64 20 70 6f 73 42 | 20 3c 3d 20 6e 75 6d 42 |and posB| <= numB|
|00023060| 0d 20 20 20 20 0d 20 20 | 20 20 69 66 20 69 6e 74 |.    .  |  if int|
|00023070| 65 67 65 72 28 69 74 65 | 6d 20 70 6f 73 41 20 6f |eger(ite|m posA o|
|00023080| 66 20 6c 69 73 74 41 29 | 20 3d 20 69 6e 74 65 67 |f listA)| = integ|
|00023090| 65 72 28 69 74 65 6d 20 | 70 6f 73 42 20 6f 66 20 |er(item |posB of |
|000230a0| 6c 69 73 74 42 29 20 74 | 68 65 6e 0d 20 20 20 20 |listB) t|hen.    |
|000230b0| 20 20 70 75 74 20 69 74 | 65 6d 20 70 6f 73 41 20 |  put it|em posA |
|000230c0| 6f 66 20 6c 69 73 74 41 | 20 26 20 22 2c 22 20 61 |of listA| & "," a|
|000230d0| 66 74 65 72 20 74 6d 70 | 6c 69 73 74 0d 20 20 20 |fter tmp|list.   |
|000230e0| 20 20 20 73 65 74 20 70 | 6f 73 41 20 3d 20 70 6f |   set p|osA = po|
|000230f0| 73 41 20 2b 20 31 0d 20 | 20 20 20 20 20 73 65 74 |sA + 1. |     set|
|00023100| 20 70 6f 73 42 20 3d 20 | 70 6f 73 42 20 2b 20 31 | posB = |posB + 1|
|00023110| 0d 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |.    els|e.      |
|00023120| 69 66 20 69 6e 74 65 67 | 65 72 28 69 74 65 6d 20 |if integ|er(item |
|00023130| 70 6f 73 41 20 6f 66 20 | 6c 69 73 74 41 29 20 3c |posA of |listA) <|
|00023140| 20 69 6e 74 65 67 65 72 | 28 69 74 65 6d 20 70 6f | integer|(item po|
|00023150| 73 42 20 6f 66 20 6c 69 | 73 74 42 29 20 74 68 65 |sB of li|stB) the|
|00023160| 6e 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 70 6f |n.      |  set po|
|00023170| 73 41 20 3d 20 70 6f 73 | 41 20 2b 20 31 20 20 0d |sA = pos|A + 1  .|
|00023180| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |      el|se.     |
|00023190| 20 20 20 73 65 74 20 70 | 6f 73 42 20 3d 20 70 6f |   set p|osB = po|
|000231a0| 73 42 20 2b 20 31 0d 20 | 20 20 20 20 20 65 6e 64 |sB + 1. |     end|
|000231b0| 20 69 66 0d 20 20 20 20 | 20 20 0d 20 20 20 20 65 | if.    |  .    e|
|000231c0| 6e 64 20 69 66 0d 20 20 | 20 20 0d 20 20 65 6e 64 |nd if.  |  .  end|
|000231d0| 20 72 65 70 65 61 74 20 | 0d 20 20 0d 20 20 73 65 | repeat |.  .  se|
|000231e0| 74 20 74 6d 70 6c 69 73 | 74 20 3d 20 69 74 65 6d |t tmplis|t = item|
|000231f0| 20 31 20 74 6f 20 28 74 | 68 65 20 6e 75 6d 62 65 | 1 to (t|he numbe|
|00023200| 72 20 6f 66 20 69 74 65 | 6d 73 20 6f 66 20 74 6d |r of ite|ms of tm|
|00023210| 70 6c 69 73 74 20 20 2d | 20 31 29 20 6f 66 20 74 |plist  -| 1) of t|
|00023220| 6d 70 6c 69 73 74 0d 20 | 20 2d 2d 73 65 74 20 74 |mplist. | --set t|
|00023230| 6d 70 6c 69 73 74 20 3d | 20 73 6f 72 74 69 74 65 |mplist =| sortite|
|00023240| 6d 73 20 28 74 6d 70 6c | 69 73 74 29 0d 20 20 0d |ms (tmpl|ist).  .|
|00023250| 20 20 72 65 74 75 72 6e | 20 74 6d 70 6c 69 73 74 |  return| tmplist|
|00023260| 0d 20 20 0d 65 6e 64 20 | 4c 6f 67 69 63 61 6c 41 |.  .end |LogicalA|
|00023270| 6e 64 0d 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nd..----|--------|
|00023280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00023290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000232a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000232b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000232c0| 2d 2d 2d 2d 2d 0d 6f 6e | 20 4c 6f 67 69 63 61 6c |-----.on| Logical|
|000232d0| 4f 72 20 6c 69 73 74 41 | 2c 6c 69 73 74 42 0d 20 |Or listA|,listB. |
|000232e0| 20 73 65 74 20 74 6d 70 | 6c 69 73 74 20 3d 20 22 | set tmp|list = "|
|000232f0| 22 0d 20 20 0d 20 20 0d | 20 20 2d 2d 20 69 66 20 |".  .  .|  -- if |
|00023300| 6c 69 73 74 41 20 3d 20 | 22 22 20 6f 72 20 6c 69 |listA = |"" or li|
|00023310| 73 74 41 20 3d 20 30 20 | 74 68 65 6e 20 72 65 74 |stA = 0 |then ret|
|00023320| 75 72 6e 20 22 22 0d 20 | 20 2d 2d 20 69 66 20 6c |urn "". | -- if l|
|00023330| 69 73 74 42 20 3d 20 22 | 22 20 6f 72 20 6c 69 73 |istB = "|" or lis|
|00023340| 74 42 20 3d 20 30 20 74 | 68 65 6e 20 72 65 74 75 |tB = 0 t|hen retu|
|00023350| 72 6e 20 22 22 0d 20 20 | 73 65 74 20 6e 75 6d 41 |rn "".  |set numA|
|00023360| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|00023370| 20 69 74 65 6d 73 20 6f | 66 20 6c 69 73 74 41 0d | items o|f listA.|
|00023380| 20 20 73 65 74 20 6e 75 | 6d 42 20 3d 20 74 68 65 |  set nu|mB = the|
|00023390| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|000233a0| 20 6f 66 20 6c 69 73 74 | 42 0d 20 20 73 65 74 20 | of list|B.  set |
|000233b0| 70 6f 73 41 20 3d 20 31 | 0d 20 20 73 65 74 20 70 |posA = 1|.  set p|
|000233c0| 6f 73 42 20 3d 20 31 0d | 20 20 0d 20 20 69 66 20 |osB = 1.|  .  if |
|000233d0| 6c 69 73 74 41 20 3c 3e | 20 22 22 20 61 6e 64 20 |listA <>| "" and |
|000233e0| 6c 69 73 74 42 20 3c 3e | 20 22 22 20 74 68 65 6e |listB <>| "" then|
|000233f0| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 68 69 6c |.    rep|eat whil|
|00023400| 65 20 70 6f 73 41 20 3c | 3d 20 6e 75 6d 41 20 61 |e posA <|= numA a|
|00023410| 6e 64 20 70 6f 73 42 20 | 3c 3d 20 6e 75 6d 42 20 |nd posB |<= numB |
|00023420| 20 20 0d 20 20 20 20 20 | 20 69 66 20 69 6e 74 65 |  .     | if inte|
|00023430| 67 65 72 28 69 74 65 6d | 20 70 6f 73 41 20 6f 66 |ger(item| posA of|
|00023440| 20 6c 69 73 74 41 29 20 | 3d 20 69 6e 74 65 67 65 | listA) |= intege|
|00023450| 72 28 69 74 65 6d 20 70 | 6f 73 42 20 6f 66 20 6c |r(item p|osB of l|
|00023460| 69 73 74 42 29 20 74 68 | 65 6e 0d 20 20 20 20 20 |istB) th|en.     |
|00023470| 20 20 20 70 75 74 20 69 | 74 65 6d 20 70 6f 73 41 |   put i|tem posA|
|00023480| 20 6f 66 20 6c 69 73 74 | 41 20 26 20 22 2c 22 20 | of list|A & "," |
|00023490| 61 66 74 65 72 20 74 6d | 70 6c 69 73 74 0d 20 20 |after tm|plist.  |
|000234a0| 20 20 20 20 20 20 73 65 | 74 20 70 6f 73 41 20 3d |      se|t posA =|
|000234b0| 20 70 6f 73 41 20 2b 20 | 31 0d 20 20 20 20 20 20 | posA + |1.      |
|000234c0| 20 20 73 65 74 20 70 6f | 73 42 20 3d 20 70 6f 73 |  set po|sB = pos|
|000234d0| 42 20 2b 20 31 0d 20 20 | 20 20 20 20 65 6c 73 65 |B + 1.  |    else|
|000234e0| 0d 20 20 20 20 20 20 20 | 20 69 66 20 69 6e 74 65 |.       | if inte|
|000234f0| 67 65 72 28 69 74 65 6d | 20 70 6f 73 41 20 6f 66 |ger(item| posA of|
|00023500| 20 6c 69 73 74 41 29 20 | 3c 20 69 6e 74 65 67 65 | listA) |< intege|
|00023510| 72 28 69 74 65 6d 20 70 | 6f 73 42 20 6f 66 20 6c |r(item p|osB of l|
|00023520| 69 73 74 42 29 20 74 68 | 65 6e 0d 20 20 20 20 20 |istB) th|en.     |
|00023530| 20 20 20 20 20 70 75 74 | 20 69 74 65 6d 20 70 6f |     put| item po|
|00023540| 73 41 20 6f 66 20 6c 69 | 73 74 41 20 26 20 22 2c |sA of li|stA & ",|
|00023550| 22 20 61 66 74 65 72 20 | 74 6d 70 6c 69 73 74 0d |" after |tmplist.|
|00023560| 20 20 20 20 20 20 20 20 | 20 20 73 65 74 20 70 6f |        |  set po|
|00023570| 73 41 20 3d 20 70 6f 73 | 41 20 2b 20 31 20 20 0d |sA = pos|A + 1  .|
|00023580| 20 20 20 20 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |        |else.   |
|00023590| 20 20 20 20 20 20 20 70 | 75 74 20 69 74 65 6d 20 |       p|ut item |
|000235a0| 70 6f 73 42 20 6f 66 20 | 6c 69 73 74 42 20 26 20 |posB of |listB & |
|000235b0| 22 2c 22 20 61 66 74 65 | 72 20 74 6d 70 6c 69 73 |"," afte|r tmplis|
|000235c0| 74 0d 20 20 20 20 20 20 | 20 20 20 20 73 65 74 20 |t.      |    set |
|000235d0| 70 6f 73 42 20 3d 20 70 | 6f 73 42 20 2b 20 31 0d |posB = p|osB + 1.|
|000235e0| 20 20 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |        |end if. |
|000235f0| 20 20 20 20 20 20 20 0d | 20 20 20 20 20 20 65 6e |       .|      en|
|00023600| 64 20 69 66 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |d if.   |   .    |
|00023610| 65 6e 64 20 72 65 70 65 | 61 74 20 0d 20 20 65 6e |end repe|at .  en|
|00023620| 64 20 69 66 0d 20 20 0d | 20 20 69 66 20 70 6f 73 |d if.  .|  if pos|
|00023630| 41 20 3c 3d 20 6e 75 6d | 41 20 61 6e 64 20 6c 69 |A <= num|A and li|
|00023640| 73 74 41 20 3c 3e 20 22 | 22 20 74 68 65 6e 0d 20 |stA <> "|" then. |
|00023650| 20 20 20 70 75 74 20 69 | 74 65 6d 20 70 6f 73 41 |   put i|tem posA|
|00023660| 20 74 6f 20 6e 75 6d 41 | 20 6f 66 20 6c 69 73 74 | to numA| of list|
|00023670| 41 20 26 20 22 2c 22 20 | 61 66 74 65 72 20 74 6d |A & "," |after tm|
|00023680| 70 6c 69 73 74 0d 20 20 | 65 6c 73 65 20 69 66 20 |plist.  |else if |
|00023690| 70 6f 73 42 20 3c 3d 20 | 6e 75 6d 42 20 74 68 65 |posB <= |numB the|
|000236a0| 6e 0d 20 20 20 20 70 75 | 74 20 69 74 65 6d 20 70 |n.    pu|t item p|
|000236b0| 6f 73 42 20 74 6f 20 6e | 75 6d 42 20 6f 66 20 6c |osB to n|umB of l|
|000236c0| 69 73 74 42 20 26 20 22 | 2c 22 20 61 66 74 65 72 |istB & "|," after|
|000236d0| 20 74 6d 70 6c 69 73 74 | 0d 20 20 65 6e 64 20 69 | tmplist|.  end i|
|000236e0| 66 0d 20 20 0d 20 20 73 | 65 74 20 74 6d 70 6c 69 |f.  .  s|et tmpli|
|000236f0| 73 74 20 3d 20 69 74 65 | 6d 20 31 20 74 6f 20 28 |st = ite|m 1 to (|
|00023700| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 69 74 |the numb|er of it|
|00023710| 65 6d 73 20 6f 66 20 74 | 6d 70 6c 69 73 74 20 20 |ems of t|mplist  |
|00023720| 2d 20 31 29 20 6f 66 20 | 74 6d 70 6c 69 73 74 0d |- 1) of |tmplist.|
|00023730| 20 20 2d 2d 73 65 74 20 | 74 6d 70 6c 69 73 74 20 |  --set |tmplist |
|00023740| 3d 20 73 6f 72 74 69 74 | 65 6d 73 20 28 74 6d 70 |= sortit|ems (tmp|
|00023750| 6c 69 73 74 29 0d 20 20 | 0d 20 20 72 65 74 75 72 |list).  |.  retur|
|00023760| 6e 20 74 6d 70 6c 69 73 | 74 0d 20 20 0d 65 6e 64 |n tmplis|t.  .end|
|00023770| 20 4c 6f 67 69 63 61 6c | 4f 72 0d 0d 2d 2d 2d 2d | Logical|Or..----|
|00023780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00023790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000237a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000237b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000237c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 0d 2d |--------|-----..-|
|000237d0| 2d 20 6d 6f 64 69 66 69 | 65 64 20 74 6f 20 63 6f |- modifi|ed to co|
|000237e0| 6d 70 61 72 65 20 6f 6e | 20 69 74 65 6d 20 31 20 |mpare on| item 1 |
|000237f0| 69 6e 73 74 65 61 64 20 | 6f 66 20 74 68 65 20 77 |instead |of the w|
|00023800| 68 6f 6c 65 20 6c 69 6e | 65 0d 6f 6e 20 42 73 65 |hole lin|e.on Bse|
|00023810| 61 72 63 68 20 73 74 72 | 2c 20 74 78 74 0d 20 20 |arch str|, txt.  |
|00023820| 0d 20 20 73 65 74 20 74 | 78 74 20 3d 20 74 68 65 |.  set t|xt = the|
|00023830| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 73 74 20 | number |of cast |
|00023840| 74 78 74 0d 20 20 73 65 | 74 20 73 74 61 72 74 20 |txt.  se|t start |
|00023850| 3d 20 31 0d 20 20 73 65 | 74 20 65 6e 64 20 3d 20 |= 1.  se|t end = |
|00023860| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |the numb|er of li|
|00023870| 6e 65 73 20 6f 66 20 66 | 69 65 6c 64 20 74 78 74 |nes of f|ield txt|
|00023880| 20 20 0d 20 20 73 65 74 | 20 6d 69 64 64 6c 65 20 |  .  set| middle |
|00023890| 3d 20 28 73 74 61 72 74 | 20 2b 20 65 6e 64 29 20 |= (start| + end) |
|000238a0| 2f 20 32 20 20 0d 20 20 | 0d 20 20 2d 2d 70 75 74 |/ 2  .  |.  --put|
|000238b0| 20 22 73 74 72 20 3d 20 | 22 20 26 20 73 74 72 20 | "str = |" & str |
|000238c0| 26 26 20 22 20 74 78 74 | 20 3d 20 22 20 26 26 20 |&& " txt| = " && |
|000238d0| 74 78 74 0d 20 20 2d 2d | 20 62 73 65 61 72 63 68 |txt.  --| bsearch|
|000238e0| 20 6d 65 63 68 61 6e 69 | 73 6d 0d 20 20 2d 2d 20 | mechani|sm.  -- |
|000238f0| 63 6f 6d 70 61 72 65 20 | 74 68 65 20 73 74 72 20 |compare |the str |
|00023900| 74 6f 20 74 68 65 20 6d | 69 64 64 6c 65 20 6c 69 |to the m|iddle li|
|00023910| 6e 65 20 6f 66 20 74 68 | 65 20 66 69 65 6c 64 0d |ne of th|e field.|
|00023920| 20 20 2d 2d 20 69 66 20 | 73 74 72 20 3c 20 74 68 |  -- if |str < th|
|00023930| 65 20 6d 69 64 64 6c 65 | 20 6c 69 6e 65 20 74 68 |e middle| line th|
|00023940| 65 6e 20 73 65 74 20 65 | 6e 64 20 74 6f 20 62 65 |en set e|nd to be|
|00023950| 20 74 68 65 20 6d 69 64 | 64 6c 65 0d 20 20 2d 2d | the mid|dle.  --|
|00023960| 20 69 66 20 73 74 72 20 | 3e 20 6d 69 64 64 6c 65 | if str |> middle|
|00023970| 20 74 68 65 6e 20 73 65 | 74 20 73 74 61 72 74 20 | then se|t start |
|00023980| 3d 20 6d 69 64 64 6c 65 | 0d 20 20 2d 2d 20 69 66 |= middle|.  -- if|
|00023990| 20 73 74 72 20 3d 20 6d | 69 64 64 6c 65 20 74 68 | str = m|iddle th|
|000239a0| 65 6e 20 79 6f 75 27 72 | 65 20 73 65 74 0d 20 20 |en you'r|e set.  |
|000239b0| 0d 20 20 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |.  repea|t while |
|000239c0| 73 74 72 20 3c 3e 20 69 | 74 65 6d 20 31 20 6f 66 |str <> i|tem 1 of|
|000239d0| 20 6c 69 6e 65 20 6d 69 | 64 64 6c 65 20 6f 66 20 | line mi|ddle of |
|000239e0| 66 69 65 6c 64 20 74 78 | 74 0d 20 20 20 20 0d 20 |field tx|t.    . |
|000239f0| 20 20 20 0d 20 20 20 20 | 69 66 20 73 74 72 20 3d |   .    |if str =|
|00023a00| 20 69 74 65 6d 20 31 20 | 6f 66 20 6c 69 6e 65 20 | item 1 |of line |
|00023a10| 65 6e 64 20 6f 66 20 66 | 69 65 6c 64 20 74 78 74 |end of f|ield txt|
|00023a20| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 72 65 74 75 | then.  |    retu|
|00023a30| 72 6e 20 65 6e 64 0d 20 | 20 20 20 65 6e 64 20 69 |rn end. |   end i|
|00023a40| 66 0d 20 20 20 20 0d 20 | 20 20 20 69 66 20 73 74 |f.    . |   if st|
|00023a50| 61 72 74 20 3d 20 6d 69 | 64 64 6c 65 20 74 68 65 |art = mi|ddle the|
|00023a60| 6e 0d 20 20 20 20 20 20 | 72 65 74 75 72 6e 20 30 |n.      |return 0|
|00023a70| 0d 20 20 20 20 65 6e 64 | 20 69 66 20 0d 20 20 20 |.    end| if .   |
|00023a80| 20 0d 20 20 20 20 69 66 | 20 73 74 72 20 3c 20 69 | .    if| str < i|
|00023a90| 74 65 6d 20 31 20 6f 66 | 20 6c 69 6e 65 20 6d 69 |tem 1 of| line mi|
|00023aa0| 64 64 6c 65 20 6f 66 20 | 66 69 65 6c 64 20 74 78 |ddle of |field tx|
|00023ab0| 74 20 74 68 65 6e 0d 20 | 20 20 20 20 20 73 65 74 |t then. |     set|
|00023ac0| 20 65 6e 64 20 3d 20 6d | 69 64 64 6c 65 0d 20 20 | end = m|iddle.  |
|00023ad0| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 73 65 74 |  else. |     set|
|00023ae0| 20 73 74 61 72 74 20 3d | 20 6d 69 64 64 6c 65 0d | start =| middle.|
|00023af0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 0d |    end |if.    .|
|00023b00| 20 20 20 20 0d 20 20 20 | 20 73 65 74 20 6d 69 64 |    .   | set mid|
|00023b10| 64 6c 65 20 3d 20 28 73 | 74 61 72 74 20 2b 20 65 |dle = (s|tart + e|
|00023b20| 6e 64 29 20 2f 20 32 20 | 20 0d 20 20 20 20 0d 20 |nd) / 2 | .    . |
|00023b30| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 20 20 0d 20 | end rep|eat.  . |
|00023b40| 20 69 66 20 73 74 72 20 | 3d 20 69 74 65 6d 20 31 | if str |= item 1|
|00023b50| 20 6f 66 20 6c 69 6e 65 | 20 6d 69 64 64 6c 65 20 | of line| middle |
|00023b60| 6f 66 20 66 69 65 6c 64 | 20 74 78 74 20 74 68 65 |of field| txt the|
|00023b70| 6e 0d 20 20 20 20 2d 2d | 61 6c 65 72 74 20 73 74 |n.    --|alert st|
|00023b80| 72 69 6e 67 28 6d 69 64 | 64 6c 65 29 20 20 20 20 |ring(mid|dle)    |
|00023b90| 0d 20 20 20 20 72 65 74 | 75 72 6e 20 6d 69 64 64 |.    ret|urn midd|
|00023ba0| 6c 65 0d 20 20 65 6c 73 | 65 0d 20 20 20 20 72 65 |le.  els|e.    re|
|00023bb0| 74 75 72 6e 20 30 0d 20 | 20 65 6e 64 20 69 66 0d |turn 0. | end if.|
|00023bc0| 20 20 0d 65 6e 64 20 42 | 73 65 61 72 63 68 0d 2d |  .end B|search.-|
|00023bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00023be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00023bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00023c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00023c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 20 0d |--------|-----  .|
|00023c20| 2d 2d 20 73 65 61 72 63 | 68 65 73 20 61 6e 20 69 |-- searc|hes an i|
|00023c30| 74 65 6d 20 6f 6e 20 61 | 20 6c 69 73 74 0d 6f 6e |tem on a| list.on|
|00023c40| 20 69 42 73 65 61 72 63 | 68 20 73 74 72 2c 74 78 | iBsearc|h str,tx|
|00023c50| 74 0d 20 20 0d 20 20 73 | 65 74 20 73 74 61 72 74 |t.  .  s|et start|
|00023c60| 20 3d 20 31 0d 20 20 73 | 65 74 20 65 6e 64 20 3d | = 1.  s|et end =|
|00023c70| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 69 | the num|ber of i|
|00023c80| 74 65 6d 73 20 6f 66 20 | 66 69 65 6c 64 20 74 78 |tems of |field tx|
|00023c90| 74 20 20 0d 20 20 73 65 | 74 20 6d 69 64 64 6c 65 |t  .  se|t middle|
|00023ca0| 20 3d 20 28 73 74 61 72 | 74 20 2b 20 65 6e 64 29 | = (star|t + end)|
|00023cb0| 20 2f 20 32 20 20 0d 20 | 20 0d 20 20 2d 2d 20 62 | / 2  . | .  -- b|
|00023cc0| 73 65 61 72 63 68 20 6d | 65 63 68 61 6e 69 73 6d |search m|echanism|
|00023cd0| 0d 20 20 2d 2d 20 63 6f | 6d 70 61 72 65 20 74 68 |.  -- co|mpare th|
|00023ce0| 65 20 73 74 72 20 74 6f | 20 74 68 65 20 6d 69 64 |e str to| the mid|
|00023cf0| 64 6c 65 20 6c 69 6e 65 | 20 6f 66 20 74 68 65 20 |dle line| of the |
|00023d00| 66 69 65 6c 64 0d 20 20 | 2d 2d 20 69 66 20 73 74 |field.  |-- if st|
|00023d10| 72 20 3c 20 74 68 65 20 | 6d 69 64 64 6c 65 20 6c |r < the |middle l|
|00023d20| 69 6e 65 20 74 68 65 6e | 20 73 65 74 20 65 6e 64 |ine then| set end|
|00023d30| 20 74 6f 20 62 65 20 74 | 68 65 20 6d 69 64 64 6c | to be t|he middl|
|00023d40| 65 0d 20 20 2d 2d 20 69 | 66 20 73 74 72 20 3e 20 |e.  -- i|f str > |
|00023d50| 6d 69 64 64 6c 65 20 74 | 68 65 6e 20 73 65 74 20 |middle t|hen set |
|00023d60| 73 74 61 72 74 20 3d 20 | 6d 69 64 64 6c 65 0d 20 |start = |middle. |
|00023d70| 20 2d 2d 20 69 66 20 73 | 74 72 20 3d 20 6d 69 64 | -- if s|tr = mid|
|00023d80| 64 6c 65 20 74 68 65 6e | 20 79 6f 75 27 72 65 20 |dle then| you're |
|00023d90| 73 65 74 0d 20 20 2d 2d | 73 65 74 20 73 74 72 20 |set.  --|set str |
|00023da0| 3d 20 69 6e 74 65 67 65 | 72 28 73 74 72 29 0d 20 |= intege|r(str). |
|00023db0| 20 0d 20 20 72 65 70 65 | 61 74 20 77 68 69 6c 65 | .  repe|at while|
|00023dc0| 20 73 74 72 20 3c 3e 20 | 69 6e 74 65 67 65 72 28 | str <> |integer(|
|00023dd0| 69 74 65 6d 20 6d 69 64 | 64 6c 65 20 6f 66 20 74 |item mid|dle of t|
|00023de0| 78 74 29 0d 20 20 20 20 | 70 75 74 20 73 74 61 72 |xt).    |put star|
|00023df0| 74 20 26 26 20 6d 69 64 | 64 6c 65 20 26 26 20 65 |t && mid|dle && e|
|00023e00| 6e 64 0d 20 20 20 20 69 | 66 20 73 74 72 20 3d 20 |nd.    i|f str = |
|00023e10| 69 6e 74 65 67 65 72 28 | 69 74 65 6d 20 65 6e 64 |integer(|item end|
|00023e20| 20 6f 66 20 74 78 74 29 | 20 74 68 65 6e 0d 20 20 | of txt)| then.  |
|00023e30| 20 20 20 20 72 65 74 75 | 72 6e 20 65 6e 64 0d 20 |    retu|rn end. |
|00023e40| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 0d 20 |   end i|f.    . |
|00023e50| 20 20 20 69 66 20 73 74 | 61 72 74 20 3d 20 69 6e |   if st|art = in|
|00023e60| 74 65 67 65 72 28 6d 69 | 64 64 6c 65 29 20 74 68 |teger(mi|ddle) th|
|00023e70| 65 6e 0d 20 20 20 20 20 | 20 72 65 74 75 72 6e 20 |en.     | return |
|00023e80| 30 0d 20 20 20 20 65 6e | 64 20 69 66 20 0d 20 20 |0.    en|d if .  |
|00023e90| 20 20 0d 20 20 20 20 69 | 66 20 73 74 72 20 3c 20 |  .    i|f str < |
|00023ea0| 69 6e 74 65 67 65 72 28 | 69 74 65 6d 20 20 6d 69 |integer(|item  mi|
|00023eb0| 64 64 6c 65 20 6f 66 20 | 74 78 74 29 20 74 68 65 |ddle of |txt) the|
|00023ec0| 6e 0d 20 20 20 20 20 20 | 73 65 74 20 65 6e 64 20 |n.      |set end |
|00023ed0| 3d 20 6d 69 64 64 6c 65 | 0d 20 20 20 20 65 6c 73 |= middle|.    els|
|00023ee0| 65 0d 20 20 20 20 20 20 | 73 65 74 20 73 74 61 72 |e.      |set star|
|00023ef0| 74 20 3d 20 6d 69 64 64 | 6c 65 0d 20 20 20 20 65 |t = midd|le.    e|
|00023f00| 6e 64 20 69 66 0d 20 20 | 20 20 0d 20 20 20 20 0d |nd if.  |  .    .|
|00023f10| 20 20 20 20 73 65 74 20 | 6d 69 64 64 6c 65 20 3d |    set |middle =|
|00023f20| 20 28 73 74 61 72 74 20 | 2b 20 65 6e 64 29 20 2f | (start |+ end) /|
|00023f30| 20 32 20 20 0d 20 20 20 | 20 0d 20 20 65 6e 64 20 | 2  .   | .  end |
|00023f40| 72 65 70 65 61 74 0d 20 | 20 0d 20 20 69 66 20 73 |repeat. | .  if s|
|00023f50| 74 72 20 3d 20 69 6e 74 | 65 67 65 72 28 69 74 65 |tr = int|eger(ite|
|00023f60| 6d 20 20 6d 69 64 64 6c | 65 20 6f 66 20 74 78 74 |m  middl|e of txt|
|00023f70| 29 20 74 68 65 6e 0d 20 | 20 20 20 70 75 74 20 22 |) then. |   put "|
|00023f80| 66 6f 75 6e 64 20 22 26 | 26 73 74 72 26 26 22 20 |found "&|&str&&" |
|00023f90| 69 6e 20 6c 69 73 74 22 | 20 20 20 20 0d 20 20 20 |in list"|    .   |
|00023fa0| 20 2d 2d 61 6c 65 72 74 | 20 73 74 72 69 6e 67 28 | --alert| string(|
|00023fb0| 6d 69 64 64 6c 65 29 20 | 20 20 20 0d 20 20 20 20 |middle) |   .    |
|00023fc0| 72 65 74 75 72 6e 20 6d | 69 64 64 6c 65 0d 20 20 |return m|iddle.  |
|00023fd0| 65 6c 73 65 0d 20 20 20 | 20 70 75 74 20 22 64 69 |else.   | put "di|
|00023fe0| 64 6e 27 74 20 66 69 6e | 64 20 22 26 26 73 74 72 |dn't fin|d "&&str|
|00023ff0| 0d 20 20 20 20 72 65 74 | 75 72 6e 20 30 0d 20 20 |.    ret|urn 0.  |
|00024000| 65 6e 64 20 69 66 0d 20 | 20 0d 65 6e 64 20 69 42 |end if. | .end iB|
|00024010| 73 65 61 72 63 68 0d 0d | 2d 2d 2d 2d 2d 2d 2d 2d |search..|--------|
|00024020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024060| 2d 2d 2d 2d 2d 2d 20 20 | 0d 2d 2d 20 73 6f 72 74 |------  |.-- sort|
|00024070| 6c 69 6e 65 73 0d 2d 2d | 20 74 68 69 73 20 70 65 |lines.--| this pe|
|00024080| 72 66 6f 72 6d 73 20 61 | 20 76 65 72 73 69 6f 6e |rforms a| version|
|00024090| 20 6f 66 20 62 75 62 62 | 6c 65 20 73 6f 72 74 20 | of bubb|le sort |
|000240a0| 6f 6e 20 74 68 65 20 6c | 69 6e 65 73 20 0d 2d 2d |on the l|ines .--|
|000240b0| 20 6f 66 20 61 20 66 69 | 65 6c 64 20 2d 20 69 74 | of a fi|eld - it|
|000240c0| 20 73 6f 72 74 73 20 62 | 79 20 74 68 65 20 66 69 | sorts b|y the fi|
|000240d0| 72 73 74 20 69 74 65 6d | 20 6f 6e 20 65 61 63 68 |rst item| on each|
|000240e0| 20 6c 69 6e 65 0d 0d 6f | 6e 20 73 6f 72 74 6c 69 | line..o|n sortli|
|000240f0| 6e 65 73 20 74 78 74 0d | 20 20 0d 20 20 73 65 74 |nes txt.|  .  set|
|00024100| 20 6e 75 6d 20 3d 20 74 | 68 65 20 6e 75 6d 62 65 | num = t|he numbe|
|00024110| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 66 20 66 69 |r of lin|es of fi|
|00024120| 65 6c 64 20 74 78 74 0d | 20 20 73 65 74 20 74 6d |eld txt.|  set tm|
|00024130| 70 32 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |p2 = the| number |
|00024140| 6f 66 20 63 61 73 74 20 | 74 78 74 0d 20 20 72 65 |of cast |txt.  re|
|00024150| 70 65 61 74 20 77 69 74 | 68 20 69 20 3d 20 31 20 |peat wit|h i = 1 |
|00024160| 74 6f 20 6e 75 6d 0d 20 | 20 20 20 73 65 74 20 66 |to num. |   set f|
|00024170| 6c 61 67 20 3d 20 30 20 | 0d 20 20 20 20 72 65 70 |lag = 0 |.    rep|
|00024180| 65 61 74 20 77 69 74 68 | 20 6a 20 3d 20 32 20 74 |eat with| j = 2 t|
|00024190| 6f 20 6e 75 6d 0d 20 20 | 20 20 20 20 69 66 20 69 |o num.  |    if i|
|000241a0| 74 65 6d 20 31 20 6f 66 | 20 6c 69 6e 65 20 6a 20 |tem 1 of| line j |
|000241b0| 6f 66 20 66 69 65 6c 64 | 20 74 6d 70 32 20 3c 20 |of field| tmp2 < |
|000241c0| 69 74 65 6d 20 31 20 6f | 66 20 6c 69 6e 65 20 28 |item 1 o|f line (|
|000241d0| 6a 2d 31 29 20 6f 66 20 | 66 69 65 6c 64 20 74 6d |j-1) of |field tm|
|000241e0| 70 32 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 |p2 then.|        |
|000241f0| 73 65 74 20 66 6c 61 67 | 20 3d 20 31 20 20 20 20 |set flag| = 1    |
|00024200| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 73 65 74 |    .   |     set|
|00024210| 20 74 6d 70 20 3d 20 6c | 69 6e 65 20 6a 2d 31 20 | tmp = l|ine j-1 |
|00024220| 6f 66 20 66 69 65 6c 64 | 20 74 6d 70 32 0d 20 20 |of field| tmp2.  |
|00024230| 20 20 20 20 20 20 70 75 | 74 20 6c 69 6e 65 20 6a |      pu|t line j|
|00024240| 20 6f 66 20 66 69 65 6c | 64 20 74 78 74 20 69 6e | of fiel|d txt in|
|00024250| 74 6f 20 6c 69 6e 65 20 | 28 6a 2d 31 29 20 6f 66 |to line |(j-1) of|
|00024260| 20 66 69 65 6c 64 20 74 | 6d 70 32 0d 20 20 20 20 | field t|mp2.    |
|00024270| 20 20 20 20 70 75 74 20 | 74 6d 70 20 69 6e 74 6f |    put |tmp into|
|00024280| 20 6c 69 6e 65 20 6a 20 | 6f 66 20 66 69 65 6c 64 | line j |of field|
|00024290| 20 74 6d 70 32 20 20 20 | 20 20 20 20 0d 20 20 20 | tmp2   |    .   |
|000242a0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 65 6e |   end i|f.    en|
|000242b0| 64 20 72 65 70 65 61 74 | 0d 20 20 20 20 69 66 20 |d repeat|.    if |
|000242c0| 66 6c 61 67 20 3d 20 30 | 20 74 68 65 6e 20 65 78 |flag = 0| then ex|
|000242d0| 69 74 20 72 65 70 65 61 | 74 0d 20 20 65 6e 64 20 |it repea|t.  end |
|000242e0| 72 65 70 65 61 74 0d 65 | 6e 64 20 73 6f 72 74 0d |repeat.e|nd sort.|
|000242f0| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00024300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 20 |--------|------- |
|00024340| 20 0d 2d 2d 20 73 6f 72 | 74 69 74 65 6d 73 0d 2d | .-- sor|titems.-|
|00024350| 2d 20 74 68 69 73 20 70 | 65 72 66 6f 72 6d 73 20 |- this p|erforms |
|00024360| 61 20 76 65 72 73 69 6f | 6e 20 6f 66 20 62 75 62 |a versio|n of bub|
|00024370| 62 6c 65 20 73 6f 72 74 | 20 6f 6e 20 74 68 65 20 |ble sort| on the |
|00024380| 69 74 65 6d 73 20 0d 2d | 2d 20 6f 66 20 61 20 6c |items .-|- of a l|
|00024390| 69 6e 65 0d 0d 6f 6e 20 | 73 6f 72 74 69 74 65 6d |ine..on |sortitem|
|000243a0| 73 20 74 78 74 0d 20 20 | 0d 20 20 69 66 20 74 78 |s txt.  |.  if tx|
|000243b0| 74 20 3d 20 22 22 20 74 | 68 65 6e 20 72 65 74 75 |t = "" t|hen retu|
|000243c0| 72 6e 20 22 22 0d 20 20 | 73 65 74 20 6e 75 6d 20 |rn "".  |set num |
|000243d0| 3d 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |= the nu|mber of |
|000243e0| 69 74 65 6d 73 20 6f 66 | 20 74 78 74 0d 20 20 72 |items of| txt.  r|
|000243f0| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 31 |epeat wi|th i = 1|
|00024400| 20 74 6f 20 6e 75 6d 0d | 20 20 20 20 73 65 74 20 | to num.|    set |
|00024410| 66 6c 61 67 20 3d 20 30 | 20 0d 20 20 20 20 72 65 |flag = 0| .    re|
|00024420| 70 65 61 74 20 77 69 74 | 68 20 6a 20 3d 20 32 20 |peat wit|h j = 2 |
|00024430| 74 6f 20 6e 75 6d 0d 20 | 20 20 20 20 20 69 66 20 |to num. |     if |
|00024440| 69 74 65 6d 20 6a 20 6f | 66 20 74 78 74 20 3c 20 |item j o|f txt < |
|00024450| 69 74 65 6d 20 28 6a 2d | 31 29 20 6f 66 20 74 78 |item (j-|1) of tx|
|00024460| 74 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 73 |t then. |       s|
|00024470| 65 74 20 66 6c 61 67 20 | 3d 20 31 20 20 20 20 20 |et flag |= 1     |
|00024480| 20 20 20 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |   .    |    set |
|00024490| 74 6d 70 20 3d 20 69 74 | 65 6d 20 6a 2d 31 20 6f |tmp = it|em j-1 o|
|000244a0| 66 20 74 78 74 0d 20 20 | 20 20 20 20 20 20 70 75 |f txt.  |      pu|
|000244b0| 74 20 69 74 65 6d 20 6a | 20 6f 66 20 74 78 74 20 |t item j| of txt |
|000244c0| 69 6e 74 6f 20 69 74 65 | 6d 20 28 6a 2d 31 29 20 |into ite|m (j-1) |
|000244d0| 6f 66 20 74 78 74 0d 20 | 20 20 20 20 20 20 20 70 |of txt. |       p|
|000244e0| 75 74 20 74 6d 70 20 69 | 6e 74 6f 20 69 74 65 6d |ut tmp i|nto item|
|000244f0| 20 6a 20 6f 66 20 74 78 | 74 20 20 20 20 20 20 20 | j of tx|t       |
|00024500| 20 0d 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 | .      |end if. |
|00024510| 20 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |   end r|epeat.  |
|00024520| 20 20 69 66 20 66 6c 61 | 67 20 3d 20 30 20 74 68 |  if fla|g = 0 th|
|00024530| 65 6e 20 65 78 69 74 20 | 72 65 70 65 61 74 0d 20 |en exit |repeat. |
|00024540| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 20 20 72 65 | end rep|eat.  re|
|00024550| 74 75 72 6e 20 74 78 74 | 0d 65 6e 64 20 73 6f 72 |turn txt|.end sor|
|00024560| 74 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |t.------|--------|
|00024570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000245a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000245b0| 20 20 0d 2d 2d 20 6d 65 | 72 67 65 20 20 0d 2d 2d |  .-- me|rge  .--|
|000245c0| 20 74 68 69 73 20 74 61 | 6b 65 73 20 32 20 6c 69 | this ta|kes 2 li|
|000245d0| 73 74 73 20 6f 66 20 69 | 74 65 6d 73 20 61 6e 64 |sts of i|tems and|
|000245e0| 20 6d 65 72 67 65 73 20 | 74 68 65 6d 20 2d 20 69 | merges |them - i|
|000245f0| 2e 65 2e 20 70 75 74 73 | 20 74 68 65 6d 20 74 6f |.e. puts| them to|
|00024600| 67 65 74 68 65 72 2c 0d | 2d 2d 20 61 6e 64 20 72 |gether,.|-- and r|
|00024610| 65 6d 6f 76 65 73 20 64 | 75 70 6c 69 63 61 74 65 |emoves d|uplicate|
|00024620| 73 20 74 68 65 6e 20 73 | 6f 72 74 73 20 69 74 0d |s then s|orts it.|
|00024630| 0d 6f 6e 20 6d 65 72 67 | 65 20 6c 69 73 74 41 2c |.on merg|e listA,|
|00024640| 20 6c 69 73 74 42 0d 20 | 20 0d 20 20 69 66 20 6c | listB. | .  if l|
|00024650| 69 73 74 41 20 3d 20 22 | 22 20 74 68 65 6e 20 72 |istA = "|" then r|
|00024660| 65 74 75 72 6e 20 6c 69 | 73 74 42 0d 20 20 69 66 |eturn li|stB.  if|
|00024670| 20 6c 69 73 74 42 20 3d | 20 22 22 20 74 68 65 6e | listB =| "" then|
|00024680| 20 72 65 74 75 72 6e 20 | 6c 69 73 74 41 0d 20 20 | return |listA.  |
|00024690| 73 65 74 20 6c 69 73 74 | 4e 65 77 20 3d 20 22 22 |set list|New = ""|
|000246a0| 0d 20 20 0d 20 20 73 65 | 74 20 70 6f 73 41 20 3d |.  .  se|t posA =|
|000246b0| 20 31 0d 20 20 73 65 74 | 20 70 6f 73 42 20 3d 20 | 1.  set| posB = |
|000246c0| 31 0d 20 20 73 65 74 20 | 70 6f 73 4e 65 77 20 3d |1.  set |posNew =|
|000246d0| 20 31 0d 20 20 0d 20 20 | 73 65 74 20 6e 75 6d 41 | 1.  .  |set numA|
|000246e0| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|000246f0| 20 69 74 65 6d 73 20 6f | 66 20 6c 69 73 74 41 0d | items o|f listA.|
|00024700| 20 20 73 65 74 20 6e 75 | 6d 42 20 3d 20 74 68 65 |  set nu|mB = the|
|00024710| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|00024720| 20 6f 66 20 6c 69 73 74 | 42 0d 20 20 0d 20 20 72 | of list|B.  .  r|
|00024730| 65 70 65 61 74 20 77 68 | 69 6c 65 20 70 6f 73 41 |epeat wh|ile posA|
|00024740| 20 3c 3d 20 6e 75 6d 41 | 20 61 6e 64 20 70 6f 73 | <= numA| and pos|
|00024750| 42 20 3c 3d 20 6e 75 6d | 42 0d 20 20 20 20 69 66 |B <= num|B.    if|
|00024760| 20 69 6e 74 65 67 65 72 | 28 69 74 65 6d 20 70 6f | integer|(item po|
|00024770| 73 41 20 6f 66 20 6c 69 | 73 74 41 29 20 3d 20 69 |sA of li|stA) = i|
|00024780| 6e 74 65 67 65 72 28 69 | 74 65 6d 20 70 6f 73 42 |nteger(i|tem posB|
|00024790| 20 6f 66 20 6c 69 73 74 | 42 29 20 74 68 65 6e 0d | of list|B) then.|
|000247a0| 20 20 20 20 20 20 70 75 | 74 20 69 74 65 6d 20 70 |      pu|t item p|
|000247b0| 6f 73 41 20 6f 66 20 6c | 69 73 74 41 20 26 20 22 |osA of l|istA & "|
|000247c0| 2c 22 20 61 66 74 65 72 | 20 6c 69 73 74 4e 65 77 |," after| listNew|
|000247d0| 0d 20 20 20 20 20 20 73 | 65 74 20 70 6f 73 41 20 |.      s|et posA |
|000247e0| 3d 20 70 6f 73 41 20 2b | 20 31 0d 20 20 20 20 20 |= posA +| 1.     |
|000247f0| 20 73 65 74 20 70 6f 73 | 42 20 3d 20 70 6f 73 42 | set pos|B = posB|
|00024800| 20 2b 20 31 0d 20 20 20 | 20 65 6c 73 65 20 69 66 | + 1.   | else if|
|00024810| 20 69 6e 74 65 67 65 72 | 28 69 74 65 6d 20 70 6f | integer|(item po|
|00024820| 73 41 20 6f 66 20 6c 69 | 73 74 41 29 20 3c 20 69 |sA of li|stA) < i|
|00024830| 6e 74 65 67 65 72 28 69 | 74 65 6d 20 70 6f 73 42 |nteger(i|tem posB|
|00024840| 20 6f 66 20 6c 69 73 74 | 42 29 20 74 68 65 6e 0d | of list|B) then.|
|00024850| 20 20 20 20 20 20 70 75 | 74 20 69 74 65 6d 20 70 |      pu|t item p|
|00024860| 6f 73 41 20 6f 66 20 6c | 69 73 74 41 20 26 20 22 |osA of l|istA & "|
|00024870| 2c 22 20 61 66 74 65 72 | 20 6c 69 73 74 4e 65 77 |," after| listNew|
|00024880| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 73 65 74 |      . |     set|
|00024890| 20 70 6f 73 41 20 3d 20 | 70 6f 73 41 2b 31 0d 20 | posA = |posA+1. |
|000248a0| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 70 75 |   else.|      pu|
|000248b0| 74 20 69 74 65 6d 20 70 | 6f 73 42 20 6f 66 20 6c |t item p|osB of l|
|000248c0| 69 73 74 42 20 26 20 22 | 2c 22 20 61 66 74 65 72 |istB & "|," after|
|000248d0| 20 6c 69 73 74 4e 65 77 | 20 20 20 20 20 20 0d 20 | listNew|      . |
|000248e0| 20 20 20 20 20 73 65 74 | 20 70 6f 73 42 20 3d 20 |     set| posB = |
|000248f0| 70 6f 73 42 20 2b 20 31 | 0d 20 20 20 20 65 6e 64 |posB + 1|.    end|
|00024900| 20 69 66 0d 20 20 20 20 | 73 65 74 20 70 6f 73 4e | if.    |set posN|
|00024910| 65 77 20 3d 20 70 6f 73 | 4e 65 77 20 2b 20 31 0d |ew = pos|New + 1.|
|00024920| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 0d |  end re|peat.  .|
|00024930| 20 20 69 66 20 70 6f 73 | 41 20 3c 3d 20 6e 75 6d |  if pos|A <= num|
|00024940| 41 20 74 68 65 6e 0d 20 | 20 20 20 72 65 70 65 61 |A then. |   repea|
|00024950| 74 20 77 68 69 6c 65 20 | 70 6f 73 41 20 3c 3d 20 |t while |posA <= |
|00024960| 6e 75 6d 41 0d 20 20 20 | 20 20 20 70 75 74 20 69 |numA.   |   put i|
|00024970| 74 65 6d 20 70 6f 73 41 | 20 6f 66 20 6c 69 73 74 |tem posA| of list|
|00024980| 41 20 26 20 22 2c 22 20 | 61 66 74 65 72 20 6c 69 |A & "," |after li|
|00024990| 73 74 4e 65 77 0d 20 20 | 20 20 20 20 73 65 74 20 |stNew.  |    set |
|000249a0| 70 6f 73 41 20 3d 20 70 | 6f 73 41 20 2b 20 31 0d |posA = p|osA + 1.|
|000249b0| 20 20 20 20 65 6e 64 20 | 72 65 70 65 61 74 20 20 |    end |repeat  |
|000249c0| 20 20 0d 20 20 65 6c 73 | 65 0d 20 20 20 20 72 65 |  .  els|e.    re|
|000249d0| 70 65 61 74 20 77 68 69 | 6c 65 20 70 6f 73 42 20 |peat whi|le posB |
|000249e0| 3c 3d 20 6e 75 6d 42 0d | 20 20 20 20 20 20 70 75 |<= numB.|      pu|
|000249f0| 74 20 69 74 65 6d 20 70 | 6f 73 42 20 6f 66 20 6c |t item p|osB of l|
|00024a00| 69 73 74 42 20 26 20 22 | 2c 22 20 61 66 74 65 72 |istB & "|," after|
|00024a10| 20 6c 69 73 74 4e 65 77 | 0d 20 20 20 20 20 20 73 | listNew|.      s|
|00024a20| 65 74 20 70 6f 73 42 20 | 3d 20 70 6f 73 42 20 2b |et posB |= posB +|
|00024a30| 20 31 20 20 0d 20 20 20 | 20 65 6e 64 20 72 65 70 | 1  .   | end rep|
|00024a40| 65 61 74 0d 20 20 65 6e | 64 20 69 66 0d 20 20 0d |eat.  en|d if.  .|
|00024a50| 20 20 72 65 74 75 72 6e | 20 6c 69 73 74 4e 65 77 |  return| listNew|
|00024a60| 0d 65 6e 64 20 6d 65 72 | 67 65 0d 2d 2d 2d 2d 2d |.end mer|ge.-----|
|00024a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024a90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 20 0d 0d 2d |--------|---- ..-|
|00024ac0| 2d 20 73 65 61 72 63 68 | 65 73 20 61 20 73 74 72 |- search|es a str|
|00024ad0| 69 6e 67 20 69 74 65 6d | 20 6f 6e 20 61 20 6c 69 |ing item| on a li|
|00024ae0| 73 74 0d 6f 6e 20 73 69 | 42 73 65 61 72 63 68 20 |st.on si|Bsearch |
|00024af0| 73 74 72 2c 74 78 74 0d | 20 20 0d 20 20 73 65 74 |str,txt.|  .  set|
|00024b00| 20 73 74 61 72 74 20 3d | 20 31 0d 20 20 73 65 74 | start =| 1.  set|
|00024b10| 20 65 6e 64 20 3d 20 74 | 68 65 20 6e 75 6d 62 65 | end = t|he numbe|
|00024b20| 72 20 6f 66 20 69 74 65 | 6d 73 20 6f 66 20 66 69 |r of ite|ms of fi|
|00024b30| 65 6c 64 20 74 78 74 20 | 20 0d 20 20 73 65 74 20 |eld txt | .  set |
|00024b40| 6d 69 64 64 6c 65 20 3d | 20 28 73 74 61 72 74 20 |middle =| (start |
|00024b50| 2b 20 65 6e 64 29 20 2f | 20 32 20 20 0d 20 20 0d |+ end) /| 2  .  .|
|00024b60| 20 20 2d 2d 20 62 73 65 | 61 72 63 68 20 6d 65 63 |  -- bse|arch mec|
|00024b70| 68 61 6e 69 73 6d 0d 20 | 20 2d 2d 20 63 6f 6d 70 |hanism. | -- comp|
|00024b80| 61 72 65 20 74 68 65 20 | 73 74 72 20 74 6f 20 74 |are the |str to t|
|00024b90| 68 65 20 6d 69 64 64 6c | 65 20 6c 69 6e 65 20 6f |he middl|e line o|
|00024ba0| 66 20 74 68 65 20 66 69 | 65 6c 64 0d 20 20 2d 2d |f the fi|eld.  --|
|00024bb0| 20 69 66 20 73 74 72 20 | 3c 20 74 68 65 20 6d 69 | if str |< the mi|
|00024bc0| 64 64 6c 65 20 6c 69 6e | 65 20 74 68 65 6e 20 73 |ddle lin|e then s|
|00024bd0| 65 74 20 65 6e 64 20 74 | 6f 20 62 65 20 74 68 65 |et end t|o be the|
|00024be0| 20 6d 69 64 64 6c 65 0d | 20 20 2d 2d 20 69 66 20 | middle.|  -- if |
|00024bf0| 73 74 72 20 3e 20 6d 69 | 64 64 6c 65 20 74 68 65 |str > mi|ddle the|
|00024c00| 6e 20 73 65 74 20 73 74 | 61 72 74 20 3d 20 6d 69 |n set st|art = mi|
|00024c10| 64 64 6c 65 0d 20 20 2d | 2d 20 69 66 20 73 74 72 |ddle.  -|- if str|
|00024c20| 20 3d 20 6d 69 64 64 6c | 65 20 74 68 65 6e 20 79 | = middl|e then y|
|00024c30| 6f 75 27 72 65 20 73 65 | 74 0d 20 20 0d 20 20 0d |ou're se|t.  .  .|
|00024c40| 20 20 72 65 70 65 61 74 | 20 77 68 69 6c 65 20 73 |  repeat| while s|
|00024c50| 74 72 20 3c 3e 20 28 69 | 74 65 6d 20 6d 69 64 64 |tr <> (i|tem midd|
|00024c60| 6c 65 20 6f 66 20 74 78 | 74 29 0d 20 20 20 20 70 |le of tx|t).    p|
|00024c70| 75 74 20 73 74 61 72 74 | 20 26 26 20 6d 69 64 64 |ut start| && midd|
|00024c80| 6c 65 20 26 26 20 65 6e | 64 0d 20 20 20 20 69 66 |le && en|d.    if|
|00024c90| 20 73 74 72 20 3d 20 28 | 69 74 65 6d 20 65 6e 64 | str = (|item end|
|00024ca0| 20 6f 66 20 74 78 74 29 | 20 74 68 65 6e 0d 20 20 | of txt)| then.  |
|00024cb0| 20 20 20 20 72 65 74 75 | 72 6e 20 65 6e 64 0d 20 |    retu|rn end. |
|00024cc0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 0d 20 |   end i|f.    . |
|00024cd0| 20 20 20 69 66 20 73 74 | 61 72 74 20 3d 20 28 6d |   if st|art = (m|
|00024ce0| 69 64 64 6c 65 29 20 74 | 68 65 6e 0d 20 20 20 20 |iddle) t|hen.    |
|00024cf0| 20 20 72 65 74 75 72 6e | 20 30 0d 20 20 20 20 65 |  return| 0.    e|
|00024d00| 6e 64 20 69 66 20 0d 20 | 20 20 20 0d 20 20 20 20 |nd if . |   .    |
|00024d10| 69 66 20 73 74 72 20 3c | 20 28 69 74 65 6d 20 20 |if str <| (item  |
|00024d20| 6d 69 64 64 6c 65 20 6f | 66 20 74 78 74 29 20 74 |middle o|f txt) t|
|00024d30| 68 65 6e 0d 20 20 20 20 | 20 20 73 65 74 20 65 6e |hen.    |  set en|
|00024d40| 64 20 3d 20 6d 69 64 64 | 6c 65 0d 20 20 20 20 65 |d = midd|le.    e|
|00024d50| 6c 73 65 0d 20 20 20 20 | 20 20 73 65 74 20 73 74 |lse.    |  set st|
|00024d60| 61 72 74 20 3d 20 6d 69 | 64 64 6c 65 0d 20 20 20 |art = mi|ddle.   |
|00024d70| 20 65 6e 64 20 69 66 0d | 20 20 20 20 0d 20 20 20 | end if.|    .   |
|00024d80| 20 0d 20 20 20 20 73 65 | 74 20 6d 69 64 64 6c 65 | .    se|t middle|
|00024d90| 20 3d 20 28 73 74 61 72 | 74 20 2b 20 65 6e 64 29 | = (star|t + end)|
|00024da0| 20 2f 20 32 20 20 0d 20 | 20 20 20 0d 20 20 65 6e | / 2  . |   .  en|
|00024db0| 64 20 72 65 70 65 61 74 | 0d 20 20 0d 20 20 69 66 |d repeat|.  .  if|
|00024dc0| 20 73 74 72 20 3d 20 28 | 69 74 65 6d 20 20 6d 69 | str = (|item  mi|
|00024dd0| 64 64 6c 65 20 6f 66 20 | 74 78 74 29 20 74 68 65 |ddle of |txt) the|
|00024de0| 6e 0d 20 20 20 20 70 75 | 74 20 22 66 6f 75 6e 64 |n.    pu|t "found|
|00024df0| 20 22 26 26 73 74 72 26 | 26 22 20 69 6e 20 6c 69 | "&&str&|&" in li|
|00024e00| 73 74 22 20 20 20 20 0d | 20 20 20 20 2d 2d 61 6c |st"    .|    --al|
|00024e10| 65 72 74 20 73 74 72 69 | 6e 67 28 6d 69 64 64 6c |ert stri|ng(middl|
|00024e20| 65 29 20 20 20 20 0d 20 | 20 20 20 72 65 74 75 72 |e)    . |   retur|
|00024e30| 6e 20 6d 69 64 64 6c 65 | 0d 20 20 65 6c 73 65 0d |n middle|.  else.|
|00024e40| 20 20 20 20 70 75 74 20 | 22 64 69 64 6e 27 74 20 |    put |"didn't |
|00024e50| 66 69 6e 64 20 22 26 26 | 73 74 72 0d 20 20 20 20 |find "&&|str.    |
|00024e60| 72 65 74 75 72 6e 20 30 | 0d 20 20 65 6e 64 20 69 |return 0|.  end i|
|00024e70| 66 0d 20 20 0d 65 6e 64 | 20 73 69 42 73 65 61 72 |f.  .end| siBsear|
|00024e80| 63 68 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ch.-----|--------|
|00024e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00024ed0| 2d 2d 2d 2d 20 0d 6f 6e | 20 66 69 6e 64 20 73 74 |---- .on| find st|
|00024ee0| 72 2c 74 78 74 0d 20 20 | 72 65 70 65 61 74 20 77 |r,txt.  |repeat w|
|00024ef0| 69 74 68 20 69 20 3d 20 | 31 20 74 6f 20 74 68 65 |ith i = |1 to the|
|00024f00| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|00024f10| 20 6f 66 20 66 69 65 6c | 64 20 74 78 74 0d 20 20 | of fiel|d txt.  |
|00024f20| 20 20 69 66 20 73 74 72 | 20 3d 20 69 74 65 6d 20 |  if str| = item |
|00024f30| 69 20 6f 66 20 66 69 65 | 6c 64 20 74 78 74 20 74 |i of fie|ld txt t|
|00024f40| 68 65 6e 20 0d 20 20 20 | 20 20 20 70 75 74 20 69 |hen .   |   put i|
|00024f50| 0d 20 20 20 20 20 20 65 | 78 69 74 20 72 65 70 65 |.      e|xit repe|
|00024f60| 61 74 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |at.    e|nd if.  |
|00024f70| 65 6e 64 20 72 65 70 65 | 61 74 0d 20 20 72 65 74 |end repe|at.  ret|
|00024f80| 75 72 6e 20 2d 31 0d 65 | 6e 64 20 66 69 6e 64 0d |urn -1.e|nd find.|
|00024f90| 20 00 2a 00 04 01 dc 02 | 7c 00 00 02 a0 00 00 02 | .*.....||.......|
|00024fa0| a7 00 00 00 00 00 01 00 | 00 00 00 00 0b 00 09 00 |........|........|
|00024fb0| 04 00 00 00 09 00 00 00 | 00 00 00 66 43 41 53 74 |........|...fCASt|
|00024fc0| 00 00 4c f9 00 04 00 00 | 4c ef 0b 00 00 03 00 00 |..L.....|L.......|
|00024fd0| 00 14 00 c2 eb c0 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00024fe0| 00 03 00 07 00 00 00 00 | 00 00 4a ff 00 00 4a ff |........|..J...J.|
|00024ff0| 00 00 4a ff 00 00 4a ff | 00 00 4a ff 00 00 4b 13 |..J...J.|..J...K.|
|00025000| 00 00 4c b9 2d 2d 20 50 | 61 72 73 65 72 0d 2d 2d |..L.-- P|arser.--|
|00025010| 20 45 6c 61 6e 20 44 65 | 6b 65 6c 0d 2d 2d 20 32 | Elan De|kel.-- 2|
|00025020| 37 2f 38 2f 39 35 0d 2d | 2d 0d 2d 2d 20 74 68 69 |7/8/95.-|-.-- thi|
|00025030| 73 20 77 69 6c 6c 20 72 | 65 61 64 20 74 68 65 20 |s will r|ead the |
|00025040| 64 61 74 61 62 61 73 65 | 20 73 63 72 69 70 74 20 |database| script |
|00025050| 66 69 6c 65 20 61 6e 64 | 20 67 65 74 20 61 6c 6c |file and| get all|
|00025060| 20 74 68 65 20 75 73 65 | 66 75 6c 20 0d 2d 2d 20 | the use|ful .-- |
|00025070| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 6f 6e 20 74 |informat|ion on t|
|00025080| 68 65 20 64 61 74 61 62 | 61 73 65 20 66 69 6c 65 |he datab|ase file|
|00025090| 2c 20 6e 61 6d 65 6c 79 | 3a 0d 2d 2d 0d 2d 2d 20 |, namely|:.--.-- |
|000250a0| 61 29 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |a) the n|umber of|
|000250b0| 20 63 68 61 70 74 65 72 | 73 0d 2d 2d 20 62 29 20 | chapter|s.-- b) |
|000250c0| 74 68 65 20 63 68 61 70 | 74 65 72 20 6e 61 6d 65 |the chap|ter name|
|000250d0| 73 0d 2d 2d 20 63 29 20 | 74 68 65 20 6e 75 6d 62 |s.-- c) |the numb|
|000250e0| 65 72 20 6f 66 20 61 72 | 74 69 63 6c 65 73 20 69 |er of ar|ticles i|
|000250f0| 6e 20 65 61 63 68 20 63 | 68 61 70 74 65 72 0d 2d |n each c|hapter.-|
|00025100| 2d 20 64 29 20 77 68 69 | 63 68 20 61 72 74 69 63 |- d) whi|ch artic|
|00025110| 6c 65 73 20 61 72 65 20 | 70 69 63 74 75 72 65 73 |les are |pictures|
|00025120| 2c 20 63 75 74 74 69 6e | 67 73 2c 20 51 54 27 73 |, cuttin|gs, QT's|
|00025130| 2c 20 6f 72 20 73 6f 75 | 6e 64 73 0d 2d 2d 20 65 |, or sou|nds.-- e|
|00025140| 29 20 74 68 65 20 63 61 | 70 74 69 6f 6e 73 0d 2d |) the ca|ptions.-|
|00025150| 2d 20 66 29 20 74 68 65 | 20 61 72 74 69 63 6c 65 |- f) the| article|
|00025160| 20 64 61 74 65 20 61 6e | 64 20 6e 65 77 73 70 61 | date an|d newspa|
|00025170| 70 65 72 20 6e 61 6d 65 | 0d 2d 2d 20 67 29 20 74 |per name|.-- g) t|
|00025180| 68 65 20 6e 61 6d 65 20 | 6f 66 20 74 68 65 20 61 |he name |of the a|
|00025190| 72 74 69 63 6c 65 20 66 | 69 6c 65 20 6f 6e 20 64 |rticle f|ile on d|
|000251a0| 69 73 6b 0d 2d 2d 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |isk.--.-|--------|
|000251b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000251c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000251d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000251e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000251f0| 2d 2d 2d 2d 2d 2d 2d 0d | 6f 6e 20 42 61 74 63 68 |-------.|on Batch|
|00025200| 50 72 6f 63 65 73 73 20 | 77 6f 72 6c 64 2c 73 74 |Process |world,st|
|00025210| 61 72 74 6e 75 6d 0d 20 | 20 0d 20 20 70 75 74 20 |artnum. | .  put |
|00025220| 77 6f 72 6c 64 0d 20 20 | 73 65 74 20 74 68 65 20 |world.  |set the |
|00025230| 74 65 78 74 20 6f 66 20 | 66 69 65 6c 64 20 28 22 |text of |field ("|
|00025240| 63 75 74 74 69 6e 67 69 | 6e 64 65 78 22 26 77 6f |cuttingi|ndex"&wo|
|00025250| 72 6c 64 29 20 3d 20 22 | 22 0d 20 20 73 65 74 20 |rld) = "|".  set |
|00025260| 74 68 65 20 74 65 78 74 | 20 6f 66 20 66 69 65 6c |the text| of fiel|
|00025270| 64 20 22 42 61 74 63 68 | 45 72 72 6f 72 73 22 20 |d "Batch|Errors" |
|00025280| 3d 20 22 22 0d 20 20 42 | 61 74 63 68 50 61 72 73 |= "".  B|atchPars|
|00025290| 65 20 28 77 6f 72 6c 64 | 29 2c 73 74 61 72 74 6e |e (world|),startn|
|000252a0| 75 6d 0d 20 20 2d 2d 20 | 42 61 74 63 68 49 6e 64 |um.  -- |BatchInd|
|000252b0| 65 78 0d 20 20 0d 65 6e | 64 0d 2d 2d 2d 2d 2d 2d |ex.  .en|d.------|
|000252c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000252d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000252e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000252f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 6f 6e 20 50 72 |--------|--.on Pr|
|00025310| 6f 63 65 73 73 50 65 72 | 73 6f 6e 20 66 6e 61 6d |ocessPer|son fnam|
|00025320| 65 0d 20 20 0d 20 20 63 | 75 72 73 6f 72 20 34 20 |e.  .  c|ursor 4 |
|00025330| 2d 2d 20 63 6c 6f 63 6b | 0d 20 20 69 66 20 50 61 |-- clock|.  if Pa|
|00025340| 72 73 65 66 69 6c 65 20 | 28 66 6e 61 6d 65 20 26 |rsefile |(fname &|
|00025350| 20 22 2e 53 43 52 22 29 | 20 3d 20 2d 31 20 74 68 | ".SCR")| = -1 th|
|00025360| 65 6e 0d 20 20 20 20 61 | 6c 65 72 74 20 22 70 72 |en.    a|lert "pr|
|00025370| 6f 62 6c 65 6d 20 77 69 | 74 68 20 73 63 72 69 70 |oblem wi|th scrip|
|00025380| 74 20 66 69 6c 65 22 0d | 20 20 20 20 63 75 72 73 |t file".|    curs|
|00025390| 6f 72 20 30 0d 20 20 20 | 20 67 6f 20 74 6f 20 66 |or 0.   | go to f|
|000253a0| 72 61 6d 65 20 32 0d 20 | 20 20 20 61 62 6f 72 74 |rame 2. |   abort|
|000253b0| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 0d 20 20 69 |.  end i|f.  .  i|
|000253c0| 66 20 4d 61 6b 65 49 6e | 64 65 78 20 28 66 6e 61 |f MakeIn|dex (fna|
|000253d0| 6d 65 20 26 20 22 2e 54 | 58 54 22 29 20 3d 20 2d |me & ".T|XT") = -|
|000253e0| 31 20 74 68 65 6e 0d 20 | 20 20 20 61 6c 65 72 74 |1 then. |   alert|
|000253f0| 20 22 70 72 6f 62 6c 65 | 6d 20 77 69 74 68 20 74 | "proble|m with t|
|00025400| 65 78 74 20 63 75 74 74 | 69 6e 67 73 20 66 69 6c |ext cutt|ings fil|
|00025410| 65 22 0d 20 20 20 20 63 | 75 72 73 6f 72 20 30 0d |e".    c|ursor 0.|
|00025420| 20 20 20 20 67 6f 20 74 | 6f 20 66 72 61 6d 65 20 |    go t|o frame |
|00025430| 32 0d 20 20 20 20 61 62 | 6f 72 74 0d 20 20 65 6e |2.    ab|ort.  en|
|00025440| 64 20 69 66 0d 20 20 0d | 20 20 63 75 72 73 6f 72 |d if.  .|  cursor|
|00025450| 20 30 0d 65 6e 64 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | 0.end.-|--------|
|00025460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000254a0| 2d 2d 2d 2d 2d 2d 2d 0d | 2d 2d 20 74 68 69 73 20 |-------.|-- this |
|000254b0| 70 61 72 73 65 73 20 61 | 6c 6c 20 74 68 65 20 66 |parses a|ll the f|
|000254c0| 69 6c 65 73 20 69 6e 20 | 74 68 65 20 63 75 72 72 |iles in |the curr|
|000254d0| 65 6e 74 20 64 69 72 65 | 63 74 6f 72 79 0d 6f 6e |ent dire|ctory.on|
|000254e0| 20 42 61 74 63 68 50 61 | 72 73 65 20 77 6f 72 6c | BatchPa|rse worl|
|000254f0| 64 2c 20 73 74 61 72 74 | 6e 75 6d 0d 20 20 67 6c |d, start|num.  gl|
|00025500| 6f 62 61 6c 20 67 4d 61 | 6b 65 72 4e 61 6d 65 2c |obal gMa|kerName,|
|00025510| 20 6d 50 61 74 68 2c 20 | 67 4d 61 6b 65 72 4e 75 | mPath, |gMakerNu|
|00025520| 6d 0d 20 20 0d 20 20 73 | 65 74 20 6d 70 61 74 68 |m.  .  s|et mpath|
|00025530| 20 3d 20 74 68 65 20 70 | 61 74 68 6e 61 6d 65 20 | = the p|athname |
|00025540| 26 20 77 6f 72 6c 64 20 | 26 20 22 3a 22 0d 20 20 |& world |& ":".  |
|00025550| 70 75 74 20 5b 5d 20 69 | 6e 74 6f 20 66 69 6c 65 |put [] i|nto file|
|00025560| 4c 69 73 74 0d 20 20 0d | 20 20 73 65 74 20 6e 75 |List.  .|  set nu|
|00025570| 6d 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |m = the |number o|
|00025580| 66 20 6c 69 6e 65 73 20 | 6f 66 20 66 69 65 6c 64 |f lines |of field|
|00025590| 20 22 66 69 6c 65 6e 61 | 6d 65 73 22 0d 20 20 72 | "filena|mes".  r|
|000255a0| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 31 |epeat wi|th i = 1|
|000255b0| 20 74 6f 20 6e 75 6d 0d | 20 20 20 20 73 65 74 20 | to num.|    set |
|000255c0| 6e 20 3d 20 6c 69 6e 65 | 20 69 20 6f 66 20 66 69 |n = line| i of fi|
|000255d0| 65 6c 64 20 22 66 69 6c | 65 6e 61 6d 65 73 22 0d |eld "fil|enames".|
|000255e0| 20 20 20 20 69 66 20 6e | 6f 74 65 6d 70 74 79 28 |    if n|otempty(|
|000255f0| 6e 29 20 74 68 65 6e 0d | 20 20 20 20 20 20 61 64 |n) then.|      ad|
|00025600| 64 28 66 69 6c 65 6c 69 | 73 74 2c 6e 29 0d 20 20 |d(fileli|st,n).  |
|00025610| 20 20 65 6e 64 20 69 66 | 0d 20 20 65 6e 64 20 72 |  end if|.  end r|
|00025620| 65 70 65 61 74 0d 20 20 | 73 65 74 20 6e 75 6d 20 |epeat.  |set num |
|00025630| 3d 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |= the nu|mber of |
|00025640| 6c 69 6e 65 73 20 6f 66 | 20 66 69 65 6c 64 20 22 |lines of| field "|
|00025650| 66 69 6c 65 6e 61 6d 65 | 73 32 22 0d 20 20 72 65 |filename|s2".  re|
|00025660| 70 65 61 74 20 77 69 74 | 68 20 69 20 3d 20 31 20 |peat wit|h i = 1 |
|00025670| 74 6f 20 6e 75 6d 0d 20 | 20 20 20 73 65 74 20 6e |to num. |   set n|
|00025680| 20 3d 20 6c 69 6e 65 20 | 69 20 6f 66 20 66 69 65 | = line |i of fie|
|00025690| 6c 64 20 22 66 69 6c 65 | 6e 61 6d 65 73 32 22 0d |ld "file|names2".|
|000256a0| 20 20 20 20 69 66 20 6e | 6f 74 65 6d 70 74 79 28 |    if n|otempty(|
|000256b0| 6e 29 20 74 68 65 6e 0d | 20 20 20 20 20 20 61 64 |n) then.|      ad|
|000256c0| 64 28 66 69 6c 65 6c 69 | 73 74 2c 6e 29 0d 20 20 |d(fileli|st,n).  |
|000256d0| 20 20 65 6e 64 20 69 66 | 0d 20 20 65 6e 64 20 72 |  end if|.  end r|
|000256e0| 65 70 65 61 74 0d 20 20 | 0d 20 20 2d 2d 20 20 72 |epeat.  |.  --  r|
|000256f0| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 31 |epeat wi|th i = 1|
|00025700| 20 74 6f 20 74 68 65 20 | 6d 61 78 49 6e 74 65 67 | to the |maxInteg|
|00025710| 65 72 20 20 20 20 0d 20 | 20 2d 2d 20 20 20 20 70 |er    . | --    p|
|00025720| 75 74 20 67 65 74 4e 74 | 68 46 69 6c 65 4e 61 6d |ut getNt|hFileNam|
|00025730| 65 49 6e 46 6f 6c 64 65 | 72 28 6d 70 61 74 68 2c |eInFolde|r(mpath,|
|00025740| 20 69 29 20 69 6e 74 6f | 20 6e 0d 20 20 2d 2d 20 | i) into| n.  -- |
|00025750| 20 20 20 69 66 20 6e 20 | 3d 20 45 4d 50 54 59 20 |   if n |= EMPTY |
|00025760| 74 68 65 6e 20 65 78 69 | 74 20 72 65 70 65 61 74 |then exi|t repeat|
|00025770| 0d 20 20 2d 2d 20 20 20 | 20 73 65 74 20 6e 75 6d |.  --   | set num|
|00025780| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|00025790| 20 63 68 61 72 73 20 6f | 66 20 6e 0d 20 20 2d 2d | chars o|f n.  --|
|000257a0| 20 20 20 20 69 66 20 63 | 68 61 72 20 28 6e 75 6d |    if c|har (num|
|000257b0| 2d 33 29 20 74 6f 20 6e | 75 6d 20 6f 66 20 6e 20 |-3) to n|um of n |
|000257c0| 3d 20 22 2e 73 63 72 22 | 20 74 68 65 6e 0d 20 20 |= ".scr"| then.  |
|000257d0| 2d 2d 20 20 20 20 20 20 | 61 70 70 65 6e 64 28 66 |--      |append(f|
|000257e0| 69 6c 65 4c 69 73 74 2c | 20 6e 29 0d 20 20 2d 2d |ileList,| n).  --|
|000257f0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 2d 2d 20 |    end |if.  -- |
|00025800| 20 65 6e 64 20 72 65 70 | 65 61 74 0d 20 20 0d 20 | end rep|eat.  . |
|00025810| 20 73 65 74 20 6e 75 6d | 20 3d 20 63 6f 75 6e 74 | set num| = count|
|00025820| 28 66 69 6c 65 4c 69 73 | 74 29 0d 20 20 73 65 74 |(fileLis|t).  set|
|00025830| 20 74 6d 70 65 72 72 6c | 69 73 74 20 3d 20 5b 5d | tmperrl|ist = []|
|00025840| 0d 20 20 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |.  .  re|peat wit|
|00025850| 68 20 69 20 3d 20 73 74 | 61 72 74 6e 75 6d 20 74 |h i = st|artnum t|
|00025860| 6f 20 6e 75 6d 0d 20 20 | 20 20 73 65 74 20 66 6e |o num.  |  set fn|
|00025870| 61 6d 65 20 3d 20 67 65 | 74 41 74 28 66 69 6c 65 |ame = ge|tAt(file|
|00025880| 4c 69 73 74 2c 69 29 0d | 20 20 20 20 70 75 74 20 |List,i).|    put |
|00025890| 22 62 61 74 63 68 20 70 | 61 72 73 69 6e 67 20 22 |"batch p|arsing "|
|000258a0| 20 26 26 20 66 6e 61 6d | 65 0d 20 20 20 20 73 65 | && fnam|e.    se|
|000258b0| 74 20 67 4d 61 6b 65 72 | 6e 75 6d 20 3d 20 6e 61 |t gMaker|num = na|
|000258c0| 6d 65 74 6f 6e 75 6d 28 | 66 6e 61 6d 65 29 0d 20 |metonum(|fname). |
|000258d0| 20 20 20 73 65 74 20 67 | 4d 61 6b 65 72 4e 61 6d |   set g|MakerNam|
|000258e0| 65 20 3d 20 66 6e 61 6d | 65 0d 20 20 20 20 73 65 |e = fnam|e.    se|
|000258f0| 74 20 65 72 72 20 3d 20 | 50 61 72 73 65 46 69 6c |t err = |ParseFil|
|00025900| 65 28 66 6e 61 6d 65 26 | 22 2e 73 63 72 22 29 20 |e(fname&|".scr") |
|00025910| 20 0d 20 20 20 20 0d 20 | 20 20 20 69 66 20 65 72 | .    . |   if er|
|00025920| 72 20 3d 20 2d 31 20 74 | 68 65 6e 20 20 0d 20 20 |r = -1 t|hen  .  |
|00025930| 20 20 20 20 61 64 64 28 | 74 6d 70 65 72 72 6c 69 |    add(|tmperrli|
|00025940| 73 74 2c 20 66 6e 61 6d | 65 29 20 20 0d 20 20 20 |st, fnam|e)  .   |
|00025950| 20 65 6e 64 20 69 66 0d | 20 20 20 20 0d 20 20 20 | end if.|    .   |
|00025960| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|00025970| 69 6d 69 74 65 72 20 3d | 20 22 2e 22 0d 20 20 20 |imiter =| ".".   |
|00025980| 20 73 65 74 20 66 6e 61 | 6d 65 20 3d 20 69 74 65 | set fna|me = ite|
|00025990| 6d 20 31 20 6f 66 20 66 | 6e 61 6d 65 0d 20 20 20 |m 1 of f|name.   |
|000259a0| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|000259b0| 69 6d 69 74 65 72 20 3d | 20 22 2c 22 0d 20 20 20 |imiter =| ",".   |
|000259c0| 20 0d 20 20 20 20 73 65 | 74 20 65 72 72 20 3d 20 | .    se|t err = |
|000259d0| 6d 61 6b 65 49 6e 64 65 | 78 28 66 6e 61 6d 65 26 |makeInde|x(fname&|
|000259e0| 22 2e 54 58 54 22 29 20 | 0d 20 20 20 20 69 66 20 |".TXT") |.    if |
|000259f0| 65 72 72 20 3d 20 2d 31 | 20 74 68 65 6e 20 20 0d |err = -1| then  .|
|00025a00| 20 20 20 20 20 20 61 64 | 64 28 74 6d 70 65 72 72 |      ad|d(tmperr|
|00025a10| 6c 69 73 74 2c 20 66 6e | 61 6d 65 29 20 20 0d 20 |list, fn|ame)  . |
|00025a20| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 65 6e 64 20 |   end i|f.  end |
|00025a30| 72 65 70 65 61 74 0d 20 | 20 0d 20 20 73 65 74 20 |repeat. | .  set |
|00025a40| 6e 75 6d 20 3d 20 63 6f | 75 6e 74 28 74 6d 70 65 |num = co|unt(tmpe|
|00025a50| 72 72 6c 69 73 74 29 0d | 20 20 70 75 74 20 22 45 |rrlist).|  put "E|
|00025a60| 72 72 6f 72 73 20 69 6e | 20 22 20 26 26 20 6e 75 |rrors in| " && nu|
|00025a70| 6d 20 26 26 20 22 73 63 | 72 69 70 74 20 66 69 6c |m && "sc|ript fil|
|00025a80| 65 73 3a 22 0d 20 20 0d | 20 20 73 65 74 20 74 6d |es:".  .|  set tm|
|00025a90| 70 6e 75 6d 20 3d 20 28 | 74 68 65 20 6e 75 6d 62 |pnum = (|the numb|
|00025aa0| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 6f 66 20 66 |er of li|nes of f|
|00025ab0| 69 65 6c 64 20 22 42 61 | 74 63 68 45 72 72 6f 72 |ield "Ba|tchError|
|00025ac0| 73 22 29 20 2b 20 31 0d | 20 20 70 75 74 20 22 45 |s") + 1.|  put "E|
|00025ad0| 72 72 6f 72 73 20 69 6e | 20 22 20 26 26 20 6e 75 |rrors in| " && nu|
|00025ae0| 6d 20 26 26 20 22 73 63 | 72 69 70 74 20 66 69 6c |m && "sc|ript fil|
|00025af0| 65 73 3a 22 20 69 6e 74 | 6f 20 6c 69 6e 65 20 74 |es:" int|o line t|
|00025b00| 6d 70 6e 75 6d 20 6f 66 | 20 66 69 65 6c 64 20 22 |mpnum of| field "|
|00025b10| 42 61 74 63 68 45 72 72 | 6f 72 73 22 0d 20 20 0d |BatchErr|ors".  .|
|00025b20| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 |  repeat| with i |
|00025b30| 3d 20 31 20 74 6f 20 6e | 75 6d 0d 20 20 20 20 70 |= 1 to n|um.    p|
|00025b40| 75 74 20 69 20 26 20 22 | 3a 22 26 26 20 67 65 74 |ut i & "|:"&& get|
|00025b50| 61 74 28 74 6d 70 65 72 | 72 6c 69 73 74 2c 69 29 |at(tmper|rlist,i)|
|00025b60| 0d 20 20 20 20 73 65 74 | 20 74 6d 70 6e 75 6d 20 |.    set| tmpnum |
|00025b70| 3d 20 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |= (the n|umber of|
|00025b80| 20 6c 69 6e 65 73 20 6f | 66 20 66 69 65 6c 64 20 | lines o|f field |
|00025b90| 22 42 61 74 63 68 45 72 | 72 6f 72 73 22 29 20 2b |"BatchEr|rors") +|
|00025ba0| 20 31 0d 20 20 20 20 70 | 75 74 20 69 20 26 20 22 | 1.    p|ut i & "|
|00025bb0| 3a 22 26 26 20 67 65 74 | 61 74 28 74 6d 70 65 72 |:"&& get|at(tmper|
|00025bc0| 72 6c 69 73 74 2c 69 29 | 20 69 6e 74 6f 20 6c 69 |rlist,i)| into li|
|00025bd0| 6e 65 20 74 6d 70 6e 75 | 6d 20 6f 66 20 66 69 65 |ne tmpnu|m of fie|
|00025be0| 6c 64 20 22 42 61 74 63 | 68 45 72 72 6f 72 73 22 |ld "Batc|hErrors"|
|00025bf0| 0d 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6e |.  end r|epeat.en|
|00025c00| 64 0d 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d..-----|--------|
|00025c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025c50| 2d 2d 2d 0d 6f 6e 20 50 | 61 72 73 65 46 69 6c 65 |---.on P|arseFile|
|00025c60| 20 6e 61 6d 65 0d 20 20 | 67 6c 6f 62 61 6c 20 66 | name.  |global f|
|00025c70| 69 6c 65 4f 62 6a 2c 20 | 74 78 74 2c 20 6d 70 61 |ileObj, |txt, mpa|
|00025c80| 74 68 0d 20 20 0d 20 20 | 2d 2d 20 74 68 65 20 73 |th.  .  |-- the s|
|00025c90| 63 72 69 70 74 20 66 69 | 6c 65 73 20 61 72 65 20 |cript fi|les are |
|00025ca0| 65 69 74 68 65 72 20 6f | 66 20 74 79 70 65 20 54 |either o|f type T|
|00025cb0| 45 58 54 20 6f 72 20 57 | 36 42 4e 20 28 49 20 68 |EXT or W|6BN (I h|
|00025cc0| 61 76 65 20 6e 6f 20 69 | 64 65 61 20 77 68 65 72 |ave no i|dea wher|
|00025cd0| 65 20 74 68 69 73 20 63 | 61 6d 65 20 66 72 6f 6d |e this c|ame from|
|00025ce0| 29 0d 20 20 2d 2d 20 73 | 65 74 20 66 69 6c 65 4f |).  -- s|et fileO|
|00025cf0| 62 6a 20 3d 20 66 69 6c | 65 69 6f 28 6d 4e 65 77 |bj = fil|eio(mNew|
|00025d00| 2c 22 3f 72 65 61 64 22 | 2c 22 54 45 58 54 22 29 |,"?read"|,"TEXT")|
|00025d10| 0d 20 20 2d 2d 20 69 66 | 20 6e 6f 74 20 6f 62 6a |.  -- if| not obj|
|00025d20| 65 63 74 50 28 66 69 6c | 65 4f 62 6a 29 20 74 68 |ectP(fil|eObj) th|
|00025d30| 65 6e 20 73 65 74 20 66 | 69 6c 65 4f 62 6a 20 3d |en set f|ileObj =|
|00025d40| 20 66 69 6c 65 69 6f 28 | 6d 4e 65 77 2c 22 3f 72 | fileio(|mNew,"?r|
|00025d50| 65 61 64 22 2c 22 57 36 | 42 4e 22 29 0d 20 20 0d |ead","W6|BN").  .|
|00025d60| 20 20 0d 20 20 69 66 20 | 74 68 65 20 70 61 72 61 |  .  if |the para|
|00025d70| 6d 63 6f 75 6e 74 20 3d | 20 30 20 74 68 65 6e 0d |mcount =| 0 then.|
|00025d80| 20 20 20 20 73 65 74 20 | 66 69 6c 65 4f 62 6a 20 |    set |fileObj |
|00025d90| 3d 20 66 69 6c 65 69 6f | 28 6d 4e 65 77 2c 22 3f |= fileio|(mNew,"?|
|00025da0| 72 65 61 64 22 2c 22 54 | 45 58 54 22 29 0d 20 20 |read","T|EXT").  |
|00025db0| 65 6c 73 65 0d 20 20 20 | 20 73 65 74 20 66 69 6c |else.   | set fil|
|00025dc0| 65 4f 62 6a 20 3d 20 66 | 69 6c 65 69 6f 28 6d 4e |eObj = f|ileio(mN|
|00025dd0| 65 77 2c 22 72 65 61 64 | 22 2c 6d 50 61 74 68 20 |ew,"read|",mPath |
|00025de0| 26 20 6e 61 6d 65 29 0d | 20 20 65 6e 64 20 69 66 |& name).|  end if|
|00025df0| 0d 20 20 0d 20 20 69 66 | 20 6e 6f 74 20 6f 62 6a |.  .  if| not obj|
|00025e00| 65 63 74 50 28 66 69 6c | 65 4f 62 6a 29 20 74 68 |ectP(fil|eObj) th|
|00025e10| 65 6e 20 20 20 0d 20 20 | 20 20 61 6c 65 72 74 20 |en   .  |  alert |
|00025e20| 22 65 72 72 6f 72 20 6f | 70 65 6e 69 6e 67 20 66 |"error o|pening f|
|00025e30| 69 6c 65 22 20 26 26 20 | 6e 61 6d 65 20 0d 20 20 |ile" && |name .  |
|00025e40| 20 20 65 78 69 74 0d 20 | 20 65 6c 73 65 20 20 20 |  exit. | else   |
|00025e50| 20 0d 20 20 20 20 73 65 | 74 20 74 78 74 20 3d 20 | .    se|t txt = |
|00025e60| 66 69 6c 65 4f 62 6a 28 | 6d 52 65 61 64 46 69 6c |fileObj(|mReadFil|
|00025e70| 65 29 0d 20 20 20 20 66 | 69 6c 65 4f 62 6a 28 6d |e).    f|ileObj(m|
|00025e80| 64 69 73 70 6f 73 65 29 | 0d 20 20 20 20 73 65 74 |dispose)|.    set|
|00025e90| 20 65 72 72 20 3d 20 50 | 61 72 73 65 28 29 0d 20 | err = P|arse(). |
|00025ea0| 20 20 20 69 66 20 65 72 | 72 20 3d 20 2d 31 20 74 |   if er|r = -1 t|
|00025eb0| 68 65 6e 20 20 0d 20 20 | 20 20 20 20 72 65 74 75 |hen  .  |    retu|
|00025ec0| 72 6e 20 2d 31 0d 20 20 | 20 20 20 20 65 78 69 74 |rn -1.  |    exit|
|00025ed0| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 65 6e |.    end| if.  en|
|00025ee0| 64 20 69 66 0d 20 20 0d | 20 20 70 75 74 20 22 73 |d if.  .|  put "s|
|00025ef0| 61 76 69 6e 67 2e 2e 2e | 22 0d 20 20 0d 20 20 53 |aving...|".  .  S|
|00025f00| 61 76 65 4e 65 77 50 61 | 72 73 65 0d 20 20 0d 20 |aveNewPa|rse.  . |
|00025f10| 20 72 65 74 75 72 6e 20 | 30 0d 20 20 0d 65 6e 64 | return |0.  .end|
|00025f20| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00025f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00025f70| 2d 0d 6f 6e 20 50 61 72 | 73 65 0d 20 20 67 6c 6f |-.on Par|se.  glo|
|00025f80| 62 61 6c 20 74 78 74 2c | 20 67 43 68 61 70 74 65 |bal txt,| gChapte|
|00025f90| 72 73 2c 20 67 41 72 74 | 69 63 6c 65 73 2c 20 67 |rs, gArt|icles, g|
|00025fa0| 43 61 70 74 69 6f 6e 73 | 2c 20 67 54 69 74 6c 65 |Captions|, gTitle|
|00025fb0| 73 2c 20 67 44 61 74 65 | 73 2c 20 67 4e 61 6d 65 |s, gDate|s, gName|
|00025fc0| 2c 20 67 54 6f 74 61 6c | 43 68 61 70 74 65 72 73 |, gTotal|Chapters|
|00025fd0| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 4e 75 67 67 65 |.  globa|l gNugge|
|00025fe0| 74 73 0d 20 20 0d 20 20 | 2d 2d 20 67 65 74 20 6e |ts.  .  |-- get n|
|00025ff0| 61 6d 65 0d 20 20 2d 2d | 20 64 61 74 65 0d 20 20 |ame.  --| date.  |
|00026000| 2d 2d 20 6e 61 74 69 6f | 6e 61 6c 69 74 79 0d 20 |-- natio|nality. |
|00026010| 20 2d 2d 20 73 74 72 61 | 70 6c 69 6e 65 0d 20 20 | -- stra|pline.  |
|00026020| 2d 2d 20 70 61 72 74 77 | 6f 72 6b 20 66 69 6c 65 |-- partw|ork file|
|00026030| 6e 61 6d 65 0d 20 20 0d | 20 20 2d 2d 20 67 65 74 |name.  .|  -- get|
|00026040| 20 63 68 61 70 74 65 72 | 20 6e 61 6d 65 73 0d 20 | chapter| names. |
|00026050| 20 2d 2d 20 67 65 74 20 | 61 72 74 69 63 6c 65 73 | -- get |articles|
|00026060| 3a 20 70 69 63 73 2c 20 | 74 65 78 74 2c 20 71 74 |: pics, |text, qt|
|00026070| 27 73 20 65 74 63 2e 0d | 20 20 2d 2d 20 67 65 74 |'s etc..|  -- get|
|00026080| 20 63 61 70 74 69 6f 6e | 73 0d 20 20 0d 20 20 2d | caption|s.  .  -|
|00026090| 2d 20 74 68 65 20 70 69 | 63 74 27 73 20 77 69 6c |- the pi|ct's wil|
|000260a0| 6c 20 61 6c 6c 20 62 65 | 20 70 75 74 20 69 6e 74 |l all be| put int|
|000260b0| 6f 20 61 20 64 69 72 65 | 63 74 6f 72 20 6d 6f 76 |o a dire|ctor mov|
|000260c0| 69 65 2c 20 73 6f 20 61 | 6c 6c 20 69 20 6e 65 65 |ie, so a|ll i nee|
|000260d0| 64 20 74 6f 20 6b 6e 6f | 77 20 0d 20 20 2d 2d 20 |d to kno|w .  -- |
|000260e0| 69 73 20 77 68 69 63 68 | 20 61 72 65 20 67 6f 69 |is which| are goi|
|000260f0| 6e 67 20 74 6f 20 62 65 | 20 70 69 63 74 27 73 20 |ng to be| pict's |
|00026100| 61 6e 64 20 77 68 69 63 | 68 20 6e 6f 74 2e 0d 20 |and whic|h not.. |
|00026110| 20 0d 20 20 73 65 74 20 | 64 65 62 75 67 20 3d 20 | .  set |debug = |
|00026120| 30 20 20 20 2d 2d 20 73 | 65 74 20 74 68 69 73 20 |0   -- s|et this |
|00026130| 74 6f 20 74 72 75 65 20 | 74 6f 20 67 65 74 20 61 |to true |to get a|
|00026140| 20 70 72 69 6e 74 6f 75 | 74 20 6f 66 20 74 68 65 | printou|t of the|
|00026150| 20 70 61 72 73 65 64 20 | 74 65 78 74 0d 20 20 0d | parsed |text.  .|
|00026160| 20 20 69 66 20 64 65 62 | 75 67 20 74 68 65 6e 20 |  if deb|ug then |
|00026170| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|00026180| 66 69 65 6c 64 20 22 70 | 61 72 73 65 64 22 20 3d |field "p|arsed" =|
|00026190| 20 22 22 0d 20 20 73 65 | 74 20 67 43 68 61 70 74 | "".  se|t gChapt|
|000261a0| 65 72 73 20 3d 20 5b 5d | 0d 20 20 73 65 74 20 67 |ers = []|.  set g|
|000261b0| 41 72 74 69 63 6c 65 73 | 20 3d 20 5b 5d 0d 20 20 |Articles| = [].  |
|000261c0| 73 65 74 20 74 6d 70 6c | 69 73 74 20 3d 20 5b 5d |set tmpl|ist = []|
|000261d0| 0d 20 20 73 65 74 20 67 | 43 61 70 74 69 6f 6e 73 |.  set g|Captions|
|000261e0| 20 3d 20 22 22 0d 20 20 | 73 65 74 20 67 54 69 74 | = "".  |set gTit|
|000261f0| 6c 65 73 20 3d 20 22 22 | 0d 20 20 73 65 74 20 74 |les = ""|.  set t|
|00026200| 6d 70 74 69 74 6c 65 73 | 20 3d 20 22 22 0d 20 20 |mptitles| = "".  |
|00026210| 73 65 74 20 74 6d 70 63 | 61 70 74 69 6f 6e 73 20 |set tmpc|aptions |
|00026220| 3d 20 22 22 0d 20 20 73 | 65 74 20 67 44 61 74 65 |= "".  s|et gDate|
|00026230| 73 20 3d 20 5b 5d 0d 20 | 20 73 65 74 20 74 6d 70 |s = []. | set tmp|
|00026240| 64 61 74 65 73 20 3d 20 | 5b 5d 0d 20 20 73 65 74 |dates = |[].  set|
|00026250| 20 67 4e 75 67 67 65 74 | 73 20 3d 20 22 22 0d 20 | gNugget|s = "". |
|00026260| 20 73 65 74 20 63 61 70 | 74 69 6f 6e 54 65 78 74 | set cap|tionText|
|00026270| 20 3d 20 22 22 0d 20 20 | 0d 20 20 73 65 74 20 67 | = "".  |.  set g|
|00026280| 4e 61 6d 65 20 3d 20 22 | 22 0d 20 20 0d 20 20 73 |Name = "|".  .  s|
|00026290| 65 74 20 6e 75 6d 20 3d | 20 31 0d 20 20 73 65 74 |et num =| 1.  set|
|000262a0| 20 74 6f 74 61 6c 6e 75 | 6d 20 3d 20 74 68 65 20 | totalnu|m = the |
|000262b0| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|000262c0| 6f 66 20 74 78 74 0d 20 | 20 73 65 74 20 63 68 61 |of txt. | set cha|
|000262d0| 70 20 3d 20 30 20 20 20 | 20 20 20 20 2d 2d 20 77 |p = 0   |    -- w|
|000262e0| 65 20 73 74 61 72 74 20 | 6f 66 66 20 62 65 66 6f |e start |off befo|
|000262f0| 72 65 20 63 68 61 70 74 | 65 72 20 6f 6e 65 20 28 |re chapt|er one (|
|00026300| 74 68 65 20 69 6e 74 72 | 6f 29 0d 20 20 73 65 74 |the intr|o).  set|
|00026310| 20 69 6e 4e 75 67 67 65 | 74 73 20 3d 20 30 0d 20 | inNugge|ts = 0. |
|00026320| 20 73 65 74 20 61 72 74 | 69 63 6c 65 20 3d 20 30 | set art|icle = 0|
|00026330| 0d 20 20 0d 20 20 2d 2d | 2d 20 50 41 52 53 45 52 |.  .  --|- PARSER|
|00026340| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|00026350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00026360| 2d 2d 2d 2d 2d 2d 0d 20 | 20 2d 2d 20 67 6f 20 74 |------. | -- go t|
|00026370| 68 72 6f 75 67 68 20 74 | 68 65 20 74 65 78 74 20 |hrough t|he text |
|00026380| 61 6e 64 20 50 61 72 73 | 65 20 69 74 0d 20 20 0d |and Pars|e it.  .|
|00026390| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 6e 75 |  repeat| with nu|
|000263a0| 6d 20 3d 20 31 20 74 6f | 20 74 6f 74 61 6c 6e 75 |m = 1 to| totalnu|
|000263b0| 6d 0d 20 20 20 20 0d 20 | 20 20 20 73 65 74 20 6c |m.    . |   set l|
|000263c0| 6e 20 3d 20 6c 69 6e 65 | 20 6e 75 6d 20 6f 66 20 |n = line| num of |
|000263d0| 74 78 74 0d 20 20 20 20 | 0d 20 20 20 20 69 66 20 |txt.    |.    if |
|000263e0| 6e 6f 74 20 6e 6f 74 45 | 6d 70 74 79 28 6c 6e 29 |not notE|mpty(ln)|
|000263f0| 20 74 68 65 6e 20 6e 65 | 78 74 20 72 65 70 65 61 | then ne|xt repea|
|00026400| 74 20 20 2d 2d 20 73 6b | 69 70 20 65 6d 70 74 79 |t  -- sk|ip empty|
|00026410| 20 6c 69 6e 65 73 0d 20 | 20 20 20 0d 20 20 20 20 | lines. |   .    |
|00026420| 69 66 20 63 68 61 70 20 | 3d 20 30 20 74 68 65 6e |if chap |= 0 then|
|00026430| 0d 20 20 20 20 20 20 69 | 66 20 63 68 61 72 20 31 |.      i|f char 1|
|00026440| 20 6f 66 20 6c 6e 20 3c | 3e 20 22 31 22 20 74 68 | of ln <|> "1" th|
|00026450| 65 6e 20 0d 20 20 20 20 | 20 20 20 20 6e 65 78 74 |en .    |    next|
|00026460| 20 72 65 70 65 61 74 0d | 20 20 20 20 20 20 65 6c | repeat.|      el|
|00026470| 73 65 20 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |se .    |    set |
|00026480| 63 68 61 70 20 3d 20 31 | 0d 20 20 20 20 20 20 65 |chap = 1|.      e|
|00026490| 6e 64 20 69 66 0d 20 20 | 20 20 65 6e 64 20 69 66 |nd if.  |  end if|
|000264a0| 0d 20 20 20 20 0d 20 20 | 20 20 0d 20 20 20 20 2d |.    .  |  .    -|
|000264b0| 2d 20 49 4e 54 52 4f 0d | 20 20 20 20 0d 20 20 20 |- INTRO.|    .   |
|000264c0| 20 2d 2d 20 72 65 61 64 | 20 74 68 65 20 69 6e 74 | -- read| the int|
|000264d0| 72 6f 20 69 6e 66 6f 72 | 6d 61 74 69 6f 6e 0d 20 |ro infor|mation. |
|000264e0| 20 20 20 69 66 20 63 68 | 61 70 20 3d 20 31 20 74 |   if ch|ap = 1 t|
|000264f0| 68 65 6e 0d 20 20 20 20 | 20 20 69 66 20 6c 6e 20 |hen.    |  if ln |
|00026500| 63 6f 6e 74 61 69 6e 73 | 20 22 4e 61 6d 65 22 20 |contains| "Name" |
|00026510| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 73 65 74 |then.   |     set|
|00026520| 20 6e 75 6d 20 3d 20 6e | 75 6d 20 2b 20 31 0d 20 | num = n|um + 1. |
|00026530| 20 20 20 20 20 20 20 2d | 2d 20 67 65 74 20 74 68 |       -|- get th|
|00026540| 65 20 6c 61 73 74 20 77 | 6f 72 64 20 6f 6e 20 74 |e last w|ord on t|
|00026550| 68 65 20 6c 69 6e 65 2c | 20 68 6f 70 65 66 75 6c |he line,| hopeful|
|00026560| 6c 79 20 74 68 69 73 20 | 69 73 20 74 68 65 20 6e |ly this |is the n|
|00026570| 61 6d 65 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |ame.    |    set |
|00026580| 67 4e 61 6d 65 20 3d 20 | 77 6f 72 64 20 28 74 68 |gName = |word (th|
|00026590| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 77 6f 72 64 |e number| of word|
|000265a0| 73 20 6f 66 20 6c 69 6e | 65 20 6e 75 6d 20 6f 66 |s of lin|e num of|
|000265b0| 20 74 78 74 29 20 6f 66 | 20 6c 69 6e 65 20 6e 75 | txt) of| line nu|
|000265c0| 6d 20 6f 66 20 74 78 74 | 0d 20 20 20 20 20 20 65 |m of txt|.      e|
|000265d0| 6e 64 20 69 66 20 20 20 | 20 20 0d 20 20 20 20 65 |nd if   |  .    e|
|000265e0| 6e 64 20 69 66 0d 20 20 | 20 20 0d 20 20 20 20 0d |nd if.  |  .    .|
|000265f0| 20 20 20 20 2d 2d 20 4e | 45 57 20 43 48 41 50 54 |    -- N|EW CHAPT|
|00026600| 45 52 0d 20 20 20 20 0d | 20 20 20 20 2d 2d 20 72 |ER.    .|    -- r|
|00026610| 65 61 64 20 74 68 65 20 | 63 68 61 70 74 65 72 20 |ead the |chapter |
|00026620| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 2c 20 77 68 69 |informat|ion, whi|
|00026630| 63 68 20 66 6f 6c 6c 6f | 77 73 20 74 68 65 20 73 |ch follo|ws the s|
|00026640| 61 6d 65 20 66 6f 72 6d | 61 74 20 66 6f 72 20 61 |ame form|at for a|
|00026650| 6c 6c 20 74 68 65 0d 20 | 20 20 20 2d 2d 20 63 68 |ll the. |   -- ch|
|00026660| 61 70 74 65 72 73 2e 20 | 0d 20 20 20 20 69 66 20 |apters. |.    if |
|00026670| 63 68 61 72 20 31 20 6f | 66 20 6c 6e 20 3c 3e 20 |char 1 o|f ln <> |
|00026680| 73 74 72 69 6e 67 28 63 | 68 61 70 29 20 74 68 65 |string(c|hap) the|
|00026690| 6e 0d 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 69 |n.      |.      i|
|000266a0| 66 20 69 6e 4e 75 67 67 | 65 74 73 20 74 68 65 6e |f inNugg|ets then|
|000266b0| 0d 20 20 20 20 20 20 20 | 20 70 75 74 20 22 65 72 |.       | put "er|
|000266c0| 72 6f 72 20 69 6e 20 74 | 68 65 20 6e 75 67 67 65 |ror in t|he nugge|
|000266d0| 74 73 2e 22 0d 20 20 20 | 20 20 20 20 20 72 65 74 |ts.".   |     ret|
|000266e0| 75 72 6e 20 2d 31 0d 20 | 20 20 20 20 20 20 20 65 |urn -1. |       e|
|000266f0| 78 69 74 0d 20 20 20 20 | 20 20 65 6e 64 20 69 66 |xit.    |  end if|
|00026700| 0d 20 20 20 20 20 20 0d | 20 20 20 20 20 20 2d 2d |.      .|      --|
|00026710| 20 6e 65 77 20 63 68 61 | 70 74 65 72 2c 20 67 65 | new cha|pter, ge|
|00026720| 74 20 74 68 65 20 6e 61 | 6d 65 0d 20 20 20 20 20 |t the na|me.     |
|00026730| 20 69 66 20 64 65 62 75 | 67 20 74 68 65 6e 20 70 | if debu|g then p|
|00026740| 75 74 20 22 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ut "----|--------|
|00026750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00026760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 22 20 |--------|------" |
|00026770| 69 6e 74 6f 20 6c 69 6e | 65 20 c2 0d 20 20 20 20 |into lin|e ..    |
|00026780| 20 20 20 20 20 20 28 28 | 74 68 65 20 6e 75 6d 62 |      ((|the numb|
|00026790| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 6f 66 20 66 |er of li|nes of f|
|000267a0| 69 65 6c 64 20 22 70 61 | 72 73 65 64 22 29 20 2b |ield "pa|rsed") +|
|000267b0| 20 31 29 20 6f 66 20 66 | 69 65 6c 64 20 22 70 61 | 1) of f|ield "pa|
|000267c0| 72 73 65 64 22 0d 20 20 | 20 20 20 20 0d 20 20 20 |rsed".  |    .   |
|000267d0| 20 20 20 73 65 74 20 63 | 68 61 70 20 3d 20 63 68 |   set c|hap = ch|
|000267e0| 61 70 20 2b 20 31 0d 20 | 20 20 20 20 20 0d 20 20 |ap + 1. |     .  |
|000267f0| 20 20 20 20 2d 2d 20 6d | 61 6b 65 20 6c 69 73 74 |    -- m|ake list|
|00026800| 73 20 6f 66 20 61 6c 6c | 20 74 68 65 20 74 69 74 |s of all| the tit|
|00026810| 6c 65 73 2c 20 63 61 70 | 74 69 6f 6e 73 2c 20 65 |les, cap|tions, e|
|00026820| 74 63 2e 2e 2e 0d 20 20 | 20 20 20 20 69 66 20 63 |tc....  |    if c|
|00026830| 68 61 70 20 3e 20 32 20 | 74 68 65 6e 20 2d 2d 20 |hap > 2 |then -- |
|00026840| 0d 20 20 20 20 20 20 20 | 20 61 64 64 28 67 41 72 |.       | add(gAr|
|00026850| 74 69 63 6c 65 73 2c 74 | 6d 70 6c 69 73 74 29 0d |ticles,t|mplist).|
|00026860| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 |        |.       |
|00026870| 20 2d 2d 20 6d 61 6b 65 | 20 74 68 65 20 32 20 64 | -- make| the 2 d|
|00026880| 69 6d 65 6e 73 69 6f 6e | 61 6c 20 63 61 70 74 69 |imension|al capti|
|00026890| 6f 6e 20 6c 69 73 74 0d | 20 20 20 20 20 20 20 20 |on list.|        |
|000268a0| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|000268b0| 6d 69 74 65 72 20 3d 20 | 22 40 22 0d 20 20 20 20 |miter = |"@".    |
|000268c0| 20 20 20 20 73 65 74 20 | 63 61 70 6e 75 6d 20 3d |    set |capnum =|
|000268d0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 69 | the num|ber of i|
|000268e0| 74 65 6d 73 20 6f 66 20 | 67 43 61 70 74 69 6f 6e |tems of |gCaption|
|000268f0| 73 0d 20 20 20 20 20 20 | 20 20 69 66 20 67 43 61 |s.      |  if gCa|
|00026900| 70 74 69 6f 6e 73 20 3d | 20 22 22 20 74 68 65 6e |ptions =| "" then|
|00026910| 0d 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 67 |.       |   set g|
|00026920| 43 61 70 74 69 6f 6e 73 | 20 3d 20 22 40 22 20 26 |Captions| = "@" &|
|00026930| 20 74 6d 70 63 61 70 74 | 69 6f 6e 73 0d 20 20 20 | tmpcapt|ions.   |
|00026940| 20 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |     els|e.      |
|00026950| 20 20 20 20 70 75 74 20 | 74 6d 70 63 61 70 74 69 |    put |tmpcapti|
|00026960| 6f 6e 73 20 69 6e 74 6f | 20 69 74 65 6d 20 28 63 |ons into| item (c|
|00026970| 61 70 6e 75 6d 2b 31 29 | 20 6f 66 20 67 43 61 70 |apnum+1)| of gCap|
|00026980| 74 69 6f 6e 73 0d 20 20 | 20 20 20 20 20 20 65 6e |tions.  |      en|
|00026990| 64 20 69 66 0d 20 20 20 | 20 20 20 20 20 73 65 74 |d if.   |     set|
|000269a0| 20 74 68 65 20 69 74 65 | 6d 64 65 6c 69 6d 69 74 | the ite|mdelimit|
|000269b0| 65 72 20 3d 20 22 2c 22 | 0d 20 20 20 20 20 20 20 |er = ","|.       |
|000269c0| 20 0d 20 20 20 20 20 20 | 20 20 2d 2d 20 6d 61 6b | .      |  -- mak|
|000269d0| 65 20 74 68 65 20 32 20 | 64 69 6d 65 6e 73 69 6f |e the 2 |dimensio|
|000269e0| 6e 61 6c 20 74 69 74 6c | 65 20 6c 69 73 74 0d 20 |nal titl|e list. |
|000269f0| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 69 |       s|et the i|
|00026a00| 74 65 6d 64 65 6c 69 6d | 69 74 65 72 20 3d 20 22 |temdelim|iter = "|
|00026a10| 40 22 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |@".     |   set t|
|00026a20| 69 74 6e 75 6d 20 3d 20 | 74 68 65 20 6e 75 6d 62 |itnum = |the numb|
|00026a30| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 6f 66 20 67 |er of it|ems of g|
|00026a40| 54 69 74 6c 65 73 0d 20 | 20 20 20 20 20 20 20 69 |Titles. |       i|
|00026a50| 66 20 67 54 69 74 6c 65 | 73 20 3d 20 22 22 20 74 |f gTitle|s = "" t|
|00026a60| 68 65 6e 0d 20 20 20 20 | 20 20 20 20 20 20 73 65 |hen.    |      se|
|00026a70| 74 20 67 54 69 74 6c 65 | 73 20 3d 20 22 40 22 20 |t gTitle|s = "@" |
|00026a80| 26 20 74 6d 70 74 69 74 | 6c 65 73 0d 20 20 20 20 |& tmptit|les.    |
|00026a90| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 20 |    else|.       |
|00026aa0| 20 20 20 70 75 74 20 74 | 6d 70 74 69 74 6c 65 73 |   put t|mptitles|
|00026ab0| 20 69 6e 74 6f 20 69 74 | 65 6d 20 28 74 69 74 6e | into it|em (titn|
|00026ac0| 75 6d 2b 31 29 20 6f 66 | 20 67 54 69 74 6c 65 73 |um+1) of| gTitles|
|00026ad0| 0d 20 20 20 20 20 20 20 | 20 65 6e 64 20 69 66 0d |.       | end if.|
|00026ae0| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00026af0| 69 74 65 6d 64 65 6c 69 | 6d 69 74 65 72 20 3d 20 |itemdeli|miter = |
|00026b00| 22 2c 22 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |",".    |    .   |
|00026b10| 20 20 20 20 20 2d 2d 61 | 64 64 28 67 43 61 70 74 |     --a|dd(gCapt|
|00026b20| 69 6f 6e 73 2c 74 6d 70 | 63 61 70 74 69 6f 6e 73 |ions,tmp|captions|
|00026b30| 29 0d 20 20 20 20 20 20 | 20 20 2d 2d 61 64 64 28 |).      |  --add(|
|00026b40| 67 54 69 74 6c 65 73 2c | 74 6d 70 74 69 74 6c 65 |gTitles,|tmptitle|
|00026b50| 73 29 0d 20 20 20 20 20 | 20 20 20 61 64 64 28 67 |s).     |   add(g|
|00026b60| 44 61 74 65 73 2c 74 6d | 70 64 61 74 65 73 29 0d |Dates,tm|pdates).|
|00026b70| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |      en|d if.   |
|00026b80| 20 20 20 0d 20 20 20 20 | 20 20 2d 2d 20 61 64 64 |   .    |  -- add|
|00026b90| 20 74 68 65 20 63 68 61 | 70 74 65 72 20 6e 61 6d | the cha|pter nam|
|00026ba0| 65 73 20 69 6e 74 6f 20 | 74 68 65 20 67 6c 6f 62 |es into |the glob|
|00026bb0| 61 6c 20 6c 69 73 74 20 | 67 43 68 61 70 74 65 72 |al list |gChapter|
|00026bc0| 73 0d 20 20 20 20 20 20 | 2d 2d 20 6c 6e 20 3c 3e |s.      |-- ln <>|
|00026bd0| 20 22 6e 75 67 67 65 74 | 73 22 20 61 6e 64 20 6c | "nugget|s" and l|
|00026be0| 6e 20 3c 3e 20 22 4e 55 | 47 47 45 54 53 22 20 61 |n <> "NU|GGETS" a|
|00026bf0| 6e 64 20 6c 6e 20 3c 3e | 20 22 4e 75 67 67 65 74 |nd ln <>| "Nugget|
|00026c00| 73 22 20 74 68 65 6e 0d | 20 20 20 20 20 20 69 66 |s" then.|      if|
|00026c10| 20 6e 6f 74 20 28 6c 6e | 20 63 6f 6e 74 61 69 6e | not (ln| contain|
|00026c20| 73 20 22 6e 75 67 67 65 | 74 73 22 29 20 74 68 65 |s "nugge|ts") the|
|00026c30| 6e 0d 20 20 20 20 20 20 | 20 20 61 64 64 28 67 43 |n.      |  add(gC|
|00026c40| 68 61 70 74 65 72 73 2c | 6c 6e 29 0d 20 20 20 20 |hapters,|ln).    |
|00026c50| 20 20 65 6c 73 65 20 20 | 0d 20 20 20 20 20 20 20 |  else  |.       |
|00026c60| 20 2d 2d 20 65 76 65 72 | 79 74 68 69 6e 67 20 69 | -- ever|ything i|
|00026c70| 6e 20 74 68 65 20 6e 75 | 67 67 65 74 73 20 63 68 |n the nu|ggets ch|
|00026c80| 61 70 74 65 72 20 73 68 | 6f 75 6c 64 20 62 65 20 |apter sh|ould be |
|00026c90| 73 61 76 65 64 20 61 73 | 20 69 73 0d 20 20 20 20 |saved as| is.    |
|00026ca0| 20 20 20 20 73 65 74 20 | 69 6e 4e 75 67 67 65 74 |    set |inNugget|
|00026cb0| 73 20 3d 20 31 0d 20 20 | 20 20 20 20 65 6e 64 20 |s = 1.  |    end |
|00026cc0| 69 66 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |if.     | .      |
|00026cd0| 2d 2d 20 6d 61 6b 65 20 | 61 20 6c 69 73 74 20 6f |-- make |a list o|
|00026ce0| 66 20 74 68 65 20 61 72 | 74 69 63 6c 65 20 74 79 |f the ar|ticle ty|
|00026cf0| 70 65 73 20 28 65 67 2e | 20 70 69 63 2c 20 63 75 |pes (eg.| pic, cu|
|00026d00| 74 74 69 6e 67 29 20 66 | 6f 72 20 65 61 63 68 20 |tting) f|or each |
|00026d10| 63 68 61 70 74 65 72 0d | 20 20 20 20 20 20 73 65 |chapter.|      se|
|00026d20| 74 20 74 6d 70 6c 69 73 | 74 20 3d 20 5b 5d 0d 20 |t tmplis|t = []. |
|00026d30| 20 20 20 20 20 73 65 74 | 20 74 6d 70 74 69 74 6c |     set| tmptitl|
|00026d40| 65 73 20 3d 20 5b 5d 0d | 20 20 20 20 20 20 73 65 |es = [].|      se|
|00026d50| 74 20 74 6d 70 63 61 70 | 74 69 6f 6e 73 20 3d 20 |t tmpcap|tions = |
|00026d60| 22 22 0d 20 20 20 20 20 | 20 73 65 74 20 74 6d 70 |"".     | set tmp|
|00026d70| 64 61 74 65 73 20 3d 20 | 5b 5d 0d 20 20 20 20 20 |dates = |[].     |
|00026d80| 20 0d 20 20 20 20 20 20 | 69 66 20 64 65 62 75 67 | .      |if debug|
|00026d90| 20 74 68 65 6e 20 70 75 | 74 20 22 43 68 61 70 74 | then pu|t "Chapt|
|00026da0| 65 72 3a 22 20 26 26 20 | 6c 6e 20 69 6e 74 6f 20 |er:" && |ln into |
|00026db0| 6c 69 6e 65 20 c2 0d 20 | 20 20 20 20 20 20 20 20 |line .. |        |
|00026dc0| 20 28 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | ((the n|umber of|
|00026dd0| 20 6c 69 6e 65 73 20 6f | 66 20 66 69 65 6c 64 20 | lines o|f field |
|00026de0| 22 70 61 72 73 65 64 22 | 29 20 2b 20 31 29 20 6f |"parsed"|) + 1) o|
|00026df0| 66 20 66 69 65 6c 64 20 | 22 70 61 72 73 65 64 22 |f field |"parsed"|
|00026e00| 0d 20 20 20 20 20 20 0d | 20 20 20 20 20 20 2d 2d |.      .|      --|
|00026e10| 73 65 74 20 6e 75 6d 20 | 3d 20 6e 75 6d 2b 31 0d |set num |= num+1.|
|00026e20| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 0d 20 20 |      . |     .  |
|00026e30| 20 20 20 20 2d 2d 20 67 | 65 74 20 74 68 65 20 6e |    -- g|et the n|
|00026e40| 65 78 74 20 63 68 61 70 | 74 65 72 20 6e 75 6d 62 |ext chap|ter numb|
|00026e50| 65 72 2e 20 74 68 69 73 | 20 69 73 20 69 6e 20 63 |er. this| is in c|
|00026e60| 61 73 65 20 74 68 65 20 | 65 64 69 74 6f 72 73 20 |ase the |editors |
|00026e70| 64 69 64 6e 27 74 20 6d | 61 6b 65 0d 20 20 20 20 |didn't m|ake.    |
|00026e80| 20 20 2d 2d 20 74 68 65 | 20 63 68 61 70 74 65 72 |  -- the| chapter|
|00026e90| 20 6e 75 6d 62 65 72 73 | 20 63 6f 6e 73 65 63 75 | numbers| consecu|
|00026ea0| 74 69 76 65 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |tive.   |   .    |
|00026eb0| 20 20 2d 2d 20 73 6b 69 | 70 20 74 6f 20 74 68 65 |  -- ski|p to the|
|00026ec0| 20 6e 65 78 74 20 6e 6f | 74 20 65 6d 70 74 79 20 | next no|t empty |
|00026ed0| 6c 69 6e 65 0d 20 20 20 | 20 20 20 73 65 74 20 6e |line.   |   set n|
|00026ee0| 75 6d 20 3d 20 6e 75 6d | 20 2b 20 31 0d 20 20 20 |um = num| + 1.   |
|00026ef0| 20 20 20 72 65 70 65 61 | 74 20 77 68 69 6c 65 20 |   repea|t while |
|00026f00| 6e 6f 74 20 6e 6f 74 45 | 6d 70 74 79 28 6c 69 6e |not notE|mpty(lin|
|00026f10| 65 20 6e 75 6d 20 6f 66 | 20 74 78 74 29 20 20 20 |e num of| txt)   |
|00026f20| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 6e 75 6d |.       | set num|
|00026f30| 20 3d 20 6e 75 6d 20 2b | 20 31 20 20 0d 20 20 20 | = num +| 1  .   |
|00026f40| 20 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |   end r|epeat.  |
|00026f50| 20 20 20 20 0d 20 20 20 | 20 20 20 73 65 74 20 6f |    .   |   set o|
|00026f60| 6c 64 63 68 61 70 20 3d | 20 63 68 61 70 0d 20 20 |ldchap =| chap.  |
|00026f70| 20 20 20 20 73 65 74 20 | 63 68 61 70 20 3d 20 28 |    set |chap = (|
|00026f80| 63 68 61 72 74 6f 6e 75 | 6d 28 63 68 61 72 20 31 |chartonu|m(char 1|
|00026f90| 20 6f 66 20 77 6f 72 64 | 20 31 20 6f 66 20 28 6c | of word| 1 of (l|
|00026fa0| 69 6e 65 20 6e 75 6d 20 | 6f 66 20 74 78 74 29 29 |ine num |of txt))|
|00026fb0| 2d 34 38 29 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |-48).   |   .    |
|00026fc0| 20 20 2d 2d 20 69 66 20 | 74 68 65 20 63 68 61 70 |  -- if |the chap|
|00026fd0| 74 65 72 20 6e 75 6d 62 | 65 72 73 20 73 75 64 64 |ter numb|ers sudd|
|00026fe0| 65 6e 6c 79 20 6a 75 6d | 70 20 74 68 65 6e 20 74 |enly jum|p then t|
|00026ff0| 68 65 72 65 20 69 73 20 | 70 72 6f 62 61 62 6c 79 |here is |probably|
|00027000| 20 61 6e 20 65 72 72 6f | 72 0d 20 20 20 20 20 20 | an erro|r.      |
|00027010| 69 66 20 6e 6f 74 20 69 | 6e 4e 75 67 67 65 74 73 |if not i|nNuggets|
|00027020| 20 61 6e 64 20 28 28 63 | 68 61 70 20 2d 20 6f 6c | and ((c|hap - ol|
|00027030| 64 63 68 61 70 20 3e 20 | 35 29 20 6f 72 20 28 6f |dchap > |5) or (o|
|00027040| 6c 64 63 68 61 70 20 3e | 20 63 68 61 70 29 20 6f |ldchap >| chap) o|
|00027050| 72 20 28 63 68 61 70 20 | 3c 20 30 29 29 20 74 68 |r (chap |< 0)) th|
|00027060| 65 6e 20 20 20 0d 20 20 | 20 20 20 20 20 20 70 75 |en   .  |      pu|
|00027070| 74 20 22 65 72 72 6f 72 | 20 69 6e 20 22 26 26 20 |t "error| in "&& |
|00027080| 6f 6c 64 63 68 61 70 20 | 26 22 2e 22 20 26 20 61 |oldchap |&"." & a|
|00027090| 72 74 69 63 6c 65 20 0d | 20 20 20 20 20 20 20 20 |rticle .|        |
|000270a0| 72 65 74 75 72 6e 20 2d | 31 0d 20 20 20 20 20 20 |return -|1.      |
|000270b0| 20 20 65 78 69 74 0d 20 | 20 20 20 20 20 65 6e 64 |  exit. |     end|
|000270c0| 20 69 66 0d 20 20 20 20 | 20 20 0d 20 20 20 20 20 | if.    |  .     |
|000270d0| 20 70 75 74 20 67 4e 61 | 6d 65 20 26 26 20 22 63 | put gNa|me && "c|
|000270e0| 68 61 70 20 3d 20 22 20 | 26 26 20 63 68 61 70 0d |hap = " |&& chap.|
|000270f0| 20 20 20 20 20 20 73 65 | 74 20 6e 75 6d 20 3d 20 |      se|t num = |
|00027100| 6e 75 6d 20 2d 20 31 0d | 20 20 20 20 20 20 0d 20 |num - 1.|      . |
|00027110| 20 20 20 20 20 73 65 74 | 20 61 72 74 69 63 6c 65 |     set| article|
|00027120| 20 3d 20 30 0d 20 20 20 | 20 65 6c 73 65 0d 20 20 | = 0.   | else.  |
|00027130| 20 20 20 20 0d 20 20 20 | 20 20 20 2d 2d 20 4e 75 |    .   |   -- Nu|
|00027140| 67 67 65 74 3f 0d 20 20 | 20 20 20 20 69 66 20 69 |gget?.  |    if i|
|00027150| 6e 4e 75 67 67 65 74 73 | 20 3d 20 31 20 74 68 65 |nNuggets| = 1 the|
|00027160| 6e 20 20 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |n  .    |    .   |
|00027170| 20 20 20 20 20 2d 2d 20 | 73 61 76 65 20 6e 75 67 |     -- |save nug|
|00027180| 67 65 74 73 20 69 6e 74 | 6f 20 61 20 6c 69 73 74 |gets int|o a list|
|00027190| 20 64 65 6c 69 6d 69 74 | 65 64 20 62 79 20 23 27 | delimit|ed by #'|
|000271a0| 73 2e 20 74 68 69 73 20 | 69 73 20 62 65 63 61 75 |s. this |is becau|
|000271b0| 73 65 20 6e 75 67 67 65 | 74 73 20 6f 66 74 65 6e |se nugge|ts often|
|000271c0| 0d 20 20 20 20 20 20 20 | 20 2d 2d 20 63 6f 6e 74 |.       | -- cont|
|000271d0| 61 69 6e 20 71 75 6f 74 | 65 73 0d 20 20 20 20 20 |ain quot|es.     |
|000271e0| 20 20 20 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |   .    |    set |
|000271f0| 61 72 74 69 63 6c 65 20 | 3d 20 61 72 74 69 63 6c |article |= articl|
|00027200| 65 20 2b 20 31 0d 20 20 | 20 20 20 20 20 20 64 65 |e + 1.  |      de|
|00027210| 6c 65 74 65 20 77 6f 72 | 64 20 31 20 6f 66 20 6c |lete wor|d 1 of l|
|00027220| 6e 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |n.      |  .     |
|00027230| 20 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |   set t|he itemd|
|00027240| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 23 22 0d 20 |elimiter| = "#". |
|00027250| 20 20 20 20 20 20 20 73 | 65 74 20 74 6d 70 6e 75 |       s|et tmpnu|
|00027260| 67 6e 75 6d 20 3d 20 74 | 68 65 20 6e 75 6d 62 65 |gnum = t|he numbe|
|00027270| 72 20 6f 66 20 69 74 65 | 6d 73 20 6f 66 20 67 4e |r of ite|ms of gN|
|00027280| 75 67 67 65 74 73 0d 20 | 20 20 20 20 20 20 20 69 |uggets. |       i|
|00027290| 66 20 67 4e 75 67 67 65 | 74 73 20 3d 20 22 22 20 |f gNugge|ts = "" |
|000272a0| 74 68 65 6e 20 0d 20 20 | 20 20 20 20 20 20 20 20 |then .  |        |
|000272b0| 73 65 74 20 67 4e 75 67 | 67 65 74 73 20 3d 20 6c |set gNug|gets = l|
|000272c0| 6e 0d 20 20 20 20 20 20 | 20 20 65 6c 73 65 0d 20 |n.      |  else. |
|000272d0| 20 20 20 20 20 20 20 20 | 20 70 75 74 20 6c 6e 20 |        | put ln |
|000272e0| 69 6e 74 6f 20 69 74 65 | 6d 20 28 74 6d 70 6e 75 |into ite|m (tmpnu|
|000272f0| 67 6e 75 6d 2b 31 29 20 | 6f 66 20 67 4e 75 67 67 |gnum+1) |of gNugg|
|00027300| 65 74 73 0d 20 20 20 20 | 20 20 20 20 65 6e 64 20 |ets.    |    end |
|00027310| 69 66 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |if.     |   set t|
|00027320| 68 65 20 69 74 65 6d 64 | 65 6c 69 6d 69 74 65 72 |he itemd|elimiter|
|00027330| 20 3d 20 22 2c 22 0d 20 | 20 20 20 20 20 20 20 0d | = ",". |       .|
|00027340| 20 20 20 20 20 20 20 20 | 73 65 74 20 6e 75 6d 20 |        |set num |
|00027350| 3d 20 6e 75 6d 20 2b 20 | 31 0d 20 20 20 20 20 20 |= num + |1.      |
|00027360| 20 20 69 66 20 64 65 62 | 75 67 20 74 68 65 6e 20 |  if deb|ug then |
|00027370| 70 75 74 20 63 68 61 70 | 20 26 20 22 2e 22 20 26 |put chap| & "." &|
|00027380| 20 61 72 74 69 63 6c 65 | 20 26 26 20 6c 6e 20 26 | article| && ln &|
|00027390| 26 20 6c 69 6e 65 20 6e | 75 6d 20 6f 66 20 74 78 |& line n|um of tx|
|000273a0| 74 20 69 6e 74 6f 20 6c | 69 6e 65 20 c2 0d 20 20 |t into l|ine ..  |
|000273b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 28 74 68 |        |    ((th|
|000273c0| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 6c 69 6e 65 |e number| of line|
|000273d0| 73 20 6f 66 20 66 69 65 | 6c 64 20 22 70 61 72 73 |s of fie|ld "pars|
|000273e0| 65 64 22 29 20 2b 20 31 | 29 20 6f 66 20 66 69 65 |ed") + 1|) of fie|
|000273f0| 6c 64 20 22 70 61 72 73 | 65 64 22 20 20 20 20 20 |ld "pars|ed"     |
|00027400| 20 20 20 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |   .    |    .   |
|00027410| 20 20 20 20 20 2d 2d 20 | 73 6f 75 6e 64 20 20 20 |     -- |sound   |
|00027420| 0d 20 20 20 20 20 20 65 | 6c 73 65 20 69 66 20 6c |.      e|lse if l|
|00027430| 6e 20 63 6f 6e 74 61 69 | 6e 73 20 22 61 75 64 69 |n contai|ns "audi|
|00027440| 6f 22 20 6f 72 20 6c 6e | 20 63 6f 6e 74 61 69 6e |o" or ln| contain|
|00027450| 73 20 22 73 6f 75 6e 64 | 22 20 6f 72 20 6c 6e 20 |s "sound|" or ln |
|00027460| 63 6f 6e 74 61 69 6e 73 | 20 22 62 62 63 22 20 74 |contains| "bbc" t|
|00027470| 68 65 6e 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |hen.    |    set |
|00027480| 61 72 74 69 63 6c 65 20 | 3d 20 61 72 74 69 63 6c |article |= articl|
|00027490| 65 20 2b 20 31 0d 20 20 | 20 20 20 20 20 20 61 64 |e + 1.  |      ad|
|000274a0| 64 28 74 6d 70 6c 69 73 | 74 2c 61 72 74 69 63 6c |d(tmplis|t,articl|
|000274b0| 65 2c 22 73 6f 75 6e 64 | 22 29 0d 20 20 20 20 20 |e,"sound|").     |
|000274c0| 20 20 20 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 73 |   .    |    -- s|
|000274d0| 6b 69 70 20 74 6f 20 74 | 68 65 20 6e 65 78 74 20 |kip to t|he next |
|000274e0| 6e 75 6d 62 65 72 65 64 | 20 6c 69 6e 65 2c 20 65 |numbered| line, e|
|000274f0| 67 2e 20 32 2e 32 20 6f | 72 20 33 2e 35 0d 20 20 |g. 2.2 o|r 3.5.  |
|00027500| 20 20 20 20 20 20 73 65 | 74 20 6e 75 6d 20 3d 20 |      se|t num = |
|00027510| 6e 75 6d 20 2b 20 31 0d | 20 20 20 20 20 20 20 20 |num + 1.|        |
|00027520| 73 65 74 20 6e 75 6d 20 | 3d 20 53 6b 69 70 54 6f |set num |= SkipTo|
|00027530| 4e 75 6d 62 65 72 28 74 | 78 74 2c 63 68 61 70 2c |Number(t|xt,chap,|
|00027540| 61 72 74 69 63 6c 65 2c | 6e 75 6d 29 0d 20 20 20 |article,|num).   |
|00027550| 20 20 20 20 20 69 66 20 | 6e 75 6d 20 3d 20 2d 31 |     if |num = -1|
|00027560| 20 74 68 65 6e 20 0d 20 | 20 20 20 20 20 20 20 20 | then . |        |
|00027570| 20 72 65 74 75 72 6e 20 | 2d 31 0d 20 20 20 20 20 | return |-1.     |
|00027580| 20 20 20 20 20 65 78 69 | 74 0d 20 20 20 20 20 20 |     exi|t.      |
|00027590| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 20 20 20 |  end if|.       |
|000275a0| 20 0d 20 20 20 20 20 20 | 20 20 69 66 20 64 65 62 | .      |  if deb|
|000275b0| 75 67 20 74 68 65 6e 20 | 0d 20 20 20 20 20 20 20 |ug then |.       |
|000275c0| 20 20 20 70 75 74 20 63 | 68 61 70 20 26 20 22 2e |   put c|hap & ".|
|000275d0| 22 20 26 20 61 72 74 69 | 63 6c 65 20 26 26 22 53 |" & arti|cle &&"S|
|000275e0| 6f 75 6e 64 3a 22 20 69 | 6e 74 6f 20 6c 69 6e 65 |ound:" i|nto line|
|000275f0| 20 c2 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|00027600| 20 28 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | ((the n|umber of|
|00027610| 20 6c 69 6e 65 73 20 6f | 66 20 66 69 65 6c 64 20 | lines o|f field |
|00027620| 22 70 61 72 73 65 64 22 | 29 20 2b 20 31 29 20 6f |"parsed"|) + 1) o|
|00027630| 66 20 66 69 65 6c 64 20 | 22 70 61 72 73 65 64 22 |f field |"parsed"|
|00027640| 0d 20 20 20 20 20 20 20 | 20 65 6e 64 20 69 66 20 |.       | end if |
|00027650| 20 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 | .      |  .     |
|00027660| 20 20 20 2d 2d 20 69 66 | 20 74 68 65 20 6c 69 6e |   -- if| the lin|
|00027670| 65 20 64 6f 65 73 6e 27 | 74 20 63 6f 6e 74 61 69 |e doesn'|t contai|
|00027680| 6e 20 74 68 65 20 77 6f | 72 64 20 63 61 70 74 69 |n the wo|rd capti|
|00027690| 6f 6e 2c 20 74 68 65 6e | 20 74 68 65 72 65 27 73 |on, then| there's|
|000276a0| 20 61 20 6d 69 73 74 61 | 6b 65 0d 20 20 20 20 20 | a mista|ke.     |
|000276b0| 20 20 20 69 66 20 6e 6f | 74 20 28 6c 69 6e 65 20 |   if no|t (line |
|000276c0| 6e 75 6d 20 6f 66 20 74 | 78 74 20 63 6f 6e 74 61 |num of t|xt conta|
|000276d0| 69 6e 73 20 28 22 63 61 | 70 74 69 6f 6e 22 29 29 |ins ("ca|ption"))|
|000276e0| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 20 20 | then.  |        |
|000276f0| 70 75 74 20 22 65 72 72 | 6f 72 3a 20 22 20 26 26 |put "err|or: " &&|
|00027700| 20 63 68 61 70 20 26 20 | 22 2e 22 20 26 20 61 72 | chap & |"." & ar|
|00027710| 74 69 63 6c 65 20 26 26 | 20 22 73 68 6f 75 6c 64 |ticle &&| "should|
|00027720| 20 68 61 76 65 20 61 20 | 63 61 70 74 69 6f 6e 22 | have a |caption"|
|00027730| 0d 20 20 20 20 20 20 20 | 20 20 20 72 65 74 75 72 |.       |   retur|
|00027740| 6e 20 2d 31 0d 20 20 20 | 20 20 20 20 20 20 20 65 |n -1.   |       e|
|00027750| 78 69 74 0d 20 20 20 20 | 20 20 20 20 65 6e 64 20 |xit.    |    end |
|00027760| 69 66 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |if.     |   .    |
|00027770| 20 20 20 20 2d 2d 20 74 | 68 65 20 63 61 70 74 69 |    -- t|he capti|
|00027780| 6f 6e 20 69 73 20 6f 6e | 20 74 68 65 20 6c 69 6e |on is on| the lin|
|00027790| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 74 68 65 20 |e follow|ing the |
|000277a0| 63 61 70 74 69 6f 6e 20 | 68 65 61 64 69 6e 67 0d |caption |heading.|
|000277b0| 20 20 20 20 20 20 20 20 | 73 65 74 20 6e 75 6d 20 |        |set num |
|000277c0| 3d 20 6e 75 6d 20 2b 20 | 31 0d 20 20 20 20 20 20 |= num + |1.      |
|000277d0| 20 20 0d 20 20 20 20 20 | 20 20 20 69 66 20 64 65 |  .     |   if de|
|000277e0| 62 75 67 20 74 68 65 6e | 20 70 75 74 20 63 68 61 |bug then| put cha|
|000277f0| 70 20 26 20 22 2e 22 20 | 26 20 61 72 74 69 63 6c |p & "." |& articl|
|00027800| 65 20 26 20 22 20 43 61 | 70 74 69 6f 6e 3a 22 20 |e & " Ca|ption:" |
|00027810| 26 26 20 6c 69 6e 65 20 | 6e 75 6d 20 6f 66 20 74 |&& line |num of t|
|00027820| 78 74 20 69 6e 74 6f 20 | 6c 69 6e 65 20 c2 0d 20 |xt into |line .. |
|00027830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 28 74 |        |     ((t|
|00027840| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|00027850| 65 73 20 6f 66 20 66 69 | 65 6c 64 20 22 70 61 72 |es of fi|eld "par|
|00027860| 73 65 64 22 29 20 2b 20 | 31 29 20 6f 66 20 66 69 |sed") + |1) of fi|
|00027870| 65 6c 64 20 22 70 61 72 | 73 65 64 22 0d 20 20 20 |eld "par|sed".   |
|00027880| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 73 65 |     .  |      se|
|00027890| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|000278a0| 74 65 72 20 3d 20 22 23 | 22 0d 20 20 20 20 20 20 |ter = "#|".      |
|000278b0| 20 20 70 75 74 20 6c 69 | 6e 65 20 6e 75 6d 20 6f |  put li|ne num o|
|000278c0| 66 20 74 78 74 20 69 6e | 74 6f 20 69 74 65 6d 20 |f txt in|to item |
|000278d0| 61 72 74 69 63 6c 65 20 | 6f 66 20 74 6d 70 63 61 |article |of tmpca|
|000278e0| 70 74 69 6f 6e 73 0d 20 | 20 20 20 20 20 20 20 73 |ptions. |       s|
|000278f0| 65 74 20 74 68 65 20 69 | 74 65 6d 64 65 6c 69 6d |et the i|temdelim|
|00027900| 69 74 65 72 20 3d 20 22 | 2c 22 0d 20 20 20 20 20 |iter = "|,".     |
|00027910| 20 20 20 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 50 |   .    |    -- P|
|00027920| 49 43 54 55 52 45 0d 20 | 20 20 20 20 20 65 6c 73 |ICTURE. |     els|
|00027930| 65 20 69 66 20 6c 6e 20 | 63 6f 6e 74 61 69 6e 73 |e if ln |contains|
|00027940| 20 22 70 69 63 22 20 6f | 72 20 6c 6e 20 63 6f 6e | "pic" o|r ln con|
|00027950| 74 61 69 6e 73 20 22 70 | 68 6f 74 6f 22 20 74 68 |tains "p|hoto" th|
|00027960| 65 6e 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |en.     |   .    |
|00027970| 20 20 20 20 73 65 74 20 | 61 72 74 69 63 6c 65 20 |    set |article |
|00027980| 3d 20 61 72 74 69 63 6c | 65 20 2b 20 31 0d 20 20 |= articl|e + 1.  |
|00027990| 20 20 20 20 20 20 61 64 | 64 28 74 6d 70 6c 69 73 |      ad|d(tmplis|
|000279a0| 74 2c 61 72 74 69 63 6c | 65 2c 22 70 69 63 22 29 |t,articl|e,"pic")|
|000279b0| 0d 20 20 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |.       | .      |
|000279c0| 20 20 2d 2d 20 73 6b 69 | 70 20 74 6f 20 74 68 65 |  -- ski|p to the|
|000279d0| 20 6e 65 78 74 20 6e 75 | 6d 62 65 72 65 64 20 6c | next nu|mbered l|
|000279e0| 69 6e 65 2c 20 65 67 2e | 20 32 2e 32 20 6f 72 20 |ine, eg.| 2.2 or |
|000279f0| 33 2e 35 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |3.5.    |    set |
|00027a00| 6e 75 6d 20 3d 20 6e 75 | 6d 20 2b 20 31 0d 20 20 |num = nu|m + 1.  |
|00027a10| 20 20 20 20 20 20 73 65 | 74 20 6e 75 6d 20 3d 20 |      se|t num = |
|00027a20| 53 6b 69 70 54 6f 4e 75 | 6d 62 65 72 28 74 78 74 |SkipToNu|mber(txt|
|00027a30| 2c 63 68 61 70 2c 61 72 | 74 69 63 6c 65 2c 6e 75 |,chap,ar|ticle,nu|
|00027a40| 6d 29 0d 20 20 20 20 20 | 20 20 20 69 66 20 6e 75 |m).     |   if nu|
|00027a50| 6d 20 3d 20 2d 31 20 74 | 68 65 6e 20 0d 20 20 20 |m = -1 t|hen .   |
|00027a60| 20 20 20 20 20 20 20 72 | 65 74 75 72 6e 20 2d 31 |       r|eturn -1|
|00027a70| 0d 20 20 20 20 20 20 20 | 20 20 20 65 78 69 74 0d |.       |   exit.|
|00027a80| 20 20 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |        |end if. |
|00027a90| 20 20 20 20 20 20 20 0d | 20 20 20 20 20 20 20 20 |       .|        |
|00027aa0| 69 66 20 64 65 62 75 67 | 20 74 68 65 6e 20 0d 20 |if debug| then . |
|00027ab0| 20 20 20 20 20 20 20 20 | 20 70 75 74 20 63 68 61 |        | put cha|
|00027ac0| 70 20 26 20 22 2e 22 20 | 26 20 61 72 74 69 63 6c |p & "." |& articl|
|00027ad0| 65 20 26 26 22 50 69 63 | 3a 22 20 69 6e 74 6f 20 |e &&"Pic|:" into |
|00027ae0| 6c 69 6e 65 20 c2 0d 20 | 20 20 20 20 20 20 20 20 |line .. |        |
|00027af0| 20 20 20 20 20 28 28 74 | 68 65 20 6e 75 6d 62 65 |     ((t|he numbe|
|00027b00| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 66 20 66 69 |r of lin|es of fi|
|00027b10| 65 6c 64 20 22 70 61 72 | 73 65 64 22 29 20 2b 20 |eld "par|sed") + |
|00027b20| 31 29 20 6f 66 20 66 69 | 65 6c 64 20 22 70 61 72 |1) of fi|eld "par|
|00027b30| 73 65 64 22 0d 20 20 20 | 20 20 20 20 20 65 6e 64 |sed".   |     end|
|00027b40| 20 69 66 20 20 0d 20 20 | 20 20 20 20 20 20 0d 20 | if  .  |      . |
|00027b50| 20 20 20 20 20 20 20 2d | 2d 20 69 66 20 74 68 65 |       -|- if the|
|00027b60| 20 6c 69 6e 65 20 64 6f | 65 73 6e 27 74 20 63 6f | line do|esn't co|
|00027b70| 6e 74 61 69 6e 20 74 68 | 65 20 77 6f 72 64 20 63 |ntain th|e word c|
|00027b80| 61 70 74 69 6f 6e 2c 20 | 74 68 65 6e 20 74 68 65 |aption, |then the|
|00027b90| 72 65 27 73 20 61 20 6d | 69 73 74 61 6b 65 0d 20 |re's a m|istake. |
|00027ba0| 20 20 20 20 20 20 20 69 | 66 20 6e 6f 74 20 28 6c |       i|f not (l|
|00027bb0| 69 6e 65 20 6e 75 6d 20 | 6f 66 20 74 78 74 20 63 |ine num |of txt c|
|00027bc0| 6f 6e 74 61 69 6e 73 20 | 28 22 63 61 70 74 69 6f |ontains |("captio|
|00027bd0| 6e 22 29 29 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |n")) the|n.      |
|00027be0| 20 20 20 20 70 75 74 20 | 22 65 72 72 6f 72 3a 20 |    put |"error: |
|00027bf0| 22 20 26 26 20 63 68 61 | 70 20 26 20 22 2e 22 20 |" && cha|p & "." |
|00027c00| 26 20 61 72 74 69 63 6c | 65 20 26 26 20 22 73 68 |& articl|e && "sh|
|00027c10| 6f 75 6c 64 20 68 61 76 | 65 20 61 20 63 61 70 74 |ould hav|e a capt|
|00027c20| 69 6f 6e 22 0d 20 20 20 | 20 20 20 20 20 20 20 72 |ion".   |       r|
|00027c30| 65 74 75 72 6e 20 2d 31 | 0d 20 20 20 20 20 20 20 |eturn -1|.       |
|00027c40| 20 20 20 65 78 69 74 0d | 20 20 20 20 20 20 20 20 |   exit.|        |
|00027c50| 65 6e 64 20 69 66 0d 20 | 20 20 20 20 20 20 20 0d |end if. |       .|
|00027c60| 20 20 20 20 20 20 20 20 | 2d 2d 20 74 68 65 20 63 |        |-- the c|
|00027c70| 61 70 74 69 6f 6e 20 69 | 73 20 6f 6e 20 74 68 65 |aption i|s on the|
|00027c80| 20 6c 69 6e 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 | line fo|llowing |
|00027c90| 74 68 65 20 63 61 70 74 | 69 6f 6e 20 68 65 61 64 |the capt|ion head|
|00027ca0| 69 6e 67 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |ing.    |    set |
|00027cb0| 6e 75 6d 20 3d 20 6e 75 | 6d 20 2b 20 31 0d 20 20 |num = nu|m + 1.  |
|00027cc0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 69 |      . |       i|
|00027cd0| 66 20 64 65 62 75 67 20 | 74 68 65 6e 20 70 75 74 |f debug |then put|
|00027ce0| 20 63 68 61 70 20 26 20 | 22 2e 22 20 26 20 61 72 | chap & |"." & ar|
|00027cf0| 74 69 63 6c 65 20 26 20 | 22 20 43 61 70 74 69 6f |ticle & |" Captio|
|00027d00| 6e 3a 22 20 26 26 20 6c | 69 6e 65 20 6e 75 6d 20 |n:" && l|ine num |
|00027d10| 6f 66 20 74 78 74 20 69 | 6e 74 6f 20 6c 69 6e 65 |of txt i|nto line|
|00027d20| 20 c2 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|00027d30| 20 28 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | ((the n|umber of|
|00027d40| 20 6c 69 6e 65 73 20 6f | 66 20 66 69 65 6c 64 20 | lines o|f field |
|00027d50| 22 70 61 72 73 65 64 22 | 29 20 2b 20 31 29 20 6f |"parsed"|) + 1) o|
|00027d60| 66 20 66 69 65 6c 64 20 | 22 70 61 72 73 65 64 22 |f field |"parsed"|
|00027d70| 0d 20 20 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |.       | .      |
|00027d80| 20 20 73 65 74 20 74 68 | 65 20 69 74 65 6d 64 65 |  set th|e itemde|
|00027d90| 6c 69 6d 69 74 65 72 20 | 3d 20 22 23 22 0d 20 20 |limiter |= "#".  |
|00027da0| 20 20 20 20 20 20 70 75 | 74 20 6c 69 6e 65 20 6e |      pu|t line n|
|00027db0| 75 6d 20 6f 66 20 74 78 | 74 20 69 6e 74 6f 20 69 |um of tx|t into i|
|00027dc0| 74 65 6d 20 61 72 74 69 | 63 6c 65 20 6f 66 20 74 |tem arti|cle of t|
|00027dd0| 6d 70 63 61 70 74 69 6f | 6e 73 0d 20 20 20 20 20 |mpcaptio|ns.     |
|00027de0| 20 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |   set t|he itemd|
|00027df0| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 2c 22 0d 20 |elimiter| = ",". |
|00027e00| 20 20 20 20 20 20 20 0d | 20 20 20 20 20 20 20 20 |       .|        |
|00027e10| 0d 20 20 20 20 20 20 65 | 6c 73 65 20 69 66 20 6c |.      e|lse if l|
|00027e20| 6e 20 63 6f 6e 74 61 69 | 6e 73 20 22 6d 6f 76 69 |n contai|ns "movi|
|00027e30| 65 22 20 6f 72 20 6c 6e | 20 63 6f 6e 74 61 69 6e |e" or ln| contain|
|00027e40| 73 20 22 76 69 64 65 6f | 22 20 6f 72 20 6c 6e 20 |s "video|" or ln |
|00027e50| 63 6f 6e 74 61 69 6e 73 | 20 22 67 72 61 70 68 69 |contains| "graphi|
|00027e60| 63 22 20 c2 0d 20 20 20 | 20 20 20 20 20 20 20 20 |c" ..   |        |
|00027e70| 6f 72 20 6c 6e 20 63 6f | 6e 74 61 69 6e 73 20 22 |or ln co|ntains "|
|00027e80| 66 6f 6f 74 61 67 65 22 | 20 6f 72 20 6c 6e 20 63 |footage"| or ln c|
|00027e90| 6f 6e 74 61 69 6e 73 20 | 22 66 69 6c 6d 22 20 20 |ontains |"film"  |
|00027ea0| 6f 72 20 6c 6e 20 63 6f | 6e 74 61 69 6e 73 20 22 |or ln co|ntains "|
|00027eb0| 61 6e 69 6d 61 74 69 6f | 6e 22 20 74 68 65 6e 0d |animatio|n" then.|
|00027ec0| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 |        |.       |
|00027ed0| 20 2d 2d 20 4d 4f 56 49 | 45 0d 20 20 20 20 20 20 | -- MOVI|E.      |
|00027ee0| 20 20 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 61 |  .     |   set a|
|00027ef0| 72 74 69 63 6c 65 20 3d | 20 61 72 74 69 63 6c 65 |rticle =| article|
|00027f00| 20 2b 20 31 0d 20 20 20 | 20 20 20 20 20 0d 20 20 | + 1.   |     .  |
|00027f10| 20 20 20 20 20 20 69 66 | 20 6c 6e 20 63 6f 6e 74 |      if| ln cont|
|00027f20| 61 69 6e 73 20 22 67 72 | 61 70 68 69 63 22 20 6f |ains "gr|aphic" o|
|00027f30| 72 20 6c 6e 20 63 6f 6e | 74 61 69 6e 73 20 22 61 |r ln con|tains "a|
|00027f40| 6e 69 6d 61 74 69 6f 6e | 22 20 74 68 65 6e 0d 20 |nimation|" then. |
|00027f50| 20 20 20 20 20 20 20 20 | 20 61 64 64 28 74 6d 70 |        | add(tmp|
|00027f60| 6c 69 73 74 2c 61 72 74 | 69 63 6c 65 2c 22 61 6e |list,art|icle,"an|
|00027f70| 69 6d 61 74 69 6f 6e 22 | 29 0d 20 20 20 20 20 20 |imation"|).      |
|00027f80| 20 20 65 6c 73 65 20 20 | 20 20 20 20 20 0d 20 20 |  else  |     .  |
|00027f90| 20 20 20 20 20 20 20 20 | 61 64 64 28 74 6d 70 6c |        |add(tmpl|
|00027fa0| 69 73 74 2c 61 72 74 69 | 63 6c 65 2c 22 6d 6f 76 |ist,arti|cle,"mov|
|00027fb0| 69 65 22 29 0d 20 20 20 | 20 20 20 20 20 65 6e 64 |ie").   |     end|
|00027fc0| 20 69 66 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 | if.    |    .   |
|00027fd0| 20 20 20 20 20 2d 2d 20 | 73 6b 69 70 20 74 6f 20 |     -- |skip to |
|00027fe0| 74 68 65 20 6e 65 78 74 | 20 6e 75 6d 62 65 72 65 |the next| numbere|
|00027ff0| 64 20 6c 69 6e 65 2c 20 | 65 67 2e 20 32 2e 32 20 |d line, |eg. 2.2 |
|00028000| 6f 72 20 33 2e 35 0d 20 | 20 20 20 20 20 20 20 73 |or 3.5. |       s|
|00028010| 65 74 20 6e 75 6d 20 3d | 20 6e 75 6d 20 2b 20 31 |et num =| num + 1|
|00028020| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 6e 75 6d |.       | set num|
|00028030| 20 3d 20 53 6b 69 70 54 | 6f 4e 75 6d 62 65 72 28 | = SkipT|oNumber(|
|00028040| 74 78 74 2c 63 68 61 70 | 2c 61 72 74 69 63 6c 65 |txt,chap|,article|
|00028050| 2c 6e 75 6d 29 0d 20 20 | 20 20 20 20 20 20 69 66 |,num).  |      if|
|00028060| 20 6e 75 6d 20 3d 20 2d | 31 20 74 68 65 6e 20 0d | num = -|1 then .|
|00028070| 20 20 20 20 20 20 20 20 | 20 20 72 65 74 75 72 6e |        |  return|
|00028080| 20 2d 31 0d 20 20 20 20 | 20 20 20 20 20 20 65 78 | -1.    |      ex|
|00028090| 69 74 0d 20 20 20 20 20 | 20 20 20 65 6e 64 20 69 |it.     |   end i|
|000280a0| 66 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |f.      |  .     |
|000280b0| 20 20 20 69 66 20 64 65 | 62 75 67 20 74 68 65 6e |   if de|bug then|
|000280c0| 20 0d 20 20 20 20 20 20 | 20 20 20 20 70 75 74 20 | .      |    put |
|000280d0| 63 68 61 70 20 26 20 22 | 2e 22 20 26 20 61 72 74 |chap & "|." & art|
|000280e0| 69 63 6c 65 20 26 26 22 | 4d 6f 76 69 65 3a 22 20 |icle &&"|Movie:" |
|000280f0| 26 26 20 6c 69 6e 65 20 | 6e 75 6d 20 6f 66 20 74 |&& line |num of t|
|00028100| 78 74 20 69 6e 74 6f 20 | 6c 69 6e 65 20 c2 0d 20 |xt into |line .. |
|00028110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 28 74 |        |     ((t|
|00028120| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|00028130| 65 73 20 6f 66 20 66 69 | 65 6c 64 20 22 70 61 72 |es of fi|eld "par|
|00028140| 73 65 64 22 29 20 2b 20 | 31 29 20 6f 66 20 66 69 |sed") + |1) of fi|
|00028150| 65 6c 64 20 22 70 61 72 | 73 65 64 22 0d 20 20 20 |eld "par|sed".   |
|00028160| 20 20 20 20 20 65 6e 64 | 20 69 66 20 20 0d 20 20 |     end| if  .  |
|00028170| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 2d |      . |       -|
|00028180| 2d 20 69 66 20 74 68 65 | 20 6c 69 6e 65 20 64 6f |- if the| line do|
|00028190| 65 73 6e 27 74 20 63 6f | 6e 74 61 69 6e 20 74 68 |esn't co|ntain th|
|000281a0| 65 20 77 6f 72 64 20 63 | 61 70 74 69 6f 6e 2c 20 |e word c|aption, |
|000281b0| 74 68 65 6e 20 74 68 65 | 72 65 27 73 20 61 20 6d |then the|re's a m|
|000281c0| 69 73 74 61 6b 65 0d 20 | 20 20 20 20 20 20 20 69 |istake. |       i|
|000281d0| 66 20 6e 6f 74 20 28 6c | 69 6e 65 20 6e 75 6d 20 |f not (l|ine num |
|000281e0| 6f 66 20 74 78 74 20 63 | 6f 6e 74 61 69 6e 73 20 |of txt c|ontains |
|000281f0| 28 22 63 61 70 74 69 6f | 6e 22 29 29 20 74 68 65 |("captio|n")) the|
|00028200| 6e 0d 20 20 20 20 20 20 | 20 20 20 20 70 75 74 20 |n.      |    put |
|00028210| 22 65 72 72 6f 72 3a 20 | 22 20 26 26 20 63 68 61 |"error: |" && cha|
|00028220| 70 20 26 20 22 2e 22 20 | 26 20 61 72 74 69 63 6c |p & "." |& articl|
|00028230| 65 20 26 26 20 22 73 68 | 6f 75 6c 64 20 68 61 76 |e && "sh|ould hav|
|00028240| 65 20 61 20 63 61 70 74 | 69 6f 6e 22 0d 20 20 20 |e a capt|ion".   |
|00028250| 20 20 20 20 20 20 20 72 | 65 74 75 72 6e 20 2d 31 |       r|eturn -1|
|00028260| 0d 20 20 20 20 20 20 20 | 20 20 20 65 78 69 74 0d |.       |   exit.|
|00028270| 20 20 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |        |end if. |
|00028280| 20 20 20 20 20 20 20 0d | 20 20 20 20 20 20 20 20 |       .|        |
|00028290| 2d 2d 20 74 68 65 20 63 | 61 70 74 69 6f 6e 20 69 |-- the c|aption i|
|000282a0| 73 20 6f 6e 20 74 68 65 | 20 6c 69 6e 65 20 66 6f |s on the| line fo|
|000282b0| 6c 6c 6f 77 69 6e 67 20 | 74 68 65 20 63 61 70 74 |llowing |the capt|
|000282c0| 69 6f 6e 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |ion.    |    set |
|000282d0| 6e 75 6d 20 3d 20 6e 75 | 6d 20 2b 20 31 0d 20 20 |num = nu|m + 1.  |
|000282e0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 69 |      . |       i|
|000282f0| 66 20 64 65 62 75 67 20 | 74 68 65 6e 20 70 75 74 |f debug |then put|
|00028300| 20 63 68 61 70 20 26 20 | 22 2e 22 20 26 20 61 72 | chap & |"." & ar|
|00028310| 74 69 63 6c 65 20 26 20 | 22 20 43 61 70 74 69 6f |ticle & |" Captio|
|00028320| 6e 3a 22 20 26 26 20 6c | 69 6e 65 20 6e 75 6d 20 |n:" && l|ine num |
|00028330| 6f 66 20 74 78 74 20 69 | 6e 74 6f 20 6c 69 6e 65 |of txt i|nto line|
|00028340| 20 c2 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | ..     |        |
|00028350| 20 28 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | ((the n|umber of|
|00028360| 20 6c 69 6e 65 73 20 6f | 66 20 66 69 65 6c 64 20 | lines o|f field |
|00028370| 22 70 61 72 73 65 64 22 | 29 20 2b 20 31 29 20 6f |"parsed"|) + 1) o|
|00028380| 66 20 66 69 65 6c 64 20 | 22 70 61 72 73 65 64 22 |f field |"parsed"|
|00028390| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|000283a0| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|000283b0| 20 22 23 22 0d 20 20 20 | 20 20 20 20 20 70 75 74 | "#".   |     put|
|000283c0| 20 6c 69 6e 65 20 6e 75 | 6d 20 6f 66 20 74 78 74 | line nu|m of txt|
|000283d0| 20 69 6e 74 6f 20 69 74 | 65 6d 20 61 72 74 69 63 | into it|em artic|
|000283e0| 6c 65 20 6f 66 20 74 6d | 70 63 61 70 74 69 6f 6e |le of tm|pcaption|
|000283f0| 73 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 |s.      |  set th|
|00028400| 65 20 69 74 65 6d 64 65 | 6c 69 6d 69 74 65 72 20 |e itemde|limiter |
|00028410| 3d 20 22 2c 22 0d 20 20 | 20 20 20 20 20 20 0d 20 |= ",".  |      . |
|00028420| 20 20 20 20 20 65 6c 73 | 65 20 69 66 20 6c 6e 20 |     els|e if ln |
|00028430| 63 6f 6e 74 61 69 6e 73 | 20 22 70 61 72 74 77 6f |contains| "partwo|
|00028440| 72 6b 22 20 61 6e 64 20 | 63 68 61 70 20 3e 20 31 |rk" and |chap > 1|
|00028450| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 0d 20 | then.  |      . |
|00028460| 20 20 20 20 20 20 20 2d | 2d 20 50 41 52 54 57 4f |       -|- PARTWO|
|00028470| 52 4b 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |RK.     |   .    |
|00028480| 20 20 20 20 73 65 74 20 | 61 72 74 69 63 6c 65 20 |    set |article |
|00028490| 3d 20 61 72 74 69 63 6c | 65 20 2b 20 31 0d 20 20 |= articl|e + 1.  |
|000284a0| 20 20 20 20 20 20 61 64 | 64 28 74 6d 70 6c 69 73 |      ad|d(tmplis|
|000284b0| 74 2c 61 72 74 69 63 6c | 65 2c 22 70 61 72 74 77 |t,articl|e,"partw|
|000284c0| 6f 72 6b 22 29 0d 20 20 | 20 20 20 20 20 20 0d 20 |ork").  |      . |
|000284d0| 20 20 20 20 20 20 20 2d | 2d 20 73 6b 69 70 20 74 |       -|- skip t|
|000284e0| 6f 20 74 68 65 20 6e 65 | 78 74 20 6e 75 6d 62 65 |o the ne|xt numbe|
|000284f0| 72 65 64 20 6c 69 6e 65 | 2c 20 65 67 2e 20 32 2e |red line|, eg. 2.|
|00028500| 32 20 6f 72 20 33 2e 35 | 0d 20 20 20 20 20 20 20 |2 or 3.5|.       |
|00028510| 20 73 65 74 20 6e 75 6d | 20 3d 20 6e 75 6d 20 2b | set num| = num +|
|00028520| 20 31 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 6e | 1.     |   set n|
|00028530| 75 6d 20 3d 20 53 6b 69 | 70 54 6f 4e 75 6d 62 65 |um = Ski|pToNumbe|
|00028540| 72 28 74 78 74 2c 63 68 | 61 70 2c 61 72 74 69 63 |r(txt,ch|ap,artic|
|00028550| 6c 65 2c 6e 75 6d 29 0d | 20 20 20 20 20 20 20 20 |le,num).|        |
|00028560| 69 66 20 6e 75 6d 20 3d | 20 2d 31 20 74 68 65 6e |if num =| -1 then|
|00028570| 20 0d 20 20 20 20 20 20 | 20 20 20 20 72 65 74 75 | .      |    retu|
|00028580| 72 6e 20 2d 31 0d 20 20 | 20 20 20 20 20 20 20 20 |rn -1.  |        |
|00028590| 65 78 69 74 0d 20 20 20 | 20 20 20 20 20 65 6e 64 |exit.   |     end|
|000285a0| 20 69 66 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 | if.    |    .   |
|000285b0| 20 20 20 20 20 69 66 20 | 64 65 62 75 67 20 74 68 |     if |debug th|
|000285c0| 65 6e 20 0d 20 20 20 20 | 20 20 20 20 20 20 70 75 |en .    |      pu|
|000285d0| 74 20 63 68 61 70 20 26 | 20 22 2e 22 20 26 20 61 |t chap &| "." & a|
|000285e0| 72 74 69 63 6c 65 20 26 | 26 22 50 61 72 74 77 6f |rticle &|&"Partwo|
|000285f0| 72 6b 32 3a 22 20 26 26 | 20 6c 69 6e 65 20 6e 75 |rk2:" &&| line nu|
|00028600| 6d 20 6f 66 20 74 78 74 | 20 69 6e 74 6f 20 6c 69 |m of txt| into li|
|00028610| 6e 65 20 c2 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ne ..   |        |
|00028620| 20 20 20 28 28 74 68 65 | 20 6e 75 6d 62 65 72 20 |   ((the| number |
|00028630| 6f 66 20 6c 69 6e 65 73 | 20 6f 66 20 66 69 65 6c |of lines| of fiel|
|00028640| 64 20 22 70 61 72 73 65 | 64 22 29 20 2b 20 31 29 |d "parse|d") + 1)|
|00028650| 20 6f 66 20 66 69 65 6c | 64 20 22 70 61 72 73 65 | of fiel|d "parse|
|00028660| 64 22 0d 20 20 20 20 20 | 20 20 20 65 6e 64 20 69 |d".     |   end i|
|00028670| 66 20 20 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |f  .    |    .   |
|00028680| 20 20 20 20 20 2d 2d 20 | 69 66 20 74 68 65 20 6c |     -- |if the l|
|00028690| 69 6e 65 20 64 6f 65 73 | 6e 27 74 20 63 6f 6e 74 |ine does|n't cont|
|000286a0| 61 69 6e 20 74 68 65 20 | 77 6f 72 64 20 63 61 70 |ain the |word cap|
|000286b0| 74 69 6f 6e 2c 20 74 68 | 65 6e 20 74 68 65 72 65 |tion, th|en there|
|000286c0| 27 73 20 61 20 6d 69 73 | 74 61 6b 65 0d 20 20 20 |'s a mis|take.   |
|000286d0| 20 20 20 20 20 69 66 20 | 6e 6f 74 20 28 6c 69 6e |     if |not (lin|
|000286e0| 65 20 6e 75 6d 20 6f 66 | 20 74 78 74 20 63 6f 6e |e num of| txt con|
|000286f0| 74 61 69 6e 73 20 28 22 | 63 61 70 74 69 6f 6e 22 |tains ("|caption"|
|00028700| 29 29 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 |)) then.|        |
|00028710| 20 20 70 75 74 20 22 65 | 72 72 6f 72 3a 20 22 20 |  put "e|rror: " |
|00028720| 26 26 20 63 68 61 70 20 | 26 20 22 2e 22 20 26 20 |&& chap |& "." & |
|00028730| 61 72 74 69 63 6c 65 20 | 26 26 20 22 73 68 6f 75 |article |&& "shou|
|00028740| 6c 64 20 68 61 76 65 20 | 61 20 63 61 70 74 69 6f |ld have |a captio|
|00028750| 6e 22 0d 20 20 20 20 20 | 20 20 20 20 20 72 65 74 |n".     |     ret|
|00028760| 75 72 6e 20 2d 31 0d 20 | 20 20 20 20 20 20 20 20 |urn -1. |        |
|00028770| 20 65 78 69 74 0d 20 20 | 20 20 20 20 20 20 65 6e | exit.  |      en|
|00028780| 64 20 69 66 0d 20 20 20 | 20 20 20 20 20 0d 20 20 |d if.   |     .  |
|00028790| 20 20 20 20 20 20 2d 2d | 20 74 68 65 20 63 61 70 |      --| the cap|
|000287a0| 74 69 6f 6e 20 69 73 20 | 6f 6e 20 74 68 65 20 6c |tion is |on the l|
|000287b0| 69 6e 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 74 68 |ine foll|owing th|
|000287c0| 65 20 63 61 70 74 69 6f | 6e 0d 20 20 20 20 20 20 |e captio|n.      |
|000287d0| 20 20 73 65 74 20 6e 75 | 6d 20 3d 20 6e 75 6d 20 |  set nu|m = num |
|000287e0| 2b 20 31 20 20 20 20 0d | 20 20 20 20 20 20 20 20 |+ 1    .|        |
|000287f0| 0d 20 20 20 20 20 20 20 | 20 69 66 20 64 65 62 75 |.       | if debu|
|00028800| 67 20 74 68 65 6e 20 70 | 75 74 20 63 68 61 70 20 |g then p|ut chap |
|00028810| 26 20 22 2e 22 20 26 20 | 61 72 74 69 63 6c 65 20 |& "." & |article |
|00028820| 26 20 22 20 43 61 70 74 | 69 6f 6e 3a 22 20 26 26 |& " Capt|ion:" &&|
|00028830| 20 6c 69 6e 65 20 6e 75 | 6d 20 6f 66 20 74 78 74 | line nu|m of txt|
|00028840| 20 69 6e 74 6f 20 6c 69 | 6e 65 20 c2 0d 20 20 20 | into li|ne ..   |
|00028850| 20 20 20 20 20 20 20 20 | 20 20 20 28 28 74 68 65 |        |   ((the|
|00028860| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|00028870| 20 6f 66 20 66 69 65 6c | 64 20 22 70 61 72 73 65 | of fiel|d "parse|
|00028880| 64 22 29 20 2b 20 31 29 | 20 6f 66 20 66 69 65 6c |d") + 1)| of fiel|
|00028890| 64 20 22 70 61 72 73 65 | 64 22 0d 20 20 20 20 20 |d "parse|d".     |
|000288a0| 20 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |   set t|he itemd|
|000288b0| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 23 22 0d 20 |elimiter| = "#". |
|000288c0| 20 20 20 20 20 20 20 70 | 75 74 20 6c 69 6e 65 20 |       p|ut line |
|000288d0| 6e 75 6d 20 6f 66 20 74 | 78 74 20 69 6e 74 6f 20 |num of t|xt into |
|000288e0| 69 74 65 6d 20 61 72 74 | 69 63 6c 65 20 6f 66 20 |item art|icle of |
|000288f0| 74 6d 70 63 61 70 74 69 | 6f 6e 73 0d 20 20 20 20 |tmpcapti|ons.    |
|00028900| 20 20 20 20 73 65 74 20 | 74 68 65 20 69 74 65 6d |    set |the item|
|00028910| 64 65 6c 69 6d 69 74 65 | 72 20 3d 20 22 2c 22 0d |delimite|r = ",".|
|00028920| 20 20 20 20 20 20 20 20 | 2d 2d 61 64 64 28 74 6d |        |--add(tm|
|00028930| 70 74 69 74 6c 65 73 2c | 61 72 74 69 63 6c 65 2c |ptitles,|article,|
|00028940| 22 50 61 72 74 77 6f 72 | 6b 22 29 0d 20 20 20 20 |"Partwor|k").    |
|00028950| 20 20 20 20 61 64 64 28 | 74 6d 70 64 61 74 65 73 |    add(|tmpdates|
|00028960| 2c 61 72 74 69 63 6c 65 | 2c 22 20 22 29 0d 20 20 |,article|," ").  |
|00028970| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 65 6c 73 |      . |     els|
|00028980| 65 20 69 66 20 6c 6e 20 | 63 6f 6e 74 61 69 6e 73 |e if ln |contains|
|00028990| 20 22 63 75 74 74 69 6e | 67 22 20 74 68 65 6e 0d | "cuttin|g" then.|
|000289a0| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 |        |.       |
|000289b0| 20 2d 2d 20 43 55 54 54 | 49 4e 47 0d 20 20 20 20 | -- CUTT|ING.    |
|000289c0| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 73 65 74 |    .   |     set|
|000289d0| 20 61 72 74 69 63 6c 65 | 20 3d 20 61 72 74 69 63 | article| = artic|
|000289e0| 6c 65 20 2b 20 31 0d 20 | 20 20 20 20 20 20 20 61 |le + 1. |       a|
|000289f0| 64 64 28 74 6d 70 6c 69 | 73 74 2c 61 72 74 69 63 |dd(tmpli|st,artic|
|00028a00| 6c 65 2c 22 63 75 74 74 | 69 6e 67 22 29 0d 20 20 |le,"cutt|ing").  |
|00028a10| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 69 |      . |       i|
|00028a20| 66 20 64 65 62 75 67 20 | 74 68 65 6e 20 70 75 74 |f debug |then put|
|00028a30| 20 63 68 61 70 20 26 20 | 22 2e 22 20 26 20 61 72 | chap & |"." & ar|
|00028a40| 74 69 63 6c 65 20 26 26 | 20 22 43 75 74 74 69 6e |ticle &&| "Cuttin|
|00028a50| 67 3a 22 20 20 69 6e 74 | 6f 20 6c 69 6e 65 20 c2 |g:"  int|o line .|
|00028a60| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |.       |       (|
|00028a70| 28 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 6c |(the num|ber of l|
|00028a80| 69 6e 65 73 20 6f 66 20 | 66 69 65 6c 64 20 22 70 |ines of |field "p|
|00028a90| 61 72 73 65 64 22 29 20 | 2b 20 31 29 20 6f 66 20 |arsed") |+ 1) of |
|00028aa0| 66 69 65 6c 64 20 22 70 | 61 72 73 65 64 22 0d 20 |field "p|arsed". |
|00028ab0| 20 20 20 20 20 20 20 0d | 20 20 20 20 20 20 20 20 |       .|        |
|00028ac0| 2d 2d 20 73 6b 69 70 20 | 74 6f 20 74 68 65 20 6e |-- skip |to the n|
|00028ad0| 65 78 74 20 6e 75 6d 62 | 65 72 65 64 20 6c 69 6e |ext numb|ered lin|
|00028ae0| 65 2c 20 65 67 2e 20 32 | 2e 32 20 6f 72 20 33 2e |e, eg. 2|.2 or 3.|
|00028af0| 35 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 6e 75 |5.      |  set nu|
|00028b00| 6d 20 3d 20 6e 75 6d 20 | 2b 20 31 0d 20 20 20 20 |m = num |+ 1.    |
|00028b10| 20 20 20 20 73 65 74 20 | 6e 75 6d 20 3d 20 53 6b |    set |num = Sk|
|00028b20| 69 70 54 6f 4e 75 6d 62 | 65 72 28 74 78 74 2c 63 |ipToNumb|er(txt,c|
|00028b30| 68 61 70 2c 61 72 74 69 | 63 6c 65 2c 6e 75 6d 29 |hap,arti|cle,num)|
|00028b40| 0d 20 20 20 20 20 20 20 | 20 69 66 20 6e 75 6d 20 |.       | if num |
|00028b50| 3d 20 2d 31 20 74 68 65 | 6e 20 0d 20 20 20 20 20 |= -1 the|n .     |
|00028b60| 20 20 20 20 20 72 65 74 | 75 72 6e 20 2d 31 0d 20 |     ret|urn -1. |
|00028b70| 20 20 20 20 20 20 20 20 | 20 65 78 69 74 0d 20 20 |        | exit.  |
|00028b80| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |      en|d if.   |
|00028b90| 20 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 2d 2d |     .  |      --|
|00028ba0| 20 73 6f 6d 65 74 69 6d | 65 73 20 74 68 65 20 74 | sometim|es the t|
|00028bb0| 65 78 74 20 69 73 20 6f | 6e 20 74 68 65 20 6e 65 |ext is o|n the ne|
|00028bc0| 78 74 20 6c 69 6e 65 2c | 20 69 6e 73 74 65 61 64 |xt line,| instead|
|00028bd0| 20 6f 66 20 6f 6e 20 74 | 68 65 20 73 61 6d 65 20 | of on t|he same |
|00028be0| 6c 69 6e 65 0d 20 20 20 | 20 20 20 20 20 69 66 20 |line.   |     if |
|00028bf0| 6e 6f 74 45 6d 70 74 79 | 28 6c 69 6e 65 20 28 6e |notEmpty|(line (n|
|00028c00| 75 6d 2b 31 29 20 6f 66 | 20 74 78 74 29 20 74 68 |um+1) of| txt) th|
|00028c10| 65 6e 0d 20 20 20 20 20 | 20 20 20 20 20 73 65 74 |en.     |     set|
|00028c20| 20 6e 75 6d 20 3d 20 6e | 75 6d 2b 31 0d 20 20 20 | num = n|um+1.   |
|00028c30| 20 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |     els|e.      |
|00028c40| 20 20 20 20 64 65 6c 65 | 74 65 20 77 6f 72 64 20 |    dele|te word |
|00028c50| 31 20 6f 66 20 6c 69 6e | 65 20 6e 75 6d 20 6f 66 |1 of lin|e num of|
|00028c60| 20 74 78 74 0d 20 20 20 | 20 20 20 20 20 65 6e 64 | txt.   |     end|
|00028c70| 20 69 66 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 | if.    |    .   |
|00028c80| 20 20 20 20 20 69 66 20 | 64 65 62 75 67 20 74 68 |     if |debug th|
|00028c90| 65 6e 20 70 75 74 20 63 | 68 61 70 20 26 20 22 2e |en put c|hap & ".|
|00028ca0| 22 20 26 20 61 72 74 69 | 63 6c 65 20 26 26 20 22 |" & arti|cle && "|
|00028cb0| 48 65 61 64 6c 69 6e 65 | 3a 22 20 26 26 20 6c 69 |Headline|:" && li|
|00028cc0| 6e 65 20 6e 75 6d 20 6f | 66 20 74 78 74 20 69 6e |ne num o|f txt in|
|00028cd0| 74 6f 20 6c 69 6e 65 20 | c2 0d 20 20 20 20 20 20 |to line |..      |
|00028ce0| 20 20 20 20 20 20 20 20 | 28 28 74 68 65 20 6e 75 |        |((the nu|
|00028cf0| 6d 62 65 72 20 6f 66 20 | 6c 69 6e 65 73 20 6f 66 |mber of |lines of|
|00028d00| 20 66 69 65 6c 64 20 22 | 70 61 72 73 65 64 22 29 | field "|parsed")|
|00028d10| 20 2b 20 31 29 20 6f 66 | 20 66 69 65 6c 64 20 22 | + 1) of| field "|
|00028d20| 70 61 72 73 65 64 22 0d | 20 20 20 20 20 20 20 20 |parsed".|        |
|00028d30| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|00028d40| 6d 69 74 65 72 20 3d 20 | 22 23 22 0d 20 20 20 20 |miter = |"#".    |
|00028d50| 20 20 20 20 70 75 74 20 | 6c 69 6e 65 20 6e 75 6d |    put |line num|
|00028d60| 20 6f 66 20 74 78 74 20 | 69 6e 74 6f 20 69 74 65 | of txt |into ite|
|00028d70| 6d 20 61 72 74 69 63 6c | 65 20 6f 66 20 74 6d 70 |m articl|e of tmp|
|00028d80| 74 69 74 6c 65 73 0d 20 | 20 20 20 20 20 20 20 73 |titles. |       s|
|00028d90| 65 74 20 74 68 65 20 69 | 74 65 6d 64 65 6c 69 6d |et the i|temdelim|
|00028da0| 69 74 65 72 20 3d 20 22 | 2c 22 0d 20 20 20 20 20 |iter = "|,".     |
|00028db0| 20 20 20 0d 20 20 20 20 | 20 20 20 20 2d 2d 61 64 |   .    |    --ad|
|00028dc0| 64 28 74 6d 70 74 69 74 | 6c 65 73 2c 61 72 74 69 |d(tmptit|les,arti|
|00028dd0| 63 6c 65 2c 6c 69 6e 65 | 20 6e 75 6d 20 6f 66 20 |cle,line| num of |
|00028de0| 74 78 74 29 0d 20 20 20 | 20 20 20 20 20 0d 20 20 |txt).   |     .  |
|00028df0| 20 20 20 20 20 20 2d 2d | 20 73 6b 69 70 20 74 6f |      --| skip to|
|00028e00| 20 74 68 65 20 6e 65 78 | 74 20 6e 75 6d 62 65 72 | the nex|t number|
|00028e10| 65 64 20 6c 69 6e 65 2c | 20 65 67 2e 20 32 2e 32 |ed line,| eg. 2.2|
|00028e20| 20 6f 72 20 33 2e 35 0d | 20 20 20 20 20 20 20 20 | or 3.5.|        |
|00028e30| 73 65 74 20 6e 75 6d 20 | 3d 20 6e 75 6d 20 2b 20 |set num |= num + |
|00028e40| 31 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 6e 75 |1.      |  set nu|
|00028e50| 6d 20 3d 20 53 6b 69 70 | 54 6f 4e 75 6d 62 65 72 |m = Skip|ToNumber|
|00028e60| 28 74 78 74 2c 63 68 61 | 70 2c 61 72 74 69 63 6c |(txt,cha|p,articl|
|00028e70| 65 2c 6e 75 6d 29 0d 20 | 20 20 20 20 20 20 20 69 |e,num). |       i|
|00028e80| 66 20 6e 75 6d 20 3d 20 | 2d 31 20 74 68 65 6e 20 |f num = |-1 then |
|00028e90| 0d 20 20 20 20 20 20 20 | 20 20 20 72 65 74 75 72 |.       |   retur|
|00028ea0| 6e 20 2d 31 0d 20 20 20 | 20 20 20 20 20 20 20 65 |n -1.   |       e|
|00028eb0| 78 69 74 0d 20 20 20 20 | 20 20 20 20 65 6e 64 20 |xit.    |    end |
|00028ec0| 69 66 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |if.     |   .    |
|00028ed0| 20 20 20 20 2d 2d 20 73 | 6f 6d 65 74 69 6d 65 73 |    -- s|ometimes|
|00028ee0| 20 74 68 65 20 74 65 78 | 74 20 69 73 20 6f 6e 20 | the tex|t is on |
|00028ef0| 74 68 65 20 6e 65 78 74 | 20 6c 69 6e 65 2c 20 69 |the next| line, i|
|00028f00| 6e 73 74 65 61 64 20 6f | 66 20 6f 6e 20 74 68 65 |nstead o|f on the|
|00028f10| 20 73 61 6d 65 20 6c 69 | 6e 65 0d 20 20 20 20 20 | same li|ne.     |
|00028f20| 20 20 20 69 66 20 6e 6f | 74 45 6d 70 74 79 28 6c |   if no|tEmpty(l|
|00028f30| 69 6e 65 20 28 6e 75 6d | 2b 31 29 20 6f 66 20 74 |ine (num|+1) of t|
|00028f40| 78 74 29 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |xt) then|.       |
|00028f50| 20 20 20 73 65 74 20 6e | 75 6d 20 3d 20 6e 75 6d |   set n|um = num|
|00028f60| 2b 31 0d 20 20 20 20 20 | 20 20 20 65 6c 73 65 0d |+1.     |   else.|
|00028f70| 20 20 20 20 20 20 20 20 | 20 20 64 65 6c 65 74 65 |        |  delete|
|00028f80| 20 77 6f 72 64 20 31 20 | 6f 66 20 6c 69 6e 65 20 | word 1 |of line |
|00028f90| 6e 75 6d 20 6f 66 20 74 | 78 74 20 0d 20 20 20 20 |num of t|xt .    |
|00028fa0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 20 |    end |if.     |
|00028fb0| 20 20 20 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |   .    |    .   |
|00028fc0| 20 20 20 20 20 69 66 20 | 64 65 62 75 67 20 74 68 |     if |debug th|
|00028fd0| 65 6e 20 70 75 74 20 63 | 68 61 70 20 26 20 22 2e |en put c|hap & ".|
|00028fe0| 22 20 26 20 61 72 74 69 | 63 6c 65 20 26 26 20 22 |" & arti|cle && "|
|00028ff0| 44 61 74 65 3a 22 20 26 | 26 20 6c 69 6e 65 20 6e |Date:" &|& line n|
|00029000| 75 6d 20 6f 66 20 74 78 | 74 20 69 6e 74 6f 20 6c |um of tx|t into l|
|00029010| 69 6e 65 20 c2 0d 20 20 | 20 20 20 20 20 20 20 20 |ine ..  |        |
|00029020| 20 20 20 20 28 28 74 68 | 65 20 6e 75 6d 62 65 72 |    ((th|e number|
|00029030| 20 6f 66 20 6c 69 6e 65 | 73 20 6f 66 20 66 69 65 | of line|s of fie|
|00029040| 6c 64 20 22 70 61 72 73 | 65 64 22 29 20 2b 20 31 |ld "pars|ed") + 1|
|00029050| 29 20 6f 66 20 66 69 65 | 6c 64 20 22 70 61 72 73 |) of fie|ld "pars|
|00029060| 65 64 22 20 0d 20 20 20 | 20 20 20 20 20 61 64 64 |ed" .   |     add|
|00029070| 28 74 6d 70 64 61 74 65 | 73 2c 61 72 74 69 63 6c |(tmpdate|s,articl|
|00029080| 65 2c 20 6c 69 6e 65 20 | 6e 75 6d 20 6f 66 20 74 |e, line |num of t|
|00029090| 78 74 29 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |xt).    |    .   |
|000290a0| 20 20 20 20 20 2d 2d 20 | 73 6b 69 70 20 74 6f 20 |     -- |skip to |
|000290b0| 74 68 65 20 6e 65 78 74 | 20 6e 75 6d 62 65 72 65 |the next| numbere|
|000290c0| 64 20 6c 69 6e 65 2c 20 | 65 67 2e 20 32 2e 32 20 |d line, |eg. 2.2 |
|000290d0| 6f 72 20 33 2e 35 0d 20 | 20 20 20 20 20 20 20 73 |or 3.5. |       s|
|000290e0| 65 74 20 6e 75 6d 20 3d | 20 6e 75 6d 20 2b 20 31 |et num =| num + 1|
|000290f0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 6e 75 6d |.       | set num|
|00029100| 20 3d 20 53 6b 69 70 54 | 6f 4e 75 6d 62 65 72 28 | = SkipT|oNumber(|
|00029110| 74 78 74 2c 63 68 61 70 | 2c 61 72 74 69 63 6c 65 |txt,chap|,article|
|00029120| 2c 6e 75 6d 29 0d 20 20 | 20 20 20 20 20 20 69 66 |,num).  |      if|
|00029130| 20 6e 75 6d 20 3d 20 2d | 31 20 74 68 65 6e 20 0d | num = -|1 then .|
|00029140| 20 20 20 20 20 20 20 20 | 20 20 72 65 74 75 72 6e |        |  return|
|00029150| 20 2d 31 0d 20 20 20 20 | 20 20 20 20 20 20 65 78 | -1.    |      ex|
|00029160| 69 74 0d 20 20 20 20 20 | 20 20 20 65 6e 64 20 69 |it.     |   end i|
|00029170| 66 0d 20 20 20 20 20 20 | 20 20 0d 20 20 20 20 20 |f.      |  .     |
|00029180| 20 20 20 2d 2d 20 69 66 | 20 74 68 65 20 6c 69 6e |   -- if| the lin|
|00029190| 65 20 64 6f 65 73 6e 27 | 74 20 63 6f 6e 74 61 69 |e doesn'|t contai|
|000291a0| 6e 20 74 68 65 20 77 6f | 72 64 20 63 61 70 74 69 |n the wo|rd capti|
|000291b0| 6f 6e 2c 20 74 68 65 6e | 20 74 68 65 72 65 27 73 |on, then| there's|
|000291c0| 20 61 20 6d 69 73 74 61 | 6b 65 0d 20 20 20 20 20 | a mista|ke.     |
|000291d0| 20 20 20 69 66 20 6e 6f | 74 20 28 6c 69 6e 65 20 |   if no|t (line |
|000291e0| 6e 75 6d 20 6f 66 20 74 | 78 74 20 63 6f 6e 74 61 |num of t|xt conta|
|000291f0| 69 6e 73 20 28 22 63 61 | 70 74 69 6f 6e 22 29 29 |ins ("ca|ption"))|
|00029200| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 20 20 | then.  |        |
|00029210| 70 75 74 20 22 65 72 72 | 6f 72 3a 20 22 20 26 26 |put "err|or: " &&|
|00029220| 20 63 68 61 70 20 26 20 | 22 2e 22 20 26 20 61 72 | chap & |"." & ar|
|00029230| 74 69 63 6c 65 20 26 26 | 20 22 73 68 6f 75 6c 64 |ticle &&| "should|
|00029240| 20 68 61 76 65 20 61 20 | 63 61 70 74 69 6f 6e 22 | have a |caption"|
|00029250| 0d 20 20 20 20 20 20 20 | 20 20 20 72 65 74 75 72 |.       |   retur|
|00029260| 6e 20 2d 31 0d 20 20 20 | 20 20 20 20 20 20 20 65 |n -1.   |       e|
|00029270| 78 69 74 0d 20 20 20 20 | 20 20 20 20 65 6e 64 20 |xit.    |    end |
|00029280| 69 66 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |if.     |   .    |
|00029290| 20 20 20 20 2d 2d 20 74 | 68 65 20 63 61 70 74 69 |    -- t|he capti|
|000292a0| 6f 6e 20 69 73 20 6f 6e | 20 74 68 65 20 6c 69 6e |on is on| the lin|
|000292b0| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 74 68 65 20 |e follow|ing the |
|000292c0| 63 61 70 74 69 6f 6e 0d | 20 20 20 20 20 20 20 20 |caption.|        |
|000292d0| 73 65 74 20 6e 75 6d 20 | 3d 20 6e 75 6d 20 2b 20 |set num |= num + |
|000292e0| 31 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 0d 20 |1    .  |      . |
|000292f0| 20 20 20 20 20 20 20 69 | 66 20 64 65 62 75 67 20 |       i|f debug |
|00029300| 74 68 65 6e 20 70 75 74 | 20 63 68 61 70 20 26 20 |then put| chap & |
|00029310| 22 2e 22 20 26 20 61 72 | 74 69 63 6c 65 20 26 26 |"." & ar|ticle &&|
|00029320| 20 22 43 61 70 74 69 6f | 6e 3a 22 20 26 26 20 6c | "Captio|n:" && l|
|00029330| 69 6e 65 20 6e 75 6d 20 | 6f 66 20 74 78 74 20 69 |ine num |of txt i|
|00029340| 6e 74 6f 20 6c 69 6e 65 | 20 c2 0d 20 20 20 20 20 |nto line| ..     |
|00029350| 20 20 20 20 20 20 20 20 | 20 28 28 74 68 65 20 6e |        | ((the n|
|00029360| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|00029370| 66 20 66 69 65 6c 64 20 | 22 70 61 72 73 65 64 22 |f field |"parsed"|
|00029380| 29 20 2b 20 31 29 20 6f | 66 20 66 69 65 6c 64 20 |) + 1) o|f field |
|00029390| 22 70 61 72 73 65 64 22 | 0d 20 20 20 20 20 20 20 |"parsed"|.       |
|000293a0| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|000293b0| 69 6d 69 74 65 72 20 3d | 20 22 23 22 0d 20 20 20 |imiter =| "#".   |
|000293c0| 20 20 20 20 20 70 75 74 | 20 6c 69 6e 65 20 6e 75 |     put| line nu|
|000293d0| 6d 20 6f 66 20 74 78 74 | 20 69 6e 74 6f 20 69 74 |m of txt| into it|
|000293e0| 65 6d 20 61 72 74 69 63 | 6c 65 20 6f 66 20 74 6d |em artic|le of tm|
|000293f0| 70 63 61 70 74 69 6f 6e | 73 0d 20 20 20 20 20 20 |pcaption|s.      |
|00029400| 20 20 73 65 74 20 74 68 | 65 20 69 74 65 6d 64 65 |  set th|e itemde|
|00029410| 6c 69 6d 69 74 65 72 20 | 3d 20 22 2c 22 0d 20 20 |limiter |= ",".  |
|00029420| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 2d |      . |       -|
|00029430| 2d 61 64 64 28 74 6d 70 | 63 61 70 74 69 6f 6e 73 |-add(tmp|captions|
|00029440| 2c 61 72 74 69 63 6c 65 | 2c 6c 69 6e 65 20 6e 75 |,article|,line nu|
|00029450| 6d 20 6f 66 20 74 78 74 | 29 0d 20 20 20 20 20 20 |m of txt|).      |
|00029460| 20 20 0d 20 20 20 20 20 | 20 65 6c 73 65 20 2d 2d |  .     | else --|
|00029470| 20 6f 74 68 65 72 20 73 | 74 75 66 66 20 28 73 6b | other s|tuff (sk|
|00029480| 79 2c 20 72 61 64 69 6f | 20 69 6e 74 65 72 76 69 |y, radio| intervi|
|00029490| 65 77 2c 20 65 74 63 2e | 29 0d 20 20 20 20 20 20 |ew, etc.|).      |
|000294a0| 20 20 2d 2d 20 4f 54 48 | 45 52 20 53 54 55 46 46 |  -- OTH|ER STUFF|
|000294b0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 61 72 74 |.       | set art|
|000294c0| 69 63 6c 65 20 3d 20 61 | 72 74 69 63 6c 65 20 2b |icle = a|rticle +|
|000294d0| 20 31 0d 20 20 20 20 20 | 20 20 20 64 65 6c 65 74 | 1.     |   delet|
|000294e0| 65 20 77 6f 72 64 20 31 | 20 6f 66 20 6c 6e 0d 20 |e word 1| of ln. |
|000294f0| 20 20 20 20 20 20 20 61 | 64 64 28 74 6d 70 6c 69 |       a|dd(tmpli|
|00029500| 73 74 2c 6c 6e 29 0d 20 | 20 20 20 20 20 20 20 73 |st,ln). |       s|
|00029510| 65 74 20 6e 75 6d 20 3d | 20 6e 75 6d 20 2b 20 31 |et num =| num + 1|
|00029520| 0d 20 20 20 20 20 20 20 | 20 69 66 20 64 65 62 75 |.       | if debu|
|00029530| 67 20 74 68 65 6e 20 70 | 75 74 20 63 68 61 70 20 |g then p|ut chap |
|00029540| 26 20 22 2e 22 20 26 20 | 61 72 74 69 63 6c 65 20 |& "." & |article |
|00029550| 26 26 20 6c 6e 20 26 26 | 20 6c 69 6e 65 20 6e 75 |&& ln &&| line nu|
|00029560| 6d 20 6f 66 20 74 78 74 | 20 69 6e 74 6f 20 6c 69 |m of txt| into li|
|00029570| 6e 65 20 c2 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ne ..   |        |
|00029580| 20 20 20 28 28 74 68 65 | 20 6e 75 6d 62 65 72 20 |   ((the| number |
|00029590| 6f 66 20 6c 69 6e 65 73 | 20 6f 66 20 66 69 65 6c |of lines| of fiel|
|000295a0| 64 20 22 70 61 72 73 65 | 64 22 29 20 2b 20 31 29 |d "parse|d") + 1)|
|000295b0| 20 6f 66 20 66 69 65 6c | 64 20 22 70 61 72 73 65 | of fiel|d "parse|
|000295c0| 64 22 0d 20 20 20 20 20 | 20 65 6e 64 20 69 66 20 |d".     | end if |
|000295d0| 20 20 20 20 0d 20 20 20 | 20 65 6e 64 20 69 66 20 |    .   | end if |
|000295e0| 20 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 20 20 | .  end |repeat  |
|000295f0| 0d 20 20 0d 20 20 0d 20 | 20 2d 2d 20 67 43 68 61 |.  .  . | -- gCha|
|00029600| 70 74 65 72 73 2c 20 67 | 41 72 74 69 63 6c 65 73 |pters, g|Articles|
|00029610| 2c 20 67 43 61 70 74 69 | 6f 6e 73 2c 20 67 54 69 |, gCapti|ons, gTi|
|00029620| 74 6c 65 73 2c 20 67 44 | 61 74 65 73 2c 20 67 4e |tles, gD|ates, gN|
|00029630| 61 6d 65 0d 20 20 61 64 | 64 61 74 28 67 43 68 61 |ame.  ad|dat(gCha|
|00029640| 70 74 65 72 73 2c 31 2c | 22 49 4e 54 52 4f 22 29 |pters,1,|"INTRO")|
|00029650| 0d 20 20 61 64 64 61 74 | 28 67 41 72 74 69 63 6c |.  addat|(gArticl|
|00029660| 65 73 2c 31 2c 5b 22 50 | 61 72 74 77 6f 72 6b 22 |es,1,["P|artwork"|
|00029670| 5d 29 0d 20 20 0d 20 20 | 2d 2d 61 64 64 61 74 28 |]).  .  |--addat(|
|00029680| 67 43 61 70 74 69 6f 6e | 73 2c 31 2c 5b 5d 29 0d |gCaption|s,1,[]).|
|00029690| 20 20 2d 2d 61 64 64 61 | 74 28 67 54 69 74 6c 65 |  --adda|t(gTitle|
|000296a0| 73 2c 31 2c 5b 5d 29 0d | 20 20 61 64 64 61 74 28 |s,1,[]).|  addat(|
|000296b0| 67 44 61 74 65 73 2c 31 | 2c 5b 5d 29 0d 20 20 73 |gDates,1|,[]).  s|
|000296c0| 65 74 20 67 54 6f 74 61 | 6c 43 68 61 70 74 65 72 |et gTota|lChapter|
|000296d0| 73 20 3d 20 63 6f 75 6e | 74 28 67 43 68 61 70 74 |s = coun|t(gChapt|
|000296e0| 65 72 73 29 0d 20 20 0d | 20 20 72 65 74 75 72 6e |ers).  .|  return|
|000296f0| 20 30 0d 65 6e 64 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | 0.end.-|--------|
|00029700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00029710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00029720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00029730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00029740| 2d 2d 2d 2d 2d 2d 2d 0d | 6f 6e 20 6e 6f 74 45 6d |-------.|on notEm|
|00029750| 70 74 79 20 73 74 72 0d | 20 20 2d 2d 20 66 69 6e |pty str.|  -- fin|
|00029760| 64 20 6f 75 74 20 69 66 | 20 61 20 73 74 72 69 6e |d out if| a strin|
|00029770| 67 20 69 73 20 65 6d 70 | 74 79 0d 20 20 2d 2d 20 |g is emp|ty.  -- |
|00029780| 61 20 73 74 72 69 6e 67 | 20 69 73 20 6e 6f 74 20 |a string| is not |
|00029790| 65 6d 70 74 79 20 69 66 | 3a 0d 20 20 2d 2d 20 20 |empty if|:.  --  |
|000297a0| 20 20 69 74 20 63 6f 6e | 74 61 69 6e 73 20 6d 6f |  it con|tains mo|
|000297b0| 72 65 20 74 68 61 6e 20 | 66 69 76 65 20 63 68 61 |re than |five cha|
|000297c0| 72 61 63 74 65 72 73 0d | 20 20 2d 2d 20 20 20 20 |racters.|  --    |
|000297d0| 69 66 20 69 74 20 63 6f | 6e 74 61 69 6e 73 20 6c |if it co|ntains l|
|000297e0| 65 73 73 20 74 68 61 6e | 20 66 69 76 65 20 63 68 |ess than| five ch|
|000297f0| 61 72 61 63 74 65 72 73 | 2c 20 69 74 20 6d 75 73 |aracters|, it mus|
|00029800| 74 20 63 6f 6e 74 61 69 | 6e 20 61 0d 20 20 2d 2d |t contai|n a.  --|
|00029810| 20 20 20 20 70 72 69 6e | 74 69 6e 67 20 63 68 61 |    prin|ting cha|
|00029820| 72 61 63 74 65 72 2c 20 | 69 65 2e 20 61 20 6c 65 |racter, |ie. a le|
|00029830| 74 74 65 72 2c 6e 75 6d | 62 65 72 2c 20 6f 72 20 |tter,num|ber, or |
|00029840| 70 75 6e 63 74 75 61 74 | 69 6f 6e 0d 20 20 0d 20 |punctuat|ion.  . |
|00029850| 20 73 65 74 20 6e 75 6d | 20 3d 20 74 68 65 20 6e | set num| = the n|
|00029860| 75 6d 62 65 72 20 6f 66 | 20 63 68 61 72 73 20 6f |umber of| chars o|
|00029870| 66 20 73 74 72 0d 20 20 | 69 66 20 6e 75 6d 20 3e |f str.  |if num >|
|00029880| 20 35 20 74 68 65 6e 20 | 72 65 74 75 72 6e 20 31 | 5 then |return 1|
|00029890| 0d 20 20 0d 20 20 73 65 | 74 20 61 6c 70 68 61 6e |.  .  se|t alphan|
|000298a0| 75 6d 20 3d 20 22 61 62 | 63 64 65 66 67 68 69 6a |um = "ab|cdefghij|
|000298b0| 6b 6c 6d 6e 6f 70 71 72 | 73 74 75 76 77 78 79 7a |klmnopqr|stuvwxyz|
|000298c0| 31 32 33 34 35 36 37 38 | 39 30 21 40 24 25 5e 26 |12345678|90!@$%^&|
|000298d0| 2a 28 29 2d 3d 5f 2b 7b | 7d 5b 5d 3b 3a 27 5c 7c |*()-=_+{|}[];:'\||
|000298e0| 2c 2e 3c 3e 2f 3f 60 7e | 22 0d 20 20 0d 20 20 72 |,.<>/?`~|".  .  r|
|000298f0| 65 70 65 61 74 20 77 69 | 74 68 20 6a 20 3d 20 31 |epeat wi|th j = 1|
|00029900| 20 74 6f 20 6e 75 6d 0d | 20 20 20 20 0d 20 20 20 | to num.|    .   |
|00029910| 20 69 66 20 61 6c 70 68 | 61 6e 75 6d 20 63 6f 6e | if alph|anum con|
|00029920| 74 61 69 6e 73 20 63 68 | 61 72 20 6a 20 6f 66 20 |tains ch|ar j of |
|00029930| 73 74 72 20 74 68 65 6e | 20 0d 20 20 20 20 20 20 |str then| .      |
|00029940| 72 65 74 75 72 6e 20 31 | 0d 20 20 20 20 20 20 65 |return 1|.      e|
|00029950| 78 69 74 20 72 65 70 65 | 61 74 0d 20 20 20 20 65 |xit repe|at.    e|
|00029960| 6e 64 20 69 66 0d 20 20 | 20 20 0d 20 20 65 6e 64 |nd if.  |  .  end|
|00029970| 20 72 65 70 65 61 74 0d | 20 20 0d 20 20 72 65 74 | repeat.|  .  ret|
|00029980| 75 72 6e 20 30 0d 65 6e | 64 0d 0d 2d 2d 2d 2d 2d |urn 0.en|d..-----|
|00029990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000299a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000299b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000299c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000299d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 6f 6e 20 53 |--------|---.on S|
|000299e0| 6b 69 70 54 6f 4e 75 6d | 62 65 72 20 74 78 74 2c |kipToNum|ber txt,|
|000299f0| 63 68 61 70 2c 61 72 74 | 2c 6e 75 6d 0d 20 20 0d |chap,art|,num.  .|
|00029a00| 20 20 73 65 74 20 73 74 | 61 72 74 20 3d 20 6e 75 |  set st|art = nu|
|00029a10| 6d 0d 20 20 0d 20 20 72 | 65 70 65 61 74 20 77 68 |m.  .  r|epeat wh|
|00029a20| 69 6c 65 20 63 68 61 72 | 20 31 20 6f 66 20 77 6f |ile char| 1 of wo|
|00029a30| 72 64 20 31 20 6f 66 20 | 28 6c 69 6e 65 20 6e 75 |rd 1 of |(line nu|
|00029a40| 6d 20 6f 66 20 74 78 74 | 29 20 3c 3e 20 73 74 72 |m of txt|) <> str|
|00029a50| 69 6e 67 28 63 68 61 70 | 29 0d 20 20 20 20 73 65 |ing(chap|).    se|
|00029a60| 74 20 6e 75 6d 20 3d 20 | 6e 75 6d 20 2b 20 31 20 |t num = |num + 1 |
|00029a70| 20 0d 20 20 20 20 69 66 | 20 28 6e 75 6d 20 2d 20 | .    if| (num - |
|00029a80| 73 74 61 72 74 29 20 3e | 20 35 20 74 68 65 6e 0d |start) >| 5 then.|
|00029a90| 20 20 20 20 20 20 70 75 | 74 20 22 45 72 72 6f 72 |      pu|t "Error|
|00029aa0| 20 69 6e 20 22 20 26 26 | 20 63 68 61 70 20 26 22 | in " &&| chap &"|
|00029ab0| 2e 22 26 61 72 74 0d 20 | 20 20 20 20 20 72 65 74 |."&art. |     ret|
|00029ac0| 75 72 6e 20 2d 31 0d 20 | 20 20 20 20 20 65 78 69 |urn -1. |     exi|
|00029ad0| 74 0d 20 20 20 20 65 6e | 64 20 69 66 20 20 20 20 |t.    en|d if    |
|00029ae0| 0d 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |.  end r|epeat.  |
|00029af0| 0d 20 20 72 65 74 75 72 | 6e 20 6e 75 6d 20 0d 65 |.  retur|n num .e|
|00029b00| 6e 64 0d 00 32 00 32 01 | 82 02 2c 00 00 01 f7 00 |nd..2.2.|..,.....|
|00029b10| 00 02 12 00 b4 8c dc 00 | 15 00 00 00 00 00 0b 00 |........|........|
|00029b20| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 00 13 |........|........|
|00029b30| 32 00 0b 00 09 00 04 00 | 00 00 09 ac ac 11 11 09 |2.......|........|
|00029b40| 09 00 00 13 62 00 0b 00 | 09 00 04 00 00 00 09 00 |....b...|........|
|00029b50| 00 00 00 00 00 00 00 14 | ab 00 0b 00 09 00 04 00 |........|........|
|00029b60| 00 00 09 ac ac 11 11 09 | 09 00 00 14 b8 00 0b 00 |........|........|
|00029b70| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 00 15 |........|........|
|00029b80| f0 00 0b 00 09 00 04 00 | 00 00 09 ac ac 11 11 09 |........|........|
|00029b90| 09 00 00 16 03 00 0b 00 | 09 00 04 00 00 00 09 00 |........|........|
|00029ba0| 00 00 00 00 00 00 00 21 | 37 00 0b 00 09 00 04 00 |.......!|7.......|
|00029bb0| 00 00 09 ac ac 11 11 09 | 09 00 00 21 41 00 0b 00 |........|...!A...|
|00029bc0| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 00 24 |........|.......$|
|00029bd0| 11 00 0b 00 09 00 04 00 | 00 00 09 ac ac 11 11 09 |........|........|
|00029be0| 09 00 00 24 19 00 0b 00 | 09 00 04 00 00 00 09 00 |...$....|........|
|00029bf0| 00 00 00 00 00 00 00 29 | 18 00 0b 00 09 00 04 00 |.......)|........|
|00029c00| 00 00 09 ac ac 11 11 09 | 09 00 00 29 22 00 0b 00 |........|...)"...|
|00029c10| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 00 2e |........|........|
|00029c20| cd 00 0b 00 09 00 04 00 | 00 00 09 ac ac 11 11 09 |........|........|
|00029c30| 09 00 00 2e d5 00 0b 00 | 09 00 04 00 00 00 09 00 |........|........|
|00029c40| 00 00 00 00 00 00 00 34 | 63 00 0b 00 09 00 04 00 |.......4|c.......|
|00029c50| 00 00 09 ac ac 11 11 09 | 09 00 00 34 6e 00 0b 00 |........|...4n...|
|00029c60| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 00 39 |........|.......9|
|00029c70| ad 00 0b 00 09 00 04 00 | 00 00 09 ac ac 11 11 09 |........|........|
|00029c80| 09 00 00 39 c0 00 0b 00 | 09 00 04 00 00 00 09 00 |...9....|........|
|00029c90| 00 00 00 00 00 00 00 44 | 9e 00 0b 00 09 00 04 00 |.......D|........|
|00029ca0| 00 00 09 ac ac 11 11 09 | 09 00 00 44 ac 00 0b 00 |........|...D....|
|00029cb0| 09 00 04 00 00 00 09 00 | 00 00 00 00 00 00 43 41 |........|......CA|
|00029cc0| 53 74 00 00 00 79 00 1e | 00 00 00 55 03 00 00 00 |St...y..|...U....|
|00029cd0| 00 00 00 00 ff ff ff ff | ff ff 00 00 00 00 00 00 |........|........|
|00029ce0| 06 00 01 eb 06 00 00 00 | 06 00 00 00 00 14 00 00 |........|........|
|00029cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 08 |........|........|
|00029d00| 00 00 00 00 00 00 00 00 | 00 00 00 07 00 00 00 07 |........|........|
|00029d10| 00 00 00 07 00 00 00 07 | 00 00 00 07 00 00 00 07 |........|........|
|00029d20| 00 00 00 1b 06 70 61 72 | 73 65 64 00 2e 00 3b 01 |.....par|sed...;.|
|00029d30| a9 02 40 00 00 00 00 00 | 00 00 00 00 b4 8c dc 07 |..@.....|........|
|00029d40| 43 41 53 74 00 00 00 7c | 00 1e 00 00 00 58 03 00 |CASt...||.....X..|
|00029d50| 01 02 00 00 00 00 ff ff | ff ff ff ff 00 00 00 00 |........|........|
|00029d60| 00 00 00 80 01 44 00 80 | 00 00 00 80 00 00 00 14 |.....D..|........|
|00029d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00029d80| 00 08 00 00 00 00 00 00 | 00 00 00 00 00 0a 00 00 |........|........|
|00029d90| 00 0a 00 00 00 0a 00 00 | 00 0a 00 00 00 0a 00 00 |........|........|
|00029da0| 00 0a 00 00 00 1e 09 46 | 69 6c 65 4e 61 6d 65 73 |.......F|ileNames|
|00029db0| 00 5a 00 8c 00 f0 01 ea | 00 00 00 00 00 00 00 00 |.Z......|........|
|00029dc0| 00 68 9b 88 43 41 53 74 | 00 00 00 72 00 1e 00 00 |.h..CASt|...r....|
|00029dd0| 00 4e 03 00 00 00 00 00 | 00 00 ff ff ff ff ff ff |.N......|........|
|00029de0| 00 00 00 00 00 00 00 62 | 00 e7 00 62 00 00 00 62 |.......b|...b...b|
|00029df0| 00 00 00 14 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00029e00| 00 00 00 00 00 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00029e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00029e20| 00 00 00 00 00 00 00 00 | 00 14 00 5a 00 8c 00 f0 |........|...Z....|
|00029e30| 01 ea 00 00 00 dd 00 00 | 00 dd 00 a1 4e 84 43 41 |........|....N.CA|
|00029e40| 53 74 00 00 00 72 00 1e | 00 00 00 4e 03 00 02 04 |St...r..|...N....|
|00029e50| 00 00 00 00 ff ff ff ff | ff ff 00 00 00 00 00 00 |........|........|
|00029e60| 00 20 00 aa 00 20 00 00 | 00 20 00 00 00 14 00 00 |. ... ..|. ......|
|00029e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 08 |........|........|
|00029e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00029e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00029ea0| 00 00 00 14 00 6e 00 a0 | 01 04 01 fe 00 00 00 31 |.....n..|.......1|
|00029eb0| 00 00 00 31 00 f5 84 88 | 43 41 53 74 00 00 00 aa |...1....|CASt....|
|00029ec0| 00 04 00 00 00 a0 0b 00 | 00 01 00 00 00 14 00 c2 |........|........|
|00029ed0| eb a8 00 00 00 00 00 00 | 00 00 00 00 00 09 00 07 |........|........|
|00029ee0| 00 00 00 00 00 00 00 40 | 00 00 00 40 00 00 00 40 |.......@|...@...@|
|00029ef0| 00 00 00 40 00 00 00 40 | 00 00 00 54 00 00 00 6a |...@...@|...T...j|
|00029f00| 6f 6e 20 6d 6f 75 73 65 | 55 70 0d 20 20 43 6c 69 |on mouse|Up.  Cli|
|00029f10| 63 6b 53 6e 64 0d 20 20 | 75 70 64 61 74 65 73 74 |ckSnd.  |updatest|
|00029f20| 61 67 65 0d 20 20 67 6f | 20 74 6f 20 66 72 61 6d |age.  go| to fram|
|00029f30| 65 20 22 64 61 74 61 62 | 61 73 65 22 0d 65 6e 64 |e "datab|ase".end|
|00029f40| 00 ac 00 37 02 21 02 b2 | 00 00 00 15 00 00 00 15 |...7.!..|........|
|00029f50| 00 d3 00 80 00 01 00 00 | 00 00 00 0b 00 09 00 04 |........|........|
|00029f60| 00 00 00 09 00 00 00 00 | 00 00 43 41 53 74 00 00 |........|..CASt..|
|00029f70| 00 80 00 1e 00 00 00 5c | 03 00 01 00 00 00 00 00 |.......\|........|
|00029f80| ff ff ff ff ff ff 00 00 | 00 00 00 00 00 0e 00 33 |........|.......3|
|00029f90| 00 0e 00 00 00 0e 00 00 | 00 14 00 00 00 00 00 00 |........|........|
|00029fa0| 00 00 00 00 00 00 00 00 | 00 00 00 08 00 00 00 00 |........|........|
|00029fb0| 00 00 00 00 00 00 00 0e | 00 00 00 0e 00 00 00 0e |........|........|
|00029fc0| 00 00 00 0e 00 00 00 0e | 00 00 00 0e 00 00 00 22 |........|......."|
|00029fd0| 0d 41 72 74 69 63 6c 65 | 4e 75 6d 62 65 72 00 33 |.Article|Number.3|
|00029fe0| 00 32 00 c9 01 90 00 00 | 00 00 00 00 00 00 00 fc |.2......|........|
|00029ff0| 82 88 53 54 58 54 00 00 | 00 28 00 00 00 0c 00 00 |..STXT..|.(......|
|0002a000| 00 06 00 00 00 16 31 20 | 6f 66 20 36 00 01 00 00 |......1 |of 6....|
|0002a010| 00 00 00 0d 00 0a 03 e9 | 01 00 00 0a ff ff ff ff |........|........|
|0002a020| ff ff 43 41 53 74 00 00 | 00 a7 00 1c 00 00 00 85 |..CASt..|........|
|0002a030| 01 00 80 24 00 3b 00 05 | 00 5d 00 28 00 2f 00 05 |...$.;..|.].(./..|
|0002a040| 00 83 00 4d 00 4c 00 16 | 00 08 00 01 00 00 00 14 |...M.L..|........|
|0002a050| 00 c2 eb 68 00 00 00 00 | 00 00 00 00 00 00 00 19 |...h....|........|
|0002a060| 00 07 00 00 00 00 00 00 | 00 1d 00 00 00 25 00 00 |........|.....%..|
|0002a070| 00 25 00 00 00 25 00 00 | 00 25 00 00 00 39 00 00 |.%...%..|.%...9..|
|0002a080| 00 4f 6f 6e 20 6d 6f 75 | 73 65 64 6f 77 6e 0d 20 |.Oon mou|sedown. |
|0002a090| 20 53 68 6f 77 4e 75 67 | 67 65 74 0d 65 6e 64 07 | ShowNug|get.end.|
|0002a0a0| 6e 75 67 67 65 74 32 00 | 84 00 71 01 1a 01 cf 00 |nugget2.|..q.....|
|0002a0b0| 00 00 00 00 00 00 0c 01 | 84 00 71 00 01 00 00 00 |........|..q.....|
|0002a0c0| 00 00 0b 00 09 00 04 00 | 00 00 09 00 00 00 00 00 |........|........|
|0002a0d0| 00 01 43 41 53 74 00 00 | 02 94 00 04 00 00 02 8a |..CASt..|........|
|0002a0e0| 0b 00 00 03 00 00 00 14 | 00 c2 eb a4 00 00 00 00 |........|........|
|0002a0f0| 00 00 00 00 00 00 00 0a | 00 07 00 00 00 00 00 00 |........|........|
|0002a100| 02 2a 00 00 02 2a 00 00 | 02 2a 00 00 02 2a 00 00 |.*...*..|.*...*..|
|0002a110| 02 2a 00 00 02 3e 00 00 | 02 54 6f 6e 20 75 6e 70 |.*...>..|.Ton unp|
|0002a120| 75 70 70 65 74 20 73 74 | 72 0d 20 20 2d 2d 20 72 |uppet st|r.  -- r|
|0002a130| 65 6d 6f 76 65 73 20 61 | 6c 6c 20 74 68 65 20 70 |emoves a|ll the p|
|0002a140| 75 70 70 65 74 73 2c 20 | 61 70 61 72 74 20 66 72 |uppets, |apart fr|
|0002a150| 6f 6d 20 74 68 65 20 73 | 70 72 69 74 65 73 20 6c |om the s|prites l|
|0002a160| 69 73 74 65 64 20 69 6e | 20 73 74 72 2e 0d 20 20 |isted in| str..  |
|0002a170| 2d 2d 20 73 74 72 20 63 | 6f 6e 74 61 69 6e 73 20 |-- str c|ontains |
|0002a180| 74 68 65 20 6e 75 6d 62 | 65 72 73 20 6f 66 20 74 |the numb|ers of t|
|0002a190| 68 65 20 73 70 72 69 74 | 65 73 20 79 6f 75 20 64 |he sprit|es you d|
|0002a1a0| 6f 6e 27 74 20 77 61 6e | 74 20 75 6e 70 75 70 70 |on't wan|t unpupp|
|0002a1b0| 65 74 65 64 2c 0d 20 20 | 2d 2d 20 69 6e 20 61 73 |eted,.  |-- in as|
|0002a1c0| 63 65 6e 64 69 6e 67 20 | 6f 72 64 65 72 0d 20 20 |cending |order.  |
|0002a1d0| 0d 20 20 69 66 20 74 68 | 65 20 70 61 72 61 6d 63 |.  if th|e paramc|
|0002a1e0| 6f 75 6e 74 20 3e 20 30 | 20 74 68 65 6e 0d 20 20 |ount > 0| then.  |
|0002a1f0| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 |  repeat| with i |
|0002a200| 3d 20 31 20 74 6f 20 34 | 38 20 20 0d 20 20 20 20 |= 1 to 4|8  .    |
|0002a210| 20 20 69 66 20 69 20 3d | 20 69 74 65 6d 20 31 20 |  if i =| item 1 |
|0002a220| 6f 66 20 73 74 72 20 74 | 68 65 6e 0d 20 20 20 20 |of str t|hen.    |
|0002a230| 20 20 20 20 64 65 6c 65 | 74 65 20 69 74 65 6d 20 |    dele|te item |
|0002a240| 31 20 6f 66 20 73 74 72 | 0d 20 20 20 20 20 20 20 |1 of str|.       |
|0002a250| 20 6e 65 78 74 20 72 65 | 70 65 61 74 0d 20 20 20 | next re|peat.   |
|0002a260| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 20 20 |   else.|        |
|0002a270| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 69 2c 30 |puppetsp|rite i,0|
|0002a280| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |.      e|nd if.  |
|0002a290| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 65 |  end re|peat.  e|
|0002a2a0| 6c 73 65 0d 20 20 20 20 | 72 65 70 65 61 74 20 77 |lse.    |repeat w|
|0002a2b0| 69 74 68 20 69 20 3d 20 | 31 20 74 6f 20 34 38 20 |ith i = |1 to 48 |
|0002a2c0| 20 0d 20 20 20 20 20 20 | 70 75 70 70 65 74 73 70 | .      |puppetsp|
|0002a2d0| 72 69 74 65 20 69 2c 30 | 0d 20 20 20 20 65 6e 64 |rite i,0|.    end|
|0002a2e0| 20 72 65 70 65 61 74 0d | 20 20 65 6e 64 20 69 66 | repeat.|  end if|
|0002a2f0| 0d 65 6e 64 0d 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.end..--|--------|
|0002a300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a340| 2d 2d 2d 2d 00 68 00 36 | 01 d7 02 34 00 00 00 0b |----.h.6|...4....|
|0002a350| 00 00 00 0b 00 8d 00 00 | 00 01 00 00 00 00 00 0b |........|........|
|0002a360| 00 09 00 04 00 00 00 09 | 00 00 00 00 00 00 43 41 |........|......CA|
|0002a370| 53 74 00 00 00 7d 00 1e | 00 00 00 59 03 00 01 02 |St...}..|...Y....|
|0002a380| 00 00 00 00 ff ff ff ff | ff ff 00 00 00 00 00 00 |........|........|
|0002a390| 00 10 01 44 00 10 00 00 | 00 10 00 00 00 14 00 00 |...D....|........|
|0002a3a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 08 |........|........|
|0002a3b0| 00 00 00 00 00 00 00 00 | 00 00 00 0b 00 00 00 0b |........|........|
|0002a3c0| 00 00 00 0b 00 00 00 0b | 00 00 00 0b 00 00 00 0b |........|........|
|0002a3d0| 00 00 00 1f 0a 46 69 6c | 65 4e 61 6d 65 73 32 00 |.....Fil|eNames2.|
|0002a3e0| 5a 00 8c 00 f0 01 ea 00 | 00 00 00 00 00 00 00 00 |Z.......|........|
|0002a3f0| 68 9b 88 0b 43 41 53 74 | 00 00 00 7e 00 1e 00 00 |h...CASt|...~....|
|0002a400| 00 5a 03 00 00 00 00 00 | 00 00 ff ff ff ff ff ff |.Z......|........|
|0002a410| 00 00 00 00 00 00 00 10 | 01 44 00 10 00 00 00 10 |........|.D......|
|0002a420| 00 00 00 14 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0002a430| 00 00 00 00 00 08 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0002a440| 00 0c 00 00 00 0c 00 00 | 00 0c 00 00 00 0c 00 00 |........|........|
|0002a450| 00 0c 00 00 00 0c 00 00 | 00 20 0b 42 61 74 63 68 |........|. .Batch|
|0002a460| 45 72 72 6f 72 73 00 33 | 00 32 01 27 01 f8 00 00 |Errors.3|.2.'....|
|0002a470| 00 00 00 00 00 00 00 d4 | d9 00 43 41 53 74 00 00 |........|..CASt..|
|0002a480| 00 2f 00 01 00 00 00 28 | 06 00 00 00 14 00 00 00 |./.....(|........|
|0002a490| 00 00 00 00 00 00 00 00 | 10 00 00 00 00 00 02 00 |........|........|
|0002a4a0| 00 00 00 00 00 00 00 00 | 00 00 06 05 63 6c 69 63 |........|....clic|
|0002a4b0| 6b 16 6a 75 6e 6b 00 00 | 00 20 4f 4e 00 01 00 00 |k.junk..|. ON....|
|0002a4c0| 00 00 00 0d 00 0a 03 e9 | 01 00 00 0a ff ff ff ff |........|........|
|0002a4d0| ff ff 6a 75 6e 6b 00 00 | 00 00 53 54 58 54 00 00 |..junk..|..STXT..|
|0002a4e0| 00 23 00 00 00 0c 00 00 | 00 01 00 00 00 16 20 00 |.#......|...... .|
|0002a4f0| 01 00 00 00 00 00 10 00 | 0c 03 e9 01 00 00 00 ac |........|........|
|0002a500| ac 11 11 09 09 00 43 41 | 53 74 00 00 33 8e 00 04 |......CA|St..3...|
|0002a510| 00 00 33 84 0b 00 00 03 | 00 00 00 14 00 c2 eb 9c |..3.....|........|
|0002a520| 00 00 00 00 00 00 00 00 | 00 00 00 0c 00 07 00 00 |........|........|
|0002a530| 00 00 00 00 33 24 00 00 | 33 24 00 00 33 24 00 00 |....3$..|3$..3$..|
|0002a540| 33 24 00 00 33 24 00 00 | 33 38 00 00 33 4e 6f 6e |3$..3$..|38..3Non|
|0002a550| 20 47 6f 4d 61 69 6e 4d | 65 6e 75 0d 20 20 67 6c | GoMainM|enu.  gl|
|0002a560| 6f 62 61 6c 20 67 4d 61 | 6b 65 72 73 50 61 74 68 |obal gMa|kersPath|
|0002a570| 0d 20 20 0d 20 20 43 6c | 69 63 6b 53 6e 64 0d 20 |.  .  Cl|ickSnd. |
|0002a580| 20 75 70 64 61 74 65 73 | 74 61 67 65 0d 20 20 0d | updates|tage.  .|
|0002a590| 20 20 75 6e 6c 6f 61 64 | 0d 20 20 75 6e 6c 6f 61 |  unload|.  unloa|
|0002a5a0| 64 63 61 73 74 0d 20 20 | 0d 20 20 47 6f 42 6c 61 |dcast.  |.  GoBla|
|0002a5b0| 63 6b 46 72 61 6d 65 0d | 20 20 67 6f 20 74 6f 20 |ckFrame.|  go to |
|0002a5c0| 66 72 61 6d 65 20 22 66 | 61 64 65 22 20 6f 66 20 |frame "f|ade" of |
|0002a5d0| 6d 6f 76 69 65 20 20 67 | 4d 61 6b 65 72 73 50 61 |movie  g|MakersPa|
|0002a5e0| 74 68 20 26 20 22 4d 41 | 49 4e 2e 44 49 52 22 0d |th & "MA|IN.DIR".|
|0002a5f0| 20 20 0d 65 6e 64 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |  .end.-|--------|
|0002a600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a650| 2d 2d 2d 2d 0d 6f 6e 20 | 47 6f 52 61 6e 64 6f 6d |----.on |GoRandom|
|0002a660| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 4d 61 6b 65 72 |.  globa|l gMaker|
|0002a670| 73 50 61 74 68 0d 20 20 | 0d 20 20 43 6c 69 63 6b |sPath.  |.  Click|
|0002a680| 53 6e 64 0d 20 20 75 70 | 64 61 74 65 73 74 61 67 |Snd.  up|datestag|
|0002a690| 65 0d 20 20 0d 20 20 75 | 6e 6c 6f 61 64 0d 20 20 |e.  .  u|nload.  |
|0002a6a0| 75 6e 6c 6f 61 64 63 61 | 73 74 0d 20 20 0d 20 20 |unloadca|st.  .  |
|0002a6b0| 47 6f 42 6c 61 63 6b 46 | 72 61 6d 65 0d 20 20 67 |GoBlackF|rame.  g|
|0002a6c0| 6f 20 74 6f 20 66 72 61 | 6d 65 20 22 66 61 64 65 |o to fra|me "fade|
|0002a6d0| 22 20 6f 66 20 6d 6f 76 | 69 65 20 67 4d 61 6b 65 |" of mov|ie gMake|
|0002a6e0| 72 73 50 61 74 68 20 26 | 20 22 52 41 4e 44 4f 4d |rsPath &| "RANDOM|
|0002a6f0| 2e 44 49 52 22 0d 65 6e | 64 0d 2d 2d 2d 2d 2d 2d |.DIR".en|d.------|
|0002a700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a750| 2d 2d 2d 2d 2d 2d 2d 0d | 6f 6e 20 47 6f 53 65 6e |-------.|on GoSen|
|0002a760| 73 65 73 0d 20 20 67 6c | 6f 62 61 6c 20 67 4d 61 |ses.  gl|obal gMa|
|0002a770| 6b 65 72 73 50 61 74 68 | 2c 67 4d 61 6b 65 72 4e |kersPath|,gMakerN|
|0002a780| 61 6d 65 0d 20 20 0d 20 | 20 43 6c 69 63 6b 53 6e |ame.  . | ClickSn|
|0002a790| 64 0d 20 20 75 70 64 61 | 74 65 73 74 61 67 65 0d |d.  upda|testage.|
|0002a7a0| 20 20 0d 20 20 75 6e 6c | 6f 61 64 0d 20 20 75 6e |  .  unl|oad.  un|
|0002a7b0| 6c 6f 61 64 63 61 73 74 | 0d 20 20 2d 2d 67 6f 20 |loadcast|.  --go |
|0002a7c0| 74 6f 20 66 72 61 6d 65 | 20 22 66 61 64 65 22 20 |to frame| "fade" |
|0002a7d0| 6f 66 20 6d 6f 76 69 65 | 20 20 67 4d 61 6b 65 72 |of movie|  gMaker|
|0002a7e0| 73 50 61 74 68 20 26 20 | 22 53 45 4e 53 45 53 2e |sPath & |"SENSES.|
|0002a7f0| 44 49 52 22 0d 20 20 0d | 20 20 47 6f 42 6c 61 63 |DIR".  .|  GoBlac|
|0002a800| 6b 46 72 61 6d 65 0d 20 | 20 63 68 61 70 74 65 72 |kFrame. | chapter|
|0002a810| 73 4c 69 73 74 73 35 20 | 67 4d 61 6b 65 72 4e 61 |sLists5 |gMakerNa|
|0002a820| 6d 65 0d 65 6e 64 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |me.end.-|--------|
|0002a830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002a880| 2d 2d 2d 2d 0d 6f 6e 20 | 63 68 61 70 74 65 72 73 |----.on |chapters|
|0002a890| 4c 69 73 74 73 35 20 4d | 61 6b 65 72 4e 61 6d 65 |Lists5 M|akerName|
|0002a8a0| 0d 20 20 67 6c 6f 62 61 | 6c 20 49 74 65 6d 44 65 |.  globa|l ItemDe|
|0002a8b0| 6c 2c 53 74 61 72 74 53 | 70 72 69 74 65 2c 53 74 |l,StartS|prite,St|
|0002a8c0| 61 74 75 73 2c 53 61 76 | 65 64 50 6f 73 2c 54 6f |atus,Sav|edPos,To|
|0002a8d0| 47 6f 2c 50 65 72 73 6f | 6e 2c 47 6f 54 6f 2c 4e |Go,Perso|n,GoTo,N|
|0002a8e0| 65 78 74 46 72 61 6d 65 | 2c 4c 61 73 74 46 72 61 |extFrame|,LastFra|
|0002a8f0| 6d 65 2c 43 75 72 72 46 | 72 61 6d 65 0d 20 20 67 |me,CurrF|rame.  g|
|0002a900| 6c 6f 62 61 6c 20 67 4d | 61 6b 65 72 73 50 61 74 |lobal gM|akersPat|
|0002a910| 68 0d 20 20 0d 20 20 70 | 75 74 20 28 67 4d 61 6b |h.  .  p|ut (gMak|
|0002a920| 65 72 73 50 61 74 68 26 | 22 73 65 6e 73 65 73 2e |ersPath&|"senses.|
|0002a930| 64 69 72 22 29 20 69 6e | 74 6f 20 74 68 65 50 61 |dir") in|to thePa|
|0002a940| 74 68 0d 20 20 69 66 20 | 53 61 76 65 64 50 6f 73 |th.  if |SavedPos|
|0002a950| 20 3d 20 45 4d 50 54 59 | 20 6f 72 20 76 6f 69 64 | = EMPTY| or void|
|0002a960| 70 28 53 61 76 65 64 50 | 6f 73 29 20 74 68 65 6e |p(SavedP|os) then|
|0002a970| 20 20 20 20 2d 2d 20 76 | 6f 69 64 20 3c 3e 20 65 |    -- v|oid <> e|
|0002a980| 6d 70 74 79 21 21 0d 20 | 20 20 20 70 75 74 20 22 |mpty!!. |   put "|
|0002a990| 41 53 54 41 49 52 45 2c | 42 41 52 44 4f 54 2c 42 |ASTAIRE,|BARDOT,B|
|0002a9a0| 45 41 54 4c 45 53 2c 42 | 49 52 44 53 45 59 45 2c |EATLES,B|IRDSEYE,|
|0002a9b0| 42 52 41 4e 44 4f 2c 42 | 52 45 43 48 54 2c 42 52 |BRANDO,B|RECHT,BR|
|0002a9c0| 4f 57 4e 2c 42 55 4e 55 | 45 4c 2c 43 41 52 54 49 |OWN,BUNU|EL,CARTI|
|0002a9d0| 45 52 2d 42 52 45 53 53 | 4f 4e 2c 43 48 41 50 4c |ER-BRESS|ON,CHAPL|
|0002a9e0| 49 4e 2c 44 41 4c 49 2c | 44 41 56 49 53 2c 44 45 |IN,DALI,|DAVIS,DE|
|0002a9f0| 42 55 53 53 59 2c 44 49 | 53 4e 45 59 2c 44 59 4c |BUSSY,DI|SNEY,DYL|
|0002aa00| 41 4e 2c 48 45 41 52 54 | 46 49 45 4c 44 2c 48 45 |AN,HEART|FIELD,HE|
|0002aa10| 49 4e 5a 2c 48 45 50 42 | 55 52 4e 2c 48 49 54 43 |INZ,HEPB|URN,HITC|
|0002aa20| 48 43 4f 43 4b 2c 48 4f | 4c 49 44 41 59 2c 4a 41 |HCOCK,HO|LIDAY,JA|
|0002aa30| 43 4b 53 4f 4e 2c 4b 52 | 4f 43 2c 4d 41 44 4f 4e |CKSON,KR|OC,MADON|
|0002aa40| 4e 41 2c 4d 41 48 4c 45 | 52 2c 4d 41 54 49 53 53 |NA,MAHLE|R,MATISS|
|0002aa50| 45 2c 4d 4f 4e 52 4f 45 | 2c 4d 4f 4f 52 45 2c 50 |E,MONROE|,MOORE,P|
|0002aa60| 41 52 4b 45 52 2c 50 49 | 43 41 53 53 4f 2c 50 52 |ARKER,PI|CASSO,PR|
|0002aa70| 45 53 4c 45 59 2c 53 54 | 4f 4e 45 53 2c 53 50 49 |ESLEY,ST|ONES,SPI|
|0002aa80| 45 4c 42 45 52 47 2c 53 | 54 41 4e 49 53 4c 41 56 |ELBERG,S|TANISLAV|
|0002aa90| 53 4b 59 2c 53 54 52 41 | 56 49 4e 53 4b 59 2c 57 |SKY,STRA|VINSKY,W|
|0002aaa0| 41 52 48 4f 4c 2c 57 49 | 4c 4c 49 41 4d 53 22 20 |ARHOL,WI|LLIAMS" |
|0002aab0| 69 6e 74 6f 20 78 78 0d | 20 20 20 20 70 75 74 20 |into xx.|    put |
|0002aac0| 31 20 69 6e 74 6f 20 69 | 0d 20 20 20 20 70 75 74 |1 into i|.    put|
|0002aad0| 20 46 41 4c 53 45 20 69 | 6e 74 6f 20 6f 75 74 0d | FALSE i|nto out.|
|0002aae0| 20 20 20 20 72 65 70 65 | 61 74 20 77 68 69 6c 65 |    repe|at while|
|0002aaf0| 20 69 3c 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f | i< the |number o|
|0002ab00| 66 20 69 74 65 6d 73 20 | 6f 66 20 78 78 20 61 6e |f items |of xx an|
|0002ab10| 64 20 6e 6f 74 20 6f 75 | 74 0d 20 20 20 20 20 20 |d not ou|t.      |
|0002ab20| 69 66 20 4d 61 6b 65 72 | 4e 61 6d 65 20 3d 20 69 |if Maker|Name = i|
|0002ab30| 74 65 6d 20 69 20 6f 66 | 20 78 78 20 74 68 65 6e |tem i of| xx then|
|0002ab40| 0d 20 20 20 20 20 20 20 | 20 70 75 74 20 54 52 55 |.       | put TRU|
|0002ab50| 45 20 69 6e 74 6f 20 6f | 75 74 0d 20 20 20 20 20 |E into o|ut.     |
|0002ab60| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 20 20 70 75 | else.  |      pu|
|0002ab70| 74 20 69 2b 31 20 69 6e | 74 6f 20 69 0d 20 20 20 |t i+1 in|to i.   |
|0002ab80| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 65 6e |   end i|f.    en|
|0002ab90| 64 20 72 65 70 65 61 74 | 0d 20 20 20 20 69 66 20 |d repeat|.    if |
|0002aba0| 69 3e 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |i> the n|umber of|
|0002abb0| 20 69 74 65 6d 73 20 6f | 66 20 78 78 20 74 68 65 | items o|f xx the|
|0002abc0| 6e 20 62 65 65 70 0d 20 | 20 20 20 0d 20 20 20 20 |n beep. |   .    |
|0002abd0| 73 65 74 20 4d 61 6b 65 | 72 73 4c 69 73 74 20 3d |set Make|rsList =|
|0002abe0| 20 5b 22 42 22 3a 22 34 | 35 34 2c 34 36 34 22 2c | ["B":"4|54,464",|
|0002abf0| 22 41 22 3a 22 32 31 39 | 2c 32 32 39 22 2c 22 41 |"A":"219|,229","A|
|0002ac00| 22 3a 22 32 32 31 2c 32 | 33 31 22 2c 22 42 22 3a |":"221,2|31","B":|
|0002ac10| 22 34 35 38 2c 34 36 38 | 22 2c 22 44 22 3a 22 35 |"458,468|","D":"5|
|0002ac20| 36 35 2c 35 37 35 22 2c | 22 42 22 3a 22 34 35 35 |65,575",|"B":"455|
|0002ac30| 2c 34 36 35 22 2c 22 43 | 22 3a 22 31 31 2c 32 31 |,465","C|":"11,21|
|0002ac40| 22 2c 22 42 22 3a 22 34 | 35 36 2c 34 36 36 22 2c |","B":"4|56,466",|
|0002ac50| 22 41 22 3a 22 32 31 37 | 2c 32 32 37 22 2c 22 43 |"A":"217|,227","C|
|0002ac60| 22 3a 22 39 2c 31 39 22 | 2c 22 42 22 3a 22 34 35 |":"9,19"|,"B":"45|
|0002ac70| 32 2c 34 36 32 22 2c 22 | 43 22 3a 22 31 33 2c 32 |2,462","|C":"13,2|
|0002ac80| 33 22 2c 22 43 22 3a 22 | 31 35 2c 32 35 22 2c 22 |3","C":"|15,25","|
|0002ac90| 41 22 3a 22 32 31 38 2c | 32 32 38 22 2c 22 44 22 |A":"218,|228","D"|
|0002aca0| 3a 22 35 36 36 2c 35 37 | 36 22 2c 22 43 22 3a 22 |:"566,57|6","C":"|
|0002acb0| 36 2c 31 36 22 2c 22 43 | 22 3a 22 31 32 2c 32 32 |6,16","C|":"12,22|
|0002acc0| 22 2c 22 43 22 3a 22 38 | 2c 31 38 22 2c 22 41 22 |","C":"8|,18","A"|
|0002acd0| 3a 22 32 32 30 2c 32 33 | 30 22 2c 22 44 22 3a 22 |:"220,23|0","D":"|
|0002ace0| 35 36 37 2c 35 37 37 22 | 2c 22 42 22 3a 22 34 35 |567,577"|,"B":"45|
|0002acf0| 39 2c 34 36 39 22 2c 22 | 41 22 3a 22 32 32 32 2c |9,469","|A":"222,|
|0002ad00| 32 33 32 22 2c 22 41 22 | 3a 22 32 32 33 2c 32 33 |232","A"|:"223,23|
|0002ad10| 33 22 2c 22 44 22 3a 22 | 35 37 30 2c 35 38 30 22 |3","D":"|570,580"|
|0002ad20| 2c 22 42 22 3a 22 34 35 | 33 2c 34 36 33 22 2c 22 |,"B":"45|3,463","|
|0002ad30| 44 22 3a 22 35 36 33 3a | 35 37 33 22 2c 22 41 22 |D":"563:|573","A"|
|0002ad40| 3a 22 32 31 35 2c 32 32 | 35 22 2c 22 44 22 3a 22 |:"215,22|5","D":"|
|0002ad50| 35 37 31 2c 35 38 31 22 | 2c 22 43 22 3a 22 37 2c |571,581"|,"C":"7,|
|0002ad60| 31 37 22 2c 22 44 22 3a | 22 35 36 39 2c 35 37 39 |17","D":|"569,579|
|0002ad70| 22 2c 22 44 22 3a 22 35 | 36 38 2c 35 37 38 22 2c |","D":"5|68,578",|
|0002ad80| 22 44 22 3a 22 35 36 34 | 2c 35 37 34 22 2c 22 42 |"D":"564|,574","B|
|0002ad90| 22 3a 22 34 35 37 2c 34 | 36 37 22 2c 22 43 22 3a |":"457,4|67","C":|
|0002ada0| 22 31 34 2c 32 34 22 2c | 22 41 22 3a 22 32 31 36 |"14,24",|"A":"216|
|0002adb0| 2c 32 32 36 22 2c 22 43 | 22 3a 22 31 30 2c 32 30 |,226","C|":"10,20|
|0002adc0| 22 5d 0d 20 20 20 20 0d | 20 20 20 20 70 75 74 20 |"].    .|    put |
|0002add0| 67 65 74 50 72 6f 70 41 | 74 28 4d 61 6b 65 72 73 |getPropA|t(Makers|
|0002ade0| 4c 69 73 74 2c 20 69 29 | 20 69 6e 74 6f 20 78 0d |List, i)| into x.|
|0002adf0| 20 20 20 20 70 75 74 20 | 67 65 74 41 74 28 4d 61 |    put |getAt(Ma|
|0002ae00| 6b 65 72 73 4c 69 73 74 | 2c 20 69 29 20 69 6e 74 |kersList|, i) int|
|0002ae10| 6f 20 78 32 0d 20 20 20 | 20 70 75 74 20 22 73 68 |o x2.   | put "sh|
|0002ae20| 75 66 66 6c 65 20 22 26 | 51 55 4f 54 45 26 78 26 |uffle "&|QUOTE&x&|
|0002ae30| 51 55 4f 54 45 20 69 6e | 74 6f 20 6c 69 6e 65 20 |QUOTE in|to line |
|0002ae40| 31 20 6f 66 20 53 61 76 | 65 64 50 6f 73 0d 20 20 |1 of Sav|edPos.  |
|0002ae50| 20 20 70 75 74 20 78 32 | 20 69 6e 74 6f 20 6c 69 |  put x2| into li|
|0002ae60| 6e 65 20 32 20 6f 66 20 | 53 61 76 65 64 50 6f 73 |ne 2 of |SavedPos|
|0002ae70| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 67 6f 20 66 |.  end i|f.  go f|
|0002ae80| 72 61 6d 65 20 22 66 61 | 64 65 22 20 6f 66 20 6d |rame "fa|de" of m|
|0002ae90| 6f 76 69 65 20 74 68 65 | 50 61 74 68 0d 65 6e 64 |ovie the|Path.end|
|0002aea0| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|0002aeb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002aec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002aed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002aee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002aef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 6f |--------|------.o|
|0002af00| 6e 20 47 6f 44 69 73 63 | 6f 76 65 72 0d 20 20 67 |n GoDisc|over.  g|
|0002af10| 6c 6f 62 61 6c 20 67 4d | 61 6b 65 72 73 50 61 74 |lobal gM|akersPat|
|0002af20| 68 2c 67 4d 61 6b 65 72 | 4e 61 6d 65 0d 20 20 0d |h,gMaker|Name.  .|
|0002af30| 20 20 43 6c 69 63 6b 53 | 6e 64 0d 20 20 75 70 64 |  ClickS|nd.  upd|
|0002af40| 61 74 65 73 74 61 67 65 | 0d 20 20 0d 20 20 75 6e |atestage|.  .  un|
|0002af50| 6c 6f 61 64 0d 20 20 75 | 6e 6c 6f 61 64 63 61 73 |load.  u|nloadcas|
|0002af60| 74 0d 20 20 2d 2d 20 67 | 6f 20 74 6f 20 66 72 61 |t.  -- g|o to fra|
|0002af70| 6d 65 20 22 66 61 64 65 | 22 20 6f 66 20 6d 6f 76 |me "fade|" of mov|
|0002af80| 69 65 20 20 67 4d 61 6b | 65 72 73 50 61 74 68 20 |ie  gMak|ersPath |
|0002af90| 26 20 22 44 49 53 43 4f | 56 45 52 2e 44 49 52 22 |& "DISCO|VER.DIR"|
|0002afa0| 0d 20 20 0d 20 20 47 6f | 42 6c 61 63 6b 46 72 61 |.  .  Go|BlackFra|
|0002afb0| 6d 65 0d 20 20 63 68 61 | 70 74 65 72 73 4c 69 73 |me.  cha|ptersLis|
|0002afc0| 74 73 33 20 67 4d 61 6b | 65 72 4e 61 6d 65 0d 65 |ts3 gMak|erName.e|
|0002afd0| 6e 64 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nd.-----|--------|
|0002afe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002aff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b000| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b010| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b020| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b030| 0d 6f 6e 20 63 68 61 70 | 74 65 72 73 4c 69 73 74 |.on chap|tersList|
|0002b040| 73 33 20 4d 61 6b 65 72 | 4e 61 6d 65 0d 20 20 67 |s3 Maker|Name.  g|
|0002b050| 6c 6f 62 61 6c 20 49 74 | 65 6d 44 65 6c 2c 53 74 |lobal It|emDel,St|
|0002b060| 61 72 74 53 70 72 69 74 | 65 2c 53 74 61 74 75 73 |artSprit|e,Status|
|0002b070| 2c 53 61 76 65 64 50 6f | 73 2c 54 6f 47 6f 2c 50 |,SavedPo|s,ToGo,P|
|0002b080| 65 72 73 6f 6e 2c 47 6f | 54 6f 2c 4e 65 78 74 46 |erson,Go|To,NextF|
|0002b090| 72 61 6d 65 2c 4c 61 73 | 74 46 72 61 6d 65 2c 43 |rame,Las|tFrame,C|
|0002b0a0| 75 72 72 46 72 61 6d 65 | 0d 20 20 67 6c 6f 62 61 |urrFrame|.  globa|
|0002b0b0| 6c 20 67 4d 61 6b 65 72 | 73 50 61 74 68 0d 20 20 |l gMaker|sPath.  |
|0002b0c0| 0d 20 20 70 75 74 20 28 | 67 4d 61 6b 65 72 73 50 |.  put (|gMakersP|
|0002b0d0| 61 74 68 20 26 22 64 69 | 73 63 6f 76 65 72 2e 64 |ath &"di|scover.d|
|0002b0e0| 69 72 22 29 20 69 6e 74 | 6f 20 74 68 65 50 61 74 |ir") int|o thePat|
|0002b0f0| 68 0d 20 20 0d 20 20 70 | 75 74 20 22 41 52 4d 53 |h.  .  p|ut "ARMS|
|0002b100| 54 52 4f 4e 47 2c 42 4f | 59 45 52 2c 42 52 41 55 |TRONG,BO|YER,BRAU|
|0002b110| 4e 2c 43 41 52 53 4f 4e | 2c 43 55 52 49 45 2c 44 |N,CARSON|,CURIE,D|
|0002b120| 49 52 41 43 2c 45 49 4e | 53 54 45 49 4e 2c 47 41 |IRAC,EIN|STEIN,GA|
|0002b130| 47 41 52 49 4e 2c 47 52 | 41 59 2c 48 41 57 4b 49 |GARIN,GR|AY,HAWKI|
|0002b140| 4e 47 2c 48 49 4c 4c 41 | 52 59 2c 48 55 42 42 4c |NG,HILLA|RY,HUBBL|
|0002b150| 45 2c 4c 45 41 4b 45 59 | 2c 4c 4f 52 45 4e 5a 2c |E,LEAKEY|,LORENZ,|
|0002b160| 4c 4f 56 45 4c 4f 43 4b | 2c 4d 45 4e 44 45 53 2c |LOVELOCK|,MENDES,|
|0002b170| 4f 50 50 45 4e 48 45 49 | 4d 45 52 2c 52 4f 57 4c |OPPENHEI|MER,ROWL|
|0002b180| 41 4e 44 2c 52 55 54 48 | 45 52 46 4f 52 44 2c 53 |AND,RUTH|ERFORD,S|
|0002b190| 43 4f 54 54 2c 57 41 52 | 44 2c 57 49 4c 53 4f 4e |COTT,WAR|D,WILSON|
|0002b1a0| 22 20 69 6e 74 6f 20 78 | 78 0d 20 20 70 75 74 20 |" into x|x.  put |
|0002b1b0| 31 20 69 6e 74 6f 20 69 | 0d 20 20 70 75 74 20 46 |1 into i|.  put F|
|0002b1c0| 41 4c 53 45 20 69 6e 74 | 6f 20 6f 75 74 0d 20 20 |ALSE int|o out.  |
|0002b1d0| 72 65 70 65 61 74 20 77 | 68 69 6c 65 20 69 3c 20 |repeat w|hile i< |
|0002b1e0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 69 74 |the numb|er of it|
|0002b1f0| 65 6d 73 20 6f 66 20 78 | 78 20 61 6e 64 20 6e 6f |ems of x|x and no|
|0002b200| 74 20 6f 75 74 0d 20 20 | 20 20 69 66 20 4d 61 6b |t out.  |  if Mak|
|0002b210| 65 72 4e 61 6d 65 20 3d | 20 69 74 65 6d 20 69 20 |erName =| item i |
|0002b220| 6f 66 20 78 78 20 74 68 | 65 6e 0d 20 20 20 20 20 |of xx th|en.     |
|0002b230| 20 70 75 74 20 54 52 55 | 45 20 69 6e 74 6f 20 6f | put TRU|E into o|
|0002b240| 75 74 0d 20 20 20 20 65 | 6c 73 65 0d 20 20 20 20 |ut.    e|lse.    |
|0002b250| 20 20 70 75 74 20 69 2b | 31 20 69 6e 74 6f 20 69 |  put i+|1 into i|
|0002b260| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 65 6e |.    end| if.  en|
|0002b270| 64 20 72 65 70 65 61 74 | 0d 20 20 69 66 20 69 3e |d repeat|.  if i>|
|0002b280| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 69 | the num|ber of i|
|0002b290| 74 65 6d 73 20 6f 66 20 | 78 78 20 74 68 65 6e 20 |tems of |xx then |
|0002b2a0| 62 65 65 70 0d 20 20 0d | 20 20 73 65 74 20 4d 61 |beep.  .|  set Ma|
|0002b2b0| 6b 65 72 73 4c 69 73 74 | 20 3d 20 5b 33 35 3a 31 |kersList| = [35:1|
|0002b2c0| 31 36 2c 36 30 34 3a 31 | 36 33 2c 33 35 3a 32 31 |16,604:1|63,35:21|
|0002b2d0| 35 2c 35 33 33 3a 33 35 | 2c 32 34 38 3a 34 34 34 |5,533:35|,248:444|
|0002b2e0| 2c 32 34 38 3a 33 35 2c | 34 36 31 3a 34 34 34 2c |,248:35,|461:444,|
|0002b2f0| 31 30 36 3a 34 34 34 2c | 33 32 30 3a 34 34 37 2c |106:444,|320:447,|
|0002b300| 33 35 34 3a 33 35 2c 36 | 30 34 3a 32 33 33 2c 33 |354:35,6|04:233,3|
|0002b310| 35 3a 33 30 38 2c 36 30 | 34 3a 39 32 2c 31 37 37 |5:308,60|4:92,177|
|0002b320| 3a 34 34 34 2c 35 33 32 | 3a 34 34 34 2c 33 35 3a |:444,532|:444,35:|
|0002b330| 33 37 38 2c 31 37 37 3a | 33 35 2c 36 30 34 3a 33 |378,177:|35,604:3|
|0002b340| 37 33 2c 36 30 34 3a 33 | 30 33 2c 33 39 30 3a 34 |73,604:3|03,390:4|
|0002b350| 34 34 2c 34 36 32 3a 33 | 35 5d 0d 20 20 0d 20 20 |44,462:3|5].  .  |
|0002b360| 70 75 74 20 67 65 74 41 | 74 28 4d 61 6b 65 72 73 |put getA|t(Makers|
|0002b370| 4c 69 73 74 2c 20 69 29 | 20 69 6e 74 6f 20 74 68 |List, i)| into th|
|0002b380| 65 58 0d 20 20 70 75 74 | 20 67 65 74 50 72 6f 70 |eX.  put| getProp|
|0002b390| 41 74 28 4d 61 6b 65 72 | 73 4c 69 73 74 2c 20 69 |At(Maker|sList, i|
|0002b3a0| 29 20 69 6e 74 6f 20 74 | 68 65 59 0d 20 20 0d 20 |) into t|heY.  . |
|0002b3b0| 20 2d 2d 20 74 68 69 73 | 20 78 6f 62 6a 65 63 74 | -- this| xobject|
|0002b3c0| 20 69 73 20 6f 6e 6c 79 | 20 6f 6e 20 74 68 65 20 | is only| on the |
|0002b3d0| 4d 41 43 0d 20 20 69 66 | 20 74 68 65 20 6d 61 63 |MAC.  if| the mac|
|0002b3e0| 68 69 6e 65 74 79 70 65 | 20 3c 20 32 35 36 20 74 |hinetype| < 256 t|
|0002b3f0| 68 65 6e 0d 20 20 20 20 | 6f 70 65 6e 58 6c 69 62 |hen.    |openXlib|
|0002b400| 20 22 53 65 74 4d 6f 75 | 73 65 20 58 43 4d 44 22 | "SetMou|se XCMD"|
|0002b410| 0d 20 20 20 20 53 65 74 | 4d 6f 75 73 65 28 74 68 |.    Set|Mouse(th|
|0002b420| 65 59 2c 74 68 65 58 29 | 0d 20 20 20 20 63 6c 6f |eY,theX)|.    clo|
|0002b430| 73 65 58 6c 69 62 20 22 | 53 65 74 4d 6f 75 73 65 |seXlib "|SetMouse|
|0002b440| 20 58 43 4d 44 22 0d 20 | 20 65 6e 64 20 69 66 0d | XCMD". | end if.|
|0002b450| 20 20 0d 20 20 67 6f 20 | 6d 6f 76 69 65 20 73 74 |  .  go |movie st|
|0002b460| 72 69 6e 67 28 74 68 65 | 50 61 74 68 29 0d 20 20 |ring(the|Path).  |
|0002b470| 0d 65 6e 64 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.end.---|--------|
|0002b480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b4a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b4b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b4c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b4d0| 2d 2d 0d 6f 6e 20 47 6f | 4d 69 6e 64 0d 20 20 67 |--.on Go|Mind.  g|
|0002b4e0| 6c 6f 62 61 6c 20 67 4d | 61 6b 65 72 4e 61 6d 65 |lobal gM|akerName|
|0002b4f0| 0d 20 20 0d 20 20 43 6c | 69 63 6b 53 6e 64 0d 20 |.  .  Cl|ickSnd. |
|0002b500| 20 75 70 64 61 74 65 73 | 74 61 67 65 0d 20 20 0d | updates|tage.  .|
|0002b510| 20 20 75 6e 6c 6f 61 64 | 0d 20 20 75 6e 6c 6f 61 |  unload|.  unloa|
|0002b520| 64 63 61 73 74 0d 20 20 | 0d 20 20 47 6f 42 6c 61 |dcast.  |.  GoBla|
|0002b530| 63 6b 46 72 61 6d 65 0d | 20 20 63 68 61 70 74 65 |ckFrame.|  chapte|
|0002b540| 72 73 4c 69 73 74 73 4d | 69 6e 64 20 67 4d 61 6b |rsListsM|ind gMak|
|0002b550| 65 72 4e 61 6d 65 0d 20 | 20 2d 2d 20 67 6f 20 74 |erName. | -- go t|
|0002b560| 6f 20 66 72 61 6d 65 20 | 22 66 61 64 65 22 20 6f |o frame |"fade" o|
|0002b570| 66 20 6d 6f 76 69 65 20 | 20 67 4d 61 6b 65 72 73 |f movie | gMakers|
|0002b580| 50 61 74 68 20 26 20 22 | 4d 49 4e 44 2e 44 49 52 |Path & "|MIND.DIR|
|0002b590| 22 0d 65 6e 64 0d 0d 6f | 6e 20 63 68 61 70 74 65 |".end..o|n chapte|
|0002b5a0| 72 73 4c 69 73 74 73 4d | 69 6e 64 20 4d 61 6b 65 |rsListsM|ind Make|
|0002b5b0| 72 4e 61 6d 65 0d 20 20 | 67 6c 6f 62 61 6c 20 49 |rName.  |global I|
|0002b5c0| 74 65 6d 44 65 6c 2c 53 | 74 61 72 74 53 70 72 69 |temDel,S|tartSpri|
|0002b5d0| 74 65 2c 53 74 61 74 75 | 73 2c 53 61 76 65 64 50 |te,Statu|s,SavedP|
|0002b5e0| 6f 73 2c 54 6f 47 6f 2c | 50 65 72 73 6f 6e 2c 47 |os,ToGo,|Person,G|
|0002b5f0| 6f 54 6f 2c 4e 65 78 74 | 46 72 61 6d 65 2c 4c 61 |oTo,Next|Frame,La|
|0002b600| 73 74 46 72 61 6d 65 2c | 43 75 72 72 46 72 61 6d |stFrame,|CurrFram|
|0002b610| 65 0d 20 20 67 6c 6f 62 | 61 6c 20 67 4d 61 6b 65 |e.  glob|al gMake|
|0002b620| 72 73 50 61 74 68 0d 20 | 20 0d 20 20 70 75 74 20 |rsPath. | .  put |
|0002b630| 28 67 4d 61 6b 65 72 73 | 50 61 74 68 20 26 22 4d |(gMakers|Path &"M|
|0002b640| 49 4e 44 2e 44 49 52 22 | 29 20 69 6e 74 6f 20 74 |IND.DIR"|) into t|
|0002b650| 68 65 50 61 74 68 0d 20 | 20 70 75 74 20 22 41 55 |hePath. | put "AU|
|0002b660| 44 45 4e 2c 42 45 41 55 | 56 4f 49 52 2c 43 48 4f |DEN,BEAU|VOIR,CHO|
|0002b670| 4d 53 4b 59 2c 47 55 52 | 4c 45 59 2d 42 52 4f 57 |MSKY,GUR|LEY-BROW|
|0002b680| 4e 2c 46 52 45 55 44 2c | 46 52 49 45 44 41 4e 2c |N,FREUD,|FRIEDAN,|
|0002b690| 47 52 41 48 41 4d 2c 47 | 52 45 45 52 2c 48 45 4d |GRAHAM,G|REER,HEM|
|0002b6a0| 49 4e 47 57 41 59 2c 48 | 55 58 4c 45 59 2c 4a 4f |INGWAY,H|UXLEY,JO|
|0002b6b0| 59 43 45 2c 4a 55 4e 47 | 2c 4b 41 46 4b 41 2c 4f |YCE,JUNG|,KAFKA,O|
|0002b6c0| 52 57 45 4c 4c 2c 4f 57 | 45 4e 2c 50 41 53 54 45 |RWELL,OW|EN,PASTE|
|0002b6d0| 52 4e 41 4b 2c 50 49 41 | 47 45 54 2c 52 55 53 53 |RNAK,PIA|GET,RUSS|
|0002b6e0| 45 4c 4c 2c 53 41 52 54 | 52 45 2c 53 41 55 53 53 |ELL,SART|RE,SAUSS|
|0002b6f0| 55 52 45 2c 53 4f 4c 5a | 48 45 4e 49 54 53 59 4e |URE,SOLZ|HENITSYN|
|0002b700| 2c 54 45 52 45 53 41 2c | 56 41 52 41 48 2c 57 49 |,TERESA,|VARAH,WI|
|0002b710| 4c 53 4f 4e 2c 57 4f 4f | 4c 46 22 20 69 6e 74 6f |LSON,WOO|LF" into|
|0002b720| 20 78 78 0d 20 20 70 75 | 74 20 31 20 69 6e 74 6f | xx.  pu|t 1 into|
|0002b730| 20 69 0d 20 20 70 75 74 | 20 46 41 4c 53 45 20 69 | i.  put| FALSE i|
|0002b740| 6e 74 6f 20 6f 75 74 0d | 20 20 72 65 70 65 61 74 |nto out.|  repeat|
|0002b750| 20 77 68 69 6c 65 20 69 | 3c 20 74 68 65 20 6e 75 | while i|< the nu|
|0002b760| 6d 62 65 72 20 6f 66 20 | 69 74 65 6d 73 20 6f 66 |mber of |items of|
|0002b770| 20 78 78 20 61 6e 64 20 | 6e 6f 74 20 6f 75 74 0d | xx and |not out.|
|0002b780| 20 20 20 20 69 66 20 4d | 61 6b 65 72 4e 61 6d 65 |    if M|akerName|
|0002b790| 20 3d 20 69 74 65 6d 20 | 69 20 6f 66 20 78 78 20 | = item |i of xx |
|0002b7a0| 74 68 65 6e 0d 20 20 20 | 20 20 20 70 75 74 20 54 |then.   |   put T|
|0002b7b0| 52 55 45 20 69 6e 74 6f | 20 6f 75 74 0d 20 20 20 |RUE into| out.   |
|0002b7c0| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 70 75 74 20 | else.  |    put |
|0002b7d0| 69 2b 31 20 69 6e 74 6f | 20 69 0d 20 20 20 20 65 |i+1 into| i.    e|
|0002b7e0| 6e 64 20 69 66 0d 20 20 | 65 6e 64 20 72 65 70 65 |nd if.  |end repe|
|0002b7f0| 61 74 0d 20 20 69 66 20 | 69 3e 20 74 68 65 20 6e |at.  if |i> the n|
|0002b800| 75 6d 62 65 72 20 6f 66 | 20 69 74 65 6d 73 20 6f |umber of| items o|
|0002b810| 66 20 78 78 20 74 68 65 | 6e 20 62 65 65 70 0d 20 |f xx the|n beep. |
|0002b820| 20 0d 20 20 73 65 74 20 | 4d 61 6b 65 72 73 4c 69 | .  set |MakersLi|
|0002b830| 73 74 20 3d 20 5b 22 31 | 33 36 22 2c 22 30 35 36 |st = ["1|36","056|
|0002b840| 22 2c 22 31 34 33 22 2c | 22 30 38 32 22 2c 22 31 |","143",|"082","1|
|0002b850| 30 37 22 2c 22 30 32 36 | 22 2c 22 30 37 36 22 2c |07","026|","076",|
|0002b860| 22 30 33 33 22 2c 22 30 | 39 34 22 2c 22 31 36 36 |"033","0|94","166|
|0002b870| 22 2c 22 30 35 30 22 2c | 22 31 31 31 22 2c 22 31 |","050",|"111","1|
|0002b880| 37 32 22 2c 22 31 35 37 | 22 2c 22 30 36 33 22 2c |72","157|","063",|
|0002b890| 22 31 32 39 22 2c 22 31 | 31 35 22 2c 22 30 36 39 |"129","1|15","069|
|0002b8a0| 22 2c 22 31 32 32 22 2c | 22 30 38 37 22 2c 22 30 |","122",|"087","0|
|0002b8b0| 32 31 22 2c 22 31 35 30 | 22 2c 22 30 34 34 22 2c |21","150|","044",|
|0002b8c0| 22 30 33 37 22 2c 22 31 | 30 30 22 5d 0d 20 20 0d |"037","1|00"].  .|
|0002b8d0| 20 20 70 75 74 20 67 65 | 74 41 74 28 4d 61 6b 65 |  put ge|tAt(Make|
|0002b8e0| 72 73 4c 69 73 74 2c 20 | 69 29 20 20 69 6e 74 6f |rsList, |i)  into|
|0002b8f0| 20 54 6f 47 6f 0d 20 20 | 0d 20 20 67 6f 20 66 72 | ToGo.  |.  go fr|
|0002b900| 61 6d 65 20 22 66 61 64 | 65 22 20 6f 66 20 6d 6f |ame "fad|e" of mo|
|0002b910| 76 69 65 20 28 74 68 65 | 50 61 74 68 29 0d 65 6e |vie (the|Path).en|
|0002b920| 64 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d.------|--------|
|0002b930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002b970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|0002b980| 6f 6e 20 47 6f 42 6f 64 | 79 0d 20 20 67 6c 6f 62 |on GoBod|y.  glob|
|0002b990| 61 6c 20 67 57 68 69 63 | 68 4d 6f 76 2c 20 67 4d |al gWhic|hMov, gM|
|0002b9a0| 61 6b 65 72 73 50 61 74 | 68 2c 20 67 44 65 6c 69 |akersPat|h, gDeli|
|0002b9b0| 6d 2c 67 4d 61 6b 65 72 | 4e 61 6d 65 0d 20 20 0d |m,gMaker|Name.  .|
|0002b9c0| 20 20 43 6c 69 63 6b 53 | 6e 64 0d 20 20 75 70 64 |  ClickS|nd.  upd|
|0002b9d0| 61 74 65 73 74 61 67 65 | 0d 20 20 0d 20 20 75 6e |atestage|.  .  un|
|0002b9e0| 6c 6f 61 64 0d 20 20 75 | 6e 6c 6f 61 64 63 61 73 |load.  u|nloadcas|
|0002b9f0| 74 0d 20 20 2d 2d 67 6f | 20 74 6f 20 66 72 61 6d |t.  --go| to fram|
|0002ba00| 65 20 22 66 61 64 65 22 | 20 6f 66 20 6d 6f 76 69 |e "fade"| of movi|
|0002ba10| 65 20 67 4d 61 6b 65 72 | 73 50 61 74 68 20 26 20 |e gMaker|sPath & |
|0002ba20| 22 42 4f 44 59 22 20 26 | 20 67 44 65 6c 69 6d 20 |"BODY" &| gDelim |
|0002ba30| 26 20 67 57 68 69 63 68 | 4d 6f 76 0d 20 20 0d 20 |& gWhich|Mov.  . |
|0002ba40| 20 47 6f 42 6c 61 63 6b | 46 72 61 6d 65 0d 20 20 | GoBlack|Frame.  |
|0002ba50| 63 68 61 70 74 65 72 73 | 4c 69 73 74 73 20 67 4d |chapters|Lists gM|
|0002ba60| 61 6b 65 72 4e 61 6d 65 | 0d 65 6e 64 0d 2d 2d 2d |akerName|.end.---|
|0002ba70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002ba80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002ba90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002baa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002bab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002bac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 6f 6e 20 63 68 |--------|--.on ch|
|0002bad0| 61 70 74 65 72 73 4c 69 | 73 74 73 20 4d 61 6b 65 |aptersLi|sts Make|
|0002bae0| 72 4e 61 6d 65 0d 20 20 | 67 6c 6f 62 61 6c 20 49 |rName.  |global I|
|0002baf0| 74 65 6d 44 65 6c 2c 53 | 74 61 72 74 53 70 72 69 |temDel,S|tartSpri|
|0002bb00| 74 65 2c 53 74 61 74 75 | 73 2c 53 61 76 65 64 50 |te,Statu|s,SavedP|
|0002bb10| 6f 73 2c 54 6f 47 6f 2c | 50 65 72 73 6f 6e 2c 47 |os,ToGo,|Person,G|
|0002bb20| 6f 54 6f 2c 4e 65 78 74 | 46 72 61 6d 65 2c 4c 61 |oTo,Next|Frame,La|
|0002bb30| 73 74 46 72 61 6d 65 2c | 43 75 72 72 46 72 61 6d |stFrame,|CurrFram|
|0002bb40| 65 0d 20 20 67 6c 6f 62 | 61 6c 20 67 4d 61 6b 65 |e.  glob|al gMake|
|0002bb50| 72 73 50 61 74 68 2c 20 | 67 44 65 6c 69 6d 20 2c |rsPath, |gDelim ,|
|0002bb60| 20 57 65 72 65 54 6f 47 | 6f 0d 20 20 0d 20 20 0d | WereToG|o.  .  .|
|0002bb70| 20 20 69 66 20 74 68 65 | 20 6d 61 63 68 69 6e 65 |  if the| machine|
|0002bb80| 74 79 70 65 20 3c 3e 20 | 32 35 36 20 74 68 65 6e |type <> |256 then|
|0002bb90| 0d 20 20 20 20 2d 2d 20 | 6d 61 63 69 6e 74 6f 73 |.    -- |macintos|
|0002bba0| 68 0d 20 20 20 20 0d 20 | 20 20 20 73 65 74 20 67 |h.    . |   set g|
|0002bbb0| 44 65 6c 69 6d 20 3d 20 | 22 3a 22 0d 20 20 20 20 |Delim = |":".    |
|0002bbc0| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|0002bbd0| 6d 69 74 65 72 20 3d 20 | 67 44 65 6c 69 6d 0d 20 |miter = |gDelim. |
|0002bbe0| 20 20 20 2d 2d 20 73 65 | 74 20 67 44 72 69 76 65 |   -- se|t gDrive|
|0002bbf0| 20 3d 20 69 74 65 6d 20 | 31 20 6f 66 20 74 68 65 | = item |1 of the|
|0002bc00| 20 70 61 74 68 6e 61 6d | 65 0d 20 20 65 6c 73 65 | pathnam|e.  else|
|0002bc10| 0d 20 20 20 20 2d 2d 20 | 50 43 0d 20 20 20 20 0d |.    -- |PC.    .|
|0002bc20| 20 20 20 20 73 65 74 20 | 67 44 65 6c 69 6d 20 3d |    set |gDelim =|
|0002bc30| 20 22 5c 22 0d 20 20 20 | 20 73 65 74 20 74 68 65 | "\".   | set the|
|0002bc40| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|0002bc50| 20 67 44 65 6c 69 6d 0d | 20 20 20 20 2d 2d 20 73 | gDelim.|    -- s|
|0002bc60| 65 74 20 67 44 72 69 76 | 65 20 3d 20 69 74 65 6d |et gDriv|e = item|
|0002bc70| 20 31 20 74 6f 20 32 20 | 6f 66 20 74 68 65 20 70 | 1 to 2 |of the p|
|0002bc80| 61 74 68 6e 61 6d 65 0d | 20 20 65 6e 64 20 69 66 |athname.|  end if|
|0002bc90| 0d 20 20 0d 20 20 73 65 | 74 20 67 44 72 69 76 65 |.  .  se|t gDrive|
|0002bca0| 20 3d 20 69 74 65 6d 20 | 31 20 6f 66 20 74 68 65 | = item |1 of the|
|0002bcb0| 20 70 61 74 68 6e 61 6d | 65 0d 20 20 73 65 74 20 | pathnam|e.  set |
|0002bcc0| 74 68 65 20 69 74 65 6d | 64 65 6c 69 6d 69 74 65 |the item|delimite|
|0002bcd0| 72 20 3d 20 22 2c 22 0d | 20 20 0d 20 20 2d 2d 20 |r = ",".|  .  -- |
|0002bce0| 73 65 74 20 74 68 65 20 | 74 72 61 63 65 20 74 6f |set the |trace to|
|0002bcf0| 20 74 72 75 65 0d 20 20 | 0d 20 20 2d 2d 20 67 4d | true.  |.  -- gM|
|0002bd00| 61 6b 65 72 73 50 61 74 | 68 20 63 68 61 6e 67 65 |akersPat|h change|
|0002bd10| 73 20 64 65 70 65 6e 64 | 69 6e 67 20 6f 6e 20 77 |s depend|ing on w|
|0002bd20| 68 65 74 68 65 72 20 77 | 65 20 61 72 65 20 6f 6e |hether w|e are on|
|0002bd30| 20 61 20 50 43 20 6f 72 | 20 61 20 4d 41 43 0d 20 | a PC or| a MAC. |
|0002bd40| 20 70 75 74 20 28 67 44 | 72 69 76 65 26 20 67 44 | put (gD|rive& gD|
|0002bd50| 65 6c 69 6d 20 26 20 22 | 4d 41 4b 45 52 53 22 26 |elim & "|MAKERS"&|
|0002bd60| 20 67 44 65 6c 69 6d 20 | 26 22 42 4f 44 59 22 20 | gDelim |&"BODY" |
|0002bd70| 26 20 67 44 65 6c 69 6d | 20 26 20 22 42 4f 44 59 |& gDelim| & "BODY|
|0002bd80| 4d 41 49 4e 2e 44 49 52 | 22 29 20 69 6e 74 6f 20 |MAIN.DIR|") into |
|0002bd90| 74 68 65 50 61 74 68 0d | 20 20 0d 20 20 2d 2d 20 |thePath.|  .  -- |
|0002bda0| 67 6f 20 66 72 61 6d 65 | 20 22 6f 70 65 6e 22 20 |go frame| "open" |
|0002bdb0| 6f 66 20 6d 6f 76 69 65 | 20 73 74 72 69 6e 67 28 |of movie| string(|
|0002bdc0| 74 68 65 50 61 74 68 29 | 0d 20 20 0d 20 20 73 65 |thePath)|.  .  se|
|0002bdd0| 74 20 4d 61 6b 65 72 73 | 4c 69 73 74 31 20 3d 20 |t Makers|List1 = |
|0002bde0| 5b 22 41 4c 49 22 3a 31 | 2c 22 42 41 4e 4e 49 53 |["ALI":1|,"BANNIS|
|0002bdf0| 54 45 52 22 3a 31 2c 22 | 42 41 4e 54 49 4e 47 22 |TER":1,"|BANTING"|
|0002be00| 3a 32 2c 22 42 41 52 4e | 41 52 44 22 3a 32 2c 22 |:2,"BARN|ARD":2,"|
|0002be10| 43 48 41 4e 45 4c 22 3a | 31 2c 22 43 52 49 43 4b |CHANEL":|1,"CRICK|
|0002be20| 22 3a 32 2c 22 56 41 4c | 4f 49 53 22 3a 31 2c 22 |":2,"VAL|OIS":1,"|
|0002be30| 44 55 4e 43 41 4e 22 3a | 31 2c 22 45 48 52 4c 49 |DUNCAN":|1,"EHRLI|
|0002be40| 43 48 22 3a 32 2c 22 46 | 4c 45 4d 49 4e 47 22 3a |CH":2,"F|LEMING":|
|0002be50| 32 2c 22 4d 4f 4e 54 41 | 47 4e 49 45 52 22 3a 32 |2,"MONTA|GNIER":2|
|0002be60| 2c 22 47 52 41 48 41 4d | 22 3a 31 2c 22 4a 4f 52 |,"GRAHAM|":1,"JOR|
|0002be70| 44 41 4e 22 3a 31 2c 22 | 4b 4f 52 42 55 54 22 3a |DAN":1,"|KORBUT":|
|0002be80| 31 2c 22 4d 4f 4e 54 41 | 47 4e 49 45 52 22 3a 32 |1,"MONTA|GNIER":2|
|0002be90| 2c 22 4e 41 56 52 41 54 | 49 4c 4f 56 41 22 3a 31 |,"NAVRAT|ILOVA":1|
|0002bea0| 2c 22 4e 55 52 45 59 45 | 56 22 3a 31 2c 22 4f 57 |,"NUREYE|V":1,"OW|
|0002beb0| 45 4e 53 22 3a 31 2c 22 | 50 45 4c 45 22 3a 31 2c |ENS":1,"|PELE":1,|
|0002bec0| 22 50 49 4e 43 55 53 22 | 3a 32 2c 22 52 55 54 48 |"PINCUS"|:2,"RUTH|
|0002bed0| 22 3a 31 2c 22 53 41 4e | 47 45 52 22 3a 32 2c 22 |":1,"SAN|GER":2,"|
|0002bee0| 53 50 4f 43 4b 22 3a 32 | 2c 22 53 54 45 50 54 4f |SPOCK":2|,"STEPTO|
|0002bef0| 45 22 3a 32 2c 22 43 52 | 49 43 4b 22 3a 32 5d 0d |E":2,"CR|ICK":2].|
|0002bf00| 20 20 0d 20 20 73 65 74 | 20 4d 61 6b 65 72 73 4c |  .  set| MakersL|
|0002bf10| 69 73 74 32 20 3d 20 5b | 22 34 31 31 22 2c 22 35 |ist2 = [|"411","5|
|0002bf20| 31 32 22 2c 22 32 33 36 | 35 22 2c 22 32 33 38 34 |12","236|5","2384|
|0002bf30| 22 2c 22 31 36 31 35 22 | 2c 22 32 36 31 39 22 2c |","1615"|,"2619",|
|0002bf40| 22 32 30 37 39 22 2c 22 | 31 38 31 37 22 2c 22 32 |"2079","|1817","2|
|0002bf50| 33 39 37 22 2c 22 32 36 | 34 31 22 2c 22 32 35 34 |397","26|41","254|
|0002bf60| 34 22 2c 22 31 39 32 36 | 22 2c 22 39 35 39 22 2c |4","1926|","959",|
|0002bf70| 22 31 34 39 37 22 2c 22 | 32 36 34 31 22 2c 22 31 |"1497","|2641","1|
|0002bf80| 30 37 35 22 2c 22 32 32 | 31 31 22 2c 22 31 32 31 |075","22|11","121|
|0002bf90| 38 22 2c 22 31 33 39 34 | 22 2c 22 32 36 32 34 22 |8","1394|","2624"|
|0002bfa0| 2c 22 37 33 30 22 2c 22 | 32 34 37 33 22 2c 22 32 |,"730","|2473","2|
|0002bfb0| 34 33 38 22 2c 22 32 35 | 37 33 22 2c 22 32 36 31 |438","25|73","261|
|0002bfc0| 39 22 5d 0d 20 20 0d 20 | 20 70 75 74 20 66 69 6e |9"].  . | put fin|
|0002bfd0| 64 50 6f 73 4e 65 61 72 | 28 4d 61 6b 65 72 73 4c |dPosNear|(MakersL|
|0002bfe0| 69 73 74 31 2c 20 4d 61 | 6b 65 72 4e 61 6d 65 29 |ist1, Ma|kerName)|
|0002bff0| 20 69 6e 74 6f 20 70 72 | 65 76 47 6f 54 6f 20 20 | into pr|evGoTo  |
|0002c000| 2d 2d 69 6e 20 77 68 61 | 74 20 69 74 65 6d 0d 20 |--in wha|t item. |
|0002c010| 20 70 75 74 20 67 65 74 | 41 74 28 4d 61 6b 65 72 | put get|At(Maker|
|0002c020| 73 4c 69 73 74 32 2c 20 | 70 72 65 76 47 6f 54 6f |sList2, |prevGoTo|
|0002c030| 29 20 20 69 6e 74 6f 20 | 74 65 6d 70 20 20 20 20 |)  into |temp    |
|0002c040| 20 20 20 20 20 20 20 20 | 2d 2d 74 68 65 20 66 72 |        |--the fr|
|0002c050| 61 6d 65 73 4e 75 6d 0d | 20 20 70 75 74 20 67 65 |amesNum.|  put ge|
|0002c060| 74 50 72 6f 70 28 4d 61 | 6b 65 72 73 4c 69 73 74 |tProp(Ma|kersList|
|0002c070| 31 2c 20 4d 61 6b 65 72 | 4e 61 6d 65 29 20 20 69 |1, Maker|Name)  i|
|0002c080| 6e 74 6f 20 74 65 6d 20 | 20 20 20 20 20 20 20 20 |nto tem |        |
|0002c090| 20 2d 2d 73 65 63 6f 6e | 64 20 76 61 72 0d 20 20 | --secon|d var.  |
|0002c0a0| 0d 20 20 0d 20 20 70 75 | 74 20 4d 61 6b 65 72 4e |.  .  pu|t MakerN|
|0002c0b0| 61 6d 65 20 69 6e 74 6f | 20 4e 65 78 74 46 72 61 |ame into| NextFra|
|0002c0c0| 6d 65 0d 20 20 70 75 74 | 20 4e 65 78 74 46 72 61 |me.  put| NextFra|
|0002c0d0| 6d 65 20 69 6e 74 6f 20 | 4c 61 73 74 46 72 61 6d |me into |LastFram|
|0002c0e0| 65 0d 20 20 70 75 74 20 | 4e 65 78 74 46 72 61 6d |e.  put |NextFram|
|0002c0f0| 65 20 69 6e 74 6f 20 43 | 75 72 72 46 72 61 6d 65 |e into C|urrFrame|
|0002c100| 0d 20 20 70 75 74 20 76 | 61 6c 75 65 28 74 65 6d |.  put v|alue(tem|
|0002c110| 70 29 20 69 6e 74 6f 20 | 47 6f 54 6f 0d 20 20 0d |p) into |GoTo.  .|
|0002c120| 20 20 2d 2d 67 6f 20 66 | 72 61 6d 65 20 22 66 61 |  --go f|rame "fa|
|0002c130| 64 65 22 20 6f 66 20 6d | 6f 76 69 65 20 73 74 72 |de" of m|ovie str|
|0002c140| 69 6e 67 28 74 68 65 50 | 61 74 68 29 0d 20 20 0d |ing(theP|ath).  .|
|0002c150| 20 20 69 66 20 74 65 6d | 20 3d 20 32 20 74 68 65 |  if tem| = 2 the|
|0002c160| 6e 0d 20 20 20 20 73 65 | 74 20 57 65 72 65 54 6f |n.    se|t WereTo|
|0002c170| 47 6f 20 3d 20 22 66 61 | 64 65 22 0d 20 20 20 20 |Go = "fa|de".    |
|0002c180| 2d 2d 67 6f 20 66 72 61 | 6d 65 20 22 66 61 64 65 |--go fra|me "fade|
|0002c190| 22 20 6f 66 20 6d 6f 76 | 69 65 20 73 74 72 69 6e |" of mov|ie strin|
|0002c1a0| 67 28 74 68 65 50 61 74 | 68 29 0d 20 20 65 6c 73 |g(thePat|h).  els|
|0002c1b0| 65 0d 20 20 20 20 73 65 | 74 20 57 65 72 65 54 6f |e.    se|t WereTo|
|0002c1c0| 47 6f 20 3d 20 22 66 61 | 64 65 32 22 0d 20 20 20 |Go = "fa|de2".   |
|0002c1d0| 20 2d 2d 67 6f 20 66 72 | 61 6d 65 20 22 66 61 64 | --go fr|ame "fad|
|0002c1e0| 65 32 22 20 6f 66 20 6d | 6f 76 69 65 20 73 74 72 |e2" of m|ovie str|
|0002c1f0| 69 6e 67 28 74 68 65 50 | 61 74 68 29 0d 20 20 20 |ing(theP|ath).   |
|0002c200| 20 73 65 74 20 20 4e 65 | 78 74 46 72 61 6d 65 20 | set  Ne|xtFrame |
|0002c210| 3d 20 22 66 61 6c 6c 31 | 22 0d 20 20 65 6e 64 20 |= "fall1|".  end |
|0002c220| 69 66 0d 20 20 0d 20 20 | 67 6f 20 66 72 61 6d 65 |if.  .  |go frame|
|0002c230| 20 22 6f 70 65 6e 22 20 | 6f 66 20 6d 6f 76 69 65 | "open" |of movie|
|0002c240| 20 73 74 72 69 6e 67 28 | 74 68 65 50 61 74 68 29 | string(|thePath)|
|0002c250| 0d 65 6e 64 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.end.---|--------|
|0002c260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002c270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002c280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002c290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002c2a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002c2b0| 2d 2d 0d 6f 6e 20 47 6f | 50 6f 77 65 72 0d 20 20 |--.on Go|Power.  |
|0002c2c0| 67 6c 6f 62 61 6c 20 67 | 57 68 69 63 68 4d 6f 76 |global g|WhichMov|
|0002c2d0| 2c 20 67 57 68 69 63 68 | 46 72 61 6d 65 2c 20 67 |, gWhich|Frame, g|
|0002c2e0| 4d 61 6b 65 72 73 50 61 | 74 68 2c 20 67 44 65 6c |MakersPa|th, gDel|
|0002c2f0| 69 6d 2c 67 4d 61 6b 65 | 72 4e 61 6d 65 0d 20 20 |im,gMake|rName.  |
|0002c300| 0d 20 20 43 6c 69 63 6b | 53 6e 64 0d 20 20 75 70 |.  Click|Snd.  up|
|0002c310| 64 61 74 65 73 74 61 67 | 65 0d 20 20 0d 20 20 75 |datestag|e.  .  u|
|0002c320| 6e 6c 6f 61 64 0d 20 20 | 75 6e 6c 6f 61 64 63 61 |nload.  |unloadca|
|0002c330| 73 74 0d 20 20 47 6f 42 | 6c 61 63 6b 46 72 61 6d |st.  GoB|lackFram|
|0002c340| 65 0d 20 20 63 68 61 70 | 74 65 72 73 4c 69 73 74 |e.  chap|tersList|
|0002c350| 73 34 20 67 4d 61 6b 65 | 72 4e 61 6d 65 0d 65 6e |s4 gMake|rName.en|
|0002c360| 64 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d.------|--------|
|0002c370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002c380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002c390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002c3a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002c3b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|0002c3c0| 6f 6e 20 63 68 61 70 74 | 65 72 73 4c 69 73 74 73 |on chapt|ersLists|
|0002c3d0| 34 20 4d 61 6b 65 72 4e | 61 6d 65 0d 20 20 67 6c |4 MakerN|ame.  gl|
|0002c3e0| 6f 62 61 6c 20 49 74 65 | 6d 44 65 6c 2c 53 74 61 |obal Ite|mDel,Sta|
|0002c3f0| 72 74 53 70 72 69 74 65 | 2c 53 74 61 74 75 73 2c |rtSprite|,Status,|
|0002c400| 53 61 76 65 64 50 6f 73 | 2c 54 6f 47 6f 2c 50 65 |SavedPos|,ToGo,Pe|
|0002c410| 72 73 6f 6e 2c 47 6f 54 | 6f 2c 4e 65 78 74 46 72 |rson,GoT|o,NextFr|
|0002c420| 61 6d 65 2c 4c 61 73 74 | 46 72 61 6d 65 2c 43 75 |ame,Last|Frame,Cu|
|0002c430| 72 72 46 72 61 6d 65 0d | 20 20 67 6c 6f 62 61 6c |rrFrame.|  global|
|0002c440| 20 67 4d 61 6b 65 72 73 | 50 61 74 68 0d 20 20 0d | gMakers|Path.  .|
|0002c450| 20 20 69 66 20 74 68 65 | 20 6d 61 63 68 69 6e 65 |  if the| machine|
|0002c460| 74 79 70 65 20 3c 3e 20 | 32 35 36 20 74 68 65 6e |type <> |256 then|
|0002c470| 0d 20 20 20 20 2d 2d 20 | 6d 61 63 69 6e 74 6f 73 |.    -- |macintos|
|0002c480| 68 0d 20 20 20 20 0d 20 | 20 20 20 73 65 74 20 67 |h.    . |   set g|
|0002c490| 44 65 6c 69 6d 20 3d 20 | 22 3a 22 0d 20 20 20 20 |Delim = |":".    |
|0002c4a0| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|0002c4b0| 6d 69 74 65 72 20 3d 20 | 67 44 65 6c 69 6d 0d 20 |miter = |gDelim. |
|0002c4c0| 20 20 20 2d 2d 20 73 65 | 74 20 67 44 72 69 76 65 |   -- se|t gDrive|
|0002c4d0| 20 3d 20 69 74 65 6d 20 | 31 20 6f 66 20 74 68 65 | = item |1 of the|
|0002c4e0| 20 70 61 74 68 6e 61 6d | 65 0d 20 20 65 6c 73 65 | pathnam|e.  else|
|0002c4f0| 0d 20 20 20 20 2d 2d 20 | 50 43 0d 20 20 20 20 0d |.    -- |PC.    .|
|0002c500| 20 20 20 20 73 65 74 20 | 67 44 65 6c 69 6d 20 3d |    set |gDelim =|
|0002c510| 20 22 5c 22 0d 20 20 20 | 20 73 65 74 20 74 68 65 | "\".   | set the|
|0002c520| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|0002c530| 20 67 44 65 6c 69 6d 0d | 20 20 20 20 2d 2d 20 73 | gDelim.|    -- s|
|0002c540| 65 74 20 67 44 72 69 76 | 65 20 3d 20 69 74 65 6d |et gDriv|e = item|
|0002c550| 20 31 20 74 6f 20 32 20 | 6f 66 20 74 68 65 20 70 | 1 to 2 |of the p|
|0002c560| 61 74 68 6e 61 6d 65 0d | 20 20 65 6e 64 20 69 66 |athname.|  end if|
|0002c570| 0d 20 20 0d 20 20 73 65 | 74 20 67 44 72 69 76 65 |.  .  se|t gDrive|
|0002c580| 20 3d 20 69 74 65 6d 20 | 31 20 6f 66 20 74 68 65 | = item |1 of the|
|0002c590| 20 70 61 74 68 6e 61 6d | 65 0d 20 20 73 65 74 20 | pathnam|e.  set |
|0002c5a0| 74 68 65 20 69 74 65 6d | 64 65 6c 69 6d 69 74 65 |the item|delimite|
|0002c5b0| 72 20 3d 20 22 2c 22 0d | 20 20 0d 20 20 70 75 74 |r = ",".|  .  put|
|0002c5c0| 20 28 20 67 44 72 69 76 | 65 20 26 20 67 44 65 6c | ( gDriv|e & gDel|
|0002c5d0| 69 6d 20 26 20 22 4d 41 | 4b 45 52 53 22 20 26 20 |im & "MA|KERS" & |
|0002c5e0| 67 44 65 6c 69 6d 20 26 | 20 22 50 4f 57 45 52 22 |gDelim &| "POWER"|
|0002c5f0| 29 20 20 69 6e 74 6f 20 | 74 68 65 50 61 74 68 0d |)  into |thePath.|
|0002c600| 20 20 0d 20 20 70 75 74 | 20 22 41 52 41 46 41 54 |  .  put| "ARAFAT|
|0002c610| 2c 47 55 52 49 4f 4e 2c | 42 45 52 4e 42 41 43 48 |,GURION,|BERNBACH|
|0002c620| 2c 42 48 55 54 54 4f 2c | 42 52 41 4e 44 54 2c 42 |,BHUTTO,|BRANDT,B|
|0002c630| 52 45 5a 48 4e 45 56 2c | 43 41 53 54 52 4f 2c 43 |REZHNEV,|CASTRO,C|
|0002c640| 48 55 52 43 48 49 4c 4c | 2c 43 4f 4c 4c 49 4e 53 |HURCHILL|,COLLINS|
|0002c650| 2c 47 41 55 4c 4c 45 2c | 44 45 4d 49 4e 47 2c 44 |,GAULLE,|DEMING,D|
|0002c660| 45 4e 47 2c 45 53 43 4f | 42 41 52 2c 46 52 41 4e |ENG,ESCO|BAR,FRAN|
|0002c670| 43 4f 2c 46 52 49 45 44 | 4d 41 4e 2c 47 41 4e 44 |CO,FRIED|MAN,GAND|
|0002c680| 48 49 49 2c 47 41 4e 44 | 48 49 4d 2c 47 4f 52 42 |HII,GAND|HIM,GORB|
|0002c690| 41 43 48 45 56 2c 53 45 | 4c 41 53 53 49 45 2c 48 |ACHEV,SE|LASSIE,H|
|0002c6a0| 45 41 52 53 54 2c 48 49 | 52 4f 48 49 54 4f 2c 48 |EARST,HI|ROHITO,H|
|0002c6b0| 49 54 4c 45 52 2c 4d 49 | 4e 48 2c 4b 45 4e 4e 45 |ITLER,MI|NH,KENNE|
|0002c6c0| 44 59 2c 4b 48 4f 4d 45 | 49 4e 49 2c 4b 48 52 55 |DY,KHOME|INI,KHRU|
|0002c6d0| 53 48 43 48 45 56 2c 4b | 49 4e 47 2c 4b 4f 48 4c |SHCHEV,K|ING,KOHL|
|0002c6e0| 2c 4c 45 4e 49 4e 2c 4d | 41 4c 43 4f 4c 4d 58 2c |,LENIN,M|ALCOLMX,|
|0002c6f0| 4d 41 4e 44 45 4c 41 2c | 4d 41 4f 2c 4d 45 49 4e |MANDELA,|MAO,MEIN|
|0002c700| 48 4f 46 2c 4d 55 52 44 | 4f 43 48 2c 4d 55 53 53 |HOF,MURD|OCH,MUSS|
|0002c710| 4f 4c 49 4e 49 2c 4e 41 | 53 53 45 52 2c 4e 49 58 |OLINI,NA|SSER,NIX|
|0002c720| 4f 4e 2c 50 41 4e 4b 48 | 55 52 53 54 2c 50 41 52 |ON,PANKH|URST,PAR|
|0002c730| 4b 53 2c 52 45 41 47 41 | 4e 2c 52 45 45 56 45 53 |KS,REAGA|N,REEVES|
|0002c740| 2c 52 4f 44 44 49 43 4b | 2c 52 4f 4f 53 45 56 45 |,RODDICK|,ROOSEVE|
|0002c750| 4c 54 2c 53 41 4e 43 48 | 45 5a 2c 53 54 41 4c 49 |LT,SANCH|EZ,STALI|
|0002c760| 4e 2c 54 48 41 54 43 48 | 45 52 2c 54 49 54 4f 2c |N,THATCH|ER,TITO,|
|0002c770| 57 41 4c 45 53 41 2c 57 | 49 4e 46 52 45 59 2c 59 |WALESA,W|INFREY,Y|
|0002c780| 41 4d 41 4e 49 22 20 69 | 6e 74 6f 20 78 78 0d 20 |AMANI" i|nto xx. |
|0002c790| 20 70 75 74 20 31 20 69 | 6e 74 6f 20 69 0d 20 20 | put 1 i|nto i.  |
|0002c7a0| 70 75 74 20 46 41 4c 53 | 45 20 69 6e 74 6f 20 6f |put FALS|E into o|
|0002c7b0| 75 74 0d 20 20 72 65 70 | 65 61 74 20 77 68 69 6c |ut.  rep|eat whil|
|0002c7c0| 65 20 69 3c 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |e i< the| number |
|0002c7d0| 6f 66 20 69 74 65 6d 73 | 20 6f 66 20 78 78 20 61 |of items| of xx a|
|0002c7e0| 6e 64 20 6e 6f 74 20 6f | 75 74 0d 20 20 20 20 69 |nd not o|ut.    i|
|0002c7f0| 66 20 4d 61 6b 65 72 4e | 61 6d 65 20 3d 20 69 74 |f MakerN|ame = it|
|0002c800| 65 6d 20 69 20 6f 66 20 | 78 78 20 74 68 65 6e 0d |em i of |xx then.|
|0002c810| 20 20 20 20 20 20 70 75 | 74 20 54 52 55 45 20 69 |      pu|t TRUE i|
|0002c820| 6e 74 6f 20 6f 75 74 0d | 20 20 20 20 65 6c 73 65 |nto out.|    else|
|0002c830| 0d 20 20 20 20 20 20 70 | 75 74 20 69 2b 31 20 69 |.      p|ut i+1 i|
|0002c840| 6e 74 6f 20 69 0d 20 20 | 20 20 65 6e 64 20 69 66 |nto i.  |  end if|
|0002c850| 0d 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |.  end r|epeat.  |
|0002c860| 69 66 20 69 3e 20 74 68 | 65 20 6e 75 6d 62 65 72 |if i> th|e number|
|0002c870| 20 6f 66 20 69 74 65 6d | 73 20 6f 66 20 78 78 20 | of item|s of xx |
|0002c880| 74 68 65 6e 20 62 65 65 | 70 0d 20 20 0d 20 20 73 |then bee|p.  .  s|
|0002c890| 65 74 20 4d 61 6b 65 72 | 73 4c 69 73 74 20 3d 20 |et Maker|sList = |
|0002c8a0| 20 5b 22 41 45 2e 44 49 | 52 22 3a 20 22 30 31 36 | ["AE.DI|R": "016|
|0002c8b0| 22 2c 20 22 41 45 2e 44 | 49 52 22 3a 20 22 30 31 |", "AE.D|IR": "01|
|0002c8c0| 31 22 2c 20 22 55 45 2e | 44 49 52 22 3a 20 22 30 |1", "UE.|DIR": "0|
|0002c8d0| 33 30 22 2c 20 22 41 53 | 45 2e 44 49 52 22 3a 20 |30", "AS|E.DIR": |
|0002c8e0| 22 77 69 6e 32 22 2c 20 | 22 45 45 2e 44 49 52 22 |"win2", |"EE.DIR"|
|0002c8f0| 3a 20 22 30 31 31 22 2c | 20 22 52 45 2e 44 49 52 |: "011",| "RE.DIR|
|0002c900| 22 3a 20 22 30 34 37 22 | 2c 20 22 55 45 2e 44 49 |": "047"|, "UE.DI|
|0002c910| 52 22 3a 20 22 30 35 39 | 22 2c 20 22 45 45 2e 44 |R": "059|", "EE.D|
|0002c920| 49 52 22 3a 20 22 31 35 | 32 22 2c 20 22 54 65 72 |IR": "15|2", "Ter|
|0002c930| 72 6f 72 2e 44 49 52 22 | 3a 20 22 30 34 33 22 2c |ror.DIR"|: "043",|
|0002c940| 20 22 45 45 2e 44 49 52 | 22 3a 20 22 31 30 39 22 | "EE.DIR|": "109"|
|0002c950| 2c 22 55 45 2e 44 49 52 | 22 3a 20 22 30 35 36 22 |,"UE.DIR|": "056"|
|0002c960| 2c 20 22 41 53 45 2e 44 | 49 52 22 3a 20 22 30 33 |, "ASE.D|IR": "03|
|0002c970| 38 22 2c 20 22 54 45 52 | 52 4f 52 2e 44 49 52 22 |8", "TER|ROR.DIR"|
|0002c980| 3a 20 22 70 61 62 22 2c | 20 22 45 45 2e 44 49 52 |: "pab",| "EE.DIR|
|0002c990| 22 3a 20 22 30 39 33 22 | 2c 20 22 55 45 2e 44 49 |": "093"|, "UE.DI|
|0002c9a0| 52 22 3a 20 22 30 35 36 | 22 2c 20 22 41 53 45 2e |R": "056|", "ASE.|
|0002c9b0| 44 49 52 22 3a 20 22 30 | 31 35 22 2c 20 22 41 53 |DIR": "0|15", "AS|
|0002c9c0| 45 2e 44 49 52 22 3a 20 | 22 6e 75 6c 6c 22 2c 20 |E.DIR": |"null", |
|0002c9d0| 22 52 45 2e 44 49 52 22 | 3a 20 22 30 35 39 22 2c |"RE.DIR"|: "059",|
|0002c9e0| 20 22 41 45 2e 44 49 52 | 22 3a 20 22 30 32 34 22 | "AE.DIR|": "024"|
|0002c9f0| 2c 20 22 55 45 2e 44 49 | 52 22 3a 20 22 31 30 34 |, "UE.DI|R": "104|
|0002ca00| 22 2c 20 22 41 53 45 2e | 44 49 52 22 3a 20 22 30 |", "ASE.|DIR": "0|
|0002ca10| 37 38 22 2c 20 22 45 45 | 2e 44 49 52 22 3a 20 22 |78", "EE|.DIR": "|
|0002ca20| 31 35 33 22 2c 20 22 41 | 53 45 2e 44 49 52 22 3a |153", "A|SE.DIR":|
|0002ca30| 20 22 31 30 30 22 2c 20 | 22 55 45 2e 44 49 52 22 | "100", |"UE.DIR"|
|0002ca40| 3a 20 22 30 34 38 22 2c | 20 22 41 45 2e 44 49 52 |: "048",| "AE.DIR|
|0002ca50| 22 3a 20 22 30 39 39 22 | 2c 20 22 52 45 2e 44 49 |": "099"|, "RE.DI|
|0002ca60| 52 22 3a 20 22 30 32 31 | 22 2c 20 22 55 45 2e 44 |R": "021|", "UE.D|
|0002ca70| 49 52 22 3a 20 22 30 31 | 34 22 2c 20 22 45 45 2e |IR": "01|4", "EE.|
|0002ca80| 44 49 52 22 3a 20 22 30 | 32 33 22 2c 20 22 52 45 |DIR": "0|23", "RE|
|0002ca90| 2e 44 49 52 22 3a 20 22 | 30 37 32 22 2c 20 22 55 |.DIR": "|072", "U|
|0002caa0| 45 2e 44 49 52 22 3a 20 | 22 30 31 35 22 2c 20 22 |E.DIR": |"015", "|
|0002cab0| 41 45 2e 44 49 52 22 3a | 20 22 30 38 38 22 2c 20 |AE.DIR":| "088", |
|0002cac0| 22 41 53 45 2e 44 49 52 | 22 3a 20 22 30 38 32 22 |"ASE.DIR|": "082"|
|0002cad0| 2c 20 22 54 45 52 52 4f | 52 2e 44 49 52 22 3a 20 |, "TERRO|R.DIR": |
|0002cae0| 22 30 33 34 22 2c 20 22 | 55 45 2e 44 49 52 22 3a |"034", "|UE.DIR":|
|0002caf0| 20 22 30 35 34 22 2c 20 | 22 45 45 2e 44 49 52 22 | "054", |"EE.DIR"|
|0002cb00| 3a 20 22 31 30 30 22 2c | 20 22 41 45 2e 44 49 52 |: "100",| "AE.DIR|
|0002cb10| 22 3a 20 22 30 33 33 22 | 2c 20 22 55 45 2e 44 49 |": "033"|, "UE.DI|
|0002cb20| 52 22 3a 20 22 30 34 38 | 22 2c 20 22 54 45 52 52 |R": "048|", "TERR|
|0002cb30| 4f 52 2e 44 49 52 22 3a | 20 22 30 30 39 22 2c 20 |OR.DIR":| "009", |
|0002cb40| 22 55 45 2e 44 49 52 22 | 3a 20 22 30 31 37 22 2c |"UE.DIR"|: "017",|
|0002cb50| 20 22 55 45 2e 44 49 52 | 22 3a 20 22 30 34 37 22 | "UE.DIR|": "047"|
|0002cb60| 2c 20 22 55 45 2e 44 49 | 52 22 3a 20 22 30 37 38 |, "UE.DI|R": "078|
|0002cb70| 22 2c 20 22 45 45 2e 44 | 49 52 22 3a 20 22 30 37 |", "EE.D|IR": "07|
|0002cb80| 35 22 2c 20 22 55 45 2e | 44 49 52 22 3a 20 22 30 |5", "UE.|DIR": "0|
|0002cb90| 34 36 22 2c 20 22 54 45 | 52 52 4f 52 2e 44 49 52 |46", "TE|RROR.DIR|
|0002cba0| 22 3a 20 22 30 33 34 22 | 2c 20 22 52 45 2e 44 49 |": "034"|, "RE.DI|
|0002cbb0| 52 22 3a 20 22 30 33 38 | 22 2c 20 22 45 45 2e 44 |R": "038|", "EE.D|
|0002cbc0| 49 52 22 3a 20 22 31 35 | 34 22 2c 20 22 45 45 2e |IR": "15|4", "EE.|
|0002cbd0| 44 49 52 22 3a 20 22 31 | 30 38 22 2c 20 22 45 45 |DIR": "1|08", "EE|
|0002cbe0| 2e 44 49 52 22 3a 20 22 | 30 34 32 22 2c 20 22 55 |.DIR": "|042", "U|
|0002cbf0| 45 2e 44 49 52 22 3a 20 | 22 31 30 30 22 2c 20 22 |E.DIR": |"100", "|
|0002cc00| 55 45 2e 44 49 52 22 3a | 20 22 30 34 36 22 5d 0d |UE.DIR":| "046"].|
|0002cc10| 20 20 0d 20 20 70 75 74 | 20 67 65 74 41 74 28 4d |  .  put| getAt(M|
|0002cc20| 61 6b 65 72 73 4c 69 73 | 74 2c 20 69 29 20 20 69 |akersLis|t, i)  i|
|0002cc30| 6e 74 6f 20 54 6f 47 6f | 0d 20 20 70 75 74 20 67 |nto ToGo|.  put g|
|0002cc40| 65 74 50 72 6f 70 41 74 | 28 4d 61 6b 65 72 73 4c |etPropAt|(MakersL|
|0002cc50| 69 73 74 2c 20 69 29 20 | 69 6e 74 6f 20 61 64 64 |ist, i) |into add|
|0002cc60| 50 61 74 68 0d 20 20 67 | 6f 20 66 72 61 6d 65 20 |Path.  g|o frame |
|0002cc70| 22 66 61 64 65 22 20 6f | 66 20 6d 6f 76 69 65 20 |"fade" o|f movie |
|0002cc80| 28 74 68 65 50 61 74 68 | 20 26 20 49 74 65 6d 44 |(thePath| & ItemD|
|0002cc90| 65 6c 20 26 20 61 64 64 | 50 61 74 68 29 0d 65 6e |el & add|Path).en|
|0002cca0| 64 0d 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d..-----|--------|
|0002ccb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002ccc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002ccd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002cce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002ccf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002cd00| 0d 6f 6e 20 47 6f 44 65 | 73 69 67 6e 0d 20 20 67 |.on GoDe|sign.  g|
|0002cd10| 6c 6f 62 61 6c 20 67 57 | 68 69 63 68 4d 6f 76 2c |lobal gW|hichMov,|
|0002cd20| 20 67 4d 61 6b 65 72 73 | 50 61 74 68 2c 20 67 44 | gMakers|Path, gD|
|0002cd30| 65 6c 69 6d 2c 67 4d 61 | 6b 65 72 4e 61 6d 65 0d |elim,gMa|kerName.|
|0002cd40| 20 20 0d 20 20 43 6c 69 | 63 6b 53 6e 64 0d 20 20 |  .  Cli|ckSnd.  |
|0002cd50| 75 70 64 61 74 65 73 74 | 61 67 65 0d 20 20 0d 20 |updatest|age.  . |
|0002cd60| 20 75 6e 6c 6f 61 64 0d | 20 20 75 6e 6c 6f 61 64 | unload.|  unload|
|0002cd70| 63 61 73 74 0d 20 20 0d | 20 20 47 6f 42 6c 61 63 |cast.  .|  GoBlac|
|0002cd80| 6b 46 72 61 6d 65 0d 20 | 20 63 68 61 70 74 65 72 |kFrame. | chapter|
|0002cd90| 73 4c 69 73 74 73 32 20 | 67 4d 61 6b 65 72 4e 61 |sLists2 |gMakerNa|
|0002cda0| 6d 65 0d 65 6e 64 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |me.end.-|--------|
|0002cdb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002cdc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002cdd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002cde0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002cdf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002ce00| 2d 2d 2d 2d 0d 6f 6e 20 | 63 68 61 70 74 65 72 73 |----.on |chapters|
|0002ce10| 4c 69 73 74 73 32 20 4d | 61 6b 65 72 4e 61 6d 65 |Lists2 M|akerName|
|0002ce20| 0d 20 20 67 6c 6f 62 61 | 6c 20 49 74 65 6d 44 65 |.  globa|l ItemDe|
|0002ce30| 6c 2c 53 74 61 72 74 53 | 70 72 69 74 65 2c 53 74 |l,StartS|prite,St|
|0002ce40| 61 74 75 73 2c 53 61 76 | 65 64 50 6f 73 2c 54 6f |atus,Sav|edPos,To|
|0002ce50| 47 6f 2c 50 65 72 73 6f | 6e 2c 47 6f 54 6f 2c 4e |Go,Perso|n,GoTo,N|
|0002ce60| 65 78 74 46 72 61 6d 65 | 2c 4c 61 73 74 46 72 61 |extFrame|,LastFra|
|0002ce70| 6d 65 2c 43 75 72 72 46 | 72 61 6d 65 0d 20 20 67 |me,CurrF|rame.  g|
|0002ce80| 6c 6f 62 61 6c 20 67 4d | 61 6b 65 72 73 50 61 74 |lobal gM|akersPat|
|0002ce90| 68 0d 20 20 0d 20 20 70 | 75 74 20 28 67 4d 61 6b |h.  .  p|ut (gMak|
|0002cea0| 65 72 73 50 61 74 68 26 | 22 64 65 73 69 67 6e 22 |ersPath&|"design"|
|0002ceb0| 29 20 69 6e 74 6f 20 74 | 68 65 50 61 74 68 0d 20 |) into t|hePath. |
|0002cec0| 20 70 75 74 20 22 42 41 | 45 4b 45 4c 41 4e 44 2c | put "BA|EKELAND,|
|0002ced0| 42 49 52 4f 2c 42 4f 4f | 54 48 2c 42 55 53 48 4e |BIRO,BOO|TH,BUSHN|
|0002cee0| 45 4c 4c 2c 43 41 52 4c | 53 4f 4e 2c 43 41 52 4f |ELL,CARL|SON,CARO|
|0002cef0| 54 48 45 52 53 2c 43 4f | 52 42 55 53 49 45 52 2c |THERS,CO|RBUSIER,|
|0002cf00| 44 41 52 52 4f 57 2c 44 | 52 45 57 2c 45 4e 47 45 |DARROW,D|REW,ENGE|
|0002cf10| 4c 42 45 52 47 45 52 2c | 46 49 53 48 45 52 2c 46 |LBERGER,|FISHER,F|
|0002cf20| 4f 52 44 2c 47 41 54 45 | 53 2c 47 52 4f 50 49 55 |ORD,GATE|S,GROPIU|
|0002cf30| 53 2c 48 4f 46 46 2c 4a | 4f 42 53 2c 4b 41 4c 41 |S,HOFF,J|OBS,KALA|
|0002cf40| 53 48 4e 49 4b 4f 56 2c | 4c 4f 45 57 59 2c 4c 4c |SHNIKOV,|LOEWY,LL|
|0002cf50| 4f 59 44 2d 57 52 49 47 | 48 54 2c 4d 41 52 43 4f |OYD-WRIG|HT,MARCO|
|0002cf60| 4e 49 2c 4d 43 4e 41 4d | 41 52 41 2c 4d 45 53 54 |NI,MCNAM|ARA,MEST|
|0002cf70| 52 41 4c 2c 4d 4f 52 49 | 54 41 2c 4e 45 47 52 4f |RAL,MORI|TA,NEGRO|
|0002cf80| 50 4f 4e 54 45 2c 50 48 | 49 4c 49 50 53 2c 53 41 |PONTE,PH|ILIPS,SA|
|0002cf90| 55 4e 44 45 52 53 2c 53 | 48 4f 45 4e 42 45 52 47 |UNDERS,S|HOENBERG|
|0002cfa0| 2c 53 55 4e 44 42 41 43 | 4b 2c 54 55 52 49 4e 47 |,SUNDBAC|K,TURING|
|0002cfb0| 2c 57 48 49 54 54 4c 45 | 2c 57 4f 4f 44 52 55 46 |,WHITTLE|,WOODRUF|
|0002cfc0| 46 2c 57 52 49 47 48 54 | 22 20 69 6e 74 6f 20 78 |F,WRIGHT|" into x|
|0002cfd0| 78 0d 20 20 70 75 74 20 | 31 20 69 6e 74 6f 20 69 |x.  put |1 into i|
|0002cfe0| 0d 20 20 70 75 74 20 46 | 41 4c 53 45 20 69 6e 74 |.  put F|ALSE int|
|0002cff0| 6f 20 6f 75 74 0d 20 20 | 72 65 70 65 61 74 20 77 |o out.  |repeat w|
|0002d000| 68 69 6c 65 20 69 3c 20 | 74 68 65 20 6e 75 6d 62 |hile i< |the numb|
|0002d010| 65 72 20 6f 66 20 69 74 | 65 6d 73 20 6f 66 20 78 |er of it|ems of x|
|0002d020| 78 20 61 6e 64 20 6e 6f | 74 20 6f 75 74 0d 20 20 |x and no|t out.  |
|0002d030| 20 20 69 66 20 4d 61 6b | 65 72 4e 61 6d 65 20 3d |  if Mak|erName =|
|0002d040| 20 69 74 65 6d 20 69 20 | 6f 66 20 78 78 20 74 68 | item i |of xx th|
|0002d050| 65 6e 0d 20 20 20 20 20 | 20 70 75 74 20 54 52 55 |en.     | put TRU|
|0002d060| 45 20 69 6e 74 6f 20 6f | 75 74 0d 20 20 20 20 65 |E into o|ut.    e|
|0002d070| 6c 73 65 0d 20 20 20 20 | 20 20 70 75 74 20 69 2b |lse.    |  put i+|
|0002d080| 31 20 69 6e 74 6f 20 69 | 0d 20 20 20 20 65 6e 64 |1 into i|.    end|
|0002d090| 20 69 66 0d 20 20 65 6e | 64 20 72 65 70 65 61 74 | if.  en|d repeat|
|0002d0a0| 0d 20 20 69 66 20 69 3e | 20 74 68 65 20 6e 75 6d |.  if i>| the num|
|0002d0b0| 62 65 72 20 6f 66 20 69 | 74 65 6d 73 20 6f 66 20 |ber of i|tems of |
|0002d0c0| 78 78 20 74 68 65 6e 20 | 62 65 65 70 0d 20 20 0d |xx then |beep.  .|
|0002d0d0| 20 20 73 65 74 20 4d 61 | 6b 65 72 73 4c 69 73 74 |  set Ma|kersList|
|0002d0e0| 20 3d 20 5b 22 64 65 73 | 69 67 6e 33 2e 64 69 72 | = ["des|ign3.dir|
|0002d0f0| 22 3a 32 2c 22 64 65 73 | 69 67 6e 32 2e 64 69 72 |":2,"des|ign2.dir|
|0002d100| 22 3a 35 2c 22 64 65 73 | 69 67 6e 33 2e 64 69 72 |":5,"des|ign3.dir|
|0002d110| 22 3a 36 2c 22 64 65 73 | 69 67 6e 33 2e 64 69 72 |":6,"des|ign3.dir|
|0002d120| 22 3a 39 2c 22 64 65 73 | 69 67 6e 34 2e 64 69 72 |":9,"des|ign4.dir|
|0002d130| 22 3a 35 2c 22 64 65 73 | 69 67 6e 32 2e 64 69 72 |":5,"des|ign2.dir|
|0002d140| 22 3a 32 2c 22 64 65 73 | 69 67 6e 34 2e 64 69 72 |":2,"des|ign4.dir|
|0002d150| 22 3a 36 2c 22 64 65 73 | 69 67 6e 32 2e 64 69 72 |":6,"des|ign2.dir|
|0002d160| 22 3a 34 2c 22 64 65 73 | 69 67 6e 33 2e 64 69 72 |":4,"des|ign3.dir|
|0002d170| 22 3a 34 2c 22 64 65 73 | 69 67 6e 33 2e 64 69 72 |":4,"des|ign3.dir|
|0002d180| 22 3a 35 2c 22 64 65 73 | 69 67 6e 31 2e 64 69 72 |":5,"des|ign1.dir|
|0002d190| 22 3a 34 2c 22 64 65 73 | 69 67 6e 32 2e 64 69 72 |":4,"des|ign2.dir|
|0002d1a0| 22 3a 33 2c 22 64 65 73 | 69 67 6e 31 2e 64 69 72 |":3,"des|ign1.dir|
|0002d1b0| 22 3a 37 2c 22 64 65 73 | 69 67 6e 33 2e 64 69 72 |":7,"des|ign3.dir|
|0002d1c0| 22 3a 37 2c 22 64 65 73 | 69 67 6e 32 2e 64 69 72 |":7,"des|ign2.dir|
|0002d1d0| 22 3a 38 2c 22 64 65 73 | 69 67 6e 34 2e 64 69 72 |":8,"des|ign4.dir|
|0002d1e0| 22 3a 38 2c 22 64 65 73 | 69 67 6e 31 2e 64 69 72 |":8,"des|ign1.dir|
|0002d1f0| 22 3a 33 2c 22 64 65 73 | 69 67 6e 31 2e 64 69 72 |":3,"des|ign1.dir|
|0002d200| 22 3a 38 2c 22 64 65 73 | 69 67 6e 31 2e 64 69 72 |":8,"des|ign1.dir|
|0002d210| 22 3a 32 2c 22 64 65 73 | 69 67 6e 31 2e 64 69 72 |":2,"des|ign1.dir|
|0002d220| 22 3a 39 2c 22 64 65 73 | 69 67 6e 34 2e 64 69 72 |":9,"des|ign4.dir|
|0002d230| 22 3a 37 2c 22 64 65 73 | 69 67 6e 31 2e 64 69 72 |":7,"des|ign1.dir|
|0002d240| 22 3a 31 31 2c 22 64 65 | 73 69 67 6e 34 2e 64 69 |":11,"de|sign4.di|
|0002d250| 72 22 3a 34 2c 22 64 65 | 73 69 67 6e 33 2e 64 69 |r":4,"de|sign3.di|
|0002d260| 72 22 3a 33 2c 22 64 65 | 73 69 67 6e 32 2e 64 69 |r":3,"de|sign2.di|
|0002d270| 72 22 3a 36 2c 22 64 65 | 73 69 67 6e 32 2e 64 69 |r":6,"de|sign2.di|
|0002d280| 72 22 3a 37 2c 22 64 65 | 73 69 67 6e 33 2e 64 69 |r":7,"de|sign3.di|
|0002d290| 72 22 3a 38 2c 22 64 65 | 73 69 67 6e 34 2e 64 69 |r":8,"de|sign4.di|
|0002d2a0| 72 22 3a 32 2c 22 64 65 | 73 69 67 6e 31 2e 64 69 |r":2,"de|sign1.di|
|0002d2b0| 72 22 3a 35 2c 22 64 65 | 73 69 67 6e 31 2e 64 69 |r":5,"de|sign1.di|
|0002d2c0| 72 22 3a 36 2c 22 64 65 | 73 69 67 6e 31 2e 64 69 |r":6,"de|sign1.di|
|0002d2d0| 72 22 3a 31 30 2c 22 64 | 65 73 69 67 6e 34 2e 64 |r":10,"d|esign4.d|
|0002d2e0| 69 72 22 3a 38 2c 22 64 | 65 73 69 67 6e 34 2e 64 |ir":8,"d|esign4.d|
|0002d2f0| 69 72 22 3a 33 5d 0d 20 | 20 0d 20 20 70 75 74 20 |ir":3]. | .  put |
|0002d300| 67 65 74 41 74 28 4d 61 | 6b 65 72 73 4c 69 73 74 |getAt(Ma|kersList|
|0002d310| 2c 20 69 29 20 69 6e 74 | 6f 20 73 70 72 69 74 65 |, i) int|o sprite|
|0002d320| 54 6f 4d 6f 76 65 0d 20 | 20 70 75 74 20 67 65 74 |ToMove. | put get|
|0002d330| 50 72 6f 70 41 74 28 4d | 61 6b 65 72 73 4c 69 73 |PropAt(M|akersLis|
|0002d340| 74 2c 20 69 29 20 69 6e | 74 6f 20 61 64 64 50 61 |t, i) in|to addPa|
|0002d350| 74 68 0d 20 20 69 66 20 | 53 74 61 74 75 73 20 3d |th.  if |Status =|
|0002d360| 20 5b 5d 20 74 68 65 6e | 20 73 65 74 20 53 74 61 | [] then| set Sta|
|0002d370| 74 75 73 20 3d 20 5b 53 | 70 72 69 74 65 54 6f 4d |tus = [S|priteToM|
|0002d380| 6f 76 65 5d 0d 20 20 67 | 6f 20 66 72 61 6d 65 20 |ove].  g|o frame |
|0002d390| 22 66 61 64 65 22 20 6f | 66 20 6d 6f 76 69 65 20 |"fade" o|f movie |
|0002d3a0| 73 74 72 69 6e 67 28 74 | 68 65 50 61 74 68 26 49 |string(t|hePath&I|
|0002d3b0| 74 65 6d 44 65 6c 26 61 | 64 64 50 61 74 68 29 0d |temDel&a|ddPath).|
|0002d3c0| 65 6e 64 0d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |end.----|--------|
|0002d3d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d3e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d3f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d420| 2d 0d 6f 6e 20 52 65 74 | 75 72 6e 54 6f 57 6f 72 |-.on Ret|urnToWor|
|0002d430| 6c 64 0d 20 20 67 6c 6f | 62 61 6c 20 67 57 6f 72 |ld.  glo|bal gWor|
|0002d440| 6c 64 0d 20 20 0d 20 20 | 64 6f 20 28 22 47 6f 22 |ld.  .  |do ("Go"|
|0002d450| 26 67 57 6f 72 6c 64 29 | 0d 20 20 0d 65 6e 64 0d |&gWorld)|.  .end.|
|0002d460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d4a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d4b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 6f 6e |--------|-----.on|
|0002d4c0| 20 47 6f 53 65 61 72 63 | 68 20 20 0d 20 20 67 6c | GoSearc|h  .  gl|
|0002d4d0| 6f 62 61 6c 20 67 4d 61 | 6b 65 72 73 50 61 74 68 |obal gMa|kersPath|
|0002d4e0| 0d 20 20 0d 20 20 43 6c | 69 63 6b 53 6e 64 0d 20 |.  .  Cl|ickSnd. |
|0002d4f0| 20 75 70 64 61 74 65 73 | 74 61 67 65 0d 20 20 75 | updates|tage.  u|
|0002d500| 6e 6c 6f 61 64 0d 20 20 | 75 6e 6c 6f 61 64 63 61 |nload.  |unloadca|
|0002d510| 73 74 0d 20 20 0d 20 20 | 47 6f 42 6c 61 63 6b 46 |st.  .  |GoBlackF|
|0002d520| 72 61 6d 65 0d 20 20 67 | 6f 20 74 6f 20 66 72 61 |rame.  g|o to fra|
|0002d530| 6d 65 20 22 66 61 64 65 | 22 20 6f 66 20 6d 6f 76 |me "fade|" of mov|
|0002d540| 69 65 20 67 4d 61 6b 65 | 72 73 50 61 74 68 20 26 |ie gMake|rsPath &|
|0002d550| 20 22 53 45 41 52 43 48 | 2e 44 49 52 22 0d 65 6e | "SEARCH|.DIR".en|
|0002d560| 64 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d.------|--------|
|0002d570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d5a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d5b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|0002d5c0| 6f 6e 20 47 6f 51 75 69 | 74 0d 20 20 67 6c 6f 62 |on GoQui|t.  glob|
|0002d5d0| 61 6c 20 67 4d 61 6b 65 | 72 73 50 61 74 68 0d 20 |al gMake|rsPath. |
|0002d5e0| 20 0d 20 20 2d 2d 20 20 | 47 6f 42 6c 61 63 6b 46 | .  --  |GoBlackF|
|0002d5f0| 72 61 6d 65 0d 20 20 2d | 2d 20 20 64 69 73 70 6f |rame.  -|-  dispo|
|0002d600| 73 65 52 65 61 72 57 69 | 6e 64 6f 77 0d 20 20 2d |seRearWi|ndow.  -|
|0002d610| 2d 20 20 71 75 69 74 0d | 20 20 0d 20 20 43 6c 69 |-  quit.|  .  Cli|
|0002d620| 63 6b 53 6e 64 0d 20 20 | 75 70 64 61 74 65 73 74 |ckSnd.  |updatest|
|0002d630| 61 67 65 0d 20 20 0d 20 | 20 75 6e 6c 6f 61 64 0d |age.  . | unload.|
|0002d640| 20 20 75 6e 6c 6f 61 64 | 63 61 73 74 0d 20 20 0d |  unload|cast.  .|
|0002d650| 20 20 47 6f 42 6c 61 63 | 6b 46 72 61 6d 65 0d 20 |  GoBlac|kFrame. |
|0002d660| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 22 66 61 | go to f|rame "fa|
|0002d670| 64 65 22 20 6f 66 20 6d | 6f 76 69 65 20 20 67 4d |de" of m|ovie  gM|
|0002d680| 61 6b 65 72 73 50 61 74 | 68 20 26 20 22 71 75 69 |akersPat|h & "qui|
|0002d690| 74 2e 44 49 52 22 0d 20 | 20 0d 65 6e 64 0d 2d 2d |t.DIR". | .end.--|
|0002d6a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d6b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d6c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d6d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d6e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0002d6f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 6f 6e 20 47 |--------|---.on G|
|0002d700| 6f 42 6c 61 63 6b 46 72 | 61 6d 65 0d 20 20 67 6c |oBlackFr|ame.  gl|
|0002d710| 6f 62 61 6c 20 67 4d 61 | 6b 65 72 6e 75 6d 0d 20 |obal gMa|kernum. |
|0002d720| 20 0d 20 20 0d 20 20 75 | 6e 70 75 70 70 65 74 0d | .  .  u|npuppet.|
|0002d730| 20 20 0d 20 20 69 66 20 | 67 4d 61 6b 65 72 6e 75 |  .  if |gMakernu|
|0002d740| 6d 20 3d 20 31 31 39 20 | 74 68 65 6e 0d 20 20 20 |m = 119 |then.   |
|0002d750| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 22 62 6c | go to f|rame "bl|
|0002d760| 61 63 6b 2d 6d 61 74 69 | 73 73 65 22 0d 20 20 65 |ack-mati|sse".  e|
|0002d770| 6c 73 65 0d 20 20 20 20 | 67 6f 20 74 6f 20 66 72 |lse.    |go to fr|
|0002d780| 61 6d 65 20 22 62 6c 61 | 63 6b 22 0d 20 20 65 6e |ame "bla|ck".  en|
|0002d790| 64 20 69 66 0d 20 20 0d | 20 20 2d 2d 20 6b 69 6c |d if.  .|  -- kil|
|0002d7a0| 6c 20 74 68 65 20 73 6f | 75 6e 64 20 62 65 66 6f |l the so|und befo|
|0002d7b0| 72 65 20 6c 65 61 76 69 | 6e 67 20 74 68 65 20 64 |re leavi|ng the d|
|0002d7c0| 61 74 61 62 61 73 65 0d | 20 20 73 6f 75 6e 64 20 |atabase.|  sound |
|0002d7d0| 73 74 6f 70 20 31 0d 20 | 20 73 6f 75 6e 64 20 73 |stop 1. | sound s|
|0002d7e0| 74 6f 70 20 32 0d 20 20 | 0d 65 6e 64 0d 0d 0d 6f |top 2.  |.end...o|
|0002d7f0| 6e 20 64 69 73 70 6f 73 | 65 52 65 61 72 57 69 6e |n dispos|eRearWin|
|0002d800| 64 6f 77 0d 20 20 67 6c | 6f 62 61 6c 20 72 77 4f |dow.  gl|obal rwO|
|0002d810| 62 6a 0d 20 20 69 66 20 | 74 68 65 20 6d 61 63 68 |bj.  if |the mach|
|0002d820| 69 6e 65 54 79 70 65 20 | 3c 3e 20 32 35 36 20 74 |ineType |<> 256 t|
|0002d830| 68 65 6e 0d 20 20 20 20 | 69 66 20 6f 62 6a 65 63 |hen.    |if objec|
|0002d840| 74 50 28 20 72 77 4f 62 | 6a 20 29 20 74 68 65 6e |tP( rwOb|j ) then|
|0002d850| 20 72 77 4f 62 6a 28 20 | 6d 44 69 73 70 6f 73 65 | rwObj( |mDispose|
|0002d860| 20 29 0d 20 20 65 6e 64 | 20 69 66 0d 65 6e 64 20 | ).  end| if.end |
|0002d870| 20 20 00 2a 00 04 02 70 | 02 d4 00 00 31 3f 00 00 |  .*...p|....1?..|
|0002d880| 31 43 00 00 00 00 00 01 | 00 00 00 00 00 0b 00 09 |1C......|........|
|0002d890| 00 04 00 00 00 09 00 00 | 00 00 00 00 43 41 53 74 |........|....CASt|
|0002d8a0| 00 00 00 a7 00 1c 00 00 | 00 85 01 00 80 28 00 63 |........|.....(.c|
|0002d8b0| 00 05 00 89 00 2c 00 57 | 00 05 00 ab 00 4d 00 76 |.....,.W|.....M.v|
|0002d8c0| 00 18 00 08 00 01 00 00 | 00 14 00 c2 eb 64 00 00 |........|.....d..|
|0002d8d0| 00 00 00 00 00 00 00 00 | 00 1a 00 07 00 00 00 00 |........|........|
|0002d8e0| 00 00 00 1d 00 00 00 25 | 00 00 00 25 00 00 00 25 |.......%|...%...%|
|0002d8f0| 00 00 00 25 00 00 00 39 | 00 00 00 4f 6f 6e 20 6d |...%...9|...Oon m|
|0002d900| 6f 75 73 65 64 6f 77 6e | 0d 20 20 53 68 6f 77 4e |ousedown|.  ShowN|
|0002d910| 75 67 67 65 74 0d 65 6e | 64 07 6e 75 67 67 65 74 |ugget.en|d.nugget|
|0002d920| 33 00 98 00 85 01 2e 01 | e3 00 00 00 00 00 00 00 |3.......|........|
|0002d930| 0c 01 98 00 85 00 01 00 | 00 00 00 00 0b 00 09 00 |........|........|
|0002d940| 04 00 00 00 09 00 00 00 | 00 00 00 00 43 41 53 74 |........|....CASt|
|0002d950| 00 00 00 a7 00 1c 00 00 | 00 85 01 00 80 24 00 8e |........|.....$..|
|0002d960| 00 08 00 b3 00 2b 00 82 | 00 08 00 d6 00 50 00 a0 |.....+..|.....P..|
|0002d970| 00 19 00 08 00 01 00 00 | 00 14 00 c2 eb 60 00 00 |........|.....`..|
|0002d980| 00 00 00 00 00 00 00 00 | 00 1b 00 07 00 00 00 00 |........|........|
|0002d990| 00 00 00 1d 00 00 00 25 | 00 00 00 25 00 00 00 25 |.......%|...%...%|
|0002d9a0| 00 00 00 25 00 00 00 39 | 00 00 00 4f 6f 6e 20 6d |...%...9|...Oon m|
|0002d9b0| 6f 75 73 65 64 6f 77 6e | 0d 20 20 53 68 6f 77 4e |ousedown|.  ShowN|
|0002d9c0| 75 67 67 65 74 0d 65 6e | 64 07 6e 75 67 67 65 74 |ugget.en|d.nugget|
|0002d9d0| 34 00 ac 00 99 01 42 01 | f7 00 00 00 00 00 00 00 |4.....B.|........|
|0002d9e0| 0c 01 ac 00 99 00 01 00 | 00 00 00 00 0b 00 09 00 |........|........|
|0002d9f0| 04 00 00 00 09 00 00 00 | 00 00 00 00 43 41 53 74 |........|....CASt|
|0002da00| 00 00 00 72 00 1e 00 00 | 00 4e 03 00 01 00 00 00 |...r....|.N......|
|0002da10| 00 00 ff ff ff ff ff ff | 00 00 00 00 00 00 00 10 |........|........|
|0002da20| 00 66 00 10 00 00 00 10 | 00 00 00 14 00 00 00 00 |.f......|........|
|0002da30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|0002da40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0002da50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0002da60| 00 14 00 47 00 46 00 dd | 01 a4 00 00 00 0d 00 00 |...G.F..|........|
|0002da70| 00 0d 00 f2 e3 28 43 41 | 53 74 00 00 00 72 00 1e |.....(CA|St...r..|
|0002da80| 00 00 00 4e 03 00 01 00 | 00 00 00 00 ff ff ff ff |...N....|........|
|0002da90| ff ff 00 00 00 00 00 00 | 00 10 00 5e 00 10 00 00 |........|...^....|
|0002daa0| 00 10 00 00 00 14 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0002dab0| 00 00 00 00 00 00 00 08 | 00 00 00 00 00 00 00 00 |........|........|
|0002dac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0002dad0| 00 00 00 00 00 00 00 00 | 00 00 00 14 00 4d 01 01 |........|.....M..|
|0002dae0| 00 e3 02 5f 00 00 00 0c | 00 00 00 0c 00 d4 d9 00 |..._....|........|
|0002daf0| 43 41 53 74 00 00 00 81 | 00 1e 00 00 00 5d 03 00 |CASt....|.....]..|
|0002db00| 00 00 00 00 00 00 ff ff | ff ff ff ff 00 00 00 00 |........|........|
|0002db10| 00 00 0b d0 01 44 0b d0 | 00 00 0b d0 00 00 00 14 |.....D..|........|
|0002db20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0002db30| 00 08 00 00 00 00 00 00 | 00 00 00 00 00 0f 00 00 |........|........|
|0002db40| 00 0f 00 00 00 0f 00 00 | 00 0f 00 00 00 0f 00 00 |........|........|
|0002db50| 00 0f 00 00 00 23 0e 4d | 61 6b 65 72 46 75 6c 6c |.....#.M|akerFull|
|0002db60| 4e 61 6d 65 73 00 88 00 | a3 01 92 02 2b 00 00 0b |Names...|....+...|
|0002db70| 94 00 00 0b 94 00 a1 4e | 84 00 43 41 53 74 00 00 |.......N|..CASt..|
|0002db80| 04 00 00 04 00 00 03 f6 | 0b 00 00 03 00 00 00 14 |........|........|
|0002db90| 00 c2 eb 98 00 00 00 00 | 00 00 00 00 00 00 00 0d |........|........|
|0002dba0| 00 07 00 00 00 00 00 00 | 03 96 00 00 03 96 00 00 |........|........|
|0002dbb0| 03 96 00 00 03 96 00 00 | 03 96 00 00 03 aa 00 00 |........|........|
|0002dbc0| 03 c0 6f 6e 20 64 6f 6d | 65 62 61 62 79 0d 20 20 |..on dom|ebaby.  |
|0002dbd0| 0d 20 20 73 65 74 20 6e | 75 6d 20 3d 20 74 68 65 |.  set n|um = the|
|0002dbe0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|0002dbf0| 20 6f 66 20 66 69 65 6c | 64 20 22 6d 61 6b 65 72 | of fiel|d "maker|
|0002dc00| 6e 75 6d 62 65 72 73 22 | 0d 20 20 0d 20 20 72 65 |numbers"|.  .  re|
|0002dc10| 70 65 61 74 20 77 69 74 | 68 20 69 20 3d 20 31 20 |peat wit|h i = 1 |
|0002dc20| 74 6f 20 6e 75 6d 0d 20 | 20 20 20 73 65 74 20 62 |to num. |   set b|
|0002dc30| 6f 6f 20 3d 20 6c 69 6e | 65 20 69 20 6f 66 20 66 |oo = lin|e i of f|
|0002dc40| 69 65 6c 64 20 22 6d 61 | 6b 65 72 6e 75 6d 62 65 |ield "ma|kernumbe|
|0002dc50| 72 73 22 0d 20 20 20 20 | 73 65 74 20 74 6d 70 20 |rs".    |set tmp |
|0002dc60| 3d 20 77 6f 72 64 28 74 | 68 65 20 6e 75 6d 62 65 |= word(t|he numbe|
|0002dc70| 72 20 6f 66 20 77 6f 72 | 64 73 20 6f 66 20 62 6f |r of wor|ds of bo|
|0002dc80| 6f 29 20 6f 66 20 62 6f | 6f 20 26 22 2c 22 26 77 |o) of bo|o &","&w|
|0002dc90| 6f 72 64 20 31 20 6f 66 | 20 62 6f 6f 0d 20 20 20 |ord 1 of| boo.   |
|0002dca0| 20 70 75 74 20 74 6d 70 | 20 69 6e 74 6f 20 6c 69 | put tmp| into li|
|0002dcb0| 6e 65 20 69 20 6f 66 20 | 66 69 65 6c 64 20 22 4d |ne i of |field "M|
|0002dcc0| 61 6b 65 72 4c 69 73 74 | 22 0d 20 20 65 6e 64 20 |akerList|".  end |
|0002dcd0| 72 65 70 65 61 74 0d 20 | 20 0d 20 20 73 6f 72 74 |repeat. | .  sort|
|0002dce0| 6c 69 6e 65 73 28 22 6d | 61 6b 65 72 6c 69 73 74 |lines("m|akerlist|
|0002dcf0| 22 29 0d 20 20 0d 65 6e | 64 0d 0d 0d 6f 6e 20 64 |").  .en|d...on d|
|0002dd00| 6f 6d 65 32 0d 20 20 0d | 20 20 73 65 74 20 6e 75 |ome2.  .|  set nu|
|0002dd10| 6d 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |m = the |number o|
|0002dd20| 66 20 6c 69 6e 65 73 20 | 6f 66 20 66 69 65 6c 64 |f lines |of field|
|0002dd30| 20 22 6d 61 6b 65 72 6c | 69 73 74 22 0d 20 20 0d | "makerl|ist".  .|
|0002dd40| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 |  repeat| with i |
|0002dd50| 3d 20 31 20 74 6f 20 6e | 75 6d 0d 20 20 20 20 73 |= 1 to n|um.    s|
|0002dd60| 65 74 20 74 6d 70 20 3d | 20 6c 69 6e 65 20 69 20 |et tmp =| line i |
|0002dd70| 6f 66 20 66 69 65 6c 64 | 20 22 6d 61 6b 65 72 6c |of field| "makerl|
|0002dd80| 69 73 74 22 0d 20 20 20 | 20 73 65 74 20 74 6d 70 |ist".   | set tmp|
|0002dd90| 6e 75 6d 20 3d 20 76 61 | 6c 75 65 20 28 69 74 65 |num = va|lue (ite|
|0002dda0| 6d 20 32 20 6f 66 20 74 | 6d 70 29 0d 20 20 20 20 |m 2 of t|mp).    |
|0002ddb0| 0d 20 20 20 20 70 75 74 | 20 69 74 65 6d 20 31 20 |.    put| item 1 |
|0002ddc0| 6f 66 20 74 6d 70 20 69 | 6e 74 6f 20 6c 69 6e 65 |of tmp i|nto line|
|0002ddd0| 20 74 6d 70 6e 75 6d 20 | 6f 66 20 66 69 65 6c 64 | tmpnum |of field|
|0002dde0| 20 22 6d 61 6b 65 72 6e | 75 6d 6c 69 73 74 22 0d | "makern|umlist".|
|0002ddf0| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 0d |  end re|peat.  .|
|0002de00| 65 6e 64 0d 0d 6f 6e 20 | 64 6f 6d 65 33 0d 20 20 |end..on |dome3.  |
|0002de10| 0d 20 20 73 65 74 20 6e | 75 6d 20 3d 20 74 68 65 |.  set n|um = the|
|0002de20| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|0002de30| 20 6f 66 20 66 69 65 6c | 64 20 22 6d 61 6b 65 72 | of fiel|d "maker|
|0002de40| 66 75 6c 6c 6e 61 6d 65 | 73 22 0d 20 20 0d 20 20 |fullname|s".  .  |
|0002de50| 0d 20 20 72 65 70 65 61 | 74 20 77 69 74 68 20 69 |.  repea|t with i|
|0002de60| 20 3d 20 31 35 36 20 74 | 6f 20 6e 75 6d 0d 20 20 | = 156 t|o num.  |
|0002de70| 20 20 64 65 6c 65 74 65 | 20 77 6f 72 64 20 31 20 |  delete| word 1 |
|0002de80| 6f 66 20 6c 69 6e 65 20 | 69 20 6f 66 20 66 69 65 |of line |i of fie|
|0002de90| 6c 64 20 22 6d 61 6b 65 | 72 66 75 6c 6c 6e 61 6d |ld "make|rfullnam|
|0002dea0| 65 73 22 0d 20 20 20 20 | 73 65 74 20 74 6d 70 20 |es".    |set tmp |
|0002deb0| 3d 20 6c 69 6e 65 20 69 | 20 6f 66 20 66 69 65 6c |= line i| of fiel|
|0002dec0| 64 20 22 6d 61 6b 65 72 | 66 75 6c 6c 6e 61 6d 65 |d "maker|fullname|
|0002ded0| 73 22 0d 20 20 20 20 73 | 65 74 20 6e 75 6d 32 20 |s".    s|et num2 |
|0002dee0| 3d 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |= the nu|mber of |
|0002def0| 77 6f 72 64 73 20 6f 66 | 20 74 6d 70 0d 20 20 20 |words of| tmp.   |
|0002df00| 20 70 75 74 20 20 77 6f | 72 64 20 31 20 74 6f 20 | put  wo|rd 1 to |
|0002df10| 6e 75 6d 32 20 6f 66 20 | 74 6d 70 20 69 6e 74 6f |num2 of |tmp into|
|0002df20| 20 6c 69 6e 65 20 69 20 | 6f 66 20 66 69 65 6c 64 | line i |of field|
|0002df30| 20 22 6d 61 6b 65 72 66 | 75 6c 6c 6e 61 6d 65 73 | "makerf|ullnames|
|0002df40| 22 20 0d 20 20 20 20 0d | 20 20 65 6e 64 20 72 65 |" .    .|  end re|
|0002df50| 70 65 61 74 0d 65 6e 64 | 00 3b 00 38 00 d1 01 96 |peat.end|.;.8....|
|0002df60| 00 00 02 a4 00 00 02 a4 | 00 68 ee d0 00 01 00 00 |........|.h......|
|0002df70| 00 00 00 0b 00 09 00 04 | 00 00 00 09 00 00 00 00 |........|........|
|0002df80| 00 00 43 41 53 74 00 00 | 00 81 00 0e 00 00 00 6d |..CASt..|.......m|
|0002df90| 0a 00 00 00 00 00 00 f0 | 01 40 0a 00 00 2a 00 00 |........|.@...*..|
|0002dfa0| 00 14 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|0002dfb0| 00 00 00 08 00 00 00 00 | 00 00 00 00 00 00 00 07 |........|........|
|0002dfc0| 00 00 00 16 00 00 00 1f | 00 00 00 1f 00 00 00 1f |........|........|
|0002dfd0| 00 00 00 1f 00 00 00 33 | 06 51 54 63 61 73 74 0e |.......3|.QTcast.|
|0002dfe0| 41 72 6d 61 64 69 6c 6c | 6f 3a 51 54 44 42 08 56 |Armadill|o:QTDB.V|
|0002dff0| 31 35 35 2e 4d 4f 56 00 | 46 00 46 01 8f 02 36 00 |155.MOV.|F.F...6.|
|0002e000| 00 00 00 00 00 00 00 00 | 46 00 46 00 43 41 53 74 |........|F.F.CASt|
|0002e010| 00 00 00 a7 00 1c 00 00 | 00 85 01 00 80 28 00 bc |........|.....(..|
|0002e020| 00 08 00 e3 00 30 00 b0 | 00 08 01 04 00 50 00 cf |.....0..|.....P..|
|0002e030| 00 1c 00 08 00 01 00 00 | 00 14 00 c2 eb 5c 00 00 |........|.....\..|
|0002e040| 00 00 00 00 00 00 00 00 | 00 1c 00 07 00 00 00 00 |........|........|
|0002e050| 00 00 00 1d 00 00 00 25 | 00 00 00 25 00 00 00 25 |.......%|...%...%|
|0002e060| 00 00 00 25 00 00 00 39 | 00 00 00 4f 6f 6e 20 6d |...%...9|...Oon m|
|0002e070| 6f 75 73 65 64 6f 77 6e | 0d 20 20 53 68 6f 77 4e |ousedown|.  ShowN|
|0002e080| 75 67 67 65 74 0d 65 6e | 64 07 6e 75 67 67 65 74 |ugget.en|d.nugget|
|0002e090| 35 00 c0 00 ad 01 56 02 | 0b 00 00 00 00 00 00 00 |5.....V.|........|
|0002e0a0| 0c 01 c0 00 ad 00 01 00 | 00 00 00 00 0b 00 09 00 |........|........|
|0002e0b0| 04 00 00 00 09 00 00 00 | 00 00 00 75 43 41 53 74 |........|...uCASt|
|0002e0c0| 00 00 00 7c 00 1e 00 00 | 00 58 03 00 00 00 00 00 |...|....|.X......|
|0002e0d0| 00 00 ff ff ff ff ff ff | 00 00 00 00 00 00 0c 10 |........|........|
|0002e0e0| 01 92 0c 10 00 00 0c 10 | 00 00 00 14 00 00 00 00 |........|........|
|0002e0f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|0002e100| 00 00 00 00 00 00 00 00 | 00 0a 00 00 00 0a 00 00 |........|........|
|0002e110| 00 0a 00 00 00 0a 00 00 | 00 0a 00 00 00 0a 00 00 |........|........|
|0002e120| 00 1e 09 4d 61 6b 65 72 | 4c 69 73 74 00 44 01 e5 |...Maker|List.D..|
|0002e130| 01 f8 03 33 00 00 03 79 | 00 00 03 80 00 a1 4e 84 |...3...y|......N.|
|0002e140| 43 41 53 74 00 00 00 7f | 00 1e 00 00 00 5b 03 00 |CASt....|.....[..|
|0002e150| 00 00 00 00 00 00 ff ff | ff ff ff ff 00 00 00 00 |........|........|
|0002e160| 00 00 0b c0 01 92 0b c0 | 00 00 0b c0 00 00 00 14 |........|........|
|0002e170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0002e180| 00 08 00 00 00 00 00 00 | 00 00 00 00 00 0d 00 00 |........|........|
|0002e190| 00 0d 00 00 00 0d 00 00 | 00 0d 00 00 00 0d 00 00 |........|........|
|0002e1a0| 00 0d 00 00 00 21 0c 4d | 61 6b 65 72 4e 75 6d 4c |.....!.M|akerNumL|
|0002e1b0| 69 73 74 00 28 01 04 01 | dc 02 52 00 00 02 7e 00 |ist.(...|..R...~.|
|0002e1c0| 00 02 85 00 a1 4e 84 00 | 43 41 53 74 00 00 00 81 |.....N..|CASt....|
|0002e1d0| 00 1e 00 00 00 5d 03 00 | 00 00 00 00 00 00 ff ff |.....]..|........|
|0002e1e0| ff ff ff ff 00 00 00 00 | 00 00 0c 10 01 92 0c 10 |........|........|
|0002e1f0| 00 00 0c 10 00 00 00 14 | 00 00 00 00 00 00 00 00 |........|........|
|0002e200| 00 00 00 00 00 00 00 00 | 00 08 00 00 00 00 00 00 |........|........|
|0002e210| 00 00 00 00 00 0f 00 00 | 00 0f 00 00 00 0f 00 00 |........|........|
|0002e220| 00 0f 00 00 00 0f 00 00 | 00 0f 00 00 00 23 0e 4d |........|.....#.M|
|0002e230| 61 6b 65 72 46 69 6c 65 | 4e 61 6d 65 73 00 28 01 |akerFile|Names.(.|
|0002e240| 04 01 dc 02 52 00 00 04 | d3 00 00 04 da 00 a1 4e |....R...|.......N|
|0002e250| 84 0f 43 41 53 74 00 00 | 00 2e 00 01 00 00 00 27 |..CASt..|.......'|
|0002e260| 06 00 00 00 14 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0002e270| 10 00 00 00 00 00 02 00 | 00 00 00 00 00 00 00 00 |........|........|
|0002e280| 00 00 05 04 64 6f 6f 70 | 43 41 53 74 00 00 00 a7 |....doop|CASt....|
|0002e290| 00 1c 00 00 00 85 01 00 | 80 2e 00 e8 00 00 01 16 |........|........|
|0002e2a0| 00 2d 00 dc 00 00 01 30 | 00 48 00 ff 00 16 00 08 |.-.....0|.H......|
|0002e2b0| 00 01 00 00 00 14 00 c2 | eb 58 00 00 00 00 00 00 |........|.X......|
|0002e2c0| 00 00 00 00 00 1d 00 07 | 00 00 00 00 00 00 00 1d |........|........|
|0002e2d0| 00 00 00 25 00 00 00 25 | 00 00 00 25 00 00 00 25 |...%...%|...%...%|
|0002e2e0| 00 00 00 39 00 00 00 4f | 6f 6e 20 6d 6f 75 73 65 |...9...O|on mouse|
|0002e2f0| 64 6f 77 6e 0d 20 20 53 | 68 6f 77 4e 75 67 67 65 |down.  S|howNugge|
|0002e300| 74 0d 65 6e 64 07 6e 75 | 67 67 65 74 36 00 d4 00 |t.end.nu|gget6...|
|0002e310| c1 01 6a 02 1f 00 00 00 | 00 00 00 00 0c 01 d4 00 |..j.....|........|
|0002e320| c1 00 01 00 00 00 00 00 | 0b 00 09 00 04 00 00 00 |........|........|
|0002e330| 09 00 00 00 00 00 00 75 | 53 54 58 54 00 00 00 28 |.......u|STXT...(|
|0002e340| 00 00 00 0c 00 00 00 06 | 00 00 00 16 34 20 6f 66 |........|....4 of|
|0002e350| 20 36 00 01 00 00 00 00 | 00 0d 00 0a 03 e9 01 00 | 6......|........|
|0002e360| 00 0a ff ff ff ff ff ff | 43 41 53 74 00 00 5c e3 |........|CASt..\.|
|0002e370| 00 04 00 00 5c d9 0b 00 | 00 03 00 00 00 14 00 c2 |....\...|........|
|0002e380| eb bc 00 00 00 00 00 00 | 00 00 00 00 00 04 00 07 |........|........|
|0002e390| 00 00 00 00 00 00 5c 78 | 00 00 5c 79 00 00 5c 79 |......\x|..\y..\y|
|0002e3a0| 00 00 5c 79 00 00 5c 79 | 00 00 5c 8d 00 00 5c a3 |..\y..\y|..\...\.|
|0002e3b0| 2d 2d 20 67 65 74 20 74 | 68 65 20 72 65 71 75 65 |-- get t|he reque|
|0002e3c0| 73 74 65 64 20 61 72 74 | 69 63 6c 65 20 6f 66 20 |sted art|icle of |
|0002e3d0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 63 68 61 70 |the curr|ent chap|
|0002e3e0| 74 65 72 0d 6f 6e 20 47 | 6f 41 72 74 69 63 6c 65 |ter.on G|oArticle|
|0002e3f0| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 43 68 61 70 74 |.  globa|l gChapt|
|0002e400| 65 72 73 2c 20 67 54 69 | 74 6c 65 73 2c 20 67 41 |ers, gTi|tles, gA|
|0002e410| 72 74 69 63 6c 65 73 2c | 20 67 44 61 74 65 73 2c |rticles,| gDates,|
|0002e420| 20 67 43 61 70 74 69 6f | 6e 73 2c 20 67 43 75 72 | gCaptio|ns, gCur|
|0002e430| 43 75 74 74 69 6e 67 0d | 20 20 67 6c 6f 62 61 6c |Cutting.|  global|
|0002e440| 20 67 43 75 72 43 68 61 | 70 2c 20 67 43 75 72 41 | gCurCha|p, gCurA|
|0002e450| 72 74 69 63 6c 65 2c 20 | 67 4e 61 6d 65 2c 20 6d |rticle, |gName, m|
|0002e460| 79 74 65 78 74 2c 20 67 | 41 72 74 69 63 6c 65 50 |ytext, g|ArticleP|
|0002e470| 61 67 65 2c 20 67 46 75 | 6c 6c 43 75 74 74 69 6e |age, gFu|llCuttin|
|0002e480| 67 73 0d 20 20 67 6c 6f | 62 61 6c 20 67 46 6f 72 |gs.  glo|bal gFor|
|0002e490| 6d 61 74 74 65 64 54 65 | 78 74 2c 20 67 54 65 78 |mattedTe|xt, gTex|
|0002e4a0| 74 50 61 67 65 73 2c 20 | 67 4d 61 78 4c 69 6e 65 |tPages, |gMaxLine|
|0002e4b0| 73 2c 20 67 43 75 72 49 | 6e 64 65 78 2c 20 67 57 |s, gCurI|ndex, gW|
|0002e4c0| 6f 72 6c 64 2c 20 67 53 | 65 65 6e 4d 61 70 73 0d |orld, gS|eenMaps.|
|0002e4d0| 20 20 67 6c 6f 62 61 6c | 20 67 50 61 70 65 72 4c |  global| gPaperL|
|0002e4e0| 6f 63 68 2c 20 67 4d 61 | 6b 65 72 4e 61 6d 65 2c |och, gMa|kerName,|
|0002e4f0| 20 67 48 65 61 64 6c 6f | 63 48 2c 20 67 4e 61 6d | gHeadlo|cH, gNam|
|0002e500| 65 4c 6f 63 68 2c 20 67 | 4e 61 6d 65 4c 6f 63 76 |eLoch, g|NameLocv|
|0002e510| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 4d 61 6b 65 72 |.  globa|l gMaker|
|0002e520| 4e 75 6d 2c 20 67 51 54 | 70 61 74 68 2c 20 67 53 |Num, gQT|path, gS|
|0002e530| 6f 75 6e 64 50 61 74 68 | 2c 20 67 4e 75 67 67 65 |oundPath|, gNugge|
|0002e540| 74 54 69 6d 65 2c 20 67 | 4e 75 67 67 65 74 44 65 |tTime, g|NuggetDe|
|0002e550| 6c 61 79 2c 20 67 4e 61 | 6d 65 43 61 73 74 6e 75 |lay, gNa|meCastnu|
|0002e560| 6d 0d 20 20 67 6c 6f 62 | 61 6c 20 67 49 6e 41 4d |m.  glob|al gInAM|
|0002e570| 61 70 2c 20 67 43 75 72 | 54 79 70 65 2c 20 67 50 |ap, gCur|Type, gP|
|0002e580| 72 69 6e 74 48 65 61 64 | 2c 20 67 43 75 72 50 69 |rintHead|, gCurPi|
|0002e590| 63 2c 20 67 4e 75 67 67 | 65 74 4f 6e 0d 20 20 0d |c, gNugg|etOn.  .|
|0002e5a0| 20 20 73 65 74 20 67 4e | 75 67 67 65 74 54 69 6d |  set gN|uggetTim|
|0002e5b0| 65 20 3d 20 74 68 65 20 | 74 69 63 6b 73 0d 20 20 |e = the |ticks.  |
|0002e5c0| 73 65 74 20 67 4e 75 67 | 67 65 74 4f 6e 20 3d 20 |set gNug|getOn = |
|0002e5d0| 30 0d 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 |0.  set |the text|
|0002e5e0| 20 6f 66 20 66 69 65 6c | 64 20 22 41 72 74 69 63 | of fiel|d "Artic|
|0002e5f0| 6c 65 4e 75 6d 62 65 72 | 22 20 3d 20 67 4d 61 6b |leNumber|" = gMak|
|0002e600| 65 72 4e 75 6d 20 26 20 | 22 3a 22 20 26 26 20 67 |erNum & |":" && g|
|0002e610| 43 75 72 43 68 61 70 20 | 26 20 22 2e 22 20 26 20 |CurChap |& "." & |
|0002e620| 67 43 75 72 41 72 74 69 | 63 6c 65 0d 20 20 73 65 |gCurArti|cle.  se|
|0002e630| 74 20 74 79 70 65 20 3d | 20 67 65 74 41 74 28 67 |t type =| getAt(g|
|0002e640| 65 74 61 74 28 67 41 72 | 74 69 63 6c 65 73 2c 67 |etat(gAr|ticles,g|
|0002e650| 43 75 72 43 68 61 70 29 | 2c 20 67 43 75 72 41 72 |CurChap)|, gCurAr|
|0002e660| 74 69 63 6c 65 29 0d 20 | 20 73 65 74 20 67 43 75 |ticle). | set gCu|
|0002e670| 72 54 79 70 65 20 3d 20 | 74 79 70 65 0d 20 20 73 |rType = |type.  s|
|0002e680| 65 74 20 70 69 63 73 70 | 72 69 74 65 20 3d 20 39 |et picsp|rite = 9|
|0002e690| 20 20 2d 2d 20 74 68 65 | 20 73 70 72 69 74 65 20 |  -- the| sprite |
|0002e6a0| 74 68 65 20 70 69 63 74 | 20 61 70 70 65 61 72 73 |the pict| appears|
|0002e6b0| 20 6f 6e 0d 20 20 73 65 | 74 20 63 75 74 74 69 6e | on.  se|t cuttin|
|0002e6c0| 67 73 70 72 69 74 65 20 | 3d 20 36 0d 20 20 73 65 |gsprite |= 6.  se|
|0002e6d0| 74 20 74 69 74 6c 65 73 | 70 72 69 74 65 20 3d 20 |t titles|prite = |
|0002e6e0| 38 0d 20 20 73 65 74 20 | 70 61 70 65 72 73 70 72 |8.  set |paperspr|
|0002e6f0| 69 74 65 20 3d 20 31 31 | 0d 20 20 73 65 74 20 64 |ite = 11|.  set d|
|0002e700| 61 74 65 73 70 72 69 74 | 65 20 3d 20 31 32 0d 20 |atesprit|e = 12. |
|0002e710| 20 73 65 74 20 63 61 70 | 74 69 6f 6e 73 70 72 69 | set cap|tionspri|
|0002e720| 74 65 20 3d 20 37 0d 20 | 20 73 65 74 20 66 6f 72 |te = 7. | set for|
|0002e730| 77 61 72 64 62 75 74 74 | 6f 6e 20 3d 20 32 30 0d |wardbutt|on = 20.|
|0002e740| 20 20 73 65 74 20 62 61 | 63 6b 62 75 74 74 6f 6e |  set ba|ckbutton|
|0002e750| 20 3d 20 31 39 0d 20 20 | 73 65 74 20 68 65 61 64 | = 19.  |set head|
|0002e760| 73 70 72 69 74 65 20 3d | 20 31 30 20 20 0d 20 20 |sprite =| 10  .  |
|0002e770| 73 65 74 20 6e 61 6d 65 | 73 70 72 69 74 65 20 3d |set name|sprite =|
|0002e780| 20 34 0d 20 20 73 65 74 | 20 68 65 61 64 6c 6f 63 | 4.  set| headloc|
|0002e790| 68 20 3d 20 67 48 65 61 | 64 6c 6f 63 68 20 20 2d |h = gHea|dloch  -|
|0002e7a0| 2d 20 74 68 65 20 6c 6f | 63 68 20 6f 66 20 74 68 |- the lo|ch of th|
|0002e7b0| 65 20 68 65 61 64 73 68 | 6f 74 20 73 70 72 69 74 |e headsh|ot sprit|
|0002e7c0| 65 0d 20 20 73 65 74 20 | 67 49 6e 41 4d 61 70 20 |e.  set |gInAMap |
|0002e7d0| 3d 20 30 0d 20 20 73 65 | 74 20 67 50 72 69 6e 74 |= 0.  se|t gPrint|
|0002e7e0| 48 65 61 64 20 3d 20 22 | 22 0d 20 20 0d 20 20 70 |Head = "|".  .  p|
|0002e7f0| 75 70 70 65 74 74 65 6d | 70 6f 20 32 35 0d 20 20 |uppettem|po 25.  |
|0002e800| 0d 20 20 73 6f 75 6e 64 | 20 70 6c 61 79 66 69 6c |.  sound| playfil|
|0002e810| 65 20 31 2c 67 53 6f 75 | 6e 64 50 61 74 68 20 26 |e 1,gSou|ndPath &|
|0002e820| 20 22 53 22 20 26 20 67 | 4d 61 6b 65 72 4e 75 6d | "S" & g|MakerNum|
|0002e830| 20 26 20 22 41 22 20 26 | 20 67 43 75 72 43 68 61 | & "A" &| gCurCha|
|0002e840| 70 20 26 20 67 43 75 72 | 41 72 74 69 63 6c 65 0d |p & gCur|Article.|
|0002e850| 20 20 0d 20 20 69 66 20 | 6e 6f 74 28 74 68 65 20 |  .  if |not(the |
|0002e860| 66 72 61 6d 65 6c 61 62 | 65 6c 20 63 6f 6e 74 61 |framelab|el conta|
|0002e870| 69 6e 73 20 22 70 69 63 | 74 22 29 20 74 68 65 6e |ins "pic|t") then|
|0002e880| 20 2d 2d 20 69 73 20 74 | 68 65 72 65 20 61 20 70 | -- is t|here a p|
|0002e890| 69 63 74 20 74 6f 20 75 | 6e 6c 6f 61 64 3f 3f 0d |ict to u|nload??.|
|0002e8a0| 20 20 20 20 73 65 74 20 | 67 43 75 72 50 69 63 20 |    set |gCurPic |
|0002e8b0| 3d 20 30 20 20 0d 20 20 | 65 6e 64 20 69 66 0d 20 |= 0  .  |end if. |
|0002e8c0| 20 0d 20 20 69 66 20 74 | 79 70 65 20 3c 3e 20 22 | .  if t|ype <> "|
|0002e8d0| 63 75 74 74 69 6e 67 22 | 20 61 6e 64 20 67 57 6f |cutting"| and gWo|
|0002e8e0| 72 6c 64 20 3d 20 22 64 | 65 73 69 67 6e 22 20 61 |rld = "d|esign" a|
|0002e8f0| 6e 64 20 74 68 65 20 66 | 72 61 6d 65 6c 61 62 65 |nd the f|ramelabe|
|0002e900| 6c 20 3d 20 22 63 75 74 | 74 69 6e 67 22 20 74 68 |l = "cut|ting" th|
|0002e910| 65 6e 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |en.    s|et the l|
|0002e920| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 6e 61 |och of s|prite na|
|0002e930| 6d 65 73 70 72 69 74 65 | 20 3d 20 31 30 30 30 0d |mesprite| = 1000.|
|0002e940| 20 20 20 20 73 65 74 20 | 74 68 65 20 63 61 73 74 |    set |the cast|
|0002e950| 6e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 6e 61 |num of s|prite na|
|0002e960| 6d 65 73 70 72 69 74 65 | 20 3d 20 67 4e 61 6d 65 |mesprite| = gName|
|0002e970| 43 61 73 74 6e 75 6d 20 | 20 0d 20 20 65 6e 64 20 |Castnum | .  end |
|0002e980| 69 66 0d 20 20 0d 20 20 | 2d 2d 20 73 65 65 20 69 |if.  .  |-- see i|
|0002e990| 66 20 77 65 20 77 65 72 | 65 20 69 6e 20 61 6e 20 |f we wer|e in an |
|0002e9a0| 61 6e 69 6d 61 74 69 6f | 6e 0d 20 20 73 65 74 20 |animatio|n.  set |
|0002e9b0| 74 68 65 20 69 74 65 6d | 64 65 6c 69 6d 69 74 65 |the item|delimite|
|0002e9c0| 72 20 3d 20 22 2e 22 20 | 0d 20 20 73 65 74 20 74 |r = "." |.  set t|
|0002e9d0| 6d 70 20 3d 20 69 74 65 | 6d 20 32 20 6f 66 20 74 |mp = ite|m 2 of t|
|0002e9e0| 68 65 20 66 72 61 6d 65 | 6c 61 62 65 6c 0d 20 20 |he frame|label.  |
|0002e9f0| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|0002ea00| 6d 69 74 65 72 20 3d 20 | 22 2c 22 20 0d 20 20 0d |miter = |"," .  .|
|0002ea10| 20 20 2d 2d 20 69 66 20 | 77 65 20 77 65 72 65 20 |  -- if |we were |
|0002ea20| 69 6e 20 61 6e 20 61 6e | 69 6d 61 74 69 6f 6e 20 |in an an|imation |
|0002ea30| 74 68 65 6e 20 63 6c 65 | 61 6e 20 74 68 65 20 73 |then cle|an the s|
|0002ea40| 63 72 65 65 6e 0d 20 20 | 69 66 20 74 6d 70 20 3d |creen.  |if tmp =|
|0002ea50| 20 22 61 6e 69 6d 22 20 | 6f 72 20 74 68 65 20 66 | "anim" |or the f|
|0002ea60| 72 61 6d 65 6c 61 62 65 | 6c 20 3d 20 22 71 74 22 |ramelabe|l = "qt"|
|0002ea70| 20 74 68 65 6e 0d 20 20 | 20 20 0d 20 20 20 20 69 | then.  |  .    i|
|0002ea80| 66 20 74 68 65 20 66 72 | 61 6d 65 6c 61 62 65 6c |f the fr|amelabel|
|0002ea90| 20 3d 20 22 71 74 22 20 | 74 68 65 6e 0d 20 20 20 | = "qt" |then.   |
|0002eaa0| 20 20 20 2d 2d 20 70 75 | 70 70 65 74 73 70 72 69 |   -- pu|ppetspri|
|0002eab0| 74 65 20 31 36 2c 31 0d | 20 20 20 20 20 20 2d 2d |te 16,1.|      --|
|0002eac0| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|0002ead0| 20 73 70 72 69 74 65 20 | 31 36 20 3d 20 31 30 30 | sprite |16 = 100|
|0002eae0| 30 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |0.      |set the |
|0002eaf0| 6d 6f 76 69 65 72 61 74 | 65 20 6f 66 20 73 70 72 |movierat|e of spr|
|0002eb00| 69 74 65 20 31 36 20 3d | 20 30 20 20 20 20 20 20 |ite 16 =| 0      |
|0002eb10| 0d 20 20 20 20 20 20 75 | 70 64 61 74 65 73 74 61 |.      u|pdatesta|
|0002eb20| 67 65 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |ge.    e|nd if.  |
|0002eb30| 20 20 0d 20 20 20 20 70 | 75 70 70 65 74 73 70 72 |  .    p|uppetspr|
|0002eb40| 69 74 65 20 34 37 2c 31 | 0d 20 20 20 20 73 65 74 |ite 47,1|.    set|
|0002eb50| 20 74 68 65 20 63 61 73 | 74 6e 75 6d 20 6f 66 20 | the cas|tnum of |
|0002eb60| 73 70 72 69 74 65 20 34 | 37 20 3d 20 74 68 65 20 |sprite 4|7 = the |
|0002eb70| 6e 75 6d 62 65 72 20 6f | 66 20 63 61 73 74 20 22 |number o|f cast "|
|0002eb80| 73 63 72 65 65 6e 62 6c | 61 6e 6b 22 20 20 0d 20 |screenbl|ank"  . |
|0002eb90| 20 20 20 73 70 72 69 74 | 65 42 6f 78 20 34 37 2c |   sprit|eBox 47,|
|0002eba0| 20 30 2c 20 30 2c 20 36 | 34 30 2c 20 34 38 30 0d | 0, 0, 6|40, 480.|
|0002ebb0| 20 20 20 20 75 70 64 61 | 74 65 73 74 61 67 65 0d |    upda|testage.|
|0002ebc0| 20 20 20 20 70 75 70 70 | 65 74 73 70 72 69 74 65 |    pupp|etsprite|
|0002ebd0| 20 34 37 2c 30 0d 20 20 | 20 20 0d 20 20 65 6e 64 | 47,0.  |  .  end|
|0002ebe0| 20 69 66 0d 20 20 0d 20 | 20 2d 2d 20 69 66 20 74 | if.  . | -- if t|
|0002ebf0| 68 65 20 61 72 74 69 63 | 6c 65 20 69 73 20 61 20 |he artic|le is a |
|0002ec00| 50 49 43 54 20 74 68 65 | 6e 3a 0d 20 20 69 66 20 |PICT the|n:.  if |
|0002ec10| 74 79 70 65 20 3d 20 22 | 70 69 63 22 20 74 68 65 |type = "|pic" the|
|0002ec20| 6e 0d 20 20 20 20 47 6f | 50 69 63 74 41 72 74 69 |n.    Go|PictArti|
|0002ec30| 63 6c 65 0d 20 20 20 20 | 0d 20 20 65 6c 73 65 20 |cle.    |.  else |
|0002ec40| 69 66 20 74 79 70 65 20 | 3d 20 22 61 6e 69 6d 61 |if type |= "anima|
|0002ec50| 74 69 6f 6e 22 20 74 68 | 65 6e 0d 20 20 20 20 47 |tion" th|en.    G|
|0002ec60| 6f 41 6e 69 6d 41 72 74 | 69 63 6c 65 0d 20 20 20 |oAnimArt|icle.   |
|0002ec70| 20 0d 20 20 20 20 2d 2d | 20 4d 41 50 0d 20 20 65 | .    --| MAP.  e|
|0002ec80| 6c 73 65 20 69 66 20 74 | 79 70 65 20 3d 20 22 6d |lse if t|ype = "m|
|0002ec90| 61 70 22 20 74 68 65 6e | 0d 20 20 20 20 0d 20 20 |ap" then|.    .  |
|0002eca0| 20 20 73 65 74 20 67 49 | 6e 41 4d 61 70 20 3d 20 |  set gI|nAMap = |
|0002ecb0| 31 0d 20 20 20 20 0d 20 | 20 20 20 70 75 70 70 65 |1.    . |   puppe|
|0002ecc0| 74 73 70 72 69 74 65 20 | 66 6f 72 77 61 72 64 62 |tsprite |forwardb|
|0002ecd0| 75 74 74 6f 6e 2c 30 0d | 20 20 20 20 70 75 70 70 |utton,0.|    pupp|
|0002ece0| 65 74 73 70 72 69 74 65 | 20 62 61 63 6b 62 75 74 |etsprite| backbut|
|0002ecf0| 74 6f 6e 2c 30 0d 20 20 | 20 20 70 75 70 70 65 74 |ton,0.  |  puppet|
|0002ed00| 73 70 72 69 74 65 20 70 | 61 70 65 72 73 70 72 69 |sprite p|aperspri|
|0002ed10| 74 65 2c 30 0d 20 20 20 | 20 0d 20 20 20 20 47 65 |te,0.   | .    Ge|
|0002ed20| 74 4d 61 70 43 61 70 0d | 20 20 20 20 0d 20 20 20 |tMapCap.|    .   |
|0002ed30| 20 75 6e 70 75 70 70 65 | 74 20 22 34 2c 31 30 22 | unpuppe|t "4,10"|
|0002ed40| 20 20 20 20 20 20 0d 20 | 20 20 20 0d 20 20 20 20 |      . |   .    |
|0002ed50| 67 6f 20 74 6f 20 66 72 | 61 6d 65 20 67 4d 61 6b |go to fr|ame gMak|
|0002ed60| 65 72 4e 61 6d 65 0d 20 | 20 20 20 43 6c 65 61 6e |erName. |   Clean|
|0002ed70| 4d 65 6d 0d 20 20 20 20 | 70 75 70 70 65 74 74 65 |Mem.    |puppette|
|0002ed80| 6d 70 6f 20 31 32 0d 20 | 20 20 20 73 65 74 20 74 |mpo 12. |   set t|
|0002ed90| 68 65 20 76 69 73 69 62 | 69 6c 69 74 79 20 6f 66 |he visib|ility of|
|0002eda0| 20 73 70 72 69 74 65 20 | 31 39 20 3d 20 31 0d 20 | sprite |19 = 1. |
|0002edb0| 20 20 20 73 65 74 20 74 | 68 65 20 76 69 73 69 62 |   set t|he visib|
|0002edc0| 69 6c 69 74 79 20 6f 66 | 20 73 70 72 69 74 65 20 |ility of| sprite |
|0002edd0| 32 30 20 3d 20 31 0d 20 | 20 20 20 0d 20 20 20 20 |20 = 1. |   .    |
|0002ede0| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|0002edf0| 73 70 72 69 74 65 20 68 | 65 61 64 73 70 72 69 74 |sprite h|eadsprit|
|0002ee00| 65 20 3d 20 68 65 61 64 | 6c 6f 63 68 0d 20 20 20 |e = head|loch.   |
|0002ee10| 20 0d 20 20 20 20 2d 2d | 20 4d 4f 56 49 45 0d 20 | .    --| MOVIE. |
|0002ee20| 20 65 6c 73 65 20 69 66 | 20 74 79 70 65 20 3d 20 | else if| type = |
|0002ee30| 22 6d 6f 76 69 65 22 20 | 20 74 68 65 6e 20 20 20 |"movie" | then   |
|0002ee40| 0d 20 20 20 20 0d 20 20 | 20 20 73 65 74 20 74 68 |.    .  |  set th|
|0002ee50| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|0002ee60| 20 68 65 61 64 73 70 72 | 69 74 65 20 3d 20 68 65 | headspr|ite = he|
|0002ee70| 61 64 6c 6f 63 68 0d 20 | 20 20 20 70 75 70 70 65 |adloch. |   puppe|
|0002ee80| 74 73 70 72 69 74 65 20 | 66 6f 72 77 61 72 64 62 |tsprite |forwardb|
|0002ee90| 75 74 74 6f 6e 2c 30 0d | 20 20 20 20 70 75 70 70 |utton,0.|    pupp|
|0002eea0| 65 74 73 70 72 69 74 65 | 20 62 61 63 6b 62 75 74 |etsprite| backbut|
|0002eeb0| 74 6f 6e 2c 30 0d 20 20 | 20 20 70 75 70 70 65 74 |ton,0.  |  puppet|
|0002eec0| 73 70 72 69 74 65 20 70 | 61 70 65 72 73 70 72 69 |sprite p|aperspri|
|0002eed0| 74 65 2c 30 0d 20 20 20 | 20 73 65 74 20 74 68 65 |te,0.   | set the|
|0002eee0| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|0002eef0| 63 61 70 74 69 6f 6e 2d | 71 74 22 20 3d 20 22 20 |caption-|qt" = " |
|0002ef00| 22 0d 20 20 20 20 0d 20 | 20 20 20 75 6e 70 75 70 |".    . |   unpup|
|0002ef10| 70 65 74 20 22 34 2c 31 | 30 22 20 20 0d 20 20 20 |pet "4,1|0"  .   |
|0002ef20| 20 0d 20 20 20 20 2d 2d | 20 6d 61 6b 65 20 74 68 | .    --| make th|
|0002ef30| 65 20 51 54 20 62 6c 61 | 63 6b 0d 20 20 20 20 73 |e QT bla|ck.    s|
|0002ef40| 65 74 20 63 6e 75 6d 20 | 3d 20 74 68 65 20 6e 75 |et cnum |= the nu|
|0002ef50| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 22 51 54 |mber of |cast "QT|
|0002ef60| 63 61 73 74 22 0d 20 20 | 20 20 73 65 74 20 74 68 |cast".  |  set th|
|0002ef70| 65 20 66 69 6c 65 6e 61 | 6d 65 20 6f 66 20 63 61 |e filena|me of ca|
|0002ef80| 73 74 20 63 6e 75 6d 20 | 3d 20 67 51 54 70 61 74 |st cnum |= gQTpat|
|0002ef90| 68 20 26 20 22 42 4c 41 | 43 4b 2e 4d 4f 56 22 0d |h & "BLA|CK.MOV".|
|0002efa0| 20 20 20 20 73 65 74 20 | 74 68 65 20 6e 61 6d 65 |    set |the name|
|0002efb0| 20 6f 66 20 63 61 73 74 | 20 63 6e 75 6d 20 3d 20 | of cast| cnum = |
|0002efc0| 22 51 54 63 61 73 74 22 | 0d 20 20 20 20 0d 20 20 |"QTcast"|.    .  |
|0002efd0| 20 20 2d 2d 20 67 6f 20 | 74 6f 20 51 54 20 66 72 |  -- go |to QT fr|
|0002efe0| 61 6d 65 20 69 6e 20 74 | 68 65 20 73 63 6f 72 65 |ame in t|he score|
|0002eff0| 0d 20 20 20 20 69 66 20 | 67 4d 61 6b 65 72 6e 75 |.    if |gMakernu|
|0002f000| 6d 20 3d 20 31 31 39 20 | 74 68 65 6e 20 2d 2d 20 |m = 119 |then -- |
|0002f010| 73 70 65 63 69 61 6c 20 | 63 61 73 65 20 66 6f 72 |special |case for|
|0002f020| 20 4d 61 74 69 73 73 65 | 0d 20 20 20 20 20 20 67 | Matisse|.      g|
|0002f030| 6f 20 74 6f 20 66 72 61 | 6d 65 20 22 51 54 2e 4d |o to fra|me "QT.M|
|0002f040| 41 54 22 0d 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |AT".    |else.   |
|0002f050| 20 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 22 |   go to| frame "|
|0002f060| 51 54 22 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |QT".    |end if. |
|0002f070| 20 20 20 0d 20 20 20 20 | 43 6c 65 61 6e 4d 65 6d |   .    |CleanMem|
|0002f080| 20 2d 2d 20 75 6e 6c 6f | 61 64 20 70 69 63 74 73 | -- unlo|ad picts|
|0002f090| 0d 20 20 20 20 55 6e 6c | 6f 61 64 4d 65 6d 20 2d |.    Unl|oadMem -|
|0002f0a0| 2d 20 75 6e 6c 6f 61 64 | 20 65 76 65 72 79 74 68 |- unload| everyth|
|0002f0b0| 69 6e 67 20 61 70 61 72 | 74 20 66 72 6f 6d 20 74 |ing apar|t from t|
|0002f0c0| 68 65 20 63 75 72 72 65 | 6e 74 20 66 72 61 6d 65 |he curre|nt frame|
|0002f0d0| 0d 20 20 20 20 0d 20 20 | 20 20 0d 20 20 20 20 69 |.    .  |  .    i|
|0002f0e0| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 53 65 6e 73 |f gWorld| = "Sens|
|0002f0f0| 65 73 22 20 6f 72 20 67 | 57 6f 72 6c 64 20 3d 20 |es" or g|World = |
|0002f100| 22 44 65 73 69 67 6e 22 | 20 74 68 65 6e 0d 20 20 |"Design"| then.  |
|0002f110| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 68 |    set |the loch|
|0002f120| 20 6f 66 20 73 70 72 69 | 74 65 20 6e 61 6d 65 73 | of spri|te names|
|0002f130| 70 72 69 74 65 20 3d 20 | 67 4e 61 6d 65 4c 6f 63 |prite = |gNameLoc|
|0002f140| 68 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |h.      |set the |
|0002f150| 6c 6f 63 76 20 6f 66 20 | 73 70 72 69 74 65 20 6e |locv of |sprite n|
|0002f160| 61 6d 65 73 70 72 69 74 | 65 20 3d 20 67 4e 61 6d |amesprit|e = gNam|
|0002f170| 65 4c 6f 63 76 0d 20 20 | 20 20 65 6e 64 20 69 66 |eLocv.  |  end if|
|0002f180| 0d 20 20 20 20 0d 20 20 | 20 20 0d 20 20 20 20 70 |.    .  |  .    p|
|0002f190| 75 70 70 65 74 73 70 72 | 69 74 65 20 63 61 70 74 |uppetspr|ite capt|
|0002f1a0| 69 6f 6e 73 70 72 69 74 | 65 2c 31 0d 20 20 20 20 |ionsprit|e,1.    |
|0002f1b0| 73 65 74 20 63 61 70 74 | 69 6f 6e 6c 6f 63 68 20 |set capt|ionloch |
|0002f1c0| 3d 20 74 68 65 20 6c 6f | 63 68 20 6f 66 20 73 70 |= the lo|ch of sp|
|0002f1d0| 72 69 74 65 20 63 61 70 | 74 69 6f 6e 73 70 72 69 |rite cap|tionspri|
|0002f1e0| 74 65 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 63 |te.    s|et the c|
|0002f1f0| 61 73 74 6e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astnum o|f sprite|
|0002f200| 20 63 61 70 74 69 6f 6e | 73 70 72 69 74 65 20 3d | caption|sprite =|
|0002f210| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | the num|ber of c|
|0002f220| 61 73 74 20 22 63 61 70 | 74 69 6f 6e 2d 71 74 22 |ast "cap|tion-qt"|
|0002f230| 0d 20 20 20 20 0d 20 20 | 20 20 73 65 74 20 74 68 |.    .  |  set th|
|0002f240| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|0002f250| 20 63 61 70 74 69 6f 6e | 73 70 72 69 74 65 20 3d | caption|sprite =|
|0002f260| 20 31 30 30 30 0d 20 20 | 20 20 73 65 74 20 74 68 | 1000.  |  set th|
|0002f270| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|0002f280| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 31 30 30 | picspri|te = 100|
|0002f290| 30 0d 20 20 20 20 75 70 | 64 61 74 65 73 74 61 67 |0.    up|datestag|
|0002f2a0| 65 0d 20 20 20 20 0d 20 | 20 20 20 73 65 74 20 74 |e.    . |   set t|
|0002f2b0| 6d 70 63 61 70 20 3d 20 | 47 65 74 43 61 70 74 69 |mpcap = |GetCapti|
|0002f2c0| 6f 6e 28 29 20 20 0d 20 | 20 20 20 73 65 74 20 74 |on()  . |   set t|
|0002f2d0| 68 65 20 74 65 78 74 20 | 6f 66 20 66 69 65 6c 64 |he text |of field|
|0002f2e0| 20 22 63 61 70 74 69 6f | 6e 2d 71 74 22 20 3d 20 | "captio|n-qt" = |
|0002f2f0| 20 74 6d 70 63 61 70 0d | 20 20 20 20 0d 20 20 20 | tmpcap.|    .   |
|0002f300| 20 69 66 20 67 57 6f 72 | 6c 64 20 3c 3e 20 22 53 | if gWor|ld <> "S|
|0002f310| 65 6e 73 65 73 22 20 74 | 68 65 6e 0d 20 20 20 20 |enses" t|hen.    |
|0002f320| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 68 65 |  set th|e texthe|
|0002f330| 69 67 68 74 20 6f 66 20 | 66 69 65 6c 64 20 22 63 |ight of |field "c|
|0002f340| 61 70 74 69 6f 6e 2d 71 | 74 22 20 3d 20 31 38 20 |aption-q|t" = 18 |
|0002f350| 20 2d 2d 20 6c 65 61 64 | 69 6e 67 0d 20 20 20 20 | -- lead|ing.    |
|0002f360| 65 6c 73 65 0d 20 20 20 | 20 20 20 73 65 74 20 74 |else.   |   set t|
|0002f370| 68 65 20 74 65 78 74 68 | 65 69 67 68 74 20 6f 66 |he texth|eight of|
|0002f380| 20 66 69 65 6c 64 20 22 | 63 61 70 74 69 6f 6e 2d | field "|caption-|
|0002f390| 71 74 22 20 3d 20 32 35 | 0d 20 20 20 20 65 6e 64 |qt" = 25|.    end|
|0002f3a0| 20 69 66 0d 20 20 20 20 | 0d 20 20 20 20 2d 2d 20 | if.    |.    -- |
|0002f3b0| 61 64 6a 75 73 74 20 74 | 68 65 20 68 65 69 67 68 |adjust t|he heigh|
|0002f3c0| 74 20 6f 66 20 74 68 65 | 20 51 54 20 63 61 70 74 |t of the| QT capt|
|0002f3d0| 69 6f 6e 2c 20 74 6f 20 | 63 65 6e 74 65 72 20 69 |ion, to |center i|
|0002f3e0| 74 0d 20 20 20 20 69 66 | 20 67 57 6f 72 6c 64 20 |t.    if| gWorld |
|0002f3f0| 3d 20 22 44 69 73 63 6f | 76 65 72 22 20 74 68 65 |= "Disco|ver" the|
|0002f400| 6e 0d 20 20 20 20 20 20 | 73 65 74 20 63 65 6e 74 |n.      |set cent|
|0002f410| 65 72 70 6f 69 6e 74 20 | 3d 20 32 35 30 20 20 0d |erpoint |= 250  .|
|0002f420| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 73 |    else|.      s|
|0002f430| 65 74 20 63 65 6e 74 65 | 72 70 6f 69 6e 74 20 3d |et cente|rpoint =|
|0002f440| 20 32 38 30 0d 20 20 20 | 20 65 6e 64 20 69 66 0d | 280.   | end if.|
|0002f450| 20 20 20 20 73 65 74 20 | 63 61 70 68 20 3d 20 74 |    set |caph = t|
|0002f460| 68 65 20 68 65 69 67 68 | 74 20 6f 66 20 63 61 73 |he heigh|t of cas|
|0002f470| 74 20 22 63 61 70 74 69 | 6f 6e 2d 71 74 22 0d 20 |t "capti|on-qt". |
|0002f480| 20 20 20 0d 20 20 20 20 | 2d 2d 20 69 6e 20 64 65 |   .    |-- in de|
|0002f490| 73 69 67 6e 20 74 68 65 | 20 63 61 70 74 69 6f 6e |sign the| caption|
|0002f4a0| 20 64 6f 65 73 20 6e 6f | 74 20 6e 65 65 64 20 76 | does no|t need v|
|0002f4b0| 65 72 74 69 63 61 6c 20 | 63 65 6e 74 65 72 69 6e |ertical |centerin|
|0002f4c0| 67 0d 20 20 20 20 69 66 | 20 67 57 6f 72 6c 64 20 |g.    if| gWorld |
|0002f4d0| 3c 3e 20 22 53 65 6e 73 | 65 73 22 20 61 6e 64 20 |<> "Sens|es" and |
|0002f4e0| 67 57 6f 72 6c 64 20 3c | 3e 20 22 42 6f 64 79 22 |gWorld <|> "Body"|
|0002f4f0| 20 74 68 65 6e 20 0d 20 | 20 20 20 20 20 73 65 74 | then . |     set|
|0002f500| 20 74 68 65 20 6c 6f 63 | 76 20 6f 66 20 73 70 72 | the loc|v of spr|
|0002f510| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|0002f520| 65 20 3d 20 63 65 6e 74 | 65 72 70 6f 69 6e 74 20 |e = cent|erpoint |
|0002f530| 2d 20 28 63 61 70 68 2f | 32 29 0d 20 20 20 20 65 |- (caph/|2).    e|
|0002f540| 6c 73 65 20 69 66 20 67 | 57 6f 72 6c 64 20 3d 20 |lse if g|World = |
|0002f550| 22 42 6f 64 79 22 20 74 | 68 65 6e 0d 20 20 20 20 |"Body" t|hen.    |
|0002f560| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|0002f570| 66 20 73 70 72 69 74 65 | 20 63 61 70 74 69 6f 6e |f sprite| caption|
|0002f580| 73 70 72 69 74 65 20 3d | 20 31 31 32 20 20 0d 20 |sprite =| 112  . |
|0002f590| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 73 65 |   end i|f.    se|
|0002f5a0| 74 20 74 68 65 20 6c 6f | 63 68 20 6f 66 20 73 70 |t the lo|ch of sp|
|0002f5b0| 72 69 74 65 20 63 61 70 | 74 69 6f 6e 73 70 72 69 |rite cap|tionspri|
|0002f5c0| 74 65 20 3d 20 63 61 70 | 74 69 6f 6e 6c 6f 63 68 |te = cap|tionloch|
|0002f5d0| 0d 20 20 20 20 75 70 64 | 61 74 65 73 74 61 67 65 |.    upd|atestage|
|0002f5e0| 0d 20 20 20 20 0d 20 20 | 20 20 2d 2d 20 74 68 65 |.    .  |  -- the|
|0002f5f0| 20 70 6c 61 79 2f 73 74 | 6f 70 20 62 75 74 74 6f | play/st|op butto|
|0002f600| 6e 20 73 70 72 69 74 65 | 0d 20 20 20 20 70 75 70 |n sprite|.    pup|
|0002f610| 70 65 74 73 70 72 69 74 | 65 20 31 31 2c 31 20 0d |petsprit|e 11,1 .|
|0002f620| 20 20 20 20 0d 20 20 20 | 20 2d 2d 20 67 65 74 20 |    .   | -- get |
|0002f630| 74 68 65 20 51 54 6d 6f | 76 69 65 0d 20 20 20 20 |the QTmo|vie.    |
|0002f640| 73 65 74 20 66 6e 61 6d | 65 20 3d 20 67 51 54 70 |set fnam|e = gQTp|
|0002f650| 61 74 68 20 26 20 22 56 | 22 20 26 20 67 4d 61 6b |ath & "V|" & gMak|
|0002f660| 65 72 4e 75 6d 20 26 20 | 22 2e 4d 4f 56 22 0d 20 |erNum & |".MOV". |
|0002f670| 20 20 20 70 75 74 20 66 | 6e 61 6d 65 0d 20 20 20 |   put f|name.   |
|0002f680| 20 73 65 74 20 74 68 65 | 20 66 69 6c 65 6e 61 6d | set the| filenam|
|0002f690| 65 20 6f 66 20 63 61 73 | 74 20 63 6e 75 6d 20 3d |e of cas|t cnum =|
|0002f6a0| 20 66 6e 61 6d 65 0d 20 | 20 20 20 73 65 74 20 74 | fname. |   set t|
|0002f6b0| 68 65 20 6e 61 6d 65 20 | 6f 66 20 63 61 73 74 20 |he name |of cast |
|0002f6c0| 63 6e 75 6d 20 3d 20 22 | 51 54 63 61 73 74 22 0d |cnum = "|QTcast".|
|0002f6d0| 20 20 20 20 2d 2d 20 20 | 75 70 64 61 74 65 73 74 |    --  |updatest|
|0002f6e0| 61 67 65 0d 20 20 20 20 | 0d 20 20 20 20 2d 2d 20 |age.    |.    -- |
|0002f6f0| 73 74 61 72 74 20 74 68 | 65 20 51 54 0d 20 20 20 |start th|e QT.   |
|0002f700| 20 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6d 6f | .    se|t the mo|
|0002f710| 76 69 65 74 69 6d 65 20 | 6f 66 20 73 70 72 69 74 |vietime |of sprit|
|0002f720| 65 20 31 36 20 3d 20 30 | 0d 20 20 20 20 75 70 64 |e 16 = 0|.    upd|
|0002f730| 61 74 65 73 74 61 67 65 | 0d 20 20 20 20 73 65 74 |atestage|.    set|
|0002f740| 20 74 68 65 20 6d 6f 76 | 69 65 72 61 74 65 20 6f | the mov|ierate o|
|0002f750| 66 20 73 70 72 69 74 65 | 20 31 36 20 3d 20 31 0d |f sprite| 16 = 1.|
|0002f760| 20 20 20 20 75 70 64 61 | 74 65 73 74 61 67 65 0d |    upda|testage.|
|0002f770| 20 20 20 20 0d 20 20 20 | 20 53 65 74 56 6f 6c 75 |    .   | SetVolu|
|0002f780| 6d 65 0d 20 20 20 20 0d | 20 20 20 20 0d 20 20 20 |me.    .|    .   |
|0002f790| 20 2d 2d 20 53 4f 55 4e | 44 0d 20 20 65 6c 73 65 | -- SOUN|D.  else|
|0002f7a0| 20 69 66 20 74 79 70 65 | 20 3d 20 22 73 6f 75 6e | if type| = "soun|
|0002f7b0| 64 22 20 20 74 68 65 6e | 20 20 20 0d 20 20 20 20 |d"  then|   .    |
|0002f7c0| 47 6f 53 6f 75 6e 64 41 | 72 74 69 63 6c 65 0d 20 |GoSoundA|rticle. |
|0002f7d0| 20 20 20 0d 20 20 20 20 | 0d 20 20 20 20 2d 2d 20 |   .    |.    -- |
|0002f7e0| 43 55 54 54 49 4e 47 0d | 20 20 65 6c 73 65 20 69 |CUTTING.|  else i|
|0002f7f0| 66 20 74 79 70 65 20 3d | 20 22 63 75 74 74 69 6e |f type =| "cuttin|
|0002f800| 67 22 20 20 74 68 65 6e | 20 20 20 0d 20 20 20 20 |g"  then|   .    |
|0002f810| 0d 20 20 20 20 70 75 70 | 70 65 74 73 70 72 69 74 |.    pup|petsprit|
|0002f820| 65 20 66 6f 72 77 61 72 | 64 62 75 74 74 6f 6e 2c |e forwar|dbutton,|
|0002f830| 30 0d 20 20 20 20 70 75 | 70 70 65 74 73 70 72 69 |0.    pu|ppetspri|
|0002f840| 74 65 20 62 61 63 6b 62 | 75 74 74 6f 6e 2c 30 0d |te backb|utton,0.|
|0002f850| 20 20 20 20 0d 20 20 20 | 20 69 66 20 67 57 6f 72 |    .   | if gWor|
|0002f860| 6c 64 20 3c 3e 20 22 6d | 69 6e 64 22 20 74 68 65 |ld <> "m|ind" the|
|0002f870| 6e 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |n.      |set the |
|0002f880| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 68 |loch of |sprite h|
|0002f890| 65 61 64 73 70 72 69 74 | 65 20 3d 20 31 30 30 30 |eadsprit|e = 1000|
|0002f8a0| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |.    end| if.    |
|0002f8b0| 0d 20 20 20 20 69 66 20 | 67 57 6f 72 6c 64 20 3d |.    if |gWorld =|
|0002f8c0| 20 22 73 65 6e 73 65 73 | 22 20 6f 72 20 67 57 6f | "senses|" or gWo|
|0002f8d0| 72 6c 64 20 3d 20 22 6d | 69 6e 64 22 20 74 68 65 |rld = "m|ind" the|
|0002f8e0| 6e 20 0d 20 20 20 20 20 | 20 73 65 74 20 67 4d 61 |n .     | set gMa|
|0002f8f0| 78 4c 69 6e 65 73 20 3d | 20 31 36 20 20 0d 20 20 |xLines =| 16  .  |
|0002f900| 20 20 65 6c 73 65 20 20 | 69 66 20 67 57 6f 72 6c |  else  |if gWorl|
|0002f910| 64 20 3d 20 22 44 69 73 | 63 6f 76 65 72 22 20 74 |d = "Dis|cover" t|
|0002f920| 68 65 6e 20 0d 20 20 20 | 20 20 20 73 65 74 20 67 |hen .   |   set g|
|0002f930| 4d 61 78 4c 69 6e 65 73 | 20 3d 20 31 35 20 20 0d |MaxLines| = 15  .|
|0002f940| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 73 |    else|.      s|
|0002f950| 65 74 20 67 4d 61 78 4c | 69 6e 65 73 20 3d 20 31 |et gMaxL|ines = 1|
|0002f960| 37 20 20 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |7  .    |end if. |
|0002f970| 20 20 20 0d 20 20 20 20 | 0d 20 20 20 20 2d 2d 20 |   .    |.    -- |
|0002f980| 63 6c 65 61 6e 20 75 70 | 20 74 68 65 20 74 65 78 |clean up| the tex|
|0002f990| 74 20 62 6f 78 65 73 20 | 6f 6e 20 73 63 72 65 65 |t boxes |on scree|
|0002f9a0| 6e 2c 20 6f 6e 6c 79 20 | 69 66 20 77 65 27 72 65 |n, only |if we're|
|0002f9b0| 20 6e 6f 74 20 63 75 72 | 72 65 6e 74 6c 79 20 69 | not cur|rently i|
|0002f9c0| 6e 20 61 20 63 75 74 74 | 69 6e 67 20 20 20 0d 20 |n a cutt|ing   . |
|0002f9d0| 20 20 20 69 66 20 74 68 | 65 20 66 72 61 6d 65 6c |   if th|e framel|
|0002f9e0| 61 62 65 6c 20 3c 3e 20 | 22 63 75 74 74 69 6e 67 |abel <> |"cutting|
|0002f9f0| 22 20 74 68 65 6e 0d 20 | 20 20 20 20 20 73 65 74 |" then. |     set|
|0002fa00| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 66 69 65 | the tex|t of fie|
|0002fa10| 6c 64 20 22 63 75 74 74 | 69 6e 67 22 20 3d 20 22 |ld "cutt|ing" = "|
|0002fa20| 20 22 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 73 | "      |.      s|
|0002fa30| 65 74 20 74 68 65 20 74 | 65 78 74 73 69 7a 65 20 |et the t|extsize |
|0002fa40| 6f 66 20 66 69 65 6c 64 | 20 22 63 75 74 74 69 6e |of field| "cuttin|
|0002fa50| 67 22 20 3d 20 31 38 0d | 20 20 20 20 20 20 0d 20 |g" = 18.|      . |
|0002fa60| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 74 65 78 |     set| the tex|
|0002fa70| 74 20 6f 66 20 66 69 65 | 6c 64 20 22 64 61 74 65 |t of fie|ld "date|
|0002fa80| 22 20 3d 20 22 20 22 0d | 20 20 20 20 20 20 73 65 |" = " ".|      se|
|0002fa90| 74 20 74 68 65 20 74 65 | 78 74 20 6f 66 20 66 69 |t the te|xt of fi|
|0002faa0| 65 6c 64 20 22 63 61 70 | 74 69 6f 6e 22 20 3d 20 |eld "cap|tion" = |
|0002fab0| 22 20 22 0d 20 20 20 20 | 20 20 73 65 74 20 74 68 |" ".    |  set th|
|0002fac0| 65 20 74 65 78 74 20 6f | 66 20 66 69 65 6c 64 20 |e text o|f field |
|0002fad0| 22 74 69 74 6c 65 22 20 | 3d 20 22 20 22 0d 20 20 |"title" |= " ".  |
|0002fae0| 20 20 20 20 0d 20 20 20 | 20 20 20 2d 2d 20 67 65 |    .   |   -- ge|
|0002faf0| 74 20 72 69 64 20 6f 66 | 20 74 68 65 20 70 69 63 |t rid of| the pic|
|0002fb00| 74 75 72 65 0d 20 20 20 | 20 20 20 70 75 70 70 65 |ture.   |   puppe|
|0002fb10| 74 73 70 72 69 74 65 20 | 70 69 63 73 70 72 69 74 |tsprite |picsprit|
|0002fb20| 65 2c 31 0d 20 20 20 20 | 20 20 73 65 74 20 74 68 |e,1.    |  set th|
|0002fb30| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|0002fb40| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 31 30 30 | picspri|te = 100|
|0002fb50| 30 0d 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 69 |0.      |.      i|
|0002fb60| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 53 65 6e 73 |f gWorld| = "Sens|
|0002fb70| 65 73 22 20 6f 72 20 67 | 57 6f 72 6c 64 20 3d 20 |es" or g|World = |
|0002fb80| 22 44 65 73 69 67 6e 22 | 20 74 68 65 6e 0d 20 20 |"Design"| then.  |
|0002fb90| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|0002fba0| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 6e 61 6d |ch of sp|rite nam|
|0002fbb0| 65 73 70 72 69 74 65 20 | 3d 20 31 30 30 30 0d 20 |esprite |= 1000. |
|0002fbc0| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|0002fbd0| 20 20 0d 20 20 20 20 20 | 20 75 6e 70 75 70 70 65 |  .     | unpuppe|
|0002fbe0| 74 20 22 34 2c 31 30 22 | 20 20 0d 20 20 20 20 20 |t "4,10"|  .     |
|0002fbf0| 20 0d 20 20 20 20 20 20 | 69 66 20 67 4d 61 6b 65 | .      |if gMake|
|0002fc00| 72 4e 75 6d 20 3d 20 31 | 31 39 20 74 68 65 6e 20 |rNum = 1|19 then |
|0002fc10| 20 20 2d 2d 20 73 70 65 | 63 69 61 6c 20 63 61 73 |  -- spe|cial cas|
|0002fc20| 65 20 66 6f 72 20 4d 61 | 74 69 73 73 65 0d 20 20 |e for Ma|tisse.  |
|0002fc30| 20 20 20 20 20 20 67 6f | 20 74 6f 20 66 72 61 6d |      go| to fram|
|0002fc40| 65 20 22 63 75 74 74 69 | 6e 67 2e 4d 41 54 22 0d |e "cutti|ng.MAT".|
|0002fc50| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |      el|se.     |
|0002fc60| 20 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 22 |   go to| frame "|
|0002fc70| 63 75 74 74 69 6e 67 22 | 0d 20 20 20 20 20 20 65 |cutting"|.      e|
|0002fc80| 6e 64 20 69 66 0d 20 20 | 20 20 20 20 43 6c 65 61 |nd if.  |    Clea|
|0002fc90| 6e 4d 65 6d 0d 20 20 20 | 20 20 20 70 75 70 70 65 |nMem.   |   puppe|
|0002fca0| 74 73 70 72 69 74 65 20 | 70 61 70 65 72 73 70 72 |tsprite |paperspr|
|0002fcb0| 69 74 65 2c 31 0d 20 20 | 20 20 20 20 73 65 74 20 |ite,1.  |    set |
|0002fcc0| 67 50 61 70 65 72 6c 6f | 63 68 20 3d 20 74 68 65 |gPaperlo|ch = the|
|0002fcd0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|0002fce0| 70 61 70 65 72 73 70 72 | 69 74 65 0d 20 20 20 20 |paperspr|ite.    |
|0002fcf0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|0002fd00| 66 20 73 70 72 69 74 65 | 20 70 61 70 65 72 73 70 |f sprite| papersp|
|0002fd10| 72 69 74 65 20 3d 20 31 | 30 30 30 0d 20 20 20 20 |rite = 1|000.    |
|0002fd20| 20 20 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |  .    e|nd if.  |
|0002fd30| 20 20 0d 20 20 20 20 2d | 2d 20 63 6c 6f 63 6b 20 |  .    -|- clock |
|0002fd40| 63 75 72 73 6f 72 0d 20 | 20 20 20 63 75 72 73 6f |cursor. |   curso|
|0002fd50| 72 20 34 0d 20 20 20 20 | 0d 20 20 20 20 0d 20 20 |r 4.    |.    .  |
|0002fd60| 20 20 2d 2d 20 6d 61 6b | 65 20 61 6c 6c 20 74 68 |  -- mak|e all th|
|0002fd70| 65 20 63 68 61 6e 67 65 | 73 20 74 6f 20 74 68 65 |e change|s to the|
|0002fd80| 20 74 65 78 74 20 6f 66 | 66 73 63 72 65 65 6e 2c | text of|fscreen,|
|0002fd90| 20 61 6e 64 20 74 68 65 | 6e 20 0d 20 20 20 20 2d | and the|n .    -|
|0002fda0| 2d 20 72 65 64 72 61 77 | 20 74 68 65 6d 20 61 6c |- redraw| them al|
|0002fdb0| 6c 20 74 6f 20 74 68 65 | 20 73 63 72 65 65 6e 20 |l to the| screen |
|0002fdc0| 61 74 20 6f 6e 63 65 0d | 20 20 20 20 0d 20 20 20 |at once.|    .   |
|0002fdd0| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 63 75 | puppets|prite cu|
|0002fde0| 74 74 69 6e 67 73 70 72 | 69 74 65 2c 31 0d 20 20 |ttingspr|ite,1.  |
|0002fdf0| 20 20 70 75 70 70 65 74 | 73 70 72 69 74 65 20 74 |  puppet|sprite t|
|0002fe00| 69 74 6c 65 73 70 72 69 | 74 65 2c 31 0d 20 20 20 |itlespri|te,1.   |
|0002fe10| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 70 61 | puppets|prite pa|
|0002fe20| 70 65 72 73 70 72 69 74 | 65 2c 31 0d 20 20 20 20 |persprit|e,1.    |
|0002fe30| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 64 61 74 |puppetsp|rite dat|
|0002fe40| 65 73 70 72 69 74 65 2c | 31 0d 20 20 20 20 70 75 |esprite,|1.    pu|
|0002fe50| 70 70 65 74 73 70 72 69 | 74 65 20 63 61 70 74 69 |ppetspri|te capti|
|0002fe60| 6f 6e 73 70 72 69 74 65 | 2c 31 0d 20 20 20 20 0d |onsprite|,1.    .|
|0002fe70| 20 20 20 20 73 65 74 20 | 63 75 74 74 69 6e 67 6c |    set |cuttingl|
|0002fe80| 6f 63 68 20 3d 20 74 68 | 65 20 6c 6f 63 68 20 6f |och = th|e loch o|
|0002fe90| 66 20 73 70 72 69 74 65 | 20 63 75 74 74 69 6e 67 |f sprite| cutting|
|0002fea0| 73 70 72 69 74 65 0d 20 | 20 20 20 73 65 74 20 74 |sprite. |   set t|
|0002feb0| 69 74 6c 65 6c 6f 63 68 | 20 3d 20 74 68 65 20 6c |itleloch| = the l|
|0002fec0| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 74 69 |och of s|prite ti|
|0002fed0| 74 6c 65 73 70 72 69 74 | 65 0d 20 20 20 20 73 65 |tlesprit|e.    se|
|0002fee0| 74 20 64 61 74 65 6c 6f | 63 68 20 3d 20 74 68 65 |t datelo|ch = the|
|0002fef0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|0002ff00| 64 61 74 65 73 70 72 69 | 74 65 0d 20 20 20 20 73 |datespri|te.    s|
|0002ff10| 65 74 20 63 61 70 74 69 | 6f 6e 6c 6f 63 68 20 3d |et capti|onloch =|
|0002ff20| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|0002ff30| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|0002ff40| 65 0d 20 20 20 20 0d 20 | 20 20 20 0d 20 20 20 20 |e.    . |   .    |
|0002ff50| 73 65 74 20 74 68 65 20 | 63 61 73 74 6e 75 6d 20 |set the |castnum |
|0002ff60| 6f 66 20 73 70 72 69 74 | 65 20 63 61 70 74 69 6f |of sprit|e captio|
|0002ff70| 6e 73 70 72 69 74 65 20 | 3d 20 74 68 65 20 6e 75 |nsprite |= the nu|
|0002ff80| 6d 62 65 72 20 6f 66 20 | 63 61 73 74 20 22 63 61 |mber of |cast "ca|
|0002ff90| 70 74 69 6f 6e 22 0d 20 | 20 20 20 73 65 74 20 74 |ption". |   set t|
|0002ffa0| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|0002ffb0| 65 20 63 75 74 74 69 6e | 67 73 70 72 69 74 65 20 |e cuttin|gsprite |
|0002ffc0| 3d 20 31 30 30 30 0d 20 | 20 20 20 73 65 74 20 74 |= 1000. |   set t|
|0002ffd0| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|0002ffe0| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 20 |e captio|nsprite |
|0002fff0| 3d 20 31 30 30 30 0d 20 | 20 20 20 73 65 74 20 74 |= 1000. |   set t|
|00030000| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00030010| 65 20 64 61 74 65 73 70 | 72 69 74 65 20 3d 20 31 |e datesp|rite = 1|
|00030020| 30 30 30 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |000.    |set the |
|00030030| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 74 |loch of |sprite t|
|00030040| 69 74 6c 65 73 70 72 69 | 74 65 20 3d 20 31 30 30 |itlespri|te = 100|
|00030050| 30 0d 20 20 20 20 0d 20 | 20 20 20 75 70 64 61 74 |0.    . |   updat|
|00030060| 65 73 74 61 67 65 0d 20 | 20 20 20 0d 20 20 20 20 |estage. |   .    |
|00030070| 2d 2d 20 67 65 74 20 74 | 68 65 20 63 61 70 74 69 |-- get t|he capti|
|00030080| 6f 6e 20 74 65 78 74 20 | 61 6e 64 20 74 68 65 20 |on text |and the |
|00030090| 68 65 61 64 6c 69 6e 65 | 20 20 20 20 0d 20 20 20 |headline|    .   |
|000300a0| 20 0d 20 20 20 20 73 65 | 74 20 74 6d 70 64 61 74 | .    se|t tmpdat|
|000300b0| 65 20 3d 20 67 65 74 41 | 74 28 67 65 74 41 74 28 |e = getA|t(getAt(|
|000300c0| 67 44 61 74 65 73 2c 67 | 43 75 72 43 68 61 70 29 |gDates,g|CurChap)|
|000300d0| 2c 67 43 75 72 41 72 74 | 69 63 6c 65 29 0d 20 20 |,gCurArt|icle).  |
|000300e0| 20 20 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 69 |  .    s|et the i|
|000300f0| 74 65 6d 64 65 6c 69 6d | 69 74 65 72 20 3d 20 22 |temdelim|iter = "|
|00030100| 40 22 0d 20 20 20 20 73 | 65 74 20 74 6d 70 63 61 |@".    s|et tmpca|
|00030110| 70 20 3d 20 69 74 65 6d | 20 67 43 75 72 43 68 61 |p = item| gCurCha|
|00030120| 70 20 6f 66 20 67 54 69 | 74 6c 65 73 0d 20 20 20 |p of gTi|tles.   |
|00030130| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|00030140| 69 6d 69 74 65 72 20 3d | 20 22 23 22 0d 20 20 20 |imiter =| "#".   |
|00030150| 20 73 65 74 20 74 68 65 | 20 74 65 78 74 20 6f 66 | set the| text of|
|00030160| 20 66 69 65 6c 64 20 22 | 74 69 74 6c 65 22 20 3d | field "|title" =|
|00030170| 20 69 74 65 6d 20 67 43 | 75 72 41 72 74 69 63 6c | item gC|urArticl|
|00030180| 65 20 6f 66 20 74 6d 70 | 63 61 70 0d 20 20 20 20 |e of tmp|cap.    |
|00030190| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|000301a0| 6d 69 74 65 72 20 3d 20 | 22 2c 22 0d 20 20 20 20 |miter = |",".    |
|000301b0| 0d 20 20 20 20 73 65 74 | 20 74 6d 70 63 61 70 20 |.    set| tmpcap |
|000301c0| 3d 20 47 65 74 43 61 70 | 74 69 6f 6e 28 29 20 20 |= GetCap|tion()  |
|000301d0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 74 65 78 |.    set| the tex|
|000301e0| 74 20 6f 66 20 66 69 65 | 6c 64 20 22 63 61 70 74 |t of fie|ld "capt|
|000301f0| 69 6f 6e 22 20 3d 20 20 | 74 6d 70 63 61 70 0d 20 |ion" =  |tmpcap. |
|00030200| 20 20 20 0d 20 20 20 20 | 2d 2d 20 69 66 20 6e 6f |   .    |-- if no|
|00030210| 74 20 73 74 72 69 6e 67 | 70 28 63 61 70 74 69 6f |t string|p(captio|
|00030220| 6e 29 20 74 68 65 6e 20 | 73 65 74 20 63 61 70 74 |n) then |set capt|
|00030230| 69 6f 6e 20 3d 20 22 20 | 22 0d 20 20 20 20 69 66 |ion = " |".    if|
|00030240| 20 6e 6f 74 20 73 74 72 | 69 6e 67 70 28 74 69 74 | not str|ingp(tit|
|00030250| 6c 65 29 20 74 68 65 6e | 20 73 65 74 20 74 69 74 |le) then| set tit|
|00030260| 6c 65 20 3d 20 22 20 22 | 0d 20 20 20 20 69 66 20 |le = " "|.    if |
|00030270| 6e 6f 74 20 73 74 72 69 | 6e 67 70 28 64 61 74 65 |not stri|ngp(date|
|00030280| 29 20 74 68 65 6e 20 73 | 65 74 20 64 61 74 65 20 |) then s|et date |
|00030290| 3d 20 22 20 22 0d 20 20 | 20 20 0d 20 20 20 20 0d |= " ".  |  .    .|
|000302a0| 20 20 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 |    set |the text|
|000302b0| 68 65 69 67 68 74 20 6f | 66 20 66 69 65 6c 64 20 |height o|f field |
|000302c0| 22 63 61 70 74 69 6f 6e | 22 20 3d 20 31 38 20 20 |"caption|" = 18  |
|000302d0| 2d 2d 20 6c 65 61 64 69 | 6e 67 0d 20 20 20 20 73 |-- leadi|ng.    s|
|000302e0| 65 74 20 74 6d 70 6e 75 | 6d 20 3d 20 63 68 61 72 |et tmpnu|m = char|
|000302f0| 74 6f 6e 75 6d 28 63 68 | 61 72 20 31 20 6f 66 20 |tonum(ch|ar 1 of |
|00030300| 74 6d 70 64 61 74 65 29 | 0d 20 20 20 20 0d 20 20 |tmpdate)|.    .  |
|00030310| 20 20 73 65 74 20 70 61 | 70 65 72 20 3d 20 69 74 |  set pa|per = it|
|00030320| 65 6d 20 31 20 6f 66 20 | 74 6d 70 64 61 74 65 0d |em 1 of |tmpdate.|
|00030330| 20 20 20 20 64 65 6c 65 | 74 65 20 69 74 65 6d 20 |    dele|te item |
|00030340| 31 20 6f 66 20 74 6d 70 | 64 61 74 65 0d 20 20 20 |1 of tmp|date.   |
|00030350| 20 0d 20 20 20 20 2d 2d | 20 67 65 74 20 72 69 64 | .    --| get rid|
|00030360| 20 6f 66 20 6c 65 61 64 | 69 6e 67 20 77 68 69 74 | of lead|ing whit|
|00030370| 65 73 70 61 63 65 0d 20 | 20 20 20 73 65 74 20 70 |espace. |   set p|
|00030380| 61 70 65 72 20 3d 20 77 | 6f 72 64 20 31 20 74 6f |aper = w|ord 1 to|
|00030390| 20 28 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 | (the nu|mber of |
|000303a0| 77 6f 72 64 73 20 6f 66 | 20 70 61 70 65 72 29 20 |words of| paper) |
|000303b0| 6f 66 20 70 61 70 65 72 | 0d 20 20 20 20 0d 20 20 |of paper|.    .  |
|000303c0| 20 20 2d 2d 20 67 65 74 | 20 72 69 64 20 6f 66 20 |  -- get| rid of |
|000303d0| 22 54 68 65 22 0d 20 20 | 20 20 69 66 20 77 6f 72 |"The".  |  if wor|
|000303e0| 64 20 31 20 6f 66 20 70 | 61 70 65 72 20 3d 20 22 |d 1 of p|aper = "|
|000303f0| 54 68 65 22 20 74 68 65 | 6e 20 64 65 6c 65 74 65 |The" the|n delete|
|00030400| 20 77 6f 72 64 20 31 20 | 6f 66 20 70 61 70 65 72 | word 1 |of paper|
|00030410| 0d 20 20 20 20 0d 20 20 | 20 20 2d 2d 20 67 65 74 |.    .  |  -- get|
|00030420| 20 74 68 65 20 63 6f 72 | 72 65 63 74 20 4e 65 77 | the cor|rect New|
|00030430| 73 70 61 70 65 72 20 62 | 69 74 6d 61 70 0d 20 20 |spaper b|itmap.  |
|00030440| 20 20 69 66 20 70 61 70 | 65 72 20 3d 20 22 54 69 |  if pap|er = "Ti|
|00030450| 6d 65 22 20 74 68 65 6e | 20 73 65 74 20 70 61 70 |me" then| set pap|
|00030460| 65 72 20 3d 20 22 54 69 | 6d 65 73 22 20 2d 2d 20 |er = "Ti|mes" -- |
|00030470| 65 72 72 6f 72 20 63 6f | 72 72 65 63 74 69 6f 6e |error co|rrection|
|00030480| 0d 20 20 20 20 65 6c 73 | 65 20 69 66 20 70 61 70 |.    els|e if pap|
|00030490| 65 72 20 3d 20 22 53 75 | 6e 64 61 79 20 54 69 6d |er = "Su|nday Tim|
|000304a0| 65 22 20 74 68 65 6e 20 | 73 65 74 20 70 61 70 65 |e" then |set pape|
|000304b0| 72 20 3d 20 22 53 75 6e | 64 61 79 20 54 69 6d 65 |r = "Sun|day Time|
|000304c0| 73 22 0d 20 20 20 20 65 | 6c 73 65 20 69 66 20 70 |s".    e|lse if p|
|000304d0| 61 70 65 72 20 3d 20 22 | 54 69 6d 65 73 20 4c 69 |aper = "|Times Li|
|000304e0| 74 65 72 61 72 79 20 53 | 75 70 70 6c 65 6d 65 6e |terary S|upplemen|
|000304f0| 74 22 20 74 68 65 6e 20 | 73 65 74 20 70 61 70 65 |t" then |set pape|
|00030500| 72 20 3d 20 22 74 6c 73 | 22 0d 20 20 20 20 0d 20 |r = "tls|".    . |
|00030510| 20 20 20 69 66 20 67 4d | 61 6b 65 72 4e 75 6d 20 |   if gM|akerNum |
|00030520| 3d 20 31 31 39 20 74 68 | 65 6e 20 20 2d 2d 20 73 |= 119 th|en  -- s|
|00030530| 70 65 63 69 61 6c 20 63 | 61 73 65 20 66 6f 72 20 |pecial c|ase for |
|00030540| 4d 61 74 69 73 73 65 0d | 20 20 20 20 20 20 73 65 |Matisse.|      se|
|00030550| 74 20 74 68 65 20 63 61 | 73 74 6e 75 6d 20 6f 66 |t the ca|stnum of|
|00030560| 20 73 70 72 69 74 65 20 | 70 61 70 65 72 73 70 72 | sprite |paperspr|
|00030570| 69 74 65 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |ite = th|e number|
|00030580| 20 6f 66 20 63 61 73 74 | 20 28 70 61 70 65 72 26 | of cast| (paper&|
|00030590| 22 2e 6c 6f 67 6f 2e 4d | 41 54 22 29 0d 20 20 20 |".logo.M|AT").   |
|000305a0| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 73 65 74 20 | else.  |    set |
|000305b0| 74 68 65 20 63 61 73 74 | 6e 75 6d 20 6f 66 20 73 |the cast|num of s|
|000305c0| 70 72 69 74 65 20 70 61 | 70 65 72 73 70 72 69 74 |prite pa|persprit|
|000305d0| 65 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |e = the |number o|
|000305e0| 66 20 63 61 73 74 20 28 | 70 61 70 65 72 26 22 2e |f cast (|paper&".|
|000305f0| 6c 6f 67 6f 22 29 0d 20 | 20 20 20 65 6e 64 20 69 |logo"). |   end i|
|00030600| 66 0d 20 20 20 20 0d 20 | 20 20 20 2d 2d 20 73 65 |f.    . |   -- se|
|00030610| 74 20 74 68 65 20 64 61 | 74 65 62 6f 78 0d 20 20 |t the da|tebox.  |
|00030620| 20 20 69 66 20 63 68 61 | 72 20 31 20 6f 66 20 74 |  if cha|r 1 of t|
|00030630| 6d 70 64 61 74 65 20 3d | 20 22 20 22 20 74 68 65 |mpdate =| " " the|
|00030640| 6e 20 64 65 6c 65 74 65 | 20 63 68 61 72 20 31 20 |n delete| char 1 |
|00030650| 6f 66 20 74 6d 70 64 61 | 74 65 0d 20 20 20 20 73 |of tmpda|te.    s|
|00030660| 65 74 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 66 |et the t|ext of f|
|00030670| 69 65 6c 64 20 22 64 61 | 74 65 22 20 3d 20 74 6d |ield "da|te" = tm|
|00030680| 70 64 61 74 65 0d 20 20 | 20 20 0d 20 20 20 20 2d |pdate.  |  .    -|
|00030690| 2d 20 70 72 65 70 61 72 | 65 20 74 68 65 20 68 65 |- prepar|e the he|
|000306a0| 61 64 65 72 20 66 6f 72 | 20 74 68 65 20 70 72 69 |ader for| the pri|
|000306b0| 6e 74 6f 75 74 0d 20 20 | 20 20 73 65 74 20 67 50 |ntout.  |  set gP|
|000306c0| 72 69 6e 74 48 65 61 64 | 20 3d 20 69 74 65 6d 20 |rintHead| = item |
|000306d0| 67 43 75 72 43 68 61 70 | 20 6f 66 20 67 54 69 74 |gCurChap| of gTit|
|000306e0| 6c 65 73 20 26 20 72 65 | 74 75 72 6e 20 20 20 0d |les & re|turn   .|
|000306f0| 20 20 20 20 69 66 20 70 | 61 70 65 72 20 3d 20 22 |    if p|aper = "|
|00030700| 54 69 6d 65 73 22 20 74 | 68 65 6e 20 0d 20 20 20 |Times" t|hen .   |
|00030710| 20 20 20 70 75 74 20 22 | 54 68 65 20 54 69 6d 65 |   put "|The Time|
|00030720| 73 22 20 26 20 72 65 74 | 75 72 6e 20 61 66 74 65 |s" & ret|urn afte|
|00030730| 72 20 67 50 72 69 6e 74 | 48 65 61 64 0d 20 20 20 |r gPrint|Head.   |
|00030740| 20 65 6c 73 65 20 69 66 | 20 70 61 70 65 72 20 3d | else if| paper =|
|00030750| 20 22 53 75 6e 64 61 79 | 20 54 69 6d 65 73 22 20 | "Sunday| Times" |
|00030760| 74 68 65 6e 0d 20 20 20 | 20 20 20 70 75 74 20 22 |then.   |   put "|
|00030770| 53 75 6e 64 61 79 20 54 | 69 6d 65 73 22 20 26 20 |Sunday T|imes" & |
|00030780| 72 65 74 75 72 6e 20 61 | 66 74 65 72 20 67 50 72 |return a|fter gPr|
|00030790| 69 6e 74 48 65 61 64 0d | 20 20 20 20 65 6c 73 65 |intHead.|    else|
|000307a0| 20 69 66 20 70 61 70 65 | 72 20 3d 20 22 74 6c 73 | if pape|r = "tls|
|000307b0| 22 20 74 68 65 6e 0d 20 | 20 20 20 20 20 70 75 74 |" then. |     put|
|000307c0| 20 22 54 69 6d 65 73 20 | 4c 69 74 65 72 61 72 79 | "Times |Literary|
|000307d0| 20 53 75 70 70 6c 65 6d | 65 6e 74 22 20 26 20 72 | Supplem|ent" & r|
|000307e0| 65 74 75 72 6e 20 61 66 | 74 65 72 20 67 50 72 69 |eturn af|ter gPri|
|000307f0| 6e 74 48 65 61 64 0d 20 | 20 20 20 65 6c 73 65 20 |ntHead. |   else |
|00030800| 0d 20 20 20 20 20 20 70 | 75 74 20 70 61 70 65 72 |.      p|ut paper|
|00030810| 20 26 20 72 65 74 75 72 | 6e 20 61 66 74 65 72 20 | & retur|n after |
|00030820| 67 50 72 69 6e 74 48 65 | 61 64 0d 20 20 20 20 65 |gPrintHe|ad.    e|
|00030830| 6e 64 20 69 66 0d 20 20 | 20 20 70 75 74 20 74 6d |nd if.  |  put tm|
|00030840| 70 64 61 74 65 20 26 20 | 72 65 74 75 72 6e 20 61 |pdate & |return a|
|00030850| 66 74 65 72 20 67 50 72 | 69 6e 74 48 65 61 64 0d |fter gPr|intHead.|
|00030860| 20 20 20 20 0d 20 20 20 | 20 73 65 74 20 67 41 72 |    .   | set gAr|
|00030870| 74 69 63 6c 65 50 61 67 | 65 20 3d 20 31 20 20 2d |ticlePag|e = 1  -|
|00030880| 2d 20 73 74 61 72 74 20 | 6f 6e 20 70 61 67 65 20 |- start |on page |
|00030890| 6f 6e 65 20 0d 20 20 20 | 20 0d 20 20 20 20 2d 2d |one .   | .    --|
|000308a0| 20 67 65 74 20 74 68 65 | 20 63 75 74 74 69 6e 67 | get the| cutting|
|000308b0| 73 20 74 65 78 74 20 20 | 20 0d 20 20 20 20 73 65 |s text  | .    se|
|000308c0| 74 20 61 72 74 20 3d 20 | 28 67 43 75 72 43 68 61 |t art = |(gCurCha|
|000308d0| 70 29 20 26 20 22 2e 22 | 20 26 20 67 43 75 72 41 |p) & "."| & gCurA|
|000308e0| 72 74 69 63 6c 65 0d 20 | 20 20 20 0d 20 20 20 20 |rticle. |   .    |
|000308f0| 2d 2d 20 66 69 6e 64 20 | 74 68 65 20 69 6e 64 65 |-- find |the inde|
|00030900| 78 20 69 6e 20 74 68 65 | 20 69 6e 64 65 78 20 6c |x in the| index l|
|00030910| 69 73 74 0d 20 20 20 20 | 73 65 74 20 6e 75 6d 20 |ist.    |set num |
|00030920| 3d 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 |= the nu|mber of |
|00030930| 69 74 65 6d 73 20 6f 66 | 20 67 43 75 72 49 6e 64 |items of| gCurInd|
|00030940| 65 78 0d 20 20 20 20 73 | 65 74 20 69 6e 64 65 78 |ex.    s|et index|
|00030950| 20 3d 20 2d 31 0d 20 20 | 20 20 0d 20 20 20 20 72 | = -1.  |  .    r|
|00030960| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 32 |epeat wi|th i = 2|
|00030970| 20 74 6f 20 6e 75 6d 0d | 20 20 20 20 20 20 73 65 | to num.|      se|
|00030980| 74 20 74 6d 70 20 3d 20 | 69 74 65 6d 20 69 20 6f |t tmp = |item i o|
|00030990| 66 20 67 43 75 72 49 6e | 64 65 78 0d 20 20 20 20 |f gCurIn|dex.    |
|000309a0| 20 20 73 65 74 20 74 6d | 70 32 20 3d 20 69 74 65 |  set tm|p2 = ite|
|000309b0| 6d 20 28 69 2b 31 29 20 | 6f 66 20 67 43 75 72 49 |m (i+1) |of gCurI|
|000309c0| 6e 64 65 78 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |ndex.   |   .    |
|000309d0| 20 20 69 66 20 61 72 74 | 20 3d 20 63 68 61 72 20 |  if art| = char |
|000309e0| 31 20 74 6f 20 33 20 6f | 66 20 74 6d 70 20 74 68 |1 to 3 o|f tmp th|
|000309f0| 65 6e 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |en.     |   set t|
|00030a00| 68 65 20 69 74 65 6d 64 | 65 6c 69 6d 69 74 65 72 |he itemd|elimiter|
|00030a10| 20 3d 20 22 3a 22 0d 20 | 20 20 20 20 20 20 20 73 | = ":". |       s|
|00030a20| 65 74 20 69 6e 64 65 78 | 20 3d 20 76 61 6c 75 65 |et index| = value|
|00030a30| 28 69 74 65 6d 20 32 20 | 6f 66 20 74 6d 70 29 0d |(item 2 |of tmp).|
|00030a40| 20 20 20 20 20 20 20 20 | 73 65 74 20 6e 65 78 74 |        |set next|
|00030a50| 69 6e 64 65 78 20 3d 20 | 76 61 6c 75 65 20 28 69 |index = |value (i|
|00030a60| 74 65 6d 20 32 20 6f 66 | 20 74 6d 70 32 29 0d 20 |tem 2 of| tmp2). |
|00030a70| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 69 |       s|et the i|
|00030a80| 74 65 6d 64 65 6c 69 6d | 69 74 65 72 20 3d 20 22 |temdelim|iter = "|
|00030a90| 2c 22 0d 20 20 20 20 20 | 20 20 20 65 78 69 74 20 |,".     |   exit |
|00030aa0| 72 65 70 65 61 74 0d 20 | 20 20 20 20 20 65 6e 64 |repeat. |     end|
|00030ab0| 20 69 66 0d 20 20 20 20 | 65 6e 64 20 72 65 70 65 | if.    |end repe|
|00030ac0| 61 74 0d 20 20 20 20 0d | 20 20 20 20 0d 20 20 20 |at.    .|    .   |
|00030ad0| 20 2d 2d 20 67 65 74 20 | 74 68 65 20 63 75 74 74 | -- get |the cutt|
|00030ae0| 69 6e 67 20 74 65 78 74 | 0d 20 20 20 20 2d 2d 20 |ing text|.    -- |
|00030af0| 69 74 73 20 6f 6b 20 69 | 66 20 74 68 65 20 63 75 |its ok i|f the cu|
|00030b00| 74 74 69 6e 67 20 73 68 | 6f 77 73 20 75 70 20 61 |tting sh|ows up a|
|00030b10| 20 62 69 74 20 61 66 74 | 65 72 20 74 68 65 20 72 | bit aft|er the r|
|00030b20| 65 73 74 20 6f 66 20 74 | 68 65 20 73 63 72 65 65 |est of t|he scree|
|00030b30| 6e 20 20 20 20 0d 20 20 | 20 20 69 66 20 69 6e 64 |n    .  |  if ind|
|00030b40| 65 78 20 3c 3e 20 2d 31 | 20 74 68 65 6e 0d 20 20 |ex <> -1| then.  |
|00030b50| 20 20 20 20 2d 2d 20 67 | 65 74 20 74 68 65 20 6e |    -- g|et the n|
|00030b60| 65 63 65 73 73 61 72 79 | 20 61 72 74 69 63 6c 65 |ecessary| article|
|00030b70| 20 6f 75 74 20 6f 66 20 | 74 68 65 20 67 46 75 6c | out of |the gFul|
|00030b80| 6c 43 75 74 74 69 6e 67 | 73 20 20 20 20 20 20 0d |lCutting|s      .|
|00030b90| 20 20 20 20 20 20 69 66 | 20 6e 65 78 74 69 6e 64 |      if| nextind|
|00030ba0| 65 78 20 3c 3e 20 22 22 | 20 61 6e 64 20 6e 65 78 |ex <> ""| and nex|
|00030bb0| 74 69 6e 64 65 78 20 3c | 3e 20 30 20 74 68 65 6e |tindex <|> 0 then|
|00030bc0| 0d 20 20 20 20 20 20 20 | 20 69 66 20 69 6e 64 65 |.       | if inde|
|00030bd0| 78 20 3e 20 30 20 74 68 | 65 6e 0d 20 20 20 20 20 |x > 0 th|en.     |
|00030be0| 20 20 20 20 20 73 65 74 | 20 67 43 75 72 43 75 74 |     set| gCurCut|
|00030bf0| 74 69 6e 67 20 3d 20 63 | 68 61 72 20 69 6e 64 65 |ting = c|har inde|
|00030c00| 78 20 74 6f 20 6e 65 78 | 74 69 6e 64 65 78 20 6f |x to nex|tindex o|
|00030c10| 66 20 67 46 75 6c 6c 43 | 75 74 74 69 6e 67 73 0d |f gFullC|uttings.|
|00030c20| 20 20 20 20 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |        |else.   |
|00030c30| 20 20 20 20 20 20 20 73 | 65 74 20 67 43 75 72 43 |       s|et gCurC|
|00030c40| 75 74 74 69 6e 67 20 3d | 20 63 68 61 72 20 31 20 |utting =| char 1 |
|00030c50| 74 6f 20 6e 65 78 74 69 | 6e 64 65 78 20 6f 66 20 |to nexti|ndex of |
|00030c60| 67 46 75 6c 6c 43 75 74 | 74 69 6e 67 73 0d 20 20 |gFullCut|tings.  |
|00030c70| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |      en|d if.   |
|00030c80| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 20 20 |   else.|        |
|00030c90| 69 66 20 69 6e 64 65 78 | 20 3e 20 30 20 74 68 65 |if index| > 0 the|
|00030ca0| 6e 0d 20 20 20 20 20 20 | 20 20 20 20 73 65 74 20 |n.      |    set |
|00030cb0| 67 43 75 72 43 75 74 74 | 69 6e 67 20 3d 20 63 68 |gCurCutt|ing = ch|
|00030cc0| 61 72 20 69 6e 64 65 78 | 20 74 6f 20 28 74 68 65 |ar index| to (the|
|00030cd0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 68 61 72 73 | number |of chars|
|00030ce0| 20 6f 66 20 67 46 75 6c | 6c 43 75 74 74 69 6e 67 | of gFul|lCutting|
|00030cf0| 73 29 20 6f 66 20 67 46 | 75 6c 6c 43 75 74 74 69 |s) of gF|ullCutti|
|00030d00| 6e 67 73 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 |ngs     |.       |
|00030d10| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 20 20 20 20 | else.  |        |
|00030d20| 73 65 74 20 67 43 75 72 | 43 75 74 74 69 6e 67 20 |set gCur|Cutting |
|00030d30| 3d 20 63 68 61 72 20 31 | 20 74 6f 20 28 74 68 65 |= char 1| to (the|
|00030d40| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 68 61 72 73 | number |of chars|
|00030d50| 20 6f 66 20 67 46 75 6c | 6c 43 75 74 74 69 6e 67 | of gFul|lCutting|
|00030d60| 73 29 20 6f 66 20 67 46 | 75 6c 6c 43 75 74 74 69 |s) of gF|ullCutti|
|00030d70| 6e 67 73 0d 20 20 20 20 | 20 20 20 20 65 6e 64 20 |ngs.    |    end |
|00030d80| 69 66 0d 20 20 20 20 20 | 20 65 6e 64 20 69 66 0d |if.     | end if.|
|00030d90| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 64 65 6c |      . |     del|
|00030da0| 65 74 65 20 6c 69 6e 65 | 20 31 20 74 6f 20 32 20 |ete line| 1 to 2 |
|00030db0| 6f 66 20 67 43 75 72 43 | 75 74 74 69 6e 67 0d 20 |of gCurC|utting. |
|00030dc0| 20 20 20 20 20 0d 20 20 | 20 20 20 20 2d 2d 20 62 |     .  |    -- b|
|00030dd0| 72 65 61 6b 20 74 68 65 | 20 74 65 78 74 20 63 6f |reak the| text co|
|00030de0| 72 72 65 63 74 6c 79 20 | 43 55 54 54 49 4e 47 0d |rrectly |CUTTING.|
|00030df0| 20 20 20 20 20 20 69 66 | 20 67 57 6f 72 6c 64 20 |      if| gWorld |
|00030e00| 3d 20 22 44 69 73 63 6f | 76 65 72 22 20 74 68 65 |= "Disco|ver" the|
|00030e10| 6e 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 67 46 |n.      |  set gF|
|00030e20| 6f 72 6d 61 74 74 65 64 | 54 65 78 74 20 3d 20 46 |ormatted|Text = F|
|00030e30| 69 6c 6c 54 65 78 74 28 | 67 43 75 72 43 75 74 74 |illText(|gCurCutt|
|00030e40| 69 6e 67 2c 22 54 69 6d | 65 73 22 2c 31 38 2c 34 |ing,"Tim|es",18,4|
|00030e50| 30 30 29 0d 20 20 20 20 | 20 20 65 6c 73 65 0d 20 |00).    |  else. |
|00030e60| 20 20 20 20 20 20 20 73 | 65 74 20 67 46 6f 72 6d |       s|et gForm|
|00030e70| 61 74 74 65 64 54 65 78 | 74 20 3d 20 46 69 6c 6c |attedTex|t = Fill|
|00030e80| 54 65 78 74 28 67 43 75 | 72 43 75 74 74 69 6e 67 |Text(gCu|rCutting|
|00030e90| 2c 22 54 69 6d 65 73 22 | 2c 31 38 2c 34 34 30 29 |,"Times"|,18,440)|
|00030ea0| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |.      e|nd if.  |
|00030eb0| 20 20 20 20 0d 20 20 20 | 20 20 20 64 65 6c 65 74 |    .   |   delet|
|00030ec0| 65 20 6c 69 6e 65 20 28 | 74 68 65 20 6e 75 6d 62 |e line (|the numb|
|00030ed0| 65 72 20 6f 66 20 6c 69 | 6e 65 73 20 6f 66 20 67 |er of li|nes of g|
|00030ee0| 46 6f 72 6d 61 74 74 65 | 64 54 65 78 74 29 20 6f |Formatte|dText) o|
|00030ef0| 66 20 67 46 6f 72 6d 61 | 74 74 65 64 54 65 78 74 |f gForma|ttedText|
|00030f00| 20 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 | .      |set the |
|00030f10| 74 65 78 74 20 6f 66 20 | 66 69 65 6c 64 20 22 63 |text of |field "c|
|00030f20| 75 74 74 69 6e 67 22 20 | 3d 20 6c 69 6e 65 20 31 |utting" |= line 1|
|00030f30| 20 74 6f 20 67 4d 61 78 | 4c 69 6e 65 73 20 6f 66 | to gMax|Lines of|
|00030f40| 20 67 46 6f 72 6d 61 74 | 74 65 64 54 65 78 74 0d | gFormat|tedText.|
|00030f50| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 74 65 |      se|t the te|
|00030f60| 78 74 68 65 69 67 68 74 | 20 6f 66 20 66 69 65 6c |xtheight| of fiel|
|00030f70| 64 20 22 63 75 74 74 69 | 6e 67 22 20 3d 20 32 31 |d "cutti|ng" = 21|
|00030f80| 20 2d 2d 20 6c 65 61 64 | 69 6e 67 0d 20 20 20 20 | -- lead|ing.    |
|00030f90| 20 20 73 65 74 20 74 6d | 70 6c 69 6e 65 73 20 3d |  set tm|plines =|
|00030fa0| 20 28 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 20 | (the nu|mber of |
|00030fb0| 6c 69 6e 65 73 20 6f 66 | 20 67 46 6f 72 6d 61 74 |lines of| gFormat|
|00030fc0| 74 65 64 54 65 78 74 29 | 20 0d 20 20 20 20 20 20 |tedText)| .      |
|00030fd0| 0d 20 20 20 20 20 20 2d | 2d 20 66 69 67 75 72 65 |.      -|- figure|
|00030fe0| 20 6f 75 74 20 68 6f 77 | 20 6d 61 6e 79 20 70 61 | out how| many pa|
|00030ff0| 67 65 73 20 77 65 20 68 | 61 76 65 0d 20 20 20 20 |ges we h|ave.    |
|00031000| 20 20 73 65 74 20 67 54 | 65 78 74 50 61 67 65 73 |  set gT|extPages|
|00031010| 20 3d 20 74 6d 70 6c 69 | 6e 65 73 20 2f 20 67 4d | = tmpli|nes / gM|
|00031020| 61 78 4c 69 6e 65 73 0d | 20 20 20 20 20 20 69 66 |axLines.|      if|
|00031030| 20 67 54 65 78 74 50 61 | 67 65 73 20 2a 20 67 4d | gTextPa|ges * gM|
|00031040| 61 78 4c 69 6e 65 73 20 | 3c 20 74 6d 70 6c 69 6e |axLines |< tmplin|
|00031050| 65 73 20 74 68 65 6e 20 | 73 65 74 20 67 54 65 78 |es then |set gTex|
|00031060| 74 50 61 67 65 73 20 3d | 20 67 54 65 78 74 50 61 |tPages =| gTextPa|
|00031070| 67 65 73 20 2b 20 31 0d | 20 20 20 20 20 20 0d 20 |ges + 1.|      . |
|00031080| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 0d 20 |   end i|f.    . |
|00031090| 20 20 20 2d 2d 20 67 65 | 74 20 72 69 64 20 6f 66 |   -- ge|t rid of|
|000310a0| 20 74 68 65 20 66 6f 72 | 77 61 72 64 20 61 6e 64 | the for|ward and|
|000310b0| 20 62 61 63 6b 77 61 72 | 64 20 62 75 74 74 6f 6e | backwar|d button|
|000310c0| 73 20 61 73 20 6e 65 63 | 65 73 73 61 72 79 0d 20 |s as nec|essary. |
|000310d0| 20 20 20 69 66 20 67 54 | 65 78 74 50 61 67 65 73 |   if gT|extPages|
|000310e0| 20 3d 20 31 20 74 68 65 | 6e 0d 20 20 20 20 20 20 | = 1 the|n.      |
|000310f0| 73 65 74 20 74 68 65 20 | 76 69 73 69 62 69 6c 69 |set the |visibili|
|00031100| 74 79 20 6f 66 20 73 70 | 72 69 74 65 20 66 6f 72 |ty of sp|rite for|
|00031110| 77 61 72 64 62 75 74 74 | 6f 6e 20 3d 20 30 0d 20 |wardbutt|on = 0. |
|00031120| 20 20 20 20 20 2d 2d 20 | 70 75 70 70 65 74 73 70 |     -- |puppetsp|
|00031130| 72 69 74 65 20 66 6f 72 | 77 61 72 64 62 75 74 74 |rite for|wardbutt|
|00031140| 6f 6e 2c 31 20 20 20 20 | 20 20 20 20 0d 20 20 20 |on,1    |    .   |
|00031150| 20 20 20 2d 2d 20 73 65 | 74 20 74 68 65 20 6c 6f |   -- se|t the lo|
|00031160| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 66 6f 72 |ch of sp|rite for|
|00031170| 77 61 72 64 62 75 74 74 | 6f 6e 20 3d 20 31 30 30 |wardbutt|on = 100|
|00031180| 30 0d 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |0.    el|se.     |
|00031190| 20 73 65 74 20 74 68 65 | 20 76 69 73 69 62 69 6c | set the| visibil|
|000311a0| 69 74 79 20 6f 66 20 73 | 70 72 69 74 65 20 66 6f |ity of s|prite fo|
|000311b0| 72 77 61 72 64 62 75 74 | 74 6f 6e 20 3d 20 31 0d |rwardbut|ton = 1.|
|000311c0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 73 |    end |if.    s|
|000311d0| 65 74 20 74 68 65 20 76 | 69 73 69 62 69 6c 69 74 |et the v|isibilit|
|000311e0| 79 20 6f 66 20 73 70 72 | 69 74 65 20 62 61 63 6b |y of spr|ite back|
|000311f0| 62 75 74 74 6f 6e 20 3d | 20 30 0d 20 20 20 20 2d |button =| 0.    -|
|00031200| 2d 20 70 75 70 70 65 74 | 73 70 72 69 74 65 20 62 |- puppet|sprite b|
|00031210| 61 63 6b 62 75 74 74 6f | 6e 2c 31 0d 20 20 20 20 |ackbutto|n,1.    |
|00031220| 2d 2d 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |-- set t|he loch |
|00031230| 6f 66 20 73 70 72 69 74 | 65 20 62 61 63 6b 62 75 |of sprit|e backbu|
|00031240| 74 74 6f 6e 20 3d 20 31 | 30 30 30 0d 20 20 20 20 |tton = 1|000.    |
|00031250| 0d 20 20 20 20 2d 2d 20 | 61 64 6a 75 73 74 20 74 |.    -- |adjust t|
|00031260| 68 65 20 68 65 69 67 68 | 74 20 6f 66 20 74 68 65 |he heigh|t of the|
|00031270| 20 43 75 74 74 69 6e 67 | 20 63 61 70 74 69 6f 6e | Cutting| caption|
|00031280| 2c 20 74 6f 20 63 65 6e | 74 65 72 20 69 74 0d 20 |, to cen|ter it. |
|00031290| 20 20 20 69 66 20 67 57 | 6f 72 6c 64 20 3d 20 22 |   if gW|orld = "|
|000312a0| 50 6f 77 65 72 22 20 74 | 68 65 6e 0d 20 20 20 20 |Power" t|hen.    |
|000312b0| 20 20 73 65 74 20 63 65 | 6e 74 65 72 70 6f 69 6e |  set ce|nterpoin|
|000312c0| 74 20 3d 20 32 37 37 0d | 20 20 20 20 65 6c 73 65 |t = 277.|    else|
|000312d0| 20 69 66 20 67 57 6f 72 | 6c 64 20 3d 20 22 44 65 | if gWor|ld = "De|
|000312e0| 73 69 67 6e 22 20 74 68 | 65 6e 0d 20 20 20 20 20 |sign" th|en.     |
|000312f0| 20 73 65 74 20 63 65 6e | 74 65 72 70 6f 69 6e 74 | set cen|terpoint|
|00031300| 20 3d 20 32 39 35 0d 20 | 20 20 20 65 6c 73 65 20 | = 295. |   else |
|00031310| 69 66 20 67 57 6f 72 6c | 64 20 3d 20 22 53 65 6e |if gWorl|d = "Sen|
|00031320| 73 65 73 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |ses" the|n.      |
|00031330| 73 65 74 20 63 65 6e 74 | 65 72 70 6f 69 6e 74 20 |set cent|erpoint |
|00031340| 3d 20 32 39 35 0d 20 20 | 20 20 65 6c 73 65 20 69 |= 295.  |  else i|
|00031350| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 4d 69 6e 64 |f gWorld| = "Mind|
|00031360| 22 20 74 68 65 6e 0d 20 | 20 20 20 20 20 73 65 74 |" then. |     set|
|00031370| 20 63 65 6e 74 65 72 70 | 6f 69 6e 74 20 3d 20 32 | centerp|oint = 2|
|00031380| 38 32 0d 20 20 20 20 65 | 6c 73 65 20 69 66 20 67 |82.    e|lse if g|
|00031390| 57 6f 72 6c 64 20 3d 20 | 22 42 6f 64 79 22 20 74 |World = |"Body" t|
|000313a0| 68 65 6e 0d 20 20 20 20 | 20 20 73 65 74 20 63 65 |hen.    |  set ce|
|000313b0| 6e 74 65 72 70 6f 69 6e | 74 20 3d 20 32 37 35 0d |nterpoin|t = 275.|
|000313c0| 20 20 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 |    else| if gWor|
|000313d0| 6c 64 20 3d 20 22 44 69 | 73 63 6f 76 65 72 22 20 |ld = "Di|scover" |
|000313e0| 74 68 65 6e 0d 20 20 20 | 20 20 20 73 65 74 20 63 |then.   |   set c|
|000313f0| 65 6e 74 65 72 70 6f 69 | 6e 74 20 3d 20 32 36 37 |enterpoi|nt = 267|
|00031400| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |.    end| if.    |
|00031410| 73 65 74 20 63 61 70 68 | 20 3d 20 74 68 65 20 68 |set caph| = the h|
|00031420| 65 69 67 68 74 20 6f 66 | 20 63 61 73 74 20 22 63 |eight of| cast "c|
|00031430| 61 70 74 69 6f 6e 22 0d | 20 20 20 20 0d 20 20 20 |aption".|    .   |
|00031440| 20 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f | .    se|t the lo|
|00031450| 63 76 20 6f 66 20 73 70 | 72 69 74 65 20 63 61 70 |cv of sp|rite cap|
|00031460| 74 69 6f 6e 73 70 72 69 | 74 65 20 3d 20 63 65 6e |tionspri|te = cen|
|00031470| 74 65 72 70 6f 69 6e 74 | 20 2d 20 28 63 61 70 68 |terpoint| - (caph|
|00031480| 2f 32 29 0d 20 20 20 20 | 0d 20 20 20 20 0d 20 20 |/2).    |.    .  |
|00031490| 20 20 2d 2d 20 70 75 74 | 20 74 68 65 20 73 63 72 |  -- put| the scr|
|000314a0| 65 65 6e 20 69 6e 20 70 | 6c 61 63 65 20 61 6c 6c |een in p|lace all|
|000314b0| 20 61 74 20 6f 6e 63 65 | 0d 20 20 20 20 73 65 74 | at once|.    set|
|000314c0| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|000314d0| 69 74 65 20 63 75 74 74 | 69 6e 67 73 70 72 69 74 |ite cutt|ingsprit|
|000314e0| 65 20 3d 20 63 75 74 74 | 69 6e 67 6c 6f 63 68 0d |e = cutt|ingloch.|
|000314f0| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 68 |    set |the loch|
|00031500| 20 6f 66 20 73 70 72 69 | 74 65 20 74 69 74 6c 65 | of spri|te title|
|00031510| 73 70 72 69 74 65 20 3d | 20 74 69 74 6c 65 6c 6f |sprite =| titlelo|
|00031520| 63 68 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |ch.    s|et the l|
|00031530| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 64 61 |och of s|prite da|
|00031540| 74 65 73 70 72 69 74 65 | 20 3d 20 64 61 74 65 6c |tesprite| = datel|
|00031550| 6f 63 68 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |och.    |set the |
|00031560| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 70 |loch of |sprite p|
|00031570| 61 70 65 72 73 70 72 69 | 74 65 20 3d 20 67 50 61 |aperspri|te = gPa|
|00031580| 70 65 72 6c 6f 63 68 20 | 0d 20 20 20 20 0d 20 20 |perloch |.    .  |
|00031590| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|000315a0| 66 20 73 70 72 69 74 65 | 20 63 61 70 74 69 6f 6e |f sprite| caption|
|000315b0| 73 70 72 69 74 65 20 3d | 20 63 61 70 74 69 6f 6e |sprite =| caption|
|000315c0| 6c 6f 63 68 0d 20 20 20 | 20 0d 20 20 20 20 69 66 |loch.   | .    if|
|000315d0| 20 67 57 6f 72 6c 64 20 | 3d 20 22 53 65 6e 73 65 | gWorld |= "Sense|
|000315e0| 73 22 20 74 68 65 6e 20 | 2d 2d 20 69 6e 20 73 65 |s" then |-- in se|
|000315f0| 6e 73 65 73 20 77 65 20 | 68 61 76 65 20 74 6f 20 |nses we |have to |
|00031600| 6d 6f 76 65 20 74 68 65 | 20 6e 61 6d 65 20 62 69 |move the| name bi|
|00031610| 74 6d 61 70 0d 20 20 20 | 20 20 20 73 65 74 20 74 |tmap.   |   set t|
|00031620| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00031630| 65 20 6e 61 6d 65 73 70 | 72 69 74 65 20 3d 20 39 |e namesp|rite = 9|
|00031640| 35 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |5.      |set the |
|00031650| 6c 6f 63 76 20 6f 66 20 | 73 70 72 69 74 65 20 6e |locv of |sprite n|
|00031660| 61 6d 65 73 70 72 69 74 | 65 20 3d 20 32 35 0d 20 |amesprit|e = 25. |
|00031670| 20 20 20 65 6c 73 65 20 | 69 66 20 67 57 6f 72 6c |   else |if gWorl|
|00031680| 64 20 3d 20 22 44 65 73 | 69 67 6e 22 20 74 68 65 |d = "Des|ign" the|
|00031690| 6e 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |n.      |set the |
|000316a0| 63 61 73 74 6e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castnum |of sprit|
|000316b0| 65 20 6e 61 6d 65 73 70 | 72 69 74 65 20 3d 20 74 |e namesp|rite = t|
|000316c0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 73 |he numbe|r of cas|
|000316d0| 74 20 28 67 4d 61 6b 65 | 72 4e 75 6d 20 26 20 22 |t (gMake|rNum & "|
|000316e0| 2e 6e 61 6d 65 32 22 29 | 0d 20 20 20 20 20 20 73 |.name2")|.      s|
|000316f0| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|00031700| 70 72 69 74 65 20 6e 61 | 6d 65 73 70 72 69 74 65 |prite na|mesprite|
|00031710| 20 3d 20 39 32 0d 20 20 | 20 20 20 20 73 65 74 20 | = 92.  |    set |
|00031720| 74 68 65 20 6c 6f 63 76 | 20 6f 66 20 73 70 72 69 |the locv| of spri|
|00031730| 74 65 20 6e 61 6d 65 73 | 70 72 69 74 65 20 3d 20 |te names|prite = |
|00031740| 34 38 0d 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |48.    e|nd if.  |
|00031750| 20 20 0d 20 20 20 20 75 | 70 64 61 74 65 73 74 61 |  .    u|pdatesta|
|00031760| 67 65 0d 20 20 20 20 0d | 20 20 20 20 2d 2d 20 6e |ge.    .|    -- n|
|00031770| 6f 72 6d 61 6c 20 63 75 | 72 73 6f 72 0d 20 20 20 |ormal cu|rsor.   |
|00031780| 20 63 75 72 73 6f 72 20 | 30 0d 20 20 20 20 0d 20 | cursor |0.    . |
|00031790| 20 20 20 2d 2d 20 50 41 | 52 54 57 4f 52 4b 0d 20 |   -- PA|RTWORK. |
|000317a0| 20 65 6c 73 65 20 69 66 | 20 74 79 70 65 20 3d 20 | else if| type = |
|000317b0| 22 70 61 72 74 77 6f 72 | 6b 22 20 6f 72 20 74 79 |"partwor|k" or ty|
|000317c0| 70 65 20 3d 20 22 50 61 | 72 74 77 6f 72 6b 22 20 |pe = "Pa|rtwork" |
|000317d0| 74 68 65 6e 20 20 0d 20 | 20 20 20 0d 20 20 20 20 |then  . |   .    |
|000317e0| 0d 20 20 20 20 69 66 20 | 67 43 75 72 43 68 61 70 |.    if |gCurChap|
|000317f0| 20 3d 20 31 20 74 68 65 | 6e 20 20 20 20 20 20 20 | = 1 the|n       |
|00031800| 20 20 20 20 2d 2d 20 72 | 65 61 6c 20 70 61 72 74 |    -- r|eal part|
|00031810| 77 6f 72 6b 0d 20 20 20 | 20 20 20 69 66 20 67 57 |work.   |   if gW|
|00031820| 6f 72 6c 64 20 3d 20 22 | 73 65 6e 73 65 73 22 20 |orld = "|senses" |
|00031830| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 73 65 74 |then.   |     set|
|00031840| 20 67 4d 61 78 4c 69 6e | 65 73 20 3d 20 32 30 0d | gMaxLin|es = 20.|
|00031850| 20 20 20 20 20 20 65 6c | 73 65 20 69 66 20 67 57 |      el|se if gW|
|00031860| 6f 72 6c 64 20 3d 20 22 | 6d 69 6e 64 22 20 74 68 |orld = "|mind" th|
|00031870| 65 6e 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 67 |en.     |   set g|
|00031880| 4d 61 78 4c 69 6e 65 73 | 20 3d 20 31 37 0d 20 20 |MaxLines| = 17.  |
|00031890| 20 20 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 |    else| if gWor|
|000318a0| 6c 64 20 3d 20 22 62 6f | 64 79 22 20 74 68 65 6e |ld = "bo|dy" then|
|000318b0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 67 4d 61 |.       | set gMa|
|000318c0| 78 4c 69 6e 65 73 20 3d | 20 31 37 0d 20 20 20 20 |xLines =| 17.    |
|000318d0| 20 20 65 6c 73 65 20 69 | 66 20 67 57 6f 72 6c 64 |  else i|f gWorld|
|000318e0| 20 3d 20 22 64 69 73 63 | 6f 76 65 72 22 20 74 68 | = "disc|over" th|
|000318f0| 65 6e 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 67 |en.     |   set g|
|00031900| 4d 61 78 4c 69 6e 65 73 | 20 3d 20 31 35 0d 20 20 |MaxLines| = 15.  |
|00031910| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 20 |    else|.       |
|00031920| 20 73 65 74 20 67 4d 61 | 78 4c 69 6e 65 73 20 3d | set gMa|xLines =|
|00031930| 20 31 35 0d 20 20 20 20 | 20 20 65 6e 64 20 69 66 | 15.    |  end if|
|00031940| 0d 20 20 20 20 65 6c 73 | 65 20 20 20 20 20 20 20 |.    els|e       |
|00031950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00031960| 20 20 20 20 2d 2d 20 69 | 6e 6e 65 72 20 70 61 72 |    -- i|nner par|
|00031970| 74 77 6f 72 6b 73 0d 20 | 20 20 20 20 20 0d 20 20 |tworks. |     .  |
|00031980| 20 20 20 20 0d 20 20 20 | 20 20 20 69 66 20 67 57 |    .   |   if gW|
|00031990| 6f 72 6c 64 20 3d 20 22 | 73 65 6e 73 65 73 22 20 |orld = "|senses" |
|000319a0| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 73 65 74 |then.   |     set|
|000319b0| 20 67 4d 61 78 4c 69 6e | 65 73 20 3d 20 31 31 0d | gMaxLin|es = 11.|
|000319c0| 20 20 20 20 20 20 65 6c | 73 65 20 69 66 20 67 57 |      el|se if gW|
|000319d0| 6f 72 6c 64 20 3d 20 22 | 6d 69 6e 64 22 20 74 68 |orld = "|mind" th|
|000319e0| 65 6e 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 67 |en.     |   set g|
|000319f0| 4d 61 78 4c 69 6e 65 73 | 20 3d 20 38 0d 20 20 20 |MaxLines| = 8.   |
|00031a00| 20 20 20 65 6c 73 65 20 | 69 66 20 67 57 6f 72 6c |   else |if gWorl|
|00031a10| 64 20 3d 20 22 64 69 73 | 63 6f 76 65 72 22 20 74 |d = "dis|cover" t|
|00031a20| 68 65 6e 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |hen.    |    set |
|00031a30| 67 4d 61 78 4c 69 6e 65 | 73 20 3d 20 38 0d 20 20 |gMaxLine|s = 8.  |
|00031a40| 20 20 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 |    else| if gWor|
|00031a50| 6c 64 20 3d 20 22 64 65 | 73 69 67 6e 22 20 74 68 |ld = "de|sign" th|
|00031a60| 65 6e 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 67 |en.     |   set g|
|00031a70| 4d 61 78 4c 69 6e 65 73 | 20 3d 20 37 0d 20 20 20 |MaxLines| = 7.   |
|00031a80| 20 20 20 65 6c 73 65 20 | 69 66 20 67 57 6f 72 6c |   else |if gWorl|
|00031a90| 64 20 3d 20 22 70 6f 77 | 65 72 22 20 74 68 65 6e |d = "pow|er" then|
|00031aa0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 67 4d 61 |.       | set gMa|
|00031ab0| 78 4c 69 6e 65 73 20 3d | 20 39 0d 20 20 20 20 20 |xLines =| 9.     |
|00031ac0| 20 65 6c 73 65 20 69 66 | 20 67 57 6f 72 6c 64 20 | else if| gWorld |
|00031ad0| 3d 20 22 62 6f 64 79 22 | 20 74 68 65 6e 0d 20 20 |= "body"| then.  |
|00031ae0| 20 20 20 20 20 20 73 65 | 74 20 67 4d 61 78 4c 69 |      se|t gMaxLi|
|00031af0| 6e 65 73 20 3d 20 31 31 | 0d 20 20 20 20 20 20 65 |nes = 11|.      e|
|00031b00| 6c 73 65 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |lse.    |    set |
|00031b10| 67 4d 61 78 4c 69 6e 65 | 73 20 3d 20 31 35 0d 20 |gMaxLine|s = 15. |
|00031b20| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00031b30| 20 20 0d 20 20 20 20 20 | 20 0d 20 20 20 20 65 6e |  .     | .    en|
|00031b40| 64 20 69 66 0d 20 20 20 | 20 0d 20 20 20 20 0d 20 |d if.   | .    . |
|00031b50| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |   set t|he loch |
|00031b60| 6f 66 20 73 70 72 69 74 | 65 20 68 65 61 64 73 70 |of sprit|e headsp|
|00031b70| 72 69 74 65 20 3d 20 68 | 65 61 64 6c 6f 63 68 0d |rite = h|eadloch.|
|00031b80| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 68 |    set |the loch|
|00031b90| 20 6f 66 20 73 70 72 69 | 74 65 20 70 69 63 73 70 | of spri|te picsp|
|00031ba0| 72 69 74 65 20 3d 20 31 | 30 30 30 0d 20 20 20 20 |rite = 1|000.    |
|00031bb0| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 70 61 70 |puppetsp|rite pap|
|00031bc0| 65 72 73 70 72 69 74 65 | 2c 30 0d 20 20 20 20 0d |ersprite|,0.    .|
|00031bd0| 20 20 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 |    set |the text|
|00031be0| 20 6f 66 20 66 69 65 6c | 64 20 22 63 61 70 74 69 | of fiel|d "capti|
|00031bf0| 6f 6e 2d 70 61 72 74 77 | 6f 72 6b 22 20 3d 20 20 |on-partw|ork" =  |
|00031c00| 20 22 20 22 0d 20 20 20 | 20 69 66 20 67 57 6f 72 | " ".   | if gWor|
|00031c10| 6c 64 20 3d 20 22 73 65 | 6e 73 65 73 22 20 74 68 |ld = "se|nses" th|
|00031c20| 65 6e 0d 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |en.     | set the|
|00031c30| 20 74 65 78 74 68 65 69 | 67 68 74 20 6f 66 20 66 | texthei|ght of f|
|00031c40| 69 65 6c 64 20 22 63 61 | 70 74 69 6f 6e 2d 70 61 |ield "ca|ption-pa|
|00031c50| 72 74 77 6f 72 6b 22 20 | 3d 20 32 35 0d 20 20 20 |rtwork" |= 25.   |
|00031c60| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 73 65 74 20 | else.  |    set |
|00031c70| 74 68 65 20 74 65 78 74 | 68 65 69 67 68 74 20 6f |the text|height o|
|00031c80| 66 20 66 69 65 6c 64 20 | 22 63 61 70 74 69 6f 6e |f field |"caption|
|00031c90| 2d 70 61 72 74 77 6f 72 | 6b 22 20 3d 20 31 38 0d |-partwor|k" = 18.|
|00031ca0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 0d |    end |if.    .|
|00031cb0| 20 20 20 20 0d 20 20 20 | 20 73 65 74 20 74 68 65 |    .   | set the|
|00031cc0| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|00031cd0| 70 61 72 74 77 6f 72 6b | 22 20 3d 20 22 20 22 0d |partwork|" = " ".|
|00031ce0| 20 20 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 |    set |the text|
|00031cf0| 20 6f 66 20 66 69 65 6c | 64 20 22 70 61 72 74 77 | of fiel|d "partw|
|00031d00| 6f 72 6b 32 22 20 3d 20 | 22 20 22 0d 20 20 20 20 |ork2" = |" ".    |
|00031d10| 73 65 74 20 74 68 65 20 | 74 65 78 74 73 69 7a 65 |set the |textsize|
|00031d20| 20 6f 66 20 66 69 65 6c | 64 20 22 70 61 72 74 77 | of fiel|d "partw|
|00031d30| 6f 72 6b 22 20 3d 20 31 | 34 0d 20 20 20 20 73 65 |ork" = 1|4.    se|
|00031d40| 74 20 74 68 65 20 74 65 | 78 74 73 69 7a 65 20 6f |t the te|xtsize o|
|00031d50| 66 20 66 69 65 6c 64 20 | 22 70 61 72 74 77 6f 72 |f field |"partwor|
|00031d60| 6b 32 22 20 3d 20 31 34 | 0d 20 20 20 20 0d 20 20 |k2" = 14|.    .  |
|00031d70| 20 20 0d 20 20 20 20 75 | 6e 70 75 70 70 65 74 20 |  .    u|npuppet |
|00031d80| 22 34 2c 31 30 22 20 20 | 0d 20 20 20 20 0d 20 20 |"4,10"  |.    .  |
|00031d90| 20 20 69 66 20 67 43 75 | 72 43 68 61 70 20 3e 20 |  if gCu|rChap > |
|00031da0| 31 20 20 74 68 65 6e 20 | 0d 20 20 20 20 20 20 69 |1  then |.      i|
|00031db0| 66 20 67 4d 61 6b 65 72 | 4e 75 6d 20 3d 20 31 31 |f gMaker|Num = 11|
|00031dc0| 39 20 74 68 65 6e 20 20 | 20 20 20 20 2d 2d 20 73 |9 then  |    -- s|
|00031dd0| 70 65 63 69 61 6c 20 63 | 61 73 65 20 66 6f 72 20 |pecial c|ase for |
|00031de0| 4d 61 74 69 73 73 65 0d | 20 20 20 20 20 20 20 20 |Matisse.|        |
|00031df0| 67 6f 20 74 6f 20 66 72 | 61 6d 65 20 22 69 6e 6e |go to fr|ame "inn|
|00031e00| 65 72 70 61 72 74 77 6f | 72 6b 2e 4d 41 54 22 0d |erpartwo|rk.MAT".|
|00031e10| 20 20 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |      el|se.     |
|00031e20| 20 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 22 |   go to| frame "|
|00031e30| 69 6e 6e 65 72 70 61 72 | 74 77 6f 72 6b 22 20 20 |innerpar|twork"  |
|00031e40| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |.      e|nd if.  |
|00031e50| 20 20 20 20 0d 20 20 20 | 20 20 20 70 75 70 70 65 |    .   |   puppe|
|00031e60| 74 73 70 72 69 74 65 20 | 70 69 63 73 70 72 69 74 |tsprite |picsprit|
|00031e70| 65 2c 31 0d 20 20 20 20 | 20 20 73 65 74 20 74 68 |e,1.    |  set th|
|00031e80| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00031e90| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 31 30 30 | picspri|te = 100|
|00031ea0| 30 0d 20 20 20 20 65 6c | 73 65 20 69 66 20 67 57 |0.    el|se if gW|
|00031eb0| 6f 72 6c 64 20 3d 20 22 | 50 6f 77 65 72 22 20 74 |orld = "|Power" t|
|00031ec0| 68 65 6e 0d 20 20 20 20 | 20 20 67 6f 20 74 6f 20 |hen.    |  go to |
|00031ed0| 66 72 61 6d 65 20 22 70 | 61 72 74 77 6f 72 6b 22 |frame "p|artwork"|
|00031ee0| 20 20 2d 2d 20 6e 61 72 | 72 6f 77 20 66 69 72 73 |  -- nar|row firs|
|00031ef0| 74 20 70 61 67 65 20 6f | 66 20 74 65 78 74 0d 20 |t page o|f text. |
|00031f00| 20 20 20 20 20 70 75 70 | 70 65 74 73 70 72 69 74 |     pup|petsprit|
|00031f10| 65 20 70 69 63 73 70 72 | 69 74 65 2c 31 0d 20 20 |e picspr|ite,1.  |
|00031f20| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 68 |    set |the loch|
|00031f30| 20 6f 66 20 73 70 72 69 | 74 65 20 70 69 63 73 70 | of spri|te picsp|
|00031f40| 72 69 74 65 20 3d 20 31 | 30 30 30 0d 20 20 20 20 |rite = 1|000.    |
|00031f50| 65 6c 73 65 20 0d 20 20 | 20 20 20 20 69 66 20 67 |else .  |    if g|
|00031f60| 4d 61 6b 65 72 6e 75 6d | 20 3d 20 31 31 39 20 74 |Makernum| = 119 t|
|00031f70| 68 65 6e 20 20 20 20 20 | 20 2d 2d 20 73 70 65 63 |hen     | -- spec|
|00031f80| 69 61 6c 20 63 61 73 65 | 20 66 6f 72 20 4d 61 74 |ial case| for Mat|
|00031f90| 69 73 73 65 0d 20 20 20 | 20 20 20 20 20 67 6f 20 |isse.   |     go |
|00031fa0| 74 6f 20 66 72 61 6d 65 | 20 22 70 61 72 74 77 6f |to frame| "partwo|
|00031fb0| 72 6b 32 2e 4d 41 54 22 | 20 2d 2d 20 77 69 64 65 |rk2.MAT"| -- wide|
|00031fc0| 20 66 69 72 73 74 20 70 | 61 67 65 20 6f 66 20 74 | first p|age of t|
|00031fd0| 65 78 74 0d 20 20 20 20 | 20 20 65 6c 73 65 0d 20 |ext.    |  else. |
|00031fe0| 20 20 20 20 20 20 20 67 | 6f 20 74 6f 20 66 72 61 |       g|o to fra|
|00031ff0| 6d 65 20 22 70 61 72 74 | 77 6f 72 6b 32 22 20 2d |me "part|work2" -|
|00032000| 2d 20 77 69 64 65 20 66 | 69 72 73 74 20 70 61 67 |- wide f|irst pag|
|00032010| 65 20 6f 66 20 74 65 78 | 74 0d 20 20 20 20 20 20 |e of tex|t.      |
|00032020| 65 6e 64 20 69 66 0d 20 | 20 20 20 65 6e 64 20 69 |end if. |   end i|
|00032030| 66 0d 20 20 20 20 0d 20 | 20 20 20 43 6c 65 61 6e |f.    . |   Clean|
|00032040| 4d 65 6d 0d 20 20 20 20 | 0d 20 20 20 20 2d 2d 20 |Mem.    |.    -- |
|00032050| 6d 6f 76 65 20 74 68 65 | 20 63 75 74 74 69 6e 67 |move the| cutting|
|00032060| 20 61 6e 64 20 63 61 70 | 74 69 6f 6e 20 6f 66 66 | and cap|tion off|
|00032070| 73 63 72 65 65 6e 0d 20 | 20 20 20 70 75 70 70 65 |screen. |   puppe|
|00032080| 74 73 70 72 69 74 65 20 | 63 75 74 74 69 6e 67 73 |tsprite |cuttings|
|00032090| 70 72 69 74 65 2c 31 0d | 20 20 20 20 73 65 74 20 |prite,1.|    set |
|000320a0| 63 75 74 74 69 6e 67 6c | 6f 63 68 20 3d 20 74 68 |cuttingl|och = th|
|000320b0| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|000320c0| 20 63 75 74 74 69 6e 67 | 73 70 72 69 74 65 0d 20 | cutting|sprite. |
|000320d0| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |   set t|he loch |
|000320e0| 6f 66 20 73 70 72 69 74 | 65 20 63 75 74 74 69 6e |of sprit|e cuttin|
|000320f0| 67 73 70 72 69 74 65 20 | 3d 20 31 30 30 30 0d 20 |gsprite |= 1000. |
|00032100| 20 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |   puppe|tsprite |
|00032110| 63 61 70 74 69 6f 6e 73 | 70 72 69 74 65 2c 31 0d |captions|prite,1.|
|00032120| 20 20 20 20 73 65 74 20 | 63 61 70 74 69 6f 6e 6c |    set |captionl|
|00032130| 6f 63 68 20 3d 20 74 68 | 65 20 6c 6f 63 68 20 6f |och = th|e loch o|
|00032140| 66 20 73 70 72 69 74 65 | 20 63 61 70 74 69 6f 6e |f sprite| caption|
|00032150| 73 70 72 69 74 65 0d 20 | 20 20 20 73 65 74 20 74 |sprite. |   set t|
|00032160| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00032170| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 20 |e captio|nsprite |
|00032180| 3d 20 31 30 30 30 0d 20 | 20 20 20 75 70 64 61 74 |= 1000. |   updat|
|00032190| 65 73 74 61 67 65 0d 20 | 20 20 20 0d 20 20 20 20 |estage. |   .    |
|000321a0| 69 66 20 67 57 6f 72 6c | 64 20 3d 20 22 53 65 6e |if gWorl|d = "Sen|
|000321b0| 73 65 73 22 20 6f 72 20 | 67 57 6f 72 6c 64 20 3d |ses" or |gWorld =|
|000321c0| 20 22 44 65 73 69 67 6e | 22 20 74 68 65 6e 0d 20 | "Design|" then. |
|000321d0| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |     set| the loc|
|000321e0| 68 20 6f 66 20 73 70 72 | 69 74 65 20 6e 61 6d 65 |h of spr|ite name|
|000321f0| 73 70 72 69 74 65 20 3d | 20 67 4e 61 6d 65 4c 6f |sprite =| gNameLo|
|00032200| 63 68 0d 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |ch.     | set the|
|00032210| 20 6c 6f 63 76 20 6f 66 | 20 73 70 72 69 74 65 20 | locv of| sprite |
|00032220| 6e 61 6d 65 73 70 72 69 | 74 65 20 3d 20 67 4e 61 |namespri|te = gNa|
|00032230| 6d 65 4c 6f 63 76 0d 20 | 20 20 20 65 6e 64 20 69 |meLocv. |   end i|
|00032240| 66 0d 20 20 20 20 0d 20 | 20 20 20 0d 20 20 20 20 |f.    . |   .    |
|00032250| 73 65 74 20 67 41 72 74 | 69 63 6c 65 50 61 67 65 |set gArt|iclePage|
|00032260| 20 3d 20 31 20 20 2d 2d | 20 73 74 61 72 74 20 6f | = 1  --| start o|
|00032270| 6e 20 70 61 67 65 20 6f | 6e 65 20 0d 20 20 20 20 |n page o|ne .    |
|00032280| 0d 20 20 20 20 2d 2d 20 | 67 65 74 20 74 68 65 20 |.    -- |get the |
|00032290| 74 65 78 74 20 20 20 0d | 20 20 20 20 73 65 74 20 |text   .|    set |
|000322a0| 74 6d 70 63 61 70 20 3d | 20 47 65 74 43 61 70 74 |tmpcap =| GetCapt|
|000322b0| 69 6f 6e 28 29 20 20 0d | 20 20 20 20 73 65 74 20 |ion()  .|    set |
|000322c0| 74 68 65 20 74 65 78 74 | 20 6f 66 20 66 69 65 6c |the text| of fiel|
|000322d0| 64 20 22 63 61 70 74 69 | 6f 6e 2d 70 61 72 74 77 |d "capti|on-partw|
|000322e0| 6f 72 6b 22 20 3d 20 20 | 74 6d 70 63 61 70 0d 20 |ork" =  |tmpcap. |
|000322f0| 20 20 20 0d 20 20 20 20 | 2d 2d 20 66 69 6e 64 20 |   .    |-- find |
|00032300| 74 68 65 20 69 6e 64 65 | 78 20 69 6e 20 74 68 65 |the inde|x in the|
|00032310| 20 69 6e 64 65 78 20 6c | 69 73 74 0d 20 20 20 20 | index l|ist.    |
|00032320| 73 65 74 20 6e 75 6d 20 | 3d 20 74 68 65 20 6e 75 |set num |= the nu|
|00032330| 6d 62 65 72 20 6f 66 20 | 69 74 65 6d 73 20 6f 66 |mber of |items of|
|00032340| 20 67 43 75 72 49 6e 64 | 65 78 0d 20 20 20 20 73 | gCurInd|ex.    s|
|00032350| 65 74 20 69 6e 64 65 78 | 20 3d 20 2d 31 0d 20 20 |et index| = -1.  |
|00032360| 20 20 73 65 74 20 61 72 | 74 20 3d 20 67 43 75 72 |  set ar|t = gCur|
|00032370| 43 68 61 70 20 26 20 22 | 2e 22 20 26 20 67 43 75 |Chap & "|." & gCu|
|00032380| 72 41 72 74 69 63 6c 65 | 0d 20 20 20 20 0d 20 20 |rArticle|.    .  |
|00032390| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 |  repeat| with i |
|000323a0| 3d 20 32 20 74 6f 20 6e | 75 6d 0d 20 20 20 20 20 |= 2 to n|um.     |
|000323b0| 20 73 65 74 20 74 6d 70 | 20 3d 20 69 74 65 6d 20 | set tmp| = item |
|000323c0| 69 20 6f 66 20 67 43 75 | 72 49 6e 64 65 78 0d 20 |i of gCu|rIndex. |
|000323d0| 20 20 20 20 20 73 65 74 | 20 74 6d 70 32 20 3d 20 |     set| tmp2 = |
|000323e0| 69 74 65 6d 20 28 69 2b | 31 29 20 6f 66 20 67 43 |item (i+|1) of gC|
|000323f0| 75 72 49 6e 64 65 78 0d | 20 20 20 20 20 20 0d 20 |urIndex.|      . |
|00032400| 20 20 20 20 20 69 66 20 | 28 61 72 74 20 3d 20 63 |     if |(art = c|
|00032410| 68 61 72 20 31 20 74 6f | 20 33 20 6f 66 20 74 6d |har 1 to| 3 of tm|
|00032420| 70 29 20 6f 72 20 28 67 | 43 75 72 43 68 61 70 20 |p) or (g|CurChap |
|00032430| 3d 20 31 20 61 6e 64 20 | 63 68 61 72 20 31 20 6f |= 1 and |char 1 o|
|00032440| 66 20 74 6d 70 20 3d 20 | 22 31 22 29 20 74 68 65 |f tmp = |"1") the|
|00032450| 6e 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 |n.      |  set th|
|00032460| 65 20 69 74 65 6d 64 65 | 6c 69 6d 69 74 65 72 20 |e itemde|limiter |
|00032470| 3d 20 22 3a 22 0d 20 20 | 20 20 20 20 20 20 73 65 |= ":".  |      se|
|00032480| 74 20 69 6e 64 65 78 20 | 3d 20 76 61 6c 75 65 28 |t index |= value(|
|00032490| 69 74 65 6d 20 32 20 6f | 66 20 74 6d 70 29 0d 20 |item 2 o|f tmp). |
|000324a0| 20 20 20 20 20 20 20 73 | 65 74 20 6e 65 78 74 69 |       s|et nexti|
|000324b0| 6e 64 65 78 20 3d 20 76 | 61 6c 75 65 20 28 69 74 |ndex = v|alue (it|
|000324c0| 65 6d 20 32 20 6f 66 20 | 74 6d 70 32 29 0d 20 20 |em 2 of |tmp2).  |
|000324d0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 69 74 |      se|t the it|
|000324e0| 65 6d 64 65 6c 69 6d 69 | 74 65 72 20 3d 20 22 2c |emdelimi|ter = ",|
|000324f0| 22 0d 20 20 20 20 20 20 | 20 20 65 78 69 74 20 72 |".      |  exit r|
|00032500| 65 70 65 61 74 0d 20 20 | 20 20 20 20 65 6e 64 20 |epeat.  |    end |
|00032510| 69 66 0d 20 20 20 20 65 | 6e 64 20 72 65 70 65 61 |if.    e|nd repea|
|00032520| 74 0d 20 20 20 20 0d 20 | 20 20 20 0d 20 20 20 20 |t.    . |   .    |
|00032530| 2d 2d 20 67 65 74 20 74 | 68 65 20 63 75 74 74 69 |-- get t|he cutti|
|00032540| 6e 67 20 74 65 78 74 0d | 20 20 20 20 2d 2d 20 69 |ng text.|    -- i|
|00032550| 74 73 20 6f 6b 20 69 66 | 20 74 68 65 20 63 75 74 |ts ok if| the cut|
|00032560| 74 69 6e 67 20 73 68 6f | 77 73 20 75 70 20 61 20 |ting sho|ws up a |
|00032570| 62 69 74 20 61 66 74 65 | 72 20 74 68 65 20 72 65 |bit afte|r the re|
|00032580| 73 74 20 6f 66 20 74 68 | 65 20 73 63 72 65 65 6e |st of th|e screen|
|00032590| 20 20 20 0d 20 20 20 20 | 70 75 74 20 22 69 6e 64 |   .    |put "ind|
|000325a0| 65 78 20 3d 20 22 20 26 | 26 20 69 6e 64 65 78 20 |ex = " &|& index |
|000325b0| 26 26 20 22 6e 65 78 74 | 69 6e 64 65 78 20 3d 20 |&& "next|index = |
|000325c0| 22 20 26 26 20 6e 65 78 | 74 69 6e 64 65 78 0d 20 |" && nex|tindex. |
|000325d0| 20 20 20 69 66 20 69 6e | 64 65 78 20 3c 3e 20 2d |   if in|dex <> -|
|000325e0| 31 20 74 68 65 6e 0d 20 | 20 20 20 20 20 2d 2d 20 |1 then. |     -- |
|000325f0| 67 65 74 20 74 68 65 20 | 6e 65 63 65 73 73 61 72 |get the |necessar|
|00032600| 79 20 61 72 74 69 63 6c | 65 20 6f 75 74 20 6f 66 |y articl|e out of|
|00032610| 20 74 68 65 20 67 46 75 | 6c 6c 43 75 74 74 69 6e | the gFu|llCuttin|
|00032620| 67 73 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 69 |gs      |.      i|
|00032630| 66 20 6e 65 78 74 69 6e | 64 65 78 20 3c 3e 20 22 |f nextin|dex <> "|
|00032640| 22 20 61 6e 64 20 6e 65 | 78 74 69 6e 64 65 78 20 |" and ne|xtindex |
|00032650| 3c 3e 20 30 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |<> 0 the|n.      |
|00032660| 20 20 69 66 20 69 6e 64 | 65 78 20 3e 20 30 20 74 |  if ind|ex > 0 t|
|00032670| 68 65 6e 0d 20 20 20 20 | 20 20 20 20 20 20 73 65 |hen.    |      se|
|00032680| 74 20 67 43 75 72 43 75 | 74 74 69 6e 67 20 3d 20 |t gCurCu|tting = |
|00032690| 63 68 61 72 20 69 6e 64 | 65 78 20 74 6f 20 6e 65 |char ind|ex to ne|
|000326a0| 78 74 69 6e 64 65 78 20 | 6f 66 20 67 46 75 6c 6c |xtindex |of gFull|
|000326b0| 43 75 74 74 69 6e 67 73 | 0d 20 20 20 20 20 20 20 |Cuttings|.       |
|000326c0| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 20 20 20 20 | else.  |        |
|000326d0| 73 65 74 20 67 43 75 72 | 43 75 74 74 69 6e 67 20 |set gCur|Cutting |
|000326e0| 3d 20 63 68 61 72 20 31 | 20 74 6f 20 6e 65 78 74 |= char 1| to next|
|000326f0| 69 6e 64 65 78 20 6f 66 | 20 67 46 75 6c 6c 43 75 |index of| gFullCu|
|00032700| 74 74 69 6e 67 73 0d 20 | 20 20 20 20 20 20 20 65 |ttings. |       e|
|00032710| 6e 64 20 69 66 0d 20 20 | 20 20 20 20 65 6c 73 65 |nd if.  |    else|
|00032720| 0d 20 20 20 20 20 20 20 | 20 69 66 20 69 6e 64 65 |.       | if inde|
|00032730| 78 20 3e 20 30 20 74 68 | 65 6e 0d 20 20 20 20 20 |x > 0 th|en.     |
|00032740| 20 20 20 20 20 73 65 74 | 20 67 43 75 72 43 75 74 |     set| gCurCut|
|00032750| 74 69 6e 67 20 3d 20 63 | 68 61 72 20 69 6e 64 65 |ting = c|har inde|
|00032760| 78 20 74 6f 20 28 74 68 | 65 20 6e 75 6d 62 65 72 |x to (th|e number|
|00032770| 20 6f 66 20 63 68 61 72 | 73 20 6f 66 20 67 46 75 | of char|s of gFu|
|00032780| 6c 6c 43 75 74 74 69 6e | 67 73 29 20 6f 66 20 67 |llCuttin|gs) of g|
|00032790| 46 75 6c 6c 43 75 74 74 | 69 6e 67 73 20 20 20 20 |FullCutt|ings    |
|000327a0| 20 0d 20 20 20 20 20 20 | 20 20 65 6c 73 65 0d 20 | .      |  else. |
|000327b0| 20 20 20 20 20 20 20 20 | 20 73 65 74 20 67 43 75 |        | set gCu|
|000327c0| 72 43 75 74 74 69 6e 67 | 20 3d 20 63 68 61 72 20 |rCutting| = char |
|000327d0| 31 20 74 6f 20 28 74 68 | 65 20 6e 75 6d 62 65 72 |1 to (th|e number|
|000327e0| 20 6f 66 20 63 68 61 72 | 73 20 6f 66 20 67 46 75 | of char|s of gFu|
|000327f0| 6c 6c 43 75 74 74 69 6e | 67 73 29 20 6f 66 20 67 |llCuttin|gs) of g|
|00032800| 46 75 6c 6c 43 75 74 74 | 69 6e 67 73 0d 20 20 20 |FullCutt|ings.   |
|00032810| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00032820| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 20 20 0d |  end if|.      .|
|00032830| 20 20 20 20 20 20 2d 2d | 20 64 65 6c 65 74 65 20 |      --| delete |
|00032840| 74 68 65 20 69 6e 69 74 | 69 61 6c 20 40 20 61 6e |the init|ial @ an|
|00032850| 64 20 61 72 74 69 63 6c | 65 20 6e 75 6d 62 65 72 |d articl|e number|
|00032860| 0d 20 20 20 20 20 20 69 | 66 20 69 6e 64 65 78 20 |.      i|f index |
|00032870| 3d 20 30 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |= 0 then|.       |
|00032880| 20 64 65 6c 65 74 65 20 | 6c 69 6e 65 20 31 20 6f | delete |line 1 o|
|00032890| 66 20 67 43 75 72 43 75 | 74 74 69 6e 67 0d 20 20 |f gCurCu|tting.  |
|000328a0| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 20 |    else|.       |
|000328b0| 20 64 65 6c 65 74 65 20 | 6c 69 6e 65 20 31 20 74 | delete |line 1 t|
|000328c0| 6f 20 32 20 6f 66 20 67 | 43 75 72 43 75 74 74 69 |o 2 of g|CurCutti|
|000328d0| 6e 67 0d 20 20 20 20 20 | 20 65 6e 64 20 69 66 0d |ng.     | end if.|
|000328e0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 69 66 20 |      . |     if |
|000328f0| 67 57 6f 72 6c 64 20 3d | 20 22 73 65 6e 73 65 73 |gWorld =| "senses|
|00032900| 22 20 74 68 65 6e 0d 20 | 20 20 20 20 20 20 20 73 |" then. |       s|
|00032910| 65 74 20 63 75 74 74 69 | 6e 67 77 69 64 74 68 20 |et cutti|ngwidth |
|00032920| 3d 20 33 36 30 0d 20 20 | 20 20 20 20 65 6c 73 65 |= 360.  |    else|
|00032930| 20 69 66 20 67 57 6f 72 | 6c 64 20 3d 20 22 64 69 | if gWor|ld = "di|
|00032940| 73 63 6f 76 65 72 22 20 | 74 68 65 6e 0d 20 20 20 |scover" |then.   |
|00032950| 20 20 20 20 20 73 65 74 | 20 63 75 74 74 69 6e 67 |     set| cutting|
|00032960| 77 69 64 74 68 20 3d 20 | 34 34 30 0d 20 20 20 20 |width = |440.    |
|00032970| 20 20 65 6c 73 65 20 69 | 66 20 67 57 6f 72 6c 64 |  else i|f gWorld|
|00032980| 20 3d 20 22 62 6f 64 79 | 22 20 74 68 65 6e 0d 20 | = "body|" then. |
|00032990| 20 20 20 20 20 20 20 73 | 65 74 20 63 75 74 74 69 |       s|et cutti|
|000329a0| 6e 67 77 69 64 74 68 20 | 3d 20 34 34 30 0d 20 20 |ngwidth |= 440.  |
|000329b0| 20 20 20 20 65 6c 73 65 | 0d 20 20 20 20 20 20 20 |    else|.       |
|000329c0| 20 73 65 74 20 63 75 74 | 74 69 6e 67 77 69 64 74 | set cut|tingwidt|
|000329d0| 68 20 3d 20 34 34 30 0d | 20 20 20 20 20 20 65 6e |h = 440.|      en|
|000329e0| 64 20 69 66 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |d if.   |   .    |
|000329f0| 20 20 2d 2d 20 70 61 72 | 74 77 6f 72 6b 0d 20 20 |  -- par|twork.  |
|00032a00| 20 20 20 20 0d 20 20 20 | 20 20 20 69 66 20 67 57 |    .   |   if gW|
|00032a10| 6f 72 6c 64 20 3d 20 22 | 50 6f 77 65 72 22 20 61 |orld = "|Power" a|
|00032a20| 6e 64 20 67 43 75 72 43 | 68 61 70 20 3d 20 31 20 |nd gCurC|hap = 1 |
|00032a30| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |then.   |     -- |
|00032a40| 62 72 65 61 6b 20 74 68 | 65 20 74 65 78 74 20 63 |break th|e text c|
|00032a50| 6f 72 72 65 63 74 6c 79 | 2c 20 69 65 2e 20 6e 61 |orrectly|, ie. na|
|00032a60| 72 72 6f 77 20 66 69 72 | 73 74 20 70 61 67 65 20 |rrow fir|st page |
|00032a70| 6f 66 20 74 65 78 74 0d | 20 20 20 20 20 20 20 20 |of text.|        |
|00032a80| 73 65 74 20 67 46 6f 72 | 6d 61 74 74 65 64 54 65 |set gFor|mattedTe|
|00032a90| 78 74 20 3d 20 46 69 6c | 6c 54 65 78 74 28 67 43 |xt = Fil|lText(gC|
|00032aa0| 75 72 43 75 74 74 69 6e | 67 2c 22 47 65 6e 65 76 |urCuttin|g,"Genev|
|00032ab0| 61 22 2c 31 34 2c 31 37 | 30 29 0d 20 20 20 20 20 |a",14,17|0).     |
|00032ac0| 20 20 20 64 65 6c 65 74 | 65 20 6c 69 6e 65 20 28 |   delet|e line (|
|00032ad0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |the numb|er of li|
|00032ae0| 6e 65 73 20 6f 66 20 67 | 46 6f 72 6d 61 74 74 65 |nes of g|Formatte|
|00032af0| 64 54 65 78 74 29 20 6f | 66 20 67 46 6f 72 6d 61 |dText) o|f gForma|
|00032b00| 74 74 65 64 54 65 78 74 | 20 20 20 0d 20 20 20 20 |ttedText|   .    |
|00032b10| 20 20 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 |    set |the text|
|00032b20| 20 6f 66 20 66 69 65 6c | 64 20 22 70 61 72 74 77 | of fiel|d "partw|
|00032b30| 6f 72 6b 22 20 3d 20 6c | 69 6e 65 20 31 20 74 6f |ork" = l|ine 1 to|
|00032b40| 20 67 4d 61 78 4c 69 6e | 65 73 20 6f 66 20 67 46 | gMaxLin|es of gF|
|00032b50| 6f 72 6d 61 74 74 65 64 | 54 65 78 74 20 20 0d 20 |ormatted|Text  . |
|00032b60| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 74 |       s|et the t|
|00032b70| 65 78 74 68 65 69 67 68 | 74 20 6f 66 20 66 69 65 |extheigh|t of fie|
|00032b80| 6c 64 20 22 70 61 72 74 | 77 6f 72 6b 22 20 3d 20 |ld "part|work" = |
|00032b90| 32 30 20 2d 2d 20 70 61 | 72 74 77 6f 72 6b 20 6c |20 -- pa|rtwork l|
|00032ba0| 65 61 64 69 6e 67 0d 20 | 20 20 20 20 20 20 20 73 |eading. |       s|
|00032bb0| 65 74 20 74 68 65 20 74 | 65 78 74 68 65 69 67 68 |et the t|extheigh|
|00032bc0| 74 20 6f 66 20 66 69 65 | 6c 64 20 22 70 61 72 74 |t of fie|ld "part|
|00032bd0| 77 6f 72 6b 32 22 20 3d | 20 32 30 20 2d 2d 20 70 |work2" =| 20 -- p|
|00032be0| 61 72 74 77 6f 72 6b 20 | 6c 65 61 64 69 6e 67 0d |artwork |leading.|
|00032bf0| 20 20 20 20 20 20 20 20 | 73 65 74 20 67 46 6f 72 |        |set gFor|
|00032c00| 6d 61 74 74 65 64 54 65 | 78 74 20 3d 20 6c 69 6e |mattedTe|xt = lin|
|00032c10| 65 20 31 20 74 6f 20 67 | 4d 61 78 4c 69 6e 65 73 |e 1 to g|MaxLines|
|00032c20| 20 6f 66 20 67 46 6f 72 | 6d 61 74 74 65 64 54 65 | of gFor|mattedTe|
|00032c30| 78 74 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |xt.     |   set t|
|00032c40| 6d 70 6e 75 6d 20 3d 20 | 74 68 65 20 6e 75 6d 62 |mpnum = |the numb|
|00032c50| 65 72 20 6f 66 20 77 6f | 72 64 73 20 6f 66 20 67 |er of wo|rds of g|
|00032c60| 46 6f 72 6d 61 74 74 65 | 64 54 65 78 74 0d 20 20 |Formatte|dText.  |
|00032c70| 20 20 20 20 20 20 64 65 | 6c 65 74 65 20 77 6f 72 |      de|lete wor|
|00032c80| 64 20 31 20 74 6f 20 74 | 6d 70 6e 75 6d 20 6f 66 |d 1 to t|mpnum of|
|00032c90| 20 67 43 75 72 43 75 74 | 74 69 6e 67 0d 20 20 20 | gCurCut|ting.   |
|00032ca0| 20 20 20 20 20 73 65 74 | 20 74 6d 70 74 65 78 74 |     set| tmptext|
|00032cb0| 20 3d 20 46 69 6c 6c 54 | 65 78 74 28 67 43 75 72 | = FillT|ext(gCur|
|00032cc0| 43 75 74 74 69 6e 67 2c | 22 47 65 6e 65 76 61 22 |Cutting,|"Geneva"|
|00032cd0| 2c 31 34 2c 63 75 74 74 | 69 6e 67 77 69 64 74 68 |,14,cutt|ingwidth|
|00032ce0| 29 0d 20 20 20 20 20 20 | 20 20 70 75 74 20 72 65 |).      |  put re|
|00032cf0| 74 75 72 6e 20 26 20 74 | 6d 70 74 65 78 74 20 61 |turn & t|mptext a|
|00032d00| 66 74 65 72 20 67 46 6f | 72 6d 61 74 74 65 64 54 |fter gFo|rmattedT|
|00032d10| 65 78 74 0d 20 20 20 20 | 20 20 20 20 64 65 6c 65 |ext.    |    dele|
|00032d20| 74 65 20 6c 69 6e 65 20 | 28 74 68 65 20 6e 75 6d |te line |(the num|
|00032d30| 62 65 72 20 6f 66 20 6c | 69 6e 65 73 20 6f 66 20 |ber of l|ines of |
|00032d40| 67 46 6f 72 6d 61 74 74 | 65 64 54 65 78 74 29 20 |gFormatt|edText) |
|00032d50| 6f 66 20 67 46 6f 72 6d | 61 74 74 65 64 54 65 78 |of gForm|attedTex|
|00032d60| 74 20 20 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |t  .    |    set |
|00032d70| 74 6d 70 6c 69 6e 65 73 | 20 3d 20 28 74 68 65 20 |tmplines| = (the |
|00032d80| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|00032d90| 6f 66 20 67 46 6f 72 6d | 61 74 74 65 64 54 65 78 |of gForm|attedTex|
|00032da0| 74 29 20 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |t) .    |    .   |
|00032db0| 20 20 20 20 20 2d 2d 20 | 61 64 64 20 61 20 66 75 |     -- |add a fu|
|00032dc0| 6c 6c 73 74 6f 70 0d 20 | 20 20 20 20 20 20 20 73 |llstop. |       s|
|00032dd0| 65 74 20 74 6d 70 63 68 | 61 72 20 3d 20 74 68 65 |et tmpch|ar = the|
|00032de0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 68 61 72 73 | number |of chars|
|00032df0| 20 6f 66 20 67 46 6f 72 | 6d 61 74 74 65 64 54 65 | of gFor|mattedTe|
|00032e00| 78 74 0d 20 20 20 20 20 | 20 20 20 69 66 20 63 68 |xt.     |   if ch|
|00032e10| 61 72 20 74 6d 70 63 68 | 61 72 20 6f 66 20 67 46 |ar tmpch|ar of gF|
|00032e20| 6f 72 6d 61 74 74 65 64 | 54 65 78 74 20 3d 20 72 |ormatted|Text = r|
|00032e30| 65 74 75 72 6e 20 74 68 | 65 6e 20 0d 20 20 20 20 |eturn th|en .    |
|00032e40| 20 20 20 20 20 20 70 75 | 74 20 22 2e 22 20 69 6e |      pu|t "." in|
|00032e50| 74 6f 20 63 68 61 72 20 | 28 74 6d 70 63 68 61 72 |to char |(tmpchar|
|00032e60| 29 20 6f 66 20 67 46 6f | 72 6d 61 74 74 65 64 54 |) of gFo|rmattedT|
|00032e70| 65 78 74 0d 20 20 20 20 | 20 20 20 20 65 6c 73 65 |ext.    |    else|
|00032e80| 0d 20 20 20 20 20 20 20 | 20 20 20 70 75 74 20 22 |.       |   put "|
|00032e90| 2e 22 20 69 6e 74 6f 20 | 63 68 61 72 20 28 74 6d |." into |char (tm|
|00032ea0| 70 63 68 61 72 2b 31 29 | 20 6f 66 20 67 46 6f 72 |pchar+1)| of gFor|
|00032eb0| 6d 61 74 74 65 64 54 65 | 78 74 0d 20 20 20 20 20 |mattedTe|xt.     |
|00032ec0| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 20 20 |   end i|f.      |
|00032ed0| 20 20 0d 20 20 20 20 20 | 20 65 6c 73 65 20 20 2d |  .     | else  -|
|00032ee0| 2d 20 77 69 64 65 20 66 | 69 72 73 74 20 70 61 67 |- wide f|irst pag|
|00032ef0| 65 20 6f 66 20 74 65 78 | 74 0d 20 20 20 20 20 20 |e of tex|t.      |
|00032f00| 20 20 73 65 74 20 67 46 | 6f 72 6d 61 74 74 65 64 |  set gF|ormatted|
|00032f10| 54 65 78 74 20 3d 20 46 | 69 6c 6c 54 65 78 74 28 |Text = F|illText(|
|00032f20| 67 43 75 72 43 75 74 74 | 69 6e 67 2c 22 47 65 6e |gCurCutt|ing,"Gen|
|00032f30| 65 76 61 22 2c 31 34 2c | 63 75 74 74 69 6e 67 77 |eva",14,|cuttingw|
|00032f40| 69 64 74 68 29 0d 20 20 | 20 20 20 20 20 20 64 65 |idth).  |      de|
|00032f50| 6c 65 74 65 20 6c 69 6e | 65 20 28 74 68 65 20 6e |lete lin|e (the n|
|00032f60| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|00032f70| 66 20 67 46 6f 72 6d 61 | 74 74 65 64 54 65 78 74 |f gForma|ttedText|
|00032f80| 29 20 6f 66 20 67 46 6f | 72 6d 61 74 74 65 64 54 |) of gFo|rmattedT|
|00032f90| 65 78 74 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |ext.    |    set |
|00032fa0| 74 6d 70 6c 69 6e 65 73 | 20 3d 20 28 74 68 65 20 |tmplines| = (the |
|00032fb0| 6e 75 6d 62 65 72 20 6f | 66 20 6c 69 6e 65 73 20 |number o|f lines |
|00032fc0| 6f 66 20 67 46 6f 72 6d | 61 74 74 65 64 54 65 78 |of gForm|attedTex|
|00032fd0| 74 29 0d 20 20 20 20 20 | 20 20 20 0d 20 20 20 20 |t).     |   .    |
|00032fe0| 20 20 20 20 2d 2d 20 61 | 64 64 20 61 20 66 75 6c |    -- a|dd a ful|
|00032ff0| 6c 73 74 6f 70 0d 20 20 | 20 20 20 20 20 20 73 65 |lstop.  |      se|
|00033000| 74 20 74 6d 70 63 68 61 | 72 20 3d 20 74 68 65 20 |t tmpcha|r = the |
|00033010| 6e 75 6d 62 65 72 20 6f | 66 20 63 68 61 72 73 20 |number o|f chars |
|00033020| 6f 66 20 67 46 6f 72 6d | 61 74 74 65 64 54 65 78 |of gForm|attedTex|
|00033030| 74 0d 20 20 20 20 20 20 | 20 20 69 66 20 63 68 61 |t.      |  if cha|
|00033040| 72 20 74 6d 70 63 68 61 | 72 20 6f 66 20 67 46 6f |r tmpcha|r of gFo|
|00033050| 72 6d 61 74 74 65 64 54 | 65 78 74 20 3d 20 72 65 |rmattedT|ext = re|
|00033060| 74 75 72 6e 20 74 68 65 | 6e 20 0d 20 20 20 20 20 |turn the|n .     |
|00033070| 20 20 20 20 20 70 75 74 | 20 22 2e 22 20 69 6e 74 |     put| "." int|
|00033080| 6f 20 63 68 61 72 20 28 | 74 6d 70 63 68 61 72 29 |o char (|tmpchar)|
|00033090| 20 6f 66 20 67 46 6f 72 | 6d 61 74 74 65 64 54 65 | of gFor|mattedTe|
|000330a0| 78 74 0d 20 20 20 20 20 | 20 20 20 65 6c 73 65 0d |xt.     |   else.|
|000330b0| 20 20 20 20 20 20 20 20 | 20 20 70 75 74 20 22 2e |        |  put ".|
|000330c0| 22 20 69 6e 74 6f 20 63 | 68 61 72 20 28 74 6d 70 |" into c|har (tmp|
|000330d0| 63 68 61 72 2b 31 29 20 | 6f 66 20 67 46 6f 72 6d |char+1) |of gForm|
|000330e0| 61 74 74 65 64 54 65 78 | 74 0d 20 20 20 20 20 20 |attedTex|t.      |
|000330f0| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 20 20 20 |  end if|.       |
|00033100| 20 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 | .      |  set th|
|00033110| 65 20 74 65 78 74 20 6f | 66 20 66 69 65 6c 64 20 |e text o|f field |
|00033120| 22 70 61 72 74 77 6f 72 | 6b 32 22 20 3d 20 22 20 |"partwor|k2" = " |
|00033130| 22 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 |".      |  set th|
|00033140| 65 20 74 65 78 74 68 65 | 69 67 68 74 20 6f 66 20 |e texthe|ight of |
|00033150| 66 69 65 6c 64 20 22 70 | 61 72 74 77 6f 72 6b 32 |field "p|artwork2|
|00033160| 22 20 3d 20 32 30 20 2d | 2d 20 70 61 72 74 77 6f |" = 20 -|- partwo|
|00033170| 72 6b 20 6c 65 61 64 69 | 6e 67 0d 20 20 20 20 20 |rk leadi|ng.     |
|00033180| 20 20 20 73 65 74 20 74 | 68 65 20 74 65 78 74 20 |   set t|he text |
|00033190| 6f 66 20 66 69 65 6c 64 | 20 22 70 61 72 74 77 6f |of field| "partwo|
|000331a0| 72 6b 32 22 20 3d 20 6c | 69 6e 65 20 31 20 74 6f |rk2" = l|ine 1 to|
|000331b0| 20 67 4d 61 78 4c 69 6e | 65 73 20 6f 66 20 67 46 | gMaxLin|es of gF|
|000331c0| 6f 72 6d 61 74 74 65 64 | 54 65 78 74 20 20 0d 20 |ormatted|Text  . |
|000331d0| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|000331e0| 20 20 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |  .     | .      |
|000331f0| 0d 20 20 20 20 20 20 2d | 2d 20 66 69 67 75 72 65 |.      -|- figure|
|00033200| 20 6f 75 74 20 68 6f 77 | 20 6d 61 6e 79 20 70 61 | out how| many pa|
|00033210| 67 65 73 20 77 65 20 68 | 61 76 65 0d 20 20 20 20 |ges we h|ave.    |
|00033220| 20 20 73 65 74 20 67 54 | 65 78 74 50 61 67 65 73 |  set gT|extPages|
|00033230| 20 3d 20 74 6d 70 6c 69 | 6e 65 73 20 2f 20 67 4d | = tmpli|nes / gM|
|00033240| 61 78 4c 69 6e 65 73 0d | 20 20 20 20 20 20 69 66 |axLines.|      if|
|00033250| 20 67 54 65 78 74 50 61 | 67 65 73 20 2a 20 67 4d | gTextPa|ges * gM|
|00033260| 61 78 4c 69 6e 65 73 20 | 3c 20 74 6d 70 6c 69 6e |axLines |< tmplin|
|00033270| 65 73 20 74 68 65 6e 20 | 73 65 74 20 67 54 65 78 |es then |set gTex|
|00033280| 74 50 61 67 65 73 20 3d | 20 67 54 65 78 74 50 61 |tPages =| gTextPa|
|00033290| 67 65 73 20 2b 20 31 0d | 20 20 20 20 20 20 0d 20 |ges + 1.|      . |
|000332a0| 20 20 20 20 20 2d 2d 20 | 67 65 74 20 72 69 64 20 |     -- |get rid |
|000332b0| 6f 66 20 74 68 65 20 66 | 6f 72 77 61 72 64 20 61 |of the f|orward a|
|000332c0| 6e 64 20 62 61 63 6b 77 | 61 72 64 20 62 75 74 74 |nd backw|ard butt|
|000332d0| 6f 6e 73 20 61 73 20 6e | 65 63 65 73 73 61 72 79 |ons as n|ecessary|
|000332e0| 0d 20 20 20 20 20 20 69 | 66 20 67 54 65 78 74 50 |.      i|f gTextP|
|000332f0| 61 67 65 73 20 3d 20 31 | 20 74 68 65 6e 0d 20 20 |ages = 1| then.  |
|00033300| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 76 69 |      se|t the vi|
|00033310| 73 69 62 69 6c 69 74 79 | 20 6f 66 20 73 70 72 69 |sibility| of spri|
|00033320| 74 65 20 66 6f 72 77 61 | 72 64 62 75 74 74 6f 6e |te forwa|rdbutton|
|00033330| 20 3d 20 30 0d 20 20 20 | 20 20 20 20 20 2d 2d 70 | = 0.   |     --p|
|00033340| 75 70 70 65 74 73 70 72 | 69 74 65 20 66 6f 72 77 |uppetspr|ite forw|
|00033350| 61 72 64 62 75 74 74 6f | 6e 2c 31 20 20 20 20 20 |ardbutto|n,1     |
|00033360| 20 20 20 0d 20 20 20 20 | 20 20 20 20 2d 2d 73 65 |   .    |    --se|
|00033370| 74 20 74 68 65 20 6c 6f | 63 68 20 6f 66 20 73 70 |t the lo|ch of sp|
|00033380| 72 69 74 65 20 66 6f 72 | 77 61 72 64 62 75 74 74 |rite for|wardbutt|
|00033390| 6f 6e 20 3d 20 31 30 30 | 30 0d 20 20 20 20 20 20 |on = 100|0.      |
|000333a0| 65 6c 73 65 0d 20 20 20 | 20 20 20 20 20 73 65 74 |else.   |     set|
|000333b0| 20 74 68 65 20 76 69 73 | 69 62 69 6c 69 74 79 20 | the vis|ibility |
|000333c0| 6f 66 20 73 70 72 69 74 | 65 20 66 6f 72 77 61 72 |of sprit|e forwar|
|000333d0| 64 62 75 74 74 6f 6e 20 | 3d 20 31 0d 20 20 20 20 |dbutton |= 1.    |
|000333e0| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 20 20 0d |  end if|.      .|
|000333f0| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 0d |    end |if.    .|
|00033400| 20 20 20 20 2d 2d 20 68 | 69 64 65 20 62 61 63 6b |    -- h|ide back|
|00033410| 20 62 75 74 74 6f 6e 0d | 20 20 20 20 73 65 74 20 | button.|    set |
|00033420| 74 68 65 20 76 69 73 69 | 62 69 6c 69 74 79 20 6f |the visi|bility o|
|00033430| 66 20 73 70 72 69 74 65 | 20 62 61 63 6b 62 75 74 |f sprite| backbut|
|00033440| 74 6f 6e 20 3d 20 30 0d | 20 20 20 20 75 70 64 61 |ton = 0.|    upda|
|00033450| 74 65 73 74 61 67 65 20 | 20 0d 20 20 20 20 0d 20 |testage | .    . |
|00033460| 20 20 20 0d 20 20 20 20 | 2d 2d 20 67 65 74 20 74 |   .    |-- get t|
|00033470| 68 65 20 70 69 63 74 0d | 20 20 20 20 69 66 20 67 |he pict.|    if g|
|00033480| 43 75 72 43 68 61 70 20 | 3e 20 31 20 74 68 65 6e |CurChap |> 1 then|
|00033490| 0d 20 20 20 20 20 20 73 | 65 74 20 70 69 63 63 61 |.      s|et picca|
|000334a0| 73 74 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |st = the| number |
|000334b0| 6f 66 20 63 61 73 74 20 | 28 67 4d 61 6b 65 72 4e |of cast |(gMakerN|
|000334c0| 75 6d 20 26 20 22 2d 22 | 20 26 20 67 43 75 72 43 |um & "-"| & gCurC|
|000334d0| 68 61 70 20 26 20 22 2e | 22 20 26 20 67 43 75 72 |hap & ".|" & gCur|
|000334e0| 41 72 74 69 63 6c 65 29 | 0d 20 20 20 20 20 20 70 |Article)|.      p|
|000334f0| 75 74 20 28 67 4d 61 6b | 65 72 4e 75 6d 20 26 20 |ut (gMak|erNum & |
|00033500| 22 2d 22 20 26 20 67 43 | 75 72 43 68 61 70 20 26 |"-" & gC|urChap &|
|00033510| 20 22 2e 22 20 26 20 67 | 43 75 72 41 72 74 69 63 | "." & g|CurArtic|
|00033520| 6c 65 29 0d 20 20 20 20 | 20 20 0d 20 20 20 20 20 |le).    |  .     |
|00033530| 20 69 66 20 70 69 63 63 | 61 73 74 20 3e 20 30 20 | if picc|ast > 0 |
|00033540| 74 68 65 6e 20 20 20 20 | 0d 20 20 20 20 20 20 20 |then    |.       |
|00033550| 20 73 65 74 20 74 68 65 | 20 73 74 72 65 74 63 68 | set the| stretch|
|00033560| 20 6f 66 20 73 70 72 69 | 74 65 20 70 69 63 73 70 | of spri|te picsp|
|00033570| 72 69 74 65 20 3d 20 30 | 0d 20 20 20 20 20 20 20 |rite = 0|.       |
|00033580| 20 73 65 74 20 74 68 65 | 20 63 61 73 74 6e 75 6d | set the| castnum|
|00033590| 20 6f 66 20 73 70 72 69 | 74 65 20 70 69 63 73 70 | of spri|te picsp|
|000335a0| 72 69 74 65 20 3d 20 70 | 69 63 63 61 73 74 0d 20 |rite = p|iccast. |
|000335b0| 20 20 20 20 20 20 20 73 | 65 74 20 77 20 3d 20 31 |       s|et w = 1|
|000335c0| 2e 30 20 2a 20 28 74 68 | 65 20 77 69 64 74 68 20 |.0 * (th|e width |
|000335d0| 6f 66 20 63 61 73 74 20 | 70 69 63 63 61 73 74 29 |of cast |piccast)|
|000335e0| 20 2f 20 32 0d 20 20 20 | 20 20 20 20 20 73 65 74 | / 2.   |     set|
|000335f0| 20 68 20 3d 20 31 2e 30 | 20 2a 20 28 74 68 65 20 | h = 1.0| * (the |
|00033600| 68 65 69 67 68 74 20 6f | 66 20 63 61 73 74 20 70 |height o|f cast p|
|00033610| 69 63 63 61 73 74 29 20 | 2f 20 32 20 20 0d 20 20 |iccast) |/ 2  .  |
|00033620| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 20 20 69 |      . |       i|
|00033630| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 73 65 6e 73 |f gWorld| = "sens|
|00033640| 65 73 22 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |es" then|.       |
|00033650| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |   set t|he loch |
|00033660| 6f 66 20 73 70 72 69 74 | 65 20 70 69 63 73 70 72 |of sprit|e picspr|
|00033670| 69 74 65 20 3d 20 32 31 | 30 20 2b 20 77 0d 20 20 |ite = 21|0 + w.  |
|00033680| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00033690| 6c 6f 63 76 20 6f 66 20 | 73 70 72 69 74 65 20 70 |locv of |sprite p|
|000336a0| 69 63 73 70 72 69 74 65 | 20 3d 20 35 30 20 2b 20 |icsprite| = 50 + |
|000336b0| 68 20 20 20 20 0d 20 20 | 20 20 20 20 20 20 65 6c |h    .  |      el|
|000336c0| 73 65 20 69 66 20 67 57 | 6f 72 6c 64 20 3d 20 22 |se if gW|orld = "|
|000336d0| 44 65 73 69 67 6e 22 20 | 74 68 65 6e 0d 20 20 20 |Design" |then.   |
|000336e0| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |       s|et the l|
|000336f0| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 70 69 |och of s|prite pi|
|00033700| 63 73 70 72 69 74 65 20 | 3d 20 31 32 35 20 2b 20 |csprite |= 125 + |
|00033710| 77 0d 20 20 20 20 20 20 | 20 20 20 20 73 65 74 20 |w.      |    set |
|00033720| 74 68 65 20 6c 6f 63 76 | 20 6f 66 20 73 70 72 69 |the locv| of spri|
|00033730| 74 65 20 70 69 63 73 70 | 72 69 74 65 20 3d 20 31 |te picsp|rite = 1|
|00033740| 33 32 20 2b 20 68 20 20 | 20 20 0d 20 20 20 20 20 |32 + h  |  .     |
|00033750| 20 20 20 65 6c 73 65 20 | 69 66 20 67 57 6f 72 6c |   else |if gWorl|
|00033760| 64 20 3d 20 22 70 6f 77 | 65 72 22 20 74 68 65 6e |d = "pow|er" then|
|00033770| 0d 20 20 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |.       |   set t|
|00033780| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00033790| 65 20 70 69 63 73 70 72 | 69 74 65 20 3d 20 32 32 |e picspr|ite = 22|
|000337a0| 33 20 2b 20 77 0d 20 20 | 20 20 20 20 20 20 20 20 |3 + w.  |        |
|000337b0| 73 65 74 20 74 68 65 20 | 6c 6f 63 76 20 6f 66 20 |set the |locv of |
|000337c0| 73 70 72 69 74 65 20 70 | 69 63 73 70 72 69 74 65 |sprite p|icsprite|
|000337d0| 20 3d 20 34 38 20 2b 20 | 68 20 20 20 20 0d 20 20 | = 48 + |h    .  |
|000337e0| 20 20 20 20 20 20 65 6c | 73 65 20 69 66 20 67 57 |      el|se if gW|
|000337f0| 6f 72 6c 64 20 3d 20 22 | 4d 69 6e 64 22 20 74 68 |orld = "|Mind" th|
|00033800| 65 6e 0d 20 20 20 20 20 | 20 20 20 20 20 73 65 74 |en.     |     set|
|00033810| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|00033820| 69 74 65 20 70 69 63 73 | 70 72 69 74 65 20 3d 20 |ite pics|prite = |
|00033830| 33 38 20 2b 20 77 0d 20 | 20 20 20 20 20 20 20 20 |38 + w. |        |
|00033840| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 76 20 6f 66 | set the| locv of|
|00033850| 20 73 70 72 69 74 65 20 | 70 69 63 73 70 72 69 74 | sprite |picsprit|
|00033860| 65 20 3d 20 31 33 32 20 | 2b 20 68 20 20 20 20 0d |e = 132 |+ h    .|
|00033870| 20 20 20 20 20 20 20 20 | 65 6c 73 65 20 69 66 20 |        |else if |
|00033880| 67 57 6f 72 6c 64 20 3d | 20 22 62 6f 64 79 22 20 |gWorld =| "body" |
|00033890| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 20 20 73 |then.   |       s|
|000338a0| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|000338b0| 70 72 69 74 65 20 70 69 | 63 73 70 72 69 74 65 20 |prite pi|csprite |
|000338c0| 3d 20 31 34 30 20 2b 20 | 77 0d 20 20 20 20 20 20 |= 140 + |w.      |
|000338d0| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 76 |    set |the locv|
|000338e0| 20 6f 66 20 73 70 72 69 | 74 65 20 70 69 63 73 70 | of spri|te picsp|
|000338f0| 72 69 74 65 20 3d 20 39 | 35 20 2b 20 68 20 20 20 |rite = 9|5 + h   |
|00033900| 20 20 0d 20 20 20 20 20 | 20 20 20 65 6c 73 65 0d |  .     |   else.|
|00033910| 20 20 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 |        |  set th|
|00033920| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00033930| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 37 30 20 | picspri|te = 70 |
|00033940| 2b 20 77 0d 20 20 20 20 | 20 20 20 20 20 20 73 65 |+ w.    |      se|
|00033950| 74 20 74 68 65 20 6c 6f | 63 76 20 6f 66 20 73 70 |t the lo|cv of sp|
|00033960| 72 69 74 65 20 70 69 63 | 73 70 72 69 74 65 20 3d |rite pic|sprite =|
|00033970| 20 37 30 20 2b 20 68 20 | 20 20 20 20 0d 20 20 20 | 70 + h |    .   |
|00033980| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00033990| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 20 20 0d |  end if|.      .|
|000339a0| 20 20 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 |    else| if gWor|
|000339b0| 6c 64 20 3d 20 22 50 6f | 77 65 72 22 20 74 68 65 |ld = "Po|wer" the|
|000339c0| 6e 0d 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 2d |n.      |.      -|
|000339d0| 2d 20 67 65 74 20 74 68 | 65 20 6d 61 70 73 0d 20 |- get th|e maps. |
|000339e0| 20 20 20 20 20 0d 20 20 | 20 20 20 20 70 75 70 70 |     .  |    pupp|
|000339f0| 65 74 74 65 6d 70 6f 20 | 32 0d 20 20 20 20 20 20 |ettempo |2.      |
|00033a00| 0d 20 20 20 20 20 20 2d | 2d 20 69 66 20 74 68 65 |.      -|- if the|
|00033a10| 72 65 73 20 61 20 6d 61 | 70 2c 20 61 6e 64 20 74 |res a ma|p, and t|
|00033a20| 68 65 72 65 20 73 68 6f | 75 6c 64 20 62 65 2c 20 |here sho|uld be, |
|00033a30| 74 68 65 6e 20 67 6f 20 | 74 6f 20 69 74 0d 20 20 |then go |to it.  |
|00033a40| 20 20 20 20 69 66 20 6c | 61 62 65 6c 28 67 6d 61 |    if l|abel(gma|
|00033a50| 6b 65 72 6e 75 6d 20 26 | 20 22 2e 6d 61 70 22 29 |kernum &| ".map")|
|00033a60| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 67 6f | then.  |      go|
|00033a70| 20 74 6f 20 66 72 61 6d | 65 20 28 67 6d 61 6b 65 | to fram|e (gmake|
|00033a80| 72 6e 75 6d 20 26 20 22 | 2e 6d 61 70 22 29 0d 20 |rnum & "|.map"). |
|00033a90| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00033aa0| 20 20 0d 20 20 20 20 20 | 20 73 65 74 20 67 53 65 |  .     | set gSe|
|00033ab0| 65 6e 4d 61 70 73 20 3d | 20 31 0d 20 20 20 20 65 |enMaps =| 1.    e|
|00033ac0| 6e 64 20 69 66 20 20 0d | 20 20 20 20 0d 20 20 20 |nd if  .|    .   |
|00033ad0| 20 2d 2d 20 6d 6f 76 65 | 20 74 68 65 20 63 75 74 | -- move| the cut|
|00033ae0| 74 69 6e 67 20 61 6e 64 | 20 63 61 70 74 69 6f 6e |ting and| caption|
|00033af0| 20 62 61 63 6b 20 6f 6e | 73 63 72 65 65 6e 0d 20 | back on|screen. |
|00033b00| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |   set t|he loch |
|00033b10| 6f 66 20 73 70 72 69 74 | 65 20 63 75 74 74 69 6e |of sprit|e cuttin|
|00033b20| 67 73 70 72 69 74 65 20 | 3d 20 63 75 74 74 69 6e |gsprite |= cuttin|
|00033b30| 67 6c 6f 63 68 0d 20 20 | 20 20 70 75 70 70 65 74 |gloch.  |  puppet|
|00033b40| 73 70 72 69 74 65 20 63 | 75 74 74 69 6e 67 73 70 |sprite c|uttingsp|
|00033b50| 72 69 74 65 2c 30 0d 20 | 20 20 20 73 65 74 20 74 |rite,0. |   set t|
|00033b60| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00033b70| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 20 |e captio|nsprite |
|00033b80| 3d 20 63 75 74 74 69 6e | 67 6c 6f 63 68 0d 20 20 |= cuttin|gloch.  |
|00033b90| 20 20 70 75 70 70 65 74 | 73 70 72 69 74 65 20 63 |  puppet|sprite c|
|00033ba0| 61 70 74 69 6f 6e 73 70 | 72 69 74 65 2c 30 0d 20 |aptionsp|rite,0. |
|00033bb0| 20 20 20 0d 20 20 65 6e | 64 20 69 66 0d 20 20 0d |   .  en|d if.  .|
|00033bc0| 20 20 4e 61 76 42 75 74 | 74 6f 6e 55 70 64 61 74 |  NavBut|tonUpdat|
|00033bd0| 65 0d 20 20 45 6e 64 54 | 72 61 70 4d 6f 75 73 65 |e.  EndT|rapMouse|
|00033be0| 0d 65 6e 64 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.end.---|--------|
|00033bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00033c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00033c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00033c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00033c30| 2d 2d 2d 0d 6f 6e 20 43 | 68 65 63 6b 50 72 69 6e |---.on C|heckPrin|
|00033c40| 74 0d 20 20 67 6c 6f 62 | 61 6c 20 67 50 72 69 6e |t.  glob|al gPrin|
|00033c50| 74 48 65 61 64 2c 20 67 | 43 75 72 43 75 74 74 69 |tHead, g|CurCutti|
|00033c60| 6e 67 2c 20 67 6d 61 6b | 65 72 6e 75 6d 0d 20 20 |ng, gmak|ernum.  |
|00033c70| 0d 20 20 2d 2d 20 74 68 | 69 73 20 69 73 20 64 69 |.  -- th|is is di|
|00033c80| 73 61 62 6c 65 64 20 66 | 6f 72 20 6e 6f 77 0d 20 |sabled f|or now. |
|00033c90| 20 0d 20 20 2d 2d 20 20 | 69 66 20 74 68 65 20 6b | .  --  |if the k|
|00033ca0| 65 79 20 3d 20 22 70 22 | 20 74 68 65 6e 20 0d 20 |ey = "p"| then . |
|00033cb0| 20 2d 2d 20 20 20 20 0d | 20 20 2d 2d 20 20 20 20 | --    .|  --    |
|00033cc0| 69 66 20 74 68 65 20 66 | 72 61 6d 65 6c 61 62 65 |if the f|ramelabe|
|00033cd0| 6c 20 3d 20 22 63 75 74 | 74 69 6e 67 22 20 6f 72 |l = "cut|ting" or|
|00033ce0| 20 74 68 65 20 66 72 61 | 6d 65 6c 61 62 65 6c 20 | the fra|melabel |
|00033cf0| 63 6f 6e 74 61 69 6e 73 | 20 22 70 61 72 74 77 6f |contains| "partwo|
|00033d00| 72 6b 22 20 74 68 65 6e | 20 0d 20 20 2d 2d 20 20 |rk" then| .  --  |
|00033d10| 20 20 20 20 73 65 74 20 | 6d 6e 61 6d 65 20 3d 20 |    set |mname = |
|00033d20| 6c 69 6e 65 20 67 4d 61 | 6b 65 72 6e 75 6d 20 6f |line gMa|kernum o|
|00033d30| 66 20 66 69 65 6c 64 20 | 22 6d 61 6b 65 72 66 75 |f field |"makerfu|
|00033d40| 6c 6c 6e 61 6d 65 73 22 | 0d 20 20 2d 2d 20 20 20 |llnames"|.  --   |
|00033d50| 20 20 20 73 65 74 20 70 | 72 69 6e 74 74 65 78 74 |   set p|rinttext|
|00033d60| 20 3d 20 22 4d 61 6b 65 | 72 73 20 6f 66 20 74 68 | = "Make|rs of th|
|00033d70| 65 20 32 30 74 68 20 43 | 65 6e 74 75 72 79 22 20 |e 20th C|entury" |
|00033d80| 26 20 72 65 74 75 72 6e | 20 26 20 22 43 6f 70 79 |& return| & "Copy|
|00033d90| 72 69 67 68 74 20 4e 65 | 77 73 20 4d 75 6c 74 69 |right Ne|ws Multi|
|00033da0| 6d 65 64 69 61 22 20 26 | 20 72 65 74 75 72 6e 20 |media" &| return |
|00033db0| 26 20 72 65 74 75 72 6e | 20 26 20 6d 6e 61 6d 65 |& return| & mname|
|00033dc0| 20 26 20 72 65 74 75 72 | 6e 20 26 20 67 50 72 69 | & retur|n & gPri|
|00033dd0| 6e 74 48 65 61 64 20 26 | 20 72 65 74 75 72 6e 20 |ntHead &| return |
|00033de0| 26 20 72 65 74 75 72 6e | 20 26 20 72 65 74 75 72 |& return| & retur|
|00033df0| 6e 20 26 20 67 43 75 72 | 43 75 74 74 69 6e 67 0d |n & gCur|Cutting.|
|00033e00| 20 20 2d 2d 20 20 20 20 | 20 20 69 66 20 63 68 61 |  --    |  if cha|
|00033e10| 72 20 28 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |r (the n|umber of|
|00033e20| 20 63 68 61 72 73 20 6f | 66 20 70 72 69 6e 74 74 | chars o|f printt|
|00033e30| 65 78 74 29 20 6f 66 20 | 70 72 69 6e 74 74 65 78 |ext) of |printtex|
|00033e40| 74 20 3d 20 22 40 22 20 | 74 68 65 6e 20 64 65 6c |t = "@" |then del|
|00033e50| 65 74 65 20 63 68 61 72 | 20 28 74 68 65 20 6e 75 |ete char| (the nu|
|00033e60| 6d 62 65 72 20 6f 66 20 | 63 68 61 72 73 20 6f 66 |mber of |chars of|
|00033e70| 20 70 72 69 6e 74 74 65 | 78 74 29 20 6f 66 20 70 | printte|xt) of p|
|00033e80| 72 69 6e 74 74 65 78 74 | 0d 20 20 2d 2d 20 20 20 |rinttext|.  --   |
|00033e90| 20 20 20 70 75 74 20 70 | 72 69 6e 74 74 65 78 74 |   put p|rinttext|
|00033ea0| 0d 20 20 2d 2d 20 20 20 | 20 20 20 0d 20 20 2d 2d |.  --   |   .  --|
|00033eb0| 20 20 20 20 20 20 69 66 | 20 74 68 65 20 6d 61 63 |      if| the mac|
|00033ec0| 68 69 6e 65 74 79 70 65 | 20 3c 20 32 35 36 20 74 |hinetype| < 256 t|
|00033ed0| 68 65 6e 20 2d 2d 20 4d | 41 43 0d 20 20 2d 2d 20 |hen -- M|AC.  -- |
|00033ee0| 20 20 20 20 20 20 20 2d | 2d 20 70 72 69 6e 74 20 |       -|- print |
|00033ef0| 69 74 21 0d 20 20 2d 2d | 20 20 20 20 20 20 20 20 |it!.  --|        |
|00033f00| 6f 70 65 6e 78 6c 69 62 | 20 28 22 50 72 69 6e 74 |openxlib| ("Print|
|00033f10| 58 6f 62 6a 22 29 0d 20 | 20 2d 2d 20 20 20 20 20 |Xobj"). | --     |
|00033f20| 20 20 20 70 75 74 20 50 | 72 69 6e 74 58 4f 62 6a |   put P|rintXObj|
|00033f30| 28 6d 4e 65 77 29 20 69 | 6e 74 6f 20 70 4f 62 6a |(mNew) i|nto pObj|
|00033f40| 0d 20 20 2d 2d 20 20 20 | 20 20 20 20 20 70 4f 62 |.  --   |     pOb|
|00033f50| 6a 28 6d 53 65 74 54 65 | 78 74 2c 70 72 69 6e 74 |j(mSetTe|xt,print|
|00033f60| 74 65 78 74 29 0d 20 20 | 2d 2d 20 20 20 20 20 20 |text).  |--      |
|00033f70| 20 20 70 75 74 20 70 4f | 62 6a 28 6d 50 72 69 6e |  put pO|bj(mPrin|
|00033f80| 74 29 20 69 6e 74 6f 20 | 45 72 72 0d 20 20 2d 2d |t) into |Err.  --|
|00033f90| 20 20 20 20 20 20 20 20 | 69 66 20 45 72 72 20 3c |        |if Err <|
|00033fa0| 3e 20 22 22 20 74 68 65 | 6e 20 41 6c 65 72 74 28 |> "" the|n Alert(|
|00033fb0| 45 72 72 29 0d 20 20 2d | 2d 20 20 20 20 20 20 20 |Err).  -|-       |
|00033fc0| 20 70 75 74 20 70 4f 62 | 6a 28 6d 44 69 73 70 6f | put pOb|j(mDispo|
|00033fd0| 73 65 29 0d 20 20 2d 2d | 20 20 20 20 20 20 20 20 |se).  --|        |
|00033fe0| 63 6c 6f 73 65 58 6c 69 | 62 20 28 22 50 72 69 6e |closeXli|b ("Prin|
|00033ff0| 74 58 6f 62 6a 22 29 0d | 20 20 2d 2d 20 20 20 20 |tXobj").|  --    |
|00034000| 20 20 65 6e 64 20 69 66 | 0d 20 20 2d 2d 20 20 20 |  end if|.  --   |
|00034010| 20 65 6e 64 20 69 66 0d | 20 20 2d 2d 20 20 65 6e | end if.|  --  en|
|00034020| 64 20 69 66 0d 65 6e 64 | 00 00 33 00 32 01 c5 02 |d if.end|..3.2...|
|00034030| 9a 00 00 04 59 00 00 04 | 61 00 5a db 10 00 01 00 |....Y...|a.Z.....|
|00034040| 00 00 00 00 0b 00 09 00 | 04 00 00 00 09 00 00 00 |........|........|
|00034050| 00 00 00 00 43 41 53 74 | 00 00 36 0a 00 04 00 00 |....CASt|..6.....|
|00034060| 36 00 0b 00 00 03 00 00 | 00 14 00 c2 ea cc 00 00 |6.......|........|
|00034070| 00 00 00 00 00 00 00 00 | 00 3c 00 07 00 00 00 00 |........|.<......|
|00034080| 00 00 35 9f 00 00 35 a0 | 00 00 35 a0 00 00 35 a0 |..5...5.|..5...5.|
|00034090| 00 00 35 a0 00 00 35 b4 | 00 00 35 ca 6f 6e 20 47 |..5...5.|..5.on G|
|000340a0| 6f 50 69 63 74 41 72 74 | 69 63 6c 65 0d 20 20 67 |oPictArt|icle.  g|
|000340b0| 6c 6f 62 61 6c 20 67 43 | 68 61 70 74 65 72 73 2c |lobal gC|hapters,|
|000340c0| 20 67 54 69 74 6c 65 73 | 2c 20 67 41 72 74 69 63 | gTitles|, gArtic|
|000340d0| 6c 65 73 2c 20 67 44 61 | 74 65 73 2c 20 67 43 61 |les, gDa|tes, gCa|
|000340e0| 70 74 69 6f 6e 73 2c 20 | 67 43 75 72 43 75 74 74 |ptions, |gCurCutt|
|000340f0| 69 6e 67 0d 20 20 67 6c | 6f 62 61 6c 20 67 43 75 |ing.  gl|obal gCu|
|00034100| 72 43 68 61 70 2c 20 67 | 43 75 72 41 72 74 69 63 |rChap, g|CurArtic|
|00034110| 6c 65 2c 20 67 4e 61 6d | 65 2c 20 6d 79 74 65 78 |le, gNam|e, mytex|
|00034120| 74 2c 20 67 41 72 74 69 | 63 6c 65 50 61 67 65 2c |t, gArti|clePage,|
|00034130| 20 67 46 75 6c 6c 43 75 | 74 74 69 6e 67 73 0d 20 | gFullCu|ttings. |
|00034140| 20 67 6c 6f 62 61 6c 20 | 67 46 6f 72 6d 61 74 74 | global |gFormatt|
|00034150| 65 64 54 65 78 74 2c 20 | 67 54 65 78 74 50 61 67 |edText, |gTextPag|
|00034160| 65 73 2c 20 67 4d 61 78 | 4c 69 6e 65 73 2c 20 67 |es, gMax|Lines, g|
|00034170| 43 75 72 49 6e 64 65 78 | 2c 20 67 57 6f 72 6c 64 |CurIndex|, gWorld|
|00034180| 2c 20 67 53 65 65 6e 4d | 61 70 73 0d 20 20 67 6c |, gSeenM|aps.  gl|
|00034190| 6f 62 61 6c 20 67 50 61 | 70 65 72 4c 6f 63 68 2c |obal gPa|perLoch,|
|000341a0| 20 67 4d 61 6b 65 72 4e | 61 6d 65 2c 20 67 48 65 | gMakerN|ame, gHe|
|000341b0| 61 64 6c 6f 63 48 2c 20 | 67 4e 61 6d 65 4c 6f 63 |adlocH, |gNameLoc|
|000341c0| 68 2c 20 67 4e 61 6d 65 | 4c 6f 63 76 0d 20 20 67 |h, gName|Locv.  g|
|000341d0| 6c 6f 62 61 6c 20 67 4d | 61 6b 65 72 4e 75 6d 2c |lobal gM|akerNum,|
|000341e0| 20 67 51 54 70 61 74 68 | 2c 20 67 53 6f 75 6e 64 | gQTpath|, gSound|
|000341f0| 50 61 74 68 2c 20 67 4e | 75 67 67 65 74 54 69 6d |Path, gN|uggetTim|
|00034200| 65 2c 20 67 4e 75 67 67 | 65 74 44 65 6c 61 79 2c |e, gNugg|etDelay,|
|00034210| 20 67 4e 61 6d 65 43 61 | 73 74 6e 75 6d 0d 20 20 | gNameCa|stnum.  |
|00034220| 67 6c 6f 62 61 6c 20 67 | 43 75 72 50 69 63 0d 20 |global g|CurPic. |
|00034230| 20 0d 20 20 73 65 74 20 | 70 69 63 73 70 72 69 74 | .  set |picsprit|
|00034240| 65 20 3d 20 39 20 20 2d | 2d 20 74 68 65 20 73 70 |e = 9  -|- the sp|
|00034250| 72 69 74 65 20 74 68 65 | 20 70 69 63 74 20 61 70 |rite the| pict ap|
|00034260| 70 65 61 72 73 20 6f 6e | 0d 20 20 73 65 74 20 63 |pears on|.  set c|
|00034270| 75 74 74 69 6e 67 73 70 | 72 69 74 65 20 3d 20 36 |uttingsp|rite = 6|
|00034280| 0d 20 20 73 65 74 20 74 | 69 74 6c 65 73 70 72 69 |.  set t|itlespri|
|00034290| 74 65 20 3d 20 38 0d 20 | 20 73 65 74 20 70 61 70 |te = 8. | set pap|
|000342a0| 65 72 73 70 72 69 74 65 | 20 3d 20 31 31 0d 20 20 |ersprite| = 11.  |
|000342b0| 73 65 74 20 64 61 74 65 | 73 70 72 69 74 65 20 3d |set date|sprite =|
|000342c0| 20 31 32 0d 20 20 73 65 | 74 20 63 61 70 74 69 6f | 12.  se|t captio|
|000342d0| 6e 73 70 72 69 74 65 20 | 3d 20 37 0d 20 20 73 65 |nsprite |= 7.  se|
|000342e0| 74 20 66 6f 72 77 61 72 | 64 62 75 74 74 6f 6e 20 |t forwar|dbutton |
|000342f0| 3d 20 32 30 0d 20 20 73 | 65 74 20 62 61 63 6b 62 |= 20.  s|et backb|
|00034300| 75 74 74 6f 6e 20 3d 20 | 31 39 0d 20 20 73 65 74 |utton = |19.  set|
|00034310| 20 68 65 61 64 73 70 72 | 69 74 65 20 3d 20 31 30 | headspr|ite = 10|
|00034320| 20 20 0d 20 20 73 65 74 | 20 6e 61 6d 65 73 70 72 |  .  set| namespr|
|00034330| 69 74 65 20 3d 20 34 0d | 20 20 73 65 74 20 68 65 |ite = 4.|  set he|
|00034340| 61 64 6c 6f 63 68 20 3d | 20 67 48 65 61 64 6c 6f |adloch =| gHeadlo|
|00034350| 63 68 20 20 2d 2d 20 74 | 68 65 20 6c 6f 63 68 20 |ch  -- t|he loch |
|00034360| 6f 66 20 74 68 65 20 68 | 65 61 64 73 68 6f 74 20 |of the h|eadshot |
|00034370| 73 70 72 69 74 65 0d 20 | 20 73 65 74 20 74 68 65 |sprite. | set the|
|00034380| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|00034390| 68 65 61 64 73 70 72 69 | 74 65 20 3d 20 68 65 61 |headspri|te = hea|
|000343a0| 64 6c 6f 63 68 0d 20 20 | 0d 20 20 0d 20 20 2d 2d |dloch.  |.  .  --|
|000343b0| 20 50 49 43 54 0d 20 20 | 70 75 70 70 65 74 73 70 | PICT.  |puppetsp|
|000343c0| 72 69 74 65 20 66 6f 72 | 77 61 72 64 62 75 74 74 |rite for|wardbutt|
|000343d0| 6f 6e 2c 30 0d 20 20 70 | 75 70 70 65 74 73 70 72 |on,0.  p|uppetspr|
|000343e0| 69 74 65 20 62 61 63 6b | 62 75 74 74 6f 6e 2c 30 |ite back|button,0|
|000343f0| 0d 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |.  puppe|tsprite |
|00034400| 70 61 70 65 72 73 70 72 | 69 74 65 2c 30 0d 20 20 |paperspr|ite,0.  |
|00034410| 0d 20 20 73 65 74 20 6f | 6c 64 66 72 61 6d 65 6c |.  set o|ldframel|
|00034420| 61 62 65 6c 20 3d 20 74 | 68 65 20 66 72 61 6d 65 |abel = t|he frame|
|00034430| 6c 61 62 65 6c 0d 20 20 | 0d 20 20 73 65 74 20 74 |label.  |.  set t|
|00034440| 68 65 20 74 65 78 74 20 | 6f 66 20 66 69 65 6c 64 |he text |of field|
|00034450| 20 22 63 61 70 74 69 6f | 6e 2d 70 69 63 22 20 3d | "captio|n-pic" =|
|00034460| 20 22 20 22 0d 20 20 73 | 65 74 20 74 68 65 20 74 | " ".  s|et the t|
|00034470| 65 78 74 20 6f 66 20 66 | 69 65 6c 64 20 22 63 61 |ext of f|ield "ca|
|00034480| 70 74 69 6f 6e 2d 70 69 | 63 32 22 20 3d 20 22 20 |ption-pi|c2" = " |
|00034490| 22 20 20 0d 20 20 0d 20 | 20 69 66 20 6e 6f 74 20 |"  .  . | if not |
|000344a0| 28 74 68 65 20 66 72 61 | 6d 65 6c 61 62 65 6c 20 |(the fra|melabel |
|000344b0| 63 6f 6e 74 61 69 6e 73 | 20 22 70 69 63 22 29 20 |contains| "pic") |
|000344c0| 74 68 65 6e 0d 20 20 20 | 20 75 6e 70 75 70 70 65 |then.   | unpuppe|
|000344d0| 74 20 22 34 2c 31 30 22 | 20 20 20 20 20 0d 20 20 |t "4,10"|     .  |
|000344e0| 65 6c 73 65 0d 20 20 20 | 20 70 75 70 70 65 74 73 |else.   | puppets|
|000344f0| 70 72 69 74 65 20 63 61 | 70 74 69 6f 6e 73 70 72 |prite ca|ptionspr|
|00034500| 69 74 65 2c 30 20 2d 2d | 20 75 6e 70 75 70 70 65 |ite,0 --| unpuppe|
|00034510| 74 20 74 68 65 20 70 69 | 63 74 20 63 61 70 74 69 |t the pi|ct capti|
|00034520| 6f 6e 20 20 20 20 0d 20 | 20 65 6e 64 20 69 66 0d |on    . | end if.|
|00034530| 20 20 0d 20 20 2d 2d 20 | 67 65 74 20 74 68 65 20 |  .  -- |get the |
|00034540| 63 61 73 74 6e 75 6d 62 | 65 72 20 6f 66 20 74 68 |castnumb|er of th|
|00034550| 65 20 70 69 63 74 75 72 | 65 0d 20 20 73 65 74 20 |e pictur|e.  set |
|00034560| 70 69 63 63 61 73 74 6e | 61 6d 65 20 3d 20 28 67 |piccastn|ame = (g|
|00034570| 4d 61 6b 65 72 4e 75 6d | 20 26 20 22 2d 22 20 26 |MakerNum| & "-" &|
|00034580| 20 67 43 75 72 43 68 61 | 70 20 26 20 22 2e 22 20 | gCurCha|p & "." |
|00034590| 26 20 67 43 75 72 41 72 | 74 69 63 6c 65 29 0d 20 |& gCurAr|ticle). |
|000345a0| 20 73 65 74 20 70 69 63 | 63 61 73 74 20 3d 20 74 | set pic|cast = t|
|000345b0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 73 |he numbe|r of cas|
|000345c0| 74 20 70 69 63 63 61 73 | 74 6e 61 6d 65 0d 20 20 |t piccas|tname.  |
|000345d0| 70 75 74 20 28 67 4d 61 | 6b 65 72 4e 75 6d 20 26 |put (gMa|kerNum &|
|000345e0| 20 22 2d 22 20 26 20 67 | 43 75 72 43 68 61 70 20 | "-" & g|CurChap |
|000345f0| 26 20 22 2e 22 20 26 20 | 67 43 75 72 41 72 74 69 |& "." & |gCurArti|
|00034600| 63 6c 65 29 0d 20 20 0d | 20 20 69 66 20 76 61 6c |cle).  .|  if val|
|00034610| 75 65 28 67 4d 61 6b 65 | 72 4e 75 6d 29 20 3d 20 |ue(gMake|rNum) = |
|00034620| 31 31 39 20 74 68 65 6e | 20 20 20 2d 2d 20 73 70 |119 then|   -- sp|
|00034630| 65 63 69 61 6c 20 63 61 | 73 65 20 66 6f 72 20 4d |ecial ca|se for M|
|00034640| 61 74 69 73 73 65 0d 20 | 20 20 20 73 65 74 20 50 |atisse. |   set P|
|00034650| 69 63 74 46 72 61 6d 65 | 20 3d 20 22 70 69 63 74 |ictFrame| = "pict|
|00034660| 2e 4d 41 54 22 0d 20 20 | 20 20 73 65 74 20 50 69 |.MAT".  |  set Pi|
|00034670| 63 74 46 72 61 6d 65 32 | 20 3d 20 22 70 69 63 74 |ctFrame2| = "pict|
|00034680| 32 2e 4d 41 54 22 0d 20 | 20 65 6c 73 65 0d 20 20 |2.MAT". | else.  |
|00034690| 20 20 73 65 74 20 50 69 | 63 74 46 72 61 6d 65 20 |  set Pi|ctFrame |
|000346a0| 3d 20 22 70 69 63 74 22 | 0d 20 20 20 20 73 65 74 |= "pict"|.    set|
|000346b0| 20 50 69 63 74 46 72 61 | 6d 65 32 20 3d 20 22 70 | PictFra|me2 = "p|
|000346c0| 69 63 74 32 22 0d 20 20 | 65 6e 64 20 69 66 0d 20 |ict2".  |end if. |
|000346d0| 20 0d 20 20 69 66 20 70 | 69 63 63 61 73 74 6e 61 | .  if p|iccastna|
|000346e0| 6d 65 20 3d 20 22 39 36 | 2d 33 2e 36 22 20 74 68 |me = "96|-3.6" th|
|000346f0| 65 6e 0d 20 20 20 20 2d | 2d 20 74 68 69 73 20 69 |en.    -|- this i|
|00034700| 73 20 61 20 73 70 65 63 | 69 61 6c 20 63 61 73 65 |s a spec|ial case|
|00034710| 20 66 6f 72 20 4a 75 6e | 67 0d 20 20 20 20 67 6f | for Jun|g.    go|
|00034720| 20 74 6f 20 66 72 61 6d | 65 20 22 70 69 63 74 32 | to fram|e "pict2|
|00034730| 22 0d 20 20 65 6c 73 65 | 20 69 66 20 28 67 57 6f |".  else| if (gWo|
|00034740| 72 6c 64 20 3d 20 22 64 | 65 73 69 67 6e 22 20 6f |rld = "d|esign" o|
|00034750| 72 20 67 57 6f 72 6c 64 | 20 3d 20 22 73 65 6e 73 |r gWorld| = "sens|
|00034760| 65 73 22 20 6f 72 20 67 | 57 6f 72 6c 64 20 3d 20 |es" or g|World = |
|00034770| 22 6d 69 6e 64 22 29 20 | 61 6e 64 20 70 69 63 63 |"mind") |and picc|
|00034780| 61 73 74 20 3e 20 30 20 | 74 68 65 6e 20 20 20 20 |ast > 0 |then    |
|00034790| 0d 20 20 20 20 69 66 20 | 74 68 65 20 77 69 64 74 |.    if |the widt|
|000347a0| 68 20 6f 66 20 63 61 73 | 74 20 70 69 63 63 61 73 |h of cas|t piccas|
|000347b0| 74 20 3e 3d 20 74 68 65 | 20 68 65 69 67 68 74 20 |t >= the| height |
|000347c0| 6f 66 20 63 61 73 74 20 | 70 69 63 63 61 73 74 20 |of cast |piccast |
|000347d0| 74 68 65 6e 20 20 20 20 | 20 20 20 20 0d 20 20 20 |then    |    .   |
|000347e0| 20 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 50 |   go to| frame P|
|000347f0| 69 63 74 46 72 61 6d 65 | 32 0d 20 20 20 20 65 6c |ictFrame|2.    el|
|00034800| 73 65 0d 20 20 20 20 20 | 20 67 6f 20 74 6f 20 66 |se.     | go to f|
|00034810| 72 61 6d 65 20 50 69 63 | 74 46 72 61 6d 65 0d 20 |rame Pic|tFrame. |
|00034820| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 65 6c 73 65 |   end i|f.  else|
|00034830| 0d 20 20 20 20 67 6f 20 | 74 6f 20 66 72 61 6d 65 |.    go |to frame|
|00034840| 20 50 69 63 74 46 72 61 | 6d 65 0d 20 20 65 6e 64 | PictFra|me.  end|
|00034850| 20 69 66 0d 20 20 0d 20 | 20 0d 20 20 43 6c 65 61 | if.  . | .  Clea|
|00034860| 6e 4d 65 6d 0d 20 20 73 | 65 74 20 67 43 75 72 50 |nMem.  s|et gCurP|
|00034870| 69 63 20 3d 20 70 69 63 | 63 61 73 74 20 2d 2d 20 |ic = pic|cast -- |
|00034880| 72 65 6d 65 6d 62 65 72 | 20 74 68 65 20 70 69 63 |remember| the pic|
|00034890| 74 20 74 6f 20 75 6e 6c | 6f 61 64 20 6c 61 74 65 |t to unl|oad late|
|000348a0| 72 20 6f 6e 0d 20 20 0d | 20 20 69 66 20 67 57 6f |r on.  .|  if gWo|
|000348b0| 72 6c 64 20 3d 20 22 53 | 65 6e 73 65 73 22 20 6f |rld = "S|enses" o|
|000348c0| 72 20 67 57 6f 72 6c 64 | 20 3d 20 22 44 65 73 69 |r gWorld| = "Desi|
|000348d0| 67 6e 22 20 74 68 65 6e | 0d 20 20 20 20 73 65 74 |gn" then|.    set|
|000348e0| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|000348f0| 69 74 65 20 6e 61 6d 65 | 73 70 72 69 74 65 20 3d |ite name|sprite =|
|00034900| 20 67 4e 61 6d 65 4c 6f | 63 68 0d 20 20 20 20 73 | gNameLo|ch.    s|
|00034910| 65 74 20 74 68 65 20 6c | 6f 63 76 20 6f 66 20 73 |et the l|ocv of s|
|00034920| 70 72 69 74 65 20 6e 61 | 6d 65 73 70 72 69 74 65 |prite na|mesprite|
|00034930| 20 3d 20 67 4e 61 6d 65 | 4c 6f 63 76 0d 20 20 65 | = gName|Locv.  e|
|00034940| 6e 64 20 69 66 0d 20 20 | 0d 20 20 0d 20 20 2d 2d |nd if.  |.  .  --|
|00034950| 20 6d 6f 76 65 20 63 61 | 70 74 69 6f 6e 20 61 6e | move ca|ption an|
|00034960| 64 20 70 69 63 74 20 6f | 66 66 73 63 72 65 65 6e |d pict o|ffscreen|
|00034970| 0d 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |.  puppe|tsprite |
|00034980| 63 61 70 74 69 6f 6e 73 | 70 72 69 74 65 2c 31 20 |captions|prite,1 |
|00034990| 0d 20 20 73 65 74 20 63 | 61 70 74 69 6f 6e 6c 6f |.  set c|aptionlo|
|000349a0| 63 68 20 3d 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 |ch = the| loch of|
|000349b0| 20 73 70 72 69 74 65 20 | 63 61 70 74 69 6f 6e 73 | sprite |captions|
|000349c0| 70 72 69 74 65 0d 20 20 | 73 65 74 20 74 68 65 20 |prite.  |set the |
|000349d0| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 63 |loch of |sprite c|
|000349e0| 61 70 74 69 6f 6e 73 70 | 72 69 74 65 20 3d 20 31 |aptionsp|rite = 1|
|000349f0| 30 30 30 20 20 0d 20 20 | 70 75 70 70 65 74 73 70 |000  .  |puppetsp|
|00034a00| 72 69 74 65 20 70 69 63 | 73 70 72 69 74 65 2c 31 |rite pic|sprite,1|
|00034a10| 0d 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |.  set t|he loch |
|00034a20| 6f 66 20 73 70 72 69 74 | 65 20 70 69 63 73 70 72 |of sprit|e picspr|
|00034a30| 69 74 65 20 3d 20 31 30 | 30 30 0d 20 20 75 70 64 |ite = 10|00.  upd|
|00034a40| 61 74 65 73 74 61 67 65 | 0d 20 20 0d 20 20 69 66 |atestage|.  .  if|
|00034a50| 20 28 67 57 6f 72 6c 64 | 20 3d 20 22 73 65 6e 73 | (gWorld| = "sens|
|00034a60| 65 73 22 20 6f 72 20 67 | 57 6f 72 6c 64 20 3d 20 |es" or g|World = |
|00034a70| 22 44 65 73 69 67 6e 22 | 29 20 61 6e 64 20 28 74 |"Design"|) and (t|
|00034a80| 68 65 20 66 72 61 6d 65 | 6c 61 62 65 6c 20 3d 20 |he frame|label = |
|00034a90| 50 69 63 74 46 72 61 6d | 65 32 29 20 74 68 65 6e |PictFram|e2) then|
|00034aa0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 63 61 73 |.    set| the cas|
|00034ab0| 74 6e 75 6d 20 6f 66 20 | 73 70 72 69 74 65 20 63 |tnum of |sprite c|
|00034ac0| 61 70 74 69 6f 6e 73 70 | 72 69 74 65 20 3d 20 74 |aptionsp|rite = t|
|00034ad0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 73 |he numbe|r of cas|
|00034ae0| 74 20 22 63 61 70 74 69 | 6f 6e 2d 70 69 63 32 22 |t "capti|on-pic2"|
|00034af0| 0d 20 20 65 6c 73 65 0d | 20 20 20 20 73 65 74 20 |.  else.|    set |
|00034b00| 74 68 65 20 63 61 73 74 | 6e 75 6d 20 6f 66 20 73 |the cast|num of s|
|00034b10| 70 72 69 74 65 20 63 61 | 70 74 69 6f 6e 73 70 72 |prite ca|ptionspr|
|00034b20| 69 74 65 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |ite = th|e number|
|00034b30| 20 6f 66 20 63 61 73 74 | 20 22 63 61 70 74 69 6f | of cast| "captio|
|00034b40| 6e 2d 70 69 63 22 0d 20 | 20 65 6e 64 20 69 66 0d |n-pic". | end if.|
|00034b50| 20 20 0d 20 20 73 65 74 | 20 74 6d 70 63 61 70 20 |  .  set| tmpcap |
|00034b60| 3d 20 47 65 74 43 61 70 | 74 69 6f 6e 28 29 0d 20 |= GetCap|tion(). |
|00034b70| 20 0d 20 20 69 66 20 28 | 67 57 6f 72 6c 64 20 3d | .  if (|gWorld =|
|00034b80| 20 22 73 65 6e 73 65 73 | 22 20 6f 72 20 67 57 6f | "senses|" or gWo|
|00034b90| 72 6c 64 20 3d 20 22 64 | 65 73 69 67 6e 22 29 20 |rld = "d|esign") |
|00034ba0| 61 6e 64 20 74 68 65 20 | 66 72 61 6d 65 6c 61 62 |and the |framelab|
|00034bb0| 65 6c 20 3d 20 50 69 63 | 74 46 72 61 6d 65 32 20 |el = Pic|tFrame2 |
|00034bc0| 74 68 65 6e 0d 20 20 20 | 20 73 65 74 20 74 68 65 |then.   | set the|
|00034bd0| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|00034be0| 63 61 70 74 69 6f 6e 2d | 70 69 63 32 22 20 3d 20 |caption-|pic2" = |
|00034bf0| 74 6d 70 63 61 70 20 0d | 20 20 20 20 73 65 74 20 |tmpcap .|    set |
|00034c00| 74 68 65 20 74 65 78 74 | 68 65 69 67 68 74 20 6f |the text|height o|
|00034c10| 66 20 66 69 65 6c 64 20 | 22 63 61 70 74 69 6f 6e |f field |"caption|
|00034c20| 2d 70 69 63 32 22 20 3d | 20 31 38 20 0d 20 20 65 |-pic2" =| 18 .  e|
|00034c30| 6c 73 65 20 20 0d 20 20 | 20 20 73 65 74 20 74 68 |lse  .  |  set th|
|00034c40| 65 20 74 65 78 74 20 6f | 66 20 66 69 65 6c 64 20 |e text o|f field |
|00034c50| 22 63 61 70 74 69 6f 6e | 2d 70 69 63 22 20 3d 20 |"caption|-pic" = |
|00034c60| 74 6d 70 63 61 70 0d 20 | 20 65 6e 64 20 69 66 0d |tmpcap. | end if.|
|00034c70| 20 20 0d 20 20 73 65 74 | 20 74 68 65 20 74 65 78 |  .  set| the tex|
|00034c80| 74 68 65 69 67 68 74 20 | 6f 66 20 66 69 65 6c 64 |theight |of field|
|00034c90| 20 22 63 61 70 74 69 6f | 6e 2d 70 69 63 22 20 3d | "captio|n-pic" =|
|00034ca0| 20 31 38 20 20 2d 2d 20 | 6c 65 61 64 69 6e 67 0d | 18  -- |leading.|
|00034cb0| 20 20 0d 20 20 69 66 20 | 67 57 6f 72 6c 64 20 3d |  .  if |gWorld =|
|00034cc0| 20 22 53 65 6e 73 65 73 | 22 20 74 68 65 6e 0d 20 | "Senses|" then. |
|00034cd0| 20 20 20 73 65 74 20 74 | 68 65 20 74 65 78 74 68 |   set t|he texth|
|00034ce0| 65 69 67 68 74 20 6f 66 | 20 66 69 65 6c 64 20 22 |eight of| field "|
|00034cf0| 63 61 70 74 69 6f 6e 2d | 70 69 63 32 22 20 3d 20 |caption-|pic2" = |
|00034d00| 32 35 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 0d 20 |25.  end| if.  . |
|00034d10| 20 73 65 74 20 74 68 65 | 20 74 65 78 74 20 6f 66 | set the| text of|
|00034d20| 20 66 69 65 6c 64 20 22 | 63 75 74 74 69 6e 67 22 | field "|cutting"|
|00034d30| 20 3d 20 22 20 22 0d 20 | 20 73 65 74 20 74 68 65 | = " ". | set the|
|00034d40| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|00034d50| 74 69 74 6c 65 22 20 3d | 20 22 20 22 0d 20 20 0d |title" =| " ".  .|
|00034d60| 20 20 2d 2d 20 61 64 6a | 75 73 74 20 74 68 65 20 |  -- adj|ust the |
|00034d70| 68 65 69 67 68 74 20 6f | 66 20 74 68 65 20 50 69 |height o|f the Pi|
|00034d80| 63 74 20 63 61 70 74 69 | 6f 6e 2c 20 74 6f 20 63 |ct capti|on, to c|
|00034d90| 65 6e 74 65 72 20 69 74 | 0d 20 20 69 66 20 67 57 |enter it|.  if gW|
|00034da0| 6f 72 6c 64 20 3d 20 22 | 50 6f 77 65 72 22 20 74 |orld = "|Power" t|
|00034db0| 68 65 6e 0d 20 20 20 20 | 73 65 74 20 63 65 6e 74 |hen.    |set cent|
|00034dc0| 65 72 70 6f 69 6e 74 20 | 3d 20 32 36 35 20 20 20 |erpoint |= 265   |
|00034dd0| 20 20 20 0d 20 20 65 6c | 73 65 20 69 66 20 67 57 |   .  el|se if gW|
|00034de0| 6f 72 6c 64 20 3d 20 22 | 73 65 6e 73 65 73 22 20 |orld = "|senses" |
|00034df0| 74 68 65 6e 0d 20 20 20 | 20 73 65 74 20 63 65 6e |then.   | set cen|
|00034e00| 74 65 72 70 6f 69 6e 74 | 20 3d 20 32 37 35 0d 20 |terpoint| = 275. |
|00034e10| 20 65 6c 73 65 20 69 66 | 20 67 57 6f 72 6c 64 20 | else if| gWorld |
|00034e20| 3d 20 22 64 69 73 63 6f | 76 65 72 22 20 74 68 65 |= "disco|ver" the|
|00034e30| 6e 0d 20 20 20 20 73 65 | 74 20 63 65 6e 74 65 72 |n.    se|t center|
|00034e40| 70 6f 69 6e 74 20 3d 20 | 32 35 30 0d 20 20 65 6c |point = |250.  el|
|00034e50| 73 65 0d 20 20 20 20 73 | 65 74 20 63 65 6e 74 65 |se.    s|et cente|
|00034e60| 72 70 6f 69 6e 74 20 3d | 20 33 30 30 0d 20 20 65 |rpoint =| 300.  e|
|00034e70| 6e 64 20 69 66 0d 20 20 | 0d 20 20 69 66 20 67 57 |nd if.  |.  if gW|
|00034e80| 6f 72 6c 64 20 3c 3e 20 | 22 53 65 6e 73 65 73 22 |orld <> |"Senses"|
|00034e90| 20 61 6e 64 20 67 57 6f | 72 6c 64 20 3c 3e 20 22 | and gWo|rld <> "|
|00034ea0| 42 6f 64 79 22 20 74 68 | 65 6e 0d 20 20 20 20 73 |Body" th|en.    s|
|00034eb0| 65 74 20 63 61 70 68 20 | 3d 20 74 68 65 20 68 65 |et caph |= the he|
|00034ec0| 69 67 68 74 20 6f 66 20 | 63 61 73 74 20 22 63 61 |ight of |cast "ca|
|00034ed0| 70 74 69 6f 6e 2d 70 69 | 63 22 0d 20 20 20 20 69 |ption-pi|c".    i|
|00034ee0| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 44 65 73 69 |f gWorld| = "Desi|
|00034ef0| 67 6e 22 20 74 68 65 6e | 20 0d 20 20 20 20 20 20 |gn" then| .      |
|00034f00| 69 66 20 74 68 65 20 66 | 72 61 6d 65 6c 61 62 65 |if the f|ramelabe|
|00034f10| 6c 20 3d 20 22 70 69 63 | 74 32 22 20 74 68 65 6e |l = "pic|t2" then|
|00034f20| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 63 61 70 |.       | set cap|
|00034f30| 68 20 3d 20 74 68 65 20 | 68 65 69 67 68 74 20 6f |h = the |height o|
|00034f40| 66 20 63 61 73 74 20 22 | 63 61 70 74 69 6f 6e 2d |f cast "|caption-|
|00034f50| 70 69 63 32 22 0d 20 20 | 20 20 20 20 20 20 73 65 |pic2".  |      se|
|00034f60| 74 20 74 68 65 20 6c 6f | 63 76 20 6f 66 20 73 70 |t the lo|cv of sp|
|00034f70| 72 69 74 65 20 63 61 70 | 74 69 6f 6e 73 70 72 69 |rite cap|tionspri|
|00034f80| 74 65 20 3d 20 63 65 6e | 74 65 72 70 6f 69 6e 74 |te = cen|terpoint|
|00034f90| 20 2d 20 28 63 61 70 68 | 2f 32 29 0d 20 20 20 20 | - (caph|/2).    |
|00034fa0| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 65 6c 73 |  end if|.    els|
|00034fb0| 65 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |e.      |set the |
|00034fc0| 6c 6f 63 76 20 6f 66 20 | 73 70 72 69 74 65 20 63 |locv of |sprite c|
|00034fd0| 61 70 74 69 6f 6e 73 70 | 72 69 74 65 20 3d 20 63 |aptionsp|rite = c|
|00034fe0| 65 6e 74 65 72 70 6f 69 | 6e 74 20 2d 20 28 63 61 |enterpoi|nt - (ca|
|00034ff0| 70 68 2f 32 29 0d 20 20 | 20 20 65 6e 64 20 69 66 |ph/2).  |  end if|
|00035000| 20 20 0d 20 20 20 20 0d | 20 20 20 20 0d 20 20 65 |  .    .|    .  e|
|00035010| 6c 73 65 20 69 66 20 67 | 57 6f 72 6c 64 20 3d 20 |lse if g|World = |
|00035020| 22 42 6f 64 79 22 20 74 | 68 65 6e 0d 20 20 20 20 |"Body" t|hen.    |
|00035030| 73 65 74 20 74 68 65 20 | 6c 6f 63 76 20 6f 66 20 |set the |locv of |
|00035040| 73 70 72 69 74 65 20 63 | 61 70 74 69 6f 6e 73 70 |sprite c|aptionsp|
|00035050| 72 69 74 65 20 3d 20 31 | 31 32 0d 20 20 65 6e 64 |rite = 1|12.  end|
|00035060| 20 69 66 0d 20 20 0d 20 | 20 2d 2d 20 69 66 20 69 | if.  . | -- if i|
|00035070| 74 20 65 78 69 73 74 73 | 20 74 68 65 6e 20 70 75 |t exists| then pu|
|00035080| 74 20 69 74 20 6f 6e 20 | 74 68 65 20 73 63 72 65 |t it on |the scre|
|00035090| 65 6e 2c 20 67 65 74 74 | 69 6e 67 20 72 69 64 20 |en, gett|ing rid |
|000350a0| 6f 66 20 74 68 65 20 63 | 75 74 74 69 6e 67 20 62 |of the c|utting b|
|000350b0| 6f 78 0d 20 20 0d 20 20 | 69 66 20 70 69 63 63 61 |ox.  .  |if picca|
|000350c0| 73 74 20 3e 20 30 20 74 | 68 65 6e 20 20 20 20 0d |st > 0 t|hen    .|
|000350d0| 20 20 20 20 73 65 74 20 | 74 68 65 20 73 74 72 65 |    set |the stre|
|000350e0| 74 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 70 69 |tch of s|prite pi|
|000350f0| 63 73 70 72 69 74 65 20 | 3d 20 30 0d 20 20 20 20 |csprite |= 0.    |
|00035100| 73 65 74 20 74 68 65 20 | 63 61 73 74 6e 75 6d 20 |set the |castnum |
|00035110| 6f 66 20 73 70 72 69 74 | 65 20 70 69 63 73 70 72 |of sprit|e picspr|
|00035120| 69 74 65 20 3d 20 70 69 | 63 63 61 73 74 0d 20 20 |ite = pi|ccast.  |
|00035130| 20 20 73 65 74 20 77 20 | 3d 20 31 2e 30 20 2a 20 |  set w |= 1.0 * |
|00035140| 28 74 68 65 20 77 69 64 | 74 68 20 6f 66 20 63 61 |(the wid|th of ca|
|00035150| 73 74 20 70 69 63 63 61 | 73 74 29 20 2f 20 32 0d |st picca|st) / 2.|
|00035160| 20 20 20 20 73 65 74 20 | 68 20 3d 20 31 2e 30 20 |    set |h = 1.0 |
|00035170| 2a 20 28 74 68 65 20 68 | 65 69 67 68 74 20 6f 66 |* (the h|eight of|
|00035180| 20 63 61 73 74 20 70 69 | 63 63 61 73 74 29 20 2f | cast pi|ccast) /|
|00035190| 20 32 0d 20 20 20 20 0d | 20 20 20 20 69 66 20 67 | 2.    .|    if g|
|000351a0| 57 6f 72 6c 64 20 3d 20 | 22 64 65 73 69 67 6e 22 |World = |"design"|
|000351b0| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 69 66 20 74 | then.  |    if t|
|000351c0| 68 65 20 77 69 64 74 68 | 20 6f 66 20 63 61 73 74 |he width| of cast|
|000351d0| 20 70 69 63 63 61 73 74 | 20 3e 20 74 68 65 20 68 | piccast| > the h|
|000351e0| 65 69 67 68 74 20 6f 66 | 20 63 61 73 74 20 70 69 |eight of| cast pi|
|000351f0| 63 63 61 73 74 20 74 68 | 65 6e 0d 20 20 20 20 20 |ccast th|en.     |
|00035200| 20 20 20 2d 2d 20 77 69 | 64 65 20 70 69 63 74 73 |   -- wi|de picts|
|00035210| 20 20 32 35 36 2c 31 34 | 36 0d 20 20 20 20 20 20 |  256,14|6.      |
|00035220| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|00035230| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|00035240| 74 65 20 3d 20 39 38 20 | 2b 20 77 0d 20 20 20 20 |te = 98 |+ w.    |
|00035250| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 76 |    set |the locv|
|00035260| 20 6f 66 20 73 70 72 69 | 74 65 20 70 69 63 73 70 | of spri|te picsp|
|00035270| 72 69 74 65 20 3d 20 31 | 33 31 20 2b 20 68 0d 20 |rite = 1|31 + h. |
|00035280| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |       s|et the l|
|00035290| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 63 61 |och of s|prite ca|
|000352a0| 70 74 69 6f 6e 73 70 72 | 69 74 65 20 3d 20 34 39 |ptionspr|ite = 49|
|000352b0| 33 0d 20 20 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |3.      |else.   |
|000352c0| 20 20 20 20 20 2d 2d 20 | 74 61 6c 6c 20 70 69 63 |     -- |tall pic|
|000352d0| 73 20 20 32 35 36 2c 37 | 32 0d 20 20 20 20 20 20 |s  256,7|2.      |
|000352e0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|000352f0| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|00035300| 74 65 20 3d 20 32 37 35 | 20 2b 20 77 0d 20 20 20 |te = 275| + w.   |
|00035310| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |     set| the loc|
|00035320| 76 20 6f 66 20 73 70 72 | 69 74 65 20 70 69 63 73 |v of spr|ite pics|
|00035330| 70 72 69 74 65 20 3d 20 | 34 38 30 2d 68 0d 20 20 |prite = |480-h.  |
|00035340| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|00035350| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 63 61 70 |ch of sp|rite cap|
|00035360| 74 69 6f 6e 73 70 72 69 | 74 65 20 3d 20 31 33 38 |tionspri|te = 138|
|00035370| 0d 20 20 20 20 20 20 65 | 6e 64 20 69 66 0d 20 20 |.      e|nd if.  |
|00035380| 20 20 65 6c 73 65 20 69 | 66 20 67 57 6f 72 6c 64 |  else i|f gWorld|
|00035390| 20 3d 20 22 70 6f 77 65 | 72 22 20 74 68 65 6e 0d | = "powe|r" then.|
|000353a0| 20 20 20 20 20 20 0d 20 | 20 20 20 20 20 73 65 74 |      . |     set|
|000353b0| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|000353c0| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|000353d0| 65 20 3d 20 63 61 70 74 | 69 6f 6e 6c 6f 63 68 0d |e = capt|ionloch.|
|000353e0| 20 20 20 20 20 20 69 66 | 20 74 68 65 20 77 69 64 |      if| the wid|
|000353f0| 74 68 20 6f 66 20 63 61 | 73 74 20 70 69 63 63 61 |th of ca|st picca|
|00035400| 73 74 20 3e 20 74 68 65 | 20 68 65 69 67 68 74 20 |st > the| height |
|00035410| 6f 66 20 63 61 73 74 20 | 70 69 63 63 61 73 74 20 |of cast |piccast |
|00035420| 74 68 65 6e 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |then.   |     -- |
|00035430| 77 69 64 65 20 70 69 63 | 74 73 20 20 32 35 36 2c |wide pic|ts  256,|
|00035440| 31 34 36 0d 20 20 20 20 | 20 20 20 20 73 65 74 20 |146.    |    set |
|00035450| 74 68 65 20 6c 6f 63 68 | 20 6f 66 20 73 70 72 69 |the loch| of spri|
|00035460| 74 65 20 70 69 63 73 70 | 72 69 74 65 20 3d 20 36 |te picsp|rite = 6|
|00035470| 34 30 20 2d 20 77 0d 20 | 20 20 20 20 20 20 20 73 |40 - w. |       s|
|00035480| 65 74 20 74 68 65 20 6c | 6f 63 76 20 6f 66 20 73 |et the l|ocv of s|
|00035490| 70 72 69 74 65 20 70 69 | 63 73 70 72 69 74 65 20 |prite pi|csprite |
|000354a0| 3d 20 31 34 36 20 2b 20 | 68 0d 20 20 20 20 20 20 |= 146 + |h.      |
|000354b0| 65 6c 73 65 0d 20 20 20 | 20 20 20 20 20 2d 2d 20 |else.   |     -- |
|000354c0| 74 61 6c 6c 20 70 69 63 | 73 20 20 32 35 36 2c 37 |tall pic|s  256,7|
|000354d0| 32 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 |2.      |  set th|
|000354e0| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|000354f0| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 32 35 36 | picspri|te = 256|
|00035500| 20 2b 20 77 0d 20 20 20 | 20 20 20 20 20 73 65 74 | + w.   |     set|
|00035510| 20 74 68 65 20 6c 6f 63 | 76 20 6f 66 20 73 70 72 | the loc|v of spr|
|00035520| 69 74 65 20 70 69 63 73 | 70 72 69 74 65 20 3d 20 |ite pics|prite = |
|00035530| 37 32 20 2b 20 68 0d 20 | 20 20 20 20 20 65 6e 64 |72 + h. |     end|
|00035540| 20 69 66 0d 20 20 20 20 | 65 6c 73 65 20 69 66 20 | if.    |else if |
|00035550| 67 57 6f 72 6c 64 20 3d | 20 22 64 69 73 63 6f 76 |gWorld =| "discov|
|00035560| 65 72 22 20 74 68 65 6e | 0d 20 20 20 20 20 20 0d |er" then|.      .|
|00035570| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |      se|t the lo|
|00035580| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 63 61 70 |ch of sp|rite cap|
|00035590| 74 69 6f 6e 73 70 72 69 | 74 65 20 3d 20 63 61 70 |tionspri|te = cap|
|000355a0| 74 69 6f 6e 6c 6f 63 68 | 0d 20 20 20 20 20 20 69 |tionloch|.      i|
|000355b0| 66 20 74 68 65 20 77 69 | 64 74 68 20 6f 66 20 63 |f the wi|dth of c|
|000355c0| 61 73 74 20 70 69 63 63 | 61 73 74 20 3e 20 74 68 |ast picc|ast > th|
|000355d0| 65 20 68 65 69 67 68 74 | 20 6f 66 20 63 61 73 74 |e height| of cast|
|000355e0| 20 70 69 63 63 61 73 74 | 20 74 68 65 6e 0d 20 20 | piccast| then.  |
|000355f0| 20 20 20 20 20 20 2d 2d | 20 77 69 64 65 20 70 69 |      --| wide pi|
|00035600| 63 74 73 20 20 32 35 36 | 2c 31 34 36 0d 20 20 20 |cts  256|,146.   |
|00035610| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |     set| the loc|
|00035620| 68 20 6f 66 20 73 70 72 | 69 74 65 20 70 69 63 73 |h of spr|ite pics|
|00035630| 70 72 69 74 65 20 3d 20 | 32 35 30 20 2b 20 77 0d |prite = |250 + w.|
|00035640| 20 20 20 20 20 20 20 20 | 2d 2d 20 73 65 74 20 74 |        |-- set t|
|00035650| 68 65 20 6c 6f 63 76 20 | 6f 66 20 73 70 72 69 74 |he locv |of sprit|
|00035660| 65 20 70 69 63 73 70 72 | 69 74 65 20 3d 20 31 34 |e picspr|ite = 14|
|00035670| 36 20 2b 20 68 0d 20 20 | 20 20 20 20 20 20 73 65 |6 + h.  |      se|
|00035680| 74 20 74 68 65 20 6c 6f | 63 76 20 6f 66 20 73 70 |t the lo|cv of sp|
|00035690| 72 69 74 65 20 70 69 63 | 73 70 72 69 74 65 20 3d |rite pic|sprite =|
|000356a0| 20 34 32 31 20 2d 20 68 | 0d 20 20 20 20 20 20 65 | 421 - h|.      e|
|000356b0| 6c 73 65 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 74 |lse.    |    -- t|
|000356c0| 61 6c 6c 20 70 69 63 73 | 20 20 32 35 36 2c 37 32 |all pics|  256,72|
|000356d0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|000356e0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|000356f0| 70 69 63 73 70 72 69 74 | 65 20 3d 20 32 35 30 20 |picsprit|e = 250 |
|00035700| 2b 20 77 0d 20 20 20 20 | 20 20 20 20 2d 2d 20 20 |+ w.    |    --  |
|00035710| 73 65 74 20 74 68 65 20 | 6c 6f 63 76 20 6f 66 20 |set the |locv of |
|00035720| 73 70 72 69 74 65 20 70 | 69 63 73 70 72 69 74 65 |sprite p|icsprite|
|00035730| 20 3d 20 37 32 20 2b 20 | 68 0d 20 20 20 20 20 20 | = 72 + |h.      |
|00035740| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|00035750| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|00035760| 74 65 20 3d 20 34 32 31 | 20 2d 20 68 0d 20 20 20 |te = 421| - h.   |
|00035770| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 65 6c |   end i|f.    el|
|00035780| 73 65 20 69 66 20 67 57 | 6f 72 6c 64 20 3d 20 22 |se if gW|orld = "|
|00035790| 73 65 6e 73 65 73 22 20 | 74 68 65 6e 0d 20 20 20 |senses" |then.   |
|000357a0| 20 20 20 0d 20 20 20 20 | 20 20 69 66 20 74 68 65 |   .    |  if the|
|000357b0| 20 77 69 64 74 68 20 6f | 66 20 63 61 73 74 20 70 | width o|f cast p|
|000357c0| 69 63 63 61 73 74 20 3e | 20 74 68 65 20 68 65 69 |iccast >| the hei|
|000357d0| 67 68 74 20 6f 66 20 63 | 61 73 74 20 70 69 63 63 |ght of c|ast picc|
|000357e0| 61 73 74 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |ast then|.       |
|000357f0| 20 2d 2d 20 77 69 64 65 | 20 70 69 63 74 73 20 20 | -- wide| picts  |
|00035800| 31 39 31 2c 35 36 0d 20 | 20 20 20 20 20 20 20 73 |191,56. |       s|
|00035810| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|00035820| 70 72 69 74 65 20 70 69 | 63 73 70 72 69 74 65 20 |prite pi|csprite |
|00035830| 3d 20 31 39 31 20 2b 20 | 77 0d 20 20 20 20 20 20 |= 191 + |w.      |
|00035840| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|00035850| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|00035860| 74 65 20 3d 20 34 36 20 | 2b 20 68 0d 20 20 20 20 |te = 46 |+ h.    |
|00035870| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 20 20 2d |  else. |       -|
|00035880| 2d 20 74 61 6c 6c 20 70 | 69 63 73 20 20 31 39 31 |- tall p|ics  191|
|00035890| 2c 35 36 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |,56.    |    .   |
|000358a0| 20 20 20 20 20 73 65 74 | 20 63 61 70 68 20 3d 20 |     set| caph = |
|000358b0| 74 68 65 20 68 65 69 67 | 68 74 20 6f 66 20 63 61 |the heig|ht of ca|
|000358c0| 73 74 20 22 63 61 70 74 | 69 6f 6e 2d 70 69 63 22 |st "capt|ion-pic"|
|000358d0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|000358e0| 20 6c 6f 63 76 20 6f 66 | 20 73 70 72 69 74 65 20 | locv of| sprite |
|000358f0| 63 61 70 74 69 6f 6e 73 | 70 72 69 74 65 20 3d 20 |captions|prite = |
|00035900| 63 65 6e 74 65 72 70 6f | 69 6e 74 20 2d 20 28 63 |centerpo|int - (c|
|00035910| 61 70 68 2f 32 29 0d 20 | 20 20 20 20 20 20 20 0d |aph/2). |       .|
|00035920| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00035930| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 70 |loch of |sprite p|
|00035940| 69 63 73 70 72 69 74 65 | 20 3d 20 31 39 31 20 2b |icsprite| = 191 +|
|00035950| 20 77 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 | w.     |   set t|
|00035960| 68 65 20 6c 6f 63 76 20 | 6f 66 20 73 70 72 69 74 |he locv |of sprit|
|00035970| 65 20 70 69 63 73 70 72 | 69 74 65 20 3d 20 34 35 |e picspr|ite = 45|
|00035980| 20 2b 20 68 0d 20 20 20 | 20 20 20 65 6e 64 20 69 | + h.   |   end i|
|00035990| 66 0d 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 73 |f.      |.      s|
|000359a0| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|000359b0| 70 72 69 74 65 20 63 61 | 70 74 69 6f 6e 73 70 72 |prite ca|ptionspr|
|000359c0| 69 74 65 20 3d 20 63 61 | 70 74 69 6f 6e 6c 6f 63 |ite = ca|ptionloc|
|000359d0| 68 0d 20 20 20 20 20 20 | 0d 20 20 20 20 65 6c 73 |h.      |.    els|
|000359e0| 65 20 69 66 20 67 57 6f | 72 6c 64 20 3d 20 22 6d |e if gWo|rld = "m|
|000359f0| 69 6e 64 22 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |ind" the|n.      |
|00035a00| 0d 20 20 20 20 20 20 69 | 66 20 70 69 63 63 61 73 |.      i|f piccas|
|00035a10| 74 6e 61 6d 65 20 3d 20 | 22 39 36 2d 33 2e 36 22 |tname = |"96-3.6"|
|00035a20| 20 74 68 65 6e 0d 20 20 | 20 20 20 20 20 20 2d 2d | then.  |      --|
|00035a30| 20 73 70 65 63 69 61 6c | 20 63 61 73 65 20 66 6f | special| case fo|
|00035a40| 72 20 4a 75 6e 67 0d 20 | 20 20 20 20 20 20 20 73 |r Jung. |       s|
|00035a50| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|00035a60| 70 72 69 74 65 20 70 69 | 63 73 70 72 69 74 65 20 |prite pi|csprite |
|00035a70| 3d 20 34 35 37 0d 20 20 | 20 20 20 20 20 20 73 65 |= 457.  |      se|
|00035a80| 74 20 74 68 65 20 6c 6f | 63 76 20 6f 66 20 73 70 |t the lo|cv of sp|
|00035a90| 72 69 74 65 20 70 69 63 | 73 70 72 69 74 65 20 3d |rite pic|sprite =|
|00035aa0| 20 32 38 34 0d 20 20 20 | 20 20 20 20 20 0d 20 20 | 284.   |     .  |
|00035ab0| 20 20 20 20 65 6c 73 65 | 20 69 66 20 70 69 63 63 |    else| if picc|
|00035ac0| 61 73 74 6e 61 6d 65 20 | 3d 20 22 39 36 2d 33 2e |astname |= "96-3.|
|00035ad0| 36 62 22 20 74 68 65 6e | 0d 20 20 20 20 20 20 20 |6b" then|.       |
|00035ae0| 20 2d 2d 20 61 6e 6f 74 | 68 65 72 20 73 70 65 63 | -- anot|her spec|
|00035af0| 69 61 6c 20 63 61 73 65 | 20 66 6f 72 20 4a 75 6e |ial case| for Jun|
|00035b00| 67 0d 20 20 20 20 20 20 | 20 20 73 65 74 20 74 68 |g.      |  set th|
|00035b10| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00035b20| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 34 35 31 | picspri|te = 451|
|00035b30| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|00035b40| 20 6c 6f 63 76 20 6f 66 | 20 73 70 72 69 74 65 20 | locv of| sprite |
|00035b50| 70 69 63 73 70 72 69 74 | 65 20 3d 20 32 38 32 0d |picsprit|e = 282.|
|00035b60| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 65 |        |.      e|
|00035b70| 6c 73 65 20 69 66 20 28 | 74 68 65 20 77 69 64 74 |lse if (|the widt|
|00035b80| 68 20 6f 66 20 63 61 73 | 74 20 70 69 63 63 61 73 |h of cas|t piccas|
|00035b90| 74 29 20 3e 20 28 74 68 | 65 20 68 65 69 67 68 74 |t) > (th|e height|
|00035ba0| 20 6f 66 20 63 61 73 74 | 20 70 69 63 63 61 73 74 | of cast| piccast|
|00035bb0| 29 20 6f 72 20 c2 0d 20 | 20 20 20 20 20 20 20 20 |) or .. |        |
|00035bc0| 28 74 68 65 20 77 69 64 | 74 68 20 6f 66 20 63 61 |(the wid|th of ca|
|00035bd0| 73 74 20 70 69 63 63 61 | 73 74 29 20 3d 20 28 74 |st picca|st) = (t|
|00035be0| 68 65 20 68 65 69 67 68 | 74 20 6f 66 20 63 61 73 |he heigh|t of cas|
|00035bf0| 74 20 70 69 63 63 61 73 | 74 29 20 74 68 65 6e 0d |t piccas|t) then.|
|00035c00| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 |        |.       |
|00035c10| 20 2d 2d 20 77 69 64 65 | 20 70 69 63 74 73 20 20 | -- wide| picts  |
|00035c20| 31 39 31 2c 35 36 0d 20 | 20 20 20 20 20 20 20 73 |191,56. |       s|
|00035c30| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|00035c40| 70 72 69 74 65 20 70 69 | 63 73 70 72 69 74 65 20 |prite pi|csprite |
|00035c50| 3d 20 32 35 36 20 2b 20 | 77 0d 20 20 20 20 20 20 |= 256 + |w.      |
|00035c60| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|00035c70| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|00035c80| 74 65 20 3d 20 39 36 20 | 2b 20 68 0d 20 20 20 20 |te = 96 |+ h.    |
|00035c90| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 20 20 2d |  else. |       -|
|00035ca0| 2d 20 74 61 6c 6c 20 70 | 69 63 73 20 20 31 39 31 |- tall p|ics  191|
|00035cb0| 2c 35 36 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |,56.    |    .   |
|00035cc0| 20 20 20 20 20 73 65 74 | 20 63 61 70 68 20 3d 20 |     set| caph = |
|00035cd0| 74 68 65 20 68 65 69 67 | 68 74 20 6f 66 20 63 61 |the heig|ht of ca|
|00035ce0| 73 74 20 22 63 61 70 74 | 69 6f 6e 2d 70 69 63 22 |st "capt|ion-pic"|
|00035cf0| 0d 20 20 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |.       | set the|
|00035d00| 20 6c 6f 63 76 20 6f 66 | 20 73 70 72 69 74 65 20 | locv of| sprite |
|00035d10| 63 61 70 74 69 6f 6e 73 | 70 72 69 74 65 20 3d 20 |captions|prite = |
|00035d20| 63 65 6e 74 65 72 70 6f | 69 6e 74 20 2d 20 28 63 |centerpo|int - (c|
|00035d30| 61 70 68 2f 32 29 0d 20 | 20 20 20 20 20 20 20 0d |aph/2). |       .|
|00035d40| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00035d50| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 70 |loch of |sprite p|
|00035d60| 69 63 73 70 72 69 74 65 | 20 3d 20 33 34 38 20 2b |icsprite| = 348 +|
|00035d70| 20 77 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 | w.     |   set t|
|00035d80| 68 65 20 6c 6f 63 76 20 | 6f 66 20 73 70 72 69 74 |he locv |of sprit|
|00035d90| 65 20 70 69 63 73 70 72 | 69 74 65 20 3d 20 39 36 |e picspr|ite = 96|
|00035da0| 20 2b 20 68 0d 20 20 20 | 20 20 20 65 6e 64 20 69 | + h.   |   end i|
|00035db0| 66 0d 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 73 |f.      |.      s|
|00035dc0| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|00035dd0| 70 72 69 74 65 20 63 61 | 70 74 69 6f 6e 73 70 72 |prite ca|ptionspr|
|00035de0| 69 74 65 20 3d 20 63 61 | 70 74 69 6f 6e 6c 6f 63 |ite = ca|ptionloc|
|00035df0| 68 0d 20 20 20 20 65 6c | 73 65 20 69 66 20 67 57 |h.    el|se if gW|
|00035e00| 6f 72 6c 64 20 3d 20 22 | 62 6f 64 79 22 20 74 68 |orld = "|body" th|
|00035e10| 65 6e 0d 20 20 20 20 20 | 20 0d 20 20 20 20 20 20 |en.     | .      |
|00035e20| 69 66 20 74 68 65 20 77 | 69 64 74 68 20 6f 66 20 |if the w|idth of |
|00035e30| 63 61 73 74 20 70 69 63 | 63 61 73 74 20 3e 20 74 |cast pic|cast > t|
|00035e40| 68 65 20 68 65 69 67 68 | 74 20 6f 66 20 63 61 73 |he heigh|t of cas|
|00035e50| 74 20 70 69 63 63 61 73 | 74 20 74 68 65 6e 0d 20 |t piccas|t then. |
|00035e60| 20 20 20 20 20 20 20 2d | 2d 20 77 69 64 65 20 70 |       -|- wide p|
|00035e70| 69 63 74 73 20 20 31 39 | 31 2c 35 36 0d 20 20 20 |icts  19|1,56.   |
|00035e80| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |     set| the loc|
|00035e90| 68 20 6f 66 20 73 70 72 | 69 74 65 20 70 69 63 73 |h of spr|ite pics|
|00035ea0| 70 72 69 74 65 20 3d 20 | 32 39 38 20 2b 20 77 0d |prite = |298 + w.|
|00035eb0| 20 20 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |        |set the |
|00035ec0| 6c 6f 63 76 20 6f 66 20 | 73 70 72 69 74 65 20 70 |locv of |sprite p|
|00035ed0| 69 63 73 70 72 69 74 65 | 20 3d 20 36 38 20 2b 20 |icsprite| = 68 + |
|00035ee0| 68 0d 20 20 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |h.      |else.   |
|00035ef0| 20 20 20 20 20 2d 2d 20 | 74 61 6c 6c 20 70 69 63 |     -- |tall pic|
|00035f00| 73 20 20 31 39 31 2c 35 | 36 0d 20 20 20 20 20 20 |s  191,5|6.      |
|00035f10| 20 20 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |  .     |   set t|
|00035f20| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00035f30| 65 20 70 69 63 73 70 72 | 69 74 65 20 3d 20 32 39 |e picspr|ite = 29|
|00035f40| 36 20 2b 20 77 0d 20 20 | 20 20 20 20 20 20 73 65 |6 + w.  |      se|
|00035f50| 74 20 74 68 65 20 6c 6f | 63 76 20 6f 66 20 73 70 |t the lo|cv of sp|
|00035f60| 72 69 74 65 20 70 69 63 | 73 70 72 69 74 65 20 3d |rite pic|sprite =|
|00035f70| 20 36 38 20 2b 20 68 0d | 20 20 20 20 20 20 65 6e | 68 + h.|      en|
|00035f80| 64 20 69 66 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |d if.   |   .    |
|00035f90| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|00035fa0| 66 20 73 70 72 69 74 65 | 20 63 61 70 74 69 6f 6e |f sprite| caption|
|00035fb0| 73 70 72 69 74 65 20 3d | 20 63 61 70 74 69 6f 6e |sprite =| caption|
|00035fc0| 6c 6f 63 68 0d 20 20 20 | 20 65 6e 64 20 69 66 0d |loch.   | end if.|
|00035fd0| 20 20 65 6c 73 65 0d 20 | 20 20 20 73 65 74 20 74 |  else. |   set t|
|00035fe0| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00035ff0| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 20 |e captio|nsprite |
|00036000| 3d 20 63 61 70 74 69 6f | 6e 6c 6f 63 68 0d 20 20 |= captio|nloch.  |
|00036010| 65 6e 64 20 69 66 0d 20 | 20 0d 20 20 75 70 64 61 |end if. | .  upda|
|00036020| 74 65 73 74 61 67 65 0d | 20 20 0d 20 20 69 66 20 |testage.|  .  if |
|00036030| 70 69 63 63 61 73 74 6e | 61 6d 65 20 3d 20 22 31 |piccastn|ame = "1|
|00036040| 33 36 2d 32 2e 32 22 20 | 74 68 65 6e 20 0d 20 20 |36-2.2" |then .  |
|00036050| 20 20 67 6f 20 74 6f 20 | 66 72 61 6d 65 20 22 31 |  go to |frame "1|
|00036060| 33 36 2d 32 2e 32 22 0d | 20 20 20 20 73 65 74 20 |36-2.2".|    set |
|00036070| 74 68 65 20 76 69 73 69 | 62 6c 65 20 6f 66 20 73 |the visi|ble of s|
|00036080| 70 72 69 74 65 20 32 30 | 20 3d 20 31 20 20 20 20 |prite 20| = 1    |
|00036090| 0d 20 20 65 6c 73 65 20 | 69 66 20 70 69 63 63 61 |.  else |if picca|
|000360a0| 73 74 6e 61 6d 65 20 3d | 20 22 31 33 36 2d 32 2e |stname =| "136-2.|
|000360b0| 33 22 20 74 68 65 6e 20 | 0d 20 20 20 20 67 6f 20 |3" then |.    go |
|000360c0| 74 6f 20 66 72 61 6d 65 | 20 22 31 33 36 2d 32 2e |to frame| "136-2.|
|000360d0| 33 22 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 76 |3".    s|et the v|
|000360e0| 69 73 69 62 6c 65 20 6f | 66 20 73 70 72 69 74 65 |isible o|f sprite|
|000360f0| 20 32 30 20 3d 20 31 20 | 20 20 20 0d 20 20 65 6c | 20 = 1 |   .  el|
|00036100| 73 65 20 69 66 20 70 69 | 63 63 61 73 74 6e 61 6d |se if pi|ccastnam|
|00036110| 65 20 3d 20 22 39 36 2d | 33 2e 36 22 20 74 68 65 |e = "96-|3.6" the|
|00036120| 6e 20 20 20 0d 20 20 20 | 20 67 6f 20 74 6f 20 66 |n   .   | go to f|
|00036130| 72 61 6d 65 20 22 6a 75 | 6e 67 22 0d 20 20 65 6e |rame "ju|ng".  en|
|00036140| 64 20 69 66 0d 20 20 0d | 65 6e 64 0d 2d 2d 2d 2d |d if.  .|end.----|
|00036150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00036160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00036170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00036180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00036190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000361a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 6f 6e 20 47 6f 53 |--------|-.on GoS|
|000361b0| 6f 75 6e 64 41 72 74 69 | 63 6c 65 0d 20 20 67 6c |oundArti|cle.  gl|
|000361c0| 6f 62 61 6c 20 67 43 68 | 61 70 74 65 72 73 2c 20 |obal gCh|apters, |
|000361d0| 67 54 69 74 6c 65 73 2c | 20 67 41 72 74 69 63 6c |gTitles,| gArticl|
|000361e0| 65 73 2c 20 67 44 61 74 | 65 73 2c 20 67 43 61 70 |es, gDat|es, gCap|
|000361f0| 74 69 6f 6e 73 2c 20 67 | 43 75 72 43 75 74 74 69 |tions, g|CurCutti|
|00036200| 6e 67 0d 20 20 67 6c 6f | 62 61 6c 20 67 43 75 72 |ng.  glo|bal gCur|
|00036210| 43 68 61 70 2c 20 67 43 | 75 72 41 72 74 69 63 6c |Chap, gC|urArticl|
|00036220| 65 2c 20 67 4e 61 6d 65 | 2c 20 6d 79 74 65 78 74 |e, gName|, mytext|
|00036230| 2c 20 67 41 72 74 69 63 | 6c 65 50 61 67 65 2c 20 |, gArtic|lePage, |
|00036240| 67 46 75 6c 6c 43 75 74 | 74 69 6e 67 73 0d 20 20 |gFullCut|tings.  |
|00036250| 67 6c 6f 62 61 6c 20 67 | 46 6f 72 6d 61 74 74 65 |global g|Formatte|
|00036260| 64 54 65 78 74 2c 20 67 | 54 65 78 74 50 61 67 65 |dText, g|TextPage|
|00036270| 73 2c 20 67 4d 61 78 4c | 69 6e 65 73 2c 20 67 43 |s, gMaxL|ines, gC|
|00036280| 75 72 49 6e 64 65 78 2c | 20 67 57 6f 72 6c 64 2c |urIndex,| gWorld,|
|00036290| 20 67 53 65 65 6e 4d 61 | 70 73 0d 20 20 67 6c 6f | gSeenMa|ps.  glo|
|000362a0| 62 61 6c 20 67 50 61 70 | 65 72 4c 6f 63 68 2c 20 |bal gPap|erLoch, |
|000362b0| 67 4d 61 6b 65 72 4e 61 | 6d 65 2c 20 67 48 65 61 |gMakerNa|me, gHea|
|000362c0| 64 6c 6f 63 48 2c 20 67 | 4e 61 6d 65 4c 6f 63 68 |dlocH, g|NameLoch|
|000362d0| 2c 20 67 4e 61 6d 65 4c | 6f 63 76 0d 20 20 67 6c |, gNameL|ocv.  gl|
|000362e0| 6f 62 61 6c 20 67 4d 61 | 6b 65 72 4e 75 6d 2c 20 |obal gMa|kerNum, |
|000362f0| 67 51 54 70 61 74 68 2c | 20 67 53 6f 75 6e 64 50 |gQTpath,| gSoundP|
|00036300| 61 74 68 2c 20 67 4e 75 | 67 67 65 74 54 69 6d 65 |ath, gNu|ggetTime|
|00036310| 2c 20 67 4e 75 67 67 65 | 74 44 65 6c 61 79 2c 20 |, gNugge|tDelay, |
|00036320| 67 4e 61 6d 65 43 61 73 | 74 6e 75 6d 0d 20 20 0d |gNameCas|tnum.  .|
|00036330| 20 20 73 65 74 20 70 69 | 63 73 70 72 69 74 65 20 |  set pi|csprite |
|00036340| 3d 20 39 20 20 2d 2d 20 | 74 68 65 20 73 70 72 69 |= 9  -- |the spri|
|00036350| 74 65 20 74 68 65 20 70 | 69 63 74 20 61 70 70 65 |te the p|ict appe|
|00036360| 61 72 73 20 6f 6e 0d 20 | 20 73 65 74 20 63 75 74 |ars on. | set cut|
|00036370| 74 69 6e 67 73 70 72 69 | 74 65 20 3d 20 36 0d 20 |tingspri|te = 6. |
|00036380| 20 73 65 74 20 74 69 74 | 6c 65 73 70 72 69 74 65 | set tit|lesprite|
|00036390| 20 3d 20 38 0d 20 20 73 | 65 74 20 70 61 70 65 72 | = 8.  s|et paper|
|000363a0| 73 70 72 69 74 65 20 3d | 20 31 31 0d 20 20 73 65 |sprite =| 11.  se|
|000363b0| 74 20 64 61 74 65 73 70 | 72 69 74 65 20 3d 20 31 |t datesp|rite = 1|
|000363c0| 32 0d 20 20 73 65 74 20 | 63 61 70 74 69 6f 6e 73 |2.  set |captions|
|000363d0| 70 72 69 74 65 20 3d 20 | 37 0d 20 20 73 65 74 20 |prite = |7.  set |
|000363e0| 66 6f 72 77 61 72 64 62 | 75 74 74 6f 6e 20 3d 20 |forwardb|utton = |
|000363f0| 32 30 0d 20 20 73 65 74 | 20 62 61 63 6b 62 75 74 |20.  set| backbut|
|00036400| 74 6f 6e 20 3d 20 31 39 | 0d 20 20 73 65 74 20 68 |ton = 19|.  set h|
|00036410| 65 61 64 73 70 72 69 74 | 65 20 3d 20 31 30 20 20 |eadsprit|e = 10  |
|00036420| 0d 20 20 73 65 74 20 6e | 61 6d 65 73 70 72 69 74 |.  set n|amesprit|
|00036430| 65 20 3d 20 34 0d 20 20 | 73 65 74 20 68 65 61 64 |e = 4.  |set head|
|00036440| 6c 6f 63 68 20 3d 20 67 | 48 65 61 64 6c 6f 63 68 |loch = g|Headloch|
|00036450| 20 20 2d 2d 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 |  -- the| loch of|
|00036460| 20 74 68 65 20 68 65 61 | 64 73 68 6f 74 20 73 70 | the hea|dshot sp|
|00036470| 72 69 74 65 0d 20 20 0d | 20 20 0d 20 20 2d 2d 20 |rite.  .|  .  -- |
|00036480| 53 4f 55 4e 44 0d 20 20 | 73 65 74 20 74 68 65 20 |SOUND.  |set the |
|00036490| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 68 |loch of |sprite h|
|000364a0| 65 61 64 73 70 72 69 74 | 65 20 3d 20 68 65 61 64 |eadsprit|e = head|
|000364b0| 6c 6f 63 68 0d 20 20 70 | 75 70 70 65 74 73 70 72 |loch.  p|uppetspr|
|000364c0| 69 74 65 20 66 6f 72 77 | 61 72 64 62 75 74 74 6f |ite forw|ardbutto|
|000364d0| 6e 2c 30 0d 20 20 70 75 | 70 70 65 74 73 70 72 69 |n,0.  pu|ppetspri|
|000364e0| 74 65 20 62 61 63 6b 62 | 75 74 74 6f 6e 2c 30 0d |te backb|utton,0.|
|000364f0| 20 20 70 75 70 70 65 74 | 73 70 72 69 74 65 20 70 |  puppet|sprite p|
|00036500| 61 70 65 72 73 70 72 69 | 74 65 2c 30 0d 20 20 73 |aperspri|te,0.  s|
|00036510| 65 74 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 66 |et the t|ext of f|
|00036520| 69 65 6c 64 20 22 63 61 | 70 74 69 6f 6e 2d 71 74 |ield "ca|ption-qt|
|00036530| 22 20 3d 20 22 20 22 0d | 20 20 0d 20 20 75 6e 70 |" = " ".|  .  unp|
|00036540| 75 70 70 65 74 20 22 34 | 2c 31 30 22 20 20 0d 20 |uppet "4|,10"  . |
|00036550| 20 0d 20 20 2d 2d 20 67 | 65 74 20 74 68 65 20 73 | .  -- g|et the s|
|00036560| 6f 75 6e 64 20 20 20 20 | 0d 20 20 73 65 74 20 66 |ound    |.  set f|
|00036570| 6e 61 6d 65 20 3d 20 67 | 53 6f 75 6e 64 70 61 74 |name = g|Soundpat|
|00036580| 68 20 26 20 22 53 22 20 | 26 20 67 4d 61 6b 65 72 |h & "S" |& gMaker|
|00036590| 4e 75 6d 20 26 20 22 2e | 41 49 46 22 0d 20 20 70 |Num & ".|AIF".  p|
|000365a0| 75 70 70 65 74 73 70 72 | 69 74 65 20 31 36 2c 31 |uppetspr|ite 16,1|
|000365b0| 0d 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |.  set t|he loch |
|000365c0| 6f 66 20 73 70 72 69 74 | 65 20 31 36 20 3d 20 31 |of sprit|e 16 = 1|
|000365d0| 30 30 30 0d 20 20 73 6f | 75 6e 64 20 70 6c 61 79 |000.  so|und play|
|000365e0| 46 69 6c 65 20 31 2c 20 | 66 6e 61 6d 65 0d 20 20 |File 1, |fname.  |
|000365f0| 0d 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 22 |.  go to| frame "|
|00036600| 51 54 22 0d 20 20 0d 20 | 20 69 66 20 67 57 6f 72 |QT".  . | if gWor|
|00036610| 6c 64 20 3d 20 22 53 65 | 6e 73 65 73 22 20 6f 72 |ld = "Se|nses" or|
|00036620| 20 67 57 6f 72 6c 64 20 | 3d 20 22 44 65 73 69 67 | gWorld |= "Desig|
|00036630| 6e 22 20 74 68 65 6e 0d | 20 20 20 20 73 65 74 20 |n" then.|    set |
|00036640| 74 68 65 20 6c 6f 63 68 | 20 6f 66 20 73 70 72 69 |the loch| of spri|
|00036650| 74 65 20 6e 61 6d 65 73 | 70 72 69 74 65 20 3d 20 |te names|prite = |
|00036660| 67 4e 61 6d 65 4c 6f 63 | 68 0d 20 20 20 20 73 65 |gNameLoc|h.    se|
|00036670| 74 20 74 68 65 20 6c 6f | 63 76 20 6f 66 20 73 70 |t the lo|cv of sp|
|00036680| 72 69 74 65 20 6e 61 6d | 65 73 70 72 69 74 65 20 |rite nam|esprite |
|00036690| 3d 20 67 4e 61 6d 65 4c | 6f 63 76 0d 20 20 65 6e |= gNameL|ocv.  en|
|000366a0| 64 20 69 66 0d 20 20 0d | 20 20 69 66 20 67 57 6f |d if.  .|  if gWo|
|000366b0| 72 6c 64 20 3d 20 22 53 | 65 6e 73 65 73 22 20 20 |rld = "S|enses"  |
|000366c0| 6f 72 20 67 57 6f 72 6c | 64 20 3d 20 22 44 65 73 |or gWorl|d = "Des|
|000366d0| 69 67 6e 22 20 74 68 65 | 6e 20 20 0d 20 20 20 20 |ign" the|n  .    |
|000366e0| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 32 35 2c |puppetsp|rite 25,|
|000366f0| 31 0d 20 20 20 20 70 75 | 70 70 65 74 73 70 72 69 |1.    pu|ppetspri|
|00036700| 74 65 20 32 36 2c 31 0d | 20 20 20 20 70 75 70 70 |te 26,1.|    pupp|
|00036710| 65 74 73 70 72 69 74 65 | 20 32 37 2c 31 20 0d 20 |etsprite| 27,1 . |
|00036720| 20 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |   puppe|tsprite |
|00036730| 32 38 2c 31 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |28,1.  e|nd if.  |
|00036740| 0d 20 20 0d 20 20 0d 20 | 20 70 75 70 70 65 74 73 |.  .  . | puppets|
|00036750| 70 72 69 74 65 20 63 61 | 70 74 69 6f 6e 73 70 72 |prite ca|ptionspr|
|00036760| 69 74 65 2c 31 0d 20 20 | 73 65 74 20 63 61 70 74 |ite,1.  |set capt|
|00036770| 69 6f 6e 6c 6f 63 68 20 | 3d 20 74 68 65 20 6c 6f |ionloch |= the lo|
|00036780| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 63 61 70 |ch of sp|rite cap|
|00036790| 74 69 6f 6e 73 70 72 69 | 74 65 0d 20 20 73 65 74 |tionspri|te.  set|
|000367a0| 20 74 68 65 20 63 61 73 | 74 6e 75 6d 20 6f 66 20 | the cas|tnum of |
|000367b0| 73 70 72 69 74 65 20 63 | 61 70 74 69 6f 6e 73 70 |sprite c|aptionsp|
|000367c0| 72 69 74 65 20 3d 20 74 | 68 65 20 6e 75 6d 62 65 |rite = t|he numbe|
|000367d0| 72 20 6f 66 20 63 61 73 | 74 20 22 63 61 70 74 69 |r of cas|t "capti|
|000367e0| 6f 6e 2d 71 74 22 0d 20 | 20 0d 20 20 73 65 74 20 |on-qt". | .  set |
|000367f0| 74 68 65 20 6c 6f 63 68 | 20 6f 66 20 73 70 72 69 |the loch| of spri|
|00036800| 74 65 20 63 61 70 74 69 | 6f 6e 73 70 72 69 74 65 |te capti|onsprite|
|00036810| 20 3d 20 31 30 30 30 0d | 20 20 73 65 74 20 74 68 | = 1000.|  set th|
|00036820| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00036830| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 31 30 30 | picspri|te = 100|
|00036840| 30 0d 20 20 75 70 64 61 | 74 65 73 74 61 67 65 0d |0.  upda|testage.|
|00036850| 20 20 0d 20 20 73 65 74 | 20 74 6d 70 63 61 70 20 |  .  set| tmpcap |
|00036860| 3d 20 47 65 74 43 61 70 | 74 69 6f 6e 28 29 0d 20 |= GetCap|tion(). |
|00036870| 20 73 65 74 20 74 68 65 | 20 74 65 78 74 20 6f 66 | set the| text of|
|00036880| 20 66 69 65 6c 64 20 22 | 63 61 70 74 69 6f 6e 2d | field "|caption-|
|00036890| 71 74 22 20 3d 20 20 74 | 6d 70 63 61 70 0d 20 20 |qt" =  t|mpcap.  |
|000368a0| 0d 20 20 69 66 20 67 57 | 6f 72 6c 64 20 3c 3e 20 |.  if gW|orld <> |
|000368b0| 22 53 65 6e 73 65 73 22 | 20 74 68 65 6e 0d 20 20 |"Senses"| then.  |
|000368c0| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 68 65 |  set th|e texthe|
|000368d0| 69 67 68 74 20 6f 66 20 | 66 69 65 6c 64 20 22 63 |ight of |field "c|
|000368e0| 61 70 74 69 6f 6e 2d 71 | 74 22 20 3d 20 31 38 20 |aption-q|t" = 18 |
|000368f0| 20 2d 2d 20 6c 65 61 64 | 69 6e 67 0d 20 20 65 6c | -- lead|ing.  el|
|00036900| 73 65 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 74 |se.    s|et the t|
|00036910| 65 78 74 68 65 69 67 68 | 74 20 6f 66 20 66 69 65 |extheigh|t of fie|
|00036920| 6c 64 20 22 63 61 70 74 | 69 6f 6e 2d 71 74 22 20 |ld "capt|ion-qt" |
|00036930| 3d 20 32 35 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |= 25.  e|nd if.  |
|00036940| 0d 20 20 2d 2d 20 61 64 | 6a 75 73 74 20 74 68 65 |.  -- ad|just the|
|00036950| 20 68 65 69 67 68 74 20 | 6f 66 20 74 68 65 20 53 | height |of the S|
|00036960| 6f 75 6e 64 20 63 61 70 | 74 69 6f 6e 2c 20 74 6f |ound cap|tion, to|
|00036970| 20 63 65 6e 74 65 72 20 | 69 74 0d 20 20 69 66 20 | center |it.  if |
|00036980| 67 57 6f 72 6c 64 20 3d | 20 22 6d 69 6e 64 22 20 |gWorld =| "mind" |
|00036990| 74 68 65 6e 0d 20 20 20 | 20 73 65 74 20 63 65 6e |then.   | set cen|
|000369a0| 74 65 72 70 6f 69 6e 74 | 20 3d 20 32 30 30 0d 20 |terpoint| = 200. |
|000369b0| 20 65 6c 73 65 0d 20 20 | 20 20 73 65 74 20 63 65 | else.  |  set ce|
|000369c0| 6e 74 65 72 70 6f 69 6e | 74 20 3d 20 32 38 30 0d |nterpoin|t = 280.|
|000369d0| 20 20 65 6e 64 20 69 66 | 0d 20 20 73 65 74 20 63 |  end if|.  set c|
|000369e0| 61 70 68 20 3d 20 74 68 | 65 20 68 65 69 67 68 74 |aph = th|e height|
|000369f0| 20 6f 66 20 63 61 73 74 | 20 22 63 61 70 74 69 6f | of cast| "captio|
|00036a00| 6e 2d 71 74 22 0d 20 20 | 0d 20 20 69 66 20 67 57 |n-qt".  |.  if gW|
|00036a10| 6f 72 6c 64 20 3c 3e 20 | 22 53 65 6e 73 65 73 22 |orld <> |"Senses"|
|00036a20| 20 74 68 65 6e 20 2d 2d | 20 69 6e 20 64 65 73 69 | then --| in desi|
|00036a30| 67 6e 20 74 68 65 20 63 | 61 70 74 69 6f 6e 20 64 |gn the c|aption d|
|00036a40| 6f 65 73 20 6e 6f 74 20 | 6e 65 65 64 20 76 65 72 |oes not |need ver|
|00036a50| 74 69 63 61 6c 20 63 65 | 6e 74 65 72 69 6e 67 0d |tical ce|ntering.|
|00036a60| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 76 |    set |the locv|
|00036a70| 20 6f 66 20 73 70 72 69 | 74 65 20 63 61 70 74 69 | of spri|te capti|
|00036a80| 6f 6e 73 70 72 69 74 65 | 20 3d 20 63 65 6e 74 65 |onsprite| = cente|
|00036a90| 72 70 6f 69 6e 74 20 2d | 20 28 63 61 70 68 2f 32 |rpoint -| (caph/2|
|00036aa0| 29 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 73 65 74 |).  end |if.  set|
|00036ab0| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|00036ac0| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|00036ad0| 65 20 3d 20 63 61 70 74 | 69 6f 6e 6c 6f 63 68 0d |e = capt|ionloch.|
|00036ae0| 20 20 0d 20 20 0d 65 6e | 64 0d 0d 2d 2d 2d 2d 2d |  .  .en|d..-----|
|00036af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00036b00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00036b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00036b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00036b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00036b40| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 6f 6e 20 47 6f 41 6e |--------|.on GoAn|
|00036b50| 69 6d 41 72 74 69 63 6c | 65 0d 20 20 67 6c 6f 62 |imArticl|e.  glob|
|00036b60| 61 6c 20 67 43 68 61 70 | 74 65 72 73 2c 20 67 54 |al gChap|ters, gT|
|00036b70| 69 74 6c 65 73 2c 20 67 | 41 72 74 69 63 6c 65 73 |itles, g|Articles|
|00036b80| 2c 20 67 44 61 74 65 73 | 2c 20 67 43 61 70 74 69 |, gDates|, gCapti|
|00036b90| 6f 6e 73 2c 20 67 43 75 | 72 43 75 74 74 69 6e 67 |ons, gCu|rCutting|
|00036ba0| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 43 75 72 43 68 |.  globa|l gCurCh|
|00036bb0| 61 70 2c 20 67 43 75 72 | 41 72 74 69 63 6c 65 2c |ap, gCur|Article,|
|00036bc0| 20 67 4e 61 6d 65 2c 20 | 6d 79 74 65 78 74 2c 20 | gName, |mytext, |
|00036bd0| 67 41 72 74 69 63 6c 65 | 50 61 67 65 2c 20 67 46 |gArticle|Page, gF|
|00036be0| 75 6c 6c 43 75 74 74 69 | 6e 67 73 0d 20 20 67 6c |ullCutti|ngs.  gl|
|00036bf0| 6f 62 61 6c 20 67 46 6f | 72 6d 61 74 74 65 64 54 |obal gFo|rmattedT|
|00036c00| 65 78 74 2c 20 67 54 65 | 78 74 50 61 67 65 73 2c |ext, gTe|xtPages,|
|00036c10| 20 67 4d 61 78 4c 69 6e | 65 73 2c 20 67 43 75 72 | gMaxLin|es, gCur|
|00036c20| 49 6e 64 65 78 2c 20 67 | 57 6f 72 6c 64 2c 20 67 |Index, g|World, g|
|00036c30| 53 65 65 6e 4d 61 70 73 | 0d 20 20 67 6c 6f 62 61 |SeenMaps|.  globa|
|00036c40| 6c 20 67 50 61 70 65 72 | 4c 6f 63 68 2c 20 67 4d |l gPaper|Loch, gM|
|00036c50| 61 6b 65 72 4e 61 6d 65 | 2c 20 67 48 65 61 64 6c |akerName|, gHeadl|
|00036c60| 6f 63 48 2c 20 67 4e 61 | 6d 65 4c 6f 63 68 2c 20 |ocH, gNa|meLoch, |
|00036c70| 67 4e 61 6d 65 4c 6f 63 | 76 2c 20 67 51 54 41 6e |gNameLoc|v, gQTAn|
|00036c80| 69 6d 70 61 74 68 0d 20 | 20 67 6c 6f 62 61 6c 20 |impath. | global |
|00036c90| 67 4d 61 6b 65 72 4e 75 | 6d 2c 20 67 51 54 70 61 |gMakerNu|m, gQTpa|
|00036ca0| 74 68 2c 20 67 53 6f 75 | 6e 64 50 61 74 68 2c 20 |th, gSou|ndPath, |
|00036cb0| 67 4e 75 67 67 65 74 54 | 69 6d 65 2c 20 67 4e 75 |gNuggetT|ime, gNu|
|00036cc0| 67 67 65 74 44 65 6c 61 | 79 2c 20 67 4e 61 6d 65 |ggetDela|y, gName|
|00036cd0| 43 61 73 74 6e 75 6d 0d | 20 20 0d 20 20 73 65 74 |Castnum.|  .  set|
|00036ce0| 20 70 69 63 73 70 72 69 | 74 65 20 3d 20 39 20 20 | picspri|te = 9  |
|00036cf0| 2d 2d 20 74 68 65 20 73 | 70 72 69 74 65 20 74 68 |-- the s|prite th|
|00036d00| 65 20 70 69 63 74 20 61 | 70 70 65 61 72 73 20 6f |e pict a|ppears o|
|00036d10| 6e 0d 20 20 73 65 74 20 | 63 75 74 74 69 6e 67 73 |n.  set |cuttings|
|00036d20| 70 72 69 74 65 20 3d 20 | 36 0d 20 20 73 65 74 20 |prite = |6.  set |
|00036d30| 74 69 74 6c 65 73 70 72 | 69 74 65 20 3d 20 38 0d |titlespr|ite = 8.|
|00036d40| 20 20 73 65 74 20 70 61 | 70 65 72 73 70 72 69 74 |  set pa|persprit|
|00036d50| 65 20 3d 20 31 31 0d 20 | 20 73 65 74 20 64 61 74 |e = 11. | set dat|
|00036d60| 65 73 70 72 69 74 65 20 | 3d 20 31 32 0d 20 20 73 |esprite |= 12.  s|
|00036d70| 65 74 20 63 61 70 74 69 | 6f 6e 73 70 72 69 74 65 |et capti|onsprite|
|00036d80| 20 3d 20 37 0d 20 20 73 | 65 74 20 66 6f 72 77 61 | = 7.  s|et forwa|
|00036d90| 72 64 62 75 74 74 6f 6e | 20 3d 20 32 30 0d 20 20 |rdbutton| = 20.  |
|00036da0| 73 65 74 20 62 61 63 6b | 62 75 74 74 6f 6e 20 3d |set back|button =|
|00036db0| 20 31 39 0d 20 20 73 65 | 74 20 68 65 61 64 73 70 | 19.  se|t headsp|
|00036dc0| 72 69 74 65 20 3d 20 31 | 30 20 20 0d 20 20 73 65 |rite = 1|0  .  se|
|00036dd0| 74 20 6e 61 6d 65 73 70 | 72 69 74 65 20 3d 20 34 |t namesp|rite = 4|
|00036de0| 0d 20 20 73 65 74 20 68 | 65 61 64 6c 6f 63 68 20 |.  set h|eadloch |
|00036df0| 3d 20 67 48 65 61 64 6c | 6f 63 68 20 20 2d 2d 20 |= gHeadl|och  -- |
|00036e00| 74 68 65 20 6c 6f 63 68 | 20 6f 66 20 74 68 65 20 |the loch| of the |
|00036e10| 68 65 61 64 73 68 6f 74 | 20 73 70 72 69 74 65 0d |headshot| sprite.|
|00036e20| 20 20 0d 20 20 0d 20 20 | 69 66 20 6e 6f 74 20 6d |  .  .  |if not m|
|00036e30| 61 72 6b 65 72 28 67 4d | 61 6b 65 72 6e 75 6d 20 |arker(gM|akernum |
|00036e40| 26 20 22 2e 61 6e 69 6d | 22 29 20 74 68 65 6e 20 |& ".anim|") then |
|00036e50| 65 78 69 74 0d 20 20 0d | 20 20 73 65 74 20 74 68 |exit.  .|  set th|
|00036e60| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00036e70| 20 68 65 61 64 73 70 72 | 69 74 65 20 3d 20 68 65 | headspr|ite = he|
|00036e80| 61 64 6c 6f 63 68 0d 20 | 20 70 75 70 70 65 74 73 |adloch. | puppets|
|00036e90| 70 72 69 74 65 20 66 6f | 72 77 61 72 64 62 75 74 |prite fo|rwardbut|
|00036ea0| 74 6f 6e 2c 30 0d 20 20 | 70 75 70 70 65 74 73 70 |ton,0.  |puppetsp|
|00036eb0| 72 69 74 65 20 62 61 63 | 6b 62 75 74 74 6f 6e 2c |rite bac|kbutton,|
|00036ec0| 30 0d 20 20 70 75 70 70 | 65 74 73 70 72 69 74 65 |0.  pupp|etsprite|
|00036ed0| 20 70 61 70 65 72 73 70 | 72 69 74 65 2c 30 0d 20 | papersp|rite,0. |
|00036ee0| 20 73 65 74 20 74 68 65 | 20 74 65 78 74 20 6f 66 | set the| text of|
|00036ef0| 20 66 69 65 6c 64 20 22 | 63 61 70 74 69 6f 6e 2d | field "|caption-|
|00036f00| 71 74 22 20 3d 20 22 20 | 22 0d 20 20 0d 20 20 75 |qt" = " |".  .  u|
|00036f10| 6e 70 75 70 70 65 74 20 | 22 34 2c 31 30 22 20 20 |npuppet |"4,10"  |
|00036f20| 0d 20 20 0d 20 20 2d 2d | 20 20 67 65 74 20 74 68 |.  .  --|  get th|
|00036f30| 65 20 51 54 6d 6f 76 69 | 65 0d 20 20 2d 2d 20 20 |e QTmovi|e.  --  |
|00036f40| 73 65 74 20 63 6e 75 6d | 20 3d 20 74 68 65 20 6e |set cnum| = the n|
|00036f50| 75 6d 62 65 72 20 6f 66 | 20 63 61 73 74 20 22 51 |umber of| cast "Q|
|00036f60| 54 63 61 73 74 22 0d 20 | 20 2d 2d 20 20 73 65 74 |Tcast". | --  set|
|00036f70| 20 66 6e 61 6d 65 20 3d | 20 67 51 54 41 6e 69 6d | fname =| gQTAnim|
|00036f80| 70 61 74 68 20 26 20 22 | 41 22 20 26 20 67 4d 61 |path & "|A" & gMa|
|00036f90| 6b 65 72 4e 75 6d 20 26 | 20 22 41 22 20 26 20 67 |kerNum &| "A" & g|
|00036fa0| 43 75 72 43 68 61 70 20 | 26 20 67 43 75 72 41 72 |CurChap |& gCurAr|
|00036fb0| 74 69 63 6c 65 20 26 20 | 22 2e 4d 4f 56 22 0d 20 |ticle & |".MOV". |
|00036fc0| 20 2d 2d 20 20 70 75 74 | 20 66 6e 61 6d 65 0d 20 | --  put| fname. |
|00036fd0| 20 2d 2d 20 20 73 65 74 | 20 74 68 65 20 66 69 6c | --  set| the fil|
|00036fe0| 65 6e 61 6d 65 20 6f 66 | 20 63 61 73 74 20 22 51 |ename of| cast "Q|
|00036ff0| 54 63 61 73 74 22 20 3d | 20 66 6e 61 6d 65 0d 20 |Tcast" =| fname. |
|00037000| 20 2d 2d 20 20 73 65 74 | 20 74 68 65 20 6e 61 6d | --  set| the nam|
|00037010| 65 20 6f 66 20 63 61 73 | 74 20 63 6e 75 6d 20 3d |e of cas|t cnum =|
|00037020| 20 22 51 54 63 61 73 74 | 22 0d 20 20 0d 20 20 67 | "QTcast|".  .  g|
|00037030| 6f 20 74 6f 20 66 72 61 | 6d 65 20 67 4d 61 6b 65 |o to fra|me gMake|
|00037040| 72 6e 75 6d 20 26 20 22 | 2e 61 6e 69 6d 22 0d 20 |rnum & "|.anim". |
|00037050| 20 43 6c 65 61 6e 4d 65 | 6d 0d 20 20 0d 20 20 69 | CleanMe|m.  .  i|
|00037060| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 53 65 6e 73 |f gWorld| = "Sens|
|00037070| 65 73 22 20 6f 72 20 67 | 57 6f 72 6c 64 20 3d 20 |es" or g|World = |
|00037080| 22 44 65 73 69 67 6e 22 | 20 74 68 65 6e 0d 20 20 |"Design"| then.  |
|00037090| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|000370a0| 66 20 73 70 72 69 74 65 | 20 6e 61 6d 65 73 70 72 |f sprite| namespr|
|000370b0| 69 74 65 20 3d 20 67 4e | 61 6d 65 4c 6f 63 68 0d |ite = gN|ameLoch.|
|000370c0| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 76 |    set |the locv|
|000370d0| 20 6f 66 20 73 70 72 69 | 74 65 20 6e 61 6d 65 73 | of spri|te names|
|000370e0| 70 72 69 74 65 20 3d 20 | 67 4e 61 6d 65 4c 6f 63 |prite = |gNameLoc|
|000370f0| 76 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 20 20 |v.  end |if.  .  |
|00037100| 69 66 20 67 57 6f 72 6c | 64 20 3d 20 22 53 65 6e |if gWorl|d = "Sen|
|00037110| 73 65 73 22 20 6f 72 20 | 67 57 6f 72 6c 64 20 3d |ses" or |gWorld =|
|00037120| 20 22 44 65 73 69 67 6e | 22 20 74 68 65 6e 20 20 | "Design|" then  |
|00037130| 0d 20 20 20 20 70 75 70 | 70 65 74 73 70 72 69 74 |.    pup|petsprit|
|00037140| 65 20 32 35 2c 31 0d 20 | 20 20 20 70 75 70 70 65 |e 25,1. |   puppe|
|00037150| 74 73 70 72 69 74 65 20 | 32 36 2c 31 0d 20 20 20 |tsprite |26,1.   |
|00037160| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 32 37 | puppets|prite 27|
|00037170| 2c 31 20 0d 20 20 20 20 | 70 75 70 70 65 74 73 70 |,1 .    |puppetsp|
|00037180| 72 69 74 65 20 32 38 2c | 31 0d 20 20 65 6e 64 20 |rite 28,|1.  end |
|00037190| 69 66 0d 20 20 0d 20 20 | 0d 20 20 0d 20 20 70 75 |if.  .  |.  .  pu|
|000371a0| 70 70 65 74 73 70 72 69 | 74 65 20 63 61 70 74 69 |ppetspri|te capti|
|000371b0| 6f 6e 73 70 72 69 74 65 | 2c 31 0d 20 20 73 65 74 |onsprite|,1.  set|
|000371c0| 20 63 61 70 74 69 6f 6e | 6c 6f 63 68 20 3d 20 74 | caption|loch = t|
|000371d0| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|000371e0| 65 20 63 61 70 74 69 6f | 6e 73 70 72 69 74 65 0d |e captio|nsprite.|
|000371f0| 20 20 73 65 74 20 74 68 | 65 20 63 61 73 74 6e 75 |  set th|e castnu|
|00037200| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 63 61 70 74 |m of spr|ite capt|
|00037210| 69 6f 6e 73 70 72 69 74 | 65 20 3d 20 74 68 65 20 |ionsprit|e = the |
|00037220| 6e 75 6d 62 65 72 20 6f | 66 20 63 61 73 74 20 22 |number o|f cast "|
|00037230| 63 61 70 74 69 6f 6e 2d | 71 74 22 0d 20 20 0d 20 |caption-|qt".  . |
|00037240| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|00037250| 20 73 70 72 69 74 65 20 | 63 61 70 74 69 6f 6e 73 | sprite |captions|
|00037260| 70 72 69 74 65 20 3d 20 | 31 30 30 30 0d 20 20 73 |prite = |1000.  s|
|00037270| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|00037280| 70 72 69 74 65 20 70 69 | 63 73 70 72 69 74 65 20 |prite pi|csprite |
|00037290| 3d 20 31 30 30 30 0d 20 | 20 75 70 64 61 74 65 73 |= 1000. | updates|
|000372a0| 74 61 67 65 0d 20 20 0d | 20 20 73 65 74 20 74 6d |tage.  .|  set tm|
|000372b0| 70 63 61 70 20 3d 20 47 | 65 74 43 61 70 74 69 6f |pcap = G|etCaptio|
|000372c0| 6e 28 29 20 20 0d 20 20 | 73 65 74 20 74 68 65 20 |n()  .  |set the |
|000372d0| 74 65 78 74 20 6f 66 20 | 66 69 65 6c 64 20 22 63 |text of |field "c|
|000372e0| 61 70 74 69 6f 6e 2d 71 | 74 22 20 3d 20 20 74 6d |aption-q|t" =  tm|
|000372f0| 70 63 61 70 0d 20 20 0d | 20 20 69 66 20 67 57 6f |pcap.  .|  if gWo|
|00037300| 72 6c 64 20 3c 3e 20 22 | 53 65 6e 73 65 73 22 20 |rld <> "|Senses" |
|00037310| 74 68 65 6e 0d 20 20 20 | 20 73 65 74 20 74 68 65 |then.   | set the|
|00037320| 20 74 65 78 74 68 65 69 | 67 68 74 20 6f 66 20 66 | texthei|ght of f|
|00037330| 69 65 6c 64 20 22 63 61 | 70 74 69 6f 6e 2d 71 74 |ield "ca|ption-qt|
|00037340| 22 20 3d 20 31 38 20 20 | 2d 2d 20 6c 65 61 64 69 |" = 18  |-- leadi|
|00037350| 6e 67 0d 20 20 65 6c 73 | 65 0d 20 20 20 20 73 65 |ng.  els|e.    se|
|00037360| 74 20 74 68 65 20 74 65 | 78 74 68 65 69 67 68 74 |t the te|xtheight|
|00037370| 20 6f 66 20 66 69 65 6c | 64 20 22 63 61 70 74 69 | of fiel|d "capti|
|00037380| 6f 6e 2d 71 74 22 20 3d | 20 32 35 0d 20 20 65 6e |on-qt" =| 25.  en|
|00037390| 64 20 69 66 0d 20 20 0d | 20 20 2d 2d 20 62 72 69 |d if.  .|  -- bri|
|000373a0| 6e 67 20 75 70 20 74 68 | 65 20 51 54 20 6d 6f 76 |ng up th|e QT mov|
|000373b0| 69 65 0d 20 20 0d 20 20 | 2d 2d 20 61 64 6a 75 73 |ie.  .  |-- adjus|
|000373c0| 74 20 74 68 65 20 68 65 | 69 67 68 74 20 6f 66 20 |t the he|ight of |
|000373d0| 74 68 65 20 51 54 20 63 | 61 70 74 69 6f 6e 2c 20 |the QT c|aption, |
|000373e0| 74 6f 20 63 65 6e 74 65 | 72 20 69 74 0d 20 20 69 |to cente|r it.  i|
|000373f0| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 44 69 73 63 |f gWorld| = "Disc|
|00037400| 6f 76 65 72 22 20 74 68 | 65 6e 0d 20 20 20 20 73 |over" th|en.    s|
|00037410| 65 74 20 63 65 6e 74 65 | 72 70 6f 69 6e 74 20 3d |et cente|rpoint =|
|00037420| 20 32 35 30 20 20 0d 20 | 20 65 6c 73 65 0d 20 20 | 250  . | else.  |
|00037430| 20 20 73 65 74 20 63 65 | 6e 74 65 72 70 6f 69 6e |  set ce|nterpoin|
|00037440| 74 20 3d 20 32 38 30 0d | 20 20 65 6e 64 20 69 66 |t = 280.|  end if|
|00037450| 0d 20 20 73 65 74 20 63 | 61 70 68 20 3d 20 74 68 |.  set c|aph = th|
|00037460| 65 20 68 65 69 67 68 74 | 20 6f 66 20 63 61 73 74 |e height| of cast|
|00037470| 20 22 63 61 70 74 69 6f | 6e 2d 71 74 22 0d 20 20 | "captio|n-qt".  |
|00037480| 0d 20 20 2d 2d 20 69 6e | 20 64 65 73 69 67 6e 20 |.  -- in| design |
|00037490| 74 68 65 20 63 61 70 74 | 69 6f 6e 20 64 6f 65 73 |the capt|ion does|
|000374a0| 20 6e 6f 74 20 6e 65 65 | 64 20 76 65 72 74 69 63 | not nee|d vertic|
|000374b0| 61 6c 20 63 65 6e 74 65 | 72 69 6e 67 0d 20 20 69 |al cente|ring.  i|
|000374c0| 66 20 67 57 6f 72 6c 64 | 20 3c 3e 20 22 53 65 6e |f gWorld| <> "Sen|
|000374d0| 73 65 73 22 20 61 6e 64 | 20 67 57 6f 72 6c 64 20 |ses" and| gWorld |
|000374e0| 3c 3e 20 22 42 6f 64 79 | 22 20 74 68 65 6e 20 0d |<> "Body|" then .|
|000374f0| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 76 |    set |the locv|
|00037500| 20 6f 66 20 73 70 72 69 | 74 65 20 63 61 70 74 69 | of spri|te capti|
|00037510| 6f 6e 73 70 72 69 74 65 | 20 3d 20 63 65 6e 74 65 |onsprite| = cente|
|00037520| 72 70 6f 69 6e 74 20 2d | 20 28 63 61 70 68 2f 32 |rpoint -| (caph/2|
|00037530| 29 0d 20 20 65 6c 73 65 | 20 69 66 20 67 57 6f 72 |).  else| if gWor|
|00037540| 6c 64 20 3d 20 22 42 6f | 64 79 22 20 74 68 65 6e |ld = "Bo|dy" then|
|00037550| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |.    set| the loc|
|00037560| 76 20 6f 66 20 73 70 72 | 69 74 65 20 63 61 70 74 |v of spr|ite capt|
|00037570| 69 6f 6e 73 70 72 69 74 | 65 20 3d 20 31 31 32 20 |ionsprit|e = 112 |
|00037580| 20 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 73 65 74 | .  end |if.  set|
|00037590| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|000375a0| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|000375b0| 65 20 3d 20 63 61 70 74 | 69 6f 6e 6c 6f 63 68 0d |e = capt|ionloch.|
|000375c0| 20 20 0d 20 20 2d 2d 20 | 73 74 61 72 74 20 74 68 |  .  -- |start th|
|000375d0| 65 20 51 54 0d 20 20 73 | 65 74 20 74 68 65 20 6d |e QT.  s|et the m|
|000375e0| 6f 76 69 65 72 61 74 65 | 20 6f 66 20 73 70 72 69 |ovierate| of spri|
|000375f0| 74 65 20 33 20 3d 20 31 | 0d 20 20 0d 20 20 2d 2d |te 3 = 1|.  .  --|
|00037600| 20 74 68 65 20 70 6c 61 | 79 2f 73 74 6f 70 20 62 | the pla|y/stop b|
|00037610| 75 74 74 6f 6e 20 73 70 | 72 69 74 65 0d 20 20 70 |utton sp|rite.  p|
|00037620| 75 70 70 65 74 73 70 72 | 69 74 65 20 31 31 2c 31 |uppetspr|ite 11,1|
|00037630| 20 0d 20 20 0d 65 6e 64 | 0d 0d 0d 00 00 32 00 32 | .  .end|.....2.2|
|00037640| 02 25 02 a9 00 00 25 40 | 00 00 25 48 00 00 00 00 |.%....%@|..%H....|
|00037650| 00 01 00 00 00 00 00 0b | 00 09 00 04 00 00 00 09 |........|........|
|00037660| 00 00 00 00 00 00 43 41 | 53 74 00 00 48 1a 00 04 |......CA|St..H...|
|00037670| 00 00 48 10 0b 00 00 03 | 00 00 00 14 00 c2 eb 94 |..H.....|........|
|00037680| 00 00 00 00 00 00 00 00 | 00 00 00 0e 00 07 00 00 |........|........|
|00037690| 00 00 00 00 47 5f 00 00 | 47 60 00 00 47 60 00 00 |....G_..|G`..G`..|
|000376a0| 47 60 00 00 47 60 00 00 | 47 74 00 00 47 da 2d 2d |G`..G`..|Gt..G.--|
|000376b0| 20 47 6f 20 74 6f 20 74 | 68 65 20 66 69 72 73 74 | Go to t|he first|
|000376c0| 20 61 72 74 69 63 6c 65 | 20 6f 66 20 74 68 65 20 | article| of the |
|000376d0| 63 6c 69 63 6b 65 64 20 | 6f 6e 20 63 68 61 70 74 |clicked |on chapt|
|000376e0| 65 72 0d 0d 6f 6e 20 49 | 6e 69 74 44 61 74 61 20 |er..on I|nitData |
|000376f0| 0d 20 20 67 6c 6f 62 61 | 6c 20 67 46 75 6c 6c 43 |.  globa|l gFullC|
|00037700| 75 74 74 69 6e 67 73 2c | 20 67 4d 61 78 4c 69 6e |uttings,| gMaxLin|
|00037710| 65 73 2c 20 67 43 75 72 | 49 6e 64 65 78 2c 20 67 |es, gCur|Index, g|
|00037720| 4e 61 6d 65 2c 20 67 4d | 61 6b 65 72 4e 61 6d 65 |Name, gM|akerName|
|00037730| 2c 20 67 57 6f 72 6c 64 | 0d 20 20 67 6c 6f 62 61 |, gWorld|.  globa|
|00037740| 6c 20 67 53 65 65 6e 4d | 61 70 73 2c 20 6d 50 61 |l gSeenM|aps, mPa|
|00037750| 74 68 2c 20 67 48 65 61 | 64 6c 6f 63 48 2c 20 67 |th, gHea|dlocH, g|
|00037760| 4e 61 6d 65 4c 6f 63 68 | 2c 20 67 4e 61 6d 65 4c |NameLoch|, gNameL|
|00037770| 6f 63 76 2c 20 67 4d 61 | 6b 65 72 4e 75 6d 0d 20 |ocv, gMa|kerNum. |
|00037780| 20 67 6c 6f 62 61 6c 20 | 67 51 54 70 61 74 68 2c | global |gQTpath,|
|00037790| 20 67 53 6f 75 6e 64 50 | 61 74 68 2c 20 67 54 6f | gSoundP|ath, gTo|
|000377a0| 74 61 6c 43 68 61 70 74 | 65 72 73 2c 20 67 4d 61 |talChapt|ers, gMa|
|000377b0| 78 4e 75 67 67 65 74 73 | 2c 20 67 4e 75 67 67 65 |xNuggets|, gNugge|
|000377c0| 74 73 2c 20 67 57 68 69 | 63 68 4e 75 67 67 65 74 |ts, gWhi|chNugget|
|000377d0| 2c 20 67 4e 75 67 67 65 | 74 4c 69 73 74 0d 20 20 |, gNugge|tList.  |
|000377e0| 67 6c 6f 62 61 6c 20 67 | 4e 75 67 67 65 74 4f 6e |global g|NuggetOn|
|000377f0| 2c 20 67 4e 61 6d 65 43 | 61 73 74 6e 75 6d 2c 20 |, gNameC|astnum, |
|00037800| 67 49 6e 41 4d 61 70 2c | 20 67 4e 75 67 67 65 74 |gInAMap,| gNugget|
|00037810| 44 65 6c 61 79 2c 20 67 | 4e 75 67 67 65 74 54 69 |Delay, g|NuggetTi|
|00037820| 6d 65 0d 20 20 67 6c 6f | 62 61 6c 20 67 54 72 61 |me.  glo|bal gTra|
|00037830| 70 53 74 61 72 74 0d 20 | 20 0d 20 20 2d 2d 53 65 |pStart. | .  --Se|
|00037840| 74 56 6f 6c 75 6d 65 0d | 20 20 75 70 64 61 74 65 |tVolume.|  update|
|00037850| 73 74 61 67 65 0d 20 20 | 0d 20 20 73 65 74 20 67 |stage.  |.  set g|
|00037860| 49 6e 41 4d 61 70 20 3d | 20 30 20 2d 2d 20 61 72 |InAMap =| 0 -- ar|
|00037870| 65 20 77 65 20 69 6e 20 | 61 20 6d 61 70 3f 0d 20 |e we in |a map?. |
|00037880| 20 0d 20 20 73 65 74 20 | 67 54 72 61 70 53 74 61 | .  set |gTrapSta|
|00037890| 72 74 20 3d 20 30 20 20 | 2d 2d 20 74 68 65 20 6d |rt = 0  |-- the m|
|000378a0| 6f 75 73 65 74 72 61 70 | 20 74 69 6d 65 72 0d 20 |ousetrap| timer. |
|000378b0| 20 0d 20 20 2d 2d 20 6b | 69 6c 6c 20 74 68 65 20 | .  -- k|ill the |
|000378c0| 73 6f 75 6e 64 20 66 72 | 6f 6d 20 74 68 65 20 77 |sound fr|om the w|
|000378d0| 6f 72 6c 64 73 0d 20 20 | 73 6f 75 6e 64 20 73 74 |orlds.  |sound st|
|000378e0| 6f 70 20 31 0d 20 20 73 | 6f 75 6e 64 20 73 74 6f |op 1.  s|ound sto|
|000378f0| 70 20 32 0d 20 20 0d 20 | 20 73 65 74 20 74 68 65 |p 2.  . | set the|
|00037900| 20 6b 65 79 44 6f 77 6e | 53 63 72 69 70 74 20 74 | keyDown|Script t|
|00037910| 6f 20 22 43 68 65 63 6b | 50 72 69 6e 74 22 0d 20 |o "Check|Print". |
|00037920| 20 0d 20 20 49 6e 69 74 | 44 61 74 61 47 6c 6f 62 | .  Init|DataGlob|
|00037930| 61 6c 73 0d 20 20 73 65 | 74 20 67 6d 61 6b 65 72 |als.  se|t gmaker|
|00037940| 6e 75 6d 20 3d 20 76 61 | 6c 75 65 28 67 6d 61 6b |num = va|lue(gmak|
|00037950| 65 72 6e 75 6d 29 0d 20 | 20 73 65 74 20 67 6d 61 |ernum). | set gma|
|00037960| 6b 65 72 6e 61 6d 65 20 | 3d 20 6c 69 6e 65 20 67 |kername |= line g|
|00037970| 6d 61 6b 65 72 6e 75 6d | 20 6f 66 20 66 69 65 6c |makernum| of fiel|
|00037980| 64 20 22 4d 61 6b 65 72 | 6e 75 6d 6c 69 73 74 22 |d "Maker|numlist"|
|00037990| 0d 20 20 73 65 74 20 6e | 61 6d 65 20 3d 20 67 6d |.  set n|ame = gm|
|000379a0| 61 6b 65 72 6e 61 6d 65 | 0d 20 20 73 65 74 20 74 |akername|.  set t|
|000379b0| 68 65 20 74 65 78 74 20 | 6f 66 20 66 69 65 6c 64 |he text |of field|
|000379c0| 20 22 41 72 74 69 63 6c | 65 4e 75 6d 62 65 72 22 | "Articl|eNumber"|
|000379d0| 20 3d 20 73 74 72 69 6e | 67 28 67 4d 61 6b 65 72 | = strin|g(gMaker|
|000379e0| 4e 75 6d 29 0d 20 20 0d | 20 20 2d 2d 20 67 65 74 |Num).  .|  -- get|
|000379f0| 20 74 68 65 20 73 74 72 | 61 70 6c 69 6e 65 0d 20 | the str|apline. |
|00037a00| 20 2d 2d 20 28 74 68 69 | 73 20 69 73 20 6e 6f 77 | -- (thi|s is now|
|00037a10| 20 64 6f 6e 65 20 69 6e | 20 42 6c 61 63 6b 53 63 | done in| BlackSc|
|00037a20| 72 65 65 6e 29 0d 20 20 | 2d 2d 20 73 65 74 20 74 |reen).  |-- set t|
|00037a30| 68 65 20 74 65 78 74 20 | 6f 66 20 66 69 65 6c 64 |he text |of field|
|00037a40| 20 22 73 74 72 61 70 6c | 69 6e 65 22 20 3d 20 6c | "strapl|ine" = l|
|00037a50| 69 6e 65 20 67 6d 61 6b | 65 72 6e 75 6d 20 6f 66 |ine gmak|ernum of|
|00037a60| 20 66 69 65 6c 64 20 22 | 6d 61 6b 65 72 73 73 74 | field "|makersst|
|00037a70| 72 61 70 6c 69 6e 65 73 | 22 0d 20 20 2d 2d 20 64 |raplines|".  -- d|
|00037a80| 65 6c 65 74 65 20 69 74 | 65 6d 20 31 20 6f 66 20 |elete it|em 1 of |
|00037a90| 66 69 65 6c 64 20 22 73 | 74 72 61 70 6c 69 6e 65 |field "s|trapline|
|00037aa0| 22 0d 20 20 0d 20 20 73 | 65 74 20 67 53 65 65 6e |".  .  s|et gSeen|
|00037ab0| 4d 61 70 73 20 3d 20 30 | 20 20 20 2d 2d 20 66 6c |Maps = 0|   -- fl|
|00037ac0| 61 67 2c 20 73 6f 20 77 | 65 20 63 61 6e 20 73 68 |ag, so w|e can sh|
|00037ad0| 6f 77 20 74 68 65 20 6d | 61 70 20 7a 6f 6f 6d 20 |ow the m|ap zoom |
|00037ae0| 69 6e 20 6f 6e 6c 79 20 | 6f 6e 63 65 0d 20 20 0d |in only |once.  .|
|00037af0| 20 20 73 74 61 72 74 74 | 69 6d 65 72 0d 20 20 0d |  startt|imer.  .|
|00037b00| 20 20 73 65 74 20 67 4d | 61 78 4c 69 6e 65 73 20 |  set gM|axLines |
|00037b10| 3d 20 31 38 20 20 20 20 | 20 20 20 20 2d 2d 20 74 |= 18    |    -- t|
|00037b20| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 69 6e |he numbe|r of lin|
|00037b30| 65 73 20 66 6f 72 20 74 | 68 65 20 63 75 74 74 69 |es for t|he cutti|
|00037b40| 6e 67 73 20 74 65 78 74 | 20 62 6f 78 0d 20 20 0d |ngs text| box.  .|
|00037b50| 20 20 2d 2d 20 6c 6f 61 | 64 20 73 63 72 69 70 74 |  -- loa|d script|
|00037b60| 20 66 69 6c 65 2c 20 70 | 61 72 73 65 20 69 74 2c | file, p|arse it,|
|00037b70| 20 6c 6f 61 64 20 74 68 | 65 20 63 75 74 74 69 6e | load th|e cuttin|
|00037b80| 67 20 74 65 78 74 0d 20 | 20 2d 2d 20 52 65 61 64 |g text. | -- Read|
|00037b90| 53 63 72 69 70 74 0d 20 | 20 0d 20 20 2d 2d 20 69 |Script. | .  -- i|
|00037ba0| 6e 69 74 69 61 6c 69 7a | 65 20 6e 75 67 67 65 74 |nitializ|e nugget|
|00037bb0| 73 0d 20 20 73 65 74 20 | 74 68 65 20 69 74 65 6d |s.  set |the item|
|00037bc0| 64 65 6c 69 6d 69 74 65 | 72 20 3d 20 22 23 22 0d |delimite|r = "#".|
|00037bd0| 20 20 73 65 74 20 67 4d | 61 78 4e 75 67 67 65 74 |  set gM|axNugget|
|00037be0| 73 20 3d 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |s = the |number o|
|00037bf0| 66 20 69 74 65 6d 73 20 | 6f 66 20 67 4e 75 67 67 |f items |of gNugg|
|00037c00| 65 74 73 0d 20 20 73 65 | 74 20 74 68 65 20 69 74 |ets.  se|t the it|
|00037c10| 65 6d 64 65 6c 69 6d 69 | 74 65 72 20 3d 20 22 2c |emdelimi|ter = ",|
|00037c20| 22 0d 20 20 73 65 74 20 | 67 57 68 69 63 68 4e 75 |".  set |gWhichNu|
|00037c30| 67 67 65 74 20 3d 20 72 | 61 6e 64 6f 6d 28 67 4d |gget = r|andom(gM|
|00037c40| 61 78 4e 75 67 67 65 74 | 73 29 0d 20 20 73 65 74 |axNugget|s).  set|
|00037c50| 20 67 4e 75 67 67 65 74 | 4c 69 73 74 20 3d 20 5b | gNugget|List = [|
|00037c60| 67 57 68 69 63 68 4e 75 | 67 67 65 74 5d 0d 20 20 |gWhichNu|gget].  |
|00037c70| 73 65 74 20 67 4e 75 67 | 67 65 74 4f 6e 20 3d 20 |set gNug|getOn = |
|00037c80| 30 0d 20 20 73 65 74 20 | 67 4e 75 67 67 65 74 44 |0.  set |gNuggetD|
|00037c90| 65 6c 61 79 20 3d 20 31 | 35 2a 36 30 20 20 20 20 |elay = 1|5*60    |
|00037ca0| 20 2d 2d 20 69 6e 69 74 | 69 61 6c 20 64 65 6c 61 | -- init|ial dela|
|00037cb0| 79 20 74 69 6c 6c 20 6e | 75 67 67 65 74 73 20 63 |y till n|uggets c|
|00037cc0| 6f 6d 65 20 75 70 20 6f | 6e 20 74 68 65 20 73 63 |ome up o|n the sc|
|00037cd0| 72 65 65 6e 0d 20 20 73 | 65 74 20 67 4e 75 67 67 |reen.  s|et gNugg|
|00037ce0| 65 74 54 69 6d 65 20 3d | 20 74 68 65 20 74 69 63 |etTime =| the tic|
|00037cf0| 6b 73 0d 20 20 70 75 74 | 20 22 6c 6f 61 64 69 6e |ks.  put| "loadin|
|00037d00| 67 20 73 63 72 69 70 74 | 20 66 69 6c 65 20 61 6e |g script| file an|
|00037d10| 64 20 70 61 72 73 69 6e | 67 20 69 74 20 74 6f 6f |d parsin|g it too|
|00037d20| 6b 3a 20 22 20 26 26 20 | 74 68 65 20 74 69 6d 65 |k: " && |the time|
|00037d30| 72 20 26 26 20 22 74 69 | 63 6b 73 22 0d 20 20 0d |r && "ti|cks".  .|
|00037d40| 20 20 2d 2d 20 70 75 74 | 20 75 70 20 74 68 65 20 |  -- put| up the |
|00037d50| 68 65 61 64 73 68 6f 74 | 0d 20 20 70 75 70 70 65 |headshot|.  puppe|
|00037d60| 74 73 70 72 69 74 65 20 | 31 30 2c 31 0d 20 20 73 |tsprite |10,1.  s|
|00037d70| 65 74 20 74 68 65 20 63 | 61 73 74 6e 75 6d 20 6f |et the c|astnum o|
|00037d80| 66 20 73 70 72 69 74 65 | 20 31 30 20 3d 20 74 68 |f sprite| 10 = th|
|00037d90| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 61 73 74 |e number| of cast|
|00037da0| 20 28 67 4d 61 6b 65 72 | 4e 75 6d 20 26 20 22 2d | (gMaker|Num & "-|
|00037db0| 68 65 61 64 22 29 0d 20 | 20 0d 20 20 69 66 20 67 |head"). | .  if g|
|00037dc0| 57 6f 72 6c 64 20 3d 20 | 22 50 6f 77 65 72 22 20 |World = |"Power" |
|00037dd0| 74 68 65 6e 0d 20 20 20 | 20 73 65 74 20 74 68 65 |then.   | set the|
|00037de0| 20 6c 6f 63 76 20 6f 66 | 20 73 70 72 69 74 65 20 | locv of| sprite |
|00037df0| 31 30 20 3d 20 31 30 31 | 0d 20 20 20 20 73 65 74 |10 = 101|.    set|
|00037e00| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|00037e10| 69 74 65 20 31 30 20 3d | 20 34 32 0d 20 20 20 20 |ite 10 =| 42.    |
|00037e20| 73 65 74 20 67 48 65 61 | 64 6c 6f 63 48 20 3d 20 |set gHea|dlocH = |
|00037e30| 34 32 0d 20 20 65 6c 73 | 65 20 69 66 20 67 57 6f |42.  els|e if gWo|
|00037e40| 72 6c 64 20 3d 20 22 53 | 65 6e 73 65 73 22 20 74 |rld = "S|enses" t|
|00037e50| 68 65 6e 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |hen.    |set the |
|00037e60| 6c 6f 63 76 20 6f 66 20 | 73 70 72 69 74 65 20 31 |locv of |sprite 1|
|00037e70| 30 20 3d 20 33 39 0d 20 | 20 20 20 73 65 74 20 74 |0 = 39. |   set t|
|00037e80| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00037e90| 65 20 31 30 20 3d 20 33 | 38 0d 20 20 20 20 73 65 |e 10 = 3|8.    se|
|00037ea0| 74 20 67 48 65 61 64 6c | 6f 63 68 20 3d 20 33 38 |t gHeadl|och = 38|
|00037eb0| 0d 20 20 65 6c 73 65 20 | 69 66 20 67 57 6f 72 6c |.  else |if gWorl|
|00037ec0| 64 20 3d 20 22 6d 69 6e | 64 22 20 74 68 65 6e 0d |d = "min|d" then.|
|00037ed0| 20 20 20 20 73 65 74 20 | 74 68 65 20 6c 6f 63 76 |    set |the locv|
|00037ee0| 20 6f 66 20 73 70 72 69 | 74 65 20 31 30 20 3d 20 | of spri|te 10 = |
|00037ef0| 35 33 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |53.    s|et the l|
|00037f00| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 31 30 |och of s|prite 10|
|00037f10| 20 3d 20 34 31 0d 20 20 | 20 20 73 65 74 20 67 48 | = 41.  |  set gH|
|00037f20| 65 61 64 6c 6f 63 48 20 | 3d 20 34 31 0d 20 20 65 |eadlocH |= 41.  e|
|00037f30| 6c 73 65 20 69 66 20 67 | 57 6f 72 6c 64 20 3d 20 |lse if g|World = |
|00037f40| 22 64 69 73 63 6f 76 65 | 72 22 20 74 68 65 6e 20 |"discove|r" then |
|00037f50| 20 20 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |  .    s|et the l|
|00037f60| 6f 63 68 20 6f 66 20 73 | 70 72 69 74 65 20 31 30 |och of s|prite 10|
|00037f70| 20 3d 20 33 35 0d 20 20 | 20 20 73 65 74 20 74 68 | = 35.  |  set th|
|00037f80| 65 20 6c 6f 63 76 20 6f | 66 20 73 70 72 69 74 65 |e locv o|f sprite|
|00037f90| 20 31 30 20 3d 20 38 35 | 0d 20 20 20 20 73 65 74 | 10 = 85|.    set|
|00037fa0| 20 67 48 65 61 64 4c 6f | 63 48 20 3d 20 33 35 0d | gHeadLo|cH = 35.|
|00037fb0| 20 20 65 6c 73 65 20 69 | 66 20 67 57 6f 72 6c 64 |  else i|f gWorld|
|00037fc0| 20 3d 20 22 62 6f 64 79 | 22 20 74 68 65 6e 0d 20 | = "body|" then. |
|00037fd0| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 76 20 |   set t|he locv |
|00037fe0| 6f 66 20 73 70 72 69 74 | 65 20 31 30 20 3d 20 36 |of sprit|e 10 = 6|
|00037ff0| 31 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |1.    se|t the lo|
|00038000| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 31 30 20 |ch of sp|rite 10 |
|00038010| 3d 20 34 37 0d 20 20 20 | 20 73 65 74 20 67 48 65 |= 47.   | set gHe|
|00038020| 61 64 6c 6f 63 48 20 3d | 20 34 37 0d 20 20 65 6c |adlocH =| 47.  el|
|00038030| 73 65 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 6c |se.    s|et the l|
|00038040| 6f 63 76 20 6f 66 20 73 | 70 72 69 74 65 20 31 30 |ocv of s|prite 10|
|00038050| 20 3d 20 35 33 0d 20 20 | 20 20 73 65 74 20 74 68 | = 53.  |  set th|
|00038060| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00038070| 20 31 30 20 3d 20 34 32 | 0d 20 20 20 20 73 65 74 | 10 = 42|.    set|
|00038080| 20 67 48 65 61 64 6c 6f | 63 48 20 3d 20 34 32 0d | gHeadlo|cH = 42.|
|00038090| 20 20 65 6e 64 20 69 66 | 0d 20 20 0d 20 20 0d 20 |  end if|.  .  . |
|000380a0| 20 2d 2d 20 70 75 74 20 | 75 70 20 74 68 65 20 6e | -- put |up the n|
|000380b0| 61 6d 65 20 62 69 74 6d | 61 70 0d 20 20 70 75 70 |ame bitm|ap.  pup|
|000380c0| 70 65 74 73 70 72 69 74 | 65 20 34 2c 31 0d 20 20 |petsprit|e 4,1.  |
|000380d0| 73 65 74 20 67 4e 61 6d | 65 43 61 73 74 6e 75 6d |set gNam|eCastnum|
|000380e0| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|000380f0| 20 63 61 73 74 20 28 67 | 6d 61 6b 65 72 6e 75 6d | cast (g|makernum|
|00038100| 26 22 2e 6e 61 6d 65 22 | 29 0d 20 20 73 65 74 20 |&".name"|).  set |
|00038110| 74 68 65 20 63 61 73 74 | 6e 75 6d 20 6f 66 20 73 |the cast|num of s|
|00038120| 70 72 69 74 65 20 34 20 | 3d 20 67 4e 61 6d 65 43 |prite 4 |= gNameC|
|00038130| 61 73 74 6e 75 6d 0d 20 | 20 0d 20 20 69 66 20 67 |astnum. | .  if g|
|00038140| 57 6f 72 6c 64 20 3d 20 | 22 50 6f 77 65 72 22 20 |World = |"Power" |
|00038150| 74 68 65 6e 0d 20 20 20 | 20 73 65 74 20 74 68 65 |then.   | set the|
|00038160| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|00038170| 34 20 3d 20 31 35 31 0d | 20 20 20 20 73 65 74 20 |4 = 151.|    set |
|00038180| 74 68 65 20 6c 6f 63 76 | 20 6f 66 20 73 70 72 69 |the locv| of spri|
|00038190| 74 65 20 34 20 3d 20 32 | 34 0d 20 20 65 6c 73 65 |te 4 = 2|4.  else|
|000381a0| 20 69 66 20 67 57 6f 72 | 6c 64 20 3d 20 22 44 65 | if gWor|ld = "De|
|000381b0| 73 69 67 6e 22 20 74 68 | 65 6e 0d 20 20 20 20 73 |sign" th|en.    s|
|000381c0| 65 74 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 |et the l|och of s|
|000381d0| 70 72 69 74 65 20 34 20 | 3d 20 31 33 37 0d 20 20 |prite 4 |= 137.  |
|000381e0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 76 20 6f |  set th|e locv o|
|000381f0| 66 20 73 70 72 69 74 65 | 20 34 20 3d 20 39 36 0d |f sprite| 4 = 96.|
|00038200| 20 20 20 20 73 65 74 20 | 67 4e 61 6d 65 4c 6f 63 |    set |gNameLoc|
|00038210| 68 20 3d 20 31 33 37 0d | 20 20 20 20 73 65 74 20 |h = 137.|    set |
|00038220| 67 4e 61 6d 65 4c 6f 63 | 76 20 3d 20 39 36 0d 20 |gNameLoc|v = 96. |
|00038230| 20 65 6c 73 65 20 69 66 | 20 67 57 6f 72 6c 64 20 | else if| gWorld |
|00038240| 3d 20 22 4d 69 6e 64 22 | 20 74 68 65 6e 0d 20 20 |= "Mind"| then.  |
|00038250| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|00038260| 66 20 73 70 72 69 74 65 | 20 34 20 3d 20 32 34 34 |f sprite| 4 = 244|
|00038270| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |.    set| the loc|
|00038280| 76 20 6f 66 20 73 70 72 | 69 74 65 20 34 20 3d 20 |v of spr|ite 4 = |
|00038290| 36 38 0d 20 20 65 6c 73 | 65 20 69 66 20 67 57 6f |68.  els|e if gWo|
|000382a0| 72 6c 64 20 3d 20 22 64 | 69 73 63 6f 76 65 72 22 |rld = "d|iscover"|
|000382b0| 20 74 68 65 6e 0d 20 20 | 20 20 69 66 20 67 4e 61 | then.  |  if gNa|
|000382c0| 6d 65 43 61 73 74 4e 75 | 6d 20 3e 20 30 20 74 68 |meCastNu|m > 0 th|
|000382d0| 65 6e 0d 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |en.     | set the|
|000382e0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|000382f0| 34 20 3d 20 28 74 68 65 | 20 77 69 64 74 68 20 6f |4 = (the| width o|
|00038300| 66 20 63 61 73 74 20 67 | 4e 61 6d 65 43 61 73 74 |f cast g|NameCast|
|00038310| 6e 75 6d 29 2f 32 0d 20 | 20 20 20 65 6e 64 20 69 |num)/2. |   end i|
|00038320| 66 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 6c 6f |f.    se|t the lo|
|00038330| 63 76 20 6f 66 20 73 70 | 72 69 74 65 20 34 20 3d |cv of sp|rite 4 =|
|00038340| 20 32 30 0d 20 20 20 20 | 0d 20 20 65 6c 73 65 20 | 20.    |.  else |
|00038350| 69 66 20 67 57 6f 72 6c | 64 20 3d 20 22 62 6f 64 |if gWorl|d = "bod|
|00038360| 79 22 20 74 68 65 6e 0d | 20 20 20 20 73 65 74 20 |y" then.|    set |
|00038370| 74 68 65 20 6c 6f 63 68 | 20 6f 66 20 73 70 72 69 |the loch| of spri|
|00038380| 74 65 20 34 20 3d 20 33 | 36 30 0d 20 20 20 20 73 |te 4 = 3|60.    s|
|00038390| 65 74 20 74 68 65 20 6c | 6f 63 76 20 6f 66 20 73 |et the l|ocv of s|
|000383a0| 70 72 69 74 65 20 34 20 | 3d 20 31 31 0d 20 20 65 |prite 4 |= 11.  e|
|000383b0| 6c 73 65 20 69 66 20 67 | 57 6f 72 6c 64 20 3d 20 |lse if g|World = |
|000383c0| 22 53 65 6e 73 65 73 22 | 20 74 68 65 6e 0d 20 20 |"Senses"| then.  |
|000383d0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|000383e0| 66 20 73 70 72 69 74 65 | 20 34 20 3d 20 31 37 32 |f sprite| 4 = 172|
|000383f0| 0d 20 20 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |.    set| the loc|
|00038400| 76 20 6f 66 20 73 70 72 | 69 74 65 20 34 20 3d 20 |v of spr|ite 4 = |
|00038410| 31 39 0d 20 20 20 20 73 | 65 74 20 67 4e 61 6d 65 |19.    s|et gName|
|00038420| 4c 6f 63 68 20 3d 20 31 | 37 32 0d 20 20 20 20 73 |Loch = 1|72.    s|
|00038430| 65 74 20 67 4e 61 6d 65 | 4c 6f 63 76 20 3d 20 31 |et gName|Locv = 1|
|00038440| 39 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 20 20 |9.  end |if.  .  |
|00038450| 75 70 64 61 74 65 73 74 | 61 67 65 0d 20 20 0d 20 |updatest|age.  . |
|00038460| 20 2d 2d 20 72 65 61 64 | 20 74 65 78 74 20 63 75 | -- read| text cu|
|00038470| 74 74 69 6e 67 73 20 66 | 69 6c 65 0d 20 20 0d 20 |ttings f|ile.  . |
|00038480| 20 2d 2d 20 6f 6e 20 50 | 43 20 6e 65 65 64 20 74 | -- on P|C need t|
|00038490| 6f 20 6f 70 65 6e 20 74 | 68 65 20 66 69 6c 65 69 |o open t|he filei|
|000384a0| 6f 20 78 6f 62 6a 65 63 | 74 0d 20 20 69 66 20 74 |o xobjec|t.  if t|
|000384b0| 68 65 20 6d 61 63 68 69 | 6e 65 74 79 70 65 20 3d |he machi|netype =|
|000384c0| 20 32 35 36 20 74 68 65 | 6e 20 0d 20 20 20 20 6f | 256 the|n .    o|
|000384d0| 70 65 6e 78 6c 69 62 28 | 74 68 65 20 70 61 74 68 |penxlib(|the path|
|000384e0| 6e 61 6d 65 20 26 20 22 | 66 69 6c 65 69 6f 2e 64 |name & "|fileio.d|
|000384f0| 6c 6c 22 29 20 20 0d 20 | 20 65 6e 64 20 69 66 0d |ll")  . | end if.|
|00038500| 20 20 0d 20 20 73 65 74 | 20 63 75 6e 61 6d 65 20 |  .  set| cuname |
|00038510| 3d 20 22 43 55 22 20 26 | 20 67 4d 61 6b 65 72 4e |= "CU" &| gMakerN|
|00038520| 75 6d 0d 20 20 73 65 74 | 20 6f 62 6a 20 3d 20 66 |um.  set| obj = f|
|00038530| 69 6c 65 69 6f 28 6d 4e | 65 77 2c 22 72 65 61 64 |ileio(mN|ew,"read|
|00038540| 22 2c 20 6d 50 61 74 68 | 20 26 20 63 75 6e 61 6d |", mPath| & cunam|
|00038550| 65 20 26 20 22 2e 54 58 | 54 22 29 0d 20 20 69 66 |e & ".TX|T").  if|
|00038560| 20 6f 62 6a 65 63 74 70 | 28 6f 62 6a 29 20 74 68 | objectp|(obj) th|
|00038570| 65 6e 0d 20 20 20 20 73 | 65 74 20 67 46 75 6c 6c |en.    s|et gFull|
|00038580| 43 75 74 74 69 6e 67 73 | 20 3d 20 6f 62 6a 28 6d |Cuttings| = obj(m|
|00038590| 52 65 61 64 46 69 6c 65 | 29 0d 20 20 20 20 6f 62 |ReadFile|).    ob|
|000385a0| 6a 28 6d 44 69 73 70 6f | 73 65 29 0d 20 20 20 20 |j(mDispo|se).    |
|000385b0| 64 65 6c 65 74 65 20 6c | 69 6e 65 20 28 74 68 65 |delete l|ine (the|
|000385c0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 6c 69 6e 65 73 | number |of lines|
|000385d0| 20 6f 66 20 67 46 75 6c | 6c 43 75 74 74 69 6e 67 | of gFul|lCutting|
|000385e0| 73 29 20 6f 66 20 67 46 | 75 6c 6c 43 75 74 74 69 |s) of gF|ullCutti|
|000385f0| 6e 67 73 0d 20 20 65 6c | 73 65 0d 20 20 20 20 61 |ngs.  el|se.    a|
|00038600| 6c 65 72 74 20 22 45 72 | 72 6f 72 20 6f 70 65 6e |lert "Er|ror open|
|00038610| 69 6e 67 20 22 20 26 26 | 20 28 63 75 6e 61 6d 65 |ing " &&| (cuname|
|00038620| 20 26 20 22 2e 54 58 54 | 22 29 0d 20 20 20 20 73 | & ".TXT|").    s|
|00038630| 65 74 20 66 6f 72 63 64 | 20 3d 20 30 20 0d 20 20 |et forcd| = 0 .  |
|00038640| 20 20 69 66 20 66 6f 72 | 63 64 20 3d 20 31 20 74 |  if for|cd = 1 t|
|00038650| 68 65 6e 0d 20 20 20 20 | 20 20 52 65 74 75 72 6e |hen.    |  Return|
|00038660| 54 6f 57 6f 72 6c 64 0d | 20 20 20 20 65 6c 73 65 |ToWorld.|    else|
|00038670| 0d 20 20 20 20 20 20 61 | 62 6f 72 74 0d 20 20 20 |.      a|bort.   |
|00038680| 20 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 32 |   go to| frame 2|
|00038690| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 65 6e |.    end| if.  en|
|000386a0| 64 20 69 66 0d 20 20 0d | 20 20 69 66 20 74 68 65 |d if.  .|  if the|
|000386b0| 20 6d 61 63 68 69 6e 65 | 74 79 70 65 20 3d 20 32 | machine|type = 2|
|000386c0| 35 36 20 74 68 65 6e 20 | 0d 20 20 20 20 63 6c 6f |56 then |.    clo|
|000386d0| 73 65 78 6c 69 62 28 74 | 68 65 20 70 61 74 68 6e |sexlib(t|he pathn|
|000386e0| 61 6d 65 20 26 20 22 66 | 69 6c 65 69 6f 2e 64 6c |ame & "f|ileio.dl|
|000386f0| 6c 22 29 20 20 0d 20 20 | 65 6e 64 20 69 66 0d 20 |l")  .  |end if. |
|00038700| 20 0d 20 20 2d 2d 20 67 | 65 74 20 74 68 65 20 63 | .  -- g|et the c|
|00038710| 75 72 72 65 6e 74 20 63 | 75 74 74 69 6e 67 20 69 |urrent c|utting i|
|00038720| 6e 64 65 78 0d 20 20 73 | 65 74 20 63 75 74 74 69 |ndex.  s|et cutti|
|00038730| 6e 67 69 6e 64 65 78 63 | 61 73 74 20 3d 20 74 68 |ngindexc|ast = th|
|00038740| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 61 73 74 |e number| of cast|
|00038750| 20 28 22 43 75 74 74 69 | 6e 67 49 6e 64 65 78 22 | ("Cutti|ngIndex"|
|00038760| 20 26 20 67 57 6f 72 6c | 64 29 0d 20 20 73 65 74 | & gWorl|d).  set|
|00038770| 20 74 6d 70 20 3d 20 62 | 73 65 61 72 63 68 28 67 | tmp = b|search(g|
|00038780| 4d 61 6b 65 72 4e 61 6d | 65 2c 20 63 75 74 74 69 |MakerNam|e, cutti|
|00038790| 6e 67 69 6e 64 65 78 63 | 61 73 74 29 0d 20 20 73 |ngindexc|ast).  s|
|000387a0| 65 74 20 67 43 75 72 49 | 6e 64 65 78 20 3d 20 6c |et gCurI|ndex = l|
|000387b0| 69 6e 65 20 74 6d 70 20 | 6f 66 20 66 69 65 6c 64 |ine tmp |of field|
|000387c0| 20 63 75 74 74 69 6e 67 | 69 6e 64 65 78 63 61 73 | cutting|indexcas|
|000387d0| 74 0d 20 20 0d 20 20 0d | 20 20 2d 2d 20 66 69 78 |t.  .  .|  -- fix|
|000387e0| 70 61 6c 65 74 74 65 2c | 20 62 75 74 20 6f 6e 6c |palette,| but onl|
|000387f0| 79 20 63 61 6c 6c 20 69 | 74 20 6f 6e 20 61 20 4d |y call i|t on a M|
|00038800| 41 43 0d 20 20 69 66 20 | 74 68 65 20 6d 61 63 68 |AC.  if |the mach|
|00038810| 69 6e 65 74 79 70 65 20 | 3c 20 32 35 36 20 74 68 |inetype |< 256 th|
|00038820| 65 6e 20 20 20 20 0d 20 | 20 20 20 6f 70 65 6e 78 |en    . |   openx|
|00038830| 6c 69 62 20 28 74 68 65 | 20 70 61 74 68 6e 61 6d |lib (the| pathnam|
|00038840| 65 20 26 20 22 46 69 78 | 50 61 6c 65 74 74 65 22 |e & "Fix|Palette"|
|00038850| 29 0d 20 20 20 20 73 65 | 74 20 6f 62 6a 20 3d 20 |).    se|t obj = |
|00038860| 66 69 78 70 61 6c 65 74 | 74 65 28 6d 4e 65 77 2c |fixpalet|te(mNew,|
|00038870| 30 2c 30 2c 36 34 30 2c | 34 38 30 29 0d 20 20 20 |0,0,640,|480).   |
|00038880| 20 6f 62 6a 28 6d 50 61 | 74 63 68 49 74 29 0d 20 | obj(mPa|tchIt). |
|00038890| 20 20 20 6f 62 6a 28 6d | 44 69 73 70 6f 73 65 29 |   obj(m|Dispose)|
|000388a0| 0d 20 20 20 20 63 6c 6f | 73 65 78 6c 69 62 20 28 |.    clo|sexlib (|
|000388b0| 74 68 65 20 70 61 74 68 | 6e 61 6d 65 20 26 20 22 |the path|name & "|
|000388c0| 46 69 78 50 61 6c 65 74 | 74 65 22 29 0d 20 20 65 |FixPalet|te").  e|
|000388d0| 6e 64 20 69 66 0d 20 20 | 0d 20 20 0d 20 20 2d 2d |nd if.  |.  .  --|
|000388e0| 20 67 65 74 20 74 68 65 | 20 6c 69 73 74 20 6f 66 | get the| list of|
|000388f0| 20 63 68 61 70 74 65 72 | 20 74 69 74 6c 65 73 20 | chapter| titles |
|00038900| 66 6f 72 20 74 68 65 20 | 6e 61 76 20 62 75 74 74 |for the |nav butt|
|00038910| 6f 6e 0d 20 20 73 65 74 | 20 6e 75 6d 20 3d 20 63 |on.  set| num = c|
|00038920| 6f 75 6e 74 28 67 43 68 | 61 70 74 65 72 73 29 0d |ount(gCh|apters).|
|00038930| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f |  set th|e text o|
|00038940| 66 20 66 69 65 6c 64 20 | 22 63 68 61 70 74 65 72 |f field |"chapter|
|00038950| 74 69 74 6c 65 73 22 20 | 3d 20 22 49 4e 54 52 4f |titles" |= "INTRO|
|00038960| 44 55 43 54 49 4f 4e 22 | 0d 20 20 72 65 70 65 61 |DUCTION"|.  repea|
|00038970| 74 20 77 69 74 68 20 69 | 20 3d 20 32 20 74 6f 20 |t with i| = 2 to |
|00038980| 6e 75 6d 0d 20 20 20 20 | 70 75 74 20 67 65 74 61 |num.    |put geta|
|00038990| 74 28 67 43 68 61 70 74 | 65 72 73 2c 69 29 20 69 |t(gChapt|ers,i) i|
|000389a0| 6e 74 6f 20 6c 69 6e 65 | 20 69 20 6f 66 20 66 69 |nto line| i of fi|
|000389b0| 65 6c 64 20 22 63 68 61 | 70 74 65 72 74 69 74 6c |eld "cha|ptertitl|
|000389c0| 65 73 22 0d 20 20 65 6e | 64 20 72 65 70 65 61 74 |es".  en|d repeat|
|000389d0| 0d 20 20 2d 2d 70 75 74 | 20 22 46 4c 59 49 4e 47 |.  --put| "FLYING|
|000389e0| 20 46 41 43 54 53 22 20 | 69 6e 74 6f 20 6c 69 6e | FACTS" |into lin|
|000389f0| 65 20 28 69 29 20 6f 66 | 20 66 69 65 6c 64 20 22 |e (i) of| field "|
|00038a00| 63 68 61 70 74 65 72 74 | 69 74 6c 65 73 22 0d 20 |chaptert|itles". |
|00038a10| 20 0d 20 20 73 65 74 20 | 74 68 65 20 74 65 78 74 | .  set |the text|
|00038a20| 20 6f 66 20 66 69 65 6c | 64 20 22 43 75 72 72 65 | of fiel|d "Curre|
|00038a30| 6e 74 41 72 74 69 63 6c | 65 22 20 3d 20 22 20 22 |ntArticl|e" = " "|
|00038a40| 0d 20 20 73 65 74 20 74 | 68 65 20 74 65 78 74 20 |.  set t|he text |
|00038a50| 6f 66 20 66 69 65 6c 64 | 20 22 43 75 72 72 65 6e |of field| "Curren|
|00038a60| 74 43 68 61 70 74 65 72 | 22 20 3d 20 22 20 22 0d |tChapter|" = " ".|
|00038a70| 20 20 0d 20 20 2d 2d 20 | 68 69 64 65 20 6e 61 76 |  .  -- |hide nav|
|00038a80| 20 62 75 74 74 6f 6e 73 | 0d 20 20 73 65 74 20 74 | buttons|.  set t|
|00038a90| 68 65 20 76 69 73 69 62 | 6c 65 20 6f 66 20 73 70 |he visib|le of sp|
|00038aa0| 72 69 74 65 20 33 35 20 | 3d 20 30 0d 20 20 73 65 |rite 35 |= 0.  se|
|00038ab0| 74 20 74 68 65 20 76 69 | 73 69 62 6c 65 20 6f 66 |t the vi|sible of|
|00038ac0| 20 73 70 72 69 74 65 20 | 33 36 20 3d 20 30 0d 20 | sprite |36 = 0. |
|00038ad0| 20 0d 20 20 2d 2d 20 68 | 69 64 65 20 66 20 61 6e | .  -- h|ide f an|
|00038ae0| 64 20 62 20 62 75 74 74 | 6f 6e 73 0d 20 20 73 65 |d b butt|ons.  se|
|00038af0| 74 20 74 68 65 20 76 69 | 73 69 62 6c 65 20 6f 66 |t the vi|sible of|
|00038b00| 20 73 70 72 69 74 65 20 | 31 39 20 3d 20 30 0d 20 | sprite |19 = 0. |
|00038b10| 20 73 65 74 20 74 68 65 | 20 76 69 73 69 62 6c 65 | set the| visible|
|00038b20| 20 6f 66 20 73 70 72 69 | 74 65 20 32 30 20 3d 20 | of spri|te 20 = |
|00038b30| 30 0d 20 20 0d 20 20 4e | 61 76 42 75 74 74 6f 6e |0.  .  N|avButton|
|00038b40| 57 69 6e 64 6f 77 0d 20 | 20 0d 20 20 2d 2d 20 67 |Window. | .  -- g|
|00038b50| 65 74 20 72 69 64 20 6f | 66 20 74 68 65 20 62 6c |et rid o|f the bl|
|00038b60| 61 63 6b 20 63 6f 76 65 | 72 69 6e 67 20 74 68 65 |ack cove|ring the|
|00038b70| 20 73 63 72 65 65 6e 0d | 20 20 55 6e 42 6c 61 63 | screen.|  UnBlac|
|00038b80| 6b 53 63 72 65 65 6e 0d | 20 20 0d 20 20 2d 2d 20 |kScreen.|  .  -- |
|00038b90| 70 6c 61 79 20 73 6f 75 | 6e 64 0d 20 20 73 6f 75 |play sou|nd.  sou|
|00038ba0| 6e 64 20 70 6c 61 79 66 | 69 6c 65 20 31 2c 20 67 |nd playf|ile 1, g|
|00038bb0| 53 6f 75 6e 64 50 61 74 | 68 20 26 20 22 53 22 20 |SoundPat|h & "S" |
|00038bc0| 26 20 67 4d 61 6b 65 72 | 4e 75 6d 0d 20 20 0d 20 |& gMaker|Num.  . |
|00038bd0| 20 70 75 74 20 22 69 6e | 69 74 69 61 6c 69 7a 69 | put "in|itializi|
|00038be0| 6e 67 20 74 68 65 20 64 | 61 74 61 62 61 73 65 20 |ng the d|atabase |
|00038bf0| 74 6f 6f 6b 3a 22 20 26 | 26 20 74 68 65 20 74 69 |took:" &|& the ti|
|00038c00| 6d 65 72 20 26 26 20 22 | 74 69 63 6b 73 22 0d 20 |mer && "|ticks". |
|00038c10| 20 0d 65 6e 64 0d 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | .end..-|--------|
|00038c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00038c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00038c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00038c50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00038c60| 2d 2d 2d 2d 2d 0d 6f 6e | 20 47 6f 43 68 61 70 74 |-----.on| GoChapt|
|00038c70| 65 72 20 6e 75 6d 0d 20 | 20 67 6c 6f 62 61 6c 20 |er num. | global |
|00038c80| 67 43 68 61 70 74 65 72 | 73 2c 20 67 54 69 74 6c |gChapter|s, gTitl|
|00038c90| 65 73 2c 20 67 41 72 74 | 69 63 6c 65 73 2c 20 67 |es, gArt|icles, g|
|00038ca0| 44 61 74 65 73 2c 20 67 | 43 61 70 74 69 6f 6e 73 |Dates, g|Captions|
|00038cb0| 20 0d 20 20 67 6c 6f 62 | 61 6c 20 67 43 75 72 43 | .  glob|al gCurC|
|00038cc0| 68 61 70 2c 20 67 43 75 | 72 41 72 74 69 63 6c 65 |hap, gCu|rArticle|
|00038cd0| 0d 20 20 0d 20 20 73 65 | 74 20 6e 75 6d 63 68 61 |.  .  se|t numcha|
|00038ce0| 70 73 20 3d 20 63 6f 75 | 6e 74 28 67 43 68 61 70 |ps = cou|nt(gChap|
|00038cf0| 74 65 72 73 29 0d 20 20 | 0d 20 20 70 75 74 20 22 |ters).  |.  put "|
|00038d00| 67 6f 63 68 61 70 20 22 | 20 26 26 20 6e 75 6d 0d |gochap "| && num.|
|00038d10| 20 20 69 66 20 6e 75 6d | 20 3e 20 28 6e 75 6d 63 |  if num| > (numc|
|00038d20| 68 61 70 73 2b 31 29 20 | 74 68 65 6e 20 65 78 69 |haps+1) |then exi|
|00038d30| 74 0d 20 20 69 66 20 6e | 75 6d 20 3c 20 31 20 74 |t.  if n|um < 1 t|
|00038d40| 68 65 6e 20 65 78 69 74 | 0d 20 20 0d 20 20 75 6e |hen exit|.  .  un|
|00038d50| 70 75 70 70 65 74 20 22 | 34 2c 31 30 22 20 0d 20 |puppet "|4,10" . |
|00038d60| 20 0d 20 20 69 66 20 6e | 75 6d 20 3d 20 28 6e 75 | .  if n|um = (nu|
|00038d70| 6d 63 68 61 70 73 20 2b | 20 31 29 20 74 68 65 6e |mchaps +| 1) then|
|00038d80| 20 0d 20 20 20 20 2d 2d | 20 47 6f 46 6c 79 69 6e | .    --| GoFlyin|
|00038d90| 67 46 61 63 74 73 0d 20 | 20 65 6c 73 65 0d 20 20 |gFacts. | else.  |
|00038da0| 20 20 73 65 74 20 67 43 | 75 72 43 68 61 70 20 3d |  set gC|urChap =|
|00038db0| 20 6e 75 6d 0d 20 20 20 | 20 73 65 74 20 67 43 75 | num.   | set gCu|
|00038dc0| 72 41 72 74 69 63 6c 65 | 20 3d 20 31 0d 20 20 20 |rArticle| = 1.   |
|00038dd0| 20 47 6f 41 72 74 69 63 | 6c 65 20 20 0d 20 20 65 | GoArtic|le  .  e|
|00038de0| 6e 64 20 69 66 0d 20 20 | 0d 65 6e 64 0d 0d 2d 2d |nd if.  |.end..--|
|00038df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00038e00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00038e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00038e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00038e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 0d 0d 6f |--------|----...o|
|00038e40| 6e 20 47 6f 46 6c 79 69 | 6e 67 46 61 63 74 73 0d |n GoFlyi|ngFacts.|
|00038e50| 20 20 67 6c 6f 62 61 6c | 20 67 4e 75 67 67 65 74 |  global| gNugget|
|00038e60| 73 2c 20 67 57 6f 72 6c | 64 2c 20 67 4e 61 6d 65 |s, gWorl|d, gName|
|00038e70| 6c 6f 63 68 2c 20 67 4e | 61 6d 65 6c 6f 63 76 2c |loch, gN|amelocv,|
|00038e80| 20 67 4e 61 6d 65 43 61 | 73 74 6e 75 6d 2c 20 67 | gNameCa|stnum, g|
|00038e90| 68 65 61 64 6c 6f 63 68 | 0d 20 20 67 6c 6f 62 61 |headloch|.  globa|
|00038ea0| 6c 20 67 4d 61 6b 65 72 | 6e 75 6d 2c 20 67 46 6c |l gMaker|num, gFl|
|00038eb0| 79 69 6e 67 46 61 63 74 | 73 2c 20 67 41 72 74 69 |yingFact|s, gArti|
|00038ec0| 63 6c 65 50 61 67 65 2c | 20 67 54 65 78 74 50 61 |clePage,| gTextPa|
|00038ed0| 67 65 73 2c 20 67 4d 61 | 78 4c 69 6e 65 73 0d 20 |ges, gMa|xLines. |
|00038ee0| 20 0d 20 20 73 65 74 20 | 6e 61 6d 65 73 70 72 69 | .  set |namespri|
|00038ef0| 74 65 20 3d 20 34 0d 20 | 20 73 65 74 20 68 65 61 |te = 4. | set hea|
|00038f00| 64 73 70 72 69 74 65 20 | 3d 20 31 30 0d 20 20 0d |dsprite |= 10.  .|
|00038f10| 20 20 2d 2d 20 70 75 74 | 20 74 68 65 20 6e 61 6d |  -- put| the nam|
|00038f20| 65 20 62 69 74 6d 61 70 | 20 61 6e 64 20 74 68 65 |e bitmap| and the|
|00038f30| 20 20 68 65 61 64 73 68 | 6f 74 20 69 6e 20 74 68 |  headsh|ot in th|
|00038f40| 65 20 72 69 67 68 74 20 | 70 6c 61 63 65 2c 20 69 |e right |place, i|
|00038f50| 6e 20 63 61 73 65 20 77 | 65 27 76 65 20 6d 6f 76 |n case w|e've mov|
|00038f60| 65 64 0d 20 20 2d 2d 20 | 74 68 65 6d 2c 20 66 6f |ed.  -- |them, fo|
|00038f70| 72 20 65 78 61 6d 70 6c | 65 2c 20 69 6e 20 74 68 |r exampl|e, in th|
|00038f80| 65 20 63 75 74 74 69 6e | 67 73 0d 20 20 69 66 20 |e cuttin|gs.  if |
|00038f90| 67 57 6f 72 6c 64 20 3d | 20 22 64 65 73 69 67 6e |gWorld =| "design|
|00038fa0| 22 20 61 6e 64 20 74 68 | 65 20 66 72 61 6d 65 6c |" and th|e framel|
|00038fb0| 61 62 65 6c 20 3d 20 22 | 63 75 74 74 69 6e 67 22 |abel = "|cutting"|
|00038fc0| 20 74 68 65 6e 0d 20 20 | 20 20 73 65 74 20 74 68 | then.  |  set th|
|00038fd0| 65 20 6c 6f 63 68 20 6f | 66 20 73 70 72 69 74 65 |e loch o|f sprite|
|00038fe0| 20 6e 61 6d 65 73 70 72 | 69 74 65 20 3d 20 31 30 | namespr|ite = 10|
|00038ff0| 30 30 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 63 |00.    s|et the c|
|00039000| 61 73 74 6e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astnum o|f sprite|
|00039010| 20 6e 61 6d 65 73 70 72 | 69 74 65 20 3d 20 67 4e | namespr|ite = gN|
|00039020| 61 6d 65 43 61 73 74 6e | 75 6d 20 20 0d 20 20 65 |ameCastn|um  .  e|
|00039030| 6e 64 20 69 66 0d 20 20 | 73 65 74 20 74 68 65 20 |nd if.  |set the |
|00039040| 6c 6f 63 68 20 6f 66 20 | 73 70 72 69 74 65 20 68 |loch of |sprite h|
|00039050| 65 61 64 73 70 72 69 74 | 65 20 3d 20 67 68 65 61 |eadsprit|e = ghea|
|00039060| 64 6c 6f 63 68 0d 20 20 | 0d 20 20 73 65 74 20 67 |dloch.  |.  set g|
|00039070| 46 6c 79 69 6e 67 46 61 | 63 74 73 20 3d 20 22 20 |FlyingFa|cts = " |
|00039080| 22 0d 20 20 0d 20 20 73 | 65 74 20 74 68 65 20 69 |".  .  s|et the i|
|00039090| 74 65 6d 64 65 6c 69 6d | 69 74 65 72 20 3d 20 22 |temdelim|iter = "|
|000390a0| 40 22 0d 20 20 73 65 74 | 20 74 6d 70 6e 75 67 67 |@".  set| tmpnugg|
|000390b0| 65 74 20 3d 20 69 74 65 | 6d 20 67 4d 61 6b 65 72 |et = ite|m gMaker|
|000390c0| 6e 75 6d 20 6f 66 20 66 | 69 65 6c 64 20 28 22 6d |num of f|ield ("m|
|000390d0| 61 6b 65 72 6e 75 67 67 | 65 74 22 20 26 20 28 28 |akernugg|et" & ((|
|000390e0| 67 4d 61 6b 65 72 6e 75 | 6d 2f 32 30 29 2b 31 29 |gMakernu|m/20)+1)|
|000390f0| 29 0d 20 20 0d 20 20 73 | 65 74 20 74 68 65 20 69 |).  .  s|et the i|
|00039100| 74 65 6d 64 65 6c 69 6d | 69 74 65 72 20 3d 20 22 |temdelim|iter = "|
|00039110| 23 22 0d 20 20 73 65 74 | 20 6e 75 6d 20 3d 20 74 |#".  set| num = t|
|00039120| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 69 74 65 |he numbe|r of ite|
|00039130| 6d 73 20 6f 66 20 74 6d | 70 6e 75 67 67 65 74 0d |ms of tm|pnugget.|
|00039140| 20 20 0d 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |  .  rep|eat with|
|00039150| 20 69 20 3d 20 31 20 74 | 6f 20 6e 75 6d 0d 20 20 | i = 1 t|o num.  |
|00039160| 20 20 70 75 74 20 69 74 | 65 6d 20 69 20 6f 66 20 |  put it|em i of |
|00039170| 74 6d 70 6e 75 67 67 65 | 74 20 26 20 72 65 74 75 |tmpnugge|t & retu|
|00039180| 72 6e 20 61 66 74 65 72 | 20 67 46 6c 79 69 6e 67 |rn after| gFlying|
|00039190| 46 61 63 74 73 0d 20 20 | 20 20 2d 2d 20 70 75 74 |Facts.  |  -- put|
|000391a0| 20 69 74 65 6d 20 69 20 | 6f 66 20 67 4e 75 67 67 | item i |of gNugg|
|000391b0| 65 74 73 20 26 20 72 65 | 74 75 72 6e 20 26 20 72 |ets & re|turn & r|
|000391c0| 65 74 75 72 6e 20 61 66 | 74 65 72 20 67 46 6c 79 |eturn af|ter gFly|
|000391d0| 69 6e 67 46 61 63 74 73 | 20 0d 20 20 65 6e 64 20 |ingFacts| .  end |
|000391e0| 72 65 70 65 61 74 0d 20 | 20 0d 20 20 64 65 6c 65 |repeat. | .  dele|
|000391f0| 74 65 20 63 68 61 72 20 | 31 20 6f 66 20 67 46 6c |te char |1 of gFl|
|00039200| 79 69 6e 67 46 61 63 74 | 73 0d 20 20 64 65 6c 65 |yingFact|s.  dele|
|00039210| 74 65 20 6c 69 6e 65 20 | 31 20 6f 66 20 67 46 6c |te line |1 of gFl|
|00039220| 79 69 6e 67 46 61 63 74 | 73 0d 20 20 69 66 20 74 |yingFact|s.  if t|
|00039230| 68 65 20 6c 61 73 74 20 | 6c 69 6e 65 20 6f 66 20 |he last |line of |
|00039240| 67 46 6c 79 69 6e 67 46 | 61 63 74 73 20 3d 20 22 |gFlyingF|acts = "|
|00039250| 22 20 74 68 65 6e 20 64 | 65 6c 65 74 65 20 74 68 |" then d|elete th|
|00039260| 65 20 6c 61 73 74 20 6c | 69 6e 65 20 6f 66 20 67 |e last l|ine of g|
|00039270| 46 6c 79 69 6e 67 46 61 | 63 74 73 0d 20 20 0d 20 |FlyingFa|cts.  . |
|00039280| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|00039290| 69 6d 69 74 65 72 20 3d | 20 22 2c 22 0d 20 20 69 |imiter =| ",".  i|
|000392a0| 66 20 67 57 6f 72 6c 64 | 20 3d 20 22 50 6f 77 65 |f gWorld| = "Powe|
|000392b0| 72 22 20 74 68 65 6e 20 | 0d 20 20 20 20 73 65 74 |r" then |.    set|
|000392c0| 20 67 4d 61 78 4c 69 6e | 65 73 20 3d 20 31 39 0d | gMaxLin|es = 19.|
|000392d0| 20 20 65 6c 73 65 20 69 | 66 20 67 57 6f 72 6c 64 |  else i|f gWorld|
|000392e0| 20 3d 20 22 53 65 6e 73 | 65 73 22 20 74 68 65 6e | = "Sens|es" then|
|000392f0| 20 0d 20 20 20 20 73 65 | 74 20 67 4d 61 78 4c 69 | .    se|t gMaxLi|
|00039300| 6e 65 73 20 3d 20 32 35 | 0d 20 20 65 6c 73 65 20 |nes = 25|.  else |
|00039310| 69 66 20 67 57 6f 72 6c | 64 20 3d 20 22 62 6f 64 |if gWorl|d = "bod|
|00039320| 79 22 20 74 68 65 6e 20 | 0d 20 20 20 20 73 65 74 |y" then |.    set|
|00039330| 20 67 4d 61 78 4c 69 6e | 65 73 20 3d 20 32 32 0d | gMaxLin|es = 22.|
|00039340| 20 20 65 6c 73 65 0d 20 | 20 20 20 73 65 74 20 67 |  else. |   set g|
|00039350| 4d 61 78 4c 69 6e 65 73 | 20 3d 20 32 30 0d 20 20 |MaxLines| = 20.  |
|00039360| 65 6e 64 20 69 66 0d 20 | 20 0d 20 20 73 65 74 20 |end if. | .  set |
|00039370| 74 68 65 20 74 65 78 74 | 20 6f 66 20 66 69 65 6c |the text| of fiel|
|00039380| 64 20 22 66 6c 79 69 6e | 67 66 61 63 74 73 22 20 |d "flyin|gfacts" |
|00039390| 3d 20 6c 69 6e 65 20 31 | 20 74 6f 20 67 4d 61 78 |= line 1| to gMax|
|000393a0| 4c 69 6e 65 73 20 6f 66 | 20 67 46 6c 79 69 6e 67 |Lines of| gFlying|
|000393b0| 46 61 63 74 73 0d 20 20 | 0d 20 20 73 65 74 20 6e |Facts.  |.  set n|
|000393c0| 75 6d 6c 69 6e 65 73 20 | 3d 20 28 74 68 65 20 6e |umlines |= (the n|
|000393d0| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 6f |umber of| lines o|
|000393e0| 66 20 67 46 6c 79 69 6e | 67 46 61 63 74 73 29 0d |f gFlyin|gFacts).|
|000393f0| 20 20 73 65 74 20 74 6d | 70 70 61 67 65 73 20 3d |  set tm|ppages =|
|00039400| 20 6e 75 6d 6c 69 6e 65 | 73 2f 67 4d 61 78 4c 69 | numline|s/gMaxLi|
|00039410| 6e 65 73 0d 20 20 0d 20 | 20 69 66 20 74 6d 70 70 |nes.  . | if tmpp|
|00039420| 61 67 65 73 20 2a 20 67 | 4d 61 78 4c 69 6e 65 73 |ages * g|MaxLines|
|00039430| 20 3d 20 6e 75 6d 6c 69 | 6e 65 73 20 74 68 65 6e | = numli|nes then|
|00039440| 0d 20 20 20 20 73 65 74 | 20 67 54 65 78 74 50 61 |.    set| gTextPa|
|00039450| 67 65 73 20 3d 20 74 6d | 70 70 61 67 65 73 0d 20 |ges = tm|ppages. |
|00039460| 20 65 6c 73 65 0d 20 20 | 20 20 73 65 74 20 67 54 | else.  |  set gT|
|00039470| 65 78 74 50 61 67 65 73 | 20 3d 20 74 6d 70 70 61 |extPages| = tmppa|
|00039480| 67 65 73 20 2b 20 31 0d | 20 20 65 6e 64 20 69 66 |ges + 1.|  end if|
|00039490| 0d 20 20 0d 20 20 73 65 | 74 20 67 41 72 74 69 63 |.  .  se|t gArtic|
|000394a0| 6c 65 50 61 67 65 20 3d | 20 31 0d 20 20 67 6f 20 |lePage =| 1.  go |
|000394b0| 74 6f 20 66 72 61 6d 65 | 20 22 66 61 63 74 73 22 |to frame| "facts"|
|000394c0| 20 20 0d 20 20 0d 20 20 | 69 66 20 67 57 6f 72 6c |  .  .  |if gWorl|
|000394d0| 64 20 3d 20 22 53 65 6e | 73 65 73 22 20 6f 72 20 |d = "Sen|ses" or |
|000394e0| 67 57 6f 72 6c 64 20 3d | 20 22 44 65 73 69 67 6e |gWorld =| "Design|
|000394f0| 22 20 74 68 65 6e 0d 20 | 20 20 20 73 65 74 20 74 |" then. |   set t|
|00039500| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|00039510| 65 20 6e 61 6d 65 73 70 | 72 69 74 65 20 3d 20 67 |e namesp|rite = g|
|00039520| 4e 61 6d 65 4c 6f 63 68 | 0d 20 20 20 20 73 65 74 |NameLoch|.    set|
|00039530| 20 74 68 65 20 6c 6f 63 | 76 20 6f 66 20 73 70 72 | the loc|v of spr|
|00039540| 69 74 65 20 6e 61 6d 65 | 73 70 72 69 74 65 20 3d |ite name|sprite =|
|00039550| 20 67 4e 61 6d 65 4c 6f | 63 76 0d 20 20 65 6e 64 | gNameLo|cv.  end|
|00039560| 20 69 66 0d 20 20 0d 20 | 20 73 65 74 20 74 68 65 | if.  . | set the|
|00039570| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|00039580| 63 75 72 72 65 6e 74 63 | 68 61 70 74 65 72 22 20 |currentc|hapter" |
|00039590| 3d 20 22 46 4c 59 49 4e | 47 20 46 41 43 54 53 22 |= "FLYIN|G FACTS"|
|000395a0| 0d 20 20 73 65 74 20 74 | 68 65 20 74 65 78 74 20 |.  set t|he text |
|000395b0| 6f 66 20 66 69 65 6c 64 | 20 22 63 75 72 72 65 6e |of field| "curren|
|000395c0| 74 61 72 74 69 63 6c 65 | 22 20 3d 20 22 31 2f 31 |tarticle|" = "1/1|
|000395d0| 22 0d 20 20 0d 20 20 73 | 65 74 20 74 68 65 20 76 |".  .  s|et the v|
|000395e0| 69 73 69 62 6c 65 20 6f | 66 20 73 70 72 69 74 65 |isible o|f sprite|
|000395f0| 20 33 35 20 3d 20 30 0d | 20 20 73 65 74 20 74 68 | 35 = 0.|  set th|
|00039600| 65 20 76 69 73 69 62 6c | 65 20 6f 66 20 73 70 72 |e visibl|e of spr|
|00039610| 69 74 65 20 33 36 20 3d | 20 30 0d 20 20 0d 20 20 |ite 36 =| 0.  .  |
|00039620| 73 65 74 20 74 68 65 20 | 76 69 73 69 62 6c 65 20 |set the |visible |
|00039630| 6f 66 20 73 70 72 69 74 | 65 20 31 39 20 3d 20 30 |of sprit|e 19 = 0|
|00039640| 0d 20 20 69 66 20 74 68 | 65 20 6e 75 6d 62 65 72 |.  if th|e number|
|00039650| 20 6f 66 20 6c 69 6e 65 | 73 20 6f 66 20 67 46 6c | of line|s of gFl|
|00039660| 79 69 6e 67 46 61 63 74 | 73 20 3e 20 67 4d 61 78 |yingFact|s > gMax|
|00039670| 4c 69 6e 65 73 20 74 68 | 65 6e 0d 20 20 20 20 73 |Lines th|en.    s|
|00039680| 65 74 20 74 68 65 20 76 | 69 73 69 62 6c 65 20 6f |et the v|isible o|
|00039690| 66 20 73 70 72 69 74 65 | 20 32 30 20 3d 20 31 0d |f sprite| 20 = 1.|
|000396a0| 20 20 65 6c 73 65 0d 20 | 20 20 20 73 65 74 20 74 |  else. |   set t|
|000396b0| 68 65 20 76 69 73 69 62 | 6c 65 20 6f 66 20 73 70 |he visib|le of sp|
|000396c0| 72 69 74 65 20 32 30 20 | 3d 20 30 0d 20 20 65 6e |rite 20 |= 0.  en|
|000396d0| 64 20 69 66 0d 65 6e 64 | 0d 0d 2d 2d 2d 2d 2d 2d |d if.end|..------|
|000396e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000396f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00039700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00039710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00039720| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 6f 6e 20 4e 61 6d 65 |--------|.on Name|
|00039730| 54 6f 4e 75 6d 20 6e 61 | 6d 65 0d 20 20 73 65 74 |ToNum na|me.  set|
|00039740| 20 6e 75 6d 20 3d 20 62 | 73 65 61 72 63 68 28 6e | num = b|search(n|
|00039750| 61 6d 65 2c 22 4d 61 6b | 65 72 4c 69 73 74 22 29 |ame,"Mak|erList")|
|00039760| 20 20 0d 20 20 72 65 74 | 75 72 6e 20 20 76 61 6c |  .  ret|urn  val|
|00039770| 75 65 28 69 74 65 6d 20 | 32 20 6f 66 20 6c 69 6e |ue(item |2 of lin|
|00039780| 65 20 6e 75 6d 20 6f 66 | 20 66 69 65 6c 64 20 22 |e num of| field "|
|00039790| 4d 61 6b 65 72 4c 69 73 | 74 22 29 0d 65 6e 64 0d |MakerLis|t").end.|
|000397a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000397b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000397c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000397d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000397e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 6f |--------|------.o|
|000397f0| 6e 20 49 6e 69 74 44 61 | 74 61 47 6c 6f 62 61 6c |n InitDa|taGlobal|
|00039800| 73 0d 20 20 67 6c 6f 62 | 61 6c 20 67 44 65 6c 69 |s.  glob|al gDeli|
|00039810| 6d 2c 20 67 57 6f 72 6c | 64 2c 20 6d 50 61 74 68 |m, gWorl|d, mPath|
|00039820| 2c 20 67 4d 61 6b 65 72 | 4e 61 6d 65 2c 20 67 4d |, gMaker|Name, gM|
|00039830| 61 6b 65 72 4e 75 6d 2c | 20 67 53 6f 75 6e 64 50 |akerNum,| gSoundP|
|00039840| 61 74 68 2c 20 67 51 54 | 50 61 74 68 2c 20 67 44 |ath, gQT|Path, gD|
|00039850| 72 69 76 65 0d 20 20 67 | 6c 6f 62 61 6c 20 67 51 |rive.  g|lobal gQ|
|00039860| 54 62 75 74 74 6f 6e 73 | 2c 20 67 4d 61 6b 65 72 |Tbuttons|, gMaker|
|00039870| 73 50 61 74 68 2c 20 67 | 51 54 41 6e 69 6d 70 61 |sPath, g|QTAnimpa|
|00039880| 74 68 2c 20 67 43 6c 69 | 63 6b 53 6e 64 43 61 73 |th, gCli|ckSndCas|
|00039890| 74 0d 20 20 0d 20 20 2d | 2d 20 74 68 65 20 63 61 |t.  .  -|- the ca|
|000398a0| 73 74 6e 75 6d 20 6f 66 | 20 74 68 65 20 63 6c 69 |stnum of| the cli|
|000398b0| 63 6b 20 73 6f 75 6e 64 | 0d 20 20 73 65 74 20 67 |ck sound|.  set g|
|000398c0| 43 6c 69 63 6b 53 6e 64 | 43 61 73 74 20 3d 20 74 |ClickSnd|Cast = t|
|000398d0| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 73 |he numbe|r of cas|
|000398e0| 74 20 22 63 6c 69 63 6b | 22 0d 20 20 0d 20 20 70 |t "click|".  .  p|
|000398f0| 75 74 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 |ut the n|umber of|
|00039900| 20 63 61 73 74 20 22 71 | 74 70 6c 61 79 22 20 69 | cast "q|tplay" i|
|00039910| 6e 74 6f 20 69 74 65 6d | 20 31 20 6f 66 20 67 51 |nto item| 1 of gQ|
|00039920| 54 62 75 74 74 6f 6e 73 | 0d 20 20 70 75 74 20 74 |Tbuttons|.  put t|
|00039930| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 73 |he numbe|r of cas|
|00039940| 74 20 22 71 74 73 74 6f | 70 22 20 69 6e 74 6f 20 |t "qtsto|p" into |
|00039950| 69 74 65 6d 20 32 20 6f | 66 20 67 51 54 62 75 74 |item 2 o|f gQTbut|
|00039960| 74 6f 6e 73 0d 20 20 0d | 20 20 69 66 20 74 68 65 |tons.  .|  if the|
|00039970| 20 6d 61 63 68 69 6e 65 | 74 79 70 65 20 3c 3e 20 | machine|type <> |
|00039980| 32 35 36 20 74 68 65 6e | 0d 20 20 20 20 2d 2d 20 |256 then|.    -- |
|00039990| 6d 61 63 69 6e 74 6f 73 | 68 0d 20 20 20 20 0d 20 |macintos|h.    . |
|000399a0| 20 20 20 73 65 74 20 67 | 44 65 6c 69 6d 20 3d 20 |   set g|Delim = |
|000399b0| 22 3a 22 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |":".    |set the |
|000399c0| 69 74 65 6d 64 65 6c 69 | 6d 69 74 65 72 20 3d 20 |itemdeli|miter = |
|000399d0| 67 44 65 6c 69 6d 0d 20 | 20 20 20 73 65 74 20 67 |gDelim. |   set g|
|000399e0| 44 72 69 76 65 20 3d 20 | 69 74 65 6d 20 31 20 6f |Drive = |item 1 o|
|000399f0| 66 20 74 68 65 20 70 61 | 74 68 6e 61 6d 65 0d 20 |f the pa|thname. |
|00039a00| 20 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |   set t|he itemd|
|00039a10| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 2c 22 0d 20 |elimiter| = ",". |
|00039a20| 20 65 6c 73 65 0d 20 20 | 20 20 2d 2d 20 50 43 0d | else.  |  -- PC.|
|00039a30| 20 20 20 20 0d 20 20 20 | 20 73 65 74 20 67 44 65 |    .   | set gDe|
|00039a40| 6c 69 6d 20 3d 20 22 5c | 22 0d 20 20 20 20 73 65 |lim = "\|".    se|
|00039a50| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|00039a60| 74 65 72 20 3d 20 67 44 | 65 6c 69 6d 0d 20 20 20 |ter = gD|elim.   |
|00039a70| 20 73 65 74 20 67 44 72 | 69 76 65 20 3d 20 69 74 | set gDr|ive = it|
|00039a80| 65 6d 20 31 20 6f 66 20 | 74 68 65 20 70 61 74 68 |em 1 of |the path|
|00039a90| 6e 61 6d 65 0d 20 20 20 | 20 73 65 74 20 74 68 65 |name.   | set the|
|00039aa0| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|00039ab0| 20 22 2c 22 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 | ",".  e|nd if.  |
|00039ac0| 0d 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |.  set t|he itemd|
|00039ad0| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 2e 22 0d 20 |elimiter| = ".". |
|00039ae0| 20 73 65 74 20 67 57 6f | 72 6c 64 20 3d 20 69 74 | set gWo|rld = it|
|00039af0| 65 6d 20 31 20 6f 66 20 | 74 68 65 20 6d 6f 76 69 |em 1 of |the movi|
|00039b00| 65 6e 61 6d 65 0d 20 20 | 73 65 74 20 74 68 65 20 |ename.  |set the |
|00039b10| 69 74 65 6d 64 65 6c 69 | 6d 69 74 65 72 20 3d 20 |itemdeli|miter = |
|00039b20| 22 2c 22 0d 20 20 0d 20 | 20 2d 2d 20 74 68 65 20 |",".  . | -- the |
|00039b30| 70 61 74 68 6e 61 6d 65 | 20 66 6f 72 20 74 68 65 |pathname| for the|
|00039b40| 20 73 63 72 69 70 74 20 | 61 6e 64 20 74 65 78 74 | script |and text|
|00039b50| 20 66 69 6c 65 73 0d 20 | 20 73 65 74 20 6d 50 61 | files. | set mPa|
|00039b60| 74 68 20 3d 20 74 68 65 | 20 70 61 74 68 6e 61 6d |th = the| pathnam|
|00039b70| 65 20 26 20 67 57 6f 72 | 6c 64 20 26 20 67 44 65 |e & gWor|ld & gDe|
|00039b80| 6c 69 6d 0d 20 20 0d 20 | 20 2d 2d 20 74 68 65 20 |lim.  . | -- the |
|00039b90| 70 61 74 68 6e 61 6d 65 | 20 66 6f 72 20 74 68 65 |pathname| for the|
|00039ba0| 20 51 54 27 73 20 61 6e | 64 20 53 6f 75 6e 64 73 | QT's an|d Sounds|
|00039bb0| 0d 20 20 73 65 74 20 67 | 53 6f 75 6e 64 50 61 74 |.  set g|SoundPat|
|00039bc0| 68 20 3d 20 67 44 72 69 | 76 65 20 26 20 67 44 65 |h = gDri|ve & gDe|
|00039bd0| 6c 69 6d 20 26 20 22 53 | 4f 55 4e 44 44 42 22 20 |lim & "S|OUNDDB" |
|00039be0| 26 20 67 44 65 6c 69 6d | 0d 20 20 73 65 74 20 67 |& gDelim|.  set g|
|00039bf0| 51 54 70 61 74 68 20 3d | 20 67 44 72 69 76 65 20 |QTpath =| gDrive |
|00039c00| 26 20 67 44 65 6c 69 6d | 20 26 20 22 51 54 44 42 |& gDelim| & "QTDB|
|00039c10| 22 20 26 20 67 44 65 6c | 69 6d 0d 20 20 73 65 74 |" & gDel|im.  set|
|00039c20| 20 67 51 54 41 6e 69 6d | 70 61 74 68 20 3d 20 67 | gQTAnim|path = g|
|00039c30| 44 72 69 76 65 20 26 20 | 67 44 65 6c 69 6d 20 26 |Drive & |gDelim &|
|00039c40| 20 22 51 54 41 4e 49 4d | 22 20 26 20 67 44 65 6c | "QTANIM|" & gDel|
|00039c50| 69 6d 0d 20 20 73 65 74 | 20 67 4d 61 6b 65 72 73 |im.  set| gMakers|
|00039c60| 50 61 74 68 20 3d 20 67 | 44 72 69 76 65 20 26 20 |Path = g|Drive & |
|00039c70| 67 44 65 6c 69 6d 20 26 | 20 22 4d 41 4b 45 52 53 |gDelim &| "MAKERS|
|00039c80| 22 20 26 20 67 44 65 6c | 69 6d 0d 20 20 0d 20 20 |" & gDel|im.  .  |
|00039c90| 2d 2d 20 74 68 65 20 6d | 61 6b 65 72 73 20 6e 61 |-- the m|akers na|
|00039ca0| 6d 65 20 66 72 6f 6d 20 | 74 68 65 20 6c 69 73 74 |me from |the list|
|00039cb0| 0d 20 20 73 65 74 20 67 | 4d 61 6b 65 72 4e 61 6d |.  set g|MakerNam|
|00039cc0| 65 20 3d 20 77 6f 72 64 | 20 31 20 6f 66 20 6c 69 |e = word| 1 of li|
|00039cd0| 6e 65 20 76 61 6c 75 65 | 28 67 4d 61 6b 65 72 4e |ne value|(gMakerN|
|00039ce0| 75 6d 29 20 6f 66 20 66 | 69 65 6c 64 20 22 4d 61 |um) of f|ield "Ma|
|00039cf0| 6b 65 72 4e 75 6d 4c 69 | 73 74 22 0d 65 6e 64 0d |kerNumLi|st".end.|
|00039d00| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00039d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00039d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00039d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00039d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00039d50| 6f 6e 20 41 64 6a 75 73 | 74 54 65 78 74 20 74 78 |on Adjus|tText tx|
|00039d60| 74 2c 6d 61 78 6c 69 6e | 65 73 0d 20 20 2d 2d 20 |t,maxlin|es.  -- |
|00039d70| 74 68 69 73 20 61 64 6a | 75 73 74 73 20 74 68 65 |this adj|usts the|
|00039d80| 20 74 65 78 74 20 73 6f | 20 74 68 61 74 20 74 68 | text so| that th|
|00039d90| 65 72 65 20 61 72 65 20 | 6e 6f 20 62 6c 61 6e 6b |ere are |no blank|
|00039da0| 20 6c 69 6e 65 73 20 6f | 6e 20 74 68 65 20 62 65 | lines o|n the be|
|00039db0| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 0d 20 20 2d 2d |ginning |of .  --|
|00039dc0| 20 70 61 67 65 73 2c 20 | 61 6e 64 20 6e 6f 20 73 | pages, |and no s|
|00039dd0| 6f 6c 69 74 61 72 79 20 | 6c 69 6e 65 73 20 6f 6e |olitary |lines on|
|00039de0| 20 74 68 65 20 65 6e 64 | 73 20 6f 66 20 70 61 67 | the end|s of pag|
|00039df0| 65 73 0d 20 20 0d 20 20 | 73 65 74 20 6e 75 6d 6c |es.  .  |set numl|
|00039e00| 69 6e 65 73 20 3d 20 74 | 68 65 20 6e 75 6d 62 65 |ines = t|he numbe|
|00039e10| 72 20 6f 66 20 6c 69 6e | 65 73 20 6f 66 20 74 78 |r of lin|es of tx|
|00039e20| 74 0d 20 20 73 65 74 20 | 6e 75 6d 70 61 67 65 73 |t.  set |numpages|
|00039e30| 20 3d 20 6e 75 6d 6c 69 | 6e 65 73 20 2f 20 6d 61 | = numli|nes / ma|
|00039e40| 78 6c 69 6e 65 73 0d 20 | 20 69 66 20 28 6e 75 6d |xlines. | if (num|
|00039e50| 70 61 67 65 73 20 2a 20 | 6e 75 6d 6c 69 6e 65 73 |pages * |numlines|
|00039e60| 29 20 3c 20 6e 75 6d 6c | 69 6e 65 73 20 74 68 65 |) < numl|ines the|
|00039e70| 6e 20 73 65 74 20 6e 75 | 6d 70 61 67 65 73 20 3d |n set nu|mpages =|
|00039e80| 20 6e 75 6d 70 61 67 65 | 73 20 2b 20 31 0d 20 20 | numpage|s + 1.  |
|00039e90| 0d 20 20 72 65 70 65 61 | 74 20 77 69 74 68 20 69 |.  repea|t with i|
|00039ea0| 20 3d 20 31 20 74 6f 20 | 6e 75 6d 70 61 67 65 73 | = 1 to |numpages|
|00039eb0| 0d 20 20 20 20 69 66 20 | 6c 69 6e 65 20 20 28 28 |.    if |line  ((|
|00039ec0| 28 69 2d 31 29 20 2a 20 | 6d 61 78 6c 69 6e 65 73 |(i-1) * |maxlines|
|00039ed0| 29 2b 31 29 20 6f 66 20 | 74 78 74 20 3d 20 72 65 |)+1) of |txt = re|
|00039ee0| 74 75 72 6e 20 74 68 65 | 6e 20 64 65 6c 65 74 65 |turn the|n delete|
|00039ef0| 20 c2 0d 20 20 20 20 20 | 20 20 20 6c 69 6e 65 20 | ..     |   line |
|00039f00| 20 28 28 28 69 2d 31 29 | 20 2a 20 6d 61 78 6c 69 | (((i-1)| * maxli|
|00039f10| 6e 65 73 29 2b 31 29 20 | 6f 66 20 74 78 74 0d 20 |nes)+1) |of txt. |
|00039f20| 20 20 20 69 66 20 6c 69 | 6e 65 20 28 28 69 20 2a |   if li|ne ((i *|
|00039f30| 20 6d 61 78 6c 69 6e 65 | 73 29 2d 31 29 20 6f 66 | maxline|s)-1) of|
|00039f40| 20 74 78 74 20 3d 20 72 | 65 74 75 72 6e 20 74 68 | txt = r|eturn th|
|00039f50| 65 6e 20 0d 20 20 20 20 | 20 20 73 65 74 20 74 6d |en .    |  set tm|
|00039f60| 70 20 3d 20 6c 69 6e 65 | 20 28 69 20 2a 20 6d 61 |p = line| (i * ma|
|00039f70| 78 6c 69 6e 65 73 29 20 | 74 6f 20 6e 75 6d 6c 69 |xlines) |to numli|
|00039f80| 6e 65 73 20 6f 66 20 74 | 78 74 0d 20 20 20 20 20 |nes of t|xt.     |
|00039f90| 20 64 65 6c 65 74 65 20 | 6c 69 6e 65 20 28 69 20 | delete |line (i |
|00039fa0| 2a 20 6d 61 78 6c 69 6e | 65 73 29 20 74 6f 20 6e |* maxlin|es) to n|
|00039fb0| 75 6d 6c 69 6e 65 73 20 | 6f 66 20 74 78 74 0d 20 |umlines |of txt. |
|00039fc0| 20 20 20 20 20 70 75 74 | 20 72 65 74 75 72 6e 20 |     put| return |
|00039fd0| 69 6e 74 6f 20 6c 69 6e | 65 20 28 69 2a 6d 61 78 |into lin|e (i*max|
|00039fe0| 6c 69 6e 65 73 29 20 6f | 66 20 74 78 74 0d 20 20 |lines) o|f txt.  |
|00039ff0| 20 20 20 20 70 75 74 20 | 72 65 74 75 72 6e 20 26 |    put |return &|
|0003a000| 20 74 6d 70 20 61 66 74 | 65 72 20 74 78 74 0d 20 | tmp aft|er txt. |
|0003a010| 20 20 20 65 6e 64 20 69 | 66 20 20 0d 20 20 65 6e |   end i|f  .  en|
|0003a020| 64 20 72 65 70 65 61 74 | 0d 20 20 0d 20 20 72 65 |d repeat|.  .  re|
|0003a030| 74 75 72 6e 20 74 78 74 | 0d 20 20 0d 65 6e 64 0d |turn txt|.  .end.|
|0003a040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 2d |--------|------.-|
|0003a090| 2d 20 74 68 69 73 20 63 | 61 6c 6c 73 20 62 72 65 |- this c|alls bre|
|0003a0a0| 61 6b 74 65 78 74 20 6f | 6e 20 74 68 65 20 74 65 |aktext o|n the te|
|0003a0b0| 78 74 20 0d 6f 6e 20 46 | 69 6c 6c 54 65 78 74 20 |xt .on F|illText |
|0003a0c0| 74 78 74 2c 66 6e 74 2c | 73 7a 2c 77 69 64 74 68 |txt,fnt,|sz,width|
|0003a0d0| 0d 20 20 2d 2d 20 67 6c | 6f 62 61 6c 20 67 42 72 |.  -- gl|obal gBr|
|0003a0e0| 65 61 6b 4f 62 6a 0d 20 | 20 0d 20 20 2d 2d 20 66 |eakObj. | .  -- f|
|0003a0f0| 6c 64 20 3d 20 74 68 65 | 20 74 65 78 74 20 66 69 |ld = the| text fi|
|0003a100| 65 6c 64 20 74 6f 20 70 | 75 74 20 74 68 65 20 74 |eld to p|ut the t|
|0003a110| 65 78 74 20 69 6e 74 6f | 0d 20 20 2d 2d 20 74 78 |ext into|.  -- tx|
|0003a120| 74 20 3d 20 74 68 65 20 | 63 6c 65 61 6e 20 74 65 |t = the |clean te|
|0003a130| 78 74 0d 20 20 2d 2d 20 | 70 67 20 3d 20 74 68 65 |xt.  -- |pg = the|
|0003a140| 20 70 61 67 65 20 6f 66 | 20 74 65 78 74 0d 20 20 | page of| text.  |
|0003a150| 2d 2d 20 6c 69 6e 65 73 | 20 3d 20 74 68 65 20 6e |-- lines| = the n|
|0003a160| 75 6d 62 65 72 20 6f 66 | 20 6c 69 6e 65 73 20 70 |umber of| lines p|
|0003a170| 65 72 20 70 61 67 65 0d | 20 20 0d 20 20 72 65 74 |er page.|  .  ret|
|0003a180| 75 72 6e 20 74 78 74 0d | 20 20 0d 20 20 2d 2d 20 |urn txt.|  .  -- |
|0003a190| 20 69 66 20 74 68 65 20 | 6d 61 63 68 69 6e 65 74 | if the |machinet|
|0003a1a0| 79 70 65 20 3c 20 32 35 | 36 20 74 68 65 6e 20 20 |ype < 25|6 then  |
|0003a1b0| 20 2d 2d 20 6f 6e 6c 79 | 20 63 61 6c 6c 20 62 72 | -- only| call br|
|0003a1c0| 65 61 6b 74 65 78 74 20 | 6f 6e 20 74 68 65 20 4d |eaktext |on the M|
|0003a1d0| 41 43 49 4e 54 4f 53 48 | 21 0d 20 20 2d 2d 20 20 |ACINTOSH|!.  --  |
|0003a1e0| 20 20 6f 70 65 6e 78 6c | 69 62 20 22 42 72 65 61 |  openxl|ib "Brea|
|0003a1f0| 6b 74 65 78 74 22 0d 20 | 20 2d 2d 20 20 20 20 0d |ktext". | --    .|
|0003a200| 20 20 2d 2d 20 20 20 20 | 73 65 74 20 67 42 72 65 |  --    |set gBre|
|0003a210| 61 6b 4f 62 6a 20 3d 20 | 20 42 72 65 61 6b 54 65 |akObj = | BreakTe|
|0003a220| 78 74 28 6d 4e 65 77 2c | 66 6e 74 2c 73 7a 2c 77 |xt(mNew,|fnt,sz,w|
|0003a230| 69 64 74 68 29 20 20 0d | 20 20 2d 2d 20 20 20 20 |idth)  .|  --    |
|0003a240| 69 66 20 6e 6f 74 20 6f | 62 6a 65 63 74 70 28 67 |if not o|bjectp(g|
|0003a250| 42 72 65 61 6b 4f 62 6a | 29 20 74 68 65 6e 0d 20 |BreakObj|) then. |
|0003a260| 20 2d 2d 20 20 20 20 20 | 20 70 75 74 20 22 45 72 | --     | put "Er|
|0003a270| 72 6f 72 20 69 6e 69 74 | 69 61 6c 69 7a 69 6e 67 |ror init|ializing|
|0003a280| 20 42 72 65 61 6b 54 65 | 78 74 20 78 6f 62 6a 22 | BreakTe|xt xobj"|
|0003a290| 0d 20 20 2d 2d 20 20 20 | 20 65 6c 73 65 0d 20 20 |.  --   | else.  |
|0003a2a0| 2d 2d 20 20 20 20 20 20 | 73 65 74 20 74 6d 70 20 |--      |set tmp |
|0003a2b0| 3d 20 67 42 72 65 61 6b | 4f 62 6a 28 6d 42 72 65 |= gBreak|Obj(mBre|
|0003a2c0| 61 6b 2c 74 78 74 29 0d | 20 20 2d 2d 20 20 20 20 |ak,txt).|  --    |
|0003a2d0| 20 20 72 65 74 75 72 6e | 20 74 6d 70 0d 20 20 2d |  return| tmp.  -|
|0003a2e0| 2d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 2d 2d |-    end| if.  --|
|0003a2f0| 20 20 20 20 0d 20 20 2d | 2d 20 20 20 20 63 6c 6f |    .  -|-    clo|
|0003a300| 73 65 78 6c 69 62 20 22 | 42 72 65 61 6b 74 65 78 |sexlib "|Breaktex|
|0003a310| 74 22 0d 20 20 2d 2d 20 | 20 20 20 0d 20 20 2d 2d |t".  -- |   .  --|
|0003a320| 20 20 65 6c 73 65 0d 20 | 20 2d 2d 20 20 20 20 72 |  else. | --    r|
|0003a330| 65 74 75 72 6e 20 74 78 | 74 0d 20 20 2d 2d 20 20 |eturn tx|t.  --  |
|0003a340| 65 6e 64 20 69 66 0d 65 | 6e 64 0d 0d 2d 2d 2d 2d |end if.e|nd..----|
|0003a350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 2d 2d 20 67 6f |--------|--.-- go|
|0003a3a0| 20 74 6f 20 74 68 65 20 | 6e 65 78 74 20 6f 72 20 | to the |next or |
|0003a3b0| 74 68 65 20 70 72 65 76 | 69 6f 75 73 20 61 72 74 |the prev|ious art|
|0003a3c0| 69 63 6c 65 20 69 6e 20 | 74 68 65 20 63 75 72 72 |icle in |the curr|
|0003a3d0| 65 6e 74 20 63 68 61 70 | 74 65 72 0d 6f 6e 20 4d |ent chap|ter.on M|
|0003a3e0| 6f 76 65 41 72 74 69 63 | 6c 65 20 64 69 72 0d 20 |oveArtic|le dir. |
|0003a3f0| 20 67 6c 6f 62 61 6c 20 | 67 43 75 72 41 72 74 69 | global |gCurArti|
|0003a400| 63 6c 65 2c 20 67 41 72 | 74 69 63 6c 65 73 2c 20 |cle, gAr|ticles, |
|0003a410| 67 43 75 72 43 68 61 70 | 2c 20 67 4d 61 6b 65 72 |gCurChap|, gMaker|
|0003a420| 6e 75 6d 0d 20 20 0d 20 | 20 73 65 74 20 6e 75 6d |num.  . | set num|
|0003a430| 20 3d 20 63 6f 75 6e 74 | 28 67 65 74 61 74 28 67 | = count|(getat(g|
|0003a440| 41 72 74 69 63 6c 65 73 | 2c 20 67 43 75 72 43 68 |Articles|, gCurCh|
|0003a450| 61 70 29 29 0d 20 20 0d | 20 20 69 66 20 64 69 72 |ap)).  .|  if dir|
|0003a460| 20 3d 20 22 70 72 65 76 | 22 20 74 68 65 6e 20 0d | = "prev|" then .|
|0003a470| 20 20 20 20 69 66 20 67 | 43 75 72 41 72 74 69 63 |    if g|CurArtic|
|0003a480| 6c 65 20 3e 20 31 20 74 | 68 65 6e 20 0d 20 20 20 |le > 1 t|hen .   |
|0003a490| 20 20 20 73 65 74 20 67 | 43 75 72 41 72 74 69 63 |   set g|CurArtic|
|0003a4a0| 6c 65 20 3d 20 67 43 75 | 72 41 72 74 69 63 6c 65 |le = gCu|rArticle|
|0003a4b0| 20 2d 20 31 0d 20 20 20 | 20 65 6c 73 65 0d 20 20 | - 1.   | else.  |
|0003a4c0| 20 20 20 20 73 65 74 20 | 67 43 75 72 41 72 74 69 |    set |gCurArti|
|0003a4d0| 63 6c 65 20 3d 20 6e 75 | 6d 0d 20 20 20 20 65 6e |cle = nu|m.    en|
|0003a4e0| 64 20 69 66 0d 20 20 20 | 20 0d 20 20 20 20 69 66 |d if.   | .    if|
|0003a4f0| 20 67 4d 61 6b 65 72 6e | 75 6d 20 3d 20 31 30 20 | gMakern|um = 10 |
|0003a500| 61 6e 64 20 67 63 75 72 | 63 68 61 70 20 3d 20 32 |and gcur|chap = 2|
|0003a510| 20 61 6e 64 20 67 43 75 | 72 61 72 74 69 63 6c 65 | and gCu|rarticle|
|0003a520| 20 3d 20 33 20 74 68 65 | 6e 0d 20 20 20 20 20 20 | = 3 the|n.      |
|0003a530| 73 65 74 20 67 43 75 72 | 41 72 74 69 63 6c 65 20 |set gCur|Article |
|0003a540| 3d 20 32 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |= 2.    |end if. |
|0003a550| 20 20 20 69 66 20 67 4d | 61 6b 65 72 6e 75 6d 20 |   if gM|akernum |
|0003a560| 3d 20 33 39 20 61 6e 64 | 20 67 63 75 72 63 68 61 |= 39 and| gcurcha|
|0003a570| 70 20 3d 20 32 20 61 6e | 64 20 67 43 75 72 61 72 |p = 2 an|d gCurar|
|0003a580| 74 69 63 6c 65 20 3d 20 | 32 20 74 68 65 6e 0d 20 |ticle = |2 then. |
|0003a590| 20 20 20 20 20 73 65 74 | 20 67 43 75 72 41 72 74 |     set| gCurArt|
|0003a5a0| 69 63 6c 65 20 3d 20 31 | 0d 20 20 20 20 65 6e 64 |icle = 1|.    end|
|0003a5b0| 20 69 66 0d 20 20 65 6c | 73 65 0d 20 20 20 20 69 | if.  el|se.    i|
|0003a5c0| 66 20 67 43 75 72 41 72 | 74 69 63 6c 65 20 3c 20 |f gCurAr|ticle < |
|0003a5d0| 6e 75 6d 20 74 68 65 6e | 20 0d 20 20 20 20 20 20 |num then| .      |
|0003a5e0| 73 65 74 20 67 43 75 72 | 41 72 74 69 63 6c 65 20 |set gCur|Article |
|0003a5f0| 3d 20 67 43 75 72 41 72 | 74 69 63 6c 65 20 2b 20 |= gCurAr|ticle + |
|0003a600| 31 0d 20 20 20 20 65 6c | 73 65 0d 20 20 20 20 20 |1.    el|se.     |
|0003a610| 20 73 65 74 20 67 43 75 | 72 41 72 74 69 63 6c 65 | set gCu|rArticle|
|0003a620| 20 3d 20 31 0d 20 20 20 | 20 65 6e 64 20 69 66 0d | = 1.   | end if.|
|0003a630| 20 20 20 20 0d 20 20 20 | 20 69 66 20 67 4d 61 6b |    .   | if gMak|
|0003a640| 65 72 6e 75 6d 20 3d 20 | 31 30 20 61 6e 64 20 67 |ernum = |10 and g|
|0003a650| 63 75 72 63 68 61 70 20 | 3d 20 32 20 61 6e 64 20 |curchap |= 2 and |
|0003a660| 67 43 75 72 61 72 74 69 | 63 6c 65 20 3d 20 33 20 |gCurarti|cle = 3 |
|0003a670| 74 68 65 6e 0d 20 20 20 | 20 20 20 73 65 74 20 67 |then.   |   set g|
|0003a680| 43 75 72 41 72 74 69 63 | 6c 65 20 3d 20 34 0d 20 |CurArtic|le = 4. |
|0003a690| 20 20 20 65 6e 64 20 69 | 66 0d 20 20 20 20 69 66 |   end i|f.    if|
|0003a6a0| 20 67 4d 61 6b 65 72 6e | 75 6d 20 3d 20 33 39 20 | gMakern|um = 39 |
|0003a6b0| 61 6e 64 20 67 63 75 72 | 63 68 61 70 20 3d 20 32 |and gcur|chap = 2|
|0003a6c0| 20 61 6e 64 20 67 43 75 | 72 61 72 74 69 63 6c 65 | and gCu|rarticle|
|0003a6d0| 20 3d 20 32 20 74 68 65 | 6e 0d 20 20 20 20 20 20 | = 2 the|n.      |
|0003a6e0| 73 65 74 20 67 43 75 72 | 41 72 74 69 63 6c 65 20 |set gCur|Article |
|0003a6f0| 3d 20 33 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |= 3.    |end if. |
|0003a700| 20 65 6e 64 20 69 66 0d | 20 20 0d 20 20 4e 61 76 | end if.|  .  Nav|
|0003a710| 42 75 74 74 6f 6e 55 70 | 64 61 74 65 0d 20 20 47 |ButtonUp|date.  G|
|0003a720| 6f 41 72 74 69 63 6c 65 | 0d 65 6e 64 0d 2d 2d 2d |oArticle|.end.---|
|0003a730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003a770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 6f 6e 20 53 |--------|---.on S|
|0003a780| 63 72 6f 6c 6c 50 61 67 | 65 20 64 69 72 0d 20 20 |crollPag|e dir.  |
|0003a790| 67 6c 6f 62 61 6c 20 67 | 41 72 74 69 63 6c 65 50 |global g|ArticleP|
|0003a7a0| 61 67 65 2c 20 67 43 75 | 72 43 75 74 74 69 6e 67 |age, gCu|rCutting|
|0003a7b0| 2c 20 67 46 6f 72 6d 61 | 74 74 65 64 54 65 78 74 |, gForma|ttedText|
|0003a7c0| 2c 20 67 54 65 78 74 50 | 61 67 65 73 2c 20 67 4d |, gTextP|ages, gM|
|0003a7d0| 61 78 4c 69 6e 65 73 0d | 20 20 67 6c 6f 62 61 6c |axLines.|  global|
|0003a7e0| 20 67 57 6f 72 6c 64 2c | 20 67 43 75 72 43 68 61 | gWorld,| gCurCha|
|0003a7f0| 70 2c 20 67 50 69 63 4c | 6f 63 68 2c 20 67 46 6c |p, gPicL|och, gFl|
|0003a800| 79 69 6e 67 46 61 63 74 | 73 2c 20 67 4d 61 6b 65 |yingFact|s, gMake|
|0003a810| 72 4e 75 6d 0d 20 20 0d | 20 20 2d 2d 20 72 65 6d |rNum.  .|  -- rem|
|0003a820| 65 6d 62 65 72 20 77 68 | 65 72 65 20 74 68 65 20 |ember wh|ere the |
|0003a830| 70 69 63 74 20 69 73 20 | 6f 6e 20 74 68 65 20 73 |pict is |on the s|
|0003a840| 63 72 65 65 6e 0d 20 20 | 73 65 74 20 70 69 63 73 |creen.  |set pics|
|0003a850| 70 72 69 74 65 20 3d 20 | 33 20 20 2d 2d 20 74 68 |prite = |3  -- th|
|0003a860| 65 20 73 70 72 69 74 65 | 20 6f 66 20 74 68 65 20 |e sprite| of the |
|0003a870| 70 69 63 74 75 72 65 20 | 69 6e 20 74 68 65 20 70 |picture |in the p|
|0003a880| 61 72 74 77 6f 72 6b 0d | 20 20 73 65 74 20 63 75 |artwork.|  set cu|
|0003a890| 74 74 69 6e 67 73 70 72 | 69 74 65 20 3d 20 36 0d |ttingspr|ite = 6.|
|0003a8a0| 20 20 69 66 20 74 68 65 | 20 66 72 61 6d 65 6c 61 |  if the| framela|
|0003a8b0| 62 65 6c 20 63 6f 6e 74 | 61 69 6e 73 20 22 70 61 |bel cont|ains "pa|
|0003a8c0| 72 74 77 6f 72 6b 22 20 | 61 6e 64 20 67 41 72 74 |rtwork" |and gArt|
|0003a8d0| 69 63 6c 65 50 61 67 65 | 20 3d 20 31 20 74 68 65 |iclePage| = 1 the|
|0003a8e0| 6e 0d 20 20 20 20 73 65 | 74 20 67 50 69 63 4c 6f |n.    se|t gPicLo|
|0003a8f0| 63 68 20 3d 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 |ch = the| loch of|
|0003a900| 20 73 70 72 69 74 65 20 | 70 69 63 73 70 72 69 74 | sprite |picsprit|
|0003a910| 65 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 20 20 |e.  end |if.  .  |
|0003a920| 2d 2d 20 67 6f 20 74 6f | 20 74 68 65 20 6e 65 78 |-- go to| the nex|
|0003a930| 74 20 70 61 67 65 20 6f | 66 20 74 68 65 20 63 75 |t page o|f the cu|
|0003a940| 74 74 69 6e 67 73 20 74 | 65 78 74 0d 20 20 69 66 |ttings t|ext.  if|
|0003a950| 20 64 69 72 20 3d 20 22 | 62 61 63 6b 22 20 74 68 | dir = "|back" th|
|0003a960| 65 6e 0d 20 20 20 20 69 | 66 20 67 41 72 74 69 63 |en.    i|f gArtic|
|0003a970| 6c 65 50 61 67 65 20 3e | 20 31 20 74 68 65 6e 20 |lePage >| 1 then |
|0003a980| 0d 20 20 20 20 20 20 73 | 65 74 20 67 41 72 74 69 |.      s|et gArti|
|0003a990| 63 6c 65 50 61 67 65 20 | 3d 20 67 41 72 74 69 63 |clePage |= gArtic|
|0003a9a0| 6c 65 50 61 67 65 20 2d | 20 31 20 0d 20 20 20 20 |lePage -| 1 .    |
|0003a9b0| 65 6c 73 65 0d 20 20 20 | 20 20 20 73 65 74 20 67 |else.   |   set g|
|0003a9c0| 41 72 74 69 63 6c 65 50 | 61 67 65 20 3d 20 67 54 |ArticleP|age = gT|
|0003a9d0| 65 78 74 50 61 67 65 73 | 0d 20 20 20 20 65 6e 64 |extPages|.    end|
|0003a9e0| 20 69 66 0d 20 20 20 20 | 0d 20 20 65 6c 73 65 20 | if.    |.  else |
|0003a9f0| 69 66 20 64 69 72 20 3d | 20 22 6e 65 78 74 22 20 |if dir =| "next" |
|0003aa00| 74 68 65 6e 20 20 0d 20 | 20 20 20 69 66 20 67 41 |then  . |   if gA|
|0003aa10| 72 74 69 63 6c 65 50 61 | 67 65 20 3c 20 67 54 65 |rticlePa|ge < gTe|
|0003aa20| 78 74 50 61 67 65 73 20 | 74 68 65 6e 20 0d 20 20 |xtPages |then .  |
|0003aa30| 20 20 20 20 73 65 74 20 | 67 41 72 74 69 63 6c 65 |    set |gArticle|
|0003aa40| 50 61 67 65 20 3d 20 67 | 41 72 74 69 63 6c 65 50 |Page = g|ArticleP|
|0003aa50| 61 67 65 20 2b 20 31 20 | 0d 20 20 20 20 65 6c 73 |age + 1 |.    els|
|0003aa60| 65 0d 20 20 20 20 20 20 | 73 65 74 20 67 41 72 74 |e.      |set gArt|
|0003aa70| 69 63 6c 65 50 61 67 65 | 20 3d 20 31 0d 20 20 20 |iclePage| = 1.   |
|0003aa80| 20 65 6e 64 20 69 66 0d | 20 20 65 6e 64 20 69 66 | end if.|  end if|
|0003aa90| 0d 20 20 0d 20 20 0d 20 | 20 0d 20 20 69 66 20 74 |.  .  . | .  if t|
|0003aaa0| 68 65 20 66 72 61 6d 65 | 6c 61 62 65 6c 20 63 6f |he frame|label co|
|0003aab0| 6e 74 61 69 6e 73 20 22 | 63 75 74 74 69 6e 67 22 |ntains "|cutting"|
|0003aac0| 20 74 68 65 6e 0d 20 20 | 20 20 0d 20 20 20 20 73 | then.  |  .    s|
|0003aad0| 65 74 20 74 68 65 20 74 | 65 78 74 20 6f 66 20 66 |et the t|ext of f|
|0003aae0| 69 65 6c 64 20 22 63 75 | 74 74 69 6e 67 22 20 3d |ield "cu|tting" =|
|0003aaf0| 20 6c 69 6e 65 20 28 28 | 28 67 41 72 74 69 63 6c | line ((|(gArticl|
|0003ab00| 65 50 61 67 65 2d 31 29 | 2a 67 4d 61 78 4c 69 6e |ePage-1)|*gMaxLin|
|0003ab10| 65 73 29 2b 31 29 20 c2 | 0d 20 20 20 20 20 74 6f |es)+1) .|.     to|
|0003ab20| 20 28 67 41 72 74 69 63 | 6c 65 50 61 67 65 20 2a | (gArtic|lePage *|
|0003ab30| 20 67 4d 61 78 4c 69 6e | 65 73 29 20 6f 66 20 67 | gMaxLin|es) of g|
|0003ab40| 46 6f 72 6d 61 74 74 65 | 64 54 65 78 74 0d 20 20 |Formatte|dText.  |
|0003ab50| 65 6c 73 65 20 69 66 20 | 74 68 65 20 66 72 61 6d |else if |the fram|
|0003ab60| 65 6c 61 62 65 6c 20 3d | 20 22 66 61 63 74 73 22 |elabel =| "facts"|
|0003ab70| 20 74 68 65 6e 20 0d 20 | 20 20 20 0d 20 20 20 20 | then . |   .    |
|0003ab80| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|0003ab90| 66 69 65 6c 64 20 22 66 | 6c 79 69 6e 67 66 61 63 |field "f|lyingfac|
|0003aba0| 74 73 22 20 3d 20 6c 69 | 6e 65 20 28 28 28 67 41 |ts" = li|ne (((gA|
|0003abb0| 72 74 69 63 6c 65 50 61 | 67 65 2d 31 29 2a 67 4d |rticlePa|ge-1)*gM|
|0003abc0| 61 78 4c 69 6e 65 73 29 | 2b 31 29 20 c2 0d 20 20 |axLines)|+1) ..  |
|0003abd0| 20 20 20 74 6f 20 28 67 | 41 72 74 69 63 6c 65 50 |   to (g|ArticleP|
|0003abe0| 61 67 65 20 2a 20 67 4d | 61 78 4c 69 6e 65 73 29 |age * gM|axLines)|
|0003abf0| 20 6f 66 20 67 46 6c 79 | 69 6e 67 46 61 63 74 73 | of gFly|ingFacts|
|0003ac00| 0d 20 20 65 6c 73 65 20 | 69 66 20 74 68 65 20 66 |.  else |if the f|
|0003ac10| 72 61 6d 65 6c 61 62 65 | 6c 20 63 6f 6e 74 61 69 |ramelabe|l contai|
|0003ac20| 6e 73 20 22 70 61 72 74 | 77 6f 72 6b 22 20 74 68 |ns "part|work" th|
|0003ac30| 65 6e 20 0d 20 20 20 20 | 69 66 20 67 41 72 74 69 |en .    |if gArti|
|0003ac40| 63 6c 65 50 61 67 65 20 | 3d 20 31 20 61 6e 64 20 |clePage |= 1 and |
|0003ac50| 28 67 57 6f 72 6c 64 20 | 3d 20 22 50 6f 77 65 72 |(gWorld |= "Power|
|0003ac60| 22 29 20 61 6e 64 20 67 | 43 75 72 43 68 61 70 20 |") and g|CurChap |
|0003ac70| 3d 20 31 20 74 68 65 6e | 20 0d 20 20 20 20 20 20 |= 1 then| .      |
|0003ac80| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|0003ac90| 66 69 65 6c 64 20 22 70 | 61 72 74 77 6f 72 6b 22 |field "p|artwork"|
|0003aca0| 20 3d 20 22 20 22 0d 20 | 20 20 20 20 20 0d 20 20 | = " ". |     .  |
|0003acb0| 20 20 20 20 69 66 20 67 | 4d 61 6b 65 72 6e 75 6d |    if g|Makernum|
|0003acc0| 20 3d 20 31 31 39 20 74 | 68 65 6e 20 20 2d 2d 20 | = 119 t|hen  -- |
|0003acd0| 73 70 65 63 69 61 6c 20 | 63 61 73 65 20 66 6f 72 |special |case for|
|0003ace0| 20 4d 61 74 69 73 73 65 | 0d 20 20 20 20 20 20 20 | Matisse|.       |
|0003acf0| 20 67 6f 20 74 6f 20 66 | 72 61 6d 65 20 22 70 61 | go to f|rame "pa|
|0003ad00| 72 74 77 6f 72 6b 2e 4d | 41 54 22 20 2d 2d 20 6e |rtwork.M|AT" -- n|
|0003ad10| 61 72 72 6f 77 20 66 69 | 72 73 74 20 70 61 67 65 |arrow fi|rst page|
|0003ad20| 0d 20 20 20 20 20 20 65 | 6c 73 65 0d 20 20 20 20 |.      e|lse.    |
|0003ad30| 20 20 20 20 67 6f 20 74 | 6f 20 66 72 61 6d 65 20 |    go t|o frame |
|0003ad40| 22 70 61 72 74 77 6f 72 | 6b 22 20 2d 2d 20 6e 61 |"partwor|k" -- na|
|0003ad50| 72 72 6f 77 20 66 69 72 | 73 74 20 70 61 67 65 0d |rrow fir|st page.|
|0003ad60| 20 20 20 20 20 20 65 6e | 64 20 69 66 0d 20 20 20 |      en|d if.   |
|0003ad70| 20 20 20 0d 20 20 20 20 | 20 20 2d 2d 20 6d 6f 76 |   .    |  -- mov|
|0003ad80| 65 20 74 68 65 20 74 65 | 78 74 20 6f 66 66 73 63 |e the te|xt offsc|
|0003ad90| 72 65 65 6e 2c 20 73 6f | 20 77 65 20 63 61 6e 20 |reen, so| we can |
|0003ada0| 75 70 64 61 74 65 20 69 | 74 0d 20 20 20 20 20 20 |update i|t.      |
|0003adb0| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 63 75 74 |puppetsp|rite cut|
|0003adc0| 74 69 6e 67 73 70 72 69 | 74 65 2c 31 0d 20 20 20 |tingspri|te,1.   |
|0003add0| 20 20 20 73 65 74 20 63 | 75 74 74 69 6e 67 6c 6f |   set c|uttinglo|
|0003ade0| 63 68 20 3d 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 |ch = the| loch of|
|0003adf0| 20 73 70 72 69 74 65 20 | 63 75 74 74 69 6e 67 73 | sprite |cuttings|
|0003ae00| 70 72 69 74 65 0d 20 20 | 20 20 20 20 73 65 74 20 |prite.  |    set |
|0003ae10| 74 68 65 20 6c 6f 63 68 | 20 6f 66 20 73 70 72 69 |the loch| of spri|
|0003ae20| 74 65 20 63 75 74 74 69 | 6e 67 73 70 72 69 74 65 |te cutti|ngsprite|
|0003ae30| 20 3d 20 31 30 30 30 0d | 20 20 20 20 20 20 75 70 | = 1000.|      up|
|0003ae40| 64 61 74 65 73 74 61 67 | 65 0d 20 20 20 20 20 20 |datestag|e.      |
|0003ae50| 0d 20 20 20 20 20 20 2d | 2d 20 6d 6f 76 65 20 74 |.      -|- move t|
|0003ae60| 68 65 20 74 65 78 74 20 | 62 61 63 6b 20 6f 6e 73 |he text |back ons|
|0003ae70| 63 72 65 65 6e 20 61 74 | 20 74 68 65 20 73 61 6d |creen at| the sam|
|0003ae80| 65 20 74 69 6d 65 20 61 | 73 20 74 68 65 20 70 69 |e time a|s the pi|
|0003ae90| 63 74 0d 20 20 20 20 20 | 20 73 65 74 20 74 68 65 |ct.     | set the|
|0003aea0| 20 6c 6f 63 68 20 6f 66 | 20 73 70 72 69 74 65 20 | loch of| sprite |
|0003aeb0| 70 69 63 73 70 72 69 74 | 65 20 3d 20 67 50 69 63 |picsprit|e = gPic|
|0003aec0| 4c 6f 63 48 0d 20 20 20 | 20 20 20 73 65 74 20 74 |LocH.   |   set t|
|0003aed0| 68 65 20 74 65 78 74 20 | 6f 66 20 66 69 65 6c 64 |he text |of field|
|0003aee0| 20 22 70 61 72 74 77 6f | 72 6b 22 20 3d 20 6c 69 | "partwo|rk" = li|
|0003aef0| 6e 65 20 28 28 28 67 41 | 72 74 69 63 6c 65 50 61 |ne (((gA|rticlePa|
|0003af00| 67 65 2d 31 29 2a 67 4d | 61 78 4c 69 6e 65 73 29 |ge-1)*gM|axLines)|
|0003af10| 2b 31 29 20 c2 0d 20 20 | 20 20 20 74 6f 20 28 67 |+1) ..  |   to (g|
|0003af20| 41 72 74 69 63 6c 65 50 | 61 67 65 20 2a 20 67 4d |ArticleP|age * gM|
|0003af30| 61 78 4c 69 6e 65 73 29 | 20 6f 66 20 67 46 6f 72 |axLines)| of gFor|
|0003af40| 6d 61 74 74 65 64 54 65 | 78 74 0d 20 20 20 20 20 |mattedTe|xt.     |
|0003af50| 20 73 65 74 20 74 68 65 | 20 6c 6f 63 68 20 6f 66 | set the| loch of|
|0003af60| 20 73 70 72 69 74 65 20 | 63 75 74 74 69 6e 67 73 | sprite |cuttings|
|0003af70| 70 72 69 74 65 20 3d 20 | 63 75 74 74 69 6e 67 6c |prite = |cuttingl|
|0003af80| 6f 63 68 0d 20 20 20 20 | 20 20 70 75 70 70 65 74 |och.    |  puppet|
|0003af90| 73 70 72 69 74 65 20 63 | 75 74 74 69 6e 67 73 70 |sprite c|uttingsp|
|0003afa0| 72 69 74 65 2c 30 0d 20 | 20 20 20 20 20 75 70 64 |rite,0. |     upd|
|0003afb0| 61 74 65 73 74 61 67 65 | 0d 20 20 20 20 65 6c 73 |atestage|.    els|
|0003afc0| 65 20 69 66 20 67 43 75 | 72 43 68 61 70 20 3e 20 |e if gCu|rChap > |
|0003afd0| 31 20 74 68 65 6e 20 20 | 0d 20 20 20 20 20 20 2d |1 then  |.      -|
|0003afe0| 2d 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |- set th|e loch o|
|0003aff0| 66 20 73 70 72 69 74 65 | 20 70 69 63 73 70 72 69 |f sprite| picspri|
|0003b000| 74 65 20 3d 20 31 30 30 | 30 0d 20 20 20 20 20 20 |te = 100|0.      |
|0003b010| 69 66 20 67 4d 61 6b 65 | 72 6e 75 6d 20 3d 20 31 |if gMake|rnum = 1|
|0003b020| 31 39 20 74 68 65 6e 20 | 20 2d 2d 20 73 70 65 63 |19 then | -- spec|
|0003b030| 69 61 6c 20 63 61 73 65 | 20 66 6f 72 20 4d 61 74 |ial case| for Mat|
|0003b040| 69 73 73 65 0d 20 20 20 | 20 20 20 20 20 67 6f 20 |isse.   |     go |
|0003b050| 74 6f 20 66 72 61 6d 65 | 20 22 69 6e 6e 65 72 70 |to frame| "innerp|
|0003b060| 61 72 74 77 6f 72 6b 2e | 4d 41 54 22 20 20 2d 2d |artwork.|MAT"  --|
|0003b070| 20 77 69 64 65 20 70 61 | 67 65 0d 20 20 20 20 20 | wide pa|ge.     |
|0003b080| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 20 20 67 6f | else.  |      go|
|0003b090| 20 74 6f 20 66 72 61 6d | 65 20 22 69 6e 6e 65 72 | to fram|e "inner|
|0003b0a0| 70 61 72 74 77 6f 72 6b | 22 20 20 2d 2d 20 77 69 |partwork|"  -- wi|
|0003b0b0| 64 65 20 70 61 67 65 0d | 20 20 20 20 20 20 65 6e |de page.|      en|
|0003b0c0| 64 20 69 66 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |d if.   |   .    |
|0003b0d0| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f |  set th|e text o|
|0003b0e0| 66 20 66 69 65 6c 64 20 | 22 70 61 72 74 77 6f 72 |f field |"partwor|
|0003b0f0| 6b 32 22 20 3d 20 6c 69 | 6e 65 20 28 28 28 67 41 |k2" = li|ne (((gA|
|0003b100| 72 74 69 63 6c 65 50 61 | 67 65 2d 31 29 2a 67 4d |rticlePa|ge-1)*gM|
|0003b110| 61 78 4c 69 6e 65 73 29 | 2b 31 29 20 c2 0d 20 20 |axLines)|+1) ..  |
|0003b120| 20 20 20 74 6f 20 28 67 | 41 72 74 69 63 6c 65 50 |   to (g|ArticleP|
|0003b130| 61 67 65 20 2a 20 67 4d | 61 78 4c 69 6e 65 73 29 |age * gM|axLines)|
|0003b140| 20 6f 66 20 67 46 6f 72 | 6d 61 74 74 65 64 54 65 | of gFor|mattedTe|
|0003b150| 78 74 0d 20 20 20 20 65 | 6c 73 65 20 0d 20 20 20 |xt.    e|lse .   |
|0003b160| 20 20 20 73 65 74 20 74 | 68 65 20 6c 6f 63 68 20 |   set t|he loch |
|0003b170| 6f 66 20 73 70 72 69 74 | 65 20 70 69 63 73 70 72 |of sprit|e picspr|
|0003b180| 69 74 65 20 3d 20 31 30 | 30 30 0d 20 20 20 20 20 |ite = 10|00.     |
|0003b190| 20 0d 20 20 20 20 20 20 | 69 66 20 67 4d 61 6b 65 | .      |if gMake|
|0003b1a0| 72 6e 75 6d 20 3d 20 31 | 31 39 20 74 68 65 6e 20 |rnum = 1|19 then |
|0003b1b0| 20 2d 2d 20 73 70 65 63 | 69 61 6c 20 63 61 73 65 | -- spec|ial case|
|0003b1c0| 20 66 6f 72 20 4d 61 74 | 69 73 73 65 0d 20 20 20 | for Mat|isse.   |
|0003b1d0| 20 20 20 20 20 67 6f 20 | 74 6f 20 66 72 61 6d 65 |     go |to frame|
|0003b1e0| 20 22 70 61 72 74 77 6f | 72 6b 32 2e 4d 41 54 22 | "partwo|rk2.MAT"|
|0003b1f0| 20 20 2d 2d 20 77 69 64 | 65 20 70 61 67 65 0d 20 |  -- wid|e page. |
|0003b200| 20 20 20 20 20 65 6c 73 | 65 0d 20 20 20 20 20 20 |     els|e.      |
|0003b210| 20 20 67 6f 20 74 6f 20 | 66 72 61 6d 65 20 22 70 |  go to |frame "p|
|0003b220| 61 72 74 77 6f 72 6b 32 | 22 20 20 2d 2d 20 77 69 |artwork2|"  -- wi|
|0003b230| 64 65 20 70 61 67 65 0d | 20 20 20 20 20 20 65 6e |de page.|      en|
|0003b240| 64 20 69 66 0d 20 20 20 | 20 20 20 0d 20 20 20 20 |d if.   |   .    |
|0003b250| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f |  set th|e text o|
|0003b260| 66 20 66 69 65 6c 64 20 | 22 70 61 72 74 77 6f 72 |f field |"partwor|
|0003b270| 6b 32 22 20 3d 20 6c 69 | 6e 65 20 28 28 28 67 41 |k2" = li|ne (((gA|
|0003b280| 72 74 69 63 6c 65 50 61 | 67 65 2d 31 29 2a 67 4d |rticlePa|ge-1)*gM|
|0003b290| 61 78 4c 69 6e 65 73 29 | 2b 31 29 20 c2 0d 20 20 |axLines)|+1) ..  |
|0003b2a0| 20 20 20 74 6f 20 28 67 | 41 72 74 69 63 6c 65 50 |   to (g|ArticleP|
|0003b2b0| 61 67 65 20 2a 20 67 4d | 61 78 4c 69 6e 65 73 29 |age * gM|axLines)|
|0003b2c0| 20 6f 66 20 67 46 6f 72 | 6d 61 74 74 65 64 54 65 | of gFor|mattedTe|
|0003b2d0| 78 74 0d 20 20 20 20 65 | 6e 64 20 69 66 20 20 20 |xt.    e|nd if   |
|0003b2e0| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 0d 20 20 73 |.  end i|f.  .  s|
|0003b2f0| 65 74 20 66 6f 72 77 61 | 72 64 62 75 74 74 6f 6e |et forwa|rdbutton|
|0003b300| 20 3d 20 32 30 0d 20 20 | 73 65 74 20 62 61 63 6b | = 20.  |set back|
|0003b310| 62 75 74 74 6f 6e 20 3d | 20 31 39 0d 20 20 0d 20 |button =| 19.  . |
|0003b320| 20 2d 2d 20 64 65 61 6c | 20 77 69 74 68 20 74 68 | -- deal| with th|
|0003b330| 65 20 66 6f 72 77 61 72 | 64 20 61 6e 64 20 62 61 |e forwar|d and ba|
|0003b340| 63 6b 77 61 72 64 20 62 | 75 74 74 6f 6e 73 0d 20 |ckward b|uttons. |
|0003b350| 20 69 66 20 67 41 72 74 | 69 63 6c 65 50 61 67 65 | if gArt|iclePage|
|0003b360| 20 3e 20 31 20 74 68 65 | 6e 20 0d 20 20 20 20 73 | > 1 the|n .    s|
|0003b370| 65 74 20 74 68 65 20 76 | 69 73 69 62 69 6c 69 74 |et the v|isibilit|
|0003b380| 79 20 6f 66 20 73 70 72 | 69 74 65 20 62 61 63 6b |y of spr|ite back|
|0003b390| 62 75 74 74 6f 6e 20 3d | 20 31 0d 20 20 20 20 2d |button =| 1.    -|
|0003b3a0| 2d 20 70 75 70 70 65 74 | 73 70 72 69 74 65 20 62 |- puppet|sprite b|
|0003b3b0| 61 63 6b 62 75 74 74 6f | 6e 2c 30 0d 20 20 65 6c |ackbutto|n,0.  el|
|0003b3c0| 73 65 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 76 |se.    s|et the v|
|0003b3d0| 69 73 69 62 69 6c 69 74 | 79 20 6f 66 20 73 70 72 |isibilit|y of spr|
|0003b3e0| 69 74 65 20 62 61 63 6b | 62 75 74 74 6f 6e 20 3d |ite back|button =|
|0003b3f0| 20 30 0d 20 20 20 20 2d | 2d 20 70 75 70 70 65 74 | 0.    -|- puppet|
|0003b400| 73 70 72 69 74 65 20 62 | 61 63 6b 62 75 74 74 6f |sprite b|ackbutto|
|0003b410| 6e 2c 31 0d 20 20 20 20 | 2d 2d 20 73 65 74 20 74 |n,1.    |-- set t|
|0003b420| 68 65 20 6c 6f 63 68 20 | 6f 66 20 73 70 72 69 74 |he loch |of sprit|
|0003b430| 65 20 62 61 63 6b 62 75 | 74 74 6f 6e 20 3d 20 31 |e backbu|tton = 1|
|0003b440| 30 30 30 0d 20 20 65 6e | 64 20 69 66 0d 20 20 69 |000.  en|d if.  i|
|0003b450| 66 20 67 41 72 74 69 63 | 6c 65 50 61 67 65 20 3d |f gArtic|lePage =|
|0003b460| 20 67 54 65 78 74 50 61 | 67 65 73 20 74 68 65 6e | gTextPa|ges then|
|0003b470| 20 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 76 69 | .    se|t the vi|
|0003b480| 73 69 62 69 6c 69 74 79 | 20 6f 66 20 73 70 72 69 |sibility| of spri|
|0003b490| 74 65 20 66 6f 72 77 61 | 72 64 62 75 74 74 6f 6e |te forwa|rdbutton|
|0003b4a0| 20 3d 20 30 0d 20 20 20 | 20 2d 2d 20 70 75 70 70 | = 0.   | -- pupp|
|0003b4b0| 65 74 73 70 72 69 74 65 | 20 66 6f 72 77 61 72 64 |etsprite| forward|
|0003b4c0| 62 75 74 74 6f 6e 2c 31 | 0d 20 20 20 20 2d 2d 20 |button,1|.    -- |
|0003b4d0| 73 65 74 20 74 68 65 20 | 6c 6f 63 68 20 6f 66 20 |set the |loch of |
|0003b4e0| 73 70 72 69 74 65 20 66 | 6f 72 77 61 72 64 62 75 |sprite f|orwardbu|
|0003b4f0| 74 74 6f 6e 20 3d 20 31 | 30 30 30 0d 20 20 65 6c |tton = 1|000.  el|
|0003b500| 73 65 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 76 |se.    s|et the v|
|0003b510| 69 73 69 62 69 6c 69 74 | 79 20 6f 66 20 73 70 72 |isibilit|y of spr|
|0003b520| 69 74 65 20 66 6f 72 77 | 61 72 64 62 75 74 74 6f |ite forw|ardbutto|
|0003b530| 6e 20 3d 20 31 0d 20 20 | 20 20 2d 2d 20 70 75 70 |n = 1.  |  -- pup|
|0003b540| 70 65 74 73 70 72 69 74 | 65 20 66 6f 72 77 61 72 |petsprit|e forwar|
|0003b550| 64 62 75 74 74 6f 6e 2c | 30 0d 20 20 65 6e 64 20 |dbutton,|0.  end |
|0003b560| 69 66 0d 20 20 0d 20 20 | 45 6e 64 54 72 61 70 4d |if.  .  |EndTrapM|
|0003b570| 6f 75 73 65 0d 65 6e 64 | 0d 0d 2d 2d 2d 2d 2d 2d |ouse.end|..------|
|0003b580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003b590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003b5a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003b5b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003b5c0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 6f 6e 20 53 65 74 56 |--------|.on SetV|
|0003b5d0| 6f 6c 75 6d 65 0d 20 20 | 67 6c 6f 62 61 6c 20 67 |olume.  |global g|
|0003b5e0| 57 6f 72 6c 64 0d 20 20 | 0d 20 20 73 65 74 20 76 |World.  |.  set v|
|0003b5f0| 6f 6c 73 70 72 69 74 65 | 20 3d 20 33 37 0d 20 20 |olsprite| = 37.  |
|0003b600| 0d 20 20 73 65 74 20 6c | 65 76 65 6c 20 3d 20 74 |.  set l|evel = t|
|0003b610| 68 65 20 73 6f 75 6e 64 | 6c 65 76 65 6c 0d 20 20 |he sound|level.  |
|0003b620| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 76 6f 6c |puppetsp|rite vol|
|0003b630| 73 70 72 69 74 65 2c 31 | 0d 20 20 0d 20 20 69 66 |sprite,1|.  .  if|
|0003b640| 20 74 68 65 20 66 72 61 | 6d 65 6c 61 62 65 6c 20 | the fra|melabel |
|0003b650| 3d 20 22 71 74 22 20 74 | 68 65 6e 0d 20 20 20 20 |= "qt" t|hen.    |
|0003b660| 73 65 74 20 74 68 65 20 | 63 61 73 74 6e 75 6d 20 |set the |castnum |
|0003b670| 6f 66 20 73 70 72 69 74 | 65 20 76 6f 6c 73 70 72 |of sprit|e volspr|
|0003b680| 69 74 65 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 |ite = th|e number|
|0003b690| 20 6f 66 20 63 61 73 74 | 20 28 22 76 6f 6c 22 20 | of cast| ("vol" |
|0003b6a0| 26 20 6c 65 76 65 6c 29 | 0d 20 20 65 6e 64 20 69 |& level)|.  end i|
|0003b6b0| 66 0d 65 6e 64 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |f.end.--|--------|
|0003b6c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003b6d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003b6e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003b6f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003b700| 2d 2d 2d 2d 0d 2d 2d 20 | 64 72 61 67 20 74 68 65 |----.-- |drag the|
|0003b710| 20 76 6f 6c 75 6d 65 20 | 73 6c 69 64 65 72 0d 0d | volume |slider..|
|0003b720| 6f 6e 20 56 6f 6c 75 6d | 65 44 72 61 67 20 64 69 |on Volum|eDrag di|
|0003b730| 72 0d 20 20 67 6c 6f 62 | 61 6c 20 67 57 6f 72 6c |r.  glob|al gWorl|
|0003b740| 64 0d 20 20 0d 20 20 73 | 65 74 20 6d 65 20 3d 20 |d.  .  s|et me = |
|0003b750| 74 68 65 20 63 6c 69 63 | 6b 6f 6e 0d 20 20 69 66 |the clic|kon.  if|
|0003b760| 20 6e 6f 74 20 74 68 65 | 20 70 75 70 70 65 74 20 | not the| puppet |
|0003b770| 6f 66 20 73 70 72 69 74 | 65 20 6d 65 20 74 68 65 |of sprit|e me the|
|0003b780| 6e 20 70 75 70 70 65 74 | 73 70 72 69 74 65 20 6d |n puppet|sprite m|
|0003b790| 65 2c 31 0d 20 20 0d 20 | 20 73 65 74 20 6f 6c 64 |e,1.  . | set old|
|0003b7a0| 6c 65 76 65 6c 20 3d 20 | 74 68 65 20 73 6f 75 6e |level = |the soun|
|0003b7b0| 64 6c 65 76 65 6c 0d 20 | 20 0d 20 20 69 66 20 74 |dlevel. | .  if t|
|0003b7c0| 68 65 20 70 61 72 61 6d | 63 6f 75 6e 74 20 3d 20 |he param|count = |
|0003b7d0| 30 20 74 68 65 6e 0d 20 | 20 20 20 0d 20 20 20 20 |0 then. |   .    |
|0003b7e0| 69 66 20 67 57 6f 72 6c | 64 20 3d 20 22 6d 69 6e |if gWorl|d = "min|
|0003b7f0| 64 22 20 74 68 65 6e 0d | 20 20 20 20 20 20 73 65 |d" then.|      se|
|0003b800| 74 20 62 6f 74 74 6f 6d | 20 3d 20 20 33 35 20 20 |t bottom| =  35  |
|0003b810| 20 20 2d 2d 20 6c 65 76 | 65 6c 20 31 0d 20 20 20 |  -- lev|el 1.   |
|0003b820| 20 65 6c 73 65 0d 20 20 | 20 20 20 20 73 65 74 20 | else.  |    set |
|0003b830| 62 6f 74 74 6f 6d 20 3d | 20 20 32 35 20 20 20 20 |bottom =|  25    |
|0003b840| 2d 2d 20 6c 65 76 65 6c | 20 31 0d 20 20 20 20 65 |-- level| 1.    e|
|0003b850| 6e 64 20 69 66 20 0d 20 | 20 20 20 0d 20 20 20 20 |nd if . |   .    |
|0003b860| 73 65 74 20 69 6e 63 20 | 3d 20 28 28 74 68 65 20 |set inc |= ((the |
|0003b870| 68 65 69 67 68 74 20 6f | 66 20 73 70 72 69 74 65 |height o|f sprite|
|0003b880| 20 6d 65 29 20 2d 20 62 | 6f 74 74 6f 6d 29 2f 37 | me) - b|ottom)/7|
|0003b890| 20 2d 2d 20 70 69 78 65 | 6c 73 20 70 65 72 20 6c | -- pixe|ls per l|
|0003b8a0| 65 76 65 6c 0d 20 20 20 | 20 0d 20 20 20 20 72 65 |evel.   | .    re|
|0003b8b0| 70 65 61 74 20 77 68 69 | 6c 65 20 74 68 65 20 6d |peat whi|le the m|
|0003b8c0| 6f 75 73 65 64 6f 77 6e | 0d 20 20 20 20 20 20 73 |ousedown|.      s|
|0003b8d0| 65 74 20 6d 76 20 3d 20 | 74 68 65 20 6d 6f 75 73 |et mv = |the mous|
|0003b8e0| 65 76 0d 20 20 20 20 20 | 20 73 65 74 20 76 20 3d |ev.     | set v =|
|0003b8f0| 20 6d 76 20 2d 20 28 74 | 68 65 20 74 6f 70 20 6f | mv - (t|he top o|
|0003b900| 66 20 73 70 72 69 74 65 | 20 6d 65 29 20 20 20 0d |f sprite| me)   .|
|0003b910| 20 20 20 20 20 20 73 65 | 74 20 6c 65 76 65 6c 20 |      se|t level |
|0003b920| 3d 20 38 2d 28 76 2f 69 | 6e 63 29 0d 20 20 20 20 |= 8-(v/i|nc).    |
|0003b930| 20 20 69 66 20 6c 65 76 | 65 6c 20 3e 20 37 20 74 |  if lev|el > 7 t|
|0003b940| 68 65 6e 20 73 65 74 20 | 6c 65 76 65 6c 20 3d 20 |hen set |level = |
|0003b950| 37 0d 20 20 20 20 20 20 | 65 6c 73 65 20 69 66 20 |7.      |else if |
|0003b960| 6c 65 76 65 6c 20 3c 20 | 30 20 74 68 65 6e 20 73 |level < |0 then s|
|0003b970| 65 74 20 6c 65 76 65 6c | 20 3d 20 30 0d 20 20 20 |et level| = 0.   |
|0003b980| 20 20 20 69 66 20 6f 6c | 64 6c 65 76 65 6c 20 3c |   if ol|dlevel <|
|0003b990| 3e 20 6c 65 76 65 6c 20 | 74 68 65 6e 0d 20 20 20 |> level |then.   |
|0003b9a0| 20 20 20 20 20 73 65 74 | 20 74 68 65 20 73 6f 75 |     set| the sou|
|0003b9b0| 6e 64 6c 65 76 65 6c 20 | 3d 20 6c 65 76 65 6c 0d |ndlevel |= level.|
|0003b9c0| 20 20 20 20 20 20 20 20 | 2d 2d 20 20 70 75 70 70 |        |--  pupp|
|0003b9d0| 65 74 73 6f 75 6e 64 20 | 22 64 6f 6f 70 22 0d 20 |etsound |"doop". |
|0003b9e0| 20 20 20 20 20 20 20 73 | 65 74 20 6f 6c 64 6c 65 |       s|et oldle|
|0003b9f0| 76 65 6c 20 3d 20 6c 65 | 76 65 6c 0d 20 20 20 20 |vel = le|vel.    |
|0003ba00| 20 20 65 6e 64 20 69 66 | 0d 20 20 20 20 20 20 75 |  end if|.      u|
|0003ba10| 70 64 61 74 65 73 74 61 | 67 65 0d 20 20 20 20 20 |pdatesta|ge.     |
|0003ba20| 20 69 66 20 67 57 6f 72 | 6c 64 20 3d 20 22 62 6f | if gWor|ld = "bo|
|0003ba30| 64 79 22 20 61 6e 64 20 | 74 68 65 20 66 72 61 6d |dy" and |the fram|
|0003ba40| 65 6c 61 62 65 6c 20 3d | 20 22 63 75 74 74 69 6e |elabel =| "cuttin|
|0003ba50| 67 22 20 74 68 65 6e 0d | 20 20 20 20 20 20 20 20 |g" then.|        |
|0003ba60| 73 65 74 20 74 68 65 20 | 63 61 73 74 6e 75 6d 20 |set the |castnum |
|0003ba70| 6f 66 20 73 70 72 69 74 | 65 20 6d 65 20 3d 20 74 |of sprit|e me = t|
|0003ba80| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 73 |he numbe|r of cas|
|0003ba90| 74 20 28 22 76 6f 6c 62 | 22 20 26 20 6c 65 76 65 |t ("volb|" & leve|
|0003baa0| 6c 29 0d 20 20 20 20 20 | 20 65 6c 73 65 0d 20 20 |l).     | else.  |
|0003bab0| 20 20 20 20 20 20 73 65 | 74 20 74 68 65 20 63 61 |      se|t the ca|
|0003bac0| 73 74 6e 75 6d 20 6f 66 | 20 73 70 72 69 74 65 20 |stnum of| sprite |
|0003bad0| 6d 65 20 3d 20 74 68 65 | 20 6e 75 6d 62 65 72 20 |me = the| number |
|0003bae0| 6f 66 20 63 61 73 74 20 | 28 22 76 6f 6c 22 20 26 |of cast |("vol" &|
|0003baf0| 20 6c 65 76 65 6c 29 0d | 20 20 20 20 20 20 65 6e | level).|      en|
|0003bb00| 64 20 69 66 0d 20 20 20 | 20 65 6e 64 20 72 65 70 |d if.   | end rep|
|0003bb10| 65 61 74 0d 20 20 20 20 | 0d 20 20 65 6c 73 65 20 |eat.    |.  else |
|0003bb20| 69 66 20 64 69 72 20 3d | 20 22 68 6f 72 69 7a 6f |if dir =| "horizo|
|0003bb30| 6e 74 61 6c 22 20 74 68 | 65 6e 0d 20 20 20 20 0d |ntal" th|en.    .|
|0003bb40| 20 20 20 20 73 65 74 20 | 62 6f 74 74 6f 6d 20 3d |    set |bottom =|
|0003bb50| 20 32 35 20 2d 2d 20 6c | 65 76 65 6c 20 31 0d 20 | 25 -- l|evel 1. |
|0003bb60| 20 20 20 0d 20 20 20 20 | 73 65 74 20 69 6e 63 20 |   .    |set inc |
|0003bb70| 3d 20 28 28 74 68 65 20 | 77 69 64 74 68 20 6f 66 |= ((the |width of|
|0003bb80| 20 73 70 72 69 74 65 20 | 6d 65 29 20 2d 20 62 6f | sprite |me) - bo|
|0003bb90| 74 74 6f 6d 29 2f 37 20 | 2d 2d 20 70 69 78 65 6c |ttom)/7 |-- pixel|
|0003bba0| 73 20 70 65 72 20 6c 65 | 76 65 6c 0d 20 20 20 20 |s per le|vel.    |
|0003bbb0| 0d 20 20 20 20 72 65 70 | 65 61 74 20 77 68 69 6c |.    rep|eat whil|
|0003bbc0| 65 20 74 68 65 20 6d 6f | 75 73 65 64 6f 77 6e 0d |e the mo|usedown.|
|0003bbd0| 20 20 20 20 20 20 73 65 | 74 20 6d 68 20 3d 20 74 |      se|t mh = t|
|0003bbe0| 68 65 20 6d 6f 75 73 65 | 68 0d 20 20 20 20 20 20 |he mouse|h.      |
|0003bbf0| 73 65 74 20 68 20 3d 20 | 28 74 68 65 20 72 69 67 |set h = |(the rig|
|0003bc00| 68 74 20 6f 66 20 73 70 | 72 69 74 65 20 6d 65 29 |ht of sp|rite me)|
|0003bc10| 20 2d 20 6d 68 0d 20 20 | 20 20 20 20 73 65 74 20 | - mh.  |    set |
|0003bc20| 6c 65 76 65 6c 20 3d 20 | 38 2d 28 68 2f 69 6e 63 |level = |8-(h/inc|
|0003bc30| 29 0d 20 20 20 20 20 20 | 69 66 20 6c 65 76 65 6c |).      |if level|
|0003bc40| 20 3e 20 37 20 74 68 65 | 6e 20 73 65 74 20 6c 65 | > 7 the|n set le|
|0003bc50| 76 65 6c 20 3d 20 37 0d | 20 20 20 20 20 20 65 6c |vel = 7.|      el|
|0003bc60| 73 65 20 69 66 20 6c 65 | 76 65 6c 20 3c 20 30 20 |se if le|vel < 0 |
|0003bc70| 74 68 65 6e 20 73 65 74 | 20 6c 65 76 65 6c 20 3d |then set| level =|
|0003bc80| 20 30 0d 20 20 20 20 20 | 20 69 66 20 6f 6c 64 6c | 0.     | if oldl|
|0003bc90| 65 76 65 6c 20 3c 3e 20 | 6c 65 76 65 6c 20 74 68 |evel <> |level th|
|0003bca0| 65 6e 0d 20 20 20 20 20 | 20 20 20 73 65 74 20 74 |en.     |   set t|
|0003bcb0| 68 65 20 73 6f 75 6e 64 | 6c 65 76 65 6c 20 3d 20 |he sound|level = |
|0003bcc0| 6c 65 76 65 6c 0d 20 20 | 20 20 20 20 20 20 2d 2d |level.  |      --|
|0003bcd0| 20 20 70 75 70 70 65 74 | 73 6f 75 6e 64 20 22 64 |  puppet|sound "d|
|0003bce0| 6f 6f 70 22 0d 20 20 20 | 20 20 20 20 20 73 65 74 |oop".   |     set|
|0003bcf0| 20 6f 6c 64 6c 65 76 65 | 6c 20 3d 20 6c 65 76 65 | oldleve|l = leve|
|0003bd00| 6c 0d 20 20 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |l.      |end if. |
|0003bd10| 20 20 20 20 20 75 70 64 | 61 74 65 73 74 61 67 65 |     upd|atestage|
|0003bd20| 0d 20 20 20 20 20 20 69 | 66 20 67 57 6f 72 6c 64 |.      i|f gWorld|
|0003bd30| 20 3d 20 22 62 6f 64 79 | 22 20 74 68 65 6e 0d 20 | = "body|" then. |
|0003bd40| 20 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 63 |       s|et the c|
|0003bd50| 61 73 74 6e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astnum o|f sprite|
|0003bd60| 20 6d 65 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 | me = th|e number|
|0003bd70| 20 6f 66 20 63 61 73 74 | 20 28 22 76 6f 6c 62 22 | of cast| ("volb"|
|0003bd80| 20 26 20 6c 65 76 65 6c | 29 0d 20 20 20 20 20 20 | & level|).      |
|0003bd90| 65 6c 73 65 0d 20 20 20 | 20 20 20 20 20 73 65 74 |else.   |     set|
|0003bda0| 20 74 68 65 20 63 61 73 | 74 6e 75 6d 20 6f 66 20 | the cas|tnum of |
|0003bdb0| 73 70 72 69 74 65 20 6d | 65 20 3d 20 74 68 65 20 |sprite m|e = the |
|0003bdc0| 6e 75 6d 62 65 72 20 6f | 66 20 63 61 73 74 20 28 |number o|f cast (|
|0003bdd0| 22 76 6f 6c 22 20 26 20 | 6c 65 76 65 6c 29 0d 20 |"vol" & |level). |
|0003bde0| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|0003bdf0| 65 6e 64 20 72 65 70 65 | 61 74 0d 20 20 20 20 0d |end repe|at.    .|
|0003be00| 20 20 65 6e 64 20 69 66 | 0d 65 6e 64 0d 00 01 1f |  end if|.end....|
|0003be10| 00 0b 01 dc 02 4f 00 00 | 30 45 00 00 30 45 00 00 |.....O..|0E..0E..|
|0003be20| 00 00 00 05 00 00 00 00 | 00 0b 00 09 00 04 00 00 |........|........|
|0003be30| 00 09 00 00 00 00 00 00 | 00 00 00 39 00 0b 00 09 |........|...9....|
|0003be40| 00 04 00 00 00 09 ac ac | 11 11 09 09 00 00 00 41 |........|.......A|
|0003be50| 00 0b 00 09 00 04 00 00 | 00 09 00 00 00 00 00 00 |........|........|
|0003be60| 00 00 15 bb 00 0b 00 09 | 00 04 00 00 00 09 ac ac |........|........|
|0003be70| 11 11 09 09 00 00 15 c4 | 00 0b 00 09 00 04 00 00 |........|........|
|0003be80| 00 09 00 00 00 00 00 00 | 43 41 53 74 00 00 18 38 |........|CASt...8|
|0003be90| 00 04 00 00 18 2e 0b 00 | 00 03 00 00 00 14 00 c2 |........|........|
|0003bea0| eb b4 00 00 00 00 00 00 | 00 00 00 00 00 06 00 07 |........|........|
|0003beb0| 00 00 00 00 00 00 17 cd | 00 00 17 ce 00 00 17 ce |........|........|
|0003bec0| 00 00 17 ce 00 00 17 ce | 00 00 17 e2 00 00 17 f8 |........|........|
|0003bed0| 6f 6e 20 63 68 65 63 6b | 63 61 73 74 0d 20 20 72 |on check|cast.  r|
|0003bee0| 65 70 65 61 74 20 77 69 | 74 68 20 69 20 3d 20 31 |epeat wi|th i = 1|
|0003bef0| 20 74 6f 20 39 39 39 20 | 20 0d 20 20 20 20 69 66 | to 999 | .    if|
|0003bf00| 20 28 74 68 65 20 64 65 | 70 74 68 20 6f 66 20 63 | (the de|pth of c|
|0003bf10| 61 73 74 20 69 29 20 3e | 20 38 20 74 68 65 6e 20 |ast i) >| 8 then |
|0003bf20| 70 75 74 20 22 77 68 6f | 6f 70 73 21 20 63 61 73 |put "who|ops! cas|
|0003bf30| 74 20 22 20 26 26 20 69 | 20 26 26 20 22 20 3e 20 |t " && i| && " > |
|0003bf40| 38 20 62 69 74 21 21 22 | 0d 20 20 20 20 0d 20 20 |8 bit!!"|.    .  |
|0003bf50| 65 6e 64 20 72 65 70 65 | 61 74 0d 65 6e 64 0d 0d |end repe|at.end..|
|0003bf60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003bf70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003bf80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003bf90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003bfa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|0003bfb0| 0d 6f 6e 20 47 65 74 43 | 61 70 74 69 6f 6e 0d 20 |.on GetC|aption. |
|0003bfc0| 20 67 6c 6f 62 61 6c 20 | 67 43 75 72 43 68 61 70 | global |gCurChap|
|0003bfd0| 2c 20 67 43 75 72 41 72 | 74 69 63 6c 65 2c 20 67 |, gCurAr|ticle, g|
|0003bfe0| 43 61 70 74 69 6f 6e 73 | 0d 20 20 0d 20 20 73 65 |Captions|.  .  se|
|0003bff0| 74 20 74 68 65 20 69 74 | 65 6d 64 65 6c 69 6d 69 |t the it|emdelimi|
|0003c000| 74 65 72 20 3d 20 22 40 | 22 0d 20 20 73 65 74 20 |ter = "@|".  set |
|0003c010| 74 6d 70 20 3d 20 69 74 | 65 6d 20 67 43 75 72 43 |tmp = it|em gCurC|
|0003c020| 68 61 70 20 6f 66 20 67 | 43 61 70 74 69 6f 6e 73 |hap of g|Captions|
|0003c030| 0d 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |.  set t|he itemd|
|0003c040| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 23 22 20 20 |elimiter| = "#"  |
|0003c050| 0d 20 20 73 65 74 20 74 | 6d 70 20 3d 20 69 74 65 |.  set t|mp = ite|
|0003c060| 6d 20 67 43 75 72 41 72 | 74 69 63 6c 65 20 6f 66 |m gCurAr|ticle of|
|0003c070| 20 74 6d 70 0d 20 20 73 | 65 74 20 74 68 65 20 69 | tmp.  s|et the i|
|0003c080| 74 65 6d 64 65 6c 69 6d | 69 74 65 72 20 3d 20 22 |temdelim|iter = "|
|0003c090| 2c 22 0d 20 20 0d 20 20 | 2d 2d 20 67 65 74 20 72 |,".  .  |-- get r|
|0003c0a0| 69 64 20 6f 66 20 74 68 | 65 20 6c 65 61 64 69 6e |id of th|e leadin|
|0003c0b0| 67 20 6e 65 77 6c 69 6e | 65 2c 20 72 69 67 68 74 |g newlin|e, right|
|0003c0c0| 20 61 66 74 65 72 20 74 | 68 65 20 73 74 72 75 64 | after t|he strud|
|0003c0d0| 65 6c 0d 20 20 64 65 6c | 65 74 65 20 6c 69 6e 65 |el.  del|ete line|
|0003c0e0| 20 31 20 6f 66 20 74 6d | 70 20 20 0d 20 20 0d 20 | 1 of tm|p  .  . |
|0003c0f0| 20 2d 2d 20 61 64 64 20 | 61 20 70 65 72 69 6f 64 | -- add |a period|
|0003c100| 20 61 74 20 74 68 65 20 | 65 6e 64 20 6f 66 20 74 | at the |end of t|
|0003c110| 68 65 20 74 65 78 74 0d | 20 20 73 65 74 20 74 6d |he text.|  set tm|
|0003c120| 70 63 68 61 72 20 3d 20 | 74 68 65 20 6e 75 6d 62 |pchar = |the numb|
|0003c130| 65 72 20 6f 66 20 63 68 | 61 72 73 20 6f 66 20 74 |er of ch|ars of t|
|0003c140| 6d 70 0d 20 20 69 66 20 | 63 68 61 72 20 74 6d 70 |mp.  if |char tmp|
|0003c150| 63 68 61 72 20 6f 66 20 | 74 6d 70 20 3d 20 72 65 |char of |tmp = re|
|0003c160| 74 75 72 6e 20 74 68 65 | 6e 20 70 75 74 20 22 2e |turn the|n put ".|
|0003c170| 22 20 69 6e 74 6f 20 63 | 68 61 72 20 74 6d 70 63 |" into c|har tmpc|
|0003c180| 68 61 72 20 6f 66 20 74 | 6d 70 0d 20 20 72 65 74 |har of t|mp.  ret|
|0003c190| 75 72 6e 20 74 6d 70 0d | 65 6e 64 0d 2d 2d 2d 2d |urn tmp.|end.----|
|0003c1a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c1b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c1c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c1d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c1e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 6f 6e 20 55 |--------|---.on U|
|0003c1f0| 6e 6c 6f 61 64 4d 65 6d | 0d 20 20 2d 2d 20 63 6c |nloadMem|.  -- cl|
|0003c200| 65 61 6e 20 74 68 65 20 | 6d 65 6d 6f 72 79 0d 20 |ean the |memory. |
|0003c210| 20 75 6e 6c 6f 61 64 20 | 2d 2d 20 75 6e 6c 6f 61 | unload |-- unloa|
|0003c220| 64 20 61 6c 6c 20 74 68 | 65 20 63 61 73 74 6d 65 |d all th|e castme|
|0003c230| 6d 62 65 72 73 20 69 6e | 20 61 6c 6c 20 74 68 65 |mbers in| all the|
|0003c240| 20 66 72 61 6d 65 73 20 | 61 70 61 72 74 20 66 72 | frames |apart fr|
|0003c250| 6f 6d 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6f |om the c|urrent o|
|0003c260| 6e 65 0d 20 20 70 75 74 | 20 22 75 6e 6c 6f 61 64 |ne.  put| "unload|
|0003c270| 65 64 20 6d 65 6d 6f 72 | 79 20 66 72 6f 6d 20 65 |ed memor|y from e|
|0003c280| 76 65 72 79 74 68 69 6e | 67 20 65 78 63 65 70 74 |verythin|g except|
|0003c290| 20 63 75 72 72 65 6e 74 | 20 66 72 61 6d 65 2e 20 | current| frame. |
|0003c2a0| 66 72 65 65 3d 22 26 26 | 28 74 68 65 20 66 72 65 |free="&&|(the fre|
|0003c2b0| 65 62 79 74 65 73 2f 31 | 30 32 34 29 0d 65 6e 64 |ebytes/1|024).end|
|0003c2c0| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|0003c2d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c2e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c2f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c310| 0d 6f 6e 20 43 6c 65 61 | 6e 4d 65 6d 0d 20 20 67 |.on Clea|nMem.  g|
|0003c320| 6c 6f 62 61 6c 20 67 43 | 75 72 50 69 63 0d 20 20 |lobal gC|urPic.  |
|0003c330| 0d 20 20 69 66 20 67 43 | 75 72 50 69 63 20 3e 20 |.  if gC|urPic > |
|0003c340| 30 20 74 68 65 6e 0d 20 | 20 20 20 75 6e 6c 6f 61 |0 then. |   unloa|
|0003c350| 64 20 67 43 75 72 50 69 | 63 0d 20 20 20 20 70 75 |d gCurPi|c.    pu|
|0003c360| 74 20 22 75 6e 6c 6f 61 | 64 65 64 20 22 20 26 26 |t "unloa|ded " &&|
|0003c370| 20 28 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 63 61 | (the na|me of ca|
|0003c380| 73 74 20 67 43 75 72 50 | 69 63 29 20 26 26 20 22 |st gCurP|ic) && "|
|0003c390| 20 66 72 65 65 3d 22 26 | 26 28 74 68 65 20 66 72 | free="&|&(the fr|
|0003c3a0| 65 65 62 79 74 65 73 2f | 31 30 32 34 29 0d 20 20 |eebytes/|1024).  |
|0003c3b0| 20 20 0d 20 20 65 6e 64 | 20 69 66 0d 65 6e 64 0d |  .  end| if.end.|
|0003c3c0| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|0003c3d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c3e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c3f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c410| 0d 6f 6e 20 42 6c 61 63 | 6b 53 63 72 65 65 6e 0d |.on Blac|kScreen.|
|0003c420| 20 20 67 6c 6f 62 61 6c | 20 67 4d 61 6b 65 72 4e |  global| gMakerN|
|0003c430| 75 6d 2c 20 67 57 6f 72 | 6c 64 2c 20 67 4e 75 67 |um, gWor|ld, gNug|
|0003c440| 67 65 74 73 0d 20 20 0d | 20 20 2d 2d 20 62 6c 61 |gets.  .|  -- bla|
|0003c450| 63 6b 6f 75 74 20 74 68 | 65 20 73 63 72 65 65 6e |ckout th|e screen|
|0003c460| 0d 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |.  puppe|tsprite |
|0003c470| 34 37 2c 31 0d 20 20 73 | 65 74 20 74 68 65 20 63 |47,1.  s|et the c|
|0003c480| 61 73 74 6e 75 6d 20 6f | 66 20 73 70 72 69 74 65 |astnum o|f sprite|
|0003c490| 20 34 37 20 3d 20 74 68 | 65 20 6e 75 6d 62 65 72 | 47 = th|e number|
|0003c4a0| 20 6f 66 20 63 61 73 74 | 20 22 62 6c 61 63 6b 62 | of cast| "blackb|
|0003c4b0| 6f 78 22 0d 20 20 73 70 | 72 69 74 65 42 6f 78 20 |ox".  sp|riteBox |
|0003c4c0| 34 37 2c 20 30 2c 20 30 | 2c 20 36 34 30 2c 20 34 |47, 0, 0|, 640, 4|
|0003c4d0| 38 30 0d 20 20 0d 20 20 | 2d 2d 20 67 65 74 20 74 |80.  .  |-- get t|
|0003c4e0| 68 65 20 73 74 72 61 70 | 6c 69 6e 65 0d 20 20 73 |he strap|line.  s|
|0003c4f0| 65 74 20 67 4d 61 6b 65 | 72 6e 75 6d 20 3d 20 76 |et gMake|rnum = v|
|0003c500| 61 6c 75 65 28 67 4d 61 | 6b 65 72 6e 75 6d 29 0d |alue(gMa|kernum).|
|0003c510| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f |  set th|e text o|
|0003c520| 66 20 66 69 65 6c 64 20 | 22 73 74 72 61 70 6c 69 |f field |"strapli|
|0003c530| 6e 65 22 20 3d 20 6c 69 | 6e 65 20 67 6d 61 6b 65 |ne" = li|ne gmake|
|0003c540| 72 6e 75 6d 20 6f 66 20 | 66 69 65 6c 64 20 22 6d |rnum of |field "m|
|0003c550| 61 6b 65 72 73 73 74 72 | 61 70 6c 69 6e 65 73 22 |akersstr|aplines"|
|0003c560| 0d 20 20 73 65 74 20 74 | 68 65 20 69 74 65 6d 64 |.  set t|he itemd|
|0003c570| 65 6c 69 6d 69 74 65 72 | 20 3d 20 22 2c 22 0d 20 |elimiter| = ",". |
|0003c580| 20 64 65 6c 65 74 65 20 | 69 74 65 6d 20 31 20 6f | delete |item 1 o|
|0003c590| 66 20 66 69 65 6c 64 20 | 22 73 74 72 61 70 6c 69 |f field |"strapli|
|0003c5a0| 6e 65 22 0d 20 20 0d 20 | 20 2d 2d 20 6c 6f 61 64 |ne".  . | -- load|
|0003c5b0| 20 73 63 72 69 70 74 20 | 66 69 6c 65 2c 20 70 61 | script |file, pa|
|0003c5c0| 72 73 65 20 69 74 2c 20 | 6c 6f 61 64 20 74 68 65 |rse it, |load the|
|0003c5d0| 20 63 75 74 74 69 6e 67 | 20 74 65 78 74 0d 20 20 | cutting| text.  |
|0003c5e0| 52 65 61 64 53 63 72 69 | 70 74 0d 20 20 0d 20 20 |ReadScri|pt.  .  |
|0003c5f0| 73 65 74 20 74 68 65 20 | 69 74 65 6d 64 65 6c 69 |set the |itemdeli|
|0003c600| 6d 69 74 65 72 20 3d 20 | 22 2e 22 0d 20 20 73 65 |miter = |".".  se|
|0003c610| 74 20 67 57 6f 72 6c 64 | 20 3d 20 69 74 65 6d 20 |t gWorld| = item |
|0003c620| 31 20 6f 66 20 74 68 65 | 20 6d 6f 76 69 65 6e 61 |1 of the| moviena|
|0003c630| 6d 65 0d 20 20 73 65 74 | 20 74 68 65 20 69 74 65 |me.  set| the ite|
|0003c640| 6d 64 65 6c 69 6d 69 74 | 65 72 20 3d 20 22 2c 22 |mdelimit|er = ","|
|0003c650| 0d 20 20 0d 20 20 73 65 | 74 20 74 6d 70 6e 75 6d |.  .  se|t tmpnum|
|0003c660| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|0003c670| 20 6c 69 6e 65 73 20 6f | 66 20 66 69 65 6c 64 20 | lines o|f field |
|0003c680| 28 22 4c 6f 61 64 69 6e | 67 4c 69 6e 65 73 22 26 |("Loadin|gLines"&|
|0003c690| 67 57 6f 72 6c 64 29 0d | 20 20 73 65 74 20 74 68 |gWorld).|  set th|
|0003c6a0| 65 20 74 65 78 74 20 6f | 66 20 66 69 65 6c 64 20 |e text o|f field |
|0003c6b0| 22 4c 6f 61 64 69 6e 67 | 54 65 78 74 22 20 3d 20 |"Loading|Text" = |
|0003c6c0| 6c 69 6e 65 20 72 61 6e | 64 6f 6d 28 74 6d 70 6e |line ran|dom(tmpn|
|0003c6d0| 75 6d 29 20 6f 66 20 66 | 69 65 6c 64 20 28 22 4c |um) of f|ield ("L|
|0003c6e0| 6f 61 64 69 6e 67 4c 69 | 6e 65 73 22 26 67 57 6f |oadingLi|nes"&gWo|
|0003c6f0| 72 6c 64 29 0d 20 20 2d | 2d 20 73 65 74 20 74 68 |rld).  -|- set th|
|0003c700| 65 20 69 74 65 6d 64 65 | 6c 69 6d 69 74 65 72 20 |e itemde|limiter |
|0003c710| 3d 20 22 23 22 0d 20 20 | 2d 2d 20 73 65 74 20 74 |= "#".  |-- set t|
|0003c720| 68 65 20 74 65 78 74 20 | 6f 66 20 66 69 65 6c 64 |he text |of field|
|0003c730| 20 22 4c 6f 61 64 69 6e | 67 54 65 78 74 22 20 3d | "Loadin|gText" =|
|0003c740| 20 69 74 65 6d 20 72 61 | 6e 64 6f 6d 28 74 68 65 | item ra|ndom(the|
|0003c750| 20 6e 75 6d 62 65 72 20 | 6f 66 20 69 74 65 6d 73 | number |of items|
|0003c760| 20 6f 66 20 67 4e 75 67 | 67 65 74 73 29 20 6f 66 | of gNug|gets) of|
|0003c770| 20 67 4e 75 67 67 65 74 | 73 0d 20 20 2d 2d 20 73 | gNugget|s.  -- s|
|0003c780| 65 74 20 74 68 65 20 69 | 74 65 6d 64 65 6c 69 6d |et the i|temdelim|
|0003c790| 69 74 65 72 20 3d 20 22 | 2c 22 0d 20 20 0d 20 20 |iter = "|,".  .  |
|0003c7a0| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 34 38 2c |puppetsp|rite 48,|
|0003c7b0| 31 0d 20 20 73 65 74 20 | 74 68 65 20 63 61 73 74 |1.  set |the cast|
|0003c7c0| 6e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 34 38 |num of s|prite 48|
|0003c7d0| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|0003c7e0| 20 63 61 73 74 20 22 4c | 6f 61 64 69 6e 67 54 65 | cast "L|oadingTe|
|0003c7f0| 78 74 22 0d 20 20 73 65 | 74 20 74 68 65 20 6c 6f |xt".  se|t the lo|
|0003c800| 63 68 20 6f 66 20 73 70 | 72 69 74 65 20 34 38 20 |ch of sp|rite 48 |
|0003c810| 3d 20 31 30 30 0d 20 20 | 73 65 74 20 74 68 65 20 |= 100.  |set the |
|0003c820| 6c 6f 63 76 20 6f 66 20 | 73 70 72 69 74 65 20 34 |locv of |sprite 4|
|0003c830| 38 20 3d 20 31 35 30 0d | 20 20 0d 65 6e 64 0d 2d |8 = 150.|  .end.-|
|0003c840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 6f |--------|------.o|
|0003c890| 6e 20 55 6e 42 6c 61 63 | 6b 53 63 72 65 65 6e 0d |n UnBlac|kScreen.|
|0003c8a0| 20 20 73 65 74 20 74 68 | 65 20 6c 6f 63 68 20 6f |  set th|e loch o|
|0003c8b0| 66 20 73 70 72 69 74 65 | 20 34 37 20 3d 20 32 30 |f sprite| 47 = 20|
|0003c8c0| 30 30 0d 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |00.  set| the loc|
|0003c8d0| 68 20 6f 66 20 73 70 72 | 69 74 65 20 34 38 20 3d |h of spr|ite 48 =|
|0003c8e0| 20 32 30 30 30 0d 20 20 | 70 75 70 70 65 74 73 70 | 2000.  |puppetsp|
|0003c8f0| 72 69 74 65 20 34 38 2c | 30 0d 20 20 70 75 70 70 |rite 48,|0.  pupp|
|0003c900| 65 74 73 70 72 69 74 65 | 20 34 37 2c 30 0d 20 20 |etsprite| 47,0.  |
|0003c910| 0d 20 20 75 70 64 61 74 | 65 73 74 61 67 65 0d 65 |.  updat|estage.e|
|0003c920| 6e 64 0d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |nd.-----|--------|
|0003c930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003c970| 2d 2d 0d 2d 2d 20 70 6c | 61 79 20 61 20 63 6c 69 |--.-- pl|ay a cli|
|0003c980| 63 6b 20 73 6f 75 6e 64 | 20 6f 6e 20 73 6f 75 6e |ck sound| on soun|
|0003c990| 64 20 63 68 61 6e 6e 65 | 6c 20 32 0d 2d 2d 20 70 |d channe|l 2.-- p|
|0003c9a0| 6c 75 73 2c 20 74 72 61 | 70 20 6d 6f 75 73 65 63 |lus, tra|p mousec|
|0003c9b0| 6c 69 63 6b 73 20 68 65 | 72 65 0d 0d 6f 6e 20 43 |licks he|re..on C|
|0003c9c0| 6c 69 63 6b 53 6e 64 0d | 20 20 67 6c 6f 62 61 6c |lickSnd.|  global|
|0003c9d0| 20 67 43 6c 69 63 6b 53 | 6e 64 43 61 73 74 0d 20 | gClickS|ndCast. |
|0003c9e0| 20 0d 20 20 70 75 70 70 | 65 74 73 6f 75 6e 64 20 | .  pupp|etsound |
|0003c9f0| 32 2c 67 43 6c 69 63 6b | 53 6e 64 43 61 73 74 20 |2,gClick|SndCast |
|0003ca00| 20 0d 20 20 54 72 61 70 | 4d 6f 75 73 65 0d 20 20 | .  Trap|Mouse.  |
|0003ca10| 0d 65 6e 64 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.end.---|--------|
|0003ca20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003ca30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003ca40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003ca50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003ca60| 2d 2d 2d 2d 0d 6f 6e 20 | 54 72 61 70 4d 6f 75 73 |----.on |TrapMous|
|0003ca70| 65 20 2d 2d 20 74 72 61 | 70 20 6d 6f 75 73 65 63 |e -- tra|p mousec|
|0003ca80| 6c 69 63 6b 73 20 6f 6e | 20 74 68 65 20 73 63 72 |licks on| the scr|
|0003ca90| 65 65 6e 0d 20 20 67 6c | 6f 62 61 6c 20 67 54 72 |een.  gl|obal gTr|
|0003caa0| 61 70 53 74 61 72 74 0d | 20 20 0d 20 20 2d 2d 20 |apStart.|  .  -- |
|0003cab0| 69 66 20 74 68 65 20 74 | 69 63 6b 73 20 2d 20 67 |if the t|icks - g|
|0003cac0| 54 72 61 70 53 74 61 72 | 74 20 3c 20 36 30 20 74 |TrapStar|t < 60 t|
|0003cad0| 68 65 6e 20 0d 20 20 2d | 2d 20 20 20 70 75 74 20 |hen .  -|-   put |
|0003cae0| 22 74 72 61 70 70 65 64 | 20 6d 6f 75 73 65 63 6c |"trapped| mousecl|
|0003caf0| 69 63 6b 2c 20 77 69 74 | 68 20 74 69 6d 65 72 21 |ick, wit|h timer!|
|0003cb00| 22 0d 20 20 2d 2d 20 65 | 6e 64 20 69 66 0d 20 20 |".  -- e|nd if.  |
|0003cb10| 0d 20 20 2d 2d 20 70 75 | 74 20 28 74 68 65 20 74 |.  -- pu|t (the t|
|0003cb20| 69 63 6b 73 20 2d 20 67 | 54 72 61 70 73 74 61 72 |icks - g|Trapstar|
|0003cb30| 74 29 0d 20 20 2d 2d 20 | 73 65 74 20 67 54 72 61 |t).  -- |set gTra|
|0003cb40| 70 53 74 61 72 74 20 3d | 20 74 68 65 20 74 69 63 |pStart =| the tic|
|0003cb50| 6b 73 0d 20 20 70 75 70 | 70 65 74 73 70 72 69 74 |ks.  pup|petsprit|
|0003cb60| 65 20 34 36 2c 31 0d 20 | 20 73 65 74 20 74 68 65 |e 46,1. | set the|
|0003cb70| 20 63 61 73 74 6e 75 6d | 20 6f 66 20 73 70 72 69 | castnum| of spri|
|0003cb80| 74 65 20 34 36 20 3d 20 | 31 30 34 32 20 2d 2d 20 |te 46 = |1042 -- |
|0003cb90| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 61 |the numb|er of ca|
|0003cba0| 73 74 20 22 73 63 72 65 | 65 6e 62 6c 61 6e 6b 22 |st "scre|enblank"|
|0003cbb0| 0d 20 20 73 70 72 69 74 | 65 62 6f 78 20 34 36 2c |.  sprit|ebox 46,|
|0003cbc0| 30 2c 30 2c 36 34 30 2c | 34 38 30 0d 20 20 75 70 |0,0,640,|480.  up|
|0003cbd0| 64 61 74 65 73 74 61 67 | 65 0d 20 20 2d 2d 70 75 |datestag|e.  --pu|
|0003cbe0| 74 20 22 73 74 61 72 74 | 20 6d 6f 75 73 65 74 72 |t "start| mousetr|
|0003cbf0| 61 70 22 0d 65 6e 64 0d | 2d 2d 2d 2d 2d 2d 2d 2d |ap".end.|--------|
|0003cc00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003cc10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003cc20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003cc30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003cc40| 2d 2d 2d 2d 2d 2d 2d 0d | 6f 6e 20 45 6e 64 54 72 |-------.|on EndTr|
|0003cc50| 61 70 4d 6f 75 73 65 0d | 20 20 70 75 70 70 65 74 |apMouse.|  puppet|
|0003cc60| 73 70 72 69 74 65 20 34 | 36 2c 30 0d 20 20 2d 2d |sprite 4|6,0.  --|
|0003cc70| 70 75 74 20 22 65 6e 64 | 20 6d 6f 75 73 65 74 72 |put "end| mousetr|
|0003cc80| 61 70 22 0d 65 6e 64 0d | 2d 2d 2d 2d 2d 2d 2d 2d |ap".end.|--------|
|0003cc90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003cca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003ccb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003ccc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003ccd0| 2d 2d 2d 2d 2d 2d 2d 0d | 6f 6e 20 42 75 74 74 6f |-------.|on Butto|
|0003cce0| 6e 43 6c 69 63 6b 0d 20 | 20 67 6c 6f 62 61 6c 20 |nClick. | global |
|0003ccf0| 67 43 6c 69 63 6b 53 6e | 64 43 61 73 74 0d 20 20 |gClickSn|dCast.  |
|0003cd00| 0d 20 20 43 6c 69 63 6b | 53 6e 64 0d 20 20 75 70 |.  Click|Snd.  up|
|0003cd10| 64 61 74 65 73 74 61 67 | 65 0d 20 20 73 65 74 20 |datestag|e.  set |
|0003cd20| 6d 65 20 3d 20 74 68 65 | 20 63 6c 69 63 6b 6f 6e |me = the| clickon|
|0003cd30| 0d 20 20 73 65 74 20 6d | 79 6e 61 6d 65 20 3d 20 |.  set m|yname = |
|0003cd40| 74 68 65 20 6e 61 6d 65 | 20 6f 66 20 63 61 73 74 |the name| of cast|
|0003cd50| 20 28 74 68 65 20 63 61 | 73 74 6e 75 6d 20 6f 66 | (the ca|stnum of|
|0003cd60| 20 73 70 72 69 74 65 20 | 6d 65 29 0d 20 20 0d 20 | sprite |me).  . |
|0003cd70| 20 73 65 74 20 74 68 65 | 20 69 74 65 6d 64 65 6c | set the| itemdel|
|0003cd80| 69 6d 69 74 65 72 20 3d | 20 22 2e 22 0d 20 20 73 |imiter =| ".".  s|
|0003cd90| 65 74 20 6d 79 6e 61 6d | 65 20 3d 20 69 74 65 6d |et mynam|e = item|
|0003cda0| 20 31 20 6f 66 20 6d 79 | 6e 61 6d 65 0d 20 20 73 | 1 of my|name.  s|
|0003cdb0| 65 74 20 74 68 65 20 69 | 74 65 6d 64 65 6c 69 6d |et the i|temdelim|
|0003cdc0| 69 74 65 72 20 3d 20 22 | 2c 22 0d 20 20 0d 20 20 |iter = "|,".  .  |
|0003cdd0| 70 75 70 70 65 74 73 70 | 72 69 74 65 20 6d 65 2c |puppetsp|rite me,|
|0003cde0| 31 0d 20 20 73 65 74 20 | 6d 79 6e 61 6d 65 20 3d |1.  set |myname =|
|0003cdf0| 20 6d 79 6e 61 6d 65 20 | 26 20 22 2e 64 6f 77 6e | myname |& ".down|
|0003ce00| 22 0d 20 20 73 65 74 20 | 74 68 65 20 63 61 73 74 |".  set |the cast|
|0003ce10| 6e 75 6d 20 6f 66 20 73 | 70 72 69 74 65 20 6d 65 |num of s|prite me|
|0003ce20| 20 3d 20 74 68 65 20 6e | 75 6d 62 65 72 20 6f 66 | = the n|umber of|
|0003ce30| 20 63 61 73 74 20 6d 79 | 6e 61 6d 65 0d 20 20 0d | cast my|name.  .|
|0003ce40| 20 20 75 70 64 61 74 65 | 73 74 61 67 65 0d 20 20 |  update|stage.  |
|0003ce50| 0d 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |.  puppe|tsprite |
|0003ce60| 6d 65 2c 30 0d 65 6e 64 | 0d 2d 2d 2d 2d 2d 2d 2d |me,0.end|.-------|
|0003ce70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003ce80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003ce90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003cea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003ceb0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 6f 6e 20 47 65 74 4d |--------|.on GetM|
|0003cec0| 61 70 43 61 70 20 0d 20 | 20 67 6c 6f 62 61 6c 20 |apCap . | global |
|0003ced0| 67 4d 61 6b 65 72 4e 61 | 6d 65 2c 20 67 4d 61 70 |gMakerNa|me, gMap|
|0003cee0| 43 61 70 2c 20 67 43 75 | 72 4d 61 70 0d 20 20 0d |Cap, gCu|rMap.  .|
|0003cef0| 20 20 73 65 74 20 74 68 | 65 20 69 74 65 6d 64 65 |  set th|e itemde|
|0003cf00| 6c 69 6d 69 74 65 72 20 | 3d 20 22 23 22 20 0d 20 |limiter |= "#" . |
|0003cf10| 20 73 65 74 20 6e 75 6d | 20 3d 20 74 68 65 20 6e | set num| = the n|
|0003cf20| 75 6d 62 65 72 20 6f 66 | 20 69 74 65 6d 73 20 6f |umber of| items o|
|0003cf30| 66 20 66 69 65 6c 64 20 | 22 4d 61 70 43 61 70 74 |f field |"MapCapt|
|0003cf40| 69 6f 6e 73 22 0d 20 20 | 73 65 74 20 74 68 65 20 |ions".  |set the |
|0003cf50| 69 74 65 6d 64 65 6c 69 | 6d 69 74 65 72 20 3d 20 |itemdeli|miter = |
|0003cf60| 22 2c 22 20 0d 20 20 0d | 20 20 0d 20 20 73 65 74 |"," .  .|  .  set|
|0003cf70| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 66 69 65 | the tex|t of fie|
|0003cf80| 6c 64 20 22 63 61 70 74 | 69 6f 6e 2d 6d 61 70 22 |ld "capt|ion-map"|
|0003cf90| 20 3d 20 22 20 22 0d 20 | 20 0d 20 20 72 65 70 65 | = " ". | .  repe|
|0003cfa0| 61 74 20 77 69 74 68 20 | 69 20 3d 20 31 20 74 6f |at with |i = 1 to|
|0003cfb0| 20 6e 75 6d 0d 20 20 20 | 20 73 65 74 20 74 68 65 | num.   | set the|
|0003cfc0| 20 69 74 65 6d 64 65 6c | 69 6d 69 74 65 72 20 3d | itemdel|imiter =|
|0003cfd0| 20 22 23 22 20 0d 20 20 | 20 20 73 65 74 20 67 4d | "#" .  |  set gM|
|0003cfe0| 61 70 43 61 70 20 3d 20 | 69 74 65 6d 20 69 20 6f |apCap = |item i o|
|0003cff0| 66 20 66 69 65 6c 64 20 | 22 4d 61 70 43 61 70 74 |f field |"MapCapt|
|0003d000| 69 6f 6e 73 22 0d 20 20 | 20 20 73 65 74 20 74 68 |ions".  |  set th|
|0003d010| 65 20 69 74 65 6d 64 65 | 6c 69 6d 69 74 65 72 20 |e itemde|limiter |
|0003d020| 3d 20 22 2c 22 0d 20 20 | 20 20 69 66 20 77 6f 72 |= ",".  |  if wor|
|0003d030| 64 20 31 20 6f 66 20 67 | 4d 61 70 43 61 70 20 3d |d 1 of g|MapCap =|
|0003d040| 20 67 4d 61 6b 65 72 4e | 61 6d 65 20 74 68 65 6e | gMakerN|ame then|
|0003d050| 0d 20 20 20 20 20 20 73 | 65 74 20 67 43 75 72 4d |.      s|et gCurM|
|0003d060| 61 70 20 3d 20 31 0d 20 | 20 20 20 20 20 47 65 74 |ap = 1. |     Get|
|0003d070| 4e 65 78 74 4d 61 70 43 | 61 70 0d 20 20 20 20 20 |NextMapC|ap.     |
|0003d080| 20 65 78 69 74 0d 20 20 | 20 20 65 6e 64 20 69 66 | exit.  |  end if|
|0003d090| 0d 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |.  end r|epeat.  |
|0003d0a0| 0d 20 20 73 65 74 20 67 | 4d 61 70 43 61 70 20 3d |.  set g|MapCap =|
|0003d0b0| 20 22 20 22 0d 65 6e 64 | 0d 2d 2d 2d 2d 2d 2d 2d | " ".end|.-------|
|0003d0c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003d0d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003d0e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003d0f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003d100| 2d 2d 2d 2d 2d 2d 2d 0d | 6f 6e 20 47 65 74 4e 65 |-------.|on GetNe|
|0003d110| 78 74 4d 61 70 43 61 70 | 0d 20 20 67 6c 6f 62 61 |xtMapCap|.  globa|
|0003d120| 6c 20 67 43 75 72 4d 61 | 70 2c 20 67 4d 61 70 43 |l gCurMa|p, gMapC|
|0003d130| 61 70 0d 20 20 0d 20 20 | 73 65 74 20 63 61 70 74 |ap.  .  |set capt|
|0003d140| 69 6f 6e 73 70 72 69 74 | 65 20 3d 20 31 38 0d 20 |ionsprit|e = 18. |
|0003d150| 20 73 65 74 20 63 61 70 | 74 69 6f 6e 6c 6f 63 68 | set cap|tionloch|
|0003d160| 20 3d 20 74 68 65 20 6c | 6f 63 68 20 6f 66 20 73 | = the l|och of s|
|0003d170| 70 72 69 74 65 20 63 61 | 70 74 69 6f 6e 73 70 72 |prite ca|ptionspr|
|0003d180| 69 74 65 0d 20 20 70 75 | 70 70 65 74 73 70 72 69 |ite.  pu|ppetspri|
|0003d190| 74 65 20 63 61 70 74 69 | 6f 6e 73 70 72 69 74 65 |te capti|onsprite|
|0003d1a0| 2c 31 0d 20 20 73 65 74 | 20 74 68 65 20 6c 6f 63 |,1.  set| the loc|
|0003d1b0| 68 20 6f 66 20 73 70 72 | 69 74 65 20 63 61 70 74 |h of spr|ite capt|
|0003d1c0| 69 6f 6e 73 70 72 69 74 | 65 20 3d 20 31 30 30 30 |ionsprit|e = 1000|
|0003d1d0| 0d 20 20 75 70 64 61 74 | 65 73 74 61 67 65 0d 20 |.  updat|estage. |
|0003d1e0| 20 0d 20 20 73 65 74 20 | 74 68 65 20 69 74 65 6d | .  set |the item|
|0003d1f0| 64 65 6c 69 6d 69 74 65 | 72 20 3d 20 22 40 22 0d |delimite|r = "@".|
|0003d200| 20 20 73 65 74 20 74 6d | 70 20 3d 20 69 74 65 6d |  set tm|p = item|
|0003d210| 20 28 67 43 75 72 4d 61 | 70 2b 31 29 20 6f 66 20 | (gCurMa|p+1) of |
|0003d220| 67 4d 61 70 43 61 70 0d | 20 20 64 65 6c 65 74 65 |gMapCap.|  delete|
|0003d230| 20 6c 69 6e 65 20 31 20 | 74 6f 20 32 20 6f 66 20 | line 1 |to 2 of |
|0003d240| 74 6d 70 0d 20 20 73 65 | 74 20 74 68 65 20 74 65 |tmp.  se|t the te|
|0003d250| 78 74 20 6f 66 20 66 69 | 65 6c 64 20 22 63 61 70 |xt of fi|eld "cap|
|0003d260| 74 69 6f 6e 2d 6d 61 70 | 22 20 3d 20 74 6d 70 0d |tion-map|" = tmp.|
|0003d270| 20 20 73 65 74 20 74 68 | 65 20 69 74 65 6d 64 65 |  set th|e itemde|
|0003d280| 6c 69 6d 69 74 65 72 20 | 3d 20 22 2c 22 0d 20 20 |limiter |= ",".  |
|0003d290| 0d 20 20 2d 2d 20 61 64 | 6a 75 73 74 20 74 68 65 |.  -- ad|just the|
|0003d2a0| 20 68 65 69 67 68 74 20 | 6f 66 20 74 68 65 20 63 | height |of the c|
|0003d2b0| 61 70 74 69 6f 6e 2c 20 | 74 6f 20 63 65 6e 74 65 |aption, |to cente|
|0003d2c0| 72 20 69 74 0d 20 20 73 | 65 74 20 63 65 6e 74 65 |r it.  s|et cente|
|0003d2d0| 72 70 6f 69 6e 74 20 3d | 20 32 36 35 0d 20 20 73 |rpoint =| 265.  s|
|0003d2e0| 65 74 20 63 61 70 68 20 | 3d 20 74 68 65 20 68 65 |et caph |= the he|
|0003d2f0| 69 67 68 74 20 6f 66 20 | 63 61 73 74 20 22 63 61 |ight of |cast "ca|
|0003d300| 70 74 69 6f 6e 2d 6d 61 | 70 22 0d 20 20 73 65 74 |ption-ma|p".  set|
|0003d310| 20 74 68 65 20 6c 6f 63 | 76 20 6f 66 20 73 70 72 | the loc|v of spr|
|0003d320| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|0003d330| 65 20 3d 20 63 65 6e 74 | 65 72 70 6f 69 6e 74 20 |e = cent|erpoint |
|0003d340| 2d 20 28 63 61 70 68 2f | 32 29 0d 20 20 73 65 74 |- (caph/|2).  set|
|0003d350| 20 74 68 65 20 6c 6f 63 | 68 20 6f 66 20 73 70 72 | the loc|h of spr|
|0003d360| 69 74 65 20 63 61 70 74 | 69 6f 6e 73 70 72 69 74 |ite capt|ionsprit|
|0003d370| 65 20 3d 20 63 61 70 74 | 69 6f 6e 6c 6f 63 68 0d |e = capt|ionloch.|
|0003d380| 20 20 75 70 64 61 74 65 | 73 74 61 67 65 0d 20 20 |  update|stage.  |
|0003d390| 45 6e 64 54 72 61 70 4d | 6f 75 73 65 0d 65 6e 64 |EndTrapM|ouse.end|
|0003d3a0| 0d 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|0003d3b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003d3c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003d3d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003d3e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|0003d3f0| 0d 6f 6e 20 51 54 62 75 | 74 74 6f 6e 43 6c 69 63 |.on QTbu|ttonClic|
|0003d400| 6b 0d 20 20 67 6c 6f 62 | 61 6c 20 67 51 54 62 75 |k.  glob|al gQTbu|
|0003d410| 74 74 6f 6e 73 2c 20 67 | 51 54 6c 6f 63 68 2c 20 |ttons, g|QTloch, |
|0003d420| 67 51 54 73 74 61 74 75 | 73 0d 20 20 0d 20 20 4e |gQTstatu|s.  .  N|
|0003d430| 61 76 42 75 74 74 6f 6e | 43 6c 6f 73 65 0d 20 20 |avButton|Close.  |
|0003d440| 0d 20 20 69 66 20 74 68 | 65 20 6d 6f 76 69 65 72 |.  if th|e movier|
|0003d450| 61 74 65 20 6f 66 20 73 | 70 72 69 74 65 20 31 36 |ate of s|prite 16|
|0003d460| 20 74 68 65 6e 0d 20 20 | 20 20 0d 20 20 20 20 2d | then.  |  .    -|
|0003d470| 2d 20 73 74 6f 70 20 74 | 68 65 20 6d 6f 76 69 65 |- stop t|he movie|
|0003d480| 0d 20 20 20 20 70 75 70 | 70 65 74 73 70 72 69 74 |.    pup|petsprit|
|0003d490| 65 20 31 31 2c 31 0d 20 | 20 20 20 73 65 74 20 74 |e 11,1. |   set t|
|0003d4a0| 68 65 20 6d 6f 76 69 65 | 72 61 74 65 20 6f 66 20 |he movie|rate of |
|0003d4b0| 73 70 72 69 74 65 20 31 | 36 20 3d 20 30 20 0d 20 |sprite 1|6 = 0 . |
|0003d4c0| 20 20 20 73 65 74 20 74 | 68 65 20 63 61 73 74 6e |   set t|he castn|
|0003d4d0| 75 6d 20 6f 66 20 73 70 | 72 69 74 65 20 31 31 20 |um of sp|rite 11 |
|0003d4e0| 3d 20 76 61 6c 75 65 28 | 69 74 65 6d 20 31 20 6f |= value(|item 1 o|
|0003d4f0| 66 20 67 51 54 42 75 74 | 74 6f 6e 73 29 0d 20 20 |f gQTBut|tons).  |
|0003d500| 20 20 73 65 74 20 67 51 | 54 73 74 61 74 75 73 20 |  set gQ|Tstatus |
|0003d510| 3d 20 30 20 0d 20 20 65 | 6c 73 65 0d 20 20 20 20 |= 0 .  e|lse.    |
|0003d520| 2d 2d 20 73 74 61 72 74 | 20 74 68 65 20 6d 6f 76 |-- start| the mov|
|0003d530| 69 65 0d 20 20 20 20 70 | 75 70 70 65 74 73 70 72 |ie.    p|uppetspr|
|0003d540| 69 74 65 20 31 31 2c 31 | 0d 20 20 20 20 0d 20 20 |ite 11,1|.    .  |
|0003d550| 20 20 2d 2d 73 65 74 20 | 74 68 65 20 6c 6f 63 68 |  --set |the loch|
|0003d560| 20 6f 66 20 73 70 72 69 | 74 65 20 31 36 20 3d 20 | of spri|te 16 = |
|0003d570| 67 51 54 6c 6f 63 68 0d | 20 20 20 20 70 75 70 70 |gQTloch.|    pupp|
|0003d580| 65 74 73 70 72 69 74 65 | 20 31 36 2c 30 0d 20 20 |etsprite| 16,0.  |
|0003d590| 20 20 0d 20 20 20 20 69 | 66 20 74 68 65 20 6d 6f |  .    i|f the mo|
|0003d5a0| 76 69 65 74 69 6d 65 20 | 6f 66 20 73 70 72 69 74 |vietime |of sprit|
|0003d5b0| 65 20 31 36 20 3d 20 74 | 68 65 20 64 75 72 61 74 |e 16 = t|he durat|
|0003d5c0| 69 6f 6e 20 6f 66 20 63 | 61 73 74 20 22 51 54 63 |ion of c|ast "QTc|
|0003d5d0| 61 73 74 22 20 74 68 65 | 6e 20 0d 20 20 20 20 20 |ast" the|n .     |
|0003d5e0| 20 73 65 74 20 74 68 65 | 20 6d 6f 76 69 65 74 69 | set the| movieti|
|0003d5f0| 6d 65 20 6f 66 20 73 70 | 72 69 74 65 20 31 36 20 |me of sp|rite 16 |
|0003d600| 3d 20 30 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |= 0.    |end if. |
|0003d610| 20 20 20 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |   .    |set the |
|0003d620| 6d 6f 76 69 65 72 61 74 | 65 20 6f 66 20 73 70 72 |movierat|e of spr|
|0003d630| 69 74 65 20 31 36 20 3d | 20 31 20 0d 20 20 20 20 |ite 16 =| 1 .    |
|0003d640| 73 65 74 20 74 68 65 20 | 63 61 73 74 6e 75 6d 20 |set the |castnum |
|0003d650| 6f 66 20 73 70 72 69 74 | 65 20 31 31 20 3d 20 76 |of sprit|e 11 = v|
|0003d660| 61 6c 75 65 28 69 74 65 | 6d 20 32 20 6f 66 20 67 |alue(ite|m 2 of g|
|0003d670| 51 54 42 75 74 74 6f 6e | 73 29 0d 20 20 20 20 73 |QTButton|s).    s|
|0003d680| 65 74 20 67 51 54 73 74 | 61 74 75 73 20 3d 20 31 |et gQTst|atus = 1|
|0003d690| 0d 20 20 65 6e 64 20 69 | 66 0d 65 6e 64 00 00 4b |.  end i|f.end..K|
|0003d6a0| 00 6f 02 30 02 5a 00 00 | 01 57 00 00 01 60 00 00 |.o.0.Z..|.W...`..|
|0003d6b0| 00 00 00 01 00 00 00 00 | 00 0b 00 09 00 04 00 00 |........|........|
|0003d6c0| 00 09 00 00 00 00 00 00 | 43 41 53 74 00 00 04 79 |........|CASt...y|
|0003d6d0| 00 04 00 00 04 6f 0b 00 | 00 03 00 00 00 14 00 c2 |.....o..|........|
|0003d6e0| eb a0 00 00 00 00 00 00 | 00 00 00 00 00 0b 00 07 |........|........|
|0003d6f0| 00 00 00 00 00 00 04 00 | 00 00 04 0f 00 00 04 0f |........|........|
|0003d700| 00 00 04 0f 00 00 04 0f | 00 00 04 23 00 00 04 39 |........|...#...9|
|0003d710| 2d 2d 20 6d 6f 64 69 66 | 69 65 64 20 74 6f 20 63 |-- modif|ied to c|
|0003d720| 6f 6d 70 61 72 65 20 6f | 6e 20 69 74 65 6d 20 31 |ompare o|n item 1|
|0003d730| 20 69 6e 73 74 65 61 64 | 20 6f 66 20 74 68 65 20 | instead| of the |
|0003d740| 77 68 6f 6c 65 20 6c 69 | 6e 65 0d 6f 6e 20 42 73 |whole li|ne.on Bs|
|0003d750| 65 61 72 63 68 20 73 74 | 72 2c 20 74 78 74 0d 20 |earch st|r, txt. |
|0003d760| 20 0d 20 20 73 65 74 20 | 74 78 74 20 3d 20 74 68 | .  set |txt = th|
|0003d770| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 61 73 74 |e number| of cast|
|0003d780| 20 74 78 74 0d 20 20 73 | 65 74 20 73 74 61 72 74 | txt.  s|et start|
|0003d790| 20 3d 20 31 0d 20 20 73 | 65 74 20 65 6e 64 20 3d | = 1.  s|et end =|
|0003d7a0| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 6c | the num|ber of l|
|0003d7b0| 69 6e 65 73 20 6f 66 20 | 66 69 65 6c 64 20 74 78 |ines of |field tx|
|0003d7c0| 74 20 20 0d 20 20 73 65 | 74 20 6d 69 64 64 6c 65 |t  .  se|t middle|
|0003d7d0| 20 3d 20 28 73 74 61 72 | 74 20 2b 20 65 6e 64 29 | = (star|t + end)|
|0003d7e0| 20 2f 20 32 20 20 0d 20 | 20 0d 20 20 2d 2d 70 75 | / 2  . | .  --pu|
|0003d7f0| 74 20 22 73 74 72 20 3d | 20 22 20 26 20 73 74 72 |t "str =| " & str|
|0003d800| 20 26 26 20 22 20 74 78 | 74 20 3d 20 22 20 26 26 | && " tx|t = " &&|
|0003d810| 20 74 78 74 0d 20 20 2d | 2d 20 62 73 65 61 72 63 | txt.  -|- bsearc|
|0003d820| 68 20 6d 65 63 68 61 6e | 69 73 6d 0d 20 20 2d 2d |h mechan|ism.  --|
|0003d830| 20 63 6f 6d 70 61 72 65 | 20 74 68 65 20 73 74 72 | compare| the str|
|0003d840| 20 74 6f 20 74 68 65 20 | 6d 69 64 64 6c 65 20 6c | to the |middle l|
|0003d850| 69 6e 65 20 6f 66 20 74 | 68 65 20 66 69 65 6c 64 |ine of t|he field|
|0003d860| 0d 20 20 2d 2d 20 69 66 | 20 73 74 72 20 3c 20 74 |.  -- if| str < t|
|0003d870| 68 65 20 6d 69 64 64 6c | 65 20 6c 69 6e 65 20 74 |he middl|e line t|
|0003d880| 68 65 6e 20 73 65 74 20 | 65 6e 64 20 74 6f 20 62 |hen set |end to b|
|0003d890| 65 20 74 68 65 20 6d 69 | 64 64 6c 65 0d 20 20 2d |e the mi|ddle.  -|
|0003d8a0| 2d 20 69 66 20 73 74 72 | 20 3e 20 6d 69 64 64 6c |- if str| > middl|
|0003d8b0| 65 20 74 68 65 6e 20 73 | 65 74 20 73 74 61 72 74 |e then s|et start|
|0003d8c0| 20 3d 20 6d 69 64 64 6c | 65 0d 20 20 2d 2d 20 69 | = middl|e.  -- i|
|0003d8d0| 66 20 73 74 72 20 3d 20 | 6d 69 64 64 6c 65 20 74 |f str = |middle t|
|0003d8e0| 68 65 6e 20 79 6f 75 27 | 72 65 20 73 65 74 0d 20 |hen you'|re set. |
|0003d8f0| 20 0d 20 20 72 65 70 65 | 61 74 20 77 68 69 6c 65 | .  repe|at while|
|0003d900| 20 73 74 72 20 3c 3e 20 | 69 74 65 6d 20 31 20 6f | str <> |item 1 o|
|0003d910| 66 20 6c 69 6e 65 20 6d | 69 64 64 6c 65 20 6f 66 |f line m|iddle of|
|0003d920| 20 66 69 65 6c 64 20 74 | 78 74 0d 20 20 20 20 0d | field t|xt.    .|
|0003d930| 20 20 20 20 0d 20 20 20 | 20 69 66 20 73 74 72 20 |    .   | if str |
|0003d940| 3d 20 69 74 65 6d 20 31 | 20 6f 66 20 6c 69 6e 65 |= item 1| of line|
|0003d950| 20 65 6e 64 20 6f 66 20 | 66 69 65 6c 64 20 74 78 | end of |field tx|
|0003d960| 74 20 74 68 65 6e 0d 20 | 20 20 20 20 20 72 65 74 |t then. |     ret|
|0003d970| 75 72 6e 20 65 6e 64 0d | 20 20 20 20 65 6e 64 20 |urn end.|    end |
|0003d980| 69 66 0d 20 20 20 20 0d | 20 20 20 20 69 66 20 73 |if.    .|    if s|
|0003d990| 74 61 72 74 20 3d 20 6d | 69 64 64 6c 65 20 74 68 |tart = m|iddle th|
|0003d9a0| 65 6e 0d 20 20 20 20 20 | 20 72 65 74 75 72 6e 20 |en.     | return |
|0003d9b0| 30 0d 20 20 20 20 65 6e | 64 20 69 66 20 0d 20 20 |0.    en|d if .  |
|0003d9c0| 20 20 0d 20 20 20 20 69 | 66 20 73 74 72 20 3c 20 |  .    i|f str < |
|0003d9d0| 69 74 65 6d 20 31 20 6f | 66 20 6c 69 6e 65 20 6d |item 1 o|f line m|
|0003d9e0| 69 64 64 6c 65 20 6f 66 | 20 66 69 65 6c 64 20 74 |iddle of| field t|
|0003d9f0| 78 74 20 74 68 65 6e 0d | 20 20 20 20 20 20 73 65 |xt then.|      se|
|0003da00| 74 20 65 6e 64 20 3d 20 | 6d 69 64 64 6c 65 0d 20 |t end = |middle. |
|0003da10| 20 20 20 65 6c 73 65 0d | 20 20 20 20 20 20 73 65 |   else.|      se|
|0003da20| 74 20 73 74 61 72 74 20 | 3d 20 6d 69 64 64 6c 65 |t start |= middle|
|0003da30| 0d 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |.    end| if.    |
|0003da40| 0d 20 20 20 20 0d 20 20 | 20 20 73 65 74 20 6d 69 |.    .  |  set mi|
|0003da50| 64 64 6c 65 20 3d 20 28 | 73 74 61 72 74 20 2b 20 |ddle = (|start + |
|0003da60| 65 6e 64 29 20 2f 20 32 | 20 20 0d 20 20 20 20 0d |end) / 2|  .    .|
|0003da70| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 0d |  end re|peat.  .|
|0003da80| 20 20 69 66 20 73 74 72 | 20 3d 20 69 74 65 6d 20 |  if str| = item |
|0003da90| 31 20 6f 66 20 6c 69 6e | 65 20 6d 69 64 64 6c 65 |1 of lin|e middle|
|0003daa0| 20 6f 66 20 66 69 65 6c | 64 20 74 78 74 20 74 68 | of fiel|d txt th|
|0003dab0| 65 6e 0d 20 20 20 20 2d | 2d 61 6c 65 72 74 20 73 |en.    -|-alert s|
|0003dac0| 74 72 69 6e 67 28 6d 69 | 64 64 6c 65 29 20 20 20 |tring(mi|ddle)   |
|0003dad0| 20 0d 20 20 20 20 72 65 | 74 75 72 6e 20 6d 69 64 | .    re|turn mid|
|0003dae0| 64 6c 65 0d 20 20 65 6c | 73 65 0d 20 20 20 20 72 |dle.  el|se.    r|
|0003daf0| 65 74 75 72 6e 20 30 0d | 20 20 65 6e 64 20 69 66 |eturn 0.|  end if|
|0003db00| 0d 20 20 0d 65 6e 64 20 | 42 73 65 61 72 63 68 20 |.  .end |Bsearch |
|0003db10| 0e 62 73 65 61 72 63 68 | 20 73 63 72 69 70 74 00 |.bsearch| script.|
|0003db20| 6e 00 6e 01 c0 02 66 00 | 00 03 f8 00 00 03 ff 00 |n.n...f.|........|
|0003db30| 00 00 00 00 01 00 00 00 | 00 00 0b 00 09 00 04 00 |........|........|
|0003db40| 00 00 09 00 00 00 00 00 | 00 00 43 41 53 74 00 00 |........|..CASt..|
|0003db50| 00 7e 00 1e 00 00 00 5a | 03 00 00 0a 00 00 00 01 |.~.....Z|........|
|0003db60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 10 00 82 |........|........|
|0003db70| 00 10 00 00 00 10 00 00 | 00 14 00 00 00 00 00 00 |........|........|
|0003db80| 00 00 00 00 00 00 00 00 | 00 00 00 08 00 00 00 00 |........|........|
|0003db90| 00 00 00 00 00 00 00 0c | 00 00 00 0c 00 00 00 0c |........|........|
|0003dba0| 00 00 00 0c 00 00 00 0c | 00 00 00 0c 00 00 00 20 |........|....... |
|0003dbb0| 0b 73 65 63 74 69 6f 6e | 4e 61 6d 65 00 c4 00 cc |.section|Name....|
|0003dbc0| 01 5a 02 2a 00 00 00 00 | 00 00 00 00 00 4a 39 90 |.Z.*....|.....J9.|
|0003dbd0| 43 41 53 74 00 00 00 b0 | 00 1c 00 00 00 8e 01 00 |CASt....|........|
|0003dbe0| 80 2e 00 00 00 05 00 2d | 00 32 00 00 00 05 00 2d |.......-|.2.....-|
|0003dbf0| 00 32 00 16 00 1b 00 08 | 00 01 00 00 00 14 00 c2 |.2......|........|
|0003dc00| eb 54 00 00 00 00 00 00 | 00 00 00 00 00 1e 00 07 |.T......|........|
|0003dc10| 00 00 00 00 00 00 00 1d | 00 00 00 2e 00 00 00 2e |........|........|
|0003dc20| 00 00 00 2e 00 00 00 2e | 00 00 00 42 00 00 00 58 |........|...B...X|
|0003dc30| 6f 6e 20 6d 6f 75 73 65 | 64 6f 77 6e 0d 20 20 53 |on mouse|down.  S|
|0003dc40| 68 6f 77 4e 75 67 67 65 | 74 0d 65 6e 64 10 64 69 |howNugge|t.end.di|
|0003dc50| 73 63 6f 76 65 72 2d 6e | 75 67 67 65 74 31 00 70 |scover-n|ugget1.p|
|0003dc60| 00 5d 01 06 01 bb 00 00 | 00 00 00 00 00 0c 01 70 |.]......|.......p|
|0003dc70| 00 5d 00 01 00 00 00 00 | 00 0b 00 09 00 04 00 00 |.]......|........|
|0003dc80| 00 09 00 00 00 00 00 00 | 43 41 53 74 00 00 00 a7 |........|CASt....|
|0003dc90| 00 1c 00 00 00 85 01 00 | 80 24 00 3b 00 05 00 5d |........|.$.;...]|
|0003dca0| 00 28 00 3b 00 05 00 5d | 00 28 00 4c 00 16 00 08 |.(.;...]|.(.L....|
|0003dcb0| 00 01 00 00 00 14 00 c2 | eb 50 00 00 00 00 00 00 |........|.P......|
|0003dcc0| 00 00 00 00 00 1f 00 07 | 00 00 00 00 00 00 00 1d |........|........|
|0003dcd0| 00 00 00 25 00 00 00 25 | 00 00 00 25 00 00 00 25 |...%...%|...%...%|
|0003dce0| 00 00 00 39 00 00 00 4f | 6f 6e 20 6d 6f 75 73 65 |...9...O|on mouse|
|0003dcf0| 64 6f 77 6e 0d 20 20 53 | 68 6f 77 4e 75 67 67 65 |down.  S|howNugge|
|0003dd00| 74 0d 65 6e 64 07 6e 75 | 67 67 65 74 32 00 84 00 |t.end.nu|gget2...|
|0003dd10| 71 01 1a 01 cf 00 00 00 | 00 00 00 00 0c 01 84 00 |q.......|........|
|0003dd20| 71 00 01 00 00 00 00 00 | 0b 00 09 00 04 00 00 00 |q.......|........|
|0003dd30| 09 00 00 00 00 00 00 74 | 43 41 53 74 00 00 00 a7 |.......t|CASt....|
|0003dd40| 00 1c 00 00 00 85 01 00 | 80 28 00 63 00 05 00 89 |........|.(.c....|
|0003dd50| 00 2c 00 63 00 05 00 89 | 00 2c 00 76 00 18 00 08 |.,.c....|.,.v....|
|0003dd60| 00 01 00 00 00 14 00 c2 | eb 4c 00 00 00 00 00 00 |........|.L......|
|0003dd70| 00 00 00 00 00 20 00 07 | 00 00 00 00 00 00 00 1d |..... ..|........|
|0003dd80| 00 00 00 25 00 00 00 25 | 00 00 00 25 00 00 00 25 |...%...%|...%...%|
|0003dd90| 00 00 00 39 00 00 00 4f | 6f 6e 20 6d 6f 75 73 65 |...9...O|on mouse|
|0003dda0| 64 6f 77 6e 0d 20 20 53 | 68 6f 77 4e 75 67 67 65 |down.  S|howNugge|
|0003ddb0| 74 0d 65 6e 64 07 6e 75 | 67 67 65 74 33 00 98 00 |t.end.nu|gget3...|
|0003ddc0| 85 01 2e 01 e3 00 00 00 | 00 00 00 00 0c 01 98 00 |........|........|
|0003ddd0| 85 00 01 00 00 00 00 00 | 0b 00 09 00 04 00 00 00 |........|........|
|0003dde0| 09 00 00 00 00 00 00 74 | 43 41 53 74 00 00 00 a7 |.......t|CASt....|
|0003ddf0| 00 1c 00 00 00 85 01 00 | 80 24 00 8e 00 08 00 b3 |........|.$......|
|0003de00| 00 2b 00 8e 00 08 00 b3 | 00 2b 00 a0 00 19 00 08 |.+......|.+......|
|0003de10| 00 01 00 00 00 14 00 c2 | eb 48 00 00 00 00 00 00 |........|.H......|
|0003de20| 00 00 00 00 00 21 00 07 | 00 00 00 00 00 00 00 1d |.....!..|........|
|0003de30| 00 00 00 25 00 00 00 25 | 00 00 00 25 00 00 00 25 |...%...%|...%...%|
|0003de40| 00 00 00 39 00 00 00 4f | 6f 6e 20 6d 6f 75 73 65 |...9...O|on mouse|
|0003de50| 64 6f 77 6e 0d 20 20 53 | 68 6f 77 4e 75 67 67 65 |down.  S|howNugge|
|0003de60| 74 0d 65 6e 64 07 6e 75 | 67 67 65 74 34 00 ac 00 |t.end.nu|gget4...|
|0003de70| 99 01 42 01 f7 00 00 00 | 00 00 00 00 0c 01 ac 00 |..B.....|........|
|0003de80| 99 00 01 00 00 00 00 00 | 0b 00 09 00 04 00 00 00 |........|........|
|0003de90| 09 00 00 00 00 00 00 74 | 43 41 53 74 00 00 00 a7 |.......t|CASt....|
|0003dea0| 00 1c 00 00 00 85 01 00 | 80 28 00 bc 00 08 00 e3 |........|.(......|
|0003deb0| 00 30 00 bc 00 08 00 e3 | 00 30 00 cf 00 1c 00 08 |.0......|.0......|
|0003dec0| 00 01 00 00 00 14 00 c2 | eb 44 00 00 00 00 00 00 |........|.D......|
|0003ded0| 00 00 00 00 00 22 00 07 | 00 00 00 00 00 00 00 1d |....."..|........|
|0003dee0| 00 00 00 25 00 00 00 25 | 00 00 00 25 00 00 00 25 |...%...%|...%...%|
|0003def0| 00 00 00 39 00 00 00 4f | 6f 6e 20 6d 6f 75 73 65 |...9...O|on mouse|
|0003df00| 64 6f 77 6e 0d 20 20 53 | 68 6f 77 4e 75 67 67 65 |down.  S|howNugge|
|0003df10| 74 0d 65 6e 64 07 6e 75 | 67 67 65 74 35 00 c0 00 |t.end.nu|gget5...|
|0003df20| ad 01 56 02 0b 00 00 00 | 00 00 00 00 0c 01 c0 00 |..V.....|........|
|0003df30| ad 00 01 00 00 00 00 00 | 0b 00 09 00 04 00 00 00 |........|........|
|0003df40| 09 00 00 00 00 00 00 74 | 6a 75 6e 6b 00 00 00 24 |.......t|junk...$|
|0003df50| 0b 00 00 00 00 00 00 00 | 0c 01 c0 00 ad 00 01 00 |........|........|
|0003df60| 00 00 00 00 0b 00 09 00 | 04 00 00 00 09 00 00 00 |........|........|
|0003df70| 00 00 00 ff 53 54 58 54 | 00 00 00 22 00 00 00 0c |....STXT|..."....|
|0003df80| 00 00 00 00 00 00 00 16 | 00 01 00 00 00 00 00 10 |........|........|
|0003df90| 00 0c 03 e9 00 00 00 00 | 00 00 00 00 00 00 43 41 |........|......CA|
|0003dfa0| 53 74 00 00 00 72 00 1e | 00 00 00 4e 03 00 01 00 |St...r..|...N....|
|0003dfb0| 00 00 00 00 ff ff ff ff | ff ff 00 00 00 00 00 00 |........|........|
|0003dfc0| 00 10 00 66 00 10 00 00 | 00 10 00 00 00 14 00 00 |...f....|........|
|0003dfd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 08 |........|........|
|0003dfe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0003dff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|0003e000| 00 00 00 14 00 47 00 46 | 00 dd 01 a4 00 00 00 0c |.....G.F|........|
|0003e010| 00 00 00 0c 00 f2 e3 28 | 43 41 53 74 00 00 00 83 |.......(|CASt....|
|0003e020| 00 1e 00 00 00 5f 03 00 | 00 00 00 00 00 00 ff ff |....._..|........|
|0003e030| ff ff ff ff 00 00 00 00 | 00 00 0b d0 02 2c 0b d0 |........|.....,..|
|0003e040| 00 00 0b d0 00 00 00 14 | 00 00 00 00 00 00 00 00 |........|........|
|0003e050| 00 00 00 00 00 00 00 00 | 00 08 00 00 00 00 00 00 |........|........|
|0003e060| 00 00 00 00 00 11 00 00 | 00 11 00 00 00 11 00 00 |........|........|
|0003e070| 00 11 00 00 00 11 00 00 | 00 11 00 00 00 25 10 4d |........|.....%.M|
|0003e080| 61 6b 65 72 73 53 74 72 | 61 70 6c 69 6e 65 73 00 |akersStr|aplines.|
|0003e090| 7d 00 c1 01 e7 02 6d 00 | 00 1a 75 00 00 1a 75 00 |}.....m.|..u...u.|
|0003e0a0| 32 00 4c 0a 53 54 58 54 | 00 00 00 3e 00 00 00 0c |2.L.STXT|...>....|
|0003e0b0| 00 00 00 1c 00 00 00 16 | 49 4e 54 52 4f 44 55 43 |........|INTRODUC|
|0003e0c0| 54 49 4f 4e 0d 54 48 45 | 20 4b 45 59 20 54 4f 20 |TION.THE| KEY TO |
|0003e0d0| 4c 49 46 45 00 01 00 00 | 00 00 00 0c 00 0a 03 e9 |LIFE....|........|
|0003e0e0| 01 00 00 09 00 00 00 00 | 00 00 6a 75 6e 6b 00 00 |........|..junk..|
|0003e0f0| 00 02 00 00 53 54 58 54 | 00 00 00 27 00 00 00 0c |....STXT|...'....|
|0003e100| 00 00 00 05 00 00 00 16 | 50 4f 57 45 52 00 01 00 |........|POWER...|
|0003e110| 00 00 00 00 10 00 0c 03 | e9 00 00 00 0c 00 00 00 |........|........|
|0003e120| 00 00 00 04 43 41 53 74 | 00 00 00 a7 00 1c 00 00 |....CASt|........|
|0003e130| 00 85 01 00 80 2e 00 e8 | 00 00 01 16 00 2d 00 e8 |........|.....-..|
|0003e140| 00 00 01 16 00 2d 00 ff | 00 16 00 08 00 01 00 00 |.....-..|........|
|0003e150| 00 14 00 c2 eb 40 00 00 | 00 00 00 00 00 00 00 00 |.....@..|........|
|0003e160| 00 23 00 07 00 00 00 00 | 00 00 00 1d 00 00 00 25 |.#......|.......%|
|0003e170| 00 00 00 25 00 00 00 25 | 00 00 00 25 00 00 00 39 |...%...%|...%...9|
|0003e180| 00 00 00 4f 6f 6e 20 6d | 6f 75 73 65 64 6f 77 6e |...Oon m|ousedown|
|0003e190| 0d 20 20 53 68 6f 77 4e | 75 67 67 65 74 0d 65 6e |.  ShowN|ugget.en|
|0003e1a0| 64 07 6e 75 67 67 65 74 | 36 00 d4 00 c1 01 6a 02 |d.nugget|6.....j.|
|0003e1b0| 1f 00 00 00 00 00 00 00 | 0c 01 d4 00 c1 00 01 00 |........|........|
|0003e1c0| 00 00 00 00 0b 00 09 00 | 04 00 00 00 09 00 00 00 |........|........|
|0003e1d0| 00 00 00 00 43 41 53 74 | 00 00 01 68 00 04 00 00 |....CASt|...h....|
|0003e1e0| 01 5e 0b 00 00 03 00 00 | 00 14 00 c2 eb c8 00 00 |.^......|........|
|0003e1f0| 00 00 00 00 00 00 00 00 | 00 01 00 07 00 00 00 00 |........|........|
|0003e200| 00 00 00 fe 00 00 00 fe | 00 00 00 fe 00 00 00 fe |........|........|
|0003e210| 00 00 00 fe 00 00 01 12 | 00 00 01 28 6f 6e 20 52 |........|...(on R|
|0003e220| 65 62 75 69 6c 64 49 6e | 64 65 78 20 20 0d 20 20 |ebuildIn|dex  .  |
|0003e230| 67 6c 6f 62 61 6c 20 67 | 6d 61 6b 65 72 6e 61 6d |global g|makernam|
|0003e240| 65 0d 20 20 0d 20 20 70 | 75 70 70 65 74 73 6f 75 |e.  .  p|uppetsou|
|0003e250| 6e 64 20 22 63 6c 69 63 | 6b 22 0d 20 20 75 70 64 |nd "clic|k".  upd|
|0003e260| 61 74 65 73 74 61 67 65 | 0d 20 20 0d 20 20 2d 2d |atestage|.  .  --|
|0003e270| 73 65 74 20 74 6d 70 20 | 3d 20 62 73 65 61 72 63 |set tmp |= bsearc|
|0003e280| 68 28 67 6d 61 6b 65 72 | 6e 61 6d 65 2c 22 4d 61 |h(gmaker|name,"Ma|
|0003e290| 6b 65 72 4c 69 73 74 22 | 29 20 0d 20 20 2d 2d 70 |kerList"|) .  --p|
|0003e2a0| 72 6f 63 65 73 73 70 65 | 72 73 6f 6e 20 28 69 74 |rocesspe|rson (it|
|0003e2b0| 65 6d 20 33 20 6f 66 20 | 6c 69 6e 65 20 74 6d 70 |em 3 of |line tmp|
|0003e2c0| 20 6f 66 20 66 69 65 6c | 64 20 22 4d 61 6b 65 72 | of fiel|d "Maker|
|0003e2d0| 46 69 6c 65 4e 61 6d 65 | 73 22 29 0d 20 20 0d 20 |FileName|s").  . |
|0003e2e0| 20 70 72 6f 63 65 73 73 | 70 65 72 73 6f 6e 28 67 | process|person(g|
|0003e2f0| 4d 61 6b 65 72 6e 61 6d | 65 29 0d 20 20 67 6f 20 |Makernam|e).  go |
|0003e300| 74 6f 20 66 72 61 6d 65 | 20 22 64 61 74 61 62 61 |to frame| "databa|
|0003e310| 73 65 22 0d 20 20 0d 65 | 6e 64 00 ac 00 37 02 21 |se".  .e|nd...7.!|
|0003e320| 02 b2 00 00 00 c9 00 00 | 00 c9 00 00 00 00 00 01 |........|........|
|0003e330| 00 00 00 00 00 0b 00 09 | 00 04 00 00 00 09 00 00 |........|........|
|0003e340| 00 00 00 00 43 41 53 74 | 00 00 00 ac 00 1c 00 00 |....CASt|........|
|0003e350| 00 8a 01 00 80 2e 00 00 | 00 05 00 2d 00 32 00 00 |........|...-.2..|
|0003e360| 00 05 00 2d 00 32 00 16 | 00 1b 00 08 00 01 00 00 |...-.2..|........|
|0003e370| 00 14 00 c2 eb 3c 00 00 | 00 00 00 00 00 00 00 00 |.....<..|........|
|0003e380| 00 24 00 07 00 00 00 00 | 00 00 00 1d 00 00 00 2a |.$......|.......*|
|0003e390| 00 00 00 2a 00 00 00 2a | 00 00 00 2a 00 00 00 3e |...*...*|...*...>|
|0003e3a0| 00 00 00 54 6f 6e 20 6d | 6f 75 73 65 64 6f 77 6e |...Ton m|ousedown|
|0003e3b0| 0d 20 20 53 68 6f 77 4e | 75 67 67 65 74 0d 65 6e |.  ShowN|ugget.en|
|0003e3c0| 64 0c 6d 69 6e 64 2d 6e | 75 67 67 65 74 31 00 70 |d.mind-n|ugget1.p|
|0003e3d0| 00 5d 01 06 01 bb 00 00 | 00 00 00 00 00 0c 01 70 |.]......|.......p|
|0003e3e0| 00 5d 00 01 00 00 00 00 | 00 0b 00 09 00 04 00 00 |.]......|........|
|0003e3f0| 00 09 00 00 00 00 00 00 | 43 41 53 74 00 00 00 a7 |........|CASt....|
|0003e400| 00 1c 00 00 00 85 01 00 | 80 24 00 3b 00 05 00 5d |........|.$.;...]|
|0003e410| 00 28 00 3b 00 05 00 5d | 00 28 00 4c 00 16 00 08 |.(.;...]|.(.L....|
|0003e420| 00 01 00 00 00 14 00 c2 | eb 38 00 00 00 00 00 00 |........|.8......|
|0003e430| 00 00 00 00 00 25 00 07 | 00 00 00 00 00 00 00 1d |.....%..|........|
|0003e440| 00 00 00 25 00 00 00 25 | 00 00 00 25 00 00 00 25 |...%...%|...%...%|
|0003e450| 00 00 00 39 00 00 00 4f | 6f 6e 20 6d 6f 75 73 65 |...9...O|on mouse|
|0003e460| 64 6f 77 6e 0d 20 20 53 | 68 6f 77 4e 75 67 67 65 |down.  S|howNugge|
|0003e470| 74 0d 65 6e 64 07 6e 75 | 67 67 65 74 32 00 84 00 |t.end.nu|gget2...|
|0003e480| 71 01 1a 01 cf 00 00 00 | 00 00 00 00 0c 01 84 00 |q.......|........|
|0003e490| 71 00 01 00 00 00 00 00 | 0b 00 09 00 04 00 00 00 |q.......|........|
|0003e4a0| 09 00 00 00 00 00 00 00 | 43 41 53 74 00 00 00 a7 |........|CASt....|
|0003e4b0| 00 1c 00 00 00 85 01 00 | 80 28 00 63 00 05 00 89 |........|.(.c....|
|0003e4c0| 00 2c 00 63 00 05 00 89 | 00 2c 00 76 00 18 00 08 |.,.c....|.,.v....|
|0003e4d0| 00 01 00 00 00 14 00 c2 | eb 34 00 00 00 00 00 00 |........|.4......|
|0003e4e0| 00 00 00 00 00 26 00 07 | 00 00 00 00 00 00 00 1d |.....&..|........|
|0003e4f0| 00 00 00 25 00 00 00 25 | 00 00 00 25 00 00 00 25 |...%...%|...%...%|
|0003e500| 00 00 00 39 00 00 00 4f | 6f 6e 20 6d 6f 75 73 65 |...9...O|on mouse|
|0003e510| 64 6f 77 6e 0d 20 20 53 | 68 6f 77 4e 75 67 67 65 |down.  S|howNugge|
|0003e520| 74 0d 65 6e 64 07 6e 75 | 67 67 65 74 33 00 98 00 |t.end.nu|gget3...|
|0003e530| 85 01 2e 01 e3 00 00 00 | 00 00 00 00 0c 01 98 00 |........|........|
|0003e540| 85 00 01 00 00 00 00 00 | 0b 00 09 00 04 00 00 00 |........|........|
|0003e550| 09 00 00 00 00 00 00 00 | 43 41 53 74 00 00 00 a7 |........|CASt....|
|0003e560| 00 1c 00 00 00 85 01 00 | 80 24 00 8e 00 08 00 b3 |........|.$......|
|0003e570| 00 2b 00 8e 00 08 00 b3 | 00 2b 00 a0 00 19 00 08 |.+......|.+......|
|0003e580| 00 01 00 00 00 14 00 c2 | eb 30 00 00 00 00 00 00 |........|.0......|
|0003e590| 00 00 00 00 00 27 00 07 | 00 00 00 00 00 00 00 1d |.....'..|........|
|0003e5a0| 00 00 00 25 00 00 00 25 | 00 00 00 25 00 00 00 25 |...%...%|...%...%|
|0003e5b0| 00 00 00 39 00 00 00 4f | 6f 6e 20 6d 6f 75 73 65 |...9...O|on mouse|
|0003e5c0| 64 6f 77 6e 0d 20 20 53 | 68 6f 77 4e 75 67 67 65 |down.  S|howNugge|
|0003e5d0| 74 0d 65 6e 64 07 6e 75 | 67 67 65 74 34 00 ac 00 |t.end.nu|gget4...|
|0003e5e0| 99 01 42 01 f7 00 00 00 | 00 00 00 00 0c 01 ac 00 |..B.....|........|
|0003e5f0| 99 00 01 00 00 00 00 00 | 0b 00 09 00 04 00 00 00 |........|........|
|0003e600| 09 00 00 00 00 00 00 0d | 43 41 53 74 00 00 00 7c |........|CASt...||
|0003e610| 00 1e 00 00 00 58 03 00 | 00 00 00 00 00 00 ff ff |.....X..|........|
|0003e620| ff ff ff ff 00 00 00 00 | 00 00 00 10 01 a6 00 10 |........|........|
|0003e630| 00 00 00 10 00 00 00 14 | 00 00 00 00 00 00 00 00 |........|........|
|0003e640| 00 00 00 00 00 00 00 00 | 00 08 00 00 00 00 00 00 |........|........|
|0003e650| 00 00 00 00 00 0a 00 00 | 00 0a 00 00 00 0a 00 00 |........|........|
|0003e660| 00 0a 00 00 00 0a 00 00 | 00 0a 00 00 00 1e 09 70 |........|.......p|
|0003e670| 61 72 73 65 2d 74 6d 70 | 00 2b 00 3b 01 a6 02 40 |arse-tmp|.+.;...@|
|0003e680| 00 00 00 00 00 00 00 00 | 00 78 3f 48 53 54 58 54 |........|.x?HSTXT|
|0003e690| 00 00 00 28 00 00 00 0c | 00 00 00 06 00 00 00 16 |...(....|........|
|0003e6a0| 44 45 53 49 47 4e 00 01 | 00 00 00 00 00 10 00 0c |DESIGN..|........|
|0003e6b0| 03 e9 00 00 00 0c 00 00 | 00 00 00 00 53 54 58 54 |........|....STXT|
|0003e6c0| 00 00 00 28 00 00 00 0c | 00 00 00 06 00 00 00 16 |...(....|........|
|0003e6d0| 53 45 4e 53 45 53 00 01 | 00 00 00 00 00 10 00 0c |SENSES..|........|
|0003e6e0| 03 e9 00 00 00 0c 00 00 | 00 00 00 00 43 41 53 74 |........|....CASt|
|0003e6f0| 00 00 00 a7 00 1c 00 00 | 00 85 01 00 80 28 00 bc |........|.....(..|
|0003e700| 00 08 00 e3 00 30 00 bc | 00 08 00 e3 00 30 00 cf |.....0..|.....0..|
|0003e710| 00 1c 00 08 00 01 00 00 | 00 14 00 c2 eb 2c 00 00 |........|.....,..|
|0003e720| 00 00 00 00 00 00 00 00 | 00 28 00 07 00 00 00 00 |........|.(......|
|0003e730| 00 00 00 1d 00 00 00 25 | 00 00 00 25 00 00 00 25 |.......%|...%...%|
|0003e740| 00 00 00 25 00 00 00 39 | 00 00 00 4f 6f 6e 20 6d |...%...9|...Oon m|
|0003e750| 6f 75 73 65 64 6f 77 6e | 0d 20 20 53 68 6f 77 4e |ousedown|.  ShowN|
|0003e760| 75 67 67 65 74 0d 65 6e | 64 07 6e 75 67 67 65 74 |ugget.en|d.nugget|
|0003e770| 35 00 c0 00 ad 01 56 02 | 0b 00 00 00 00 00 00 00 |5.....V.|........|
|0003e780| 0c 01 c0 00 ad 00 01 00 | 00 00 00 00 0b 00 09 00 |........|........|
|0003e790| 04 00 00 00 09 00 00 00 | 00 00 00 00 43 41 53 74 |........|....CASt|
|0003e7a0| 00 00 00 7c 00 1e 00 00 | 00 58 03 00 00 00 00 00 |...|....|.X......|
|0003e7b0| 00 00 ff ff ff ff ff ff | 00 00 00 00 00 00 00 10 |........|........|
|0003e7c0| 01 a6 00 10 00 00 00 10 | 00 00 00 14 00 00 00 00 |........|........|
|0003e7d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 08 00 00 |........|........|
|0003e7e0| 00 00 00 00 00 00 00 00 | 00 0a 00 00 00 0a 00 00 |........|........|
|0003e7f0| 00 0a 00 00 00 0a 00 00 | 00 0a 00 00 00 0a 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
Only 250.0 KB of data is shown above.