/ APDL Public Domain 2 / APDL_PD2A.iso / demos / demo_1 / coral

< 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 43 6f 72 61 6c 00 | 00 00 00 00 ff ff ff ff |.!Coral.|........|
|00000070| 45 fd ff ff bd 62 2b 3f | 08 00 00 00 ff ff ff ff |E....b+?|........|
|00000080| d8 00 00 80 82 21 48 65 | 6c 70 00 00 7c 99 32 0a |.....!He|lp..|.2.|
|00000090| 0d 01 00 00 45 ff ff ff | 88 00 d5 25 09 00 b4 f0 |....E...|...%....|
|000000a0| 0d 01 00 00 24 00 00 00 | 82 21 52 75 6e 00 04 00 |....$...|.!Run...|
|000000b0| 7c 99 32 0a 69 00 00 00 | 45 eb ff ff ec 88 d3 25 ||.2.i...|E......%|
|000000c0| 09 00 d2 d1 69 00 00 00 | 55 01 00 00 82 21 53 70 |....i...|U....!Sp|
|000000d0| 72 69 74 65 73 00 32 0a | e0 02 00 00 45 f9 ff ff |rites.2.|....E...|
|000000e0| 07 89 d3 25 09 00 33 b5 | e0 02 00 00 e2 01 00 00 |...%..3.|........|
|000000f0| 82 43 6f 72 61 6c 00 00 | 7c 99 32 0a 25 03 00 00 |.Coral..||.2.%...|
|00000100| 45 fb ff ff be 64 75 3d | 09 00 ab 8f 25 03 00 00 |E....du=|....%...|
|00000110| e6 04 00 00 00 00 00 00 | c3 00 04 00 7c 99 32 0a |........|....|.2.|
|00000120| a0 9b 32 0a b8 9d 32 0a | a4 a4 32 0a d0 a8 32 0a |..2...2.|..2...2.|
|00000130| 8c ab 32 0a 70 29 31 0a | 00 00 00 00 00 00 00 00 |..2.p)1.|........|
|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 48 65 | 6c 70 00 00 7c 99 32 0a |Data.!He|lp..|.2.|
|00000170| 0d 01 00 00 45 ff ff ff | 88 00 d5 25 03 00 b4 f0 |....E...|...%....|
|00000180| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 28 43 4f |This pro|gram (CO|
|00000190| 52 41 4c 29 20 64 72 61 | 77 73 20 72 61 6e 64 6f |RAL) dra|ws rando|
|000001a0| 6d 20 66 69 6e 67 65 72 | 2d 6c 69 6b 65 20 63 6f |m finger|-like co|
|000001b0| 72 61 6c 3b 6e 6f 74 68 | 69 6e 67 20 73 70 65 63 |ral;noth|ing spec|
|000001c0| 69 61 6c 0a 74 68 65 72 | 65 2c 62 75 74 20 69 74 |ial.ther|e,but it|
|000001d0| 20 64 6f 65 73 20 75 73 | 65 20 61 20 63 6f 75 70 | does us|e a coup|
|000001e0| 6c 65 20 6f 66 20 70 72 | 6f 67 72 61 6d 6d 69 6e |le of pr|ogrammin|
|000001f0| 67 20 74 65 63 68 6e 69 | 71 75 65 73 20 74 6f 20 |g techni|ques to |
|00000200| 67 69 76 65 20 74 68 65 | 0a 69 6c 6c 75 73 69 6f |give the|.illusio|
|00000210| 6e 20 6f 66 20 6d 6f 72 | 65 20 63 6f 6c 6f 75 72 |n of mor|e colour|
|00000220| 73 20 61 6e 64 20 74 72 | 79 20 61 6e 64 20 70 72 |s and tr|y and pr|
|00000230| 65 76 65 6e 74 20 66 72 | 6f 6e 64 73 20 66 72 6f |event fr|onds fro|
|00000240| 6d 20 63 72 6f 73 73 69 | 6e 67 0a 65 61 63 68 20 |m crossi|ng.each |
|00000250| 6f 74 68 65 72 2e 0a 54 | 68 61 6e 6b 73 20 74 6f |other..T|hanks to|
|00000260| 20 42 72 69 61 6e 20 43 | 6f 6f 6b 65 20 66 6f 72 | Brian C|ooke for|
|00000270| 20 70 72 6f 76 69 64 69 | 6e 67 20 74 68 69 73 20 | providi|ng this |
|00000280| 6d 61 69 6e 20 70 72 6f | 67 72 61 6d 2e 46 69 6c |main pro|gram.Fil|
|00000290| 65 44 61 74 61 82 21 52 | 75 6e 00 04 00 7c 99 32 |eData.!R|un...|.2|
|000002a0| 0a 69 00 00 00 45 eb ff | ff ec 88 d3 25 03 00 d2 |.i...E..|....%...|
|000002b0| d1 49 63 6f 6e 53 70 72 | 69 74 65 73 20 3c 4f 62 |.IconSpr|ites <Ob|
|000002c0| 65 79 24 44 69 72 3e 2e | 21 53 70 72 69 74 65 73 |ey$Dir>.|!Sprites|
|000002d0| 0a 53 65 74 20 43 6f 72 | 61 6c 24 44 69 72 20 3c |.Set Cor|al$Dir <|
|000002e0| 4f 62 65 79 24 44 69 72 | 3e 0a 57 69 6d 70 73 6c |Obey$Dir|>.Wimpsl|
|000002f0| 6f 74 20 2d 6d 69 6e 20 | 32 34 4b 20 2d 6d 61 78 |ot -min |24K -max|
|00000300| 20 32 34 4b 0a 52 75 6e | 20 3c 43 6f 72 61 6c 24 | 24K.Run| <Coral$|
|00000310| 44 69 72 3e 2e 43 6f 72 | 61 6c 46 69 6c 65 44 61 |Dir>.Cor|alFileDa|
|00000320| 74 61 82 21 53 70 72 69 | 74 65 73 00 32 0a e0 02 |ta.!Spri|tes.2...|
|00000330| 00 00 45 f9 ff ff 07 89 | d3 25 03 00 33 b5 01 00 |..E.....|.%..3...|
|00000340| 00 00 10 00 00 00 e4 02 | 00 00 d4 02 00 00 21 63 |........|......!c|
|00000350| 6f 72 61 6c 00 00 00 00 | 00 00 04 00 00 00 10 00 |oral....|........|
|00000360| 00 00 00 00 00 00 07 00 | 00 00 2c 00 00 00 80 01 |........|..,.....|
|00000370| 00 00 0c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 bb bb 00 b0 bb |........|........|
|00000390| bb bb 00 00 00 00 00 00 | 00 00 00 00 00 00 00 bb |........|........|
|000003a0| bb 0b b0 bb bb bb 0b 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 b0 bb bb 00 bb | bb bb bb bb bb bb 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 bb | bb bb 00 bb bb bb bb bb |........|........|
|000003d0| bb bb 0b 00 00 00 00 00 | 00 00 00 bb bb bb bb bb |........|........|
|000003e0| bb 00 00 00 b0 bb bb 00 | 00 00 00 00 00 00 00 bb |........|........|
|000003f0| bb bb bb bb bb 00 00 00 | 00 00 00 b0 bb 0b 00 00 |........|........|
|00000400| 00 00 00 bb bb 00 b0 bb | bb 00 00 bb bb 0b 00 bb |........|........|
|00000410| bb bb 00 00 00 00 00 bb | bb 0b 00 bb bb bb bb bb |........|........|
|00000420| bb bb bb bb bb 0b 00 00 | 00 00 00 b0 bb bb bb bb |........|........|
|00000430| bb bb bb bb 0b bb bb bb | bb 00 00 00 00 00 00 bb |........|........|
|00000440| bb bb bb bb bb bb 00 00 | 00 00 00 b0 bb 0b 00 00 |........|........|
|00000450| 00 00 00 bb bb bb bb bb | bb bb bb bb bb 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 b0 bb | 00 00 00 bb bb bb bb bb |........|........|
|00000470| bb 0b 00 00 00 00 00 00 | 00 00 b0 bb bb bb bb bb |........|........|
|00000480| bb bb 00 b0 bb bb bb bb | 0b 00 00 00 00 00 b0 bb |........|........|
|00000490| bb bb bb bb bb 00 00 b0 | bb bb bb bb bb 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 bb bb | 0b 00 00 b0 bb bb 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 bb bb 00 00 00 b0 |........|........|
|000004c0| bb 0b 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 ff ff ff 00 ff |........|........|
|000004e0| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 ff |........|........|
|000004f0| ff ff 00 ff ff 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 ff ff ff 00 f0 | ff 00 00 00 00 f0 ff ff |........|........|
|00000510| ff ff 00 00 00 00 00 ff | ff ff 00 ff ff ff 00 f0 |........|........|
|00000520| ff ff ff ff ff ff 0f 00 | 00 00 00 ff ff ff 00 ff |........|........|
|00000530| ff ff ff ff ff 00 00 00 | f0 ff ff 00 00 00 00 ff |........|........|
|00000540| ff ff 00 00 f0 ff ff ff | ff 00 00 00 00 00 00 f0 |........|........|
|00000550| ff 0f 00 ff ff ff 00 0f | 00 00 00 ff ff 00 00 ff |........|........|
|00000560| ff 0f 00 ff ff ff 00 ff | ff ff 00 ff ff 0f 00 ff |........|........|
|00000570| ff ff ff ff ff ff ff ff | ff 0f 00 ff ff ff 00 f0 |........|........|
|00000580| ff ff ff ff ff ff ff 00 | 00 f0 ff ff ff 00 00 ff |........|........|
|00000590| ff ff 00 00 00 00 ff ff | ff ff 00 00 00 00 00 f0 |........|........|
|000005a0| ff 0f 00 ff ff ff 00 00 | f0 00 ff ff ff ff ff ff |........|........|
|000005b0| ff 00 00 00 00 00 00 ff | ff ff f0 ff 00 00 00 ff |........|........|
|000005c0| ff ff ff ff ff 0f 00 00 | 00 00 00 ff ff ff f0 ff |........|........|
|000005d0| ff ff ff ff ff 00 00 f0 | ff ff ff ff 0f 00 00 ff |........|........|
|000005e0| ff ff f0 ff ff ff ff 0f | 00 00 00 f0 ff ff f0 ff |........|........|
|000005f0| ff 00 00 ff ff ff 00 00 | 00 00 00 00 00 00 00 f0 |........|........|
|00000600| ff 0f 00 00 00 00 00 ff | ff ff 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 f0 ff 0f 00 00 | 00 00 00 ff ff ff 46 69 |........|......Fi|
|00000620| 6c 65 44 61 74 61 82 43 | 6f 72 61 6c 00 00 7c 99 |leData.C|oral..|.|
|00000630| 32 0a 25 03 00 00 45 fb | ff ff be 64 75 3d 03 00 |2.%...E.|...du=..|
|00000640| ab 8f 0d 00 0a 0e ee 20 | 85 20 f2 45 4e 44 3a e0 |....... |. .END:.|
|00000650| 0d 00 14 0a eb 20 32 37 | 3a 87 0d 00 1e 3d c8 99 |..... 27|:....=..|
|00000660| 20 22 4f 53 5f 53 57 49 | 4e 75 6d 62 65 72 46 72 | "OS_SWI|NumberFr|
|00000670| 6f 6d 53 74 72 69 6e 67 | 22 2c 2c 22 43 6f 6c 6f |omString|",,"Colo|
|00000680| 75 72 54 72 61 6e 73 5f | 53 65 74 47 43 4f 4c 22 |urTrans_|SetGCOL"|
|00000690| 20 b8 20 67 63 6f 6c 0d | 00 28 0d e3 20 69 3d 31 | . gcol.|.(.. i=1|
|000006a0| 20 b8 20 37 0d 00 32 0f | 63 3d 69 2a 26 32 32 2b | . 7..2.|c=i*&22+|
|000006b0| 26 31 31 0d 00 3c 0d fb | 20 69 2c 63 2c 30 2c 30 |&11..<..| i,c,0,0|
|000006c0| 0d 00 46 0f fb 20 38 2b | 69 2c 63 2c 30 2c 30 0d |..F.. 8+|i,c,0,0.|
|000006d0| 00 50 05 ed 0d 00 5a 0f | fb 20 30 2c 30 2c 30 2c |.P....Z.|. 0,0,0,|
|000006e0| 26 41 41 0d 00 64 0f fb | 20 38 2c 30 2c 30 2c 26 |&AA..d..| 8,0,0,&|
|000006f0| 41 41 0d 00 6e 1b f2 6e | 6f 64 65 28 36 34 30 2c |AA..n..n|ode(640,|
|00000700| 34 38 30 2c 38 30 2c 31 | 30 2c 31 36 29 0d 00 78 |480,80,1|0,16)..x|
|00000710| 08 f2 45 4e 44 0d 00 82 | 05 e0 0d 00 8c 16 dd 20 |..END...|....... |
|00000720| f2 6e 6f 64 65 28 78 2c | 79 2c 72 2c 62 2c 63 29 |.node(x,|y,r,b,c)|
|00000730| 0d 00 96 09 e6 20 31 2c | 38 0d 00 a0 12 c8 8f 20 |..... 1,|8...... |
|00000740| c8 90 20 78 2c 79 2c 72 | 2a 2e 39 0d 00 aa 17 c8 |.. x,y,r|*.9.....|
|00000750| 99 20 67 63 6f 6c 2c 63 | 3c 3c 38 2c 2c 2c 26 31 |. gcol,c|<<8,,,&1|
|00000760| 30 30 0d 00 b4 12 c8 8f | 20 c8 90 20 78 2c 79 2c |00......| .. x,y,|
|00000770| 72 2a 2e 35 0d 00 be 0b | e7 20 72 3c 32 20 e1 0d |r*.5....|. r<2 ..|
|00000780| 00 c8 08 ea 20 6e 6f 0d | 00 d2 08 6e 6f 3d 30 0d |.... no.|...no=0.|
|00000790| 00 dc 05 f5 0d 00 e6 0e | 61 3d b3 28 31 29 2a 33 |........|a=.(1)*3|
|000007a0| 36 30 0d 00 f0 10 78 31 | 3d 78 2b 72 2a b5 b2 28 |60....x1|=x+r*..(|
|000007b0| 61 29 0d 00 fa 10 79 31 | 3d 79 2b 72 2a 9b b2 28 |a)....y1|=y+r*..(|
|000007c0| 61 29 0d 01 04 11 e7 20 | b0 78 31 2c 79 31 29 3d |a)..... |.x1,y1)=|
|000007d0| 30 20 8c 0d 01 0e 0b 64 | 78 3d 78 31 2d 78 0d 01 |0 .....d|x=x1-x..|
|000007e0| 18 0b 64 79 3d 79 31 2d | 79 0d 01 22 19 6c 3d 72 |..dy=y1-|y..".l=r|
|000007f0| 2a 2e 39 2f b6 28 64 78 | 2a 64 78 2b 64 79 2a 64 |*.9/.(dx|*dx+dy*d|
|00000800| 79 29 0d 01 2c 0b 64 78 | 3d 64 78 2a 6c 0d 01 36 |y)..,.dx|=dx*l..6|
|00000810| 0b 64 79 3d 64 79 2a 6c | 0d 01 40 43 e6 20 31 2c |.dy=dy*l|..@C. 1,|
|00000820| 38 3a ec 20 78 2d 64 79 | 2c 79 2b 64 78 3a ec 20 |8:. x-dy|,y+dx:. |
|00000830| 78 2b 64 79 2c 79 2d 64 | 78 3a f0 20 38 35 2c 78 |x+dy,y-d|x:. 85,x|
|00000840| 31 2d 64 79 2c 79 31 2b | 64 78 3a f0 20 38 35 2c |1-dy,y1+|dx:. 85,|
|00000850| 78 31 2b 64 79 2c 79 31 | 2d 64 78 0d 01 4a 0b 64 |x1+dy,y1|-dx..J.d|
|00000860| 78 3d 64 78 2f 32 0d 01 | 54 0b 64 79 3d 64 79 2f |x=dx/2..|T.dy=dy/|
|00000870| 32 0d 01 5e 17 c8 99 20 | 67 63 6f 6c 2c 63 3c 3c |2..^... |gcol,c<<|
|00000880| 38 2c 2c 2c 26 31 30 30 | 0d 01 68 3d ec 20 78 2d |8,,,&100|..h=. x-|
|00000890| 64 79 2c 79 2b 64 78 3a | ec 20 78 2b 64 79 2c 79 |dy,y+dx:|. x+dy,y|
|000008a0| 2d 64 78 3a f0 20 38 35 | 2c 78 31 2d 64 79 2c 79 |-dx:. 85|,x1-dy,y|
|000008b0| 31 2b 64 78 3a f0 20 38 | 35 2c 78 31 2b 64 79 2c |1+dx:. 8|5,x1+dy,|
|000008c0| 79 31 2d 64 78 0d 01 72 | 1c f2 6e 6f 64 65 28 78 |y1-dx..r|..node(x|
|000008d0| 31 2c 79 31 2c 72 2a 2e | 39 35 2c 62 2c 63 2b 34 |1,y1,r*.|95,b,c+4|
|000008e0| 29 0d 01 7c 05 cc 0d 01 | 86 09 6e 6f 2b 3d 31 0d |)..|....|..no+=1.|
|000008f0| 01 90 05 cd 0d 01 9a 0a | fd 20 6e 6f 3e 62 0d 01 |........|. no>b..|
|00000900| a4 05 e1 0d 01 ae 0a dd | 20 f2 45 4e 44 0d 01 b8 |........| .END...|
|00000910| 4e f1 22 54 68 61 74 20 | 77 61 73 20 43 2d 4f 2d |N."That |was C-O-|
|00000920| 52 2d 41 2d 4c 20 62 79 | 20 42 72 69 61 6e 20 43 |R-A-L by| Brian C|
|00000930| 6f 6f 6b 65 20 66 6f 72 | 20 42 65 65 62 77 61 72 |ooke for| Beebwar|
|00000940| 65 20 50 2e 44 2e 22 27 | 22 4e 6f 77 2c 74 6f 20 |e P.D."'|"Now,to |
|00000950| 65 78 69 74 2c 6a 75 73 | 74 22 3b 0d 01 c2 05 e0 |exit,jus|t";.....|
|00000960| 0d 01 cc 05 e1 0d ff    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+