home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
You can browse this item here: pascal
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | f4 0b 00 00 94 0e 00 00 |Archive.|........|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 42 61 6c 6c 73 36 | 34 00 00 00 ff ff ff ff |.!Balls6|4.......|
|00000070| 45 ff ff ff 59 de 00 a2 | 33 00 00 00 ff ff ff ff |E...Y...|3.......|
|00000080| b0 01 00 80 82 21 42 6f | 6f 74 00 00 45 eb ff ff |.....!Bo|ot..E...|
|00000090| 46 00 00 00 41 eb ff ff | 10 02 9f a3 33 00 5f 6a |F...A...|....3._j|
|000000a0| 46 00 00 00 24 00 00 00 | 82 21 52 75 6e 00 00 00 |F...$...|.!Run...|
|000000b0| 45 eb ff ff cc 02 00 00 | 41 eb ff ff 68 e0 a7 c8 |E.......|A...h...|
|000000c0| 33 00 a8 9e cc 02 00 00 | 8e 00 00 00 82 21 53 70 |3.......|.....!Sp|
|000000d0| 72 69 74 65 73 00 ff ff | 8c 01 00 00 41 f9 ff ff |rites...|....A...|
|000000e0| b8 63 3b a3 33 00 59 d1 | 8c 01 00 00 7e 03 00 00 |.c;.3.Y.|....~...|
|000000f0| 82 6f 00 82 b8 00 00 00 | 45 eb ff ff ff ff ff ff |.o......|E.......|
|00000100| 45 ff ff ff e3 de 00 a2 | 33 00 00 00 ff ff ff ff |E.......|3.......|
|00000110| d8 00 00 80 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 82 70 00 82 b8 00 00 00 |........|.p......|
|00000140| 45 eb ff ff ff ff ff ff | 45 ff ff ff ee de 00 a2 |E.......|E.......|
|00000150| 33 00 00 00 ff ff ff ff | 44 01 00 80 82 62 61 6c |3.......|D....bal|
|00000160| 6c 73 36 34 00 00 00 00 | 51 43 00 00 44 ff ff ff |ls64....|QC..D...|
|00000170| 5d 5f 41 30 33 00 d5 cf | 51 43 00 00 2e 05 00 00 |]_A03...|QC......|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 82 73 70 72 | 69 74 65 73 00 eb ff ff |.....spr|ites....|
|000001b0| 8c 01 00 00 41 f9 ff ff | a8 a0 3b a3 33 00 13 cf |....A...|..;.3...|
|000001c0| 8c 01 00 00 a3 48 00 00 | 82 54 65 6d 70 6c 61 74 |.....H..|.Templat|
|000001d0| 65 73 00 ff 57 03 00 00 | 41 ec ff ff fc 96 d9 b5 |es..W...|A.......|
|000001e0| 33 00 27 6f 57 03 00 00 | 53 4a 00 00 00 00 0a 82 |3.'oW...|SJ......|
|000001f0| b8 00 00 00 45 eb ff ff | f4 e8 92 a0 03 00 b1 8b |....E...|........|
|00000200| b8 00 00 00 58 14 00 00 | 82 21 43 68 0d 6b 67 65 |....X...|.!Ch.kge|
|00000210| 82 21 50 61 73 63 61 6c | 00 00 00 00 ff ff ff ff |.!Pascal|........|
|00000220| 45 ff ff ff 6b df 00 a2 | 33 00 00 00 ff ff ff ff |E...k...|3.......|
|00000230| 1c 0b 00 80 82 21 42 6f | 6f 74 00 00 45 f8 ff ff |.....!Bo|ot..E...|
|00000240| 7d 00 00 00 43 eb ff ff | 77 c2 0a ac 33 00 be 3d |}...C...|w...3..=|
|00000250| 7d 00 00 00 ce 4d 00 00 | 82 21 68 65 6c 70 00 00 |}....M..|.!help..|
|00000260| 45 f8 ff ff f9 0e 00 00 | 44 ff ff ff 85 84 86 35 |E.......|D......5|
|00000270| 33 00 fa d9 f9 0e 00 00 | 6f 4e 00 00 82 21 52 75 |3.......|oN...!Ru|
|00000280| 6e 00 00 00 45 f8 ff ff | 07 04 00 00 44 eb ff ff |n...E...|....D...|
|00000290| 44 96 6a 04 33 00 4c 90 | 07 04 00 00 8c 5d 00 00 |D.j.3.L.|.....]..|
|000002a0| 82 21 53 65 74 75 70 00 | 45 f8 ff ff 16 01 00 00 |.!Setup.|E.......|
|000002b0| 44 eb ff ff 96 9c 86 35 | 33 00 7b cb 16 01 00 00 |D......5|3.{.....|
|000002c0| b7 61 00 00 82 21 53 70 | 72 69 74 65 73 00 ff ff |.a...!Sp|rites...|
|000002d0| e4 03 00 00 44 f9 ff ff | a0 84 6a 04 33 00 7c 4c |....D...|..j.3.|L|
|000002e0| e4 03 00 00 f1 62 00 00 | 82 44 65 73 63 00 00 00 |.....b..|.Desc...|
|000002f0| 45 f8 ff ff 84 0b 00 00 | 44 ff ff ff 85 8b 74 46 |E.......|D.....tF|
|00000300| 33 00 4b 38 84 0b 00 00 | f9 66 00 00 82 68 00 00 |3.K8....|.f...h..|
|00000310| 5f 94 00 00 45 f8 ff ff | ff ff ff ff 45 ff ff ff |_...E...|....E...|
|00000320| 19 e0 00 a2 33 00 00 00 | ff ff ff ff d8 09 00 80 |....3...|........|
|00000330| 82 61 6b 62 64 00 00 00 | 00 00 00 00 12 07 00 00 |.akbd...|........|
|00000340| 43 ff ff ff 9c 89 1b ad | 33 00 e7 35 12 07 00 00 |C.......|3..5....|
|00000350| a1 72 00 00 82 61 6c 61 | 72 6d 00 00 00 00 00 00 |.r...ala|rm......|
|00000360| 56 13 00 00 43 ff ff ff | 9c 89 1b ad 33 00 71 8f |V...C...|....3.q.|
|00000370| 56 13 00 00 d7 79 00 00 | 82 62 61 72 69 63 6f 6e |V....y..|.baricon|
|00000380| 00 00 00 00 bd 13 00 00 | 43 ff ff ff 00 8a 1b ad |........|C.......|
|00000390| 33 00 b1 6d bd 13 00 00 | 51 8d 00 00 82 62 62 63 |3..m....|Q....bbc|
|000003a0| 00 00 00 00 00 00 00 00 | 7f 38 00 00 44 ff ff ff |........|.8..D...|
|000003b0| b7 5f 2e 30 33 00 ad b8 | 7f 38 00 00 32 a1 00 00 |._.03...|.8..2...|
|000003c0| 82 63 6f 6c 6f 75 72 6d | 65 6e 75 00 c0 03 00 00 |.colourm|enu.....|
|000003d0| 43 ff ff ff 00 8a 1b ad | 33 00 1d a5 c0 03 00 00 |C.......|3.......|
|000003e0| d5 d9 00 00 82 63 6f 6c | 6f 75 72 74 72 61 6e 00 |.....col|ourtran.|
|000003f0| af 30 00 00 44 ff ff ff | a4 87 2e 30 33 00 de 3a |.0..D...|...03..:|
|00000400| af 30 00 00 b9 dd 00 00 | 82 63 6f 6f 72 64 73 00 |.0......|.coords.|
|00000410| 00 00 00 00 cc 1a 00 00 | 43 ff ff ff 00 8a 1b ad |........|C.......|
|00000420| 33 00 12 06 cc 1a 00 00 | 8c 0e 01 00 82 64 62 6f |3.......|.....dbo|
|00000430| 78 00 00 00 00 00 00 00 | 00 45 00 00 43 ff ff ff |x.......|.E..C...|
|00000440| 00 8a 1b ad 33 00 99 b9 | 00 45 00 00 7c 29 01 00 |....3...|.E..|)..|
|00000450| 82 64 62 6f 78 66 69 6c | 65 00 00 00 e7 07 00 00 |.dboxfil|e.......|
|00000460| 43 ff ff ff 00 8a 1b ad | 33 00 9c ed e7 07 00 00 |C.......|3.......|
|00000470| a0 6e 01 00 82 64 62 6f | 78 71 75 65 72 79 00 00 |.n...dbo|xquery..|
|00000480| 69 09 00 00 43 ff ff ff | 00 8a 1b ad 33 00 43 1a |i...C...|....3.C.|
|00000490| 69 09 00 00 ab 76 01 00 | 82 64 62 6f 78 74 63 6f |i....v..|.dboxtco|
|000004a0| 6c 00 00 00 7e 07 00 00 | 43 ff ff ff 00 8a 1b ad |l...~...|C.......|
|000004b0| 33 00 e0 a2 7e 07 00 00 | 38 80 01 00 82 64 72 61 |3...~...|8....dra|
|000004c0| 77 66 64 69 61 67 00 00 | bd 39 00 00 44 ff ff ff |wfdiag..|.9..D...|
|000004d0| fc be 2e 30 33 00 1f 61 | bd 39 00 00 da 87 01 00 |...03..a|.9......|
|000004e0| 82 64 72 61 77 66 65 72 | 72 6f 72 00 62 13 00 00 |.drawfer|ror.b...|
|000004f0| 44 ff ff ff c8 b5 2f 30 | 33 00 59 48 62 13 00 00 |D...../0|3.YHb...|
|00000500| bb c1 01 00 82 64 72 61 | 77 66 6f 62 6a 00 00 00 |.....dra|wfobj...|
|00000510| 30 2b 00 00 43 ff ff ff | 64 8a 1b ad 33 00 24 f2 |0+..C...|d...3.$.|
|00000520| 30 2b 00 00 41 d5 01 00 | 82 64 72 61 77 66 74 79 |0+..A...|.drawfty|
|00000530| 70 65 73 00 50 3b 00 00 | 43 ff ff ff 64 8a 1b ad |pes.P;..|C...d...|
|00000540| 33 00 25 5b 50 3b 00 00 | 95 00 02 00 82 64 72 61 |3.%[P;..|.....dra|
|00000550| 77 6d 6f 64 00 00 00 00 | 6c 4d 00 00 44 ff ff ff |wmod....|lM..D...|
|00000560| 27 dd 2e 30 33 00 eb 45 | 6c 4d 00 00 09 3c 02 00 |'..03..E|lM...<..|
|00000570| 82 65 76 65 6e 74 00 00 | 00 00 00 00 d8 17 00 00 |.event..|........|
|00000580| 43 ff ff ff 64 8a 1b ad | 33 00 3e 58 d8 17 00 00 |C...d...|3.>X....|
|00000590| 99 89 02 00 82 66 69 6c | 65 69 63 6f 6e 00 00 00 |.....fil|eicon...|
|000005a0| 22 04 00 00 43 ff ff ff | 64 8a 1b ad 33 00 79 56 |"...C...|d...3.yV|
|000005b0| 22 04 00 00 95 a1 02 00 | 82 66 6c 65 78 00 00 00 |".......|.flex...|
|000005c0| 00 00 00 00 3d 14 00 00 | 43 ff ff ff 64 8a 1b ad |....=...|C...d...|
|000005d0| 33 00 5c e0 3d 14 00 00 | db a5 02 00 82 66 6f 6e |3.\.=...|.....fon|
|000005e0| 74 00 00 00 00 00 00 00 | a4 43 00 00 44 ff ff ff |t.......|.C..D...|
|000005f0| ea f5 2e 30 33 00 bf 97 | a4 43 00 00 3c ba 02 00 |...03...|.C..<...|
|00000600| 82 66 6f 6e 74 6c 69 73 | 74 00 00 00 55 08 00 00 |.fontlis|t...U...|
|00000610| 43 ff ff ff 64 8a 1b ad | 33 00 9c f0 55 08 00 00 |C...d...|3...U...|
|00000620| 04 fe 02 00 82 66 6f 6e | 74 73 65 6c 65 63 74 00 |.....fon|tselect.|
|00000630| 05 11 00 00 43 ff ff ff | 64 8a 1b ad 33 00 23 e9 |....C...|d...3.#.|
|00000640| 05 11 00 00 7d 06 03 00 | 82 68 65 61 70 00 00 00 |....}...|.heap...|
|00000650| 00 00 00 00 fd 05 00 00 | 43 ff ff ff 64 8a 1b ad |........|C...d...|
|00000660| 33 00 31 e4 fd 05 00 00 | a6 17 03 00 82 68 65 6c |3.1.....|.....hel|
|00000670| 70 00 00 00 00 00 00 00 | c4 19 00 00 44 ff ff ff |p.......|....D...|
|00000680| e6 0b 2f 30 33 00 1f 88 | c4 19 00 00 c7 1d 03 00 |../03...|........|
|00000690| 82 6d 61 67 6e 69 66 79 | 00 00 00 00 21 0c 00 00 |.magnify|....!...|
|000006a0| 43 ff ff ff 64 8a 1b ad | 33 00 02 13 21 0c 00 00 |C...d...|3...!...|
|000006b0| af 37 03 00 82 6d 65 6e | 75 00 00 00 00 00 00 00 |.7...men|u.......|
|000006c0| 43 17 00 00 43 ff ff ff | 64 8a 1b ad 33 00 ab a0 |C...C...|d...3...|
|000006d0| 43 17 00 00 f4 43 03 00 | 82 6d 73 67 73 00 00 00 |C....C..|.msgs...|
|000006e0| 00 00 00 00 b7 0b 00 00 | 43 ff ff ff c8 8a 1b ad |........|C.......|
|000006f0| 33 00 d6 7c b7 0b 00 00 | 5b 5b 03 00 82 6f 73 00 |3..|....|[[...os.|
|00000700| 00 00 00 00 00 00 00 00 | 79 18 00 00 44 ff ff ff |........|y...D...|
|00000710| 79 1d 2f 30 33 00 d7 37 | 79 18 00 00 36 67 03 00 |y./03..7|y...6g..|
|00000720| 82 70 6f 69 6e 74 65 72 | 00 00 00 00 2f 05 00 00 |.pointer|..../...|
|00000730| 44 ff ff ff df 25 2f 30 | 33 00 7c 1b 2f 05 00 00 |D....%/0|3.|./...|
|00000740| d3 7f 03 00 82 70 72 69 | 6e 74 00 00 00 00 00 00 |.....pri|nt......|
|00000750| 62 2d 00 00 44 ff ff ff | c2 33 2f 30 33 00 a6 7d |b-..D...|.3/03..}|
|00000760| 62 2d 00 00 26 85 03 00 | 82 72 65 73 00 00 00 00 |b-..&...|.res....|
|00000770| 00 00 00 00 5d 06 00 00 | 43 ff ff ff c8 8a 1b ad |....]...|C.......|
|00000780| 33 00 dd 88 5d 06 00 00 | ac b2 03 00 82 72 65 73 |3...]...|.....res|
|00000790| 73 70 72 00 00 00 00 00 | d3 03 00 00 43 ff ff ff |spr.....|....C...|
|000007a0| c8 8a 1b ad 33 00 6f 79 | d3 03 00 00 2d b9 03 00 |....3.oy|....-...|
|000007b0| 82 73 61 76 65 61 73 00 | 00 00 00 00 8f 0c 00 00 |.saveas.|........|
|000007c0| 43 ff ff ff c8 8a 1b ad | 33 00 f7 c5 8f 0c 00 00 |C.......|3.......|
|000007d0| 24 bd 03 00 82 73 70 72 | 69 74 65 00 00 00 00 00 |$....spr|ite.....|
|000007e0| 36 50 00 00 44 ff ff ff | 80 49 2f 30 33 00 37 7b |6P..D...|.I/03.7{|
|000007f0| 36 50 00 00 d7 c9 03 00 | 82 74 65 6d 70 6c 61 74 |6P......|.templat|
|00000800| 65 00 00 00 4a 10 00 00 | 43 ff ff ff 2c 8b 1b ad |e...J...|C...,...|
|00000810| 33 00 ef ae 4a 10 00 00 | 31 1a 04 00 82 74 72 61 |3...J...|1....tra|
|00000820| 63 65 00 00 00 00 00 00 | 26 06 00 00 43 ff ff ff |ce......|&...C...|
|00000830| 2c 8b 1b ad 33 00 5f 76 | 26 06 00 00 9f 2a 04 00 |,...3._v|&....*..|
|00000840| 82 74 78 74 00 00 00 00 | 00 00 00 00 30 6d 00 00 |.txt....|....0m..|
|00000850| 43 ff ff ff ea 39 1c ad | 33 00 4f 1f 30 6d 00 00 |C....9..|3.O.0m..|
|00000860| e9 30 04 00 82 74 78 74 | 65 64 69 74 00 00 00 00 |.0...txt|edit....|
|00000870| c8 37 00 00 43 ff ff ff | 07 44 1c ad 33 00 63 83 |.7..C...|.D..3.c.|
|00000880| c8 37 00 00 3d 9e 04 00 | 82 74 78 74 6f 70 74 00 |.7..=...|.txtopt.|
|00000890| 00 00 00 00 c3 05 00 00 | 43 ff ff ff 2c 8b 1b ad |........|C...,...|
|000008a0| 33 00 25 78 c3 05 00 00 | 29 d6 04 00 82 74 78 74 |3.%x....|)....txt|
|000008b0| 73 63 72 61 70 00 00 00 | e9 05 00 00 43 ff ff ff |scrap...|....C...|
|000008c0| 2c 8b 1b ad 33 00 14 55 | e9 05 00 00 10 dc 04 00 |,...3..U|........|
|000008d0| 82 74 78 74 77 69 6e 00 | 00 00 00 00 13 08 00 00 |.txtwin.|........|
|000008e0| 43 ff ff ff 90 8b 1b ad | 33 00 55 14 13 08 00 00 |C.......|3.U.....|
|000008f0| 1d e2 04 00 82 74 79 70 | 64 61 74 00 00 00 00 00 |.....typ|dat.....|
|00000900| 15 01 00 00 43 ff ff ff | 90 8b 1b ad 33 00 a3 79 |....C...|....3..y|
|00000910| 15 01 00 00 54 ea 04 00 | 82 76 69 73 64 65 6c 61 |....T...|.visdela|
|00000920| 79 00 00 00 47 05 00 00 | 43 ff ff ff 90 8b 1b ad |y...G...|C.......|
|00000930| 33 00 b9 48 47 05 00 00 | 8d eb 04 00 82 77 65 72 |3..HG...|.....wer|
|00000940| 72 00 00 00 00 00 00 00 | a9 03 00 00 43 ff ff ff |r.......|....C...|
|00000950| 90 8b 1b ad 33 00 53 e3 | a9 03 00 00 f8 f0 04 00 |....3.S.|........|
|00000960| 82 77 69 6d 70 00 00 00 | 00 00 00 00 24 8f 00 00 |.wimp...|....$...|
|00000970| 44 ff ff ff 89 63 2f 30 | 33 00 55 79 24 8f 00 00 |D....c/0|3.Uy$...|
|00000980| c5 f4 04 00 82 77 69 6d | 70 74 00 00 00 00 00 00 |.....wim|pt......|
|00000990| 53 20 00 00 44 ff ff ff | 81 6d 2f 30 33 00 57 26 |S ..D...|.m/03.W&|
|000009a0| 53 20 00 00 0d 84 05 00 | 82 77 69 6e 00 00 00 00 |S ......|.win....|
|000009b0| 00 00 00 00 5c 33 00 00 | 43 ff ff ff 90 8b 1b ad |....\3..|C.......|
|000009c0| 33 00 bd 01 5c 33 00 00 | 84 a4 05 00 82 78 66 65 |3...\3..|.....xfe|
|000009d0| 72 72 65 63 76 00 00 00 | 65 12 00 00 43 ff ff ff |rrecv...|e...C...|
|000009e0| 90 8b 1b ad 33 00 76 62 | 65 12 00 00 04 d8 05 00 |....3.vb|e.......|
|000009f0| 82 78 66 65 72 73 65 6e | 64 00 00 00 35 2d 00 00 |.xfersen|d...5-..|
|00000a00| 43 ff ff ff 90 8b 1b ad | 33 00 79 98 35 2d 00 00 |C.......|3.y.5-..|
|00000a10| 8d ea 05 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a30| 00 00 00 00 00 00 00 00 | 82 4d 65 73 73 61 67 65 |........|.Message|
|00000a40| 73 00 ff ff f3 0d 00 00 | 44 ff ff ff 3a 9a 87 35 |s.......|D...:..5|
|00000a50| 33 00 e2 6e f3 0d 00 00 | e6 17 06 00 82 6f 00 00 |3..n....|.....o..|
|00000a60| 5f 94 00 00 45 f8 ff ff | ff ff ff ff 45 ff ff ff |_...E...|....E...|
|00000a70| c9 e7 00 a2 33 00 00 00 | ff ff ff ff 8c 0a 00 80 |....3...|........|
|00000a80| 82 70 6c 69 62 00 00 00 | 00 00 00 00 64 06 01 00 |.plib...|....d...|
|00000a90| 44 fd ff ff 18 ae 79 35 | 33 00 f5 d8 64 06 01 00 |D.....y5|3...d...|
|00000aa0| fd 25 06 00 82 70 6d 6f | 64 6c 69 62 00 00 00 00 |.%...pmo|dlib....|
|00000ab0| 1c 10 01 00 44 fd ff ff | e8 b8 85 35 33 00 7f 0d |....D...|...53...|
|00000ac0| 1c 10 01 00 85 2c 07 00 | 00 00 00 00 00 00 00 00 |.....,..|........|
|00000ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 82 70 61 73 |........|.....pas|
|00000af0| 63 61 6c 00 45 f8 ff ff | 6f 93 02 00 44 f8 ff ff |cal.E...|o...D...|
|00000b00| 86 c7 63 5a 33 00 3a 47 | 6f 93 02 00 c5 3c 08 00 |..cZ3.:G|o....<..|
|00000b10| 82 52 45 41 44 4d 45 00 | 45 f8 ff ff 38 9e 00 00 |.README.|E...8...|
|00000b20| 44 ff ff ff 08 3b a5 30 | 33 00 4f 4c 38 9e 00 00 |D....;.0|3.OL8...|
|00000b30| 58 d0 0a 00 82 54 65 6d | 70 6c 61 74 65 73 00 ff |X....Tem|plates..|
|00000b40| 6e 0d 00 00 44 ec ff ff | 09 03 3d 41 33 00 cd 86 |n...D...|..=A3...|
|00000b50| 6e 0d 00 00 b4 6e 0b 00 | 00 00 00 00 5f 94 00 00 |n....n..|...._...|
|00000b60| 45 f8 ff ff 6d ce 0d 9f | 03 00 48 ee 5f 94 00 00 |E...m...|..H._...|
|00000b70| 24 72 02 00 82 6c 64 00 | c4 f1 bf 05 82 63 6c 69 |$r...ld.|.....cli|
|00000b80| 62 00 00 00 00 00 00 00 | ff ff ff ff 45 ff ff ff |b.......|....E...|
|00000b90| 22 fd 00 a2 33 00 00 00 | ff ff ff ff d0 0b 00 80 |"...3...|........|
|00000ba0| 82 6f 00 74 65 6d 3a 4d | 6f 64 75 6c ff ff ff ff |.o.tem:M|odul....|
|00000bb0| 45 ff ff ff 90 fe 00 a2 | 33 00 00 00 ff ff ff ff |E.......|3.......|
|00000bc0| ac 0b 00 80 82 53 74 75 | 62 73 00 00 00 00 00 00 |.....Stu|bs......|
|00000bd0| e4 39 00 00 43 fd ff ff | 58 94 b9 1b b3 00 4f 69 |.9..C...|X.....Oi|
|00000be0| e4 39 00 00 46 7c 0b 00 | 00 00 00 00 00 00 00 00 |.9..F|..|........|
|00000bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 79 73 74 |........|.....yst|
|00000c10| 65 6d 3a 4d 6f 64 75 6c | 65 73 2e 43 6f 6c 6f 75 |em:Modul|es.Colou|
|00000c20| 72 73 0a 52 4d 45 6e 73 | 75 72 65 20 73 6c 6c 6f |rs.RMEns|ure sllo|
|00000c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c50| 00 00 00 00 72 75 6e 20 | 66 69 6c 65 20 66 6f 72 |....run |file for|
|00000c60| 20 62 61 6c 6c 73 36 34 | 20 61 70 70 6c 69 63 61 | balls64| applica|
|00000c70| 74 69 6f 6e 0a 7c 20 54 | 68 69 73 20 66 69 6c 65 |tion.| T|his file|
|00000c80| 20 63 68 65 63 6b 73 20 | 74 68 61 74 20 6e 65 63 | checks |that nec|
|00000c90| 65 73 73 61 72 79 20 6d | 6f 64 75 6c 65 73 20 61 |essary m|odules a|
|00000ca0| 72 65 20 6c 6f 61 64 65 | 64 20 61 6e 64 20 63 6c |re loade|d and cl|
|00000cb0| 61 69 6d 73 20 61 20 0a | 7c 20 22 73 6c 6f 74 22 |aims a .|| "slot"|
|00000cc0| 20 66 72 6f 6d 20 74 68 | 65 20 57 49 4d 50 0a 0a | from th|e WIMP..|
|00000cd0| 2a 57 69 6d 70 53 6c 6f | 74 20 2d 6d 69 6e 20 31 |*WimpSlo|t -min 1|
|00000ce0| 31 30 6b 20 2d 6d 61 78 | 20 31 31 30 6b 0a 2a 49 |10k -max| 110k.*I|
|00000cf0| 63 6f 6e 53 70 72 69 74 | 65 73 20 3c 4f 62 65 79 |conSprit|es <Obey|
|00000d00| 24 44 69 72 3e 2e 21 53 | 70 72 69 74 65 73 0a 7c |$Dir>.!S|prites.||
|00000d10| 0a 69 66 20 22 3c 53 79 | 73 74 65 6d 24 50 61 74 |.if "<Sy|stem$Pat|
|00000d20| 68 3e 22 20 3d 20 22 22 | 20 74 68 65 6e 20 45 72 |h>" = ""| then Er|
|00000d30| 72 6f 72 20 30 20 53 79 | 73 74 65 6d 20 72 65 73 |ror 0 Sy|stem res|
|00000d40| 6f 75 72 63 65 73 20 63 | 61 6e 6e 6f 74 20 62 65 |ources c|annot be|
|00000d50| 20 66 6f 75 6e 64 0a 7c | 0a 52 4d 45 6e 73 75 72 | found.||.RMEnsur|
|00000d60| 65 20 53 68 61 72 65 64 | 43 4c 69 62 72 61 72 79 |e Shared|CLibrary|
|00000d70| 20 33 2e 35 30 20 52 4d | 4c 6f 61 64 20 53 79 73 | 3.50 RM|Load Sys|
|00000d80| 74 65 6d 3a 4d 6f 64 75 | 6c 65 73 2e 43 6c 69 62 |tem:Modu|les.Clib|
|00000d90| 0a 52 4d 45 6e 73 75 72 | 65 20 53 68 61 72 65 64 |.RMEnsur|e Shared|
|00000da0| 43 4c 69 62 72 61 72 79 | 20 33 2e 35 30 20 45 72 |CLibrary| 3.50 Er|
|00000db0| 72 6f 72 20 59 6f 75 20 | 6e 65 65 64 20 43 6c 69 |ror You |need Cli|
|00000dc0| 62 20 33 2e 35 30 20 6f | 72 20 6c 61 74 65 72 0a |b 3.50 o|r later.|
|00000dd0| 7c 0a 52 4d 45 6e 73 75 | 72 65 20 46 50 45 6d 75 ||.RMEnsu|re FPEmu|
|00000de0| 6c 61 74 6f 72 20 32 2e | 37 30 20 52 4d 4c 6f 61 |lator 2.|70 RMLoa|
|00000df0| 64 20 53 79 73 74 65 6d | 3a 4d 6f 64 75 6c 65 73 |d System|:Modules|
|00000e00| 2e 46 50 45 6d 75 6c 61 | 74 6f 72 0a 52 4d 45 6e |.FPEmula|tor.RMEn|
|00000e10| 73 75 72 65 20 46 50 45 | 6d 75 6c 61 74 6f 72 20 |sure FPE|mulator |
|00000e20| 32 2e 37 30 20 45 72 72 | 6f 72 20 59 6f 75 20 6e |2.70 Err|or You n|
|00000e30| 65 65 64 20 46 50 45 6d | 75 6c 61 74 6f 72 20 32 |eed FPEm|ulator 2|
|00000e40| 2e 37 30 20 6f 72 20 6c | 61 74 65 72 0a 7c 0a 52 |.70 or l|ater.|.R|
|00000e50| 4d 45 6e 73 75 72 65 20 | 43 6f 6c 6f 75 72 54 72 |MEnsure |ColourTr|
|00000e60| 61 6e 73 20 30 2e 35 31 | 20 52 4d 4c 6f 61 64 20 |ans 0.51| RMLoad |
|00000e70| 53 79 73 74 65 6d 3a 4d | 6f 64 75 6c 65 73 2e 43 |System:M|odules.C|
|00000e80| 6f 6c 6f 75 72 73 0a 52 | 4d 45 6e 73 75 72 65 20 |olours.R|MEnsure |
|00000e90| 43 6f 6c 6f 46 69 6c 65 | 44 61 74 61 82 21 42 6f |ColoFile|Data.!Bo|
|00000ea0| 6f 74 00 00 45 eb ff ff | 46 00 00 00 41 eb ff ff |ot..E...|F...A...|
|00000eb0| 10 02 9f a3 03 00 5f 6a | 7c 20 62 6f 6f 74 20 66 |......_j|| boot f|
|00000ec0| 69 6c 65 20 66 6f 72 20 | 62 61 6c 6c 73 36 34 20 |ile for |balls64 |
|00000ed0| 61 70 70 6c 69 63 61 74 | 69 6f 6e 0a 0a 49 63 6f |applicat|ion..Ico|
|00000ee0| 6e 73 70 72 69 74 65 73 | 20 3c 4f 62 65 79 24 44 |nsprites| <Obey$D|
|00000ef0| 69 72 3e 2e 21 53 70 72 | 69 74 65 73 0a 0a 46 69 |ir>.!Spr|ites..Fi|
|00000f00| 6c 65 44 61 74 61 82 21 | 52 75 6e 00 00 00 45 eb |leData.!|Run...E.|
|00000f10| ff ff cc 02 00 00 41 eb | ff ff 68 e0 a7 c8 03 00 |......A.|..h.....|
|00000f20| a8 9e 7c 20 72 75 6e 20 | 66 69 6c 65 20 66 6f 72 |..| run |file for|
|00000f30| 20 62 61 6c 6c 73 36 34 | 20 61 70 70 6c 69 63 61 | balls64| applica|
|00000f40| 74 69 6f 6e 0a 7c 20 54 | 68 69 73 20 66 69 6c 65 |tion.| T|his file|
|00000f50| 20 63 68 65 63 6b 73 20 | 74 68 61 74 20 6e 65 63 | checks |that nec|
|00000f60| 65 73 73 61 72 79 20 6d | 6f 64 75 6c 65 73 20 61 |essary m|odules a|
|00000f70| 72 65 20 6c 6f 61 64 65 | 64 20 61 6e 64 20 63 6c |re loade|d and cl|
|00000f80| 61 69 6d 73 20 61 20 0a | 7c 20 22 73 6c 6f 74 22 |aims a .|| "slot"|
|00000f90| 20 66 72 6f 6d 20 74 68 | 65 20 57 49 4d 50 0a 0a | from th|e WIMP..|
|00000fa0| 2a 57 69 6d 70 53 6c 6f | 74 20 2d 6d 69 6e 20 31 |*WimpSlo|t -min 1|
|00000fb0| 31 30 6b 20 2d 6d 61 78 | 20 31 31 30 6b 0a 2a 49 |10k -max| 110k.*I|
|00000fc0| 63 6f 6e 53 70 72 69 74 | 65 73 20 3c 4f 62 65 79 |conSprit|es <Obey|
|00000fd0| 24 44 69 72 3e 2e 21 53 | 70 72 69 74 65 73 0a 7c |$Dir>.!S|prites.||
|00000fe0| 0a 69 66 20 22 3c 53 79 | 73 74 65 6d 24 50 61 74 |.if "<Sy|stem$Pat|
|00000ff0| 68 3e 22 20 3d 20 22 22 | 20 74 68 65 6e 20 45 72 |h>" = ""| then Er|
|00001000| 72 6f 72 20 30 20 53 79 | 73 74 65 6d 20 72 65 73 |ror 0 Sy|stem res|
|00001010| 6f 75 72 63 65 73 20 63 | 61 6e 6e 6f 74 20 62 65 |ources c|annot be|
|00001020| 20 66 6f 75 6e 64 0a 7c | 0a 52 4d 45 6e 73 75 72 | found.||.RMEnsur|
|00001030| 65 20 53 68 61 72 65 64 | 43 4c 69 62 72 61 72 79 |e Shared|CLibrary|
|00001040| 20 33 2e 35 30 20 52 4d | 4c 6f 61 64 20 53 79 73 | 3.50 RM|Load Sys|
|00001050| 74 65 6d 3a 4d 6f 64 75 | 6c 65 73 2e 43 6c 69 62 |tem:Modu|les.Clib|
|00001060| 0a 52 4d 45 6e 73 75 72 | 65 20 53 68 61 72 65 64 |.RMEnsur|e Shared|
|00001070| 43 4c 69 62 72 61 72 79 | 20 33 2e 35 30 20 45 72 |CLibrary| 3.50 Er|
|00001080| 72 6f 72 20 59 6f 75 20 | 6e 65 65 64 20 43 6c 69 |ror You |need Cli|
|00001090| 62 20 33 2e 35 30 20 6f | 72 20 6c 61 74 65 72 0a |b 3.50 o|r later.|
|000010a0| 7c 0a 52 4d 45 6e 73 75 | 72 65 20 46 50 45 6d 75 ||.RMEnsu|re FPEmu|
|000010b0| 6c 61 74 6f 72 20 32 2e | 37 30 20 52 4d 4c 6f 61 |lator 2.|70 RMLoa|
|000010c0| 64 20 53 79 73 74 65 6d | 3a 4d 6f 64 75 6c 65 73 |d System|:Modules|
|000010d0| 2e 46 50 45 6d 75 6c 61 | 74 6f 72 0a 52 4d 45 6e |.FPEmula|tor.RMEn|
|000010e0| 73 75 72 65 20 46 50 45 | 6d 75 6c 61 74 6f 72 20 |sure FPE|mulator |
|000010f0| 32 2e 37 30 20 45 72 72 | 6f 72 20 59 6f 75 20 6e |2.70 Err|or You n|
|00001100| 65 65 64 20 46 50 45 6d | 75 6c 61 74 6f 72 20 32 |eed FPEm|ulator 2|
|00001110| 2e 37 30 20 6f 72 20 6c | 61 74 65 72 0a 7c 0a 52 |.70 or l|ater.|.R|
|00001120| 4d 45 6e 73 75 72 65 20 | 43 6f 6c 6f 75 72 54 72 |MEnsure |ColourTr|
|00001130| 61 6e 73 20 30 2e 35 31 | 20 52 4d 4c 6f 61 64 20 |ans 0.51| RMLoad |
|00001140| 53 79 73 74 65 6d 3a 4d | 6f 64 75 6c 65 73 2e 43 |System:M|odules.C|
|00001150| 6f 6c 6f 75 72 73 0a 52 | 4d 45 6e 73 75 72 65 20 |olours.R|MEnsure |
|00001160| 43 6f 6c 6f 75 72 54 72 | 61 6e 73 20 30 2e 35 31 |ColourTr|ans 0.51|
|00001170| 20 45 72 72 6f 72 20 59 | 6f 75 20 6e 65 65 64 20 | Error Y|ou need |
|00001180| 43 6f 6c 6f 75 72 54 72 | 61 6e 73 20 30 2e 35 31 |ColourTr|ans 0.51|
|00001190| 20 6f 72 20 6c 61 74 65 | 72 0a 7c 0a 0a 2a 53 65 | or late|r.|..*Se|
|000011a0| 74 20 62 61 6c 6c 73 36 | 34 24 44 69 72 20 3c 4f |t balls6|4$Dir <O|
|000011b0| 62 65 79 24 44 69 72 3e | 0a 2a 57 69 6d 70 53 6c |bey$Dir>|.*WimpSl|
|000011c0| 6f 74 20 2d 6d 69 6e 20 | 31 31 30 6b 0a 2a 72 75 |ot -min |110k.*ru|
|000011d0| 6e 20 3c 62 61 6c 6c 73 | 36 34 24 44 69 72 3e 2e |n <balls|64$Dir>.|
|000011e0| 21 52 75 6e 49 6d 61 67 | 65 20 25 2a 30 0a 46 69 |!RunImag|e %*0.Fi|
|000011f0| 6c 65 44 61 74 61 82 21 | 53 70 72 69 74 65 73 00 |leData.!|Sprites.|
|00001200| ff ff 8c 01 00 00 41 f9 | ff ff b8 63 3b a3 03 00 |......A.|...c;...|
|00001210| 59 d1 01 00 00 00 10 00 | 00 00 90 01 00 00 80 01 |Y.......|........|
|00001220| 00 00 21 62 61 6c 6c 73 | 36 34 00 00 00 00 04 00 |..!balls|64......|
|00001230| 00 00 10 00 00 00 00 00 | 00 00 07 00 00 00 2c 00 |........|......,.|
|00001240| 00 00 2c 00 00 00 0c 00 | 00 00 99 99 99 99 99 99 |..,.....|........|
|00001250| 99 b9 bb bb bb bb bb bb | bb bb bb 00 00 00 99 99 |........|........|
|00001260| 99 99 99 99 99 99 bb bb | bb bb bb bb bb bb bb 00 |........|........|
|00001270| 00 00 99 99 99 99 99 99 | 99 99 b9 bb bb bb bb bb |........|........|
|00001280| fb ff ff 00 00 00 99 99 | 99 99 99 99 99 99 b9 bb |........|........|
|00001290| bb bb bb ff ff ff ff 00 | 00 00 99 99 99 99 99 99 |........|........|
|000012a0| 99 99 b9 bb bb bb fb ff | ff ff ff 00 00 00 99 99 |........|........|
|000012b0| 99 99 99 99 99 99 bb bb | bb bb ff ff ff ff ff 00 |........|........|
|000012c0| 00 00 99 99 99 99 99 99 | 99 b9 bb bb bb bb ff ff |........|........|
|000012d0| ff ff ff 00 00 00 99 99 | 99 99 99 89 88 bb bb bb |........|........|
|000012e0| bb bb ff ff ff ff ff 00 | 00 00 99 99 89 88 88 88 |........|........|
|000012f0| 88 88 88 88 bb bb fa ff | ff ff ff 00 00 00 77 89 |........|......w.|
|00001300| 88 88 88 88 88 88 88 88 | 88 33 aa ff cc cc cc 00 |........|.3......|
|00001310| 00 00 87 88 88 88 88 88 | 88 88 88 88 88 88 ca cc |........|........|
|00001320| cc cc cc 00 00 00 88 88 | 88 88 88 88 88 88 88 88 |........|........|
|00001330| 88 cc cc cc cc cc cc 00 | 00 00 88 88 88 88 88 88 |........|........|
|00001340| 88 88 88 88 c8 cc cc cc | cc cc cc 00 00 00 88 88 |........|........|
|00001350| 88 88 88 88 88 88 88 88 | cc cc cc cc cc cc cc 00 |........|........|
|00001360| 00 00 88 88 88 88 88 88 | 88 88 88 c8 cc cc cc cc |........|........|
|00001370| cc cc cc 00 00 00 88 88 | 88 88 88 88 88 88 88 c8 |........|........|
|00001380| cc cc cc cc cc cc cc 00 | 00 00 88 88 88 88 88 88 |........|........|
|00001390| 88 88 88 c8 cc cc cc cc | cc cc cc 00 00 00 46 69 |........|......Fi|
|000013a0| 6c 65 44 61 74 61 82 62 | 61 6c 6c 73 36 34 00 00 |leData.b|alls64..|
|000013b0| 00 00 51 43 00 00 45 fd | ff ff 08 df 00 a2 03 00 |..QC..E.|........|
|000013c0| d5 cf 28 2a 0a 20 2a 20 | 54 69 74 6c 65 3a 20 20 |..(*. * |Title: |
|000013d0| 20 20 62 61 6c 6c 73 36 | 34 0a 20 2a 20 50 75 72 | balls6|4. * Pur|
|000013e0| 70 6f 73 65 3a 20 20 74 | 6f 20 64 65 6d 6f 6e 73 |pose: t|o demons|
|000013f0| 74 72 61 74 65 20 74 68 | 65 20 75 73 65 20 6f 66 |trate th|e use of|
|00001400| 20 74 68 65 20 52 49 53 | 43 20 4f 53 20 6c 69 62 | the RIS|C OS lib|
|00001410| 72 61 72 79 0a 20 2a 0a | 20 2a 20 54 68 69 73 20 |rary. *.| * This |
|00001420| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 74 61 6b 65 |applicat|ion take|
|00001430| 73 20 74 68 65 20 62 61 | 6c 6c 73 36 34 20 70 72 |s the ba|lls64 pr|
|00001440| 6f 67 72 61 6d 2c 20 77 | 68 69 63 68 20 79 6f 75 |ogram, w|hich you|
|00001450| 20 6d 61 79 20 68 61 76 | 65 20 73 65 65 6e 20 61 | may hav|e seen a|
|00001460| 6e 64 0a 20 2a 20 64 69 | 73 70 6c 61 79 73 20 69 |nd. * di|splays i|
|00001470| 74 20 69 6e 20 61 20 77 | 69 6e 64 6f 77 2e 20 57 |t in a w|indow. W|
|00001480| 65 20 75 73 65 20 61 20 | 73 70 72 69 74 65 20 74 |e use a |sprite t|
|00001490| 6f 20 68 6f 6c 64 20 74 | 68 65 20 64 69 73 70 6c |o hold t|he displ|
|000014a0| 61 79 2c 20 61 6e 64 20 | 70 6c 6f 74 0a 20 2a 20 |ay, and |plot. * |
|000014b0| 74 68 69 73 20 73 70 72 | 69 74 65 20 73 63 61 6c |this spr|ite scal|
|000014c0| 65 64 20 74 6f 20 66 69 | 74 20 74 68 65 20 63 75 |ed to fi|t the cu|
|000014d0| 72 72 65 6e 74 20 73 69 | 7a 65 20 6f 66 20 74 68 |rrent si|ze of th|
|000014e0| 65 20 77 69 6e 64 6f 77 | 2e 0a 20 2a 20 4c 65 66 |e window|.. * Lef|
|000014f0| 74 2d 63 6c 69 63 6b 69 | 6e 67 20 6f 6e 20 74 68 |t-clicki|ng on th|
|00001500| 65 20 69 63 6f 6e 20 77 | 69 6c 6c 20 73 74 61 72 |e icon w|ill star|
|00001510| 74 20 74 68 65 20 64 69 | 73 70 6c 61 79 20 61 6e |t the di|splay an|
|00001520| 64 20 74 68 69 73 20 63 | 61 6e 20 62 65 0a 20 2a |d this c|an be. *|
|00001530| 20 22 66 72 6f 7a 65 6e | 2f 75 6e 66 72 6f 7a 65 | "frozen|/unfroze|
|00001540| 6e 22 20 75 73 69 6e 67 | 20 74 68 65 20 6d 61 69 |n" using| the mai|
|00001550| 6e 20 6d 65 6e 75 2e 20 | 53 69 6e 63 65 20 77 65 |n menu. |Since we|
|00001560| 20 61 72 65 20 69 6e 20 | 61 20 63 6f 6f 70 65 72 | are in |a cooper|
|00001570| 61 74 69 76 65 0a 20 2a | 20 6d 75 6c 74 69 2d 74 |ative. *| multi-t|
|00001580| 61 73 6b 69 6e 67 20 65 | 6e 76 69 72 6f 6e 6d 65 |asking e|nvironme|
|00001590| 6e 74 2c 20 77 65 20 64 | 69 73 70 6c 61 79 20 61 |nt, we d|isplay a|
|000015a0| 20 62 61 6c 6c 20 6f 6e | 20 65 76 65 72 79 20 6e | ball on| every n|
|000015b0| 75 6c 6c 20 65 76 65 6e | 74 20 74 6f 0a 20 2a 20 |ull even|t to. * |
|000015c0| 61 76 6f 69 64 20 22 68 | 6f 67 67 69 6e 67 22 20 |avoid "h|ogging" |
|000015d0| 74 68 65 20 43 50 55 0a | 20 2a 20 0a 20 2a 29 0a |the CPU.| * . *).|
|000015e0| 0a 50 72 6f 67 72 61 6d | 20 42 61 6c 6c 73 36 34 |.Program| Balls64|
|000015f0| 3b 0a 0a 4c 61 62 65 6c | 20 39 39 39 39 3b 0a 0a |;..Label| 9999;..|
|00001600| 23 69 6e 63 6c 75 64 65 | 20 22 77 69 6d 70 2e 68 |#include| "wimp.h|
|00001610| 22 20 20 20 20 20 20 20 | 20 28 2a 20 20 61 63 63 |" | (* acc|
|00001620| 65 73 73 20 74 6f 20 57 | 49 4d 50 20 53 57 49 73 |ess to W|IMP SWIs|
|00001630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001640| 20 20 20 20 20 20 2a 29 | 0a 23 69 6e 63 6c 75 64 | *)|.#includ|
|00001650| 65 20 22 77 69 6d 70 74 | 2e 68 22 20 20 20 20 20 |e "wimpt|.h" |
|00001660| 20 20 28 2a 20 20 77 69 | 6d 70 20 74 61 73 6b 20 | (* wi|mp task |
|00001670| 66 61 63 69 6c 69 74 69 | 65 73 20 20 20 20 20 20 |faciliti|es |
|00001680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a | | *|
|00001690| 29 0a 23 69 6e 63 6c 75 | 64 65 20 22 77 69 6e 2e |).#inclu|de "win.|
|000016a0| 68 22 20 20 20 20 20 20 | 20 20 20 28 2a 20 20 72 |h" | (* r|
|000016b0| 65 67 69 73 74 65 72 69 | 6e 67 20 77 69 6e 64 6f |egisteri|ng windo|
|000016c0| 77 20 68 61 6e 64 6c 65 | 72 73 20 20 20 20 20 20 |w handle|rs |
|000016d0| 20 20 20 20 20 20 20 20 | 2a 29 0a 23 69 6e 63 6c | |*).#incl|
|000016e0| 75 64 65 20 22 65 76 65 | 6e 74 2e 68 22 20 20 20 |ude "eve|nt.h" |
|000016f0| 20 20 20 20 28 2a 20 20 | 70 6f 6c 6c 20 6c 6f 6f | (* |poll loo|
|00001700| 70 73 2c 20 65 74 63 20 | 20 20 20 20 20 20 20 20 |ps, etc | |
|00001710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001720| 20 2a 29 0a 23 69 6e 63 | 6c 75 64 65 20 22 62 61 | *).#inc|lude "ba|
|00001730| 72 69 63 6f 6e 2e 68 22 | 20 20 20 20 20 28 2a 20 |ricon.h"| (* |
|00001740| 20 70 75 74 74 69 6e 67 | 20 69 63 6f 6e 20 6f 6e | putting| icon on|
|00001750| 20 69 63 6f 6e 20 62 61 | 72 20 20 20 20 20 20 20 | icon ba|r |
|00001760| 20 20 20 20 20 20 20 20 | 20 20 2a 29 0a 23 69 6e | | *).#in|
|00001770| 63 6c 75 64 65 20 22 73 | 70 72 69 74 65 2e 68 22 |clude "s|prite.h"|
|00001780| 20 20 20 20 20 20 28 2a | 20 20 73 70 72 69 74 65 | (*| sprite|
|00001790| 20 6f 70 65 72 61 74 69 | 6f 6e 73 20 20 20 20 20 | operati|ons |
|000017a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000017b0| 20 20 20 2a 29 0a 23 69 | 6e 63 6c 75 64 65 20 22 | *).#i|nclude "|
|000017c0| 77 65 72 72 2e 68 22 20 | 20 20 20 20 20 20 20 28 |werr.h" | (|
|000017d0| 2a 20 20 65 72 72 6f 72 | 20 72 65 70 6f 72 74 69 |* error| reporti|
|000017e0| 6e 67 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ng | |
|000017f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 29 0a 23 | | *).#|
|00001800| 69 6e 63 6c 75 64 65 20 | 22 72 65 73 2e 68 22 20 |include |"res.h" |
|00001810| 20 20 20 20 20 20 20 20 | 28 2a 20 20 61 63 63 65 | |(* acce|
|00001820| 73 73 20 74 6f 20 72 65 | 73 6f 75 72 63 65 73 20 |ss to re|sources |
|00001830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001840| 20 20 20 20 20 2a 29 0a | 23 69 6e 63 6c 75 64 65 | *).|#include|
|00001850| 20 22 72 65 73 73 70 72 | 2e 68 22 20 20 20 20 20 | "resspr|.h" |
|00001860| 20 28 2a 20 20 73 70 72 | 69 74 65 20 72 65 73 6f | (* spr|ite reso|
|00001870| 75 72 63 65 73 20 20 20 | 20 20 20 20 20 20 20 20 |urces | |
|00001880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 29 | | *)|
|00001890| 0a 23 69 6e 63 6c 75 64 | 65 20 22 66 6c 65 78 2e |.#includ|e "flex.|
|000018a0| 68 22 20 20 20 20 20 20 | 20 20 28 2a 20 20 64 79 |h" | (* dy|
|000018b0| 6e 61 6d 69 63 20 6d 65 | 6d 20 61 6c 6c 6f 63 20 |namic me|m alloc |
|000018c0| 66 72 6f 6d 20 57 49 4d | 50 20 20 20 20 20 20 20 |from WIM|P |
|000018d0| 20 20 20 20 20 20 20 2a | 29 0a 23 69 6e 63 6c 75 | *|).#inclu|
|000018e0| 64 65 20 22 74 65 6d 70 | 6c 61 74 65 2e 68 22 20 |de "temp|late.h" |
|000018f0| 20 20 20 28 2a 20 20 72 | 65 61 64 69 6e 67 20 69 | (* r|eading i|
|00001900| 6e 20 74 65 6d 70 6c 61 | 74 65 20 66 69 6c 65 20 |n templa|te file |
|00001910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001920| 2a 29 0a 23 69 6e 63 6c | 75 64 65 20 22 62 62 63 |*).#incl|ude "bbc|
|00001930| 2e 68 22 20 20 20 20 20 | 20 20 20 20 28 2a 20 20 |.h" | (* |
|00001940| 6f 6c 64 65 2d 73 74 79 | 6c 65 20 67 72 61 70 68 |olde-sty|le graph|
|00001950| 69 63 73 20 72 6f 75 74 | 69 6e 65 73 20 20 20 20 |ics rout|ines |
|00001960| 20 20 20 20 20 20 20 20 | 20 2a 29 0a 23 69 6e 63 | | *).#inc|
|00001970| 6c 75 64 65 20 22 63 6f | 6c 6f 75 72 74 72 61 6e |lude "co|lourtran|
|00001980| 2e 68 22 20 20 28 2a 20 | 20 69 6e 74 65 72 66 61 |.h" (* | interfa|
|00001990| 63 65 20 74 6f 20 63 6f | 6c 6f 75 72 20 74 72 61 |ce to co|lour tra|
|000019a0| 6e 73 6c 61 74 69 6f 6e | 20 6d 6f 64 75 6c 65 20 |nslation| module |
|000019b0| 20 20 2a 29 0a 23 69 6e | 63 6c 75 64 65 20 22 6f | *).#in|clude "o|
|000019c0| 73 2e 68 22 20 20 20 20 | 20 20 20 20 20 20 28 2a |s.h" | (*|
|000019d0| 20 20 6c 6f 77 2d 6c 65 | 76 65 6c 20 52 49 53 43 | low-le|vel RISC|
|000019e0| 4f 53 20 61 63 63 65 73 | 73 20 20 20 20 20 20 20 |OS acces|s |
|000019f0| 20 20 20 20 20 20 20 20 | 20 20 20 2a 29 0a 23 69 | | *).#i|
|00001a00| 6e 63 6c 75 64 65 20 22 | 64 62 6f 78 2e 68 22 20 |nclude "|dbox.h" |
|00001a10| 20 20 20 20 20 20 20 28 | 2a 20 20 64 69 61 6c 6f | (|* dialo|
|00001a20| 67 75 65 20 62 6f 78 20 | 68 61 6e 64 6c 69 6e 67 |gue box |handling|
|00001a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001a40| 20 20 20 20 2a 29 0a 23 | 69 6e 63 6c 75 64 65 20 | *).#|include |
|00001a50| 22 73 61 76 65 61 73 2e | 68 22 20 20 20 20 20 20 |"saveas.|h" |
|00001a60| 28 2a 20 20 64 61 74 61 | 20 65 78 70 6f 72 74 20 |(* data| export |
|00001a70| 66 72 6f 6d 20 64 62 6f | 78 20 62 79 20 69 63 6f |from dbo|x by ico|
|00001a80| 6e 20 64 72 61 67 67 69 | 6e 67 20 20 20 2a 29 0a |n draggi|ng *).|
|00001a90| 23 69 6e 63 6c 75 64 65 | 20 22 76 69 73 64 65 6c |#include| "visdel|
|00001aa0| 61 79 2e 68 22 20 20 20 | 20 28 2a 20 20 73 68 6f |ay.h" | (* sho|
|00001ab0| 77 20 74 68 65 20 68 6f | 75 72 67 6c 61 73 73 20 |w the ho|urglass |
|00001ac0| 66 6f 72 20 64 65 6c 61 | 79 20 20 20 20 20 20 20 |for dela|y |
|00001ad0| 20 20 20 20 20 20 2a 29 | 0a 0a 28 2a 20 2d 2d 2d | *)|..(* ---|
|00001ae0| 20 43 6f 6e 76 65 72 73 | 69 6f 6e 20 6d 61 63 72 | Convers|ion macr|
|00001af0| 6f 73 20 2d 2d 2d 20 2a | 29 0a 28 2a 20 54 68 65 |os --- *|).(* The|
|00001b00| 73 65 20 6d 61 63 72 6f | 73 20 63 6f 6e 76 65 72 |se macro|s conver|
|00001b10| 74 20 62 65 74 77 65 65 | 6e 20 73 70 72 69 74 65 |t betwee|n sprite|
|00001b20| 20 63 6f 6f 72 64 73 20 | 61 6e 64 20 77 6f 72 6b | coords |and work|
|00001b30| 20 61 72 65 61 20 63 6f | 6f 72 64 73 20 2a 29 0a | area co|ords *).|
|00001b40| 0a 23 64 65 66 69 6e 65 | 20 62 61 6c 6c 73 36 34 |.#define| balls64|
|00001b50| 5f 58 74 6f 77 6f 72 6b | 28 78 29 20 20 73 68 6c |_Xtowork|(x) shl|
|00001b60| 28 28 78 29 2c 20 31 29 | 0a 23 64 65 66 69 6e 65 |((x), 1)|.#define|
|00001b70| 20 62 61 6c 6c 73 36 34 | 5f 59 74 6f 77 6f 72 6b | balls64|_Ytowork|
|00001b80| 28 79 29 20 20 73 68 6c | 28 28 79 29 2c 20 32 29 |(y) shl|((y), 2)|
|00001b90| 0a 0a 28 2a 20 2d 2d 2d | 20 53 70 72 69 74 65 20 |..(* ---| Sprite |
|00001ba0| 43 6f 6e 73 74 61 6e 74 | 73 20 2d 2d 2d 20 2a 29 |Constant|s --- *)|
|00001bb0| 0a 23 64 65 66 69 6e 65 | 20 53 70 72 69 74 65 46 |.#define| SpriteF|
|00001bc0| 69 6c 65 20 20 20 24 30 | 66 66 39 0a 23 64 65 66 |ile $0|ff9.#def|
|00001bd0| 69 6e 65 20 53 70 72 69 | 74 65 57 69 64 74 68 20 |ine Spri|teWidth |
|00001be0| 20 36 31 30 0a 23 64 65 | 66 69 6e 65 20 53 70 72 | 610.#de|fine Spr|
|00001bf0| 69 74 65 48 65 69 67 68 | 74 20 32 33 30 0a 23 64 |iteHeigh|t 230.#d|
|00001c00| 65 66 69 6e 65 20 53 70 | 72 69 74 65 4d 6f 64 65 |efine Sp|riteMode|
|00001c10| 20 20 20 20 31 35 0a 23 | 64 65 66 69 6e 65 20 53 | 15.#|define S|
|00001c20| 70 72 69 74 65 53 69 7a | 65 20 20 20 36 34 30 2a |priteSiz|e 640*|
|00001c30| 32 35 36 20 2b 20 73 69 | 7a 65 28 73 70 72 69 74 |256 + si|ze(sprit|
|00001c40| 65 5f 68 65 61 64 65 72 | 29 20 2b 20 73 69 7a 65 |e_header|) + size|
|00001c50| 28 73 70 72 69 74 65 5f | 61 72 65 61 29 0a 0a 28 |(sprite_|area)..(|
|00001c60| 2a 20 2d 2d 2d 20 43 69 | 72 63 6c 65 20 43 6f 6e |* --- Ci|rcle Con|
|00001c70| 73 74 61 6e 74 73 20 2d | 2d 2d 20 2a 29 0a 23 64 |stants -|-- *).#d|
|00001c80| 65 66 69 6e 65 20 52 61 | 64 69 75 73 20 20 36 34 |efine Ra|dius 64|
|00001c90| 0a 23 64 65 66 69 6e 65 | 20 52 61 64 44 69 76 32 |.#define| RadDiv2|
|00001ca0| 20 73 68 72 28 52 61 64 | 69 75 73 2c 20 31 29 0a | shr(Rad|ius, 1).|
|00001cb0| 23 64 65 66 69 6e 65 20 | 53 74 65 70 20 20 20 20 |#define |Step |
|00001cc0| 73 68 72 28 52 61 64 69 | 75 73 2c 20 33 29 0a 0a |shr(Radi|us, 3)..|
|00001cd0| 28 2a 20 2d 2d 2d 20 4d | 65 6e 75 20 45 6e 74 72 |(* --- M|enu Entr|
|00001ce0| 79 20 43 6f 6e 73 74 61 | 6e 74 73 20 2d 2d 2d 20 |y Consta|nts --- |
|00001cf0| 2a 29 0a 23 64 65 66 69 | 6e 65 20 69 63 6f 6e 6d |*).#defi|ne iconm|
|00001d00| 65 6e 75 5f 4d 49 6e 66 | 6f 20 20 20 20 20 31 0a |enu_MInf|o 1.|
|00001d10| 23 64 65 66 69 6e 65 20 | 69 63 6f 6e 6d 65 6e 75 |#define |iconmenu|
|00001d20| 5f 4d 53 61 76 65 20 20 | 20 20 20 32 0a 23 64 65 |_MSave | 2.#de|
|00001d30| 66 69 6e 65 20 69 63 6f | 6e 6d 65 6e 75 5f 4d 44 |fine ico|nmenu_MD|
|00001d40| 69 73 70 6c 61 79 20 20 | 33 0a 23 64 65 66 69 6e |isplay |3.#defin|
|00001d50| 65 20 69 63 6f 6e 6d 65 | 6e 75 5f 4d 46 72 65 65 |e iconme|nu_MFree|
|00001d60| 7a 65 20 20 20 34 0a 23 | 64 65 66 69 6e 65 20 69 |ze 4.#|define i|
|00001d70| 63 6f 6e 6d 65 6e 75 5f | 4d 51 75 69 74 20 20 20 |conmenu_|MQuit |
|00001d80| 20 20 35 0a 0a 74 79 70 | 65 20 73 70 72 5f 64 65 | 5..typ|e spr_de|
|00001d90| 74 61 69 6c 73 20 3d 0a | 20 20 20 20 20 20 20 72 |tails =.| r|
|00001da0| 65 63 6f 72 64 0a 20 20 | 20 20 20 20 20 20 20 61 |ecord. | a|
|00001db0| 72 65 61 20 3a 20 73 70 | 72 69 74 65 5f 61 72 65 |rea : sp|rite_are|
|00001dc0| 61 5f 70 74 72 3b 0a 20 | 20 20 20 20 20 20 20 20 |a_ptr;. | |
|00001dd0| 69 64 20 3a 20 73 70 72 | 69 74 65 5f 69 64 0a 20 |id : spr|ite_id. |
|00001de0| 20 20 20 20 20 20 65 6e | 64 3b 0a 0a 74 79 70 65 | en|d;..type|
|00001df0| 20 63 68 61 6e 67 65 5f | 62 6f 78 5f 68 61 6e 64 | change_|box_hand|
|00001e00| 6c 65 20 3d 20 5e 63 68 | 61 6e 67 65 5f 62 6f 78 |le = ^ch|ange_box|
|00001e10| 5f 70 74 72 3b 0a 20 20 | 20 20 20 63 68 61 6e 67 |_ptr;. | chang|
|00001e20| 65 5f 62 6f 78 5f 70 74 | 72 20 3d 20 5e 63 68 61 |e_box_pt|r = ^cha|
|00001e30| 6e 67 65 5f 62 6f 78 3b | 0a 20 20 20 20 20 63 68 |nge_box;|. ch|
|00001e40| 61 6e 67 65 5f 62 6f 78 | 20 3d 0a 20 20 20 20 20 |ange_box| =. |
|00001e50| 20 20 72 65 63 6f 72 64 | 0a 20 20 20 20 20 20 20 | record|. |
|00001e60| 20 20 66 6c 61 67 20 3a | 20 69 6e 74 65 67 65 72 | flag :| integer|
|00001e70| 3b 0a 20 20 20 20 20 20 | 20 20 20 62 6f 78 20 3a |;. | box :|
|00001e80| 20 77 69 6d 70 5f 62 6f | 78 0a 20 20 20 20 20 20 | wimp_bo|x. |
|00001e90| 20 65 6e 64 3b 0a 0a 28 | 2a 20 2d 2d 2d 20 50 72 | end;..(|* --- Pr|
|00001ea0| 6f 67 72 61 6d 20 47 6c | 6f 62 61 6c 73 20 2d 2d |ogram Gl|obals --|
|00001eb0| 2d 20 2a 29 0a 0a 76 61 | 72 20 6d 79 5f 73 70 72 |- *)..va|r my_spr|
|00001ec0| 69 74 65 20 3a 20 73 70 | 72 5f 64 65 74 61 69 6c |ite : sp|r_detail|
|00001ed0| 73 3b 20 20 20 20 20 20 | 20 20 20 28 2a 20 73 70 |s; | (* sp|
|00001ee0| 72 69 74 65 20 75 73 65 | 64 20 66 6f 72 20 64 69 |rite use|d for di|
|00001ef0| 73 70 6c 61 79 20 20 20 | 20 20 20 2a 29 0a 20 20 |splay | *). |
|00001f00| 20 20 64 69 73 70 6c 61 | 79 77 69 6e 5f 68 61 6e | displa|ywin_han|
|00001f10| 64 6c 65 20 3a 20 77 69 | 6d 70 5f 77 3b 20 20 20 |dle : wi|mp_w; |
|00001f20| 20 20 20 28 2a 20 64 69 | 73 70 6c 61 79 20 77 69 | (* di|splay wi|
|00001f30| 6e 64 6f 77 20 68 61 6e | 64 6c 65 20 20 20 20 20 |ndow han|dle |
|00001f40| 20 20 20 2a 29 0a 20 20 | 20 20 73 61 76 65 5f 61 | *). | save_a|
|00001f50| 72 65 61 20 3a 20 5e 69 | 6e 74 65 67 65 72 3b 20 |rea : ^i|nteger; |
|00001f60| 20 20 20 20 20 20 20 20 | 20 20 20 28 2a 20 73 61 | | (* sa|
|00001f70| 76 65 20 61 72 65 61 20 | 66 6f 72 20 73 70 72 69 |ve area |for spri|
|00001f80| 74 65 20 63 6f 6e 74 65 | 78 74 20 2a 29 0a 0a 20 |te conte|xt *).. |
|00001f90| 20 20 20 64 69 73 70 6c | 61 79 69 6e 67 20 3a 20 | displ|aying : |
|00001fa0| 62 6f 6f 6c 65 61 6e 3b | 20 20 20 20 20 20 20 20 |boolean;| |
|00001fb0| 20 20 20 20 28 2a 20 77 | 69 6e 64 6f 77 20 6f 6e | (* w|indow on|
|00001fc0| 20 64 69 73 70 6c 61 79 | 3f 20 20 20 20 20 20 20 | display|? |
|00001fd0| 20 20 20 20 2a 29 0a 20 | 20 20 20 66 72 6f 7a 65 | *). | froze|
|00001fe0| 6e 20 3a 20 62 6f 6f 6c | 65 61 6e 3b 20 20 20 20 |n : bool|ean; |
|00001ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 2a 20 77 | | (* w|
|00002000| 69 6e 64 6f 77 20 64 69 | 73 70 6c 61 79 20 66 72 |indow di|splay fr|
|00002010| 6f 7a 65 6e 3f 20 20 20 | 20 20 20 20 2a 29 0a 20 |ozen? | *). |
|00002020| 20 20 20 78 64 69 76 6d | 75 6c 74 2c 20 79 64 69 | xdivm|ult, ydi|
|00002030| 76 6d 75 6c 74 2c 0a 20 | 20 20 20 78 6d 61 67 6d |vmult,. | xmagm|
|00002040| 75 6c 74 2c 20 79 6d 61 | 67 6d 75 6c 74 20 3a 20 |ult, yma|gmult : |
|00002050| 69 6e 74 65 67 65 72 3b | 20 20 20 20 28 2a 20 73 |integer;| (* s|
|00002060| 63 61 6c 65 20 74 6f 20 | 66 69 74 20 77 69 6e 64 |cale to |fit wind|
|00002070| 6f 77 20 20 20 20 20 20 | 20 20 20 20 2a 29 0a 20 |ow | *). |
|00002080| 20 20 20 74 72 61 6e 73 | 20 3a 20 61 72 72 61 79 | trans| : array|
|00002090| 5b 30 2e 2e 32 35 35 5d | 20 6f 66 20 73 70 72 69 |[0..255]| of spri|
|000020a0| 74 65 5f 70 69 78 74 72 | 61 6e 73 3b 0a 20 20 20 |te_pixtr|ans;. |
|000020b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000020d0| 20 20 28 2a 20 63 6f 6c | 6f 75 72 20 74 72 61 6e | (* col|our tran|
|000020e0| 73 6c 61 74 69 6f 6e 20 | 74 61 62 6c 65 20 20 20 |slation |table |
|000020f0| 20 20 2a 29 0a 20 0a 0a | 28 2a 2a 2a 2a 2a 2a 2a | *). ..|(*******|
|00002100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002110| 2a 2a 2a 2a 20 53 50 52 | 49 54 45 20 43 52 45 41 |**** SPR|ITE CREA|
|00002120| 54 49 4f 4e 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |TION ***|********|
|00002130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002140| 2a 2a 2a 2a 29 0a 0a 70 | 72 6f 63 65 64 75 72 65 |****)..p|rocedure|
|00002150| 20 62 61 6c 6c 73 36 34 | 5f 63 72 65 61 74 65 5f | balls64|_create_|
|00002160| 73 70 72 69 74 65 28 76 | 61 72 20 6d 79 5f 73 70 |sprite(v|ar my_sp|
|00002170| 72 69 74 65 20 3a 20 73 | 70 72 5f 64 65 74 61 69 |rite : s|pr_detai|
|00002180| 6c 73 29 3b 0a 0a 76 61 | 72 20 73 61 76 65 5f 61 |ls);..va|r save_a|
|00002190| 72 65 61 5f 73 69 7a 65 | 20 3a 20 69 6e 74 65 67 |rea_size| : integ|
|000021a0| 65 72 3b 0a 20 20 20 20 | 70 74 72 20 3a 20 73 70 |er;. |ptr : sp|
|000021b0| 72 69 74 65 5f 70 74 72 | 3b 0a 0a 62 65 67 69 6e |rite_ptr|;..begin|
|000021c0| 0a 20 20 28 2a 20 2d 2d | 2d 20 61 6c 6c 6f 63 61 |. (* --|- alloca|
|000021d0| 74 65 20 6f 75 72 20 6f | 77 6e 20 73 70 72 69 74 |te our o|wn sprit|
|000021e0| 65 20 61 72 65 61 20 74 | 6f 20 68 6f 6c 64 20 62 |e area t|o hold b|
|000021f0| 61 6c 6c 73 20 64 69 73 | 70 6c 61 79 20 2d 2d 2d |alls dis|play ---|
|00002200| 20 2a 29 0a 0a 20 20 69 | 66 20 6e 6f 74 20 66 6c | *).. i|f not fl|
|00002210| 65 78 5f 61 6c 6c 6f 63 | 28 66 6c 65 78 5f 70 74 |ex_alloc|(flex_pt|
|00002220| 72 28 61 64 64 72 65 73 | 73 28 6d 79 5f 73 70 72 |r(addres|s(my_spr|
|00002230| 69 74 65 2e 61 72 65 61 | 29 29 2c 20 53 70 72 69 |ite.area|)), Spri|
|00002240| 74 65 53 69 7a 65 29 0a | 20 20 20 20 74 68 65 6e |teSize).| then|
|00002250| 20 77 65 72 72 28 54 52 | 55 45 2c 20 27 46 61 74 | werr(TR|UE, 'Fat|
|00002260| 61 6c 20 65 72 72 6f 72 | 20 2d 20 66 61 69 6c 65 |al error| - faile|
|00002270| 64 20 74 6f 20 61 6c 6c | 6f 63 61 74 65 20 73 74 |d to all|ocate st|
|00002280| 6f 72 65 20 66 6f 72 20 | 73 70 72 69 74 65 27 29 |ore for |sprite')|
|00002290| 3b 0a 20 20 73 70 72 69 | 74 65 5f 61 72 65 61 5f |;. spri|te_area_|
|000022a0| 69 6e 69 74 69 61 6c 69 | 73 65 28 6d 79 5f 73 70 |initiali|se(my_sp|
|000022b0| 72 69 74 65 2e 61 72 65 | 61 2c 20 53 70 72 69 74 |rite.are|a, Sprit|
|000022c0| 65 53 69 7a 65 29 3b 0a | 20 20 0a 20 20 28 2a 20 |eSize);.| . (* |
|000022d0| 2d 2d 2d 20 63 72 65 61 | 74 65 20 61 20 73 70 72 |--- crea|te a spr|
|000022e0| 69 74 65 20 77 69 74 68 | 69 6e 20 74 68 61 74 20 |ite with|in that |
|000022f0| 61 72 65 61 20 2d 2d 2d | 20 2a 29 0a 0a 20 20 77 |area ---| *).. w|
|00002300| 69 6d 70 74 5f 63 6f 6d | 70 6c 61 69 6e 28 73 70 |impt_com|plain(sp|
|00002310| 72 69 74 65 5f 63 72 65 | 61 74 65 28 6d 79 5f 73 |rite_cre|ate(my_s|
|00002320| 70 72 69 74 65 2e 61 72 | 65 61 2c 20 27 62 61 6c |prite.ar|ea, 'bal|
|00002330| 6c 64 69 73 70 6c 61 79 | 27 2c 0a 20 20 20 20 20 |ldisplay|',. |
|00002340| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 70 72 69 | | spri|
|00002350| 74 65 5f 6e 6f 70 61 6c | 65 74 74 65 2c 20 53 70 |te_nopal|ette, Sp|
|00002360| 72 69 74 65 57 69 64 74 | 68 2c 20 53 70 72 69 74 |riteWidt|h, Sprit|
|00002370| 65 48 65 69 67 68 74 2c | 20 53 70 72 69 74 65 4d |eHeight,| SpriteM|
|00002380| 6f 64 65 29 29 3b 0a 20 | 20 6d 79 5f 73 70 72 69 |ode));. | my_spri|
|00002390| 74 65 2e 69 64 2e 74 61 | 67 20 3a 3d 20 73 70 72 |te.id.ta|g := spr|
|000023a0| 69 74 65 5f 69 64 5f 6e | 61 6d 65 3b 0a 20 20 6d |ite_id_n|ame;. m|
|000023b0| 79 5f 73 70 72 69 74 65 | 2e 69 64 2e 73 2e 6e 61 |y_sprite|.id.s.na|
|000023c0| 6d 65 20 3a 3d 20 27 62 | 61 6c 6c 64 69 73 70 6c |me := 'b|alldispl|
|000023d0| 61 79 27 3b 0a 0a 20 20 | 28 2a 20 2d 2d 2d 20 73 |ay';.. |(* --- s|
|000023e0| 65 6c 65 63 74 20 74 68 | 65 20 73 70 72 69 74 65 |elect th|e sprite|
|000023f0| 20 61 6e 64 20 67 65 74 | 20 61 20 70 6f 69 6e 74 | and get| a point|
|00002400| 65 72 20 74 6f 20 69 74 | 20 28 66 61 73 74 65 72 |er to it| (faster|
|00002410| 29 20 2d 2d 2d 20 2a 29 | 0a 0a 20 20 77 69 6d 70 |) --- *)|.. wimp|
|00002420| 74 5f 63 6f 6d 70 6c 61 | 69 6e 28 73 70 72 69 74 |t_compla|in(sprit|
|00002430| 65 5f 73 65 6c 65 63 74 | 5f 72 70 28 6d 79 5f 73 |e_select|_rp(my_s|
|00002440| 70 72 69 74 65 2e 61 72 | 65 61 2c 20 61 64 64 72 |prite.ar|ea, addr|
|00002450| 65 73 73 28 6d 79 5f 73 | 70 72 69 74 65 2e 69 64 |ess(my_s|prite.id|
|00002460| 29 2c 20 70 74 72 29 29 | 3b 0a 20 20 6d 79 5f 73 |), ptr))|;. my_s|
|00002470| 70 72 69 74 65 2e 69 64 | 2e 74 61 67 20 3a 3d 20 |prite.id|.tag := |
|00002480| 73 70 72 69 74 65 5f 69 | 64 5f 61 64 64 72 3b 0a |sprite_i|d_addr;.|
|00002490| 20 20 6d 79 5f 73 70 72 | 69 74 65 2e 69 64 2e 73 | my_spr|ite.id.s|
|000024a0| 2e 61 64 64 72 20 3a 3d | 20 70 74 72 3b 0a 20 20 |.addr :=| ptr;. |
|000024b0| 20 20 0a 20 20 28 2a 20 | 2d 2d 2d 20 65 73 74 61 | . (* |--- esta|
|000024c0| 62 6c 69 73 68 20 73 61 | 76 65 20 61 72 65 61 20 |blish sa|ve area |
|000024d0| 73 69 7a 65 20 66 6f 72 | 20 73 70 72 69 74 65 20 |size for| sprite |
|000024e0| 63 6f 6e 74 65 78 74 20 | 61 6e 64 20 61 6c 6c 6f |context |and allo|
|000024f0| 63 61 74 65 20 69 74 20 | 2d 2d 2d 20 2a 29 0a 20 |cate it |--- *). |
|00002500| 20 28 2a 20 2d 2d 2d 20 | 61 6c 73 6f 20 73 65 74 | (* --- |also set|
|00002510| 20 73 61 76 65 20 61 72 | 65 61 27 73 20 66 69 72 | save ar|ea's fir|
|00002520| 73 74 20 77 6f 72 64 20 | 74 6f 20 7a 65 72 6f 20 |st word |to zero |
|00002530| 74 6f 20 73 68 6f 77 20 | 69 74 20 69 73 20 6e 6f |to show |it is no|
|00002540| 74 20 20 20 2d 2d 2d 20 | 2a 29 0a 20 20 28 2a 20 |t --- |*). (* |
|00002550| 2d 2d 2d 20 79 65 74 20 | 69 6e 69 74 69 61 6c 69 |--- yet |initiali|
|00002560| 73 65 64 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |sed | |
|00002570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002590| 2d 2d 2d 20 2a 29 0a 0a | 20 20 77 69 6d 70 74 5f |--- *)..| wimpt_|
|000025a0| 63 6f 6d 70 6c 61 69 6e | 28 73 70 72 69 74 65 5f |complain|(sprite_|
|000025b0| 73 69 7a 65 6f 66 5f 73 | 70 72 69 74 65 63 6f 6e |sizeof_s|pritecon|
|000025c0| 74 65 78 74 28 6d 79 5f | 73 70 72 69 74 65 2e 61 |text(my_|sprite.a|
|000025d0| 72 65 61 2c 0a 20 20 20 | 20 20 20 20 20 20 20 20 |rea,. | |
|000025e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002600| 20 20 61 64 64 72 65 73 | 73 28 6d 79 5f 73 70 72 | addres|s(my_spr|
|00002610| 69 74 65 2e 69 64 29 2c | 0a 20 20 20 20 20 20 20 |ite.id),|. |
|00002620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002640| 20 20 20 20 20 20 73 61 | 76 65 5f 61 72 65 61 5f | sa|ve_area_|
|00002650| 73 69 7a 65 29 29 3b 0a | 20 20 69 66 20 6e 6f 74 |size));.| if not|
|00002660| 20 66 6c 65 78 5f 61 6c | 6c 6f 63 28 66 6c 65 78 | flex_al|loc(flex|
|00002670| 5f 70 74 72 28 61 64 64 | 72 65 73 73 28 73 61 76 |_ptr(add|ress(sav|
|00002680| 65 5f 61 72 65 61 29 29 | 2c 20 73 61 76 65 5f 61 |e_area))|, save_a|
|00002690| 72 65 61 5f 73 69 7a 65 | 29 0a 20 20 20 20 74 68 |rea_size|). th|
|000026a0| 65 6e 20 77 65 72 72 28 | 54 52 55 45 2c 20 27 46 |en werr(|TRUE, 'F|
|000026b0| 61 74 61 6c 20 65 72 72 | 6f 72 20 2d 20 66 61 69 |atal err|or - fai|
|000026c0| 6c 65 64 20 74 6f 20 67 | 65 74 20 73 74 6f 72 65 |led to g|et store|
|000026d0| 20 66 6f 72 20 73 70 72 | 69 74 65 20 63 6f 6e 74 | for spr|ite cont|
|000026e0| 65 78 74 27 29 3b 0a 20 | 20 73 61 76 65 5f 61 72 |ext');. | save_ar|
|000026f0| 65 61 5e 20 3a 3d 20 30 | 3b 0a 65 6e 64 3b 0a 0a |ea^ := 0|;.end;..|
|00002700| 28 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |(*******|********|
|00002710| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 20 57 |********|****** W|
|00002720| 49 4e 44 4f 57 20 48 41 | 4e 44 4c 49 4e 47 20 2a |INDOW HA|NDLING *|
|00002730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 29 0a 0a 70 |********|****)..p|
|00002750| 72 6f 63 65 64 75 72 65 | 20 62 61 6c 6c 73 36 34 |rocedure| balls64|
|00002760| 5f 63 72 65 61 74 65 5f | 64 69 73 70 6c 61 79 77 |_create_|displayw|
|00002770| 69 6e 28 76 61 72 20 68 | 61 6e 64 6c 65 20 3a 20 |in(var h|andle : |
|00002780| 77 69 6d 70 5f 77 29 3b | 0a 0a 76 61 72 20 77 69 |wimp_w);|..var wi|
|00002790| 6e 64 6f 77 20 3a 20 77 | 69 6d 70 5f 77 69 6e 64 |ndow : w|imp_wind|
|000027a0| 5f 70 74 72 3b 0a 0a 62 | 65 67 69 6e 0a 0a 20 20 |_ptr;..b|egin.. |
|000027b0| 28 2a 20 2d 2d 2d 20 66 | 69 6e 64 20 74 65 6d 70 |(* --- f|ind temp|
|000027c0| 6c 61 74 65 20 66 6f 72 | 20 6f 75 72 20 77 69 6e |late for| our win|
|000027d0| 64 6f 77 20 61 6e 64 20 | 63 72 65 61 74 65 20 61 |dow and |create a|
|000027e0| 20 77 69 6e 64 6f 77 20 | 66 72 6f 6d 20 69 74 20 | window |from it |
|000027f0| 2d 2d 2d 20 2a 29 0a 20 | 20 20 20 77 69 6e 64 6f |--- *). | windo|
|00002800| 77 20 3a 3d 20 74 65 6d | 70 6c 61 74 65 5f 73 79 |w := tem|plate_sy|
|00002810| 73 68 61 6e 64 6c 65 28 | 27 62 61 6c 6c 73 77 69 |shandle(|'ballswi|
|00002820| 6e 64 27 29 3b 0a 20 20 | 20 20 77 69 6d 70 5f 63 |nd');. | wimp_c|
|00002830| 72 65 61 74 65 5f 77 69 | 6e 64 28 77 69 6e 64 6f |reate_wi|nd(windo|
|00002840| 77 2c 20 68 61 6e 64 6c | 65 29 3b 0a 0a 65 6e 64 |w, handl|e);..end|
|00002850| 3b 0a 0a 70 72 6f 63 65 | 64 75 72 65 20 62 61 6c |;..proce|dure bal|
|00002860| 6c 73 36 34 5f 72 65 64 | 6f 5f 77 69 6e 64 6f 77 |ls64_red|o_window|
|00002870| 28 72 20 3a 20 77 69 6d | 70 5f 72 65 64 72 61 77 |(r : wim|p_redraw|
|00002880| 73 74 72 3b 20 6d 6f 72 | 65 20 3a 20 69 6e 74 65 |str; mor|e : inte|
|00002890| 67 65 72 29 3b 0a 0a 76 | 61 72 20 6d 6f 72 65 5f |ger);..v|ar more_|
|000028a0| 74 6f 5f 64 6f 20 3a 20 | 69 6e 74 65 67 65 72 3b |to_do : |integer;|
|000028b0| 0a 20 20 20 20 6e 65 77 | 5f 72 20 3a 20 77 69 6d |. new|_r : wim|
|000028c0| 70 5f 72 65 64 72 61 77 | 73 74 72 3b 0a 20 20 20 |p_redraw|str;. |
|000028d0| 20 66 61 63 74 6f 72 73 | 20 3a 20 73 70 72 69 74 | factors| : sprit|
|000028e0| 65 5f 66 61 63 74 6f 72 | 73 3b 0a 20 20 20 20 70 |e_factor|s;. p|
|000028f0| 69 78 74 72 61 6e 73 20 | 3a 20 61 72 72 61 79 5b |ixtrans |: array[|
|00002900| 30 2e 2e 32 35 35 5d 20 | 6f 66 20 73 70 72 69 74 |0..255] |of sprit|
|00002910| 65 5f 70 69 78 74 72 61 | 6e 73 3b 0a 0a 62 65 67 |e_pixtra|ns;..beg|
|00002920| 69 6e 0a 0a 20 20 6d 6f | 72 65 5f 74 6f 5f 64 6f |in.. mo|re_to_do|
|00002930| 20 3a 3d 20 6d 6f 72 65 | 3b 0a 20 20 6e 65 77 5f | := more|;. new_|
|00002940| 72 20 3a 3d 20 72 3b 0a | 20 20 0a 20 20 28 2a 20 |r := r;.| . (* |
|00002950| 2d 2d 2d 20 61 73 6b 20 | 68 6f 77 20 74 68 65 20 |--- ask |how the |
|00002960| 57 49 4d 50 20 69 73 20 | 67 6f 69 6e 67 20 74 6f |WIMP is |going to|
|00002970| 20 73 63 61 6c 65 20 6f | 75 72 20 73 70 72 69 74 | scale o|ur sprit|
|00002980| 65 20 2d 2d 2d 20 2a 29 | 0a 20 20 77 69 6d 70 5f |e --- *)|. wimp_|
|00002990| 72 65 61 64 70 69 78 74 | 72 61 6e 73 28 6d 79 5f |readpixt|rans(my_|
|000029a0| 73 70 72 69 74 65 2e 61 | 72 65 61 2c 20 61 64 64 |sprite.a|rea, add|
|000029b0| 72 65 73 73 28 6d 79 5f | 73 70 72 69 74 65 2e 69 |ress(my_|sprite.i|
|000029c0| 64 29 2c 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |d),. | |
|000029d0| 20 20 20 20 20 20 20 20 | 61 64 64 72 65 73 73 28 | |address(|
|000029e0| 66 61 63 74 6f 72 73 29 | 2c 20 61 64 64 72 65 73 |factors)|, addres|
|000029f0| 73 28 70 69 78 74 72 61 | 6e 73 5b 30 5d 29 29 3b |s(pixtra|ns[0]));|
|00002a00| 0a 0a 20 20 28 2a 20 2d | 2d 20 73 63 61 6c 65 20 |.. (* -|- scale |
|00002a10| 74 68 65 20 66 61 63 74 | 6f 72 73 20 61 63 63 6f |the fact|ors acco|
|00002a20| 72 64 69 6e 67 20 74 6f | 20 63 75 72 72 65 6e 74 |rding to| current|
|00002a30| 20 77 69 6e 64 6f 77 20 | 73 69 7a 65 20 2d 2d 2d | window |size ---|
|00002a40| 20 2a 29 0a 20 20 66 61 | 63 74 6f 72 73 2e 78 64 | *). fa|ctors.xd|
|00002a50| 69 76 20 3a 3d 20 66 61 | 63 74 6f 72 73 2e 78 64 |iv := fa|ctors.xd|
|00002a60| 69 76 20 2a 20 78 64 69 | 76 6d 75 6c 74 3b 0a 20 |iv * xdi|vmult;. |
|00002a70| 20 66 61 63 74 6f 72 73 | 2e 79 64 69 76 20 3a 3d | factors|.ydiv :=|
|00002a80| 20 66 61 63 74 6f 72 73 | 2e 79 64 69 76 20 2a 20 | factors|.ydiv * |
|00002a90| 79 64 69 76 6d 75 6c 74 | 3b 0a 20 20 66 61 63 74 |ydivmult|;. fact|
|00002aa0| 6f 72 73 2e 78 6d 61 67 | 20 3a 3d 20 66 61 63 74 |ors.xmag| := fact|
|00002ab0| 6f 72 73 2e 78 6d 61 67 | 20 2a 20 78 6d 61 67 6d |ors.xmag| * xmagm|
|00002ac0| 75 6c 74 3b 0a 20 20 66 | 61 63 74 6f 72 73 2e 79 |ult;. f|actors.y|
|00002ad0| 6d 61 67 20 3a 3d 20 66 | 61 63 74 6f 72 73 2e 79 |mag := f|actors.y|
|00002ae0| 6d 61 67 20 2a 20 79 6d | 61 67 6d 75 6c 74 3b 0a |mag * ym|agmult;.|
|00002af0| 0a 20 20 28 2a 20 2d 2d | 2d 20 72 65 66 72 65 73 |. (* --|- refres|
|00002b00| 68 20 74 68 65 20 77 69 | 6e 64 6f 77 27 73 20 63 |h the wi|ndow's c|
|00002b10| 6f 6e 74 65 6e 74 73 20 | 2d 2d 2d 20 2a 29 0a 20 |ontents |--- *). |
|00002b20| 20 77 68 69 6c 65 20 6d | 6f 72 65 5f 74 6f 5f 64 | while m|ore_to_d|
|00002b30| 6f 20 3c 3e 20 30 0a 20 | 20 20 20 64 6f 20 62 65 |o <> 0. | do be|
|00002b40| 67 69 6e 0a 20 20 20 20 | 20 20 20 20 20 77 69 6d |gin. | wim|
|00002b50| 70 74 5f 63 6f 6d 70 6c | 61 69 6e 28 73 70 72 69 |pt_compl|ain(spri|
|00002b60| 74 65 5f 70 75 74 5f 73 | 63 61 6c 65 64 28 6d 79 |te_put_s|caled(my|
|00002b70| 5f 73 70 72 69 74 65 2e | 61 72 65 61 2c 0a 20 20 |_sprite.|area,. |
|00002b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002ba0| 20 20 20 20 20 20 20 20 | 61 64 64 72 65 73 73 28 | |address(|
|00002bb0| 6d 79 5f 73 70 72 69 74 | 65 2e 69 64 29 2c 20 30 |my_sprit|e.id), 0|
|00002bc0| 2c 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,. | |
|00002bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 72 2e 62 6f | | r.bo|
|00002bf0| 78 2e 78 30 2c 20 72 2e | 62 6f 78 2e 79 30 2c 0a |x.x0, r.|box.y0,.|
|00002c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002c20| 20 20 20 20 20 20 20 20 | 20 20 61 64 64 72 65 73 | | addres|
|00002c30| 73 28 66 61 63 74 6f 72 | 73 29 2c 0a 20 20 20 20 |s(factor|s),. |
|00002c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002c60| 20 20 20 20 20 20 61 64 | 64 72 65 73 73 28 74 72 | ad|dress(tr|
|00002c70| 61 6e 73 5b 30 5d 29 29 | 29 3b 0a 20 20 20 20 20 |ans[0]))|);. |
|00002c80| 20 20 20 20 77 69 6d 70 | 5f 67 65 74 5f 72 65 63 | wimp|_get_rec|
|00002c90| 74 61 6e 67 6c 65 28 61 | 64 64 72 65 73 73 28 6e |tangle(a|ddress(n|
|00002ca0| 65 77 5f 72 29 2c 20 6d | 6f 72 65 5f 74 6f 5f 64 |ew_r), m|ore_to_d|
|00002cb0| 6f 29 3b 0a 20 20 20 20 | 20 20 20 65 6e 64 3b 0a |o);. | end;.|
|00002cc0| 65 6e 64 3b 0a 0a 70 72 | 6f 63 65 64 75 72 65 20 |end;..pr|ocedure |
|00002cd0| 62 61 6c 6c 73 36 34 5f | 72 65 64 72 61 77 5f 77 |balls64_|redraw_w|
|00002ce0| 69 6e 64 6f 77 28 68 61 | 6e 64 6c 65 20 3a 20 77 |indow(ha|ndle : w|
|00002cf0| 69 6d 70 5f 77 29 3b 0a | 0a 76 61 72 20 6d 6f 72 |imp_w);.|.var mor|
|00002d00| 65 20 3a 20 69 6e 74 65 | 67 65 72 3b 0a 20 20 20 |e : inte|ger;. |
|00002d10| 20 72 20 3a 20 77 69 6d | 70 5f 72 65 64 72 61 77 | r : wim|p_redraw|
|00002d20| 73 74 72 3b 0a 20 20 20 | 20 77 69 6e 66 6f 20 3a |str;. | winfo :|
|00002d30| 20 77 69 6d 70 5f 77 69 | 6e 66 6f 3b 0a 0a 62 65 | wimp_wi|nfo;..be|
|00002d40| 67 69 6e 0a 20 20 0a 20 | 20 77 69 6e 66 6f 2e 77 |gin. . | winfo.w|
|00002d50| 20 3a 3d 20 68 61 6e 64 | 6c 65 3b 0a 20 20 77 69 | := hand|le;. wi|
|00002d60| 6d 70 5f 67 65 74 5f 77 | 69 6e 64 5f 69 6e 66 6f |mp_get_w|ind_info|
|00002d70| 28 61 64 64 72 65 73 73 | 28 77 69 6e 66 6f 29 29 |(address|(winfo))|
|00002d80| 3b 0a 0a 20 20 28 2a 20 | 2d 2d 2d 20 65 73 74 61 |;.. (* |--- esta|
|00002d90| 62 6c 69 73 68 20 66 61 | 63 74 6f 72 73 20 62 79 |blish fa|ctors by|
|00002da0| 20 77 68 69 63 68 20 74 | 6f 20 73 63 61 6c 65 20 | which t|o scale |
|00002db0| 73 70 72 69 74 65 20 66 | 72 6f 6d 20 63 75 72 72 |sprite f|rom curr|
|00002dc0| 65 6e 74 20 2d 2d 2d 20 | 2a 29 0a 20 20 28 2a 20 |ent --- |*). (* |
|00002dd0| 2d 2d 2d 20 77 69 6e 64 | 6f 77 20 73 69 7a 65 20 |--- wind|ow size |
|00002de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 2d 2d 2d 20 | | --- |
|00002e10| 2a 29 0a 20 20 78 64 69 | 76 6d 75 6c 74 20 3a 3d |*). xdi|vmult :=|
|00002e20| 20 77 69 6e 66 6f 2e 69 | 6e 66 6f 2e 65 78 2e 78 | winfo.i|nfo.ex.x|
|00002e30| 31 20 2d 20 77 69 6e 66 | 6f 2e 69 6e 66 6f 2e 65 |1 - winf|o.info.e|
|00002e40| 78 2e 78 30 3b 0a 20 20 | 79 64 69 76 6d 75 6c 74 |x.x0;. |ydivmult|
|00002e50| 20 3a 3d 20 77 69 6e 66 | 6f 2e 69 6e 66 6f 2e 65 | := winf|o.info.e|
|00002e60| 78 2e 79 31 20 2d 20 77 | 69 6e 66 6f 2e 69 6e 66 |x.y1 - w|info.inf|
|00002e70| 6f 2e 65 78 2e 79 30 3b | 0a 20 20 78 6d 61 67 6d |o.ex.y0;|. xmagm|
|00002e80| 75 6c 74 20 3a 3d 20 77 | 69 6e 66 6f 2e 69 6e 66 |ult := w|info.inf|
|00002e90| 6f 2e 62 6f 78 2e 78 31 | 20 2d 20 77 69 6e 66 6f |o.box.x1| - winfo|
|00002ea0| 2e 69 6e 66 6f 2e 62 6f | 78 2e 78 30 3b 0a 20 20 |.info.bo|x.x0;. |
|00002eb0| 79 6d 61 67 6d 75 6c 74 | 20 3a 3d 20 77 69 6e 66 |ymagmult| := winf|
|00002ec0| 6f 2e 69 6e 66 6f 2e 62 | 6f 78 2e 79 31 20 2d 20 |o.info.b|ox.y1 - |
|00002ed0| 77 69 6e 66 6f 2e 69 6e | 66 6f 2e 62 6f 78 2e 79 |winfo.in|fo.box.y|
|00002ee0| 30 3b 0a 20 20 0a 20 20 | 28 2a 20 2d 2d 2d 20 64 |0;. . |(* --- d|
|00002ef0| 6f 20 74 68 65 20 72 65 | 64 72 61 77 20 2d 2d 2d |o the re|draw ---|
|00002f00| 20 2a 29 0a 20 20 72 2e | 77 20 3a 3d 20 68 61 6e | *). r.|w := han|
|00002f10| 64 6c 65 3b 0a 20 20 77 | 69 6d 70 5f 72 65 64 72 |dle;. w|imp_redr|
|00002f20| 61 77 5f 77 69 6e 64 28 | 61 64 64 72 65 73 73 28 |aw_wind(|address(|
|00002f30| 72 29 2c 20 6d 6f 72 65 | 29 3b 0a 0a 20 20 69 66 |r), more|);.. if|
|00002f40| 20 28 6d 6f 72 65 20 3c | 3e 20 30 29 0a 20 20 20 | (more <|> 0). |
|00002f50| 20 74 68 65 6e 20 62 61 | 6c 6c 73 36 34 5f 72 65 | then ba|lls64_re|
|00002f60| 64 6f 5f 77 69 6e 64 6f | 77 28 72 2c 20 6d 6f 72 |do_windo|w(r, mor|
|00002f70| 65 29 3b 0a 65 6e 64 3b | 0a 0a 70 72 6f 63 65 64 |e);.end;|..proced|
|00002f80| 75 72 65 20 62 61 6c 6c | 73 36 34 5f 75 70 64 61 |ure ball|s64_upda|
|00002f90| 74 65 5f 77 69 6e 64 6f | 77 28 72 20 3a 20 77 69 |te_windo|w(r : wi|
|00002fa0| 6d 70 5f 72 65 64 72 61 | 77 73 74 72 29 3b 0a 0a |mp_redra|wstr);..|
|00002fb0| 76 61 72 20 6e 65 77 5f | 72 20 3a 20 77 69 6d 70 |var new_|r : wimp|
|00002fc0| 5f 72 65 64 72 61 77 73 | 74 72 3b 0a 20 20 20 20 |_redraws|tr;. |
|00002fd0| 6d 6f 72 65 20 3a 20 69 | 6e 74 65 67 65 72 3b 0a |more : i|nteger;.|
|00002fe0| 0a 62 65 67 69 6e 0a 0a | 20 20 6e 65 77 5f 72 20 |.begin..| new_r |
|00002ff0| 3a 3d 20 72 3b 0a 0a 20 | 20 77 69 6d 70 5f 75 70 |:= r;.. | wimp_up|
|00003000| 64 61 74 65 5f 77 69 6e | 64 28 61 64 64 72 65 73 |date_win|d(addres|
|00003010| 73 28 6e 65 77 5f 72 29 | 2c 20 6d 6f 72 65 29 3b |s(new_r)|, more);|
|00003020| 0a 20 20 69 66 20 28 6d | 6f 72 65 20 3c 3e 20 30 |. if (m|ore <> 0|
|00003030| 29 0a 20 20 20 20 74 68 | 65 6e 20 62 61 6c 6c 73 |). th|en balls|
|00003040| 36 34 5f 72 65 64 6f 5f | 77 69 6e 64 6f 77 28 6e |64_redo_|window(n|
|00003050| 65 77 5f 72 2c 20 6d 6f | 72 65 29 3b 0a 65 6e 64 |ew_r, mo|re);.end|
|00003060| 3b 0a 0a 76 61 72 20 6f | 6c 64 5f 78 2c 20 6f 6c |;..var o|ld_x, ol|
|00003070| 64 5f 79 20 3a 20 69 6e | 74 65 67 65 72 3b 0a 20 |d_y : in|teger;. |
|00003080| 20 0a 70 72 6f 63 65 64 | 75 72 65 20 62 61 6c 6c | .proced|ure ball|
|00003090| 73 36 34 5f 6f 70 65 6e | 5f 77 69 6e 64 6f 77 28 |s64_open|_window(|
|000030a0| 6f 20 3a 20 77 69 6d 70 | 5f 6f 70 65 6e 73 74 72 |o : wimp|_openstr|
|000030b0| 5f 70 74 72 29 3b 0a 0a | 62 65 67 69 6e 0a 20 20 |_ptr);..|begin. |
|000030c0| 0a 20 20 28 2a 20 2d 2d | 2d 20 66 6f 72 63 65 20 |. (* --|- force |
|000030d0| 73 63 72 6f 6c 6c 20 6f | 66 66 73 65 74 73 20 74 |scroll o|ffsets t|
|000030e0| 6f 20 30 2c 20 73 69 6e | 63 65 20 74 68 65 20 77 |o 0, sin|ce the w|
|000030f0| 69 6e 64 6f 77 20 61 6c | 77 61 79 73 20 2d 2d 2d |indow al|ways ---|
|00003100| 20 2a 29 0a 20 20 28 2a | 20 2d 2d 2d 20 72 65 70 | *). (*| --- rep|
|00003110| 72 65 73 65 6e 74 73 20 | 74 68 65 20 77 68 6f 6c |resents |the whol|
|00003120| 65 20 64 69 73 70 6c 61 | 79 20 20 20 20 20 20 20 |e displa|y |
|00003130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003140| 2d 2d 2d 20 2a 29 0a 20 | 20 6f 5e 2e 78 20 3a 3d |--- *). | o^.x :=|
|00003150| 20 30 3b 0a 20 20 6f 5e | 2e 79 20 3a 3d 20 30 3b | 0;. o^|.y := 0;|
|00003160| 0a 0a 20 20 77 69 6d 70 | 5f 6f 70 65 6e 5f 77 69 |.. wimp|_open_wi|
|00003170| 6e 64 28 6f 29 3b 0a 0a | 20 20 28 2a 20 2d 2d 2d |nd(o);..| (* ---|
|00003180| 20 6f 6e 6c 79 20 64 6f | 20 61 20 72 65 64 72 61 | only do| a redra|
|00003190| 77 20 69 66 20 74 68 65 | 20 73 69 7a 65 20 6f 66 |w if the| size of|
|000031a0| 20 74 68 65 20 77 69 6e | 64 6f 77 20 68 61 73 20 | the win|dow has |
|000031b0| 63 68 61 6e 67 65 64 20 | 2d 2d 2d 20 2a 29 0a 20 |changed |--- *). |
|000031c0| 20 69 66 20 28 6f 6c 64 | 5f 78 20 3c 3e 20 28 6f | if (old|_x <> (o|
|000031d0| 5e 2e 62 6f 78 2e 78 31 | 20 2d 20 6f 5e 2e 62 6f |^.box.x1| - o^.bo|
|000031e0| 78 2e 78 30 29 29 20 6f | 72 0a 20 20 20 20 20 28 |x.x0)) o|r. (|
|000031f0| 6f 6c 64 5f 79 20 3c 3e | 20 28 6f 5e 2e 62 6f 78 |old_y <>| (o^.box|
|00003200| 2e 79 31 20 2d 20 6f 5e | 2e 62 6f 78 2e 79 30 29 |.y1 - o^|.box.y0)|
|00003210| 29 0a 20 20 20 20 74 68 | 65 6e 20 62 65 67 69 6e |). th|en begin|
|00003220| 0a 20 20 20 20 20 20 20 | 20 20 20 20 62 61 6c 6c |. | ball|
|00003230| 73 36 34 5f 72 65 64 72 | 61 77 5f 77 69 6e 64 6f |s64_redr|aw_windo|
|00003240| 77 28 6f 5e 2e 77 29 3b | 0a 20 20 20 20 20 20 20 |w(o^.w);|. |
|00003250| 20 20 20 20 6f 6c 64 5f | 78 20 3a 3d 20 6f 5e 2e | old_|x := o^.|
|00003260| 62 6f 78 2e 78 31 20 2d | 20 6f 5e 2e 62 6f 78 2e |box.x1 -| o^.box.|
|00003270| 78 30 3b 0a 20 20 20 20 | 20 20 20 20 20 20 20 6f |x0;. | o|
|00003280| 6c 64 5f 79 20 3a 3d 20 | 6f 5e 2e 62 6f 78 2e 79 |ld_y := |o^.box.y|
|00003290| 31 20 2d 20 6f 5e 2e 62 | 6f 78 2e 79 30 3b 0a 20 |1 - o^.b|ox.y0;. |
|000032a0| 20 20 20 20 20 20 20 20 | 65 6e 64 3b 0a 65 6e 64 | |end;.end|
|000032b0| 3b 20 20 0a 0a 70 72 6f | 63 65 64 75 72 65 20 62 |; ..pro|cedure b|
|000032c0| 61 6c 6c 73 36 34 5f 6c | 65 66 74 63 6c 69 63 6b |alls64_l|eftclick|
|000032d0| 70 72 6f 63 28 69 20 3a | 20 77 69 6d 70 5f 69 29 |proc(i :| wimp_i)|
|000032e0| 3b 0a 0a 76 61 72 20 73 | 74 61 74 65 20 3a 20 77 |;..var s|tate : w|
|000032f0| 69 6d 70 5f 77 73 74 61 | 74 65 3b 0a 20 20 20 20 |imp_wsta|te;. |
|00003300| 72 20 3a 20 77 69 6d 70 | 5f 72 65 64 72 61 77 73 |r : wimp|_redraws|
|00003310| 74 72 3b 0a 0a 62 65 67 | 69 6e 0a 0a 20 20 69 66 |tr;..beg|in.. if|
|00003320| 20 6e 6f 74 20 64 69 73 | 70 6c 61 79 69 6e 67 0a | not dis|playing.|
|00003330| 20 20 20 20 74 68 65 6e | 20 62 65 67 69 6e 0a 20 | then| begin. |
|00003340| 20 20 20 20 20 20 20 20 | 20 20 28 2a 20 2d 2d 2d | | (* ---|
|00003350| 20 6f 70 65 6e 20 74 68 | 65 20 77 69 6e 64 6f 77 | open th|e window|
|00003360| 20 77 65 20 63 72 65 61 | 74 65 64 20 2d 2d 2d 20 | we crea|ted --- |
|00003370| 2a 29 0a 20 20 20 20 20 | 20 20 20 20 20 20 77 69 |*). | wi|
|00003380| 6d 70 74 5f 6e 6f 65 72 | 72 28 77 69 6d 70 5f 67 |mpt_noer|r(wimp_g|
|00003390| 65 74 5f 77 69 6e 64 5f | 73 74 61 74 65 28 64 69 |et_wind_|state(di|
|000033a0| 73 70 6c 61 79 77 69 6e | 5f 68 61 6e 64 6c 65 2c |splaywin|_handle,|
|000033b0| 20 61 64 64 72 65 73 73 | 28 73 74 61 74 65 29 29 | address|(state))|
|000033c0| 29 3b 0a 20 20 20 20 20 | 20 20 20 20 20 20 73 74 |);. | st|
|000033d0| 61 74 65 2e 6f 2e 62 65 | 68 69 6e 64 20 3a 3d 20 |ate.o.be|hind := |
|000033e0| 2d 31 3b 20 20 28 2a 20 | 6d 61 6b 65 20 73 75 72 |-1; (* |make sur|
|000033f0| 65 20 69 74 20 69 73 20 | 6f 70 65 6e 65 64 20 69 |e it is |opened i|
|00003400| 6e 20 66 72 6f 6e 74 20 | 2a 29 0a 20 20 20 20 20 |n front |*). |
|00003410| 20 20 20 20 20 20 62 61 | 6c 6c 73 36 34 5f 6f 70 | ba|lls64_op|
|00003420| 65 6e 5f 77 69 6e 64 6f | 77 28 61 64 64 72 65 73 |en_windo|w(addres|
|00003430| 73 28 73 74 61 74 65 2e | 6f 29 29 3b 0a 20 20 20 |s(state.|o));. |
|00003440| 20 20 20 0a 20 20 20 20 | 20 20 20 20 20 20 20 28 | . | (|
|00003450| 2a 20 2d 2d 2d 20 66 6f | 72 63 65 20 61 20 72 65 |* --- fo|rce a re|
|00003460| 64 72 61 77 20 6f 66 20 | 74 68 65 20 77 68 6f 6c |draw of |the whol|
|00003470| 65 20 77 69 6e 64 6f 77 | 20 2d 2d 2d 20 2a 29 0a |e window| --- *).|
|00003480| 20 20 20 20 20 20 20 20 | 20 20 20 72 2e 77 20 3a | | r.w :|
|00003490| 3d 20 64 69 73 70 6c 61 | 79 77 69 6e 5f 68 61 6e |= displa|ywin_han|
|000034a0| 64 6c 65 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |dle;. | |
|000034b0| 72 2e 62 6f 78 2e 78 30 | 20 3a 3d 20 30 3b 0a 20 |r.box.x0| := 0;. |
|000034c0| 20 20 20 20 20 20 20 20 | 20 20 72 2e 62 6f 78 2e | | r.box.|
|000034d0| 78 31 20 3a 3d 20 62 61 | 6c 6c 73 36 34 5f 58 74 |x1 := ba|lls64_Xt|
|000034e0| 6f 77 6f 72 6b 28 53 70 | 72 69 74 65 57 69 64 74 |owork(Sp|riteWidt|
|000034f0| 68 29 3b 0a 20 20 20 20 | 20 20 20 20 20 20 20 72 |h);. | r|
|00003500| 2e 62 6f 78 2e 79 30 20 | 3a 3d 20 2d 62 61 6c 6c |.box.y0 |:= -ball|
|00003510| 73 36 34 5f 59 74 6f 77 | 6f 72 6b 28 53 70 72 69 |s64_Ytow|ork(Spri|
|00003520| 74 65 48 65 69 67 68 74 | 29 3b 0a 20 20 20 20 20 |teHeight|);. |
|00003530| 20 20 20 20 20 20 72 2e | 62 6f 78 2e 79 31 20 3a | r.|box.y1 :|
|00003540| 3d 20 30 3b 0a 20 20 20 | 20 20 20 20 20 20 20 20 |= 0;. | |
|00003550| 77 69 6d 70 5f 66 6f 72 | 63 65 5f 72 65 64 72 61 |wimp_for|ce_redra|
|00003560| 77 28 61 64 64 72 65 73 | 73 28 72 29 29 3b 0a 20 |w(addres|s(r));. |
|00003570| 20 20 20 20 20 20 20 20 | 20 20 64 69 73 70 6c 61 | | displa|
|00003580| 79 69 6e 67 20 3a 3d 20 | 54 52 55 45 3b 0a 20 20 |ying := |TRUE;. |
|00003590| 20 20 20 20 20 20 20 65 | 6e 64 3b 0a 65 6e 64 3b | e|nd;.end;|
|000035a0| 0a 0a 28 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..(*****|********|
|000035b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 20 54 48 |********|***** TH|
|000035c0| 45 20 41 50 50 4c 49 43 | 41 54 49 4f 4e 20 49 54 |E APPLIC|ATION IT|
|000035d0| 53 45 4c 46 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |SELF ***|********|
|000035e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 29 0a |********|******).|
|000035f0| 0a 70 72 6f 63 65 64 75 | 72 65 20 62 61 6c 6c 73 |.procedu|re balls|
|00003600| 36 34 5f 63 68 61 6e 67 | 65 64 62 6f 78 28 66 6c |64_chang|edbox(fl|
|00003610| 61 67 20 3a 20 69 6e 74 | 65 67 65 72 3b 20 63 62 |ag : int|eger; cb|
|00003620| 6f 78 20 3a 20 63 68 61 | 6e 67 65 5f 62 6f 78 5f |ox : cha|nge_box_|
|00003630| 68 61 6e 64 6c 65 29 3b | 0a 0a 62 65 67 69 6e 0a |handle);|..begin.|
|00003640| 20 20 73 77 69 28 27 4f | 53 5f 43 68 61 6e 67 65 | swi('O|S_Change|
|00003650| 64 42 6f 78 27 2c 20 5b | 30 5d 2c 20 66 6c 61 67 |dBox', [|0], flag|
|00003660| 3b 20 5b 31 5d 2c 20 63 | 62 6f 78 5e 29 3b 0a 65 |; [1], c|box^);.e|
|00003670| 6e 64 3b 0a 0a 66 75 6e | 63 74 69 6f 6e 20 72 61 |nd;..fun|ction ra|
|00003680| 6e 64 20 3a 20 69 6e 74 | 65 67 65 72 3b 20 65 78 |nd : int|eger; ex|
|00003690| 74 65 72 6e 3b 0a 0a 63 | 6f 6e 73 74 20 52 41 4e |tern;..c|onst RAN|
|000036a0| 44 5f 4d 41 58 20 3d 20 | 24 37 66 66 66 66 66 66 |D_MAX = |$7ffffff|
|000036b0| 66 3b 0a 0a 66 75 6e 63 | 74 69 6f 6e 20 62 61 6c |f;..func|tion bal|
|000036c0| 6c 73 36 34 5f 72 6e 64 | 28 76 20 3a 20 69 6e 74 |ls64_rnd|(v : int|
|000036d0| 65 67 65 72 29 20 3a 20 | 69 6e 74 65 67 65 72 3b |eger) : |integer;|
|000036e0| 0a 0a 62 65 67 69 6e 0a | 20 20 62 61 6c 6c 73 36 |..begin.| balls6|
|000036f0| 34 5f 72 6e 64 20 3a 3d | 20 74 72 75 6e 63 28 28 |4_rnd :=| trunc((|
|00003700| 72 61 6e 64 20 2f 20 52 | 41 4e 44 5f 4d 41 58 29 |rand / R|AND_MAX)|
|00003710| 20 2a 20 76 29 20 2b 20 | 31 0a 65 6e 64 3b 0a 0a | * v) + |1.end;..|
|00003720| 66 75 6e 63 74 69 6f 6e | 20 62 61 6c 6c 73 36 34 |function| balls64|
|00003730| 5f 66 6e 78 20 3a 20 69 | 6e 74 65 67 65 72 3b 0a |_fnx : i|nteger;.|
|00003740| 0a 62 65 67 69 6e 0a 20 | 20 62 61 6c 6c 73 36 34 |.begin. | balls64|
|00003750| 5f 66 6e 78 20 3a 3d 20 | 62 61 6c 6c 73 36 34 5f |_fnx := |balls64_|
|00003760| 72 6e 64 28 62 61 6c 6c | 73 36 34 5f 58 74 6f 77 |rnd(ball|s64_Xtow|
|00003770| 6f 72 6b 28 53 70 72 69 | 74 65 57 69 64 74 68 29 |ork(Spri|teWidth)|
|00003780| 29 0a 65 6e 64 3b 0a 0a | 66 75 6e 63 74 69 6f 6e |).end;..|function|
|00003790| 20 62 61 6c 6c 73 36 34 | 5f 66 6e 79 20 3a 20 69 | balls64|_fny : i|
|000037a0| 6e 74 65 67 65 72 3b 0a | 0a 62 65 67 69 6e 0a 20 |nteger;.|.begin. |
|000037b0| 20 62 61 6c 6c 73 36 34 | 5f 66 6e 79 20 3a 3d 20 | balls64|_fny := |
|000037c0| 62 61 6c 6c 73 36 34 5f | 72 6e 64 28 62 61 6c 6c |balls64_|rnd(ball|
|000037d0| 73 36 34 5f 59 74 6f 77 | 6f 72 6b 28 53 70 72 69 |s64_Ytow|ork(Spri|
|000037e0| 74 65 48 65 69 67 68 74 | 29 29 0a 65 6e 64 3b 0a |teHeight|)).end;.|
|000037f0| 0a 66 75 6e 63 74 69 6f | 6e 20 62 61 6c 6c 73 36 |.functio|n balls6|
|00003800| 34 5f 66 6e 72 67 62 20 | 3a 20 69 6e 74 65 67 65 |4_fnrgb |: intege|
|00003810| 72 3b 0a 0a 62 65 67 69 | 6e 0a 20 20 62 61 6c 6c |r;..begi|n. ball|
|00003820| 73 36 34 5f 66 6e 72 67 | 62 20 3a 3d 20 28 62 61 |s64_fnrg|b := (ba|
|00003830| 6c 6c 73 36 34 5f 72 6e | 64 28 33 29 2d 31 29 2a |lls64_rn|d(3)-1)*|
|00003840| 31 20 2b 20 0a 20 20 20 | 20 20 20 20 20 20 20 20 |1 + . | |
|00003850| 20 20 20 20 20 20 20 20 | 28 62 61 6c 6c 73 36 34 | |(balls64|
|00003860| 5f 72 6e 64 28 33 29 2d | 31 29 2a 34 20 2b 20 0a |_rnd(3)-|1)*4 + .|
|00003870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003880| 20 20 20 28 62 61 6c 6c | 73 36 34 5f 72 6e 64 28 | (ball|s64_rnd(|
|00003890| 33 29 2d 31 29 2a 31 36 | 0a 65 6e 64 3b 0a 0a 70 |3)-1)*16|.end;..p|
|000038a0| 72 6f 63 65 64 75 72 65 | 20 62 61 6c 6c 73 36 34 |rocedure| balls64|
|000038b0| 5f 64 6f 5f 62 61 6c 6c | 3b 0a 0a 76 61 72 20 73 |_do_ball|;..var s|
|000038c0| 74 61 74 65 20 3a 20 73 | 70 72 69 74 65 5f 73 74 |tate : s|prite_st|
|000038d0| 61 74 65 3b 0a 20 20 20 | 20 72 20 3a 20 77 69 6d |ate;. | r : wim|
|000038e0| 70 5f 72 65 64 72 61 77 | 73 74 72 3b 0a 20 20 20 |p_redraw|str;. |
|000038f0| 20 63 62 6f 78 20 3a 20 | 63 68 61 6e 67 65 5f 62 | cbox : |change_b|
|00003900| 6f 78 5f 70 74 72 3b 0a | 20 20 20 20 6c 20 3a 20 |ox_ptr;.| l : |
|00003910| 72 65 61 6c 3b 0a 20 20 | 20 20 74 2c 20 78 20 3a |real;. | t, x :|
|00003920| 20 69 6e 74 65 67 65 72 | 3b 0a 20 20 20 20 62 61 | integer|;. ba|
|00003930| 73 65 20 3a 20 69 6e 74 | 65 67 65 72 3b 0a 20 20 |se : int|eger;. |
|00003940| 20 20 6f 72 67 78 2c 20 | 6f 72 67 79 20 3a 20 69 | orgx, |orgy : i|
|00003950| 6e 74 65 67 65 72 3b 0a | 0a 62 65 67 69 6e 0a 0a |nteger;.|.begin..|
|00003960| 20 20 28 2a 20 2d 2d 2d | 20 72 65 64 69 72 65 63 | (* ---| redirec|
|00003970| 74 20 56 44 55 20 6f 75 | 74 70 75 74 20 74 6f 20 |t VDU ou|tput to |
|00003980| 74 68 65 20 73 70 72 69 | 74 65 20 73 61 76 69 6e |the spri|te savin|
|00003990| 67 20 6f 6c 64 20 73 74 | 61 74 65 20 2d 2d 2d 20 |g old st|ate --- |
|000039a0| 2a 29 0a 20 20 77 69 6d | 70 74 5f 63 6f 6d 70 6c |*). wim|pt_compl|
|000039b0| 61 69 6e 28 73 70 72 69 | 74 65 5f 6f 75 74 70 75 |ain(spri|te_outpu|
|000039c0| 74 74 6f 73 70 72 69 74 | 65 28 6d 79 5f 73 70 72 |ttosprit|e(my_spr|
|000039d0| 69 74 65 2e 61 72 65 61 | 2c 20 0a 20 20 20 20 20 |ite.area|, . |
|000039e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000039f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a00| 20 20 61 64 64 72 65 73 | 73 28 6d 79 5f 73 70 72 | addres|s(my_spr|
|00003a10| 69 74 65 2e 69 64 29 2c | 0a 20 20 20 20 20 20 20 |ite.id),|. |
|00003a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a40| 73 61 76 65 5f 61 72 65 | 61 2c 20 0a 20 20 20 20 |save_are|a, . |
|00003a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a70| 20 20 20 61 64 64 72 65 | 73 73 28 73 74 61 74 65 | addre|ss(state|
|00003a80| 29 29 29 3b 0a 20 20 28 | 2a 20 2d 2d 2d 20 65 6e |)));. (|* --- en|
|00003a90| 61 62 6c 65 20 63 68 65 | 63 6b 69 6e 67 20 63 68 |able che|cking ch|
|00003aa0| 61 6e 67 65 73 20 74 6f | 20 74 68 65 20 22 73 63 |anges to| the "sc|
|00003ab0| 72 65 65 6e 22 20 28 72 | 65 61 6c 6c 79 20 6f 75 |reen" (r|eally ou|
|00003ac0| 72 20 73 70 72 69 74 65 | 29 20 2d 2d 2d 20 2a 29 |r sprite|) --- *)|
|00003ad0| 0a 20 20 62 61 6c 6c 73 | 36 34 5f 43 68 61 6e 67 |. balls|64_Chang|
|00003ae0| 65 64 62 6f 78 28 31 2c | 20 61 64 64 72 65 73 73 |edbox(1,| address|
|00003af0| 28 63 62 6f 78 29 29 3b | 0a 20 20 62 61 6c 6c 73 |(cbox));|. balls|
|00003b00| 36 34 5f 43 68 61 6e 67 | 65 64 62 6f 78 28 32 2c |64_Chang|edbox(2,|
|00003b10| 20 61 64 64 72 65 73 73 | 28 63 62 6f 78 29 29 3b | address|(cbox));|
|00003b20| 0a 0a 20 20 6f 72 67 78 | 20 3a 3d 20 62 61 6c 6c |.. orgx| := ball|
|00003b30| 73 36 34 5f 66 6e 78 3b | 0a 20 20 6f 72 67 79 20 |s64_fnx;|. orgy |
|00003b40| 3a 3d 20 62 61 6c 6c 73 | 36 34 5f 66 6e 79 3b 0a |:= balls|64_fny;.|
|00003b50| 20 20 6c 20 3a 3d 20 6c | 6e 28 35 31 32 2f 52 61 | l := l|n(512/Ra|
|00003b60| 64 69 75 73 29 2f 6c 6e | 28 32 29 3b 0a 20 20 62 |dius)/ln|(2);. b|
|00003b70| 61 73 65 20 3a 3d 20 62 | 61 6c 6c 73 36 34 5f 66 |ase := b|alls64_f|
|00003b80| 6e 72 67 62 3b 0a 20 20 | 78 20 3a 3d 20 52 61 64 |nrgb;. |x := Rad|
|00003b90| 69 75 73 3b 0a 20 20 77 | 68 69 6c 65 20 78 20 3e |ius;. w|hile x >|
|00003ba0| 3d 20 53 74 65 70 0a 20 | 20 20 20 64 6f 20 62 65 |= Step. | do be|
|00003bb0| 67 69 6e 0a 20 20 20 20 | 20 20 20 20 20 74 20 3a |gin. | t :|
|00003bc0| 3d 20 74 72 75 6e 63 28 | 6c 29 3b 0a 20 20 20 20 |= trunc(|l);. |
|00003bd0| 20 20 20 20 20 62 62 63 | 5f 76 64 75 71 28 32 33 | bbc|_vduq(23|
|00003be0| 2c 20 31 37 2c 20 32 2c | 20 35 31 32 2d 73 68 6c |, 17, 2,| 512-shl|
|00003bf0| 28 78 2c 20 74 29 2c 20 | 30 2c 20 30 2c 20 30 2c |(x, t), |0, 0, 0,|
|00003c00| 20 30 2c 20 30 29 3b 0a | 20 20 20 20 20 20 20 20 | 0, 0);.| |
|00003c10| 20 69 66 20 78 20 3c 3d | 20 52 61 64 44 69 76 32 | if x <=| RadDiv2|
|00003c20| 0a 20 20 20 20 20 20 20 | 20 20 20 20 74 68 65 6e |. | then|
|00003c30| 20 62 62 63 5f 67 63 6f | 6c 28 30 2c 20 62 61 73 | bbc_gco|l(0, bas|
|00003c40| 65 2b 24 31 35 29 0a 20 | 20 20 20 20 20 20 20 20 |e+$15). | |
|00003c50| 20 20 65 6c 73 65 20 62 | 62 63 5f 67 63 6f 6c 28 | else b|bc_gcol(|
|00003c60| 30 2c 62 61 73 65 29 3b | 0a 20 20 20 20 20 20 20 |0,base);|. |
|00003c70| 20 20 62 62 63 5f 6d 6f | 76 65 28 6f 72 67 78 20 | bbc_mo|ve(orgx |
|00003c80| 2d 20 78 20 64 69 76 20 | 33 2c 6f 72 67 79 20 2d |- x div |3,orgy -|
|00003c90| 20 78 20 64 69 76 20 33 | 29 3b 0a 20 20 20 20 20 | x div 3|);. |
|00003ca0| 20 20 20 20 62 62 63 5f | 70 6c 6f 74 28 24 39 44 | bbc_|plot($9D|
|00003cb0| 2c 20 6f 72 67 78 2b 78 | 2c 20 6f 72 67 79 29 3b |, orgx+x|, orgy);|
|00003cc0| 0a 20 20 20 20 20 20 20 | 20 20 78 20 3a 3d 20 78 |. | x := x|
|00003cd0| 20 2d 20 53 74 65 70 3b | 0a 20 20 20 20 20 20 20 | - Step;|. |
|00003ce0| 65 6e 64 3b 0a 0a 20 20 | 28 2a 20 2d 2d 2d 20 73 |end;.. |(* --- s|
|00003cf0| 65 65 20 77 68 61 74 27 | 73 20 63 68 61 6e 67 65 |ee what'|s change|
|00003d00| 64 20 6f 6e 20 74 68 65 | 20 22 73 63 72 65 65 6e |d on the| "screen|
|00003d10| 22 20 28 69 65 2e 20 6f | 75 72 20 73 70 72 69 74 |" (ie. o|ur sprit|
|00003d20| 65 29 20 2d 2d 2d 20 2a | 29 0a 20 20 62 61 6c 6c |e) --- *|). ball|
|00003d30| 73 36 34 5f 43 68 61 6e | 67 65 64 62 6f 78 28 2d |s64_Chan|gedbox(-|
|00003d40| 31 2c 20 61 64 64 72 65 | 73 73 28 63 62 6f 78 29 |1, addre|ss(cbox)|
|00003d50| 29 3b 0a 0a 20 20 72 2e | 77 20 3a 3d 20 64 69 73 |);.. r.|w := dis|
|00003d60| 70 6c 61 79 77 69 6e 5f | 68 61 6e 64 6c 65 3b 0a |playwin_|handle;.|
|00003d70| 20 20 72 2e 62 6f 78 2e | 78 30 20 3a 3d 20 62 61 | r.box.|x0 := ba|
|00003d80| 6c 6c 73 36 34 5f 58 74 | 6f 77 6f 72 6b 28 63 62 |lls64_Xt|owork(cb|
|00003d90| 6f 78 5e 2e 62 6f 78 2e | 78 30 29 20 2a 20 78 6d |ox^.box.|x0) * xm|
|00003da0| 61 67 6d 75 6c 74 20 64 | 69 76 20 78 64 69 76 6d |agmult d|iv xdivm|
|00003db0| 75 6c 74 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ult. | |
|00003dc0| 20 20 20 2d 20 62 61 6c | 6c 73 36 34 5f 58 74 6f | - bal|ls64_Xto|
|00003dd0| 77 6f 72 6b 28 31 29 3b | 0a 20 20 72 2e 62 6f 78 |work(1);|. r.box|
|00003de0| 2e 78 31 20 3a 3d 20 62 | 61 6c 6c 73 36 34 5f 58 |.x1 := b|alls64_X|
|00003df0| 74 6f 77 6f 72 6b 28 63 | 62 6f 78 5e 2e 62 6f 78 |towork(c|box^.box|
|00003e00| 2e 78 31 29 20 2a 20 78 | 6d 61 67 6d 75 6c 74 20 |.x1) * x|magmult |
|00003e10| 64 69 76 20 78 64 69 76 | 6d 75 6c 74 0a 20 20 20 |div xdiv|mult. |
|00003e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 2b 20 62 61 | | + ba|
|00003e30| 6c 6c 73 36 34 5f 58 74 | 6f 77 6f 72 6b 28 31 29 |lls64_Xt|owork(1)|
|00003e40| 3b 0a 20 20 72 2e 62 6f | 78 2e 79 30 20 3a 3d 20 |;. r.bo|x.y0 := |
|00003e50| 62 61 6c 6c 73 36 34 5f | 59 74 6f 77 6f 72 6b 28 |balls64_|Ytowork(|
|00003e60| 63 62 6f 78 5e 2e 62 6f | 78 2e 79 30 20 2d 20 53 |cbox^.bo|x.y0 - S|
|00003e70| 70 72 69 74 65 48 65 69 | 67 68 74 29 0a 20 20 20 |priteHei|ght). |
|00003e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 20 79 6d | | * ym|
|00003e90| 61 67 6d 75 6c 74 20 64 | 69 76 20 79 64 69 76 6d |agmult d|iv ydivm|
|00003ea0| 75 6c 74 20 2d 20 62 61 | 6c 6c 73 36 34 5f 59 74 |ult - ba|lls64_Yt|
|00003eb0| 6f 77 6f 72 6b 28 31 29 | 3b 0a 20 20 72 2e 62 6f |owork(1)|;. r.bo|
|00003ec0| 78 2e 79 31 20 3a 3d 20 | 62 61 6c 6c 73 36 34 5f |x.y1 := |balls64_|
|00003ed0| 59 74 6f 77 6f 72 6b 28 | 63 62 6f 78 5e 2e 62 6f |Ytowork(|cbox^.bo|
|00003ee0| 78 2e 79 31 20 2d 20 53 | 70 72 69 74 65 48 65 69 |x.y1 - S|priteHei|
|00003ef0| 67 68 74 29 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ght). | |
|00003f00| 20 20 20 20 2a 20 79 6d | 61 67 6d 75 6c 74 20 64 | * ym|agmult d|
|00003f10| 69 76 20 79 64 69 76 6d | 75 6c 74 20 2b 20 62 61 |iv ydivm|ult + ba|
|00003f20| 6c 6c 73 36 34 5f 59 74 | 6f 77 6f 72 6b 28 31 29 |lls64_Yt|owork(1)|
|00003f30| 3b 0a 20 20 20 20 0a 20 | 20 28 2a 20 2d 2d 2d 20 |;. . | (* --- |
|00003f40| 72 65 73 74 6f 72 65 20 | 6f 75 74 70 75 74 20 62 |restore |output b|
|00003f50| 61 63 6b 20 74 6f 20 74 | 68 65 20 56 44 55 20 73 |ack to t|he VDU s|
|00003f60| 63 72 65 65 6e 20 2d 2d | 2d 20 2a 29 0a 20 20 77 |creen --|- *). w|
|00003f70| 69 6d 70 74 5f 63 6f 6d | 70 6c 61 69 6e 28 73 70 |impt_com|plain(sp|
|00003f80| 72 69 74 65 5f 72 65 73 | 74 6f 72 65 73 74 61 74 |rite_res|torestat|
|00003f90| 65 28 73 74 61 74 65 29 | 29 3b 0a 20 20 0a 20 20 |e(state)|);. . |
|00003fa0| 28 2a 20 2d 2d 2d 20 75 | 70 64 61 74 65 20 74 68 |(* --- u|pdate th|
|00003fb0| 65 20 77 69 6e 64 6f 77 | 20 63 6f 6e 74 65 6e 74 |e window| content|
|00003fc0| 73 20 2d 2d 2d 20 2a 29 | 0a 20 20 62 61 6c 6c 73 |s --- *)|. balls|
|00003fd0| 36 34 5f 75 70 64 61 74 | 65 5f 77 69 6e 64 6f 77 |64_updat|e_window|
|00003fe0| 28 72 29 3b 0a 65 6e 64 | 3b 0a 20 20 20 20 20 0a |(r);.end|;. .|
|00003ff0| 28 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |(*******|********|
|00004000| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 20 |********|******* |
|00004010| 45 56 45 4e 54 20 48 41 | 4e 44 4c 49 4e 47 20 2a |EVENT HA|NDLING *|
|00004020| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 29 0a 0a 76 |********|****)..v|
|00004040| 61 72 20 62 70 70 5f 72 | 65 70 6f 72 74 65 64 20 |ar bpp_r|eported |
|00004050| 3a 20 62 6f 6f 6c 65 61 | 6e 3b 0a 0a 70 72 6f 63 |: boolea|n;..proc|
|00004060| 65 64 75 72 65 20 62 61 | 6c 6c 73 36 34 5f 62 70 |edure ba|lls64_bp|
|00004070| 70 5f 77 61 72 6e 3b 0a | 0a 62 65 67 69 6e 0a 20 |p_warn;.|.begin. |
|00004080| 20 69 66 20 6e 6f 74 20 | 62 70 70 5f 72 65 70 6f | if not |bpp_repo|
|00004090| 72 74 65 64 0a 20 20 20 | 20 74 68 65 6e 20 62 65 |rted. | then be|
|000040a0| 67 69 6e 0a 20 20 20 20 | 20 20 20 20 20 20 20 77 |gin. | w|
|000040b0| 65 72 72 28 46 41 4c 53 | 45 2c 20 27 57 61 72 6e |err(FALS|E, 'Warn|
|000040c0| 69 6e 67 3a 20 49 20 6f | 6e 6c 79 20 6c 6f 6f 6b |ing: I o|nly look|
|000040d0| 20 6d 79 20 62 65 73 74 | 20 69 6e 20 38 2d 62 70 | my best| in 8-bp|
|000040e0| 70 20 6d 6f 64 65 73 27 | 29 3b 0a 20 20 20 20 20 |p modes'|);. |
|000040f0| 20 20 20 20 20 20 62 70 | 70 5f 72 65 70 6f 72 74 | bp|p_report|
|00004100| 65 64 20 3a 3d 20 54 52 | 55 45 3b 0a 20 20 20 20 |ed := TR|UE;. |
|00004110| 20 20 20 20 20 65 6e 64 | 3b 0a 65 6e 64 3b 0a 0a | end|;.end;..|
|00004120| 70 72 6f 63 65 64 75 72 | 65 20 62 61 6c 6c 73 36 |procedur|e balls6|
|00004130| 34 5f 68 61 6e 64 6c 65 | 72 28 65 20 3a 20 77 69 |4_handle|r(e : wi|
|00004140| 6d 70 5f 65 76 65 6e 74 | 73 74 72 5f 70 74 72 3b |mp_event|str_ptr;|
|00004150| 20 68 61 6e 64 6c 65 20 | 3a 20 70 6f 69 6e 74 65 | handle |: pointe|
|00004160| 72 29 3b 0a 0a 62 65 67 | 69 6e 0a 0a 20 20 63 61 |r);..beg|in.. ca|
|00004170| 73 65 20 65 5e 2e 65 20 | 6f 66 0a 20 20 20 20 77 |se e^.e |of. w|
|00004180| 69 6d 70 5f 45 4e 55 4c | 4c 3a 0a 20 20 20 20 20 |imp_ENUL|L:. |
|00004190| 20 69 66 20 6e 6f 74 20 | 66 72 6f 7a 65 6e 20 61 | if not |frozen a|
|000041a0| 6e 64 20 64 69 73 70 6c | 61 79 69 6e 67 0a 20 20 |nd displ|aying. |
|000041b0| 20 20 20 20 20 20 74 68 | 65 6e 20 62 61 6c 6c 73 | th|en balls|
|000041c0| 36 34 5f 64 6f 5f 62 61 | 6c 6c 3b 0a 0a 20 20 20 |64_do_ba|ll;.. |
|000041d0| 20 77 69 6d 70 5f 45 52 | 45 44 52 41 57 3a 0a 20 | wimp_ER|EDRAW:. |
|000041e0| 20 20 20 20 20 62 61 6c | 6c 73 36 34 5f 72 65 64 | bal|ls64_red|
|000041f0| 72 61 77 5f 77 69 6e 64 | 6f 77 28 65 5e 2e 64 61 |raw_wind|ow(e^.da|
|00004200| 74 61 2e 6f 2e 77 29 3b | 0a 0a 20 20 20 20 77 69 |ta.o.w);|.. wi|
|00004210| 6d 70 5f 45 4f 50 45 4e | 3a 0a 20 20 20 20 20 20 |mp_EOPEN|:. |
|00004220| 62 61 6c 6c 73 36 34 5f | 6f 70 65 6e 5f 77 69 6e |balls64_|open_win|
|00004230| 64 6f 77 28 61 64 64 72 | 65 73 73 28 65 5e 2e 64 |dow(addr|ess(e^.d|
|00004240| 61 74 61 2e 6f 29 29 3b | 0a 0a 20 20 20 20 77 69 |ata.o));|.. wi|
|00004250| 6d 70 5f 45 43 4c 4f 53 | 45 3a 0a 20 20 20 20 20 |mp_ECLOS|E:. |
|00004260| 20 62 65 67 69 6e 0a 20 | 20 20 20 20 20 20 20 77 | begin. | w|
|00004270| 69 6d 70 74 5f 6e 6f 65 | 72 72 28 77 69 6d 70 5f |impt_noe|rr(wimp_|
|00004280| 63 6c 6f 73 65 5f 77 69 | 6e 64 28 65 5e 2e 64 61 |close_wi|nd(e^.da|
|00004290| 74 61 2e 6f 2e 77 29 29 | 3b 0a 20 20 20 20 20 20 |ta.o.w))|;. |
|000042a0| 20 20 64 69 73 70 6c 61 | 79 69 6e 67 20 3a 3d 20 | displa|ying := |
|000042b0| 46 41 4c 53 45 3b 0a 20 | 20 20 20 20 20 65 6e 64 |FALSE;. | end|
|000042c0| 3b 0a 0a 20 20 20 20 77 | 69 6d 70 5f 45 53 45 4e |;.. w|imp_ESEN|
|000042d0| 44 2c 0a 20 20 20 20 77 | 69 6d 70 5f 45 53 45 4e |D,. w|imp_ESEN|
|000042e0| 44 57 41 4e 54 41 43 4b | 3a 20 20 20 20 20 28 2a |DWANTACK|: (*|
|000042f0| 20 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | . | |
|00004300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 20 | | * |
|00004310| 74 68 69 73 20 63 6f 64 | 65 20 63 68 65 63 6b 73 |this cod|e checks|
|00004320| 20 66 6f 72 20 6d 6f 64 | 65 2f 70 61 6c 65 74 74 | for mod|e/palett|
|00004330| 65 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e. | |
|00004340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2a 20 | | * |
|00004350| 62 72 6f 61 64 63 61 73 | 74 73 0a 20 20 20 20 20 |broadcas|ts. |
|00004360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004370| 20 20 20 20 20 20 20 2a | 29 0a 20 20 20 20 20 20 | *|). |
|00004380| 63 61 73 65 20 65 5e 2e | 64 61 74 61 2e 6d 73 67 |case e^.|data.msg|
|00004390| 2e 68 64 72 2e 61 63 74 | 69 6f 6e 20 6f 66 0a 20 |.hdr.act|ion of. |
|000043a0| 20 20 20 20 20 20 20 77 | 69 6d 70 5f 50 41 4c 45 | w|imp_PALE|
|000043b0| 54 54 45 43 48 41 4e 47 | 45 3a 0a 20 20 20 20 20 |TTECHANG|E:. |
|000043c0| 20 20 20 20 20 77 69 6d | 70 74 5f 63 6f 6d 70 6c | wim|pt_compl|
|000043d0| 61 69 6e 28 63 6f 6c 6f | 75 72 74 72 61 6e 5f 73 |ain(colo|urtran_s|
|000043e0| 65 6c 65 63 74 5f 74 61 | 62 6c 65 28 53 70 72 69 |elect_ta|ble(Spri|
|000043f0| 74 65 4d 6f 64 65 2c 0a | 20 20 20 20 20 20 20 20 |teMode,.| |
|00004400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004410| 20 6e 69 6c 2c 20 2d 31 | 2c 0a 20 20 20 20 20 20 | nil, -1|,. |
|00004420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004430| 20 20 20 77 69 6d 70 5f | 70 61 6c 65 74 74 65 77 | wimp_|palettew|
|00004440| 6f 72 64 5f 70 74 72 28 | 2d 31 29 2c 20 61 64 64 |ord_ptr(|-1), add|
|00004450| 72 65 73 73 28 74 72 61 | 6e 73 29 29 29 3b 0a 0a |ress(tra|ns)));..|
|00004460| 20 20 20 20 20 20 20 20 | 77 69 6d 70 5f 4d 4d 4f | |wimp_MMO|
|00004470| 44 45 43 48 41 4e 47 45 | 3a 0a 20 20 20 20 20 20 |DECHANGE|:. |
|00004480| 20 20 20 20 62 65 67 69 | 6e 0a 20 20 20 20 20 20 | begi|n. |
|00004490| 20 20 20 20 20 20 77 69 | 6d 70 74 5f 63 68 65 63 | wi|mpt_chec|
|000044a0| 6b 6d 6f 64 65 3b 0a 20 | 20 20 20 20 20 20 20 20 |kmode;. | |
|000044b0| 20 20 20 69 66 20 77 69 | 6d 70 74 5f 62 70 70 20 | if wi|mpt_bpp |
|000044c0| 3c 3e 20 38 0a 20 20 20 | 20 20 20 20 20 20 20 20 |<> 8. | |
|000044d0| 20 20 20 74 68 65 6e 20 | 62 61 6c 6c 73 36 34 5f | then |balls64_|
|000044e0| 62 70 70 5f 77 61 72 6e | 3b 0a 20 20 20 20 20 20 |bpp_warn|;. |
|000044f0| 20 20 20 20 20 20 77 69 | 6d 70 74 5f 63 6f 6d 70 | wi|mpt_comp|
|00004500| 6c 61 69 6e 28 63 6f 6c | 6f 75 72 74 72 61 6e 5f |lain(col|ourtran_|
|00004510| 73 65 6c 65 63 74 5f 74 | 61 62 6c 65 28 53 70 72 |select_t|able(Spr|
|00004520| 69 74 65 4d 6f 64 65 2c | 0a 20 20 20 20 20 20 20 |iteMode,|. |
|00004530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004540| 20 20 20 6e 69 6c 2c 20 | 2d 31 2c 0a 20 20 20 20 | nil, |-1,. |
|00004550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004560| 20 20 20 20 20 20 77 69 | 6d 70 5f 70 61 6c 65 74 | wi|mp_palet|
|00004570| 74 65 77 6f 72 64 5f 70 | 74 72 28 2d 31 29 2c 20 |teword_p|tr(-1), |
|00004580| 61 64 64 72 65 73 73 28 | 74 72 61 6e 73 29 29 29 |address(|trans)))|
|00004590| 3b 0a 20 20 20 20 20 20 | 20 20 20 20 65 6e 64 3b |;. | end;|
|000045a0| 0a 20 20 20 20 20 20 20 | 20 20 20 0a 0a 20 20 20 |. | .. |
|000045b0| 20 20 20 20 20 77 69 6d | 70 5f 4d 48 45 4c 50 52 | wim|p_MHELPR|
|000045c0| 45 51 55 45 53 54 3a 0a | 20 20 20 20 20 20 20 20 |EQUEST:.| |
|000045d0| 20 20 62 65 67 69 6e 0a | 20 20 20 20 20 20 20 20 | begin.| |
|000045e0| 20 20 20 20 65 5e 2e 64 | 61 74 61 2e 6d 73 67 2e | e^.d|ata.msg.|
|000045f0| 68 64 72 2e 79 6f 75 72 | 5f 72 65 66 20 3a 3d 20 |hdr.your|_ref := |
|00004600| 65 5e 2e 64 61 74 61 2e | 6d 73 67 2e 68 64 72 2e |e^.data.|msg.hdr.|
|00004610| 6d 79 5f 72 65 66 3b 0a | 20 20 20 20 20 20 20 20 |my_ref;.| |
|00004620| 20 20 20 20 65 5e 2e 64 | 61 74 61 2e 6d 73 67 2e | e^.d|ata.msg.|
|00004630| 68 64 72 2e 61 63 74 69 | 6f 6e 20 3a 3d 20 77 69 |hdr.acti|on := wi|
|00004640| 6d 70 5f 4d 48 45 4c 50 | 52 45 50 4c 59 3b 0a 20 |mp_MHELP|REPLY;. |
|00004650| 20 20 20 20 20 20 20 20 | 20 20 20 65 5e 2e 64 61 | | e^.da|
|00004660| 74 61 2e 6d 73 67 2e 68 | 64 72 2e 73 69 7a 65 20 |ta.msg.h|dr.size |
|00004670| 3a 3d 20 32 35 36 3b 0a | 20 20 20 20 20 20 20 20 |:= 256;.| |
|00004680| 20 20 20 20 69 66 20 65 | 5e 2e 64 61 74 61 2e 6d | if e|^.data.m|
|00004690| 73 67 2e 68 65 6c 70 72 | 65 71 75 65 73 74 2e 6d |sg.helpr|equest.m|
|000046a0| 2e 69 20 3d 20 2d 31 20 | 28 2a 69 65 2e 20 6e 6f |.i = -1 |(*ie. no|
|000046b0| 74 20 6f 6e 20 6f 75 72 | 20 69 63 6f 6e 2a 29 0a |t on our| icon*).|
|000046c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 74 68 | | th|
|000046d0| 65 6e 20 65 5e 2e 64 61 | 74 61 2e 6d 73 67 2e 68 |en e^.da|ta.msg.h|
|000046e0| 65 6c 70 72 65 70 6c 79 | 2e 74 65 78 74 20 3a 3d |elpreply|.text :=|
|000046f0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00004700| 20 20 20 20 20 27 54 68 | 69 73 20 69 73 20 74 68 | 'Th|is is th|
|00004710| 65 20 62 61 6c 6c 73 36 | 34 20 64 69 73 70 6c 61 |e balls6|4 displa|
|00004720| 79 2e 7c 4d 4f 6e 6c 79 | 20 6f 6e 65 20 63 61 6e |y.|MOnly| one can|
|00004730| 20 62 65 20 61 63 74 69 | 76 65 27 0a 20 20 20 20 | be acti|ve'. |
|00004740| 20 20 20 20 20 20 20 20 | 20 20 65 6c 73 65 20 65 | | else e|
|00004750| 5e 2e 64 61 74 61 2e 6d | 73 67 2e 68 65 6c 70 72 |^.data.m|sg.helpr|
|00004760| 65 70 6c 79 2e 74 65 78 | 74 20 3a 3d 0a 20 20 20 |eply.tex|t :=. |
|00004770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004780| 20 27 54 68 69 73 20 69 | 73 20 74 68 65 20 62 61 | 'This i|s the ba|
|00004790| 6c 6c 73 36 34 20 69 63 | 6f 6e 2e 7c 4d 43 6c 69 |lls64 ic|on.|MCli|
|000047a0| 63 6b 20 53 45 4c 45 43 | 54 20 74 6f 20 73 74 61 |ck SELEC|T to sta|
|000047b0| 72 74 20 64 69 73 70 6c | 61 79 27 3b 0a 20 20 20 |rt displ|ay';. |
|000047c0| 20 20 20 20 20 20 20 20 | 20 77 69 6d 70 74 5f 6e | | wimpt_n|
|000047d0| 6f 65 72 72 28 77 69 6d | 70 5f 73 65 6e 64 6d 65 |oerr(wim|p_sendme|
|000047e0| 73 73 61 67 65 28 77 69 | 6d 70 5f 45 53 45 4e 44 |ssage(wi|mp_ESEND|
|000047f0| 2c 20 61 64 64 72 65 73 | 73 28 65 5e 2e 64 61 74 |, addres|s(e^.dat|
|00004800| 61 2e 6d 73 67 29 2c 0a | 20 20 20 20 20 20 20 20 |a.msg),.| |
|00004810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004830| 20 65 5e 2e 64 61 74 61 | 2e 6d 73 67 2e 68 64 72 | e^.data|.msg.hdr|
|00004840| 2e 74 61 73 6b 29 29 3b | 0a 20 20 20 20 20 20 20 |.task));|. |
|00004850| 20 20 20 65 6e 64 3b 0a | 20 20 20 20 65 6e 64 3b | end;.| end;|
|00004860| 0a 0a 20 20 65 6e 64 3b | 0a 65 6e 64 3b 0a 0a 70 |.. end;|.end;..p|
|00004870| 72 6f 63 65 64 75 72 65 | 20 62 61 6c 6c 73 36 34 |rocedure| balls64|
|00004880| 5f 69 6e 66 6f 5f 61 62 | 6f 75 74 70 72 6f 67 3b |_info_ab|outprog;|
|00004890| 0a 0a 76 61 72 20 64 20 | 3a 20 64 62 6f 78 3b 0a |..var d |: dbox;.|
|000048a0| 0a 62 65 67 69 6e 0a 0a | 20 20 28 2a 20 2d 2d 2d |.begin..| (* ---|
|000048b0| 20 64 69 73 70 6c 61 79 | 20 69 6e 66 6f 20 61 62 | display| info ab|
|000048c0| 6f 75 74 20 74 68 65 20 | 70 72 6f 67 72 61 6d 20 |out the |program |
|000048d0| 69 6e 20 61 20 64 69 61 | 6c 6f 67 75 65 20 62 6f |in a dia|logue bo|
|000048e0| 78 20 2d 2d 2d 20 2a 29 | 0a 20 20 64 20 3a 3d 20 |x --- *)|. d := |
|000048f0| 64 62 6f 78 5f 6e 65 77 | 28 27 50 72 6f 67 49 6e |dbox_new|('ProgIn|
|00004900| 66 6f 27 29 3b 0a 0a 20 | 20 64 62 6f 78 5f 73 68 |fo');.. | dbox_sh|
|00004910| 6f 77 73 74 61 74 69 63 | 28 64 29 3b 0a 0a 20 20 |owstatic|(d);.. |
|00004920| 64 62 6f 78 5f 66 69 6c | 6c 69 6e 28 64 29 3b 0a |dbox_fil|lin(d);.|
|00004930| 0a 20 20 64 62 6f 78 5f | 64 69 73 70 6f 73 65 28 |. dbox_|dispose(|
|00004940| 64 29 3b 0a 65 6e 64 3b | 0a 0a 66 75 6e 63 74 69 |d);.end;|..functi|
|00004950| 6f 6e 20 62 61 6c 6c 73 | 36 34 5f 73 61 76 65 72 |on balls|64_saver|
|00004960| 28 66 69 6c 65 6e 61 6d | 65 20 3a 20 73 74 72 69 |(filenam|e : stri|
|00004970| 6e 67 3b 20 68 61 6e 64 | 6c 65 20 3a 20 70 6f 69 |ng; hand|le : poi|
|00004980| 6e 74 65 72 29 20 3a 20 | 62 6f 6f 6c 65 61 6e 3b |nter) : |boolean;|
|00004990| 0a 0a 76 61 72 20 65 20 | 3a 20 6f 73 5f 65 72 72 |..var e |: os_err|
|000049a0| 6f 72 3b 0a 0a 62 65 67 | 69 6e 0a 0a 20 20 28 2a |or;..beg|in.. (*|
|000049b0| 20 2d 2d 2d 20 73 61 76 | 65 20 74 68 65 20 73 70 | --- sav|e the sp|
|000049c0| 72 69 74 65 20 61 72 65 | 61 20 69 6e 20 61 20 73 |rite are|a in a s|
|000049d0| 70 72 69 74 65 20 66 69 | 6c 65 20 2d 2d 2d 20 2a |prite fi|le --- *|
|000049e0| 29 0a 20 20 76 69 73 64 | 65 6c 61 79 5f 62 65 67 |). visd|elay_beg|
|000049f0| 69 6e 3b 0a 20 20 65 20 | 3a 3d 20 77 69 6d 70 74 |in;. e |:= wimpt|
|00004a00| 5f 63 6f 6d 70 6c 61 69 | 6e 28 73 70 72 69 74 65 |_complai|n(sprite|
|00004a10| 5f 61 72 65 61 5f 73 61 | 76 65 28 6d 79 5f 73 70 |_area_sa|ve(my_sp|
|00004a20| 72 69 74 65 2e 61 72 65 | 61 2c 20 66 69 6c 65 6e |rite.are|a, filen|
|00004a30| 61 6d 65 29 29 3b 0a 20 | 20 76 69 73 64 65 6c 61 |ame));. | visdela|
|00004a40| 79 5f 65 6e 64 3b 0a 0a | 20 20 62 61 6c 6c 73 36 |y_end;..| balls6|
|00004a50| 34 5f 73 61 76 65 72 20 | 3a 3d 20 6e 6f 74 20 65 |4_saver |:= not e|
|00004a60| 3b 0a 65 6e 64 3b 0a 20 | 20 20 0a 28 2a 2a 2a 2a |;.end;. | .(****|
|00004a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004a80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 4d 45 4e 55 |********|*** MENU|
|00004a90| 20 48 41 4e 44 4c 49 4e | 47 20 2a 2a 2a 2a 2a 2a | HANDLIN|G ******|
|00004aa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004ab0| 2a 2a 2a 2a 2a 2a 2a 29 | 0a 0a 66 75 6e 63 74 69 |*******)|..functi|
|00004ac0| 6f 6e 20 62 61 6c 6c 73 | 36 34 5f 6d 65 6e 75 6d |on balls|64_menum|
|00004ad0| 61 6b 65 72 28 68 61 6e | 64 6c 65 20 3a 20 70 6f |aker(han|dle : po|
|00004ae0| 69 6e 74 65 72 29 20 3a | 20 6d 65 6e 75 3b 0a 0a |inter) :| menu;..|
|00004af0| 76 61 72 20 74 65 6d 70 | 20 3a 20 6d 65 6e 75 3b |var temp| : menu;|
|00004b00| 0a 0a 62 65 67 69 6e 0a | 0a 20 20 28 2a 20 2d 2d |..begin.|. (* --|
|00004b10| 2d 20 63 72 65 61 74 65 | 20 61 20 6d 65 6e 75 20 |- create| a menu |
|00004b20| 66 6f 72 20 74 68 65 20 | 69 63 6f 6e 20 6f 6e 20 |for the |icon on |
|00004b30| 74 68 65 20 69 63 6f 6e | 20 62 61 72 20 2d 2d 2d |the icon| bar ---|
|00004b40| 20 2a 29 0a 20 20 74 65 | 6d 70 20 3a 3d 20 6d 65 | *). te|mp := me|
|00004b50| 6e 75 5f 6e 65 77 28 27 | 42 61 6c 6c 73 36 34 27 |nu_new('|Balls64'|
|00004b60| 2c 20 27 3e 49 6e 66 6f | 2c 3e 53 61 76 65 2c 44 |, '>Info|,>Save,D|
|00004b70| 69 73 70 6c 61 79 2c 46 | 72 65 65 7a 65 2c 51 75 |isplay,F|reeze,Qu|
|00004b80| 69 74 27 29 3b 0a 0a 20 | 20 28 2a 20 2d 2d 2d 20 |it');.. | (* --- |
|00004b90| 66 61 64 65 20 6f 75 74 | 20 22 73 74 61 72 74 22 |fade out| "start"|
|00004ba0| 20 66 69 65 6c 64 20 69 | 66 20 77 65 20 61 6c 72 | field i|f we alr|
|00004bb0| 65 61 64 79 20 68 61 76 | 65 20 62 61 6c 6c 73 20 |eady hav|e balls |
|00004bc0| 6f 6e 20 64 69 73 70 6c | 61 79 20 2d 2d 2d 20 2a |on displ|ay --- *|
|00004bd0| 29 0a 20 20 6d 65 6e 75 | 5f 73 65 74 66 6c 61 67 |). menu|_setflag|
|00004be0| 73 28 74 65 6d 70 2c 20 | 69 63 6f 6e 6d 65 6e 75 |s(temp, |iconmenu|
|00004bf0| 5f 4d 44 69 73 70 6c 61 | 79 2c 20 66 61 6c 73 65 |_MDispla|y, false|
|00004c00| 2c 20 64 69 73 70 6c 61 | 79 69 6e 67 29 3b 0a 0a |, displa|ying);..|
|00004c10| 20 20 28 2a 20 2d 2d 2d | 20 74 69 63 6b 2f 75 6e | (* ---| tick/un|
|00004c20| 74 69 63 6b 20 22 66 72 | 65 65 7a 65 22 20 61 70 |tick "fr|eeze" ap|
|00004c30| 70 72 6f 70 72 69 61 74 | 65 6c 79 20 2d 2d 2d 20 |propriat|ely --- |
|00004c40| 2a 29 0a 20 20 6d 65 6e | 75 5f 73 65 74 66 6c 61 |*). men|u_setfla|
|00004c50| 67 73 28 74 65 6d 70 2c | 20 69 63 6f 6e 6d 65 6e |gs(temp,| iconmen|
|00004c60| 75 5f 4d 46 72 65 65 7a | 65 2c 20 66 72 6f 7a 65 |u_MFreez|e, froze|
|00004c70| 6e 2c 20 66 61 6c 73 65 | 29 3b 20 0a 0a 20 20 62 |n, false|); .. b|
|00004c80| 61 6c 6c 73 36 34 5f 6d | 65 6e 75 6d 61 6b 65 72 |alls64_m|enumaker|
|00004c90| 20 3a 3d 20 74 65 6d 70 | 0a 65 6e 64 3b 0a 0a 70 | := temp|.end;..p|
|00004ca0| 72 6f 63 65 64 75 72 65 | 20 62 61 6c 6c 73 36 34 |rocedure| balls64|
|00004cb0| 5f 6d 65 6e 75 70 72 6f | 63 28 68 61 6e 64 6c 65 |_menupro|c(handle|
|00004cc0| 20 3a 20 70 6f 69 6e 74 | 65 72 3b 20 68 69 74 20 | : point|er; hit |
|00004cd0| 3a 20 65 76 65 6e 74 5f | 68 69 74 73 74 72 5f 70 |: event_|hitstr_p|
|00004ce0| 74 72 29 3b 0a 0a 62 65 | 67 69 6e 0a 20 20 28 2a |tr);..be|gin. (*|
|00004cf0| 20 2d 2d 2d 20 73 65 65 | 20 77 68 69 63 68 20 6d | --- see| which m|
|00004d00| 65 6e 75 20 65 6e 74 72 | 79 20 68 61 73 20 62 65 |enu entr|y has be|
|00004d10| 65 6e 20 63 68 6f 73 65 | 6e 20 2d 2d 2d 20 2a 29 |en chose|n --- *)|
|00004d20| 0a 20 20 63 61 73 65 20 | 69 6e 74 65 67 65 72 28 |. case |integer(|
|00004d30| 68 69 74 5e 5b 30 5d 29 | 20 6f 66 0a 20 20 20 20 |hit^[0])| of. |
|00004d40| 69 63 6f 6e 6d 65 6e 75 | 5f 4d 49 6e 66 6f 3a 0a |iconmenu|_MInfo:.|
|00004d50| 20 20 20 20 20 20 62 61 | 6c 6c 73 36 34 5f 69 6e | ba|lls64_in|
|00004d60| 66 6f 5f 61 62 6f 75 74 | 70 72 6f 67 3b 0a 0a 20 |fo_about|prog;.. |
|00004d70| 20 20 20 69 63 6f 6e 6d | 65 6e 75 5f 4d 44 69 73 | iconm|enu_MDis|
|00004d80| 70 6c 61 79 3a 0a 20 20 | 20 20 20 20 20 20 62 61 |play:. | ba|
|00004d90| 6c 6c 73 36 34 5f 6c 65 | 66 74 63 6c 69 63 6b 70 |lls64_le|ftclickp|
|00004da0| 72 6f 63 28 77 69 6d 70 | 5f 69 28 30 29 29 3b 0a |roc(wimp|_i(0));.|
|00004db0| 0a 20 20 20 20 69 63 6f | 6e 6d 65 6e 75 5f 4d 53 |. ico|nmenu_MS|
|00004dc0| 61 76 65 3a 0a 20 20 20 | 20 20 20 20 20 73 61 76 |ave:. | sav|
|00004dd0| 65 61 73 28 53 70 72 69 | 74 65 46 69 6c 65 2c 20 |eas(Spri|teFile, |
|00004de0| 27 42 61 6c 6c 73 44 75 | 6d 70 27 2c 20 53 70 72 |'BallsDu|mp', Spr|
|00004df0| 69 74 65 53 69 7a 65 2c | 0a 20 20 20 20 20 20 20 |iteSize,|. |
|00004e00| 20 20 20 20 20 20 20 20 | 62 61 6c 6c 73 36 34 5f | |balls64_|
|00004e10| 73 61 76 65 72 2c 20 6e | 69 6c 2c 20 6e 69 6c 2c |saver, n|il, nil,|
|00004e20| 20 6e 69 6c 29 3b 0a 0a | 20 20 20 20 69 63 6f 6e | nil);..| icon|
|00004e30| 6d 65 6e 75 5f 4d 46 72 | 65 65 7a 65 3a 0a 20 20 |menu_MFr|eeze:. |
|00004e40| 20 20 20 20 69 66 20 28 | 66 72 6f 7a 65 6e 29 0a | if (|frozen).|
|00004e50| 20 20 20 20 20 20 20 20 | 74 68 65 6e 20 62 65 67 | |then beg|
|00004e60| 69 6e 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |in. | |
|00004e70| 20 20 65 76 65 6e 74 5f | 73 65 74 6d 61 73 6b 28 | event_|setmask(|
|00004e80| 75 61 6e 64 28 65 76 65 | 6e 74 5f 67 65 74 6d 61 |uand(eve|nt_getma|
|00004e90| 73 6b 2c 20 75 6e 6f 74 | 28 77 69 6d 70 5f 45 4d |sk, unot|(wimp_EM|
|00004ea0| 4e 55 4c 4c 29 29 29 3b | 0a 20 20 20 20 20 20 20 |NULL)));|. |
|00004eb0| 20 20 20 20 20 20 20 20 | 66 72 6f 7a 65 6e 20 3a | |frozen :|
|00004ec0| 3d 20 46 41 4c 53 45 3b | 0a 20 20 20 20 20 20 20 |= FALSE;|. |
|00004ed0| 20 20 20 20 20 20 65 6e | 64 0a 20 20 20 20 20 20 | en|d. |
|00004ee0| 20 20 65 6c 73 65 20 62 | 65 67 69 6e 20 20 20 20 | else b|egin |
|00004ef0| 20 20 20 20 20 20 20 0a | 20 20 20 20 20 20 20 20 | .| |
|00004f00| 20 20 20 20 20 20 20 65 | 76 65 6e 74 5f 73 65 74 | e|vent_set|
|00004f10| 6d 61 73 6b 28 75 6f 72 | 28 65 76 65 6e 74 5f 67 |mask(uor|(event_g|
|00004f20| 65 74 6d 61 73 6b 2c 20 | 77 69 6d 70 5f 45 4d 4e |etmask, |wimp_EMN|
|00004f30| 55 4c 4c 29 29 3b 0a 20 | 20 20 20 20 20 20 20 20 |ULL));. | |
|00004f40| 20 20 20 20 20 20 66 72 | 6f 7a 65 6e 20 3a 3d 20 | fr|ozen := |
|00004f50| 54 52 55 45 3b 0a 20 20 | 20 20 20 20 20 20 20 20 |TRUE;. | |
|00004f60| 20 20 20 65 6e 64 3b 0a | 0a 20 20 20 20 69 63 6f | end;.|. ico|
|00004f70| 6e 6d 65 6e 75 5f 4d 51 | 75 69 74 3a 0a 20 20 20 |nmenu_MQ|uit:. |
|00004f80| 20 20 20 20 20 67 6f 74 | 6f 20 39 39 39 39 3b 0a | got|o 9999;.|
|00004f90| 0a 20 20 65 6e 64 3b 0a | 65 6e 64 3b 0a 0a 28 2a |. end;.|end;..(*|
|00004fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 20 |********|******* |
|00004fc0| 49 4e 49 54 49 41 4c 49 | 53 41 54 49 4f 4e 20 2a |INITIALI|SATION *|
|00004fd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fe0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 29 0a 0a 70 72 6f |********|**)..pro|
|00004ff0| 63 65 64 75 72 65 20 62 | 61 6c 6c 73 36 34 5f 69 |cedure b|alls64_i|
|00005000| 6e 69 74 69 61 6c 69 73 | 65 3b 0a 0a 62 65 67 69 |nitialis|e;..begi|
|00005010| 6e 0a 20 20 28 2a 20 2d | 2d 2d 20 69 6e 69 74 69 |n. (* -|-- initi|
|00005020| 61 6c 69 73 65 20 77 69 | 6d 70 20 6c 69 62 72 61 |alise wi|mp libra|
|00005030| 72 79 20 6d 6f 64 75 6c | 65 73 20 2d 2d 2d 20 2a |ry modul|es --- *|
|00005040| 29 0a 20 20 77 69 6d 70 | 74 5f 69 6e 69 74 28 27 |). wimp|t_init('|
|00005050| 62 61 6c 6c 73 36 34 27 | 29 3b 0a 20 20 72 65 73 |balls64'|);. res|
|00005060| 5f 69 6e 69 74 28 27 62 | 61 6c 6c 73 36 34 27 29 |_init('b|alls64')|
|00005070| 3b 0a 20 20 72 65 73 73 | 70 72 5f 69 6e 69 74 3b |;. ress|pr_init;|
|00005080| 0a 20 20 66 6c 65 78 5f | 69 6e 69 74 3b 0a 20 20 |. flex_|init;. |
|00005090| 74 65 6d 70 6c 61 74 65 | 5f 69 6e 69 74 3b 0a 20 |template|_init;. |
|000050a0| 20 64 62 6f 78 5f 69 6e | 69 74 3b 0a 0a 20 20 28 | dbox_in|it;.. (|
|000050b0| 2a 20 2d 2d 2d 20 63 68 | 65 63 6b 20 77 68 69 63 |* --- ch|eck whic|
|000050c0| 68 20 6d 6f 64 65 20 77 | 65 20 61 72 65 20 69 6e |h mode w|e are in|
|000050d0| 20 2d 2d 2d 20 2a 29 0a | 20 20 77 69 6d 70 74 5f | --- *).| wimpt_|
|000050e0| 63 68 65 63 6b 6d 6f 64 | 65 3b 0a 20 20 69 66 20 |checkmod|e;. if |
|000050f0| 28 77 69 6d 70 74 5f 62 | 70 70 20 3c 3e 20 38 29 |(wimpt_b|pp <> 8)|
|00005100| 0a 20 20 20 20 74 68 65 | 6e 20 62 61 6c 6c 73 36 |. the|n balls6|
|00005110| 34 5f 62 70 70 5f 77 61 | 72 6e 3b 0a 0a 20 20 28 |4_bpp_wa|rn;.. (|
|00005120| 2a 20 2d 2d 2d 20 63 72 | 65 61 74 65 20 73 70 72 |* --- cr|eate spr|
|00005130| 69 74 65 20 74 6f 20 62 | 65 20 75 73 65 64 20 61 |ite to b|e used a|
|00005140| 73 20 6f 75 74 70 75 74 | 20 2d 2d 2d 20 2a 29 0a |s output| --- *).|
|00005150| 20 20 62 61 6c 6c 73 36 | 34 5f 63 72 65 61 74 65 | balls6|4_create|
|00005160| 5f 73 70 72 69 74 65 28 | 6d 79 5f 73 70 72 69 74 |_sprite(|my_sprit|
|00005170| 65 29 3b 0a 0a 20 20 28 | 2a 20 2d 2d 2d 20 63 72 |e);.. (|* --- cr|
|00005180| 65 61 74 65 20 61 20 77 | 69 6e 64 6f 77 20 66 6f |eate a w|indow fo|
|00005190| 72 20 64 69 73 70 6c 61 | 79 20 2d 2d 2d 20 2a 29 |r displa|y --- *)|
|000051a0| 0a 20 20 62 61 6c 6c 73 | 36 34 5f 63 72 65 61 74 |. balls|64_creat|
|000051b0| 65 5f 64 69 73 70 6c 61 | 79 77 69 6e 28 64 69 73 |e_displa|ywin(dis|
|000051c0| 70 6c 61 79 77 69 6e 5f | 68 61 6e 64 6c 65 29 3b |playwin_|handle);|
|000051d0| 0a 0a 20 20 28 2a 20 2d | 2d 2d 20 61 74 74 61 63 |.. (* -|-- attac|
|000051e0| 68 20 61 6e 20 65 76 65 | 6e 74 20 68 61 6e 64 6c |h an eve|nt handl|
|000051f0| 69 6e 67 20 66 75 6e 63 | 74 69 6f 6e 20 74 6f 20 |ing func|tion to |
|00005200| 77 69 6e 64 6f 77 20 2d | 2d 2d 20 2a 29 0a 20 20 |window -|-- *). |
|00005210| 77 69 6e 5f 72 65 67 69 | 73 74 65 72 5f 65 76 65 |win_regi|ster_eve|
|00005220| 6e 74 5f 68 61 6e 64 6c | 65 72 28 64 69 73 70 6c |nt_handl|er(displ|
|00005230| 61 79 77 69 6e 5f 68 61 | 6e 64 6c 65 2c 20 62 61 |aywin_ha|ndle, ba|
|00005240| 6c 6c 73 36 34 5f 68 61 | 6e 64 6c 65 72 2c 20 6e |lls64_ha|ndler, n|
|00005250| 69 6c 29 3b 0a 0a 20 20 | 28 2a 20 2d 2d 2d 20 6d |il);.. |(* --- m|
|00005260| 61 6b 65 20 74 68 65 20 | 77 69 6e 64 6f 77 20 77 |ake the |window w|
|00005270| 65 20 6a 75 73 74 20 63 | 72 65 61 74 65 64 20 67 |e just c|reated g|
|00005280| 65 74 20 64 65 6c 69 76 | 65 72 65 64 20 6e 75 6c |et deliv|ered nul|
|00005290| 6c 20 65 76 65 6e 74 73 | 20 2d 2d 2d 20 2a 29 0a |l events| --- *).|
|000052a0| 20 20 28 2a 20 2d 2d 2d | 20 61 6e 64 20 61 6c 73 | (* ---| and als|
|000052b0| 6f 20 75 6e 6b 6e 6f 77 | 6e 20 65 76 65 6e 74 73 |o unknow|n events|
|000052c0| 20 28 69 65 2e 20 6d 73 | 67 73 20 66 6f 72 20 70 | (ie. ms|gs for p|
|000052d0| 61 6c 65 74 74 65 2f 6d | 6f 64 65 20 63 68 61 6e |alette/m|ode chan|
|000052e0| 67 65 20 2d 2d 2d 20 2a | 29 0a 20 20 77 69 6e 5f |ge --- *|). win_|
|000052f0| 63 6c 61 69 6d 5f 69 64 | 6c 65 5f 65 76 65 6e 74 |claim_id|le_event|
|00005300| 73 28 64 69 73 70 6c 61 | 79 77 69 6e 5f 68 61 6e |s(displa|ywin_han|
|00005310| 64 6c 65 29 3b 0a 20 20 | 77 69 6e 5f 63 6c 61 69 |dle);. |win_clai|
|00005320| 6d 5f 75 6e 6b 6e 6f 77 | 6e 5f 65 76 65 6e 74 73 |m_unknow|n_events|
|00005330| 28 64 69 73 70 6c 61 79 | 77 69 6e 5f 68 61 6e 64 |(display|win_hand|
|00005340| 6c 65 29 3b 0a 0a 20 20 | 28 2a 20 2d 2d 2d 20 70 |le);.. |(* --- p|
|00005350| 75 74 20 6f 75 72 20 69 | 63 6f 6e 20 6f 6e 20 74 |ut our i|con on t|
|00005360| 68 65 20 69 63 6f 6e 20 | 62 61 72 20 2d 2d 2d 20 |he icon |bar --- |
|00005370| 2a 29 0a 20 20 62 61 72 | 69 63 6f 6e 28 27 21 62 |*). bar|icon('!b|
|00005380| 61 6c 6c 73 36 34 27 2c | 20 69 6e 74 65 67 65 72 |alls64',| integer|
|00005390| 28 72 65 73 73 70 72 5f | 61 72 65 61 29 2c 20 62 |(resspr_|area), b|
|000053a0| 61 6c 6c 73 36 34 5f 6c | 65 66 74 63 6c 69 63 6b |alls64_l|eftclick|
|000053b0| 70 72 6f 63 29 3b 0a 0a | 20 20 28 2a 20 2d 2d 2d |proc);..| (* ---|
|000053c0| 20 61 74 74 61 63 68 20 | 61 20 6d 65 6e 75 20 74 | attach |a menu t|
|000053d0| 6f 20 74 68 65 20 69 63 | 6f 6e 20 6f 6e 20 74 68 |o the ic|on on th|
|000053e0| 65 20 69 63 6f 6e 20 62 | 61 72 20 2d 2d 2d 20 2a |e icon b|ar --- *|
|000053f0| 29 0a 20 20 65 76 65 6e | 74 5f 61 74 74 61 63 68 |). even|t_attach|
|00005400| 6d 65 6e 75 6d 61 6b 65 | 72 28 77 69 6e 5f 49 43 |menumake|r(win_IC|
|00005410| 4f 4e 42 41 52 2c 20 62 | 61 6c 6c 73 36 34 5f 6d |ONBAR, b|alls64_m|
|00005420| 65 6e 75 6d 61 6b 65 72 | 2c 20 62 61 6c 6c 73 36 |enumaker|, balls6|
|00005430| 34 5f 6d 65 6e 75 70 72 | 6f 63 2c 20 6e 69 6c 29 |4_menupr|oc, nil)|
|00005440| 3b 0a 0a 20 20 28 2a 20 | 2d 2d 2d 20 72 65 61 64 |;.. (* |--- read|
|00005450| 20 74 68 65 20 70 61 6c | 65 74 74 65 20 2d 2d 2d | the pal|ette ---|
|00005460| 20 2a 29 0a 20 20 77 69 | 6d 70 74 5f 63 6f 6d 70 | *). wi|mpt_comp|
|00005470| 6c 61 69 6e 28 63 6f 6c | 6f 75 72 74 72 61 6e 5f |lain(col|ourtran_|
|00005480| 73 65 6c 65 63 74 5f 74 | 61 62 6c 65 28 53 70 72 |select_t|able(Spr|
|00005490| 69 74 65 4d 6f 64 65 2c | 6e 69 6c 2c 2d 31 2c 0a |iteMode,|nil,-1,.|
|000054a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000054b0| 20 20 20 20 20 20 20 20 | 20 20 20 77 69 6d 70 5f | | wimp_|
|000054c0| 70 61 6c 65 74 74 65 77 | 6f 72 64 5f 70 74 72 28 |palettew|ord_ptr(|
|000054d0| 2d 31 29 2c 61 64 64 72 | 65 73 73 28 74 72 61 6e |-1),addr|ess(tran|
|000054e0| 73 29 29 29 3b 0a 0a 20 | 20 28 2a 20 2d 2d 2d 20 |s)));.. | (* --- |
|000054f0| 61 63 74 69 76 61 74 65 | 20 73 61 76 69 6e 67 20 |activate| saving |
|00005500| 6f 66 20 66 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e |of float|ing poin|
|00005510| 74 20 72 65 67 69 73 74 | 65 72 73 20 6f 6e 20 70 |t regist|ers on p|
|00005520| 6f 6c 6c 20 2d 2d 2d 20 | 2a 29 0a 20 20 77 69 6d |oll --- |*). wim|
|00005530| 70 5f 73 61 76 65 5f 66 | 70 5f 73 74 61 74 65 5f |p_save_f|p_state_|
|00005540| 6f 6e 5f 70 6f 6c 6c 3b | 0a 65 6e 64 3b 0a 0a 28 |on_poll;|.end;..(|
|00005550| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005560| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 20 |********|******* |
|00005570| 4d 41 49 4e 20 50 52 4f | 47 52 41 4d 20 2a 2a 2a |MAIN PRO|GRAM ***|
|00005580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 29 0a 0a 62 65 |********|***)..be|
|000055a0| 67 69 6e 0a 20 20 6f 6c | 64 5f 78 20 3a 3d 20 30 |gin. ol|d_x := 0|
|000055b0| 3b 0a 20 20 6f 6c 64 5f | 79 20 3a 3d 20 30 3b 0a |;. old_|y := 0;.|
|000055c0| 20 20 64 69 73 70 6c 61 | 79 69 6e 67 20 3a 3d 20 | displa|ying := |
|000055d0| 66 61 6c 73 65 3b 0a 20 | 20 66 72 6f 7a 65 6e 20 |false;. | frozen |
|000055e0| 3a 3d 20 66 61 6c 73 65 | 3b 0a 20 20 62 70 70 5f |:= false|;. bpp_|
|000055f0| 72 65 70 6f 72 74 65 64 | 20 3a 3d 20 66 61 6c 73 |reported| := fals|
|00005600| 65 3b 0a 20 20 28 2a 20 | 2d 2d 2d 20 69 6e 69 74 |e;. (* |--- init|
|00005610| 69 61 6c 69 73 65 20 74 | 68 65 20 65 6e 76 69 72 |ialise t|he envir|
|00005620| 6f 6e 6d 65 6e 74 20 2d | 2d 2d 20 2a 29 0a 20 20 |onment -|-- *). |
|00005630| 62 61 6c 6c 73 36 34 5f | 69 6e 69 74 69 61 6c 69 |balls64_|initiali|
|00005640| 73 65 3b 0a 0a 20 20 28 | 2a 20 2d 2d 2d 20 6d 61 |se;.. (|* --- ma|
|00005650| 73 6b 20 6f 66 66 20 74 | 68 65 20 65 76 65 6e 74 |sk off t|he event|
|00005660| 73 20 77 65 27 72 65 20 | 6e 6f 74 20 69 6e 74 65 |s we're |not inte|
|00005670| 72 65 73 74 65 64 20 69 | 6e 20 2d 2d 2d 20 2a 29 |rested i|n --- *)|
|00005680| 0a 20 20 65 76 65 6e 74 | 5f 73 65 74 6d 61 73 6b |. event|_setmask|
|00005690| 28 75 6f 72 28 77 69 6d | 70 5f 45 4d 50 54 52 45 |(uor(wim|p_EMPTRE|
|000056a0| 4e 54 45 52 2c 20 77 69 | 6d 70 5f 45 4d 50 54 52 |NTER, wi|mp_EMPTR|
|000056b0| 4c 45 41 56 45 29 29 3b | 0a 0a 20 20 28 2a 20 2d |LEAVE));|.. (* -|
|000056c0| 2d 2d 20 74 68 65 20 6d | 61 69 6e 20 65 76 65 6e |-- the m|ain even|
|000056d0| 74 20 6c 6f 6f 70 20 2d | 2d 2d 20 2a 29 20 20 20 |t loop -|-- *) |
|000056e0| 0a 20 20 77 68 69 6c 65 | 28 54 52 55 45 29 0a 20 |. while|(TRUE). |
|000056f0| 20 20 20 64 6f 20 65 76 | 65 6e 74 5f 70 72 6f 63 | do ev|ent_proc|
|00005700| 65 73 73 3b 0a 20 20 39 | 39 39 39 3a 3b 0a 65 6e |ess;. 9|999:;.en|
|00005710| 64 2e 0a 46 69 6c 65 44 | 61 74 61 82 73 70 72 69 |d..FileD|ata.spri|
|00005720| 74 65 73 00 eb ff ff 8c | 01 00 00 41 f9 ff ff a8 |tes.....|...A....|
|00005730| a0 3b a3 03 00 13 cf 01 | 00 00 00 10 00 00 00 90 |.;......|........|
|00005740| 01 00 00 80 01 00 00 21 | 62 61 6c 6c 73 36 34 00 |.......!|balls64.|
|00005750| 00 00 00 04 00 00 00 10 | 00 00 00 00 00 00 00 07 |........|........|
|00005760| 00 00 00 2c 00 00 00 2c | 00 00 00 0c 00 00 00 99 |...,...,|........|
|00005770| 99 99 99 99 99 99 b9 bb | bb bb bb bb bb bb bb bb |........|........|
|00005780| 00 00 00 99 99 99 99 99 | 99 99 99 bb bb bb bb bb |........|........|
|00005790| bb bb bb bb 00 00 00 99 | 99 99 99 99 99 99 99 b9 |........|........|
|000057a0| bb bb bb bb bb fb ff ff | 00 00 00 99 99 99 99 99 |........|........|
|000057b0| 99 99 99 b9 bb bb bb bb | ff ff ff ff 00 00 00 99 |........|........|
|000057c0| 99 99 99 99 99 99 99 b9 | bb bb bb fb ff ff ff ff |........|........|
|000057d0| 00 00 00 99 99 99 99 99 | 99 99 99 bb bb bb bb ff |........|........|
|000057e0| ff ff ff ff 00 00 00 99 | 99 99 99 99 99 99 b9 bb |........|........|
|000057f0| bb bb bb ff ff ff ff ff | 00 00 00 99 99 99 99 99 |........|........|
|00005800| 99 99 bb bb bb bb bb ff | ff ff ff ff 00 00 00 99 |........|........|
|00005810| 99 99 99 99 88 88 88 88 | 88 bb bb ff ff ff ff ff |........|........|
|00005820| 00 00 00 99 99 99 88 88 | 88 88 88 88 88 88 bb ff |........|........|
|00005830| ff cc cc cc 00 00 00 99 | 99 88 88 88 88 88 88 88 |........|........|
|00005840| 88 88 88 cf cc cc cc cc | 00 00 00 88 88 88 88 88 |........|........|
|00005850| 88 88 88 88 88 88 cc cc | cc cc cc cc 00 00 00 88 |........|........|
|00005860| 88 88 88 88 88 88 88 88 | 88 c8 cc cc cc cc cc cc |........|........|
|00005870| 00 00 00 88 88 88 88 88 | 88 88 88 88 88 cc cc cc |........|........|
|00005880| cc cc cc cc 00 00 00 88 | 88 88 88 88 88 88 88 88 |........|........|
|00005890| c8 cc cc cc cc cc cc cc | 00 00 00 88 88 88 88 88 |........|........|
|000058a0| 88 88 88 88 c8 cc cc cc | cc cc cc cc 00 00 00 88 |........|........|
|000058b0| 88 88 88 88 88 88 88 88 | c8 cc cc cc cc cc cc cc |........|........|
|000058c0| 00 00 00 46 69 6c 65 44 | 61 74 61 82 54 65 6d 70 |...FileD|ata.Temp|
|000058d0| 6c 61 74 65 73 00 ff 57 | 03 00 00 41 ec ff ff fc |lates..W|...A....|
|000058e0| 96 d9 b5 03 00 27 6f ff | ff ff ff 00 00 00 00 00 |.....'o.|........|
|000058f0| 00 00 00 00 00 00 00 5c | 00 00 00 e8 00 00 00 01 |.......\|........|
|00005900| 00 00 00 78 66 65 72 5f | 73 65 6e 64 0d 56 e3 44 |...xfer_|send.V.D|
|00005910| 01 00 00 58 00 00 00 01 | 00 00 00 62 61 6c 6c 73 |...X....|...balls|
|00005920| 77 69 6e 64 0d 0d e3 9c | 01 00 00 bb 01 00 00 01 |wind....|........|
|00005930| 00 00 00 50 72 6f 67 49 | 6e 66 6f 0d 00 51 e3 00 |...ProgI|nfo..Q..|
|00005940| 00 00 00 b6 00 00 00 ec | 00 00 00 c2 01 00 00 90 |........|........|
|00005950| 01 00 00 00 00 00 00 00 | 00 00 00 4c 07 00 00 52 |........|...L...R|
|00005960| 00 01 84 07 02 07 01 0c | 0e 02 00 00 00 00 00 00 |........|........|
|00005970| fc ff ff 00 05 00 00 00 | 00 00 00 3d 00 00 00 00 |........|...=....|
|00005980| 30 00 00 01 00 00 00 00 | 00 00 00 53 61 76 65 20 |0.......|...Save |
|00005990| 61 73 3a 0d 0d 0d 65 04 | 00 00 00 d6 00 00 00 60 |as:...e.|.......`|
|000059a0| ff ff ff 04 01 00 00 90 | ff ff ff 3d 90 01 c7 4f |........|...=...O|
|000059b0| 4b 0d 74 69 74 6c 65 64 | 3e 0d f6 96 01 00 00 8c |K.titled|>.......|
|000059c0| ff ff ff 02 02 00 00 b8 | ff ff ff 35 61 00 d7 d8 |........|...5a...|
|000059d0| 00 00 00 ff ff ff ff 1e | 00 00 00 08 00 00 00 60 |........|.......`|
|000059e0| ff ff ff d4 00 00 00 90 | ff ff ff 3d f1 00 07 df |........|...=....|
|000059f0| 00 00 00 e0 00 00 00 d4 | 00 00 00 5e 00 00 00 98 |........|...^....|
|00005a00| ff ff ff ac 00 00 00 f0 | ff ff ff 39 61 00 17 e4 |........|...9a...|
|00005a10| 00 00 00 ff ff ff ff 10 | 00 00 00 3c 43 52 41 50 |........|...<CRAP|
|00005a20| 3e 0d 0d 41 7e 20 0d 69 | 63 6e 0d 7e 01 00 00 d8 |>..A~ .i|cn.~....|
|00005a30| 01 00 00 d2 04 00 00 d4 | 03 00 00 00 00 00 00 00 |........|........|
|00005a40| 00 00 00 50 07 00 00 02 | 01 01 ff 07 02 07 07 03 |...P....|........|
|00005a50| 01 0c 00 00 00 00 00 68 | fc ff ff c4 04 00 00 00 |.......h|........|
|00005a60| 00 00 00 3d 00 00 00 00 | 00 00 00 01 00 00 00 00 |...=....|........|
|00005a70| 00 00 00 42 61 6c 6c 73 | 36 34 44 65 6d 6f 0d 00 |...Balls|64Demo..|
|00005a80| 00 00 00 1e 01 00 00 98 | 01 00 00 9a 03 00 00 70 |........|.......p|
|00005a90| 02 00 00 00 00 00 00 00 | 00 00 00 54 07 00 00 52 |........|...T...R|
|00005aa0| 00 03 84 07 02 07 01 0c | 0e 0c 00 00 00 00 00 00 |........|........|
|00005ab0| fc ff ff 00 05 00 00 00 | 00 00 00 3d 01 00 00 00 |........|...=....|
|00005ac0| 30 00 00 01 00 00 00 00 | 00 00 00 78 01 00 00 ff |0.......|...x....|
|00005ad0| ff ff ff 13 00 00 00 09 | 00 00 00 a4 02 00 00 34 |........|.......4|
|00005ae0| ff ff ff 54 03 00 00 64 | ff ff ff 3d 30 00 b7 0d |...T...d|...=0...|
|00005af0| 4b 0d 74 69 74 6c 65 64 | 3e 0d fe 9a 00 00 00 cc |K.titled|>.......|
|00005b00| ff ff ff 76 02 00 00 fc | ff ff ff 3d 60 00 07 42 |...v....|...=`..B|
|00005b10| 61 6c 6c 73 36 34 0d 28 | 00 00 00 9a 00 00 00 98 |alls64.(|........|
|00005b20| ff ff ff 76 02 00 00 c8 | ff ff ff 3d 61 00 07 8b |...v....|...=a...|
|00005b30| 01 00 00 ff ff ff ff 0f | 00 00 00 9a 00 00 00 64 |........|.......d|
|00005b40| ff ff ff 76 02 00 00 94 | ff ff ff 3d 61 00 07 9a |...v....|...=a...|
|00005b50| 01 00 00 ff ff ff ff 28 | 00 00 00 9a 00 00 00 30 |.......(|.......0|
|00005b60| ff ff ff 76 02 00 00 60 | ff ff ff 3d 61 00 07 b6 |...v...`|...=a...|
|00005b70| 01 00 00 ff ff ff ff 1e | 00 00 00 3e 00 00 00 d0 |........|...>....|
|00005b80| ff ff ff 9a 00 00 00 f8 | ff ff ff 19 00 00 17 4e |........|.......N|
|00005b90| 61 6d 65 3a 0d 6c 65 64 | 3e 0d fe 0e 00 00 00 9c |ame:.led|>.......|
|00005ba0| ff ff ff 9a 00 00 00 c4 | ff ff ff 19 00 00 17 50 |........|.......P|
|00005bb0| 75 72 70 6f 73 65 3a 0d | 3e 0d fe 1e 00 00 00 68 |urpose:.|>......h|
|00005bc0| ff ff ff 9a 00 00 00 90 | ff ff ff 19 00 00 17 41 |........|.......A|
|00005bd0| 75 74 68 6f 72 3a 0d 64 | 3e 0d fe 0e 00 00 00 38 |uthor:.d|>......8|
|00005be0| ff ff ff 9a 00 00 00 60 | ff ff ff 19 00 00 17 56 |.......`|.......V|
|00005bf0| 65 72 73 69 6f 6e 3a 0d | 3e 0d fe 41 62 6f 75 74 |ersion:.|>..About|
|00005c00| 20 74 68 69 73 20 70 72 | 6f 67 72 61 6d 0d 52 49 | this pr|ogram.RI|
|00005c10| 53 43 4f 53 6c 69 62 20 | 44 65 6d 6f 0d a9 20 41 |SCOSlib |Demo.. A|
|00005c20| 63 6f 72 6e 20 43 6f 6d | 70 75 74 65 72 73 20 4c |corn Com|puters L|
|00005c30| 74 64 2c 20 31 39 38 39 | 0d 31 2e 30 30 0d 46 69 |td, 1989|.1.00.Fi|
|00005c40| 6c 65 44 61 74 61 82 21 | 42 6f 6f 74 00 00 45 f8 |leData.!|Boot..E.|
|00005c50| ff ff 7d 00 00 00 43 eb | ff ff 77 c2 0a ac 03 00 |..}...C.|..w.....|
|00005c60| be 3d 2a 49 66 20 22 3c | 50 24 50 61 74 68 3e 22 |.=*If "<|P$Path>"|
|00005c70| 20 3d 20 22 22 20 54 68 | 65 6e 20 53 65 74 20 50 | = "" Th|en Set P|
|00005c80| 24 50 61 74 68 20 3c 4f | 62 65 79 24 44 69 72 3e |$Path <O|bey$Dir>|
|00005c90| 2e 0a 2a 49 66 20 22 3c | 50 24 4c 69 62 52 6f 6f |..*If "<|P$LibRoo|
|00005ca0| 74 3e 22 20 3d 20 22 22 | 20 54 68 65 6e 20 53 65 |t>" = ""| Then Se|
|00005cb0| 74 20 50 24 4c 69 62 52 | 6f 6f 74 20 50 3a 0a 49 |t P$LibR|oot P:.I|
|00005cc0| 63 6f 6e 53 70 72 69 74 | 65 73 20 3c 4f 62 65 79 |conSprit|es <Obey|
|00005cd0| 24 44 69 72 3e 2e 21 53 | 70 72 69 74 65 73 0a 46 |$Dir>.!S|prites.F|
|00005ce0| 69 6c 65 44 61 74 61 82 | 21 68 65 6c 70 00 00 45 |ileData.|!help..E|
|00005cf0| f8 ff ff f9 0e 00 00 44 | ff ff ff 85 84 86 35 03 |.......D|......5.|
|00005d00| 00 fa d9 20 20 20 50 61 | 73 63 61 6c 0a 20 20 20 |... Pa|scal. |
|00005d10| 7e 7e 7e 7e 7e 7e 0a 20 | 20 20 50 75 72 70 6f 73 |~~~~~~. | Purpos|
|00005d20| 65 3a 20 20 49 53 4f 20 | 50 61 73 63 61 6c 20 43 |e: ISO |Pascal C|
|00005d30| 6f 6d 70 69 6c 65 72 0a | 0a 20 20 20 53 65 74 75 |ompiler.|. Setu|
|00005d40| 70 3a 0a 20 20 20 20 20 | 20 49 63 6f 6e 20 20 20 |p:. | Icon |
|00005d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005d60| 20 41 63 74 69 6f 6e 2f | 4d 65 61 6e 69 6e 67 20 | Action/|Meaning |
|00005d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005d80| 20 20 20 20 20 20 44 65 | 66 61 75 6c 74 0a 20 20 | De|fault. |
|00005d90| 20 20 20 20 2d 2d 2d 2d | 20 20 20 20 20 20 20 20 | ----| |
|00005da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2d 2d 2d 2d | | ----|
|00005db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 20 20 20 20 20 20 |--------|-- |
|00005dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005dd0| 20 2d 2d 2d 2d 2d 2d 2d | 0a 20 20 20 20 20 20 53 | -------|. S|
|00005de0| 6f 75 72 63 65 20 20 20 | 20 20 20 20 20 20 20 20 |ource | |
|00005df0| 20 20 20 20 20 20 20 4e | 61 6d 65 20 6f 66 20 66 | N|ame of f|
|00005e00| 69 6c 65 20 74 6f 20 62 | 65 20 63 6f 6d 70 69 6c |ile to b|e compil|
|00005e10| 65 64 20 20 20 20 20 20 | 20 20 20 20 20 20 6e 69 |ed | ni|
|00005e20| 6c 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |l. | |
|00005e30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005e40| 28 74 79 70 65 64 20 6f | 72 20 64 72 61 67 67 65 |(typed o|r dragge|
|00005e50| 64 29 2e 0a 20 20 20 20 | 20 20 43 6f 6d 70 69 6c |d).. | Compil|
|00005e60| 65 20 6f 6e 6c 79 20 20 | 20 20 20 20 20 20 20 20 |e only | |
|00005e70| 20 20 44 6f 20 6e 6f 74 | 20 69 6e 76 6f 6b 65 20 | Do not| invoke |
|00005e80| 74 68 65 20 6c 69 6e 6b | 65 72 20 20 20 20 20 20 |the link|er |
|00005e90| 20 20 20 20 20 20 20 20 | 20 6f 66 66 0a 20 20 20 | | off. |
|00005ea0| 20 20 20 41 73 73 65 6d | 62 6c 65 72 20 20 20 20 | Assem|bler |
|00005eb0| 20 20 20 20 20 20 20 20 | 20 20 20 4f 75 74 70 75 | | Outpu|
|00005ec0| 74 20 41 52 4d 20 61 73 | 73 65 6d 62 6c 79 20 63 |t ARM as|sembly c|
|00005ed0| 6f 64 65 20 69 6e 73 74 | 65 61 64 20 20 20 20 20 |ode inst|ead |
|00005ee0| 20 20 6f 66 66 0a 20 20 | 20 20 20 20 20 20 20 20 | off. | |
|00005ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005f00| 20 20 20 20 6f 66 20 6f | 62 6a 65 63 74 20 63 6f | of o|bject co|
|00005f10| 64 65 0a 20 20 20 20 20 | 20 49 53 4f 20 20 20 20 |de. | ISO |
|00005f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005f30| 20 43 6f 6d 70 69 6c 65 | 20 73 74 72 69 63 74 20 | Compile| strict |
|00005f40| 49 53 4f 20 50 61 73 63 | 61 6c 20 20 20 20 20 20 |ISO Pasc|al |
|00005f50| 20 20 20 20 20 20 20 20 | 6f 66 66 0a 20 20 20 20 | |off. |
|00005f60| 20 20 44 65 62 75 67 20 | 20 20 20 20 20 20 20 20 | Debug | |
|00005f70| 20 20 20 20 20 20 20 20 | 20 20 43 6f 6d 70 69 6c | | Compil|
|00005f80| 65 20 69 6e 20 64 65 62 | 75 67 67 69 6e 67 20 69 |e in deb|ugging i|
|00005f90| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 20 20 20 20 20 |nformati|on |
|00005fa0| 20 6f 66 66 0a 20 20 20 | 20 20 20 54 68 72 6f 77 | off. | Throw|
|00005fb0| 62 61 63 6b 20 20 20 20 | 20 20 20 20 20 20 20 20 |back | |
|00005fc0| 20 20 20 52 65 70 6f 72 | 74 20 65 72 72 6f 72 73 | Repor|t errors|
|00005fd0| 20 61 6e 64 20 77 61 72 | 6e 69 6e 67 73 20 74 6f | and war|nings to|
|00005fe0| 20 74 68 65 20 20 20 20 | 20 20 6f 6e 0a 20 20 20 | the | on. |
|00005ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006000| 20 20 20 20 20 20 20 20 | 20 20 20 65 64 69 74 6f | | edito|
|00006010| 72 0a 20 20 20 20 20 20 | 55 73 65 73 20 52 49 53 |r. |Uses RIS|
|00006020| 43 5f 4f 53 4c 69 62 20 | 20 20 20 20 20 20 20 20 |C_OSLib | |
|00006030| 49 6e 63 6c 75 64 65 20 | 74 68 65 20 6c 69 62 72 |Include |the libr|
|00006040| 61 72 79 20 52 49 53 43 | 5f 4f 53 4c 69 62 20 69 |ary RISC|_OSLib i|
|00006050| 6e 20 20 20 20 20 20 6f | 66 66 0a 20 20 20 20 20 |n o|ff. |
|00006060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006070| 20 20 20 20 20 20 20 20 | 20 74 68 65 20 6c 69 73 | | the lis|
|00006080| 74 20 6f 66 20 6f 62 6a | 65 63 74 73 20 74 6f 20 |t of obj|ects to |
|00006090| 62 65 20 6c 69 6e 6b 65 | 64 2e 0a 20 20 20 20 20 |be linke|d.. |
|000060a0| 20 53 70 61 63 65 20 6f | 70 74 69 6d 69 73 61 74 | Space o|ptimisat|
|000060b0| 69 6f 6e 20 20 20 20 20 | 20 4f 70 74 69 6d 69 73 |ion | Optimis|
|000060c0| 65 20 66 6f 72 20 73 70 | 61 63 65 20 69 6e 20 70 |e for sp|ace in p|
|000060d0| 72 65 66 65 72 65 6e 63 | 65 20 74 6f 20 20 20 20 |referenc|e to |
|000060e0| 6f 66 66 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |off. | |
|000060f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006100| 20 20 73 70 65 65 64 20 | 6f 66 20 65 78 65 63 75 | speed |of execu|
|00006110| 74 69 6f 6e 2e 0a 0a 20 | 20 20 20 20 20 52 75 6e |tion... | Run|
|00006120| 20 74 69 6d 65 20 63 68 | 65 63 6b 73 3a 2d 20 20 | time ch|ecks:- |
|00006130| 20 20 20 20 20 45 6e 61 | 62 6c 65 20 2f 20 64 69 | Ena|ble / di|
|00006140| 73 61 62 6c 65 20 67 65 | 6e 65 72 61 74 69 6f 6e |sable ge|neration|
|00006150| 20 6f 66 20 63 6f 64 65 | 0a 20 20 20 20 20 20 20 | of code|. |
|00006160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006170| 20 20 20 20 20 20 20 74 | 6f 20 70 65 72 66 6f 72 | t|o perfor|
|00006180| 6d 20 76 61 72 69 6f 75 | 73 20 63 68 65 63 6b 73 |m variou|s checks|
|00006190| 20 64 75 72 69 6e 67 0a | 20 20 20 20 20 20 20 20 | during.| |
|000061a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000061b0| 20 20 20 20 20 20 65 78 | 65 63 75 74 69 6f 6e 20 | ex|ecution |
|000061c0| 6f 66 20 74 68 65 20 70 | 72 6f 67 72 61 6d 2e 0a |of the p|rogram..|
|000061d0| 0a 20 20 20 20 20 20 41 | 72 72 61 79 20 62 6f 75 |. A|rray bou|
|000061e0| 6e 64 73 20 20 20 20 20 | 20 20 20 20 20 20 20 43 |nds | C|
|000061f0| 68 65 63 6b 20 74 68 61 | 74 20 61 72 72 61 79 20 |heck tha|t array |
|00006200| 69 6e 64 69 63 65 73 20 | 64 6f 20 6e 6f 74 20 20 |indices |do not |
|00006210| 20 20 20 20 20 20 6f 6e | 0a 20 20 20 20 20 20 20 | on|. |
|00006220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006230| 20 20 20 20 20 20 20 65 | 78 63 65 65 64 20 74 68 | e|xceed th|
|00006240| 65 20 61 72 72 61 79 20 | 62 6f 75 6e 64 73 2e 0a |e array |bounds..|
|00006250| 20 20 20 20 20 20 4e 69 | 6c 20 70 6f 69 6e 74 65 | Ni|l pointe|
|00006260| 72 73 20 20 20 20 20 20 | 20 20 20 20 20 20 43 68 |rs | Ch|
|00006270| 65 63 6b 20 61 74 74 65 | 6d 70 74 73 20 74 6f 20 |eck atte|mpts to |
|00006280| 72 65 66 65 72 65 6e 63 | 65 20 61 6e 20 6f 62 6a |referenc|e an obj|
|00006290| 65 63 74 20 20 6f 6e 0a | 20 20 20 20 20 20 20 20 |ect on.| |
|000062a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000062b0| 20 20 20 20 20 20 70 6f | 69 6e 74 65 64 20 74 6f | po|inted to|
|000062c0| 20 62 79 20 61 20 4e 69 | 6c 20 70 6f 69 6e 74 65 | by a Ni|l pointe|
|000062d0| 72 2e 0a 20 20 20 20 20 | 20 56 61 72 69 61 62 6c |r.. | Variabl|
|000062e0| 65 20 72 65 66 65 72 65 | 6e 63 65 73 20 20 20 20 |e refere|nces |
|000062f0| 20 43 68 65 63 6b 20 74 | 68 61 74 20 76 61 72 69 | Check t|hat vari|
|00006300| 61 62 6c 65 73 20 61 72 | 65 20 61 73 73 69 67 6e |ables ar|e assign|
|00006310| 65 64 20 20 20 20 20 20 | 6f 6e 0a 20 20 20 20 20 |ed |on. |
|00006320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006330| 20 20 20 20 20 20 20 20 | 20 62 65 66 6f 72 65 20 | | before |
|00006340| 62 65 69 6e 67 20 72 65 | 66 65 72 65 6e 63 65 64 |being re|ferenced|
|00006350| 2e 0a 20 20 20 20 20 20 | 41 73 73 65 72 74 69 6f |.. |Assertio|
|00006360| 6e 20 73 74 61 74 65 6d | 65 6e 74 73 20 20 20 20 |n statem|ents |
|00006370| 49 6e 63 6c 75 64 65 20 | 63 6f 64 65 20 74 6f 20 |Include |code to |
|00006380| 63 68 65 63 6b 20 61 73 | 73 65 72 74 69 6f 6e 20 |check as|sertion |
|00006390| 20 20 20 20 20 20 20 6f | 6e 0a 20 20 20 20 20 20 | o|n. |
|000063a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000063b0| 20 20 20 20 20 20 20 20 | 73 74 61 74 65 6d 65 6e | |statemen|
|000063c0| 74 73 20 69 6e 73 65 72 | 74 65 64 20 69 6e 20 74 |ts inser|ted in t|
|000063d0| 68 65 20 63 6f 64 65 2e | 0a 20 20 20 20 20 20 52 |he code.|. R|
|000063e0| 61 6e 67 65 20 63 68 65 | 63 6b 69 6e 67 20 20 20 |ange che|cking |
|000063f0| 20 20 20 20 20 20 20 43 | 68 65 63 6b 20 74 68 61 | C|heck tha|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
