/ APDL Public Domain 2 / APDL_PD2A.iso / sillies / a_f / follower

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | fc 00 00 00 5c 01 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 46 6f 6c 6c 6f 77 | 65 72 00 00 ff ff ff ff |.!Follow|er......|
|00000070| 44 ff ff ff da dc 1d 19 | 00 00 00 00 ff ff ff ff |D.......|........|
|00000080| d8 00 00 80 82 21 42 6f | 6f 74 00 00 0f 00 00 00 |.....!Bo|ot......|
|00000090| 5d 00 00 00 43 eb ff ff | 5f 36 fd a9 03 00 65 a1 |]...C...|_6....e.|
|000000a0| 5d 00 00 00 24 00 00 00 | 82 21 52 75 6e 00 04 00 |]...$...|.!Run...|
|000000b0| 0f 00 00 00 33 00 00 00 | 46 eb ff ff d6 38 5a 57 |....3...|F....8ZW|
|000000c0| 03 00 d0 f0 33 00 00 00 | a5 00 00 00 82 21 52 75 |....3...|.....!Ru|
|000000d0| 6e 49 6d 61 67 65 00 00 | dc 0e 00 00 46 fb ff ff |nImage..|....F...|
|000000e0| 4b 26 5a 57 03 00 b7 ee | dc 0e 00 00 fc 00 00 00 |K&ZW....|........|
|000000f0| 82 21 53 70 72 69 74 65 | 73 00 00 00 e0 02 00 00 |.!Sprite|s.......|
|00000100| 43 f9 ff ff ed 0f bf 90 | 03 00 9a 4d e0 02 00 00 |C.......|...M....|
|00000110| fc 0f 00 00 00 00 00 00 | c3 00 04 00 0f 00 00 00 |........|........|
|00000120| 2c 00 00 00 2c 00 00 00 | 1c 00 00 00 fd a0 fd ca |,...,...|........|
|00000130| fd fd fd fd a1 75 76 14 | 00 00 00 00 00 00 00 00 |.....uv.|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | f8 01 00 00 46 69 6c 65 |........|....File|
|00000160| 44 61 74 61 82 21 42 6f | 6f 74 00 00 0f 00 00 00 |Data.!Bo|ot......|
|00000170| 5d 00 00 00 43 eb ff ff | 5f 36 fd a9 03 00 65 a1 |]...C...|_6....e.|
|00000180| 49 63 6f 6e 53 70 72 69 | 74 65 73 20 3c 4f 62 65 |IconSpri|tes <Obe|
|00000190| 79 24 44 69 72 3e 2e 21 | 53 70 72 69 74 65 73 0a |y$Dir>.!|Sprites.|
|000001a0| 7c 20 54 68 69 73 20 66 | 69 6c 65 20 68 61 73 20 || This f|ile has |
|000001b0| 62 65 65 6e 20 69 6e 6e | 6f 63 75 6c 61 74 65 64 |been inn|oculated|
|000001c0| 20 61 67 61 69 6e 73 74 | 20 74 68 65 20 45 78 74 | against| the Ext|
|000001d0| 65 6e 64 20 56 69 72 75 | 73 0a 7c 7c ff 46 69 6c |end Viru|s.||.Fil|
|000001e0| 65 44 61 74 61 82 21 52 | 75 6e 00 04 00 0f 00 00 |eData.!R|un......|
|000001f0| 00 33 00 00 00 46 eb ff | ff d6 38 5a 57 03 00 d0 |.3...F..|..8ZW...|
|00000200| f0 57 69 6d 70 73 6c 6f | 74 20 2d 6d 69 6e 20 31 |.Wimpslo|t -min 1|
|00000210| 36 6b 20 2d 6d 61 78 20 | 31 36 6b 0a 52 75 6e 20 |6k -max |16k.Run |
|00000220| 3c 4f 62 65 79 24 44 69 | 72 3e 2e 21 52 75 6e 49 |<Obey$Di|r>.!RunI|
|00000230| 6d 61 67 65 46 69 6c 65 | 44 61 74 61 82 21 52 75 |mageFile|Data.!Ru|
|00000240| 6e 49 6d 61 67 65 00 00 | dc 0e 00 00 46 fb ff ff |nImage..|....F...|
|00000250| 4b 26 5a 57 03 00 b7 ee | 0d 00 01 10 f4 20 3e 21 |K&ZW....|..... >!|
|00000260| 52 75 6e 49 6d 61 67 65 | 0d 00 02 1c f4 20 a9 4d |RunImage|..... .M|
|00000270| 4a 20 41 6e 67 6f 76 65 | 20 31 36 20 44 65 63 20 |J Angove| 16 Dec |
|00000280| 31 39 39 31 0d 00 03 2b | f4 20 4d 6f 76 65 20 61 |1991...+|. Move a|
|00000290| 20 6c 69 6e 65 20 61 62 | 6f 75 74 20 74 68 65 20 | line ab|out the |
|000002a0| 73 63 72 65 65 6e 20 72 | 61 6e 64 6f 6d 6c 79 0d |screen r|andomly.|
|000002b0| 00 04 38 f4 20 53 74 61 | 67 65 20 32 20 2d 20 6f |..8. Sta|ge 2 - o|
|000002c0| 6e 6c 79 20 70 6c 6f 74 | 20 74 68 65 20 6c 69 6e |nly plot| the lin|
|000002d0| 65 20 69 66 20 62 61 63 | 6b 67 72 6f 75 6e 64 20 |e if bac|kground |
|000002e0| 63 6f 6c 6f 75 72 2e 0d | 00 05 31 f4 20 53 74 61 |colour..|..1. Sta|
|000002f0| 67 65 20 33 20 2d 20 6d | 61 6b 65 20 77 6f 72 6b |ge 3 - m|ake work|
|00000300| 20 6d 75 6c 74 69 74 61 | 73 6b 69 6e 67 20 69 6e | multita|sking in|
|00000310| 20 64 65 73 6b 74 6f 70 | 0d 00 06 2c f4 20 53 74 | desktop|...,. St|
|00000320| 61 67 65 20 34 20 2d 20 | 6d 61 6b 65 20 74 6f 20 |age 4 - |make to |
|00000330| 66 6f 6c 6c 6f 77 20 6d | 6f 75 73 65 20 70 6f 69 |follow m|ouse poi|
|00000340| 6e 74 65 72 0d 00 07 35 | f4 20 41 6e 64 20 6f 6e |nter...5|. And on|
|00000350| 6c 79 20 6f 6e 20 32 32 | 20 4a 61 6e 20 31 39 39 |ly on 22| Jan 199|
|00000360| 32 20 64 69 64 20 49 20 | 61 64 64 20 6c 69 6e 65 |2 did I |add line|
|00000370| 20 38 35 21 21 21 21 21 | 21 0d 00 08 11 f4 20 31 | 85!!!!!|!..... 1|
|00000380| 30 20 44 65 63 20 31 39 | 39 31 0d 00 09 16 74 61 |0 Dec 19|91....ta|
|00000390| 73 6b 6e 61 6d 65 24 3d | 22 46 6f 6c 6c 6f 77 22 |skname$=|"Follow"|
|000003a0| 0d 00 0a 0c 44 25 3d b3 | 28 2d 91 29 0d 00 0b 05 |....D%=.|(-.)....|
|000003b0| 3a 0d 00 0c 05 3a 0d 00 | 0d 0e f2 77 69 6d 70 5f |:....:..|...wimp_|
|000003c0| 69 6e 69 74 0d 00 0e 05 | 3a 0d 00 0f 05 3a 0d 00 |init....|:....:..|
|000003d0| 10 2b 6c 65 6e 67 74 68 | 25 3d 32 30 20 3a 20 f4 |.+length|%=20 : .|
|000003e0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 70 6f 69 6e 74 | number |of point|
|000003f0| 73 20 69 6e 20 6c 69 6e | 65 0d 00 11 22 63 6f 6c |s in lin|e..."col|
|00000400| 6f 75 72 25 3d 37 2b b3 | 28 38 29 20 3a 20 f4 20 |our%=7+.|(8) : . |
|00000410| 6c 69 6e 65 20 63 6f 6c | 6f 75 72 0d 00 12 27 62 |line col|our...'b|
|00000420| 61 63 6b 67 72 6f 75 6e | 64 25 3d 34 20 3a 20 f4 |ackgroun|d%=4 : .|
|00000430| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 63 6f 6c 6f | backgro|und colo|
|00000440| 75 72 0d 00 13 3f 73 71 | 75 69 67 67 6c 79 6e 65 |ur...?sq|uigglyne|
|00000450| 73 73 25 3d 34 20 3a 20 | f4 20 6c 6f 77 65 72 20 |ss%=4 : |. lower |
|00000460| 3d 20 6d 6f 72 65 20 73 | 71 75 69 67 67 6c 79 20 |= more s|quiggly |
|00000470| 2d 20 6e 6f 20 6c 6f 77 | 65 72 20 74 68 61 6e 20 |- no low|er than |
|00000480| 31 0d 00 14 38 64 69 72 | 78 25 3d 32 20 3a 20 64 |1...8dir|x%=2 : d|
|00000490| 69 72 79 25 3d 32 20 3a | 20 f4 20 53 74 61 72 74 |iry%=2 :| . Start|
|000004a0| 69 6e 67 20 64 69 72 65 | 63 74 69 6f 6e 20 55 50 |ing dire|ction UP|
|000004b0| 20 61 6e 64 20 4c 45 46 | 54 0d 00 15 38 de 20 6c | and LEF|T...8. l|
|000004c0| 69 6e 65 25 28 6c 65 6e | 67 74 68 25 2c 32 29 20 |ine%(len|gth%,2) |
|000004d0| 3a 20 f4 20 78 2c 79 20 | 70 6f 73 20 6f 66 20 65 |: . x,y |pos of e|
|000004e0| 61 63 68 20 64 6f 74 2c | 20 70 6c 6f 74 74 65 64 |ach dot,| plotted|
|000004f0| 3f 0d 00 16 32 6c 69 6e | 65 25 28 31 2c 30 29 3d |?...2lin|e%(1,0)=|
|00000500| 36 34 30 20 3a 20 6c 69 | 6e 65 25 28 31 2c 31 29 |640 : li|ne%(1,1)|
|00000510| 3d 35 31 32 20 3a 20 6c | 69 6e 65 25 28 31 2c 32 |=512 : l|ine%(1,2|
|00000520| 29 3d b9 0d 00 17 18 e3 | 20 73 74 61 72 74 25 3d |)=......| start%=|
|00000530| 32 20 b8 20 6c 65 6e 67 | 74 68 25 0d 00 18 25 6c |2 . leng|th%...%l|
|00000540| 69 6e 65 25 28 73 74 61 | 72 74 25 2c 30 29 3d 6c |ine%(sta|rt%,0)=l|
|00000550| 69 6e 65 25 28 73 74 61 | 72 74 25 2d 31 2c 30 29 |ine%(sta|rt%-1,0)|
|00000560| 0d 00 19 25 6c 69 6e 65 | 25 28 73 74 61 72 74 25 |...%line|%(start%|
|00000570| 2c 31 29 3d 6c 69 6e 65 | 25 28 73 74 61 72 74 25 |,1)=line|%(start%|
|00000580| 2d 31 2c 31 29 0d 00 1a | 15 6c 69 6e 65 25 28 73 |-1,1)...|.line%(s|
|00000590| 74 61 72 74 25 2c 32 29 | 3d a3 0d 00 1b 05 ed 0d |tart%,2)|=.......|
|000005a0| 00 1c 21 73 71 75 69 67 | 67 6c 79 6e 65 73 73 25 |..!squig|glyness%|
|000005b0| 3d 73 71 75 69 67 67 6c | 79 6e 65 73 73 25 2a 34 |=squiggl|yness%*4|
|000005c0| 0d 00 1d 14 70 69 78 65 | 6c 74 65 73 74 25 3d b3 |....pixe|ltest%=.|
|000005d0| 28 2d 91 29 0d 00 1e 05 | f5 0d 00 1f 4b c8 99 20 |(-.)....|....K.. |
|000005e0| 22 57 69 6d 70 5f 50 6f | 6c 6c 22 2c 25 30 30 30 |"Wimp_Po|ll",%000|
|000005f0| 30 30 30 30 30 30 30 30 | 30 31 31 30 30 30 30 30 |00000000|01100000|
|00000600| 31 31 30 30 30 30 30 31 | 31 30 30 30 30 2c 64 61 |11000001|10000,da|
|00000610| 74 61 25 20 b8 20 72 65 | 61 73 6f 6e 25 2c 62 6c |ta% . re|ason%,bl|
|00000620| 6f 63 6b 25 0d 00 20 61 | f4 20 6d 61 73 6b 20 6f |ock%.. a|. mask o|
|00000630| 75 74 20 63 65 72 74 61 | 69 6e 20 65 76 65 6e 74 |ut certa|in event|
|00000640| 73 20 2d 20 77 65 27 72 | 65 20 6f 6e 6c 79 20 69 |s - we'r|e only i|
|00000650| 6e 74 65 72 65 73 74 65 | 64 20 69 6e 20 74 68 65 |ntereste|d in the|
|00000660| 20 4e 75 6c 6c 20 63 6f | 64 65 2c 20 6d 6f 64 65 | Null co|de, mode|
|00000670| 20 63 68 61 6e 67 65 20 | 61 6e 64 20 63 6c 6f 73 | change |and clos|
|00000680| 65 64 6f 77 6e 0d 00 21 | 10 c8 8e 20 72 65 61 73 |edown..!|... reas|
|00000690| 6f 6e 25 20 ca 0d 00 22 | 18 c9 20 30 20 3a 20 f2 |on% ..."|.. 0 : .|
|000006a0| 75 70 64 61 74 65 5f 63 | 6f 6f 72 64 73 0d 00 23 |update_c|oords..#|
|000006b0| 18 c9 20 31 37 20 3a 20 | f2 75 73 65 72 5f 6d 65 |.. 17 : |.user_me|
|000006c0| 73 73 61 67 65 0d 00 24 | 05 cb 0d 00 25 13 fd 20 |ssage..$|....%.. |
|000006d0| 73 74 6f 70 73 71 75 69 | 67 67 6c 65 25 0d 00 26 |stopsqui|ggle%..&|
|000006e0| 05 3a 0d 00 27 11 e6 20 | 62 61 63 6b 67 72 6f 75 |.:..'.. |backgrou|
|000006f0| 6e 64 25 0d 00 28 19 e3 | 20 64 65 6c 65 74 65 25 |nd%..(..| delete%|
|00000700| 3d 31 20 b8 20 6c 65 6e | 67 74 68 25 0d 00 29 71 |=1 . len|gth%..)q|
|00000710| e7 20 28 6c 69 6e 65 25 | 28 64 65 6c 65 74 65 25 |. (line%|(delete%|
|00000720| 2c 32 29 3d b9 29 20 80 | 20 28 b0 6c 69 6e 65 25 |,2)=.) .| (.line%|
|00000730| 28 64 65 6c 65 74 65 25 | 2c 30 29 2c 6c 69 6e 65 |(delete%|,0),line|
|00000740| 25 28 64 65 6c 65 74 65 | 25 2c 31 29 29 3d 63 6f |%(delete|%,1))=co|
|00000750| 6c 6f 75 72 25 29 20 8c | 20 c8 92 20 6c 69 6e 65 |lour%) .| .. line|
|00000760| 25 28 64 65 6c 65 74 65 | 25 2c 30 29 2c 6c 69 6e |%(delete|%,0),lin|
|00000770| 65 25 28 64 65 6c 65 74 | 65 25 2c 31 29 0d 00 2a |e%(delet|e%,1)..*|
|00000780| 05 ed 0d 00 2b 29 c8 99 | 20 22 57 69 6d 70 5f 43 |....+)..| "Wimp_C|
|00000790| 6c 6f 73 65 44 6f 77 6e | 22 2c 68 61 6e 64 6c 65 |loseDown|",handle|
|000007a0| 25 2c 26 34 42 35 33 34 | 31 35 34 0d 00 2c 10 c8 |%,&4B534|154..,..|
|000007b0| 99 20 22 4f 53 5f 45 78 | 69 74 22 0d 00 2d 05 e0 |. "OS_Ex|it"..-..|
|000007c0| 0d 00 2e 13 dd f2 75 70 | 64 61 74 65 5f 63 6f 6f |......up|date_coo|
|000007d0| 72 64 73 0d 00 2f 18 ea | 20 75 70 64 61 74 65 25 |rds../..| update%|
|000007e0| 2c 70 69 78 65 6c 74 65 | 73 74 25 0d 00 30 05 3a |,pixelte|st%..0.:|
|000007f0| 0d 00 31 28 f4 20 46 69 | 72 73 74 20 75 6e 70 6c |..1(. Fi|rst unpl|
|00000800| 6f 74 20 74 68 65 20 74 | 61 69 6c 20 28 69 66 20 |ot the t|ail (if |
|00000810| 70 6c 6f 74 74 65 64 29 | 0d 00 32 05 3a 0d 00 33 |plotted)|..2.:..3|
|00000820| 11 e6 20 62 61 63 6b 67 | 72 6f 75 6e 64 25 0d 00 |.. backg|round%..|
|00000830| 34 71 e7 20 28 6c 69 6e | 65 25 28 6c 65 6e 67 74 |4q. (lin|e%(lengt|
|00000840| 68 25 2c 32 29 3d b9 29 | 20 80 20 28 b0 6c 69 6e |h%,2)=.)| . (.lin|
|00000850| 65 25 28 6c 65 6e 67 74 | 68 25 2c 30 29 2c 6c 69 |e%(lengt|h%,0),li|
|00000860| 6e 65 25 28 6c 65 6e 67 | 74 68 25 2c 31 29 29 3d |ne%(leng|th%,1))=|
|00000870| 63 6f 6c 6f 75 72 25 29 | 20 8c 20 c8 92 20 6c 69 |colour%)| . .. li|
|00000880| 6e 65 25 28 6c 65 6e 67 | 74 68 25 2c 30 29 2c 6c |ne%(leng|th%,0),l|
|00000890| 69 6e 65 25 28 6c 65 6e | 67 74 68 25 2c 31 29 0d |ine%(len|gth%,1).|
|000008a0| 00 35 05 3a 0d 00 36 25 | f4 20 54 68 65 6e 20 6d |.5.:..6%|. Then m|
|000008b0| 6f 76 65 20 61 6c 6c 20 | 70 6f 69 6e 74 73 20 75 |ove all |points u|
|000008c0| 70 20 61 20 70 6c 61 63 | 65 0d 00 37 05 3a 0d 00 |p a plac|e..7.:..|
|000008d0| 38 1e e3 20 75 70 64 61 | 74 65 25 3d 6c 65 6e 67 |8.. upda|te%=leng|
|000008e0| 74 68 25 20 b8 20 32 20 | 88 20 2d 31 0d 00 39 27 |th% . 2 |. -1..9'|
|000008f0| 6c 69 6e 65 25 28 75 70 | 64 61 74 65 25 2c 30 29 |line%(up|date%,0)|
|00000900| 3d 6c 69 6e 65 25 28 75 | 70 64 61 74 65 25 2d 31 |=line%(u|pdate%-1|
|00000910| 2c 30 29 0d 00 3a 27 6c | 69 6e 65 25 28 75 70 64 |,0)..:'l|ine%(upd|
|00000920| 61 74 65 25 2c 31 29 3d | 6c 69 6e 65 25 28 75 70 |ate%,1)=|line%(up|
|00000930| 64 61 74 65 25 2d 31 2c | 31 29 0d 00 3b 27 6c 69 |date%-1,|1)..;'li|
|00000940| 6e 65 25 28 75 70 64 61 | 74 65 25 2c 32 29 3d 6c |ne%(upda|te%,2)=l|
|00000950| 69 6e 65 25 28 75 70 64 | 61 74 65 25 2d 31 2c 32 |ine%(upd|ate%-1,2|
|00000960| 29 0d 00 3c 05 ed 0d 00 | 3d 05 3a 0d 00 3e 16 f4 |)..<....|=.:..>..|
|00000970| 20 43 68 65 63 6b 20 64 | 69 72 65 63 74 69 6f 6e | Check d|irection|
|00000980| 73 0d 00 3f 05 3a 0d 00 | 40 40 e7 20 28 6c 69 6e |s..?.:..|@@. (lin|
|00000990| 65 25 28 31 2c 30 29 3e | 3d 6d 61 78 78 25 29 20 |e%(1,0)>|=maxx%) |
|000009a0| 8c 20 64 69 72 78 25 3d | 2d 28 94 28 64 69 72 78 |. dirx%=|-(.(dirx|
|000009b0| 25 29 29 20 3a 20 6c 69 | 6e 65 25 28 31 2c 30 29 |%)) : li|ne%(1,0)|
|000009c0| 3d 6d 61 78 78 25 0d 00 | 41 3d e7 20 28 6c 69 6e |=maxx%..|A=. (lin|
|000009d0| 65 25 28 31 2c 30 29 3c | 3d 6d 69 6e 78 25 29 20 |e%(1,0)<|=minx%) |
|000009e0| 8c 20 64 69 72 78 25 3d | 94 28 64 69 72 78 25 29 |. dirx%=|.(dirx%)|
|000009f0| 20 3a 20 6c 69 6e 65 25 | 28 31 2c 30 29 3d 6d 69 | : line%|(1,0)=mi|
|00000a00| 6e 78 25 0d 00 42 40 e7 | 20 28 6c 69 6e 65 25 28 |nx%..B@.| (line%(|
|00000a10| 31 2c 31 29 3e 3d 6d 61 | 78 79 25 29 20 8c 20 64 |1,1)>=ma|xy%) . d|
|00000a20| 69 72 79 25 3d 2d 28 94 | 28 64 69 72 79 25 29 29 |iry%=-(.|(diry%))|
|00000a30| 20 3a 20 6c 69 6e 65 25 | 28 31 2c 31 29 3d 6d 61 | : line%|(1,1)=ma|
|00000a40| 78 79 25 0d 00 43 3d e7 | 20 28 6c 69 6e 65 25 28 |xy%..C=.| (line%(|
|00000a50| 31 2c 31 29 3c 3d 6d 69 | 6e 79 25 29 20 8c 20 64 |1,1)<=mi|ny%) . d|
|00000a60| 69 72 79 25 3d 94 28 64 | 69 72 79 25 29 20 3a 20 |iry%=.(d|iry%) : |
|00000a70| 6c 69 6e 65 25 28 31 2c | 31 29 3d 6d 69 6e 79 25 |line%(1,|1)=miny%|
|00000a80| 0d 00 44 05 3a 0d 00 45 | 1c f4 20 66 69 6e 64 20 |..D.:..E|.. find |
|00000a90| 6e 65 77 20 68 65 61 64 | 20 70 6f 73 69 74 69 6f |new head| positio|
|00000aa0| 6e 0d 00 46 05 3a 0d 00 | 47 15 6c 69 6e 65 25 28 |n..F.:..|G.line%(|
|00000ab0| 31 2c 30 29 2b 3d 64 69 | 72 78 25 0d 00 48 15 6c |1,0)+=di|rx%..H.l|
|00000ac0| 69 6e 65 25 28 31 2c 31 | 29 2b 3d 64 69 72 79 25 |ine%(1,1|)+=diry%|
|00000ad0| 0d 00 49 05 3a 0d 00 4a | 18 f4 20 54 68 65 6e 20 |..I.:..J|.. Then |
|00000ae0| 70 6c 6f 74 20 6e 65 77 | 20 68 65 61 64 0d 00 4b |plot new| head..K|
|00000af0| 05 3a 0d 00 4c 0d e6 20 | 63 6f 6c 6f 75 72 25 0d |.:..L.. |colour%.|
|00000b00| 00 4d 26 70 69 78 65 6c | 74 65 73 74 25 3d b0 6c |.M&pixel|test%=.l|
|00000b10| 69 6e 65 25 28 31 2c 30 | 29 2c 6c 69 6e 65 25 28 |ine%(1,0|),line%(|
|00000b20| 31 2c 31 29 29 0d 00 4e | 1e e7 20 70 69 78 65 6c |1,1))..N|.. pixel|
|00000b30| 74 65 73 74 25 3d 62 61 | 63 6b 67 72 6f 75 6e 64 |test%=ba|ckground|
|00000b40| 25 20 8c 0d 00 4f 1c c8 | 92 20 6c 69 6e 65 25 28 |% ...O..|. line%(|
|00000b50| 31 2c 30 29 2c 6c 69 6e | 65 25 28 31 2c 31 29 0d |1,0),lin|e%(1,1).|
|00000b60| 00 50 10 6c 69 6e 65 25 | 28 31 2c 32 29 3d b9 0d |.P.line%|(1,2)=..|
|00000b70| 00 51 05 cc 0d 00 52 10 | 6c 69 6e 65 25 28 31 2c |.Q....R.|line%(1,|
|00000b80| 32 29 3d a3 0d 00 53 05 | cd 0d 00 54 05 3a 0d 00 |2)=...S.|...T.:..|
|00000b90| 55 43 f4 20 43 68 61 6e | 67 65 20 64 69 72 65 63 |UC. Chan|ge direc|
|00000ba0| 74 69 6f 6e 20 61 63 63 | 6f 72 64 69 6e 67 20 74 |tion acc|ording t|
|00000bb0| 6f 20 6d 6f 75 73 65 20 | 70 6f 73 69 74 69 6f 6e |o mouse |position|
|00000bc0| 20 2b 20 72 61 6e 64 6f | 6d 20 65 6c 65 6d 65 6e | + rando|m elemen|
|00000bd0| 74 0d 00 56 05 3a 0d 00 | 57 45 70 69 78 65 6c 74 |t..V.:..|WEpixelt|
|00000be0| 65 73 74 25 3d b3 28 73 | 71 75 69 67 67 6c 79 6e |est%=.(s|quigglyn|
|00000bf0| 65 73 73 25 29 20 3a 20 | f4 20 6f 6e 6c 79 20 63 |ess%) : |. only c|
|00000c00| 68 61 6e 67 65 20 6f 6e | 65 20 64 69 72 65 63 74 |hange on|e direct|
|00000c10| 69 6f 6e 20 61 74 20 6f | 6e 63 65 0d 00 58 34 e7 |ion at o|nce..X4.|
|00000c20| 20 70 69 78 65 6c 74 65 | 73 74 25 3d 32 20 8c 20 | pixelte|st%=2 . |
|00000c30| 64 69 72 78 25 3d b3 28 | 37 29 2d 34 20 3a 20 f4 |dirx%=.(|7)-4 : .|
|00000c40| 20 72 61 6e 67 65 20 2d | 33 20 54 4f 20 2b 33 0d | range -|3 TO +3.|
|00000c50| 00 59 21 e7 20 70 69 78 | 65 6c 74 65 73 74 25 3d |.Y!. pix|eltest%=|
|00000c60| 34 20 8c 20 64 69 72 79 | 25 3d b3 28 37 29 2d 34 |4 . diry|%=.(7)-4|
|00000c70| 0d 00 5a 23 c8 99 20 22 | 4f 53 5f 4d 6f 75 73 65 |..Z#.. "|OS_Mouse|
|00000c80| 22 20 b8 20 6d 6f 75 73 | 65 78 25 2c 6d 6f 75 73 |" . mous|ex%,mous|
|00000c90| 65 79 25 0d 00 5b 29 e7 | 20 6d 6f 75 73 65 78 25 |ey%..[).| mousex%|
|00000ca0| 3e 6c 69 6e 65 25 28 31 | 2c 30 29 20 8c 20 64 69 |>line%(1|,0) . di|
|00000cb0| 72 78 25 3d 94 28 64 69 | 72 78 25 29 0d 00 5c 2a |rx%=.(di|rx%)..\*|
|00000cc0| e7 20 6d 6f 75 73 65 78 | 25 3c 6c 69 6e 65 25 28 |. mousex|%<line%(|
|00000cd0| 31 2c 30 29 20 8c 20 64 | 69 72 78 25 3d 2d 94 28 |1,0) . d|irx%=-.(|
|00000ce0| 64 69 72 78 25 29 0d 00 | 5d 29 e7 20 6d 6f 75 73 |dirx%)..|]). mous|
|00000cf0| 65 79 25 3e 6c 69 6e 65 | 25 28 31 2c 31 29 20 8c |ey%>line|%(1,1) .|
|00000d00| 20 64 69 72 79 25 3d 94 | 28 64 69 72 79 25 29 0d | diry%=.|(diry%).|
|00000d10| 00 5e 2a e7 20 6d 6f 75 | 73 65 79 25 3c 6c 69 6e |.^*. mou|sey%<lin|
|00000d20| 65 25 28 31 2c 31 29 20 | 8c 20 64 69 72 79 25 3d |e%(1,1) |. diry%=|
|00000d30| 2d 94 28 64 69 72 79 25 | 29 0d 00 5f 05 e1 0d 00 |-.(diry%|).._....|
|00000d40| 60 05 3a 0d 00 61 05 3a | 0d 00 62 0f dd f2 77 69 |`.:..a.:|..b...wi|
|00000d50| 6d 70 5f 69 6e 69 74 0d | 00 63 0f de 20 64 61 74 |mp_init.|.c.. dat|
|00000d60| 61 25 20 32 35 36 0d 00 | 64 3b c8 99 20 22 57 69 |a% 256..|d;.. "Wi|
|00000d70| 6d 70 5f 49 6e 69 74 69 | 61 6c 69 73 65 22 2c 32 |mp_Initi|alise",2|
|00000d80| 30 30 2c 26 34 42 35 33 | 34 31 35 34 2c 74 61 73 |00,&4B53|4154,tas|
|00000d90| 6b 6e 61 6d 65 24 20 b8 | 20 2c 68 61 6e 64 6c 65 |kname$ .| ,handle|
|00000da0| 25 0d 00 65 13 73 74 6f | 70 73 71 75 69 67 67 6c |%..e.sto|psquiggl|
|00000db0| 65 25 3d a3 0d 00 66 15 | f2 66 69 6e 64 5f 73 63 |e%=...f.|.find_sc|
|00000dc0| 72 65 65 6e 5f 61 72 65 | 61 0d 00 67 05 e1 0d 00 |reen_are|a..g....|
|00000dd0| 68 05 3a 0d 00 69 05 3a | 0d 00 6a 12 dd f2 75 73 |h.:..i.:|..j...us|
|00000de0| 65 72 5f 6d 65 73 73 61 | 67 65 0d 00 6b 23 e7 20 |er_messa|ge..k#. |
|00000df0| 62 6c 6f 63 6b 25 21 31 | 36 3d 30 20 8c 20 73 74 |block%!1|6=0 . st|
|00000e00| 6f 70 73 71 75 69 67 67 | 6c 65 25 3d b9 0d 00 6c |opsquigg|le%=...l|
|00000e10| 18 e7 20 62 6c 6f 63 6b | 25 21 31 36 3d 26 34 30 |.. block|%!16=&40|
|00000e20| 30 43 31 20 8c 0d 00 6d | 15 f2 66 69 6e 64 5f 73 |0C1 ...m|..find_s|
|00000e30| 63 72 65 65 6e 5f 61 72 | 65 61 0d 00 6e 05 cd 0d |creen_ar|ea..n...|
|00000e40| 00 6f 05 e1 0d 00 70 05 | 3a 0d 00 71 05 3a 0d 00 |.o....p.|:..q.:..|
|00000e50| 72 16 dd f2 66 69 6e 64 | 5f 73 63 72 65 65 6e 5f |r...find|_screen_|
|00000e60| 61 72 65 61 0d 00 73 15 | ea 20 78 73 68 69 66 74 |area..s.|. xshift|
|00000e70| 25 2c 79 73 68 69 66 74 | 25 0d 00 74 37 f4 20 46 |%,yshift|%..t7. F|
|00000e80| 69 6e 64 73 20 78 20 61 | 6e 64 20 79 20 6d 61 78 |inds x a|nd y max|
|00000e90| 69 6d 75 6d 20 63 6f 2d | 6f 72 64 73 20 66 6f 72 |imum co-|ords for|
|00000ea0| 20 74 68 65 20 73 63 72 | 65 65 6e 20 6d 6f 64 65 | the scr|een mode|
|00000eb0| 0d 00 75 97 f4 20 46 6f | 6c 6c 6f 77 69 6e 67 20 |..u.. Fo|llowing |
|00000ec0| 66 69 6e 64 73 20 6f 75 | 74 20 68 6f 77 20 73 63 |finds ou|t how sc|
|00000ed0| 72 65 65 6e 20 70 69 78 | 65 6c 73 20 72 65 6c 61 |reen pix|els rela|
|00000ee0| 74 65 20 74 6f 20 63 6f | 6f 72 64 69 6e 61 74 65 |te to co|ordinate|
|00000ef0| 73 20 2d 20 68 6f 77 20 | 20 20 20 20 20 20 20 20 |s - how |        |
|00000f00| 20 20 20 20 20 20 6d 61 | 6e 79 20 73 68 69 66 74 |      ma|ny shift|
|00000f10| 73 20 61 72 65 20 6e 65 | 65 64 65 64 20 74 6f 20 |s are ne|eded to |
|00000f20| 63 6f 6e 76 65 72 74 20 | 6f 6e 65 20 74 6f 20 74 |convert |one to t|
|00000f30| 68 65 20 6f 74 68 65 72 | 2e 20 53 65 65 20 50 33 |he other|. See P3|
|00000f40| 35 31 20 50 52 4d 2e 0d | 00 76 2d c8 99 20 22 4f |51 PRM..|.v-.. "O|
|00000f50| 53 5f 52 65 61 64 4d 6f | 64 65 56 61 72 69 61 62 |S_ReadMo|deVariab|
|00000f60| 6c 65 22 2c 2d 31 2c 34 | 20 b8 20 2c 2c 78 73 68 |le",-1,4| . ,,xsh|
|00000f70| 69 66 74 25 0d 00 77 2d | c8 99 20 22 4f 53 5f 52 |ift%..w-|.. "OS_R|
|00000f80| 65 61 64 4d 6f 64 65 56 | 61 72 69 61 62 6c 65 22 |eadModeV|ariable"|
|00000f90| 2c 2d 31 2c 35 20 b8 20 | 2c 2c 79 73 68 69 66 74 |,-1,5 . |,,yshift|
|00000fa0| 25 0d 00 78 dc f4 20 46 | 6f 6c 6c 6f 77 69 6e 67 |%..x.. F|ollowing|
|00000fb0| 20 67 69 76 65 73 20 78 | 20 70 69 78 65 6c 73 2d | gives x| pixels-|
|00000fc0| 31 20 73 6f 20 74 6f 20 | 66 69 6e 64 20 78 20 63 |1 so to |find x c|
|00000fd0| 6f 6f 72 64 73 20 77 65 | 20 64 6f 20 20 20 20 20 |oords we| do     |
|00000fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ff0| 20 20 20 20 20 20 20 78 | 70 69 78 65 6c 73 20 28 |       x|pixels (|
|00001000| 69 65 20 61 64 64 20 31 | 29 20 73 68 69 66 74 65 |ie add 1|) shifte|
|00001010| 64 20 6c 65 66 74 20 62 | 79 20 74 68 65 20 73 68 |d left b|y the sh|
|00001020| 69 66 74 20 66 72 6f 6d | 20 61 62 6f 76 65 20 2d |ift from| above -|
|00001030| 31 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1       |        |
|00001040| 20 20 20 20 20 20 20 65 | 67 20 66 6f 72 20 4d 4f |       e|g for MO|
|00001050| 44 45 20 30 20 2d 3e 20 | 36 33 39 2b 31 3d 36 34 |DE 0 -> |639+1=64|
|00001060| 30 20 3a 20 36 34 30 3c | 3c 31 3d 31 32 38 30 20 |0 : 640<|<1=1280 |
|00001070| 3a 20 31 32 38 30 2d 31 | 3d 31 32 37 39 0d 00 79 |: 1280-1|=1279..y|
|00001080| 2c c8 99 20 22 4f 53 5f | 52 65 61 64 4d 6f 64 65 |,.. "OS_|ReadMode|
|00001090| 56 61 72 69 61 62 6c 65 | 22 2c 2d 31 2c 31 31 20 |Variable|",-1,11 |
|000010a0| b8 20 2c 2c 6d 61 78 78 | 25 0d 00 7a 20 6d 61 78 |. ,,maxx|%..z max|
|000010b0| 78 25 3d 28 28 6d 61 78 | 78 25 2b 31 29 3c 3c 78 |x%=((max|x%+1)<<x|
|000010c0| 73 68 69 66 74 25 29 2d | 31 0d 00 7b 0b 6d 69 6e |shift%)-|1..{.min|
|000010d0| 78 25 3d 30 0d 00 7c 2c | c8 99 20 22 4f 53 5f 52 |x%=0..|,|.. "OS_R|
|000010e0| 65 61 64 4d 6f 64 65 56 | 61 72 69 61 62 6c 65 22 |eadModeV|ariable"|
|000010f0| 2c 2d 31 2c 31 32 20 b8 | 20 2c 2c 6d 61 78 79 25 |,-1,12 .| ,,maxy%|
|00001100| 0d 00 7d 20 6d 61 78 79 | 25 3d 28 28 6d 61 78 79 |..} maxy|%=((maxy|
|00001110| 25 2b 31 29 3c 3c 79 73 | 68 69 66 74 25 29 2d 31 |%+1)<<ys|hift%)-1|
|00001120| 0d 00 7e 0d 6d 69 6e 79 | 25 3d 31 32 38 0d 00 7f |..~.miny|%=128...|
|00001130| 05 e1 0d ff 46 69 6c 65 | 44 61 74 61 82 21 53 70 |....File|Data.!Sp|
|00001140| 72 69 74 65 73 00 00 00 | e0 02 00 00 43 f9 ff ff |rites...|....C...|
|00001150| ed 0f bf 90 03 00 9a 4d | 01 00 00 00 10 00 00 00 |.......M|........|
|00001160| e4 02 00 00 d4 02 00 00 | 21 66 6f 6c 6c 6f 77 65 |........|!followe|
|00001170| 72 00 00 00 04 00 00 00 | 10 00 00 00 00 00 00 00 |r.......|........|
|00001180| 07 00 00 00 2c 00 00 00 | 80 01 00 00 0c 00 00 00 |....,...|........|
|00001190| ff bb ff bf bb bb aa aa | aa aa aa ba bb bb bb bb |........|........|
|000011a0| bb 00 00 00 8f ff bb fb | ff af bb bb bb bb bb ab |........|........|
|000011b0| aa ba bb bb bb 00 00 00 | 8f f8 ff aa bb fb ff bf |........|........|
|000011c0| bb bb bb bb bb ab ba bb | bb 00 00 00 8f 88 ff bf |........|........|
|000011d0| bb bb ff f7 ff ff ff b7 | bb bb ab ba bb 00 00 00 |........|........|
|000011e0| ff 8f ff bb bb bb ff bb | bb bb ff ff bb bb bb ab |........|........|
|000011f0| bb 00 00 00 ff fa 88 7f | b7 bb ff ff bf bf bb bb |........|........|
|00001200| bb bb bb bb ba 00 00 00 | ab bb 8f f8 bb bb ff ff |........|........|
|00001210| ff ff ff b7 bb ff bb bb | ab 00 00 00 ab bb fb bf |........|........|
|00001220| bb bb ff 77 7f f7 ff ff | bf bb bb bb ab 00 00 00 |...w....|........|
|00001230| ab bb 77 bb bb bb ff ff | ff ff bf bb bb bb 7b b7 |..w.....|......{.|
|00001240| ab 00 00 00 ab bb 7b b7 | bb ff ff b7 bb bb fb b7 |......{.|........|
|00001250| bb bb 77 bb ab 00 00 00 | ab bb bb 77 bb bb bb bb |..w.....|...w....|
|00001260| 7f bb ff b7 bb 7b b7 bb | ab 00 00 00 bb ba bb 7b |.....{..|.......{|
|00001270| bb bb ff b7 fb ff ff b7 | bb 77 bb bb ba 00 00 00 |........|.w......|
|00001280| bb ab bb bb bb bb bb bb | bb bb ff ff bf bb bb ab |........|........|
|00001290| bb 00 00 00 bb bb aa bb | bb bb 77 b7 bb bb bb bb |........|..w.....|
|000012a0| fb ff af ba bb 00 00 00 | bb bb bb aa bb bb bb bb |........|........|
|000012b0| bb bb bb bb bb bb bb ff | bb 00 00 00 bb bb bb bb |........|........|
|000012c0| aa aa bb bb bb bb bb ab | aa ba bb bb bb 00 00 00 |........|........|
|000012d0| bb bb bb bb bb bb aa aa | aa aa aa ba bb bb bb bb |........|........|
|000012e0| bb 00 00 00 ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012f0| 00 00 00 00 00 ff ff ff | ff ff 00 00 00 00 00 00 |........|........|
|00001300| 00 00 00 00 00 00 00 00 | 00 ff ff ff ff ff ff 00 |........|........|
|00001310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 ff ff ff |........|........|
|00001320| ff ff ff 0f 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 ff ff ff ff ff ff 00 | 00 00 00 ff ff 0f 00 00 |........|........|
|00001340| 00 00 00 00 00 ff ff ff | ff f0 ff 0f 00 00 00 00 |........|........|
|00001350| 00 f0 ff ff ff ff 00 00 | 00 ff ff ff 00 00 ff ff |........|........|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 ff ff 0f ff ff ff |........|........|
|00001370| 00 00 f0 0f 00 00 00 00 | 00 00 00 00 f0 ff ff 00 |........|........|
|00001380| 00 ff ff ff 00 00 00 00 | 00 00 00 00 00 00 f0 ff |........|........|
|00001390| 0f 00 00 00 00 ff ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000013a0| ff ff 0f 00 00 00 00 00 | 00 ff ff ff 00 00 00 00 |........|........|
|000013b0| 00 f0 ff ff 00 00 00 00 | 00 00 00 00 00 ff ff ff |........|........|
|000013c0| 00 00 00 00 ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000013d0| 00 ff ff ff 00 00 00 00 | 00 00 ff ff ff 00 00 00 |........|........|
|000013e0| 00 00 00 00 00 ff ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000013f0| 00 ff ff ff 00 00 00 00 | 00 ff ff ff 00 00 00 00 |........|........|
|00001400| 00 00 00 00 00 00 00 00 | ff ff ff 00 00 ff ff ff |........|........|
|00001410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|00001420| 0f ff ff ff 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001430| 00 00 00 00 00 ff ff ff |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+