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: _graphics
| 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 | 1c 02 00 00 7c 02 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 47 72 61 70 68 69 | 63 73 00 00 ff ff ff ff |.!Graphi|cs......|
|00000070| 45 fd ff ff a0 cb 68 9b | 30 00 00 00 ff ff ff ff |E.....h.|0.......|
|00000080| f8 01 00 80 82 21 42 6f | 6f 74 00 00 00 76 00 ff |.....!Bo|ot...v..|
|00000090| 5a 00 00 00 43 eb ff ff | 21 64 2a 25 03 00 be de |Z...C...|!d*%....|
|000000a0| 5a 00 00 00 24 00 00 00 | 82 21 48 65 6c 70 00 00 |Z...$...|.!Help..|
|000000b0| 00 76 00 ff ff ff ff ff | 45 fd ff ff fa cb 68 9b |.v......|E.....h.|
|000000c0| 30 00 00 00 ff ff ff ff | 44 01 00 80 82 21 52 75 |0.......|D....!Ru|
|000000d0| 6e 00 00 00 00 00 00 00 | 6d 00 00 00 42 eb ff ff |n.......|m...B...|
|000000e0| e3 8d 44 af 03 00 1e 41 | 6d 00 00 00 a2 00 00 00 |..D....A|m.......|
|000000f0| 82 21 52 75 6e 49 6d 61 | 67 65 00 00 88 07 00 00 |.!RunIma|ge......|
|00000100| 42 f8 ff ff 8b 62 b6 28 | 03 00 7c b4 88 07 00 00 |B....b.(|..|.....|
|00000110| 33 01 00 00 82 21 53 70 | 72 69 74 65 73 00 00 00 |3....!Sp|rites...|
|00000120| e0 02 00 00 42 f9 ff ff | 50 e6 b1 28 03 00 34 fc |....B...|P..(..4.|
|00000130| e0 02 00 00 df 08 00 00 | 82 52 65 61 64 4d 65 00 |........|.ReadMe.|
|00000140| 00 00 00 00 46 0f 00 00 | 43 ff ff ff ca 81 45 26 |....F...|C.....E&|
|00000150| 03 00 6a 6b 46 0f 00 00 | e3 0b 00 00 82 54 65 6d |..jkF...|.....Tem|
|00000160| 70 6c 61 74 65 73 00 00 | 4f 02 00 00 42 ec ff ff |plates..|O...B...|
|00000170| cd db 68 3a 03 00 c7 12 | 4f 02 00 00 4d 1b 00 00 |..h:....|O...M...|
|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| d8 00 00 00 82 21 52 75 | 6e 00 00 00 00 76 00 ff |.....!Ru|n....v..|
|000001b0| 6c 00 00 00 43 eb ff ff | 5c 4c 43 26 03 00 c4 e3 |l...C...|\LC&....|
|000001c0| 6c 00 00 00 c0 1d 00 00 | 82 21 53 70 72 69 74 65 |l.......|.!Sprite|
|000001d0| 73 00 00 ff 0c 02 00 00 | 43 f9 ff ff f3 04 2b 25 |s.......|C.....+%|
|000001e0| 03 00 a4 55 0c 02 00 00 | 50 1e 00 00 82 43 6c 69 |...U....|P....Cli|
|000001f0| 70 00 00 00 00 76 00 ff | c6 26 00 00 43 ff ff ff |p....v..|.&..C...|
|00000200| 52 67 41 26 03 00 4d d2 | c6 26 00 00 80 20 00 00 |RgA&..M.|.&... ..|
|00000210| 82 4c 69 6e 65 00 00 00 | 00 76 00 ff 88 9d 00 00 |.Line...|.v......|
|00000220| 43 ff ff ff 98 3a 45 26 | 03 00 1e 86 88 9d 00 00 |C....:E&|........|
|00000230| 6a 47 00 00 00 44 65 6d | 6f 73 00 00 00 76 00 ff |jG...Dem|os...v..|
|00000240| d9 07 00 00 45 ff ff ff | 70 19 55 2e 09 00 6b 61 |....E...|p.U...ka|
|00000250| d9 07 00 00 ed 4e 00 00 | 00 00 00 00 00 00 00 00 |.....N..|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | d8 00 00 00 46 69 6c 65 |........|....File|
|00000280| 44 61 74 61 82 21 42 6f | 6f 74 00 00 00 76 00 ff |Data.!Bo|ot...v..|
|00000290| 5a 00 00 00 43 eb ff ff | 21 64 2a 25 03 00 be de |Z...C...|!d*%....|
|000002a0| 7c 20 21 42 6f 6f 74 20 | 66 69 6c 65 20 66 6f 72 || !Boot |file for|
|000002b0| 20 47 72 61 70 68 69 63 | 73 0a 7c 0a 49 63 6f 6e | Graphic|s.|.Icon|
|000002c0| 53 70 72 69 74 65 73 20 | 3c 4f 62 65 79 24 44 69 |Sprites |<Obey$Di|
|000002d0| 72 3e 2e 21 53 70 72 69 | 74 65 73 0a 7c 0a 53 65 |r>.!Spri|tes.|.Se|
|000002e0| 74 20 47 72 61 70 68 69 | 63 73 24 44 69 72 20 3c |t Graphi|cs$Dir <|
|000002f0| 4f 62 65 79 24 44 69 72 | 3e 0a 46 69 6c 65 44 61 |Obey$Dir|>.FileDa|
|00000300| 74 61 82 21 52 75 6e 00 | 00 00 00 00 00 00 6d 00 |ta.!Run.|......m.|
|00000310| 00 00 42 eb ff ff e3 8d | 44 af 03 00 1e 41 7c 20 |..B.....|D....A| |
|00000320| 21 52 75 6e 20 66 69 6c | 65 20 66 6f 72 20 48 65 |!Run fil|e for He|
|00000330| 6c 70 0a 7c 0a 49 63 6f | 6e 53 70 72 69 74 65 73 |lp.|.Ico|nSprites|
|00000340| 20 3c 4f 62 65 79 24 44 | 69 72 3e 2e 21 53 70 72 | <Obey$D|ir>.!Spr|
|00000350| 69 74 65 73 0a 7c 0a 57 | 69 6d 70 53 6c 6f 74 20 |ites.|.W|impSlot |
|00000360| 2d 6d 69 6e 20 31 36 4b | 20 2d 6d 61 78 20 31 36 |-min 16K| -max 16|
|00000370| 4b 0a 52 75 6e 20 3c 4f | 62 65 79 24 44 69 72 3e |K.Run <O|bey$Dir>|
|00000380| 2e 21 52 75 6e 49 6d 61 | 67 65 0a 46 69 6c 65 44 |.!RunIma|ge.FileD|
|00000390| 61 74 61 82 21 52 75 6e | 49 6d 61 67 65 00 00 88 |ata.!Run|Image...|
|000003a0| 07 00 00 42 f8 ff ff 8b | 62 b6 28 03 00 7c b4 00 |...B....|b.(..|..|
|000003b0| 00 00 ea 74 07 00 00 0c | c0 1f e5 0c c0 8f e0 02 |...t....|........|
|000003c0| db 8c e2 04 d0 4d e2 b3 | 00 00 eb bd 00 00 eb 48 |.....M..|.......H|
|000003d0| 01 00 eb 38 04 9f e5 0c | 10 a0 e1 00 00 81 e5 cb |...8....|........|
|000003e0| 00 06 ef 9a 00 00 eb 78 | 00 9f e5 0c 10 a0 e1 c7 |.......x|........|
|000003f0| 00 06 ef 14 e0 4f e2 00 | 20 8f e2 00 f1 82 e0 0e |.....O..| .......|
|00000400| f0 a0 e1 0e f0 a0 e1 91 | 00 00 ea 94 00 00 ea 0e |........|........|
|00000410| f0 a0 e1 0e f0 a0 e1 93 | 00 00 ea 0e f0 a0 e1 11 |........|........|
|00000420| 00 00 ea 2e 01 00 ea 0e | f0 a0 e1 0e f0 a0 e1 0e |........|........|
|00000430| f0 a0 e1 0e f0 a0 e1 0e | f0 a0 e1 0e f0 a0 e1 0e |........|........|
|00000440| f0 a0 e1 8f 00 00 ea 8e | 00 00 ea 8d 00 00 ea 6c |........|.......l|
|00000450| 02 9f e5 64 12 9f e5 dd | 00 06 ef 11 00 02 ef 00 |...d....|........|
|00000460| 00 00 00 00 00 00 00 b1 | fc 09 00 00 40 2d e9 18 |........|....@-..|
|00000470| 00 91 e5 f4 20 9f e5 02 | 00 50 e1 18 20 a0 03 20 |.... ...|.P.. .. |
|00000480| 30 a0 03 44 00 00 0a dc | 20 9f e5 02 00 50 e1 18 |0..D....| ....P..|
|00000490| 20 a0 03 1f 30 e0 03 3f | 00 00 0a d4 20 9f e5 02 | ...0..?|.... ...|
|000004a0| 00 50 e1 14 20 a0 03 20 | 30 a0 03 3a 00 00 0a bc |.P.. .. |0..:....|
|000004b0| 20 9f e5 02 00 50 e1 14 | 20 a0 03 1f 30 e0 03 35 | ....P..| ...0..5|
|000004c0| 00 00 0a b4 20 9f e5 02 | 00 50 e1 18 20 a0 03 01 |.... ...|.P.. ...|
|000004d0| 30 a0 03 3b 00 00 0a 9c | 20 9f e5 02 00 50 e1 18 |0..;....| ....P..|
|000004e0| 20 a0 03 02 30 a0 03 36 | 00 00 0a 94 20 9f e5 02 | ...0..6|.... ...|
|000004f0| 00 50 e1 14 20 a0 03 03 | 30 a0 03 31 00 00 0a 7c |.P.. ...|0..1...||
|00000500| 20 9f e5 02 00 50 e1 14 | 20 a0 03 04 30 a0 03 2c | ....P..| ...0..,|
|00000510| 00 00 0a 74 20 9f e5 02 | 00 50 e1 18 20 a0 03 01 |...t ...|.P.. ...|
|00000520| 30 a0 03 3d 00 00 0a 5c | 20 9f e5 02 00 50 e1 18 |0..=...\| ....P..|
|00000530| 20 a0 03 02 30 a0 03 38 | 00 00 0a 54 20 9f e5 02 | ...0..8|...T ...|
|00000540| 00 50 e1 14 20 a0 03 03 | 30 a0 03 33 00 00 0a 3c |.P.. ...|0..3...<|
|00000550| 20 9f e5 02 00 50 e1 14 | 20 a0 03 04 30 a0 03 2e | ....P..| ...0...|
|00000560| 00 00 0a dc 00 06 ef 00 | 80 bd e8 8e 01 00 00 8f |........|........|
|00000570| 01 00 00 8c 01 00 00 8d | 01 00 00 9e 01 00 00 9f |........|........|
|00000580| 01 00 00 9c 01 00 00 9d | 01 00 00 ae 01 00 00 af |........|........|
|00000590| 01 00 00 ac 01 00 00 ad | 01 00 00 70 02 9f e5 00 |........|...p....|
|000005a0| 00 81 e5 cb 00 06 ef 02 | 00 91 e7 03 00 80 e0 02 |........|........|
|000005b0| 00 81 e7 c5 00 06 ef 0f | 00 a0 e3 01 10 a0 e3 06 |........|........|
|000005c0| 00 02 ef 00 80 bd e8 44 | 02 9f e5 00 00 81 e5 cb |.......D|........|
|000005d0| 00 06 ef 01 00 53 e3 08 | 30 91 05 10 40 91 05 03 |.....S..|0...@...|
|000005e0| 30 44 00 ef ff ff 0a 02 | 00 53 e3 08 30 91 05 10 |0D......|.S..0...|
|000005f0| 40 91 05 04 30 43 00 ea | ff ff 0a 03 00 53 e3 04 |@...0C..|.....S..|
|00000600| 30 91 05 0c 40 91 05 03 | 30 44 00 e5 ff ff 0a 04 |0...@...|0D......|
|00000610| 30 91 e5 0c 40 91 e5 04 | 30 43 e0 e1 ff ff ea 01 |0...@...|0C......|
|00000620| 00 53 e3 20 30 9f 05 db | ff ff 0a 02 00 53 e3 18 |.S. 0...|.....S..|
|00000630| 30 9f 05 d8 ff ff 0a 03 | 00 53 e3 08 30 9f 05 d5 |0.......|.S..0...|
|00000640| ff ff 0a 04 30 9f e5 d3 | ff ff ea ff ff 00 00 01 |....0...|........|
|00000650| 00 ff ff 00 40 2d e9 c5 | 00 06 ef 83 00 00 6a 00 |....@-..|......j.|
|00000660| 80 bd e8 c6 00 06 ef 78 | ff ff ea 00 40 2d e9 08 |.......x|....@-..|
|00000670| 20 91 e5 02 20 12 e2 80 | 00 00 1a 00 00 e0 e3 d2 | ... ...|........|
|00000680| 00 06 ef 00 80 bd e8 00 | 40 2d e9 10 00 9c e5 00 |........|@-......|
|00000690| 00 50 e3 6d ff ff 0a 00 | 80 bd e8 00 40 2d e9 c8 |.P.m....|....@-..|
|000006a0| 00 a0 e3 14 10 9f e5 08 | 20 8f e2 c0 00 06 ef 0c |........| .......|
|000006b0| 10 8f e5 00 80 bd e8 48 | 65 6c 70 00 00 00 00 54 |.......H|elp....T|
|000006c0| 41 53 4b 00 00 00 00 00 | 40 2d e9 70 10 8f e2 d9 |ASK.....|@-.p....|
|000006d0| 00 06 ef 65 00 00 6a 0c | 10 a0 e1 90 20 8f e2 4b |...e..j.|.... ..K|
|000006e0| 3f 8f e2 00 40 e0 e3 00 | 60 a0 e3 68 50 8f e2 db |?...@...|`..hP...|
|000006f0| 00 06 ef c1 00 06 ef 14 | 01 8f e5 00 40 e0 e3 00 |........|....@...|
|00000700| 60 a0 e3 5c 50 8f e2 db | 00 06 ef c1 00 06 ef 00 |`..\P...|........|
|00000710| 01 8f e5 5f 1f 8f e2 20 | 00 81 e5 03 10 a0 e3 08 |..._... |........|
|00000720| 20 8f e2 3c 00 00 eb da | 00 06 ef 00 80 bd e8 31 | ..<....|.......1|
|00000730| 2e 30 39 20 28 31 36 20 | 4a 61 6e 20 31 39 39 30 |.09 (16 |Jan 1990|
|00000740| 29 00 00 3c 4f 62 65 79 | 24 44 69 72 3e 2e 54 65 |)..<Obey|$Dir>.Te|
|00000750| 6d 70 6c 61 74 65 73 00 | 00 00 00 4d 61 69 6e 00 |mplates.|...Main.|
|00000760| 20 20 20 20 20 20 20 49 | 6e 66 6f 00 20 20 20 20 | I|nfo. |
|00000770| 20 20 20 00 00 00 00 00 | 00 00 00 00 00 00 00 00 | .....|........|
|00000780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000810| 00 00 00 00 00 00 00 00 | 00 00 00 0f 42 2d e9 64 |........|....B-.d|
|00000820| 90 8c e2 00 00 89 e5 04 | 10 89 e5 09 10 a0 e1 ce |........|........|
|00000830| 00 06 ef 1c 10 91 e5 01 | 00 d2 e4 01 00 c1 e4 00 |........|........|
|00000840| 00 50 e3 fb ff ff 1a 09 | 10 a0 e1 04 00 91 e4 00 |.P......|........|
|00000850| 00 81 e5 c9 00 06 ef 00 | 00 50 e3 02 00 00 0a 09 |........|.P......|
|00000860| 10 a0 e1 ca 00 06 ef fa | ff ff ea 0f 82 bd e8 01 |........|........|
|00000870| 10 a0 e3 71 2f 4f e2 df | 00 06 ef f3 fe ff ea 00 |...q/O..|........|
|00000880| 20 9c e5 40 20 42 e2 04 | 30 9c e5 04 10 8f e2 d4 | ..@ B..|0.......|
|00000890| 00 06 ef 00 80 bd e8 48 | 65 6c 70 0d 00 00 00 00 |.......H|elp.....|
|000008a0| 00 00 00 07 02 07 00 84 | 00 00 00 2c 00 00 00 00 |........|...,....|
|000008b0| 00 00 00 00 00 00 00 ff | ff ff ff 21 00 00 07 49 |........|...!...I|
|000008c0| 6e 66 6f 0d 00 00 00 00 | 00 00 00 80 00 00 00 ff |nfo.....|........|
|000008d0| ff ff ff 21 00 00 07 51 | 75 69 74 0d 00 00 00 00 |...!...Q|uit.....|
|000008e0| 00 00 00 00 40 2d e9 00 | 20 9c e5 01 00 52 e3 d6 |....@-..| ....R..|
|000008f0| fe ff 0a 00 80 bd e8 00 | 40 2d e9 05 00 a0 e3 6f |........|@-.....o|
|00000900| 1f 8f e2 08 00 02 ef 00 | 00 50 e3 71 0f 8f 02 d6 |........|.P.q....|
|00000910| ff ff 0a 00 b0 a0 e1 02 | ab 8c e2 40 a0 8a e2 0a |........|...@....|
|00000920| 90 a0 e1 02 09 4a e2 04 | 00 80 e0 00 10 e0 e3 00 |.....J..|........|
|00000930| 80 a0 e1 ec 00 06 ef 00 | 00 58 e1 6b 0f 8f c2 ca |........|.X.k....|
|00000940| ff ff ca 00 80 a0 e3 00 | 70 a0 e3 46 00 a0 e3 c3 |........|p..F....|
|00000950| 06 04 ef 02 1b 8c e2 4c | 01 1f e5 00 00 81 e5 00 |.......L|........|
|00000960| 00 a0 e3 04 00 81 e5 ce | 00 06 ef 04 00 91 e4 00 |........|........|
|00000970| 00 81 e5 01 60 a0 e1 2c | 10 81 e2 70 01 1f e5 00 |....`..,|...p....|
|00000980| 00 81 e5 cc 00 06 ef 2c | 00 91 e5 00 00 81 e5 30 |.......,|.......0|
|00000990| 00 91 e5 04 00 81 e5 34 | 00 91 e5 08 00 81 e5 38 |.......4|.......8|
|000009a0| 00 91 e5 0c 00 81 e5 ff | 00 a0 e3 11 1e 8f e2 0a |........|........|
|000009b0| 20 a0 e1 00 30 a0 e3 08 | 00 02 ef 04 b0 8a e0 00 | ...0...|........|
|000009c0| 50 a0 e3 05 40 a0 e1 01 | 00 da e4 0b 00 5a e1 35 |P...@...|.....Z.5|
|000009d0| 00 00 0a ff 00 55 e3 00 | 00 a0 c3 01 00 4a c5 20 |.....U..|.....J. |
|000009e0| 00 50 e3 00 00 a0 b3 01 | 00 4a b5 01 50 85 e2 00 |.P......|.J..P...|
|000009f0| 00 50 e3 f3 ff ff 1a 04 | 00 55 e1 05 40 a0 c1 00 |.P......|.U..@...|
|00000a00| 00 58 e3 06 00 00 1a 09 | 20 a0 e1 18 10 96 e5 01 |.X......| .......|
|00000a10| 00 d2 e4 01 00 c1 e4 00 | 00 50 e3 fb ff ff 1a 0b |........|.P......|
|00000a20| 00 00 ea 06 10 a0 e1 08 | 00 91 e5 20 00 40 e2 08 |........|... .@..|
|00000a30| 00 81 e5 10 00 91 e5 20 | 00 40 e2 10 00 81 e5 09 |....... |.@......|
|00000a40| 00 4a e0 01 00 59 e3 01 | 00 00 0a 18 90 81 e5 c2 |.J...Y..|........|
|00000a50| 00 06 ef 01 80 88 e2 0a | 90 a0 e1 00 50 a0 e3 00 |........|....P...|
|00000a60| 00 57 e3 d7 ff ff 0a 03 | 30 e0 e3 03 a0 0a e0 28 |.W......|0......(|
|00000a70| a0 8a e2 2c 10 86 e2 6c | 02 1f e5 20 20 a0 e3 98 |...,...l|... ...|
|00000a80| 02 03 e0 00 30 63 e2 0c | 30 43 e2 04 30 81 e5 10 |....0c..|0C..0...|
|00000a90| 20 a0 e3 94 02 03 e0 04 | 30 43 e2 08 30 81 e5 d7 | .......|0C..0...|
|00000aa0| 00 06 ef c1 06 04 ef 00 | 80 bd e8 00 00 da e5 00 |........|........|
|00000ab0| 00 50 e3 00 00 00 0a 01 | 70 ca e4 01 70 a0 e3 cc |.P......|p...p...|
|00000ac0| ff ff ea 3c 4f 62 65 79 | 24 44 69 72 3e 2e 52 65 |...<Obey|$Dir>.Re|
|00000ad0| 61 64 6d 65 00 00 00 00 | 00 02 00 43 61 6e 27 74 |adme....|...Can't|
|00000ae0| 20 66 69 6e 64 20 27 52 | 65 61 64 6d 65 27 00 00 | find 'R|eadme'..|
|00000af0| 00 02 00 4e 6f 74 20 65 | 6e 6f 75 67 68 20 6d 65 |...Not e|nough me|
|00000b00| 6d 6f 72 79 20 61 76 61 | 69 6c 61 62 6c 65 00 54 |mory ava|ilable.T|
|00000b10| 68 69 73 20 69 73 20 61 | 20 4a 6f 72 69 73 20 52 |his is a| Joris R|
|00000b20| d6 6c 69 6e 67 20 70 72 | 6f 64 75 63 74 69 6f 6e |.ling pr|oduction|
|00000b30| 20 a9 20 31 39 39 30 46 | 69 6c 65 44 61 74 61 82 | . 1990F|ileData.|
|00000b40| 21 53 70 72 69 74 65 73 | 00 00 00 e0 02 00 00 42 |!Sprites|.......B|
|00000b50| f9 ff ff 50 e6 b1 28 03 | 00 34 fc 01 00 00 00 10 |...P..(.|.4......|
|00000b60| 00 00 00 e4 02 00 00 d4 | 02 00 00 21 68 65 6c 70 |........|...!help|
|00000b70| 00 00 00 00 00 00 00 04 | 00 00 00 10 00 00 00 00 |........|........|
|00000b80| 00 00 00 07 00 00 00 2c | 00 00 00 80 01 00 00 0c |.......,|........|
|00000b90| 00 00 00 88 dd dd 8d 88 | 88 88 88 88 88 88 88 88 |........|........|
|00000ba0| 88 88 88 88 00 20 22 88 | dd dd 8d 88 88 88 88 88 |..... ".|........|
|00000bb0| 88 88 88 88 88 88 88 88 | 00 20 22 88 dd dd 8d 78 |........|. "....x|
|00000bc0| 77 77 77 77 77 77 77 77 | 77 77 77 77 00 20 22 88 |wwwwwwww|wwww. ".|
|00000bd0| aa aa 8a 78 f7 ff ff ff | ff ff ff ff ff 66 22 77 |...x....|.....f"w|
|00000be0| 00 20 22 88 aa aa 8a 78 | 77 77 77 77 77 77 77 77 |. "....x|wwwwwwww|
|00000bf0| 77 77 77 77 00 20 22 88 | aa aa 8a 78 07 00 00 00 |wwww. ".|...x....|
|00000c00| 00 00 00 00 00 77 22 77 | 00 20 22 88 99 99 89 78 |.....w"w|. "....x|
|00000c10| 07 22 22 02 20 22 02 02 | 00 77 22 77 00 20 22 88 |."". "..|.w"w. ".|
|00000c20| 99 99 89 78 07 00 00 00 | 00 00 00 00 00 77 22 77 |...x....|.....w"w|
|00000c30| 00 20 22 88 99 99 89 78 | 07 22 02 20 22 20 22 22 |. "....x|.". " ""|
|00000c40| 02 77 22 77 00 20 22 88 | cc cc 8c 78 07 00 00 00 |.w"w. ".|...x....|
|00000c50| 00 00 00 00 00 77 22 77 | 00 20 22 88 cc cc 8c 78 |.....w"w|. "....x|
|00000c60| 07 22 22 00 22 22 02 20 | 02 77 22 77 00 20 22 88 |.""."". |.w"w. ".|
|00000c70| cc cc 8c 78 07 00 00 00 | 00 00 00 00 00 77 22 77 |...x....|.....w"w|
|00000c80| 00 20 22 88 00 00 80 78 | 77 77 77 77 77 77 77 77 |. "....x|wwwwwwww|
|00000c90| 77 77 77 77 00 20 22 88 | 00 00 80 78 27 22 22 22 |wwww. ".|...x'"""|
|00000ca0| 22 22 22 22 22 77 22 77 | 00 20 22 88 00 00 80 78 |"""""w"w|. "....x|
|00000cb0| 77 77 77 77 77 77 77 77 | 77 77 77 77 00 20 22 88 |wwwwwwww|wwww. ".|
|00000cc0| 88 88 88 88 88 88 88 88 | 88 88 88 88 88 88 88 88 |........|........|
|00000cd0| 00 20 22 88 88 88 88 88 | 88 88 88 88 88 88 88 88 |. ".....|........|
|00000ce0| 88 88 88 88 00 00 00 00 | ff ff 0f 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | ff ff ff 00 ff ff 0f 00 |........|........|
|00000d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 ff ff ff 00 |........|........|
|00000d10| ff ff 0f f0 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000d20| ff ff ff 00 ff ff 0f f0 | ff ff ff ff ff ff ff ff |........|........|
|00000d30| ff ff ff ff ff ff ff 00 | ff ff 0f f0 ff ff ff ff |........|........|
|00000d40| ff ff ff ff ff ff ff ff | ff ff ff 00 ff ff 0f f0 |........|........|
|00000d50| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff 00 |........|........|
|00000d60| ff ff 0f f0 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000d70| ff ff ff 00 ff ff 0f f0 | ff ff ff ff ff ff ff ff |........|........|
|00000d80| ff ff ff ff ff ff ff 00 | ff ff 0f f0 ff ff ff ff |........|........|
|00000d90| ff ff ff ff ff ff ff ff | ff ff ff 00 ff ff 0f f0 |........|........|
|00000da0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff 00 |........|........|
|00000db0| ff ff 0f f0 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000dc0| ff ff ff 00 ff ff 0f f0 | ff ff ff ff ff ff ff ff |........|........|
|00000dd0| ff ff ff ff ff ff ff 00 | ff ff 0f f0 ff ff ff ff |........|........|
|00000de0| ff ff ff ff ff ff ff ff | ff ff ff 00 ff ff 0f f0 |........|........|
|00000df0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff 00 |........|........|
|00000e00| ff ff 0f f0 ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000e10| ff ff ff 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e20| 00 00 00 00 ff ff ff 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e30| 00 00 00 00 00 00 00 00 | ff ff ff 46 69 6c 65 44 |........|...FileD|
|00000e40| 61 74 61 82 52 65 61 64 | 4d 65 00 00 00 00 00 46 |ata.Read|Me.....F|
|00000e50| 0f 00 00 43 ff ff ff ca | 81 45 26 03 00 6a 6b 3d |...C....|.E&..jk=|
|00000e60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000e90| 3d 3d 3d 3d 3d 3d 3d 0a | 0a 20 20 4c 69 6e 65 20 |=======.|. Line |
|00000ea0| 64 72 61 77 20 61 6c 67 | 6f 72 69 74 68 6d 2c 20 |draw alg|orithm, |
|00000eb0| 66 6f 72 20 38 20 62 70 | 70 20 6d 6f 64 65 73 2c |for 8 bp|p modes,|
|00000ec0| 20 77 69 74 68 20 63 6c | 69 70 70 69 6e 67 2e 0a | with cl|ipping..|
|00000ed0| 0a 20 20 54 68 69 73 20 | 61 70 70 6c 69 63 61 74 |. This |applicat|
|00000ee0| 69 6f 6e 20 64 69 72 65 | 63 74 6f 72 79 20 63 6f |ion dire|ctory co|
|00000ef0| 6e 74 61 69 6e 73 20 74 | 68 65 20 73 6f 75 72 63 |ntains t|he sourc|
|00000f00| 65 73 20 6f 66 20 61 0a | 20 20 76 65 72 79 20 66 |es of a.| very f|
|00000f10| 61 73 74 20 6c 69 6e 65 | 20 64 72 61 77 20 61 6c |ast line| draw al|
|00000f20| 67 6f 72 69 74 68 6d 20 | 77 69 74 68 20 63 6c 69 |gorithm |with cli|
|00000f30| 70 70 69 6e 67 2e 20 49 | 74 20 77 69 6c 6c 0a 20 |pping. I|t will. |
|00000f40| 20 77 6f 72 6b 20 69 6e | 20 61 6e 79 20 6f 6e 65 | work in| any one|
|00000f50| 20 62 79 74 65 20 70 65 | 72 20 70 69 78 65 6c 20 | byte pe|r pixel |
|00000f60| 6d 6f 64 65 20 28 32 35 | 36 20 63 6f 6c 6f 75 72 |mode (25|6 colour|
|00000f70| 73 29 2e 0a 0a 20 20 46 | 65 65 6c 20 66 72 65 65 |s)... F|eel free|
|00000f80| 20 74 6f 20 75 73 65 20 | 74 68 69 73 20 63 6f 64 | to use |this cod|
|00000f90| 65 20 69 6e 20 61 6e 79 | 20 70 72 6f 67 72 61 6d |e in any| program|
|00000fa0| 20 79 6f 75 20 6c 69 6b | 65 2c 0a 20 20 62 75 74 | you lik|e,. but|
|00000fb0| 20 62 65 20 70 6f 6c 69 | 74 65 20 61 6e 64 20 6d | be poli|te and m|
|00000fc0| 65 6e 74 69 6f 6e 20 6d | 79 20 6e 61 6d 65 20 77 |ention m|y name w|
|00000fd0| 68 65 6e 20 79 6f 75 20 | 64 6f 20 73 6f 21 0a 0a |hen you |do so!..|
|00000fe0| 20 20 42 6f 74 68 20 6c | 69 6e 65 20 64 72 61 77 | Both l|ine draw|
|00000ff0| 20 61 6e 64 20 63 6c 69 | 70 70 69 6e 67 20 61 6c | and cli|pping al|
|00001000| 67 6f 72 69 74 68 6d 20 | 75 73 65 20 61 72 69 74 |gorithm |use arit|
|00001010| 68 6d 69 63 61 6c 0a 20 | 20 73 68 69 66 74 73 20 |hmical. | shifts |
|00001020| 6f 6e 6c 79 2c 20 74 68 | 65 79 20 64 6f 6e 27 74 |only, th|ey don't|
|00001030| 20 6e 65 65 64 20 64 69 | 76 69 64 65 73 2e 20 4c | need di|vides. L|
|00001040| 69 6e 65 20 64 72 61 77 | 20 63 6f 64 65 0a 20 20 |ine draw| code. |
|00001050| 69 73 20 62 61 73 65 64 | 20 6f 6e 20 42 72 65 73 |is based| on Bres|
|00001060| 65 6e 68 61 6d 27 73 20 | 73 69 6d 70 6c 65 20 44 |enham's |simple D|
|00001070| 44 41 2e 20 43 6c 69 70 | 70 69 6e 67 20 63 6f 64 |DA. Clip|ping cod|
|00001080| 65 20 69 73 0a 20 20 70 | 61 72 74 6c 79 20 62 61 |e is. p|artly ba|
|00001090| 73 65 64 20 6f 6e 20 43 | 6f 68 65 6e 20 26 20 53 |sed on C|ohen & S|
|000010a0| 75 74 68 65 72 6c 61 6e | 64 27 73 20 61 6c 67 6f |utherlan|d's algo|
|000010b0| 72 69 74 68 6d 2e 0a 0a | 20 20 52 61 6e 64 6f 6d |rithm...| Random|
|000010c0| 20 6c 69 6e 65 20 64 72 | 61 77 20 63 6c 69 70 70 | line dr|aw clipp|
|000010d0| 69 6e 67 20 68 61 73 20 | 62 65 65 6e 20 6f 70 74 |ing has |been opt|
|000010e0| 69 6d 69 73 65 64 20 74 | 6f 0a 20 20 64 65 74 65 |imised t|o. dete|
|000010f0| 63 74 20 6c 69 6e 65 73 | 20 77 68 69 63 68 20 6e |ct lines| which n|
|00001100| 65 65 64 20 6e 6f 20 63 | 6c 69 70 70 69 6e 67 20 |eed no c|lipping |
|00001110| 61 74 20 61 6c 6c 20 61 | 6e 64 20 6c 69 6e 65 73 |at all a|nd lines|
|00001120| 0a 20 20 77 68 69 63 68 | 20 61 72 65 20 63 6f 6d |. which| are com|
|00001130| 70 6c 65 74 65 6c 79 20 | 6f 75 74 73 69 64 65 20 |pletely |outside |
|00001140| 74 68 65 20 73 63 72 65 | 65 6e 20 66 69 72 73 74 |the scre|en first|
|00001150| 2e 20 42 6f 74 68 0a 20 | 20 68 6f 72 69 7a 6f 6e |. Both. | horizon|
|00001160| 74 61 6c 20 61 6e 64 20 | 76 65 72 74 69 63 61 6c |tal and |vertical|
|00001170| 20 6c 69 6e 65 20 64 72 | 61 77 20 68 61 76 65 20 | line dr|aw have |
|00001180| 74 68 65 69 72 20 6f 77 | 6e 0a 20 20 63 6c 69 70 |their ow|n. clip|
|00001190| 70 69 6e 67 20 61 6c 67 | 6f 72 69 74 68 6d 2e 0a |ping alg|orithm..|
|000011a0| 0a 20 20 49 66 20 79 6f | 75 20 77 61 6e 74 20 61 |. If yo|u want a|
|000011b0| 20 67 72 61 70 68 69 63 | 61 6c 20 64 65 6d 6f 6e | graphic|al demon|
|000011c0| 73 74 72 61 74 69 6f 6e | 20 6f 66 20 68 6f 77 20 |stration| of how |
|000011d0| 74 68 65 0a 20 20 63 6c | 69 70 70 69 6e 67 20 61 |the. cl|ipping a|
|000011e0| 6c 67 6f 72 69 74 68 6d | 20 6f 70 65 72 61 74 65 |lgorithm| operate|
|000011f0| 73 20 72 75 6e 20 74 68 | 65 20 27 43 6c 69 70 27 |s run th|e 'Clip'|
|00001200| 20 70 72 6f 67 72 61 6d | 2e 0a 20 20 49 74 20 6f | program|.. It o|
|00001210| 70 65 72 61 74 65 73 20 | 61 6c 6d 6f 73 74 20 65 |perates |almost e|
|00001220| 78 61 63 74 6c 79 20 61 | 73 20 74 68 65 20 61 73 |xactly a|s the as|
|00001230| 73 65 6d 62 6c 79 20 76 | 65 72 73 69 6f 6e 0a 20 |sembly v|ersion. |
|00001240| 20 62 75 74 20 79 6f 75 | 20 63 61 6e 20 73 65 65 | but you| can see|
|00001250| 20 69 74 20 77 6f 72 6b | 69 6e 67 20 73 74 65 70 | it work|ing step|
|00001260| 20 62 79 20 73 74 65 70 | 2e 0a 0a 20 20 48 6f 72 | by step|... Hor|
|00001270| 69 7a 6f 6e 74 61 6c 20 | 6c 69 6e 65 20 64 72 61 |izontal |line dra|
|00001280| 77 20 77 61 73 20 6f 70 | 74 69 6d 69 73 65 64 20 |w was op|timised |
|00001290| 74 6f 20 70 65 72 66 6f | 72 6d 20 77 65 6c 6c 0a |to perfo|rm well.|
|000012a0| 20 20 65 76 65 6e 20 66 | 6f 72 20 6c 69 6e 65 73 | even f|or lines|
|000012b0| 20 75 6e 64 65 72 20 31 | 32 20 70 69 78 65 6c 73 | under 1|2 pixels|
|000012c0| 20 28 62 72 65 61 6b 65 | 76 65 6e 20 70 6f 69 6e | (breake|ven poin|
|000012d0| 74 29 2e 0a 20 20 49 74 | 20 68 61 73 20 73 65 70 |t).. It| has sep|
|000012e0| 65 72 61 74 65 20 63 6f | 64 65 20 74 6f 20 70 6c |erate co|de to pl|
|000012f0| 6f 74 20 73 68 6f 72 74 | 20 61 6e 64 20 6c 6f 6e |ot short| and lon|
|00001300| 67 20 6c 69 6e 65 73 2e | 0a 0a 2d 2d 2d 2d 2d 2d |g lines.|..------|
|00001310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001340| 2d 2d 0a 0a 20 20 54 79 | 70 69 63 61 6c 20 70 65 |--.. Ty|pical pe|
|00001350| 72 66 6f 72 6d 61 6e 63 | 65 20 6f 6e 20 61 20 73 |rformanc|e on a s|
|00001360| 74 61 6e 64 61 72 64 20 | 41 33 31 30 2c 20 77 69 |tandard |A310, wi|
|00001370| 74 68 20 61 76 65 72 61 | 67 65 0a 20 20 6c 69 6e |th avera|ge. lin|
|00001380| 65 20 73 69 7a 65 73 20 | 6f 66 20 31 32 38 20 70 |e sizes |of 128 p|
|00001390| 69 78 65 6c 73 20 61 6e | 64 20 61 6c 6c 20 49 52 |ixels an|d all IR|
|000013a0| 51 27 73 20 65 6e 61 62 | 6c 65 64 3a 0a 20 20 0a |Q's enab|led:. .|
|000013b0| 20 20 20 20 57 68 65 6e | 20 6e 6f 20 63 6c 69 70 | When| no clip|
|000013c0| 70 69 6e 67 20 69 73 20 | 6e 65 65 64 65 64 3a 0a |ping is |needed:.|
|000013d0| 0a 20 20 20 20 20 20 52 | 61 6e 64 6f 6d 20 6c 69 |. R|andom li|
|000013e0| 6e 65 73 20 20 20 20 20 | 2d 20 20 37 32 30 20 4b |nes |- 720 K|
|000013f0| 50 69 78 65 6c 73 2f 73 | 65 63 0a 20 20 20 20 20 |Pixels/s|ec. |
|00001400| 20 44 69 61 67 6f 6e 61 | 6c 20 6c 69 6e 65 73 20 | Diagona|l lines |
|00001410| 20 20 2d 20 31 31 30 30 | 20 4b 50 69 78 65 6c 73 | - 1100| KPixels|
|00001420| 2f 73 65 63 0a 0a 20 20 | 20 20 57 68 65 6e 20 6c |/sec.. | When l|
|00001430| 69 6e 65 20 69 73 20 63 | 6c 69 70 70 65 64 20 66 |ine is c|lipped f|
|00001440| 69 72 73 74 3a 0a 0a 20 | 20 20 20 20 20 52 61 6e |irst:.. | Ran|
|00001450| 64 6f 6d 20 6c 69 6e 65 | 73 20 20 20 20 20 2d 20 |dom line|s - |
|00001460| 20 36 37 30 20 4b 50 69 | 78 65 6c 73 2f 73 65 63 | 670 KPi|xels/sec|
|00001470| 0a 20 20 20 20 20 20 44 | 69 61 67 6f 6e 61 6c 20 |. D|iagonal |
|00001480| 6c 69 6e 65 73 20 20 20 | 2d 20 31 30 34 30 20 4b |lines |- 1040 K|
|00001490| 50 69 78 65 6c 73 2f 73 | 65 63 0a 20 20 20 20 20 |Pixels/s|ec. |
|000014a0| 20 56 65 72 74 69 63 61 | 6c 20 6c 69 6e 65 73 20 | Vertica|l lines |
|000014b0| 20 20 2d 20 31 32 30 30 | 20 4b 50 69 78 65 6c 73 | - 1200| KPixels|
|000014c0| 2f 73 65 63 0a 20 20 20 | 20 20 20 48 6f 72 69 7a |/sec. | Horiz|
|000014d0| 6f 6e 74 61 6c 20 6c 69 | 6e 65 73 20 2d 20 34 37 |ontal li|nes - 47|
|000014e0| 30 30 20 4b 50 69 78 65 | 6c 73 2f 73 65 63 0a 20 |00 KPixe|ls/sec. |
|000014f0| 20 20 20 20 20 53 69 6e | 67 6c 65 20 70 6f 69 6e | Sin|gle poin|
|00001500| 74 73 20 20 20 20 2d 20 | 20 20 39 30 20 4b 50 69 |ts - | 90 KPi|
|00001510| 78 65 6c 73 2f 73 65 63 | 0a 0a 20 20 20 20 57 68 |xels/sec|.. Wh|
|00001520| 65 6e 20 6c 69 6e 65 20 | 63 61 6e 20 62 65 20 72 |en line |can be r|
|00001530| 65 6a 65 63 74 65 64 3a | 0a 0a 20 20 20 20 20 20 |ejected:|.. |
|00001540| 52 61 6e 64 6f 6d 20 6c | 69 6e 65 73 20 20 20 20 |Random l|ines |
|00001550| 20 2d 20 20 20 31 32 20 | 4d 50 69 78 65 6c 73 2f | - 12 |MPixels/|
|00001560| 73 65 63 0a 20 20 20 20 | 20 20 44 69 61 67 6f 6e |sec. | Diagon|
|00001570| 61 6c 20 6c 69 6e 65 73 | 20 20 20 2d 20 20 20 31 |al lines| - 1|
|00001580| 32 20 4d 50 69 78 65 6c | 73 2f 73 65 63 0a 20 20 |2 MPixel|s/sec. |
|00001590| 20 20 20 20 56 65 72 74 | 69 63 61 6c 20 6c 69 6e | Vert|ical lin|
|000015a0| 65 73 20 20 20 2d 20 20 | 20 31 37 20 4d 50 69 78 |es - | 17 MPix|
|000015b0| 65 6c 73 2f 73 65 63 0a | 20 20 20 20 20 20 48 6f |els/sec.| Ho|
|000015c0| 72 69 7a 6f 6e 74 61 6c | 20 6c 69 6e 65 73 20 2d |rizontal| lines -|
|000015d0| 20 20 20 31 37 20 4d 50 | 69 78 65 6c 73 2f 73 65 | 17 MP|ixels/se|
|000015e0| 63 0a 20 20 20 20 20 20 | 53 69 6e 67 6c 65 20 70 |c. |Single p|
|000015f0| 6f 69 6e 74 73 20 20 20 | 20 2d 20 20 32 30 30 20 |oints | - 200 |
|00001600| 4b 50 69 78 65 6c 73 2f | 73 65 63 0a 0a 20 20 48 |KPixels/|sec.. H|
|00001610| 6f 72 69 7a 6f 6e 74 61 | 6c 20 6c 69 6e 65 73 20 |orizonta|l lines |
|00001620| 70 65 72 66 6f 72 6d 61 | 6e 63 65 3a 0a 0a 20 20 |performa|nce:.. |
|00001630| 20 20 20 20 20 31 20 70 | 69 78 65 6c 20 20 2d 20 | 1 p|ixel - |
|00001640| 20 20 39 30 20 4b 50 69 | 78 65 6c 73 2f 73 65 63 | 90 KPi|xels/sec|
|00001650| 0a 20 20 20 20 20 20 20 | 32 20 70 69 78 65 6c 73 |. |2 pixels|
|00001660| 20 2d 20 20 31 36 30 20 | 4b 50 69 78 65 6c 73 2f | - 160 |KPixels/|
|00001670| 73 65 63 0a 20 20 20 20 | 20 20 20 34 20 70 69 78 |sec. | 4 pix|
|00001680| 65 6c 73 20 2d 20 20 33 | 30 30 20 4b 50 69 78 65 |els - 3|00 KPixe|
|00001690| 6c 73 2f 73 65 63 0a 20 | 20 20 20 20 20 20 38 20 |ls/sec. | 8 |
|000016a0| 70 69 78 65 6c 73 20 2d | 20 20 35 34 30 20 4b 50 |pixels -| 540 KP|
|000016b0| 69 78 65 6c 73 2f 73 65 | 63 0a 20 20 20 20 20 20 |ixels/se|c. |
|000016c0| 31 36 20 70 69 78 65 6c | 73 20 2d 20 20 38 37 30 |16 pixel|s - 870|
|000016d0| 20 4b 50 69 78 65 6c 73 | 2f 73 65 63 0a 20 20 20 | KPixels|/sec. |
|000016e0| 20 20 20 33 32 20 70 69 | 78 65 6c 73 20 2d 20 31 | 32 pi|xels - 1|
|000016f0| 36 30 30 20 4b 50 69 78 | 65 6c 73 2f 73 65 63 0a |600 KPix|els/sec.|
|00001700| 20 20 20 20 20 20 36 34 | 20 70 69 78 65 6c 73 20 | 64| pixels |
|00001710| 2d 20 20 32 2e 38 20 4d | 50 69 78 65 6c 73 2f 73 |- 2.8 M|Pixels/s|
|00001720| 65 63 0a 20 20 20 20 20 | 31 32 38 20 70 69 78 65 |ec. |128 pixe|
|00001730| 6c 73 20 2d 20 20 34 2e | 37 20 4d 50 69 78 65 6c |ls - 4.|7 MPixel|
|00001740| 73 2f 73 65 63 0a 20 20 | 20 20 20 32 35 36 20 70 |s/sec. | 256 p|
|00001750| 69 78 65 6c 73 20 2d 20 | 20 37 2e 30 20 4d 50 69 |ixels - | 7.0 MPi|
|00001760| 78 65 6c 73 2f 73 65 63 | 0a 20 20 20 20 20 35 31 |xels/sec|. 51|
|00001770| 32 20 70 69 78 65 6c 73 | 20 2d 20 20 39 2e 32 20 |2 pixels| - 9.2 |
|00001780| 4d 50 69 78 65 6c 73 2f | 73 65 63 0a 20 20 20 20 |MPixels/|sec. |
|00001790| 31 30 32 34 20 70 69 78 | 65 6c 73 20 2d 20 31 30 |1024 pix|els - 10|
|000017a0| 2e 37 20 4d 50 69 78 65 | 6c 73 2f 73 65 63 0a 0a |.7 MPixe|ls/sec..|
|000017b0| 20 20 4d 61 78 69 6d 75 | 6d 20 70 65 72 66 6f 72 | Maximu|m perfor|
|000017c0| 6d 61 6e 63 65 20 69 6e | 20 70 69 78 65 6c 73 20 |mance in| pixels |
|000017d0| 70 65 72 20 70 72 6f 63 | 65 73 73 6f 72 20 63 79 |per proc|essor cy|
|000017e0| 63 6c 65 0a 20 20 61 6e | 64 20 70 69 78 65 6c 73 |cle. an|d pixels|
|000017f0| 20 70 65 72 20 73 65 63 | 6f 6e 64 20 66 6f 72 20 | per sec|ond for |
|00001800| 74 68 65 20 70 6c 6f 74 | 74 69 6e 67 20 61 6c 67 |the plot|ting alg|
|00001810| 6f 72 69 74 68 6d 2c 0a | 20 20 72 61 74 69 6e 67 |orithm,.| rating|
|00001820| 20 74 68 65 20 41 52 4d | 20 61 74 20 37 20 63 79 | the ARM| at 7 cy|
|00001830| 63 6c 65 73 2f 73 65 63 | 20 28 61 76 65 72 61 67 |cles/sec| (averag|
|00001840| 65 20 63 79 63 6c 65 20 | 74 69 6d 65 29 3a 0a 0a |e cycle |time):..|
|00001850| 20 20 20 20 52 61 6e 64 | 6f 6d 20 6c 69 6e 65 73 | Rand|om lines|
|00001860| 20 20 20 20 20 2d 20 20 | 20 20 31 20 70 69 78 65 | - | 1 pixe|
|00001870| 6c 28 73 29 2f 37 20 63 | 79 63 6c 65 73 0a 20 20 |l(s)/7 c|ycles. |
|00001880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001890| 20 20 20 20 20 20 20 20 | 31 20 4d 50 69 78 65 6c | |1 MPixel|
|000018a0| 73 2f 73 65 63 0a 20 20 | 20 20 44 69 61 67 6f 6e |s/sec. | Diagon|
|000018b0| 61 6c 20 6c 69 6e 65 73 | 20 20 20 2d 20 20 20 20 |al lines| - |
|000018c0| 31 20 70 69 78 65 6c 28 | 73 29 2f 34 20 63 79 63 |1 pixel(|s)/4 cyc|
|000018d0| 6c 65 73 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |les. | |
|000018e0| 20 20 20 20 20 20 20 20 | 20 20 20 31 37 35 30 20 | | 1750 |
|000018f0| 4b 50 69 78 65 6c 73 2f | 73 65 63 0a 20 20 20 20 |KPixels/|sec. |
|00001900| 56 65 72 74 69 63 61 6c | 20 6c 69 6e 65 73 20 20 |Vertical| lines |
|00001910| 20 2d 20 20 20 20 31 20 | 70 69 78 65 6c 28 73 29 | - 1 |pixel(s)|
|00001920| 2f 34 20 63 79 63 6c 65 | 73 0a 20 20 20 20 20 20 |/4 cycle|s. |
|00001930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001940| 20 31 37 35 30 20 4b 50 | 69 78 65 6c 73 2f 73 65 | 1750 KP|ixels/se|
|00001950| 63 0a 20 20 20 20 48 6f | 72 69 7a 6f 6e 74 61 6c |c. Ho|rizontal|
|00001960| 20 6c 69 6e 65 73 20 2d | 20 20 20 31 36 20 70 69 | lines -| 16 pi|
|00001970| 78 65 6c 28 73 29 2f 37 | 20 63 79 63 6c 65 73 0a |xel(s)/7| cycles.|
|00001980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001990| 20 20 20 20 20 20 20 20 | 20 31 36 20 4d 50 69 78 | | 16 MPix|
|000019a0| 65 6c 73 2f 73 65 63 0a | 0a 20 20 43 75 72 72 65 |els/sec.|. Curre|
|000019b0| 6e 74 20 65 66 66 69 63 | 69 65 6e 63 79 20 28 77 |nt effic|iency (w|
|000019c0| 69 74 68 20 63 6c 69 70 | 70 69 6e 67 29 3a 0a 0a |ith clip|ping):..|
|000019d0| 20 20 20 20 52 61 6e 64 | 6f 6d 20 6c 69 6e 65 73 | Rand|om lines|
|000019e0| 20 20 20 20 20 2d 20 20 | 37 31 25 20 28 61 74 20 | - |71% (at |
|000019f0| 20 31 32 38 20 70 69 78 | 65 6c 73 29 0a 20 20 20 | 128 pix|els). |
|00001a00| 20 44 69 61 67 6f 6e 61 | 6c 20 6c 69 6e 65 73 20 | Diagona|l lines |
|00001a10| 20 20 2d 20 20 36 33 25 | 20 28 61 74 20 20 31 32 | - 63%| (at 12|
|00001a20| 38 20 70 69 78 65 6c 73 | 29 0a 20 20 20 20 56 65 |8 pixels|). Ve|
|00001a30| 72 74 69 63 61 6c 20 6c | 69 6e 65 73 20 20 20 2d |rtical l|ines -|
|00001a40| 20 20 36 39 25 20 28 61 | 74 20 20 31 32 38 20 70 | 69% (a|t 128 p|
|00001a50| 69 78 65 6c 73 29 0a 20 | 20 20 20 48 6f 72 69 7a |ixels). | Horiz|
|00001a60| 6f 6e 74 61 6c 20 6c 69 | 6e 65 73 20 2d 20 20 33 |ontal li|nes - 3|
|00001a70| 30 25 20 28 61 74 20 20 | 31 32 38 20 70 69 78 65 |0% (at |128 pixe|
|00001a80| 6c 73 29 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ls). | |
|00001a90| 20 20 20 20 20 20 20 20 | 20 2d 20 20 34 34 25 20 | | - 44% |
|00001aa0| 28 61 74 20 20 32 35 36 | 20 70 69 78 65 6c 73 29 |(at 256| pixels)|
|00001ab0| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001ac0| 20 20 20 20 20 20 2d 20 | 20 35 38 25 20 28 61 74 | - | 58% (at|
|00001ad0| 20 20 35 31 32 20 70 69 | 78 65 6c 73 29 0a 20 20 | 512 pi|xels). |
|00001ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001af0| 20 20 20 2d 20 20 36 37 | 25 20 28 61 74 20 31 30 | - 67|% (at 10|
|00001b00| 32 34 20 70 69 78 65 6c | 73 29 0a 0a 3d 3d 3d 3d |24 pixel|s)..====|
|00001b10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b40| 3d 3d 3d 3d 0a 0a 20 20 | 54 68 69 73 20 61 70 70 |====.. |This app|
|00001b50| 6c 69 63 61 74 69 6f 6e | 20 69 73 20 66 72 65 65 |lication| is free|
|00001b60| 77 61 72 65 2e 20 59 6f | 75 20 6d 61 79 20 63 6f |ware. Yo|u may co|
|00001b70| 70 79 20 69 74 20 66 72 | 65 65 6c 79 0a 20 20 62 |py it fr|eely. b|
|00001b80| 75 74 20 6f 6e 6c 79 20 | 77 68 65 6e 20 79 6f 75 |ut only |when you|
|00001b90| 20 63 6f 70 79 20 74 68 | 69 73 20 61 70 70 6c 69 | copy th|is appli|
|00001ba0| 63 61 74 69 6f 6e 20 61 | 6e 64 20 61 6c 6c 20 69 |cation a|nd all i|
|00001bb0| 74 27 73 0a 20 20 72 65 | 6c 61 74 65 64 20 64 61 |t's. re|lated da|
|00001bc0| 74 61 20 66 69 6c 65 73 | 20 63 6f 6d 70 6c 65 74 |ta files| complet|
|00001bd0| 65 6c 79 20 77 69 74 68 | 6f 75 74 20 6f 6d 69 73 |ely with|out omis|
|00001be0| 73 69 6f 6e 73 20 61 6e | 64 0a 20 20 79 6f 75 20 |sions an|d. you |
|00001bf0| 64 6f 20 6e 6f 74 20 67 | 61 69 6e 20 61 6e 79 20 |do not g|ain any |
|00001c00| 66 69 6e 61 6e 63 69 61 | 6c 20 70 72 6f 66 69 74 |financia|l profit|
|00001c10| 20 66 72 6f 6d 20 64 6f | 69 6e 67 20 73 6f 2e 0a | from do|ing so..|
|00001c20| 0a 20 20 49 66 20 79 6f | 75 20 68 61 76 65 20 61 |. If yo|u have a|
|00001c30| 6e 79 20 63 6f 6d 6d 65 | 6e 74 73 20 6f 72 20 73 |ny comme|nts or s|
|00001c40| 75 67 67 65 73 74 69 6f | 6e 73 20 61 62 6f 75 74 |uggestio|ns about|
|00001c50| 20 74 68 69 73 0a 20 20 | 70 72 6f 67 72 61 6d 2c | this. |program,|
|00001c60| 20 70 6c 65 61 73 65 20 | 63 6f 6e 74 61 63 74 20 | please |contact |
|00001c70| 74 68 65 20 61 75 74 68 | 6f 72 20 61 73 20 3a 0a |the auth|or as :.|
|00001c80| 0a 20 20 4a 61 6e 2d 48 | 65 72 6d 61 6e 20 42 75 |. Jan-H|erman Bu|
|00001c90| 69 6e 69 6e 67 20 20 20 | 20 20 20 20 41 63 6f 72 |ining | Acor|
|00001ca0| 6e 20 42 42 53 20 3a 20 | 20 20 20 28 30 32 30 29 |n BBS : | (020)|
|00001cb0| 36 36 33 31 38 34 39 0a | 20 20 53 6f 65 6e 64 61 |6631849.| Soenda|
|00001cc0| 73 74 72 61 61 74 20 31 | 33 33 20 20 20 20 20 20 |straat 1|33 |
|00001cd0| 20 20 20 20 48 75 63 6f | 20 42 42 53 20 3a 20 20 | Huco| BBS : |
|00001ce0| 20 20 28 30 31 38 30 34 | 29 33 30 37 38 35 0a 20 | (01804|)30785. |
|00001cf0| 20 39 37 31 35 20 4e 50 | 20 47 72 6f 6e 69 6e 67 | 9715 NP| Groning|
|00001d00| 65 6e 20 20 20 20 20 20 | 4c 61 20 4c 75 6e 61 20 |en |La Luna |
|00001d10| 42 42 53 20 3a 20 20 20 | 20 28 30 32 35 39 33 29 |BBS : | (02593)|
|00001d20| 34 31 38 39 31 0a 20 20 | 28 30 35 30 29 37 33 35 |41891. |(050)735|
|00001d30| 32 32 38 0a 20 20 54 68 | 65 20 4e 65 74 68 65 72 |228. Th|e Nether|
|00001d40| 6c 61 6e 64 73 20 20 20 | 20 20 20 20 20 20 20 20 |lands | |
|00001d50| 20 20 20 45 75 6e 65 74 | 20 3a 20 6a 68 62 40 6e | Eunet| : jhb@n|
|00001d60| 65 61 62 62 73 2e 55 55 | 43 50 0a 0a 3d 3d 3d 3d |eabbs.UU|CP..====|
|00001d70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001da0| 3d 3d 3d 3d 0a 46 69 6c | 65 44 61 74 61 82 54 65 |====.Fil|eData.Te|
|00001db0| 6d 70 6c 61 74 65 73 00 | 00 4f 02 00 00 42 ec ff |mplates.|.O...B..|
|00001dc0| ff cd db 68 3a 03 00 c7 | 12 ff ff ff ff 00 00 00 |...h:...|........|
|00001dd0| 00 00 00 00 00 00 00 00 | 00 44 00 00 00 8c 01 00 |........|.D......|
|00001de0| 00 01 00 00 00 49 6e 66 | 6f 0d 0d 00 00 00 00 00 |.....Inf|o.......|
|00001df0| 00 d0 01 00 00 7f 00 00 | 00 01 00 00 00 4d 61 69 |........|.....Mai|
|00001e00| 6e 0d 00 00 00 00 00 00 | 00 00 00 00 00 44 01 00 |n.......|.....D..|
|00001e10| 00 70 01 00 00 48 03 00 | 00 44 02 00 00 00 00 00 |.p...H..|.D......|
|00001e20| 00 00 00 00 00 30 07 00 | 00 12 00 03 84 07 02 07 |.....0..|........|
|00001e30| 01 0c 0e 0c 00 00 00 00 | 00 2c ff ff ff 06 02 00 |........|.,......|
|00001e40| 00 00 00 00 00 3d 01 00 | 00 00 00 00 00 01 00 00 |.....=..|........|
|00001e50| 00 00 00 00 00 58 01 00 | 00 ff ff ff ff 13 00 00 |.....X..|........|
|00001e60| 00 08 00 00 00 a2 00 00 | 00 cc ff ff ff 02 02 00 |........|........|
|00001e70| 00 fc ff ff ff 3d 00 00 | 07 48 65 6c 70 0d 0d 74 |.....=..|.Help..t|
|00001e80| 63 68 0d 0d 00 a2 00 00 | 00 98 ff ff ff 02 02 00 |ch......|........|
|00001e90| 00 c8 ff ff ff 3d 01 00 | 07 6b 01 00 00 ff ff ff |.....=..|.k......|
|00001ea0| ff 12 00 00 00 a2 00 00 | 00 64 ff ff ff 02 02 00 |........|.d......|
|00001eb0| 00 94 ff ff ff 3d 01 00 | 07 7c 01 00 00 ff ff ff |.....=..|.|......|
|00001ec0| ff 0f 00 00 00 a2 00 00 | 00 30 ff ff ff 02 02 00 |........|.0......|
|00001ed0| 00 60 ff ff ff 3d 01 00 | 07 8b 01 00 00 ff ff ff |.`...=..|........|
|00001ee0| ff 15 00 00 00 06 00 00 | 00 cc ff ff ff 9e 00 00 |........|........|
|00001ef0| 00 fc ff ff ff 11 02 00 | 17 4e 61 6d 65 3a 0d 6c |........|.Name:.l|
|00001f00| 65 64 3e 0d fe 06 00 00 | 00 98 ff ff ff 9e 00 00 |ed>.....|........|
|00001f10| 00 c8 ff ff ff 11 02 00 | 17 50 75 72 70 6f 73 65 |........|.Purpose|
|00001f20| 3a 0d 3e 0d fe 06 00 00 | 00 64 ff ff ff 9e 00 00 |:.>.....|.d......|
|00001f30| 00 94 ff ff ff 11 02 00 | 17 41 75 74 68 6f 72 73 |........|.Authors|
|00001f40| 3a 0d 3e 0d fe 06 00 00 | 00 30 ff ff ff 9e 00 00 |:.>.....|.0......|
|00001f50| 00 60 ff ff ff 11 02 00 | 17 56 65 72 73 69 6f 6e |.`......|.Version|
|00001f60| 3a 0d 3e 0d fe 41 62 6f | 75 74 20 74 68 69 73 20 |:.>..Abo|ut this |
|00001f70| 70 72 6f 67 72 61 6d 0d | 41 70 70 6c 69 63 61 74 |program.|Applicat|
|00001f80| 69 6f 6e 20 68 65 6c 70 | 0d a9 20 4c 6f 72 69 6e |ion help|.. Lorin|
|00001f90| 67 2c 20 31 39 39 30 0d | 0d 04 00 00 00 00 01 00 |g, 1990.|........|
|00001fa0| 00 d4 04 00 00 24 03 00 | 00 00 00 00 00 00 00 00 |.....$..|........|
|00001fb0| 00 e0 06 00 00 12 10 01 | ff 07 02 07 00 03 01 02 |........|........|
|00001fc0| 00 00 00 00 00 e4 ef ff | ff 40 1f 00 00 00 00 00 |........|.@......|
|00001fd0| 00 3d 00 00 00 00 30 00 | 00 01 00 00 00 00 00 00 |.=....0.|........|
|00001fe0| 00 48 65 6c 70 0d 74 6c | 65 64 3e 0d 65 01 00 00 |.Help.tl|ed>.e...|
|00001ff0| 00 fe ff ff ff d8 ff ff | ff c8 17 00 00 f8 ff ff |........|........|
|00002000| ff 31 61 00 05 78 00 00 | 00 79 00 00 00 ff 00 00 |.1a..x..|.y......|
|00002010| 00 0d 61 7e 20 2d ff 0d | 46 69 6c 65 44 61 74 61 |..a~ -..|FileData|
|00002020| 82 21 52 75 6e 00 00 00 | 00 76 00 ff 6c 00 00 00 |.!Run...|.v..l...|
|00002030| 43 eb ff ff 5c 4c 43 26 | 03 00 c4 e3 7c 20 21 52 |C...\LC&|....| !R|
|00002040| 75 6e 20 66 69 6c 65 20 | 66 6f 72 20 47 72 61 70 |un file |for Grap|
|00002050| 68 69 63 73 0a 7c 0a 52 | 75 6e 20 3c 4f 62 65 79 |hics.|.R|un <Obey|
|00002060| 24 44 69 72 3e 2e 21 42 | 6f 6f 74 0a 7c 0a 57 69 |$Dir>.!B|oot.|.Wi|
|00002070| 6d 70 53 6c 6f 74 20 2d | 6d 69 6e 20 31 32 38 4b |mpSlot -|min 128K|
|00002080| 20 2d 6d 61 78 20 31 32 | 38 4b 0a 42 41 53 49 43 | -max 12|8K.BASIC|
|00002090| 20 2d 63 68 61 69 6e 20 | 3c 4f 62 65 79 24 44 69 | -chain |<Obey$Di|
|000020a0| 72 3e 2e 4c 69 6e 65 0a | 46 69 6c 65 44 61 74 61 |r>.Line.|FileData|
|000020b0| 82 21 53 70 72 69 74 65 | 73 00 00 ff 0c 02 00 00 |.!Sprite|s.......|
|000020c0| 43 f9 ff ff f3 04 2b 25 | 03 00 a4 55 01 00 00 00 |C.....+%|...U....|
|000020d0| 10 00 00 00 10 02 00 00 | 00 02 00 00 21 67 72 61 |........|....!gra|
|000020e0| 70 68 69 63 73 00 00 00 | 04 00 00 00 10 00 00 00 |phics...|........|
|000020f0| 10 00 00 00 17 00 00 00 | ac 00 00 00 ac 00 00 00 |........|........|
|00002100| 0c 00 00 00 00 ff ff ff | 00 ff ff ff 00 dd dd dd |........|........|
|00002110| 00 dd dd dd 00 bb bb bb | 00 bb bb bb 00 99 99 99 |........|........|
|00002120| 00 99 99 99 00 77 77 77 | 00 77 77 77 00 55 55 55 |.....www|.www.UUU|
|00002130| 00 55 55 55 00 33 33 33 | 00 33 33 33 00 00 00 00 |.UUU.333|.333....|
|00002140| 00 00 00 00 00 00 44 99 | 00 00 44 99 00 ee ee 00 |......D.|..D.....|
|00002150| 00 ee ee 00 00 00 cc 00 | 00 00 cc 00 00 dd 00 00 |........|........|
|00002160| 00 dd 00 00 00 ee ee bb | 00 ee ee bb 00 55 88 00 |........|.....U..|
|00002170| 00 55 88 00 00 ff bb 00 | 00 ff bb 00 00 00 bb ff |.U......|........|
|00002180| 00 00 bb ff 00 00 ff ff | ff ff ff ff ff ff ff ff |........|........|
|00002190| ff ff ff ff ff ff ff 00 | 00 00 ff 88 88 f8 8f 88 |........|........|
|000021a0| 88 ff 8f 88 f8 ff ff ff | ff ff ff 00 00 00 8f f8 |........|........|
|000021b0| ff 88 8f f8 8f f8 88 ff | 88 ff ff ff 0f f0 ff 00 |........|........|
|000021c0| 00 00 8f f8 ff ff 8f f8 | 8f f8 88 ff ff ff ff 0f |........|........|
|000021d0| 00 f0 ff 00 00 00 ff 88 | 88 f8 8f 88 88 ff 88 ff |........|........|
|000021e0| ff ff 0f 00 0b f0 ff 00 | 00 00 ff ff ff 88 8f f8 |........|........|
|000021f0| 88 ff 88 ff ff 0f 00 bb | 0b f0 ff 00 00 00 8f f8 |........|........|
|00002200| ff 88 8f f8 8f f8 88 ff | 88 00 bb bb 0b f0 ff 00 |........|........|
|00002210| 00 00 ff 88 88 f8 8f f8 | 8f f8 8f 88 08 bb bb bb |........|........|
|00002220| 0b f0 ff 00 00 00 ff ff | ff ff ff ff ff ff 0f 00 |........|........|
|00002230| 00 00 00 00 0b f0 ff 00 | 00 00 ff ff ff ff ff ff |........|........|
|00002240| ff 0f 00 99 99 99 99 09 | 00 f0 ff 00 00 00 ff ff |........|........|
|00002250| ff ff ff ff 0f 00 99 99 | 99 99 99 99 09 f0 ff 00 |........|........|
|00002260| 00 00 ff ff ff ff ff 0f | 00 99 99 99 99 99 99 99 |........|........|
|00002270| 09 f0 ff 00 00 00 ff ff | ff ff 0f 00 99 99 99 99 |........|........|
|00002280| 99 99 99 99 09 f0 ff 00 | 00 00 ff ff ff 0f 00 99 |........|........|
|00002290| 99 99 99 99 99 99 99 99 | 09 f0 ff 00 00 00 ff ff |........|........|
|000022a0| 0f 00 99 99 99 99 99 99 | 99 99 99 99 09 f0 ff 00 |........|........|
|000022b0| 00 00 ff 0f 00 99 99 99 | 99 99 99 99 99 99 99 99 |........|........|
|000022c0| 09 f0 ff 00 00 00 0f 00 | 99 99 99 99 99 99 99 99 |........|........|
|000022d0| 99 99 99 99 09 f0 ff 00 | 46 69 6c 65 44 61 74 61 |........|FileData|
|000022e0| 82 43 6c 69 70 00 00 00 | 00 76 00 ff c6 26 00 00 |.Clip...|.v...&..|
|000022f0| 43 ff ff ff 52 67 41 26 | 03 00 4d d2 52 45 4d 20 |C...RgA&|..M.REM |
|00002300| 3e 20 3c 47 72 61 70 68 | 69 63 73 24 44 69 72 3e |> <Graph|ics$Dir>|
|00002310| 2e 43 6c 69 70 0a 52 45 | 4d 0a 52 45 4d 20 4c 69 |.Clip.RE|M.REM Li|
|00002320| 6e 65 20 63 6c 69 70 70 | 69 6e 67 20 63 6f 64 65 |ne clipp|ing code|
|00002330| 20 64 65 6d 6f 6e 73 74 | 72 61 74 69 6f 6e 0a 52 | demonst|ration.R|
|00002340| 45 4d 0a 52 45 4d 20 54 | 68 65 20 61 6c 67 6f 72 |EM.REM T|he algor|
|00002350| 69 74 68 6d 20 69 73 20 | 62 61 73 65 64 20 6f 6e |ithm is |based on|
|00002360| 20 43 6f 68 65 6e 2d 53 | 75 74 68 65 72 6c 61 6e | Cohen-S|utherlan|
|00002370| 64 27 73 0a 52 45 4d 0a | 52 45 4d 20 46 69 72 73 |d's.REM.|REM Firs|
|00002380| 74 20 62 6f 74 68 20 70 | 6f 69 6e 74 73 20 61 72 |t both p|oints ar|
|00002390| 65 20 67 69 76 65 20 61 | 20 34 2d 62 69 74 20 63 |e give a| 4-bit c|
|000023a0| 6f 64 65 0a 52 45 4d 20 | 64 65 70 65 6e 64 65 6e |ode.REM |dependen|
|000023b0| 74 20 6f 6e 20 74 68 65 | 69 72 20 70 6f 73 69 74 |t on the|ir posit|
|000023c0| 69 6f 6e 20 61 73 20 66 | 6f 6c 6c 6f 77 73 3a 0a |ion as f|ollows:.|
|000023d0| 52 45 4d 0a 52 45 4d 20 | 20 20 20 31 30 30 31 20 |REM.REM | 1001 |
|000023e0| 7c 20 31 30 30 30 20 7c | 20 31 30 31 30 0a 52 45 || 1000 || 1010.RE|
|000023f0| 4d 20 20 20 2d 2d 2d 2d | 2d 2d 2b 2d 2d 2d 2d 2d |M ----|--+-----|
|00002400| 2d 2b 2d 2d 2d 2d 2d 2d | 0a 52 45 4d 20 20 20 20 |-+------|.REM |
|00002410| 30 30 30 31 20 7c 20 30 | 30 30 30 20 7c 20 30 30 |0001 | 0|000 | 00|
|00002420| 31 30 20 20 28 30 30 30 | 30 20 69 73 20 76 69 73 |10 (000|0 is vis|
|00002430| 69 62 6c 65 20 77 69 6e | 64 6f 77 29 0a 52 45 4d |ible win|dow).REM|
|00002440| 20 20 20 2d 2d 2d 2d 2d | 2d 2b 2d 2d 2d 2d 2d 2d | -----|-+------|
|00002450| 2b 2d 2d 2d 2d 2d 2d 0a | 52 45 4d 20 20 20 20 30 |+------.|REM 0|
|00002460| 31 30 31 20 7c 20 30 31 | 30 30 20 7c 20 30 31 31 |101 | 01|00 | 011|
|00002470| 30 0a 52 45 4d 0a 52 45 | 4d 20 49 6e 76 69 73 69 |0.REM.RE|M Invisi|
|00002480| 62 6c 65 20 6c 69 6e 65 | 73 20 63 61 6e 20 6e 6f |ble line|s can no|
|00002490| 77 20 65 61 73 69 6c 79 | 20 62 65 20 72 65 6a 65 |w easily| be reje|
|000024a0| 63 74 65 64 0a 52 45 4d | 20 77 68 65 6e 20 74 68 |cted.REM| when th|
|000024b0| 65 20 6c 6f 67 69 63 61 | 6c 20 41 4e 44 20 6f 66 |e logica|l AND of|
|000024c0| 20 74 68 65 69 72 20 63 | 6f 64 65 73 20 69 73 20 | their c|odes is |
|000024d0| 6e 6f 74 20 30 0a 52 45 | 4d 20 54 68 65 79 20 6e |not 0.RE|M They n|
|000024e0| 65 65 64 20 6e 6f 74 20 | 62 65 20 63 6c 69 70 70 |eed not |be clipp|
|000024f0| 65 64 20 69 66 20 74 68 | 65 20 4f 52 20 6f 66 20 |ed if th|e OR of |
|00002500| 74 68 65 69 72 0a 52 45 | 4d 20 63 6f 64 65 73 20 |their.RE|M codes |
|00002510| 69 73 20 30 20 28 74 68 | 65 79 20 61 72 65 20 63 |is 0 (th|ey are c|
|00002520| 6f 6d 70 6c 65 74 65 6c | 79 20 76 69 73 69 62 6c |ompletel|y visibl|
|00002530| 65 29 0a 52 45 4d 20 54 | 68 65 79 20 6d 75 73 74 |e).REM T|hey must|
|00002540| 20 62 65 20 63 6c 69 70 | 70 65 64 20 6f 74 68 65 | be clip|ped othe|
|00002550| 72 77 69 73 65 2c 20 62 | 75 74 20 63 6f 75 6c 64 |rwise, b|ut could|
|00002560| 0a 52 45 4d 20 62 65 20 | 72 65 6a 65 63 74 65 64 |.REM be |rejected|
|00002570| 20 6c 61 74 65 72 20 6f | 6e 20 61 66 74 65 72 20 | later o|n after |
|00002580| 74 68 65 20 66 69 72 73 | 74 20 63 6c 69 70 0a 52 |the firs|t clip.R|
|00002590| 45 4d 0a 52 45 4d 20 53 | 74 61 74 75 73 20 6c 69 |EM.REM S|tatus li|
|000025a0| 6e 65 3a 0a 52 45 4d 0a | 52 45 4d 20 20 20 43 75 |ne:.REM.|REM Cu|
|000025b0| 72 72 65 6e 74 20 6f 70 | 65 72 61 74 69 6f 6e 3a |rrent op|eration:|
|000025c0| 0a 52 45 4d 0a 52 45 4d | 20 20 20 20 20 4c 69 6e |.REM.REM| Lin|
|000025d0| 65 20 63 61 6e 20 62 65 | 20 72 65 6a 65 63 74 65 |e can be| rejecte|
|000025e0| 64 20 28 6f 75 74 73 69 | 64 65 20 73 63 72 65 65 |d (outsi|de scree|
|000025f0| 6e 29 2c 0a 52 45 4d 20 | 20 20 20 20 70 72 6f 63 |n),.REM | proc|
|00002600| 65 73 73 65 64 20 28 70 | 6f 73 73 69 62 6c 79 20 |essed (p|ossibly |
|00002610| 70 61 72 74 6c 79 20 77 | 69 74 68 69 6e 20 73 63 |partly w|ithin sc|
|00002620| 72 65 65 6e 29 2c 0a 52 | 45 4d 20 20 20 20 20 6f |reen),.R|EM o|
|00002630| 72 20 64 72 61 77 6e 20 | 28 6c 69 6e 65 20 69 73 |r drawn |(line is|
|00002640| 20 77 69 74 68 69 6e 20 | 73 63 72 65 65 6e 29 0a | within |screen).|
|00002650| 52 45 4d 0a 52 45 4d 20 | 20 20 43 6f 6f 72 64 69 |REM.REM | Coordi|
|00002660| 6e 61 74 65 73 3a 0a 52 | 45 4d 0a 52 45 4d 20 20 |nates:.R|EM.REM |
|00002670| 20 20 20 43 75 72 72 65 | 6e 74 20 28 73 75 62 64 | Curre|nt (subd|
|00002680| 69 76 69 64 65 64 29 20 | 63 6f 6f 72 64 69 6e 61 |ivided) |coordina|
|00002690| 74 65 73 0a 52 45 4d 0a | 52 45 4d 20 20 20 4c 65 |tes.REM.|REM Le|
|000026a0| 76 65 6c 20 6f 66 20 73 | 75 62 64 69 76 69 73 69 |vel of s|ubdivisi|
|000026b0| 6f 6e 3a 0a 52 45 4d 0a | 52 45 4d 20 20 20 20 20 |on:.REM.|REM |
|000026c0| 4e 75 6d 62 65 72 20 6f | 66 20 74 69 6d 65 73 20 |Number o|f times |
|000026d0| 61 20 73 75 62 64 69 76 | 69 73 69 6f 6e 20 68 61 |a subdiv|ision ha|
|000026e0| 64 20 74 6f 20 62 65 20 | 6d 61 64 65 2c 0a 52 45 |d to be |made,.RE|
|000026f0| 4d 20 20 20 20 20 61 74 | 20 6d 61 78 69 6d 75 6d |M at| maximum|
|00002700| 20 74 68 69 73 20 69 73 | 20 65 71 75 61 6c 20 74 | this is| equal t|
|00002710| 6f 20 74 68 65 20 6e 75 | 6d 62 65 72 20 6f 66 0a |o the nu|mber of.|
|00002720| 52 45 4d 20 20 20 20 20 | 62 69 74 73 20 72 65 73 |REM |bits res|
|00002730| 6f 6c 75 74 69 6f 6e 20 | 69 6e 20 74 68 65 20 6f |olution |in the o|
|00002740| 72 69 67 69 6e 61 6c 20 | 63 6f 6f 72 64 69 6e 61 |riginal |coordina|
|00002750| 74 65 73 0a 52 45 4d 0a | 52 45 4d 20 20 20 4c 69 |tes.REM.|REM Li|
|00002760| 6e 65 20 6e 75 6d 62 65 | 72 3a 0a 52 45 4d 0a 52 |ne numbe|r:.REM.R|
|00002770| 45 4d 20 20 20 20 20 4c | 69 6e 65 20 77 68 69 63 |EM L|ine whic|
|00002780| 68 20 69 73 20 63 75 72 | 72 65 6e 74 6c 79 20 62 |h is cur|rently b|
|00002790| 65 69 6e 67 20 70 72 6f | 63 65 73 73 65 64 0a 52 |eing pro|cessed.R|
|000027a0| 45 4d 0a 52 45 4d 20 4c | 69 6e 65 20 63 6f 6c 6f |EM.REM L|ine colo|
|000027b0| 75 72 73 3a 0a 52 45 4d | 0a 52 45 4d 20 20 20 42 |urs:.REM|.REM B|
|000027c0| 6c 75 65 20 20 20 20 2d | 20 6f 72 69 67 69 6e 61 |lue -| origina|
|000027d0| 6c 0a 52 45 4d 20 20 20 | 52 65 64 20 20 20 20 20 |l.REM |Red |
|000027e0| 2d 20 72 65 6a 65 63 74 | 65 64 0a 52 45 4d 20 20 |- reject|ed.REM |
|000027f0| 20 47 72 65 65 6e 20 20 | 20 2d 20 70 72 6f 63 65 | Green | - proce|
|00002800| 73 73 69 6e 67 0a 52 45 | 4d 20 20 20 57 68 69 74 |ssing.RE|M Whit|
|00002810| 65 20 20 20 2d 20 63 6c | 69 70 70 65 64 0a 52 45 |e - cl|ipped.RE|
|00002820| 4d 20 20 20 4d 61 67 65 | 6e 74 61 20 2d 20 2a 76 |M Mage|nta - *v|
|00002830| 69 73 69 62 6c 65 2a 20 | 73 63 72 65 65 6e 20 62 |isible* |screen b|
|00002840| 6f 75 6e 64 61 72 79 0a | 52 45 4d 20 20 20 20 20 |oundary.|REM |
|00002850| 20 20 20 20 20 20 20 20 | 63 6c 69 70 70 65 64 20 | |clipped |
|00002860| 6c 69 6e 65 73 20 77 69 | 6c 6c 20 61 6c 77 61 79 |lines wi|ll alway|
|00002870| 73 20 65 6e 64 20 6f 6e | 20 74 68 69 73 0a 52 45 |s end on| this.RE|
|00002880| 4d 0a 52 45 4d 20 4b 65 | 79 73 3a 0a 52 45 4d 0a |M.REM Ke|ys:.REM.|
|00002890| 52 45 4d 20 20 20 53 74 | 6f 70 20 74 68 65 20 70 |REM St|op the p|
|000028a0| 72 6f 67 72 61 6d 20 62 | 79 20 64 65 70 72 65 73 |rogram b|y depres|
|000028b0| 73 69 6e 67 20 3c 4c 65 | 66 74 20 53 68 69 66 74 |sing <Le|ft Shift|
|000028c0| 3e 0a 52 45 4d 20 20 20 | 53 70 65 65 64 20 75 70 |>.REM |Speed up|
|000028d0| 20 64 69 73 70 6c 61 79 | 69 6e 67 20 62 79 20 64 | display|ing by d|
|000028e0| 65 70 72 65 73 73 69 6e | 67 20 3c 53 68 69 66 74 |epressin|g <Shift|
|000028f0| 3e 0a 52 45 4d 0a 52 45 | 4d 20 53 6f 75 6e 64 73 |>.REM.RE|M Sounds|
|00002900| 3a 0a 52 45 4d 0a 52 45 | 4d 20 20 20 41 20 62 65 |:.REM.RE|M A be|
|00002910| 65 70 20 69 73 20 68 65 | 61 72 64 20 77 68 65 6e |ep is he|ard when|
|00002920| 65 76 65 72 20 75 6e 64 | 65 72 66 6c 6f 77 20 69 |ever und|erflow i|
|00002930| 73 20 65 6e 63 6f 75 6e | 74 65 72 65 64 0a 52 45 |s encoun|tered.RE|
|00002940| 4d 20 20 20 69 6e 20 74 | 68 65 20 63 6c 69 70 70 |M in t|he clipp|
|00002950| 69 6e 67 20 63 6f 64 65 | 2c 20 74 68 65 20 63 6f |ing code|, the co|
|00002960| 6f 72 64 69 6e 61 74 65 | 73 20 61 72 65 20 63 6f |ordinate|s are co|
|00002970| 72 72 65 63 74 65 64 0a | 52 45 4d 0a 52 45 4d 20 |rrected.|REM.REM |
|00002980| 53 6c 6f 77 20 64 6f 77 | 6e 20 67 65 6e 65 72 61 |Slow dow|n genera|
|00002990| 6c 20 64 69 73 70 6c 61 | 79 20 74 6f 20 68 61 6c |l displa|y to hal|
|000029a0| 66 20 73 70 65 65 64 3a | 0a 52 45 4d 0a 20 20 20 |f speed:|.REM. |
|000029b0| 20 20 20 53 25 3d 46 41 | 4c 53 45 0a 52 45 4d 0a | S%=FA|LSE.REM.|
|000029c0| 52 45 4d 20 44 69 73 70 | 6c 61 79 20 63 6c 69 70 |REM Disp|lay clip|
|000029d0| 70 69 6e 67 20 70 72 6f | 63 65 73 73 3a 0a 52 45 |ping pro|cess:.RE|
|000029e0| 4d 0a 20 20 20 20 20 20 | 50 25 3d 54 52 55 45 0a |M. |P%=TRUE.|
|000029f0| 52 45 4d 0a 52 45 4d 20 | 57 61 69 74 20 62 65 74 |REM.REM |Wait bet|
|00002a00| 77 65 65 6e 20 6c 69 6e | 65 73 3a 0a 52 45 4d 0a |ween lin|es:.REM.|
|00002a10| 20 20 20 20 20 20 57 25 | 3d 54 52 55 45 0a 52 45 | W%|=TRUE.RE|
|00002a20| 4d 0a 52 45 4d 20 44 69 | 73 70 6c 61 79 20 67 72 |M.REM Di|splay gr|
|00002a30| 61 70 68 69 63 73 2c 20 | 6f 74 68 65 72 77 69 73 |aphics, |otherwis|
|00002a40| 65 20 66 75 6c 6c 20 73 | 70 65 65 64 20 74 65 78 |e full s|peed tex|
|00002a50| 74 20 6f 6e 6c 79 3a 0a | 52 45 4d 0a 20 20 20 20 |t only:.|REM. |
|00002a60| 20 20 47 25 3d 54 52 55 | 45 0a 52 45 4d 0a 3a 0a | G%=TRU|E.REM.:.|
|00002a70| 4f 4e 20 45 52 52 4f 52 | 20 50 52 49 4e 54 20 52 |ON ERROR| PRINT R|
|00002a80| 45 50 4f 52 54 24 20 3a | 20 4f 4e 20 3a 20 45 4e |EPORT$ :| ON : EN|
|00002a90| 44 0a 3a 0a 52 45 4d 20 | 41 6e 79 20 31 36 20 63 |D.:.REM |Any 16 c|
|00002aa0| 6f 6c 6f 75 72 20 6d 6f | 64 65 20 77 6f 72 6b 73 |olour mo|de works|
|00002ab0| 2c 20 62 75 74 20 74 68 | 65 20 64 69 73 70 6c 61 |, but th|e displa|
|00002ac0| 79 0a 52 45 4d 20 6c 6f | 6f 6b 73 20 62 65 73 74 |y.REM lo|oks best|
|00002ad0| 20 69 6e 20 4d 4f 44 45 | 20 32 30 20 61 73 20 74 | in MODE| 20 as t|
|00002ae0| 68 69 73 20 68 61 73 20 | 65 78 61 63 74 6c 79 0a |his has |exactly.|
|00002af0| 52 45 4d 20 64 6f 75 62 | 6c 65 20 74 68 65 20 72 |REM doub|le the r|
|00002b00| 65 73 6f 6c 75 74 69 6f | 6e 20 6f 66 20 4d 4f 44 |esolutio|n of MOD|
|00002b10| 45 20 31 33 0a 4d 4f 44 | 45 20 32 30 0a 49 46 20 |E 13.MOD|E 20.IF |
|00002b20| 4d 4f 44 45 3c 3e 32 30 | 20 54 48 45 4e 0a 20 20 |MODE<>20| THEN. |
|00002b30| 4d 4f 44 45 20 31 32 0a | 20 20 49 46 20 4d 4f 44 |MODE 12.| IF MOD|
|00002b40| 45 3c 3e 31 32 20 54 48 | 45 4e 0a 20 20 20 20 4d |E<>12 TH|EN. M|
|00002b50| 4f 44 45 20 39 0a 20 20 | 20 20 49 46 20 4d 4f 44 |ODE 9. | IF MOD|
|00002b60| 45 3c 3e 39 20 54 48 45 | 4e 0a 20 20 20 20 20 20 |E<>9 THE|N. |
|00002b70| 52 45 4d 20 48 6f 77 20 | 6c 6f 77 20 63 61 6e 20 |REM How |low can |
|00002b80| 79 6f 75 20 67 6f 2e 2e | 2e 0a 20 20 20 20 45 4e |you go..|.. EN|
|00002b90| 44 49 46 0a 20 20 45 4e | 44 49 46 0a 45 4e 44 49 |DIF. EN|DIF.ENDI|
|00002ba0| 46 0a 4f 46 46 0a 3a 0a | 4e 25 3d 31 0a 52 45 50 |F.OFF.:.|N%=1.REP|
|00002bb0| 45 41 54 0a 20 20 52 45 | 4d 20 4c 69 6e 65 73 20 |EAT. RE|M Lines |
|00002bc0| 77 68 69 63 68 20 66 69 | 74 20 6f 6e 20 74 68 65 |which fi|t on the|
|00002bd0| 20 64 69 73 70 6c 61 79 | 20 77 69 6e 64 6f 77 0a | display| window.|
|00002be0| 20 20 58 31 25 3d 36 34 | 30 2b 28 52 4e 44 28 32 | X1%=64|0+(RND(2|
|00002bf0| 35 36 30 29 2d 31 32 38 | 30 29 0a 20 20 59 31 25 |560)-128|0). Y1%|
|00002c00| 3d 35 31 32 2b 28 52 4e | 44 28 32 30 34 38 29 2d |=512+(RN|D(2048)-|
|00002c10| 31 30 32 34 29 0a 20 20 | 58 32 25 3d 36 34 30 2b |1024). |X2%=640+|
|00002c20| 28 52 4e 44 28 32 35 36 | 30 29 2d 31 32 38 30 29 |(RND(256|0)-1280)|
|00002c30| 0a 20 20 59 32 25 3d 35 | 31 32 2b 28 52 4e 44 28 |. Y2%=5|12+(RND(|
|00002c40| 32 30 34 38 29 2d 31 30 | 32 34 29 0a 20 20 50 52 |2048)-10|24). PR|
|00002c50| 4f 43 44 72 61 77 28 58 | 31 25 2c 59 31 25 2c 58 |OCDraw(X|1%,Y1%,X|
|00002c60| 32 25 2c 59 32 25 29 0a | 20 20 4e 25 2b 3d 31 0a |2%,Y2%).| N%+=1.|
|00002c70| 55 4e 54 49 4c 20 49 4e | 4b 45 59 28 2d 34 29 20 |UNTIL IN|KEY(-4) |
|00002c80| 3a 20 52 45 4d 20 3c 4c | 65 66 74 20 53 68 69 66 |: REM <L|eft Shif|
|00002c90| 74 3e 0a 3a 0a 45 4e 44 | 0a 3a 0a 44 45 46 20 50 |t>.:.END|.:.DEF P|
|00002ca0| 52 4f 43 44 72 61 77 28 | 58 31 25 2c 59 31 25 2c |ROCDraw(|X1%,Y1%,|
|00002cb0| 58 32 25 2c 59 32 25 29 | 0a 20 20 58 31 25 3d 58 |X2%,Y2%)|. X1%=X|
|00002cc0| 31 25 3c 3c 31 36 20 3a | 20 58 31 25 3d 58 31 25 |1%<<16 :| X1%=X1%|
|00002cd0| 3e 3e 32 0a 20 20 59 31 | 25 3d 59 31 25 3c 3c 31 |>>2. Y1|%=Y1%<<1|
|00002ce0| 36 20 3a 20 59 31 25 3d | 59 31 25 3e 3e 32 20 0a |6 : Y1%=|Y1%>>2 .|
|00002cf0| 20 20 58 32 25 3d 58 32 | 25 3c 3c 31 36 20 3a 20 | X2%=X2|%<<16 : |
|00002d00| 58 32 25 3d 58 32 25 3e | 3e 32 0a 20 20 59 32 25 |X2%=X2%>|>2. Y2%|
|00002d10| 3d 59 32 25 3c 3c 31 36 | 20 3a 20 59 32 25 3d 59 |=Y2%<<16| : Y2%=Y|
|00002d20| 32 25 3e 3e 32 0a 20 20 | 50 52 4f 43 4f 6c 64 43 |2%>>2. |PROCOldC|
|00002d30| 6f 6f 72 64 73 28 58 31 | 25 3e 3e 31 36 2c 59 31 |oords(X1|%>>16,Y1|
|00002d40| 25 3e 3e 31 36 2c 58 32 | 25 3e 3e 31 36 2c 59 32 |%>>16,X2|%>>16,Y2|
|00002d50| 25 3e 3e 31 36 29 0a 20 | 20 50 52 4f 43 50 72 65 |%>>16). | PROCPre|
|00002d60| 70 28 58 31 25 2c 59 31 | 25 2c 58 32 25 2c 59 32 |p(X1%,Y1|%,X2%,Y2|
|00002d70| 25 2c 46 31 25 2c 46 32 | 25 29 0a 20 20 54 31 25 |%,F1%,F2|%). T1%|
|00002d80| 3d 46 31 25 20 4f 52 20 | 46 32 25 20 20 20 20 20 |=F1% OR |F2% |
|00002d90| 20 3a 20 52 45 4d 20 43 | 6f 6d 62 69 6e 61 74 69 | : REM C|ombinati|
|00002da0| 6f 6e 0a 20 20 54 32 25 | 3d 46 31 25 20 45 4f 52 |on. T2%|=F1% EOR|
|00002db0| 20 46 32 25 20 20 20 20 | 20 3a 20 52 45 4d 20 44 | F2% | : REM D|
|00002dc0| 69 66 66 65 72 65 6e 63 | 65 0a 20 20 54 31 25 3d |ifferenc|e. T1%=|
|00002dd0| 54 31 25 20 41 4e 44 20 | 4e 4f 54 20 54 32 25 20 |T1% AND |NOT T2% |
|00002de0| 3a 20 52 45 4d 20 4c 6f | 67 69 63 61 6c 20 69 6e |: REM Lo|gical in|
|00002df0| 74 65 72 73 65 63 74 69 | 6f 6e 0a 20 20 49 46 20 |tersecti|on. IF |
|00002e00| 54 31 25 3d 30 20 54 48 | 45 4e 0a 20 20 20 20 49 |T1%=0 TH|EN. I|
|00002e10| 46 20 28 46 31 25 20 4f | 52 20 46 32 25 29 3d 30 |F (F1% O|R F2%)=0|
|00002e20| 20 54 48 45 4e 0a 20 20 | 20 20 20 20 50 52 4f 43 | THEN. | PROC|
|00002e30| 4c 69 6e 65 28 58 31 25 | 3e 3e 31 36 2c 59 31 25 |Line(X1%|>>16,Y1%|
|00002e40| 3e 3e 31 36 2c 58 32 25 | 3e 3e 31 36 2c 59 32 25 |>>16,X2%|>>16,Y2%|
|00002e50| 3e 3e 31 36 2c 32 2c 30 | 29 0a 20 20 20 20 45 4c |>>16,2,0|). EL|
|00002e60| 53 45 0a 20 20 20 20 20 | 20 49 46 20 28 28 46 31 |SE. | IF ((F1|
|00002e70| 25 20 4f 52 20 46 32 25 | 29 20 41 4e 44 20 25 30 |% OR F2%|) AND %0|
|00002e80| 30 31 31 29 3c 3e 30 20 | 54 48 45 4e 0a 20 20 20 |011)<>0 |THEN. |
|00002e90| 20 20 20 20 20 50 52 4f | 43 43 6c 69 70 54 6f 58 | PRO|CClipToX|
|00002ea0| 28 58 31 25 2c 59 31 25 | 2c 58 32 25 2c 59 32 25 |(X1%,Y1%|,X2%,Y2%|
|00002eb0| 2c 46 31 25 2c 46 32 25 | 29 0a 20 20 20 20 20 20 |,F1%,F2%|). |
|00002ec0| 20 20 50 52 4f 43 50 72 | 65 70 28 58 31 25 2c 59 | PROCPr|ep(X1%,Y|
|00002ed0| 31 25 2c 58 32 25 2c 59 | 32 25 2c 46 31 25 2c 46 |1%,X2%,Y|2%,F1%,F|
|00002ee0| 32 25 29 0a 20 20 20 20 | 20 20 20 20 54 31 25 3d |2%). | T1%=|
|00002ef0| 46 31 25 20 4f 52 20 46 | 32 25 20 20 20 20 20 20 |F1% OR F|2% |
|00002f00| 3a 20 52 45 4d 20 43 6f | 6d 62 69 6e 61 74 69 6f |: REM Co|mbinatio|
|00002f10| 6e 0a 20 20 20 20 20 20 | 20 20 54 32 25 3d 46 31 |n. | T2%=F1|
|00002f20| 25 20 45 4f 52 20 46 32 | 25 20 20 20 20 20 3a 20 |% EOR F2|% : |
|00002f30| 52 45 4d 20 44 69 66 66 | 65 72 65 6e 63 65 0a 20 |REM Diff|erence. |
|00002f40| 20 20 20 20 20 20 20 54 | 31 25 3d 54 31 25 20 41 | T|1%=T1% A|
|00002f50| 4e 44 20 4e 4f 54 20 54 | 32 25 20 3a 20 52 45 4d |ND NOT T|2% : REM|
|00002f60| 20 4c 6f 67 69 63 61 6c | 20 69 6e 74 65 72 73 65 | Logical| interse|
|00002f70| 63 74 69 6f 6e 0a 20 20 | 20 20 20 20 45 4e 44 49 |ction. | ENDI|
|00002f80| 46 0a 20 20 20 20 20 20 | 49 46 20 54 31 25 3d 30 |F. |IF T1%=0|
|00002f90| 20 54 48 45 4e 0a 20 20 | 20 20 20 20 20 20 49 46 | THEN. | IF|
|00002fa0| 20 28 28 46 31 25 20 4f | 52 20 46 32 25 29 20 41 | ((F1% O|R F2%) A|
|00002fb0| 4e 44 20 25 31 31 30 30 | 29 3c 3e 30 20 54 48 45 |ND %1100|)<>0 THE|
|00002fc0| 4e 0a 20 20 20 20 20 20 | 20 20 20 20 50 52 4f 43 |N. | PROC|
|00002fd0| 43 6c 69 70 54 6f 59 28 | 58 31 25 2c 59 31 25 2c |ClipToY(|X1%,Y1%,|
|00002fe0| 58 32 25 2c 59 32 25 2c | 46 31 25 2c 46 32 25 29 |X2%,Y2%,|F1%,F2%)|
|00002ff0| 0a 20 20 20 20 20 20 20 | 20 45 4e 44 49 46 0a 20 |. | ENDIF. |
|00003000| 20 20 20 20 20 20 20 52 | 45 4d 20 4e 6f 20 6e 65 | R|EM No ne|
|00003010| 65 64 20 74 6f 20 72 65 | 6a 65 63 74 20 6e 6f 77 |ed to re|ject now|
|00003020| 2c 20 77 6f 75 6c 64 20 | 68 61 76 65 0a 20 20 20 |, would |have. |
|00003030| 20 20 20 20 20 52 45 4d | 20 62 65 65 6e 20 64 6f | REM| been do|
|00003040| 6e 65 20 62 79 20 74 68 | 65 20 58 20 63 6c 69 70 |ne by th|e X clip|
|00003050| 70 69 6e 67 20 70 61 72 | 74 0a 20 20 20 20 20 20 |ping par|t. |
|00003060| 20 20 50 52 4f 43 4c 69 | 6e 65 28 58 31 25 3e 3e | PROCLi|ne(X1%>>|
|00003070| 31 36 2c 59 31 25 3e 3e | 31 36 2c 58 32 25 3e 3e |16,Y1%>>|16,X2%>>|
|00003080| 31 36 2c 59 32 25 3e 3e | 31 36 2c 32 2c 30 29 0a |16,Y2%>>|16,2,0).|
|00003090| 20 20 20 20 20 20 45 4c | 53 45 0a 20 20 20 20 20 | EL|SE. |
|000030a0| 20 20 20 52 45 4d 20 4c | 69 6e 65 20 69 73 20 6f | REM L|ine is o|
|000030b0| 75 74 73 69 64 65 20 62 | 6f 75 6e 64 61 72 69 65 |utside b|oundarie|
|000030c0| 73 0a 20 20 20 20 20 20 | 20 20 50 52 4f 43 4c 69 |s. | PROCLi|
|000030d0| 6e 65 28 58 31 25 3e 3e | 31 36 2c 59 31 25 3e 3e |ne(X1%>>|16,Y1%>>|
|000030e0| 31 36 2c 58 32 25 3e 3e | 31 36 2c 59 32 25 3e 3e |16,X2%>>|16,Y2%>>|
|000030f0| 31 36 2c 30 2c 30 29 0a | 20 20 20 20 20 20 45 4e |16,0,0).| EN|
|00003100| 44 49 46 0a 20 20 20 20 | 45 4e 44 49 46 0a 20 20 |DIF. |ENDIF. |
|00003110| 45 4c 53 45 0a 20 20 20 | 20 52 45 4d 20 4c 69 6e |ELSE. | REM Lin|
|00003120| 65 20 69 73 20 6f 75 74 | 73 69 64 65 20 62 6f 75 |e is out|side bou|
|00003130| 6e 64 61 72 69 65 73 0a | 20 20 20 20 50 52 4f 43 |ndaries.| PROC|
|00003140| 4c 69 6e 65 28 58 31 25 | 3e 3e 31 36 2c 59 31 25 |Line(X1%|>>16,Y1%|
|00003150| 3e 3e 31 36 2c 58 32 25 | 3e 3e 31 36 2c 59 32 25 |>>16,X2%|>>16,Y2%|
|00003160| 3e 3e 31 36 2c 30 2c 30 | 29 0a 20 20 45 4e 44 49 |>>16,0,0|). ENDI|
|00003170| 46 0a 45 4e 44 50 52 4f | 43 0a 3a 0a 44 45 46 20 |F.ENDPRO|C.:.DEF |
|00003180| 50 52 4f 43 50 72 65 70 | 28 52 45 54 55 52 4e 20 |PROCPrep|(RETURN |
|00003190| 58 31 25 2c 52 45 54 55 | 52 4e 20 59 31 25 2c 52 |X1%,RETU|RN Y1%,R|
|000031a0| 45 54 55 52 4e 20 58 32 | 25 2c 52 45 54 55 52 4e |ETURN X2|%,RETURN|
|000031b0| 20 59 32 25 2c 52 45 54 | 55 52 4e 20 46 31 25 2c | Y2%,RET|URN F1%,|
|000031c0| 52 45 54 55 52 4e 20 46 | 32 25 29 0a 20 20 49 46 |RETURN F|2%). IF|
|000031d0| 20 58 32 25 3c 58 31 25 | 20 54 48 45 4e 0a 20 20 | X2%<X1%| THEN. |
|000031e0| 20 20 58 31 25 3d 58 31 | 25 20 45 4f 52 20 58 32 | X1%=X1|% EOR X2|
|000031f0| 25 0a 20 20 20 20 58 32 | 25 3d 58 31 25 20 45 4f |%. X2|%=X1% EO|
|00003200| 52 20 58 32 25 0a 20 20 | 20 20 58 31 25 3d 58 31 |R X2%. | X1%=X1|
|00003210| 25 20 45 4f 52 20 58 32 | 25 0a 20 20 20 20 59 31 |% EOR X2|%. Y1|
|00003220| 25 3d 59 31 25 20 45 4f | 52 20 59 32 25 0a 20 20 |%=Y1% EO|R Y2%. |
|00003230| 20 20 59 32 25 3d 59 31 | 25 20 45 4f 52 20 59 32 | Y2%=Y1|% EOR Y2|
|00003240| 25 0a 20 20 20 20 59 31 | 25 3d 59 31 25 20 45 4f |%. Y1|%=Y1% EO|
|00003250| 52 20 59 32 25 0a 20 20 | 45 4e 44 49 46 0a 20 20 |R Y2%. |ENDIF. |
|00003260| 46 31 25 3d 30 0a 20 20 | 49 46 20 58 31 25 3c 28 |F1%=0. |IF X1%<(|
|00003270| 30 3c 3c 31 36 29 20 20 | 20 54 48 45 4e 20 46 31 |0<<16) | THEN F1|
|00003280| 25 3d 46 31 25 20 4f 52 | 20 25 30 30 30 31 0a 20 |%=F1% OR| %0001. |
|00003290| 20 49 46 20 58 31 25 3e | 28 33 31 39 3c 3c 31 36 | IF X1%>|(319<<16|
|000032a0| 29 20 54 48 45 4e 20 46 | 31 25 3d 46 31 25 20 4f |) THEN F|1%=F1% O|
|000032b0| 52 20 25 30 30 31 30 0a | 20 20 49 46 20 59 31 25 |R %0010.| IF Y1%|
|000032c0| 3c 28 30 3c 3c 31 36 29 | 20 20 20 54 48 45 4e 20 |<(0<<16)| THEN |
|000032d0| 46 31 25 3d 46 31 25 20 | 4f 52 20 25 30 31 30 30 |F1%=F1% |OR %0100|
|000032e0| 0a 20 20 49 46 20 59 31 | 25 3e 28 32 35 35 3c 3c |. IF Y1|%>(255<<|
|000032f0| 31 36 29 20 54 48 45 4e | 20 46 31 25 3d 46 31 25 |16) THEN| F1%=F1%|
|00003300| 20 4f 52 20 25 31 30 30 | 30 0a 20 20 46 32 25 3d | OR %100|0. F2%=|
|00003310| 30 0a 20 20 49 46 20 58 | 32 25 3c 28 30 3c 3c 31 |0. IF X|2%<(0<<1|
|00003320| 36 29 20 20 20 54 48 45 | 4e 20 46 32 25 3d 46 32 |6) THE|N F2%=F2|
|00003330| 25 20 4f 52 20 25 30 30 | 30 31 0a 20 20 49 46 20 |% OR %00|01. IF |
|00003340| 58 32 25 3e 28 33 31 39 | 3c 3c 31 36 29 20 54 48 |X2%>(319|<<16) TH|
|00003350| 45 4e 20 46 32 25 3d 46 | 32 25 20 4f 52 20 25 30 |EN F2%=F|2% OR %0|
|00003360| 30 31 30 0a 20 20 49 46 | 20 59 32 25 3c 28 30 3c |010. IF| Y2%<(0<|
|00003370| 3c 31 36 29 20 20 20 54 | 48 45 4e 20 46 32 25 3d |<16) T|HEN F2%=|
|00003380| 46 32 25 20 4f 52 20 25 | 30 31 30 30 0a 20 20 49 |F2% OR %|0100. I|
|00003390| 46 20 59 32 25 3e 28 32 | 35 35 3c 3c 31 36 29 20 |F Y2%>(2|55<<16) |
|000033a0| 54 48 45 4e 20 46 32 25 | 3d 46 32 25 20 4f 52 20 |THEN F2%|=F2% OR |
|000033b0| 25 31 30 30 30 0a 45 4e | 44 50 52 4f 43 0a 3a 0a |%1000.EN|DPROC.:.|
|000033c0| 44 45 46 20 50 52 4f 43 | 43 6c 69 70 54 6f 58 28 |DEF PROC|ClipToX(|
|000033d0| 52 45 54 55 52 4e 20 58 | 31 25 2c 52 45 54 55 52 |RETURN X|1%,RETUR|
|000033e0| 4e 20 59 31 25 2c 52 45 | 54 55 52 4e 20 58 32 25 |N Y1%,RE|TURN X2%|
|000033f0| 2c 52 45 54 55 52 4e 20 | 59 32 25 2c 46 31 25 2c |,RETURN |Y2%,F1%,|
|00003400| 46 32 25 29 0a 20 20 4c | 4f 43 41 4c 20 58 25 2c |F2%). L|OCAL X%,|
|00003410| 59 25 2c 4d 25 0a 20 20 | 59 25 3d 59 32 25 3e 3e |Y%,M%. |Y%=Y2%>>|
|00003420| 31 0a 20 20 59 25 2d 3d | 59 31 25 3e 3e 31 20 3a |1. Y%-=|Y1%>>1 :|
|00003430| 20 52 45 4d 20 53 75 62 | 64 69 76 69 64 65 20 59 | REM Sub|divide Y|
|00003440| 0a 20 20 58 25 3d 58 32 | 25 3e 3e 31 0a 20 20 58 |. X%=X2|%>>1. X|
|00003450| 25 2d 3d 58 31 25 3e 3e | 31 20 3a 20 52 45 4d 20 |%-=X1%>>|1 : REM |
|00003460| 53 75 62 64 69 76 69 64 | 65 20 58 0a 20 20 49 46 |Subdivid|e X. IF|
|00003470| 20 58 25 3c 3e 30 20 54 | 48 45 4e 0a 20 20 20 20 | X%<>0 T|HEN. |
|00003480| 52 45 50 45 41 54 0a 20 | 20 20 20 20 20 49 46 20 |REPEAT. | IF |
|00003490| 28 46 31 25 20 41 4e 44 | 20 25 30 30 30 31 29 20 |(F1% AND| %0001) |
|000034a0| 54 48 45 4e 0a 20 20 20 | 20 20 20 20 20 52 45 4d |THEN. | REM|
|000034b0| 20 43 6c 69 70 20 74 6f | 20 6c 69 6e 65 20 58 3d | Clip to| line X=|
|000034c0| 30 0a 20 20 20 20 20 20 | 20 20 49 46 20 58 31 25 |0. | IF X1%|
|000034d0| 3c 28 30 3c 3c 31 36 29 | 20 20 20 54 48 45 4e 20 |<(0<<16)| THEN |
|000034e0| 58 31 25 2b 3d 58 25 20 | 3a 20 59 31 25 2b 3d 59 |X1%+=X% |: Y1%+=Y|
|000034f0| 25 20 45 4c 53 45 20 58 | 31 25 2d 3d 58 25 20 3a |% ELSE X|1%-=X% :|
|00003500| 20 59 31 25 2d 3d 59 25 | 0a 20 20 20 20 20 20 20 | Y1%-=Y%|. |
|00003510| 20 49 46 20 28 58 31 25 | 3e 3e 31 36 29 3d 30 20 | IF (X1%|>>16)=0 |
|00003520| 20 20 54 48 45 4e 20 46 | 31 25 3d 46 31 25 20 41 | THEN F|1%=F1% A|
|00003530| 4e 44 20 4e 4f 54 20 25 | 30 30 30 31 0a 20 20 20 |ND NOT %|0001. |
|00003540| 20 20 20 45 4c 53 45 0a | 20 20 20 20 20 20 20 20 | ELSE.| |
|00003550| 49 46 20 28 46 31 25 20 | 41 4e 44 20 25 30 30 31 |IF (F1% |AND %001|
|00003560| 30 29 20 54 48 45 4e 0a | 20 20 20 20 20 20 20 20 |0) THEN.| |
|00003570| 20 20 52 45 4d 20 43 6c | 69 70 20 74 6f 20 6c 69 | REM Cl|ip to li|
|00003580| 6e 65 20 58 3d 33 31 39 | 0a 20 20 20 20 20 20 20 |ne X=319|. |
|00003590| 20 20 20 49 46 20 58 31 | 25 3e 28 33 31 39 3c 3c | IF X1|%>(319<<|
|000035a0| 31 36 29 20 54 48 45 4e | 20 58 31 25 2d 3d 58 25 |16) THEN| X1%-=X%|
|000035b0| 20 3a 20 59 31 25 2d 3d | 59 25 20 45 4c 53 45 20 | : Y1%-=|Y% ELSE |
|000035c0| 58 31 25 2b 3d 58 25 20 | 3a 20 59 31 25 2b 3d 59 |X1%+=X% |: Y1%+=Y|
|000035d0| 25 0a 20 20 20 20 20 20 | 20 20 20 20 49 46 20 28 |%. | IF (|
|000035e0| 58 31 25 3e 3e 31 36 29 | 3d 33 31 39 20 54 48 45 |X1%>>16)|=319 THE|
|000035f0| 4e 20 46 31 25 3d 46 31 | 25 20 41 4e 44 20 4e 4f |N F1%=F1|% AND NO|
|00003600| 54 20 25 30 30 31 30 0a | 20 20 20 20 20 20 20 20 |T %0010.| |
|00003610| 45 4e 44 49 46 0a 20 20 | 20 20 20 20 45 4e 44 49 |ENDIF. | ENDI|
|00003620| 46 0a 20 20 20 20 20 20 | 49 46 20 28 46 32 25 20 |F. |IF (F2% |
|00003630| 41 4e 44 20 25 30 30 30 | 31 29 20 54 48 45 4e 0a |AND %000|1) THEN.|
|00003640| 20 20 20 20 20 20 20 20 | 52 45 4d 20 43 6c 69 70 | |REM Clip|
|00003650| 20 74 6f 20 6c 69 6e 65 | 20 58 3d 30 0a 20 20 20 | to line| X=0. |
|00003660| 20 20 20 20 20 49 46 20 | 58 32 25 3c 28 30 3c 3c | IF |X2%<(0<<|
|00003670| 31 36 29 20 20 20 54 48 | 45 4e 20 58 32 25 2b 3d |16) TH|EN X2%+=|
|00003680| 58 25 20 3a 20 59 32 25 | 2b 3d 59 25 20 45 4c 53 |X% : Y2%|+=Y% ELS|
|00003690| 45 20 58 32 25 2d 3d 58 | 25 20 3a 20 59 32 25 2d |E X2%-=X|% : Y2%-|
|000036a0| 3d 59 25 0a 20 20 20 20 | 20 20 20 20 49 46 20 28 |=Y%. | IF (|
|000036b0| 58 32 25 3e 3e 31 36 29 | 3d 30 20 20 20 54 48 45 |X2%>>16)|=0 THE|
|000036c0| 4e 20 46 32 25 3d 46 32 | 25 20 41 4e 44 20 4e 4f |N F2%=F2|% AND NO|
|000036d0| 54 20 25 30 30 30 31 0a | 20 20 20 20 20 20 45 4c |T %0001.| EL|
|000036e0| 53 45 0a 20 20 20 20 20 | 20 20 20 49 46 20 28 46 |SE. | IF (F|
|000036f0| 32 25 20 41 4e 44 20 25 | 30 30 31 30 29 20 54 48 |2% AND %|0010) TH|
|00003700| 45 4e 0a 20 20 20 20 20 | 20 20 20 20 20 52 45 4d |EN. | REM|
|00003710| 20 43 6c 69 70 20 74 6f | 20 6c 69 6e 65 20 58 3d | Clip to| line X=|
|00003720| 33 31 39 0a 20 20 20 20 | 20 20 20 20 20 20 49 46 |319. | IF|
|00003730| 20 58 32 25 3e 28 33 31 | 39 3c 3c 31 36 29 20 54 | X2%>(31|9<<16) T|
|00003740| 48 45 4e 20 58 32 25 2d | 3d 58 25 20 3a 20 59 32 |HEN X2%-|=X% : Y2|
|00003750| 25 2d 3d 59 25 20 45 4c | 53 45 20 58 32 25 2b 3d |%-=Y% EL|SE X2%+=|
|00003760| 58 25 20 3a 20 59 32 25 | 2b 3d 59 25 0a 20 20 20 |X% : Y2%|+=Y%. |
|00003770| 20 20 20 20 20 20 20 49 | 46 20 28 58 32 25 3e 3e | I|F (X2%>>|
|00003780| 31 36 29 3d 33 31 39 20 | 54 48 45 4e 20 46 32 25 |16)=319 |THEN F2%|
|00003790| 3d 46 32 25 20 41 4e 44 | 20 4e 4f 54 20 25 30 30 |=F2% AND| NOT %00|
|000037a0| 31 30 0a 20 20 20 20 20 | 20 20 20 45 4e 44 49 46 |10. | ENDIF|
|000037b0| 0a 20 20 20 20 20 20 45 | 4e 44 49 46 0a 20 20 20 |. E|NDIF. |
|000037c0| 20 20 20 59 25 3d 59 25 | 3e 3e 31 0a 20 20 20 20 | Y%=Y%|>>1. |
|000037d0| 20 20 58 25 3d 58 25 3e | 3e 31 0a 20 20 20 20 20 | X%=X%>|>1. |
|000037e0| 20 49 46 20 58 25 3d 30 | 20 54 48 45 4e 20 46 31 | IF X%=0| THEN F1|
|000037f0| 25 3d 46 31 25 20 41 4e | 44 20 4e 4f 54 20 25 30 |%=F1% AN|D NOT %0|
|00003800| 30 31 31 20 3a 20 46 32 | 25 3d 46 32 25 20 41 4e |011 : F2|%=F2% AN|
|00003810| 44 20 4e 4f 54 20 25 30 | 30 31 31 0a 20 20 20 20 |D NOT %0|011. |
|00003820| 20 20 4d 25 2b 3d 31 0a | 20 20 20 20 20 20 50 52 | M%+=1.| PR|
|00003830| 4f 43 4c 69 6e 65 28 58 | 31 25 3e 3e 31 36 2c 59 |OCLine(X|1%>>16,Y|
|00003840| 31 25 3e 3e 31 36 2c 58 | 32 25 3e 3e 31 36 2c 59 |1%>>16,X|2%>>16,Y|
|00003850| 32 25 3e 3e 31 36 2c 31 | 2c 4d 25 29 0a 20 20 20 |2%>>16,1|,M%). |
|00003860| 20 55 4e 54 49 4c 20 28 | 28 46 31 25 20 4f 52 20 | UNTIL (|(F1% OR |
|00003870| 46 32 25 29 20 41 4e 44 | 20 25 30 30 31 31 29 3d |F2%) AND| %0011)=|
|00003880| 30 0a 20 20 45 4e 44 49 | 46 0a 20 20 52 45 4d 20 |0. ENDI|F. REM |
|00003890| 4c 69 6e 65 73 20 74 68 | 61 74 20 68 61 76 65 20 |Lines th|at have |
|000038a0| 6f 6e 6c 79 20 61 20 73 | 69 6e 67 6c 65 20 70 69 |only a s|ingle pi|
|000038b0| 78 65 6c 20 6f 6e 20 74 | 68 65 0a 20 20 52 45 4d |xel on t|he. REM|
|000038c0| 20 62 6f 75 6e 64 61 72 | 79 20 58 3d 30 20 6c 69 | boundar|y X=0 li|
|000038d0| 6e 65 20 63 6f 75 6c 64 | 20 68 61 76 65 20 72 6f |ne could| have ro|
|000038e0| 75 6e 64 20 6f 66 66 20 | 65 72 72 6f 72 73 0a 20 |und off |errors. |
|000038f0| 20 52 45 4d 20 54 68 69 | 73 20 69 73 20 66 6f 72 | REM Thi|s is for|
|00003900| 20 58 31 25 20 6f 6e 6c | 79 20 61 73 20 74 68 69 | X1% onl|y as thi|
|00003910| 73 20 69 73 20 6d 6f 76 | 65 64 0a 20 20 49 46 20 |s is mov|ed. IF |
|00003920| 58 31 25 3c 30 20 54 48 | 45 4e 20 58 31 25 3d 30 |X1%<0 TH|EN X1%=0|
|00003930| 0a 20 20 52 45 4d 20 55 | 70 64 61 74 65 20 6f 6c |. REM U|pdate ol|
|00003940| 64 20 63 6f 6f 72 64 73 | 20 66 6f 72 20 6e 65 61 |d coords| for nea|
|00003950| 74 65 72 20 64 69 73 70 | 6c 61 79 20 6f 66 20 63 |ter disp|lay of c|
|00003960| 6c 69 70 0a 20 20 50 52 | 4f 43 4f 6c 64 43 6f 6f |lip. PR|OCOldCoo|
|00003970| 72 64 73 28 58 31 25 3e | 3e 31 36 2c 59 31 25 3e |rds(X1%>|>16,Y1%>|
|00003980| 3e 31 36 2c 58 32 25 3e | 3e 31 36 2c 59 32 25 3e |>16,X2%>|>16,Y2%>|
|00003990| 3e 31 36 29 0a 45 4e 44 | 50 52 4f 43 0a 3a 0a 44 |>16).END|PROC.:.D|
|000039a0| 45 46 20 50 52 4f 43 43 | 6c 69 70 54 6f 59 28 52 |EF PROCC|lipToY(R|
|000039b0| 45 54 55 52 4e 20 58 31 | 25 2c 52 45 54 55 52 4e |ETURN X1|%,RETURN|
|000039c0| 20 59 31 25 2c 52 45 54 | 55 52 4e 20 58 32 25 2c | Y1%,RET|URN X2%,|
|000039d0| 52 45 54 55 52 4e 20 59 | 32 25 2c 46 31 25 2c 46 |RETURN Y|2%,F1%,F|
|000039e0| 32 25 29 0a 20 20 4c 4f | 43 41 4c 20 58 25 2c 59 |2%). LO|CAL X%,Y|
|000039f0| 25 2c 4d 25 0a 20 20 58 | 25 3d 58 32 25 3e 3e 31 |%,M%. X|%=X2%>>1|
|00003a00| 0a 20 20 58 25 2d 3d 58 | 31 25 3e 3e 31 20 3a 20 |. X%-=X|1%>>1 : |
|00003a10| 52 45 4d 20 53 75 62 64 | 69 76 69 64 65 20 58 0a |REM Subd|ivide X.|
|00003a20| 20 20 59 25 3d 59 32 25 | 3e 3e 31 0a 20 20 59 25 | Y%=Y2%|>>1. Y%|
|00003a30| 2d 3d 59 31 25 3e 3e 31 | 20 3a 20 52 45 4d 20 53 |-=Y1%>>1| : REM S|
|00003a40| 75 62 64 69 76 69 64 65 | 20 59 0a 20 20 49 46 20 |ubdivide| Y. IF |
|00003a50| 59 25 3c 3e 30 20 54 48 | 45 4e 0a 20 20 20 20 49 |Y%<>0 TH|EN. I|
|00003a60| 46 20 59 25 3c 30 20 54 | 48 45 4e 20 59 25 3d 30 |F Y%<0 T|HEN Y%=0|
|00003a70| 2d 59 25 20 3a 20 58 25 | 3d 30 2d 58 25 0a 20 20 |-Y% : X%|=0-X%. |
|00003a80| 20 20 52 45 50 45 41 54 | 0a 20 20 20 20 20 20 49 | REPEAT|. I|
|00003a90| 46 20 28 46 31 25 20 41 | 4e 44 20 25 30 31 30 30 |F (F1% A|ND %0100|
|00003aa0| 29 20 54 48 45 4e 0a 20 | 20 20 20 20 20 20 20 52 |) THEN. | R|
|00003ab0| 45 4d 20 43 6c 69 70 20 | 74 6f 20 6c 69 6e 65 20 |EM Clip |to line |
|00003ac0| 59 3d 30 0a 20 20 20 20 | 20 20 20 20 49 46 20 59 |Y=0. | IF Y|
|00003ad0| 31 25 3c 28 30 3c 3c 31 | 36 29 20 20 20 54 48 45 |1%<(0<<1|6) THE|
|00003ae0| 4e 20 58 31 25 2b 3d 58 | 25 20 3a 20 59 31 25 2b |N X1%+=X|% : Y1%+|
|00003af0| 3d 59 25 20 45 4c 53 45 | 20 58 31 25 2d 3d 58 25 |=Y% ELSE| X1%-=X%|
|00003b00| 20 3a 20 59 31 25 2d 3d | 59 25 0a 20 20 20 20 20 | : Y1%-=|Y%. |
|00003b10| 20 20 20 49 46 20 28 59 | 31 25 3e 3e 31 36 29 3d | IF (Y|1%>>16)=|
|00003b20| 30 20 20 20 54 48 45 4e | 20 46 31 25 3d 46 31 25 |0 THEN| F1%=F1%|
|00003b30| 20 41 4e 44 20 4e 4f 54 | 20 25 30 31 30 30 0a 20 | AND NOT| %0100. |
|00003b40| 20 20 20 20 20 45 4c 53 | 45 0a 20 20 20 20 20 20 | ELS|E. |
|00003b50| 20 20 49 46 20 28 46 31 | 25 20 41 4e 44 20 25 31 | IF (F1|% AND %1|
|00003b60| 30 30 30 29 20 54 48 45 | 4e 0a 20 20 20 20 20 20 |000) THE|N. |
|00003b70| 20 20 20 20 52 45 4d 20 | 43 6c 69 70 20 74 6f 20 | REM |Clip to |
|00003b80| 6c 69 6e 65 20 59 3d 32 | 35 35 0a 20 20 20 20 20 |line Y=2|55. |
|00003b90| 20 20 20 20 20 49 46 20 | 59 31 25 3e 28 32 35 35 | IF |Y1%>(255|
|00003ba0| 3c 3c 31 36 29 20 54 48 | 45 4e 20 58 31 25 2d 3d |<<16) TH|EN X1%-=|
|00003bb0| 58 25 20 3a 20 59 31 25 | 2d 3d 59 25 20 45 4c 53 |X% : Y1%|-=Y% ELS|
|00003bc0| 45 20 58 31 25 2b 3d 58 | 25 20 3a 20 59 31 25 2b |E X1%+=X|% : Y1%+|
|00003bd0| 3d 59 25 0a 20 20 20 20 | 20 20 20 20 20 20 49 46 |=Y%. | IF|
|00003be0| 20 28 59 31 25 3e 3e 31 | 36 29 3d 32 35 35 20 54 | (Y1%>>1|6)=255 T|
|00003bf0| 48 45 4e 20 46 31 25 3d | 46 31 25 20 41 4e 44 20 |HEN F1%=|F1% AND |
|00003c00| 4e 4f 54 20 25 31 30 30 | 30 0a 20 20 20 20 20 20 |NOT %100|0. |
|00003c10| 20 20 45 4e 44 49 46 0a | 20 20 20 20 20 20 45 4e | ENDIF.| EN|
|00003c20| 44 49 46 0a 20 20 20 20 | 20 20 49 46 20 28 46 32 |DIF. | IF (F2|
|00003c30| 25 20 41 4e 44 20 25 30 | 31 30 30 29 20 54 48 45 |% AND %0|100) THE|
|00003c40| 4e 0a 20 20 20 20 20 20 | 20 20 52 45 4d 20 43 6c |N. | REM Cl|
|00003c50| 69 70 20 74 6f 20 6c 69 | 6e 65 20 59 3d 30 0a 20 |ip to li|ne Y=0. |
|00003c60| 20 20 20 20 20 20 20 49 | 46 20 59 32 25 3c 28 30 | I|F Y2%<(0|
|00003c70| 3c 3c 31 36 29 20 20 20 | 54 48 45 4e 20 58 32 25 |<<16) |THEN X2%|
|00003c80| 2b 3d 58 25 20 3a 20 59 | 32 25 2b 3d 59 25 20 45 |+=X% : Y|2%+=Y% E|
|00003c90| 4c 53 45 20 58 32 25 2d | 3d 58 25 20 3a 20 59 32 |LSE X2%-|=X% : Y2|
|00003ca0| 25 2d 3d 59 25 0a 20 20 | 20 20 20 20 20 20 49 46 |%-=Y%. | IF|
|00003cb0| 20 28 59 32 25 3e 3e 31 | 36 29 3d 30 20 20 20 54 | (Y2%>>1|6)=0 T|
|00003cc0| 48 45 4e 20 46 32 25 3d | 46 32 25 20 41 4e 44 20 |HEN F2%=|F2% AND |
|00003cd0| 4e 4f 54 20 25 30 31 30 | 30 0a 20 20 20 20 20 20 |NOT %010|0. |
|00003ce0| 45 4c 53 45 0a 20 20 20 | 20 20 20 20 20 49 46 20 |ELSE. | IF |
|00003cf0| 28 46 32 25 20 41 4e 44 | 20 25 31 30 30 30 29 20 |(F2% AND| %1000) |
|00003d00| 54 48 45 4e 0a 20 20 20 | 20 20 20 20 20 20 20 52 |THEN. | R|
|00003d10| 45 4d 20 43 6c 69 70 20 | 74 6f 20 6c 69 6e 65 20 |EM Clip |to line |
|00003d20| 59 3d 32 35 35 0a 20 20 | 20 20 20 20 20 20 20 20 |Y=255. | |
|00003d30| 49 46 20 59 32 25 3e 28 | 32 35 35 3c 3c 31 36 29 |IF Y2%>(|255<<16)|
|00003d40| 20 54 48 45 4e 20 58 32 | 25 2d 3d 58 25 20 3a 20 | THEN X2|%-=X% : |
|00003d50| 59 32 25 2d 3d 59 25 20 | 45 4c 53 45 20 58 32 25 |Y2%-=Y% |ELSE X2%|
|00003d60| 2b 3d 58 25 20 3a 20 59 | 32 25 2b 3d 59 25 0a 20 |+=X% : Y|2%+=Y%. |
|00003d70| 20 20 20 20 20 20 20 20 | 20 49 46 20 28 59 32 25 | | IF (Y2%|
|00003d80| 3e 3e 31 36 29 3d 32 35 | 35 20 54 48 45 4e 20 46 |>>16)=25|5 THEN F|
|00003d90| 32 25 3d 46 32 25 20 41 | 4e 44 20 4e 4f 54 20 25 |2%=F2% A|ND NOT %|
|00003da0| 31 30 30 30 0a 20 20 20 | 20 20 20 20 20 45 4e 44 |1000. | END|
|00003db0| 49 46 0a 20 20 20 20 20 | 20 45 4e 44 49 46 0a 20 |IF. | ENDIF. |
|00003dc0| 20 20 20 20 20 58 25 3d | 58 25 3e 3e 31 0a 20 20 | X%=|X%>>1. |
|00003dd0| 20 20 20 20 59 25 3d 59 | 25 3e 3e 31 0a 20 20 20 | Y%=Y|%>>1. |
|00003de0| 20 20 20 49 46 20 59 25 | 3c 3d 30 20 54 48 45 4e | IF Y%|<=0 THEN|
|00003df0| 20 46 31 25 3d 46 31 25 | 20 41 4e 44 20 4e 4f 54 | F1%=F1%| AND NOT|
|00003e00| 20 25 31 31 30 30 20 3a | 20 46 32 25 3d 46 32 25 | %1100 :| F2%=F2%|
|00003e10| 20 41 4e 44 20 4e 4f 54 | 20 25 31 31 30 30 0a 20 | AND NOT| %1100. |
|00003e20| 20 20 20 20 20 4d 25 2b | 3d 31 0a 20 20 20 20 20 | M%+|=1. |
|00003e30| 20 50 52 4f 43 4c 69 6e | 65 28 58 31 25 3e 3e 31 | PROCLin|e(X1%>>1|
|00003e40| 36 2c 59 31 25 3e 3e 31 | 36 2c 58 32 25 3e 3e 31 |6,Y1%>>1|6,X2%>>1|
|00003e50| 36 2c 59 32 25 3e 3e 31 | 36 2c 31 2c 4d 25 29 0a |6,Y2%>>1|6,1,M%).|
|00003e60| 20 20 20 20 55 4e 54 49 | 4c 20 28 28 46 31 25 20 | UNTI|L ((F1% |
|00003e70| 4f 52 20 46 32 25 29 20 | 41 4e 44 20 25 31 31 30 |OR F2%) |AND %110|
|00003e80| 30 29 3d 30 0a 20 20 45 | 4e 44 49 46 0a 20 20 52 |0)=0. E|NDIF. R|
|00003e90| 45 4d 20 4c 69 6e 65 73 | 20 74 68 61 74 20 68 61 |EM Lines| that ha|
|00003ea0| 76 65 20 6f 6e 6c 79 20 | 61 20 73 69 6e 67 6c 65 |ve only |a single|
|00003eb0| 20 70 69 78 65 6c 20 6f | 6e 20 74 68 65 0a 20 20 | pixel o|n the. |
|00003ec0| 52 45 4d 20 62 6f 75 6e | 64 61 72 79 20 59 3d 30 |REM boun|dary Y=0|
|00003ed0| 20 6c 69 6e 65 20 63 6f | 75 6c 64 20 68 61 76 65 | line co|uld have|
|00003ee0| 20 72 6f 75 6e 64 20 6f | 66 66 20 65 72 72 6f 72 | round o|ff error|
|00003ef0| 73 0a 20 20 52 45 4d 20 | 54 68 69 73 20 69 73 20 |s. REM |This is |
|00003f00| 66 6f 72 20 74 68 65 20 | 6c 6f 77 65 73 74 20 59 |for the |lowest Y|
|00003f10| 20 6f 6e 6c 79 20 61 73 | 20 74 68 69 73 20 69 73 | only as| this is|
|00003f20| 20 6d 6f 76 65 64 2c 0a | 20 20 52 45 4d 20 68 6f | moved,.| REM ho|
|00003f30| 77 65 76 65 72 20 49 20 | 64 6f 6e 27 74 20 6b 6e |wever I |don't kn|
|00003f40| 6f 77 20 61 74 20 74 68 | 69 73 20 70 6f 69 6e 74 |ow at th|is point|
|00003f50| 20 77 68 69 63 68 20 6f | 6e 65 20 69 74 20 69 73 | which o|ne it is|
|00003f60| 0a 20 20 49 46 20 59 31 | 25 3c 30 20 54 48 45 4e |. IF Y1|%<0 THEN|
|00003f70| 20 59 31 25 3d 30 0a 20 | 20 49 46 20 59 32 25 3c | Y1%=0. | IF Y2%<|
|00003f80| 30 20 54 48 45 4e 20 59 | 32 25 3d 30 0a 20 20 49 |0 THEN Y|2%=0. I|
|00003f90| 46 20 58 31 25 3c 30 20 | 54 48 45 4e 20 58 31 25 |F X1%<0 |THEN X1%|
|00003fa0| 3d 30 0a 20 20 49 46 20 | 58 32 25 3c 30 20 54 48 |=0. IF |X2%<0 TH|
|00003fb0| 45 4e 20 58 32 25 3d 30 | 0a 20 20 52 45 4d 20 55 |EN X2%=0|. REM U|
|00003fc0| 70 64 61 74 65 20 6f 6c | 64 20 63 6f 6f 72 64 73 |pdate ol|d coords|
|00003fd0| 20 66 6f 72 20 6e 65 61 | 74 65 72 20 64 69 73 70 | for nea|ter disp|
|00003fe0| 6c 61 79 20 6f 66 20 63 | 6c 69 70 0a 20 20 50 52 |lay of c|lip. PR|
|00003ff0| 4f 43 4f 6c 64 43 6f 6f | 72 64 73 28 58 31 25 3e |OCOldCoo|rds(X1%>|
|00004000| 3e 31 36 2c 59 31 25 3e | 3e 31 36 2c 58 32 25 3e |>16,Y1%>|>16,X2%>|
|00004010| 3e 31 36 2c 59 32 25 3e | 3e 31 36 29 0a 45 4e 44 |>16,Y2%>|>16).END|
|00004020| 50 52 4f 43 0a 3a 0a 44 | 45 46 20 50 52 4f 43 4c |PROC.:.D|EF PROCL|
|00004030| 69 6e 65 28 58 31 25 2c | 59 31 25 2c 58 32 25 2c |ine(X1%,|Y1%,X2%,|
|00004040| 59 32 25 2c 43 25 2c 4d | 25 29 0a 20 20 52 45 4d |Y2%,C%,M|%). REM|
|00004050| 20 43 25 20 3d 20 30 20 | 72 65 6a 65 63 74 65 64 | C% = 0 |rejected|
|00004060| 2c 20 31 20 70 72 6f 63 | 65 73 73 69 6e 67 2c 20 |, 1 proc|essing, |
|00004070| 32 20 63 6c 69 70 70 65 | 64 0a 20 20 52 45 4d 20 |2 clippe|d. REM |
|00004080| 4d 25 20 3d 20 76 61 72 | 69 61 62 6c 65 20 74 6f |M% = var|iable to|
|00004090| 20 70 72 69 6e 74 20 28 | 30 2e 2e 32 35 35 29 0a | print (|0..255).|
|000040a0| 20 20 52 45 4d 20 4e 65 | 65 64 73 20 50 25 2c 20 | REM Ne|eds P%, |
|000040b0| 53 25 20 61 6e 64 20 57 | 25 20 61 73 20 67 6c 6f |S% and W|% as glo|
|000040c0| 62 61 6c 20 76 61 72 73 | 20 28 70 72 6f 63 65 73 |bal vars| (proces|
|000040d0| 73 2c 20 73 6c 6f 77 2c | 20 77 61 69 74 29 0a 20 |s, slow,| wait). |
|000040e0| 20 43 41 53 45 20 43 25 | 20 4f 46 0a 20 20 57 48 | CASE C%| OF. WH|
|000040f0| 45 4e 20 30 0a 20 20 20 | 20 49 46 20 47 25 20 54 |EN 0. | IF G% T|
|00004100| 48 45 4e 0a 20 20 20 20 | 20 20 50 52 4f 43 43 4c |HEN. | PROCCL|
|00004110| 69 6e 65 28 58 31 25 2c | 59 31 25 2c 58 32 25 2c |ine(X1%,|Y1%,X2%,|
|00004120| 59 32 25 2c 31 29 0a 20 | 20 20 20 20 20 50 52 4f |Y2%,1). | PRO|
|00004130| 43 54 65 78 74 28 22 52 | 65 6a 65 63 74 69 6e 67 |CText("R|ejecting|
|00004140| 20 20 22 2b 46 4e 43 6f | 6f 72 64 73 28 58 31 25 | "+FNCo|ords(X1%|
|00004150| 2c 59 31 25 2c 58 32 25 | 2c 59 32 25 29 29 0a 20 |,Y1%,X2%|,Y2%)). |
|00004160| 20 20 20 20 20 49 46 20 | 57 25 20 54 48 45 4e 0a | IF |W% THEN.|
|00004170| 20 20 20 20 20 20 20 20 | 49 46 20 53 25 20 54 48 | |IF S% TH|
|00004180| 45 4e 20 50 52 4f 43 57 | 61 69 74 28 31 35 30 29 |EN PROCW|ait(150)|
|00004190| 20 45 4c 53 45 20 50 52 | 4f 43 57 61 69 74 28 37 | ELSE PR|OCWait(7|
|000041a0| 35 29 0a 20 20 20 20 20 | 20 45 4e 44 49 46 0a 20 |5). | ENDIF. |
|000041b0| 20 20 20 45 4c 53 45 0a | 20 20 20 20 20 20 50 52 | ELSE.| PR|
|000041c0| 4f 43 54 65 78 74 28 22 | 52 65 6a 65 63 74 69 6e |OCText("|Rejectin|
|000041d0| 67 22 29 0a 20 20 20 20 | 45 4e 44 49 46 0a 20 20 |g"). |ENDIF. |
|000041e0| 57 48 45 4e 20 31 0a 20 | 20 20 20 49 46 20 50 25 |WHEN 1. | IF P%|
|000041f0| 20 54 48 45 4e 0a 20 20 | 20 20 20 20 49 46 20 47 | THEN. | IF G|
|00004200| 25 20 54 48 45 4e 0a 20 | 20 20 20 20 20 20 20 50 |% THEN. | P|
|00004210| 52 4f 43 43 4c 69 6e 65 | 28 58 31 25 2c 59 31 25 |ROCCLine|(X1%,Y1%|
|00004220| 2c 58 32 25 2c 59 32 25 | 2c 32 29 0a 20 20 20 20 |,X2%,Y2%|,2). |
|00004230| 20 20 20 20 50 52 4f 43 | 54 65 78 74 28 22 50 72 | PROC|Text("Pr|
|00004240| 6f 63 65 73 73 69 6e 67 | 20 22 2b 46 4e 43 6f 6f |ocessing| "+FNCoo|
|00004250| 72 64 73 28 58 31 25 2c | 59 31 25 2c 58 32 25 2c |rds(X1%,|Y1%,X2%,|
|00004260| 59 32 25 29 2b 22 20 22 | 2b 53 54 52 24 28 4d 25 |Y2%)+" "|+STR$(M%|
|00004270| 29 29 0a 20 20 20 20 20 | 20 20 20 49 46 20 53 25 |)). | IF S%|
|00004280| 20 54 48 45 4e 20 50 52 | 4f 43 57 61 69 74 28 35 | THEN PR|OCWait(5|
|00004290| 30 29 20 45 4c 53 45 20 | 50 52 4f 43 57 61 69 74 |0) ELSE |PROCWait|
|000042a0| 28 32 35 29 0a 20 20 20 | 20 20 20 45 4c 53 45 0a |(25). | ELSE.|
|000042b0| 20 20 20 20 20 20 20 20 | 50 52 4f 43 54 65 78 74 | |PROCText|
|000042c0| 28 22 50 72 6f 63 65 73 | 73 69 6e 67 22 29 0a 20 |("Proces|sing"). |
|000042d0| 20 20 20 20 20 45 4e 44 | 49 46 0a 20 20 20 20 45 | END|IF. E|
|000042e0| 4e 44 49 46 0a 20 20 57 | 48 45 4e 20 32 0a 20 20 |NDIF. W|HEN 2. |
|000042f0| 20 20 49 46 20 47 25 20 | 54 48 45 4e 0a 20 20 20 | IF G% |THEN. |
|00004300| 20 20 20 50 52 4f 43 43 | 4c 69 6e 65 28 58 31 25 | PROCC|Line(X1%|
|00004310| 2c 59 31 25 2c 58 32 25 | 2c 59 32 25 2c 37 29 0a |,Y1%,X2%|,Y2%,7).|
|00004320| 20 20 20 20 20 20 50 52 | 4f 43 54 65 78 74 28 22 | PR|OCText("|
|00004330| 44 72 61 77 69 6e 67 20 | 20 20 20 22 2b 46 4e 43 |Drawing | "+FNC|
|00004340| 6f 6f 72 64 73 28 58 31 | 25 2c 59 31 25 2c 58 32 |oords(X1|%,Y1%,X2|
|00004350| 25 2c 59 32 25 29 29 0a | 20 20 20 20 20 20 49 46 |%,Y2%)).| IF|
|00004360| 20 57 25 20 54 48 45 4e | 0a 20 20 20 20 20 20 20 | W% THEN|. |
|00004370| 20 49 46 20 53 25 20 54 | 48 45 4e 20 50 52 4f 43 | IF S% T|HEN PROC|
|00004380| 57 61 69 74 28 31 35 30 | 29 20 45 4c 53 45 20 50 |Wait(150|) ELSE P|
|00004390| 52 4f 43 57 61 69 74 28 | 37 35 29 0a 20 20 20 20 |ROCWait(|75). |
|000043a0| 20 20 45 4e 44 49 46 0a | 20 20 20 20 45 4c 53 45 | ENDIF.| ELSE|
|000043b0| 0a 20 20 20 20 20 20 50 | 52 4f 43 54 65 78 74 28 |. P|ROCText(|
|000043c0| 22 44 72 61 77 69 6e 67 | 22 29 0a 20 20 20 20 45 |"Drawing|"). E|
|000043d0| 4e 44 49 46 0a 20 20 20 | 20 52 45 4d 20 4e 65 78 |NDIF. | REM Nex|
|000043e0| 74 20 69 73 20 6a 75 73 | 74 20 61 20 74 65 73 74 |t is jus|t a test|
|000043f0| 20 74 6f 20 63 68 65 63 | 6b 20 69 66 0a 20 20 20 | to chec|k if. |
|00004400| 20 52 45 4d 20 74 68 65 | 20 6c 69 6e 65 20 77 61 | REM the| line wa|
|00004410| 73 20 63 6f 72 72 65 63 | 74 6c 79 20 63 6c 69 70 |s correc|tly clip|
|00004420| 70 65 64 0a 20 20 20 20 | 50 52 4f 43 50 72 65 70 |ped. |PROCPrep|
|00004430| 28 58 31 25 2c 59 31 25 | 2c 58 32 25 2c 59 32 25 |(X1%,Y1%|,X2%,Y2%|
|00004440| 2c 46 31 25 2c 46 32 25 | 29 0a 20 20 20 20 49 46 |,F1%,F2%|). IF|
|00004450| 20 28 46 31 25 20 4f 52 | 20 46 32 25 29 3c 3e 30 | (F1% OR| F2%)<>0|
|00004460| 20 54 48 45 4e 0a 20 20 | 20 20 20 20 52 45 4d 20 | THEN. | REM |
|00004470| 54 68 69 73 20 65 72 72 | 6f 72 20 73 68 6f 75 6c |This err|or shoul|
|00004480| 64 20 6e 65 76 65 72 20 | 68 61 70 70 65 6e 20 61 |d never |happen a|
|00004490| 73 20 69 74 0a 20 20 20 | 20 20 20 52 45 4d 20 77 |s it. | REM w|
|000044a0| 69 6c 6c 20 72 65 73 75 | 6c 74 20 69 6e 20 61 64 |ill resu|lt in ad|
|000044b0| 64 72 65 73 73 20 65 78 | 63 65 70 74 69 6f 6e 73 |dress ex|ceptions|
|000044c0| 20 6c 61 74 65 72 0a 20 | 20 20 20 20 20 45 52 52 | later. | ERR|
|000044d0| 4f 52 20 31 38 2c 22 45 | 72 72 6f 72 20 66 6f 72 |OR 18,"E|rror for|
|000044e0| 20 20 22 2b 46 4e 43 6f | 6f 72 64 73 28 58 31 25 | "+FNCo|ords(X1%|
|000044f0| 2c 59 31 25 2c 58 32 25 | 2c 59 32 25 29 0a 20 20 |,Y1%,X2%|,Y2%). |
|00004500| 20 20 45 4e 44 49 46 0a | 20 20 45 4e 44 43 41 53 | ENDIF.| ENDCAS|
|00004510| 45 0a 45 4e 44 50 52 4f | 43 0a 3a 0a 44 45 46 20 |E.ENDPRO|C.:.DEF |
|00004520| 50 52 4f 43 43 4c 69 6e | 65 28 58 31 25 2c 59 31 |PROCCLin|e(X1%,Y1|
|00004530| 25 2c 58 32 25 2c 59 32 | 25 2c 43 25 29 0a 20 20 |%,X2%,Y2|%,C%). |
|00004540| 52 45 4d 20 4e 65 65 64 | 73 20 4f 58 31 25 2c 4f |REM Need|s OX1%,O|
|00004550| 59 31 25 2c 4f 58 32 25 | 2c 4f 59 32 25 20 61 73 |Y1%,OX2%|,OY2% as|
|00004560| 20 67 6c 6f 62 61 6c 20 | 76 61 72 73 20 28 63 6f | global |vars (co|
|00004570| 6f 72 64 73 29 0a 20 20 | 43 4c 53 0a 20 20 4f 46 |ords). |CLS. OF|
|00004580| 46 0a 20 20 4f 52 49 47 | 49 4e 20 33 32 30 2c 32 |F. ORIG|IN 320,2|
|00004590| 35 36 0a 20 20 47 43 4f | 4c 20 30 2c 35 20 3a 20 |56. GCO|L 0,5 : |
|000045a0| 52 45 4d 20 4d 61 67 65 | 6e 74 61 0a 20 20 52 45 |REM Mage|nta. RE|
|000045b0| 43 54 41 4e 47 4c 45 20 | 30 2c 30 2c 33 31 39 3c |CTANGLE |0,0,319<|
|000045c0| 3c 31 2c 32 35 35 3c 3c | 31 0a 20 20 47 43 4f 4c |<1,255<<|1. GCOL|
|000045d0| 20 30 2c 34 20 3a 20 52 | 45 4d 20 42 6c 75 65 0a | 0,4 : R|EM Blue.|
|000045e0| 20 20 4c 49 4e 45 20 4f | 58 31 25 3c 3c 31 2c 4f | LINE O|X1%<<1,O|
|000045f0| 59 31 25 3c 3c 31 2c 4f | 58 32 25 3c 3c 31 2c 4f |Y1%<<1,O|X2%<<1,O|
|00004600| 59 32 25 3c 3c 31 0a 20 | 20 47 43 4f 4c 20 30 2c |Y2%<<1. | GCOL 0,|
|00004610| 43 25 20 3a 20 52 45 4d | 20 43 6f 6c 6f 75 72 0a |C% : REM| Colour.|
|00004620| 20 20 4c 49 4e 45 20 58 | 31 25 3c 3c 31 2c 59 31 | LINE X|1%<<1,Y1|
|00004630| 25 3c 3c 31 2c 58 32 25 | 3c 3c 31 2c 59 32 25 3c |%<<1,X2%|<<1,Y2%<|
|00004640| 3c 31 0a 45 4e 44 50 52 | 4f 43 0a 3a 0a 44 45 46 |<1.ENDPR|OC.:.DEF|
|00004650| 20 50 52 4f 43 54 65 78 | 74 28 54 24 29 0a 20 20 | PROCTex|t(T$). |
|00004660| 52 45 4d 20 4e 65 65 64 | 73 20 54 25 20 61 6e 64 |REM Need|s T% and|
|00004670| 20 4e 25 20 61 73 20 67 | 6c 6f 62 61 6c 20 76 61 | N% as g|lobal va|
|00004680| 72 73 20 28 74 65 78 74 | 2c 20 6c 69 6e 65 29 0a |rs (text|, line).|
|00004690| 20 20 50 52 49 4e 54 54 | 41 42 28 30 2c 30 29 3b | PRINTT|AB(0,0);|
|000046a0| 54 24 3b 53 54 52 49 4e | 47 24 28 38 30 2d 28 4c |T$;STRIN|G$(80-(L|
|000046b0| 45 4e 28 54 24 29 2b 4c | 45 4e 28 53 54 52 24 28 |EN(T$)+L|EN(STR$(|
|000046c0| 4e 25 29 29 29 2c 22 20 | 22 29 3b 53 54 52 24 28 |N%)))," |");STR$(|
|000046d0| 4e 25 29 0a 45 4e 44 50 | 52 4f 43 0a 3a 0a 44 45 |N%).ENDP|ROC.:.DE|
|000046e0| 46 20 46 4e 43 6f 6f 72 | 64 73 28 58 31 25 2c 59 |F FNCoor|ds(X1%,Y|
|000046f0| 31 25 2c 58 32 25 2c 59 | 32 25 29 0a 20 20 4c 4f |1%,X2%,Y|2%). LO|
|00004700| 43 41 4c 20 53 24 0a 20 | 20 53 24 20 3d 22 28 22 |CAL S$. | S$ ="("|
|00004710| 0a 20 20 53 24 2b 3d 43 | 48 52 24 28 41 53 43 28 |. S$+=C|HR$(ASC(|
|00004720| 22 20 22 29 2b 28 41 53 | 43 28 22 2d 22 29 2d 41 |" ")+(AS|C("-")-A|
|00004730| 53 43 28 22 20 22 29 29 | 2a 41 42 53 28 53 47 4e |SC(" "))|*ABS(SGN|
|00004740| 28 58 31 25 3c 3c 32 29 | 3c 30 29 29 0a 20 20 53 |(X1%<<2)|<0)). S|
|00004750| 24 2b 3d 52 49 47 48 54 | 24 28 22 30 30 30 30 30 |$+=RIGHT|$("00000|
|00004760| 22 2b 53 54 52 24 28 41 | 42 53 28 58 31 25 3c 3c |"+STR$(A|BS(X1%<<|
|00004770| 32 29 29 2c 35 29 0a 20 | 20 53 24 2b 3d 22 2c 22 |2)),5). | S$+=","|
|00004780| 0a 20 20 53 24 2b 3d 43 | 48 52 24 28 41 53 43 28 |. S$+=C|HR$(ASC(|
|00004790| 22 20 22 29 2b 28 41 53 | 43 28 22 2d 22 29 2d 41 |" ")+(AS|C("-")-A|
|000047a0| 53 43 28 22 20 22 29 29 | 2a 41 42 53 28 53 47 4e |SC(" "))|*ABS(SGN|
|000047b0| 28 59 31 25 3c 3c 32 29 | 3c 30 29 29 0a 20 20 53 |(Y1%<<2)|<0)). S|
|000047c0| 24 2b 3d 52 49 47 48 54 | 24 28 22 30 30 30 30 30 |$+=RIGHT|$("00000|
|000047d0| 22 2b 53 54 52 24 28 41 | 42 53 28 59 31 25 3c 3c |"+STR$(A|BS(Y1%<<|
|000047e0| 32 29 29 2c 35 29 0a 20 | 20 53 24 2b 3d 22 2c 22 |2)),5). | S$+=","|
|000047f0| 0a 20 20 53 24 2b 3d 43 | 48 52 24 28 41 53 43 28 |. S$+=C|HR$(ASC(|
|00004800| 22 20 22 29 2b 28 41 53 | 43 28 22 2d 22 29 2d 41 |" ")+(AS|C("-")-A|
|00004810| 53 43 28 22 20 22 29 29 | 2a 41 42 53 28 53 47 4e |SC(" "))|*ABS(SGN|
|00004820| 28 58 32 25 3c 3c 32 29 | 3c 30 29 29 0a 20 20 53 |(X2%<<2)|<0)). S|
|00004830| 24 2b 3d 52 49 47 48 54 | 24 28 22 30 30 30 30 30 |$+=RIGHT|$("00000|
|00004840| 22 2b 53 54 52 24 28 41 | 42 53 28 58 32 25 3c 3c |"+STR$(A|BS(X2%<<|
|00004850| 32 29 29 2c 35 29 0a 20 | 20 53 24 2b 3d 22 2c 22 |2)),5). | S$+=","|
|00004860| 0a 20 20 53 24 2b 3d 43 | 48 52 24 28 41 53 43 28 |. S$+=C|HR$(ASC(|
|00004870| 22 20 22 29 2b 28 41 53 | 43 28 22 2d 22 29 2d 41 |" ")+(AS|C("-")-A|
|00004880| 53 43 28 22 20 22 29 29 | 2a 41 42 53 28 53 47 4e |SC(" "))|*ABS(SGN|
|00004890| 28 59 32 25 3c 3c 32 29 | 3c 30 29 29 0a 20 20 53 |(Y2%<<2)|<0)). S|
|000048a0| 24 2b 3d 52 49 47 48 54 | 24 28 22 30 30 30 30 30 |$+=RIGHT|$("00000|
|000048b0| 22 2b 53 54 52 24 28 41 | 42 53 28 59 32 25 3c 3c |"+STR$(A|BS(Y2%<<|
|000048c0| 32 29 29 2c 35 29 0a 20 | 20 53 24 2b 3d 22 29 22 |2)),5). | S$+=")"|
|000048d0| 0a 3d 53 24 0a 3a 0a 44 | 45 46 20 50 52 4f 43 4f |.=S$.:.D|EF PROCO|
|000048e0| 6c 64 43 6f 6f 72 64 73 | 28 58 31 25 2c 59 31 25 |ldCoords|(X1%,Y1%|
|000048f0| 2c 58 32 25 2c 59 32 25 | 29 0a 20 20 52 45 4d 20 |,X2%,Y2%|). REM |
|00004900| 53 65 74 20 67 6c 6f 62 | 61 6c 20 6f 6c 64 20 63 |Set glob|al old c|
|00004910| 6f 6f 72 64 73 20 66 6f | 72 20 66 69 72 73 74 20 |oords fo|r first |
|00004920| 63 6c 69 70 20 61 6e 64 | 20 73 65 63 6f 6e 64 20 |clip and| second |
|00004930| 63 6c 69 70 0a 20 20 4f | 58 31 25 3d 58 31 25 0a |clip. O|X1%=X1%.|
|00004940| 20 20 4f 59 31 25 3d 59 | 31 25 0a 20 20 4f 58 32 | OY1%=Y|1%. OX2|
|00004950| 25 3d 58 32 25 0a 20 20 | 4f 59 32 25 3d 59 32 25 |%=X2%. |OY2%=Y2%|
|00004960| 0a 45 4e 44 50 52 4f 43 | 0a 3a 0a 44 45 46 20 50 |.ENDPROC|.:.DEF P|
|00004970| 52 4f 43 57 61 69 74 28 | 54 25 29 0a 20 20 4c 4f |ROCWait(|T%). LO|
|00004980| 43 41 4c 20 44 25 0a 20 | 20 49 46 20 4e 4f 54 20 |CAL D%. | IF NOT |
|00004990| 49 4e 4b 45 59 28 2d 31 | 29 20 54 48 45 4e 0a 20 |INKEY(-1|) THEN. |
|000049a0| 20 20 20 44 25 3d 49 4e | 4b 45 59 28 54 25 29 0a | D%=IN|KEY(T%).|
|000049b0| 20 20 45 4e 44 49 46 0a | 45 4e 44 50 52 4f 43 0a | ENDIF.|ENDPROC.|
|000049c0| 3a 0a 46 69 6c 65 44 61 | 74 61 82 4c 69 6e 65 00 |:.FileDa|ta.Line.|
|000049d0| 00 00 00 76 00 ff 88 9d | 00 00 43 ff ff ff 98 3a |...v....|..C....:|
|000049e0| 45 26 03 00 1e 86 52 45 | 4d 20 3e 20 3c 47 72 61 |E&....RE|M > <Gra|
|000049f0| 70 68 69 63 73 24 44 69 | 72 3e 2e 4c 69 6e 65 20 |phics$Di|r>.Line |
|00004a00| 64 72 61 77 20 72 6f 75 | 74 69 6e 65 20 66 6f 72 |draw rou|tine for|
|00004a10| 20 38 20 62 70 70 20 6d | 6f 64 65 73 0a 52 45 4d | 8 bpp m|odes.REM|
|00004a20| 0a 52 45 4d 20 56 65 72 | 73 69 6f 6e 20 31 2e 30 |.REM Ver|sion 1.0|
|00004a30| 34 20 a9 20 4a 61 6e 2d | 48 65 72 6d 61 6e 20 42 |4 . Jan-|Herman B|
|00004a40| 75 69 6e 69 6e 67 20 28 | 32 34 2d 4d 61 79 2d 31 |uining (|24-May-1|
|00004a50| 39 39 31 29 0a 52 45 4d | 0a 52 45 4d 20 46 6f 72 |991).REM|.REM For|
|00004a60| 20 6f 6e 65 20 62 79 74 | 65 20 70 65 72 20 70 69 | one byt|e per pi|
|00004a70| 78 65 6c 20 73 63 72 65 | 65 6e 20 6d 6f 64 65 73 |xel scre|en modes|
|00004a80| 20 6f 6e 6c 79 0a 52 45 | 4d 0a 3a 0a 52 45 4d 20 | only.RE|M.:.REM |
|00004a90| 53 63 72 65 65 6e 20 6d | 6f 64 65 2c 20 62 6f 75 |Screen m|ode, bou|
|00004aa0| 6e 64 61 72 69 65 73 2c | 20 73 69 7a 65 20 61 6e |ndaries,| size an|
|00004ab0| 64 20 72 65 73 6f 6c 75 | 74 69 6f 6e 0a 4d 4f 44 |d resolu|tion.MOD|
|00004ac0| 45 20 20 20 31 33 20 20 | 20 20 20 20 20 3a 20 52 |E 13 | : R|
|00004ad0| 45 4d 20 53 63 72 65 65 | 6e 20 6d 6f 64 65 0a 58 |EM Scree|n mode.X|
|00004ae0| 53 68 69 66 74 3d 32 20 | 20 20 20 20 20 20 20 3a |Shift=2 | :|
|00004af0| 20 52 45 4d 20 58 20 70 | 69 78 65 6c 20 73 68 69 | REM X p|ixel shi|
|00004b00| 66 74 20 66 61 63 74 6f | 72 0a 59 53 68 69 66 74 |ft facto|r.YShift|
|00004b10| 3d 32 20 20 20 20 20 20 | 20 20 3a 20 52 45 4d 20 |=2 | : REM |
|00004b20| 59 20 70 69 78 65 6c 20 | 73 68 69 66 74 20 66 61 |Y pixel |shift fa|
|00004b30| 63 74 6f 72 0a 48 53 69 | 7a 65 20 3d 31 32 38 30 |ctor.HSi|ze =1280|
|00004b40| 20 20 20 20 20 3a 20 52 | 45 4d 20 53 63 72 65 65 | : R|EM Scree|
|00004b50| 6e 20 77 69 64 74 68 20 | 69 6e 20 70 69 78 65 6c |n width |in pixel|
|00004b60| 73 20 28 62 79 74 65 73 | 29 0a 56 53 69 7a 65 20 |s (bytes|).VSize |
|00004b70| 3d 31 30 32 34 20 20 20 | 20 20 3a 20 52 45 4d 20 |=1024 | : REM |
|00004b80| 53 63 72 65 65 6e 20 68 | 65 69 67 68 74 20 69 6e |Screen h|eight in|
|00004b90| 20 70 69 78 65 6c 73 20 | 28 62 79 74 65 73 29 0a | pixels |(bytes).|
|00004ba0| 4c 42 6f 75 6e 64 3d 30 | 20 20 20 2b 33 32 30 20 |LBound=0| +320 |
|00004bb0| 3a 20 52 45 4d 20 4d 69 | 6e 69 6d 75 6d 20 58 20 |: REM Mi|nimum X |
|00004bc0| 20 20 3e 3d 20 30 0a 52 | 42 6f 75 6e 64 3d 31 32 | >= 0.R|Bound=12|
|00004bd0| 38 30 2d 33 32 30 20 3a | 20 52 45 4d 20 4d 61 78 |80-320 :| REM Max|
|00004be0| 69 6d 75 6d 20 58 2b 31 | 20 3c 3d 20 48 53 69 7a |imum X+1| <= HSiz|
|00004bf0| 65 0a 42 42 6f 75 6e 64 | 3d 30 20 20 20 2b 32 35 |e.BBound|=0 +25|
|00004c00| 36 20 3a 20 52 45 4d 20 | 4d 69 6e 69 6d 75 6d 20 |6 : REM |Minimum |
|00004c10| 59 20 20 20 3e 3d 20 30 | 0a 54 42 6f 75 6e 64 3d |Y >= 0|.TBound=|
|00004c20| 31 30 32 34 2d 32 35 36 | 20 3a 20 52 45 4d 20 4d |1024-256| : REM M|
|00004c30| 61 78 69 6d 75 6d 20 59 | 2b 31 20 3c 3d 20 56 53 |aximum Y|+1 <= VS|
|00004c40| 69 7a 65 0a 3a 0a 52 45 | 4d 20 52 61 6e 64 6f 6d |ize.:.RE|M Random|
|00004c50| 20 67 65 6e 65 72 61 74 | 6f 72 20 63 6f 6f 72 64 | generat|or coord|
|00004c60| 73 20 72 65 73 6f 6c 75 | 74 69 6f 6e 20 69 6e 20 |s resolu|tion in |
|00004c70| 62 69 74 73 0a 52 61 6e | 64 6f 6d 3d 31 31 20 20 |bits.Ran|dom=11 |
|00004c80| 20 20 20 20 20 3a 20 52 | 45 4d 20 2d 31 30 32 34 | : R|EM -1024|
|00004c90| 20 3c 3d 20 52 61 6e 64 | 6f 6d 20 3c 3d 20 31 30 | <= Rand|om <= 10|
|00004ca0| 32 33 0a 3a 0a 52 45 4d | 20 42 6f 75 6e 64 69 6e |23.:.REM| Boundin|
|00004cb0| 67 20 62 6f 78 2c 20 6c | 69 6e 65 73 20 73 68 6f |g box, l|ines sho|
|00004cc0| 75 6c 64 20 63 6c 69 70 | 20 69 6e 73 69 64 65 20 |uld clip| inside |
|00004cd0| 74 68 69 73 0a 52 45 43 | 54 41 4e 47 4c 45 20 4c |this.REC|TANGLE L|
|00004ce0| 42 6f 75 6e 64 2d 31 2c | 42 42 6f 75 6e 64 2d 31 |Bound-1,|BBound-1|
|00004cf0| 2c 52 42 6f 75 6e 64 2d | 4c 42 6f 75 6e 64 2b 31 |,RBound-|LBound+1|
|00004d00| 2c 54 42 6f 75 6e 64 2d | 42 42 6f 75 6e 64 2b 31 |,TBound-|BBound+1|
|00004d10| 0a 56 44 55 20 32 34 2c | 4c 42 6f 75 6e 64 3b 42 |.VDU 24,|LBound;B|
|00004d20| 42 6f 75 6e 64 3b 52 42 | 6f 75 6e 64 2d 31 3b 54 |Bound;RB|ound-1;T|
|00004d30| 42 6f 75 6e 64 2d 31 3b | 0a 3a 0a 50 52 4f 43 41 |Bound-1;|.:.PROCA|
|00004d40| 73 73 65 6d 62 6c 65 28 | 53 74 61 72 74 25 2c 45 |ssemble(|Start%,E|
|00004d50| 6e 64 25 29 0a 3a 0a 52 | 45 4d 20 52 65 70 65 61 |nd%).:.R|EM Repea|
|00004d60| 74 65 64 20 64 72 61 77 | 69 6e 67 20 6f 66 20 72 |ted draw|ing of r|
|00004d70| 61 6e 64 6f 6d 20 6c 69 | 6e 65 73 20 75 6e 74 69 |andom li|nes unti|
|00004d80| 6c 20 3c 45 73 63 61 70 | 65 3e 0a 43 41 4c 4c 20 |l <Escap|e>.CALL |
|00004d90| 43 61 6c 6c 4c 69 6e 65 | 0a 3a 0a 45 4e 44 0a 3a |CallLine|.:.END.:|
|00004da0| 0a 44 45 46 20 50 52 4f | 43 4c 69 6e 65 28 41 25 |.DEF PRO|CLine(A%|
|00004db0| 2c 42 25 2c 43 25 2c 44 | 25 2c 45 25 29 0a 20 20 |,B%,C%,D|%,E%). |
|00004dc0| 43 41 4c 4c 20 4c 69 6e | 65 0a 45 4e 44 50 52 4f |CALL Lin|e.ENDPRO|
|00004dd0| 43 0a 3a 0a 52 45 4d 20 | 2b 2b 2b 2b 2b 20 41 53 |C.:.REM |+++++ AS|
|00004de0| 53 45 4d 42 4c 59 20 2b | 2b 2b 2b 2b 0a 20 20 3a |SEMBLY +|++++. :|
|00004df0| 0a 20 20 44 45 46 20 50 | 52 4f 43 41 73 73 65 6d |. DEF P|ROCAssem|
|00004e00| 62 6c 65 28 52 45 54 55 | 52 4e 20 43 6f 64 65 25 |ble(RETU|RN Code%|
|00004e10| 2c 52 45 54 55 52 4e 20 | 4f 25 29 0a 20 20 20 20 |,RETURN |O%). |
|00004e20| 4c 4f 43 41 4c 20 4f 70 | 74 25 2c 4c 25 2c 50 25 |LOCAL Op|t%,L%,P%|
|00004e30| 2c 43 6f 64 65 53 69 7a | 65 25 0a 20 20 20 20 3a |,CodeSiz|e%. :|
|00004e40| 0a 20 20 20 20 52 45 4d | 20 53 69 7a 65 20 6f 66 |. REM| Size of|
|00004e50| 20 63 6f 64 65 0a 20 20 | 20 20 43 6f 64 65 53 69 | code. | CodeSi|
|00004e60| 7a 65 3d 34 3c 3c 31 30 | 0a 20 20 20 20 3a 0a 20 |ze=4<<10|. :. |
|00004e70| 20 20 20 44 49 4d 20 43 | 6f 64 65 25 20 43 6f 64 | DIM C|ode% Cod|
|00004e80| 65 53 69 7a 65 2c 4c 25 | 20 2d 31 0a 20 20 20 20 |eSize,L%| -1. |
|00004e90| 3a 0a 20 20 20 20 46 4f | 52 20 4f 70 74 25 3d 25 |:. FO|R Opt%=%|
|00004ea0| 31 31 30 30 20 54 4f 20 | 25 31 31 31 30 20 53 54 |1100 TO |%1110 ST|
|00004eb0| 45 50 20 25 30 30 31 30 | 0a 20 20 20 20 20 20 50 |EP %0010|. P|
|00004ec0| 25 3d 43 6f 64 65 25 0a | 20 20 20 20 20 20 4f 25 |%=Code%.| O%|
|00004ed0| 3d 43 6f 64 65 25 0a 20 | 20 20 20 20 20 5b 4f 50 |=Code%. | [OP|
|00004ee0| 54 20 4f 70 74 25 0a 3b | 2a 2a 2a 2a 2a 2a 2a 2a |T Opt%.;|********|
|00004ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f10| 2a 2a 2a 2a 2a 2a 0a 3b | 2a 2a 2a 2a 2a 2a 2a 2a |******.;|********|
|00004f20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f40| 2a 2a 2a 2a 2a 2a 0a 3b | 2a 2a 20 20 20 20 20 20 |******.;|** |
|00004f50| 20 20 20 20 20 20 20 20 | 44 61 74 61 20 20 20 20 | |Data |
|00004f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004f70| 20 20 20 20 2a 2a 0a 3b | 2a 2a 2a 2a 2a 2a 2a 2a | **.;|********|
|00004f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fa0| 2a 2a 2a 2a 2a 2a 0a 3b | 2a 2a 2a 2a 2a 2a 2a 2a |******.;|********|
|00004fb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00004fd0| 2a 2a 2a 2a 2a 2a 0a 2e | 53 63 72 65 65 6e 41 64 |******..|ScreenAd|
|00004fe0| 64 72 65 73 73 20 20 20 | 45 51 55 44 20 20 20 20 |dress |EQUD |
|00004ff0| 46 4e 53 63 72 65 65 6e | 41 64 64 72 65 73 73 20 |FNScreen|Address |
|00005000| 20 20 20 20 20 3b 20 53 | 63 72 65 65 6e 20 62 61 | ; S|creen ba|
|00005010| 73 65 20 61 64 64 72 65 | 73 73 0a 3b 20 4f 70 74 |se addre|ss.; Opt|
|00005020| 69 6f 6e 61 6c 6c 79 20 | 79 6f 75 20 63 6f 75 6c |ionally |you coul|
|00005030| 64 20 63 68 6f 6f 73 65 | 20 74 6f 20 73 74 6f 72 |d choose| to stor|
|00005040| 65 20 77 69 6e 64 6f 77 | 0a 3b 20 63 6c 69 70 70 |e window|.; clipp|
|00005050| 69 6e 67 20 28 62 6f 75 | 6e 64 29 20 76 61 72 69 |ing (bou|nd) vari|
|00005060| 61 62 6c 65 73 20 69 6e | 20 74 68 69 73 20 62 6c |ables in| this bl|
|00005070| 6f 63 6b 0a 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ock.;---|--------|
|00005080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000050a0| 2d 2d 2d 0a 2e 52 61 6e | 64 6f 6d 53 65 65 64 31 |---..Ran|domSeed1|
|000050b0| 20 20 20 20 20 45 51 55 | 44 20 20 20 20 52 4e 44 | EQU|D RND|
|000050c0| 28 54 49 4d 45 29 20 20 | 20 20 20 20 20 20 20 20 |(TIME) | |
|000050d0| 20 20 3b 20 52 61 6e 64 | 6f 6d 20 73 65 65 64 0a | ; Rand|om seed.|
|000050e0| 2e 52 61 6e 64 6f 6d 53 | 65 65 64 32 20 20 20 20 |.RandomS|eed2 |
|000050f0| 20 45 51 55 44 20 20 20 | 20 52 4e 44 28 32 29 20 | EQUD | RND(2) |
|00005100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00005110| 33 33 72 64 20 62 69 74 | 0a 3b 2a 2a 2a 2a 2a 2a |33rd bit|.;******|
|00005120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005140| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 3b 2a 2a 2a 2a 2a 2a |********|.;******|
|00005150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005170| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 3b 2a 2a 20 20 20 20 |********|.;** |
|00005180| 20 20 20 20 20 20 20 20 | 20 20 52 61 6e 64 6f 6d | | Random|
|00005190| 20 63 6f 6f 72 64 69 6e | 61 74 65 73 20 20 20 20 | coordin|ates |
|000051a0| 20 20 20 20 20 20 2a 2a | 0a 3b 2a 2a 2a 2a 2a 2a | **|.;******|
|000051b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000051c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000051d0| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 3b 2a 2a 2a 2a 2a 2a |********|.;******|
|000051e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000051f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005200| 2a 2a 2a 2a 2a 2a 2a 2a | 0a 2e 52 61 6e 64 6f 6d |********|..Random|
|00005210| 43 6f 6f 72 64 69 6e 61 | 74 65 73 0a 20 20 20 20 |Coordina|tes. |
|00005220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 53 54 4d | | STM|
|00005230| 46 44 20 20 20 52 31 33 | 21 2c 7b 52 38 2d 52 31 |FD R13|!,{R8-R1|
|00005240| 30 2c 52 31 34 7d 0a 20 | 20 20 20 20 20 20 20 20 |0,R14}. | |
|00005250| 20 20 20 20 20 20 20 20 | 4c 44 52 20 20 20 20 20 | |LDR |
|00005260| 52 38 2c 52 61 6e 64 6f | 6d 53 65 65 64 31 0a 20 |R8,Rando|mSeed1. |
|00005270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005280| 4c 44 52 20 20 20 20 20 | 52 39 2c 52 61 6e 64 6f |LDR |R9,Rando|
|00005290| 6d 53 65 65 64 32 0a 3b | 2d 2d 2d 2d 2d 2d 2d 2d |mSeed2.;|--------|
|000052a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000052b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000052c0| 2d 2d 2d 2d 2d 2d 0a 20 | 20 20 20 20 20 20 20 20 |------. | |
|000052d0| 20 20 20 20 20 20 20 20 | 54 53 54 20 20 20 20 20 | |TST |
|000052e0| 52 39 2c 52 39 2c 4c 53 | 52 20 23 31 20 20 20 20 |R9,R9,LS|R #1 |
|000052f0| 20 20 20 20 20 3b 20 46 | 61 73 74 20 72 61 6e 64 | ; F|ast rand|
|00005300| 6f 6d 20 6e 75 6d 62 65 | 72 0a 20 20 20 20 20 20 |om numbe|r. |
|00005310| 20 20 20 20 20 20 20 20 | 20 20 20 4d 4f 56 53 20 | | MOVS |
|00005320| 20 20 20 52 31 30 2c 52 | 38 2c 52 52 58 0a 20 20 | R10,R|8,RRX. |
|00005330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 | | A|
|00005340| 44 43 20 20 20 20 20 52 | 39 2c 52 39 2c 52 39 0a |DC R|9,R9,R9.|
|00005350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005360| 20 45 4f 52 20 20 20 20 | 20 52 31 30 2c 52 31 30 | EOR | R10,R10|
|00005370| 2c 52 38 2c 4c 53 4c 20 | 23 31 32 0a 20 20 20 20 |,R8,LSL |#12. |
|00005380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4f 52 | | EOR|
|00005390| 20 20 20 20 20 52 38 2c | 52 31 30 2c 52 31 30 2c | R8,|R10,R10,|
|000053a0| 4c 53 52 20 23 32 30 20 | 20 20 3b 20 52 61 6e 64 |LSR #20 | ; Rand|
|000053b0| 6f 6d 20 6d 75 6d 62 65 | 72 20 69 6e 20 52 38 0a |om mumbe|r in R8.|
|000053c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000053d0| 20 4d 4f 56 20 20 20 20 | 20 52 30 2c 52 38 0a 3b | MOV | R0,R8.;|
|000053e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000053f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0a 20 |--------|------. |
|00005410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005420| 54 53 54 20 20 20 20 20 | 52 39 2c 52 39 2c 4c 53 |TST |R9,R9,LS|
|00005430| 52 20 23 31 20 20 20 20 | 20 20 20 20 20 3b 20 46 |R #1 | ; F|
|00005440| 61 73 74 20 72 61 6e 64 | 6f 6d 20 6e 75 6d 62 65 |ast rand|om numbe|
|00005450| 72 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r. | |
|00005460| 20 20 20 4d 4f 56 53 20 | 20 20 20 52 31 30 2c 52 | MOVS | R10,R|
|00005470| 38 2c 52 52 58 0a 20 20 | 20 20 20 20 20 20 20 20 |8,RRX. | |
|00005480| 20 20 20 20 20 20 20 41 | 44 43 20 20 20 20 20 52 | A|DC R|
|00005490| 39 2c 52 39 2c 52 39 0a | 20 20 20 20 20 20 20 20 |9,R9,R9.| |
|000054a0| 20 20 20 20 20 20 20 20 | 20 45 4f 52 20 20 20 20 | | EOR |
|000054b0| 20 52 31 30 2c 52 31 30 | 2c 52 38 2c 4c 53 4c 20 | R10,R10|,R8,LSL |
|000054c0| 23 31 32 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |#12. | |
|000054d0| 20 20 20 20 20 45 4f 52 | 20 20 20 20 20 52 38 2c | EOR| R8,|
|000054e0| 52 31 30 2c 52 31 30 2c | 4c 53 52 20 23 32 30 20 |R10,R10,|LSR #20 |
|000054f0| 20 20 3b 20 52 61 6e 64 | 6f 6d 20 6d 75 6d 62 65 | ; Rand|om mumbe|
|00005500| 72 20 69 6e 20 52 38 0a | 20 20 20 20 20 20 20 20 |r in R8.| |
|00005510| 20 20 20 20 20 20 20 20 | 20 4d 4f 56 20 20 20 20 | | MOV |
|00005520| 20 52 31 2c 52 38 0a 3b | 2d 2d 2d 2d 2d 2d 2d 2d | R1,R8.;|--------|
|00005530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005550| 2d 2d 2d 2d 2d 2d 0a 20 | 20 20 20 20 20 20 20 20 |------. | |
|00005560| 20 20 20 20 20 20 20 20 | 54 53 54 20 20 20 20 20 | |TST |
|00005570| 52 39 2c 52 39 2c 4c 53 | 52 20 23 31 20 20 20 20 |R9,R9,LS|R #1 |
|00005580| 20 20 20 20 20 3b 20 46 | 61 73 74 20 72 61 6e 64 | ; F|ast rand|
|00005590| 6f 6d 20 6e 75 6d 62 65 | 72 0a 20 20 20 20 20 20 |om numbe|r. |
|000055a0| 20 20 20 20 20 20 20 20 | 20 20 20 4d 4f 56 53 20 | | MOVS |
|000055b0| 20 20 20 52 31 30 2c 52 | 38 2c 52 52 58 0a 20 20 | R10,R|8,RRX. |
|000055c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 | | A|
|000055d0| 44 43 20 20 20 20 20 52 | 39 2c 52 39 2c 52 39 0a |DC R|9,R9,R9.|
|000055e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000055f0| 20 45 4f 52 20 20 20 20 | 20 52 31 30 2c 52 31 30 | EOR | R10,R10|
|00005600| 2c 52 38 2c 4c 53 4c 20 | 23 31 32 0a 20 20 20 20 |,R8,LSL |#12. |
|00005610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4f 52 | | EOR|
|00005620| 20 20 20 20 20 52 38 2c | 52 31 30 2c 52 31 30 2c | R8,|R10,R10,|
|00005630| 4c 53 52 20 23 32 30 20 | 20 20 3b 20 52 61 6e 64 |LSR #20 | ; Rand|
|00005640| 6f 6d 20 6d 75 6d 62 65 | 72 20 69 6e 20 52 38 0a |om mumbe|r in R8.|
|00005650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005660| 20 4d 4f 56 20 20 20 20 | 20 52 32 2c 52 38 0a 3b | MOV | R2,R8.;|
|00005670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0a 20 |--------|------. |
|000056a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000056b0| 54 53 54 20 20 20 20 20 | 52 39 2c 52 39 2c 4c 53 |TST |R9,R9,LS|
|000056c0| 52 20 23 31 20 20 20 20 | 20 20 20 20 20 3b 20 46 |R #1 | ; F|
|000056d0| 61 73 74 20 72 61 6e 64 | 6f 6d 20 6e 75 6d 62 65 |ast rand|om numbe|
|000056e0| 72 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r. | |
|000056f0| 20 20 20 4d 4f 56 53 20 | 20 20 20 52 31 30 2c 52 | MOVS | R10,R|
|00005700| 38 2c 52 52 58 0a 20 20 | 20 20 20 20 20 20 20 20 |8,RRX. | |
|00005710| 20 20 20 20 20 20 20 41 | 44 43 20 20 20 20 20 52 | A|DC R|
|00005720| 39 2c 52 39 2c 52 39 0a | 20 20 20 20 20 20 20 20 |9,R9,R9.| |
|00005730| 20 20 20 20 20 20 20 20 | 20 45 4f 52 20 20 20 20 | | EOR |
|00005740| 20 52 31 30 2c 52 31 30 | 2c 52 38 2c 4c 53 4c 20 | R10,R10|,R8,LSL |
|00005750| 23 31 32 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |#12. | |
|00005760| 20 20 20 20 20 45 4f 52 | 20 20 20 20 20 52 38 2c | EOR| R8,|
|00005770| 52 31 30 2c 52 31 30 2c | 4c 53 52 20 23 32 30 20 |R10,R10,|LSR #20 |
|00005780| 20 20 3b 20 52 61 6e 64 | 6f 6d 20 6d 75 6d 62 65 | ; Rand|om mumbe|
|00005790| 72 20 69 6e 20 52 38 0a | 20 20 20 20 20 20 20 20 |r in R8.| |
|000057a0| 20 20 20 20 20 20 20 20 | 20 4d 4f 56 20 20 20 20 | | MOV |
|000057b0| 20 52 33 2c 52 38 0a 3b | 2d 2d 2d 2d 2d 2d 2d 2d | R3,R8.;|--------|
|000057c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000057d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000057e0| 2d 2d 2d 2d 2d 2d 0a 20 | 20 20 20 20 20 20 20 20 |------. | |
|000057f0| 20 20 20 20 20 20 20 20 | 54 53 54 20 20 20 20 20 | |TST |
|00005800| 52 39 2c 52 39 2c 4c 53 | 52 20 23 31 20 20 20 20 |R9,R9,LS|R #1 |
|00005810| 20 20 20 20 20 3b 20 46 | 61 73 74 20 72 61 6e 64 | ; F|ast rand|
|00005820| 6f 6d 20 6e 75 6d 62 65 | 72 0a 20 20 20 20 20 20 |om numbe|r. |
|00005830| 20 20 20 20 20 20 20 20 | 20 20 20 4d 4f 56 53 20 | | MOVS |
|00005840| 20 20 20 52 31 30 2c 52 | 38 2c 52 52 58 0a 20 20 | R10,R|8,RRX. |
|00005850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 41 | | A|
|00005860| 44 43 20 20 20 20 20 52 | 39 2c 52 39 2c 52 39 0a |DC R|9,R9,R9.|
|00005870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005880| 20 45 4f 52 20 20 20 20 | 20 52 31 30 2c 52 31 30 | EOR | R10,R10|
|00005890| 2c 52 38 2c 4c 53 4c 20 | 23 31 32 0a 20 20 20 20 |,R8,LSL |#12. |
|000058a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4f 52 | | EOR|
|000058b0| 20 20 20 20 20 52 38 2c | 52 31 30 2c 52 31 30 2c | R8,|R10,R10,|
|000058c0| 4c 53 52 20 23 32 30 20 | 20 20 3b 20 52 61 6e 64 |LSR #20 | ; Rand|
|000058d0| 6f 6d 20 6d 75 6d 62 65 | 72 20 69 6e 20 52 38 0a |om mumbe|r in R8.|
|000058e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000058f0| 20 4d 4f 56 20 20 20 20 | 20 52 34 2c 52 38 2c 4c | MOV | R4,R8,L|
|00005900| 53 52 20 23 32 34 20 20 | 20 20 20 20 20 20 3b 20 |SR #24 | ; |
|00005910| 43 6f 6c 6f 75 72 0a 3b | 2d 2d 2d 2d 2d 2d 2d 2d |Colour.;|--------|
|00005920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005940| 2d 2d 2d 2d 2d 2d 0a 20 | 20 20 20 20 20 20 20 20 |------. | |
|00005950| 20 20 20 20 20 20 20 20 | 53 54 52 20 20 20 20 20 | |STR |
|00005960| 52 38 2c 52 61 6e 64 6f | 6d 53 65 65 64 31 0a 20 |R8,Rando|mSeed1. |
|00005970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005980| 53 54 52 20 20 20 20 20 | 52 39 2c 52 61 6e 64 6f |STR |R9,Rando|
|00005990| 6d 53 65 65 64 32 0a 3b | 2d 2d 2d 2d 2d 2d 2d 2d |mSeed2.;|--------|
|000059a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000059c0| 2d 2d 2d 2d 2d 2d 0a 20 | 20 20 20 20 20 20 20 20 |------. | |
|000059d0| 20 20 20 20 20 20 20 20 | 4d 4f 56 20 20 20 20 20 | |MOV |
|000059e0| 52 38 2c 23 4c 42 6f 75 | 6e 64 20 20 20 20 20 20 |R8,#LBou|nd |
|000059f0| 20 20 20 20 20 3b 20 43 | 65 6e 74 72 65 20 72 61 | ; C|entre ra|
|00005a00| 6e 64 6f 6d 20 63 6f 6f | 72 64 69 6e 61 74 65 73 |ndom coo|rdinates|
|00005a10| 0a 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00005a20| 20 20 41 44 44 20 20 20 | 20 20 52 38 2c 52 38 2c | ADD | R8,R8,|
|00005a30| 23 52 42 6f 75 6e 64 20 | 20 20 20 20 20 20 20 3b |#RBound | ;|
|00005a40| 20 66 6f 72 20 6e 65 61 | 74 65 72 20 64 69 73 70 | for nea|ter disp|
|00005a50| 6c 61 79 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |lay. | |
|00005a60| 20 20 20 20 20 4d 4f 56 | 20 20 20 20 20 52 38 2c | MOV| R8,|
|00005a70| 52 38 2c 41 53 52 20 23 | 31 20 20 20 20 20 20 20 |R8,ASR #|1 |
|00005a80| 20 20 3b 20 57 69 6e 64 | 6f 77 20 58 20 63 65 6e | ; Wind|ow X cen|
|00005a90| 74 72 65 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |tre. | |
|00005aa0| 20 20 20 20 20 4d 4f 56 | 20 20 20 20 20 52 39 2c | MOV| R9,|
|00005ab0| 23 42 42 6f 75 6e 64 0a | 20 20 20 20 20 20 20 20 |#BBound.| |
|00005ac0| 20 20 20 20 20 20 20 20 | 20 41 44 44 20 20 20 20 | | ADD |
|00005ad0| 20 52 39 2c 52 39 2c 23 | 54 42 6f 75 6e 64 0a 20 | R9,R9,#|TBound. |
|00005ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005af0| 4d 4f 56 20 20 20 20 20 | 52 39 2c 52 39 2c 41 53 |MOV |R9,R9,AS|
|00005b00| 52 20 23 31 20 20 20 20 | 20 20 20 20 20 3b 20 57 |R #1 | ; W|
|00005b10| 69 6e 64 6f 77 20 59 20 | 63 65 6e 74 72 65 0a 20 |indow Y |centre. |
|00005b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005b30| 4d 4f 56 20 20 20 20 20 | 52 30 2c 52 30 2c 4c 53 |MOV |R0,R0,LS|
|00005b40| 52 20 23 33 32 2d 52 61 | 6e 64 6f 6d 20 3b 20 58 |R #32-Ra|ndom ; X|
|00005b50| 31 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1. | |
|00005b60| 20 20 20 53 55 42 20 20 | 20 20 20 52 30 2c 52 30 | SUB | R0,R0|
|00005b70| 2c 23 31 3c 3c 28 52 61 | 6e 64 6f 6d 2d 31 29 0a |,#1<<(Ra|ndom-1).|
|00005b80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005b90| 20 41 44 44 20 20 20 20 | 20 52 30 2c 52 30 2c 52 | ADD | R0,R0,R|
|00005ba0| 38 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |8. | |
|00005bb0| 20 20 20 4d 4f 56 20 20 | 20 20 20 52 31 2c 52 31 | MOV | R1,R1|
|00005bc0| 2c 4c 53 52 20 23 33 32 | 2d 52 61 6e 64 6f 6d 20 |,LSR #32|-Random |
|00005bd0| 3b 20 59 31 0a 20 20 20 | 20 20 20 20 20 20 20 20 |; Y1. | |
|00005be0| 20 20 20 20 20 20 53 55 | 42 20 20 20 20 20 52 31 | SU|B R1|
|00005bf0| 2c 52 31 2c 23 31 3c 3c | 28 52 61 6e 64 6f 6d 2d |,R1,#1<<|(Random-|
|00005c00| 31 29 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1). | |
|00005c10| 20 20 20 20 41 44 44 20 | 20 20 20 20 52 31 2c 52 | ADD | R1,R|
|00005c20| 31 2c 52 39 0a 20 20 20 | 20 20 20 20 20 20 20 20 |1,R9. | |
|00005c30| 20 20 20 20 20 20 4d 4f | 56 20 20 20 20 20 52 32 | MO|V R2|
|00005c40| 2c 52 32 2c 4c 53 52 20 | 23 33 32 2d 52 61 6e 64 |,R2,LSR |#32-Rand|
|00005c50| 6f 6d 20 3b 20 58 32 0a | 20 20 20 20 20 20 20 20 |om ; X2.| |
|00005c60| 20 20 20 20 20 20 20 20 | 20 53 55 42 20 20 20 20 | | SUB |
|00005c70| 20 52 32 2c 52 32 2c 23 | 31 3c 3c 28 52 61 6e 64 | R2,R2,#|1<<(Rand|
|00005c80| 6f 6d 2d 31 29 0a 20 20 | 20 20 20 20 20 20 20 20 |om-1). | |
|00005c90| 20 20 20 20 20 20 20 41 | 44 44 20 20 20 20 20 52 | A|DD R|
|00005ca0| 32 2c 52 32 2c 52 38 0a | 20 20 20 20 20 20 20 20 |2,R2,R8.| |
|00005cb0| 20 20 20 20 20 20 20 20 | 20 4d 4f 56 20 20 20 20 | | MOV |
|00005cc0| 20 52 33 2c 52 33 2c 4c | 53 52 20 23 33 32 2d 52 | R3,R3,L|SR #32-R|
|00005cd0| 61 6e 64 6f 6d 20 3b 20 | 59 32 0a 20 20 20 20 20 |andom ; |Y2. |
|00005ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 53 55 42 20 | | SUB |
|00005cf0| 20 20 20 20 52 33 2c 52 | 33 2c 23 31 3c 3c 28 52 | R3,R|3,#1<<(R|
|00005d00| 61 6e 64 6f 6d 2d 31 29 | 0a 20 20 20 20 20 20 20 |andom-1)|. |
|00005d10| 20 20 20 20 20 20 20 20 | 20 20 41 44 44 20 20 20 | | ADD |
|00005d20| 20 20 52 33 2c 52 33 2c | 52 39 0a 20 20 20 20 20 | R3,R3,|R9. |
|00005d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 4c 44 4d 46 | | LDMF|
|00005d40| 44 20 20 20 52 31 33 21 | 2c 7b 52 38 2d 52 31 30 |D R13!|,{R8-R10|
|00005d50| 2c 50 43 7d 5e 20 20 20 | 20 3b 20 7b 52 30 3d 58 |,PC}^ | ; {R0=X|
|00005d60| 20 73 74 61 72 74 20 70 | 6f 69 6e 74 7d 0a 20 20 | start p|oint}. |
|00005d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005d80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 7b 52 | | ; {R|
|00005da0| 31 3d 59 20 73 74 61 72 | 74 20 70 6f 69 6e 74 7d |1=Y star|t point}|
|00005db0| 0a 20 20 20 20 20 20 20 | 20 20 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 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00005de0| 20 7b 52 32 3d 58 20 65 | 6e 64 20 70 6f 69 6e 74 | {R2=X e|nd point|
|00005df0| 7d 0a 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}. | |
|00005e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005e20| 3b 20 7b 52 33 3d 59 20 | 65 6e 64 20 70 6f 69 6e |; {R3=Y |end poin|
|00005e30| 74 7d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t}. | |
|00005e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005e60| 20 3b 20 7b 52 34 3d 43 | 6f 6c 6f 75 72 20 62 79 | ; {R4=C|olour by|
|00005e70| 74 65 7d 0a 3b 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |te}.;***|********|
|00005e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00005ea0| 2a 2a 2a 0a 2e 43 61 6c | 6c 4c 69 6e 65 20 20 20 |***..Cal|lLine |
|00005eb0| 20 20 20 20 20 53 54 4d | 46 44 20 20 20 52 31 33 | STM|FD R13|
|00005ec0| 21 2c 7b 52 30 2d 52 35 | 2c 52 31 34 7d 0a 20 20 |!,{R0-R5|,R14}. |
|00005ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 | | S|
|00005ee0| 57 49 20 20 20 20 20 22 | 58 4f 53 5f 52 65 6d 6f |WI "|XOS_Remo|
|00005ef0| 76 65 43 75 72 73 6f 72 | 73 22 0a 2e 43 61 6c 6c |veCursor|s"..Call|
|00005f00| 4c 69 6e 65 43 6f 6e 74 | 20 20 20 20 4d 4f 56 20 |LineCont| MOV |
|00005f10| 20 20 20 20 52 35 2c 23 | 32 35 36 20 20 20 20 20 | R5,#|256 |
|00005f20| 20 20 20 20 20 20 20 20 | 20 3b 20 32 35 36 20 6c | | ; 256 l|
|00005f30| 69 6e 65 73 20 61 74 20 | 61 20 74 69 6d 65 0a 2e |ines at |a time..|
|00005f40| 43 61 6c 6c 4c 69 6e 65 | 4e 65 78 74 20 20 20 20 |CallLine|Next |
|00005f50| 42 4c 20 20 20 20 20 20 | 52 61 6e 64 6f 6d 43 6f |BL |RandomCo|
|00005f60| 6f 72 64 69 6e 61 74 65 | 73 20 20 20 20 3b 20 47 |ordinate|s ; G|
|00005f70| 65 74 20 72 61 6e 64 6f | 6d 20 70 6f 69 6e 74 20 |et rando|m point |
|00005f80| 61 6e 64 20 63 6f 6c 6f | 75 72 0a 20 20 20 20 20 |and colo|ur. |
|00005f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 42 4c 20 20 | | BL |
|00005fa0| 20 20 20 20 4c 69 6e 65 | 20 20 20 20 20 20 20 20 | Line| |
|00005fb0| 20 20 20 20 20 20 20 20 | 20 3b 20 50 6c 6f 74 20 | | ; Plot |
|00005fc0| 74 68 65 20 6c 69 6e 65 | 0a 20 20 20 20 20 20 20 |the line|. |
|00005fd0| 20 20 20 20 20 20 20 20 | 20 20 53 55 42 53 20 20 | | SUBS |
|00005fe0| 20 20 52 35 2c 52 35 2c | 23 31 20 20 20 20 20 20 | R5,R5,|#1 |
|00005ff0| 20 20 20 20 20 20 20 3b | 20 4e 65 78 74 20 6c 69 | ;| Next li|
|00006000| 6e 65 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ne. | |
|00006010| 20 20 20 20 42 47 54 20 | 20 20 20 20 43 61 6c 6c | BGT | Call|
|00006020| 4c 69 6e 65 4e 65 78 74 | 0a 20 20 20 20 20 20 20 |LineNext|. |
|00006030| 20 20 20 20 20 20 20 20 | 20 20 53 57 49 20 20 20 | | SWI |
|00006040| 20 20 22 58 4f 53 5f 52 | 65 61 64 45 73 63 61 70 | "XOS_R|eadEscap|
|00006050| 65 53 74 61 74 65 22 0a | 20 20 20 20 20 20 20 20 |eState".| |
|00006060| 20 20 20 20 20 20 20 20 | 20 42 43 43 20 20 20 20 | | BCC |
|00006070| 20 43 61 6c 6c 4c 69 6e | 65 43 6f 6e 74 20 20 20 | CallLin|eCont |
|00006080| 20 20 20 20 20 20 3b 20 | 4e 65 78 74 20 32 35 36 | ; |Next 256|
|00006090| 20 6c 69 6e 65 73 0a 20 | 20 20 20 20 20 20 20 20 | lines. | |
|000060a0| 20 20 20 20 20 20 20 20 | 53 57 49 20 20 20 20 20 | |SWI |
|000060b0| 22 58 4f 53 5f 52 65 73 | 74 6f 72 65 43 75 72 73 |"XOS_Res|toreCurs|
|000060c0| 6f 72 73 22 0a 20 20 20 | 20 20 20 20 20 20 20 20 |ors". | |
|000060d0| 20 20 20 20 20 20 4c 44 | 4d 46 44 20 20 20 52 31 | LD|MFD R1|
|000060e0| 33 21 2c 7b 52 30 2d 52 | 35 2c 50 43 7d 5e 20 20 |3!,{R0-R|5,PC}^ |
|000060f0| 20 20 20 3b 20 50 72 65 | 73 65 72 76 65 20 6d 6f | ; Pre|serve mo|
|00006100| 64 65 20 61 6e 64 20 73 | 74 61 74 65 0a 3b 2a 2a |de and s|tate.;**|
|00006110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 3b 2a 2a |********|****.;**|
|00006140| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00006160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 3b 2a 2a |********|****.;**|
|00006170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 4c 69 | | Li|
|00006180| 6e 65 20 70 72 65 70 72 | 6f 63 65 73 73 69 6e 67 |ne prepr|ocessing|
|00006190| 20 20 20 20 20 20 20 20 | 20 20 2a 2a 0a 3b 2a 2a | | **.;**|
|000061a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000061b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000061c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 3b 2a 2a |********|****.;**|
|000061d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000061e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000061f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0a 20 20 20 |********|****. |
|00006200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006220| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 7b 52 30 | | ; {R0|
|00006230| 3d 58 20 73 74 61 72 74 | 20 70 6f 69 6e 74 7d 0a |=X start| point}.|
|00006240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00006270| 7b 52 31 3d 59 20 73 74 | 61 72 74 20 70 6f 69 6e |{R1=Y st|art poin|
|00006280| 74 7d 0a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t}. | |
|00006290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000062a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000062b0| 20 3b 20 7b 52 32 3d 58 | 20 65 6e 64 20 70 6f 69 | ; {R2=X| end poi|
|000062c0| 6e 74 7d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |nt}. | |
|000062d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000062e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000062f0| 20 20 3b 20 7b 52 33 3d | 59 20 65 6e 64 20 70 6f | ; {R3=|Y end po|
|00006300| 69 6e 74 7d 0a 20 20 20 | 20 20 20 20 20 20 20 20 |int}. | |
|00006310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006330| 20 20 20 3b 20 7b 52 34 | 3d 43 6f 6c 6f 75 72 20 | ; {R4|=Colour |
|00006340| 62 79 74 65 7d 0a 20 20 | 20 20 20 20 20 20 20 20 |byte}. | |
|00006350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00006370| 20 20 20 20 3b 20 7b 50 | 72 65 73 65 72 76 65 20 | ; {P|reserve |
|00006380| 6d 6f 64 65 20 61 6e 64 | 20 73 74 61 74 65 7d 0a |mode and| state}.|
|00006390| 2e 4c 69 6e 65 20 20 20 | 20 20 20 20 20 20 20 20 |.Line | |
|000063a0| 20 53 54 4d 46 44 20 20 | 20 52 31 33 21 2c 7b 52 | STMFD | R13!,{R|
|000063b0| 30 2d 52 36 2c 52 31 31 | 2c 52 31 34 7d 0a 20 20 |0-R6,R11|,R14}. |
|000063c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 4d | | M|
|000063d0| 4f 56 20 20 20 20 20 52 | 30 2c 52 30 2c 4c 53 4c |OV R|0,R0,LSL|
|000063e0| 20 23 31 36 20 20 20 20 | 20 20 20 20 3b 20 45 6e | #16 | ; En|
|000063f0| 73 75 72 65 20 31 36 20 | 62 69 74 20 63 6f 6f 72 |sure 16 |bit coor|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
