/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_exa.dms / in.adf / andrewsdemos / scratch.bb

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 77 6f 72 6b 20 69 | 6e 20 70 72 6f 67 72 65 |; work i|n progre|
|00000010| 73 73 2e 2e 2e 00 3b 20 | 20 20 6d 65 74 61 62 61 |ss....; |  metaba|
|00000020| 6c 6c 73 20 74 79 70 65 | 20 74 68 69 6e 67 2e 2e |lls type| thing..|
|00000030| 00 3b 20 20 6d 6f 76 65 | 20 6d 6f 75 73 65 20 6c |.;  move| mouse l|
|00000040| 65 66 74 2f 72 69 67 68 | 74 00 3b 20 6e 75 6d 62 |eft/righ|t.; numb|
|00000050| 65 72 20 69 6e 20 74 6f | 70 20 6c 65 66 74 20 69 |er in to|p left i|
|00000060| 73 20 66 72 61 6d 65 20 | 72 61 74 65 2e 2e 00 3b |s frame |rate...;|
|00000070| 20 20 20 49 20 47 65 74 | 20 22 31 22 20 77 69 74 |   I Get| "1" wit|
|00000080| 68 20 6f 6e 65 20 62 61 | 6c 6c 2c 20 41 4e 44 20 |h one ba|ll, AND |
|00000090| 22 32 22 20 77 68 65 6e | 20 74 68 65 79 27 72 65 |"2" when| they're|
|000000a0| 20 73 70 6c 69 74 2e 2e | 00 3b 00 d0 01 20 30 2c | split..|.;... 0,|
|000000b0| 33 32 30 2c 32 35 36 2c | 31 00 d0 01 20 31 2c 33 |320,256,|1... 1,3|
|000000c0| 32 30 2c 32 35 36 2c 31 | 00 c7 82 20 30 2c 34 34 |20,256,1|... 0,44|
|000000d0| 2c 32 35 36 2c 31 2c 30 | 2c 32 2c 30 00 00 ce 0a |,256,1,0|,2,0....|
|000000e0| 20 30 2c 30 2c 31 30 2c | 31 30 2c 31 30 00 ce 0a | 0,0,10,|10,10...|
|000000f0| 20 30 2c 31 2c 30 2c 30 | 2c 30 00 00 80 34 00 c7 | 0,1,0,0|,0...4..|
|00000100| 83 20 30 00 c7 86 20 30 | 2c 30 00 00 6d 61 73 31 |. 0... 0|,0..mas1|
|00000110| 3d 30 2e 33 3b 31 35 00 | 6d 61 73 32 3d 30 2e 31 |=0.3;15.|mas2=0.1|
|00000120| 35 00 70 70 32 3d 2d 30 | 2e 37 35 00 00 3b 6d 6f |5.pp2=-0|.75..;mo|
|00000130| 75 73 65 20 6f 6e 00 80 | 30 20 35 00 20 20 66 72 |use on..|0 5.  fr|
|00000140| 2e 77 2b 31 00 20 20 73 | 70 64 3d 30 2e 30 30 33 |.w+1.  s|pd=0.003|
|00000150| 00 20 20 80 0b 20 70 70 | 32 3e 2d 30 2e 31 20 80 |.  .. pp|2>-0.1 .|
|00000160| 21 20 73 70 64 3d 30 00 | 20 20 70 70 32 2b 73 70 |! spd=0.|  pp2+sp|
|00000170| 64 00 80 02 20 80 30 00 | 00 c7 03 20 31 00 00 b6 |d... .0.|... 1...|
|00000180| 01 20 80 c5 00 80 bb 00 | 3b 20 20 4d 4f 56 45 20 |. ......|;  MOVE |
|00000190| 23 30 2c 24 64 66 66 31 | 38 30 00 20 20 c7 02 20 |#0,$dff1|80.  .. |
|000001a0| 64 62 00 20 20 c7 04 20 | 33 2c 33 3a dd 81 20 66 |db.  .. |3,3:.. f|
|000001b0| 72 3a 66 72 3d 30 00 20 | 20 80 37 3a c7 84 20 30 |r:fr=0. | .7:.. 0|
|000001c0| 2c 64 62 3a 64 62 3d 31 | 2d 64 62 3a 80 2c 20 d0 |,db:db=1|-db:., .|
|000001d0| 01 20 64 62 3a b2 05 00 | 00 3b 20 20 6d 61 73 32 |. db:...|.;  mas2|
|000001e0| 3d 4d 6f 75 73 65 59 2a | 30 2e 30 31 2b 30 2e 30 |=MouseY*|0.01+0.0|
|000001f0| 31 00 20 20 70 6f 73 32 | 3d b6 04 2f 32 30 30 3b |1.  pos2|=../200;|
|00000200| 35 31 32 00 00 3b 20 20 | 70 6f 73 32 3d 70 70 32 |512..;  |pos2=pp2|
|00000210| 00 00 20 20 70 6f 73 31 | 3d 30 3b 2d 70 6f 73 32 |..  pos1|=0;-pos2|
|00000220| 00 20 20 80 16 20 73 79 | 3d 30 20 80 18 20 32 35 |.  .. sy|=0 .. 25|
|00000230| 35 00 20 20 20 20 78 3d | 28 73 79 2d 31 32 37 2e |5.    x=|(sy-127.|
|00000240| 35 29 20 80 45 20 36 00 | 00 20 20 20 20 20 3b 67 |5) .E 6.|.     ;g|
|00000250| 6f 73 75 62 20 63 61 6c | 63 69 74 00 00 20 20 20 |osub cal|cit..   |
|00000260| 20 78 70 31 3d 28 78 2d | 70 6f 73 31 29 2a 28 78 | xp1=(x-|pos1)*(x|
|00000270| 2d 70 6f 73 31 29 00 20 | 20 20 20 78 70 32 3d 28 |-pos1). |   xp2=(|
|00000280| 78 2d 70 6f 73 32 29 2a | 28 78 2d 70 6f 73 32 29 |x-pos2)*|(x-pos2)|
|00000290| 00 20 20 20 20 70 74 63 | 3d 28 78 70 31 2d 6d 61 |.    ptc|=(xp1-ma|
|000002a0| 73 31 29 2a 78 70 32 2d | 6d 61 73 32 2a 78 70 31 |s1)*xp2-|mas2*xp1|
|000002b0| 00 00 3b 20 20 20 20 70 | 74 63 3d 78 2a 78 20 20 |..;    p|tc=x*x  |
|000002c0| 20 20 20 20 20 2a 78 2a | 78 2d 32 70 6f 73 32 2a |     *x*|x-2pos2*|
|000002d0| 78 2a 78 2a 78 2b 70 6f | 73 32 2a 70 6f 73 32 2a |x*x*x+po|s2*pos2*|
|000002e0| 78 2a 78 00 3b 20 20 20 | 20 20 20 20 20 2d 20 20 |x*x.;   |     -  |
|000002f0| 20 28 32 2a 70 6f 73 31 | 2a 78 2a 20 78 2a 78 2d | (2*pos1|*x* x*x-|
|00000300| 32 2a 70 6f 73 31 2a 78 | 2a 32 70 6f 73 32 2a 78 |2*pos1*x|*2pos2*x|
|00000310| 2b 32 2a 70 6f 73 31 2a | 78 2a 70 6f 73 32 2a 70 |+2*pos1*|x*pos2*p|
|00000320| 6f 73 32 29 00 3b 20 20 | 20 20 20 20 20 20 2b 70 |os2).;  |      +p|
|00000330| 6f 73 31 2a 70 6f 73 31 | 20 2a 78 2a 78 2d 70 6f |os1*pos1| *x*x-po|
|00000340| 73 31 2a 70 6f 73 31 20 | 2a 32 70 6f 73 32 2a 78 |s1*pos1 |*2pos2*x|
|00000350| 2b 70 6f 73 31 2a 70 6f | 73 31 20 2a 70 6f 73 32 |+pos1*po|s1 *pos2|
|00000360| 2a 70 6f 73 32 29 00 3b | 20 20 20 20 20 20 20 20 |*pos2).;|        |
|00000370| 20 2d 6d 61 73 31 2a 78 | 2a 78 20 2b 32 2a 6d 61 | -mas1*x|*x +2*ma|
|00000380| 73 31 2a 70 6f 73 32 2a | 78 2d 70 6f 73 32 2a 70 |s1*pos2*|x-pos2*p|
|00000390| 6f 73 32 2a 6d 61 73 31 | 00 3b 20 20 20 20 20 20 |os2*mas1|.;      |
|000003a0| 20 20 20 2d 6d 61 73 32 | 2a 78 2a 78 20 2b 32 2a |   -mas2|*x*x +2*|
|000003b0| 6d 61 73 32 2a 70 6f 73 | 31 2a 78 2d 70 6f 73 31 |mas2*pos|1*x-pos1|
|000003c0| 2a 70 6f 73 31 2a 6d 61 | 73 32 00 00 20 20 20 20 |*pos1*ma|s2..    |
|000003d0| 80 0b 20 70 74 63 3c 30 | 20 3b 64 65 73 63 72 3e |.. ptc<0| ;descr>|
|000003e0| 28 70 74 62 2a 70 74 62 | 29 00 20 20 20 20 20 20 |(ptb*ptb|).      |
|000003f0| 70 74 62 3d 78 70 32 2b | 78 70 31 20 2d 6d 61 73 |ptb=xp2+|xp1 -mas|
|00000400| 31 2d 6d 61 73 32 00 00 | 20 20 20 20 20 20 64 65 |1-mas2..|      de|
|00000410| 73 63 72 3d 70 74 62 2a | 70 74 62 2d 70 74 63 20 |scr=ptb*|ptb-ptc |
|00000420| 80 44 20 32 00 00 20 20 | 20 20 20 20 79 3d e0 0c |.D 2..  |    y=..|
|00000430| 28 28 e0 0c 28 64 65 73 | 63 72 29 2d 70 74 62 20 |((..(des|cr)-ptb |
|00000440| 29 2a 30 2e 35 29 00 20 | 20 20 20 20 20 73 78 3d |)*0.5). |     sx=|
|00000450| 79 20 80 44 20 36 00 3b | 20 20 20 20 20 20 50 6c |y .D 6.;|      Pl|
|00000460| 6f 74 20 73 78 2c 31 32 | 38 2d 20 73 79 2c 31 00 |ot sx,12|8- sy,1.|
|00000470| 3b 20 20 20 20 20 20 50 | 6c 6f 74 20 73 78 2c 31 |;      P|lot sx,1|
|00000480| 32 38 2b 20 73 79 2c 31 | 00 20 20 20 20 20 20 bb |28+ sy,1|.      .|
|00000490| 85 20 31 36 30 2d 73 78 | 2c 73 79 2c 31 36 30 2b |. 160-sx|,sy,160+|
|000004a0| 73 78 2c 73 79 2c 31 00 | 3b 20 20 20 20 45 6c 73 |sx,sy,1.|;    Els|
|000004b0| 65 00 3b 20 20 20 20 20 | 20 79 3d 30 00 20 20 20 |e.;     | y=0.   |
|000004c0| 20 80 c0 00 00 3b 20 20 | 20 20 49 66 20 79 3e 30 | ....;  |  If y>0|
|000004d0| 00 3b 20 20 20 20 20 20 | 73 79 3d 79 20 41 53 4c |.;      |sy=y ASL|
|000004e0| 20 36 00 3b 20 20 20 20 | 20 20 50 6c 6f 74 20 73 | 6.;    |  Plot s|
|000004f0| 78 2c 31 32 38 2d 20 73 | 79 2c 31 00 3b 20 20 20 |x,128- s|y,1.;   |
|00000500| 20 20 20 50 6c 6f 74 20 | 73 78 2c 31 32 38 2b 20 |   Plot |sx,128+ |
|00000510| 73 79 2c 31 00 3b 20 20 | 20 20 20 20 4c 69 6e 65 |sy,1.;  |    Line|
|00000520| 20 73 78 2c 31 32 38 2b | 20 73 79 2c 73 78 2c 31 | sx,128+| sy,sx,1|
|00000530| 32 38 2d 73 79 2c 31 00 | 3b 20 20 20 20 20 20 4c |28-sy,1.|;      L|
|00000540| 69 6e 65 20 73 78 2c 31 | 32 38 2d 73 79 2c 31 00 |ine sx,1|28-sy,1.|
|00000550| 3b 20 20 20 20 45 6e 64 | 49 66 00 00 20 20 80 17 |;    End|If..  ..|
|00000560| 00 00 80 bc 20 df 04 28 | 30 29 3c 3e 30 00 80 02 |.... ..(|0)<>0...|
|00000570| 00 00 00 63 61 6c 63 69 | 74 00 20 20 20 20 3b 6d |...calci|t.    ;m|
|00000580| 61 73 31 2a 28 78 2d 70 | 6f 73 32 29 2a 28 78 2d |as1*(x-p|os2)*(x-|
|00000590| 70 6f 73 32 29 20 2b 6d | 61 73 32 2a 78 2a 78 20 |pos2) +m|as2*x*x |
|000005a0| 2d 78 2a 78 2a 28 78 2d | 70 6f 73 32 29 2a 28 78 |-x*x*(x-|pos2)*(x|
|000005b0| 2d 70 6f 73 32 29 00 20 | 20 20 20 3b 20 20 20 20 |-pos2). |   ;    |
|000005c0| 20 3d 20 20 20 20 20 2b | 28 20 28 78 2d 70 6f 73 | =     +|( (x-pos|
|000005d0| 32 29 5e 32 2b 78 2a 78 | 20 20 2d 6d 61 73 31 2d |2)^2+x*x|  -mas1-|
|000005e0| 6d 61 73 32 29 2a 79 2a | 79 20 2b 79 2a 79 2a 79 |mas2)*y*|y +y*y*y|
|000005f0| 2a 79 00 00 20 20 20 20 | 70 74 63 3d 28 78 2d 70 |*y..    |ptc=(x-p|
|00000600| 6f 73 31 29 2a 28 78 2d | 70 6f 73 31 29 2a 28 78 |os1)*(x-|pos1)*(x|
|00000610| 2d 70 6f 73 32 29 2a 28 | 78 2d 70 6f 73 32 29 00 |-pos2)*(|x-pos2).|
|00000620| 20 20 20 20 70 74 63 2d | 6d 61 73 31 2a 28 78 2d |    ptc-|mas1*(x-|
|00000630| 70 6f 73 32 29 2a 28 78 | 2d 70 6f 73 32 29 00 20 |pos2)*(x|-pos2). |
|00000640| 20 20 20 70 74 63 2d 6d | 61 73 32 2a 28 78 2d 70 |   ptc-m|as2*(x-p|
|00000650| 6f 73 31 29 2a 28 78 2d | 70 6f 73 31 29 00 20 20 |os1)*(x-|pos1).  |
|00000660| 20 20 70 74 62 3d 28 20 | 28 78 2d 70 6f 73 32 29 |  ptb=( |(x-pos2)|
|00000670| 2a 28 78 2d 70 6f 73 32 | 29 2b 28 78 2d 70 6f 73 |*(x-pos2|)+(x-pos|
|00000680| 31 29 2a 28 78 2d 70 6f | 73 31 29 20 2d 6d 61 73 |1)*(x-po|s1) -mas|
|00000690| 31 2d 6d 61 73 32 29 00 | 20 20 20 20 70 74 61 3d |1-mas2).|    pta=|
|000006a0| 31 00 00 20 20 20 20 64 | 65 73 63 72 3d 70 74 62 |1..    d|escr=ptb|
|000006b0| 2a 70 74 62 2d 34 2a 70 | 74 61 2a 70 74 63 00 20 |*ptb-4*p|ta*ptc. |
|000006c0| 20 20 20 80 0b 20 64 65 | 73 63 72 3e 30 00 20 20 |   .. de|scr>0.  |
|000006d0| 20 20 20 20 73 63 79 3d | 28 e0 0c 28 64 65 73 63 |    scy=|(..(desc|
|000006e0| 72 29 2d 70 74 62 20 29 | 2f 32 2f 70 74 61 00 20 |r)-ptb )|/2/pta. |
|000006f0| 20 20 20 20 20 80 0b 20 | 73 63 79 3e 30 20 80 21 |     .. |scy>0 .!|
|00000700| 20 79 3d e0 0c 28 73 63 | 79 29 00 20 20 20 20 80 | y=..(sc|y).    .|
|00000710| c0 00 80 07 00          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+