/ 1&1 Multimedia Trend 1996 10 B / MM_TREND.ISO / prog / t-online / shared.dir

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 58 46 49 52 52 4d 10 00 | 33 39 56 4d 70 61 6d 69 |XFIRRM..|39VMpami|
|00000010| 18 00 00 00 01 00 00 00 | fa 0f 08 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 2a 59 45 4b |........|....*YEK|
|00000030| 14 07 00 00 0c 00 0c 00 | 96 00 00 00 8f 00 00 00 |........|........|
|00000040| 50 00 00 00 0a 00 00 00 | 44 54 49 42 11 00 00 00 |P.......|DTIB....|
|00000050| 0d 00 00 00 44 54 49 42 | 75 00 00 00 14 00 00 00 |....DTIB|u.......|
|00000060| 44 54 49 42 bf 00 00 00 | 1c 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000070| 92 00 00 00 1d 00 00 00 | 44 54 49 42 5c 00 00 00 |........|DTIB\...|
|00000080| 1f 00 00 00 44 54 49 42 | 36 00 00 00 20 00 00 00 |....DTIB|6... ...|
|00000090| 44 54 49 42 6c 00 00 00 | 21 00 00 00 44 54 49 42 |DTIBl...|!...DTIB|
|000000a0| 55 00 00 00 22 00 00 00 | 44 54 49 42 29 00 00 00 |U..."...|DTIB)...|
|000000b0| 23 00 00 00 44 54 49 42 | 37 00 00 00 24 00 00 00 |#...DTIB|7...$...|
|000000c0| 44 54 49 42 2d 00 00 00 | 2b 00 00 00 44 54 49 42 |DTIB-...|+...DTIB|
|000000d0| 42 01 00 00 2e 00 00 00 | 44 54 49 42 a4 00 00 00 |B.......|DTIB....|
|000000e0| 2f 00 00 00 44 54 49 42 | 31 00 00 00 30 00 00 00 |/...DTIB|1...0...|
|000000f0| 44 54 49 42 ce 00 00 00 | 34 00 00 00 44 54 49 42 |DTIB....|4...DTIB|
|00000100| 1a 00 00 00 38 00 00 00 | 44 54 49 42 78 00 00 00 |....8...|DTIBx...|
|00000110| 3b 00 00 00 44 54 49 42 | 3f 00 00 00 3e 00 00 00 |;...DTIB|?...>...|
|00000120| 44 54 49 42 6b 00 00 00 | 43 00 00 00 44 54 49 42 |DTIBk...|C...DTIB|
|00000130| 39 00 00 00 44 00 00 00 | 44 54 49 42 ba 01 00 00 |9...D...|DTIB....|
|00000140| 47 00 00 00 44 54 49 42 | 07 00 00 00 48 00 00 00 |G...DTIB|....H...|
|00000150| 44 54 49 42 1e 00 00 00 | 4d 00 00 00 44 54 49 42 |DTIB....|M...DTIB|
|00000160| 3d 00 00 00 4f 00 00 00 | 44 54 49 42 63 00 00 00 |=...O...|DTIBc...|
|00000170| 53 00 00 00 44 54 49 42 | 57 00 00 00 56 00 00 00 |S...DTIB|W...V...|
|00000180| 44 54 49 42 c1 00 00 00 | 59 00 00 00 44 54 49 42 |DTIB....|Y...DTIB|
|00000190| 79 00 00 00 5e 00 00 00 | 44 54 49 42 5b 00 00 00 |y...^...|DTIB[...|
|000001a0| 5e 00 00 00 4d 55 48 54 | 61 00 00 00 60 00 00 00 |^...MUHT|a...`...|
|000001b0| 44 54 49 42 6f 00 00 00 | 62 00 00 00 44 54 49 42 |DTIBo...|b...DTIB|
|000001c0| 74 00 00 00 65 00 00 00 | 44 54 49 42 68 00 00 00 |t...e...|DTIBh...|
|000001d0| 67 00 00 00 44 54 49 42 | 6a 00 00 00 69 00 00 00 |g...DTIB|j...i...|
|000001e0| 44 54 49 42 15 00 00 00 | 6e 00 00 00 44 54 49 42 |DTIB....|n...DTIB|
|000001f0| 3a 00 00 00 70 00 00 00 | 44 54 49 42 7e 00 00 00 |:...p...|DTIB~...|
|00000200| 72 00 00 00 44 54 49 42 | 81 00 00 00 76 00 00 00 |r...DTIB|....v...|
|00000210| 44 54 49 42 8d 00 00 00 | 7a 00 00 00 44 54 49 42 |DTIB....|z...DTIB|
|00000220| 9b 00 00 00 7b 00 00 00 | 44 54 49 42 80 00 00 00 |....{...|DTIB....|
|00000230| 7d 00 00 00 44 54 49 42 | d1 00 00 00 7f 00 00 00 |}...DTIB|........|
|00000240| 44 54 49 42 87 00 00 00 | 82 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000250| 84 00 00 00 83 00 00 00 | 44 54 49 42 86 00 00 00 |........|DTIB....|
|00000260| 85 00 00 00 44 54 49 42 | 33 00 00 00 88 00 00 00 |....DTIB|3.......|
|00000270| 44 54 49 42 58 00 00 00 | 8a 00 00 00 44 54 49 42 |DTIBX...|....DTIB|
|00000280| 11 01 00 00 8b 00 00 00 | 44 54 49 42 38 01 00 00 |........|DTIB8...|
|00000290| 8c 00 00 00 20 64 6e 73 | a2 01 00 00 8f 00 00 00 |.... dns|........|
|000002a0| 44 54 49 42 5f 00 00 00 | 90 00 00 00 44 54 49 42 |DTIB_...|....DTIB|
|000002b0| 96 00 00 00 97 00 00 00 | 44 54 49 42 8e 00 00 00 |........|DTIB....|
|000002c0| 98 00 00 00 44 54 49 42 | 51 01 00 00 9a 00 00 00 |....DTIB|Q.......|
|000002d0| 44 54 49 42 a3 00 00 00 | 9c 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|000002e0| 99 00 00 00 9d 00 00 00 | 44 54 49 42 ad 00 00 00 |........|DTIB....|
|000002f0| a0 00 00 00 44 54 49 42 | 73 00 00 00 a5 00 00 00 |....DTIB|s.......|
|00000300| 44 54 49 42 ec 00 00 00 | a6 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000310| ba 00 00 00 a7 00 00 00 | 44 54 49 42 a8 00 00 00 |........|DTIB....|
|00000320| a9 00 00 00 44 54 49 42 | 3c 00 00 00 aa 00 00 00 |....DTIB|<.......|
|00000330| 44 54 49 42 ac 00 00 00 | ab 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000340| f2 00 00 00 af 00 00 00 | 44 54 49 42 b2 00 00 00 |........|DTIB....|
|00000350| b0 00 00 00 44 54 49 42 | 1a 01 00 00 b1 00 00 00 |....DTIB|........|
|00000360| 44 54 49 42 b9 00 00 00 | b3 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000370| ae 00 00 00 b5 00 00 00 | 44 54 49 42 c9 00 00 00 |........|DTIB....|
|00000380| b6 00 00 00 20 64 6e 73 | 19 00 00 00 b7 00 00 00 |.... dns|........|
|00000390| 44 54 49 42 f9 00 00 00 | bb 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|000003a0| c3 00 00 00 bc 00 00 00 | 44 54 49 42 c7 00 00 00 |........|DTIB....|
|000003b0| be 00 00 00 44 54 49 42 | a2 00 00 00 c2 00 00 00 |....DTIB|........|
|000003c0| 20 64 6e 73 24 01 00 00 | c4 00 00 00 44 54 49 42 | dns$...|....DTIB|
|000003d0| ca 00 00 00 c5 00 00 00 | 44 54 49 42 ee 00 00 00 |........|DTIB....|
|000003e0| c6 00 00 00 44 54 49 42 | d0 00 00 00 c8 00 00 00 |....DTIB|........|
|000003f0| 44 54 49 42 cb 00 00 00 | cc 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000400| a5 01 00 00 cf 00 00 00 | 44 54 49 42 93 00 00 00 |........|DTIB....|
|00000410| d4 00 00 00 44 54 49 42 | d6 00 00 00 d5 00 00 00 |....DTIB|........|
|00000420| 44 54 49 42 d8 00 00 00 | d7 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000430| de 00 00 00 d9 00 00 00 | 44 54 49 42 dc 00 00 00 |........|DTIB....|
|00000440| da 00 00 00 44 54 49 42 | c0 00 00 00 db 00 00 00 |....DTIB|........|
|00000450| 44 54 49 42 26 01 00 00 | df 00 00 00 44 54 49 42 |DTIB&...|....DTIB|
|00000460| f8 00 00 00 e0 00 00 00 | 44 54 49 42 e9 00 00 00 |........|DTIB....|
|00000470| e8 00 00 00 44 54 49 42 | 9e 00 00 00 ea 00 00 00 |....DTIB|........|
|00000480| 44 54 49 42 ef 00 00 00 | ed 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000490| f3 00 00 00 f0 00 00 00 | 44 54 49 42 0c 01 00 00 |........|DTIB....|
|000004a0| f1 00 00 00 44 54 49 42 | fb 00 00 00 f4 00 00 00 |....DTIB|........|
|000004b0| 44 54 49 42 18 00 00 00 | f5 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|000004c0| 37 01 00 00 f6 00 00 00 | 44 54 49 42 c7 01 00 00 |7.......|DTIB....|
|000004d0| f6 00 00 00 4d 55 48 54 | bf 01 00 00 f7 00 00 00 |....MUHT|........|
|000004e0| 44 54 49 42 02 01 00 00 | fc 00 00 00 44 54 49 42 |DTIB....|....DTIB|
|000004f0| 0f 01 00 00 fe 00 00 00 | 44 54 49 42 28 01 00 00 |........|DTIB(...|
|00000500| 01 01 00 00 44 54 49 42 | 05 01 00 00 03 01 00 00 |....DTIB|........|
|00000510| 44 54 49 42 e2 00 00 00 | 03 01 00 00 4d 55 48 54 |DTIB....|....MUHT|
|00000520| 5d 00 00 00 04 01 00 00 | 44 54 49 42 71 00 00 00 |].......|DTIBq...|
|00000530| 09 01 00 00 44 54 49 42 | 39 01 00 00 0a 01 00 00 |....DTIB|9.......|
|00000540| 44 54 49 42 19 01 00 00 | 0d 01 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000550| 6d 00 00 00 10 01 00 00 | 44 54 49 42 10 00 00 00 |m.......|DTIB....|
|00000560| 13 01 00 00 44 54 49 42 | 0e 01 00 00 1b 01 00 00 |....DTIB|........|
|00000570| 44 54 49 42 91 01 00 00 | 20 01 00 00 44 54 49 42 |DTIB....| ...DTIB|
|00000580| 46 00 00 00 2c 01 00 00 | 44 54 49 42 e7 00 00 00 |F...,...|DTIB....|
|00000590| 2d 01 00 00 44 54 49 42 | 88 01 00 00 2e 01 00 00 |-...DTIB|........|
|000005a0| 44 54 49 42 3b 01 00 00 | 32 01 00 00 44 54 49 42 |DTIB;...|2...DTIB|
|000005b0| 4b 00 00 00 34 01 00 00 | 44 54 49 42 bd 00 00 00 |K...4...|DTIB....|
|000005c0| 3e 01 00 00 44 54 49 42 | eb 00 00 00 3f 01 00 00 |>...DTIB|....?...|
|000005d0| 44 54 49 42 54 00 00 00 | 76 01 00 00 44 54 49 42 |DTIBT...|v...DTIB|
|000005e0| 5d 01 00 00 7f 01 00 00 | 44 54 49 42 00 01 00 00 |].......|DTIB....|
|000005f0| 85 01 00 00 44 54 49 42 | b1 01 00 00 8b 01 00 00 |....DTIB|........|
|00000600| 44 54 49 42 a9 01 00 00 | 8c 01 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000610| 41 00 00 00 94 01 00 00 | 44 54 49 42 13 00 00 00 |A.......|DTIB....|
|00000620| a3 01 00 00 44 54 49 42 | 95 00 00 00 a4 01 00 00 |....DTIB|........|
|00000630| 44 54 49 42 2a 00 00 00 | a7 01 00 00 44 54 49 42 |DTIB*...|....DTIB|
|00000640| 89 00 00 00 aa 01 00 00 | 44 54 49 42 1c 01 00 00 |........|DTIB....|
|00000650| ad 01 00 00 44 54 49 42 | 96 01 00 00 af 01 00 00 |....DTIB|........|
|00000660| 44 54 49 42 ac 01 00 00 | c4 01 00 00 44 54 49 42 |DTIB....|....DTIB|
|00000670| 25 01 00 00 c6 01 00 00 | 44 54 49 42 c5 01 00 00 |%.......|DTIB....|
|00000680| d1 01 00 00 44 54 49 42 | 36 01 00 00 d1 01 00 00 |....DTIB|6.......|
|00000690| 4d 55 48 54 05 00 00 00 | 00 04 00 00 2a 53 41 43 |MUHT....|....*SAC|
|000006a0| 09 00 00 00 00 04 00 00 | 70 6d 58 46 08 00 00 00 |........|pmXF....|
|000006b0| 00 04 00 00 70 61 6d 46 | 06 00 00 00 00 04 00 00 |....pamF|........|
|000006c0| 78 74 63 4c 04 00 00 00 | 00 04 00 00 46 43 57 56 |xtcL....|....FCWV|
|000006d0| 0b 00 00 00 00 04 00 00 | 49 46 57 56 0f 00 00 00 |........|IFWV....|
|000006e0| 00 04 00 00 4d 46 57 56 | 0c 00 00 00 00 04 00 00 |....MFWV|........|
|000006f0| 43 53 57 56 0c 00 00 00 | 00 04 00 00 43 53 57 56 |CSWV....|....CSWV|
|00000700| 0c 00 00 00 00 04 00 00 | 43 53 57 56 4c 00 00 00 |........|CSWVL...|
|00000710| 00 04 00 00 6b 74 57 56 | 4c 00 00 00 00 04 00 00 |....ktWV|L.......|
|00000720| 6b 74 57 56 4c 00 00 00 | 00 04 00 00 6b 74 57 56 |ktWVL...|....ktWV|
|00000730| 4c 00 00 00 00 04 00 00 | 6b 74 57 56 4c 00 00 00 |L.......|ktWVL...|
|00000740| 00 04 00 00 6b 74 57 56 | 46 43 57 56 50 00 00 00 |....ktWV|FCWVP...|
|00000750| 00 50 04 5d 00 00 00 00 | 01 e0 02 80 01 2c 01 f9 |.P.]....|.....,..|
|00000760| 0e 00 02 cc 00 01 00 00 | 00 93 00 ff 00 08 01 01 |........|........|
|00000770| 00 0d 8c 60 04 5d 00 10 | 00 00 00 00 80 07 ff cf |...`.]..|........|
|00000780| 00 3f ff ff 00 93 00 1e | 00 02 6a 0e 00 00 00 3c |.?......|..j....<|
|00000790| b7 05 14 3a 00 8e 00 00 | 00 00 00 00 00 00 00 00 |...:....|........|
|000007a0| 2a 53 41 43 38 03 00 00 | 00 00 00 0e 00 00 00 26 |*SAC8...|.......&|
|000007b0| 00 00 00 27 00 00 00 17 | 00 00 01 1f 00 00 00 28 |...'....|.......(|
|000007c0| 00 00 00 5a 00 00 01 33 | 00 00 00 2c 00 00 00 00 |...Z...3|...,....|
|000007d0| 00 00 00 00 00 00 00 1d | 00 00 00 90 00 00 00 5e |........|.......^|
|000007e0| 00 00 00 7f 00 00 00 0d | 00 00 00 76 00 00 00 b7 |........|...v....|
|000007f0| 00 00 00 7b 00 00 00 83 | 00 00 00 88 00 00 00 8a |...{....|........|
|00000800| 00 00 00 85 00 00 00 3e | 00 00 00 6e 00 00 00 b3 |.......>|...n....|
|00000810| 00 00 00 bc 00 00 00 7d | 00 00 01 a7 00 00 01 a3 |.......}|........|
|00000820| 00 00 00 00 00 00 00 98 | 00 00 00 44 00 00 00 60 |........|...D...`|
|00000830| 00 00 00 97 00 00 00 30 | 00 00 00 62 00 00 00 23 |.......0|...b...#|
|00000840| 00 00 00 56 00 00 00 a0 | 00 00 00 2b 00 00 00 22 |...V....|...+..."|
|00000850| 00 00 00 21 00 00 01 85 | 00 00 01 8c 00 00 01 3e |...!....|.......>|
|00000860| 00 00 01 20 00 00 01 2e | 00 00 00 c4 00 00 00 14 |... ....|........|
|00000870| 00 00 00 4d 00 00 00 d4 | 00 00 00 9d 00 00 00 20 |...M....|....... |
|00000880| 00 00 00 24 00 00 00 38 | 00 00 00 67 00 00 00 00 |...$...8|...g....|
|00000890| 00 00 00 8f 00 00 00 cf | 00 00 01 a4 00 00 00 a9 |........|........|
|000008a0| 00 00 00 b5 00 00 00 8b | 00 00 00 3b 00 00 00 70 |........|...;...p|
|000008b0| 00 00 00 59 00 00 00 43 | 00 00 00 aa 00 00 00 af |...Y...C|........|
|000008c0| 00 00 00 1f 00 00 00 69 | 00 00 00 a6 00 00 00 a5 |.......i|........|
|000008d0| 00 00 00 34 00 00 00 cc | 00 00 00 2f 00 00 00 1c |...4....|.../....|
|000008e0| 00 00 00 f5 00 00 00 c5 | 00 00 00 db 00 00 01 8b |........|........|
|000008f0| 00 00 00 0a 00 00 01 af | 00 00 00 00 00 00 00 bb |........|........|
|00000900| 00 00 00 d5 00 00 00 d7 | 00 00 00 b6 00 00 00 c2 |........|........|
|00000910| 00 00 00 8c 00 00 00 dd | 00 00 00 00 00 00 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 12 | 00 00 00 fe 00 00 00 b1 |........|........|
|00000930| 00 00 01 04 00 00 01 03 | 00 00 00 2e 00 00 01 ad |........|........|
|00000940| 00 00 01 3f 00 00 00 f1 | 00 00 00 47 00 00 01 c4 |...?....|...G....|
|00000950| 00 00 00 48 00 00 00 c6 | 00 00 00 f7 00 00 01 76 |...H....|.......v|
|00000960| 00 00 00 72 00 00 00 82 | 00 00 01 aa 00 00 00 9a |...r....|........|
|00000970| 00 00 00 9c 00 00 00 ab | 00 00 00 b0 00 00 00 be |........|........|
|00000980| 00 00 00 c8 00 00 00 00 | 00 00 01 01 00 00 01 10 |........|........|
|00000990| 00 00 01 94 00 00 01 2c | 00 00 01 0d 00 00 01 13 |.......,|........|
|000009a0| 00 00 00 d9 00 00 00 e8 | 00 00 00 ed 00 00 01 0a |........|........|
|000009b0| 00 00 01 34 00 00 01 32 | 00 00 00 f0 00 00 00 f4 |...4...2|........|
|000009c0| 00 00 00 ea 00 00 00 a7 | 00 00 00 da 00 00 00 df |........|........|
|000009d0| 00 00 00 e0 00 00 00 fc | 00 00 01 7f 00 00 01 09 |........|........|
|000009e0| 00 00 00 53 00 00 00 65 | 00 00 00 7a 00 00 00 00 |...S...e|...z....|
|000009f0| 00 00 00 00 00 00 01 1b | 00 00 01 c6 00 00 01 2d |........|.......-|
|00000a00| 00 00 00 f6 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 4f 00 00 01 d1 |........|...O....|
|00000ae0| 74 53 41 43 53 2a 00 00 | 00 04 00 00 2a 49 0b 00 |tSACS*..|....*I..|
|00000af0| 00 03 00 00 00 14 38 00 | 37 26 00 00 00 00 00 00 |......8.|7&......|
|00000b00| 00 00 00 00 00 04 00 07 | 00 00 00 00 00 00 29 cf |........|......).|
|00000b10| 00 00 29 cf 00 00 29 cf | 00 00 29 cf 00 00 29 cf |..)...).|..)...).|
|00000b20| 00 00 29 e3 00 00 29 f9 | 2d 2d 20 49 6e 69 74 0d |..)...).|-- Init.|
|00000b30| 2d 2d 20 76 61 72 73 20 | 2b 20 73 63 72 65 65 6e |-- vars |+ screen|
|00000b40| 0d 2d 2d 20 64 65 6b 6c | 61 72 61 74 69 6f 6e 20 |.-- dekl|aration |
|00000b50| 68 69 65 72 2c 20 64 61 | 6e 6e 20 67 69 6c 74 20 |hier, da|nn gilt |
|00000b60| 65 73 20 66 9f 72 20 61 | 6c 6c 65 20 70 72 6f 63 |es f.r a|lle proc|
|00000b70| 73 20 69 6e 20 64 69 65 | 73 65 6d 20 73 63 72 69 |s in die|sem scri|
|00000b80| 70 74 0d 0d 67 6c 6f 62 | 61 6c 20 67 73 43 52 4c |pt..glob|al gsCRL|
|00000b90| 46 2c 20 67 73 45 78 63 | 68 44 61 74 61 0d 0d 2d |F, gsExc|hData..-|
|00000ba0| 2d 20 66 6c 61 67 73 0d | 67 6c 6f 62 61 6c 20 67 |- flags.|global g|
|00000bb0| 62 44 65 62 75 67 0d 67 | 6c 6f 62 61 6c 20 67 62 |bDebug.g|lobal gb|
|00000bc0| 41 6e 69 6d 61 74 69 6f | 6e 20 20 2d 2d 20 54 72 |Animatio|n  -- Tr|
|00000bd0| 75 65 2c 20 62 65 69 20 | 61 6e 69 6d 61 74 69 6f |ue, bei |animatio|
|00000be0| 6e 73 66 6f 6c 67 65 20 | 66 9f 72 20 73 6c 69 64 |nsfolge |f.r slid|
|00000bf0| 65 72 0d 67 6c 6f 62 61 | 6c 20 67 62 47 6f 74 6f |er.globa|l gbGoto|
|00000c00| 2c 20 67 73 47 6f 46 72 | 61 6d 65 20 20 2d 2d 20 |, gsGoFr|ame  -- |
|00000c10| 67 6c 6f 62 61 6c 20 67 | 6f 74 6f 20 6b 65 6e 6e |global g|oto kenn|
|00000c20| 75 6e 67 65 6e 20 69 6e | 20 49 44 4c 45 0d 67 6c |ungen in| IDLE.gl|
|00000c30| 6f 62 61 6c 20 67 62 53 | 6c 64 4f 70 65 6e 20 20 |obal gbS|ldOpen  |
|00000c40| 2d 2d 20 66 6c 61 67 2c | 20 6f 62 20 73 6c 69 64 |-- flag,| ob slid|
|00000c50| 65 72 20 6f 66 66 65 6e | 20 73 69 6e 64 20 0d 67 |er offen| sind .g|
|00000c60| 6c 6f 62 61 6c 20 67 69 | 42 6c 69 6e 6b 43 61 73 |lobal gi|BlinkCas|
|00000c70| 74 2c 67 62 44 6f 42 6c | 69 6e 6b 2c 20 67 42 6c |t,gbDoBl|ink, gBl|
|00000c80| 69 6e 6b 20 2d 2d 20 52 | 6f 6c 6c 6f 76 65 72 61 |ink -- R|ollovera|
|00000c90| 6c 6c 67 2c 20 20 62 6c | 69 6e 6b 65 6e 0d 67 6c |llg,  bl|inken.gl|
|00000ca0| 6f 62 61 6c 20 67 62 44 | 6f 54 68 65 4d 6f 75 73 |obal gbD|oTheMous|
|00000cb0| 65 20 20 2d 2d 20 66 6c | 61 67 20 66 9f 72 20 72 |e  -- fl|ag f.r r|
|00000cc0| 6f 6c 6c 6f 76 65 72 20 | 69 6e 20 69 64 6c 65 20 |ollover |in idle |
|00000cd0| 7a 7a 74 6e 69 63 68 74 | 0d 67 6c 6f 62 61 6c 20 |zztnicht|.global |
|00000ce0| 67 69 44 6f 77 6e 46 6c | 61 67 20 20 2d 2d 20 46 |giDownFl|ag  -- F|
|00000cf0| 6c 61 67 20 28 30 2e 2e | 53 70 6e 29 20 66 9f 72 |lag (0..|Spn) f.r|
|00000d00| 20 4d 6f 75 73 65 44 77 | 6f 6e 20 69 6e 20 45 78 | MouseDw|on in Ex|
|00000d10| 65 63 52 6f 6c 6c 6f 76 | 65 72 0d 67 6c 6f 62 61 |ecRollov|er.globa|
|00000d20| 6c 20 67 62 49 6e 69 74 | 46 72 61 6d 65 20 20 2d |l gbInit|Frame  -|
|00000d30| 2d 20 64 61 6d 69 74 20 | 65 69 6e 20 46 72 61 6d |- damit |ein Fram|
|00000d40| 65 73 20 6e 75 72 20 65 | 69 6e 6d 61 6c 20 69 6e |es nur e|inmal in|
|00000d50| 69 74 0d 67 6c 6f 62 61 | 6c 20 67 62 49 53 44 4e |it.globa|l gbISDN|
|00000d60| 20 20 20 2d 2d 20 66 6c | 61 67 20 66 9f 72 20 49 |   -- fl|ag f.r I|
|00000d70| 6e 69 74 20 75 6e 64 20 | 46 75 6e 6b 74 69 6f 6e |nit und |Funktion|
|00000d80| 65 6e 0d 67 6c 6f 62 61 | 6c 20 67 62 49 73 50 43 |en.globa|l gbIsPC|
|00000d90| 20 20 20 2d 2d 20 50 43 | 20 6f 64 65 72 20 4d 61 |   -- PC| oder Ma|
|00000da0| 63 0d 67 6c 6f 62 61 6c | 20 67 62 51 75 69 74 57 |c.global| gbQuitW|
|00000db0| 61 69 74 20 20 2d 2d 20 | 61 62 62 72 75 63 68 20 |ait  -- |abbruch |
|00000dc0| 76 6f 6e 20 62 75 73 79 | 77 61 69 74 0d 67 6c 6f |von busy|wait.glo|
|00000dd0| 62 61 6c 20 67 62 31 75 | 31 4c 6f 67 6f 0d 0d 2d |bal gb1u|1Logo..-|
|00000de0| 2d 20 66 69 6c 65 73 0d | 67 6c 6f 62 61 6c 20 67 |- files.|global g|
|00000df0| 73 49 6e 69 46 69 6c 65 | 2c 67 73 45 78 74 65 6e |sIniFile|,gsExten|
|00000e00| 73 69 6f 6e 2c 20 67 73 | 4d 6f 76 69 65 50 61 74 |sion, gs|MoviePat|
|00000e10| 68 20 0d 0d 2d 2d 20 73 | 63 72 65 65 6e 20 76 61 |h ..-- s|creen va|
|00000e20| 72 73 20 75 6e 64 20 6c | 69 73 74 65 6e 0d 67 6c |rs und l|isten.gl|
|00000e30| 6f 62 61 6c 20 67 6c 50 | 61 72 61 6d 4c 69 73 74 |obal glP|aramList|
|00000e40| 0d 67 6c 6f 62 61 6c 20 | 67 6c 53 70 72 69 74 65 |.global |glSprite|
|00000e50| 52 6f 6c 6c 2c 20 67 6c | 43 61 73 74 4f 66 53 70 |Roll, gl|CastOfSp|
|00000e60| 72 69 74 65 2c 20 67 6c | 4f 72 69 67 4f 66 53 70 |rite, gl|OrigOfSp|
|00000e70| 72 69 74 65 0d 67 6c 6f | 62 61 6c 20 67 6c 48 69 |rite.glo|bal glHi|
|00000e80| 64 65 53 70 72 69 74 65 | 20 2d 2d 20 64 69 65 20 |deSprite| -- die |
|00000e90| 7a 75 20 76 65 72 73 74 | 65 63 6b 65 6e 64 65 6e |zu verst|eckenden|
|00000ea0| 0d 67 6c 6f 62 61 6c 20 | 67 6c 41 63 74 69 6f 6e |.global |glAction|
|00000eb0| 20 20 2d 2d 20 6c 69 73 | 74 65 20 64 65 72 20 4d |  -- lis|te der M|
|00000ec0| 6f 75 73 55 70 20 41 63 | 74 69 6f 6e 73 20 73 63 |ousUp Ac|tions sc|
|00000ed0| 72 69 70 74 20 33 30 36 | 0d 67 6c 6f 62 61 6c 20 |ript 306|.global |
|00000ee0| 67 6c 53 74 61 74 75 73 | 20 20 2d 2d 20 7a 75 73 |glStatus|  -- zus|
|00000ef0| 74 61 6e 64 20 64 65 72 | 20 53 6c 69 64 65 72 0d |tand der| Slider.|
|00000f00| 67 6c 6f 62 61 6c 20 67 | 6c 42 73 4c 69 73 74 65 |global g|lBsListe|
|00000f10| 20 2d 2d 20 6e 61 6d 65 | 6e 20 64 65 72 20 73 63 | -- name|n der sc|
|00000f20| 72 65 65 6e 20 69 6d 20 | 6d 6f 76 69 65 20 28 69 |reen im |movie (i|
|00000f30| 6e 69 74 20 69 6e 20 73 | 74 61 72 74 2d 6d 6f 76 |nit in s|tart-mov|
|00000f40| 69 65 29 0d 67 6c 6f 62 | 61 6c 20 67 6c 47 6f 74 |ie).glob|al glGot|
|00000f50| 6f 4c 69 73 74 65 20 20 | 20 2d 2d 20 76 6f 72 2f |oListe  | -- vor/|
|00000f60| 72 9f 63 6b 2f 69 6e 68 | 61 6c 74 0d 67 6c 6f 62 |r.ck/inh|alt.glob|
|00000f70| 61 6c 20 67 6c 42 73 46 | 72 61 6d 65 20 20 2d 2d |al glBsF|rame  --|
|00000f80| 20 64 69 65 20 66 72 61 | 6d 65 6e 75 6d 6d 65 72 | die fra|menummer|
|00000f90| 6e 20 64 65 72 20 4d 61 | 72 6b 65 72 0d 67 6c 6f |n der Ma|rker.glo|
|00000fa0| 62 61 6c 20 67 6c 41 63 | 74 69 76 65 52 6f 6c 6c |bal glAc|tiveRoll|
|00000fb0| 20 20 2d 2d 20 61 6b 74 | 69 76 65 20 73 70 72 69 |  -- akt|ive spri|
|00000fc0| 74 65 73 20 62 65 69 20 | 6f 66 66 65 6e 65 6d 20 |tes bei |offenem |
|00000fd0| 73 6c 69 64 65 72 0d 0d | 67 6c 6f 62 61 6c 20 67 |slider..|global g|
|00000fe0| 69 44 75 6d 6d 79 53 6c | 69 64 65 72 49 64 2c 20 |iDummySl|iderId, |
|00000ff0| 67 69 44 75 6d 6d 79 53 | 6c 69 64 65 72 48 6f 6d |giDummyS|liderHom|
|00001000| 65 49 64 20 2d 2d 20 70 | 75 70 70 65 74 20 64 75 |eId -- p|uppet du|
|00001010| 6d 6d 79 20 73 6c 69 64 | 65 72 0d 67 6c 6f 62 61 |mmy slid|er.globa|
|00001020| 6c 20 67 69 4c 61 73 74 | 53 70 72 69 74 65 20 20 |l giLast|Sprite  |
|00001030| 2d 2d 20 6c 65 74 7a 74 | 65 73 20 72 6f 6c 6c 6f |-- letzt|es rollo|
|00001040| 76 65 72 0d 67 6c 6f 62 | 61 6c 20 67 69 42 73 49 |ver.glob|al giBsI|
|00001050| 6e 64 65 78 20 20 2d 2d | 20 61 6b 74 75 65 6c 6c |ndex  --| aktuell|
|00001060| 65 20 73 63 72 65 65 6e | 0d 67 6c 6f 62 61 6c 20 |e screen|.global |
|00001070| 67 69 53 6c 69 64 65 72 | 49 44 20 20 2d 2d 20 4e |giSlider|ID  -- N|
|00001080| 72 20 64 65 73 20 67 65 | 9a 66 66 6e 65 74 65 6e |r des ge|.ffneten|
|00001090| 20 73 6c 69 64 65 72 20 | 4f 64 65 72 20 4e 75 6c | slider |Oder Nul|
|000010a0| 6c 20 28 46 6c 61 67 29 | 0d 67 6c 6f 62 61 6c 20 |l (Flag)|.global |
|000010b0| 67 69 4d 6f 76 69 65 4e | 72 20 20 2d 2d 20 73 70 |giMovieN|r  -- sp|
|000010c0| 72 69 74 65 20 6e 75 6d | 6d 65 72 20 76 6f 6e 20 |rite num|mer von |
|000010d0| 6d 6f 76 69 65 73 20 66 | 9f 72 20 61 75 73 62 6c |movies f|.r ausbl|
|000010e0| 65 6e 64 65 6e 0d 67 6c | 6f 62 61 6c 20 67 73 4c |enden.gl|obal gsL|
|000010f0| 61 73 74 4d 6f 76 69 65 | 20 20 2d 2d 20 6e 61 6d |astMovie|  -- nam|
|00001100| 65 20 66 9f 72 20 74 65 | 73 74 20 62 65 69 20 72 |e f.r te|st bei r|
|00001110| 9f 63 6b 6b 65 68 72 20 | 61 75 73 20 66 69 6c 6d |.ckkehr |aus film|
|00001120| 65 6e 0d 67 6c 6f 62 61 | 6c 20 67 69 45 78 74 72 |en.globa|l giExtr|
|00001130| 61 41 63 74 69 6f 6e 20 | 20 2d 2d 20 7a 75 73 61 |aAction | -- zusa|
|00001140| 74 7a 20 61 6b 74 69 6f | 6e 65 6e 20 69 6d 20 65 |tz aktio|nen im e|
|00001150| 69 6e 7a 65 6e 20 6d 6f | 76 69 65 0d 67 6c 6f 62 |inzen mo|vie.glob|
|00001160| 61 6c 20 67 73 41 70 70 | 0d 0d 0d 2d 2d 20 2a 2a |al gsApp|...-- **|
|00001170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001190| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 2d 2d 20 2a 2a |********|**.-- **|
|000011b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000011e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 6f 6e 20 49 6e |********|**.on In|
|000011f0| 69 74 41 6c 6c 0d 20 20 | 2d 2d 20 49 6e 20 53 74 |itAll.  |-- In St|
|00001200| 61 72 2d 74 4d 6f 76 69 | 65 20 64 65 73 20 49 6e |ar-tMovi|e des In|
|00001210| 74 72 6f 73 20 77 69 72 | 64 20 49 6e 69 74 41 6c |tros wir|d InitAl|
|00001220| 6c 20 61 75 66 67 65 72 | 75 66 65 6e 0d 20 20 2d |l aufger|ufen.  -|
|00001230| 2d 20 64 69 65 20 66 6f | 6c 67 65 6e 64 65 6e 20 |- die fo|lgenden |
|00001240| 4d 6f 76 69 65 73 20 67 | 72 65 69 66 65 6e 20 61 |Movies g|reifen a|
|00001250| 75 66 20 64 69 65 20 47 | 6c 6f 62 61 6c 73 20 7a |uf die G|lobals z|
|00001260| 75 0d 20 20 0d 20 20 49 | 6e 69 74 56 61 72 73 20 |u.  .  I|nitVars |
|00001270| 0d 20 20 49 6e 69 74 53 | 79 73 74 65 6d 20 20 2d |.  InitS|ystem  -|
|00001280| 2d 20 53 63 72 69 70 74 | 20 33 30 33 0d 20 20 49 |- Script| 303.  I|
|00001290| 6e 69 74 50 61 74 68 0d | 20 20 49 6e 69 74 50 61 |nitPath.|  InitPa|
|000012a0| 72 61 6d 73 20 20 2d 2d | 20 73 63 72 69 70 74 20 |rams  --| script |
|000012b0| 33 30 34 0d 20 20 49 6e | 69 74 53 63 72 65 65 6e |304.  In|itScreen|
|000012c0| 0d 20 20 49 6e 69 74 54 | 68 65 4d 61 63 20 20 2d |.  InitT|heMac  -|
|000012d0| 2d 20 73 63 72 69 70 74 | 20 33 30 37 0d 65 6e 64 |- script| 307.end|
|000012e0| 20 49 6e 69 74 41 6c 6c | 0d 0d 0d 2d 2d 20 2a 2a | InitAll|...-- **|
|000012f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 2d 2d 20 2a 2a |********|**.-- **|
|00001330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001350| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001360| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 0d 0d 0d 6f 6e |********|**....on|
|00001370| 20 49 6e 69 74 56 61 72 | 73 0d 20 20 2d 2d 20 56 | InitVar|s.  -- V|
|00001380| 61 72 69 61 62 6c 65 6e | 20 0d 20 20 2d 2d 64 65 |ariablen| .  --de|
|00001390| 62 75 67 20 22 70 72 6f | 63 3a 20 69 6e 69 74 20 |bug "pro|c: init |
|000013a0| 76 61 72 73 20 69 6e 20 | 66 72 61 6d 65 20 22 20 |vars in |frame " |
|000013b0| 26 20 74 68 65 20 66 72 | 61 6d 65 0d 20 20 0d 20 |& the fr|ame.  . |
|000013c0| 20 73 65 74 20 67 73 43 | 52 4c 46 20 3d 20 6e 75 | set gsC|RLF = nu|
|000013d0| 6d 54 6f 43 68 61 72 28 | 31 33 29 20 26 20 6e 75 |mToChar(|13) & nu|
|000013e0| 6d 54 6f 43 68 61 72 28 | 31 30 29 20 0d 20 20 73 |mToChar(|10) .  s|
|000013f0| 65 74 20 67 73 49 6e 69 | 46 69 6c 65 20 3d 20 22 |et gsIni|File = "|
|00001400| 31 75 31 2e 69 6e 69 22 | 0d 20 20 0d 20 20 73 65 |1u1.ini"|.  .  se|
|00001410| 74 20 67 62 53 6c 64 4f | 70 65 6e 20 3d 20 66 61 |t gbSldO|pen = fa|
|00001420| 6c 73 65 0d 20 20 73 65 | 74 20 67 62 44 6f 42 6c |lse.  se|t gbDoBl|
|00001430| 69 6e 6b 20 3d 20 74 72 | 75 65 0d 20 20 73 65 74 |ink = tr|ue.  set|
|00001440| 20 67 62 44 6f 54 68 65 | 4d 6f 75 73 65 20 3d 20 | gbDoThe|Mouse = |
|00001450| 66 61 6c 73 65 0d 20 20 | 0d 20 20 73 65 74 20 67 |false.  |.  set g|
|00001460| 42 6c 69 6e 6b 20 3d 20 | 30 0d 20 20 73 65 74 20 |Blink = |0.  set |
|00001470| 67 69 44 6f 77 6e 46 6c | 61 67 20 3d 20 30 0d 20 |giDownFl|ag = 0. |
|00001480| 20 0d 20 20 73 65 74 20 | 67 69 4c 61 73 74 53 70 | .  set |giLastSp|
|00001490| 72 69 74 65 20 3d 20 30 | 0d 20 20 73 65 74 20 67 |rite = 0|.  set g|
|000014a0| 73 45 78 74 65 6e 73 69 | 6f 6e 20 3d 20 22 2e 64 |sExtensi|on = ".d|
|000014b0| 69 72 22 0d 20 20 73 65 | 74 20 67 62 41 6e 69 6d |ir".  se|t gbAnim|
|000014c0| 61 74 69 6f 6e 20 3d 20 | 66 61 6c 73 65 0d 20 20 |ation = |false.  |
|000014d0| 73 65 74 20 67 69 42 73 | 49 6e 64 65 78 20 3d 20 |set giBs|Index = |
|000014e0| 31 0d 20 20 73 65 74 20 | 67 62 47 6f 74 6f 20 3d |1.  set |gbGoto =|
|000014f0| 20 66 61 6c 73 65 0d 20 | 20 73 65 74 20 67 62 44 | false. | set gbD|
|00001500| 65 62 75 67 20 3d 20 66 | 61 6c 73 65 20 0d 20 20 |ebug = f|alse .  |
|00001510| 73 65 74 20 67 73 47 6f | 46 72 61 6d 65 20 3d 20 |set gsGo|Frame = |
|00001520| 22 22 0d 20 20 73 65 74 | 20 67 69 4d 6f 76 69 65 |"".  set| giMovie|
|00001530| 4e 72 20 3d 20 30 0d 20 | 20 73 65 74 20 67 62 49 |Nr = 0. | set gbI|
|00001540| 6e 69 74 46 72 61 6d 65 | 20 3d 20 66 61 6c 73 65 |nitFrame| = false|
|00001550| 0d 20 20 73 65 74 20 67 | 62 49 73 50 43 20 3d 20 |.  set g|bIsPC = |
|00001560| 74 72 75 65 0d 20 20 73 | 65 74 20 67 69 45 78 74 |true.  s|et giExt|
|00001570| 72 61 41 63 74 69 6f 6e | 20 3d 20 30 0d 20 20 73 |raAction| = 0.  s|
|00001580| 65 74 20 67 62 51 75 69 | 74 57 61 69 74 20 3d 20 |et gbQui|tWait = |
|00001590| 66 61 6c 73 65 0d 20 20 | 73 65 74 20 67 62 31 75 |false.  |set gb1u|
|000015a0| 31 4c 6f 67 6f 20 3d 20 | 66 61 6c 73 65 0d 20 20 |1Logo = |false.  |
|000015b0| 73 65 74 20 67 73 41 70 | 70 20 3d 20 22 22 0d 20 |set gsAp|p = "". |
|000015c0| 20 0d 20 20 2d 2d 20 6c | 69 73 74 65 6e 20 0d 20 | .  -- l|isten . |
|000015d0| 20 73 65 74 20 67 6c 53 | 70 72 69 74 65 52 6f 6c | set glS|priteRol|
|000015e0| 6c 20 3d 20 5b 5d 20 20 | 2d 2d 20 69 6e 69 74 20 |l = []  |-- init |
|000015f0| 46 6c 61 67 73 2c 20 77 | 65 6c 63 68 65 20 73 70 |Flags, w|elche sp|
|00001600| 72 69 74 65 73 20 62 65 | 69 20 72 6f 6c 6c 6f 76 |rites be|i rollov|
|00001610| 65 72 0d 20 20 73 65 74 | 20 67 6c 43 61 73 74 4f |er.  set| glCastO|
|00001620| 66 53 70 72 69 74 65 20 | 3d 20 5b 5d 20 20 2d 2d |fSprite |= []  --|
|00001630| 20 69 6e 69 74 69 69 65 | 72 65 6e 20 64 65 72 20 | initiie|ren der |
|00001640| 63 61 73 74 6e 75 6d 6d | 65 72 6e 0d 20 20 73 65 |castnumm|ern.  se|
|00001650| 74 20 47 6c 4f 72 69 67 | 4f 66 53 70 72 69 74 65 |t GlOrig|OfSprite|
|00001660| 20 3d 20 5b 5d 20 20 2d | 2d 20 66 9f 72 20 73 74 | = []  -|- f.r st|
|00001670| 6f 70 20 6d 6f 76 69 65 | 0d 20 20 73 65 74 20 67 |op movie|.  set g|
|00001680| 6c 41 63 74 69 6f 6e 20 | 3d 20 5b 5d 20 20 2d 2d |lAction |= []  --|
|00001690| 20 69 6e 69 74 20 64 69 | 65 20 6c 69 73 74 65 20 | init di|e liste |
|000016a0| 64 65 72 20 70 72 6f 63 | 73 20 64 6f 72 20 4d 6f |der proc|s dor Mo|
|000016b0| 75 73 55 70 53 63 72 69 | 70 74 0d 20 20 73 65 74 |usUpScri|pt.  set|
|000016c0| 20 67 6c 53 74 61 74 75 | 73 20 3d 20 5b 5d 20 20 | glStatu|s = []  |
|000016d0| 2d 2d 20 73 74 61 74 75 | 73 20 64 65 72 20 73 6c |-- statu|s der sl|
|000016e0| 69 64 65 72 20 28 31 2e | 2e 2e 34 29 0d 20 20 73 |ider (1.|..4).  s|
|000016f0| 65 74 20 67 6c 42 73 6c | 69 73 74 65 20 3d 20 5b |et glBsl|iste = [|
|00001700| 5d 20 20 2d 2d 20 4c 69 | 73 74 65 20 64 65 72 20 |]  -- Li|ste der |
|00001710| 46 72 61 6d 65 20 66 9f | 72 20 47 6f 50 72 65 76 |Frame f.|r GoPrev|
|00001720| 2c 20 4e 65 78 74 0d 20 | 20 73 65 74 20 67 6c 47 |, Next. | set glG|
|00001730| 6f 74 6f 4c 69 73 74 65 | 20 3d 20 5b 5d 20 0d 20 |otoListe| = [] . |
|00001740| 20 73 65 74 20 67 6c 41 | 63 74 69 76 65 52 6f 6c | set glA|ctiveRol|
|00001750| 6c 20 3d 20 5b 5d 0d 20 | 20 0d 20 20 2d 2d 20 2d |l = []. | .  -- -|
|00001760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 63 68 65 63 6b |--------|-- check|
|00001770| 20 6d 61 73 63 68 69 6e | 65 20 2d 2d 2d 2d 2d 2d | maschin|e ------|
|00001780| 2d 2d 2d 2d 2d 0d 20 20 | 0d 20 20 2d 2d 20 63 68 |-----.  |.  -- ch|
|00001790| 65 63 6b 20 74 68 65 20 | 6d 61 63 68 69 6e 65 20 |eck the |machine |
|000017a0| 62 65 6c 6f 77 0d 20 20 | 2d 2d 20 6b 61 6e 6e 20 |below.  |-- kann |
|000017b0| 76 6f 6e 20 69 6e 69 74 | 62 61 73 69 63 73 20 9f |von init|basics .|
|000017c0| 62 65 72 73 63 68 72 69 | 65 62 65 6e 20 77 65 72 |berschri|eben wer|
|000017d0| 64 65 6e 0d 20 20 0d 20 | 20 70 75 74 20 28 74 68 |den.  . | put (th|
|000017e0| 65 20 6d 61 63 68 69 6e | 65 54 79 70 65 20 3e 20 |e machin|eType > |
|000017f0| 32 35 35 29 20 69 6e 74 | 6f 20 67 62 49 73 50 43 |255) int|o gbIsPC|
|00001800| 0d 20 20 2d 2d 64 65 62 | 75 67 20 22 50 43 3a 22 |.  --deb|ug "PC:"|
|00001810| 20 26 26 20 67 62 49 73 | 50 63 0d 20 20 0d 20 20 | && gbIs|Pc.  .  |
|00001820| 2d 2d 20 2d 2d 2d 2d 2d | 20 75 6e 74 65 72 73 63 |-- -----| untersc|
|00001830| 69 65 64 20 49 53 44 4e | 20 2f 20 54 2d 4f 6e 6c |ied ISDN| / T-Onl|
|00001840| 69 6e 65 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ine ----|--------|
|00001850| 2d 2d 2d 2d 2d 2d 0d 20 | 20 0d 20 20 73 65 74 20 |------. | .  set |
|00001860| 67 62 49 53 44 4e 20 3d | 20 66 61 6c 73 65 20 20 |gbISDN =| false  |
|00001870| 20 20 20 0d 20 20 73 65 | 74 20 67 69 42 6c 69 6e |   .  se|t giBlin|
|00001880| 6b 43 61 73 74 20 3d 20 | 33 35 38 0d 20 20 69 66 |kCast = |358.  if|
|00001890| 20 28 74 68 65 20 6d 6f | 76 69 65 50 61 74 68 20 | (the mo|viePath |
|000018a0| 63 6f 6e 74 61 69 6e 73 | 20 22 49 53 44 4e 22 29 |contains| "ISDN")|
|000018b0| 20 74 68 65 6e 0d 20 20 | 20 20 73 65 74 20 67 62 | then.  |  set gb|
|000018c0| 49 53 44 4e 20 3d 20 74 | 72 75 65 0d 20 20 20 20 |ISDN = t|rue.    |
|000018d0| 73 65 74 20 67 69 42 6c | 69 6e 6b 43 61 73 74 20 |set giBl|inkCast |
|000018e0| 3d 20 34 32 30 0d 20 20 | 65 6e 64 20 69 66 0d 20 |= 420.  |end if. |
|000018f0| 20 2d 2d 64 65 62 75 67 | 20 22 49 53 44 4e 3a 20 | --debug| "ISDN: |
|00001900| 22 26 20 67 62 49 53 44 | 4e 0d 20 20 2d 2d 64 65 |"& gbISD|N.  --de|
|00001910| 62 75 67 20 22 70 72 6f | 63 3a 20 2e 2e 2e 2e 2e |bug "pro|c: .....|
|00001920| 2e 2e 20 20 6f 6b 22 0d | 20 20 2d 2d 64 65 62 75 |..  ok".|  --debu|
|00001930| 67 20 22 4d 65 6d 6f 72 | 79 3a 20 22 20 26 20 74 |g "Memor|y: " & t|
|00001940| 68 65 20 66 72 65 65 62 | 79 74 65 73 20 2f 31 30 |he freeb|ytes /10|
|00001950| 32 34 0d 20 20 0d 65 6e | 64 0d 0d 0d 0d 2d 2d 20 |24.  .en|d....-- |
|00001960| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001970| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001980| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001990| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 6f 6e 20 |********|****.on |
|000019a0| 49 6e 69 74 53 63 72 65 | 65 6e 0d 20 20 2d 2d 64 |InitScre|en.  --d|
|000019b0| 65 62 75 67 20 22 70 72 | 6f 63 3a 20 69 6e 69 74 |ebug "pr|oc: init|
|000019c0| 20 73 63 72 65 65 6e 22 | 0d 20 20 0d 20 20 73 65 | screen"|.  .  se|
|000019d0| 74 20 67 69 44 75 6d 6d | 79 53 6c 69 64 65 72 49 |t giDumm|ySliderI|
|000019e0| 64 20 3d 20 34 37 0d 20 | 20 73 65 74 20 67 69 44 |d = 47. | set giD|
|000019f0| 75 6d 6d 79 53 6c 69 64 | 65 72 48 6f 6d 65 49 64 |ummySlid|erHomeId|
|00001a00| 20 3d 20 34 30 0d 20 20 | 0d 20 20 0d 20 20 0d 20 | = 40.  |.  .  . |
|00001a10| 20 2d 2d 20 6c 61 73 73 | 20 64 69 65 20 70 75 70 | -- lass| die pup|
|00001a20| 70 65 6e 20 74 61 6e 7a | 65 6e 0d 20 20 2d 2d 20 |pen tanz|en.  -- |
|00001a30| 65 69 6e 7a 65 6c 6e 20 | 3f 3f 0d 20 20 2d 2d 64 |einzeln |??.  --d|
|00001a40| 65 62 75 67 20 22 20 20 | 70 75 70 70 65 74 22 0d |ebug "  |puppet".|
|00001a50| 20 20 0d 20 20 69 66 20 | 67 62 49 53 44 4e 20 3d |  .  if |gbISDN =|
|00001a60| 20 74 72 75 65 20 74 68 | 65 6e 0d 20 20 20 20 70 | true th|en.    p|
|00001a70| 72 65 6c 6f 61 64 63 61 | 73 74 20 20 33 31 36 20 |reloadca|st  316 |
|00001a80| 2c 20 34 30 30 0d 20 20 | 65 6c 73 65 0d 20 20 20 |, 400.  |else.   |
|00001a90| 20 70 72 65 6c 6f 61 64 | 63 61 73 74 20 20 34 30 | preload|cast  40|
|00001aa0| 30 20 2c 20 34 35 30 20 | 0d 20 20 65 6e 64 20 69 |0 , 450 |.  end i|
|00001ab0| 66 0d 20 20 0d 20 20 72 | 65 70 65 61 74 20 77 69 |f.  .  r|epeat wi|
|00001ac0| 74 68 20 69 3d 20 32 36 | 20 74 6f 20 34 36 0d 20 |th i= 26| to 46. |
|00001ad0| 20 20 20 70 75 70 70 65 | 74 73 70 72 69 74 65 20 |   puppe|tsprite |
|00001ae0| 69 2c 20 74 72 75 65 0d | 20 20 65 6e 64 20 72 65 |i, true.|  end re|
|00001af0| 70 65 61 74 0d 20 20 0d | 20 20 75 70 64 61 74 65 |peat.  .|  update|
|00001b00| 73 74 61 67 65 0d 20 20 | 0d 20 20 0d 20 20 2d 2d |stage.  |.  .  --|
|00001b10| 20 6c 69 73 74 65 20 64 | 65 72 20 73 70 72 69 74 | liste d|er sprit|
|00001b20| 65 73 20 64 69 65 20 61 | 6d 20 61 6e 66 61 6e 67 |es die a|m anfang|
|00001b30| 20 76 65 72 73 74 65 63 | 6b 74 20 77 65 72 64 65 | verstec|kt werde|
|00001b40| 6e 0d 20 20 2d 2d 20 20 | 73 6c 69 64 65 72 20 75 |n.  --  |slider u|
|00001b50| 6e 64 20 64 69 65 20 62 | 75 74 74 6f 6e 73 20 61 |nd die b|uttons a|
|00001b60| 75 66 20 64 65 6e 20 73 | 6c 69 64 65 72 6e 0d 20 |uf den s|lidern. |
|00001b70| 20 0d 20 20 2d 2d 64 65 | 62 75 67 20 22 20 68 69 | .  --de|bug " hi|
|00001b80| 64 65 2e 2e 22 0d 20 20 | 73 65 74 20 67 6c 48 69 |de..".  |set glHi|
|00001b90| 64 65 53 70 72 69 74 65 | 20 3d 5b 32 39 2c 20 33 |deSprite| =[29, 3|
|00001ba0| 30 2c 33 31 2c 33 32 2c | 33 33 2c 33 34 2c 33 35 |0,31,32,|33,34,35|
|00001bb0| 2c 33 36 2c 33 37 2c 33 | 38 2c 33 39 2c 34 35 5d |,36,37,3|8,39,45]|
|00001bc0| 0d 20 20 72 65 70 65 61 | 74 20 77 69 74 68 20 69 |.  repea|t with i|
|00001bd0| 3d 20 31 20 74 6f 20 63 | 6f 75 6e 74 20 28 67 6c |= 1 to c|ount (gl|
|00001be0| 48 69 64 65 53 70 72 69 | 74 65 29 0d 20 20 20 20 |HideSpri|te).    |
|00001bf0| 73 65 74 20 74 68 65 20 | 76 69 73 69 62 6c 65 20 |set the |visible |
|00001c00| 6f 66 20 73 70 72 69 74 | 65 20 67 65 74 41 74 20 |of sprit|e getAt |
|00001c10| 28 67 6c 48 69 64 65 53 | 70 72 69 74 65 2c 20 69 |(glHideS|prite, i|
|00001c20| 29 20 74 6f 20 66 61 6c | 73 65 0d 20 20 65 6e 64 |) to fal|se.  end|
|00001c30| 20 72 65 70 65 61 74 0d | 20 20 0d 20 20 75 70 64 | repeat.|  .  upd|
|00001c40| 61 74 65 73 74 61 67 65 | 0d 20 20 0d 20 20 2d 2d |atestage|.  .  --|
|00001c50| 64 65 62 75 67 20 22 20 | 20 6c 69 73 74 65 6e 22 |debug " | listen"|
|00001c60| 0d 20 20 2d 2d 20 65 72 | 7a 65 75 67 65 20 65 69 |.  -- er|zeuge ei|
|00001c70| 6e 65 20 4c 69 73 74 65 | 2c 20 64 65 69 20 66 9f |ne Liste|, dei f.|
|00001c80| 72 20 6a 65 64 65 6e 20 | 73 70 72 69 74 65 20 64 |r jeden |sprite d|
|00001c90| 69 65 20 6f 72 67 69 6e | 61 6c 20 43 61 73 74 4e |ie orgin|al CastN|
|00001ca0| 75 6d 6d 65 72 0d 20 20 | 2d 2d 20 7a 75 65 72 73 |ummer.  |-- zuers|
|00001cb0| 74 20 20 61 6c 6c 65 73 | 20 61 75 66 20 30 20 0d |t  alles| auf 0 .|
|00001cc0| 20 20 73 65 74 20 67 6c | 53 70 72 69 74 65 52 6f |  set gl|SpriteRo|
|00001cd0| 6c 6c 20 3d 20 5b 30 2c | 30 2c 30 2c 30 2c 30 2c |ll = [0,|0,0,0,0,|
|00001ce0| 30 2c 30 2c 30 2c 30 2c | 30 20 20 2c 30 2c 30 2c |0,0,0,0,|0  ,0,0,|
|00001cf0| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0,0,|0,0,0,0,|
|00001d00| c2 0d 20 20 20 20 20 20 | 30 2c 30 2c 30 2c 30 2c |..      |0,0,0,0,|
|00001d10| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 20 20 2c 30 2c |0,0,0,0,|0,0  ,0,|
|00001d20| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0,0,|0,0,0,0,|
|00001d30| 30 20 20 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0  ,0,0,|0,0,0,0,|
|00001d40| 30 2c 30 5d 0d 20 20 0d | 20 20 73 65 74 20 67 6c |0,0].  .|  set gl|
|00001d50| 43 61 73 74 4f 66 53 70 | 72 69 74 65 20 3d 20 5b |CastOfSp|rite = [|
|00001d60| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0,0,|0,0,0,0,|
|00001d70| 30 2c 30 20 20 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |0,0  ,0,|0,0,0,0,|
|00001d80| 30 2c 30 2c 30 2c 30 2c | 30 2c c2 0d 20 20 20 20 |0,0,0,0,|0,..    |
|00001d90| 20 20 30 2c 30 2c 30 2c | 30 2c 30 2c 30 2c 30 2c |  0,0,0,|0,0,0,0,|
|00001da0| 30 2c 30 2c 30 20 20 2c | 30 2c 30 2c 30 2c 30 2c |0,0,0  ,|0,0,0,0,|
|00001db0| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 20 20 2c 30 2c |0,0,0,0,|0,0  ,0,|
|00001dc0| 30 2c 30 2c 30 2c 30 2c | 30 2c 30 2c 30 5d 0d 20 |0,0,0,0,|0,0,0]. |
|00001dd0| 20 0d 20 20 2d 2d 20 66 | 9f 72 20 49 53 44 4e 20 | .  -- f|.r ISDN |
|00001de0| 75 6e 64 20 54 4f 4e 4c | 49 4e 45 20 67 65 74 72 |und TONL|INE getr|
|00001df0| 65 6e 6e 74 0d 20 20 0d | 20 20 69 66 20 67 62 49 |ennt.  .|  if gbI|
|00001e00| 53 44 4e 20 3d 20 66 61 | 6c 73 65 20 74 68 65 6e |SDN = fa|lse then|
|00001e10| 20 0d 20 20 20 20 73 65 | 74 20 67 6c 4f 72 69 67 | .    se|t glOrig|
|00001e20| 4f 66 53 70 72 69 74 65 | 20 3d 20 5b 30 2c 20 30 |OfSprite| = [0, 0|
|00001e30| 2c 20 30 2c 20 30 2c 20 | 30 2c 20 30 2c 20 30 2c |, 0, 0, |0, 0, 0,|
|00001e40| 20 30 2c 20 30 2c 20 30 | 2c c2 0d 20 20 20 20 20 | 0, 0, 0|,..     |
|00001e50| 20 30 2c 20 30 2c 20 30 | 2c 20 30 2c 20 30 2c 20 | 0, 0, 0|, 0, 0, |
|00001e60| 30 2c 20 30 2c 20 30 2c | 20 30 2c 20 30 2c c2 0d |0, 0, 0,| 0, 0,..|
|00001e70| 20 20 20 20 20 20 30 2c | 20 30 2c 20 30 2c 20 30 |      0,| 0, 0, 0|
|00001e80| 2c 20 30 2c 20 33 31 36 | 2c 20 33 31 39 2c 20 33 |, 0, 316|, 319, 3|
|00001e90| 32 32 2c 20 33 39 31 2c | 20 33 31 31 2c c2 0d 20 |22, 391,| 311,.. |
|00001ea0| 20 20 20 20 33 31 32 2c | 20 33 31 33 2c 20 33 31 |    312,| 313, 31|
|00001eb0| 34 2c 20 33 33 31 2c 20 | 33 33 34 2c 20 33 34 30 |4, 331, |334, 340|
|00001ec0| 2c 20 33 33 37 2c 20 33 | 34 39 2c 20 33 38 35 2c |, 337, 3|49, 385,|
|00001ed0| 20 33 35 38 2c c2 0d 20 | 20 20 20 33 36 34 2c 20 | 358,.. |   364, |
|00001ee0| 33 37 30 2c 20 33 37 36 | 2c 20 33 39 36 2c 20 33 |370, 376|, 396, 3|
|00001ef0| 39 39 2c 20 33 32 37 2c | 20 30 2c 20 30 5d 0d 20 |99, 327,| 0, 0]. |
|00001f00| 20 65 6c 73 65 0d 20 20 | 20 20 2d 2d 73 65 74 20 | else.  |  --set |
|00001f10| 67 6c 4f 72 69 67 4f 66 | 53 70 72 69 74 65 20 3d |glOrigOf|Sprite =|
|00001f20| 20 67 6c 43 61 73 74 4f | 66 53 70 72 69 74 65 0d | glCastO|fSprite.|
|00001f30| 20 20 20 20 73 65 74 20 | 67 6c 4f 72 69 67 4f 66 |    set |glOrigOf|
|00001f40| 53 70 72 69 74 65 20 3d | 20 5b 30 2c 20 30 2c 20 |Sprite =| [0, 0, |
|00001f50| 30 2c 20 30 2c 20 30 2c | 20 30 2c 20 30 2c 20 30 |0, 0, 0,| 0, 0, 0|
|00001f60| 2c 20 30 2c 20 30 2c c2 | 0d 20 20 20 20 20 20 30 |, 0, 0,.|.      0|
|00001f70| 2c 20 30 2c 20 30 2c 20 | 30 2c 20 30 2c 20 30 2c |, 0, 0, |0, 0, 0,|
|00001f80| 20 30 2c 20 30 2c 20 30 | 2c 20 30 2c c2 0d 20 20 | 0, 0, 0|, 0,..  |
|00001f90| 20 20 20 20 30 2c 20 30 | 2c 20 30 2c 20 30 2c 20 |    0, 0|, 0, 0, |
|00001fa0| 30 2c 20 34 31 30 2c 20 | 34 31 33 2c 20 34 31 36 |0, 410, |413, 416|
|00001fb0| 2c 20 33 39 31 2c 20 30 | 2c c2 0d 20 20 20 20 20 |, 391, 0|,..     |
|00001fc0| 34 30 31 2c 20 34 30 32 | 2c 20 34 30 33 2c 20 30 |401, 402|, 403, 0|
|00001fd0| 2c 20 34 30 34 2c 20 33 | 34 30 2c 20 33 33 37 2c |, 404, 3|40, 337,|
|00001fe0| 20 33 34 39 2c 20 33 38 | 35 2c 20 30 2c c2 0d 20 | 349, 38|5, 0,.. |
|00001ff0| 20 20 20 34 32 30 2c 20 | 34 32 36 2c 20 34 33 32 |   420, |426, 432|
|00002000| 2c 20 34 34 37 2c 20 34 | 35 30 2c 20 34 30 37 2c |, 447, 4|50, 407,|
|00002010| 30 2c 20 30 5d 0d 20 20 | 65 6e 64 20 69 66 0d 20 |0, 0].  |end if. |
|00002020| 20 0d 20 20 0d 20 20 0d | 20 20 2d 2d 64 65 62 75 | .  .  .|  --debu|
|00002030| 67 20 22 20 20 73 70 72 | 69 74 65 72 6f 6c 6c 22 |g "  spr|iteroll"|
|00002040| 0d 20 20 0d 20 20 2d 2d | 20 6a 65 74 7a 74 20 63 |.  .  --| jetzt c|
|00002050| 61 73 74 20 6e 75 72 20 | 61 75 66 20 6f 72 67 69 |ast nur |auf orgi|
|00002060| 6e 61 6c 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |nal.  re|peat wit|
|00002070| 68 20 69 3d 20 31 20 74 | 6f 20 34 38 20 0d 20 20 |h i= 1 t|o 48 .  |
|00002080| 20 20 70 75 74 20 47 65 | 74 41 74 20 28 67 6c 4f |  put Ge|tAt (glO|
|00002090| 72 69 67 4f 66 53 70 72 | 69 74 65 2c 20 69 29 20 |rigOfSpr|ite, i) |
|000020a0| 69 6e 74 6f 20 78 0d 20 | 20 20 20 73 65 74 41 74 |into x. |   setAt|
|000020b0| 20 67 6c 43 61 73 74 4f | 66 53 70 72 69 74 65 2c | glCastO|fSprite,|
|000020c0| 20 69 20 2c 20 78 0d 20 | 20 65 6e 64 20 72 65 70 | i , x. | end rep|
|000020d0| 65 61 74 0d 20 20 0d 20 | 20 0d 20 20 0d 20 20 2d |eat.  . | .  .  -|
|000020e0| 2d 20 65 69 6e 7a 65 6c | 6e 20 64 69 65 20 67 65 |- einzel|n die ge|
|000020f0| 77 9f 6e 73 63 68 74 65 | 6e 20 73 70 72 69 74 65 |w.nschte|n sprite|
|00002100| 73 20 73 65 74 7a 65 6e | 2c 20 64 69 65 20 61 6b |s setzen|, die ak|
|00002110| 74 69 76 20 77 65 72 64 | 65 6e 0d 20 20 2d 2d 20 |tiv werd|en.  -- |
|00002120| 76 6f 72 2c 20 72 9f 63 | 6b 2c 69 6e 68 61 6c 74 |vor, r.c|k,inhalt|
|00002130| 0d 20 20 73 65 74 41 74 | 20 67 6c 53 70 72 69 74 |.  setAt| glSprit|
|00002140| 65 52 6f 6c 6c 2c 20 32 | 36 2c 20 31 0d 20 20 73 |eRoll, 2|6, 1.  s|
|00002150| 65 74 41 74 20 67 6c 53 | 70 72 69 74 65 52 6f 6c |etAt glS|priteRol|
|00002160| 6c 2c 20 32 37 2c 20 31 | 0d 20 20 73 65 74 41 74 |l, 27, 1|.  setAt|
|00002170| 20 67 6c 53 70 72 69 74 | 65 52 6f 6c 6c 2c 20 32 | glSprit|eRoll, 2|
|00002180| 38 2c 20 31 0d 20 20 0d | 20 20 2d 2d 20 62 75 74 |8, 1.  .|  -- but|
|00002190| 74 6f 6e 73 20 61 75 66 | 20 73 6c 69 64 65 72 0d |tons auf| slider.|
|000021a0| 20 20 73 65 74 41 74 20 | 67 6c 53 70 72 69 74 65 |  setAt |glSprite|
|000021b0| 52 6f 6c 6c 2c 20 33 34 | 2c 20 31 0d 20 20 73 65 |Roll, 34|, 1.  se|
|000021c0| 74 41 74 20 67 6c 53 70 | 72 69 74 65 52 6f 6c 6c |tAt glSp|riteRoll|
|000021d0| 2c 20 33 35 2c 20 31 0d | 20 20 73 65 74 41 74 20 |, 35, 1.|  setAt |
|000021e0| 67 6c 53 70 72 69 74 65 | 52 6f 6c 6c 2c 20 33 36 |glSprite|Roll, 36|
|000021f0| 2c 20 31 0d 20 20 73 65 | 74 41 74 20 67 6c 53 70 |, 1.  se|tAt glSp|
|00002200| 72 69 74 65 52 6f 6c 6c | 2c 20 33 37 2c 20 31 0d |riteRoll|, 37, 1.|
|00002210| 20 20 73 65 74 41 74 20 | 67 6c 53 70 72 69 74 65 |  setAt |glSprite|
|00002220| 52 6f 6c 6c 2c 20 33 38 | 2c 20 31 0d 20 20 73 65 |Roll, 38|, 1.  se|
|00002230| 74 41 74 20 67 6c 53 70 | 72 69 74 65 52 6f 6c 6c |tAt glSp|riteRoll|
|00002240| 2c 20 33 39 2c 20 31 0d | 20 20 73 65 74 20 74 68 |, 39, 1.|  set th|
|00002250| 65 20 63 6f 6e 73 74 72 | 61 69 6e 74 20 6f 66 20 |e constr|aint of |
|00002260| 73 70 72 69 74 65 20 33 | 39 20 74 6f 20 32 39 20 |sprite 3|9 to 29 |
|00002270| 20 2d 2d 20 6c 69 6e 69 | 65 20 66 9f 72 20 72 65 | -- lini|e f.r re|
|00002280| 67 6c 65 72 0d 20 20 0d | 20 20 0d 20 20 2d 2d 20 |gler.  .|  .  -- |
|00002290| 64 69 65 20 53 6c 69 64 | 65 72 43 68 65 63 6b 20 |die Slid|erCheck |
|000022a0| 42 75 74 74 6f 6e 73 2c | 32 3d 20 73 6f 6e 64 65 |Buttons,|2= sonde|
|000022b0| 72 20 66 75 6e 6b 74 69 | 6f 6e 0d 20 20 69 66 20 |r funkti|on.  if |
|000022c0| 67 62 49 53 44 4e 20 3d | 20 66 61 6c 73 65 20 74 |gbISDN =| false t|
|000022d0| 68 65 6e 0d 20 20 20 20 | 73 65 74 41 74 20 67 6c |hen.    |setAt gl|
|000022e0| 53 70 72 69 74 65 52 6f | 6c 6c 2c 20 34 30 2c 20 |SpriteRo|ll, 40, |
|000022f0| 32 20 20 2d 2d 74 6f 6e | 73 6c 69 6e 65 20 69 6e |2  --ton|sline in|
|00002300| 73 74 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 0d 20 |st.  end| if.  . |
|00002310| 20 73 65 74 41 74 20 67 | 6c 53 70 72 69 74 65 52 | setAt g|lSpriteR|
|00002320| 6f 6c 6c 2c 20 34 31 2c | 20 32 0d 20 20 73 65 74 |oll, 41,| 2.  set|
|00002330| 41 74 20 67 6c 53 70 72 | 69 74 65 52 6f 6c 6c 2c |At glSpr|iteRoll,|
|00002340| 20 34 32 2c 20 32 0d 20 | 20 73 65 74 41 74 20 67 | 42, 2. | setAt g|
|00002350| 6c 53 70 72 69 74 65 52 | 6f 6c 6c 2c 20 34 33 2c |lSpriteR|oll, 43,|
|00002360| 20 32 0d 20 20 0d 20 20 | 73 65 74 41 74 20 67 6c | 2.  .  |setAt gl|
|00002370| 53 70 72 69 74 65 52 6f | 6c 6c 2c 20 34 34 2c 20 |SpriteRo|ll, 44, |
|00002380| 31 0d 20 20 73 65 74 41 | 74 20 67 6c 53 70 72 69 |1.  setA|t glSpri|
|00002390| 74 65 52 6f 6c 6c 2c 20 | 34 35 2c 20 31 0d 20 20 |teRoll, |45, 1.  |
|000023a0| 73 65 74 41 74 20 67 6c | 53 70 72 69 74 65 52 6f |setAt gl|SpriteRo|
|000023b0| 6c 6c 2c 20 34 36 2c 20 | 31 20 2d 2d 20 65 6e 64 |ll, 46, |1 -- end|
|000023c0| 65 0d 20 20 0d 20 20 0d | 20 20 2d 2d 20 73 74 61 |e.  .  .|  -- sta|
|000023d0| 74 75 73 20 64 65 72 20 | 62 75 74 74 6f 6e 73 20 |tus der |buttons |
|000023e0| 0d 20 20 2d 2d 20 30 20 | 3d 20 4e 69 63 68 74 20 |.  -- 0 |= Nicht |
|000023f0| 73 69 63 68 74 62 61 72 | 2c 20 31 20 3d 73 69 63 |sichtbar|, 1 =sic|
|00002400| 68 74 62 61 72 2c 20 32 | 2e 2e 35 20 3d 20 42 75 |htbar, 2|..5 = Bu|
|00002410| 74 74 6f 6e 73 0d 20 20 | 2d 2d 20 69 6e 64 65 78 |ttons.  |-- index|
|00002420| 20 3d 31 20 2e 2e 20 34 | 20 66 9f 72 20 64 69 65 | =1 .. 4| f.r die|
|00002430| 20 73 6c 69 64 65 72 0d | 20 20 72 65 70 65 61 74 | slider.|  repeat|
|00002440| 20 77 69 74 68 20 69 3d | 20 31 20 74 6f 20 34 0d | with i=| 1 to 4.|
|00002450| 20 20 20 20 61 70 70 65 | 6e 64 20 67 6c 53 74 61 |    appe|nd glSta|
|00002460| 74 75 73 2c 20 30 0d 20 | 20 65 6e 64 20 72 65 70 |tus, 0. | end rep|
|00002470| 65 61 74 0d 20 20 73 65 | 74 20 67 69 53 6c 69 64 |eat.  se|t giSlid|
|00002480| 65 72 49 44 20 3d 20 30 | 0d 20 20 0d 20 20 0d 20 |erID = 0|.  .  . |
|00002490| 20 2d 2d 20 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d | -- ====|========|
|000024a0| 3d 3d 3d 3d 3d 3d 20 20 | 67 6c 6f 62 61 6c 20 73 |======  |global s|
|000024b0| 63 72 69 70 74 20 21 21 | 21 20 3d 3d 3d 3d 3d 3d |cript !!|! ======|
|000024c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 20 20 2d |========|====.  -|
|000024d0| 2d 20 44 69 65 20 41 6b | 74 69 6f 65 6e 20 64 69 |- Die Ak|tioen di|
|000024e0| 65 20 69 6d 20 4d 61 75 | 73 55 70 2f 44 6f 77 6e |e im Mau|sUp/Down|
|000024f0| 20 53 63 72 69 70 74 20 | 61 75 66 67 65 72 75 66 | Script |aufgeruf|
|00002500| 65 6e 20 77 65 72 64 65 | 6e 0d 20 20 2d 2d 20 6c |en werde|n.  -- l|
|00002510| 69 65 67 65 6e 20 69 6d | 20 73 63 72 69 70 74 20 |iegen im| script |
|00002520| 33 30 36 0d 20 20 0d 20 | 20 2d 2d 73 65 74 20 74 |306.  . | --set t|
|00002530| 68 65 20 6d 6f 75 73 65 | 44 6f 77 6e 53 63 72 69 |he mouse|DownScri|
|00002540| 70 74 20 20 74 6f 20 20 | 22 4d 79 4d 6f 75 73 65 |pt  to  |"MyMouse|
|00002550| 44 6f 77 6e 22 0d 20 20 | 2d 2d 73 65 74 20 74 68 |Down".  |--set th|
|00002560| 65 20 6d 6f 75 73 65 55 | 70 53 63 72 69 70 74 20 |e mouseU|pScript |
|00002570| 20 74 6f 20 20 22 4d 79 | 4d 6f 75 73 65 55 70 22 | to  "My|MouseUp"|
|00002580| 0d 20 20 0d 20 20 2d 2d | 20 2d 2d 2d 2d 2d 2d 2d |.  .  --| -------|
|00002590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000025b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000025c0| 20 20 0d 20 20 2d 2d 64 | 65 62 75 67 20 22 20 20 |  .  --d|ebug "  |
|000025d0| 61 63 74 69 6f 6e 70 72 | 6f 63 73 22 0d 20 20 0d |actionpr|ocs".  .|
|000025e0| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 3d |  repeat| with i=|
|000025f0| 20 31 20 74 6f 20 34 38 | 20 20 0d 20 20 20 20 61 | 1 to 48|  .    a|
|00002600| 70 70 65 6e 64 20 67 6c | 41 63 74 69 6f 6e 2c 20 |ppend gl|Action, |
|00002610| 22 44 75 6d 6d 79 41 63 | 74 69 6f 6e 22 20 20 20 |"DummyAc|tion"   |
|00002620| 2d 2d 20 69 6e 69 74 20 | 6d 69 74 20 64 75 6d 6d |-- init |mit dumm|
|00002630| 79 0d 20 20 65 6e 64 20 | 72 65 70 65 61 74 0d 20 |y.  end |repeat. |
|00002640| 20 2d 2d 20 6a 65 74 7a | 74 20 65 69 6e 7a 65 6c | -- jetz|t einzel|
|00002650| 6e 20 73 65 74 7a 65 6e | 0d 20 20 73 65 74 41 74 |n setzen|.  setAt|
|00002660| 20 67 6c 41 63 74 69 6f | 6e 2c 20 32 35 2c 22 43 | glActio|n, 25,"C|
|00002670| 68 65 63 6b 22 20 2d 2d | 64 75 6d 6d 79 0d 20 20 |heck" --|dummy.  |
|00002680| 0d 20 20 73 65 74 41 74 | 20 67 6c 41 63 74 69 6f |.  setAt| glActio|
|00002690| 6e 2c 20 32 36 2c 22 47 | 6f 50 72 65 76 22 0d 20 |n, 26,"G|oPrev". |
|000026a0| 20 73 65 74 41 74 20 67 | 6c 41 63 74 69 6f 6e 2c | setAt g|lAction,|
|000026b0| 20 32 37 2c 22 47 6f 4e | 65 78 74 22 0d 20 20 73 | 27,"GoN|ext".  s|
|000026c0| 65 74 41 74 20 67 6c 41 | 63 74 69 6f 6e 2c 20 32 |etAt glA|ction, 2|
|000026d0| 38 2c 22 47 6f 4d 65 6e | 75 22 0d 20 20 0d 20 20 |8,"GoMen|u".  .  |
|000026e0| 73 65 74 41 74 20 67 6c | 41 63 74 69 6f 6e 2c 20 |setAt gl|Action, |
|000026f0| 33 34 2c 22 49 6e 73 74 | 61 6c 6c 22 0d 20 20 73 |34,"Inst|all".  s|
|00002700| 65 74 41 74 20 67 6c 41 | 63 74 69 6f 6e 2c 20 33 |etAt glA|ction, 3|
|00002710| 35 2c 22 41 6e 74 72 61 | 67 22 0d 20 20 73 65 74 |5,"Antra|g".  set|
|00002720| 41 74 20 67 6c 41 63 74 | 69 6f 6e 2c 20 33 36 2c |At glAct|ion, 36,|
|00002730| 22 53 65 74 41 75 74 6f | 4e 65 69 6e 22 0d 20 20 |"SetAuto|Nein".  |
|00002740| 73 65 74 41 74 20 67 6c | 41 63 74 69 6f 6e 2c 20 |setAt gl|Action, |
|00002750| 33 37 2c 22 53 65 74 41 | 75 74 6f 4a 61 22 0d 20 |37,"SetA|utoJa". |
|00002760| 20 73 65 74 41 74 20 67 | 6c 41 63 74 69 6f 6e 2c | setAt g|lAction,|
|00002770| 20 33 38 2c 22 53 65 74 | 53 6f 75 6e 64 22 20 20 | 38,"Set|Sound"  |
|00002780| 20 20 20 20 2d 2d 20 61 | 6e 2f 61 75 73 0d 20 20 |    -- a|n/aus.  |
|00002790| 73 65 74 41 74 20 67 6c | 41 63 74 69 6f 6e 2c 20 |setAt gl|Action, |
|000027a0| 33 39 2c 22 53 65 74 53 | 6e 64 4c 65 76 65 6c 22 |39,"SetS|ndLevel"|
|000027b0| 20 20 20 2d 2d 72 65 67 | 6c 65 72 0d 20 20 0d 20 |   --reg|ler.  . |
|000027c0| 20 69 66 20 67 62 49 53 | 44 4e 20 3d 20 66 61 6c | if gbIS|DN = fal|
|000027d0| 73 65 20 74 68 65 6e 0d | 20 20 20 20 73 65 74 41 |se then.|    setA|
|000027e0| 74 20 67 6c 41 63 74 69 | 6f 6e 2c 20 34 30 2c 22 |t glActi|on, 40,"|
|000027f0| 65 73 63 49 6e 73 74 22 | 0d 20 20 65 6e 64 20 69 |escInst"|.  end i|
|00002800| 66 0d 20 20 0d 20 20 73 | 65 74 41 74 20 67 6c 41 |f.  .  s|etAt glA|
|00002810| 63 74 69 6f 6e 2c 20 34 | 31 2c 22 65 73 63 41 6e |ction, 4|1,"escAn|
|00002820| 74 72 61 67 22 0d 20 20 | 73 65 74 41 74 20 67 6c |trag".  |setAt gl|
|00002830| 41 63 74 69 6f 6e 2c 20 | 34 32 2c 22 65 73 63 41 |Action, |42,"escA|
|00002840| 75 74 6f 22 0d 20 20 73 | 65 74 41 74 20 67 6c 41 |uto".  s|etAt glA|
|00002850| 63 74 69 6f 6e 2c 20 34 | 33 2c 22 65 73 63 53 6f |ction, 4|3,"escSo|
|00002860| 75 6e 64 22 0d 20 20 0d | 20 20 2d 2d 73 65 74 41 |und".  .|  --setA|
|00002870| 74 20 67 6c 41 63 74 69 | 6f 6e 2c 20 34 34 2c 22 |t glActi|on, 44,"|
|00002880| 45 69 6e 73 49 6e 66 6f | 22 0d 20 20 0d 20 20 73 |EinsInfo|".  .  s|
|00002890| 65 74 41 74 20 67 6c 41 | 63 74 69 6f 6e 2c 20 34 |etAt glA|ction, 4|
|000028a0| 36 2c 22 46 69 6e 69 73 | 68 65 64 22 0d 20 20 0d |6,"Finis|hed".  .|
|000028b0| 20 20 0d 20 20 2d 2d 64 | 65 62 75 67 20 22 20 20 |  .  --d|ebug "  |
|000028c0| 68 69 64 65 34 38 22 0d | 20 20 2d 2d 20 9f 62 65 |hide48".|  -- .be|
|000028d0| 72 67 65 6c 61 67 65 72 | 74 65 72 20 73 70 72 69 |rgelager|ter spri|
|000028e0| 74 65 0d 20 20 2d 2d 20 | 65 76 74 6c 2e 20 6d 69 |te.  -- |evtl. mi|
|000028f0| 74 20 73 70 72 69 74 65 | 62 6f 78 20 6b 6c 65 69 |t sprite|box klei|
|00002900| 6e 65 72 20 6d 61 63 68 | 65 6e 0d 20 20 0d 20 20 |ner mach|en.  .  |
|00002910| 73 65 74 20 6f 6b 20 3d | 20 6e 6f 74 20 28 74 68 |set ok =| not (th|
|00002920| 65 20 6d 6f 76 69 65 6e | 61 6d 65 20 63 6f 6e 74 |e movien|ame cont|
|00002930| 61 69 6e 73 20 22 4d 45 | 4e 55 22 29 0d 20 20 69 |ains "ME|NU").  i|
|00002940| 66 20 28 74 68 65 20 63 | 61 73 74 6e 75 6d 20 6f |f (the c|astnum o|
|00002950| 66 20 73 70 72 69 74 65 | 20 34 38 20 3e 20 30 29 |f sprite| 48 > 0)|
|00002960| 20 61 6e 64 20 6f 6b 20 | 74 68 65 6e 0d 20 20 20 | and ok |then.   |
|00002970| 20 70 75 70 70 65 74 73 | 70 72 69 74 65 20 34 38 | puppets|prite 48|
|00002980| 20 2c 20 74 72 75 65 0d | 20 20 20 20 2d 2d 73 65 | , true.|    --se|
|00002990| 74 20 74 68 65 20 63 61 | 73 74 6e 75 6d 20 6f 66 |t the ca|stnum of|
|000029a0| 20 73 70 72 69 74 65 20 | 34 38 20 74 6f 20 33 39 | sprite |48 to 39|
|000029b0| 35 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 76 69 |5.    se|t the vi|
|000029c0| 73 69 62 6c 65 20 6f 66 | 20 73 70 72 69 74 65 20 |sible of| sprite |
|000029d0| 34 38 20 74 6f 20 66 61 | 6c 73 65 0d 20 20 20 20 |48 to fa|lse.    |
|000029e0| 75 70 64 61 74 65 73 74 | 61 67 65 0d 20 20 65 6e |updatest|age.  en|
|000029f0| 64 20 69 66 0d 20 20 0d | 20 20 2d 2d 64 65 62 75 |d if.  .|  --debu|
|00002a00| 67 20 22 69 6e 69 74 20 | 6f 6b 22 0d 65 6e 64 20 |g "init |ok".end |
|00002a10| 69 6e 69 74 73 63 72 65 | 65 6e 0d 0d 0d 2d 2d 20 |initscre|en...-- |
|00002a20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002a30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002a40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002a50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 6f 6e 20 |********|****.on |
|00002a60| 52 65 73 65 74 53 63 72 | 65 65 6e 0d 20 20 2d 2d |ResetScr|een.  --|
|00002a70| 20 69 6e 20 73 74 6f 70 | 20 6d 6f 76 69 65 0d 20 | in stop| movie. |
|00002a80| 20 0d 20 20 2d 2d 64 65 | 62 75 67 20 22 2d 2d 2d | .  --de|bug "---|
|00002a90| 2d 2d 2d 20 53 54 4f 50 | 20 4d 4f 56 49 45 20 2d |--- STOP| MOVIE -|
|00002aa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 22 0d 20 |--------|-----". |
|00002ab0| 20 0d 20 20 69 66 20 63 | 6f 75 6e 74 20 28 67 6c | .  if c|ount (gl|
|00002ac0| 4f 72 69 67 4f 66 53 70 | 72 69 74 65 29 20 3e 20 |OrigOfSp|rite) > |
|00002ad0| 34 37 20 74 68 65 6e 0d | 20 20 20 20 2d 2d 20 6e |47 then.|    -- n|
|00002ae0| 75 72 20 77 65 6e 6e 20 | 69 6e 69 74 20 73 63 72 |ur wenn |init scr|
|00002af0| 65 65 6e 20 76 6f 72 68 | 65 72 0d 20 20 20 20 72 |een vorh|er.    r|
|00002b00| 65 70 65 61 74 20 77 69 | 74 68 20 69 3d 20 32 36 |epeat wi|th i= 26|
|00002b10| 20 74 6f 20 34 36 20 0d | 20 20 20 20 20 20 70 75 | to 46 .|      pu|
|00002b20| 74 20 47 65 74 41 74 28 | 67 6c 4f 72 69 67 4f 66 |t GetAt(|glOrigOf|
|00002b30| 53 70 72 69 74 65 2c 20 | 69 29 20 69 6e 74 6f 20 |Sprite, |i) into |
|00002b40| 78 0d 20 20 20 20 20 20 | 73 65 74 20 74 68 65 20 |x.      |set the |
|00002b50| 63 61 73 74 6e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castnum |of sprit|
|00002b60| 65 20 69 20 3d 20 78 0d | 20 20 20 20 65 6e 64 20 |e i = x.|    end |
|00002b70| 72 65 70 65 61 74 0d 20 | 20 20 20 75 70 64 61 74 |repeat. |   updat|
|00002b80| 65 73 74 61 67 65 0d 20 | 20 65 6e 64 20 69 66 0d |estage. | end if.|
|00002b90| 20 20 0d 20 20 72 65 70 | 65 61 74 20 77 69 74 68 |  .  rep|eat with|
|00002ba0| 20 69 3d 20 32 36 20 74 | 6f 20 34 36 20 0d 20 20 | i= 26 t|o 46 .  |
|00002bb0| 20 20 69 66 20 74 68 65 | 20 70 75 70 70 65 74 20 |  if the| puppet |
|00002bc0| 6f 66 20 73 70 72 69 74 | 65 20 69 20 3d 20 74 72 |of sprit|e i = tr|
|00002bd0| 75 65 20 74 68 65 6e 0d | 20 20 20 20 20 20 70 75 |ue then.|      pu|
|00002be0| 70 70 65 74 73 70 72 69 | 74 65 20 69 2c 20 66 61 |ppetspri|te i, fa|
|00002bf0| 6c 73 65 20 20 0d 20 20 | 20 20 65 6e 64 20 69 66 |lse  .  |  end if|
|00002c00| 0d 20 20 65 6e 64 20 72 | 65 70 65 61 74 0d 20 20 |.  end r|epeat.  |
|00002c10| 0d 20 20 75 6e 6c 6f 61 | 64 0d 20 20 53 6f 75 6e |.  unloa|d.  Soun|
|00002c20| 64 20 53 74 6f 70 20 31 | 0d 20 20 73 65 74 20 74 |d Stop 1|.  set t|
|00002c30| 68 65 20 76 6f 6c 75 6d | 65 20 6f 66 20 73 6f 75 |he volum|e of sou|
|00002c40| 6e 64 20 31 20 74 6f 20 | 32 35 35 0d 20 20 0d 20 |nd 1 to |255.  . |
|00002c50| 20 53 6f 75 6e 64 20 53 | 74 6f 70 20 32 0d 20 20 | Sound S|top 2.  |
|00002c60| 73 65 74 20 74 68 65 20 | 76 6f 6c 75 6d 65 20 6f |set the |volume o|
|00002c70| 66 20 73 6f 75 6e 64 20 | 32 20 74 6f 20 32 35 35 |f sound |2 to 255|
|00002c80| 0d 20 20 0d 20 20 70 75 | 70 70 65 74 73 6f 75 6e |.  .  pu|ppetsoun|
|00002c90| 64 20 30 0d 20 20 0d 20 | 20 43 6c 65 61 72 53 79 |d 0.  . | ClearSy|
|00002ca0| 73 74 65 6d 20 20 2d 2d | 20 64 6c 6c 27 73 0d 20 |stem  --| dll's. |
|00002cb0| 20 52 65 73 65 74 54 68 | 65 4d 61 63 0d 20 20 2d | ResetTh|eMac.  -|
|00002cc0| 2d 64 65 62 75 67 20 22 | 4d 65 6d 6f 72 79 3a 20 |-debug "|Memory: |
|00002cd0| 22 20 26 20 74 68 65 20 | 66 72 65 65 62 79 74 65 |" & the |freebyte|
|00002ce0| 73 20 2f 20 31 30 32 34 | 0d 20 20 0d 20 20 0d 65 |s / 1024|.  .  .e|
|00002cf0| 6e 64 20 52 65 73 65 74 | 53 63 72 65 65 6e 0d 0d |nd Reset|Screen..|
|00002d00| 0d 2d 2d 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.-- ****|********|
|00002d10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002d20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002d30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002d40| 0d 6f 6e 20 49 6e 69 74 | 42 73 46 72 61 6d 65 20 |.on Init|BsFrame |
|00002d50| 0d 20 20 2d 2d 20 52 6f | 6c 6c 3d 74 72 75 65 2c |.  -- Ro|ll=true,|
|00002d60| 20 66 61 6c 6c 73 20 72 | 6f 6c 6c 6f 76 65 72 20 | falls r|ollover |
|00002d70| 73 63 72 65 65 6e 0d 20 | 20 0d 20 20 67 6c 6f 62 |screen. | .  glob|
|00002d80| 61 6c 20 67 6c 42 73 4c | 69 73 74 65 2c 20 67 6c |al glBsL|iste, gl|
|00002d90| 42 73 46 72 61 6d 65 2c | 20 67 62 41 6e 69 6d 61 |BsFrame,| gbAnima|
|00002da0| 74 69 6f 6e 2c 20 67 62 | 49 6e 69 74 46 72 61 6d |tion, gb|InitFram|
|00002db0| 65 0d 20 20 0d 20 20 73 | 65 74 20 67 6c 42 73 46 |e.  .  s|et glBsF|
|00002dc0| 72 61 6d 65 20 3d 20 5b | 5d 0d 20 20 72 65 70 65 |rame = [|].  repe|
|00002dd0| 61 74 20 77 69 74 68 20 | 69 20 3d 20 31 20 74 6f |at with |i = 1 to|
|00002de0| 20 63 6f 75 6e 74 20 28 | 67 6c 42 73 4c 69 73 74 | count (|glBsList|
|00002df0| 65 29 0d 20 20 20 20 70 | 75 74 20 67 65 74 41 74 |e).    p|ut getAt|
|00002e00| 20 28 67 6c 42 73 4c 69 | 73 74 65 2c 20 69 29 20 | (glBsLi|ste, i) |
|00002e10| 69 6e 74 6f 20 78 0d 20 | 20 20 20 61 70 70 65 6e |into x. |   appen|
|00002e20| 64 20 67 6c 42 73 46 72 | 61 6d 65 2c 20 6c 61 62 |d glBsFr|ame, lab|
|00002e30| 65 6c 20 28 78 29 20 20 | 2d 2d 20 66 72 61 6d 65 |el (x)  |-- frame|
|00002e40| 20 6e 75 6d 6d 65 72 20 | 64 65 73 20 6c 61 62 65 | nummer |des labe|
|00002e50| 6c 73 20 20 0d 20 20 65 | 6e 64 20 72 65 70 65 61 |ls  .  e|nd repea|
|00002e60| 74 0d 20 20 2d 2d 20 64 | 6d 69 74 20 64 61 73 20 |t.  -- d|mit das |
|00002e70| 6e 75 72 20 65 69 6e 6d | 61 6c 20 61 75 66 67 65 |nur einm|al aufge|
|00002e80| 72 75 66 65 6e 20 77 69 | 72 64 0d 20 20 73 65 74 |rufen wi|rd.  set|
|00002e90| 20 67 62 49 6e 69 74 46 | 72 61 6d 65 20 3d 20 74 | gbInitF|rame = t|
|00002ea0| 72 75 65 20 0d 65 6e 64 | 0d 0d 0d 0d 2d 2d 20 2a |rue .end|....-- *|
|00002eb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 6f 6e 20 53 |********|***.on S|
|00002ef0| 65 74 44 61 74 61 20 78 | 0d 20 20 2d 2d 20 41 75 |etData x|.  -- Au|
|00002f00| 73 74 61 75 73 63 68 20 | 7a 77 69 73 63 68 65 6e |stausch |zwischen|
|00002f10| 20 4d 6f 76 69 65 73 0d | 20 20 2d 2d 20 9f 62 65 | Movies.|  -- .be|
|00002f20| 72 20 65 78 74 72 61 20 | 70 72 6f 63 2c 20 64 61 |r extra |proc, da|
|00002f30| 6d 69 74 20 64 69 65 20 | 61 64 74 65 6e 20 65 76 |mit die |adten ev|
|00002f40| 74 6c 20 61 75 63 68 20 | 69 6e 20 65 69 6e 65 20 |tl auch |in eine |
|00002f50| 64 61 74 65 69 0d 20 20 | 2d 2d 20 7a 77 69 73 63 |datei.  |-- zwisc|
|00002f60| 68 65 6e 20 67 65 73 70 | 65 69 63 68 65 72 74 20 |hen gesp|eichert |
|00002f70| 77 65 72 64 65 6e 20 6b | 9a 6e 6e 65 6e 0d 20 20 |werden k|.nnen.  |
|00002f80| 0d 20 20 70 75 74 20 78 | 20 69 6e 74 6f 20 67 73 |.  put x| into gs|
|00002f90| 44 61 74 61 0d 65 6e 64 | 0d 0d 0d 2d 2d 20 2a 2a |Data.end|...-- **|
|00002fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002fc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002fd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 6f 6e 20 47 65 |********|**.on Ge|
|00002fe0| 74 44 61 74 61 20 0d 20 | 20 72 65 74 75 72 6e 20 |tData . | return |
|00002ff0| 67 73 44 61 74 61 20 20 | 2d 2d 20 77 68 69 63 68 |gsData  |-- which|
|00003000| 20 69 73 20 67 6c 6f 62 | 61 6c 20 62 74 77 2e 0d | is glob|al btw..|
|00003010| 20 20 0d 65 6e 64 0d 0d | 0d 2d 2d 20 2a 2a 2a 2a |  .end..|.-- ****|
|00003020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003050| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0d 6f 6e 20 49 6e 69 |********|..on Ini|
|00003060| 74 50 61 74 68 0d 20 20 | 2d 2d 20 72 65 64 65 66 |tPath.  |-- redef|
|00003070| 69 6e 69 74 69 6f 6e 20 | 64 65 72 20 70 61 66 64 |inition |der pafd|
|00003080| 6e 61 6d 65 6e 20 64 65 | 72 20 63 61 73 74 6d 65 |namen de|r castme|
|00003090| 6d 62 65 72 0d 20 20 2d | 2d 20 61 75 66 20 64 65 |mber.  -|- auf de|
|000030a0| 6e 20 4d 6f 76 69 65 50 | 61 74 68 0d 20 20 0d 20 |n MovieP|ath.  . |
|000030b0| 20 67 6c 6f 62 61 6c 20 | 67 73 53 6f 75 6e 64 50 | global |gsSoundP|
|000030c0| 61 74 68 0d 20 20 0d 20 | 20 0d 20 20 0d 20 20 0d |ath.  . | .  .  .|
|000030d0| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 3d |  repeat| with i=|
|000030e0| 20 31 20 74 6f 20 74 68 | 65 20 6e 75 6d 62 65 72 | 1 to th|e number|
|000030f0| 20 6f 66 20 63 61 73 74 | 4d 65 6d 62 65 72 73 0d | of cast|Members.|
|00003100| 20 20 20 20 70 75 74 20 | 74 68 65 20 63 61 73 74 |    put |the cast|
|00003110| 54 79 70 65 20 6f 66 20 | 63 61 73 74 20 69 20 69 |Type of |cast i i|
|00003120| 6e 74 6f 20 74 79 0d 20 | 20 20 20 0d 20 20 20 20 |nto ty. |   .    |
|00003130| 69 66 20 74 79 20 3d 20 | 23 73 6f 75 6e 64 20 74 |if ty = |#sound t|
|00003140| 68 65 6e 0d 20 20 20 20 | 20 20 70 75 74 20 74 68 |hen.    |  put th|
|00003150| 65 20 66 69 6c 65 6e 61 | 6d 65 20 6f 66 20 63 61 |e filena|me of ca|
|00003160| 73 74 20 69 20 69 6e 74 | 6f 20 78 0d 20 20 20 20 |st i int|o x.    |
|00003170| 20 20 70 75 74 20 45 78 | 74 72 61 63 74 46 69 6c |  put Ex|tractFil|
|00003180| 65 20 28 78 29 20 20 69 | 6e 74 6f 20 79 0d 20 20 |e (x)  i|nto y.  |
|00003190| 20 20 20 20 73 65 74 20 | 79 20 3d 20 20 67 73 4d |    set |y =  gsM|
|000031a0| 6f 76 69 65 50 61 74 68 | 20 26 20 22 73 6f 75 6e |oviePath| & "soun|
|000031b0| 64 5c 22 20 26 20 79 20 | 26 20 22 2e 61 69 66 22 |d\" & y |& ".aif"|
|000031c0| 0d 20 20 20 20 20 20 73 | 65 74 20 74 68 65 20 66 |.      s|et the f|
|000031d0| 69 6c 65 6e 61 6d 65 20 | 6f 66 20 63 61 73 74 20 |ilename |of cast |
|000031e0| 69 20 3d 20 79 0d 20 20 | 20 20 65 6e 64 20 69 66 |i = y.  |  end if|
|000031f0| 0d 20 20 20 20 0d 20 20 | 20 20 69 66 20 74 79 20 |.    .  |  if ty |
|00003200| 3d 20 23 64 69 67 69 74 | 61 6c 56 69 64 65 6f 20 |= #digit|alVideo |
|00003210| 74 68 65 6e 0d 20 20 20 | 20 20 20 70 75 74 20 74 |then.   |   put t|
|00003220| 68 65 20 66 69 6c 65 6e | 61 6d 65 20 6f 66 20 63 |he filen|ame of c|
|00003230| 61 73 74 20 69 20 69 6e | 74 6f 20 78 0d 20 20 20 |ast i in|to x.   |
|00003240| 20 20 20 70 75 74 20 45 | 78 74 72 61 63 74 46 69 |   put E|xtractFi|
|00003250| 6c 65 20 28 78 29 20 20 | 69 6e 74 6f 20 79 0d 20 |le (x)  |into y. |
|00003260| 20 20 20 20 20 73 65 74 | 20 79 20 3d 20 20 67 73 |     set| y =  gs|
|00003270| 4d 6f 76 69 65 50 61 74 | 68 20 26 20 22 76 69 64 |MoviePat|h & "vid|
|00003280| 65 6f 5c 22 20 26 20 79 | 0d 20 20 20 20 20 20 73 |eo\" & y|.      s|
|00003290| 65 74 20 74 68 65 20 66 | 69 6c 65 6e 61 6d 65 20 |et the f|ilename |
|000032a0| 6f 66 20 63 61 73 74 20 | 69 20 3d 20 79 0d 20 20 |of cast |i = y.  |
|000032b0| 20 20 65 6e 64 20 69 66 | 0d 20 20 65 6e 64 20 72 |  end if|.  end r|
|000032c0| 65 70 65 61 74 0d 65 6e | 64 20 49 6e 69 74 50 61 |epeat.en|d InitPa|
|000032d0| 74 68 0d 0d 0d 2d 2d 20 | 2a 2a 2a 2a 2a 2a 2a 2a |th...-- |********|
|000032e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000032f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003300| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003310| 2a 2a 2a 2a 0d 0d 6f 6e | 20 45 78 74 72 61 63 74 |****..on| Extract|
|00003320| 46 69 6c 65 20 78 0d 20 | 20 73 65 74 20 70 3d 30 |File x. | set p=0|
|00003330| 0d 20 20 73 65 74 20 79 | 20 3d 20 22 22 0d 20 20 |.  set y| = "".  |
|00003340| 2d 2d 20 6c 65 74 7a 74 | 65 73 20 5c 20 73 75 63 |-- letzt|es \ suc|
|00003350| 68 65 6e 0d 20 20 72 65 | 70 65 61 74 20 77 69 74 |hen.  re|peat wit|
|00003360| 68 20 69 20 3d 20 31 20 | 74 6f 20 6c 65 6e 67 74 |h i = 1 |to lengt|
|00003370| 68 28 78 29 0d 20 20 20 | 20 69 66 20 28 63 68 61 |h(x).   | if (cha|
|00003380| 72 20 69 20 6f 66 20 78 | 20 3d 20 22 5c 22 29 20 |r i of x| = "\") |
|00003390| 6f 72 20 28 63 68 61 72 | 20 69 20 6f 66 20 78 20 |or (char| i of x |
|000033a0| 3d 20 22 3a 22 29 20 74 | 68 65 6e 20 73 65 74 20 |= ":") t|hen set |
|000033b0| 70 20 3d 20 69 0d 20 20 | 65 6e 64 20 72 65 70 65 |p = i.  |end repe|
|000033c0| 61 74 0d 20 20 0d 20 20 | 73 65 74 20 6a 3d 30 0d |at.  .  |set j=0.|
|000033d0| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 20 |  repeat| with i |
|000033e0| 3d 20 70 2b 31 20 74 6f | 20 6c 65 6e 67 74 68 28 |= p+1 to| length(|
|000033f0| 78 29 0d 20 20 20 20 73 | 65 74 20 6a 20 3d 20 6a |x).    s|et j = j|
|00003400| 20 2b 31 0d 20 20 20 20 | 70 75 74 20 63 68 61 72 | +1.    |put char|
|00003410| 20 69 20 6f 66 20 78 20 | 20 69 6e 74 6f 20 63 68 | i of x | into ch|
|00003420| 61 72 20 6a 20 6f 66 20 | 79 20 0d 20 20 65 6e 64 |ar j of |y .  end|
|00003430| 20 72 65 70 65 61 74 0d | 20 20 72 65 74 75 72 6e | repeat.|  return|
|00003440| 20 79 0d 65 6e 64 0d 0d | 0d 0d 6f 6e 20 43 68 65 | y.end..|..on Che|
|00003450| 63 6b 42 73 49 6e 69 20 | 0d 20 20 67 6c 6f 62 61 |ckBsIni |.  globa|
|00003460| 6c 20 67 73 4c 61 73 74 | 4d 6f 76 69 65 0d 20 20 |l gsLast|Movie.  |
|00003470| 0d 20 20 73 65 74 20 6f | 6b 20 3d 20 30 0d 20 20 |.  set o|k = 0.  |
|00003480| 69 66 20 67 73 4c 61 73 | 74 4d 6f 76 69 65 20 3d |if gsLas|tMovie =|
|00003490| 20 74 68 65 20 6d 6f 76 | 69 65 6e 61 6d 65 20 74 | the mov|iename t|
|000034a0| 68 65 6e 0d 20 20 20 20 | 73 65 74 20 6f 6b 20 3d |hen.    |set ok =|
|000034b0| 20 31 0d 20 20 65 6c 73 | 65 0d 20 20 20 20 73 65 | 1.  els|e.    se|
|000034c0| 74 20 67 73 4c 61 73 74 | 4d 6f 76 69 65 20 3d 20 |t gsLast|Movie = |
|000034d0| 74 68 65 20 6d 6f 76 69 | 65 4e 61 6d 65 0d 20 20 |the movi|eName.  |
|000034e0| 65 6e 64 20 69 66 0d 20 | 20 72 65 74 75 72 6e 20 |end if. | return |
|000034f0| 6f 6b 0d 65 6e 64 0d 00 | 2a 00 04 02 6c 03 3c 00 |ok.end..|*...l.<.|
|00003500| 00 21 9e 00 00 21 9e 00 | 28 e6 95 00 01 00 00 00 |.!...!..|(.......|
|00003510| 00 00 10 00 0c 00 04 00 | 00 00 0c 00 00 00 00 00 |........|........|
|00003520| 00 00 00 00 00 00 00 00 | 00 00 00 00 11 d0 01 73 |........|.......s|
|00003530| 7b 08 00 00 00 14 00 00 | 00 00 00 00 74 53 41 43 |{.......|....tSAC|
|00003540| cb 11 00 00 00 04 00 00 | 11 c1 0b 00 00 03 00 00 |........|........|
|00003550| 00 14 44 00 37 26 00 00 | 00 00 00 00 00 00 00 00 |..D.7&..|........|
|00003560| 00 05 00 07 00 00 00 00 | 00 00 10 71 00 00 10 71 |........|...q...q|
|00003570| 00 00 10 71 00 00 10 71 | 00 00 10 71 00 00 10 85 |...q...q|...q....|
|00003580| 00 00 11 8b 2d 2d 55 74 | 69 6c 69 74 65 73 20 0d |....--Ut|ilites .|
|00003590| 0d 2d 2d 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.-- ****|********|
|000035a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000035b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000035c0| 2a 2a 2a 2a 2a 0d 0d 6f | 6e 20 46 65 68 6c 65 72 |*****..o|n Fehler|
|000035d0| 20 4e 72 2c 20 49 6e 66 | 6f 0d 20 20 67 6c 6f 62 | Nr, Inf|o.  glob|
|000035e0| 61 6c 20 43 52 4c 46 2c | 20 0d 20 20 70 75 74 20 |al CRLF,| .  put |
|000035f0| 49 6e 66 6f 20 69 6e 74 | 6f 20 54 65 78 74 0d 20 |Info int|o Text. |
|00003600| 20 69 66 20 4e 72 20 3d | 20 31 30 31 20 74 68 65 | if Nr =| 101 the|
|00003610| 6e 20 70 75 74 20 22 4d | 6f 64 75 6c 3a 20 75 74 |n put "M|odul: ut|
|00003620| 69 6c 69 74 79 20 6e 69 | 63 68 74 20 76 6f 72 68 |ility ni|cht vorh|
|00003630| 61 6e 64 65 6e 22 0d 20 | 20 69 66 20 4e 72 20 3d |anden". | if Nr =|
|00003640| 20 31 30 32 20 74 68 65 | 6e 20 70 75 74 20 22 4d | 102 the|n put "M|
|00003650| 6f 64 75 6c 3a 20 66 69 | 6c 65 69 6f 20 6e 69 63 |odul: fi|leio nic|
|00003660| 68 74 20 76 6f 72 68 61 | 6e 64 65 6e 22 0d 20 20 |ht vorha|nden".  |
|00003670| 0d 20 20 61 6c 65 72 74 | 20 22 46 65 68 6c 65 72 |.  alert| "Fehler|
|00003680| 3a 20 22 20 26 20 4e 72 | 20 26 20 43 52 4c 46 20 |: " & Nr| & CRLF |
|00003690| 26 20 54 65 78 74 0d 65 | 6e 64 20 46 65 68 6c 65 |& Text.e|nd Fehle|
|000036a0| 72 0d 0d 0d 2d 2d 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |r...-- *|********|
|000036b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000036c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000036d0| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0d 6f 6e 20 64 65 62 |********|..on deb|
|000036e0| 75 67 20 74 65 78 74 0d | 20 20 2d 2d 70 75 74 20 |ug text.|  --put |
|000036f0| 74 65 78 74 0d 65 6e 64 | 20 64 65 62 75 67 0d 0d |text.end| debug..|
|00003700| 2d 2d 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |-- *****|********|
|00003710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003720| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003730| 2a 2a 2a 2a 0d 6f 6e 20 | 57 61 69 74 54 69 63 6b |****.on |WaitTick|
|00003740| 73 20 41 6e 7a 0d 20 20 | 73 65 74 20 6d 79 54 69 |s Anz.  |set myTi|
|00003750| 63 6b 73 20 3d 20 74 68 | 65 20 74 69 63 6b 73 20 |cks = th|e ticks |
|00003760| 2b 20 41 6e 7a 0d 20 20 | 72 65 70 65 61 74 20 77 |+ Anz.  |repeat w|
|00003770| 68 69 6c 65 20 28 74 68 | 65 20 74 69 63 6b 73 20 |hile (th|e ticks |
|00003780| 3c 20 6d 79 54 69 63 6b | 73 29 0d 20 20 20 20 2d |< myTick|s).    -|
|00003790| 2d 20 6e 61 64 61 20 20 | 0d 20 20 65 6e 64 20 72 |- nada  |.  end r|
|000037a0| 65 70 65 61 74 0d 65 6e | 64 0d 0d 0d 2d 2d 20 2a |epeat.en|d...-- *|
|000037b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000037e0| 20 0d 0d 6f 6e 20 50 6c | 61 79 4d 75 73 69 63 20 | ..on Pl|ayMusic |
|000037f0| 78 0d 20 20 67 6c 6f 62 | 61 6c 20 67 69 4d 75 73 |x.  glob|al giMus|
|00003800| 69 63 0d 20 20 0d 20 20 | 69 66 20 67 69 4d 75 73 |ic.  .  |if giMus|
|00003810| 69 63 20 3e 20 30 20 74 | 68 65 6e 20 0d 20 20 20 |ic > 0 t|hen .   |
|00003820| 20 69 66 20 6e 6f 74 20 | 73 6f 75 6e 64 62 75 73 | if not |soundbus|
|00003830| 79 20 28 31 29 20 74 68 | 65 6e 0d 20 20 20 20 20 |y (1) th|en.     |
|00003840| 20 70 75 70 70 65 74 73 | 6f 75 6e 64 20 30 0d 20 | puppets|ound 0. |
|00003850| 20 20 20 20 20 70 75 70 | 70 65 74 73 6f 75 6e 64 |     pup|petsound|
|00003860| 20 78 20 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 | x .    |end if. |
|00003870| 20 65 6e 64 20 69 66 0d | 65 6e 64 0d 0d 0d 2d 2d | end if.|end...--|
|00003880| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00003890| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000038a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000038b0| 2a 2a 20 0d 0d 6f 6e 20 | 50 6c 61 79 4e 6f 69 73 |** ..on |PlayNois|
|000038c0| 65 20 78 0d 20 20 67 6c | 6f 62 61 6c 20 67 69 4e |e x.  gl|obal giN|
|000038d0| 6f 69 73 65 0d 20 20 0d | 20 20 0d 20 20 69 66 20 |oise.  .|  .  if |
|000038e0| 67 69 4e 6f 69 73 65 20 | 3e 30 20 74 68 65 6e 20 |giNoise |>0 then |
|000038f0| 0d 20 20 20 20 70 75 70 | 70 65 74 73 6f 75 6e 64 |.    pup|petsound|
|00003900| 20 78 20 0d 20 20 20 20 | 2d 2d 77 61 69 74 74 69 | x .    |--waitti|
|00003910| 63 6b 73 20 36 30 20 20 | 0d 20 20 65 6e 64 20 69 |cks 60  |.  end i|
|00003920| 66 0d 20 20 0d 65 6e 64 | 0d 0d 2d 2d 20 2a 2a 2a |f.  .end|..-- ***|
|00003930| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003940| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003950| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 20 0d |********|****** .|
|00003960| 0d 6f 6e 20 53 74 6f 70 | 54 68 61 74 53 6f 75 6e |.on Stop|ThatSoun|
|00003970| 64 0d 20 20 67 6c 6f 62 | 61 6c 20 67 69 4d 6f 76 |d.  glob|al giMov|
|00003980| 69 65 4e 72 0d 20 20 0d | 20 20 2d 2d 20 61 75 73 |ieNr.  .|  -- aus|
|00003990| 62 6c 65 6e 64 65 6e 20 | 4b 61 6e 61 6c 20 2c 20 |blenden |Kanal , |
|000039a0| 77 61 72 74 65 6e 2c 20 | 64 61 6e 6e 20 77 65 69 |warten, |dann wei|
|000039b0| 74 65 72 20 0d 20 20 2d | 2d 64 65 62 75 67 20 22 |ter .  -|-debug "|
|000039c0| 53 74 6f 70 54 68 61 74 | 53 6f 75 6e 64 20 69 6e |StopThat|Sound in|
|000039d0| 22 0d 20 20 0d 20 20 69 | 66 20 73 6f 75 6e 64 42 |".  .  i|f soundB|
|000039e0| 75 73 79 20 28 31 29 20 | 74 68 65 6e 20 0d 20 20 |usy (1) |then .  |
|000039f0| 20 20 2d 2d 73 6f 75 6e | 64 20 46 61 64 65 4f 75 |  --soun|d FadeOu|
|00003a00| 74 20 31 2c 20 31 30 0d | 20 20 20 20 2d 2d 57 61 |t 1, 10.|    --Wa|
|00003a10| 69 74 54 69 63 6b 73 20 | 31 30 0d 20 20 20 20 73 |itTicks |10.    s|
|00003a20| 6f 75 6e 64 20 73 74 6f | 70 20 31 0d 20 20 20 20 |ound sto|p 1.    |
|00003a30| 2d 2d 73 6f 75 6e 64 20 | 46 61 64 65 49 6e 20 31 |--sound |FadeIn 1|
|00003a40| 2c 20 31 30 20 20 20 20 | 0d 20 20 20 20 2d 2d 57 |, 10    |.    --W|
|00003a50| 61 69 74 54 69 63 6b 73 | 20 31 30 0d 20 20 65 6e |aitTicks| 10.  en|
|00003a60| 64 20 69 66 0d 20 20 0d | 20 20 69 66 20 73 6f 75 |d if.  .|  if sou|
|00003a70| 6e 64 42 75 73 79 20 28 | 32 29 20 74 68 65 6e 0d |ndBusy (|2) then.|
|00003a80| 20 20 20 20 2d 2d 73 6f | 75 6e 64 20 46 61 64 65 |    --so|und Fade|
|00003a90| 4f 75 74 20 32 2c 20 31 | 30 0d 20 20 20 20 2d 2d |Out 2, 1|0.    --|
|00003aa0| 57 61 69 74 54 69 63 6b | 73 20 31 30 0d 20 20 20 |WaitTick|s 10.   |
|00003ab0| 20 73 6f 75 6e 64 20 73 | 74 6f 70 20 32 0d 20 20 | sound s|top 2.  |
|00003ac0| 20 20 2d 2d 73 6f 75 6e | 64 20 46 61 64 65 49 6e |  --soun|d FadeIn|
|00003ad0| 20 32 2c 20 31 30 20 20 | 0d 20 20 20 20 2d 2d 57 | 2, 10  |.    --W|
|00003ae0| 61 69 74 54 69 63 6b 73 | 20 31 30 0d 20 20 65 6e |aitTicks| 10.  en|
|00003af0| 64 20 69 66 0d 20 20 0d | 20 20 0d 20 20 2d 2d 20 |d if.  .|  .  -- |
|00003b00| 65 76 74 6c 20 6c 61 75 | 66 65 6e 64 65 73 20 6d |evtl lau|fendes m|
|00003b10| 6f 76 69 65 20 61 6e 68 | 61 6c 74 65 6e 0d 20 20 |ovie anh|alten.  |
|00003b20| 2d 2d 20 6d 6f 76 69 65 | 20 4e 72 2e 20 77 69 72 |-- movie| Nr. wir|
|00003b30| 64 20 69 6e 20 77 61 69 | 74 4d 6f 76 69 65 20 67 |d in wai|tMovie g|
|00003b40| 65 73 65 74 7a 74 20 20 | 0d 20 20 69 66 20 67 69 |esetzt  |.  if gi|
|00003b50| 4d 6f 76 69 65 4e 72 20 | 3e 20 30 20 74 68 65 6e |MovieNr |> 0 then|
|00003b60| 20 0d 20 20 20 20 2d 2d | 20 73 65 74 20 74 68 65 | .    --| set the|
|00003b70| 20 6d 6f 76 69 65 72 61 | 74 65 20 6f 66 20 73 70 | moviera|te of sp|
|00003b80| 72 69 74 65 20 67 69 4d | 6f 76 69 65 4e 72 20 3d |rite giM|ovieNr =|
|00003b90| 20 30 0d 20 20 20 20 73 | 65 74 20 67 69 4d 6f 76 | 0.    s|et giMov|
|00003ba0| 69 65 4e 72 20 3d 30 0d | 20 20 65 6e 64 20 69 66 |ieNr =0.|  end if|
|00003bb0| 0d 20 20 0d 20 20 2d 2d | 64 65 62 75 67 20 22 53 |.  .  --|debug "S|
|00003bc0| 74 6f 70 54 68 61 74 53 | 6f 75 6e 64 20 6f 75 74 |topThatS|ound out|
|00003bd0| 22 0d 20 20 0d 20 20 0d | 65 6e 64 0d 0d 0d 0d 2d |".  .  .|end....-|
|00003be0| 2d 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |- ******|********|
|00003bf0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003c10| 2a 2a 2a 0d 0d 6f 6e 20 | 42 75 73 79 57 61 69 74 |***..on |BusyWait|
|00003c20| 20 73 65 63 73 0d 20 20 | 67 6c 6f 62 61 6c 20 67 | secs.  |global g|
|00003c30| 62 51 75 69 74 57 61 69 | 74 0d 20 20 2d 2d 20 65 |bQuitWai|t.  -- e|
|00003c40| 72 6c 61 75 62 74 20 69 | 6e 74 65 72 61 63 74 69 |rlaubt i|nteracti|
|00003c50| 6f 6e 20 77 8a 68 72 65 | 6e 64 20 64 65 73 20 77 |on w.hre|nd des w|
|00003c60| 61 72 74 65 6e 73 0d 20 | 20 73 65 74 20 62 6c 69 |artens. | set bli|
|00003c70| 6e 6b 3d 20 74 68 65 20 | 74 69 63 6b 73 0d 20 20 |nk= the |ticks.  |
|00003c80| 73 65 74 20 61 6e 7a 20 | 3d 20 73 65 63 73 20 2a |set anz |= secs *|
|00003c90| 20 36 30 0d 20 20 73 65 | 74 20 6d 79 54 69 63 6b | 60.  se|t myTick|
|00003ca0| 73 20 3d 20 74 68 65 20 | 74 69 63 6b 73 20 2b 20 |s = the |ticks + |
|00003cb0| 41 6e 7a 0d 20 20 72 65 | 70 65 61 74 20 77 68 69 |Anz.  re|peat whi|
|00003cc0| 6c 65 20 28 74 68 65 20 | 74 69 63 6b 73 20 3c 20 |le (the |ticks < |
|00003cd0| 6d 79 54 69 63 6b 73 29 | 20 0d 20 20 20 20 43 68 |myTicks)| .    Ch|
|00003ce0| 65 63 6b 4d 79 52 6f 6c | 6c 6f 76 65 72 0d 20 20 |eckMyRol|lover.  |
|00003cf0| 20 20 69 66 20 74 68 65 | 20 74 69 63 6b 73 20 3e |  if the| ticks >|
|00003d00| 20 62 6c 69 6e 6b 20 2b | 20 31 30 20 74 68 65 6e | blink +| 10 then|
|00003d10| 0d 20 20 20 20 20 20 6d | 79 69 64 6c 65 20 20 0d |.      m|yidle  .|
|00003d20| 20 20 20 20 20 20 73 65 | 74 20 62 6c 69 6e 6b 3d |      se|t blink=|
|00003d30| 20 74 68 65 20 74 69 63 | 6b 73 0d 20 20 20 20 65 | the tic|ks.    e|
|00003d40| 6e 64 20 69 66 0d 20 20 | 20 20 69 66 20 67 62 51 |nd if.  |  if gbQ|
|00003d50| 75 69 74 57 61 69 74 20 | 3d 20 74 72 75 65 20 74 |uitWait |= true t|
|00003d60| 68 65 6e 0d 20 20 20 20 | 20 20 2d 2d 64 65 62 75 |hen.    |  --debu|
|00003d70| 67 20 22 65 78 69 74 20 | 62 75 73 79 22 0d 20 20 |g "exit |busy".  |
|00003d80| 20 20 20 20 65 78 69 74 | 20 72 65 70 65 61 74 0d |    exit| repeat.|
|00003d90| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 0d |    end |if.    .|
|00003da0| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 20 20 73 |  end re|peat.  s|
|00003db0| 65 74 20 67 62 51 75 69 | 74 57 61 69 74 20 3d 20 |et gbQui|tWait = |
|00003dc0| 66 61 6c 73 65 0d 65 6e | 64 0d 0d 0d 2d 2d 20 2a |false.en|d...-- *|
|00003dd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003de0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003df0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003e00| 0d 0d 6f 6e 20 53 6f 75 | 6e 64 57 61 69 74 20 54 |..on Sou|ndWait T|
|00003e10| 72 61 63 6b 0d 20 20 2d | 2d 20 65 72 6c 61 75 62 |rack.  -|- erlaub|
|00003e20| 74 20 69 6e 74 65 72 61 | 63 74 69 6f 6e 20 77 8a |t intera|ction w.|
|00003e30| 68 72 65 6e 64 20 64 65 | 73 20 77 61 72 74 65 6e |hrend de|s warten|
|00003e40| 73 0d 20 20 67 6c 6f 62 | 61 6c 20 67 62 51 75 69 |s.  glob|al gbQui|
|00003e50| 74 57 61 69 74 0d 20 20 | 0d 20 20 69 66 20 54 72 |tWait.  |.  if Tr|
|00003e60| 61 63 6b 20 3d 20 30 20 | 74 68 65 6e 0d 20 20 20 |ack = 0 |then.   |
|00003e70| 20 73 65 74 20 74 72 61 | 63 6b 20 3d 20 32 0d 20 | set tra|ck = 2. |
|00003e80| 20 65 6e 64 20 69 66 0d | 20 20 73 65 74 20 62 6c | end if.|  set bl|
|00003e90| 69 6e 6b 3d 20 74 68 65 | 20 74 69 63 6b 73 0d 20 |ink= the| ticks. |
|00003ea0| 20 0d 20 20 72 65 70 65 | 61 74 20 77 68 69 6c 65 | .  repe|at while|
|00003eb0| 20 73 6f 75 6e 64 42 75 | 73 79 20 28 54 72 61 63 | soundBu|sy (Trac|
|00003ec0| 6b 29 0d 20 20 20 20 43 | 68 65 63 6b 4d 79 52 6f |k).    C|heckMyRo|
|00003ed0| 6c 6c 6f 76 65 72 0d 20 | 20 20 20 6d 79 69 64 6c |llover. |   myidl|
|00003ee0| 65 20 20 0d 20 20 20 20 | 69 66 20 67 62 51 75 69 |e  .    |if gbQui|
|00003ef0| 74 57 61 69 74 20 74 68 | 65 6e 20 0d 20 20 20 20 |tWait th|en .    |
|00003f00| 20 20 65 78 69 74 20 72 | 65 70 65 61 74 20 20 0d |  exit r|epeat  .|
|00003f10| 20 20 20 20 65 6e 64 20 | 69 66 0d 20 20 20 20 0d |    end |if.    .|
|00003f20| 20 20 65 6e 64 20 72 65 | 70 65 61 74 0d 65 6e 64 |  end re|peat.end|
|00003f30| 0d 0d 2d 2d 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..-- ***|********|
|00003f40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003f50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00003f60| 2a 2a 2a 2a 2a 2a 0d 0d | 0d 6f 6e 20 4d 6f 76 69 |******..|.on Movi|
|00003f70| 65 57 61 69 74 20 53 70 | 6e 0d 20 20 67 6c 6f 62 |eWait Sp|n.  glob|
|00003f80| 61 6c 20 67 69 4d 6f 76 | 69 65 4e 72 0d 20 20 0d |al giMov|ieNr.  .|
|00003f90| 20 20 2d 2d 20 65 72 6c | 61 75 62 74 20 69 6e 74 |  -- erl|aubt int|
|00003fa0| 65 72 61 63 74 69 6f 6e | 20 77 8a 68 72 65 6e 64 |eraction| w.hrend|
|00003fb0| 20 64 65 73 20 77 61 72 | 74 65 6e 73 0d 20 20 0d | des war|tens.  .|
|00003fc0| 20 20 73 65 74 20 67 69 | 4d 6f 76 69 65 4e 72 20 |  set gi|MovieNr |
|00003fd0| 3d 20 53 70 6e 0d 20 20 | 70 75 74 20 74 68 65 20 |= Spn.  |put the |
|00003fe0| 63 61 73 74 6e 75 6d 20 | 6f 66 20 73 70 72 69 74 |castnum |of sprit|
|00003ff0| 65 20 73 70 6e 20 69 6e | 74 6f 20 78 0d 20 20 70 |e spn in|to x.  p|
|00004000| 75 74 20 74 68 65 20 43 | 61 73 74 54 79 70 65 20 |ut the C|astType |
|00004010| 6f 66 20 63 61 73 74 20 | 78 20 69 6e 74 6f 20 74 |of cast |x into t|
|00004020| 79 0d 20 20 73 65 74 20 | 6f 6b 20 3d 20 74 72 75 |y.  set |ok = tru|
|00004030| 65 0d 20 20 0d 20 20 69 | 66 20 78 3e 30 20 74 68 |e.  .  i|f x>0 th|
|00004040| 65 6e 0d 20 20 20 20 2d | 2d 20 67 69 62 74 20 66 |en.    -|- gibt f|
|00004050| 65 68 6c 65 72 2c 20 66 | 61 6c 6c 73 20 6b 65 69 |ehler, f|alls kei|
|00004060| 6e 20 6d 6f 76 69 65 0d | 20 20 20 20 69 66 20 74 |n movie.|    if t|
|00004070| 79 20 3d 20 23 64 69 67 | 69 74 61 6c 56 69 64 65 |y = #dig|italVide|
|00004080| 6f 20 74 68 65 6e 0d 20 | 20 20 20 20 20 72 65 70 |o then. |     rep|
|00004090| 65 61 74 20 77 68 69 6c | 65 20 6f 6b 0d 20 20 20 |eat whil|e ok.   |
|000040a0| 20 20 20 20 20 69 66 20 | 67 69 4d 6f 76 69 65 4e |     if |giMovieN|
|000040b0| 72 20 3e 30 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |r >0 the|n.      |
|000040c0| 20 20 20 20 2d 2d 20 66 | 61 6c 6c 73 20 4e 61 76 |    -- f|alls Nav|
|000040d0| 69 42 75 74 74 6f 6e 73 | 20 67 65 64 72 9f 63 6b |iButtons| gedr.ck|
|000040e0| 74 2c 20 69 73 74 20 4d | 6f 76 69 65 4e 72 20 3d |t, ist M|ovieNr =|
|000040f0| 30 0d 20 20 20 20 20 20 | 20 20 20 20 73 65 74 20 |0.      |    set |
|00004100| 6f 6b 20 3d 20 28 74 68 | 65 20 6d 6f 76 69 65 72 |ok = (th|e movier|
|00004110| 61 74 65 20 6f 66 20 73 | 70 72 69 74 65 20 53 70 |ate of s|prite Sp|
|00004120| 6e 20 3e 20 30 29 0d 20 | 20 20 20 20 20 20 20 65 |n > 0). |       e|
|00004130| 6c 73 65 0d 20 20 20 20 | 20 20 20 20 20 20 73 65 |lse.    |      se|
|00004140| 74 20 6f 6b 20 3d 20 66 | 61 6c 73 65 0d 20 20 20 |t ok = f|alse.   |
|00004150| 20 20 20 20 20 65 6e 64 | 20 69 66 0d 20 20 20 20 |     end| if.    |
|00004160| 20 20 20 20 0d 20 20 20 | 20 20 20 20 20 43 68 65 |    .   |     Che|
|00004170| 63 6b 4d 79 52 6f 6c 6c | 6f 76 65 72 0d 20 20 20 |ckMyRoll|over.   |
|00004180| 20 20 20 20 20 6e 6f 74 | 68 69 6e 67 20 20 2d 2d |     not|hing  --|
|00004190| 20 67 69 62 20 69 64 6c | 65 20 65 69 6e 65 20 63 | gib idl|e eine c|
|000041a0| 68 61 6e 63 65 0d 20 20 | 20 20 20 20 20 20 6e 6f |hance.  |      no|
|000041b0| 74 68 69 6e 67 0d 20 20 | 20 20 20 20 20 20 6d 79 |thing.  |      my|
|000041c0| 69 64 6c 65 0d 20 20 20 | 20 20 20 65 6e 64 20 72 |idle.   |   end r|
|000041d0| 65 70 65 61 74 0d 20 20 | 20 20 65 6e 64 20 69 66 |epeat.  |  end if|
|000041e0| 0d 20 20 65 6e 64 20 69 | 66 0d 20 20 2d 2d 20 6a |.  end i|f.  -- j|
|000041f0| 65 74 7a 74 20 6c 8a 75 | 66 74 20 68 69 65 72 20 |etzt l.u|ft hier |
|00004200| 20 6b 65 69 6e 20 6d 6f | 76 69 65 20 6d 65 68 72 | kein mo|vie mehr|
|00004210| 0d 20 20 73 65 74 20 67 | 69 4d 6f 76 69 65 4e 72 |.  set g|iMovieNr|
|00004220| 20 3d 20 30 0d 20 20 0d | 65 6e 64 0d 0d 0d 2d 2d | = 0.  .|end...--|
|00004230| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00004240| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004250| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004260| 2a 2a 0d 0d 6f 6e 20 49 | 6e 63 42 73 69 0d 20 20 |**..on I|ncBsi.  |
|00004270| 67 6c 6f 62 61 6c 20 67 | 69 42 73 49 6e 64 65 78 |global g|iBsIndex|
|00004280| 0d 20 20 2d 2d 20 73 65 | 74 20 67 69 42 73 49 6e |.  -- se|t giBsIn|
|00004290| 64 65 78 20 3d 20 67 69 | 42 73 49 6e 64 65 78 20 |dex = gi|BsIndex |
|000042a0| 2b 20 31 0d 65 6e 64 0d | 0d 0d 0d 2d 2d 20 2a 2a |+ 1.end.|...-- **|
|000042b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000042c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000042d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |********|*******.|
|000042e0| 0d 6f 6e 20 6a 75 6d 70 | 20 78 0d 20 20 2d 2d 6a |.on jump| x.  --j|
|000042f0| 75 6d 70 20 61 6d 20 65 | 6e 64 65 20 65 72 20 61 |ump am e|nde er a|
|00004300| 6e 69 6d 61 74 69 6f 6e | 0d 20 20 2d 2d 20 78 20 |nimation|.  -- x |
|00004310| 70 61 72 61 6d 20 66 9f | 72 20 73 70 8a 74 65 72 |param f.|r sp.ter|
|00004320| 65 20 66 75 6e 6b 74 69 | 6f 6e 65 6e 0d 20 20 67 |e funkti|onen.  g|
|00004330| 6c 6f 62 61 6c 20 67 73 | 47 6f 46 72 61 6d 65 2c |lobal gs|GoFrame,|
|00004340| 20 67 62 47 6f 74 6f 2c | 20 67 69 41 75 74 6f 2c | gbGoto,| giAuto,|
|00004350| 20 67 6c 47 6f 74 6f 4c | 69 73 74 65 0d 20 20 0d | glGotoL|iste.  .|
|00004360| 20 20 69 66 20 67 69 41 | 75 74 6f 20 3d 20 30 20 |  if giA|uto = 0 |
|00004370| 74 68 65 6e 0d 20 20 20 | 20 2d 2d 20 7a 75 72 9f |then.   | -- zur.|
|00004380| 63 6b 20 7a 75 6d 20 6d | 65 6e 75 0d 20 20 20 20 |ck zum m|enu.    |
|00004390| 70 75 74 20 47 65 74 41 | 74 20 28 67 6c 47 6f 74 |put GetA|t (glGot|
|000043a0| 6f 4c 69 73 74 65 2c 20 | 32 29 20 69 6e 74 6f 20 |oListe, |2) into |
|000043b0| 20 67 73 47 6f 46 72 61 | 6d 65 20 0d 20 20 20 20 | gsGoFra|me .    |
|000043c0| 73 65 74 20 67 62 47 6f | 74 6f 20 3d 20 74 72 75 |set gbGo|to = tru|
|000043d0| 65 0d 20 20 20 20 63 75 | 72 73 6f 72 20 34 20 0d |e.    cu|rsor 4 .|
|000043e0| 20 20 65 6c 73 65 0d 20 | 20 20 20 2d 2d 20 77 65 |  else. |   -- we|
|000043f0| 69 74 65 72 20 69 6e 20 | 66 6f 6c 67 65 0d 20 20 |iter in |folge.  |
|00004400| 20 20 53 74 6f 70 54 68 | 61 74 53 6f 75 6e 64 0d |  StopTh|atSound.|
|00004410| 20 20 20 20 70 75 74 20 | 47 65 74 41 74 20 28 67 |    put |GetAt (g|
|00004420| 6c 47 6f 74 6f 4c 69 73 | 74 65 2c 20 35 29 20 69 |lGotoLis|te, 5) i|
|00004430| 6e 74 6f 20 20 67 73 47 | 6f 46 72 61 6d 65 20 0d |nto  gsG|oFrame .|
|00004440| 20 20 20 20 73 65 74 20 | 67 62 47 6f 74 6f 20 3d |    set |gbGoto =|
|00004450| 20 74 72 75 65 0d 20 20 | 20 20 63 75 72 73 6f 72 | true.  |  cursor|
|00004460| 20 34 0d 20 20 65 6e 64 | 20 69 66 0d 20 20 2d 2d | 4.  end| if.  --|
|00004470| 20 65 78 65 63 75 74 65 | 20 69 6e 20 2e 2e 2e 0d | execute| in ....|
|00004480| 20 20 0d 20 20 4d 79 49 | 64 6c 65 0d 20 20 0d 20 |  .  MyI|dle.  . |
|00004490| 20 0d 65 6e 64 0d 0d 2d | 2d 20 2a 2a 2a 2a 2a 2a | .end..-|- ******|
|000044a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000044b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000044c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0d |********|******..|
|000044d0| 6f 6e 20 51 75 69 74 4d | 6f 76 69 65 0d 20 20 67 |on QuitM|ovie.  g|
|000044e0| 6c 6f 62 61 6c 20 67 62 | 49 53 44 4e 0d 20 20 0d |lobal gb|ISDN.  .|
|000044f0| 20 20 2d 2d 64 65 62 75 | 67 20 22 71 75 69 74 20 |  --debu|g "quit |
|00004500| 6d 6f 76 69 65 22 0d 20 | 20 69 66 20 74 68 65 20 |movie". | if the |
|00004510| 6d 6f 76 69 65 6e 61 6d | 65 20 63 6f 6e 74 61 69 |movienam|e contai|
|00004520| 6e 73 20 22 4d 45 4e 55 | 22 20 74 68 65 6e 0d 20 |ns "MENU|" then. |
|00004530| 20 20 20 67 6f 20 74 6f | 20 66 72 61 6d 65 20 22 |   go to| frame "|
|00004540| 45 6e 64 65 22 0d 20 20 | 20 20 65 78 69 74 0d 20 |Ende".  |  exit. |
|00004550| 20 65 6c 73 65 0d 20 20 | 20 20 69 66 20 67 62 49 | else.  |  if gbI|
|00004560| 53 44 4e 20 20 3d 20 74 | 72 75 65 20 74 68 65 6e |SDN  = t|rue then|
|00004570| 0d 20 20 20 20 20 20 73 | 65 74 20 78 20 3d 20 22 |.      s|et x = "|
|00004580| 4d 65 6e 75 5f 49 22 20 | 20 0d 20 20 20 20 65 6c |Menu_I" | .    el|
|00004590| 73 65 0d 20 20 20 20 20 | 20 73 65 74 20 78 20 3d |se.     | set x =|
|000045a0| 20 22 4d 65 6e 75 5f 4f | 22 0d 20 20 20 20 65 6e | "Menu_O|".    en|
|000045b0| 64 20 69 66 0d 20 20 20 | 20 0d 20 20 20 20 67 6f |d if.   | .    go|
|000045c0| 20 74 6f 20 66 72 61 6d | 65 20 22 45 6e 64 65 22 | to fram|e "Ende"|
|000045d0| 20 6f 66 20 6d 6f 76 69 | 65 20 78 0d 20 20 20 20 | of movi|e x.    |
|000045e0| 65 78 69 74 0d 20 20 65 | 6e 64 20 69 66 0d 20 20 |exit.  e|nd if.  |
|000045f0| 0d 65 6e 64 0d 00 2a 00 | 04 02 6c 03 3c 00 00 0f |.end..*.|..l.<...|
|00004600| 75 00 00 0f 75 00 1c 14 | 95 00 0d 00 00 00 00 00 |u...u...|........|
|00004610| 10 00 0c 00 04 00 00 00 | 0c 00 00 00 00 00 00 00 |........|........|
|00004620| 00 04 4e 00 0b 00 09 00 | 04 00 00 00 09 00 00 00 |..N.....|........|
|00004630| 00 00 00 00 00 04 84 00 | 10 00 0c 00 04 00 00 00 |........|........|
|00004640| 0c 00 00 00 00 00 00 00 | 00 04 a8 00 0b 00 09 00 |........|........|
|00004650| 04 00 00 00 09 00 00 00 | 00 00 00 00 00 04 c0 00 |........|........|
|00004660| 10 00 0c 00 04 00 00 00 | 0c 00 00 00 00 00 00 00 |........|........|
|00004670| 00 04 e4 00 0b 00 09 00 | 04 00 00 00 09 00 00 00 |........|........|
|00004680| 00 00 00 00 00 05 15 00 | 10 00 0c 00 04 00 00 00 |........|........|
|00004690| 0c 00 00 00 00 00 00 00 | 00 05 3a 00 0b 00 09 00 |........|..:.....|
|000046a0| 04 00 00 00 09 00 00 00 | 00 00 00 00 00 05 52 00 |........|......R.|
|000046b0| 10 00 0c 00 04 00 00 00 | 0c 00 00 00 00 00 00 00 |........|........|
|000046c0| 00 05 68 00 0b 00 09 00 | 04 00 00 00 09 00 00 00 |..h.....|........|
|000046d0| 00 00 00 00 00 05 71 00 | 10 00 0c 00 04 00 00 00 |......q.|........|
|000046e0| 0c 00 00 00 00 00 00 00 | 00 0b 82 00 0b 00 09 00 |........|........|
|000046f0| 04 00 00 00 09 00 00 00 | 00 00 00 00 00 0b a2 00 |........|........|
|00004700| 10 00 0c 00 04 00 00 00 | 0c 00 00 00 00 00 00 07 |........|........|
|00004710| 74 53 41 43 f0 0c 00 00 | 00 04 00 00 0c e6 0b 00 |tSAC....|........|
|00004720| 00 03 00 00 00 14 50 00 | 37 26 00 00 00 00 00 00 |......P.|7&......|
|00004730| 00 00 00 00 00 06 00 07 | 00 00 00 00 00 00 0a ce |........|........|
|00004740| 00 00 0a ce 00 00 0a ce | 00 00 0a ce 00 00 0a ce |........|........|
|00004750| 00 00 0a e2 00 00 0c b0 | 2d 2d 20 46 69 6c 65 49 |........|-- FileI|
|00004760| 4f 0d 0d 2d 2d 20 5a 75 | 67 72 69 66 66 20 61 75 |O..-- Zu|griff au|
|00004770| 66 20 64 69 65 20 46 69 | 6c 65 49 4f 2e 64 6c 6c |f die Fi|leIO.dll|
|00004780| 20 66 9f 72 20 44 61 74 | 65 69 7a 75 67 72 69 66 | f.r Dat|eizugrif|
|00004790| 66 65 0d 2d 2d 20 46 65 | 68 6c 65 72 6d 65 6c 64 |fe.-- Fe|hlermeld|
|000047a0| 75 6e 67 65 6e 20 77 69 | 65 20 44 4f 53 20 49 6e |ungen wi|e DOS In|
|000047b0| 74 20 33 34 20 0d 0d 0d | 2d 2d 20 20 2a 2a 2a 2a |t 34 ...|--  ****|
|000047c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000047f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 6f 6e |********|*****.on|
|00004800| 20 4f 70 65 6e 46 69 6c | 65 20 20 61 72 74 2c 20 | OpenFil|e  art, |
|00004810| 64 61 74 65 69 0d 20 20 | 0d 20 20 67 6c 6f 62 61 |datei.  |.  globa|
|00004820| 6c 20 67 73 58 2c 20 67 | 73 53 74 61 74 75 73 2c |l gsX, g|sStatus,|
|00004830| 20 67 69 45 72 72 6f 72 | 2c 20 67 78 46 69 6c 65 | giError|, gxFile|
|00004840| 4f 62 6a 0d 20 20 0d 20 | 20 73 65 74 20 67 69 45 |Obj.  . | set giE|
|00004850| 72 72 6f 72 20 3d 20 30 | 0d 20 20 2d 2d 64 65 62 |rror = 0|.  --deb|
|00004860| 75 67 20 22 6f 70 65 6e | 20 66 69 6c 65 3a 22 20 |ug "open| file:" |
|00004870| 26 20 64 61 74 65 69 20 | 26 20 22 3a 20 61 6c 73 |& datei |& ": als|
|00004880| 20 3a 22 20 26 20 61 72 | 74 0d 20 20 0d 20 20 69 | :" & ar|t.  .  i|
|00004890| 66 20 20 28 61 72 74 20 | 3d 20 22 72 22 20 29 20 |f  (art |= "r" ) |
|000048a0| 20 6f 72 20 20 28 61 72 | 74 20 3d 20 22 52 22 29 | or  (ar|t = "R")|
|000048b0| 20 74 68 65 6e 20 0d 20 | 20 20 20 2d 2d 20 9a 66 | then . |   -- .f|
|000048c0| 66 6e 65 20 7a 75 6d 20 | 6c 65 73 65 6e 0d 20 20 |fne zum |lesen.  |
|000048d0| 20 20 70 75 74 20 46 69 | 6c 65 49 4f 28 20 6d 4e |  put Fi|leIO( mN|
|000048e0| 65 77 2c 20 22 72 65 61 | 64 22 2c 20 64 61 74 65 |ew, "rea|d", date|
|000048f0| 69 29 20 69 6e 74 6f 20 | 67 78 46 69 6c 65 4f 62 |i) into |gxFileOb|
|00004900| 6a 0d 20 20 20 20 2d 2d | 20 76 61 6c 75 65 3a 20 |j.    --| value: |
|00004910| 65 72 72 6f 72 20 3d 20 | 7a 61 68 6c 20 3c 30 20 |error = |zahl <0 |
|00004920| 2c 20 6f 6b 20 69 73 74 | 20 74 65 78 74 0d 20 20 |, ok ist| text.  |
|00004930| 20 20 70 75 74 20 76 61 | 6c 75 65 28 20 67 78 46 |  put va|lue( gxF|
|00004940| 69 6c 65 4f 62 6a 20 29 | 20 69 6e 74 6f 20 67 69 |ileObj )| into gi|
|00004950| 45 72 72 6f 72 0d 20 20 | 20 20 69 66 20 67 69 45 |Error.  |  if giE|
|00004960| 72 72 6f 72 20 3c 20 30 | 20 74 68 65 6e 0d 20 20 |rror < 0| then.  |
|00004970| 20 20 20 20 70 75 74 20 | 22 22 20 69 6e 74 6f 20 |    put |"" into |
|00004980| 67 73 58 20 0d 20 20 20 | 20 65 6c 73 65 0d 20 20 |gsX .   | else.  |
|00004990| 20 20 20 20 73 65 74 20 | 67 69 45 72 72 6f 72 20 |    set |giError |
|000049a0| 3d 20 30 0d 20 20 20 20 | 20 20 0d 20 20 20 20 65 |= 0.    |  .    e|
|000049b0| 6e 64 20 69 66 0d 20 20 | 65 6e 64 20 69 66 0d 20 |nd if.  |end if. |
|000049c0| 20 0d 20 20 69 66 20 28 | 61 72 74 20 3d 20 22 77 | .  if (|art = "w|
|000049d0| 22 20 29 20 20 6f 72 20 | 20 28 61 72 74 20 3d 20 |" )  or | (art = |
|000049e0| 22 57 22 29 20 74 68 65 | 6e 20 0d 20 20 20 20 2d |"W") the|n .    -|
|000049f0| 2d 20 9a 66 66 6e 65 20 | 7a 75 6d 20 73 63 68 72 |- .ffne |zum schr|
|00004a00| 65 69 62 65 6e 20 0d 20 | 20 20 20 70 75 74 20 46 |eiben . |   put F|
|00004a10| 69 6c 65 49 4f 28 20 6d | 4e 65 77 2c 20 22 77 72 |ileIO( m|New, "wr|
|00004a20| 69 74 65 22 2c 20 64 61 | 74 65 69 29 20 69 6e 74 |ite", da|tei) int|
|00004a30| 6f 20 67 78 46 69 6c 65 | 4f 62 6a 0d 20 20 20 20 |o gxFile|Obj.    |
|00004a40| 70 75 74 20 76 61 6c 75 | 65 28 20 67 78 46 69 6c |put valu|e( gxFil|
|00004a50| 65 4f 62 6a 20 29 20 69 | 6e 74 6f 20 67 69 45 72 |eObj ) i|nto giEr|
|00004a60| 72 6f 72 0d 20 20 20 20 | 69 66 20 67 69 45 72 72 |ror.    |if giErr|
|00004a70| 6f 72 20 3c 20 30 20 74 | 68 65 6e 0d 20 20 20 20 |or < 0 t|hen.    |
|00004a80| 20 20 70 75 74 20 22 22 | 20 69 6e 74 6f 20 67 73 |  put ""| into gs|
|00004a90| 58 20 0d 20 20 20 20 65 | 6c 73 65 0d 20 20 20 20 |X .    e|lse.    |
|00004aa0| 20 20 73 65 74 20 67 69 | 45 72 72 6f 72 20 3d 20 |  set gi|Error = |
|00004ab0| 30 0d 20 20 20 20 65 6e | 64 20 69 66 20 20 0d 20 |0.    en|d if  . |
|00004ac0| 20 65 6e 64 20 69 66 0d | 20 20 0d 20 20 69 66 20 | end if.|  .  if |
|00004ad0| 28 61 72 74 20 3d 20 22 | 61 22 20 29 20 20 6f 72 |(art = "|a" )  or|
|00004ae0| 20 20 28 61 72 74 20 3d | 20 22 41 22 29 20 74 68 |  (art =| "A") th|
|00004af0| 65 6e 20 20 0d 20 20 20 | 20 2d 2d 20 9a 66 66 6e |en  .   | -- .ffn|
|00004b00| 65 20 7a 75 6d 20 61 6e | 68 8a 6e 67 65 6e 0d 20 |e zum an|h.ngen. |
|00004b10| 20 20 20 70 75 74 20 46 | 69 6c 65 49 4f 28 20 6d |   put F|ileIO( m|
|00004b20| 4e 65 77 2c 20 22 61 70 | 70 65 6e 64 22 2c 20 64 |New, "ap|pend", d|
|00004b30| 61 74 65 69 29 20 69 6e | 74 6f 20 67 78 46 69 6c |atei) in|to gxFil|
|00004b40| 65 4f 62 6a 0d 20 20 20 | 20 70 75 74 20 76 61 6c |eObj.   | put val|
|00004b50| 75 65 28 20 67 78 46 69 | 6c 65 4f 62 6a 20 29 20 |ue( gxFi|leObj ) |
|00004b60| 69 6e 74 6f 20 67 69 45 | 72 72 6f 72 0d 20 20 20 |into giE|rror.   |
|00004b70| 20 69 66 20 67 69 45 72 | 72 6f 72 20 3c 20 30 20 | if giEr|ror < 0 |
|00004b80| 74 68 65 6e 0d 20 20 20 | 20 20 20 70 75 74 20 22 |then.   |   put "|
|00004b90| 22 20 69 6e 74 6f 20 67 | 73 58 20 0d 20 20 20 20 |" into g|sX .    |
|00004ba0| 65 6c 73 65 0d 20 20 20 | 20 20 20 73 65 74 20 67 |else.   |   set g|
|00004bb0| 69 45 72 72 6f 72 20 3d | 20 30 0d 20 20 20 20 65 |iError =| 0.    e|
|00004bc0| 6e 64 20 69 66 0d 20 20 | 20 20 0d 20 20 65 6e 64 |nd if.  |  .  end|
|00004bd0| 20 69 66 20 20 0d 20 20 | 69 66 20 61 72 74 20 3d | if  .  |if art =|
|00004be0| 22 69 22 20 74 68 65 6e | 20 0d 20 20 20 20 0d 20 |"i" then| .    . |
|00004bf0| 20 20 20 2d 2d 20 9a 66 | 66 6e 65 20 66 9f 72 20 |   -- .f|fne f.r |
|00004c00| 69 6e 66 6f 73 20 0d 20 | 20 20 20 2d 2d 20 67 69 |infos . |   -- gi|
|00004c10| 20 65 72 72 6f 72 20 3c | 30 20 3d 20 66 65 68 6c | error <|0 = fehl|
|00004c20| 65 72 2c 20 20 3e 30 20 | 3d 20 46 69 6c 65 4c 65 |er,  >0 |= FileLe|
|00004c30| 6e 0d 20 20 20 20 70 75 | 74 20 46 69 6c 65 49 4f |n.    pu|t FileIO|
|00004c40| 28 20 6d 4e 65 77 2c 20 | 22 72 65 61 64 22 2c 20 |( mNew, |"read", |
|00004c50| 64 61 74 65 69 29 20 69 | 6e 74 6f 20 67 78 46 69 |datei) i|nto gxFi|
|00004c60| 6c 65 4f 62 6a 0d 20 20 | 20 20 70 75 74 20 76 61 |leObj.  |  put va|
|00004c70| 6c 75 65 28 20 67 78 46 | 69 6c 65 4f 62 6a 20 29 |lue( gxF|ileObj )|
|00004c80| 20 69 6e 74 6f 20 67 69 | 45 72 72 6f 72 0d 20 20 | into gi|Error.  |
|00004c90| 20 20 69 66 20 67 69 45 | 72 72 6f 72 20 3c 3d 20 |  if giE|rror <= |
|00004ca0| 30 20 74 68 65 6e 0d 20 | 20 20 20 20 20 70 75 74 |0 then. |     put|
|00004cb0| 20 22 22 20 69 6e 74 6f | 20 67 73 58 20 0d 20 20 | "" into| gsX .  |
|00004cc0| 20 20 65 6c 73 65 0d 20 | 20 20 20 20 20 70 75 74 |  else. |     put|
|00004cd0| 20 67 78 46 69 6c 65 4f | 62 6a 28 6d 47 65 74 4c | gxFileO|bj(mGetL|
|00004ce0| 65 6e 67 74 68 29 20 69 | 6e 74 6f 20 67 69 45 72 |ength) i|nto giEr|
|00004cf0| 72 6f 72 0d 20 20 20 20 | 20 20 0d 20 20 20 20 65 |ror.    |  .    e|
|00004d00| 6e 64 20 69 66 0d 20 20 | 65 6e 64 20 69 66 0d 20 |nd if.  |end if. |
|00004d10| 20 0d 20 20 2d 2d 64 65 | 62 75 67 20 22 20 20 72 | .  --de|bug "  r|
|00004d20| 65 73 75 6c 74 3a 22 20 | 26 20 67 69 45 72 72 6f |esult:" |& giErro|
|00004d30| 72 0d 20 20 0d 65 6e 64 | 0d 0d 2d 2d 20 20 2a 2a |r.  .end|..--  **|
|00004d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004d70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0d 6f |********|*****..o|
|00004d80| 6e 20 43 6c 6f 73 65 46 | 69 6c 65 20 61 72 74 0d |n CloseF|ile art.|
|00004d90| 20 20 67 6c 6f 62 61 6c | 20 67 73 58 2c 20 67 69 |  global| gsX, gi|
|00004da0| 45 72 72 6f 72 2c 20 67 | 78 46 69 6c 65 4f 62 6a |Error, g|xFileObj|
|00004db0| 0d 20 20 73 65 74 20 67 | 69 45 72 72 6f 72 20 3d |.  set g|iError =|
|00004dc0| 20 30 0d 20 20 2d 2d 64 | 65 62 75 67 20 22 63 6c | 0.  --d|ebug "cl|
|00004dd0| 6f 73 65 20 66 69 6c 65 | 22 0d 20 20 69 66 20 20 |ose file|".  if  |
|00004de0| 28 61 72 74 20 3d 20 22 | 72 22 20 29 20 20 6f 72 |(art = "|r" )  or|
|00004df0| 20 20 28 61 72 74 20 3d | 20 22 52 22 29 20 74 68 |  (art =| "R") th|
|00004e00| 65 6e 20 0d 20 20 20 20 | 2d 2d 20 73 63 68 6c 69 |en .    |-- schli|
|00004e10| 65 73 73 65 20 6c 65 73 | 65 6e 0d 20 20 20 20 69 |esse les|en.    i|
|00004e20| 66 20 6f 62 6a 65 63 74 | 50 28 20 67 78 46 69 6c |f object|P( gxFil|
|00004e30| 65 4f 62 6a 20 29 20 74 | 68 65 6e 20 0d 20 20 20 |eObj ) t|hen .   |
|00004e40| 20 20 20 67 78 46 69 6c | 65 4f 62 6a 28 20 6d 44 |   gxFil|eObj( mD|
|00004e50| 69 73 70 6f 73 65 20 29 | 0d 20 20 20 20 65 6e 64 |ispose )|.    end|
|00004e60| 20 69 66 0d 20 20 65 6c | 73 65 0d 20 20 20 20 2d | if.  el|se.    -|
|00004e70| 2d 20 73 63 68 6c 69 65 | 73 73 65 20 73 63 68 72 |- schlie|sse schr|
|00004e80| 65 69 62 65 6e 0d 20 20 | 20 20 69 66 20 6f 62 6a |eiben.  |  if obj|
|00004e90| 65 63 74 50 28 20 67 78 | 46 69 6c 65 4f 62 6a 20 |ectP( gx|FileObj |
|00004ea0| 29 20 74 68 65 6e 20 0d | 20 20 20 20 20 20 67 78 |) then .|      gx|
|00004eb0| 46 69 6c 65 4f 62 6a 28 | 20 6d 44 69 73 70 6f 73 |FileObj(| mDispos|
|00004ec0| 65 20 29 0d 20 20 20 20 | 65 6e 64 20 69 66 0d 20 |e ).    |end if. |
|00004ed0| 20 20 20 0d 20 20 65 6e | 64 20 69 66 0d 65 6e 64 |   .  en|d if.end|
|00004ee0| 0d 0d 2d 2d 20 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..--  **|********|
|00004ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f20| 2a 2a 2a 2a 2a 2a 0d 0d | 6f 6e 20 52 65 61 64 4c |******..|on ReadL|
|00004f30| 69 6e 65 20 0d 20 20 67 | 6c 6f 62 61 6c 20 67 73 |ine .  g|lobal gs|
|00004f40| 58 2c 20 67 69 45 72 72 | 6f 72 2c 20 67 78 46 69 |X, giErr|or, gxFi|
|00004f50| 6c 65 4f 62 6a 2c 20 67 | 73 53 74 61 74 75 73 0d |leObj, g|sStatus.|
|00004f60| 20 20 0d 20 20 73 65 74 | 20 67 69 45 72 72 6f 72 |  .  set| giError|
|00004f70| 20 3d 20 30 0d 20 20 2d | 2d 64 65 62 75 67 20 22 | = 0.  -|-debug "|
|00004f80| 72 65 61 64 6c 69 6e 65 | 22 0d 20 20 69 66 20 6f |readline|".  if o|
|00004f90| 62 6a 65 63 74 50 28 20 | 67 78 46 69 6c 65 4f 62 |bjectP( |gxFileOb|
|00004fa0| 6a 20 29 20 74 68 65 6e | 20 0d 20 20 20 20 70 75 |j ) then| .    pu|
|00004fb0| 74 20 67 78 46 69 6c 65 | 4f 62 6a 28 6d 52 65 61 |t gxFile|Obj(mRea|
|00004fc0| 64 4c 69 6e 65 20 29 20 | 69 6e 74 6f 20 78 20 20 |dLine ) |into x  |
|00004fd0| 20 2d 2d 20 62 69 73 20 | 43 52 0d 20 20 20 20 70 | -- bis |CR.    p|
|00004fe0| 75 74 20 63 68 61 72 20 | 31 20 74 6f 20 6c 65 6e |ut char |1 to len|
|00004ff0| 67 74 68 28 78 29 2d 31 | 20 6f 66 20 78 20 69 6e |gth(x)-1| of x in|
|00005000| 74 6f 20 67 73 58 0d 20 | 20 20 20 2d 2d 64 65 62 |to gsX. |   --deb|
|00005010| 75 67 20 22 20 20 69 73 | 20 6f 6b 22 0d 20 20 20 |ug "  is| ok".   |
|00005020| 20 70 75 74 20 67 78 46 | 69 6c 65 4f 62 6a 28 6d | put gxF|ileObj(m|
|00005030| 53 74 61 74 75 73 29 20 | 69 6e 74 6f 20 67 73 53 |Status) |into gsS|
|00005040| 74 61 74 75 73 0d 20 20 | 20 20 70 75 74 20 67 78 |tatus.  |  put gx|
|00005050| 46 69 6c 65 4f 62 6a 28 | 6d 52 65 61 64 43 68 61 |FileObj(|mReadCha|
|00005060| 72 20 29 20 69 6e 74 6f | 20 78 20 20 20 20 20 2d |r ) into| x     -|
|00005070| 2d 20 4c 66 20 6c 65 73 | 65 6e 0d 20 20 65 6c 73 |- Lf les|en.  els|
|00005080| 65 0d 20 20 20 20 2d 2d | 64 65 62 75 67 20 22 20 |e.    --|debug " |
|00005090| 20 65 72 72 6f 72 22 0d | 20 20 65 6e 64 20 69 66 | error".|  end if|
|000050a0| 0d 20 20 0d 65 6e 64 20 | 72 65 61 64 6c 69 6e 65 |.  .end |readline|
|000050b0| 20 0d 0d 0d 2d 2d 20 20 | 2a 2a 2a 2a 2a 2a 2a 2a | ...--  |********|
|000050c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000050d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000050e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000050f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 0d 6f 6e 20 |********|***..on |
|00005100| 57 72 69 74 65 4c 69 6e | 65 20 74 78 74 0d 20 20 |WriteLin|e txt.  |
|00005110| 67 6c 6f 62 61 6c 20 67 | 73 58 2c 20 67 73 43 52 |global g|sX, gsCR|
|00005120| 4c 46 2c 20 67 69 45 72 | 72 6f 72 2c 20 67 78 46 |LF, giEr|ror, gxF|
|00005130| 69 6c 65 4f 62 6a 0d 20 | 20 0d 20 20 73 65 74 20 |ileObj. | .  set |
|00005140| 67 69 45 72 72 6f 72 20 | 3d 20 30 0d 20 20 73 65 |giError |= 0.  se|
|00005150| 74 20 79 20 3d 20 74 78 | 74 0d 20 20 2d 2d 64 65 |t y = tx|t.  --de|
|00005160| 62 75 67 20 22 77 72 69 | 74 65 22 0d 20 20 69 66 |bug "wri|te".  if|
|00005170| 20 6f 62 6a 65 63 74 50 | 28 20 67 78 46 69 6c 65 | objectP|( gxFile|
|00005180| 4f 62 6a 20 29 20 74 68 | 65 6e 20 0d 20 20 20 20 |Obj ) th|en .    |
|00005190| 67 78 46 69 6c 65 4f 62 | 6a 28 6d 57 72 69 74 65 |gxFileOb|j(mWrite|
|000051a0| 53 74 72 69 6e 67 2c 20 | 79 20 29 0d 20 20 20 20 |String, |y ).    |
|000051b0| 67 78 46 69 6c 65 4f 62 | 6a 28 6d 57 72 69 74 65 |gxFileOb|j(mWrite|
|000051c0| 53 74 72 69 6e 67 2c 20 | 67 73 43 52 4c 46 20 29 |String, |gsCRLF )|
|000051d0| 0d 20 20 20 20 0d 20 20 | 20 20 0d 20 20 20 20 2d |.    .  |  .    -|
|000051e0| 2d 64 65 62 75 67 20 22 | 20 20 6f 6b 22 0d 20 20 |-debug "|  ok".  |
|000051f0| 65 6c 73 65 0d 20 20 20 | 20 2d 2d 64 65 62 75 67 |else.   | --debug|
|00005200| 20 22 20 20 65 72 72 6f | 72 22 0d 20 20 65 6e 64 | "  erro|r".  end|
|00005210| 20 69 66 0d 20 20 0d 65 | 6e 64 20 72 65 61 64 6c | if.  .e|nd readl|
|00005220| 69 6e 65 20 0d 0d 00 2a | 00 04 02 6c 03 3c 00 00 |ine ...*|...l.<..|
|00005230| 0a a8 00 00 0a a8 00 1c | 14 95 00 17 00 00 00 00 |........|........|
|00005240| 00 10 00 0c 00 04 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|00005250| 00 00 00 5f 00 12 00 0e | 00 04 00 00 00 0e 00 00 |..._....|........|
|00005260| 00 00 00 00 00 00 00 60 | 00 10 00 0c 00 04 00 00 |.......`|........|
|00005270| 00 0c 00 00 00 00 00 00 | 00 00 00 a5 00 12 00 0e |........|........|
|00005280| 00 04 00 00 00 0e 00 00 | 00 00 00 00 00 00 05 6f |........|.......o|
|00005290| 00 10 00 0c 00 04 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|000052a0| 00 00 05 9b 00 12 00 0e | 00 04 00 00 00 0e 00 00 |........|........|
|000052b0| 00 00 00 00 00 00 05 e1 | 00 10 00 0c 00 04 00 00 |........|........|
|000052c0| 00 0c 00 00 00 00 00 00 | 00 00 06 27 00 12 00 0e |........|...'....|
|000052d0| 00 04 00 00 00 0e 00 00 | 00 00 00 00 00 00 06 c3 |........|........|
|000052e0| 00 10 00 0c 00 04 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|000052f0| 00 00 07 01 00 12 00 0e | 00 04 00 00 00 0e 00 00 |........|........|
|00005300| 00 00 00 00 00 00 07 2e | 00 10 00 0c 00 04 00 00 |........|........|
|00005310| 00 0c 00 00 00 00 00 00 | 00 00 07 6c 00 12 00 0e |........|...l....|
|00005320| 00 04 00 00 00 0e 00 00 | 00 00 00 00 00 00 07 8a |........|........|
|00005330| 00 10 00 0c 00 04 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|00005340| 00 00 07 e6 00 12 00 0e | 00 04 00 00 00 0e 00 00 |........|........|
|00005350| 00 00 00 00 00 00 08 1c | 00 10 00 0c 00 04 00 00 |........|........|
|00005360| 00 0c 00 00 00 00 00 00 | 00 00 09 2a 00 12 00 0e |........|...*....|
|00005370| 00 04 00 00 00 0e 00 00 | 00 00 00 00 00 00 09 49 |........|.......I|
|00005380| 00 10 00 0c 00 04 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|00005390| 00 00 09 5b 00 12 00 0e | 00 04 00 00 00 0e 00 00 |...[....|........|
|000053a0| 00 00 00 00 00 00 09 5c | 00 10 00 0c 00 04 00 00 |.......\|........|
|000053b0| 00 0c 00 00 00 00 00 00 | 00 00 09 bf 00 12 00 0e |........|........|
|000053c0| 00 04 00 00 00 0e 00 00 | 00 00 00 00 00 00 09 f4 |........|........|
|000053d0| 00 10 00 0c 00 04 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|000053e0| 00 00 0a 9d 00 12 00 0e | 00 04 00 00 00 0e 00 00 |........|........|
|000053f0| 00 00 00 00 00 00 0a bc | 00 10 00 0c 00 04 00 00 |........|........|
|00005400| 00 0c 00 00 00 00 00 00 | 74 53 41 43 f3 0f 00 00 |........|tSAC....|
|00005410| 00 04 00 00 0f e9 0b 00 | 00 03 00 00 00 14 2c 00 |........|......,.|
|00005420| 37 26 00 00 00 00 00 00 | 00 00 00 00 00 03 00 07 |7&......|........|
|00005430| 00 00 00 00 00 00 0e a9 | 00 00 0e a9 00 00 0e a9 |........|........|
|00005440| 00 00 0e a9 00 00 0e a9 | 00 00 0e bd 00 00 0f 9b |........|........|
|00005450| 2d 2d 20 53 79 73 74 65 | 6d 0d 0d 0d 2d 2d 20 50 |-- Syste|m...-- P|
|00005460| 61 72 74 73 20 66 72 6f | 6d 3a 20 4d 6f 76 69 65 |arts fro|m: Movie|
|00005470| 55 74 69 6c 69 74 69 65 | 73 20 58 4f 62 6a 65 63 |Utilitie|s XObjec|
|00005480| 74 2f 44 4c 4c 20 45 78 | 61 6d 70 6c 65 20 4d 6f |t/DLL Ex|ample Mo|
|00005490| 76 69 65 2c 0d 2d 2d 20 | 76 2e 20 31 2e 30 2e 37 |vie,.-- |v. 1.0.7|
|000054a0| 20 66 6f 72 20 4d 53 20 | 57 69 6e 64 6f 77 73 20 | for MS |Windows |
|000054b0| 33 2e 31 20 28 37 2f 32 | 35 2f 39 34 29 0d 2d 2d |3.1 (7/2|5/94).--|
|000054c0| 20 62 79 20 44 61 76 69 | 64 20 4a 61 63 6b 73 6f | by Davi|d Jackso|
|000054d0| 6e 20 53 68 69 65 6c 64 | 73 0d 2d 2d 20 a9 20 31 |n Shield|s.-- . 1|
|000054e0| 39 39 34 20 62 79 20 4d | 61 63 72 6f 6d 65 64 69 |994 by M|acromedi|
|000054f0| 61 2c 20 49 6e 63 2e 0d | 2d 2d 20 50 72 6f 76 69 |a, Inc..|-- Provi|
|00005500| 64 65 73 20 75 74 69 6c | 69 74 79 20 66 75 6e 63 |des util|ity func|
|00005510| 74 69 6f 6e 73 20 6e 6f | 74 20 79 65 74 20 69 6e |tions no|t yet in|
|00005520| 20 44 69 72 65 63 74 6f | 72 2e 0d 0d 6f 6e 20 49 | Directo|r...on I|
|00005530| 6e 69 74 53 79 73 74 65 | 6d 0d 20 20 2d 2d 20 4d |nitSyste|m.  -- M|
|00005540| 61 63 68 69 6e 65 6e 20 | 69 6e 66 6f 73 0d 20 20 |achinen |infos.  |
|00005550| 2d 2d 20 49 6e 69 74 20 | 64 69 65 20 58 2d 4c 69 |-- Init |die X-Li|
|00005560| 62 73 0d 20 20 2d 2d 20 | 46 69 6c 65 6e 61 6d 65 |bs.  -- |Filename|
|00005570| 73 20 75 6e 64 20 50 61 | 74 68 4e 61 6d 65 73 0d |s und Pa|thNames.|
|00005580| 20 20 0d 20 20 0d 20 20 | 67 6c 6f 62 61 6c 20 67 |  .  .  |global g|
|00005590| 78 55 74 69 6c 4f 62 6a | 2c 20 67 78 46 69 6c 65 |xUtilObj|, gxFile|
|000055a0| 4f 62 6a 2c 20 67 78 4d | 73 67 4f 62 6a 0d 20 20 |Obj, gxM|sgObj.  |
|000055b0| 67 6c 6f 62 61 6c 20 67 | 62 49 73 50 43 0d 20 20 |global g|bIsPC.  |
|000055c0| 67 6c 6f 62 61 6c 20 67 | 73 57 69 6e 50 61 74 68 |global g|sWinPath|
|000055d0| 2c 20 67 73 49 6e 69 46 | 69 6c 65 0d 20 20 67 6c |, gsIniF|ile.  gl|
|000055e0| 6f 62 61 6c 20 67 73 4d | 6f 76 69 65 50 61 74 68 |obal gsM|oviePath|
|000055f0| 0d 20 20 0d 20 20 2d 2d | 64 65 62 75 67 20 22 20 |.  .  --|debug " |
|00005600| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 20 63 68 65 |++++++++|++++ che|
|00005610| 63 6b 20 74 68 65 20 6d | 61 63 68 69 6e 65 20 2b |ck the m|achine +|
|00005620| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 22 0d 20 20 0d |++++++++|+++".  .|
|00005630| 20 0d 20 20 69 66 20 6e | 6f 74 20 67 62 49 73 50 | .  if n|ot gbIsP|
|00005640| 43 20 74 68 65 6e 0d 20 | 20 20 20 2d 2d 61 6c 65 |C then. |   --ale|
|00005650| 72 74 20 22 44 69 65 73 | 65 20 50 72 6f 67 72 61 |rt "Dies|e Progra|
|00005660| 6d 6d 20 62 65 6e 9a 74 | 69 67 74 20 57 69 6e 64 |mm ben.t|igt Wind|
|00005670| 6f 77 73 20 a9 22 0d 20 | 20 20 20 65 78 69 74 20 |ows .". |   exit |
|00005680| 20 0d 20 20 65 6e 64 20 | 69 66 0d 20 20 0d 20 20 | .  end |if.  .  |
|00005690| 69 66 20 28 74 68 65 20 | 63 6f 6c 6f 72 44 65 70 |if (the |colorDep|
|000056a0| 74 68 20 3c 20 38 29 20 | 74 68 65 6e 0d 20 20 20 |th < 8) |then.   |
|000056b0| 20 61 6c 65 72 74 20 22 | 44 69 65 20 44 61 72 73 | alert "|Die Dars|
|000056c0| 74 65 6c 6c 75 6e 67 20 | 69 73 74 20 62 65 69 20 |tellung |ist bei |
|000056d0| 31 36 20 46 72 61 62 65 | 6e 20 6e 69 63 68 74 20 |16 Frabe|n nicht |
|000056e0| 6f 72 67 69 6e 61 6c 67 | 65 74 72 65 75 21 22 0d |orginalg|etreu!".|
|000056f0| 20 20 65 6e 64 20 69 66 | 0d 20 20 0d 20 20 0d 20 |  end if|.  .  . |
|00005700| 20 2d 2d 20 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b | -- ++++|++++++++|
|00005710| 2b 2b 20 6f 70 65 6e 20 | 78 2d 6c 69 62 73 20 2b |++ open |x-libs +|
|00005720| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|00005730| 2b 2b 0d 20 20 0d 20 20 | 2d 2d 20 2d 2d 2d 2d 2d |++.  .  |-- -----|
|00005740| 2d 2d 2d 2d 20 6f 70 65 | 6e 20 74 68 65 20 65 78 |---- ope|n the ex|
|00005750| 74 65 72 6e 61 6c 20 66 | 61 63 74 6f 72 79 20 2d |ternal f|actory -|
|00005760| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 20 20 2d 2d 64 65 62 |--------|.  --deb|
|00005770| 75 67 20 22 6f 70 65 6e | 20 55 74 69 6c 2d 6c 69 |ug "open| Util-li|
|00005780| 62 20 2e 2e 22 0d 20 20 | 6f 70 65 6e 58 4c 69 62 |b ..".  |openXLib|
|00005790| 20 22 4d 6f 76 55 74 69 | 6c 73 2e 44 4c 4c 22 0d | "MovUti|ls.DLL".|
|000057a0| 20 20 0d 20 20 2d 2d 20 | 63 72 65 61 74 65 20 74 |  .  -- |create t|
|000057b0| 68 65 20 6f 62 6a 65 63 | 74 20 69 6e 20 52 41 4d |he objec|t in RAM|
|000057c0| 3a 0d 20 20 69 66 20 6f | 62 6a 65 63 74 50 28 20 |:.  if o|bjectP( |
|000057d0| 67 78 55 74 69 6c 4f 62 | 6a 20 29 20 74 68 65 6e |gxUtilOb|j ) then|
|000057e0| 20 67 78 55 74 69 6c 4f | 62 6a 28 20 6d 44 69 73 | gxUtilO|bj( mDis|
|000057f0| 70 6f 73 65 20 29 0d 20 | 20 70 75 74 20 4d 6f 76 |pose ). | put Mov|
|00005800| 55 74 69 6c 73 28 20 6d | 4e 65 77 20 29 20 69 6e |Utils( m|New ) in|
|00005810| 74 6f 20 67 78 55 74 69 | 6c 4f 62 6a 0d 20 20 0d |to gxUti|lObj.  .|
|00005820| 20 20 70 75 74 20 76 61 | 6c 75 65 28 20 67 78 55 |  put va|lue( gxU|
|00005830| 74 69 6c 4f 62 6a 20 29 | 20 69 6e 74 6f 20 72 65 |tilObj )| into re|
|00005840| 73 75 6c 74 0d 20 20 69 | 66 20 72 65 73 75 6c 74 |sult.  i|f result|
|00005850| 20 3c 20 30 20 74 68 65 | 6e 0d 20 20 20 20 46 65 | < 0 the|n.    Fe|
|00005860| 68 6c 65 72 20 72 65 73 | 75 6c 74 2c 20 22 44 61 |hler res|ult, "Da|
|00005870| 73 20 4d 6f 64 75 6c 3a | 20 6d 6f 76 75 74 69 6c |s Modul:| movutil|
|00005880| 73 2e 64 6c 6c 20 69 73 | 74 20 6e 69 63 68 74 20 |s.dll is|t nicht |
|00005890| 76 6f 72 68 61 6e 64 65 | 6e 21 22 20 0d 20 20 20 |vorhande|n!" .   |
|000058a0| 20 65 78 69 74 0d 20 20 | 65 6e 64 20 69 66 0d 20 | exit.  |end if. |
|000058b0| 20 2d 2d 64 65 62 75 67 | 20 22 69 73 20 6f 6b 22 | --debug| "is ok"|
|000058c0| 0d 20 20 0d 20 20 2d 2d | 20 2d 2d 2d 2d 2d 2d 2d |.  .  --| -------|
|000058d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 20 6f 70 65 6e 20 66 |--------|- open f|
|000058e0| 69 6c 65 20 49 4f 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ile IO -|--------|
|000058f0| 2d 2d 2d 0d 20 20 2d 2d | 64 65 62 75 67 20 22 6f |---.  --|debug "o|
|00005900| 70 65 6e 20 46 69 6c 65 | 49 4f 22 0d 20 20 6f 70 |pen File|IO".  op|
|00005910| 65 6e 58 4c 69 62 20 22 | 66 69 6c 65 69 6f 2e 44 |enXLib "|fileio.D|
|00005920| 4c 4c 22 0d 20 20 2d 2d | 20 63 72 65 61 74 65 20 |LL".  --| create |
|00005930| 20 6f 62 6a 65 63 74 0d | 20 20 69 66 20 6f 62 6a | object.|  if obj|
|00005940| 65 63 74 50 28 20 67 78 | 46 69 6c 65 4f 62 6a 20 |ectP( gx|FileObj |
|00005950| 29 20 74 68 65 6e 20 67 | 78 46 69 6c 65 4f 62 6a |) then g|xFileObj|
|00005960| 28 20 6d 44 69 73 70 6f | 73 65 20 29 0d 20 20 2d |( mDispo|se ).  -|
|00005970| 2d 64 65 62 75 67 20 22 | 69 73 20 6f 6b 22 0d 20 |-debug "|is ok". |
|00005980| 20 0d 20 20 0d 20 20 2d | 2d 20 2d 2d 2d 2d 2d 2d | .  .  -|- ------|
|00005990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 6f 70 65 6e 20 |--------|-- open |
|000059a0| 4d 65 73 73 61 67 65 20 | 45 78 63 68 61 6e 67 65 |Message |Exchange|
|000059b0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 20 20 | -------|-----.  |
|000059c0| 2d 2d 64 65 62 75 67 20 | 22 6f 70 65 6e 20 63 61 |--debug |"open ca|
|000059d0| 77 22 0d 20 20 6f 70 65 | 6e 58 4c 69 62 20 22 63 |w".  ope|nXLib "c|
|000059e0| 61 77 58 6f 62 6a 2e 44 | 4c 4c 22 0d 20 20 2d 2d |awXobj.D|LL".  --|
|000059f0| 20 63 72 65 61 74 65 20 | 20 6f 62 6a 65 63 74 0d | create | object.|
|00005a00| 20 20 69 66 20 6f 62 6a | 65 63 74 50 28 20 67 78 |  if obj|ectP( gx|
|00005a10| 4d 73 67 4f 62 6a 20 29 | 20 74 68 65 6e 20 67 78 |MsgObj )| then gx|
|00005a20| 4d 73 67 4f 62 6a 28 20 | 6d 44 69 73 70 6f 73 65 |MsgObj( |mDispose|
|00005a30| 20 29 0d 20 20 0d 20 20 | 0d 20 20 2d 2d 64 65 62 | ).  .  |.  --deb|
|00005a40| 75 67 20 22 69 73 20 6f | 6b 22 0d 20 20 0d 20 20 |ug "is o|k".  .  |
|00005a50| 2d 2d 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |-- -----|--------|
|00005a60| 2d 2d 2d 2d 20 73 65 74 | 20 74 68 65 20 70 61 74 |---- set| the pat|
|00005a70| 68 20 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |h ------|--------|
|00005a80| 2d 0d 20 20 47 65 74 56 | 6f 6c 4e 61 6d 65 0d 20 |-.  GetV|olName. |
|00005a90| 20 47 65 74 57 69 6e 50 | 61 74 68 20 2d 2d 20 31 | GetWinP|ath -- 1|
|00005aa0| 74 65 72 20 41 75 66 72 | 75 66 20 68 6f 6c 74 20 |ter Aufr|uf holt |
|00005ab0| 77 69 6e 20 70 61 74 68 | 20 66 9f 72 20 69 6e 69 |win path| f.r ini|
|00005ac0| 20 66 69 6c 65 73 0d 20 | 20 73 65 74 20 67 73 4d | files. | set gsM|
|00005ad0| 6f 76 69 65 50 61 74 68 | 20 3d 20 74 68 65 20 50 |oviePath| = the P|
|00005ae0| 61 74 68 4e 61 6d 65 0d | 20 20 2d 2d 64 65 62 75 |athName.|  --debu|
|00005af0| 67 20 22 4d 6f 76 69 65 | 50 61 74 68 3a 20 22 20 |g "Movie|Path: " |
|00005b00| 26 20 67 73 4d 6f 76 69 | 65 50 61 74 68 0d 20 20 |& gsMovi|ePath.  |
|00005b10| 0d 20 20 0d 20 20 0d 65 | 6e 64 20 49 6e 69 74 53 |.  .  .e|nd InitS|
|00005b20| 79 73 74 65 6d 0d 0d 0d | 0d 0d 0d 0d 2d 2d 20 2a |ystem...|....-- *|
|00005b30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005b60| 0d 0d 6f 6e 20 43 6c 65 | 61 72 53 79 73 74 65 6d |..on Cle|arSystem|
|00005b70| 20 20 0d 20 20 2d 2d 20 | 6f 6e 20 73 74 6f 70 20 |  .  -- |on stop |
|00005b80| 63 6c 65 61 6e 20 75 70 | 20 74 68 65 20 6d 65 73 |clean up| the mes|
|00005b90| 73 0d 20 20 0d 20 20 67 | 6c 6f 62 61 6c 20 67 78 |s.  .  g|lobal gx|
|00005ba0| 55 74 69 6c 4f 62 6a 2c | 20 67 78 46 69 6c 65 4f |UtilObj,| gxFileO|
|00005bb0| 62 6a 2c 20 78 4d 73 67 | 58 6f 62 6a 0d 20 20 0d |bj, xMsg|Xobj.  .|
|00005bc0| 20 20 69 66 20 6f 62 6a | 65 63 74 50 28 20 67 78 |  if obj|ectP( gx|
|00005bd0| 55 74 69 6c 4f 62 6a 20 | 29 20 74 68 65 6e 20 67 |UtilObj |) then g|
|00005be0| 78 55 74 69 6c 4f 62 6a | 28 20 6d 44 69 73 70 6f |xUtilObj|( mDispo|
|00005bf0| 73 65 20 29 0d 20 20 69 | 66 20 6f 62 6a 65 63 74 |se ).  i|f object|
|00005c00| 50 28 20 67 78 46 69 6c | 65 4f 62 6a 20 29 20 74 |P( gxFil|eObj ) t|
|00005c10| 68 65 6e 20 67 78 46 69 | 6c 65 4f 62 6a 28 20 6d |hen gxFi|leObj( m|
|00005c20| 44 69 73 70 6f 73 65 20 | 29 0d 20 20 69 66 20 6f |Dispose |).  if o|
|00005c30| 62 6a 65 63 74 50 28 20 | 67 78 4d 73 67 4f 62 6a |bjectP( |gxMsgObj|
|00005c40| 20 29 20 74 68 65 6e 20 | 67 78 4d 73 67 4f 62 6a | ) then |gxMsgObj|
|00005c50| 28 20 6d 44 69 73 70 6f | 73 65 20 29 0d 20 20 0d |( mDispo|se ).  .|
|00005c60| 20 20 63 6c 6f 73 65 58 | 4c 69 62 20 20 2d 2d 20 |  closeX|Lib  -- |
|00005c70| 61 6c 6c 65 21 21 0d 65 | 6e 64 20 43 6c 65 61 72 |alle!!.e|nd Clear|
|00005c80| 53 79 73 74 65 6d 0d 0d | 0d 0d 0d 0d 6f 6e 20 67 |System..|....on g|
|00005c90| 65 74 56 6f 6c 4e 61 6d | 65 0d 20 20 2d 2d 20 65 |etVolNam|e.  -- e|
|00005ca0| 78 74 72 61 63 74 20 76 | 6f 6c 75 6d 65 20 6e 61 |xtract v|olume na|
|00005cb0| 6d 65 20 66 72 6f 6d 20 | 61 20 67 69 76 65 6e 20 |me from |a given |
|00005cc0| 70 61 74 68 20 6e 61 6d | 65 20 73 74 72 69 6e 67 |path nam|e string|
|00005cd0| 3a 0d 20 20 0d 20 20 67 | 6c 6f 62 61 6c 20 67 78 |:.  .  g|lobal gx|
|00005ce0| 55 74 69 6c 4f 62 6a 2c | 20 67 73 58 2c 20 67 73 |UtilObj,| gsX, gs|
|00005cf0| 49 6e 69 46 69 6c 65 0d | 20 20 0d 20 20 69 66 20 |IniFile.|  .  if |
|00005d00| 6f 62 6a 65 63 74 50 28 | 20 67 78 55 74 69 6c 4f |objectP(| gxUtilO|
|00005d10| 62 6a 20 29 20 74 68 65 | 6e 0d 20 20 20 20 70 75 |bj ) the|n.    pu|
|00005d20| 74 20 67 78 55 74 69 6c | 4f 62 6a 28 20 6d 47 65 |t gxUtil|Obj( mGe|
|00005d30| 74 56 6f 6c 4e 61 6d 65 | 2c 20 74 68 65 20 70 61 |tVolName|, the pa|
|00005d40| 74 68 4e 61 6d 65 20 29 | 20 69 6e 74 6f 20 67 73 |thName )| into gs|
|00005d50| 58 0d 20 20 65 6c 73 65 | 0d 20 20 20 20 46 65 68 |X.  else|.    Feh|
|00005d60| 6c 65 72 20 31 30 31 2c | 20 22 2d 2d 22 0d 20 20 |ler 101,| "--".  |
|00005d70| 65 6e 64 20 69 66 0d 20 | 20 2d 2d 20 73 65 74 20 |end if. | -- set |
|00005d80| 67 73 49 6e 69 46 69 6c | 65 20 3d 20 67 73 57 69 |gsIniFil|e = gsWi|
|00005d90| 6e 50 61 74 68 20 26 20 | 22 5c 22 20 26 20 67 73 |nPath & |"\" & gs|
|00005da0| 49 6e 69 46 69 6c 65 0d | 20 20 2d 2d 64 65 62 75 |IniFile.|  --debu|
|00005db0| 67 20 22 56 6f 6c 75 6d | 65 3a 20 22 20 26 20 67 |g "Volum|e: " & g|
|00005dc0| 73 58 0d 20 20 0d 65 6e | 64 20 67 65 74 56 6f 6c |sX.  .en|d getVol|
|00005dd0| 4e 61 6d 65 0d 0d 0d 6f | 6e 20 67 65 74 53 79 73 |Name...o|n getSys|
|00005de0| 50 61 74 68 0d 20 20 2d | 2d 20 72 65 74 75 72 6e |Path.  -|- return|
|00005df0| 73 20 63 6f 6d 70 6c 65 | 74 65 20 76 6f 6c 75 6d |s comple|te volum|
|00005e00| 65 20 61 6e 64 20 70 61 | 74 68 4e 61 6d 65 20 6f |e and pa|thName o|
|00005e10| 66 20 63 75 72 72 65 6e | 74 6c 79 20 61 63 74 69 |f curren|tly acti|
|00005e20| 76 65 20 53 79 73 74 65 | 6d 20 66 6f 6c 64 65 72 |ve Syste|m folder|
|00005e30| 0d 20 20 2d 2d 20 61 73 | 20 61 20 73 74 72 69 6e |.  -- as| a strin|
|00005e40| 67 2e 20 4e 4f 54 45 3a | 20 54 68 69 73 20 69 73 |g. NOTE:| This is|
|00005e50| 20 74 68 65 20 44 4f 53 | 20 53 79 73 74 65 6d 20 | the DOS| System |
|00005e60| 64 69 72 65 63 74 6f 72 | 79 2e 0d 20 20 0d 20 20 |director|y..  .  |
|00005e70| 67 6c 6f 62 61 6c 20 67 | 78 55 74 69 6c 4f 62 6a |global g|xUtilObj|
|00005e80| 2c 20 67 73 53 79 73 50 | 61 74 68 0d 20 20 0d 20 |, gsSysP|ath.  . |
|00005e90| 20 69 66 20 6f 62 6a 65 | 63 74 50 28 20 67 78 55 | if obje|ctP( gxU|
|00005ea0| 74 69 6c 4f 62 6a 20 29 | 20 74 68 65 6e 0d 20 20 |tilObj )| then.  |
|00005eb0| 20 20 70 75 74 20 67 78 | 55 74 69 6c 4f 62 6a 28 |  put gx|UtilObj(|
|00005ec0| 20 6d 47 65 74 53 79 73 | 74 65 6d 50 61 74 68 20 | mGetSys|temPath |
|00005ed0| 29 20 69 6e 74 6f 20 67 | 73 53 79 73 50 61 74 68 |) into g|sSysPath|
|00005ee0| 0d 20 20 65 6c 73 65 0d | 20 20 20 20 46 65 68 6c |.  else.|    Fehl|
|00005ef0| 65 72 20 31 30 31 2c 20 | 22 2d 2d 22 0d 20 20 65 |er 101, |"--".  e|
|00005f00| 6e 64 20 69 66 20 0d 20 | 20 0d 65 6e 64 20 67 65 |nd if . | .end ge|
|00005f10| 74 53 79 73 50 61 74 68 | 0d 0d 0d 0d 6f 6e 20 67 |tSysPath|....on g|
|00005f20| 65 74 57 69 6e 50 61 74 | 68 0d 20 20 2d 2d 20 72 |etWinPat|h.  -- r|
|00005f30| 65 74 75 72 6e 73 20 63 | 6f 6d 70 6c 65 74 65 20 |eturns c|omplete |
|00005f40| 76 6f 6c 75 6d 65 20 61 | 6e 64 20 70 61 74 68 4e |volume a|nd pathN|
|00005f50| 61 6d 65 20 6f 66 20 63 | 75 72 72 65 6e 74 6c 79 |ame of c|urrently|
|00005f60| 20 61 63 74 69 76 65 20 | 0d 20 20 2d 2d 20 57 69 | active |.  -- Wi|
|00005f70| 6e 64 6f 77 73 66 6f 6c | 64 65 72 20 61 73 20 61 |ndowsfol|der as a|
|00005f80| 20 73 74 72 69 6e 67 2e | 2e 2e 75 73 65 66 75 6c | string.|..useful|
|00005f90| 20 66 6f 72 20 63 72 65 | 61 74 69 6e 67 2f 6f 70 | for cre|ating/op|
|00005fa0| 65 6e 69 6e 67 20 50 72 | 65 66 73 3a 0d 20 20 0d |ening Pr|efs:.  .|
|00005fb0| 20 20 67 6c 6f 62 61 6c | 20 67 78 55 74 69 6c 4f |  global| gxUtilO|
|00005fc0| 62 6a 2c 20 67 73 57 69 | 6e 50 61 74 68 2c 20 67 |bj, gsWi|nPath, g|
|00005fd0| 73 49 6e 69 46 69 6c 65 | 0d 20 20 0d 20 20 69 66 |sIniFile|.  .  if|
|00005fe0| 20 6f 62 6a 65 63 74 50 | 28 20 67 78 55 74 69 6c | objectP|( gxUtil|
|00005ff0| 4f 62 6a 20 29 20 74 68 | 65 6e 0d 20 20 20 20 70 |Obj ) th|en.    p|
|00006000| 75 74 20 67 78 55 74 69 | 6c 4f 62 6a 28 20 6d 47 |ut gxUti|lObj( mG|
|00006010| 65 74 57 69 6e 64 6f 77 | 73 50 61 74 68 20 29 20 |etWindow|sPath ) |
|00006020| 69 6e 74 6f 20 67 73 57 | 69 6e 50 61 74 68 0d 20 |into gsW|inPath. |
|00006030| 20 65 6c 73 65 0d 20 20 | 20 20 46 65 68 6c 65 72 | else.  |  Fehler|
|00006040| 20 31 30 31 2c 20 22 2d | 2d 22 0d 20 20 65 6e 64 | 101, "-|-".  end|
|00006050| 20 69 66 0d 20 20 2d 2d | 64 65 62 75 67 20 22 57 | if.  --|debug "W|
|00006060| 69 6e 70 61 74 68 3a 22 | 20 26 20 67 73 57 69 6e |inpath:"| & gsWin|
|00006070| 50 61 74 68 0d 20 20 73 | 65 74 20 67 73 49 6e 69 |Path.  s|et gsIni|
|00006080| 46 69 6c 65 20 3d 20 67 | 73 57 69 6e 50 61 74 68 |File = g|sWinPath|
|00006090| 20 26 20 22 5c 22 20 26 | 20 67 73 49 6e 69 46 69 | & "\" &| gsIniFi|
|000060a0| 6c 65 0d 20 20 2d 2d 64 | 65 62 75 67 20 22 49 6e |le.  --d|ebug "In|
|000060b0| 69 44 61 74 65 69 3a 20 | 22 20 26 20 67 73 49 6e |iDatei: |" & gsIn|
|000060c0| 69 46 69 6c 65 0d 20 20 | 0d 20 20 0d 65 6e 64 20 |iFile.  |.  .end |
|000060d0| 67 65 74 57 69 6e 50 61 | 74 68 0d 0d 0d 0d 0d 6f |getWinPa|th.....o|
|000060e0| 6e 20 73 65 74 50 61 74 | 68 0d 20 20 2d 2d 20 53 |n setPat|h.  -- S|
|000060f0| 65 74 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 70 |et the d|efault p|
|00006100| 61 74 68 4e 61 6d 65 20 | 6f 66 20 22 76 6f 6c 75 |athName |of "volu|
|00006110| 6d 65 3a 5c 64 69 72 65 | 63 74 6f 72 79 28 73 29 |me:\dire|ctory(s)|
|00006120| 3a 22 20 73 6f 20 74 68 | 61 74 0d 20 20 2d 2d 20 |:" so th|at.  -- |
|00006130| 77 69 74 68 20 46 69 6c | 65 49 4f 20 22 3f 72 65 |with Fil|eIO "?re|
|00006140| 61 64 22 20 70 65 72 6d | 69 73 73 69 6f 6e 2c 20 |ad" perm|ission, |
|00006150| 74 68 65 20 46 69 6c 65 | 4f 70 65 6e 2f 53 61 76 |the File|Open/Sav|
|00006160| 65 20 44 69 61 6c 6f 67 | 20 6f 70 65 6e 73 20 74 |e Dialog| opens t|
|00006170| 6f 20 74 68 65 0d 20 20 | 2d 2d 20 73 70 65 63 69 |o the.  |-- speci|
|00006180| 66 69 65 64 20 66 6f 6c | 64 65 72 2e 20 20 54 68 |fied fol|der.  Th|
|00006190| 69 73 20 64 6f 65 73 20 | 6e 6f 74 20 61 66 66 65 |is does |not affe|
|000061a0| 63 74 20 74 68 65 20 4c | 69 6e 67 6f 20 70 61 74 |ct the L|ingo pat|
|000061b0| 68 4e 61 6d 65 20 70 72 | 6f 70 65 72 74 79 2e 0d |hName pr|operty..|
|000061c0| 20 20 0d 20 20 67 6c 6f | 62 61 6c 20 67 78 55 74 |  .  glo|bal gxUt|
|000061d0| 69 6c 4f 62 6a 0d 20 20 | 0d 20 20 69 66 20 6f 62 |ilObj.  |.  if ob|
|000061e0| 6a 65 63 74 50 28 20 67 | 78 55 74 69 6c 4f 62 6a |jectP( g|xUtilObj|
|000061f0| 20 29 20 74 68 65 6e 0d | 20 20 20 20 70 75 74 20 | ) then.|    put |
|00006200| 66 69 65 6c 64 20 22 76 | 6f 6c 44 69 72 65 63 74 |field "v|olDirect|
|00006210| 6f 72 79 22 20 69 6e 74 | 6f 20 73 0d 20 20 20 20 |ory" int|o s.    |
|00006220| 70 75 74 20 67 78 55 74 | 69 6c 4f 62 6a 28 20 6d |put gxUt|ilObj( m|
|00006230| 53 65 74 44 65 66 61 75 | 6c 74 50 61 74 68 2c 20 |SetDefau|ltPath, |
|00006240| 73 20 29 20 69 6e 74 6f | 20 72 65 73 75 6c 74 0d |s ) into| result.|
|00006250| 20 20 20 20 69 66 20 72 | 65 73 75 6c 74 20 3d 20 |    if r|esult = |
|00006260| 2d 31 20 74 68 65 6e 0d | 20 20 20 20 20 20 61 6c |-1 then.|      al|
|00006270| 65 72 74 20 22 4e 6f 20 | 73 75 63 68 20 64 69 72 |ert "No |such dir|
|00006280| 65 63 74 6f 72 79 20 65 | 78 69 73 74 73 2e 20 50 |ectory e|xists. P|
|00006290| 6c 65 61 73 65 20 74 72 | 79 20 61 67 61 69 6e 2e |lease tr|y again.|
|000062a0| 2e 2e 22 0d 20 20 20 20 | 20 20 65 78 69 74 0d 20 |..".    |  exit. |
|000062b0| 20 20 20 20 20 0d 20 20 | 20 20 65 6e 64 20 69 66 |     .  |  end if|
|000062c0| 0d 20 20 65 6c 73 65 0d | 20 20 20 20 46 65 68 6c |.  else.|    Fehl|
|000062d0| 65 72 20 31 30 31 2c 20 | 22 2d 2d 22 0d 20 20 65 |er 101, |"--".  e|
|000062e0| 6e 64 20 69 66 0d 20 20 | 0d 65 6e 64 20 73 65 74 |nd if.  |.end set|
|000062f0| 50 61 74 68 0d 0d 0d 0d | 0d 00 2a 00 04 02 6c 03 |Path....|..*...l.|
|00006300| 3c 00 00 0c 5c 00 00 0c | 5c 00 93 64 93 00 0b 00 |<...\...|\..d....|
|00006310| 00 00 00 00 10 00 0c 00 | 04 00 00 00 0c 00 00 00 |........|........|
|00006320| 00 00 00 00 00 00 df 00 | 12 00 0e 00 04 05 00 00 |........|........|
|00006330| 0e 00 00 00 00 00 00 00 | 00 00 e9 00 10 00 0c 00 |........|........|
|00006340| 04 00 00 00 0c 00 00 00 | 00 00 00 00 00 07 15 00 |........|........|
|00006350| 10 00 0c 00 04 05 00 00 | 0c 00 00 00 00 00 00 00 |........|........|
|00006360| 00 07 20 00 10 00 0c 00 | 04 00 00 00 0c 00 00 00 |.. .....|........|
|00006370| 00 00 00 00 00 08 3f 00 | 18 00 12 00 04 05 00 00 |......?.|........|
|00006380| 12 00 00 00 00 00 00 00 | 00 08 49 00 10 00 0c 00 |........|..I.....|
|00006390| 04 00 00 00 0c 00 00 00 | 00 00 00 00 00 09 8a 00 |........|........|
|000063a0| 18 00 12 00 04 05 00 00 | 12 00 00 00 00 00 00 00 |........|........|
|000063b0| 00 09 94 00 10 00 0c 00 | 04 00 00 00 0c 00 00 00 |........|........|
|000063c0| 00 00 00 00 00 0a cf 00 | 18 00 12 00 04 05 00 00 |........|........|
|000063d0| 12 00 00 00 00 00 00 00 | 00 0a d9 00 10 00 0c 00 |........|........|
|000063e0| 04 00 00 00 0c 00 00 00 | 00 00 00 08 00 fd 00 00 |........|........|
|000063f0| 00 00 00 00 00 10 00 00 | 00 00 b2 08 00 fd 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+