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