/ Amiga Format CD 1 / amigaformatcd01.iso / demos / blitz_basic / amigamode / amigaaballs.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 63 6f 6e 74 | 72 69 62 75 74 69 6f 6e |;.; cont|ribution|
|00000010| 20 66 72 6f 6d 20 56 20 | 41 20 48 69 6c 6c 00 3b | from V |A Hill.;|
|00000020| 00 3b 20 28 74 68 61 6e | 6b 73 20 56 65 72 6e 6f |.; (than|ks Verno|
|00000030| 6e 29 00 3b 00 00 3b 74 | 68 69 73 20 69 73 20 61 |n).;..;t|his is a|
|00000040| 6d 69 67 61 20 76 65 72 | 73 69 6f 6e 20 6f 66 20 |miga ver|sion of |
|00000050| 6d 6f 76 69 6e 67 20 62 | 61 6c 6c 73 00 00 23 73 |moving b|alls..#s|
|00000060| 63 77 3d 33 32 30 3a 23 | 73 68 3d 32 35 36 3a 23 |cw=320:#|sh=256:#|
|00000070| 78 6f 66 66 3d 23 73 63 | 77 2f 32 3a 23 79 6f 66 |xoff=#sc|w/2:#yof|
|00000080| 66 3d 23 73 68 2f 32 00 | 23 72 64 3d 31 31 30 00 |f=#sh/2.|#rd=110.|
|00000090| 75 2e 66 3d 36 2e 32 38 | 2f 33 36 30 00 80 33 2e |u.f=6.28|/360..3.|
|000000a0| 77 20 72 2c 64 65 68 2c | 73 75 70 2c 63 79 2c 64 |w r,deh,|sup,cy,d|
|000000b0| 78 2c 64 79 2c 73 63 2c | 73 6e 2c 63 73 00 80 04 |x,dy,sc,|sn,cs...|
|000000c0| 20 78 2e 77 28 37 33 30 | 29 2c 79 2e 77 28 37 33 | x.w(730|),y.w(73|
|000000d0| 30 29 00 77 2e 66 3d 30 | 3a dd 81 20 22 50 6c 65 |0).w.f=0|:.. "Ple|
|000000e0| 61 73 65 20 57 61 69 74 | 2e 2e 2e 2e 2e 22 00 63 |ase Wait|.....".c|
|000000f0| 79 3d 30 00 80 16 20 77 | 3d 30 20 80 18 20 36 2e |y=0... w|=0 .. 6.|
|00000100| 32 38 20 80 19 20 75 00 | 20 20 78 28 63 79 29 3d |28 .. u.|  x(cy)=|
|00000110| e0 0a 28 77 29 2a 23 72 | 64 3a 79 28 63 79 29 3d |..(w)*#r|d:y(cy)=|
|00000120| e0 05 28 77 29 2a 23 72 | 64 00 20 20 78 28 63 79 |..(w)*#r|d.  x(cy|
|00000130| 2b 33 36 30 29 3d 78 28 | 63 79 29 3a 79 28 63 79 |+360)=x(|cy):y(cy|
|00000140| 2b 33 36 30 29 3d 79 28 | 63 79 29 00 20 20 63 79 |+360)=y(|cy).  cy|
|00000150| 3d 63 79 2b 31 00 80 17 | 20 77 00 80 16 20 63 79 |=cy+1...| w... cy|
|00000160| 3d 30 20 80 18 20 31 30 | 00 20 20 78 28 63 79 2b |=0 .. 10|.  x(cy+|
|00000170| 37 32 30 29 3d 78 28 63 | 79 29 3a 79 28 63 79 2b |720)=x(c|y):y(cy+|
|00000180| 37 32 30 29 3d 79 28 63 | 79 29 00 80 17 20 63 79 |720)=y(c|y)... cy|
|00000190| 00 80 16 20 64 3d 30 20 | 80 18 20 36 20 20 20 20 |... d=0 |.. 6    |
|000001a0| 20 20 3b 73 65 74 20 73 | 63 72 65 65 6e 20 20 6f |  ;set s|creen  o|
|000001b0| 70 74 69 6f 6e 73 20 74 | 6f 20 37 00 20 20 cf 01 |ptions t|o 7.  ..|
|000001c0| 20 64 2c 32 00 20 20 d0 | 03 20 64 2c 64 00 20 20 | d,2.  .|. d,d.  |
|000001d0| ce 05 20 30 2c 30 2c 30 | 2c 30 00 20 20 ce 05 20 |.. 0,0,0|,0.  .. |
|000001e0| 31 2c 31 30 2c 31 35 2c | 39 00 20 20 ce 05 20 32 |1,10,15,|9.  .. 2|
|000001f0| 2c 30 2c 31 30 2c 30 00 | 20 20 ce 05 20 33 2c 30 |,0,10,0.|  .. 3,0|
|00000200| 2c 31 32 2c 30 00 20 20 | b2 05 00 80 17 20 64 00 |,12,0.  |..... d.|
|00000210| 80 06 20 6d 61 6b 65 73 | 68 61 70 65 00 73 63 3d |.. makes|hape.sc=|
|00000220| 30 3a 72 3d 30 00 80 bb | 00 20 20 80 16 20 64 65 |0:r=0...|.  .. de|
|00000230| 68 3d 30 20 80 18 20 33 | 36 30 20 80 19 20 37 00 |h=0 .. 3|60 .. 7.|
|00000240| 20 20 20 20 80 16 20 73 | 75 70 3d 30 20 80 18 20 |    .. s|up=0 .. |
|00000250| 36 00 20 20 20 20 20 20 | cf 07 20 73 63 00 20 20 |6.      |.. sc.  |
|00000260| 20 20 20 20 80 2c 20 d0 | 01 20 73 63 00 20 20 20 |    ., .|. sc.   |
|00000270| 20 20 20 73 6e 3d 64 65 | 68 2b 72 2b 73 75 70 00 |   sn=de|h+r+sup.|
|00000280| 20 20 20 20 20 20 63 73 | 3d 64 65 68 2b 73 75 70 |      cs|=deh+sup|
|00000290| 00 20 20 20 20 20 20 64 | 78 3d 78 28 73 6e 29 2b |.      d|x=x(sn)+|
|000002a0| 23 78 6f 66 66 00 20 20 | 20 20 20 20 64 79 3d 79 |#xoff.  |    dy=y|
|000002b0| 28 63 73 29 2b 23 79 6f | 66 66 00 20 20 20 20 20 |(cs)+#yo|ff.     |
|000002c0| 20 cb 01 20 30 2c 64 78 | 2c 64 79 00 20 20 20 20 | .. 0,dx|,dy.    |
|000002d0| 20 20 73 63 3d 73 63 2b | 31 00 20 20 20 20 20 20 |  sc=sc+|1.      |
|000002e0| 80 0b 20 df 04 28 30 29 | 3c 3e 30 20 80 21 20 80 |.. ..(0)|<>0 .! .|
|000002f0| 02 00 20 20 20 20 80 17 | 20 73 75 70 00 20 20 20 |..    ..| sup.   |
|00000300| 20 73 63 3d 30 00 20 20 | 80 17 20 64 65 68 00 20 | sc=0.  |.. deh. |
|00000310| 20 72 3d bc 06 28 72 2b | 38 2c 30 2c 33 36 30 29 | r=..(r+|8,0,360)|
|00000320| 00 80 c7 00 00 6d 61 6b | 65 73 68 61 70 65 3a 00 |.....mak|eshape:.|
|00000330| bb 82 20 31 34 2c 31 34 | 2c 38 2c 33 00 bb 81 20 |.. 14,14|,8,3... |
|00000340| 31 34 2c 31 34 2c 38 2c | 32 00 b2 03 20 31 36 2c |14,14,8,|2... 16,|
|00000350| 31 32 2c 31 00 bb 81 20 | 31 34 2c 31 34 2c 37 2c |12,1... |14,14,7,|
|00000360| 32 00 bb 81 20 31 35 2c | 31 34 2c 37 2c 32 00 bb |2... 15,|14,7,2..|
|00000370| 81 20 31 35 2c 31 34 2c | 36 2c 33 00 cd 08 20 30 |. 15,14,|6,3... 0|
|00000380| 2c 35 2c 35 2c 32 33 2c | 32 33 00 cd 0d 20 30 00 |,5,5,23,|23... 0.|
|00000390| b2 05 00 80 07 00 00 00 | 00                      |........|.       |
+--------+-------------------------+-------------------------+--------+--------+