home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-09-28 | 37.2 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 66%
| dexvert
| SoundTracker Module (music/soundTracker)
| ext
| Supported |
| 66%
| dexvert
| Chip Tracker Module (music/chipTracker)
| ext
| Supported |
| 66%
| dexvert
| Protracker Module (music/mod)
| ext
| Supported |
| 66%
| dexvert
| Octalyser Module (music/octalyser)
| ext
| Supported |
| 66%
| dexvert
| Star Tracker/StarTrekker Module (music/starTracker)
| ext
| Supported |
| 1%
| dexvert
| Multiplan spreadsheet (document/multiplanSpreadsheet)
| ext
| Unsupported |
| 1%
| dexvert
| PollyTracker Module (music/pollyTracker)
| ext
| Unsupported |
| 1%
| dexvert
| Black Viper packed music (music/blackViperPackedMusic)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: 'oBMines.Mod'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 6f 42 4d 69 6e 65 73 2e | 4d 6f 64 00 00 00 00 00 |oBMines.|Mod.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 f0 01 b9 0b 00 00 | 01 53 79 6e 74 61 78 31 |........|.Syntax1|
|00000030| 30 2e 53 63 6e 2e 46 6e | 74 00 0f 00 07 00 00 00 |0.Scn.Fn|t.......|
|00000040| 02 53 79 6e 74 61 78 31 | 30 62 2e 53 63 6e 2e 46 |.Syntax1|0b.Scn.F|
|00000050| 6e 74 00 0f 00 05 00 00 | 00 01 0f 00 a6 00 00 00 |nt......|........|
|00000060| 01 0f 00 1b ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|00000070| 46 6f 6c 64 45 6c 65 6d | 73 00 4e 65 77 00 00 23 |FoldElem|s.New..#|
|00000080| 00 00 00 01 53 79 6e 74 | 61 78 31 30 2e 53 63 6e |....Synt|ax10.Scn|
|00000090| 2e 46 6e 74 00 0f 00 c3 | 00 00 00 00 c3 00 00 00 |.Fnt....|........|
|000000a0| 28 2a 20 74 68 65 20 63 | 6f 6c 6f 72 73 20 6f 66 |(* the c|olors of|
|000000b0| 20 4d 69 6e 65 73 20 77 | 69 74 68 20 4d 69 6e 65 | Mines w|ith Mine|
|000000c0| 73 2e 50 61 6c 20 2a 29 | 0d 09 09 28 2a 62 6c 61 |s.Pal *)|...(*bla|
|000000d0| 63 6b 3d 44 69 73 70 6c | 61 79 2e 77 68 69 74 65 |ck=Displ|ay.white|
|000000e0| 3b 20 72 65 64 3d 31 3b | 20 79 65 6c 6c 6f 77 3d |; red=1;| yellow=|
|000000f0| 34 3b 20 6c 69 67 68 74 | 67 72 61 79 3d 31 32 3b |4; light|gray=12;|
|00000100| 20 6d 69 64 67 72 61 79 | 3d 31 33 3b 20 64 61 72 | midgray|=13; dar|
|00000110| 6b 67 72 61 79 3d 31 34 | 3b 0d 09 09 43 6f 6c 31 |kgray=14|;...Col1|
|00000120| 3d 33 3b 20 43 6f 6c 32 | 3d 32 3b 20 43 6f 6c 33 |=3; Col2|=2; Col3|
|00000130| 3d 72 65 64 3b 20 43 6f | 6c 34 3d 39 3b 20 43 6f |=red; Co|l4=9; Co|
|00000140| 6c 35 3d 37 3b 20 43 6f | 6c 36 3d 35 3b 20 43 6f |l5=7; Co|l6=5; Co|
|00000150| 6c 37 3d 36 3b 20 43 6f | 6c 38 3d 62 6c 61 63 6b |l7=6; Co|l8=black|
|00000160| 3b 2a 29 01 0f 00 15 00 | 00 00 01 0f 00 ff ff ff |;*).....|........|
|00000170| ff 80 38 01 00 c0 d4 01 | 00 01 01 01 0f 00 04 00 |..8.....|........|
|00000180| 00 00 01 0f 00 c9 ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000190| 00 01 03 23 00 00 00 01 | 53 79 6e 74 61 78 31 30 |...#....|Syntax10|
|000001a0| 2e 53 63 6e 2e 46 6e 74 | 00 0f 00 15 00 00 00 00 |.Scn.Fnt|........|
|000001b0| 15 00 00 00 28 2a 4d 53 | 2d 57 69 6e 64 6f 77 73 |....(*MS|-Windows|
|000001c0| 20 43 6f 6c 6f 72 73 2a | 29 01 0f 00 bd 00 00 00 | Colors*|).......|
|000001d0| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|000001e0| 02 01 0f 00 01 07 00 00 | 01 0f 00 ff ff ff ff 80 |........|........|
|000001f0| 38 01 00 c0 d4 01 00 01 | 07 01 0f 00 8a 00 00 00 |8.......|........|
|00000200| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|00000210| 02 01 0f 00 3c 00 00 00 | 01 0f 00 ff ff ff ff 80 |....<...|........|
|00000220| 38 01 00 c0 d4 01 00 01 | 07 01 0f 00 85 01 00 00 |8.......|........|
|00000230| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|00000240| 02 01 0f 00 28 00 00 00 | 01 0f 00 ff ff ff ff 80 |....(...|........|
|00000250| 38 01 00 c0 d4 01 00 01 | 07 01 0f 00 be 01 00 00 |8.......|........|
|00000260| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|00000270| 02 01 0f 00 49 00 00 00 | 01 0f 00 ff ff ff ff 80 |....I...|........|
|00000280| 38 01 00 c0 d4 01 00 01 | 07 01 0f 00 ea 01 00 00 |8.......|........|
|00000290| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|000002a0| 02 01 0f 00 26 00 00 00 | 02 0f 00 08 00 00 00 01 |....&...|........|
|000002b0| 0f 00 02 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|000002c0| 00 c0 d4 01 00 01 07 01 | 0f 00 68 00 00 00 01 0f |........|..h.....|
|000002d0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|000002e0| 0f 00 4c 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..L.....|......8.|
|000002f0| 00 c0 d4 01 00 01 07 01 | 0f 00 ed 00 00 00 01 0f |........|........|
|00000300| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000310| 0f 00 31 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..1.....|......8.|
|00000320| 00 c0 d4 01 00 01 07 01 | 0f 00 d1 00 00 00 01 0f |........|........|
|00000330| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000340| 0f 00 55 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..U.....|......8.|
|00000350| 00 c0 d4 01 00 01 07 01 | 0f 00 e7 03 00 00 01 0f |........|........|
|00000360| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000370| 0f 00 47 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..G.....|......8.|
|00000380| 00 c0 d4 01 00 01 07 01 | 0f 00 20 01 00 00 01 0f |........|.. .....|
|00000390| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|000003a0| 0f 00 46 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..F.....|......8.|
|000003b0| 00 c0 d4 01 00 01 07 01 | 0f 00 93 00 00 00 01 0f |........|........|
|000003c0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|000003d0| 0f 00 55 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..U.....|......8.|
|000003e0| 00 c0 d4 01 00 01 07 01 | 0f 00 de 01 00 00 01 0f |........|........|
|000003f0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000400| 0f 00 6d 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..m.....|......8.|
|00000410| 00 c0 d4 01 00 01 07 01 | 0f 00 26 02 00 00 01 0f |........|..&.....|
|00000420| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000430| 0f 00 7b 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..{.....|......8.|
|00000440| 00 c0 d4 01 00 01 07 01 | 0f 00 cc 01 00 00 01 0f |........|........|
|00000450| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000460| 0f 00 5c 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..\.....|......8.|
|00000470| 00 c0 d4 01 00 01 07 01 | 0f 00 0d 01 00 00 01 0f |........|........|
|00000480| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000490| 0f 00 5a 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..Z.....|......8.|
|000004a0| 00 c0 d4 01 00 01 07 01 | 0f 00 c4 01 00 00 01 0f |........|........|
|000004b0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|000004c0| 0f 00 4b 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..K.....|......8.|
|000004d0| 00 c0 d4 01 00 01 07 01 | 0f 00 65 00 00 00 01 0f |........|..e.....|
|000004e0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|000004f0| 0f 00 35 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..5.....|......8.|
|00000500| 00 c0 d4 01 00 01 07 01 | 0f 00 83 00 00 00 01 0f |........|........|
|00000510| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000520| 0f 00 8a 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|00000530| 00 c0 d4 01 00 01 07 01 | 0f 00 d2 03 00 00 01 0f |........|........|
|00000540| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000550| 0f 00 5c 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..\.....|......8.|
|00000560| 00 c0 d4 01 00 01 07 01 | 0f 00 68 01 00 00 01 0f |........|..h.....|
|00000570| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000580| 0f 00 25 00 00 00 02 0f | 00 09 00 00 00 01 0f 00 |..%.....|........|
|00000590| 1a 00 00 00 01 0f 00 ff | ff ff ff 80 38 01 00 c0 |........|....8...|
|000005a0| d4 01 00 01 07 01 0f 00 | d3 04 00 00 01 0f 00 ff |........|........|
|000005b0| ff ff ff 80 38 01 00 c0 | d4 01 00 01 02 01 0f 00 |....8...|........|
|000005c0| 1f 00 00 00 02 0f 00 0a | 00 00 00 01 0f 00 47 00 |........|......G.|
|000005d0| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|000005e0| 00 01 07 01 0f 00 ec 01 | 00 00 01 0f 00 ff ff ff |........|........|
|000005f0| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 30 00 |..8.....|......0.|
|00000600| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000610| 00 01 07 01 0f 00 72 06 | 00 00 01 0f 00 ff ff ff |......r.|........|
|00000620| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 62 00 |..8.....|......b.|
|00000630| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000640| 00 01 07 01 0f 00 11 02 | 00 00 01 0f 00 ff ff ff |........|........|
|00000650| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 4f 00 |..8.....|......O.|
|00000660| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000670| 00 01 07 01 0f 00 05 01 | 00 00 01 0f 00 ff ff ff |........|........|
|00000680| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 51 00 |..8.....|......Q.|
|00000690| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|000006a0| 00 01 07 01 0f 00 f0 02 | 00 00 01 0f 00 ff ff ff |........|........|
|000006b0| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 69 00 |..8.....|......i.|
|000006c0| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|000006d0| 00 01 07 01 0f 00 11 01 | 00 00 01 0f 00 ff ff ff |........|........|
|000006e0| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 57 00 |..8.....|......W.|
|000006f0| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000700| 00 01 07 01 0f 00 28 02 | 00 00 01 0f 00 ff ff ff |......(.|........|
|00000710| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 38 00 |..8.....|......8.|
|00000720| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000730| 00 01 07 01 0f 00 1d 01 | 00 00 01 0f 00 ff ff ff |........|........|
|00000740| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 35 00 |..8.....|......5.|
|00000750| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000760| 00 01 07 01 0f 00 d0 00 | 00 00 01 0f 00 ff ff ff |........|........|
|00000770| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 71 00 |..8.....|......q.|
|00000780| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000790| 00 01 07 01 0f 00 44 03 | 00 00 01 0f 00 ff ff ff |......D.|........|
|000007a0| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 28 00 |..8.....|......(.|
|000007b0| 00 00 02 0f 00 09 00 00 | 00 01 0f 00 4f 00 00 00 |........|....O...|
|000007c0| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|000007d0| 07 01 0f 00 88 04 00 00 | 01 0f 00 ff ff ff ff 80 |........|........|
|000007e0| 38 01 00 c0 d4 01 00 01 | 02 01 0f 00 51 00 00 00 |8.......|....Q...|
|000007f0| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|00000800| 07 01 0f 00 4c 01 00 00 | 01 0f 00 ff ff ff ff 80 |....L...|........|
|00000810| 38 01 00 c0 d4 01 00 01 | 02 01 0f 00 a8 03 00 00 |8.......|........|
|00000820| 02 0f 00 05 00 00 00 01 | 0f 00 02 00 00 00 01 0f |........|........|
|00000830| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|00000840| 0f 00 a1 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|00000850| 00 c0 d4 01 00 01 02 01 | 0f 00 56 00 00 00 01 0f |........|..V.....|
|00000860| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|00000870| 0f 00 52 05 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..R.....|......8.|
|00000880| 00 c0 d4 01 00 01 02 01 | 0f 00 4a 00 00 00 02 0f |........|..J.....|
|00000890| 00 0a 00 00 00 01 0f 00 | 57 00 00 00 01 0f 00 ff |........|W.......|
|000008a0| ff ff ff 80 38 01 00 c0 | d4 01 00 01 07 01 0f 00 |....8...|........|
|000008b0| 2d 01 00 00 01 0f 00 ff | ff ff ff 80 38 01 00 c0 |-.......|....8...|
|000008c0| d4 01 00 01 02 01 0f 00 | 66 00 00 00 01 0f 00 ff |........|f.......|
|000008d0| ff ff ff 80 38 01 00 c0 | d4 01 00 01 07 01 0f 00 |....8...|........|
|000008e0| 2e 0c 00 00 01 0f 00 ff | ff ff ff 80 38 01 00 c0 |........|....8...|
|000008f0| d4 01 00 01 02 01 0f 00 | 23 00 00 00 02 0f 00 06 |........|#.......|
|00000900| 00 00 00 01 0f 00 22 00 | 00 00 01 0f 00 ff ff ff |......".|........|
|00000910| ff 80 38 01 00 c0 d4 01 | 00 01 07 01 0f 00 d2 03 |..8.....|........|
|00000920| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000930| 00 01 02 01 0f 00 57 00 | 00 00 01 0f 00 ff ff ff |......W.|........|
|00000940| ff 80 38 01 00 c0 d4 01 | 00 01 07 01 0f 00 11 02 |..8.....|........|
|00000950| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000960| 00 01 02 01 0f 00 25 00 | 00 00 02 0f 00 07 00 00 |......%.|........|
|00000970| 00 01 0f 00 02 00 00 00 | 01 0f 00 ff ff ff ff 80 |........|........|
|00000980| 38 01 00 c0 d4 01 00 01 | 07 01 0f 00 44 02 00 00 |8.......|....D...|
|00000990| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|000009a0| 02 01 0f 00 23 00 00 00 | 02 0f 00 05 00 00 00 01 |....#...|........|
|000009b0| 0f 00 02 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|000009c0| 00 c0 d4 01 00 01 07 01 | 0f 00 c8 03 00 00 01 0f |........|........|
|000009d0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|000009e0| 0f 00 33 00 00 00 02 0f | 00 04 00 00 00 01 0f 00 |..3.....|........|
|000009f0| 02 00 00 00 01 0f 00 ff | ff ff ff 80 38 01 00 c0 |........|....8...|
|00000a00| d4 01 00 01 07 01 0f 00 | 59 02 00 00 01 0f 00 ff |........|Y.......|
|00000a10| ff ff ff 80 38 01 00 c0 | d4 01 00 01 02 01 0f 00 |....8...|........|
|00000a20| 36 00 00 00 02 0f 00 09 | 00 00 00 01 0f 00 02 00 |6.......|........|
|00000a30| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000a40| 00 01 07 01 0f 00 80 00 | 00 00 01 0f 00 ff ff ff |........|........|
|00000a50| ff 80 38 01 00 c0 d4 01 | 00 01 02 01 0f 00 45 00 |..8.....|......E.|
|00000a60| 00 00 02 0f 00 08 00 00 | 00 01 0f 00 02 00 00 00 |........|........|
|00000a70| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|00000a80| 07 01 0f 00 44 00 00 00 | 01 0f 00 ff ff ff ff 80 |....D...|........|
|00000a90| 38 01 00 c0 d4 01 00 01 | 02 01 0f 00 36 00 00 00 |8.......|....6...|
|00000aa0| 02 0f 00 08 00 00 00 01 | 0f 00 02 00 00 00 01 0f |........|........|
|00000ab0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 07 01 |......8.|........|
|00000ac0| 0f 00 32 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |..2.....|......8.|
|00000ad0| 00 c0 d4 01 00 01 02 01 | 0f 00 0d 00 00 00 02 0f |........|........|
|00000ae0| 00 08 00 00 00 01 0f 00 | 02 00 00 00 01 0f 00 ff |........|........|
|00000af0| ff ff ff 80 38 01 00 c0 | d4 01 00 01 07 01 0f 00 |....8...|........|
|00000b00| 34 00 00 00 01 0f 00 ff | ff ff ff 80 38 01 00 c0 |4.......|....8...|
|00000b10| d4 01 00 01 02 01 0f 00 | 0d 00 00 00 02 0f 00 06 |........|........|
|00000b20| 00 00 00 01 0f 00 02 00 | 00 00 01 0f 00 ff ff ff |........|........|
|00000b30| ff 80 38 01 00 c0 d4 01 | 00 01 07 01 0f 00 32 00 |..8.....|......2.|
|00000b40| 00 00 01 0f 00 ff ff ff | ff 80 38 01 00 c0 d4 01 |........|..8.....|
|00000b50| 00 01 02 01 0f 00 0d 00 | 00 00 02 0f 00 03 00 00 |........|........|
|00000b60| 00 01 0f 00 02 00 00 00 | 01 0f 00 ff ff ff ff 80 |........|........|
|00000b70| 38 01 00 c0 d4 01 00 01 | 07 01 0f 00 32 00 00 00 |8.......|....2...|
|00000b80| 01 0f 00 ff ff ff ff 80 | 38 01 00 c0 d4 01 00 01 |........|8.......|
|00000b90| 02 01 0f 00 0d 00 00 00 | 02 0f 00 05 00 00 00 01 |........|........|
|00000ba0| 0f 00 02 00 00 00 01 0f | 00 ff ff ff ff 80 38 01 |........|......8.|
|00000bb0| 00 c0 d4 01 00 01 07 01 | 0f 00 30 00 00 00 01 0f |........|..0.....|
|00000bc0| 00 ff ff ff ff 80 38 01 | 00 c0 d4 01 00 01 02 01 |......8.|........|
|00000bd0| 0f 00 9a 0d 00 00 00 e3 | 88 00 00 4d 4f 44 55 4c |........|...MODUL|
|00000be0| 45 20 4d 69 6e 65 73 3b | 20 28 2a 20 4f 62 65 72 |E Mines;| (* Ober|
|00000bf0| 6f 6e 2d 4d 69 6e 65 73 | 20 56 31 2e 33 31 20 20 |on-Mines| V1.31 |
|00000c00| 28 43 29 20 31 20 4f 63 | 74 20 20 39 34 20 62 79 |(C) 1 Oc|t 94 by|
|00000c10| 20 52 61 6c 66 20 44 65 | 67 6e 65 72 20 2a 29 0d | Ralf De|gner *).|
|00000c20| 0d 09 49 4d 50 4f 52 54 | 0d 09 09 4f 62 65 72 6f |..IMPORT|...Obero|
|00000c30| 6e 2c 20 54 65 78 74 73 | 2c 20 20 44 69 73 70 6c |n, Texts|, Displ|
|00000c40| 61 79 2c 20 4d 65 6e 75 | 56 69 65 77 65 72 73 2c |ay, Menu|Viewers,|
|00000c50| 20 54 65 78 74 46 72 61 | 6d 65 73 2c 20 49 6e 70 | TextFra|mes, Inp|
|00000c60| 75 74 2c 20 46 6f 6e 74 | 73 2c 20 56 69 65 77 65 |ut, Font|s, Viewe|
|00000c70| 72 73 2c 20 53 59 53 54 | 45 4d 2c 20 46 69 6c 65 |rs, SYST|EM, File|
|00000c80| 73 3b 0d 0d 09 43 4f 4e | 53 54 0d 09 09 1c 28 2a |s;...CON|ST....(*|
|00000c90| 20 73 74 61 6e 64 61 72 | 64 20 63 6f 6c 6f 72 73 | standar|d colors|
|00000ca0| 20 2a 29 1c 0d 0d 09 09 | 1c 28 2a 20 74 68 65 20 | *).....|.(* the |
|00000cb0| 63 6f 6c 6f 72 73 20 6f | 66 20 4d 69 6e 65 73 20 |colors o|f Mines |
|00000cc0| 66 6f 72 20 57 69 6e 64 | 6f 77 73 20 2a 29 0d 09 |for Wind|ows *)..|
|00000cd0| 09 62 6c 61 63 6b 3d 44 | 69 73 70 6c 61 79 2e 77 |.black=D|isplay.w|
|00000ce0| 68 69 74 65 3b 20 72 65 | 64 3d 31 3b 20 79 65 6c |hite; re|d=1; yel|
|00000cf0| 6c 6f 77 3d 31 30 3b 20 | 6c 69 67 68 74 67 72 61 |low=10; |lightgra|
|00000d00| 79 3d 31 31 3b 20 6d 69 | 64 67 72 61 79 3d 31 32 |y=11; mi|dgray=12|
|00000d10| 3b 20 64 61 72 6b 67 72 | 61 79 3d 31 34 3b 0d 09 |; darkgr|ay=14;..|
|00000d20| 09 43 6f 6c 31 3d 33 3b | 20 43 6f 6c 32 3d 35 3b |.Col1=3;| Col2=5;|
|00000d30| 20 43 6f 6c 33 3d 72 65 | 64 3b 20 43 6f 6c 34 3d | Col3=re|d; Col4=|
|00000d40| 36 3b 20 43 6f 6c 35 3d | 34 3b 20 43 6f 6c 36 3d |6; Col5=|4; Col6=|
|00000d50| 38 3b 20 43 6f 6c 37 3d | 37 3b 20 43 6f 6c 38 3d |8; Col7=|7; Col8=|
|00000d60| 62 6c 61 63 6b 3b 1c 0d | 0d 09 09 4d 65 6e 75 20 |black;..|...Menu |
|00000d70| 3d 20 22 53 79 73 74 65 | 6d 2e 43 6c 6f 73 65 20 |= "Syste|m.Close |
|00000d80| 20 53 79 73 74 65 6d 2e | 43 6f 70 79 20 20 53 79 | System.|Copy Sy|
|00000d90| 73 74 65 6d 2e 47 72 6f | 77 20 20 4d 69 6e 65 73 |stem.Gro|w Mines|
|00000da0| 2e 50 61 75 73 65 20 20 | 4d 69 6e 65 73 2e 42 65 |.Pause |Mines.Be|
|00000db0| 67 69 6e 6e 65 72 20 20 | 4d 69 6e 65 73 2e 41 64 |ginner |Mines.Ad|
|00000dc0| 76 61 6e 63 65 64 20 20 | 4d 69 6e 65 73 2e 45 78 |vanced |Mines.Ex|
|00000dd0| 70 65 72 74 20 20 4d 69 | 6e 65 73 2e 4d 61 78 20 |pert Mi|nes.Max |
|00000de0| 20 4d 69 6e 65 73 2e 53 | 63 6f 72 65 22 3b 0d 09 | Mines.S|core";..|
|00000df0| 09 4b 61 73 74 65 6e 42 | 72 65 69 74 65 3d 31 36 |.KastenB|reite=16|
|00000e00| 3b 4f 62 65 6e 50 6c 61 | 74 7a 3d 32 35 3b 0d 09 |;ObenPla|tz=25;..|
|00000e10| 09 55 6e 74 65 6e 50 6c | 61 74 7a 3d 34 3b 53 65 |.UntenPl|atz=4;Se|
|00000e20| 69 74 65 6e 50 6c 61 74 | 7a 3d 34 3b 0d 09 09 4b |itenPlat|z=4;...K|
|00000e30| 61 73 74 65 6e 50 6c 61 | 74 7a 2a 3d 4b 61 73 74 |astenPla|tz*=Kast|
|00000e40| 65 6e 42 72 65 69 74 65 | 2b 31 3b 4b 42 3d 4b 61 |enBreite|+1;KB=Ka|
|00000e50| 73 74 65 6e 42 72 65 69 | 74 65 3b 0d 09 09 4d 69 |stenBrei|te;...Mi|
|00000e60| 6e 4b 61 73 74 65 6e 41 | 6e 7a 3d 37 3b 43 68 61 |nKastenA|nz=7;Cha|
|00000e70| 72 42 72 65 69 74 65 3d | 38 3b 0d 09 0d 09 54 59 |rBreite=|8;....TY|
|00000e80| 50 45 0d 09 09 46 65 6c | 64 50 74 72 2a 20 3d 20 |PE...Fel|dPtr* = |
|00000e90| 50 4f 49 4e 54 45 52 20 | 54 4f 20 41 52 52 41 59 |POINTER |TO ARRAY|
|00000ea0| 20 4f 46 20 41 52 52 41 | 59 20 4f 46 20 53 48 4f | OF ARRA|Y OF SHO|
|00000eb0| 52 54 49 4e 54 3b 0d 0d | 09 09 53 74 72 69 6e 67 |RTINT;..|..String|
|00000ec0| 20 3d 20 41 52 52 41 59 | 20 33 32 20 4f 46 20 43 | = ARRAY| 32 OF C|
|00000ed0| 48 41 52 3b 0d 09 09 48 | 69 53 63 6f 72 65 54 79 |HAR;...H|iScoreTy|
|00000ee0| 70 65 20 3d 20 52 45 43 | 4f 52 44 0d 09 09 09 4e |pe = REC|ORD....N|
|00000ef0| 61 6d 65 3a 20 53 74 72 | 69 6e 67 3b 0d 09 09 09 |ame: Str|ing;....|
|00000f00| 54 69 6d 65 3a 20 4c 4f | 4e 47 49 4e 54 3b 0d 09 |Time: LO|NGINT;..|
|00000f10| 09 45 4e 44 3b 0d 09 09 | 48 69 53 63 6f 72 65 41 |.END;...|HiScoreA|
|00000f20| 72 72 61 79 54 79 70 65 | 20 3d 20 41 52 52 41 59 |rrayType| = ARRAY|
|00000f30| 20 33 20 4f 46 20 48 69 | 53 63 6f 72 65 54 79 70 | 3 OF Hi|ScoreTyp|
|00000f40| 65 3b 0d 0d 09 09 44 61 | 74 61 2a 20 3d 20 50 4f |e;....Da|ta* = PO|
|00000f50| 49 4e 54 45 52 20 54 4f | 20 44 61 74 61 44 65 73 |INTER TO| DataDes|
|00000f60| 63 3b 0d 09 09 44 61 74 | 61 44 65 73 63 2a 20 3d |c;...Dat|aDesc* =|
|00000f70| 20 52 45 43 4f 52 44 0d | 09 09 09 58 4b 61 73 74 | RECORD.|...XKast|
|00000f80| 65 6e 41 6e 7a 2a 2c 59 | 4b 61 73 74 65 6e 41 6e |enAnz*,Y|KastenAn|
|00000f90| 7a 2a 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 09 09 |z*: INTE|GER;....|
|00000fa0| 41 6b 74 69 76 2a 2c 20 | 50 61 75 73 65 2a 2c 20 |Aktiv*, |Pause*, |
|00000fb0| 53 74 61 72 74 50 6c 61 | 79 2a 3a 20 42 4f 4f 4c |StartPla|y*: BOOL|
|00000fc0| 45 41 4e 3b 0d 09 09 09 | 46 65 6c 64 2a 3a 20 46 |EAN;....|Feld*: F|
|00000fd0| 65 6c 64 50 74 72 3b 0d | 09 09 09 54 69 6d 65 2a |eldPtr;.|...Time*|
|00000fe0| 2c 20 43 6f 75 6e 74 2a | 2c 20 4d 69 6e 65 73 2a |, Count*|, Mines*|
|00000ff0| 3a 20 4c 4f 4e 47 49 4e | 54 3b 0d 09 09 09 51 75 |: LONGIN|T;....Qu|
|00001000| 6f 74 65 2a 2c 20 4d 6f | 64 65 2a 3a 20 49 4e 54 |ote*, Mo|de*: INT|
|00001010| 45 47 45 52 3b 0d 09 09 | 45 4e 44 3b 0d 0d 09 09 |EGER;...|END;....|
|00001020| 46 72 61 6d 65 2a 20 3d | 20 50 4f 49 4e 54 45 52 |Frame* =| POINTER|
|00001030| 20 54 4f 20 46 72 61 6d | 65 44 65 73 63 3b 0d 09 | TO Fram|eDesc;..|
|00001040| 09 46 72 61 6d 65 44 65 | 73 63 2a 20 3d 20 52 45 |.FrameDe|sc* = RE|
|00001050| 43 4f 52 44 28 44 69 73 | 70 6c 61 79 2e 46 72 61 |CORD(Dis|play.Fra|
|00001060| 6d 65 44 65 73 63 29 0d | 09 09 09 53 65 69 74 65 |meDesc).|...Seite|
|00001070| 6e 4f 66 66 73 65 74 2a | 2c 20 55 6e 74 65 6e 4f |nOffset*|, UntenO|
|00001080| 66 66 73 65 74 2a 3a 20 | 49 4e 54 45 47 45 52 3b |ffset*: |INTEGER;|
|00001090| 0d 09 09 09 4c 61 73 74 | 4d 6f 64 4d 73 67 3a 20 |....Last|ModMsg: |
|000010a0| 42 4f 4f 4c 45 41 4e 3b | 0d 09 09 09 64 2a 3a 20 |BOOLEAN;|....d*: |
|000010b0| 44 61 74 61 3b 0d 09 09 | 45 4e 44 3b 0d 0d 09 09 |Data;...|END;....|
|000010c0| 4d 69 6e 65 72 4d 73 67 | 20 3d 20 52 45 43 4f 52 |MinerMsg| = RECOR|
|000010d0| 44 28 44 69 73 70 6c 61 | 79 2e 46 72 61 6d 65 4d |D(Displa|y.FrameM|
|000010e0| 73 67 29 0d 09 09 09 64 | 2a 3a 20 44 61 74 61 3b |sg)....d|*: Data;|
|000010f0| 0d 09 09 45 4e 44 3b 0d | 0d 09 09 50 6c 6f 74 4e |...END;.|...PlotN|
|00001100| 65 77 4d 73 67 20 3d 20 | 52 45 43 4f 52 44 28 4d |ewMsg = |RECORD(M|
|00001110| 69 6e 65 72 4d 73 67 29 | 0d 09 09 45 4e 44 3b 0d |inerMsg)|...END;.|
|00001120| 09 09 0d 09 09 50 6c 6f | 74 4b 61 73 74 65 6e 4d |.....Plo|tKastenM|
|00001130| 73 67 2a 20 3d 20 52 45 | 43 4f 52 44 28 4d 69 6e |sg* = RE|CORD(Min|
|00001140| 65 72 4d 73 67 29 0d 09 | 09 09 78 2a 2c 20 79 2a |erMsg)..|..x*, y*|
|00001150| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 09 09 45 4e 44 |: INTEGE|R;...END|
|00001160| 3b 0d 0d 09 09 4e 65 75 | 65 73 46 65 6c 64 4d 73 |;....Neu|esFeldMs|
|00001170| 67 20 3d 20 52 45 43 4f | 52 44 28 4d 69 6e 65 72 |g = RECO|RD(Miner|
|00001180| 4d 73 67 29 0d 09 09 09 | 43 68 61 6e 67 65 3a 20 |Msg)....|Change: |
|00001190| 42 4f 4f 4c 45 41 4e 3b | 0d 09 09 45 4e 44 3b 0d |BOOLEAN;|...END;.|
|000011a0| 0d 09 09 52 65 50 6c 6f | 74 4d 73 67 20 3d 20 52 |...RePlo|tMsg = R|
|000011b0| 45 43 4f 52 44 28 4d 69 | 6e 65 72 4d 73 67 29 0d |ECORD(Mi|nerMsg).|
|000011c0| 09 09 09 41 6c 6c 3a 20 | 42 4f 4f 4c 45 41 4e 3b |...All: |BOOLEAN;|
|000011d0| 0d 09 09 45 4e 44 3b 0d | 0d 09 09 54 69 6d 65 4d |...END;.|...TimeM|
|000011e0| 73 67 20 3d 20 52 45 43 | 4f 52 44 28 4d 69 6e 65 |sg = REC|ORD(Mine|
|000011f0| 72 4d 73 67 29 0d 09 09 | 09 69 64 3a 20 4c 4f 4e |rMsg)...|.id: LON|
|00001200| 47 49 4e 54 3b 0d 09 09 | 09 43 6f 75 6e 74 3a 20 |GINT;...|.Count: |
|00001210| 49 4e 54 45 47 45 52 3b | 0d 09 09 45 4e 44 3b 0d |INTEGER;|...END;.|
|00001220| 0d 09 56 41 52 0d 09 09 | 55 73 65 64 46 6f 6e 74 |..VAR...|UsedFont|
|00001230| 3a 20 46 6f 6e 74 73 2e | 46 6f 6e 74 3b 0d 09 09 |: Fonts.|Font;...|
|00001240| 57 3a 20 54 65 78 74 73 | 2e 57 72 69 74 65 72 3b |W: Texts|.Writer;|
|00001250| 0d 09 09 54 69 6d 65 54 | 61 73 6b 3a 20 4f 62 65 |...TimeT|ask: Obe|
|00001260| 72 6f 6e 2e 54 61 73 6b | 3b 0d 09 09 73 65 65 64 |ron.Task|;...seed|
|00001270| 2c 20 53 74 61 72 74 54 | 69 6d 65 2c 20 4c 61 73 |, StartT|ime, Las|
|00001280| 74 54 69 6d 65 3a 20 4c | 4f 4e 47 49 4e 54 3b 0d |tTime: L|ONGINT;.|
|00001290| 09 09 48 69 53 63 6f 72 | 65 3a 20 48 69 53 63 6f |..HiScor|e: HiSco|
|000012a0| 72 65 41 72 72 61 79 54 | 79 70 65 3b 0d 09 09 4e |reArrayT|ype;...N|
|000012b0| 61 6d 65 3a 20 53 74 72 | 69 6e 67 3b 0d 09 09 53 |ame: Str|ing;...S|
|000012c0| 63 6f 72 65 46 69 6c 65 | 3a 20 46 69 6c 65 73 2e |coreFile|: Files.|
|000012d0| 46 69 6c 65 3b 0d 09 09 | 53 63 6f 72 65 52 69 64 |File;...|ScoreRid|
|000012e0| 65 72 3a 20 46 69 6c 65 | 73 2e 52 69 64 65 72 3b |er: File|s.Rider;|
|000012f0| 0d 09 09 43 6f 6c 6f 72 | 2c 20 55 73 65 54 69 6d |...Color|, UseTim|
|00001300| 65 54 61 73 6b 2c 20 54 | 69 6d 65 54 61 73 6b 52 |eTask, T|imeTaskR|
|00001310| 75 6e 73 2c 20 50 61 75 | 73 65 46 6c 61 67 3a 20 |uns, Pau|seFlag: |
|00001320| 42 4f 4f 4c 45 41 4e 3b | 0d 09 09 43 6f 6c 6f 72 |BOOLEAN;|...Color|
|00001330| 73 3a 20 41 52 52 41 59 | 20 38 20 4f 46 20 49 4e |s: ARRAY| 8 OF IN|
|00001340| 54 45 47 45 52 3b 0d 09 | 09 44 75 6d 6d 79 3a 20 |TEGER;..|.Dummy: |
|00001350| 49 4e 54 45 47 45 52 3b | 0d 0d 09 09 28 2a 20 64 |INTEGER;|....(* d|
|00001360| 61 74 61 20 66 6f 72 20 | 70 61 74 74 65 72 6e 73 |ata for |patterns|
|00001370| 20 2a 29 0d 09 09 48 61 | 70 70 79 44 61 74 61 2c | *)...Ha|ppyData,|
|00001380| 20 53 61 64 44 61 74 61 | 2c 20 42 61 63 6b 44 61 | SadData|, BackDa|
|00001390| 74 61 2c 20 47 6f 74 49 | 74 44 61 74 61 2c 20 50 |ta, GotI|tData, P|
|000013a0| 61 75 73 65 44 61 74 61 | 3a 20 41 52 52 41 59 20 |auseData|: ARRAY |
|000013b0| 31 37 20 4f 46 20 53 45 | 54 3b 0d 09 09 48 61 70 |17 OF SE|T;...Hap|
|000013c0| 70 79 50 61 74 2c 20 53 | 61 64 50 61 74 2c 20 42 |pyPat, S|adPat, B|
|000013d0| 61 63 6b 50 61 74 2c 20 | 47 6f 74 49 74 50 61 74 |ackPat, |GotItPat|
|000013e0| 2c 20 50 61 75 73 65 50 | 61 74 3a 20 4c 4f 4e 47 |, PauseP|at: LONG|
|000013f0| 49 4e 54 3b 0d 09 09 44 | 61 74 61 31 2c 20 44 61 |INT;...D|ata1, Da|
|00001400| 74 61 32 2c 20 44 61 74 | 61 33 2c 20 44 61 74 61 |ta2, Dat|a3, Data|
|00001410| 34 3a 20 41 52 52 41 59 | 20 31 33 20 4f 46 20 53 |4: ARRAY| 13 OF S|
|00001420| 45 54 3b 0d 09 09 50 61 | 74 3a 20 41 52 52 41 59 |ET;...Pa|t: ARRAY|
|00001430| 20 35 20 4f 46 20 4c 4f | 4e 47 49 4e 54 3b 0d 0d | 5 OF LO|NGINT;..|
|00001440| 09 28 2a 20 63 6c 65 61 | 72 20 48 69 53 63 6f 72 |.(* clea|r HiScor|
|00001450| 65 20 2a 29 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |e *)..PR|OCEDURE |
|00001460| 43 6c 65 61 72 48 69 3b | 1c 0d 09 09 56 41 52 20 |ClearHi;|....VAR |
|00001470| 44 75 6d 6d 79 3a 20 49 | 4e 54 45 47 45 52 3b 0d |Dummy: I|NTEGER;.|
|00001480| 09 42 45 47 49 4e 0d 09 | 09 46 4f 52 20 44 75 6d |.BEGIN..|.FOR Dum|
|00001490| 6d 79 3a 3d 30 20 54 4f | 20 32 20 44 4f 0d 09 09 |my:=0 TO| 2 DO...|
|000014a0| 09 48 69 53 63 6f 72 65 | 5b 44 75 6d 6d 79 5d 2e |.HiScore|[Dummy].|
|000014b0| 54 69 6d 65 3a 3d 39 39 | 39 39 39 39 3b 0d 09 09 |Time:=99|9999;...|
|000014c0| 09 48 69 53 63 6f 72 65 | 5b 44 75 6d 6d 79 5d 2e |.HiScore|[Dummy].|
|000014d0| 4e 61 6d 65 3a 3d 22 41 | 6d 69 67 61 22 3b 0d 09 |Name:="A|miga";..|
|000014e0| 09 45 4e 44 3b 0d 09 45 | 4e 44 20 43 6c 65 61 72 |.END;..E|ND Clear|
|000014f0| 48 69 3b 1c 0d 0d 09 28 | 2a 20 73 74 6f 72 65 20 |Hi;....(|* store |
|00001500| 48 69 53 63 6f 72 65 20 | 2a 29 0d 09 50 52 4f 43 |HiScore |*)..PROC|
|00001510| 45 44 55 52 45 20 53 61 | 76 65 48 69 28 52 65 67 |EDURE Sa|veHi(Reg|
|00001520| 69 73 74 65 72 3a 20 42 | 4f 4f 4c 45 41 4e 29 3b |ister: B|OOLEAN);|
|00001530| 1c 0d 09 09 56 41 52 20 | 44 75 6d 3a 20 49 4e 54 |....VAR |Dum: INT|
|00001540| 45 47 45 52 3b 0d 09 42 | 45 47 49 4e 0d 09 09 46 |EGER;..B|EGIN...F|
|00001550| 69 6c 65 73 2e 53 65 74 | 28 53 63 6f 72 65 52 69 |iles.Set|(ScoreRi|
|00001560| 64 65 72 2c 20 53 63 6f | 72 65 46 69 6c 65 2c 20 |der, Sco|reFile, |
|00001570| 30 29 3b 0d 09 09 46 69 | 6c 65 73 2e 57 72 69 74 |0);...Fi|les.Writ|
|00001580| 65 42 6f 6f 6c 28 53 63 | 6f 72 65 52 69 64 65 72 |eBool(Sc|oreRider|
|00001590| 2c 20 43 6f 6c 6f 72 29 | 3b 0d 09 09 46 69 6c 65 |, Color)|;...File|
|000015a0| 73 2e 57 72 69 74 65 42 | 6f 6f 6c 28 53 63 6f 72 |s.WriteB|ool(Scor|
|000015b0| 65 52 69 64 65 72 2c 20 | 55 73 65 54 69 6d 65 54 |eRider, |UseTimeT|
|000015c0| 61 73 6b 29 3b 0d 09 09 | 46 4f 52 20 44 75 6d 3a |ask);...|FOR Dum:|
|000015d0| 3d 30 20 54 4f 20 32 20 | 44 4f 0d 09 09 09 46 69 |=0 TO 2 |DO....Fi|
|000015e0| 6c 65 73 2e 57 72 69 74 | 65 4c 49 6e 74 28 53 63 |les.Writ|eLInt(Sc|
|000015f0| 6f 72 65 52 69 64 65 72 | 2c 20 48 69 53 63 6f 72 |oreRider|, HiScor|
|00001600| 65 5b 44 75 6d 5d 2e 54 | 69 6d 65 29 3b 0d 09 09 |e[Dum].T|ime);...|
|00001610| 09 46 69 6c 65 73 2e 57 | 72 69 74 65 42 79 74 65 |.Files.W|riteByte|
|00001620| 73 28 53 63 6f 72 65 52 | 69 64 65 72 2c 20 48 69 |s(ScoreR|ider, Hi|
|00001630| 53 63 6f 72 65 5b 44 75 | 6d 5d 2e 4e 61 6d 65 2c |Score[Du|m].Name,|
|00001640| 20 33 32 29 3b 0d 09 09 | 45 4e 44 3b 0d 0d 09 09 | 32);...|END;....|
|00001650| 49 46 20 52 65 67 69 73 | 74 65 72 20 54 48 45 4e |IF Regis|ter THEN|
|00001660| 0d 09 09 09 46 69 6c 65 | 73 2e 52 65 67 69 73 74 |....File|s.Regist|
|00001670| 65 72 28 53 63 6f 72 65 | 46 69 6c 65 29 3b 0d 09 |er(Score|File);..|
|00001680| 09 45 4c 53 45 0d 09 09 | 20 09 46 69 6c 65 73 2e |.ELSE...| .Files.|
|00001690| 43 6c 6f 73 65 28 53 63 | 6f 72 65 46 69 6c 65 29 |Close(Sc|oreFile)|
|000016a0| 3b 0d 09 09 20 45 4e 44 | 3b 0d 09 45 4e 44 20 53 |;... END|;..END S|
|000016b0| 61 76 65 48 69 3b 1c 0d | 0d 09 28 2a 20 6c 6f 61 |aveHi;..|..(* loa|
|000016c0| 64 20 48 69 53 63 6f 72 | 65 20 2a 29 0d 09 50 52 |d HiScor|e *)..PR|
|000016d0| 4f 43 45 44 55 52 45 20 | 4c 6f 61 64 48 69 3b 1c |OCEDURE |LoadHi;.|
|000016e0| 0d 09 09 56 41 52 20 44 | 75 6d 3a 20 49 4e 54 45 |...VAR D|um: INTE|
|000016f0| 47 45 52 3b 0d 09 42 45 | 47 49 4e 0d 09 09 43 6c |GER;..BE|GIN...Cl|
|00001700| 65 61 72 48 69 28 29 3b | 0d 09 09 53 63 6f 72 65 |earHi();|...Score|
|00001710| 46 69 6c 65 3a 3d 46 69 | 6c 65 73 2e 4f 6c 64 28 |File:=Fi|les.Old(|
|00001720| 22 4d 69 6e 65 73 2e 53 | 63 6f 72 65 22 29 3b 0d |"Mines.S|core");.|
|00001730| 09 09 49 46 20 53 63 6f | 72 65 46 69 6c 65 3d 4e |..IF Sco|reFile=N|
|00001740| 49 4c 20 54 48 45 4e 0d | 09 09 09 53 63 6f 72 65 |IL THEN.|...Score|
|00001750| 46 69 6c 65 3a 3d 46 69 | 6c 65 73 2e 4e 65 77 28 |File:=Fi|les.New(|
|00001760| 22 4d 69 6e 65 73 2e 53 | 63 6f 72 65 22 29 3b 0d |"Mines.S|core");.|
|00001770| 09 09 09 53 61 76 65 48 | 69 28 54 52 55 45 29 3b |...SaveH|i(TRUE);|
|00001780| 0d 09 09 45 4c 53 45 0d | 09 09 09 46 69 6c 65 73 |...ELSE.|...Files|
|00001790| 2e 53 65 74 28 53 63 6f | 72 65 52 69 64 65 72 2c |.Set(Sco|reRider,|
|000017a0| 20 53 63 6f 72 65 46 69 | 6c 65 2c 20 30 29 3b 0d | ScoreFi|le, 0);.|
|000017b0| 09 09 09 46 69 6c 65 73 | 2e 52 65 61 64 42 6f 6f |...Files|.ReadBoo|
|000017c0| 6c 28 53 63 6f 72 65 52 | 69 64 65 72 2c 20 43 6f |l(ScoreR|ider, Co|
|000017d0| 6c 6f 72 29 3b 0d 09 09 | 09 46 69 6c 65 73 2e 52 |lor);...|.Files.R|
|000017e0| 65 61 64 42 6f 6f 6c 28 | 53 63 6f 72 65 52 69 64 |eadBool(|ScoreRid|
|000017f0| 65 72 2c 20 55 73 65 54 | 69 6d 65 54 61 73 6b 29 |er, UseT|imeTask)|
|00001800| 3b 0d 09 09 09 46 4f 52 | 20 44 75 6d 3a 3d 30 20 |;....FOR| Dum:=0 |
|00001810| 54 4f 20 32 20 44 4f 0d | 09 09 09 09 46 69 6c 65 |TO 2 DO.|....File|
|00001820| 73 2e 52 65 61 64 4c 49 | 6e 74 28 53 63 6f 72 65 |s.ReadLI|nt(Score|
|00001830| 52 69 64 65 72 2c 20 48 | 69 53 63 6f 72 65 5b 44 |Rider, H|iScore[D|
|00001840| 75 6d 5d 2e 54 69 6d 65 | 29 3b 0d 09 09 09 09 46 |um].Time|);.....F|
|00001850| 69 6c 65 73 2e 52 65 61 | 64 42 79 74 65 73 28 53 |iles.Rea|dBytes(S|
|00001860| 63 6f 72 65 52 69 64 65 | 72 2c 20 48 69 53 63 6f |coreRide|r, HiSco|
|00001870| 72 65 5b 44 75 6d 5d 2e | 4e 61 6d 65 2c 20 33 32 |re[Dum].|Name, 32|
|00001880| 29 3b 0d 09 09 09 45 4e | 44 3b 0d 09 09 45 4e 44 |);....EN|D;...END|
|00001890| 3b 0d 09 45 4e 44 20 4c | 6f 61 64 48 69 3b 1c 0d |;..END L|oadHi;..|
|000018a0| 0d 09 28 2a 20 70 72 6f | 64 75 63 65 73 20 72 61 |..(* pro|duces ra|
|000018b0| 6e 64 6f 6d 20 6e 75 6d | 62 65 72 73 20 2a 29 0d |ndom num|bers *).|
|000018c0| 09 50 52 4f 43 45 44 55 | 52 45 20 52 61 6e 64 6f |.PROCEDU|RE Rando|
|000018d0| 6d 28 45 69 6e 3a 20 49 | 4e 54 45 47 45 52 29 3a |m(Ein: I|NTEGER):|
|000018e0| 49 4e 54 45 47 45 52 3b | 1c 0d 09 09 56 41 52 0d |INTEGER;|....VAR.|
|000018f0| 09 09 09 4d 61 78 2c 20 | 57 65 72 74 3a 20 49 4e |...Max, |Wert: IN|
|00001900| 54 45 47 45 52 3b 0d 09 | 09 09 47 65 72 61 64 65 |TEGER;..|..Gerade|
|00001910| 3a 20 42 4f 4f 4c 45 41 | 4e 3b 0d 09 42 45 47 49 |: BOOLEA|N;..BEGI|
|00001920| 4e 0d 09 09 49 46 20 28 | 45 69 6e 20 4d 4f 44 20 |N...IF (|Ein MOD |
|00001930| 32 29 3d 30 20 54 48 45 | 4e 0d 09 09 09 4d 61 78 |2)=0 THE|N....Max|
|00001940| 3a 3d 45 69 6e 2b 31 3b | 0d 09 09 09 47 65 72 61 |:=Ein+1;|....Gera|
|00001950| 64 65 3a 3d 54 52 55 45 | 3b 0d 09 09 45 4c 53 45 |de:=TRUE|;...ELSE|
|00001960| 0d 09 09 09 4d 61 78 3a | 3d 45 69 6e 3b 0d 09 09 |....Max:|=Ein;...|
|00001970| 09 47 65 72 61 64 65 3a | 3d 46 41 4c 53 45 3b 0d |.Gerade:|=FALSE;.|
|00001980| 09 09 45 4e 44 3b 0d 0d | 09 09 73 65 65 64 3a 3d |..END;..|..seed:=|
|00001990| 53 59 53 54 45 4d 2e 52 | 4f 54 28 41 53 48 28 49 |SYSTEM.R|OT(ASH(I|
|000019a0| 6e 70 75 74 2e 54 69 6d | 65 28 29 2c 20 2d 31 29 |nput.Tim|e(), -1)|
|000019b0| 2b 41 53 48 28 73 65 65 | 64 2c 20 2d 31 29 2c 20 |+ASH(see|d, -1), |
|000019c0| 31 33 29 3b 0d 09 09 73 | 65 65 64 3a 3d 53 59 53 |13);...s|eed:=SYS|
|000019d0| 54 45 4d 2e 52 4f 54 28 | 73 65 65 64 2c 20 73 65 |TEM.ROT(|seed, se|
|000019e0| 65 64 20 4d 4f 44 20 33 | 32 29 3b 0d 09 09 73 65 |ed MOD 3|2);...se|
|000019f0| 65 64 3a 3d 53 59 53 54 | 45 4d 2e 52 4f 54 28 32 |ed:=SYST|EM.ROT(2|
|00001a00| 31 34 37 34 38 33 36 34 | 37 2b 41 53 48 28 73 65 |14748364|7+ASH(se|
|00001a10| 65 64 2c 20 2d 31 29 2c | 20 31 33 29 3b 0d 09 09 |ed, -1),| 13);...|
|00001a20| 73 65 65 64 3a 3d 53 59 | 53 54 45 4d 2e 52 4f 54 |seed:=SY|STEM.ROT|
|00001a30| 28 73 65 65 64 2c 20 73 | 65 65 64 20 44 49 56 20 |(seed, s|eed DIV |
|00001a40| 30 31 30 30 30 30 30 30 | 48 29 3b 0d 09 09 57 65 |01000000|H);...We|
|00001a50| 72 74 3a 3d 53 48 4f 52 | 54 28 73 65 65 64 20 20 |rt:=SHOR|T(seed |
|00001a60| 4d 4f 44 20 4d 61 78 29 | 3b 0d 0d 09 09 49 46 20 |MOD Max)|;....IF |
|00001a70| 47 65 72 61 64 65 20 54 | 48 45 4e 0d 09 09 09 49 |Gerade T|HEN....I|
|00001a80| 46 20 57 65 72 74 3d 45 | 69 6e 20 54 48 45 4e 0d |F Wert=E|in THEN.|
|00001a90| 09 09 09 09 52 45 54 55 | 52 4e 20 52 61 6e 64 6f |....RETU|RN Rando|
|00001aa0| 6d 28 45 69 6e 29 3b 0d | 09 09 09 45 4e 44 3b 0d |m(Ein);.|...END;.|
|00001ab0| 09 09 45 4e 44 3b 0d 0d | 09 09 52 45 54 55 52 4e |..END;..|..RETURN|
|00001ac0| 20 57 65 72 74 3b 0d 09 | 45 4e 44 20 52 61 6e 64 | Wert;..|END Rand|
|00001ad0| 6f 6d 3b 1c 0d 0d 09 28 | 2a 20 73 74 6f 70 20 74 |om;....(|* stop t|
|00001ae0| 68 65 20 54 69 6d 65 54 | 61 73 6b 20 2a 29 0d 09 |he TimeT|ask *)..|
|00001af0| 50 52 4f 43 45 44 55 52 | 45 20 53 74 6f 70 54 61 |PROCEDUR|E StopTa|
|00001b00| 73 6b 2a 3b 1c 0d 09 42 | 45 47 49 4e 0d 09 09 49 |sk*;...B|EGIN...I|
|00001b10| 46 20 54 69 6d 65 54 61 | 73 6b 52 75 6e 73 20 54 |F TimeTa|skRuns T|
|00001b20| 48 45 4e 0d 09 09 09 4f | 62 65 72 6f 6e 2e 52 65 |HEN....O|beron.Re|
|00001b30| 6d 6f 76 65 28 54 69 6d | 65 54 61 73 6b 29 3b 0d |move(Tim|eTask);.|
|00001b40| 09 09 09 54 69 6d 65 54 | 61 73 6b 52 75 6e 73 3a |...TimeT|askRuns:|
|00001b50| 3d 46 41 4c 53 45 3b 0d | 09 09 45 4e 44 3b 0d 09 |=FALSE;.|..END;..|
|00001b60| 45 4e 44 20 53 74 6f 70 | 54 61 73 6b 3b 1c 0d 0d |END Stop|Task;...|
|00001b70| 09 28 2a 20 74 68 65 20 | 74 61 73 6b 2c 20 74 68 |.(* the |task, th|
|00001b80| 61 74 20 73 65 6e 64 73 | 20 65 76 65 72 79 20 73 |at sends| every s|
|00001b90| 65 63 6f 6e 64 20 61 20 | 54 69 6d 65 4d 73 67 20 |econd a |TimeMsg |
|00001ba0| 2a 29 0d 09 50 52 4f 43 | 45 44 55 52 45 20 54 68 |*)..PROC|EDURE Th|
|00001bb0| 65 54 69 6d 65 54 61 73 | 6b 3b 1c 0d 09 09 56 41 |eTimeTas|k;....VA|
|00001bc0| 52 20 74 69 6d 73 67 3a | 20 54 69 6d 65 4d 73 67 |R timsg:| TimeMsg|
|00001bd0| 3b 0d 09 42 45 47 49 4e | 0d 09 09 49 46 20 49 6e |;..BEGIN|...IF In|
|00001be0| 70 75 74 2e 54 69 6d 65 | 28 29 3e 4c 61 73 74 54 |put.Time|()>LastT|
|00001bf0| 69 6d 65 20 54 48 45 4e | 0d 09 09 09 4c 61 73 74 |ime THEN|....Last|
|00001c00| 54 69 6d 65 3a 3d 4c 61 | 73 74 54 69 6d 65 2b 49 |Time:=La|stTime+I|
|00001c10| 6e 70 75 74 2e 54 69 6d | 65 55 6e 69 74 3b 0d 09 |nput.Tim|eUnit;..|
|00001c20| 09 09 74 69 6d 73 67 2e | 69 64 3a 3d 53 74 61 72 |..timsg.|id:=Star|
|00001c30| 74 54 69 6d 65 3b 0d 09 | 09 09 74 69 6d 73 67 2e |tTime;..|..timsg.|
|00001c40| 43 6f 75 6e 74 3a 3d 30 | 3b 0d 09 09 09 56 69 65 |Count:=0|;....Vie|
|00001c50| 77 65 72 73 2e 42 72 6f | 61 64 63 61 73 74 28 74 |wers.Bro|adcast(t|
|00001c60| 69 6d 73 67 29 3b 0d 09 | 09 09 49 46 20 74 69 6d |imsg);..|..IF tim|
|00001c70| 73 67 2e 43 6f 75 6e 74 | 3d 30 20 54 48 45 4e 20 |sg.Count|=0 THEN |
|00001c80| 53 74 6f 70 54 61 73 6b | 28 29 3b 45 4e 44 3b 0d |StopTask|();END;.|
|00001c90| 09 09 45 4e 44 3b 0d 09 | 45 4e 44 20 54 68 65 54 |..END;..|END TheT|
|00001ca0| 69 6d 65 54 61 73 6b 3b | 1c 0d 0d 09 28 2a 20 73 |imeTask;|....(* s|
|00001cb0| 74 61 72 74 20 74 68 65 | 20 54 69 6d 65 54 61 73 |tart the| TimeTas|
|00001cc0| 6b 20 2a 29 0d 09 50 52 | 4f 43 45 44 55 52 45 20 |k *)..PR|OCEDURE |
|00001cd0| 53 74 61 72 74 54 61 73 | 6b 3b 1c 0d 09 42 45 47 |StartTas|k;...BEG|
|00001ce0| 49 4e 0d 09 09 49 46 20 | 7e 54 69 6d 65 54 61 73 |IN...IF |~TimeTas|
|00001cf0| 6b 52 75 6e 73 20 54 48 | 45 4e 0d 09 09 09 4e 45 |kRuns TH|EN....NE|
|00001d00| 57 28 54 69 6d 65 54 61 | 73 6b 29 3b 0d 09 09 09 |W(TimeTa|sk);....|
|00001d10| 54 69 6d 65 54 61 73 6b | 2e 73 61 66 65 3a 3d 46 |TimeTask|.safe:=F|
|00001d20| 41 4c 53 45 3b 0d 09 09 | 09 54 69 6d 65 54 61 73 |ALSE;...|.TimeTas|
|00001d30| 6b 2e 68 61 6e 64 6c 65 | 3a 3d 54 68 65 54 69 6d |k.handle|:=TheTim|
|00001d40| 65 54 61 73 6b 3b 0d 09 | 09 09 4f 62 65 72 6f 6e |eTask;..|..Oberon|
|00001d50| 2e 49 6e 73 74 61 6c 6c | 28 54 69 6d 65 54 61 73 |.Install|(TimeTas|
|00001d60| 6b 29 3b 0d 09 09 09 4c | 61 73 74 54 69 6d 65 3a |k);....L|astTime:|
|00001d70| 3d 49 6e 70 75 74 2e 54 | 69 6d 65 28 29 3b 0d 09 |=Input.T|ime();..|
|00001d80| 09 09 54 69 6d 65 54 61 | 73 6b 52 75 6e 73 3a 3d |..TimeTa|skRuns:=|
|00001d90| 54 52 55 45 3b 0d 09 09 | 45 4e 44 3b 0d 09 45 4e |TRUE;...|END;..EN|
|00001da0| 44 20 53 74 61 72 74 54 | 61 73 6b 3b 1c 0d 0d 09 |D StartT|ask;....|
|00001db0| 28 2a 20 64 72 61 77 20 | 62 6f 78 20 61 74 20 74 |(* draw |box at t|
|00001dc0| 6f 70 20 6f 66 20 74 68 | 65 20 66 69 65 6c 64 20 |op of th|e field |
|00001dd0| 2a 29 0d 09 50 52 4f 43 | 45 44 55 52 45 20 50 6c |*)..PROC|EDURE Pl|
|00001de0| 6f 74 53 6d 69 6c 79 28 | 66 3a 20 46 72 61 6d 65 |otSmily(|f: Frame|
|00001df0| 3b 20 53 6d 69 6c 65 3a | 20 42 4f 4f 4c 45 41 4e |; Smile:| BOOLEAN|
|00001e00| 29 3b 1c 0d 09 09 56 41 | 52 20 58 50 6f 73 2c 20 |);....VA|R XPos, |
|00001e10| 59 50 6f 73 2c 20 43 6f | 6c 3a 20 49 4e 54 45 47 |YPos, Co|l: INTEG|
|00001e20| 45 52 3b 0d 09 42 45 47 | 49 4e 0d 09 09 49 46 20 |ER;..BEG|IN...IF |
|00001e30| 66 2e 48 3e 4f 62 65 6e | 50 6c 61 74 7a 20 54 48 |f.H>Oben|Platz TH|
|00001e40| 45 4e 0d 09 09 09 49 46 | 20 66 2e 57 3e 33 30 20 |EN....IF| f.W>30 |
|00001e50| 54 48 45 4e 0d 09 09 09 | 09 59 50 6f 73 3a 3d 66 |THEN....|.YPos:=f|
|00001e60| 2e 59 2b 66 2e 48 2d 4f | 62 65 6e 50 6c 61 74 7a |.Y+f.H-O|benPlatz|
|00001e70| 2b 33 3b 0d 09 09 09 09 | 58 50 6f 73 3a 3d 66 2e |+3;.....|XPos:=f.|
|00001e80| 57 20 44 49 56 20 32 2d | 31 30 2b 66 2e 58 3b 0d |W DIV 2-|10+f.X;.|
|00001e90| 09 09 09 09 49 46 20 43 | 6f 6c 6f 72 20 54 48 45 |....IF C|olor THE|
|00001ea0| 4e 0d 09 09 09 09 09 44 | 69 73 70 6c 61 79 2e 52 |N......D|isplay.R|
|00001eb0| 65 70 6c 43 6f 6e 73 74 | 28 6c 69 67 68 74 67 72 |eplConst|(lightgr|
|00001ec0| 61 79 2c 20 58 50 6f 73 | 2c 20 59 50 6f 73 2c 20 |ay, XPos|, YPos, |
|00001ed0| 32 30 2c 20 32 30 2c 20 | 44 69 73 70 6c 61 79 2e |20, 20, |Display.|
|00001ee0| 72 65 70 6c 61 63 65 29 | 3b 0d 09 09 09 09 09 44 |replace)|;......D|
|00001ef0| 69 73 70 6c 61 79 2e 52 | 65 70 6c 43 6f 6e 73 74 |isplay.R|eplConst|
|00001f00| 28 64 61 72 6b 67 72 61 | 79 2c 20 58 50 6f 73 2b |(darkgra|y, XPos+|
|00001f10| 31 2c 20 59 50 6f 73 2c | 20 31 39 2c 20 31 39 2c |1, YPos,| 19, 19,|
|00001f20| 20 44 69 73 70 6c 61 79 | 2e 72 65 70 6c 61 63 65 | Display|.replace|
|00001f30| 29 3b 0d 09 09 09 09 09 | 44 69 73 70 6c 61 79 2e |);......|Display.|
|00001f40| 52 65 70 6c 43 6f 6e 73 | 74 28 6d 69 64 67 72 61 |ReplCons|t(midgra|
|00001f50| 79 2c 20 58 50 6f 73 2b | 31 2c 20 59 50 6f 73 2b |y, XPos+|1, YPos+|
|00001f60| 31 2c 20 31 38 2c 20 31 | 38 2c 20 44 69 73 70 6c |1, 18, 1|8, Displ|
|00001f70| 61 79 2e 72 65 70 6c 61 | 63 65 29 3b 0d 09 09 09 |ay.repla|ce);....|
|00001f80| 09 09 44 69 73 70 6c 61 | 79 2e 43 6f 70 79 50 61 |..Displa|y.CopyPa|
|00001f90| 74 74 65 72 6e 28 79 65 | 6c 6c 6f 77 2c 20 42 61 |ttern(ye|llow, Ba|
|00001fa0| 63 6b 50 61 74 2c 20 58 | 50 6f 73 2b 32 2c 20 59 |ckPat, X|Pos+2, Y|
|00001fb0| 50 6f 73 2b 32 2c 20 44 | 69 73 70 6c 61 79 2e 70 |Pos+2, D|isplay.p|
|00001fc0| 61 69 6e 74 29 3b 0d 09 | 09 09 09 09 43 6f 6c 3a |aint);..|....Col:|
|00001fd0| 3d 62 6c 61 63 6b 3b 0d | 09 09 09 09 45 4c 53 45 |=black;.|....ELSE|
|00001fe0| 0d 09 09 09 09 09 44 69 | 73 70 6c 61 79 2e 52 65 |......Di|splay.Re|
|00001ff0| 70 6c 43 6f 6e 73 74 28 | 44 69 73 70 6c 61 79 2e |plConst(|Display.|
|00002000| 77 68 69 74 65 2c 20 58 | 50 6f 73 2c 20 59 50 6f |white, X|Pos, YPo|
|00002010| 73 2c 20 32 30 2c 20 32 | 30 2c 20 44 69 73 70 6c |s, 20, 2|0, Displ|
|00002020| 61 79 2e 72 65 70 6c 61 | 63 65 29 3b 0d 09 09 09 |ay.repla|ce);....|
|00002030| 09 09 44 69 73 70 6c 61 | 79 2e 52 65 70 6c 43 6f |..Displa|y.ReplCo|
|00002040| 6e 73 74 28 44 69 73 70 | 6c 61 79 2e 62 6c 61 63 |nst(Disp|lay.blac|
|00002050| 6b 2c 20 58 50 6f 73 2b | 31 2c 20 59 50 6f 73 2b |k, XPos+|1, YPos+|
|00002060| 31 2c 20 31 38 2c 20 31 | 38 2c 20 44 69 73 70 6c |1, 18, 1|8, Displ|
|00002070| 61 79 2e 72 65 70 6c 61 | 63 65 29 3b 0d 09 09 09 |ay.repla|ce);....|
|00002080| 09 09 43 6f 6c 3a 3d 44 | 69 73 70 6c 61 79 2e 77 |..Col:=D|isplay.w|
|00002090| 68 69 74 65 3b 0d 09 09 | 09 09 45 4e 44 3b 0d 0d |hite;...|..END;..|
|000020a0| 09 09 09 09 49 46 20 66 | 2e 64 2e 50 61 75 73 65 |....IF f|.d.Pause|
|000020b0| 20 54 48 45 4e 0d 09 09 | 09 09 09 44 69 73 70 6c | THEN...|...Displ|
|000020c0| 61 79 2e 43 6f 70 79 50 | 61 74 74 65 72 6e 28 43 |ay.CopyP|attern(C|
|000020d0| 6f 6c 2c 20 50 61 75 73 | 65 50 61 74 2c 20 58 50 |ol, Paus|ePat, XP|
|000020e0| 6f 73 2b 32 2c 20 59 50 | 6f 73 2b 32 2c 20 44 69 |os+2, YP|os+2, Di|
|000020f0| 73 70 6c 61 79 2e 70 61 | 69 6e 74 29 3b 0d 09 09 |splay.pa|int);...|
|00002100| 09 09 45 4c 53 45 0d 09 | 09 09 09 09 49 46 20 53 |..ELSE..|....IF S|
|00002110| 6d 69 6c 65 20 54 48 45 | 4e 09 09 09 09 0d 09 09 |mile THE|N.......|
|00002120| 09 09 09 09 44 69 73 70 | 6c 61 79 2e 43 6f 70 79 |....Disp|lay.Copy|
|00002130| 50 61 74 74 65 72 6e 28 | 43 6f 6c 2c 20 48 61 70 |Pattern(|Col, Hap|
|00002140| 70 79 50 61 74 2c 20 58 | 50 6f 73 2b 32 2c 20 59 |pyPat, X|Pos+2, Y|
|00002150| 50 6f 73 2b 32 2c 20 44 | 69 73 70 6c 61 79 2e 70 |Pos+2, D|isplay.p|
|00002160| 61 69 6e 74 29 3b 0d 09 | 09 09 09 09 45 4c 53 45 |aint);..|....ELSE|
|00002170| 0d 09 09 09 09 09 09 44 | 69 73 70 6c 61 79 2e 43 |.......D|isplay.C|
|00002180| 6f 70 79 50 61 74 74 65 | 72 6e 28 43 6f 6c 2c 20 |opyPatte|rn(Col, |
|00002190| 53 61 64 50 61 74 2c 20 | 58 50 6f 73 2b 32 2c 20 |SadPat, |XPos+2, |
|000021a0| 59 50 6f 73 2b 32 2c 20 | 44 69 73 70 6c 61 79 2e |YPos+2, |Display.|
|000021b0| 70 61 69 6e 74 29 3b 0d | 09 09 09 09 09 45 4e 44 |paint);.|.....END|
|000021c0| 3b 0d 09 09 09 09 45 4e | 44 3b 0d 09 09 09 45 4e |;.....EN|D;....EN|
|000021d0| 44 3b 0d 09 09 45 4e 44 | 3b 09 0d 09 45 4e 44 20 |D;...END|;...END |
|000021e0| 50 6c 6f 74 53 6d 69 6c | 79 3b 1c 0d 0d 09 28 2a |PlotSmil|y;....(*|
|000021f0| 20 63 6c 65 61 72 20 61 | 20 66 72 61 6d 65 20 2a | clear a| frame *|
|00002200| 29 0d 09 50 52 4f 43 45 | 44 55 52 45 20 43 6c 65 |)..PROCE|DURE Cle|
|00002210| 61 72 46 72 61 6d 65 28 | 66 3a 20 46 72 61 6d 65 |arFrame(|f: Frame|
|00002220| 3b 20 53 6d 69 6c 65 3a | 20 42 4f 4f 4c 45 41 4e |; Smile:| BOOLEAN|
|00002230| 29 3b 1c 0d 09 42 45 47 | 49 4e 0d 09 09 4f 62 65 |);...BEG|IN...Obe|
|00002240| 72 6f 6e 2e 52 65 6d 6f | 76 65 4d 61 72 6b 73 28 |ron.Remo|veMarks(|
|00002250| 66 2e 58 2c 20 66 2e 59 | 2c 20 66 2e 57 2c 20 66 |f.X, f.Y|, f.W, f|
|00002260| 2e 48 29 3b 0d 09 09 44 | 69 73 70 6c 61 79 2e 52 |.H);...D|isplay.R|
|00002270| 65 70 6c 43 6f 6e 73 74 | 28 44 69 73 70 6c 61 79 |eplConst|(Display|
|00002280| 2e 62 6c 61 63 6b 2c 20 | 66 2e 58 2c 20 66 2e 59 |.black, |f.X, f.Y|
|00002290| 2c 20 66 2e 57 2c 20 66 | 2e 48 2c 20 44 69 73 70 |, f.W, f|.H, Disp|
|000022a0| 6c 61 79 2e 72 65 70 6c | 61 63 65 29 3b 0d 09 09 |lay.repl|ace);...|
|000022b0| 66 2e 53 65 69 74 65 6e | 4f 66 66 73 65 74 3a 3d |f.Seiten|Offset:=|
|000022c0| 28 66 2e 57 2d 66 2e 64 | 2e 58 4b 61 73 74 65 6e |(f.W-f.d|.XKasten|
|000022d0| 41 6e 7a 2a 4b 61 73 74 | 65 6e 50 6c 61 74 7a 29 |Anz*Kast|enPlatz)|
|000022e0| 20 44 49 56 20 32 20 2b | 66 2e 58 3b 0d 09 09 66 | DIV 2 +|f.X;...f|
|000022f0| 2e 55 6e 74 65 6e 4f 66 | 66 73 65 74 3a 3d 66 2e |.UntenOf|fset:=f.|
|00002300| 59 2b 66 2e 48 2d 4f 62 | 65 6e 50 6c 61 74 7a 2d |Y+f.H-Ob|enPlatz-|
|00002310| 66 2e 64 2e 59 4b 61 73 | 74 65 6e 41 6e 7a 2a 4b |f.d.YKas|tenAnz*K|
|00002320| 61 73 74 65 6e 50 6c 61 | 74 7a 3b 0d 09 09 50 6c |astenPla|tz;...Pl|
|00002330| 6f 74 53 6d 69 6c 79 28 | 66 2c 20 53 6d 69 6c 65 |otSmily(|f, Smile|
|00002340| 29 3b 0d 09 45 4e 44 20 | 43 6c 65 61 72 46 72 61 |);..END |ClearFra|
|00002350| 6d 65 3b 1c 0d 0d 09 28 | 2a 20 63 6f 70 79 20 66 |me;....(|* copy f|
|00002360| 72 61 6d 65 20 77 69 74 | 68 20 73 61 6d 65 20 64 |rame wit|h same d|
|00002370| 61 74 61 20 2a 29 0d 09 | 50 52 4f 43 45 44 55 52 |ata *)..|PROCEDUR|
|00002380| 45 20 43 6f 70 79 4d 65 | 28 66 3a 20 46 72 61 6d |E CopyMe|(f: Fram|
|00002390| 65 29 3a 20 46 72 61 6d | 65 3b 1c 0d 09 09 56 41 |e): Fram|e;....VA|
|000023a0| 52 20 6e 66 3a 20 46 72 | 61 6d 65 3b 0d 09 42 45 |R nf: Fr|ame;..BE|
|000023b0| 47 49 4e 0d 09 09 4e 45 | 57 28 6e 66 29 3b 49 46 |GIN...NE|W(nf);IF|
|000023c0| 20 6e 66 3d 4e 49 4c 20 | 54 48 45 4e 20 52 45 54 | nf=NIL |THEN RET|
|000023d0| 55 52 4e 20 4e 49 4c 3b | 45 4e 44 3b 0d 09 09 6e |URN NIL;|END;...n|
|000023e0| 66 2e 68 61 6e 64 6c 65 | 3a 3d 66 2e 68 61 6e 64 |f.handle|:=f.hand|
|000023f0| 6c 65 3b 0d 09 09 6e 66 | 2e 64 3a 3d 66 2e 64 3b |le;...nf|.d:=f.d;|
|00002400| 6e 66 2e 4c 61 73 74 4d | 6f 64 4d 73 67 3a 3d 54 |nf.LastM|odMsg:=T|
|00002410| 52 55 45 3b 0d 09 09 52 | 45 54 55 52 4e 20 6e 66 |RUE;...R|ETURN nf|
|00002420| 3b 0d 09 45 4e 44 20 43 | 6f 70 79 4d 65 3b 1c 0d |;..END C|opyMe;..|
|00002430| 0d 09 28 2a 20 63 6c 65 | 61 72 20 61 20 62 6f 78 |..(* cle|ar a box|
|00002440| 20 2a 29 0d 09 50 52 4f | 43 45 44 55 52 45 20 43 | *)..PRO|CEDURE C|
|00002450| 6c 65 61 72 4b 61 73 74 | 65 6e 28 66 3a 20 46 72 |learKast|en(f: Fr|
|00002460| 61 6d 65 3b 20 78 2c 20 | 79 3a 20 49 4e 54 45 47 |ame; x, |y: INTEG|
|00002470| 45 52 3b 20 43 6f 6c 6f | 72 3a 20 42 4f 4f 4c 45 |ER; Colo|r: BOOLE|
|00002480| 41 4e 29 3b 1c 0d 09 09 | 56 41 52 20 64 75 6d 78 |AN);....|VAR dumx|
|00002490| 2c 20 64 75 6d 79 3a 20 | 49 4e 54 45 47 45 52 3b |, dumy: |INTEGER;|
|000024a0| 0d 09 42 45 47 49 4e 0d | 09 09 64 75 6d 78 3a 3d |..BEGIN.|..dumx:=|
|000024b0| 66 2e 53 65 69 74 65 6e | 4f 66 66 73 65 74 2b 78 |f.Seiten|Offset+x|
|000024c0| 2a 4b 61 73 74 65 6e 50 | 6c 61 74 7a 2d 4b 61 73 |*KastenP|latz-Kas|
|000024d0| 74 65 6e 42 72 65 69 74 | 65 3b 0d 09 09 64 75 6d |tenBreit|e;...dum|
|000024e0| 79 3a 3d 66 2e 55 6e 74 | 65 6e 4f 66 66 73 65 74 |y:=f.Unt|enOffset|
|000024f0| 2b 79 2a 4b 61 73 74 65 | 6e 50 6c 61 74 7a 2d 4b |+y*Kaste|nPlatz-K|
|00002500| 61 73 74 65 6e 42 72 65 | 69 74 65 3b 0d 09 09 49 |astenBre|ite;...I|
|00002510| 46 20 43 6f 6c 6f 72 20 | 54 48 45 4e 0d 09 09 09 |F Color |THEN....|
|00002520| 44 69 73 70 6c 61 79 2e | 52 65 70 6c 43 6f 6e 73 |Display.|ReplCons|
|00002530| 74 28 64 61 72 6b 67 72 | 61 79 2c 20 64 75 6d 78 |t(darkgr|ay, dumx|
|00002540| 2c 20 64 75 6d 79 2c 20 | 4b 42 2c 20 4b 42 2c 20 |, dumy, |KB, KB, |
|00002550| 44 69 73 70 6c 61 79 2e | 72 65 70 6c 61 63 65 29 |Display.|replace)|
|00002560| 3b 0d 09 09 09 44 69 73 | 70 6c 61 79 2e 52 65 70 |;....Dis|play.Rep|
|00002570| 6c 43 6f 6e 73 74 28 6c | 69 67 68 74 67 72 61 79 |lConst(l|ightgray|
|00002580| 2c 20 64 75 6d 78 2b 31 | 2c 20 64 75 6d 79 2c 20 |, dumx+1|, dumy, |
|00002590| 4b 42 2d 31 2c 20 4b 42 | 2d 31 2c 20 44 69 73 70 |KB-1, KB|-1, Disp|
|000025a0| 6c 61 79 2e 72 65 70 6c | 61 63 65 29 3b 0d 09 09 |lay.repl|ace);...|
|000025b0| 09 44 69 73 70 6c 61 79 | 2e 52 65 70 6c 43 6f 6e |.Display|.ReplCon|
|000025c0| 73 74 28 6d 69 64 67 72 | 61 79 2c 20 64 75 6d 78 |st(midgr|ay, dumx|
|000025d0| 2b 31 2c 20 64 75 6d 79 | 2b 31 2c 20 4b 42 2d 32 |+1, dumy|+1, KB-2|
|000025e0| 2c 20 4b 42 2d 32 2c 20 | 44 69 73 70 6c 61 79 2e |, KB-2, |Display.|
|000025f0| 72 65 70 6c 61 63 65 29 | 3b 0d 09 09 45 4c 53 45 |replace)|;...ELSE|
|00002600| 0d 09 09 09 44 69 73 70 | 6c 61 79 2e 52 65 70 6c |....Disp|lay.Repl|
|00002610| 43 6f 6e 73 74 28 44 69 | 73 70 6c 61 79 2e 62 6c |Const(Di|splay.bl|
|00002620| 61 63 6b 2c 20 64 75 6d | 78 2c 20 64 75 6d 79 2c |ack, dum|x, dumy,|
|00002630| 20 4b 42 2c 20 4b 42 2c | 20 44 69 73 70 6c 61 79 | KB, KB,| Display|
|00002640| 2e 72 65 70 6c 61 63 65 | 29 3b 0d 09 09 45 4e 44 |.replace|);...END|
|00002650| 3b 0d 09 45 4e 44 20 43 | 6c 65 61 72 4b 61 73 74 |;..END C|learKast|
|00002660| 65 6e 3b 1c 0d 0d 09 28 | 2a 20 64 72 61 77 20 6e |en;....(|* draw n|
|00002670| 6f 74 20 73 65 6c 65 63 | 74 65 64 20 62 6f 78 20 |ot selec|ted box |
|00002680| 2a 29 0d 09 50 52 4f 43 | 45 44 55 52 45 20 42 6c |*)..PROC|EDURE Bl|
|00002690| 6f 63 6b 4b 61 73 74 65 | 6e 28 66 3a 20 46 72 61 |ockKaste|n(f: Fra|
|000026a0| 6d 65 3b 20 78 2c 20 79 | 3a 20 49 4e 54 45 47 45 |me; x, y|: INTEGE|
|000026b0| 52 3b 20 43 6f 6c 6f 72 | 3a 20 42 4f 4f 4c 45 41 |R; Color|: BOOLEA|
|000026c0| 4e 3b 20 63 6f 6c 3a 20 | 49 4e 54 45 47 45 52 29 |N; col: |INTEGER)|
|000026d0| 3b 1c 0d 09 09 56 41 52 | 20 64 75 6d 78 2c 20 64 |;....VAR| dumx, d|
|000026e0| 75 6d 79 3a 20 49 4e 54 | 45 47 45 52 3b 0d 09 42 |umy: INT|EGER;..B|
|000026f0| 45 47 49 4e 0d 09 09 64 | 75 6d 78 3a 3d 66 2e 53 |EGIN...d|umx:=f.S|
|00002700| 65 69 74 65 6e 4f 66 66 | 73 65 74 2b 78 2a 4b 61 |eitenOff|set+x*Ka|
|00002710| 73 74 65 6e 50 6c 61 74 | 7a 2d 4b 61 73 74 65 6e |stenPlat|z-Kasten|
|00002720| 42 72 65 69 74 65 3b 0d | 09 09 64 75 6d 79 3a 3d |Breite;.|..dumy:=|
|00002730| 66 2e 55 6e 74 65 6e 4f | 66 66 73 65 74 2b 79 2a |f.UntenO|ffset+y*|
|00002740| 4b 61 73 74 65 6e 50 6c | 61 74 7a 2d 4b 61 73 74 |KastenPl|atz-Kast|
|00002750| 65 6e 42 72 65 69 74 65 | 3b 0d 09 09 49 46 20 43 |enBreite|;...IF C|
|00002760| 6f 6c 6f 72 20 54 48 45 | 4e 0d 09 09 09 44 69 73 |olor THE|N....Dis|
|00002770| 70 6c 61 79 2e 52 65 70 | 6c 43 6f 6e 73 74 28 6c |play.Rep|lConst(l|
|00002780| 69 67 68 74 67 72 61 79 | 2c 20 64 75 6d 78 2c 20 |ightgray|, dumx, |
|00002790| 64 75 6d 79 2c 20 4b 42 | 2c 20 4b 42 2c 20 44 69 |dumy, KB|, KB, Di|
|000027a0| 73 70 6c 61 79 2e 72 65 | 70 6c 61 63 65 29 3b 0d |splay.re|place);.|
|000027b0| 09 09 09 44 69 73 70 6c | 61 79 2e 52 65 70 6c 43 |...Displ|ay.ReplC|
|000027c0| 6f 6e 73 74 28 64 61 72 | 6b 67 72 61 79 2c 20 64 |onst(dar|kgray, d|
|000027d0| 75 6d 78 2b 31 2c 20 64 | 75 6d 79 2c 20 4b 42 2d |umx+1, d|umy, KB-|
|000027e0| 31 2c 20 4b 42 2d 31 2c | 20 44 69 73 70 6c 61 79 |1, KB-1,| Display|
|000027f0| 2e 72 65 70 6c 61 63 65 | 29 3b 0d 09 09 09 44 69 |.replace|);....Di|
|00002800| 73 70 6c 61 79 2e 52 65 | 70 6c 43 6f 6e 73 74 28 |splay.Re|plConst(|
|00002810| 6d 69 64 67 72 61 79 2c | 20 64 75 6d 78 2b 31 2c |midgray,| dumx+1,|
|00002820| 20 64 75 6d 79 2b 31 2c | 20 4b 42 2d 32 2c 20 4b | dumy+1,| KB-2, K|
|00002830| 42 2d 32 2c 20 44 69 73 | 70 6c 61 79 2e 72 65 70 |B-2, Dis|play.rep|
|00002840| 6c 61 63 65 29 3b 0d 09 | 09 45 4c 53 45 0d 09 09 |lace);..|.ELSE...|
|00002850| 09 44 69 73 70 6c 61 79 | 2e 52 65 70 6c 43 6f 6e |.Display|.ReplCon|
|00002860| 73 74 28 44 69 73 70 6c | 61 79 2e 62 6c 61 63 6b |st(Displ|ay.black|
|00002870| 2c 20 64 75 6d 78 2c 20 | 64 75 6d 79 2c 20 4b 42 |, dumx, |dumy, KB|
|00002880| 2c 20 4b 42 2c 20 44 69 | 73 70 6c 61 79 2e 72 65 |, KB, Di|splay.re|
|00002890| 70 6c 61 63 65 29 3b 0d | 09 09 09 44 69 73 70 6c |place);.|...Displ|
|000028a0| 61 79 2e 52 65 70 6c 43 | 6f 6e 73 74 28 63 6f 6c |ay.ReplC|onst(col|
|000028b0| 2c 20 64 75 6d 78 2b 31 | 2c 20 64 75 6d 79 2b 31 |, dumx+1|, dumy+1|
|000028c0| 2c 20 4b 42 2d 32 2c 20 | 4b 42 2d 32 2c 20 44 69 |, KB-2, |KB-2, Di|
|000028d0| 73 70 6c 61 79 2e 72 65 | 70 6c 61 63 65 29 3b 0d |splay.re|place);.|
|000028e0| 09 09 45 4e 44 3b 0d 09 | 45 4e 44 20 42 6c 6f 63 |..END;..|END Bloc|
|000028f0| 6b 4b 61 73 74 65 6e 3b | 1c 0d 0d 09 28 2a 20 64 |kKasten;|....(* d|
|00002900| 72 61 77 20 63 68 61 72 | 20 61 74 20 62 6f 78 20 |raw char| at box |
|00002910| 2a 29 0d 09 50 52 4f 43 | 45 44 55 52 45 20 44 72 |*)..PROC|EDURE Dr|
|00002920| 61 77 43 68 61 72 28 66 | 3a 20 46 72 61 6d 65 3b |awChar(f|: Frame;|
|00002930| 20 63 68 3a 20 43 48 41 | 52 3b 20 58 4b 61 73 74 | ch: CHA|R; XKast|
|00002940| 65 6e 2c 20 59 4b 61 73 | 74 65 6e 3a 20 49 4e 54 |en, YKas|ten: INT|
|00002950| 45 47 45 52 3b 20 43 6f | 6c 6f 72 3a 20 42 4f 4f |EGER; Co|lor: BOO|
|00002960| 4c 45 41 4e 3b 20 63 6f | 6c 3a 20 49 4e 54 45 47 |LEAN; co|l: INTEG|
|00002970| 45 52 29 3b 1c 0d 09 09 | 56 41 52 0d 09 09 09 50 |ER);....|VAR....P|
|00002980| 61 74 3a 20 44 69 73 70 | 6c 61 79 2e 50 61 74 74 |at: Disp|lay.Patt|
|00002990| 65 72 6e 3b 0d 09 09 09 | 64 78 2c 20 78 2c 20 79 |ern;....|dx, x, y|
|000029a0| 2c 20 77 2c 20 68 3a 20 | 49 4e 54 45 47 45 52 3b |, w, h: |INTEGER;|
|000029b0| 0d 09 09 09 64 75 6d 78 | 2c 20 64 75 6d 79 3a 20 |....dumx|, dumy: |
|000029c0| 49 4e 54 45 47 45 52 3b | 0d 09 42 45 47 49 4e 0d |INTEGER;|..BEGIN.|
|000029d0| 09 09 44 69 73 70 6c 61 | 79 2e 47 65 74 43 68 61 |..Displa|y.GetCha|
|000029e0| 72 28 55 73 65 64 46 6f | 6e 74 2e 72 61 73 74 65 |r(UsedFo|nt.raste|
|000029f0| 72 2c 20 63 68 2c 20 64 | 78 2c 20 78 2c 20 79 2c |r, ch, d|x, x, y,|
|00002a00| 20 77 2c 20 68 2c 20 50 | 61 74 29 3b 0d 09 09 43 | w, h, P|at);...C|
|00002a10| 6c 65 61 72 4b 61 73 74 | 65 6e 28 66 2c 20 58 4b |learKast|en(f, XK|
|00002a20| 61 73 74 65 6e 2c 20 59 | 4b 61 73 74 65 6e 2c 20 |asten, Y|Kasten, |
|00002a30| 43 6f 6c 6f 72 29 3b 0d | 09 09 64 75 6d 78 3a 3d |Color);.|..dumx:=|
|00002a40| 66 2e 53 65 69 74 65 6e | 4f 66 66 73 65 74 2b 58 |f.Seiten|Offset+X|
|00002a50| 4b 61 73 74 65 6e 2a 4b | 61 73 74 65 6e 50 6c 61 |Kasten*K|astenPla|
|00002a60| 74 7a 2d 4b 61 73 74 65 | 6e 42 72 65 69 74 65 2b |tz-Kaste|nBreite+|
|00002a70| 28 4b 42 2d 77 29 20 44 | 49 56 20 32 3b 0d 09 09 |(KB-w) D|IV 2;...|
|00002a80| 64 75 6d 79 3a 3d 66 2e | 55 6e 74 65 6e 4f 66 66 |dumy:=f.|UntenOff|
|00002a90| 73 65 74 2b 59 4b 61 73 | 74 65 6e 2a 4b 61 73 74 |set+YKas|ten*Kast|
|00002aa0| 65 6e 50 6c 61 74 7a 2d | 4b 61 73 74 65 6e 42 72 |enPlatz-|KastenBr|
|00002ab0| 65 69 74 65 2b 28 4b 42 | 2d 68 29 20 44 49 56 20 |eite+(KB|-h) DIV |
|00002ac0| 32 3b 0d 09 09 49 46 20 | 43 6f 6c 6f 72 20 54 48 |2;...IF |Color TH|
|00002ad0| 45 4e 0d 09 09 09 63 6f | 6c 3a 3d 43 6f 6c 6f 72 |EN....co|l:=Color|
|00002ae0| 73 5b 4f 52 44 28 63 68 | 29 2d 34 39 5d 3b 0d 09 |s[ORD(ch|)-49];..|
|00002af0| 09 45 4e 44 3b 0d 09 09 | 44 69 73 70 6c 61 79 2e |.END;...|Display.|
|00002b00| 43 6f 70 79 50 61 74 74 | 65 72 6e 28 63 6f 6c 2c |CopyPatt|ern(col,|
|00002b10| 20 50 61 74 2c 20 64 75 | 6d 78 2c 20 64 75 6d 79 | Pat, du|mx, dumy|
|00002b20| 2c 20 44 69 73 70 6c 61 | 79 2e 70 61 69 6e 74 29 |, Displa|y.paint)|
|00002b30| 3b 0d 09 45 4e 44 20 20 | 44 72 61 77 43 68 61 72 |;..END |DrawChar|
|00002b40| 3b 1c 09 09 09 0d 0d 09 | 28 2a 20 64 72 61 77 20 |;.......|(* draw |
|00002b50| 63 68 61 72 20 61 74 20 | 78 20 79 20 74 6f 20 64 |char at |x y to d|
|00002b60| 69 73 70 6c 61 79 20 2a | 29 0d 09 50 52 4f 43 45 |isplay *|)..PROCE|
|00002b70| 44 55 52 45 20 44 72 61 | 77 5a 61 68 6c 28 63 68 |DURE Dra|wZahl(ch|
|00002b80| 3a 20 20 43 48 41 52 3b | 20 58 50 6f 73 2c 20 59 |: CHAR;| XPos, Y|
|00002b90| 50 6f 73 3a 20 49 4e 54 | 45 47 45 52 29 3b 1c 0d |Pos: INT|EGER);..|
|00002ba0| 09 09 56 41 52 0d 09 09 | 09 50 61 74 3a 20 44 69 |..VAR...|.Pat: Di|
|00002bb0| 73 70 6c 61 79 2e 50 61 | 74 74 65 72 6e 3b 0d 09 |splay.Pa|ttern;..|
|00002bc0| 09 09 64 78 2c 20 78 2c | 20 79 2c 20 77 2c 20 68 |..dx, x,| y, w, h|
|00002bd0| 3a 20 49 4e 54 45 47 45 | 52 3b 0d 09 42 45 47 49 |: INTEGE|R;..BEGI|
|00002be0| 4e 0d 09 09 44 69 73 70 | 6c 61 79 2e 47 65 74 43 |N...Disp|lay.GetC|
|00002bf0| 68 61 72 28 55 73 65 64 | 46 6f 6e 74 2e 72 61 73 |har(Used|Font.ras|
|00002c00| 74 65 72 2c 20 63 68 2c | 20 64 78 2c 20 78 2c 20 |ter, ch,| dx, x, |
|00002c10| 79 2c 20 77 2c 20 68 2c | 20 50 61 74 29 3b 0d 09 |y, w, h,| Pat);..|
|00002c20| 09 49 46 20 43 6f 6c 6f | 72 20 54 48 45 4e 0d 09 |.IF Colo|r THEN..|
|00002c30| 09 09 68 3a 3d 62 6c 61 | 63 6b 3b 0d 09 09 45 4c |..h:=bla|ck;...EL|
|00002c40| 53 45 0d 09 09 09 68 3a | 3d 44 69 73 70 6c 61 79 |SE....h:|=Display|
|00002c50| 2e 77 68 69 74 65 3b 0d | 09 09 45 4e 44 3b 0d 09 |.white;.|..END;..|
|00002c60| 09 44 69 73 70 6c 61 79 | 2e 43 6f 70 79 50 61 74 |.Display|.CopyPat|
|00002c70| 74 65 72 6e 28 68 2c 20 | 50 61 74 2c 20 58 50 6f |tern(h, |Pat, XPo|
|00002c80| 73 2b 78 2c 20 59 50 6f | 73 2b 79 2c 20 44 69 73 |s+x, YPo|s+y, Dis|
|00002c90| 70 6c 61 79 2e 70 61 69 | 6e 74 29 3b 0d 09 45 4e |play.pai|nt);..EN|
|00002ca0| 44 20 20 44 72 61 77 5a | 61 68 6c 3b 1c 09 0d 0d |D DrawZ|ahl;....|
|00002cb0| 09 28 2a 20 64 72 61 77 | 20 4c 4f 4e 47 49 4e 54 |.(* draw| LONGINT|
|00002cc0| 20 2a 29 0d 09 50 52 4f | 43 45 44 55 52 45 20 44 | *)..PRO|CEDURE D|
|00002cd0| 72 61 77 49 6e 74 28 78 | 2c 20 79 3a 20 49 4e 54 |rawInt(x|, y: INT|
|00002ce0| 45 47 45 52 3b 20 5a 61 | 68 6c 3a 20 4c 4f 4e 47 |EGER; Za|hl: LONG|
|00002cf0| 49 4e 54 3b 20 44 72 61 | 77 49 6e 74 3a 20 42 4f |INT; Dra|wInt: BO|
|00002d00| 4f 4c 45 41 4e 29 3b 1c | 0d 09 09 56 41 52 20 43 |OLEAN);.|...VAR C|
|00002d10| 6f 6c 2c 20 41 6e 7a 3a | 20 49 4e 54 45 47 45 52 |ol, Anz:| INTEGER|
|00002d20| 3b 0d 09 42 45 47 49 4e | 0d 09 09 41 6e 7a 3a 3d |;..BEGIN|...Anz:=|
|00002d30| 34 3b 0d 09 09 49 46 20 | 43 6f 6c 6f 72 20 54 48 |4;...IF |Color TH|
|00002d40| 45 4e 0d 09 09 09 43 6f | 6c 3a 3d 6d 69 64 67 72 |EN....Co|l:=midgr|
|00002d50| 61 79 3b 0d 09 09 45 4c | 53 45 0d 09 09 09 43 6f |ay;...EL|SE....Co|
|00002d60| 6c 3a 3d 44 69 73 70 6c | 61 79 2e 62 6c 61 63 6b |l:=Displ|ay.black|
|00002d70| 3b 0d 09 09 45 4e 44 3b | 0d 09 09 44 69 73 70 6c |;...END;|...Displ|
|00002d80| 61 79 2e 52 65 70 6c 43 | 6f 6e 73 74 28 43 6f 6c |ay.ReplC|onst(Col|
|00002d90| 2c 20 78 2c 20 79 2c 20 | 41 6e 7a 2a 43 68 61 72 |, x, y, |Anz*Char|
|00002da0| 42 72 65 69 74 65 2b 31 | 30 2c 20 4b 61 73 74 65 |Breite+1|0, Kaste|
|00002db0| 6e 42 72 65 69 74 65 2d | 32 2c 20 44 69 73 70 6c |nBreite-|2, Displ|
|00002dc0| 61 79 2e 72 65 70 6c 61 | 63 65 29 3b 0d 0d 09 09 |ay.repla|ce);....|
|00002dd0| 49 46 20 44 72 61 77 49 | 6e 74 20 54 48 45 4e 0d |IF DrawI|nt THEN.|
|00002de0| 09 09 09 49 46 20 5a 61 | 68 6c 3c 30 20 54 48 45 |...IF Za|hl<0 THE|
|00002df0| 4e 0d 09 09 09 09 44 72 | 61 77 5a 61 68 6c 28 22 |N.....Dr|awZahl("|
|00002e00| 2d 22 2c 20 78 2b 32 2c | 20 79 2b 31 29 3b 0d 09 |-", x+2,| y+1);..|
|00002e10| 09 09 09 5a 61 68 6c 3a | 3d 41 42 53 28 5a 61 68 |...Zahl:|=ABS(Zah|
|00002e20| 6c 29 3b 0d 09 09 09 45 | 4e 44 3b 0d 09 0d 09 09 |l);....E|ND;.....|
|00002e30| 09 52 45 50 45 41 54 0d | 09 09 09 09 44 72 61 77 |.REPEAT.|....Draw|
|00002e40| 5a 61 68 6c 28 43 48 52 | 28 5a 61 68 6c 20 4d 4f |Zahl(CHR|(Zahl MO|
|00002e50| 44 20 31 30 2b 34 38 29 | 2c 20 78 2b 41 6e 7a 2a |D 10+48)|, x+Anz*|
|00002e60| 43 68 61 72 42 72 65 69 | 74 65 2b 31 2c 20 79 2b |CharBrei|te+1, y+|
|00002e70| 32 29 3b 0d 09 09 09 09 | 5a 61 68 6c 3a 3d 5a 61 |2);.....|Zahl:=Za|
|00002e80| 68 6c 20 44 49 56 20 31 | 30 3b 0d 09 09 09 09 44 |hl DIV 1|0;.....D|
|00002e90| 45 43 28 41 6e 7a 29 3b | 0d 09 09 09 55 4e 54 49 |EC(Anz);|....UNTI|
|00002ea0| 4c 20 28 5a 61 68 6c 3d | 30 29 20 4f 52 20 28 41 |L (Zahl=|0) OR (A|
|00002eb0| 6e 7a 3d 2d 31 29 3b 0d | 09 09 45 4e 44 3b 0d 09 |nz=-1);.|..END;..|
|00002ec0| 45 4e 44 20 44 72 61 77 | 49 6e 74 3b 1c 0d 0d 09 |END Draw|Int;....|
|00002ed0| 28 2a 20 64 72 61 77 20 | 6e 75 6d 62 65 72 20 6f |(* draw |number o|
|00002ee0| 66 20 4d 69 6e 65 73 20 | 74 6f 20 66 69 6e 64 20 |f Mines |to find |
|00002ef0| 2a 29 0d 09 50 52 4f 43 | 45 44 55 52 45 20 44 72 |*)..PROC|EDURE Dr|
|00002f00| 61 77 4d 69 6e 65 73 54 | 6f 46 69 6e 64 28 66 3a |awMinesT|oFind(f:|
|00002f10| 20 46 72 61 6d 65 29 3b | 1c 0d 09 42 45 47 49 4e | Frame);|...BEGIN|
|00002f20| 0d 09 09 44 72 61 77 49 | 6e 74 28 28 66 2e 57 2d |...DrawI|nt((f.W-|
|00002f30| 31 31 39 29 20 44 49 56 | 20 32 2b 66 2e 58 2b 32 |119) DIV| 2+f.X+2|
|00002f40| 2c 20 66 2e 59 2b 66 2e | 48 2d 4f 62 65 6e 50 6c |, f.Y+f.|H-ObenPl|
|00002f50| 61 74 7a 2b 36 2c 20 66 | 2e 64 2e 4d 69 6e 65 73 |atz+6, f|.d.Mines|
|00002f60| 2c 20 54 52 55 45 29 3b | 0d 09 45 4e 44 20 44 72 |, TRUE);|..END Dr|
|00002f70| 61 77 4d 69 6e 65 73 54 | 6f 46 69 6e 64 3b 1c 0d |awMinesT|oFind;..|
|00002f80| 0d 09 28 2a 20 64 72 61 | 77 20 74 68 65 20 74 69 |..(* dra|w the ti|
|00002f90| 6d 65 20 2a 29 0d 09 50 | 52 4f 43 45 44 55 52 45 |me *)..P|ROCEDURE|
|00002fa0| 20 44 72 61 77 54 69 6d | 65 28 66 3a 20 46 72 61 | DrawTim|e(f: Fra|
|00002fb0| 6d 65 29 3b 1c 0d 09 42 | 45 47 49 4e 0d 09 09 44 |me);...B|EGIN...D|
|00002fc0| 72 61 77 49 6e 74 28 66 | 2e 57 20 44 49 56 20 32 |rawInt(f|.W DIV 2|
|00002fd0| 2b 66 2e 58 2b 31 36 2c | 20 66 2e 59 2b 66 2e 48 |+f.X+16,| f.Y+f.H|
|00002fe0| 2d 4f 62 65 6e 50 6c 61 | 74 7a 2b 36 2c 20 28 49 |-ObenPla|tz+6, (I|
|00002ff0| 6e 70 75 74 2e 54 69 6d | 65 28 29 2d 66 2e 64 2e |nput.Tim|e()-f.d.|
|00003000| 54 69 6d 65 29 20 44 49 | 56 20 49 6e 70 75 74 2e |Time) DI|V Input.|
|00003010| 54 69 6d 65 55 6e 69 74 | 2c 20 66 2e 64 2e 53 74 |TimeUnit|, f.d.St|
|00003020| 61 72 74 50 6c 61 79 29 | 3b 0d 09 45 4e 44 20 44 |artPlay)|;..END D|
|00003030| 72 61 77 54 69 6d 65 3b | 1c 0d 0d 09 28 2a 20 64 |rawTime;|....(* d|
|00003040| 72 61 77 20 70 61 74 74 | 65 72 6e 2c 20 6c 69 6b |raw patt|ern, lik|
|00003050| 65 20 6d 69 6e 65 20 2a | 29 0d 09 50 52 4f 43 45 |e mine *|)..PROCE|
|00003060| 44 55 52 45 20 44 72 61 | 77 50 61 74 28 66 3a 20 |DURE Dra|wPat(f: |
|00003070| 46 72 61 6d 65 3b 20 58 | 4b 61 73 74 65 6e 2c 20 |Frame; X|Kasten, |
|00003080| 59 4b 61 73 74 65 6e 2c | 20 4e 6f 3a 20 49 4e 54 |YKasten,| No: INT|
|00003090| 45 47 45 52 3b 20 4d 6f | 64 65 3a 20 42 4f 4f 4c |EGER; Mo|de: BOOL|
|000030a0| 45 41 4e 3b 20 43 6f 6c | 6f 72 3a 20 42 4f 4f 4c |EAN; Col|or: BOOL|
|000030b0| 45 41 4e 3b 20 63 6f 6c | 3a 20 49 4e 54 45 47 45 |EAN; col|: INTEGE|
|000030c0| 52 29 3b 1c 0d 09 09 56 | 41 52 20 64 75 6d 78 2c |R);....V|AR dumx,|
|000030d0| 20 64 75 6d 79 3a 20 49 | 4e 54 45 47 45 52 3b 0d | dumy: I|NTEGER;.|
|000030e0| 09 42 45 47 49 4e 0d 09 | 09 49 46 20 4d 6f 64 65 |.BEGIN..|.IF Mode|
|000030f0| 20 54 48 45 4e 0d 09 09 | 09 43 6c 65 61 72 4b 61 | THEN...|.ClearKa|
|00003100| 73 74 65 6e 28 66 2c 20 | 58 4b 61 73 74 65 6e 2c |sten(f, |XKasten,|
|00003110| 20 59 4b 61 73 74 65 6e | 2c 20 43 6f 6c 6f 72 29 | YKasten|, Color)|
|00003120| 3b 0d 09 09 45 4c 53 45 | 0d 09 09 09 42 6c 6f 63 |;...ELSE|....Bloc|
|00003130| 6b 4b 61 73 74 65 6e 28 | 66 2c 20 58 4b 61 73 74 |kKasten(|f, XKast|
|00003140| 65 6e 2c 20 59 4b 61 73 | 74 65 6e 2c 20 43 6f 6c |en, YKas|ten, Col|
|00003150| 6f 72 2c 20 63 6f 6c 29 | 3b 0d 09 09 45 4e 44 3b |or, col)|;...END;|
|00003160| 0d 0d 09 09 64 75 6d 78 | 3a 3d 66 2e 53 65 69 74 |....dumx|:=f.Seit|
|00003170| 65 6e 4f 66 66 73 65 74 | 2b 58 4b 61 73 74 65 6e |enOffset|+XKasten|
|00003180| 2a 4b 61 73 74 65 6e 50 | 6c 61 74 7a 2d 4b 61 73 |*KastenP|latz-Kas|
|00003190| 74 65 6e 42 72 65 69 74 | 65 3b 0d 09 09 64 75 6d |tenBreit|e;...dum|
|000031a0| 79 3a 3d 66 2e 55 6e 74 | 65 6e 4f 66 66 73 65 74 |y:=f.Unt|enOffset|
|000031b0| 2b 59 4b 61 73 74 65 6e | 2a 4b 61 73 74 65 6e 50 |+YKasten|*KastenP|
|000031c0| 6c 61 74 7a 2d 4b 61 73 | 74 65 6e 42 72 65 69 74 |latz-Kas|tenBreit|
|000031d0| 65 3b 0d 09 09 49 46 20 | 43 6f 6c 6f 72 20 54 48 |e;...IF |Color TH|
|000031e0| 45 4e 0d 09 09 09 49 46 | 20 4e 6f 3c 33 20 54 48 |EN....IF| No<3 TH|
|000031f0| 45 4e 0d 09 09 09 09 44 | 69 73 70 6c 61 79 2e 43 |EN.....D|isplay.C|
|00003200| 6f 70 79 50 61 74 74 65 | 72 6e 28 62 6c 61 63 6b |opyPatte|rn(black|
|00003210| 2c 20 50 61 74 5b 31 5d | 2c 20 64 75 6d 78 2b 32 |, Pat[1]|, dumx+2|
|00003220| 2c 20 64 75 6d 79 2b 32 | 2c 20 44 69 73 70 6c 61 |, dumy+2|, Displa|
|00003230| 79 2e 70 61 69 6e 74 29 | 3b 0d 09 09 09 09 49 46 |y.paint)|;.....IF|
|00003240| 20 4e 6f 3d 32 20 54 48 | 45 4e 0d 09 09 09 09 09 | No=2 TH|EN......|
|00003250| 44 69 73 70 6c 61 79 2e | 43 6f 70 79 50 61 74 74 |Display.|CopyPatt|
|00003260| 65 72 6e 28 72 65 64 2c | 20 50 61 74 5b 32 5d 2c |ern(red,| Pat[2],|
|00003270| 20 64 75 6d 78 2b 32 2c | 20 64 75 6d 79 2b 32 2c | dumx+2,| dumy+2,|
|00003280| 20 44 69 73 70 6c 61 79 | 2e 70 61 69 6e 74 29 3b | Display|.paint);|
|00003290| 0d 09 09 09 09 45 4e 44 | 3b 0d 09 09 09 45 4c 53 |.....END|;....ELS|
|000032a0| 45 0d 09 09 09 09 44 69 | 73 70 6c 61 79 2e 43 6f |E.....Di|splay.Co|
|000032b0| 70 79 50 61 74 74 65 72 | 6e 28 72 65 64 2c 20 50 |pyPatter|n(red, P|
|000032c0| 61 74 5b 33 5d 2c 20 64 | 75 6d 78 2b 32 2c 20 64 |at[3], d|umx+2, d|
|000032d0| 75 6d 79 2b 32 2c 20 44 | 69 73 70 6c 61 79 2e 70 |umy+2, D|isplay.p|
|000032e0| 61 69 6e 74 29 3b 0d 09 | 09 09 09 44 69 73 70 6c |aint);..|...Displ|
|000032f0| 61 79 2e 52 65 70 6c 43 | 6f 6e 73 74 28 62 6c 61 |ay.ReplC|onst(bla|
|00003300| 63 6b 2c 20 64 75 6d 78 | 2b 35 2c 20 64 75 6d 79 |ck, dumx|+5, dumy|
|00003310| 2b 33 2c 20 31 2c 20 31 | 30 2c 20 44 69 73 70 6c |+3, 1, 1|0, Displ|
|00003320| 61 79 2e 72 65 70 6c 61 | 63 65 29 3b 0d 09 09 09 |ay.repla|ce);....|
|00003330| 45 4e 44 3b 0d 09 09 45 | 4c 53 45 0d 09 09 09 49 |END;...E|LSE....I|
|00003340| 46 20 4e 6f 3d 31 20 54 | 48 45 4e 0d 09 09 09 09 |F No=1 T|HEN.....|
|00003350| 49 46 20 4d 6f 64 65 20 | 54 48 45 4e 0d 09 09 09 |IF Mode |THEN....|
|00003360| 09 09 44 69 73 70 6c 61 | 79 2e 43 6f 70 79 50 61 |..Displa|y.CopyPa|
|00003370| 74 74 65 72 6e 28 63 6f | 6c 2c 20 50 61 74 5b 31 |ttern(co|l, Pat[1|
|00003380| 5d 2c 20 64 75 6d 78 2b | 32 2c 20 64 75 6d 79 2b |], dumx+|2, dumy+|
|00003390| 32 2c 20 44 69 73 70 6c | 61 79 2e 70 61 69 6e 74 |2, Displ|ay.paint|
|000033a0| 29 3b 0d 09 09 09 09 45 | 4c 53 45 0d 09 09 09 09 |);.....E|LSE.....|
|000033b0| 09 44 69 73 70 6c 61 79 | 2e 43 6f 70 79 50 61 74 |.Display|.CopyPat|
|000033c0| 74 65 72 6e 28 44 69 73 | 70 6c 61 79 2e 62 6c 61 |tern(Dis|play.bla|
|000033d0| 63 6b 2c 20 50 61 74 5b | 31 5d 2c 20 64 75 6d 78 |ck, Pat[|1], dumx|
|000033e0| 2b 32 2c 20 64 75 6d 79 | 2b 32 2c 20 44 69 73 70 |+2, dumy|+2, Disp|
|000033f0| 6c 61 79 2e 70 61 69 6e | 74 29 3b 0d 09 09 09 09 |lay.pain|t);.....|
|00003400| 45 4e 44 3b 0d 09 09 09 | 45 4c 53 45 0d 09 09 09 |END;....|ELSE....|
|00003410| 09 49 46 20 4e 6f 3d 32 | 20 54 48 45 4e 20 4e 6f |.IF No=2| THEN No|
|00003420| 3a 3d 34 3b 45 4e 44 3b | 0d 09 09 09 09 44 69 73 |:=4;END;|.....Dis|
|00003430| 70 6c 61 79 2e 43 6f 70 | 79 50 61 74 74 65 72 6e |play.Cop|yPattern|
|00003440| 28 44 69 73 70 6c 61 79 | 2e 62 6c 61 63 6b 2c 20 |(Display|.black, |
|00003450| 50 61 74 5b 4e 6f 5d 2c | 20 64 75 6d 78 2b 32 2c |Pat[No],| dumx+2,|
|00003460| 20 64 75 6d 79 2b 32 2c | 20 44 69 73 70 6c 61 79 | dumy+2,| Display|
|00003470| 2e 70 61 69 6e 74 29 3b | 0d 09 09 09 45 4e 44 3b |.paint);|....END;|
|00003480| 0d 09 09 45 4e 44 3b 0d | 09 45 4e 44 20 20 44 72 |...END;.|.END Dr|
|00003490| 61 77 50 61 74 3b 1c 0d | 0d 09 28 2a 20 69 6e 76 |awPat;..|..(* inv|
|000034a0| 65 72 74 20 63 68 61 72 | 20 2a 29 0d 09 50 52 4f |ert char| *)..PRO|
|000034b0| 43 45 44 55 52 45 20 44 | 72 61 77 43 68 61 72 49 |CEDURE D|rawCharI|
|000034c0| 6e 76 28 66 3a 20 46 72 | 61 6d 65 3b 20 63 68 3a |nv(f: Fr|ame; ch:|
|000034d0| 20 20 43 48 41 52 3b 20 | 58 4b 61 73 74 65 6e 2c | CHAR; |XKasten,|
|000034e0| 20 59 4b 61 73 74 65 6e | 3a 20 49 4e 54 45 47 45 | YKasten|: INTEGE|
|000034f0| 52 29 3b 1c 0d 09 09 56 | 41 52 0d 09 09 09 50 61 |R);....V|AR....Pa|
|00003500| 74 3a 20 44 69 73 70 6c | 61 79 2e 50 61 74 74 65 |t: Displ|ay.Patte|
|00003510| 72 6e 3b 0d 09 09 09 64 | 78 2c 20 78 2c 20 79 2c |rn;....d|x, x, y,|
|00003520| 20 77 2c 20 68 3a 20 49 | 4e 54 45 47 45 52 3b 0d | w, h: I|NTEGER;.|
|00003530| 09 09 09 64 75 6d 78 2c | 20 64 75 6d 79 3a 20 49 |...dumx,| dumy: I|
|00003540| 4e 54 45 47 45 52 3b 0d | 09 42 45 47 49 4e 0d 09 |NTEGER;.|.BEGIN..|
|00003550| 09 44 69 73 70 6c 61 79 | 2e 47 65 74 43 68 61 72 |.Display|.GetChar|
|00003560| 28 55 73 65 64 46 6f 6e | 74 2e 72 61 73 74 65 72 |(UsedFon|t.raster|
|00003570| 2c 20 63 68 2c 20 64 78 | 2c 20 78 2c 20 79 2c 20 |, ch, dx|, x, y, |
|00003580| 77 2c 20 68 2c 20 50 61 | 74 29 3b 0d 09 09 64 75 |w, h, Pa|t);...du|
|00003590| 6d 78 3a 3d 66 2e 53 65 | 69 74 65 6e 4f 66 66 73 |mx:=f.Se|itenOffs|
|000035a0| 65 74 2b 58 4b 61 73 74 | 65 6e 2a 4b 61 73 74 65 |et+XKast|en*Kaste|
|000035b0| 6e 50 6c 61 74 7a 2d 4b | 42 2b 28 4b 42 2d 77 29 |nPlatz-K|B+(KB-w)|
|000035c0| 20 44 49 56 20 32 3b 0d | 09 09 64 75 6d 79 3a 3d | DIV 2;.|..dumy:=|
|000035d0| 66 2e 55 6e 74 65 6e 4f | 66 66 73 65 74 2b 59 4b |f.UntenO|ffset+YK|
|000035e0| 61 73 74 65 6e 2a 4b 61 | 73 74 65 6e 50 6c 61 74 |asten*Ka|stenPlat|
|000035f0| 7a 2d 4b 42 2b 28 4b 42 | 2d 68 29 20 44 49 56 20 |z-KB+(KB|-h) DIV |
|00003600| 32 3b 0d 09 09 44 69 73 | 70 6c 61 79 2e 43 6f 70 |2;...Dis|play.Cop|
|00003610| 79 50 61 74 74 65 72 6e | 28 44 69 73 70 6c 61 79 |yPattern|(Display|
|00003620| 2e 77 68 69 74 65 2c 20 | 50 61 74 2c 20 64 75 6d |.white, |Pat, dum|
|00003630| 78 2c 20 64 75 6d 79 2c | 20 44 69 73 70 6c 61 79 |x, dumy,| Display|
|00003640| 2e 69 6e 76 65 72 74 29 | 3b 0d 09 45 4e 44 20 20 |.invert)|;..END |
|00003650| 44 72 61 77 43 68 61 72 | 49 6e 76 3b 1c 09 09 09 |DrawChar|Inv;....|
|00003660| 0d 0d 09 28 2a 20 6d 61 | 6b 65 20 6e 65 77 20 64 |...(* ma|ke new d|
|00003670| 61 74 61 20 2a 29 0d 09 | 50 52 4f 43 45 44 55 52 |ata *)..|PROCEDUR|
|00003680| 45 20 4e 65 75 65 73 46 | 65 6c 64 2a 28 64 3a 20 |E NeuesF|eld*(d: |
|00003690| 44 61 74 61 3b 20 78 2c | 20 79 3a 20 49 4e 54 45 |Data; x,| y: INTE|
|000036a0| 47 45 52 29 3b 1c 0d 09 | 09 56 41 52 0d 09 09 09 |GER);...|.VAR....|
|000036b0| 5a 61 65 68 6c 65 72 58 | 2c 20 5a 61 65 68 6c 65 |ZaehlerX|, Zaehle|
|000036c0| 72 59 3a 20 49 4e 54 45 | 47 45 52 3b 0d 09 09 09 |rY: INTE|GER;....|
|000036d0| 64 75 6d 6d 79 3a 20 4c | 4f 4e 47 49 4e 54 3b 0d |dummy: L|ONGINT;.|
|000036e0| 09 09 09 42 6f 6d 62 65 | 6e 3a 20 53 48 4f 52 54 |...Bombe|n: SHORT|
|000036f0| 49 4e 54 3b 0d 09 42 45 | 47 49 4e 0d 09 09 4e 45 |INT;..BE|GIN...NE|
|00003700| 57 28 64 2e 46 65 6c 64 | 2c 20 78 2b 32 2c 20 79 |W(d.Feld|, x+2, y|
|00003710| 2b 32 29 3b 0d 09 09 49 | 46 20 64 2e 46 65 6c 64 |+2);...I|F d.Feld|
|00003720| 3d 4e 49 4c 20 54 48 45 | 4e 0d 09 09 09 64 2e 41 |=NIL THE|N....d.A|
|00003730| 6b 74 69 76 3a 3d 46 41 | 4c 53 45 3b 0d 09 09 09 |ktiv:=FA|LSE;....|
|00003740| 52 45 54 55 52 4e 3b 0d | 09 09 45 4e 44 3b 0d 0d |RETURN;.|..END;..|
|00003750| 09 09 46 4f 52 20 5a 61 | 65 68 6c 65 72 58 3a 3d |..FOR Za|ehlerX:=|
|00003760| 30 20 54 4f 20 78 2b 31 | 20 44 4f 0d 09 09 09 46 |0 TO x+1| DO....F|
|00003770| 4f 52 20 5a 61 65 68 6c | 65 72 59 3a 3d 30 20 54 |OR Zaehl|erY:=0 T|
|00003780| 4f 20 79 2b 31 20 44 4f | 0d 09 09 09 09 64 2e 46 |O y+1 DO|.....d.F|
|00003790| 65 6c 64 5b 5a 61 65 68 | 6c 65 72 58 2c 20 5a 61 |eld[Zaeh|lerX, Za|
|000037a0| 65 68 6c 65 72 59 5d 3a | 3d 31 3b 0d 09 09 09 45 |ehlerY]:|=1;....E|
|000037b0| 4e 44 3b 0d 09 09 45 4e | 44 3b 0d 0d 09 09 64 75 |ND;...EN|D;....du|
|000037c0| 6d 6d 79 3a 3d 28 4c 4f | 4e 47 28 78 29 2a 79 2a |mmy:=(LO|NG(x)*y*|
|000037d0| 64 2e 51 75 6f 74 65 29 | 20 44 49 56 20 31 30 30 |d.Quote)| DIV 100|
|000037e0| 3b 0d 09 09 64 2e 43 6f | 75 6e 74 3a 3d 4c 4f 4e |;...d.Co|unt:=LON|
|000037f0| 47 28 78 29 2a 79 2d 64 | 75 6d 6d 79 3b 64 2e 4d |G(x)*y-d|ummy;d.M|
|00003800| 69 6e 65 73 3a 3d 64 75 | 6d 6d 79 3b 0d 0d 09 09 |ines:=du|mmy;....|
|00003810| 52 45 50 45 41 54 0d 09 | 09 09 52 45 50 45 41 54 |REPEAT..|..REPEAT|
|00003820| 0d 09 09 09 09 5a 61 65 | 68 6c 65 72 58 3a 3d 52 |.....Zae|hlerX:=R|
|00003830| 61 6e 64 6f 6d 28 78 29 | 2b 31 3b 0d 09 09 09 09 |andom(x)|+1;.....|
|00003840| 5a 61 65 68 6c 65 72 59 | 3a 3d 52 61 6e 64 6f 6d |ZaehlerY|:=Random|
|00003850| 28 79 29 2b 31 3b 0d 09 | 09 09 55 4e 54 49 4c 20 |(y)+1;..|..UNTIL |
|00003860| 64 2e 46 65 6c 64 5b 5a | 61 65 68 6c 65 72 58 2c |d.Feld[Z|aehlerX,|
|00003870| 20 5a 61 65 68 6c 65 72 | 59 5d 3d 31 3b 0d 09 09 | Zaehler|Y]=1;...|
|00003880| 09 64 2e 46 65 6c 64 5b | 5a 61 65 68 6c 65 72 58 |.d.Feld[|ZaehlerX|
|00003890| 2c 20 5a 61 65 68 6c 65 | 72 59 5d 3a 3d 31 30 3b |, Zaehle|rY]:=10;|
|000038a0| 0d 09 09 09 44 45 43 28 | 64 75 6d 6d 79 29 3b 0d |....DEC(|dummy);.|
|000038b0| 09 09 55 4e 54 49 4c 20 | 64 75 6d 6d 79 3d 30 3b |..UNTIL |dummy=0;|
|000038c0| 0d 0d 20 09 09 46 4f 52 | 20 5a 61 65 68 6c 65 72 |.. ..FOR| Zaehler|
|000038d0| 58 3a 3d 31 20 54 4f 20 | 78 20 44 4f 0d 09 09 09 |X:=1 TO |x DO....|
|000038e0| 46 4f 52 20 5a 61 65 68 | 6c 65 72 59 3a 3d 31 20 |FOR Zaeh|lerY:=1 |
|000038f0| 54 4f 20 79 20 44 4f 0d | 09 09 09 09 49 46 20 64 |TO y DO.|....IF d|
|00003900| 2e 46 65 6c 64 5b 5a 61 | 65 68 6c 65 72 58 2c 20 |.Feld[Za|ehlerX, |
|00003910| 5a 61 65 68 6c 65 72 59 | 5d 3d 31 20 54 48 45 4e |ZaehlerY|]=1 THEN|
|00003920| 0d 09 09 09 09 09 42 6f | 6d 62 65 6e 3a 3d 31 3b |......Bo|mben:=1;|
|00003930| 0d 09 09 09 09 09 49 46 | 20 64 2e 46 65 6c 64 5b |......IF| d.Feld[|
|00003940| 5a 61 65 68 6c 65 72 58 | 2b 31 2c 20 5a 61 65 68 |ZaehlerX|+1, Zaeh|
|00003950| 6c 65 72 59 5d 3d 31 30 | 20 54 48 45 4e 20 49 4e |lerY]=10| THEN IN|
|00003960| 43 28 42 6f 6d 62 65 6e | 29 3b 45 4e 44 3b 0d 09 |C(Bomben|);END;..|
|00003970| 09 09 09 09 49 46 20 64 | 2e 46 65 6c 64 5b 5a 61 |....IF d|.Feld[Za|
|00003980| 65 68 6c 65 72 58 2b 31 | 2c 20 5a 61 65 68 6c 65 |ehlerX+1|, Zaehle|
|00003990| 72 59 2b 31 5d 3d 31 30 | 20 54 48 45 4e 20 49 4e |rY+1]=10| THEN IN|
|000039a0| 43 28 42 6f 6d 62 65 6e | 29 3b 45 4e 44 3b 0d 09 |C(Bomben|);END;..|
|000039b0| 09 09 09 09 49 46 20 64 | 2e 46 65 6c 64 5b 5a 61 |....IF d|.Feld[Za|
|000039c0| 65 68 6c 65 72 58 2c 20 | 5a 61 65 68 6c 65 72 59 |ehlerX, |ZaehlerY|
|000039d0| 2b 31 5d 3d 31 30 20 54 | 48 45 4e 20 49 4e 43 28 |+1]=10 T|HEN INC(|
|000039e0| 42 6f 6d 62 65 6e 29 3b | 45 4e 44 3b 0d 09 09 09 |Bomben);|END;....|
|000039f0| 09 09 49 46 20 64 2e 46 | 65 6c 64 5b 5a 61 65 68 |..IF d.F|eld[Zaeh|
|00003a00| 6c 65 72 58 2d 31 2c 20 | 5a 61 65 68 6c 65 72 59 |lerX-1, |ZaehlerY|
|00003a10| 2b 31 5d 3d 31 30 20 54 | 48 45 4e 20 49 4e 43 28 |+1]=10 T|HEN INC(|
|00003a20| 42 6f 6d 62 65 6e 29 3b | 45 4e 44 3b 0d 09 09 09 |Bomben);|END;....|
|00003a30| 09 09 49 46 20 64 2e 46 | 65 6c 64 5b 5a 61 65 68 |..IF d.F|eld[Zaeh|
|00003a40| 6c 65 72 58 2d 31 2c 20 | 5a 61 65 68 6c 65 72 59 |lerX-1, |ZaehlerY|
|00003a50| 5d 3d 31 30 20 54 48 45 | 4e 20 49 4e 43 28 42 6f |]=10 THE|N INC(Bo|
|00003a60| 6d 62 65 6e 29 3b 45 4e | 44 3b 0d 09 09 09 09 09 |mben);EN|D;......|
|00003a70| 49 46 20 64 2e 46 65 6c | 64 5b 5a 61 65 68 6c 65 |IF d.Fel|d[Zaehle|
|00003a80| 72 58 2d 31 2c 20 5a 61 | 65 68 6c 65 72 59 2d 31 |rX-1, Za|ehlerY-1|
|00003a90| 5d 3d 31 30 20 54 48 45 | 4e 20 49 4e 43 28 42 6f |]=10 THE|N INC(Bo|
|00003aa0| 6d 62 65 6e 29 3b 45 4e | 44 3b 0d 09 09 09 09 09 |mben);EN|D;......|
|00003ab0| 49 46 20 64 2e 46 65 6c | 64 5b 5a 61 65 68 6c 65 |IF d.Fel|d[Zaehle|
|00003ac0| 72 58 2c 20 5a 61 65 68 | 6c 65 72 59 2d 31 5d 3d |rX, Zaeh|lerY-1]=|
|00003ad0| 31 30 20 54 48 45 4e 20 | 49 4e 43 28 42 6f 6d 62 |10 THEN |INC(Bomb|
|00003ae0| 65 6e 29 3b 45 4e 44 3b | 0d 09 09 09 09 09 49 46 |en);END;|......IF|
|00003af0| 20 64 2e 46 65 6c 64 5b | 5a 61 65 68 6c 65 72 58 | d.Feld[|ZaehlerX|
|00003b00| 2b 31 2c 20 5a 61 65 68 | 6c 65 72 59 2d 31 5d 3d |+1, Zaeh|lerY-1]=|
|00003b10| 31 30 20 54 48 45 4e 20 | 49 4e 43 28 42 6f 6d 62 |10 THEN |INC(Bomb|
|00003b20| 65 6e 29 3b 45 4e 44 3b | 0d 09 09 09 09 09 64 2e |en);END;|......d.|
|00003b30| 46 65 6c 64 5b 5a 61 65 | 68 6c 65 72 58 2c 20 5a |Feld[Zae|hlerX, Z|
|00003b40| 61 65 68 6c 65 72 59 5d | 3a 3d 42 6f 6d 62 65 6e |aehlerY]|:=Bomben|
|00003b50| 3b 0d 09 09 09 09 45 4e | 44 3b 0d 09 09 09 45 4e |;.....EN|D;....EN|
|00003b60| 44 3b 0d 09 09 45 4e 44 | 3b 0d 09 45 4e 44 20 4e |D;...END|;..END N|
|00003b70| 65 75 65 73 46 65 6c 64 | 3b 1c 0d 0d 09 28 2a 20 |euesFeld|;....(* |
|00003b80| 64 72 61 77 20 61 20 62 | 6f 78 20 2a 29 0d 09 50 |draw a b|ox *)..P|
|00003b90| 52 4f 43 45 44 55 52 45 | 20 44 72 61 77 4b 61 73 |ROCEDURE| DrawKas|
|00003ba0| 74 65 6e 2a 28 66 3a 20 | 46 72 61 6d 65 3b 20 58 |ten*(f: |Frame; X|
|00003bb0| 5a 61 65 68 6c 65 72 2c | 20 59 5a 61 65 68 6c 65 |Zaehler,| YZaehle|
|00003bc0| 72 3a 20 49 4e 54 45 47 | 45 52 3b 20 43 6f 6c 6f |r: INTEG|ER; Colo|
|00003bd0| 72 3a 20 42 4f 4f 4c 45 | 41 4e 3b 20 63 6f 6c 3a |r: BOOLE|AN; col:|
|00003be0| 20 49 4e 54 45 47 45 52 | 29 3b 1c 0d 09 09 56 41 | INTEGER|);....VA|
|00003bf0| 52 20 64 75 6d 6d 79 3a | 20 53 48 4f 52 54 49 4e |R dummy:| SHORTIN|
|00003c00| 54 3b 0d 09 42 45 47 49 | 4e 0d 09 09 64 75 6d 6d |T;..BEGI|N...dumm|
|00003c10| 79 3a 3d 66 2e 64 2e 46 | 65 6c 64 5b 58 5a 61 65 |y:=f.d.F|eld[XZae|
|00003c20| 68 6c 65 72 2c 20 59 5a | 61 65 68 6c 65 72 5d 3b |hler, YZ|aehler];|
|00003c30| 0d 09 09 49 46 20 64 75 | 6d 6d 79 3e 30 20 54 48 |...IF du|mmy>0 TH|
|00003c40| 45 4e 0d 09 09 09 49 46 | 20 64 75 6d 6d 79 3e 31 |EN....IF| dummy>1|
|00003c50| 36 20 54 48 45 4e 0d 09 | 09 09 09 44 72 61 77 50 |6 THEN..|...DrawP|
|00003c60| 61 74 28 66 2c 20 58 5a | 61 65 68 6c 65 72 2c 20 |at(f, XZ|aehler, |
|00003c70| 59 5a 61 65 68 6c 65 72 | 2c 20 33 2c 20 46 41 4c |YZaehler|, 3, FAL|
|00003c80| 53 45 2c 20 43 6f 6c 6f | 72 2c 20 63 6f 6c 29 3b |SE, Colo|r, col);|
|00003c90| 0d 09 09 09 45 4c 53 45 | 0d 09 09 09 09 42 6c 6f |....ELSE|.....Blo|
|00003ca0| 63 6b 4b 61 73 74 65 6e | 28 66 2c 20 58 5a 61 65 |ckKasten|(f, XZae|
|00003cb0| 68 6c 65 72 2c 20 59 5a | 61 65 68 6c 65 72 2c 20 |hler, YZ|aehler, |
|00003cc0| 43 6f 6c 6f 72 2c 20 63 | 6f 6c 29 3b 0d 09 09 09 |Color, c|ol);....|
|00003cd0| 45 4e 44 3b 0d 09 09 45 | 4c 53 45 0d 09 09 09 49 |END;...E|LSE....I|
|00003ce0| 46 20 64 75 6d 6d 79 3d | 2d 31 30 20 54 48 45 4e |F dummy=|-10 THEN|
|00003cf0| 0d 09 09 09 09 44 72 61 | 77 50 61 74 28 66 2c 20 |.....Dra|wPat(f, |
|00003d00| 58 5a 61 65 68 6c 65 72 | 2c 20 59 5a 61 65 68 6c |XZaehler|, YZaehl|
|00003d10| 65 72 2c 20 31 2c 20 54 | 52 55 45 2c 20 43 6f 6c |er, 1, T|RUE, Col|
|00003d20| 6f 72 2c 20 63 6f 6c 29 | 3b 0d 09 09 09 45 4c 53 |or, col)|;....ELS|
|00003d30| 49 46 20 64 75 6d 6d 79 | 3d 2d 31 20 54 48 45 4e |IF dummy|=-1 THEN|
|00003d40| 0d 09 09 09 09 43 6c 65 | 61 72 4b 61 73 74 65 6e |.....Cle|arKasten|
|00003d50| 28 66 2c 20 58 5a 61 65 | 68 6c 65 72 2c 20 59 5a |(f, XZae|hler, YZ|
|00003d60| 61 65 68 6c 65 72 2c 20 | 43 6f 6c 6f 72 29 3b 0d |aehler, |Color);.|
|00003d70| 09 09 09 45 4c 53 45 0d | 09 09 09 09 44 72 61 77 |...ELSE.|....Draw|
|00003d80| 43 68 61 72 28 66 2c 20 | 43 48 52 28 34 37 2d 64 |Char(f, |CHR(47-d|
|00003d90| 75 6d 6d 79 29 2c 20 58 | 5a 61 65 68 6c 65 72 2c |ummy), X|Zaehler,|
|00003da0| 20 59 5a 61 65 68 6c 65 | 72 2c 20 43 6f 6c 6f 72 | YZaehle|r, Color|
|00003db0| 2c 20 63 6f 6c 29 3b 0d | 09 09 09 45 4e 44 3b 0d |, col);.|...END;.|
|00003dc0| 09 09 45 4e 44 3b 0d 09 | 45 4e 44 20 44 72 61 77 |..END;..|END Draw|
|00003dd0| 4b 61 73 74 65 6e 3b 1c | 0d 0d 09 28 2a 20 64 72 |Kasten;.|...(* dr|
|00003de0| 61 77 20 61 6c 6c 20 2a | 29 09 0d 09 50 52 4f 43 |aw all *|)...PROC|
|00003df0| 45 44 55 52 45 20 50 6c | 6f 74 41 6c 6c 28 66 3a |EDURE Pl|otAll(f:|
|00003e00| 20 46 72 61 6d 65 29 3b | 1c 0d 09 09 56 41 52 20 | Frame);|....VAR |
|00003e10| 78 64 75 6d 2c 20 79 64 | 75 6d 3a 20 49 4e 54 45 |xdum, yd|um: INTE|
|00003e20| 47 45 52 3b 0d 09 42 45 | 47 49 4e 0d 09 09 78 64 |GER;..BE|GIN...xd|
|00003e30| 75 6d 3a 3d 28 66 2e 57 | 2d 37 2a 4b 61 73 74 65 |um:=(f.W|-7*Kaste|
|00003e40| 6e 50 6c 61 74 7a 29 20 | 44 49 56 20 32 2b 66 2e |nPlatz) |DIV 2+f.|
|00003e50| 58 2b 32 3b 0d 09 09 79 | 64 75 6d 3a 3d 66 2e 59 |X+2;...y|dum:=f.Y|
|00003e60| 2b 66 2e 48 2d 4f 62 65 | 6e 50 6c 61 74 7a 2b 36 |+f.H-Obe|nPlatz+6|
|00003e70| 3b 0d 09 09 49 46 20 43 | 6f 6c 6f 72 20 54 48 45 |;...IF C|olor THE|
|00003e80| 4e 0d 09 09 09 44 69 73 | 70 6c 61 79 2e 52 65 70 |N....Dis|play.Rep|
|00003e90| 6c 43 6f 6e 73 74 28 6c | 69 67 68 74 67 72 61 79 |lConst(l|ightgray|
|00003ea0| 2c 20 78 64 75 6d 2d 31 | 2c 20 79 64 75 6d 2d 31 |, xdum-1|, ydum-1|
|00003eb0| 2c 20 34 2a 43 68 61 72 | 42 72 65 69 74 65 2b 31 |, 4*Char|Breite+1|
|00003ec0| 32 2c 20 4b 61 73 74 65 | 6e 42 72 65 69 74 65 2c |2, Kaste|nBreite,|
|00003ed0| 20 44 69 73 70 6c 61 79 | 2e 72 65 70 6c 61 63 65 | Display|.replace|
|00003ee0| 29 3b 0d 09 09 09 44 69 | 73 70 6c 61 79 2e 52 65 |);....Di|splay.Re|
|00003ef0| 70 6c 43 6f 6e 73 74 28 | 64 61 72 6b 67 72 61 79 |plConst(|darkgray|
|00003f00| 2c 20 78 64 75 6d 2c 20 | 79 64 75 6d 2d 31 2c 20 |, xdum, |ydum-1, |
|00003f10| 34 2a 43 68 61 72 42 72 | 65 69 74 65 2b 31 31 2c |4*CharBr|eite+11,|
|00003f20| 20 4b 61 73 74 65 6e 42 | 72 65 69 74 65 2d 31 2c | KastenB|reite-1,|
|00003f30| 20 44 69 73 70 6c 61 79 | 2e 72 65 70 6c 61 63 65 | Display|.replace|
|00003f40| 29 3b 0d 09 09 09 78 64 | 75 6d 3a 3d 66 2e 57 20 |);....xd|um:=f.W |
|00003f50| 44 49 56 20 32 2b 66 2e | 58 2b 31 36 3b 0d 09 09 |DIV 2+f.|X+16;...|
|00003f60| 09 44 69 73 70 6c 61 79 | 2e 52 65 70 6c 43 6f 6e |.Display|.ReplCon|
|00003f70| 73 74 28 6c 69 67 68 74 | 67 72 61 79 2c 20 78 64 |st(light|gray, xd|
|00003f80| 75 6d 2d 31 2c 20 79 64 | 75 6d 2d 31 2c 20 34 2a |um-1, yd|um-1, 4*|
|00003f90| 43 68 61 72 42 72 65 69 | 74 65 2b 31 32 2c 20 4b |CharBrei|te+12, K|
|00003fa0| 61 73 74 65 6e 42 72 65 | 69 74 65 2c 20 44 69 73 |astenBre|ite, Dis|
|00003fb0| 70 6c 61 79 2e 72 65 70 | 6c 61 63 65 29 3b 0d 09 |play.rep|lace);..|
|00003fc0| 09 09 44 69 73 70 6c 61 | 79 2e 52 65 70 6c 43 6f |..Displa|y.ReplCo|
|00003fd0| 6e 73 74 28 64 61 72 6b | 67 72 61 79 2c 20 78 64 |nst(dark|gray, xd|
|00003fe0| 75 6d 2c 20 79 64 75 6d | 2d 31 2c 20 34 2a 43 68 |um, ydum|-1, 4*Ch|
|00003ff0| 61 72 42 72 65 69 74 65 | 2b 31 31 2c 20 4b 61 73 |arBreite|+11, Kas|
|00004000| 74 65 6e 42 72 65 69 74 | 65 2d 31 2c 20 44 69 73 |tenBreit|e-1, Dis|
|00004010| 70 6c 61 79 2e 72 65 70 | 6c 61 63 65 29 3b 0d 09 |play.rep|lace);..|
|00004020| 09 45 4c 53 45 0d 09 09 | 09 44 69 73 70 6c 61 79 |.ELSE...|.Display|
|00004030| 2e 52 65 70 6c 43 6f 6e | 73 74 28 44 69 73 70 6c |.ReplCon|st(Displ|
|00004040| 61 79 2e 77 68 69 74 65 | 2c 20 78 64 75 6d 2d 31 |ay.white|, xdum-1|
|00004050| 2c 20 79 64 75 6d 2d 31 | 2c 20 34 2a 43 68 61 72 |, ydum-1|, 4*Char|
|00004060| 42 72 65 69 74 65 2b 31 | 32 2c 20 4b 61 73 74 65 |Breite+1|2, Kaste|
|00004070| 6e 42 72 65 69 74 65 2c | 20 44 69 73 70 6c 61 79 |nBreite,| Display|
|00004080| 2e 72 65 70 6c 61 63 65 | 29 3b 0d 09 09 09 78 64 |.replace|);....xd|
|00004090| 75 6d 3a 3d 66 2e 57 20 | 44 49 56 20 32 2b 66 2e |um:=f.W |DIV 2+f.|
|000040a0| 58 2b 31 36 3b 0d 09 09 | 09 44 69 73 70 6c 61 79 |X+16;...|.Display|
|000040b0| 2e 52 65 70 6c 43 6f 6e | 73 74 28 44 69 73 70 6c |.ReplCon|st(Displ|
|000040c0| 61 79 2e 77 68 69 74 65 | 2c 20 78 64 75 6d 2d 31 |ay.white|, xdum-1|
|000040d0| 2c 20 79 64 75 6d 2d 31 | 2c 20 34 2a 43 68 61 72 |, ydum-1|, 4*Char|
|000040e0| 42 72 65 69 74 65 2b 31 | 32 2c 20 4b 61 73 74 65 |Breite+1|2, Kaste|
|000040f0| 6e 42 72 65 69 74 65 2c | 20 44 69 73 70 6c 61 79 |nBreite,| Display|
|00004100| 2e 72 65 70 6c 61 63 65 | 29 3b 0d 09 09 45 4e 44 |.replace|);...END|
|00004110| 3b 0d 09 09 44 72 61 77 | 4d 69 6e 65 73 54 6f 46 |;...Draw|MinesToF|
|00004120| 69 6e 64 28 66 29 3b 0d | 09 09 44 72 61 77 54 69 |ind(f);.|..DrawTi|
|00004130| 6d 65 28 66 29 3b 0d 0d | 09 09 79 64 75 6d 3a 3d |me(f);..|..ydum:=|
|00004140| 66 2e 64 2e 59 4b 61 73 | 74 65 6e 41 6e 7a 2a 4b |f.d.YKas|tenAnz*K|
|00004150| 61 73 74 65 6e 50 6c 61 | 74 7a 2b 31 3b 0d 09 09 |astenPla|tz+1;...|
|00004160| 78 64 75 6d 3a 3d 66 2e | 64 2e 58 4b 61 73 74 65 |xdum:=f.|d.XKaste|
|00004170| 6e 41 6e 7a 2a 4b 61 73 | 74 65 6e 50 6c 61 74 7a |nAnz*Kas|tenPlatz|
|00004180| 2b 31 3b 0d 09 09 49 46 | 20 43 6f 6c 6f 72 20 54 |+1;...IF| Color T|
|00004190| 48 45 4e 0d 09 09 09 44 | 69 73 70 6c 61 79 2e 52 |HEN....D|isplay.R|
|000041a0| 65 70 6c 43 6f 6e 73 74 | 28 6d 69 64 67 72 61 79 |eplConst|(midgray|
|000041b0| 2c 20 66 2e 53 65 69 74 | 65 6e 4f 66 66 73 65 74 |, f.Seit|enOffset|
|000041c0| 2c 20 66 2e 55 6e 74 65 | 6e 4f 66 66 73 65 74 2c |, f.Unte|nOffset,|
|000041d0| 20 78 64 75 6d 2c 20 79 | 64 75 6d 2c 20 44 69 73 | xdum, y|dum, Dis|
|000041e0| 70 6c 61 79 2e 72 65 70 | 6c 61 63 65 29 3b 0d 09 |play.rep|lace);..|
|000041f0| 09 09 44 69 73 70 6c 61 | 79 2e 52 65 70 6c 43 6f |..Displa|y.ReplCo|
|00004200| 6e 73 74 28 6c 69 67 68 | 74 67 72 61 79 2c 20 66 |nst(ligh|tgray, f|
|00004210| 2e 53 65 69 74 65 6e 4f | 66 66 73 65 74 2d 31 2c |.SeitenO|ffset-1,|
|00004220| 20 66 2e 55 6e 74 65 6e | 4f 66 66 73 65 74 2d 31 | f.Unten|Offset-1|
|00004230| 2c 20 31 2c 20 79 64 75 | 6d 2b 32 2c 20 44 69 73 |, 1, ydu|m+2, Dis|
|00004240| 70 6c 61 79 2e 72 65 70 | 6c 61 63 65 29 3b 0d 09 |play.rep|lace);..|
|00004250| 09 09 44 69 73 70 6c 61 | 79 2e 52 65 70 6c 43 6f |..Displa|y.ReplCo|
|00004260| 6e 73 74 28 6c 69 67 68 | 74 67 72 61 79 2c 20 66 |nst(ligh|tgray, f|
|00004270| 2e 53 65 69 74 65 6e 4f | 66 66 73 65 74 2d 31 2c |.SeitenO|ffset-1,|
|00004280| 20 66 2e 55 6e 74 65 6e | 4f 66 66 73 65 74 2b 79 | f.Unten|Offset+y|
|00004290| 64 75 6d 2c 20 78 64 75 | 6d 2b 31 2c 20 31 2c 20 |dum, xdu|m+1, 1, |
|000042a0| 44 69 73 70 6c 61 79 2e | 72 65 70 6c 61 63 65 29 |Display.|replace)|
|000042b0| 3b 0d 09 09 09 44 69 73 | 70 6c 61 79 2e 52 65 70 |;....Dis|play.Rep|
|000042c0| 6c 43 6f 6e 73 74 28 64 | 61 72 6b 67 72 61 79 2c |lConst(d|arkgray,|
|000042d0| 20 66 2e 53 65 69 74 65 | 6e 4f 66 66 73 65 74 2d | f.Seite|nOffset-|
|000042e0| 31 2c 20 66 2e 55 6e 74 | 65 6e 4f 66 66 73 65 74 |1, f.Unt|enOffset|
|000042f0| 2d 31 2c 20 78 64 75 6d | 2b 32 2c 20 31 2c 20 44 |-1, xdum|+2, 1, D|
|00004300| 69 73 70 6c 61 79 2e 72 | 65 70 6c 61 63 65 29 3b |isplay.r|eplace);|
|00004310| 0d 09 09 09 44 69 73 70 | 6c 61 79 2e 52 65 70 6c |....Disp|lay.Repl|
|00004320| 43 6f 6e 73 74 28 64 61 | 72 6b 67 72 61 79 2c 20 |Const(da|rkgray, |
|00004330| 66 2e 53 65 69 74 65 6e | 4f 66 66 73 65 74 2b 78 |f.Seiten|Offset+x|
|00004340| 64 75 6d 2c 20 66 2e 55 | 6e 74 65 6e 4f 66 66 73 |dum, f.U|ntenOffs|
|00004350| 65 74 2d 31 2c 20 31 2c | 20 79 64 75 6d 2b 32 2c |et-1, 1,| ydum+2,|
|00004360| 20 44 69 73 70 6c 61 79 | 2e 72 65 70 6c 61 63 65 | Display|.replace|
|00004370| 29 3b 0d 09 09 45 4c 53 | 45 0d 09 09 09 44 69 73 |);...ELS|E....Dis|
|00004380| 70 6c 61 79 2e 52 65 70 | 6c 43 6f 6e 73 74 28 44 |play.Rep|lConst(D|
|00004390| 69 73 70 6c 61 79 2e 77 | 68 69 74 65 2c 20 66 2e |isplay.w|hite, f.|
|000043a0| 53 65 69 74 65 6e 4f 66 | 66 73 65 74 2c 20 66 2e |SeitenOf|fset, f.|
|000043b0| 55 6e 74 65 6e 4f 66 66 | 73 65 74 2c 20 78 64 75 |UntenOff|set, xdu|
|000043c0| 6d 2c 20 79 64 75 6d 2c | 20 44 69 73 70 6c 61 79 |m, ydum,| Display|
|000043d0| 2e 72 65 70 6c 61 63 65 | 29 3b 0d 09 09 45 4e 44 |.replace|);...END|
|000043e0| 3b 0d 0d 09 09 46 4f 52 | 20 78 64 75 6d 3a 3d 31 |;....FOR| xdum:=1|
|000043f0| 20 54 4f 20 66 2e 64 2e | 58 4b 61 73 74 65 6e 41 | TO f.d.|XKastenA|
|00004400| 6e 7a 20 44 4f 0d 09 09 | 09 46 4f 52 20 79 64 75 |nz DO...|.FOR ydu|
|00004410| 6d 3a 3d 31 20 54 4f 20 | 66 2e 64 2e 59 4b 61 73 |m:=1 TO |f.d.YKas|
|00004420| 74 65 6e 41 6e 7a 20 44 | 4f 0d 09 09 09 09 44 72 |tenAnz D|O.....Dr|
|00004430| 61 77 4b 61 73 74 65 6e | 28 66 2c 20 78 64 75 6d |awKasten|(f, xdum|
|00004440| 2c 20 79 64 75 6d 2c 20 | 43 6f 6c 6f 72 2c 20 44 |, ydum, |Color, D|
|00004450| 69 73 70 6c 61 79 2e 77 | 68 69 74 65 29 3b 0d 09 |isplay.w|hite);..|
|00004460| 09 09 45 4e 44 3b 0d 09 | 09 45 4e 44 3b 0d 09 45 |..END;..|.END;..E|
|00004470| 4e 44 20 50 6c 6f 74 41 | 6c 6c 3b 1c 0d 0d 09 28 |ND PlotA|ll;....(|
|00004480| 2a 20 64 72 61 77 20 61 | 6c 6c 2c 20 69 66 20 66 |* draw a|ll, if f|
|00004490| 69 6e 64 69 6e 67 20 61 | 20 6d 69 6e 65 20 2a 29 |inding a| mine *)|
|000044a0| 0d 09 50 52 4f 43 45 44 | 55 52 45 20 53 77 69 74 |..PROCED|URE Swit|
|000044b0| 63 68 41 6c 6c 28 66 3a | 20 46 72 61 6d 65 3b 20 |chAll(f:| Frame; |
|000044c0| 43 6f 6c 6f 72 3a 20 42 | 4f 4f 4c 45 41 4e 3b 20 |Color: B|OOLEAN; |
|000044d0| 63 6f 6c 3a 20 49 4e 54 | 45 47 45 52 29 3b 1c 0d |col: INT|EGER);..|
|000044e0| 09 09 56 41 52 0d 09 09 | 09 78 64 75 6d 2c 20 79 |..VAR...|.xdum, y|
|000044f0| 64 75 6d 3a 20 49 4e 54 | 45 47 45 52 3b 0d 09 09 |dum: INT|EGER;...|
|00004500| 09 54 79 70 3a 20 53 48 | 4f 52 54 49 4e 54 3b 0d |.Typ: SH|ORTINT;.|
|00004510| 09 42 45 47 49 4e 0d 09 | 09 4f 62 65 72 6f 6e 2e |.BEGIN..|.Oberon.|
|00004520| 52 65 6d 6f 76 65 4d 61 | 72 6b 73 28 66 2e 58 2c |RemoveMa|rks(f.X,|
|00004530| 20 66 2e 59 2c 20 66 2e | 57 2c 20 66 2e 48 29 3b | f.Y, f.|W, f.H);|
|00004540| 0d 09 09 46 4f 52 20 78 | 64 75 6d 3a 3d 31 20 54 |...FOR x|dum:=1 T|
|00004550| 4f 20 66 2e 64 2e 58 4b | 61 73 74 65 6e 41 6e 7a |O f.d.XK|astenAnz|
|00004560| 20 44 4f 0d 09 09 09 46 | 4f 52 20 79 64 75 6d 3a | DO....F|OR ydum:|
|00004570| 3d 31 20 54 4f 20 66 2e | 64 2e 59 4b 61 73 74 65 |=1 TO f.|d.YKaste|
|00004580| 6e 41 6e 7a 20 44 4f 0d | 09 09 09 09 54 79 70 3a |nAnz DO.|....Typ:|
|00004590| 3d 66 2e 64 2e 46 65 6c | 64 5b 78 64 75 6d 2c 20 |=f.d.Fel|d[xdum, |
|000045a0| 79 64 75 6d 5d 3b 0d 09 | 09 09 09 49 46 20 54 79 |ydum];..|...IF Ty|
|000045b0| 70 3e 30 20 54 48 45 4e | 0d 09 09 09 09 09 49 46 |p>0 THEN|......IF|
|000045c0| 20 54 79 70 3d 31 30 20 | 54 48 45 4e 0d 09 09 09 | Typ=10 |THEN....|
|000045d0| 09 09 09 44 72 61 77 50 | 61 74 28 66 2c 20 78 64 |...DrawP|at(f, xd|
|000045e0| 75 6d 2c 20 79 64 75 6d | 2c 20 31 2c 20 46 41 4c |um, ydum|, 1, FAL|
|000045f0| 53 45 2c 20 43 6f 6c 6f | 72 2c 20 63 6f 6c 29 3b |SE, Colo|r, col);|
|00004600| 0d 09 09 09 09 09 45 4c | 53 49 46 20 54 79 70 3c |......EL|SIF Typ<|
|00004610| 31 30 20 54 48 45 4e 0d | 09 09 09 09 09 09 66 2e |10 THEN.|......f.|
|00004620| 64 2e 46 65 6c 64 5b 78 | 64 75 6d 2c 20 79 64 75 |d.Feld[x|dum, ydu|
|00004630| 6d 5d 3a 3d 2d 54 79 70 | 3b 0d 09 09 09 09 09 09 |m]:=-Typ|;.......|
|00004640| 44 72 61 77 4b 61 73 74 | 65 6e 28 66 2c 20 78 64 |DrawKast|en(f, xd|
|00004650| 75 6d 2c 20 79 64 75 6d | 2c 20 43 6f 6c 6f 72 2c |um, ydum|, Color,|
|00004660| 20 63 6f 6c 29 3b 0d 09 | 09 09 09 09 45 4c 53 49 | col);..|....ELSI|
|00004670| 46 20 28 54 79 70 3e 31 | 36 29 20 26 20 28 54 79 |F (Typ>1|6) & (Ty|
|00004680| 70 23 32 36 29 20 54 48 | 45 4e 0d 09 09 09 09 09 |p#26) TH|EN......|
|00004690| 09 44 72 61 77 50 61 74 | 28 66 2c 20 78 64 75 6d |.DrawPat|(f, xdum|
|000046a0| 2c 20 79 64 75 6d 2c 20 | 32 2c 20 46 41 4c 53 45 |, ydum, |2, FALSE|
|000046b0| 2c 20 43 6f 6c 6f 72 2c | 20 63 6f 6c 29 3b 0d 09 |, Color,| col);..|
|000046c0| 09 09 09 09 45 4e 44 3b | 0d 09 09 09 09 45 4e 44 |....END;|.....END|
|000046d0| 3b 0d 09 09 09 45 4e 44 | 3b 0d 09 09 45 4e 44 3b |;....END|;...END;|
|000046e0| 0d 09 45 4e 44 20 53 77 | 69 74 63 68 41 6c 6c 3b |..END Sw|itchAll;|
|000046f0| 1c 0d 0d 09 28 2a 20 74 | 65 73 74 20 69 66 20 52 |....(* t|est if R|
|00004700| 61 73 74 65 72 20 66 69 | 74 73 20 74 6f 20 66 72 |aster fi|ts to fr|
|00004710| 61 6d 65 20 2a 29 0d 09 | 50 52 4f 43 45 44 55 52 |ame *)..|PROCEDUR|
|00004720| 45 20 54 65 73 74 52 61 | 73 74 65 72 28 66 3a 20 |E TestRa|ster(f: |
|00004730| 46 72 61 6d 65 29 3a 20 | 42 4f 4f 4c 45 41 4e 3b |Frame): |BOOLEAN;|
|00004740| 1c 0d 09 09 56 41 52 0d | 09 09 09 58 4d 61 78 2c |....VAR.|...XMax,|
|00004750| 59 4d 61 78 3a 20 49 4e | 54 45 47 45 52 3b 0d 09 |YMax: IN|TEGER;..|
|00004760| 42 45 47 49 4e 0d 09 09 | 58 4d 61 78 3a 3d 28 66 |BEGIN...|XMax:=(f|
|00004770| 2e 57 2d 53 65 69 74 65 | 6e 50 6c 61 74 7a 2a 32 |.W-Seite|nPlatz*2|
|00004780| 29 20 44 49 56 20 4b 61 | 73 74 65 6e 50 6c 61 74 |) DIV Ka|stenPlat|
|00004790| 7a 3b 0d 09 09 59 4d 61 | 78 3a 3d 28 66 2e 48 2d |z;...YMa|x:=(f.H-|
|000047a0| 4f 62 65 6e 50 6c 61 74 | 7a 2d 55 6e 74 65 6e 50 |ObenPlat|z-UntenP|
|000047b0| 6c 61 74 7a 29 20 44 49 | 56 20 4b 61 73 74 65 6e |latz) DI|V Kasten|
|000047c0| 50 6c 61 74 7a 3b 0d 09 | 09 49 46 20 58 4d 61 78 |Platz;..|.IF XMax|
|000047d0| 3c 66 2e 64 2e 58 4b 61 | 73 74 65 6e 41 6e 7a 20 |<f.d.XKa|stenAnz |
|000047e0| 54 48 45 4e 20 52 45 54 | 55 52 4e 20 46 41 4c 53 |THEN RET|URN FALS|
|000047f0| 45 3b 45 4e 44 3b 0d 09 | 09 49 46 20 59 4d 61 78 |E;END;..|.IF YMax|
|00004800| 3c 66 2e 64 2e 59 4b 61 | 73 74 65 6e 41 6e 7a 20 |<f.d.YKa|stenAnz |
|00004810| 54 48 45 4e 20 52 45 54 | 55 52 4e 20 46 41 4c 53 |THEN RET|URN FALS|
|00004820| 45 3b 45 4e 44 3b 0d 09 | 09 52 45 54 55 52 4e 20 |E;END;..|.RETURN |
|00004830| 54 52 55 45 3b 0d 09 45 | 4e 44 20 54 65 73 74 52 |TRUE;..E|ND TestR|
|00004840| 61 73 74 65 72 3b 1c 0d | 0d 09 28 2a 20 63 68 65 |aster;..|..(* che|
|00004850| 63 6b 20 69 66 20 52 61 | 73 74 65 72 20 66 69 74 |ck if Ra|ster fit|
|00004860| 73 20 74 6f 20 66 72 61 | 6d 65 20 2a 29 0d 09 50 |s to fra|me *)..P|
|00004870| 52 4f 43 45 44 55 52 45 | 20 43 68 65 63 6b 52 61 |ROCEDURE| CheckRa|
|00004880| 73 74 65 72 28 66 3a 20 | 46 72 61 6d 65 29 3a 20 |ster(f: |Frame): |
|00004890| 42 4f 4f 4c 45 41 4e 3b | 1c 0d 09 09 56 41 52 0d |BOOLEAN;|....VAR.|
|000048a0| 09 09 09 58 4d 61 78 2c | 59 4d 61 78 3a 20 49 4e |...XMax,|YMax: IN|
|000048b0| 54 45 47 45 52 3b 0d 09 | 09 09 43 68 61 6e 67 65 |TEGER;..|..Change|
|000048c0| 2c 20 41 6b 74 69 76 3a | 20 42 4f 4f 4c 45 41 4e |, Aktiv:| BOOLEAN|
|000048d0| 3b 0d 09 09 09 58 41 6e | 7a 4e 65 75 2c 20 59 41 |;....XAn|zNeu, YA|
|000048e0| 6e 7a 4e 65 75 3a 20 49 | 4e 54 45 47 45 52 3b 0d |nzNeu: I|NTEGER;.|
|000048f0| 09 42 45 47 49 4e 0d 09 | 09 43 68 61 6e 67 65 3a |.BEGIN..|.Change:|
|00004900| 3d 46 41 4c 53 45 3b 41 | 6b 74 69 76 3a 3d 54 52 |=FALSE;A|ktiv:=TR|
|00004910| 55 45 3b 0d 09 09 58 4d | 61 78 3a 3d 28 66 2e 57 |UE;...XM|ax:=(f.W|
|00004920| 2d 53 65 69 74 65 6e 50 | 6c 61 74 7a 2a 32 29 20 |-SeitenP|latz*2) |
|00004930| 44 49 56 20 4b 61 73 74 | 65 6e 50 6c 61 74 7a 3b |DIV Kast|enPlatz;|
|00004940| 0d 09 09 59 4d 61 78 3a | 3d 28 66 2e 48 2d 4f 62 |...YMax:|=(f.H-Ob|
|00004950| 65 6e 50 6c 61 74 7a 2d | 55 6e 74 65 6e 50 6c 61 |enPlatz-|UntenPla|
|00004960| 74 7a 29 20 44 49 56 20 | 4b 61 73 74 65 6e 50 6c |tz) DIV |KastenPl|
|00004970| 61 74 7a 3b 0d 0d 09 09 | 49 46 20 58 4d 61 78 3c |atz;....|IF XMax<|
|00004980| 4d 69 6e 4b 61 73 74 65 | 6e 41 6e 7a 20 54 48 45 |MinKaste|nAnz THE|
|00004990| 4e 20 41 6b 74 69 76 3a | 3d 46 41 4c 53 45 3b 43 |N Aktiv:|=FALSE;C|
|000049a0| 68 61 6e 67 65 3a 3d 54 | 52 55 45 3b 45 4e 44 3b |hange:=T|RUE;END;|
|000049b0| 0d 09 09 49 46 20 59 4d | 61 78 3c 4d 69 6e 4b 61 |...IF YM|ax<MinKa|
|000049c0| 73 74 65 6e 41 6e 7a 20 | 54 48 45 4e 20 41 6b 74 |stenAnz |THEN Akt|
|000049d0| 69 76 3a 3d 46 41 4c 53 | 45 3b 43 68 61 6e 67 65 |iv:=FALS|E;Change|
|000049e0| 3a 3d 54 52 55 45 3b 45 | 4e 44 3b 0d 0d 09 09 49 |:=TRUE;E|ND;....I|
|000049f0| 46 20 58 4d 61 78 3c 66 | 2e 64 2e 58 4b 61 73 74 |F XMax<f|.d.XKast|
|00004a00| 65 6e 41 6e 7a 20 54 48 | 45 4e 0d 09 09 09 58 41 |enAnz TH|EN....XA|
|00004a10| 6e 7a 4e 65 75 3a 3d 58 | 4d 61 78 3b 43 68 61 6e |nzNeu:=X|Max;Chan|
|00004a20| 67 65 3a 3d 54 52 55 45 | 3b 0d 09 09 45 4c 53 45 |ge:=TRUE|;...ELSE|
|00004a30| 0d 09 09 09 58 41 6e 7a | 4e 65 75 3a 3d 66 2e 64 |....XAnz|Neu:=f.d|
|00004a40| 2e 58 4b 61 73 74 65 6e | 41 6e 7a 3b 0d 09 09 45 |.XKasten|Anz;...E|
|00004a50| 4e 44 3b 0d 09 09 49 46 | 20 59 4d 61 78 3c 66 2e |ND;...IF| YMax<f.|
|00004a60| 64 2e 59 4b 61 73 74 65 | 6e 41 6e 7a 20 54 48 45 |d.YKaste|nAnz THE|
|00004a70| 4e 0d 09 09 09 59 41 6e | 7a 4e 65 75 3a 3d 59 4d |N....YAn|zNeu:=YM|
|00004a80| 61 78 3b 43 68 61 6e 67 | 65 3a 3d 54 52 55 45 3b |ax;Chang|e:=TRUE;|
|00004a90| 0d 09 09 45 4c 53 45 0d | 09 09 09 59 41 6e 7a 4e |...ELSE.|...YAnzN|
|00004aa0| 65 75 3a 3d 66 2e 64 2e | 59 4b 61 73 74 65 6e 41 |eu:=f.d.|YKastenA|
|00004ab0| 6e 7a 3b 0d 09 09 45 4e | 44 3b 0d 0d 09 09 49 46 |nz;...EN|D;....IF|
|00004ac0| 20 43 68 61 6e 67 65 20 | 54 48 45 4e 0d 09 09 09 | Change |THEN....|
|00004ad0| 49 46 20 41 6b 74 69 76 | 20 54 48 45 4e 0d 09 09 |IF Aktiv| THEN...|
|00004ae0| 09 09 66 2e 64 2e 58 4b | 61 73 74 65 6e 41 6e 7a |..f.d.XK|astenAnz|
|00004af0| 3a 3d 58 41 6e 7a 4e 65 | 75 3b 66 2e 64 2e 59 4b |:=XAnzNe|u;f.d.YK|
|00004b00| 61 73 74 65 6e 41 6e 7a | 3a 3d 59 41 6e 7a 4e 65 |astenAnz|:=YAnzNe|
|00004b10| 75 3b 0d 09 09 09 09 66 | 2e 64 2e 41 6b 74 69 76 |u;.....f|.d.Aktiv|
|00004b20| 3a 3d 54 52 55 45 3b 0d | 09 09 09 45 4c 53 45 0d |:=TRUE;.|...ELSE.|
|00004b30| 09 09 09 09 66 2e 64 2e | 41 6b 74 69 76 3a 3d 46 |....f.d.|Aktiv:=F|
|00004b40| 41 4c 53 45 3b 0d 09 09 | 09 45 4e 44 3b 0d 09 09 |ALSE;...|.END;...|
|00004b50| 09 66 2e 64 2e 4d 6f 64 | 65 3a 3d 2d 31 3b 0d 09 |.f.d.Mod|e:=-1;..|
|00004b60| 09 45 4e 44 3b 0d 0d 09 | 09 52 45 54 55 52 4e 20 |.END;...|.RETURN |
|00004b70| 43 68 61 6e 67 65 3b 0d | 09 45 4e 44 20 43 68 65 |Change;.|.END Che|
|00004b80| 63 6b 52 61 73 74 65 72 | 3b 1c 0d 0d 09 28 2a 20 |ckRaster|;....(* |
|00004b90| 63 68 65 63 6b 20 69 66 | 20 66 69 65 6c 64 20 66 |check if| field f|
|00004ba0| 69 74 73 20 74 6f 20 66 | 72 61 6d 65 3b 20 69 66 |its to f|rame; if|
|00004bb0| 20 6e 6f 74 2c 20 63 72 | 65 61 74 20 6e 65 77 20 | not, cr|eat new |
|00004bc0| 66 69 65 6c 64 20 2a 29 | 0d 09 50 52 4f 43 45 44 |field *)|..PROCED|
|00004bd0| 55 52 45 20 43 61 6c 63 | 52 61 73 74 65 72 20 28 |URE Calc|Raster (|
|00004be0| 66 3a 20 46 72 61 6d 65 | 29 3a 20 42 4f 4f 4c 45 |f: Frame|): BOOLE|
|00004bf0| 41 4e 3b 1c 0d 09 09 56 | 41 52 20 70 6e 6d 73 67 |AN;....V|AR pnmsg|
|00004c00| 3a 20 50 6c 6f 74 4e 65 | 77 4d 73 67 3b 0d 09 42 |: PlotNe|wMsg;..B|
|00004c10| 45 47 49 4e 0d 09 09 49 | 46 20 43 68 65 63 6b 52 |EGIN...I|F CheckR|
|00004c20| 61 73 74 65 72 28 66 29 | 20 54 48 45 4e 0d 09 09 |aster(f)| THEN...|
|00004c30| 09 70 6e 6d 73 67 2e 64 | 3a 3d 66 2e 64 3b 0d 09 |.pnmsg.d|:=f.d;..|
|00004c40| 09 09 49 46 20 66 2e 64 | 2e 41 6b 74 69 76 20 54 |..IF f.d|.Aktiv T|
|00004c50| 48 45 4e 0d 09 09 09 09 | 4e 65 75 65 73 46 65 6c |HEN.....|NeuesFel|
|00004c60| 64 28 66 2e 64 2c 20 66 | 2e 64 2e 58 4b 61 73 74 |d(f.d, f|.d.XKast|
|00004c70| 65 6e 41 6e 7a 2c 20 66 | 2e 64 2e 59 4b 61 73 74 |enAnz, f|.d.YKast|
|00004c80| 65 6e 41 6e 7a 29 3b 0d | 09 09 09 45 4e 44 3b 0d |enAnz);.|...END;.|
|00004c90| 09 09 09 66 2e 64 2e 53 | 74 61 72 74 50 6c 61 79 |...f.d.S|tartPlay|
|00004ca0| 3a 3d 46 41 4c 53 45 3b | 0d 09 09 09 56 69 65 77 |:=FALSE;|....View|
|00004cb0| 65 72 73 2e 42 72 6f 61 | 64 63 61 73 74 28 70 6e |ers.Broa|dcast(pn|
|00004cc0| 6d 73 67 29 3b 0d 09 09 | 09 52 45 54 55 52 4e 20 |msg);...|.RETURN |
|00004cd0| 54 52 55 45 3b 0d 09 09 | 45 4c 53 45 0d 09 09 09 |TRUE;...|ELSE....|
|00004ce0| 52 45 54 55 52 4e 20 46 | 41 4c 53 45 3b 0d 09 09 |RETURN F|ALSE;...|
|00004cf0| 45 4e 44 3b 0d 09 45 4e | 44 20 43 61 6c 63 52 61 |END;..EN|D CalcRa|
|00004d00| 73 74 65 72 3b 1c 0d 0d | 09 28 2a 20 73 65 61 72 |ster;...|.(* sear|
|00004d10| 63 68 20 62 6f 78 65 73 | 20 77 69 74 68 20 6e 6f |ch boxes| with no|
|00004d20| 20 6d 69 6e 65 20 6f 6e | 20 69 74 20 2a 29 0d 09 | mine on| it *)..|
|00004d30| 50 52 4f 43 45 44 55 52 | 45 20 53 65 61 72 63 68 |PROCEDUR|E Search|
|00004d40| 4d 6f 72 65 28 64 3a 20 | 44 61 74 61 3b 20 78 2c |More(d: |Data; x,|
|00004d50| 20 79 3a 20 49 4e 54 45 | 47 45 52 29 3b 1c 0d 09 | y: INTE|GER);...|
|00004d60| 09 56 41 52 0d 09 09 09 | 44 75 6d 6d 79 3a 20 53 |.VAR....|Dummy: S|
|00004d70| 48 4f 52 54 49 4e 54 3b | 0d 09 09 09 70 6b 6d 73 |HORTINT;|....pkms|
|00004d80| 67 3a 20 50 6c 6f 74 4b | 61 73 74 65 6e 4d 73 67 |g: PlotK|astenMsg|
|00004d90| 3b 0d 09 42 45 47 49 4e | 0d 09 09 49 46 20 28 78 |;..BEGIN|...IF (x|
|00004da0| 3d 30 29 20 4f 52 20 28 | 79 3d 30 29 20 4f 52 20 |=0) OR (|y=0) OR |
|00004db0| 28 78 3e 64 2e 58 4b 61 | 73 74 65 6e 41 6e 7a 29 |(x>d.XKa|stenAnz)|
|00004dc0| 20 4f 52 20 28 79 3e 64 | 2e 59 4b 61 73 74 65 6e | OR (y>d|.YKasten|
|00004dd0| 41 6e 7a 29 20 54 48 45 | 4e 20 52 45 54 55 52 4e |Anz) THE|N RETURN|
|00004de0| 3b 45 4e 44 3b 0d 09 09 | 44 75 6d 6d 79 3a 3d 64 |;END;...|Dummy:=d|
|00004df0| 2e 46 65 6c 64 5b 78 2c | 20 79 5d 3b 0d 09 09 49 |.Feld[x,| y];...I|
|00004e00| 46 20 28 44 75 6d 6d 79 | 3c 30 29 20 4f 52 20 28 |F (Dummy|<0) OR (|
|00004e10| 44 75 6d 6d 79 3e 39 29 | 20 54 48 45 4e 20 52 45 |Dummy>9)| THEN RE|
|00004e20| 54 55 52 4e 3b 45 4e 44 | 3b 0d 09 09 44 45 43 20 |TURN;END|;...DEC |
|00004e30| 28 64 2e 43 6f 75 6e 74 | 29 3b 0d 09 09 64 2e 46 |(d.Count|);...d.F|
|00004e40| 65 6c 64 5b 78 2c 20 79 | 5d 3a 3d 2d 44 75 6d 6d |eld[x, y|]:=-Dumm|
|00004e50| 79 3b 0d 09 09 70 6b 6d | 73 67 2e 64 3a 3d 64 3b |y;...pkm|sg.d:=d;|
|00004e60| 0d 09 09 70 6b 6d 73 67 | 2e 78 3a 3d 78 3b 70 6b |...pkmsg|.x:=x;pk|
|00004e70| 6d 73 67 2e 79 3a 3d 79 | 3b 0d 09 09 56 69 65 77 |msg.y:=y|;...View|
|00004e80| 65 72 73 2e 42 72 6f 61 | 64 63 61 73 74 28 70 6b |ers.Broa|dcast(pk|
|00004e90| 6d 73 67 29 3b 0d 09 09 | 49 46 20 44 75 6d 6d 79 |msg);...|IF Dummy|
|00004ea0| 3d 31 20 54 48 45 4e 0d | 09 09 09 53 65 61 72 63 |=1 THEN.|...Searc|
|00004eb0| 68 4d 6f 72 65 28 64 2c | 20 78 2b 31 2c 20 79 29 |hMore(d,| x+1, y)|
|00004ec0| 3b 53 65 61 72 63 68 4d | 6f 72 65 28 64 2c 20 78 |;SearchM|ore(d, x|
|00004ed0| 2b 31 2c 20 79 2b 31 29 | 3b 0d 09 09 09 53 65 61 |+1, y+1)|;....Sea|
|00004ee0| 72 63 68 4d 6f 72 65 28 | 64 2c 20 78 2c 79 2b 31 |rchMore(|d, x,y+1|
|00004ef0| 29 3b 53 65 61 72 63 68 | 4d 6f 72 65 28 64 2c 20 |);Search|More(d, |
|00004f00| 78 2d 31 2c 20 79 2b 31 | 29 3b 0d 09 09 09 53 65 |x-1, y+1|);....Se|
|00004f10| 61 72 63 68 4d 6f 72 65 | 28 64 2c 20 78 2d 31 2c |archMore|(d, x-1,|
|00004f20| 20 79 29 3b 53 65 61 72 | 63 68 4d 6f 72 65 28 64 | y);Sear|chMore(d|
|00004f30| 2c 20 78 2d 31 2c 20 79 | 2d 31 29 3b 0d 09 09 09 |, x-1, y|-1);....|
|00004f40| 53 65 61 72 63 68 4d 6f | 72 65 28 64 2c 20 78 2c |SearchMo|re(d, x,|
|00004f50| 20 79 2d 31 29 3b 53 65 | 61 72 63 68 4d 6f 72 65 | y-1);Se|archMore|
|00004f60| 28 64 2c 20 78 2b 31 2c | 20 79 2d 31 29 3b 0d 09 |(d, x+1,| y-1);..|
|00004f70| 09 45 4e 44 3b 0d 09 45 | 4e 44 20 53 65 61 72 63 |.END;..E|ND Searc|
|00004f80| 68 4d 6f 72 65 3b 1c 0d | 0d 09 28 2a 20 6e 65 77 |hMore;..|..(* new|
|00004f90| 20 48 49 53 63 6f 72 65 | 20 3f 20 2a 29 0d 09 50 | HIScore| ? *)..P|
|00004fa0| 52 4f 43 45 44 55 52 45 | 20 43 68 65 63 6b 48 69 |ROCEDURE| CheckHi|
|00004fb0| 53 63 6f 72 65 28 64 3a | 20 44 61 74 61 29 3b 1c |Score(d:| Data);.|
|00004fc0| 0d 09 42 45 47 49 4e 0d | 09 09 49 46 20 64 2e 4d |..BEGIN.|..IF d.M|
|00004fd0| 6f 64 65 3e 2d 31 20 54 | 48 45 4e 0d 09 09 09 49 |ode>-1 T|HEN....I|
|00004fe0| 46 20 64 2e 54 69 6d 65 | 3c 48 69 53 63 6f 72 65 |F d.Time|<HiScore|
|00004ff0| 5b 64 2e 4d 6f 64 65 5d | 2e 54 69 6d 65 20 54 48 |[d.Mode]|.Time TH|
|00005000| 45 4e 0d 09 09 09 09 54 | 65 78 74 73 2e 57 72 69 |EN.....T|exts.Wri|
|00005010| 74 65 53 74 72 69 6e 67 | 28 57 2c 20 22 4e 65 77 |teString|(W, "New|
|00005020| 20 48 69 2d 53 63 6f 72 | 65 20 21 21 21 22 29 3b | Hi-Scor|e !!!");|
|00005030| 54 65 78 74 73 2e 57 72 | 69 74 65 4c 6e 28 57 29 |Texts.Wr|iteLn(W)|
|00005040| 3b 0d 09 09 09 09 54 65 | 78 74 73 2e 41 70 70 65 |;.....Te|xts.Appe|
|00005050| 6e 64 28 4f 62 65 72 6f | 6e 2e 4c 6f 67 2c 20 57 |nd(Obero|n.Log, W|
|00005060| 2e 62 75 66 29 3b 0d 09 | 09 09 09 48 69 53 63 6f |.buf);..|...HiSco|
|00005070| 72 65 5b 64 2e 4d 6f 64 | 65 5d 2e 54 69 6d 65 3a |re[d.Mod|e].Time:|
|00005080| 3d 64 2e 54 69 6d 65 3b | 0d 09 09 09 09 48 69 53 |=d.Time;|.....HiS|
|00005090| 63 6f 72 65 5b 64 2e 4d | 6f 64 65 5d 2e 4e 61 6d |core[d.M|ode].Nam|
|000050a0| 65 3a 3d 4e 61 6d 65 3b | 0d 09 09 09 09 53 61 76 |e:=Name;|.....Sav|
|000050b0| 65 48 69 28 46 41 4c 53 | 45 29 3b 0d 09 09 09 45 |eHi(FALS|E);....E|
|000050c0| 4e 44 3b 0d 09 09 45 4e | 44 3b 0d 09 45 4e 44 20 |ND;...EN|D;..END |
|000050d0| 43 68 65 63 6b 48 69 53 | 63 6f 72 65 3b 1c 0d 09 |CheckHiS|core;...|
|000050e0| 0d 09 28 2a 20 61 6c 6c | 20 4d 69 6e 65 73 20 66 |..(* all| Mines f|
|000050f0| 6f 75 6e 64 20 2a 29 0d | 09 50 52 4f 43 45 44 55 |ound *).|.PROCEDU|
|00005100| 52 45 20 47 6f 74 49 74 | 28 66 3a 20 46 72 61 6d |RE GotIt|(f: Fram|
|00005110| 65 29 3b 1c 0d 09 09 56 | 41 52 20 58 50 6f 73 2c |e);....V|AR XPos,|
|00005120| 20 59 50 6f 73 3a 20 49 | 4e 54 45 47 45 52 3b 0d | YPos: I|NTEGER;.|
|00005130| 09 42 45 47 49 4e 0d 09 | 09 59 50 6f 73 3a 3d 66 |.BEGIN..|.YPos:=f|
|00005140| 2e 59 2b 66 2e 48 2d 4f | 62 65 6e 50 6c 61 74 7a |.Y+f.H-O|benPlatz|
|00005150| 2b 34 3b 0d 09 09 58 50 | 6f 73 3a 3d 28 66 2e 57 |+4;...XP|os:=(f.W|
|00005160| 20 44 49 56 20 32 29 2d | 39 2b 66 2e 58 3b 0d 09 | DIV 2)-|9+f.X;..|
|00005170| 09 44 69 73 70 6c 61 79 | 2e 43 6f 70 79 50 61 74 |.Display|.CopyPat|
|00005180| 74 65 72 6e 28 62 6c 61 | 63 6b 2c 20 47 6f 74 49 |tern(bla|ck, GotI|
|00005190| 74 50 61 74 2c 20 58 50 | 6f 73 2b 31 2c 20 59 50 |tPat, XP|os+1, YP|
|000051a0| 6f 73 2b 31 2c 20 44 69 | 73 70 6c 61 79 2e 70 61 |os+1, Di|splay.pa|
|000051b0| 69 6e 74 29 3b 0d 09 09 | 66 2e 64 2e 4d 69 6e 65 |int);...|f.d.Mine|
|000051c0| 73 3a 3d 30 3b 44 72 61 | 77 4d 69 6e 65 73 54 6f |s:=0;Dra|wMinesTo|
|000051d0| 46 69 6e 64 28 66 29 3b | 0d 09 45 4e 44 20 47 6f |Find(f);|..END Go|
|000051e0| 74 49 74 3b 1c 0d 0d 09 | 28 2a 20 73 77 69 74 63 |tIt;....|(* switc|
|000051f0| 68 20 66 69 65 6c 64 20 | 2a 29 0d 09 50 52 4f 43 |h field |*)..PROC|
|00005200| 45 44 55 52 45 20 53 77 | 69 74 63 68 4b 61 73 74 |EDURE Sw|itchKast|
|00005210| 65 6e 28 66 3a 20 46 72 | 61 6d 65 3b 20 58 4b 61 |en(f: Fr|ame; XKa|
|00005220| 73 74 65 6e 2c 20 59 4b | 61 73 74 65 6e 3a 20 49 |sten, YK|asten: I|
|00005230| 4e 54 45 47 45 52 3b 20 | 43 6f 6c 6f 72 3a 20 42 |NTEGER; |Color: B|
|00005240| 4f 4f 4c 45 41 4e 3b 20 | 63 6f 6c 3a 20 49 4e 54 |OOLEAN; |col: INT|
|00005250| 45 47 45 52 29 3b 1c 0d | 09 09 56 41 52 0d 09 09 |EGER);..|..VAR...|
|00005260| 09 74 69 6d 73 67 3a 20 | 54 69 6d 65 4d 73 67 3b |.timsg: |TimeMsg;|
|00005270| 0d 09 09 09 70 6b 6d 73 | 67 3a 20 50 6c 6f 74 4b |....pkms|g: PlotK|
|00005280| 61 73 74 65 6e 4d 73 67 | 3b 0d 09 09 09 44 75 6d |astenMsg|;....Dum|
|00005290| 6d 79 3a 20 53 48 4f 52 | 54 49 4e 54 3b 0d 09 42 |my: SHOR|TINT;..B|
|000052a0| 45 47 49 4e 0d 09 09 49 | 46 20 7e 66 2e 64 2e 41 |EGIN...I|F ~f.d.A|
|000052b0| 6b 74 69 76 20 54 48 45 | 4e 20 52 45 54 55 52 4e |ktiv THE|N RETURN|
|000052c0| 3b 20 45 4e 44 3b 0d 09 | 09 44 75 6d 6d 79 3a 3d |; END;..|.Dummy:=|
|000052d0| 66 2e 64 2e 46 65 6c 64 | 5b 58 4b 61 73 74 65 6e |f.d.Feld|[XKasten|
|000052e0| 2c 20 59 4b 61 73 74 65 | 6e 5d 3b 0d 09 09 49 46 |, YKaste|n];...IF|
|000052f0| 20 28 44 75 6d 6d 79 3e | 30 29 20 26 20 28 44 75 | (Dummy>|0) & (Du|
|00005300| 6d 6d 79 3c 31 36 29 20 | 54 48 45 4e 0d 09 09 09 |mmy<16) |THEN....|
|00005310| 70 6b 6d 73 67 2e 64 3a | 3d 66 2e 64 3b 0d 09 09 |pkmsg.d:|=f.d;...|
|00005320| 09 70 6b 6d 73 67 2e 78 | 3a 3d 58 4b 61 73 74 65 |.pkmsg.x|:=XKaste|
|00005330| 6e 3b 70 6b 6d 73 67 2e | 79 3a 3d 59 4b 61 73 74 |n;pkmsg.|y:=YKast|
|00005340| 65 6e 3b 0d 09 09 09 49 | 46 20 44 75 6d 6d 79 3d |en;....I|F Dummy=|
|00005350| 31 30 20 54 48 45 4e 0d | 09 09 09 09 66 2e 64 2e |10 THEN.|....f.d.|
|00005360| 46 65 6c 64 5b 58 4b 61 | 73 74 65 6e 2c 20 59 4b |Feld[XKa|sten, YK|
|00005370| 61 73 74 65 6e 5d 3a 3d | 2d 31 30 3b 0d 09 09 09 |asten]:=|-10;....|
|00005380| 09 66 2e 64 2e 41 6b 74 | 69 76 3a 3d 46 41 4c 53 |.f.d.Akt|iv:=FALS|
|00005390| 45 3b 0d 09 09 09 09 53 | 77 69 74 63 68 41 6c 6c |E;.....S|witchAll|
|000053a0| 28 66 2c 20 43 6f 6c 6f | 72 2c 20 63 6f 6c 29 3b |(f, Colo|r, col);|
|000053b0| 0d 09 09 09 09 56 69 65 | 77 65 72 73 2e 42 72 6f |.....Vie|wers.Bro|
|000053c0| 61 64 63 61 73 74 28 70 | 6b 6d 73 67 29 3b 0d 09 |adcast(p|kmsg);..|
|000053d0| 09 09 45 4c 53 45 0d 09 | 09 09 09 49 46 20 44 75 |..ELSE..|...IF Du|
|000053e0| 6d 6d 79 3d 31 20 54 48 | 45 4e 0d 09 09 09 09 09 |mmy=1 TH|EN......|
|000053f0| 53 65 61 72 63 68 4d 6f | 72 65 28 66 2e 64 2c 20 |SearchMo|re(f.d, |
|00005400| 58 4b 61 73 74 65 6e 2c | 20 59 4b 61 73 74 65 6e |XKasten,| YKasten|
|00005410| 29 3b 0d 09 09 09 09 45 | 4c 53 45 0d 09 09 09 09 |);.....E|LSE.....|
|00005420| 09 66 2e 64 2e 46 65 6c | 64 5b 58 4b 61 73 74 65 |.f.d.Fel|d[XKaste|
|00005430| 6e 2c 20 59 4b 61 73 74 | 65 6e 5d 3a 3d 2d 44 75 |n, YKast|en]:=-Du|
|00005440| 6d 6d 79 3b 0d 09 09 09 | 09 09 44 45 43 28 66 2e |mmy;....|..DEC(f.|
|00005450| 64 2e 43 6f 75 6e 74 29 | 3b 0d 09 09 09 09 09 56 |d.Count)|;......V|
|00005460| 69 65 77 65 72 73 2e 42 | 72 6f 61 64 63 61 73 74 |iewers.B|roadcast|
|00005470| 28 70 6b 6d 73 67 29 3b | 0d 09 09 09 09 45 4e 44 |(pkmsg);|.....END|
|00005480| 3b 0d 09 09 09 09 49 46 | 20 66 2e 64 2e 43 6f 75 |;.....IF| f.d.Cou|
|00005490| 6e 74 3d 30 20 54 48 45 | 4e 0d 09 09 09 09 09 4c |nt=0 THE|N......L|
|000054a0| 61 73 74 54 69 6d 65 3a | 3d 49 6e 70 75 74 2e 54 |astTime:|=Input.T|
|000054b0| 69 6d 65 28 29 2d 31 3b | 0d 09 09 09 09 09 74 69 |ime()-1;|......ti|
|000054c0| 6d 73 67 2e 69 64 3a 3d | 53 74 61 72 74 54 69 6d |msg.id:=|StartTim|
|000054d0| 65 3b 0d 09 09 09 09 09 | 74 69 6d 73 67 2e 43 6f |e;......|timsg.Co|
|000054e0| 75 6e 74 3a 3d 30 3b 0d | 09 09 09 09 09 56 69 65 |unt:=0;.|.....Vie|
|000054f0| 77 65 72 73 2e 42 72 6f | 61 64 63 61 73 74 28 74 |wers.Bro|adcast(t|
|00005500| 69 6d 73 67 29 3b 0d 09 | 09 09 09 09 66 2e 64 2e |imsg);..|....f.d.|
|00005510| 41 6b 74 69 76 3a 3d 46 | 41 4c 53 45 3b 0d 09 09 |Aktiv:=F|ALSE;...|
|00005520| 09 09 09 66 2e 64 2e 54 | 69 6d 65 3a 3d 28 49 6e |...f.d.T|ime:=(In|
|00005530| 70 75 74 2e 54 69 6d 65 | 28 29 2d 66 2e 64 2e 54 |put.Time|()-f.d.T|
|00005540| 69 6d 65 29 20 44 49 56 | 20 49 6e 70 75 74 2e 54 |ime) DIV| Input.T|
|00005550| 69 6d 65 55 6e 69 74 3b | 0d 09 09 09 09 09 43 68 |imeUnit;|......Ch|
|00005560| 65 63 6b 48 69 53 63 6f | 72 65 28 66 2e 64 29 3b |eckHiSco|re(f.d);|
|00005570| 0d 09 09 09 09 45 4e 44 | 3b 0d 09 09 09 45 4e 44 |.....END|;....END|
|00005580| 3b 0d 09 09 45 4e 44 3b | 0d 09 45 4e 44 20 53 77 |;...END;|..END Sw|
|00005590| 69 74 63 68 4b 61 73 74 | 65 6e 3b 1c 0d 0d 09 28 |itchKast|en;....(|
|000055a0| 2a 20 72 65 61 63 74 20 | 6f 6e 20 6d 6f 75 73 65 |* react |on mouse|
|000055b0| 20 6b 65 79 73 20 2a 29 | 0d 09 50 52 4f 43 45 44 | keys *)|..PROCED|
|000055c0| 55 52 45 20 4d 6f 75 73 | 65 4b 65 79 73 2a 28 66 |URE Mous|eKeys*(f|
|000055d0| 3a 20 46 72 61 6d 65 3b | 20 58 4b 61 73 74 65 6e |: Frame;| XKasten|
|000055e0| 2c 20 59 4b 61 73 74 65 | 6e 3a 20 49 4e 54 45 47 |, YKaste|n: INTEG|
|000055f0| 45 52 3b 20 4b 65 79 3a | 20 53 45 54 3b 20 43 6f |ER; Key:| SET; Co|
|00005600| 6c 6f 72 3a 20 42 4f 4f | 4c 45 41 4e 3b 20 63 6f |lor: BOO|LEAN; co|
|00005610| 6c 3a 20 49 4e 54 45 47 | 45 52 29 3b 1c 0d 09 09 |l: INTEG|ER);....|
|00005620| 56 41 52 0d 09 09 09 44 | 75 6d 6d 79 3a 20 53 48 |VAR....D|ummy: SH|
|00005630| 4f 52 54 49 4e 54 3b 0d | 09 09 09 70 6b 6d 73 67 |ORTINT;.|...pkmsg|
|00005640| 3a 20 50 6c 6f 74 4b 61 | 73 74 65 6e 4d 73 67 3b |: PlotKa|stenMsg;|
|00005650| 0d 09 42 45 47 49 4e 0d | 09 09 44 75 6d 6d 79 3a |..BEGIN.|..Dummy:|
|00005660| 3d 66 2e 64 2e 46 65 6c | 64 5b 58 4b 61 73 74 65 |=f.d.Fel|d[XKaste|
|00005670| 6e 2c 20 59 4b 61 73 74 | 65 6e 5d 3b 0d 09 09 70 |n, YKast|en];...p|
|00005680| 6b 6d 73 67 2e 64 3a 3d | 66 2e 64 3b 0d 09 09 70 |kmsg.d:=|f.d;...p|
|00005690| 6b 6d 73 67 2e 78 3a 3d | 58 4b 61 73 74 65 6e 3b |kmsg.x:=|XKasten;|
|000056a0| 70 6b 6d 73 67 2e 79 3a | 3d 59 4b 61 73 74 65 6e |pkmsg.y:|=YKasten|
|000056b0| 3b 0d 09 09 49 46 20 4b | 65 79 3d 7b 32 7d 20 54 |;...IF K|ey={2} T|
|000056c0| 48 45 4e 0d 09 09 09 49 | 46 20 7e 66 2e 64 2e 53 |HEN....I|F ~f.d.S|
|000056d0| 74 61 72 74 50 6c 61 79 | 20 54 48 45 4e 0d 09 09 |tartPlay| THEN...|
|000056e0| 09 09 66 2e 64 2e 53 74 | 61 72 74 50 6c 61 79 3a |..f.d.St|artPlay:|
|000056f0| 3d 54 52 55 45 3b 0d 09 | 09 09 09 66 2e 64 2e 54 |=TRUE;..|...f.d.T|
|00005700| 69 6d 65 3a 3d 49 6e 70 | 75 74 2e 54 69 6d 65 28 |ime:=Inp|ut.Time(|
|00005710| 29 3b 0d 09 09 09 45 4e | 44 3b 0d 09 09 09 53 77 |);....EN|D;....Sw|
|00005720| 69 74 63 68 4b 61 73 74 | 65 6e 28 66 2c 20 58 4b |itchKast|en(f, XK|
|00005730| 61 73 74 65 6e 2c 20 59 | 4b 61 73 74 65 6e 2c 20 |asten, Y|Kasten, |
|00005740| 43 6f 6c 6f 72 2c 20 63 | 6f 6c 29 3b 0d 09 09 45 |Color, c|ol);...E|
|00005750| 4c 53 49 46 20 4b 65 79 | 3d 7b 30 7d 20 54 48 45 |LSIF Key|={0} THE|
|00005760| 4e 0d 09 09 09 49 46 20 | 44 75 6d 6d 79 3e 30 20 |N....IF |Dummy>0 |
|00005770| 54 48 45 4e 0d 09 09 09 | 09 49 46 20 44 75 6d 6d |THEN....|.IF Dumm|
|00005780| 79 3c 31 36 20 54 48 45 | 4e 0d 09 09 09 09 09 66 |y<16 THE|N......f|
|00005790| 2e 64 2e 46 65 6c 64 5b | 58 4b 61 73 74 65 6e 2c |.d.Feld[|XKasten,|
|000057a0| 20 59 4b 61 73 74 65 6e | 5d 3a 3d 44 75 6d 6d 79 | YKasten|]:=Dummy|
|000057b0| 2b 31 36 3b 0d 09 09 09 | 09 09 66 2e 64 2e 4d 69 |+16;....|..f.d.Mi|
|000057c0| 6e 65 73 3a 3d 66 2e 64 | 2e 4d 69 6e 65 73 2d 31 |nes:=f.d|.Mines-1|
|000057d0| 3b 0d 09 09 09 09 45 4c | 53 45 0d 09 09 09 09 09 |;.....EL|SE......|
|000057e0| 66 2e 64 2e 46 65 6c 64 | 5b 58 4b 61 73 74 65 6e |f.d.Feld|[XKasten|
|000057f0| 2c 20 59 4b 61 73 74 65 | 6e 5d 3a 3d 44 75 6d 6d |, YKaste|n]:=Dumm|
|00005800| 79 2d 31 36 3b 0d 09 09 | 09 09 09 66 2e 64 2e 4d |y-16;...|...f.d.M|
|00005810| 69 6e 65 73 3a 3d 66 2e | 64 2e 4d 69 6e 65 73 2b |ines:=f.|d.Mines+|
|00005820| 31 3b 0d 09 09 09 09 45 | 4e 44 3b 0d 09 09 09 09 |1;.....E|ND;.....|
|00005830| 56 69 65 77 65 72 73 2e | 42 72 6f 61 64 63 61 73 |Viewers.|Broadcas|
|00005840| 74 28 70 6b 6d 73 67 29 | 3b 0d 09 09 09 45 4e 44 |t(pkmsg)|;....END|
|00005850| 3b 0d 09 09 45 4c 53 49 | 46 20 4b 65 79 3d 7b 30 |;...ELSI|F Key={0|
|00005860| 2c 32 7d 20 54 48 45 4e | 0d 09 09 09 49 46 20 44 |,2} THEN|....IF D|
|00005870| 75 6d 6d 79 3c 30 20 54 | 48 45 4e 0d 09 09 09 09 |ummy<0 T|HEN.....|
|00005880| 49 46 20 7e 66 2e 64 2e | 53 74 61 72 74 50 6c 61 |IF ~f.d.|StartPla|
|00005890| 79 20 54 48 45 4e 0d 09 | 09 09 09 09 66 2e 64 2e |y THEN..|....f.d.|
|000058a0| 53 74 61 72 74 50 6c 61 | 79 3a 3d 54 52 55 45 3b |StartPla|y:=TRUE;|
|000058b0| 0d 09 09 09 09 09 66 2e | 64 2e 54 69 6d 65 3a 3d |......f.|d.Time:=|
|000058c0| 49 6e 70 75 74 2e 54 69 | 6d 65 28 29 3b 0d 09 09 |Input.Ti|me();...|
|000058d0| 09 09 45 4e 44 3b 0d 09 | 09 09 09 53 77 69 74 63 |..END;..|...Switc|
|000058e0| 68 4b 61 73 74 65 6e 28 | 66 2c 20 58 4b 61 73 74 |hKasten(|f, XKast|
|000058f0| 65 6e 2b 31 2c 20 59 4b | 61 73 74 65 6e 2c 20 43 |en+1, YK|asten, C|
|00005900| 6f 6c 6f 72 2c 20 63 6f | 6c 29 3b 0d 09 09 09 09 |olor, co|l);.....|
|00005910| 53 77 69 74 63 68 4b 61 | 73 74 65 6e 28 66 2c 20 |SwitchKa|sten(f, |
|00005920| 58 4b 61 73 74 65 6e 2b | 31 2c 20 59 4b 61 73 74 |XKasten+|1, YKast|
|00005930| 65 6e 2d 31 2c 20 43 6f | 6c 6f 72 2c 20 63 6f 6c |en-1, Co|lor, col|
|00005940| 29 3b 0d 09 09 09 09 53 | 77 69 74 63 68 4b 61 73 |);.....S|witchKas|
|00005950| 74 65 6e 28 66 2c 20 58 | 4b 61 73 74 65 6e 2c 20 |ten(f, X|Kasten, |
|00005960| 59 4b 61 73 74 65 6e 2d | 31 2c 20 43 6f 6c 6f 72 |YKasten-|1, Color|
|00005970| 2c 20 63 6f 6c 29 3b 0d | 09 09 09 09 53 77 69 74 |, col);.|....Swit|
|00005980| 63 68 4b 61 73 74 65 6e | 28 66 2c 20 58 4b 61 73 |chKasten|(f, XKas|
|00005990| 74 65 6e 2d 31 2c 20 59 | 4b 61 73 74 65 6e 2d 31 |ten-1, Y|Kasten-1|
|000059a0| 2c 20 43 6f 6c 6f 72 2c | 20 63 6f 6c 29 3b 0d 09 |, Color,| col);..|
|000059b0| 09 09 09 53 77 69 74 63 | 68 4b 61 73 74 65 6e 28 |...Switc|hKasten(|
|000059c0| 66 2c 20 58 4b 61 73 74 | 65 6e 2d 31 2c 20 59 4b |f, XKast|en-1, YK|
|000059d0| 61 73 74 65 6e 2c 20 43 | 6f 6c 6f 72 2c 20 63 6f |asten, C|olor, co|
|000059e0| 6c 29 3b 0d 09 09 09 09 | 53 77 69 74 63 68 4b 61 |l);.....|SwitchKa|
|000059f0| 73 74 65 6e 28 66 2c 20 | 58 4b 61 73 74 65 6e 2d |sten(f, |XKasten-|
|00005a00| 31 2c 20 59 4b 61 73 74 | 65 6e 2b 31 2c 20 43 6f |1, YKast|en+1, Co|
|00005a10| 6c 6f 72 2c 20 63 6f 6c | 29 3b 0d 09 09 09 09 53 |lor, col|);.....S|
|00005a20| 77 69 74 63 68 4b 61 73 | 74 65 6e 28 66 2c 20 58 |witchKas|ten(f, X|
|00005a30| 4b 61 73 74 65 6e 2c 20 | 59 4b 61 73 74 65 6e 2b |Kasten, |YKasten+|
|00005a40| 31 2c 20 43 6f 6c 6f 72 | 2c 20 63 6f 6c 29 3b 0d |1, Color|, col);.|
|00005a50| 09 09 09 09 53 77 69 74 | 63 68 4b 61 73 74 65 6e |....Swit|chKasten|
|00005a60| 28 66 2c 20 58 4b 61 73 | 74 65 6e 2b 31 2c 20 59 |(f, XKas|ten+1, Y|
|00005a70| 4b 61 73 74 65 6e 2b 31 | 2c 20 43 6f 6c 6f 72 2c |Kasten+1|, Color,|
|00005a80| 20 63 6f 6c 29 3b 0d 09 | 09 09 45 4e 44 3b 0d 09 | col);..|..END;..|
|00005a90| 09 45 4e 44 3b 0d 09 45 | 4e 44 20 4d 6f 75 73 65 |.END;..E|ND Mouse|
|00005aa0| 4b 65 79 73 3b 1c 0d 09 | 0d 09 28 2a 20 67 65 74 |Keys;...|..(* get|
|00005ab0| 20 73 65 6c 65 63 74 65 | 64 20 66 72 61 6d 65 20 | selecte|d frame |
|00005ac0| 2a 29 09 0d 09 50 52 4f | 43 45 44 55 52 45 20 47 |*)...PRO|CEDURE G|
|00005ad0| 65 74 46 72 61 6d 65 28 | 56 41 52 20 66 3a 20 44 |etFrame(|VAR f: D|
|00005ae0| 69 73 70 6c 61 79 2e 46 | 72 61 6d 65 29 3a 20 42 |isplay.F|rame): B|
|00005af0| 4f 4f 4c 45 41 4e 3b 1c | 0d 09 09 56 41 52 20 76 |OOLEAN;.|...VAR v|
|00005b00| 3a 20 56 69 65 77 65 72 | 73 2e 56 69 65 77 65 72 |: Viewer|s.Viewer|
|00005b10| 3b 0d 09 42 45 47 49 4e | 0d 09 09 49 46 20 4f 62 |;..BEGIN|...IF Ob|
|00005b20| 65 72 6f 6e 2e 50 61 72 | 2e 66 72 61 6d 65 3d 4f |eron.Par|.frame=O|
|00005b30| 62 65 72 6f 6e 2e 50 61 | 72 2e 76 77 72 2e 64 73 |beron.Pa|r.vwr.ds|
|00005b40| 63 20 54 48 45 4e 0d 09 | 09 09 49 46 20 28 4f 62 |c THEN..|..IF (Ob|
|00005b50| 65 72 6f 6e 2e 50 61 72 | 2e 66 72 61 6d 65 20 23 |eron.Par|.frame #|
|00005b60| 20 4e 49 4c 29 20 54 48 | 45 4e 0d 09 09 09 09 66 | NIL) TH|EN.....f|
|00005b70| 3a 3d 4f 62 65 72 6f 6e | 2e 50 61 72 2e 66 72 61 |:=Oberon|.Par.fra|
|00005b80| 6d 65 2e 6e 65 78 74 3b | 0d 09 09 09 09 52 45 54 |me.next;|.....RET|
|00005b90| 55 52 4e 20 54 52 55 45 | 3b 0d 09 09 09 45 4e 44 |URN TRUE|;....END|
|00005ba0| 3b 0d 09 09 45 4c 53 45 | 0d 09 09 09 76 3a 3d 4f |;...ELSE|....v:=O|
|00005bb0| 62 65 72 6f 6e 2e 4d 61 | 72 6b 65 64 56 69 65 77 |beron.Ma|rkedView|
|00005bc0| 65 72 28 29 3b 0d 09 09 | 09 49 46 20 28 76 2e 64 |er();...|.IF (v.d|
|00005bd0| 73 63 20 23 20 4e 49 4c | 29 20 26 20 28 76 2e 64 |sc # NIL|) & (v.d|
|00005be0| 73 63 2e 6e 65 78 74 20 | 23 20 4e 49 4c 29 20 54 |sc.next |# NIL) T|
|00005bf0| 48 45 4e 0d 09 09 09 09 | 66 3a 3d 76 2e 64 73 63 |HEN.....|f:=v.dsc|
|00005c00| 2e 6e 65 78 74 3b 0d 09 | 09 09 09 52 45 54 55 52 |.next;..|...RETUR|
|00005c10| 4e 20 54 52 55 45 3b 0d | 09 09 09 45 4e 44 0d 09 |N TRUE;.|...END..|
|00005c20| 09 45 4e 44 3b 0d 09 09 | 52 45 54 55 52 4e 20 46 |.END;...|RETURN F|
|00005c30| 41 4c 53 45 3b 0d 09 45 | 4e 44 20 47 65 74 46 72 |ALSE;..E|ND GetFr|
|00005c40| 61 6d 65 3b 1c 0d 0d 09 | 28 2a 20 64 6f 20 74 68 |ame;....|(* do th|
|00005c50| 65 20 70 61 75 73 65 20 | 2a 29 0d 09 50 52 4f 43 |e pause |*)..PROC|
|00005c60| 45 44 55 52 45 20 44 6f | 50 61 75 73 65 28 66 3a |EDURE Do|Pause(f:|
|00005c70| 20 46 72 61 6d 65 29 3b | 0d 09 09 56 41 52 0d 09 | Frame);|...VAR..|
|00005c80| 09 09 6e 66 6d 73 67 3a | 20 4e 65 75 65 73 46 65 |..nfmsg:| NeuesFe|
|00005c90| 6c 64 4d 73 67 3b 0d 09 | 09 09 72 70 6d 73 67 3a |ldMsg;..|..rpmsg:|
|00005ca0| 20 52 65 50 6c 6f 74 4d | 73 67 3b 0d 09 09 09 70 | RePlotM|sg;....p|
|00005cb0| 6e 6d 73 67 3a 20 50 6c | 6f 74 4e 65 77 4d 73 67 |nmsg: Pl|otNewMsg|
|00005cc0| 3b 0d 09 42 45 47 49 4e | 0d 09 09 49 46 20 66 2e |;..BEGIN|...IF f.|
|00005cd0| 64 2e 50 61 75 73 65 20 | 54 48 45 4e 0d 09 09 09 |d.Pause |THEN....|
|00005ce0| 49 46 20 54 65 73 74 52 | 61 73 74 65 72 28 66 29 |IF TestR|aster(f)|
|00005cf0| 20 4f 52 20 50 61 75 73 | 65 46 6c 61 67 20 54 48 | OR Paus|eFlag TH|
|00005d00| 45 4e 0d 09 09 09 09 66 | 2e 64 2e 50 61 75 73 65 |EN.....f|.d.Pause|
|00005d10| 3a 3d 46 41 4c 53 45 3b | 0d 09 09 09 09 6e 66 6d |:=FALSE;|.....nfm|
|00005d20| 73 67 2e 64 3a 3d 66 2e | 64 3b 6e 66 6d 73 67 2e |sg.d:=f.|d;nfmsg.|
|00005d30| 43 68 61 6e 67 65 3a 3d | 46 41 4c 53 45 3b 0d 09 |Change:=|FALSE;..|
|00005d40| 09 09 09 56 69 65 77 65 | 72 73 2e 42 72 6f 61 64 |...Viewe|rs.Broad|
|00005d50| 63 61 73 74 28 6e 66 6d | 73 67 29 3b 0d 09 09 09 |cast(nfm|sg);....|
|00005d60| 09 49 46 20 6e 66 6d 73 | 67 2e 43 68 61 6e 67 65 |.IF nfms|g.Change|
|00005d70| 20 54 48 45 4e 0d 09 09 | 09 09 09 49 46 20 66 2e | THEN...|...IF f.|
|00005d80| 64 2e 41 6b 74 69 76 20 | 54 48 45 4e 0d 09 09 09 |d.Aktiv |THEN....|
|00005d90| 09 09 09 4e 65 75 65 73 | 46 65 6c 64 28 66 2e 64 |...Neues|Feld(f.d|
|00005da0| 2c 20 66 2e 64 2e 58 4b | 61 73 74 65 6e 41 6e 7a |, f.d.XK|astenAnz|
|00005db0| 2c 20 66 2e 64 2e 59 4b | 61 73 74 65 6e 41 6e 7a |, f.d.YK|astenAnz|
|00005dc0| 29 3b 0d 09 09 09 09 09 | 45 4e 44 3b 0d 09 09 09 |);......|END;....|
|00005dd0| 09 09 70 6e 6d 73 67 2e | 64 3a 3d 66 2e 64 3b 0d |..pnmsg.|d:=f.d;.|
|00005de0| 09 09 09 09 09 56 69 65 | 77 65 72 73 2e 42 72 6f |.....Vie|wers.Bro|
|00005df0| 61 64 63 61 73 74 28 70 | 6e 6d 73 67 29 3b 0d 09 |adcast(p|nmsg);..|
|00005e00| 09 09 09 09 66 2e 64 2e | 53 74 61 72 74 50 6c 61 |....f.d.|StartPla|
|00005e10| 79 3a 3d 46 41 4c 53 45 | 3b 0d 09 09 09 09 45 4c |y:=FALSE|;.....EL|
|00005e20| 53 45 0d 09 09 09 09 09 | 72 70 6d 73 67 2e 41 6c |SE......|rpmsg.Al|
|00005e30| 6c 3a 3d 46 41 4c 53 45 | 3b 0d 09 09 09 09 09 72 |l:=FALSE|;......r|
|00005e40| 70 6d 73 67 2e 64 3a 3d | 66 2e 64 3b 0d 09 09 09 |pmsg.d:=|f.d;....|
|00005e50| 09 09 66 2e 64 2e 54 69 | 6d 65 3a 3d 49 6e 70 75 |..f.d.Ti|me:=Inpu|
|00005e60| 74 2e 54 69 6d 65 28 29 | 2d 66 2e 64 2e 54 69 6d |t.Time()|-f.d.Tim|
|00005e70| 65 3b 0d 09 09 09 09 09 | 56 69 65 77 65 72 73 2e |e;......|Viewers.|
|00005e80| 42 72 6f 61 64 63 61 73 | 74 28 72 70 6d 73 67 29 |Broadcas|t(rpmsg)|
|00005e90| 3b 0d 09 09 09 09 45 4e | 44 3b 0d 09 09 09 45 4c |;.....EN|D;....EL|
|00005ea0| 53 45 0d 09 09 09 09 54 | 65 78 74 73 2e 57 72 69 |SE.....T|exts.Wri|
|00005eb0| 74 65 53 74 72 69 6e 67 | 28 57 2c 20 22 46 72 61 |teString|(W, "Fra|
|00005ec0| 6d 65 20 74 6f 20 73 6d | 61 6c 6c 20 66 6f 72 20 |me to sm|all for |
|00005ed0| 6f 6c 64 20 67 61 6d 65 | 20 21 22 29 3b 0d 09 09 |old game| !");...|
|00005ee0| 09 09 54 65 78 74 73 2e | 57 72 69 74 65 4c 6e 28 |..Texts.|WriteLn(|
|00005ef0| 57 29 3b 0d 09 09 09 09 | 54 65 78 74 73 2e 41 70 |W);.....|Texts.Ap|
|00005f00| 70 65 6e 64 28 4f 62 65 | 72 6f 6e 2e 4c 6f 67 2c |pend(Obe|ron.Log,|
|00005f10| 20 57 2e 62 75 66 29 3b | 0d 09 09 09 09 50 61 75 | W.buf);|.....Pau|
|00005f20| 73 65 46 6c 61 67 3a 3d | 54 52 55 45 3b 0d 09 09 |seFlag:=|TRUE;...|
|00005f30| 09 45 4e 44 3b 0d 09 09 | 45 4c 53 45 0d 09 09 09 |.END;...|ELSE....|
|00005f40| 66 2e 64 2e 50 61 75 73 | 65 3a 3d 54 52 55 45 3b |f.d.Paus|e:=TRUE;|
|00005f50| 0d 09 09 09 66 2e 64 2e | 54 69 6d 65 3a 3d 49 6e |....f.d.|Time:=In|
|00005f60| 70 75 74 2e 54 69 6d 65 | 28 29 2d 66 2e 64 2e 54 |put.Time|()-f.d.T|
|00005f70| 69 6d 65 3b 0d 09 09 09 | 72 70 6d 73 67 2e 64 3a |ime;....|rpmsg.d:|
|00005f80| 3d 66 2e 64 3b 72 70 6d | 73 67 2e 41 6c 6c 3a 3d |=f.d;rpm|sg.All:=|
|00005f90| 46 41 4c 53 45 3b 0d 09 | 09 09 56 69 65 77 65 72 |FALSE;..|..Viewer|
|00005fa0| 73 2e 42 72 6f 61 64 63 | 61 73 74 28 72 70 6d 73 |s.Broadc|ast(rpms|
|00005fb0| 67 29 3b 0d 09 09 45 4e | 44 3b 0d 09 45 4e 44 20 |g);...EN|D;..END |
|00005fc0| 44 6f 50 61 75 73 65 3b | 0d 09 09 0d 09 28 2a 20 |DoPause;|.....(* |
|00005fd0| 73 65 74 20 50 61 75 73 | 65 20 6d 6f 64 65 20 2a |set Paus|e mode *|
|00005fe0| 29 0d 09 50 52 4f 43 45 | 44 55 52 45 20 50 61 75 |)..PROCE|DURE Pau|
|00005ff0| 73 65 2a 3b 1c 0d 09 09 | 56 41 52 0d 09 09 09 66 |se*;....|VAR....f|
|00006000| 2c 20 67 3a 20 44 69 73 | 70 6c 61 79 2e 46 72 61 |, g: Dis|play.Fra|
|00006010| 6d 65 3b 0d 09 42 45 47 | 49 4e 0d 09 09 49 46 20 |me;..BEG|IN...IF |
|00006020| 47 65 74 46 72 61 6d 65 | 28 67 29 20 54 48 45 4e |GetFrame|(g) THEN|
|00006030| 0d 09 09 09 66 3a 3d 67 | 3b 0d 09 09 09 57 49 54 |....f:=g|;....WIT|
|00006040| 48 20 66 3a 20 46 72 61 | 6d 65 20 44 4f 0d 09 09 |H f: Fra|me DO...|
|00006050| 09 09 49 46 20 66 2e 64 | 2e 41 6b 74 69 76 20 54 |..IF f.d|.Aktiv T|
|00006060| 48 45 4e 20 44 6f 50 61 | 75 73 65 28 66 29 3b 45 |HEN DoPa|use(f);E|
|00006070| 4e 44 3b 0d 09 09 09 45 | 4c 53 45 0d 09 09 09 45 |ND;....E|LSE....E|
|00006080| 4e 44 3b 0d 09 09 45 4e | 44 3b 0d 09 45 4e 44 20 |ND;...EN|D;..END |
|00006090| 50 61 75 73 65 3b 1c 0d | 0d 09 28 2a 20 64 6f 20 |Pause;..|..(* do |
|000060a0| 6d 6f 75 73 65 61 63 74 | 69 6f 6e 20 2a 29 0d 09 |mouseact|ion *)..|
|000060b0| 50 52 4f 43 45 44 55 52 | 45 20 44 6f 4d 6f 75 28 |PROCEDUR|E DoMou(|
|000060c0| 66 3a 20 46 72 61 6d 65 | 3b 20 58 2c 20 59 3a 20 |f: Frame|; X, Y: |
|000060d0| 49 4e 54 45 47 45 52 3b | 20 4b 65 79 2c 20 46 69 |INTEGER;| Key, Fi|
|000060e0| 72 73 74 4b 65 79 3a 20 | 53 45 54 29 3b 1c 0d 09 |rstKey: |SET);...|
|000060f0| 09 56 41 52 0d 09 09 09 | 58 4b 61 73 74 65 6e 2c |.VAR....|XKasten,|
|00006100| 20 59 4b 61 73 74 65 6e | 3a 20 49 4e 54 45 47 45 | YKasten|: INTEGE|
|00006110| 52 3b 0d 09 09 09 58 53 | 74 6f 72 65 2c 20 59 53 |R;....XS|tore, YS|
|00006120| 74 6f 72 65 3a 20 49 4e | 54 45 47 45 52 3b 0d 09 |tore: IN|TEGER;..|
|00006130| 09 09 44 75 6d 6d 79 3a | 20 53 48 4f 52 54 49 4e |..Dummy:| SHORTIN|
|00006140| 54 3b 0d 09 09 09 70 6e | 6d 73 67 3a 20 50 6c 6f |T;....pn|msg: Plo|
|00006150| 74 4e 65 77 4d 73 67 3b | 0d 09 09 09 6e 66 6d 73 |tNewMsg;|....nfms|
|00006160| 67 3a 20 4e 65 75 65 73 | 46 65 6c 64 4d 73 67 3b |g: Neues|FeldMsg;|
|00006170| 0d 09 42 45 47 49 4e 0d | 09 09 49 46 20 66 2e 64 |..BEGIN.|..IF f.d|
|00006180| 2e 50 61 75 73 65 20 54 | 48 45 4e 20 52 45 54 55 |.Pause T|HEN RETU|
|00006190| 52 4e 3b 20 45 4e 44 3b | 0d 09 09 58 53 74 6f 72 |RN; END;|...XStor|
|000061a0| 65 3a 3d 58 3b 59 53 74 | 6f 72 65 3a 3d 59 3b 0d |e:=X;YSt|ore:=Y;.|
|000061b0| 09 09 58 3a 3d 58 2d 66 | 2e 53 65 69 74 65 6e 4f |..X:=X-f|.SeitenO|
|000061c0| 66 66 73 65 74 3b 59 3a | 3d 59 2d 66 2e 55 6e 74 |ffset;Y:|=Y-f.Unt|
|000061d0| 65 6e 4f 66 66 73 65 74 | 3b 0d 09 09 49 46 20 58 |enOffset|;...IF X|
|000061e0| 3c 30 20 54 48 45 4e 20 | 52 45 54 55 52 4e 3b 45 |<0 THEN |RETURN;E|
|000061f0| 4e 44 3b 0d 09 09 49 46 | 20 59 3c 30 20 54 48 45 |ND;...IF| Y<0 THE|
|00006200| 4e 20 52 45 54 55 52 4e | 3b 45 4e 44 3b 0d 0d 09 |N RETURN|;END;...|
|00006210| 09 58 4b 61 73 74 65 6e | 3a 3d 58 20 44 49 56 20 |.XKasten|:=X DIV |
|00006220| 4b 61 73 74 65 6e 50 6c | 61 74 7a 20 2b 31 3b 0d |KastenPl|atz +1;.|
|00006230| 09 09 59 4b 61 73 74 65 | 6e 3a 3d 59 20 44 49 56 |..YKaste|n:=Y DIV|
|00006240| 20 4b 61 73 74 65 6e 50 | 6c 61 74 7a 20 2b 31 3b | KastenP|latz +1;|
|00006250| 0d 09 09 49 46 20 28 58 | 4b 61 73 74 65 6e 3c 3d |...IF (X|Kasten<=|
|00006260| 66 2e 64 2e 58 4b 61 73 | 74 65 6e 41 6e 7a 29 20 |f.d.XKas|tenAnz) |
|00006270| 26 20 28 59 4b 61 73 74 | 65 6e 3c 3d 66 2e 64 2e |& (YKast|en<=f.d.|
|00006280| 59 4b 61 73 74 65 6e 41 | 6e 7a 29 20 54 48 45 4e |YKastenA|nz) THEN|
|00006290| 0d 09 09 09 49 46 20 7e | 66 2e 64 2e 41 6b 74 69 |....IF ~|f.d.Akti|
|000062a0| 76 20 54 48 45 4e 20 52 | 45 54 55 52 4e 3b 45 4e |v THEN R|ETURN;EN|
|000062b0| 44 3b 0d 09 09 09 49 46 | 20 28 58 20 4d 4f 44 20 |D;....IF| (X MOD |
|000062c0| 4b 61 73 74 65 6e 50 6c | 61 74 7a 29 3d 30 20 54 |KastenPl|atz)=0 T|
|000062d0| 48 45 4e 20 52 45 54 55 | 52 4e 3b 45 4e 44 3b 0d |HEN RETU|RN;END;.|
|000062e0| 09 09 09 49 46 20 28 59 | 20 4d 4f 44 20 4b 61 73 |...IF (Y| MOD Kas|
|000062f0| 74 65 6e 50 6c 61 74 7a | 29 3d 30 20 54 48 45 4e |tenPlatz|)=0 THEN|
|00006300| 20 52 45 54 55 52 4e 3b | 45 4e 44 3b 0d 09 09 09 | RETURN;|END;....|
|00006310| 44 75 6d 6d 79 3a 3d 66 | 2e 64 2e 46 65 6c 64 5b |Dummy:=f|.d.Feld[|
|00006320| 58 4b 61 73 74 65 6e 2c | 20 59 4b 61 73 74 65 6e |XKasten,| YKasten|
|00006330| 5d 3b 0d 09 09 09 49 46 | 20 4b 65 79 3d 7b 31 7d |];....IF| Key={1}|
|00006340| 20 54 48 45 4e 0d 09 09 | 09 09 49 46 20 44 75 6d | THEN...|..IF Dum|
|00006350| 6d 79 3e 30 20 54 48 45 | 4e 0d 09 09 09 09 09 49 |my>0 THE|N......I|
|00006360| 46 20 44 75 6d 6d 79 3c | 31 36 20 54 48 45 4e 0d |F Dummy<|16 THEN.|
|00006370| 09 09 09 09 09 09 4f 62 | 65 72 6f 6e 2e 52 65 6d |......Ob|eron.Rem|
|00006380| 6f 76 65 4d 61 72 6b 73 | 28 66 2e 53 65 69 74 65 |oveMarks|(f.Seite|
|00006390| 6e 4f 66 66 73 65 74 2c | 20 66 2e 55 6e 74 65 6e |nOffset,| f.Unten|
|000063a0| 4f 66 66 73 65 74 2c 20 | 66 2e 57 2c 20 66 2e 48 |Offset, |f.W, f.H|
|000063b0| 29 3b 0d 09 09 09 09 09 | 09 44 72 61 77 43 68 61 |);......|.DrawCha|
|000063c0| 72 49 6e 76 28 66 2c 20 | 22 3f 22 2c 20 58 4b 61 |rInv(f, |"?", XKa|
|000063d0| 73 74 65 6e 2c 20 59 4b | 61 73 74 65 6e 29 3b 0d |sten, YK|asten);.|
|000063e0| 09 09 09 09 09 45 4e 44 | 3b 0d 09 09 09 09 45 4e |.....END|;.....EN|
|000063f0| 44 3b 0d 09 09 09 45 4c | 53 45 0d 09 09 09 09 4d |D;....EL|SE.....M|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
