/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_exa.dms / in.adf / blitzmode / blitzballs.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 74 68 69 73 20 69 | 73 20 6d 79 20 20 62 6c |; this i|s my  bl|
|00000010| 69 74 7a 20 76 65 72 73 | 69 6f 6e 20 6f 66 00 3b |itz vers|ion of.;|
|00000020| 20 74 68 65 20 6f 74 68 | 65 72 20 62 61 73 69 63 | the oth|er basic|
|00000030| 20 70 72 6f 67 2e 20 69 | 6e 20 74 68 65 20 4e 2e | prog. i|n the N.|
|00000040| 5a 2e 20 41 4d 49 47 41 | 20 4d 41 47 2e 20 4e 6f |Z. AMIGA| MAG. No|
|00000050| 2e 32 00 3b 20 74 68 65 | 20 73 68 61 70 65 73 20 |.2.; the| shapes |
|00000060| 61 72 65 20 6d 6f 76 65 | 64 20 31 2e 35 20 64 65 |are move|d 1.5 de|
|00000070| 67 20 6f 6e 20 65 61 63 | 68 20 62 69 74 6d 61 70 |g on eac|h bitmap|
|00000080| 00 3b 20 77 72 69 74 74 | 65 6e 20 62 79 20 56 2e |.; writt|en by V.|
|00000090| 20 41 2e 20 48 49 4c 4c | 00 3b 20 68 6f 70 65 20 | A. HILL|.; hope |
|000000a0| 69 74 20 62 65 20 6f 66 | 20 69 6e 74 65 72 65 73 |it be of| interes|
|000000b0| 74 20 74 6f 20 73 6f 6d | 65 62 6f 64 79 3f 00 3b |t to som|ebody?.;|
|000000c0| 20 69 66 20 79 6f 75 20 | 61 72 65 20 77 6f 6e 64 | if you |are wond|
|000000d0| 65 72 69 6e 67 20 77 68 | 69 63 68 20 6f 74 68 65 |ering wh|ich othe|
|000000e0| 72 20 62 61 73 69 63 00 | 3b 20 73 70 65 6c 74 20 |r basic.|; spelt |
|000000f0| 62 61 63 6b 77 61 72 64 | 73 20 69 74 20 69 73 20 |backward|s it is |
|00000100| 53 4f 4d 41 00 00 23 73 | 63 77 3d 33 32 30 3a 23 |SOMA..#s|cw=320:#|
|00000110| 73 68 3d 32 35 36 3a 23 | 78 6f 66 66 3d 23 73 63 |sh=256:#|xoff=#sc|
|00000120| 77 2f 32 3a 23 79 6f 66 | 66 3d 23 73 68 2f 32 00 |w/2:#yof|f=#sh/2.|
|00000130| 23 72 64 3d 31 31 30 00 | 75 2e 66 3d 36 2e 32 38 |#rd=110.|u.f=6.28|
|00000140| 2f 37 32 30 00 80 33 2e | 77 20 72 2c 64 65 68 2c |/720..3.|w r,deh,|
|00000150| 73 75 70 2c 63 78 2c 64 | 78 2c 64 79 2c 73 63 2c |sup,cx,d|x,dy,sc,|
|00000160| 73 6e 2c 63 73 00 80 04 | 20 78 2e 77 28 31 35 30 |sn,cs...| x.w(150|
|00000170| 30 29 2c 79 2e 77 28 31 | 35 30 30 29 00 77 2e 66 |0),y.w(1|500).w.f|
|00000180| 3d 30 3a dd 81 20 22 50 | 6c 65 61 73 65 20 57 61 |=0:.. "P|lease Wa|
|00000190| 69 74 22 00 63 79 3d 30 | 00 80 16 20 77 3d 30 20 |it".cy=0|... w=0 |
|000001a0| 80 18 20 36 2e 32 38 20 | 80 19 20 75 00 20 20 78 |.. 6.28 |.. u.  x|
|000001b0| 28 63 79 29 3d e0 0a 28 | 77 29 2a 23 72 64 3a 79 |(cy)=..(|w)*#rd:y|
|000001c0| 28 63 79 29 3d e0 05 28 | 77 29 2a 23 72 64 00 20 |(cy)=..(|w)*#rd. |
|000001d0| 20 78 28 63 79 2b 37 32 | 30 29 3d 78 28 63 79 29 | x(cy+72|0)=x(cy)|
|000001e0| 3a 79 28 63 79 2b 37 32 | 30 29 3d 79 28 63 79 29 |:y(cy+72|0)=y(cy)|
|000001f0| 00 20 20 63 79 3d 63 79 | 2b 31 00 80 17 20 77 00 |.  cy=cy|+1... w.|
|00000200| 80 16 20 63 79 3d 30 20 | 80 18 20 32 30 00 20 20 |.. cy=0 |.. 20.  |
|00000210| 78 28 63 79 2b 31 34 34 | 30 29 3d 78 28 63 79 29 |x(cy+144|0)=x(cy)|
|00000220| 3a 79 28 63 79 2b 31 34 | 34 30 29 3d 79 28 63 79 |:y(cy+14|40)=y(cy|
|00000230| 29 00 80 17 20 63 79 00 | 80 06 20 6d 61 6b 65 73 |)... cy.|.. makes|
|00000240| 68 61 70 65 00 00 80 34 | 00 80 16 20 64 3d 30 20 |hape...4|... d=0 |
|00000250| 80 18 20 37 00 20 20 d0 | 01 20 64 2c 23 73 63 77 |.. 7.  .|. d,#scw|
|00000260| 2c 23 73 68 2c 32 00 80 | 17 20 64 00 00 ce 0a 20 |,#sh,2..|. d.... |
|00000270| 30 2c 30 2c 30 2c 30 2c | 30 3a ce 0a 20 30 2c 31 |0,0,0,0,|0:.. 0,1|
|00000280| 2c 31 35 2c 39 2c 39 3a | ce 0a 20 30 2c 32 2c 31 |,15,9,9:|.. 0,2,1|
|00000290| 30 2c 30 2c 30 3a ce 0a | 20 30 2c 33 2c 31 32 2c |0,0,0:..| 0,3,12,|
|000002a0| 30 2c 30 00 00 c7 82 20 | 30 2c 32 00 c7 86 20 30 |0,0.... |0,2... 0|
|000002b0| 2c 30 00 c7 84 20 30 2c | 30 00 c7 83 20 30 00 00 |,0... 0,|0... 0..|
|000002c0| 80 bb 00 73 63 3d 30 00 | 20 20 80 16 20 64 65 68 |...sc=0.|  .. deh|
|000002d0| 3d 30 20 80 18 20 37 32 | 30 20 80 19 20 32 34 00 |=0 .. 72|0 .. 24.|
|000002e0| 20 20 20 20 80 16 20 73 | 75 70 3d 30 20 80 18 20 |    .. s|up=0 .. |
|000002f0| 32 31 20 80 19 20 33 00 | 20 20 20 20 80 37 00 20 |21 .. 3.|    .7. |
|00000300| 20 20 20 c7 84 20 30 2c | 73 63 00 20 20 20 20 80 |   .. 0,|sc.    .|
|00000310| 2c 20 d0 01 20 73 63 00 | 20 20 20 20 73 6e 3d 64 |, .. sc.|    sn=d|
|00000320| 65 68 2b 72 2b 73 75 70 | 00 20 20 20 20 63 73 3d |eh+r+sup|.    cs=|
|00000330| 64 65 68 2b 73 75 70 00 | 20 20 20 20 64 78 3d 78 |deh+sup.|    dx=x|
|00000340| 28 73 6e 29 2b 23 78 6f | 66 66 00 20 20 20 20 64 |(sn)+#xo|ff.    d|
|00000350| 79 3d 79 28 63 73 29 2b | 23 79 6f 66 66 00 20 20 |y=y(cs)+|#yoff.  |
|00000360| 20 20 cb 01 20 30 2c 64 | 78 2c 64 79 00 20 20 20 |  .. 0,d|x,dy.   |
|00000370| 20 73 63 3d 73 63 2b 31 | 00 20 20 20 20 80 0b 20 | sc=sc+1|.    .. |
|00000380| df 04 28 30 29 3c 3e 30 | 20 80 21 20 80 02 00 20 |..(0)<>0| .! ... |
|00000390| 20 20 20 80 17 20 73 75 | 70 00 20 20 20 73 63 3d |   .. su|p.   sc=|
|000003a0| 30 00 20 20 80 17 20 64 | 65 68 00 72 3d bc 06 28 |0.  .. d|eh.r=..(|
|000003b0| 72 2b 31 36 2c 30 2c 37 | 32 30 29 00 80 c7 00 00 |r+16,0,7|20).....|
|000003c0| 80 35 00 6d 61 6b 65 73 | 68 61 70 65 3a 00 cf 01 |.5.makes|hape:...|
|000003d0| 20 30 2c 32 00 d0 03 20 | 30 2c 30 00 b2 05 00 bb | 0,2... |0,0.....|
|000003e0| 82 20 31 32 2c 32 30 2c | 31 31 2c 33 00 bb 81 20 |. 12,20,|11,3... |
|000003f0| 31 32 2c 32 30 2c 31 31 | 2c 32 00 b2 03 20 31 34 |12,20,11|,2... 14|
|00000400| 2c 32 30 2c 31 00 b2 03 | 20 31 34 2c 31 39 2c 31 |,20,1...| 14,19,1|
|00000410| 00 bb 81 20 31 32 2c 32 | 30 2c 31 30 2c 32 00 bb |... 12,2|0,10,2..|
|00000420| 81 20 31 33 2c 32 30 2c | 31 30 2c 32 00 bb 81 20 |. 13,20,|10,2... |
|00000430| 31 33 2c 32 30 2c 39 2c | 33 00 cd 08 20 30 2c 30 |13,20,9,|3... 0,0|
|00000440| 2c 39 2c 32 34 2c 33 32 | 00 cd 0d 20 30 00 b2 05 |,9,24,32|... 0...|
|00000450| 00 80 2b 20 d0 01 20 30 | 00 80 2b 20 cf 01 20 30 |..+ .. 0|..+ .. 0|
|00000460| 00 80 07 00 00 00 00    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+