home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / BLZ_EXD.DMS / in.adf / blitzmode / darts_poly.bb < prev    next >
Unknown  |  1994-09-05  |  6.0 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 44 61 72 74 | 73 20 70 72 6f 67 72 61 |;.; Dart|s progra|
|00000010| 6d 20 62 79 20 53 69 6d | 6f 6e 20 41 72 6d 73 74 |m by Sim|on Armst|
|00000020| 72 6f 6e 67 00 3b 00 3b | 20 50 6c 65 61 73 65 20 |rong.;.;| Please |
|00000030| 6e 6f 74 65 20 63 6f 70 | 79 72 69 67 68 74 20 6e |note cop|yright n|
|00000040| 6f 74 69 63 65 20 6f 6e | 20 74 68 65 20 70 72 6f |otice on| the pro|
|00000050| 6a 65 63 74 69 6f 6e 20 | 61 6c 67 6f 72 69 74 68 |jection |algorith|
|00000060| 6d 00 3b 00 00 3b 20 69 | 6e 63 72 65 61 73 65 20 |m.;..; i|ncrease |
|00000070| 74 68 65 20 64 61 72 74 | 20 76 61 72 69 61 62 6c |the dart| variabl|
|00000080| 65 20 69 66 20 79 6f 75 | 20 68 61 76 65 20 61 6e |e if you| have an|
|00000090| 20 61 63 63 65 6c 65 72 | 61 74 65 64 20 6d 61 63 | acceler|ated mac|
|000000a0| 68 69 6e 65 00 00 64 61 | 72 74 73 3d 36 00 00 dd |hine..da|rts=6...|
|000000b0| 82 20 22 53 65 74 74 69 | 6e 67 20 75 70 2c 20 70 |. "Setti|ng up, p|
|000000c0| 6c 65 61 73 65 20 77 61 | 69 74 2e 2e 2e 22 00 00 |lease wa|it..."..|
|000000d0| 3b 20 70 72 6f 63 65 73 | 73 6f 72 20 63 6c 73 20 |; proces|sor cls |
|000000e0| 66 6f 72 20 65 78 74 72 | 61 20 73 70 65 65 64 00 |for extr|a speed.|
|000000f0| 00 80 08 20 6d 79 63 6c | 73 7b 61 2e 6c 7d 00 20 |... mycl|s{a.l}. |
|00000100| 20 80 7e 2e 6c 20 64 30 | 2c 61 30 3a 80 3d 2e 6c | .~.l d0|,a0:.=.l|
|00000110| 23 34 30 2a 32 35 36 2c | 61 30 00 20 20 80 81 23 |#40*256,|a0. ..#|
|00000120| 30 2c 64 30 3a 80 81 23 | 30 2c 64 31 3a 80 81 23 |0,d0:..#|0,d1:..#|
|00000130| 30 2c 64 32 3a 80 81 23 | 30 2c 64 33 3a 80 81 23 |0,d2:..#|0,d3:..#|
|00000140| 30 2c 64 34 00 20 20 80 | 81 23 30 2c 64 35 3a 80 |0,d4. .|.#0,d5:.|
|00000150| 81 23 30 2c 64 36 3a 80 | 7e 2e 6c 64 30 2c 61 31 |.#0,d6:.|~.ld0,a1|
|00000160| 3a 80 7e 2e 6c 64 30 2c | 61 32 3a 80 7e 2e 6c 64 |:.~.ld0,|a2:.~.ld|
|00000170| 30 2c 61 33 00 20 20 80 | 7e 23 32 35 35 2c 64 37 |0,a3. .|~#255,d7|
|00000180| 00 20 20 6c 6f 6f 70 31 | 3a 80 82 2e 6c 20 64 30 |. loop1|:...l d0|
|00000190| 2d 64 36 2f 61 31 2d 61 | 33 2c 2d 28 61 30 29 3a |-d6/a1-a|3,-(a0):|
|000001a0| 80 6f 20 64 37 2c 6c 6f | 6f 70 31 00 20 20 80 11 |.o d7,lo|op1. ..|
|000001b0| 00 80 02 20 80 08 00 00 | 80 0d 20 70 20 7b 80 2f |... ....|.. p {./|
|000001c0| 2e 6f 62 6a 65 63 74 5c | 60 31 7d 28 61 35 29 3a |.object\|`1}(a5):|
|000001d0| 80 02 20 80 0d 00 00 80 | 08 20 63 61 6c 63 69 64 |.. .....|. calcid|
|000001e0| 7b 6f 62 6a 65 63 74 2e | 6c 2c 72 6f 74 74 61 62 |{object.|l,rottab|
|000001f0| 6c 65 2e 6c 7d 00 20 20 | 80 82 2e 6c 20 61 34 2d |le.l}. |...l a4-|
|00000200| 61 36 2c 2d 28 61 37 29 | 3a 80 7e 2e 6c 20 64 30 |a6,-(a7)|:.~.l d0|
|00000210| 2c 61 35 3a 80 7e 2e 6c | 20 64 31 2c 61 33 00 20 |,a5:.~.l| d1,a3. |
|00000220| 20 80 82 2e 6c 21 70 7b | 72 6f 74 78 2d 32 7d 2c | ...l!p{|rotx-2},|
|00000230| 64 30 2d 64 32 3a 80 7e | 23 34 30 39 32 2c 64 33 |d0-d2:.~|#4092,d3|
|00000240| 3a 80 42 20 64 33 2c 64 | 30 3a 80 42 20 64 33 2c |:.B d3,d|0:.B d3,|
|00000250| 64 31 00 20 20 80 42 20 | 64 33 2c 64 32 3a 80 7a |d1. .B |d3,d2:.z|
|00000260| 20 21 70 7b 69 64 7d 2c | 61 35 00 20 20 80 82 20 | !p{id},|a5. .. |
|00000270| 30 28 61 33 2c 64 32 2e | 77 29 2c 64 34 2d 64 35 |0(a3,d2.|w),d4-d5|
|00000280| 00 20 20 80 82 20 30 28 | 61 33 2c 64 31 2e 77 29 |. .. 0(|a3,d1.w)|
|00000290| 2c 64 32 2d 64 33 00 20 | 20 80 82 20 30 28 61 33 |,d2-d3. | .. 0(a3|
|000002a0| 2c 64 30 2e 77 29 2c 64 | 30 2d 64 31 00 20 20 80 |,d0.w),d|0-d1. .|
|000002b0| 7e 20 64 35 2c 64 36 3a | 80 83 20 64 33 2c 64 36 |~ d5,d6:|.. d3,d6|
|000002c0| 3a 80 7e 2e 6c 20 64 36 | 2c 61 30 3a 80 7e 20 64 |:.~.l d6|,a0:.~ d|
|000002d0| 34 2c 64 37 3a 80 83 20 | 64 30 2c 64 37 00 20 20 |4,d7:.. |d0,d7. |
|000002e0| 80 ac 20 64 37 3a 80 3d | 20 64 37 2c 64 37 3a 80 |.. d7:.=| d7,d7:.|
|000002f0| 7e 20 64 37 2c 61 31 3a | 80 83 20 64 32 2c 64 37 |~ d7,a1:|.. d2,d7|
|00000300| 3a 80 3d 2e 6c 20 64 36 | 2c 64 37 3a 80 ac 20 64 |:.=.l d6|,d7:.. d|
|00000310| 37 00 20 20 80 3d 20 64 | 37 2c 64 37 3a 80 7e 20 |7. .= d|7,d7:.~ |
|00000320| 64 37 2c 28 61 35 29 2b | 00 20 20 80 7e 20 64 34 |d7,(a5)+|. .~ d4|
|00000330| 2c 64 37 3a 80 83 20 64 | 31 2c 64 37 3a 80 ac 20 |,d7:.. d|1,d7:.. |
|00000340| 64 37 3a 80 3d 20 64 37 | 2c 64 37 3a 80 7e 20 64 |d7:.= d7|,d7:.~ d|
|00000350| 37 2c 28 61 35 29 2b 00 | 20 20 80 7e 20 64 35 2c |7,(a5)+.| .~ d5,|
|00000360| 64 36 3a 80 83 20 64 32 | 2c 64 36 3a 80 7e 2e 6c |d6:.. d2|,d6:.~.l|
|00000370| 20 64 36 2c 61 32 3a 80 | 7e 20 61 31 2c 64 37 3a | d6,a2:.|~ a1,d7:|
|00000380| 80 83 20 64 33 2c 64 37 | 00 20 20 80 a7 2e 6c 20 |.. d3,d7|. ...l |
|00000390| 64 36 2c 64 37 3a 80 ac | 20 64 37 3a 80 3d 20 64 |d6,d7:..| d7:.= d|
|000003a0| 37 2c 64 37 3a 80 7e 20 | 64 37 2c 28 61 35 29 2b |7,d7:.~ |d7,(a5)+|
|000003b0| 00 20 20 80 7e 20 64 34 | 2c 64 36 3a 80 83 20 64 |. .~ d4|,d6:.. d|
|000003c0| 33 2c 64 36 3a 80 7e 2e | 6c 20 61 32 2c 64 37 3a |3,d6:.~.|l a2,d7:|
|000003d0| 80 ac 20 64 37 3a 80 3d | 20 64 37 2c 64 37 00 20 |.. d7:.=| d7,d7. |
|000003e0| 20 80 83 20 64 30 2c 64 | 37 3a 80 a7 2e 6c 20 64 | .. d0,d|7:...l d|
|000003f0| 36 2c 64 37 3a 80 ac 20 | 64 37 3a 80 3d 20 64 37 |6,d7:.. |d7:.= d7|
|00000400| 2c 64 37 3a 80 7e 20 64 | 37 2c 28 61 35 29 2b 00 |,d7:.~ d|7,(a5)+.|
|00000410| 20 20 80 7e 20 64 35 2c | 64 37 3a 80 83 20 64 31 | .~ d5,|d7:.. d1|
|00000420| 2c 64 37 3a 80 ac 20 64 | 37 3a 80 3d 20 64 37 2c |,d7:.. d|7:.= d7,|
|00000430| 64 37 3a 80 7e 20 64 37 | 2c 28 61 35 29 2b 00 20 |d7:.~ d7|,(a5)+. |
|00000440| 20 80 7e 20 64 32 2c 64 | 36 3a 80 83 20 64 34 2c | .~ d2,d|6:.. d4,|
|00000450| 64 36 3a 80 7e 2e 6c 20 | 61 30 2c 64 37 3a 80 ac |d6:.~.l |a0,d7:..|
|00000460| 20 64 37 3a 80 3d 20 64 | 37 2c 64 37 00 20 20 80 | d7:.= d|7,d7. .|
|00000470| 83 20 64 30 2c 64 37 3a | 80 3d 2e 6c 20 64 36 2c |. d0,d7:|.=.l d6,|
|00000480| 64 37 3a 80 ac 20 64 37 | 3a 80 3d 20 64 37 2c 64 |d7:.. d7|:.= d7,d|
|00000490| 37 3a 80 7e 20 64 37 2c | 28 61 35 29 2b 00 20 20 |7:.~ d7,|(a5)+. |
|000004a0| 80 83 20 64 31 2c 64 32 | 3a 80 ac 20 64 32 3a 80 |.. d1,d2|:.. d2:.|
|000004b0| 3d 20 64 32 2c 64 32 3a | 80 7e 20 64 32 2c 28 61 |= d2,d2:|.~ d2,(a|
|000004c0| 35 29 2b 00 20 20 80 86 | 20 64 30 3a 80 7e 20 64 |5)+. ..| d0:.~ d|
|000004d0| 30 2c 28 61 35 29 2b 3a | 80 83 20 64 31 2c 64 33 |0,(a5)+:|.. d1,d3|
|000004e0| 3a 80 ac 20 64 33 3a 80 | 3d 20 64 33 2c 64 33 3a |:.. d3:.|= d3,d3:|
|000004f0| 80 7e 20 64 33 2c 28 61 | 35 29 2b 00 20 20 80 82 |.~ d3,(a|5)+. ..|
|00000500| 2e 6c 20 28 61 37 29 2b | 2c 61 34 2d 61 36 3a 80 |.l (a7)+|,a4-a6:.|
|00000510| 11 00 80 02 20 80 08 00 | 00 80 08 20 6d 6f 76 65 |.... ...|... move|
|00000520| 6f 6e 7a 7b 6f 62 6a 65 | 63 74 2e 6c 2c 73 68 69 |onz{obje|ct.l,shi|
|00000530| 66 74 2e 77 7d 00 20 20 | 80 75 20 64 30 2c 61 35 |ft.w}. |.u d0,a5|
|00000540| 00 20 20 80 82 20 21 70 | 7b 69 64 2b 31 32 7d 2c |. .. !p|{id+12},|
|00000550| 64 33 2d 64 35 3a 80 44 | 2e 6c 20 64 31 2c 64 33 |d3-d5:.D|.l d1,d3|
|00000560| 3a 80 44 2e 6c 20 64 31 | 2c 64 34 3a 80 44 2e 6c |:.D.l d1|,d4:.D.l|
|00000570| 20 64 31 2c 64 35 00 20 | 20 80 82 2e 6c 20 64 33 | d1,d5. | ...l d3|
|00000580| 2d 64 35 2c 21 70 7b 76 | 78 7d 00 20 20 80 75 20 |-d5,!p{v|x}. .u |
|00000590| 64 30 2c 61 35 3a 80 11 | 00 80 02 20 80 08 00 00 |d0,a5:..|... ....|
|000005a0| 80 0d 20 67 65 6e 76 65 | 72 74 00 20 20 80 82 2e |.. genve|rt. ...|
|000005b0| 6c 20 21 70 7b 78 7d 2c | 64 30 2d 64 32 3a 80 45 |l !p{x},|d0-d2:.E|
|000005c0| 2e 6c 23 32 2c 64 30 3a | 80 45 2e 6c 23 32 2c 64 |.l#2,d0:|.E.l#2,d|
|000005d0| 31 00 20 20 80 1c 20 60 | 31 3c 3e 30 00 20 20 20 |1. .. `|1<>0. |
|000005e0| 20 80 82 20 21 70 7b 69 | 64 2b 30 7d 2c 64 33 2d | .. !p{i|d+0},d3-|
|000005f0| 64 35 3a 80 44 2e 6c 23 | 60 31 2c 64 33 3a 80 44 |d5:.D.l#|`1,d3:.D|
|00000600| 2e 6c 23 60 31 2c 64 34 | 3a 80 44 2e 6c 23 60 31 |.l#`1,d4|:.D.l#`1|
|00000610| 2c 64 35 00 20 20 20 20 | 60 32 2e 6c 64 33 2c 64 |,d5. |`2.ld3,d|
|00000620| 30 3a 60 32 2e 6c 64 34 | 2c 64 31 3a 60 32 2e 6c |0:`2.ld4|,d1:`2.l|
|00000630| 64 35 2c 64 32 00 20 20 | 80 1f 00 20 20 80 1c 20 |d5,d2. |... .. |
|00000640| 60 33 3c 3e 30 00 20 20 | 20 20 80 82 20 21 70 7b |`3<>0. | .. !p{|
|00000650| 69 64 2b 36 7d 2c 64 33 | 2d 64 35 3a 80 44 2e 6c |id+6},d3|-d5:.D.l|
|00000660| 23 60 33 2c 64 33 3a 80 | 44 2e 6c 23 60 33 2c 64 |#`3,d3:.|D.l#`3,d|
|00000670| 34 3a 80 44 2e 6c 23 60 | 33 2c 64 35 00 20 20 20 |4:.D.l#`|3,d5. |
|00000680| 20 60 34 2e 6c 64 33 2c | 64 30 3a 60 34 2e 6c 64 | `4.ld3,|d0:`4.ld|
|00000690| 34 2c 64 31 3a 60 34 2e | 6c 64 35 2c 64 32 00 20 |4,d1:`4.|ld5,d2. |
|000006a0| 20 80 1f 00 20 20 80 1c | 20 60 35 3c 3e 30 00 20 | ... ..| `5<>0. |
|000006b0| 20 20 20 80 82 20 21 70 | 7b 69 64 2b 31 32 7d 2c | .. !p|{id+12},|
|000006c0| 64 33 2d 64 35 3a 80 44 | 2e 6c 23 60 35 2c 64 33 |d3-d5:.D|.l#`5,d3|
|000006d0| 3a 80 44 2e 6c 23 60 35 | 2c 64 34 3a 80 44 2e 6c |:.D.l#`5|,d4:.D.l|
|000006e0| 23 60 35 2c 64 35 00 20 | 20 20 20 60 36 2e 6c 64 |#`5,d5. | `6.ld|
|000006f0| 33 2c 64 30 3a 60 36 2e | 6c 64 34 2c 64 31 3a 60 |3,d0:`6.|ld4,d1:`|
|00000700| 36 2e 6c 64 35 2c 64 32 | 00 20 20 80 1f 00 20 20 |6.ld5,d2|. ... |
|00000710| 80 ac 20 64 32 3a 80 b0 | 20 64 32 3a 80 4c 20 66 |.. d2:..| d2:.L f|
|00000720| 6c 6f 77 3a 80 71 20 64 | 32 2c 64 30 3a 80 53 20 |low:.q d|2,d0:.S |
|00000730| 66 6c 6f 77 3a 80 71 20 | 64 32 2c 64 31 3a 80 53 |flow:.q |d2,d1:.S|
|00000740| 20 66 6c 6f 77 00 20 20 | 80 83 23 36 34 30 2c 64 | flow. |..#640,d|
|00000750| 30 3a 80 83 23 35 31 32 | 2c 64 31 00 20 20 80 ac |0:..#512|,d1. ..|
|00000760| 20 64 30 3a 80 ac 20 64 | 31 3a 80 3d 23 31 36 30 | d0:.. d|1:.=#160|
|00000770| 2c 64 30 3a 80 3d 23 31 | 32 38 2c 64 31 3a 80 82 |,d0:.=#1|28,d1:..|
|00000780| 20 64 30 2d 64 31 2c 28 | 61 36 29 3a 80 40 23 34 | d0-d1,(|a6):.@#4|
|00000790| 2c 61 36 00 80 02 20 80 | 0d 00 00 80 09 2e 77 20 |,a6... .|......w |
|000007a0| 67 65 6e 64 61 72 74 7b | 6f 62 6a 65 63 74 2e 6c |gendart{|object.l|
|000007b0| 7d 00 20 20 80 82 2e 6c | 20 61 34 2d 61 36 2c 2d |}. ...l| a4-a6,-|
|000007c0| 28 61 37 29 3a 80 7e 2e | 6c 20 64 30 2c 61 35 3a |(a7):.~.|l d0,a5:|
|000007d0| 80 7a 20 21 70 7b 76 7d | 2c 61 36 00 20 20 21 67 |.z !p{v}|,a6. !g|
|000007e0| 65 6e 76 65 72 74 7b 30 | 2c 30 2c 30 2c 30 2c 38 |envert{0|,0,0,0,8|
|000007f0| 2c 80 3d 7d 00 20 20 21 | 67 65 6e 76 65 72 74 7b |,.=}. !|genvert{|
|00000800| 30 2c 30 2c 37 2c 80 a7 | 2c 38 2c 80 a7 7d 00 20 |0,0,7,..|,8,..}. |
|00000810| 20 21 67 65 6e 76 65 72 | 74 7b 38 2c 80 a7 2c 30 | !genver|t{8,..,0|
|00000820| 2c 30 2c 38 2c 80 a7 7d | 3a 21 67 65 6e 76 65 72 |,0,8,..}|:!genver|
|00000830| 74 7b 38 2c 80 3d 2c 30 | 2c 30 2c 38 2c 80 a7 7d |t{8,.=,0|,0,8,..}|
|00000840| 00 20 20 21 67 65 6e 76 | 65 72 74 7b 37 2c 80 a7 |. !genv|ert{7,..|
|00000850| 2c 30 2c 30 2c 38 2c 80 | a7 7d 3a 21 67 65 6e 76 |,0,0,8,.|.}:!genv|
|00000860| 65 72 74 7b 37 2c 80 3d | 2c 30 2c 30 2c 38 2c 80 |ert{7,.=|,0,0,8,.|
|00000870| a7 7d 00 20 20 21 67 65 | 6e 76 65 72 74 7b 30 2c |.}. !ge|nvert{0,|
|00000880| 30 2c 36 2c 80 3d 2c 38 | 2c 80 a7 7d 00 20 20 80 |0,6,.=,8|,..}. .|
|00000890| 82 2e 6c 20 28 61 37 29 | 2b 2c 61 34 2d 61 36 3a |..l (a7)|+,a4-a6:|
|000008a0| 80 81 23 2d 31 2c 64 30 | 3a 80 11 00 20 20 66 6c |..#-1,d0|:... fl|
|000008b0| 6f 77 3a 80 82 2e 6c 20 | 28 61 37 29 2b 2c 61 34 |ow:...l |(a7)+,a4|
|000008c0| 2d 61 36 3a 80 81 23 30 | 2c 64 30 3a 80 11 00 80 |-a6:..#0|,d0:....|
|000008d0| 02 20 80 08 00 00 80 09 | 2e 77 20 67 65 6e 73 74 |. ......|.w genst|
|000008e0| 61 72 7b 6f 62 6a 65 63 | 74 2e 6c 7d 00 20 20 80 |ar{objec|t.l}. .|
|000008f0| 82 2e 6c 20 61 34 2d 61 | 36 2c 2d 28 61 37 29 3a |..l a4-a|6,-(a7):|
|00000900| 80 7e 2e 6c 20 64 30 2c | 61 35 3a 80 7a 20 21 70 |.~.l d0,|a5:.z !p|
|00000910| 7b 76 7d 2c 61 36 00 20 | 20 21 67 65 6e 76 65 72 |{v},a6. | !genver|
|00000920| 74 7b 38 2c 80 3d 2c 30 | 2c 30 2c 30 2c 30 7d 3a |t{8,.=,0|,0,0,0}:|
|00000930| 21 67 65 6e 76 65 72 74 | 7b 38 2c 80 a7 2c 30 2c |!genvert|{8,..,0,|
|00000940| 30 2c 30 2c 30 7d 00 20 | 20 21 67 65 6e 76 65 72 |0,0,0}. | !genver|
|00000950| 74 7b 30 2c 30 2c 38 2c | 80 3d 2c 30 2c 30 7d 3a |t{0,0,8,|.=,0,0}:|
|00000960| 21 67 65 6e 76 65 72 74 | 7b 30 2c 30 2c 38 2c 80 |!genvert|{0,0,8,.|
|00000970| a7 2c 30 2c 30 7d 00 20 | 20 21 67 65 6e 76 65 72 |.,0,0}. | !genver|
|00000980| 74 7b 30 2c 30 2c 30 2c | 30 2c 38 2c 80 3d 7d 3a |t{0,0,0,|0,8,.=}:|
|00000990| 21 67 65 6e 76 65 72 74 | 7b 30 2c 30 2c 30 2c 30 |!genvert|{0,0,0,0|
|000009a0| 2c 38 2c 80 a7 7d 00 20 | 20 80 82 2e 6c 20 28 61 |,8,..}. | ...l (a|
|000009b0| 37 29 2b 2c 61 34 2d 61 | 36 3a 80 11 00 80 02 20 |7)+,a4-a|6:..... |
|000009c0| 80 08 00 00 80 08 20 67 | 65 6e 6c 69 6e 65 7b 6f |...... g|enline{o|
|000009d0| 62 6a 65 63 74 2e 6c 7d | 00 20 20 80 82 2e 6c 20 |bject.l}|. ...l |
|000009e0| 61 34 2d 61 36 2c 2d 28 | 61 37 29 3a 80 7e 2e 6c |a4-a6,-(|a7):.~.l|
|000009f0| 20 64 30 2c 61 35 3a 80 | 7a 20 21 70 7b 76 7d 2c | d0,a5:.|z !p{v},|
|00000a00| 61 36 00 20 20 80 82 2e | 6c 20 28 61 36 29 2c 64 |a6. ...|l (a6),d|
|00000a10| 30 2d 64 37 3a 80 82 2e | 6c 20 64 30 2d 64 37 2c |0-d7:...|l d0-d7,|
|00000a20| 34 28 61 36 29 00 20 20 | 80 82 2e 6c 20 21 70 7b |4(a6). |...l !p{|
|00000a30| 78 7d 2c 64 30 2d 64 32 | 00 20 20 80 45 2e 6c 23 |x},d0-d2|. .E.l#|
|00000a40| 32 2c 64 30 3a 80 45 2e | 6c 23 32 2c 64 31 3a 80 |2,d0:.E.|l#2,d1:.|
|00000a50| ac 20 64 32 3a 80 71 20 | 64 32 2c 64 30 3a 80 71 |. d2:.q |d2,d0:.q|
|00000a60| 20 64 32 2c 64 31 00 20 | 20 80 83 23 36 34 30 2c | d2,d1. | ..#640,|
|00000a70| 64 30 3a 80 83 23 35 31 | 32 2c 64 31 3a 80 ac 20 |d0:..#51|2,d1:.. |
|00000a80| 64 30 3a 80 ac 20 64 31 | 00 20 20 80 3d 23 31 36 |d0:.. d1|. .=#16|
|00000a90| 30 2c 64 30 3a 80 3d 23 | 31 32 38 2c 64 31 3a 80 |0,d0:.=#|128,d1:.|
|00000aa0| 82 20 64 30 2d 64 31 2c | 28 61 36 29 00 20 20 80 |. d0-d1,|(a6). .|
|00000ab0| 82 2e 6c 20 28 61 37 29 | 2b 2c 61 34 2d 61 36 3a |..l (a7)|+,a4-a6:|
|00000ac0| 80 11 00 80 02 20 80 08 | 00 00 3b 2d 2d 2d 2d 2d |..... ..|..;-----|
|00000ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000af0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b00| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 80 01 20 2e 76 65 |--------|.... .ve|
|00000b10| 72 74 00 20 20 78 2e 77 | 3a 79 00 80 02 20 80 01 |rt. x.w|:y... ..|
|00000b20| 00 00 80 01 20 2e 6f 62 | 6a 65 63 74 00 20 20 78 |.... .ob|ject. x|
|00000b30| 2e 71 3a 79 3a 7a 00 20 | 20 76 78 3a 76 79 3a 76 |.q:y:z. | vx:vy:v|
|00000b40| 7a 00 20 20 74 68 72 75 | 73 74 00 20 20 72 6f 74 |z. thru|st. rot|
|00000b50| 78 3a 72 6f 74 79 3a 72 | 6f 74 7a 00 20 20 72 76 |x:roty:r|otz. rv|
|00000b60| 78 3a 72 76 79 3a 72 76 | 7a 00 20 20 76 2e 76 65 |x:rvy:rv|z. v.ve|
|00000b70| 72 74 5b 36 34 5d 20 20 | 20 20 3b 76 65 72 74 69 |rt[64] | ;verti|
|00000b80| 63 69 65 73 20 67 6f 20 | 68 65 72 65 00 20 20 69 |cies go |here. i|
|00000b90| 64 2e 77 5b 39 5d 00 80 | 02 20 80 01 00 00 80 01 |d.w[9]..|. ......|
|00000ba0| 20 2e 74 72 69 00 20 20 | 78 30 2e 77 3a 79 30 2e | .tri. |x0.w:y0.|
|00000bb0| 77 3a 78 31 2e 77 3a 79 | 31 2e 77 3a 78 32 2e 77 |w:x1.w:y|1.w:x2.w|
|00000bc0| 3a 79 32 2e 77 00 80 02 | 20 80 01 00 00 80 04 20 |:y2.w...| ...... |
|00000bd0| 80 b3 20 6e 6d 65 2e 6f | 62 6a 65 63 74 28 64 61 |.. nme.o|bject(da|
|00000be0| 72 74 73 29 20 3b 77 6f | 77 20 76 61 72 69 61 62 |rts) ;wo|w variab|
|00000bf0| 6c 65 20 64 69 6d 65 6e | 73 69 6f 6e 69 6e 67 20 |le dimen|sioning |
|00000c00| 69 6e 20 61 20 63 6f 6d | 70 69 6c 65 72 21 00 80 |in a com|piler!..|
|00000c10| 04 20 80 b3 20 62 75 6c | 2e 6f 62 6a 65 63 74 28 |. .. bul|.object(|
|00000c20| 32 30 29 00 80 04 20 80 | b3 20 66 69 72 65 2e 6f |20)... .|. fire.o|
|00000c30| 62 6a 65 63 74 28 35 29 | 00 80 04 20 80 b3 20 62 |bject(5)|... .. b|
|00000c40| 61 6e 67 2e 6f 62 6a 65 | 63 74 28 31 30 29 00 00 |ang.obje|ct(10)..|
|00000c50| 3b 67 65 6e 65 72 61 74 | 65 20 73 69 6e 5f 63 6f |;generat|e sin_co|
|00000c60| 73 20 74 61 62 6c 65 00 | 00 80 04 20 72 6f 74 73 |s table.|... rots|
|00000c70| 2e 77 28 32 30 34 39 29 | 3a 72 74 2e 6c 3d 26 72 |.w(2049)|:rt.l=&r|
|00000c80| 6f 74 73 28 30 29 00 80 | 16 20 69 3d 30 20 80 18 |ots(0)..|. i=0 ..|
|00000c90| 20 32 30 34 38 20 80 19 | 20 32 00 20 20 72 6f 74 | 2048 ..| 2. rot|
|00000ca0| 73 28 69 29 3d e0 0a 28 | 69 2a 32 2a 80 ba 2f 32 |s(i)=..(|i*2*../2|
|00000cb0| 30 34 38 29 2a 33 32 37 | 36 36 00 20 20 72 6f 74 |048)*327|66. rot|
|00000cc0| 73 28 69 2b 31 29 3d e0 | 05 28 69 2a 32 2a 80 ba |s(i+1)=.|.(i*2*..|
|00000cd0| 2f 32 30 34 38 29 2a 33 | 32 37 36 36 00 80 17 00 |/2048)*3|2766....|
|00000ce0| 00 3b 73 65 74 75 70 20 | 64 69 73 70 6c 61 79 00 |.;setup |display.|
|00000cf0| 00 d0 01 20 30 2c 33 32 | 30 2c 32 35 36 2c 33 00 |... 0,32|0,256,3.|
|00000d00| d0 01 20 31 2c 33 32 30 | 2c 32 35 36 2c 33 00 00 |.. 1,320|,256,3..|
|00000d10| 80 1c 20 31 3d 30 00 80 | 16 20 69 3d 30 20 80 18 |.. 1=0..|. i=0 ..|
|00000d20| 20 37 00 20 20 d0 01 20 | 32 2b 69 2c 33 32 30 2c | 7. .. |2+i,320,|
|00000d30| 32 35 36 2c 31 00 20 20 | c7 02 20 32 2b 69 3a c7 |256,1. |.. 2+i:.|
|00000d40| 04 20 32 2c 30 00 20 20 | dd 82 20 22 42 4c 49 54 |. 2,0. |.. "BLIT|
|00000d50| 5a 20 44 41 52 54 53 20 | 42 59 20 53 49 4d 4f 4e |Z DARTS |BY SIMON|
|00000d60| 20 20 20 45 53 43 20 54 | 4f 20 45 58 49 54 22 00 | ESC T|O EXIT".|
|00000d70| 20 20 80 16 20 72 3d 30 | 20 80 18 20 32 2a 80 ba | .. r=0| .. 2*..|
|00000d80| 2d 80 ba 2f 33 32 20 80 | 19 20 80 ba 2f 33 32 00 |-../32 .|. ../32.|
|00000d90| 20 20 20 20 6a 3d 72 2b | 69 2a 80 ba 2f 32 35 36 | j=r+|i*../256|
|00000da0| 00 20 20 20 20 bb 81 20 | 31 36 30 2c 31 32 38 2c |. .. |160,128,|
|00000db0| e0 0d 28 6a 2f 34 29 2a | 35 30 2c 31 00 20 20 20 |..(j/4)*|50,1. |
|00000dc0| 20 bb 85 20 31 36 30 2c | 31 32 38 2c 31 36 30 2b | .. 160,|128,160+|
|00000dd0| e0 0a 28 6a 29 2a 33 32 | 30 2c 31 32 38 2b e0 05 |..(j)*32|0,128+..|
|00000de0| 28 6a 29 2a 32 35 36 2c | 31 00 20 20 20 20 bb 82 |(j)*256,|1. ..|
|00000df0| 20 31 36 30 2c 31 32 38 | 2c 31 32 2c 31 00 20 20 | 160,128|,12,1. |
|00000e00| 80 17 00 80 17 00 80 1f | 00 00 80 34 3a c8 01 20 |........|...4:.. |
|00000e10| 30 2c 34 34 2c 33 32 30 | 2c 32 35 36 2c 24 66 66 |0,44,320|,256,$ff|
|00000e20| 66 61 2c 33 2c 38 2c 33 | 32 2c 33 32 30 2c 33 32 |fa,3,8,3|2,320,32|
|00000e30| 30 00 3b 52 47 42 20 31 | 2c 31 35 2c 31 32 2c 31 |0.;RGB 1|,15,12,1|
|00000e40| 35 3a 52 47 42 20 39 2c | 34 2c 34 2c 38 00 00 66 |5:RGB 9,|4,4,8..f|
|00000e50| 3d 32 20 20 20 20 20 3b | 66 72 61 6d 65 20 6f 66 |=2 ;|frame of|
|00000e60| 20 61 6e 69 6d 00 78 6f | 3d 31 30 30 30 20 3b 63 | anim.xo|=1000 ;c|
|00000e70| 75 72 72 65 6e 74 20 6c | 61 73 65 72 00 00 b6 01 |urrent l|aser....|
|00000e80| 20 80 c5 3a b6 03 20 2d | 31 35 30 2c 2d 31 35 30 | ..:.. -|150,-150|
|00000e90| 2c 31 32 30 2c 31 32 30 | 3a b1 01 20 80 c5 00 00 |,120,120|:.. ....|
|00000ea0| 2e 6d 61 69 6e 6c 6f 6f | 70 00 00 80 bb 00 20 20 |.mainloo|p..... |
|00000eb0| 80 37 3a c8 04 20 64 62 | 3a 64 62 3d 31 2d 64 62 |.7:.. db|:db=1-db|
|00000ec0| 3a 80 2c 20 d0 01 20 64 | 62 20 20 3b 64 6f 75 62 |:., .. d|b ;doub|
|00000ed0| 6c 65 20 62 75 66 66 65 | 72 00 3b 20 20 53 68 6f |le buffe|r.; Sho|
|00000ee0| 77 42 20 66 3a 66 2b 31 | 3a 49 66 20 66 3d 31 30 |wB f:f+1|:If f=10|
|00000ef0| 20 54 68 65 6e 20 66 3d | 32 00 20 20 20 6d 79 63 | Then f=|2. myc|
|00000f00| 6c 73 7b da 02 2e 6c 20 | 28 80 b8 20 d0 01 28 64 |ls{...l |(.. ..(d|
|00000f10| 62 29 2b 38 29 7d 00 20 | 20 20 6d 79 63 6c 73 7b |b)+8)}. | mycls{|
|00000f20| da 02 2e 6c 20 28 80 b8 | 20 d0 01 28 64 62 29 2b |...l (..| ..(db)+|
|00000f30| 31 32 29 7d 00 20 20 20 | 6d 79 63 6c 73 7b da 02 |12)}. |mycls{..|
|00000f40| 2e 6c 20 28 80 b8 20 d0 | 01 28 64 62 29 2b 31 36 |.l (.. .|.(db)+16|
|00000f50| 29 7d 00 3b 64 6f 20 79 | 6f 75 00 20 20 78 3d b6 |)}.;do y|ou. x=.|
|00000f60| 04 3a 79 3d b6 05 00 20 | 20 bb 85 20 78 2b 31 35 |.:y=... | .. x+15|
|00000f70| 35 2c 79 2b 31 32 38 2c | 78 2b 31 36 35 2c 79 2b |5,y+128,|x+165,y+|
|00000f80| 31 32 38 2c 31 3a bb 85 | 20 78 2b 31 36 30 2c 79 |128,1:..| x+160,y|
|00000f90| 2b 31 32 33 2c 78 2b 31 | 36 30 2c 79 2b 31 33 33 |+123,x+1|60,y+133|
|00000fa0| 2c 31 00 20 20 80 0b 20 | df 04 28 30 29 3d 31 20 |,1. .. |..(0)=1 |
|00000fb0| 80 42 20 72 65 6c 6f 61 | 64 3c 31 20 80 21 20 80 |.B reloa|d<1 .! .|
|00000fc0| 06 20 61 64 64 66 69 72 | 65 3a 72 65 6c 6f 61 64 |. addfir|e:reload|
|00000fd0| 3d 31 35 00 20 20 80 06 | 20 64 6f 66 69 72 65 3a |=15. ..| dofire:|
|00000fe0| 72 65 6c 6f 61 64 2d 31 | 3a 80 0b 20 df 04 28 30 |reload-1|:.. ..(0|
|00000ff0| 29 3d 30 20 80 21 20 72 | 65 6c 6f 61 64 3d 2d 31 |)=0 .! r|eload=-1|
|00001000| 00 3b 64 6f 20 6e 6d 65 | 00 20 20 80 06 20 61 64 |.;do nme|. .. ad|
|00001010| 64 6e 6d 65 00 20 20 80 | 06 20 6d 6f 76 65 6e 6d |dnme. .|. movenm|
|00001020| 65 00 20 20 80 06 20 64 | 6f 62 61 6e 67 00 80 bc |e. .. d|obang...|
|00001030| 20 b1 02 28 24 34 35 29 | 00 00 80 37 00 00 80 35 | ..($45)|...7...5|
|00001040| 00 b9 01 20 64 62 2c 22 | 72 61 6d 3a 74 31 22 00 |... db,"|ram:t1".|
|00001050| b9 01 20 32 2c 22 72 61 | 6d 3a 74 32 22 00 80 34 |.. 2,"ra|m:t2"..4|
|00001060| 00 00 80 37 00 00 80 02 | 00 00 80 0d 20 6d 79 6c |...7....|.... myl|
|00001070| 69 6e 65 20 bb 85 20 5c | 76 5b 60 31 5d 5c 78 2c |ine .. \|v[`1]\x,|
|00001080| 5c 76 5b 60 31 5d 5c 79 | 2c 5c 76 5b 60 32 5d 5c |\v[`1]\y|,\v[`2]\|
|00001090| 78 2c 5c 76 5b 60 32 5d | 5c 79 2c 31 3a 80 02 20 |x,\v[`2]|\y,1:.. |
|000010a0| 80 0d 00 00 80 0d 20 6d | 79 70 6f 6c 79 00 20 20 |...... m|ypoly. |
|000010b0| 74 2e 74 72 69 5c 78 30 | 3d 5c 76 5b 60 31 5d 5c |t.tri\x0|=\v[`1]\|
|000010c0| 78 2c 5c 76 5b 60 31 5d | 5c 79 2c 5c 76 5b 60 32 |x,\v[`1]|\y,\v[`2|
|000010d0| 5d 5c 78 2c 5c 76 5b 60 | 32 5d 5c 79 2c 5c 76 5b |]\x,\v[`|2]\y,\v[|
|000010e0| 60 33 5d 5c 78 2c 5c 76 | 5b 60 33 5d 5c 79 00 20 |`3]\x,\v|[`3]\y. |
|000010f0| 20 bb 8b 20 33 2c 26 74 | 2c 60 34 2c 60 35 00 80 | .. 3,&t|,`4,`5..|
|00001100| 02 20 80 0d 00 00 80 ca | 20 62 61 6e 67 28 29 00 |. ......| bang().|
|00001110| 00 2e 64 6f 62 61 6e 67 | 00 20 20 c0 04 20 62 61 |..dobang|. .. ba|
|00001120| 6e 67 28 29 00 20 20 80 | 0c 20 c0 03 28 62 61 6e |ng(). .|. ..(ban|
|00001130| 67 28 29 29 00 20 20 20 | 20 5c 78 2b 5c 76 78 3a |g()). | \x+\vx:|
|00001140| 5c 79 2b 5c 76 79 3a 5c | 7a 2b 5c 76 7a 00 20 20 |\y+\vy:\|z+\vz. |
|00001150| 20 20 5c 72 6f 74 78 2b | 5c 72 76 78 3a 5c 72 6f | \rotx+|\rvx:\ro|
|00001160| 74 79 2b 5c 72 76 79 3a | 5c 72 6f 74 7a 2b 5c 72 |ty+\rvy:|\rotz+\r|
|00001170| 76 7a 00 20 20 20 20 63 | 61 6c 63 69 64 7b 62 61 |vz. c|alcid{ba|
|00001180| 6e 67 28 29 2c 72 74 7d | 00 20 20 20 20 80 0b 20 |ng(),rt}|. .. |
|00001190| 67 65 6e 73 74 61 72 7b | 62 61 6e 67 28 29 7d 00 |genstar{|bang()}.|
|000011a0| 20 20 20 20 20 20 80 16 | 20 69 3d 30 20 80 18 20 | ..| i=0 .. |
|000011b0| 34 20 80 19 20 32 3a 21 | 6d 79 6c 69 6e 65 20 7b |4 .. 2:!|myline {|
|000011c0| 69 2c 69 2b 31 7d 3a 80 | 17 00 20 20 20 20 80 22 |i,i+1}:.|.. ."|
|000011d0| 00 20 20 20 20 20 20 c0 | 05 20 62 61 6e 67 28 29 |. .|. bang()|
|000011e0| 00 20 20 20 20 80 c0 00 | 20 20 80 c1 00 20 20 80 |. ...| ... .|
|000011f0| 07 00 00 80 ca 20 6e 6d | 65 28 29 00 00 2e 61 64 |..... nm|e()...ad|
|00001200| 64 6e 6d 65 3a 00 20 20 | 6e 65 77 6e 6d 65 2d 31 |dnme:. |newnme-1|
|00001210| 00 20 20 80 0b 20 6e 65 | 77 6e 6d 65 3c 30 00 20 |. .. ne|wnme<0. |
|00001220| 20 20 20 80 0b 20 c0 02 | 28 6e 6d 65 28 29 29 00 | .. ..|(nme()).|
|00001230| 20 20 20 20 20 20 6e 65 | 77 6e 6d 65 3d 35 00 20 | ne|wnme=5. |
|00001240| 20 20 20 20 20 5c 78 3d | bc 07 28 38 30 30 30 29 | \x=|..(8000)|
|00001250| 2d 34 30 30 30 2c bc 07 | 28 32 34 30 30 30 29 2d |-4000,..|(24000)-|
|00001260| 31 32 30 30 30 2c 36 30 | 30 30 00 20 20 20 20 20 |12000,60|00. |
|00001270| 20 5c 72 6f 74 78 3d 30 | 2c bc 07 28 34 30 39 36 | \rotx=0|,..(4096|
|00001280| 29 2c 35 31 32 00 20 20 | 20 20 20 20 5c 72 76 78 |),512. | \rvx|
|00001290| 3d 30 2c bc 07 28 31 36 | 29 2b 31 36 2c 30 00 20 |=0,..(16|)+16,0. |
|000012a0| 20 20 20 20 20 5c 74 68 | 72 75 73 74 3d bc 07 28 | \th|rust=..(|
|000012b0| 34 29 2b 36 00 20 20 20 | 20 80 c0 00 20 20 80 c0 |4)+6. | ... ..|
|000012c0| 00 20 20 80 07 00 00 2e | 6d 6f 76 65 6e 6d 65 3a |. .....|movenme:|
|000012d0| 00 20 20 c0 04 20 6e 6d | 65 28 29 00 20 20 80 0c |. .. nm|e(). ..|
|000012e0| 20 c0 03 28 6e 6d 65 28 | 29 29 00 20 20 20 20 63 | ..(nme(|)). c|
|000012f0| 61 6c 63 69 64 7b 6e 6d | 65 28 29 2c 72 74 7d 00 |alcid{nm|e(),rt}.|
|00001300| 20 20 20 20 6d 6f 76 65 | 6f 6e 7a 7b 6e 6d 65 28 | move|onz{nme(|
|00001310| 29 2c 5c 74 68 72 75 73 | 74 7d 00 20 20 20 20 5c |),\thrus|t}. \|
|00001320| 78 2b 5c 76 78 3a 5c 79 | 2b 5c 76 79 3a 5c 7a 2b |x+\vx:\y|+\vy:\z+|
|00001330| 5c 76 7a 3a 00 20 20 20 | 20 5c 72 6f 74 78 2b 5c |\vz:. | \rotx+\|
|00001340| 72 76 78 3a 5c 72 6f 74 | 79 2b 5c 72 76 79 3a 5c |rvx:\rot|y+\rvy:\|
|00001350| 72 6f 74 7a 2b 5c 72 76 | 7a 00 20 20 20 20 80 0b |rotz+\rv|z. ..|
|00001360| 20 5c 7a 3e 31 30 30 30 | 00 20 20 20 20 20 20 80 | \z>1000|. .|
|00001370| 0b 20 67 65 6e 64 61 72 | 74 7b 6e 6d 65 28 29 7d |. gendar|t{nme()}|
|00001380| 00 00 20 20 20 20 20 20 | 20 20 20 21 6d 79 70 6f |.. | !mypo|
|00001390| 6c 79 7b 30 2c 33 2c 32 | 2c 31 2c 2d 31 7d 00 20 |ly{0,3,2|,1,-1}. |
|000013a0| 20 20 20 20 20 20 20 20 | 21 6d 79 70 6f 6c 79 7b | |!mypoly{|
|000013b0| 30 2c 31 2c 34 2c 35 2c | 2d 31 7d 00 20 20 20 20 |0,1,4,5,|-1}. |
|000013c0| 20 20 20 20 20 21 6d 79 | 70 6f 6c 79 7b 30 2c 35 | !my|poly{0,5|
|000013d0| 2c 31 2c 34 2c 2d 31 7d | 00 20 20 20 20 20 20 20 |,1,4,-1}|. |
|000013e0| 20 20 21 6d 79 70 6f 6c | 79 7b 34 2c 31 2c 35 2c | !mypol|y{4,1,5,|
|000013f0| 36 2c 2d 31 7d 00 20 20 | 20 20 20 20 20 20 20 21 |6,-1}. | !|
|00001400| 6d 79 70 6f 6c 79 7b 32 | 2c 33 2c 36 2c 37 2c 2d |mypoly{2|,3,6,7,-|
|00001410| 31 7d 00 20 20 20 20 20 | 20 20 20 20 21 6d 79 70 |1}. | !myp|
|00001420| 6f 6c 79 7b 30 2c 32 2c | 36 2c 37 2c 2d 31 7d 00 |oly{0,2,|6,7,-1}.|
|00001430| 20 20 20 20 20 20 20 20 | 20 21 6d 79 70 6f 6c 79 | | !mypoly|
|00001440| 7b 30 2c 36 2c 33 2c 37 | 2c 2d 31 7d 00 00 00 00 |{0,6,3,7|,-1}....|
|00001450| 3b 20 20 20 20 20 20 20 | 20 74 2e 74 72 69 5c 78 |; | t.tri\x|
|00001460| 30 3d 5c 76 5b 30 5d 5c | 78 2c 5c 76 5b 30 5d 5c |0=\v[0]\|x,\v[0]\|
|00001470| 79 2c 5c 76 5b 31 5d 5c | 78 2c 5c 76 5b 31 5d 5c |y,\v[1]\|x,\v[1]\|
|00001480| 79 2c 5c 76 5b 32 5d 5c | 78 2c 5c 76 5b 32 5d 5c |y,\v[2]\|x,\v[2]\|
|00001490| 79 00 3b 20 20 20 20 20 | 20 20 20 50 6f 6c 79 66 |y.; | Polyf|
|000014a0| 20 33 2c 26 74 2c 31 00 | 3b 20 20 20 20 20 20 20 | 3,&t,1.|; |
|000014b0| 20 46 6f 72 20 69 3d 31 | 20 54 6f 20 35 3a 21 6d | For i=1| To 5:!m|
|000014c0| 79 6c 69 6e 65 20 7b 30 | 2c 69 7d 3a 4e 65 78 74 |yline {0|,i}:Next|
|000014d0| 00 3b 20 20 20 20 20 20 | 20 20 21 6d 79 6c 69 6e |.; | !mylin|
|000014e0| 65 20 7b 32 2c 33 7d 3a | 21 6d 79 6c 69 6e 65 20 |e {2,3}:|!myline |
|000014f0| 7b 31 2c 34 7d 3a 21 6d | 79 6c 69 6e 65 20 7b 31 |{1,4}:!m|yline {1|
|00001500| 2c 35 7d 00 00 20 20 20 | 20 20 20 20 20 c0 04 20 |,5}.. | .. |
|00001510| 66 69 72 65 28 29 00 20 | 20 20 20 20 20 20 20 80 |fire(). | .|
|00001520| 0c 20 c0 03 28 66 69 72 | 65 28 29 29 00 20 20 20 |. ..(fir|e()). |
|00001530| 20 20 20 20 20 20 20 80 | 0b 20 bc 09 28 5c 78 2d | .|. ..(\x-|
|00001540| 66 69 72 65 28 29 5c 78 | 29 3c 31 30 30 30 00 20 |fire()\x|)<1000. |
|00001550| 20 20 20 20 20 20 20 20 | 20 20 20 80 0b 20 bc 09 | | .. ..|
|00001560| 28 5c 79 2d 66 69 72 65 | 28 29 5c 79 29 3c 31 30 |(\y-fire|()\y)<10|
|00001570| 30 30 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |00. | |
|00001580| 20 80 0b 20 bc 09 28 5c | 7a 2d 66 69 72 65 28 29 | .. ..(\|z-fire()|
|00001590| 5c 7a 29 3c 31 30 30 30 | 00 20 20 20 20 20 20 20 |\z)<1000|. |
|000015a0| 20 20 20 20 20 20 20 20 | 20 80 0b 20 c0 02 28 62 | | .. ..(b|
|000015b0| 61 6e 67 28 29 29 00 20 | 20 20 20 20 20 20 20 20 |ang()). | |
|000015c0| 20 20 20 20 20 20 20 20 | 20 62 61 6e 67 28 29 5c | | bang()\|
|000015d0| 78 3d 5c 78 2c 5c 79 2c | 5c 7a 2c 5c 76 78 2c 5c |x=\x,\y,|\z,\vx,\|
|000015e0| 76 79 2c 5c 76 7a 00 20 | 20 20 20 20 20 20 20 20 |vy,\vz. | |
|000015f0| 20 20 20 20 20 20 20 20 | 20 62 61 6e 67 28 29 5c | | bang()\|
|00001600| 72 76 78 3d 31 30 30 2c | 31 33 30 2c 39 30 00 20 |rvx=100,|130,90. |
|00001610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 80 | | .|
|00001620| c0 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00001630| 20 20 c0 05 20 6e 6d 65 | 28 29 3a c0 05 20 66 69 | .. nme|():.. fi|
|00001640| 72 65 28 29 3a 80 05 20 | 70 6f 70 6f 75 74 00 20 |re():.. |popout. |
|00001650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 80 c0 00 | | ...|
|00001660| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 c0 00 20 | | ... |
|00001670| 20 20 20 20 20 20 20 20 | 20 80 c0 00 20 20 20 20 | | ... |
|00001680| 20 20 20 20 80 c1 3a 70 | 6f 70 6f 75 74 00 00 20 | ..:p|opout.. |
|00001690| 20 20 20 20 20 80 c0 00 | 20 20 20 20 80 22 00 20 | ...| .". |
|000016a0| 20 20 20 20 20 c0 05 20 | 6e 6d 65 28 29 00 20 20 | .. |nme(). |
|000016b0| 20 20 80 c0 00 20 20 80 | c1 00 20 20 80 07 00 00 | ... .|.. ....|
|000016c0| 80 ca 20 66 69 72 65 28 | 29 00 00 2e 61 64 64 66 |.. fire(|)...addf|
|000016d0| 69 72 65 3a 00 20 20 80 | 0b 20 c0 02 28 66 69 72 |ire:. .|. ..(fir|
|000016e0| 65 28 29 29 00 20 20 20 | 20 78 6f 3d 2d 78 6f 00 |e()). | xo=-xo.|
|000016f0| 20 20 20 20 5c 78 3d 78 | 6f 2c 31 30 30 30 2c 31 | \x=x|o,1000,1|
|00001700| 30 30 30 00 20 20 20 20 | 63 61 6c 63 69 64 7b 66 |000. |calcid{f|
|00001710| 69 72 65 28 29 2c 72 74 | 7d 00 20 20 20 20 67 65 |ire(),rt|}. ge|
|00001720| 6e 6c 69 6e 65 7b 66 69 | 72 65 28 29 7d 3a 78 78 |nline{fi|re()}:xx|
|00001730| 2e 77 3d 5c 76 5b 30 5d | 5c 78 3a 79 79 2e 77 3d |.w=\v[0]|\x:yy.w=|
|00001740| 5c 76 5b 30 5d 5c 79 00 | 20 20 20 20 80 16 20 69 |\v[0]\y.| .. i|
|00001750| 3d 31 20 80 18 20 37 3a | 5c 76 5b 69 5d 5c 78 3d |=1 .. 7:|\v[i]\x=|
|00001760| 78 78 2c 79 79 3a 80 17 | 00 20 20 80 c0 00 20 20 |xx,yy:..|. ... |
|00001770| 5c 76 78 3d 78 2a 36 2e | 35 2d 78 6f 2f 32 34 2c |\vx=x*6.|5-xo/24,|
|00001780| 79 2a 38 2d 33 32 2c 31 | 30 30 30 00 20 20 80 07 |y*8-32,1|000. ..|
|00001790| 00 00 2e 64 6f 66 69 72 | 65 3a 00 20 20 c0 04 20 |...dofir|e:. .. |
|000017a0| 66 69 72 65 28 29 00 20 | 20 80 0c 20 c0 03 28 66 |fire(). | .. ..(f|
|000017b0| 69 72 65 28 29 29 00 20 | 20 20 20 5c 78 2b 5c 76 |ire()). | \x+\v|
|000017c0| 78 3a 5c 79 2b 5c 76 79 | 3a 5c 7a 2b 5c 76 7a 00 |x:\y+\vy|:\z+\vz.|
|000017d0| 20 20 20 20 80 0b 20 5c | 7a 3c 31 36 30 30 30 00 | .. \|z<16000.|
|000017e0| 20 20 20 20 20 20 67 65 | 6e 6c 69 6e 65 7b 66 69 | ge|nline{fi|
|000017f0| 72 65 28 29 7d 3a 21 6d | 79 6c 69 6e 65 7b 30 2c |re()}:!m|yline{0,|
|00001800| 37 7d 00 20 20 20 20 80 | 22 00 20 20 20 20 20 20 |7}. .|". |
|00001810| c0 05 20 66 69 72 65 28 | 29 00 20 20 20 20 80 c0 |.. fire(|). ..|
|00001820| 00 20 20 80 c1 00 20 20 | 80 07 00 00 |. ... |.... |
+--------+-------------------------+-------------------------+--------+--------+