/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_exa.dms / in.adf / 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 4f 72 20 6b 65 79 | to exit|.;Or key|
|00000110| 62 6f 61 72 64 20 6c 65 | 66 74 72 69 67 68 74 20 |board le|ftright |
|00000120| 61 72 72 6f 77 73 20 61 | 6e 64 20 45 73 63 20 74 |arrows a|nd Esc t|
|00000130| 6f 20 65 78 69 74 00 3b | 00 3b 54 55 52 4e 20 4f |o exit.;|.;TURN O|
|00000140| 46 46 20 52 55 4e 54 49 | 4d 45 20 45 52 52 4f 52 |FF RUNTI|ME ERROR|
|00000150| 53 20 4f 4e 43 45 20 59 | 4f 55 20 47 45 54 20 49 |S ONCE Y|OU GET I|
|00000160| 54 20 52 55 4e 4e 49 4e | 47 21 00 00 d0 01 20 30 |T RUNNIN|G!.... 0|
|00000170| 2c 32 35 36 2c 36 34 2c | 31 00 d0 02 20 30 2c 22 |,256,64,|1... 0,"|
|00000180| 64 61 74 61 2f 6d 61 70 | 22 00 00 80 04 20 6d 28 |data/map|".... m(|
|00000190| 32 35 35 2c 36 33 29 00 | 00 80 16 20 78 3d 30 20 |255,63).|... x=0 |
|000001a0| 80 18 20 32 35 35 00 80 | 16 20 79 3d 30 20 80 18 |.. 255..|. y=0 ..|
|000001b0| 20 36 33 00 6d 28 78 2c | 79 29 3d b2 04 28 78 2c | 63.m(x,|y)=..(x,|
|000001c0| 79 29 00 80 17 3a 80 17 | 00 00 cd 01 20 30 2c 22 |y)...:..|.... 0,"|
|000001d0| 64 61 74 61 2f 62 6c 6f | 63 6b 22 2c 30 00 00 80 |data/blo|ck",0...|
|000001e0| 34 00 00 77 3d 37 30 34 | 00 00 80 08 20 62 7b 73 |4..w=704|.... b{s|
|000001f0| 2c 78 2c 79 7d 00 80 0b | 20 73 20 80 21 20 cb 02 |,x,y}...| s .! ..|
|00000200| 20 cb 03 20 80 22 20 cb | 02 20 cb 04 00 cb 01 20 | .. ." .|. ..... |
|00000210| 30 2c 78 2c 79 00 80 02 | 20 80 08 00 00 80 08 20 |0,x,y...| ...... |
|00000220| 63 7b 73 2c 78 2c 79 7d | 00 80 0b 20 73 20 80 21 |c{s,x,y}|... s .!|
|00000230| 20 cb 02 20 cb 03 3a cb | 01 20 30 2c 78 2c 79 00 | .. ..:.|. 0,x,y.|
|00000240| 80 02 20 80 08 00 00 d0 | 01 20 30 2c 77 2c 31 39 |.. .....|. 0,w,19|
|00000250| 32 2c 33 00 3b 42 6f 78 | 66 20 31 36 2c 30 2c 33 |2,3.;Box|f 16,0,3|
|00000260| 35 31 2c 31 39 31 2c 32 | 00 c7 02 20 30 00 00 80 |51,191,2|... 0...|
|00000270| 16 20 79 3d 30 20 80 18 | 20 31 31 00 3b 00 80 16 |. y=0 ..| 11.;...|
|00000280| 20 78 3d 31 20 80 18 20 | 32 31 00 63 7b 6d 28 78 | x=1 .. |21.c{m(x|
|00000290| 2c 79 29 2c 78 20 80 7c | 20 34 2c 79 20 80 7c 20 |,y),x .|| 4,y .| |
|000002a0| 34 7d 00 63 7b 6d 28 78 | 2c 79 29 2c 33 35 32 2b |4}.c{m(x|,y),352+|
|000002b0| 78 20 80 7c 20 34 2c 79 | 20 80 7c 20 34 7d 00 80 |x .| 4,y| .| 4}..|
|000002c0| 17 00 3b 00 80 17 00 00 | d0 05 20 30 2c 31 00 00 |..;.....|.. 0,1..|
|000002d0| c7 82 20 30 2c 34 34 2c | 31 39 32 2c 24 31 33 2c |.. 0,44,|192,$13,|
|000002e0| 38 2c 38 2c 30 00 c7 86 | 20 30 2c 30 00 c7 83 20 |8,8,0...| 0,0... |
|000002f0| 30 00 00 73 78 3d 30 20 | 3b 73 63 72 6f 6c 6c 20 |0..sx=0 |;scroll |
|00000300| 78 00 6d 78 3d 30 20 3b | 6d 61 70 20 78 00 3b 00 |x.mx=0 ;|map x.;.|
|00000310| 73 79 3d 30 20 20 3b 73 | 63 72 6f 6c 6c 20 79 00 |sy=0  ;s|croll y.|
|00000320| 6d 79 3d 30 20 20 3b 6d | 61 70 20 79 00 3b 00 6f |my=0  ;m|ap y.;.o|
|00000330| 78 73 3d 30 3a 78 73 3d | 30 00 00 61 3d 2e 32 35 |xs=0:xs=|0..a=.25|
|00000340| 00 00 80 0c 20 df 04 28 | 31 29 3d 30 20 80 42 20 |.... ..(|1)=0 .B |
|00000350| b1 02 28 24 34 35 29 3d | 30 00 20 20 3b 00 20 20 |..($45)=|0.  ;.  |
|00000360| 80 37 00 20 20 3b 00 20 | 20 c7 84 20 30 2c 64 62 |.7.  ;. | .. 0,db|
|00000370| 2c 73 78 2c 73 79 3a 64 | 62 3d 31 2d 64 62 3a 80 |,sx,sy:d|b=1-db:.|
|00000380| 2c 20 d0 01 20 64 62 00 | 20 20 3b 00 20 20 6f 78 |, .. db.|  ;.  ox|
|00000390| 32 3d 78 32 00 20 20 6f | 79 32 3d 79 32 00 20 20 |2=x2.  o|y2=y2.  |
|000003a0| 6f 78 73 3d 78 73 00 20 | 20 3b 00 20 20 78 32 3d |oxs=xs. | ;.  x2=|
|000003b0| bc 02 28 6d 78 20 80 7d | 20 34 29 00 20 20 79 32 |..(mx .}| 4).  y2|
|000003c0| 3d bc 02 28 6d 79 20 80 | 7d 20 34 29 00 20 20 3b |=..(my .|} 4).  ;|
|000003d0| 00 20 20 80 0b 20 df 01 | 28 31 29 3d 2d 31 20 80 |.  .. ..|(1)=-1 .|
|000003e0| 8a 20 b1 02 28 24 34 66 | 29 20 80 21 20 78 73 2d |. ..($4f|) .! xs-|
|000003f0| 61 3a 80 0b 20 78 73 3c | 2d 38 20 80 21 20 78 73 |a:.. xs<|-8 .! xs|
|00000400| 2b 61 00 20 20 80 0b 20 | df 01 28 31 29 3d 31 20 |+a.  .. |..(1)=1 |
|00000410| 80 8a 20 b1 02 28 24 34 | 65 29 20 80 21 20 78 73 |.. ..($4|e) .! xs|
|00000420| 2b 61 3a 80 0b 20 78 73 | 3e 38 20 80 21 20 78 73 |+a:.. xs|>8 .! xs|
|00000430| 2d 61 00 20 20 80 0b 20 | df 02 28 31 29 20 80 8a |-a.  .. |..(1) ..|
|00000440| 20 b1 02 28 24 34 30 29 | 20 80 21 20 78 73 3d 30 | ..($40)| .! xs=0|
|00000450| 00 20 20 3b 00 20 20 3b | 00 20 20 80 0b 20 78 73 |.  ;.  ;|.  .. xs|
|00000460| 3e 30 00 20 20 20 20 73 | 78 32 3d 73 78 20 80 42 |>0.    s|x2=sx .B|
|00000470| 20 24 66 66 66 30 00 20 | 20 20 20 80 16 20 79 3d | $fff0. |   .. y=|
|00000480| 30 20 80 18 20 31 31 00 | 20 20 20 20 62 7b 6d 28 |0 .. 11.|    b{m(|
|00000490| 78 32 2b 32 31 20 80 42 | 20 32 35 35 2c 79 32 2b |x2+21 .B| 255,y2+|
|000004a0| 79 20 80 42 20 36 33 29 | 2c 73 78 32 2b 33 33 36 |y .B 63)|,sx2+336|
|000004b0| 2c 79 20 80 7c 20 34 7d | 00 20 20 20 20 62 7b 6d |,y .| 4}|.    b{m|
|000004c0| 28 78 32 2b 32 31 20 80 | 42 20 32 35 35 2c 79 32 |(x2+21 .|B 255,y2|
|000004d0| 2b 79 20 80 42 20 36 33 | 29 2c 73 78 32 2d 31 36 |+y .B 63|),sx2-16|
|000004e0| 2c 79 20 80 7c 20 34 7d | 00 20 20 20 20 80 17 00 |,y .| 4}|.    ...|
|000004f0| 20 20 80 c0 00 20 20 80 | 0b 20 78 73 3c 30 00 20 |  ...  .|. xs<0. |
|00000500| 20 20 20 73 78 32 3d 73 | 78 20 80 42 20 24 66 66 |   sx2=s|x .B $ff|
|00000510| 66 30 00 20 20 20 20 80 | 16 20 79 3d 30 20 80 18 |f0.    .|. y=0 ..|
|00000520| 20 31 31 00 20 20 20 20 | 62 7b 6d 28 78 32 2d 31 | 11.    |b{m(x2-1|
|00000530| 20 80 42 20 32 35 35 2c | 79 32 2b 79 20 80 42 20 | .B 255,|y2+y .B |
|00000540| 36 33 29 2c 73 78 32 2d | 31 36 2c 79 20 80 7c 20 |63),sx2-|16,y .| |
|00000550| 34 7d 00 20 20 20 20 62 | 7b 6d 28 78 32 2d 31 20 |4}.    b|{m(x2-1 |
|00000560| 80 42 20 32 35 35 2c 79 | 32 2b 79 20 80 42 20 36 |.B 255,y|2+y .B 6|
|00000570| 33 29 2c 73 78 32 2b 33 | 33 36 2c 79 20 80 7c 20 |3),sx2+3|36,y .| |
|00000580| 34 7d 00 20 20 20 20 80 | 17 00 20 20 80 c0 00 20 |4}.    .|..  ... |
|00000590| 20 3b 00 20 20 6d 78 3d | bc 06 28 6d 78 2b 78 73 | ;.  mx=|..(mx+xs|
|000005a0| 2c 30 2c 34 30 39 36 29 | 00 20 20 73 78 3d bc 06 |,0,4096)|.  sx=..|
|000005b0| 28 73 78 2b 78 73 2c 31 | 36 2c 33 36 38 29 00 20 |(sx+xs,1|6,368). |
|000005c0| 20 3b 00 80 c1 00 3b 00 | 80 02 00                | ;....;.|...     |
+--------+-------------------------+-------------------------+--------+--------+