/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / BLITZBASIC2V1,6AGA2.DMS / in.adf / examples / blitzmode / dbscrolling.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 54 68 69 73 20 | 65 78 61 6d 70 6c 65 20 |;.;This |example |
|00000010| 64 65 6d 6f 6e 73 74 61 | 72 74 65 73 20 61 20 74 |demonsta|rtes a t|
|00000020| 65 63 68 6e 69 71 75 65 | 20 62 79 20 77 68 69 63 |echnique| by whic|
|00000030| 68 20 6d 61 70 2f 62 6c | 6f 63 6b 20 62 61 73 65 |h map/bl|ock base|
|00000040| 64 00 3b 68 6f 72 69 7a | 6f 6e 74 61 6c 20 73 63 |d.;horiz|ontal sc|
|00000050| 72 6f 6c 6c 69 6e 67 20 | 6d 61 79 20 62 65 20 61 |rolling |may be a|
|00000060| 63 68 69 65 76 65 64 2e | 20 54 68 69 73 20 69 73 |chieved.| This is|
|00000070| 20 69 64 65 6e 74 69 63 | 61 6c 00 3b 74 6f 20 74 | identic|al.;to t|
|00000080| 68 65 20 27 73 63 72 6f | 6c 6c 69 6e 67 2e 62 62 |he 'scro|lling.bb|
|00000090| 32 27 20 64 65 6d 6f 2c | 20 6f 6e 6c 79 20 69 74 |2' demo,| only it|
|000000a0| 20 74 61 6b 65 73 20 69 | 6e 74 6f 20 61 63 63 6f | takes i|nto acco|
|000000b0| 75 6e 74 00 3b 64 6f 75 | 62 6c 65 20 62 75 66 66 |unt.;dou|ble buff|
|000000c0| 65 72 69 6e 67 2e 00 3b | 00 3b 55 73 65 20 74 68 |ering..;|.;Use th|
|000000d0| 65 20 6a 6f 79 73 74 69 | 63 6b 20 74 6f 20 63 6f |e joysti|ck to co|
|000000e0| 6e 74 72 6f 6c 20 73 63 | 72 6f 6c 6c 69 6e 67 2c |ntrol sc|rolling,|
|000000f0| 20 6a 6f 79 73 74 69 63 | 6b 20 62 75 74 74 6f 6e | joystic|k button|
|00000100| 20 74 6f 20 65 78 69 74 | 00 3b 00 00 d0 01 20 30 | to exit|.;.... 0|
|00000110| 2c 32 35 36 2c 36 34 2c | 31 00 d0 02 20 30 2c 22 |,256,64,|1... 0,"|
|00000120| 64 61 74 61 2f 6d 61 70 | 22 00 00 80 04 20 6d 28 |data/map|".... m(|
|00000130| 32 35 35 2c 36 33 29 00 | 00 80 16 20 78 3d 30 20 |255,63).|... x=0 |
|00000140| 80 18 20 32 35 35 00 80 | 16 20 79 3d 30 20 80 18 |.. 255..|. y=0 ..|
|00000150| 20 36 33 00 6d 28 78 2c | 79 29 3d b2 04 28 78 2c | 63.m(x,|y)=..(x,|
|00000160| 79 29 00 80 17 3a 80 17 | 00 00 cd 01 20 30 2c 22 |y)...:..|.... 0,"|
|00000170| 64 61 74 61 2f 62 6c 6f | 63 6b 22 2c 30 00 00 80 |data/blo|ck",0...|
|00000180| 34 00 00 77 3d 37 30 34 | 00 00 80 08 20 62 7b 73 |4..w=704|.... b{s|
|00000190| 2c 78 2c 79 7d 00 80 0b | 20 73 20 80 21 20 cb 02 |,x,y}...| s .! ..|
|000001a0| 20 cb 03 20 80 22 20 cb | 02 20 cb 04 00 cb 01 20 | .. ." .|. ..... |
|000001b0| 30 2c 78 2c 79 00 80 02 | 20 80 08 00 00 80 08 20 |0,x,y...| ...... |
|000001c0| 63 7b 73 2c 78 2c 79 7d | 00 80 0b 20 73 20 80 21 |c{s,x,y}|... s .!|
|000001d0| 20 cb 02 20 cb 03 3a cb | 01 20 30 2c 78 2c 79 00 | .. ..:.|. 0,x,y.|
|000001e0| 80 02 20 80 08 00 00 d0 | 01 20 30 2c 77 2c 31 39 |.. .....|. 0,w,19|
|000001f0| 32 2c 33 00 3b 42 6f 78 | 66 20 31 36 2c 30 2c 33 |2,3.;Box|f 16,0,3|
|00000200| 35 31 2c 31 39 31 2c 32 | 00 c7 02 20 30 00 00 80 |51,191,2|... 0...|
|00000210| 16 20 79 3d 30 20 80 18 | 20 31 31 00 3b 00 80 16 |. y=0 ..| 11.;...|
|00000220| 20 78 3d 31 20 80 18 20 | 32 31 00 63 7b 6d 28 78 | x=1 .. |21.c{m(x|
|00000230| 2c 79 29 2c 78 20 80 7c | 20 34 2c 79 20 80 7c 20 |,y),x .|| 4,y .| |
|00000240| 34 7d 00 63 7b 6d 28 78 | 2c 79 29 2c 33 35 32 2b |4}.c{m(x|,y),352+|
|00000250| 78 20 80 7c 20 34 2c 79 | 20 80 7c 20 34 7d 00 80 |x .| 4,y| .| 4}..|
|00000260| 17 00 3b 00 80 17 00 00 | d0 05 20 30 2c 31 00 00 |..;.....|.. 0,1..|
|00000270| c8 01 20 30 2c 34 34 2c | 33 32 30 2c 31 39 32 2c |.. 0,44,|320,192,|
|00000280| 24 66 66 66 38 2c 33 2c | 38 2c 33 32 2c 77 2c 77 |$fff8,3,|8,32,w,w|
|00000290| 00 00 80 2c 20 ce 09 20 | 30 00 00 73 78 3d 30 20 |..., .. |0..sx=0 |
|000002a0| 3b 73 63 72 6f 6c 6c 20 | 78 00 6d 78 3d 30 20 3b |;scroll |x.mx=0 ;|
|000002b0| 6d 61 70 20 78 00 3b 00 | 73 79 3d 30 20 20 3b 73 |map x.;.|sy=0  ;s|
|000002c0| 63 72 6f 6c 6c 20 79 00 | 6d 79 3d 30 20 20 3b 6d |croll y.|my=0  ;m|
|000002d0| 61 70 20 79 00 3b 00 6f | 78 73 3d 30 3a 78 73 3d |ap y.;.o|xs=0:xs=|
|000002e0| 30 00 00 61 3d 2e 32 35 | 00 00 80 0c 20 df 04 28 |0..a=.25|.... ..(|
|000002f0| 31 29 3d 30 00 3b 00 80 | 37 00 3b 00 c8 04 20 64 |1)=0.;..|7.;... d|
|00000300| 62 2c 73 78 2c 73 79 3a | 64 62 3d 31 2d 64 62 3a |b,sx,sy:|db=1-db:|
|00000310| 80 2c 20 d0 01 20 64 62 | 00 3b 00 6f 78 32 3d 78 |., .. db|.;.ox2=x|
|00000320| 32 00 6f 79 32 3d 79 32 | 00 6f 78 73 3d 78 73 00 |2.oy2=y2|.oxs=xs.|
|00000330| 3b 00 78 32 3d bc 02 28 | 6d 78 20 80 7d 20 34 29 |;.x2=..(|mx .} 4)|
|00000340| 00 79 32 3d bc 02 28 6d | 79 20 80 7d 20 34 29 00 |.y2=..(m|y .} 4).|
|00000350| 3b 00 80 0e 20 df 01 28 | 31 29 00 80 0f 20 2d 31 |;... ..(|1)... -1|
|00000360| 00 20 20 3b 00 20 20 78 | 73 2d 61 3a 80 0b 20 78 |.  ;.  x|s-a:.. x|
|00000370| 73 3c 2d 38 20 80 21 20 | 78 73 2b 61 00 20 20 3b |s<-8 .! |xs+a.  ;|
|00000380| 00 80 0f 20 31 00 20 20 | 3b 00 20 20 78 73 2b 61 |... 1.  |;.  xs+a|
|00000390| 3a 80 0b 20 78 73 3e 38 | 20 80 21 20 78 73 2d 61 |:.. xs>8| .! xs-a|
|000003a0| 00 20 20 3b 00 80 02 20 | 80 0e 00 80 0b 20 df 02 |.  ;... |..... ..|
|000003b0| 28 31 29 20 80 21 20 78 | 73 3d 30 00 3b 00 3b 00 |(1) .! x|s=0.;.;.|
|000003c0| 3b 49 66 20 78 32 3c 3e | 6f 78 32 20 4f 52 20 53 |;If x2<>|ox2 OR S|
|000003d0| 67 6e 28 6f 78 73 29 3c | 3e 53 67 6e 28 78 73 29 |gn(oxs)<|>Sgn(xs)|
|000003e0| 00 20 20 80 0b 20 78 73 | 3e 30 00 20 20 20 20 73 |.  .. xs|>0.    s|
|000003f0| 78 32 3d 73 78 20 80 42 | 20 24 66 66 66 30 00 20 |x2=sx .B| $fff0. |
|00000400| 20 20 20 80 16 20 79 3d | 30 20 80 18 20 31 31 00 |   .. y=|0 .. 11.|
|00000410| 20 20 20 20 62 7b 6d 28 | 78 32 2b 32 31 20 80 42 |    b{m(|x2+21 .B|
|00000420| 20 32 35 35 2c 79 32 2b | 79 20 80 42 20 36 33 29 | 255,y2+|y .B 63)|
|00000430| 2c 73 78 32 2b 33 33 36 | 2c 79 20 80 7c 20 34 7d |,sx2+336|,y .| 4}|
|00000440| 00 20 20 20 20 62 7b 6d | 28 78 32 2b 32 31 20 80 |.    b{m|(x2+21 .|
|00000450| 42 20 32 35 35 2c 79 32 | 2b 79 20 80 42 20 36 33 |B 255,y2|+y .B 63|
|00000460| 29 2c 73 78 32 2d 31 36 | 2c 79 20 80 7c 20 34 7d |),sx2-16|,y .| 4}|
|00000470| 00 20 20 20 20 80 17 00 | 20 20 80 c0 00 20 20 80 |.    ...|  ...  .|
|00000480| 0b 20 78 73 3c 30 00 20 | 20 20 20 73 78 32 3d 73 |. xs<0. |   sx2=s|
|00000490| 78 20 80 42 20 24 66 66 | 66 30 00 20 20 20 20 80 |x .B $ff|f0.    .|
|000004a0| 16 20 79 3d 30 20 80 18 | 20 31 31 00 20 20 20 20 |. y=0 ..| 11.    |
|000004b0| 62 7b 6d 28 78 32 2d 31 | 20 80 42 20 32 35 35 2c |b{m(x2-1| .B 255,|
|000004c0| 79 32 2b 79 20 80 42 20 | 36 33 29 2c 73 78 32 2d |y2+y .B |63),sx2-|
|000004d0| 31 36 2c 79 20 80 7c 20 | 34 7d 00 20 20 20 20 62 |16,y .| |4}.    b|
|000004e0| 7b 6d 28 78 32 2d 31 20 | 80 42 20 32 35 35 2c 79 |{m(x2-1 |.B 255,y|
|000004f0| 32 2b 79 20 80 42 20 36 | 33 29 2c 73 78 32 2b 33 |2+y .B 6|3),sx2+3|
|00000500| 33 36 2c 79 20 80 7c 20 | 34 7d 00 20 20 20 20 80 |36,y .| |4}.    .|
|00000510| 17 00 20 20 80 c0 00 3b | 45 6e 64 49 66 00 3b 00 |..  ...;|EndIf.;.|
|00000520| 6d 78 3d bc 06 28 6d 78 | 2b 78 73 2c 30 2c 34 30 |mx=..(mx|+xs,0,40|
|00000530| 39 36 29 00 73 78 3d bc | 06 28 73 78 2b 78 73 2c |96).sx=.|.(sx+xs,|
|00000540| 31 36 2c 33 36 38 29 00 | 3b 00 80 c1 00 00       |16,368).|;.....  |
+--------+-------------------------+-------------------------+--------+--------+