/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU3.DMS / in.adf / darts / darts_poly.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 b1 20 61 34 3a 80 | 7e 2e 6c 20 64 30 2c 61 | .. a4:.|~.l d0,a|
|00000110| 30 3a 80 3d 2e 6c 23 34 | 30 2a 32 35 36 2c 61 30 |0:.=.l#4|0*256,a0|
|00000120| 00 20 20 80 81 23 30 2c | 64 30 3a 80 81 23 30 2c |.  ..#0,|d0:..#0,|
|00000130| 64 31 3a 80 81 23 30 2c | 64 32 3a 80 81 23 30 2c |d1:..#0,|d2:..#0,|
|00000140| 64 33 3a 80 81 23 30 2c | 64 34 00 20 20 80 81 23 |d3:..#0,|d4.  ..#|
|00000150| 30 2c 64 35 3a 80 81 23 | 30 2c 64 36 3a 80 7e 2e |0,d5:..#|0,d6:.~.|
|00000160| 6c 64 30 2c 61 31 3a 80 | 7e 2e 6c 64 30 2c 61 32 |ld0,a1:.|~.ld0,a2|
|00000170| 3a 80 7e 2e 6c 64 30 2c | 61 33 00 20 20 80 7e 23 |:.~.ld0,|a3.  .~#|
|00000180| 32 35 35 2c 64 37 00 20 | 20 6c 6f 6f 70 31 3a 80 |255,d7. | loop1:.|
|00000190| 82 2e 6c 20 64 30 2d 64 | 36 2f 61 31 2d 61 33 2c |..l d0-d|6/a1-a3,|
|000001a0| 2d 28 61 30 29 3a 80 6f | 20 64 37 2c 6c 6f 6f 70 |-(a0):.o| d7,loop|
|000001b0| 31 00 20 20 80 94 00 80 | 02 20 80 08 00 00 80 0d |1.  ....|. ......|
|000001c0| 20 70 20 7b 80 2f 2e 6f | 62 6a 65 63 74 5c 60 31 | p {./.o|bject\`1|
|000001d0| 7d 28 61 35 29 3a 80 02 | 20 80 0d 00 00 80 08 20 |}(a5):..| ...... |
|000001e0| 63 61 6c 63 69 64 7b 6f | 62 6a 65 63 74 2e 6c 2c |calcid{o|bject.l,|
|000001f0| 72 6f 74 74 61 62 6c 65 | 2e 6c 7d 00 20 20 80 b1 |rottable|.l}.  ..|
|00000200| 20 61 34 3a 80 82 2e 6c | 20 61 34 2d 61 36 2c 2d | a4:...l| a4-a6,-|
|00000210| 28 61 37 29 3a 80 7e 2e | 6c 20 64 30 2c 61 35 3a |(a7):.~.|l d0,a5:|
|00000220| 80 7e 2e 6c 20 64 31 2c | 61 33 00 20 20 80 82 2e |.~.l d1,|a3.  ...|
|00000230| 6c 21 70 7b 72 6f 74 78 | 2d 32 7d 2c 64 30 2d 64 |l!p{rotx|-2},d0-d|
|00000240| 32 3a 80 7e 23 34 30 39 | 32 2c 64 33 3a 80 42 20 |2:.~#409|2,d3:.B |
|00000250| 64 33 2c 64 30 3a 80 42 | 20 64 33 2c 64 31 00 20 |d3,d0:.B| d3,d1. |
|00000260| 20 80 42 20 64 33 2c 64 | 32 3a 80 7a 20 21 70 7b | .B d3,d|2:.z !p{|
|00000270| 69 64 7d 2c 61 35 00 20 | 20 80 82 20 30 28 61 33 |id},a5. | .. 0(a3|
|00000280| 2c 64 32 2e 77 29 2c 64 | 34 2d 64 35 00 20 20 80 |,d2.w),d|4-d5.  .|
|00000290| 82 20 30 28 61 33 2c 64 | 31 2e 77 29 2c 64 32 2d |. 0(a3,d|1.w),d2-|
|000002a0| 64 33 00 20 20 80 82 20 | 30 28 61 33 2c 64 30 2e |d3.  .. |0(a3,d0.|
|000002b0| 77 29 2c 64 30 2d 64 31 | 00 20 20 80 7e 20 64 35 |w),d0-d1|.  .~ d5|
|000002c0| 2c 64 36 3a 80 83 20 64 | 33 2c 64 36 3a 80 7e 2e |,d6:.. d|3,d6:.~.|
|000002d0| 6c 20 64 36 2c 61 30 3a | 80 7e 20 64 34 2c 64 37 |l d6,a0:|.~ d4,d7|
|000002e0| 3a 80 83 20 64 30 2c 64 | 37 00 20 20 80 ac 20 64 |:.. d0,d|7.  .. d|
|000002f0| 37 3a 80 3d 20 64 37 2c | 64 37 3a 80 7e 20 64 37 |7:.= d7,|d7:.~ d7|
|00000300| 2c 61 31 3a 80 83 20 64 | 32 2c 64 37 3a 80 3d 2e |,a1:.. d|2,d7:.=.|
|00000310| 6c 20 64 36 2c 64 37 3a | 80 ac 20 64 37 00 20 20 |l d6,d7:|.. d7.  |
|00000320| 80 3d 20 64 37 2c 64 37 | 3a 80 7e 20 64 37 2c 28 |.= d7,d7|:.~ d7,(|
|00000330| 61 35 29 2b 00 20 20 80 | 7e 20 64 34 2c 64 37 3a |a5)+.  .|~ d4,d7:|
|00000340| 80 83 20 64 31 2c 64 37 | 3a 80 ac 20 64 37 3a 80 |.. d1,d7|:.. d7:.|
|00000350| 3d 20 64 37 2c 64 37 3a | 80 7e 20 64 37 2c 28 61 |= d7,d7:|.~ d7,(a|
|00000360| 35 29 2b 00 20 20 80 7e | 20 64 35 2c 64 36 3a 80 |5)+.  .~| d5,d6:.|
|00000370| 83 20 64 32 2c 64 36 3a | 80 7e 2e 6c 20 64 36 2c |. d2,d6:|.~.l d6,|
|00000380| 61 32 3a 80 7e 20 61 31 | 2c 64 37 3a 80 83 20 64 |a2:.~ a1|,d7:.. d|
|00000390| 33 2c 64 37 00 20 20 80 | a7 2e 6c 20 64 36 2c 64 |3,d7.  .|..l d6,d|
|000003a0| 37 3a 80 ac 20 64 37 3a | 80 3d 20 64 37 2c 64 37 |7:.. d7:|.= d7,d7|
|000003b0| 3a 80 7e 20 64 37 2c 28 | 61 35 29 2b 00 20 20 80 |:.~ d7,(|a5)+.  .|
|000003c0| 7e 20 64 34 2c 64 36 3a | 80 83 20 64 33 2c 64 36 |~ d4,d6:|.. d3,d6|
|000003d0| 3a 80 7e 2e 6c 20 61 32 | 2c 64 37 3a 80 ac 20 64 |:.~.l a2|,d7:.. d|
|000003e0| 37 3a 80 3d 20 64 37 2c | 64 37 00 20 20 80 83 20 |7:.= d7,|d7.  .. |
|000003f0| 64 30 2c 64 37 3a 80 a7 | 2e 6c 20 64 36 2c 64 37 |d0,d7:..|.l d6,d7|
|00000400| 3a 80 ac 20 64 37 3a 80 | 3d 20 64 37 2c 64 37 3a |:.. d7:.|= d7,d7:|
|00000410| 80 7e 20 64 37 2c 28 61 | 35 29 2b 00 20 20 80 7e |.~ d7,(a|5)+.  .~|
|00000420| 20 64 35 2c 64 37 3a 80 | 83 20 64 31 2c 64 37 3a | d5,d7:.|. d1,d7:|
|00000430| 80 ac 20 64 37 3a 80 3d | 20 64 37 2c 64 37 3a 80 |.. d7:.=| d7,d7:.|
|00000440| 7e 20 64 37 2c 28 61 35 | 29 2b 00 20 20 80 7e 20 |~ d7,(a5|)+.  .~ |
|00000450| 64 32 2c 64 36 3a 80 83 | 20 64 34 2c 64 36 3a 80 |d2,d6:..| d4,d6:.|
|00000460| 7e 2e 6c 20 61 30 2c 64 | 37 3a 80 ac 20 64 37 3a |~.l a0,d|7:.. d7:|
|00000470| 80 3d 20 64 37 2c 64 37 | 00 20 20 80 83 20 64 30 |.= d7,d7|.  .. d0|
|00000480| 2c 64 37 3a 80 3d 2e 6c | 20 64 36 2c 64 37 3a 80 |,d7:.=.l| d6,d7:.|
|00000490| ac 20 64 37 3a 80 3d 20 | 64 37 2c 64 37 3a 80 7e |. d7:.= |d7,d7:.~|
|000004a0| 20 64 37 2c 28 61 35 29 | 2b 00 20 20 80 83 20 64 | d7,(a5)|+.  .. d|
|000004b0| 31 2c 64 32 3a 80 ac 20 | 64 32 3a 80 3d 20 64 32 |1,d2:.. |d2:.= d2|
|000004c0| 2c 64 32 3a 80 7e 20 64 | 32 2c 28 61 35 29 2b 00 |,d2:.~ d|2,(a5)+.|
|000004d0| 20 20 80 86 20 64 30 3a | 80 7e 20 64 30 2c 28 61 |  .. d0:|.~ d0,(a|
|000004e0| 35 29 2b 3a 80 83 20 64 | 31 2c 64 33 3a 80 ac 20 |5)+:.. d|1,d3:.. |
|000004f0| 64 33 3a 80 3d 20 64 33 | 2c 64 33 3a 80 7e 20 64 |d3:.= d3|,d3:.~ d|
|00000500| 33 2c 28 61 35 29 2b 00 | 20 20 80 82 2e 6c 20 28 |3,(a5)+.|  ...l (|
|00000510| 61 37 29 2b 2c 61 34 2d | 61 36 3a 80 94 00 80 02 |a7)+,a4-|a6:.....|
|00000520| 20 80 08 00 00 80 08 20 | 6d 6f 76 65 6f 6e 7a 7b | ...... |moveonz{|
|00000530| 6f 62 6a 65 63 74 2e 6c | 2c 73 68 69 66 74 2e 77 |object.l|,shift.w|
|00000540| 7d 00 20 20 80 b1 20 61 | 34 3a 80 75 20 64 30 2c |}.  .. a|4:.u d0,|
|00000550| 61 35 00 20 20 80 82 20 | 21 70 7b 69 64 2b 31 32 |a5.  .. |!p{id+12|
|00000560| 7d 2c 64 33 2d 64 35 3a | 80 44 2e 6c 20 64 31 2c |},d3-d5:|.D.l d1,|
|00000570| 64 33 3a 80 44 2e 6c 20 | 64 31 2c 64 34 3a 80 44 |d3:.D.l |d1,d4:.D|
|00000580| 2e 6c 20 64 31 2c 64 35 | 00 20 20 80 82 2e 6c 20 |.l d1,d5|.  ...l |
|00000590| 64 33 2d 64 35 2c 21 70 | 7b 76 78 7d 00 20 20 80 |d3-d5,!p|{vx}.  .|
|000005a0| 75 20 64 30 2c 61 35 3a | 80 94 00 80 02 20 80 08 |u d0,a5:|..... ..|
|000005b0| 00 00 80 0d 20 67 65 6e | 76 65 72 74 00 20 20 80 |.... gen|vert.  .|
|000005c0| 82 2e 6c 20 21 70 7b 78 | 7d 2c 64 30 2d 64 32 3a |..l !p{x|},d0-d2:|
|000005d0| 80 45 2e 6c 23 32 2c 64 | 30 3a 80 45 2e 6c 23 32 |.E.l#2,d|0:.E.l#2|
|000005e0| 2c 64 31 00 20 20 80 1c | 20 60 31 3c 3e 30 00 20 |,d1.  ..| `1<>0. |
|000005f0| 20 20 20 80 82 20 21 70 | 7b 69 64 2b 30 7d 2c 64 |   .. !p|{id+0},d|
|00000600| 33 2d 64 35 3a 80 44 2e | 6c 23 60 31 2c 64 33 3a |3-d5:.D.|l#`1,d3:|
|00000610| 80 44 2e 6c 23 60 31 2c | 64 34 3a 80 44 2e 6c 23 |.D.l#`1,|d4:.D.l#|
|00000620| 60 31 2c 64 35 00 20 20 | 20 20 60 32 2e 6c 64 33 |`1,d5.  |  `2.ld3|
|00000630| 2c 64 30 3a 60 32 2e 6c | 64 34 2c 64 31 3a 60 32 |,d0:`2.l|d4,d1:`2|
|00000640| 2e 6c 64 35 2c 64 32 00 | 20 20 80 1f 00 20 20 80 |.ld5,d2.|  ...  .|
|00000650| 1c 20 60 33 3c 3e 30 00 | 20 20 20 20 80 82 20 21 |. `3<>0.|    .. !|
|00000660| 70 7b 69 64 2b 36 7d 2c | 64 33 2d 64 35 3a 80 44 |p{id+6},|d3-d5:.D|
|00000670| 2e 6c 23 60 33 2c 64 33 | 3a 80 44 2e 6c 23 60 33 |.l#`3,d3|:.D.l#`3|
|00000680| 2c 64 34 3a 80 44 2e 6c | 23 60 33 2c 64 35 00 20 |,d4:.D.l|#`3,d5. |
|00000690| 20 20 20 60 34 2e 6c 64 | 33 2c 64 30 3a 60 34 2e |   `4.ld|3,d0:`4.|
|000006a0| 6c 64 34 2c 64 31 3a 60 | 34 2e 6c 64 35 2c 64 32 |ld4,d1:`|4.ld5,d2|
|000006b0| 00 20 20 80 1f 00 20 20 | 80 1c 20 60 35 3c 3e 30 |.  ...  |.. `5<>0|
|000006c0| 00 20 20 20 20 80 82 20 | 21 70 7b 69 64 2b 31 32 |.    .. |!p{id+12|
|000006d0| 7d 2c 64 33 2d 64 35 3a | 80 44 2e 6c 23 60 35 2c |},d3-d5:|.D.l#`5,|
|000006e0| 64 33 3a 80 44 2e 6c 23 | 60 35 2c 64 34 3a 80 44 |d3:.D.l#|`5,d4:.D|
|000006f0| 2e 6c 23 60 35 2c 64 35 | 00 20 20 20 20 60 36 2e |.l#`5,d5|.    `6.|
|00000700| 6c 64 33 2c 64 30 3a 60 | 36 2e 6c 64 34 2c 64 31 |ld3,d0:`|6.ld4,d1|
|00000710| 3a 60 36 2e 6c 64 35 2c | 64 32 00 20 20 80 1f 00 |:`6.ld5,|d2.  ...|
|00000720| 20 20 80 ac 20 64 32 3a | 80 b0 20 64 32 3a 80 4c |  .. d2:|.. d2:.L|
|00000730| 20 66 6c 6f 77 3a 80 71 | 20 64 32 2c 64 30 3a 80 | flow:.q| d2,d0:.|
|00000740| 53 20 66 6c 6f 77 3a 80 | 71 20 64 32 2c 64 31 3a |S flow:.|q d2,d1:|
|00000750| 80 53 20 66 6c 6f 77 00 | 20 20 80 83 23 36 34 30 |.S flow.|  ..#640|
|00000760| 2c 64 30 3a 80 83 23 35 | 31 32 2c 64 31 00 20 20 |,d0:..#5|12,d1.  |
|00000770| 80 ac 20 64 30 3a 80 ac | 20 64 31 3a 80 3d 23 31 |.. d0:..| d1:.=#1|
|00000780| 36 30 2c 64 30 3a 80 3d | 23 31 32 38 2c 64 31 3a |60,d0:.=|#128,d1:|
|00000790| 80 82 20 64 30 2d 64 31 | 2c 28 61 36 29 3a 80 40 |.. d0-d1|,(a6):.@|
|000007a0| 23 34 2c 61 36 00 80 02 | 20 80 0d 00 00 80 09 2e |#4,a6...| .......|
|000007b0| 77 20 67 65 6e 64 61 72 | 74 7b 6f 62 6a 65 63 74 |w gendar|t{object|
|000007c0| 2e 6c 7d 00 20 20 80 b1 | 20 61 34 3a 80 82 2e 6c |.l}.  ..| a4:...l|
|000007d0| 20 61 34 2d 61 36 2c 2d | 28 61 37 29 3a 80 7e 2e | a4-a6,-|(a7):.~.|
|000007e0| 6c 20 64 30 2c 61 35 3a | 80 7a 20 21 70 7b 76 7d |l d0,a5:|.z !p{v}|
|000007f0| 2c 61 36 00 20 20 21 67 | 65 6e 76 65 72 74 7b 30 |,a6.  !g|envert{0|
|00000800| 2c 30 2c 30 2c 30 2c 38 | 2c 80 3d 7d 00 20 20 21 |,0,0,0,8|,.=}.  !|
|00000810| 67 65 6e 76 65 72 74 7b | 30 2c 30 2c 37 2c 80 a7 |genvert{|0,0,7,..|
|00000820| 2c 38 2c 80 a7 7d 00 20 | 20 21 67 65 6e 76 65 72 |,8,..}. | !genver|
|00000830| 74 7b 38 2c 80 a7 2c 30 | 2c 30 2c 38 2c 80 a7 7d |t{8,..,0|,0,8,..}|
|00000840| 3a 21 67 65 6e 76 65 72 | 74 7b 38 2c 80 3d 2c 30 |:!genver|t{8,.=,0|
|00000850| 2c 30 2c 38 2c 80 a7 7d | 00 20 20 21 67 65 6e 76 |,0,8,..}|.  !genv|
|00000860| 65 72 74 7b 37 2c 80 a7 | 2c 30 2c 30 2c 38 2c 80 |ert{7,..|,0,0,8,.|
|00000870| a7 7d 3a 21 67 65 6e 76 | 65 72 74 7b 37 2c 80 3d |.}:!genv|ert{7,.=|
|00000880| 2c 30 2c 30 2c 38 2c 80 | a7 7d 00 20 20 21 67 65 |,0,0,8,.|.}.  !ge|
|00000890| 6e 76 65 72 74 7b 30 2c | 30 2c 36 2c 80 3d 2c 38 |nvert{0,|0,6,.=,8|
|000008a0| 2c 80 a7 7d 00 20 20 80 | 82 2e 6c 20 28 61 37 29 |,..}.  .|..l (a7)|
|000008b0| 2b 2c 61 34 2d 61 36 3a | 80 81 23 2d 31 2c 64 30 |+,a4-a6:|..#-1,d0|
|000008c0| 3a 80 94 00 20 20 66 6c | 6f 77 3a 80 82 2e 6c 20 |:...  fl|ow:...l |
|000008d0| 28 61 37 29 2b 2c 61 34 | 2d 61 36 3a 80 81 23 30 |(a7)+,a4|-a6:..#0|
|000008e0| 2c 64 30 3a 80 94 00 80 | 02 20 80 08 00 00 80 09 |,d0:....|. ......|
|000008f0| 2e 77 20 67 65 6e 73 74 | 61 72 7b 6f 62 6a 65 63 |.w genst|ar{objec|
|00000900| 74 2e 6c 7d 00 20 20 80 | b1 20 61 34 3a 80 82 2e |t.l}.  .|. a4:...|
|00000910| 6c 20 61 34 2d 61 36 2c | 2d 28 61 37 29 3a 80 7e |l a4-a6,|-(a7):.~|
|00000920| 2e 6c 20 64 30 2c 61 35 | 3a 80 7a 20 21 70 7b 76 |.l d0,a5|:.z !p{v|
|00000930| 7d 2c 61 36 00 20 20 21 | 67 65 6e 76 65 72 74 7b |},a6.  !|genvert{|
|00000940| 38 2c 80 3d 2c 30 2c 30 | 2c 30 2c 30 7d 3a 21 67 |8,.=,0,0|,0,0}:!g|
|00000950| 65 6e 76 65 72 74 7b 38 | 2c 80 a7 2c 30 2c 30 2c |envert{8|,..,0,0,|
|00000960| 30 2c 30 7d 00 20 20 21 | 67 65 6e 76 65 72 74 7b |0,0}.  !|genvert{|
|00000970| 30 2c 30 2c 38 2c 80 3d | 2c 30 2c 30 7d 3a 21 67 |0,0,8,.=|,0,0}:!g|
|00000980| 65 6e 76 65 72 74 7b 30 | 2c 30 2c 38 2c 80 a7 2c |envert{0|,0,8,..,|
|00000990| 30 2c 30 7d 00 20 20 21 | 67 65 6e 76 65 72 74 7b |0,0}.  !|genvert{|
|000009a0| 30 2c 30 2c 30 2c 30 2c | 38 2c 80 3d 7d 3a 21 67 |0,0,0,0,|8,.=}:!g|
|000009b0| 65 6e 76 65 72 74 7b 30 | 2c 30 2c 30 2c 30 2c 38 |envert{0|,0,0,0,8|
|000009c0| 2c 80 a7 7d 00 20 20 80 | 82 2e 6c 20 28 61 37 29 |,..}.  .|..l (a7)|
|000009d0| 2b 2c 61 34 2d 61 36 3a | 80 94 00 80 02 20 80 08 |+,a4-a6:|..... ..|
|000009e0| 00 00 80 08 20 67 65 6e | 6c 69 6e 65 7b 6f 62 6a |.... gen|line{obj|
|000009f0| 65 63 74 2e 6c 7d 00 20 | 20 80 b1 20 61 34 3a 80 |ect.l}. | .. a4:.|
|00000a00| 82 2e 6c 20 61 34 2d 61 | 36 2c 2d 28 61 37 29 3a |..l a4-a|6,-(a7):|
|00000a10| 80 7e 2e 6c 20 64 30 2c | 61 35 3a 80 7a 20 21 70 |.~.l d0,|a5:.z !p|
|00000a20| 7b 76 7d 2c 61 36 00 20 | 20 80 82 2e 6c 20 28 61 |{v},a6. | ...l (a|
|00000a30| 36 29 2c 64 30 2d 64 37 | 3a 80 82 2e 6c 20 64 30 |6),d0-d7|:...l d0|
|00000a40| 2d 64 37 2c 34 28 61 36 | 29 00 20 20 80 82 2e 6c |-d7,4(a6|).  ...l|
|00000a50| 20 21 70 7b 78 7d 2c 64 | 30 2d 64 32 00 20 20 80 | !p{x},d|0-d2.  .|
|00000a60| 45 2e 6c 23 32 2c 64 30 | 3a 80 45 2e 6c 23 32 2c |E.l#2,d0|:.E.l#2,|
|00000a70| 64 31 3a 80 ac 20 64 32 | 3a 80 71 20 64 32 2c 64 |d1:.. d2|:.q d2,d|
|00000a80| 30 3a 80 71 20 64 32 2c | 64 31 00 20 20 80 83 23 |0:.q d2,|d1.  ..#|
|00000a90| 36 34 30 2c 64 30 3a 80 | 83 23 35 31 32 2c 64 31 |640,d0:.|.#512,d1|
|00000aa0| 3a 80 ac 20 64 30 3a 80 | ac 20 64 31 00 20 20 80 |:.. d0:.|. d1.  .|
|00000ab0| 3d 23 31 36 30 2c 64 30 | 3a 80 3d 23 31 32 38 2c |=#160,d0|:.=#128,|
|00000ac0| 64 31 3a 80 82 20 64 30 | 2d 64 31 2c 28 61 36 29 |d1:.. d0|-d1,(a6)|
|00000ad0| 00 20 20 80 82 2e 6c 20 | 28 61 37 29 2b 2c 61 34 |.  ...l |(a7)+,a4|
|00000ae0| 2d 61 36 3a 80 94 00 80 | 02 20 80 08 00 00 3b 2d |-a6:....|. ....;-|
|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 | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 00 80 01 |--------|----....|
|00000b30| 20 2e 76 65 72 74 00 20 | 20 78 2e 77 3a 79 00 80 | .vert. | x.w:y..|
|00000b40| 02 20 80 01 00 00 80 01 | 20 2e 6f 62 6a 65 63 74 |. ......| .object|
|00000b50| 00 20 20 78 2e 71 3a 79 | 3a 7a 00 20 20 76 78 3a |.  x.q:y|:z.  vx:|
|00000b60| 76 79 3a 76 7a 00 20 20 | 74 68 72 75 73 74 00 20 |vy:vz.  |thrust. |
|00000b70| 20 72 6f 74 78 3a 72 6f | 74 79 3a 72 6f 74 7a 00 | rotx:ro|ty:rotz.|
|00000b80| 20 20 72 76 78 3a 72 76 | 79 3a 72 76 7a 00 20 20 |  rvx:rv|y:rvz.  |
|00000b90| 76 2e 76 65 72 74 5b 36 | 34 5d 20 20 20 20 3b 76 |v.vert[6|4]    ;v|
|00000ba0| 65 72 74 69 63 69 65 73 | 20 67 6f 20 68 65 72 65 |erticies| go here|
|00000bb0| 00 20 20 69 64 2e 77 5b | 39 5d 00 80 02 20 80 01 |.  id.w[|9]... ..|
|00000bc0| 00 00 80 01 20 2e 74 72 | 69 00 20 20 78 30 2e 77 |.... .tr|i.  x0.w|
|00000bd0| 3a 79 30 2e 77 3a 78 31 | 2e 77 3a 79 31 2e 77 3a |:y0.w:x1|.w:y1.w:|
|00000be0| 78 32 2e 77 3a 79 32 2e | 77 00 80 02 20 80 01 00 |x2.w:y2.|w... ...|
|00000bf0| 00 80 04 20 80 b3 20 6e | 6d 65 2e 6f 62 6a 65 63 |... .. n|me.objec|
|00000c00| 74 28 64 61 72 74 73 29 | 20 3b 77 6f 77 20 76 61 |t(darts)| ;wow va|
|00000c10| 72 69 61 62 6c 65 20 64 | 69 6d 65 6e 73 69 6f 6e |riable d|imension|
|00000c20| 69 6e 67 20 69 6e 20 61 | 20 63 6f 6d 70 69 6c 65 |ing in a| compile|
|00000c30| 72 21 00 80 04 20 80 b3 | 20 62 75 6c 2e 6f 62 6a |r!... ..| bul.obj|
|00000c40| 65 63 74 28 32 30 29 00 | 80 04 20 80 b3 20 66 69 |ect(20).|.. .. fi|
|00000c50| 72 65 2e 6f 62 6a 65 63 | 74 28 35 29 00 80 04 20 |re.objec|t(5)... |
|00000c60| 80 b3 20 62 61 6e 67 2e | 6f 62 6a 65 63 74 28 31 |.. bang.|object(1|
|00000c70| 30 29 00 00 3b 67 65 6e | 65 72 61 74 65 20 73 69 |0)..;gen|erate si|
|00000c80| 6e 5f 63 6f 73 20 74 61 | 62 6c 65 00 00 80 04 20 |n_cos ta|ble.... |
|00000c90| 72 6f 74 73 2e 77 28 32 | 30 34 39 29 3a 72 74 2e |rots.w(2|049):rt.|
|00000ca0| 6c 3d 26 72 6f 74 73 28 | 30 29 00 80 16 20 69 3d |l=&rots(|0)... i=|
|00000cb0| 30 20 80 18 20 32 30 34 | 38 20 80 19 20 32 00 20 |0 .. 204|8 .. 2. |
|00000cc0| 20 72 6f 74 73 28 69 29 | 3d e0 0a 28 69 2a 32 2a | rots(i)|=..(i*2*|
|00000cd0| 80 ba 2f 32 30 34 38 29 | 2a 33 32 37 36 36 00 20 |../2048)|*32766. |
|00000ce0| 20 72 6f 74 73 28 69 2b | 31 29 3d e0 05 28 69 2a | rots(i+|1)=..(i*|
|00000cf0| 32 2a 80 ba 2f 32 30 34 | 38 29 2a 33 32 37 36 36 |2*../204|8)*32766|
|00000d00| 00 80 17 00 00 3b 73 65 | 74 75 70 20 64 69 73 70 |.....;se|tup disp|
|00000d10| 6c 61 79 00 00 d0 01 20 | 30 2c 33 32 30 2c 32 35 |lay.... |0,320,25|
|00000d20| 36 2c 33 00 d0 01 20 31 | 2c 33 32 30 2c 32 35 36 |6,3... 1|,320,256|
|00000d30| 2c 33 00 00 80 1c 20 31 | 3d 30 00 80 16 20 69 3d |,3.... 1|=0... i=|
|00000d40| 30 20 80 18 20 37 00 20 | 20 d0 01 20 32 2b 69 2c |0 .. 7. | .. 2+i,|
|00000d50| 33 32 30 2c 32 35 36 2c | 31 00 20 20 c7 02 20 32 |320,256,|1.  .. 2|
|00000d60| 2b 69 3a c7 04 20 32 2c | 30 00 20 20 dd 82 20 22 |+i:.. 2,|0.  .. "|
|00000d70| 42 4c 49 54 5a 20 44 41 | 52 54 53 20 42 59 20 53 |BLITZ DA|RTS BY S|
|00000d80| 49 4d 4f 4e 20 20 20 45 | 53 43 20 54 4f 20 45 58 |IMON   E|SC TO EX|
|00000d90| 49 54 22 00 20 20 80 16 | 20 72 3d 30 20 80 18 20 |IT".  ..| r=0 .. |
|00000da0| 32 2a 80 ba 2d 80 ba 2f | 33 32 20 80 19 20 80 ba |2*..-../|32 .. ..|
|00000db0| 2f 33 32 00 20 20 20 20 | 6a 3d 72 2b 69 2a 80 ba |/32.    |j=r+i*..|
|00000dc0| 2f 32 35 36 00 20 20 20 | 20 bb 81 20 31 36 30 2c |/256.   | .. 160,|
|00000dd0| 31 32 38 2c e0 0d 28 6a | 2f 34 29 2a 35 30 2c 31 |128,..(j|/4)*50,1|
|00000de0| 00 20 20 20 20 bb 85 20 | 31 36 30 2c 31 32 38 2c |.    .. |160,128,|
|00000df0| 31 36 30 2b e0 0a 28 6a | 29 2a 33 32 30 2c 31 32 |160+..(j|)*320,12|
|00000e00| 38 2b e0 05 28 6a 29 2a | 32 35 36 2c 31 00 20 20 |8+..(j)*|256,1.  |
|00000e10| 20 20 bb 82 20 31 36 30 | 2c 31 32 38 2c 31 32 2c |  .. 160|,128,12,|
|00000e20| 31 00 20 20 80 17 00 80 | 17 00 80 1f 00 00 80 34 |1.  ....|.......4|
|00000e30| 3a c8 01 20 30 2c 34 34 | 2c 33 32 30 2c 32 35 36 |:.. 0,44|,320,256|
|00000e40| 2c 24 66 66 66 61 2c 33 | 2c 38 2c 33 32 2c 33 32 |,$fffa,3|,8,32,32|
|00000e50| 30 2c 33 32 30 00 3b 52 | 47 42 20 31 2c 31 35 2c |0,320.;R|GB 1,15,|
|00000e60| 31 32 2c 31 35 3a 52 47 | 42 20 39 2c 34 2c 34 2c |12,15:RG|B 9,4,4,|
|00000e70| 38 00 00 66 3d 32 20 20 | 20 20 20 3b 66 72 61 6d |8..f=2  |   ;fram|
|00000e80| 65 20 6f 66 20 61 6e 69 | 6d 00 78 6f 3d 31 30 30 |e of ani|m.xo=100|
|00000e90| 30 20 3b 63 75 72 72 65 | 6e 74 20 6c 61 73 65 72 |0 ;curre|nt laser|
|00000ea0| 00 00 b6 01 20 80 c5 3a | b6 03 20 2d 31 35 30 2c |.... ..:|.. -150,|
|00000eb0| 2d 31 35 30 2c 31 32 30 | 2c 31 32 30 3a b1 01 20 |-150,120|,120:.. |
|00000ec0| 80 c5 00 00 2e 6d 61 69 | 6e 6c 6f 6f 70 00 00 80 |.....mai|nloop...|
|00000ed0| bb 00 20 20 80 37 3a c8 | 04 20 64 62 3a 64 62 3d |..  .7:.|. db:db=|
|00000ee0| 31 2d 64 62 3a 80 2c 20 | d0 01 20 64 62 20 20 3b |1-db:., |.. db  ;|
|00000ef0| 64 6f 75 62 6c 65 20 62 | 75 66 66 65 72 00 3b 20 |double b|uffer.; |
|00000f00| 20 53 68 6f 77 42 20 66 | 3a 66 2b 31 3a 49 66 20 | ShowB f|:f+1:If |
|00000f10| 66 3d 31 30 20 54 68 65 | 6e 20 66 3d 32 00 20 20 |f=10 The|n f=2.  |
|00000f20| 20 6d 79 63 6c 73 7b da | 02 2e 6c 20 28 80 b8 20 | mycls{.|..l (.. |
|00000f30| d0 01 28 64 62 29 2b 38 | 29 7d 00 20 20 20 6d 79 |..(db)+8|)}.   my|
|00000f40| 63 6c 73 7b da 02 2e 6c | 20 28 80 b8 20 d0 01 28 |cls{...l| (.. ..(|
|00000f50| 64 62 29 2b 31 32 29 7d | 00 20 20 20 6d 79 63 6c |db)+12)}|.   mycl|
|00000f60| 73 7b da 02 2e 6c 20 28 | 80 b8 20 d0 01 28 64 62 |s{...l (|.. ..(db|
|00000f70| 29 2b 31 36 29 7d 00 3b | 64 6f 20 79 6f 75 00 20 |)+16)}.;|do you. |
|00000f80| 20 78 3d b6 04 3a 79 3d | b6 05 00 20 20 bb 85 20 | x=..:y=|...  .. |
|00000f90| 78 2b 31 35 35 2c 79 2b | 31 32 38 2c 78 2b 31 36 |x+155,y+|128,x+16|
|00000fa0| 35 2c 79 2b 31 32 38 2c | 31 3a bb 85 20 78 2b 31 |5,y+128,|1:.. x+1|
|00000fb0| 36 30 2c 79 2b 31 32 33 | 2c 78 2b 31 36 30 2c 79 |60,y+123|,x+160,y|
|00000fc0| 2b 31 33 33 2c 31 00 20 | 20 80 0b 20 df 04 28 30 |+133,1. | .. ..(0|
|00000fd0| 29 3d 31 20 80 42 20 72 | 65 6c 6f 61 64 3c 31 20 |)=1 .B r|eload<1 |
|00000fe0| 80 21 20 80 06 20 61 64 | 64 66 69 72 65 3a 72 65 |.! .. ad|dfire:re|
|00000ff0| 6c 6f 61 64 3d 31 35 00 | 20 20 80 06 20 64 6f 66 |load=15.|  .. dof|
|00001000| 69 72 65 3a 72 65 6c 6f | 61 64 2d 31 3a 80 0b 20 |ire:relo|ad-1:.. |
|00001010| df 04 28 30 29 3d 30 20 | 80 21 20 72 65 6c 6f 61 |..(0)=0 |.! reloa|
|00001020| 64 3d 2d 31 00 3b 64 6f | 20 6e 6d 65 00 20 20 80 |d=-1.;do| nme.  .|
|00001030| 06 20 61 64 64 6e 6d 65 | 00 20 20 80 06 20 6d 6f |. addnme|.  .. mo|
|00001040| 76 65 6e 6d 65 00 20 20 | 80 06 20 64 6f 62 61 6e |venme.  |.. doban|
|00001050| 67 00 80 bc 20 b1 02 28 | 24 34 35 29 00 00 80 37 |g... ..(|$45)...7|
|00001060| 00 00 80 35 00 b9 01 20 | 64 62 2c 22 72 61 6d 3a |...5... |db,"ram:|
|00001070| 74 31 22 00 b9 01 20 32 | 2c 22 72 61 6d 3a 74 32 |t1"... 2|,"ram:t2|
|00001080| 22 00 80 34 00 00 80 37 | 00 00 80 02 00 00 80 0d |"..4...7|........|
|00001090| 20 6d 79 6c 69 6e 65 20 | bb 85 20 5c 76 5b 60 31 | myline |.. \v[`1|
|000010a0| 5d 5c 78 2c 5c 76 5b 60 | 31 5d 5c 79 2c 5c 76 5b |]\x,\v[`|1]\y,\v[|
|000010b0| 60 32 5d 5c 78 2c 5c 76 | 5b 60 32 5d 5c 79 2c 31 |`2]\x,\v|[`2]\y,1|
|000010c0| 3a 80 02 20 80 0d 00 00 | 80 0d 20 6d 79 70 6f 6c |:.. ....|.. mypol|
|000010d0| 79 00 20 20 74 2e 74 72 | 69 5c 78 30 3d 5c 76 5b |y.  t.tr|i\x0=\v[|
|000010e0| 60 31 5d 5c 78 2c 5c 76 | 5b 60 31 5d 5c 79 2c 5c |`1]\x,\v|[`1]\y,\|
|000010f0| 76 5b 60 32 5d 5c 78 2c | 5c 76 5b 60 32 5d 5c 79 |v[`2]\x,|\v[`2]\y|
|00001100| 2c 5c 76 5b 60 33 5d 5c | 78 2c 5c 76 5b 60 33 5d |,\v[`3]\|x,\v[`3]|
|00001110| 5c 79 00 20 20 bb 8b 20 | 33 2c 26 74 2c 60 34 2c |\y.  .. |3,&t,`4,|
|00001120| 60 35 00 80 02 20 80 0d | 00 00 80 ca 20 62 61 6e |`5... ..|.... ban|
|00001130| 67 28 29 00 00 2e 64 6f | 62 61 6e 67 00 20 20 c0 |g()...do|bang.  .|
|00001140| 04 20 62 61 6e 67 28 29 | 00 20 20 80 0c 20 c0 03 |. bang()|.  .. ..|
|00001150| 28 62 61 6e 67 28 29 29 | 00 20 20 20 20 5c 78 2b |(bang())|.    \x+|
|00001160| 5c 76 78 3a 5c 79 2b 5c | 76 79 3a 5c 7a 2b 5c 76 |\vx:\y+\|vy:\z+\v|
|00001170| 7a 00 20 20 20 20 5c 72 | 6f 74 78 2b 5c 72 76 78 |z.    \r|otx+\rvx|
|00001180| 3a 5c 72 6f 74 79 2b 5c | 72 76 79 3a 5c 72 6f 74 |:\roty+\|rvy:\rot|
|00001190| 7a 2b 5c 72 76 7a 00 20 | 20 20 20 63 61 6c 63 69 |z+\rvz. |   calci|
|000011a0| 64 7b 62 61 6e 67 28 29 | 2c 72 74 7d 00 20 20 20 |d{bang()|,rt}.   |
|000011b0| 20 80 0b 20 67 65 6e 73 | 74 61 72 7b 62 61 6e 67 | .. gens|tar{bang|
|000011c0| 28 29 7d 00 20 20 20 20 | 20 20 80 16 20 69 3d 30 |()}.    |  .. i=0|
|000011d0| 20 80 18 20 34 20 80 19 | 20 32 3a 21 6d 79 6c 69 | .. 4 ..| 2:!myli|
|000011e0| 6e 65 20 7b 69 2c 69 2b | 31 7d 3a 80 17 00 20 20 |ne {i,i+|1}:...  |
|000011f0| 20 20 80 22 00 20 20 20 | 20 20 20 c0 05 20 62 61 |  .".   |   .. ba|
|00001200| 6e 67 28 29 00 20 20 20 | 20 80 c0 00 20 20 80 c1 |ng().   | ...  ..|
|00001210| 00 20 20 80 07 00 00 80 | ca 20 6e 6d 65 28 29 00 |.  .....|. nme().|
|00001220| 00 2e 61 64 64 6e 6d 65 | 3a 00 20 20 6e 65 77 6e |..addnme|:.  newn|
|00001230| 6d 65 2d 31 00 20 20 80 | 0b 20 6e 65 77 6e 6d 65 |me-1.  .|. newnme|
|00001240| 3c 30 00 20 20 20 20 80 | 0b 20 c0 02 28 6e 6d 65 |<0.    .|. ..(nme|
|00001250| 28 29 29 00 20 20 20 20 | 20 20 6e 65 77 6e 6d 65 |()).    |  newnme|
|00001260| 3d 35 00 20 20 20 20 20 | 20 5c 78 3d bc 07 28 38 |=5.     | \x=..(8|
|00001270| 30 30 30 29 2d 34 30 30 | 30 2c bc 07 28 32 34 30 |000)-400|0,..(240|
|00001280| 30 30 29 2d 31 32 30 30 | 30 2c 36 30 30 30 00 20 |00)-1200|0,6000. |
|00001290| 20 20 20 20 20 5c 72 6f | 74 78 3d 30 2c bc 07 28 |     \ro|tx=0,..(|
|000012a0| 34 30 39 36 29 2c 35 31 | 32 00 20 20 20 20 20 20 |4096),51|2.      |
|000012b0| 5c 72 76 78 3d 30 2c bc | 07 28 31 36 29 2b 31 36 |\rvx=0,.|.(16)+16|
|000012c0| 2c 30 00 20 20 20 20 20 | 20 5c 74 68 72 75 73 74 |,0.     | \thrust|
|000012d0| 3d bc 07 28 34 29 2b 36 | 00 20 20 20 20 80 c0 00 |=..(4)+6|.    ...|
|000012e0| 20 20 80 c0 00 20 20 80 | 07 00 00 2e 6d 6f 76 65 |  ...  .|....move|
|000012f0| 6e 6d 65 3a 00 20 20 c0 | 04 20 6e 6d 65 28 29 00 |nme:.  .|. nme().|
|00001300| 20 20 80 0c 20 c0 03 28 | 6e 6d 65 28 29 29 00 20 |  .. ..(|nme()). |
|00001310| 20 20 20 63 61 6c 63 69 | 64 7b 6e 6d 65 28 29 2c |   calci|d{nme(),|
|00001320| 72 74 7d 00 20 20 20 20 | 6d 6f 76 65 6f 6e 7a 7b |rt}.    |moveonz{|
|00001330| 6e 6d 65 28 29 2c 5c 74 | 68 72 75 73 74 7d 00 20 |nme(),\t|hrust}. |
|00001340| 20 20 20 5c 78 2b 5c 76 | 78 3a 5c 79 2b 5c 76 79 |   \x+\v|x:\y+\vy|
|00001350| 3a 5c 7a 2b 5c 76 7a 3a | 00 20 20 20 20 5c 72 6f |:\z+\vz:|.    \ro|
|00001360| 74 78 2b 5c 72 76 78 3a | 5c 72 6f 74 79 2b 5c 72 |tx+\rvx:|\roty+\r|
|00001370| 76 79 3a 5c 72 6f 74 7a | 2b 5c 72 76 7a 00 20 20 |vy:\rotz|+\rvz.  |
|00001380| 20 20 80 0b 20 5c 7a 3e | 31 30 30 30 00 20 20 20 |  .. \z>|1000.   |
|00001390| 20 20 20 80 0b 20 67 65 | 6e 64 61 72 74 7b 6e 6d |   .. ge|ndart{nm|
|000013a0| 65 28 29 7d 00 00 20 20 | 20 20 20 20 20 20 20 21 |e()}..  |       !|
|000013b0| 6d 79 70 6f 6c 79 7b 30 | 2c 33 2c 32 2c 31 2c 2d |mypoly{0|,3,2,1,-|
|000013c0| 31 7d 00 20 20 20 20 20 | 20 20 20 20 21 6d 79 70 |1}.     |    !myp|
|000013d0| 6f 6c 79 7b 30 2c 31 2c | 34 2c 35 2c 2d 31 7d 00 |oly{0,1,|4,5,-1}.|
|000013e0| 20 20 20 20 20 20 20 20 | 20 21 6d 79 70 6f 6c 79 |        | !mypoly|
|000013f0| 7b 30 2c 35 2c 31 2c 34 | 2c 2d 31 7d 00 20 20 20 |{0,5,1,4|,-1}.   |
|00001400| 20 20 20 20 20 20 21 6d | 79 70 6f 6c 79 7b 34 2c |      !m|ypoly{4,|
|00001410| 31 2c 35 2c 36 2c 2d 31 | 7d 00 20 20 20 20 20 20 |1,5,6,-1|}.      |
|00001420| 20 20 20 21 6d 79 70 6f | 6c 79 7b 32 2c 33 2c 36 |   !mypo|ly{2,3,6|
|00001430| 2c 37 2c 2d 31 7d 00 20 | 20 20 20 20 20 20 20 20 |,7,-1}. |        |
|00001440| 21 6d 79 70 6f 6c 79 7b | 30 2c 32 2c 36 2c 37 2c |!mypoly{|0,2,6,7,|
|00001450| 2d 31 7d 00 20 20 20 20 | 20 20 20 20 20 21 6d 79 |-1}.    |     !my|
|00001460| 70 6f 6c 79 7b 30 2c 36 | 2c 33 2c 37 2c 2d 31 7d |poly{0,6|,3,7,-1}|
|00001470| 00 00 00 00 3b 20 20 20 | 20 20 20 20 20 74 2e 74 |....;   |     t.t|
|00001480| 72 69 5c 78 30 3d 5c 76 | 5b 30 5d 5c 78 2c 5c 76 |ri\x0=\v|[0]\x,\v|
|00001490| 5b 30 5d 5c 79 2c 5c 76 | 5b 31 5d 5c 78 2c 5c 76 |[0]\y,\v|[1]\x,\v|
|000014a0| 5b 31 5d 5c 79 2c 5c 76 | 5b 32 5d 5c 78 2c 5c 76 |[1]\y,\v|[2]\x,\v|
|000014b0| 5b 32 5d 5c 79 00 3b 20 | 20 20 20 20 20 20 20 50 |[2]\y.; |       P|
|000014c0| 6f 6c 79 66 20 33 2c 26 | 74 2c 31 00 3b 20 20 20 |olyf 3,&|t,1.;   |
|000014d0| 20 20 20 20 20 46 6f 72 | 20 69 3d 31 20 54 6f 20 |     For| i=1 To |
|000014e0| 35 3a 21 6d 79 6c 69 6e | 65 20 7b 30 2c 69 7d 3a |5:!mylin|e {0,i}:|
|000014f0| 4e 65 78 74 00 3b 20 20 | 20 20 20 20 20 20 21 6d |Next.;  |      !m|
|00001500| 79 6c 69 6e 65 20 7b 32 | 2c 33 7d 3a 21 6d 79 6c |yline {2|,3}:!myl|
|00001510| 69 6e 65 20 7b 31 2c 34 | 7d 3a 21 6d 79 6c 69 6e |ine {1,4|}:!mylin|
|00001520| 65 20 7b 31 2c 35 7d 00 | 00 20 20 20 20 20 20 20 |e {1,5}.|.       |
|00001530| 20 c0 04 20 66 69 72 65 | 28 29 00 20 20 20 20 20 | .. fire|().     |
|00001540| 20 20 20 80 0c 20 c0 03 | 28 66 69 72 65 28 29 29 |   .. ..|(fire())|
|00001550| 00 20 20 20 20 20 20 20 | 20 20 20 80 0b 20 bc 09 |.       |   .. ..|
|00001560| 28 5c 78 2d 66 69 72 65 | 28 29 5c 78 29 3c 31 30 |(\x-fire|()\x)<10|
|00001570| 30 30 00 20 20 20 20 20 | 20 20 20 20 20 20 20 80 |00.     |       .|
|00001580| 0b 20 bc 09 28 5c 79 2d | 66 69 72 65 28 29 5c 79 |. ..(\y-|fire()\y|
|00001590| 29 3c 31 30 30 30 00 20 | 20 20 20 20 20 20 20 20 |)<1000. |        |
|000015a0| 20 20 20 20 20 80 0b 20 | bc 09 28 5c 7a 2d 66 69 |     .. |..(\z-fi|
|000015b0| 72 65 28 29 5c 7a 29 3c | 31 30 30 30 00 20 20 20 |re()\z)<|1000.   |
|000015c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 |        |     .. |
|000015d0| c0 02 28 62 61 6e 67 28 | 29 29 00 20 20 20 20 20 |..(bang(|)).     |
|000015e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 62 61 6e |        |     ban|
|000015f0| 67 28 29 5c 78 3d 5c 78 | 2c 5c 79 2c 5c 7a 2c 5c |g()\x=\x|,\y,\z,\|
|00001600| 76 78 2c 5c 76 79 2c 5c | 76 7a 00 20 20 20 20 20 |vx,\vy,\|vz.     |
|00001610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 62 61 6e |        |     ban|
|00001620| 67 28 29 5c 72 76 78 3d | 31 30 30 2c 31 33 30 2c |g()\rvx=|100,130,|
|00001630| 39 30 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |90.     |        |
|00001640| 20 20 20 80 c0 00 20 20 | 20 20 20 20 20 20 20 20 |   ...  |        |
|00001650| 20 20 20 20 20 20 c0 05 | 20 6e 6d 65 28 29 3a c0 |      ..| nme():.|
|00001660| 05 20 66 69 72 65 28 29 | 3a 80 05 20 70 6f 70 6f |. fire()|:.. popo|
|00001670| 75 74 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ut.     |        |
|00001680| 20 80 c0 00 20 20 20 20 | 20 20 20 20 20 20 20 20 | ...    |        |
|00001690| 80 c0 00 20 20 20 20 20 | 20 20 20 20 20 80 c0 00 |...     |     ...|
|000016a0| 20 20 20 20 20 20 20 20 | 80 c1 3a 70 6f 70 6f 75 |        |..:popou|
|000016b0| 74 00 00 20 20 20 20 20 | 20 80 c0 00 20 20 20 20 |t..     | ...    |
|000016c0| 80 22 00 20 20 20 20 20 | 20 c0 05 20 6e 6d 65 28 |.".     | .. nme(|
|000016d0| 29 00 20 20 20 20 80 c0 | 00 20 20 80 c1 00 20 20 |).    ..|.  ...  |
|000016e0| 80 07 00 00 80 ca 20 66 | 69 72 65 28 29 00 00 2e |...... f|ire()...|
|000016f0| 61 64 64 66 69 72 65 3a | 00 20 20 80 0b 20 c0 02 |addfire:|.  .. ..|
|00001700| 28 66 69 72 65 28 29 29 | 00 20 20 20 20 78 6f 3d |(fire())|.    xo=|
|00001710| 2d 78 6f 00 20 20 20 20 | 5c 78 3d 78 6f 2c 31 30 |-xo.    |\x=xo,10|
|00001720| 30 30 2c 31 30 30 30 00 | 20 20 20 20 63 61 6c 63 |00,1000.|    calc|
|00001730| 69 64 7b 66 69 72 65 28 | 29 2c 72 74 7d 00 20 20 |id{fire(|),rt}.  |
|00001740| 20 20 67 65 6e 6c 69 6e | 65 7b 66 69 72 65 28 29 |  genlin|e{fire()|
|00001750| 7d 3a 78 78 2e 77 3d 5c | 76 5b 30 5d 5c 78 3a 79 |}:xx.w=\|v[0]\x:y|
|00001760| 79 2e 77 3d 5c 76 5b 30 | 5d 5c 79 00 20 20 20 20 |y.w=\v[0|]\y.    |
|00001770| 80 16 20 69 3d 31 20 80 | 18 20 37 3a 5c 76 5b 69 |.. i=1 .|. 7:\v[i|
|00001780| 5d 5c 78 3d 78 78 2c 79 | 79 3a 80 17 00 20 20 80 |]\x=xx,y|y:...  .|
|00001790| c0 00 20 20 5c 76 78 3d | 78 2a 36 2e 35 2d 78 6f |..  \vx=|x*6.5-xo|
|000017a0| 2f 32 34 2c 79 2a 38 2d | 33 32 2c 31 30 30 30 00 |/24,y*8-|32,1000.|
|000017b0| 20 20 80 07 00 00 2e 64 | 6f 66 69 72 65 3a 00 20 |  .....d|ofire:. |
|000017c0| 20 c0 04 20 66 69 72 65 | 28 29 00 20 20 80 0c 20 | .. fire|().  .. |
|000017d0| c0 03 28 66 69 72 65 28 | 29 29 00 20 20 20 20 5c |..(fire(|)).    \|
|000017e0| 78 2b 5c 76 78 3a 5c 79 | 2b 5c 76 79 3a 5c 7a 2b |x+\vx:\y|+\vy:\z+|
|000017f0| 5c 76 7a 00 20 20 20 20 | 80 0b 20 5c 7a 3c 31 36 |\vz.    |.. \z<16|
|00001800| 30 30 30 00 20 20 20 20 | 20 20 67 65 6e 6c 69 6e |000.    |  genlin|
|00001810| 65 7b 66 69 72 65 28 29 | 7d 3a 21 6d 79 6c 69 6e |e{fire()|}:!mylin|
|00001820| 65 7b 30 2c 37 7d 00 20 | 20 20 20 80 22 00 20 20 |e{0,7}. |   .".  |
|00001830| 20 20 20 20 c0 05 20 66 | 69 72 65 28 29 00 20 20 |    .. f|ire().  |
|00001840| 20 20 80 c0 00 20 20 80 | c1 00 20 20 80 07 00 00 |  ...  .|..  ....|
+--------+-------------------------+-------------------------+--------+--------+