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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 41 20 44 75 61 | 6c 70 6c 61 79 66 69 65 |;.;A Dua|lplayfie|
|00000010| 6c 64 20 65 78 61 6d 70 | 6c 65 00 3b 00 00 80 34 |ld examp|le.;...4|
|00000020| 00 00 3b 73 65 74 20 75 | 70 20 66 6f 72 65 67 72 |..;set u|p foregr|
|00000030| 6f 75 6e 64 20 62 69 74 | 6d 61 70 2e 2e 2e 00 3b |ound bit|map....;|
|00000040| 00 d0 01 20 30 2c 36 34 | 30 2c 32 30 30 2c 33 00 |... 0,64|0,200,3.|
|00000050| 00 3b 64 72 61 77 20 73 | 6f 6d 65 20 72 61 6e 64 |.;draw s|ome rand|
|00000060| 6f 6d 65 20 63 69 72 63 | 6c 65 73 20 6f 6e 20 66 |ome circ|les on f|
|00000070| 6f 72 65 67 72 6f 75 6e | 64 20 62 69 74 6d 61 70 |oregroun|d bitmap|
|00000080| 00 3b 00 80 16 20 6b 3d | 31 20 80 18 20 31 30 00 |.;... k=|1 .. 10.|
|00000090| bb 82 20 bc 07 28 32 35 | 36 29 2b 33 32 2c bc 07 |.. ..(25|6)+32,..|
|000000a0| 28 32 30 30 29 2c bc 07 | 28 32 34 29 2b 38 2c bc |(200),..|(24)+8,.|
|000000b0| 07 28 37 29 2b 31 00 80 | 17 00 00 3b 74 68 69 73 |.(7)+1..|...;this|
|000000c0| 20 6c 69 6e 65 20 77 69 | 6c 6c 20 63 6f 70 79 20 | line wi|ll copy |
|000000d0| 74 68 65 20 6c 65 66 74 | 20 68 61 6c 66 20 6f 66 |the left| half of|
|000000e0| 20 74 68 65 20 66 6f 72 | 65 67 72 6f 75 6e 64 00 | the for|eground.|
|000000f0| 3b 62 69 74 6d 61 70 20 | 74 6f 20 74 68 65 20 72 |;bitmap |to the r|
|00000100| 69 67 68 74 20 68 61 6c | 66 2e 20 54 68 69 73 20 |ight hal|f. This |
|00000110| 61 6c 6c 6f 77 73 20 75 | 73 20 74 6f 20 73 63 72 |allows u|s to scr|
|00000120| 6f 6c 6c 00 3b 27 63 6f | 6e 74 69 6e 75 6f 75 73 |oll.;'co|ntinuous|
|00000130| 6c 79 27 20 74 68 72 6f | 75 67 68 20 74 68 65 20 |ly' thro|ugh the |
|00000140| 66 6f 72 65 67 72 6f 75 | 6e 64 00 3b 00 b2 01 20 |foregrou|nd.;... |
|00000150| 30 2c 30 2c 33 32 30 2c | 32 30 30 2c 33 32 30 2c |0,0,320,|200,320,|
|00000160| 30 00 00 3b 73 65 74 20 | 75 70 20 62 61 63 6b 67 |0..;set |up backg|
|00000170| 72 6f 75 6e 64 20 62 69 | 74 6d 61 70 2e 2e 2e 00 |round bi|tmap....|
|00000180| 3b 00 d0 01 20 31 2c 33 | 32 30 2c 32 30 30 2c 33 |;... 1,3|20,200,3|
|00000190| 00 00 3b 64 72 61 77 20 | 73 6f 6d 65 20 72 61 6e |..;draw |some ran|
|000001a0| 64 6f 6d 20 62 6f 78 65 | 73 20 6f 6e 20 62 61 63 |dom boxe|s on bac|
|000001b0| 6b 67 72 6f 75 6e 64 20 | 62 69 74 6d 61 70 00 3b |kground |bitmap.;|
|000001c0| 00 80 16 20 6b 3d 31 20 | 80 18 20 35 30 00 bb 84 |... k=1 |.. 50...|
|000001d0| 20 bc 07 28 33 32 30 29 | 2c bc 07 28 31 30 30 29 | ..(320)|,..(100)|
|000001e0| 2b 35 30 2c bc 07 28 33 | 32 30 29 2c bc 07 28 31 |+50,..(3|20),..(1|
|000001f0| 30 30 29 2b 35 30 2c bc | 07 28 37 29 2b 31 00 80 |00)+50,.|.(7)+1..|
|00000200| 17 00 00 3b 73 65 74 20 | 75 70 20 64 69 73 70 6c |...;set |up displ|
|00000210| 61 79 3a 00 3b 00 c7 82 | 20 30 2c 34 34 2c 32 30 |ay:.;...| 0,44,20|
|00000220| 30 2c 24 33 36 2c 38 2c | 33 32 2c 30 00 c7 83 20 |0,$36,8,|32,0... |
|00000230| 30 00 00 3b 77 68 69 6c | 65 20 6d 6f 75 73 65 20 |0..;whil|e mouse |
|00000240| 62 75 74 74 6f 6e 20 6e | 6f 74 20 68 69 74 00 3b |button n|ot hit.;|
|00000250| 00 80 0c 20 df 04 28 30 | 29 3d 30 00 00 20 20 3b |... ..(0|)=0..  ;|
|00000260| 77 61 69 74 20 66 6f 72 | 20 76 65 72 74 69 63 61 |wait for| vertica|
|00000270| 6c 20 62 6c 61 6e 6b 00 | 20 20 3b 00 20 20 80 37 |l blank.|  ;.  .7|
|00000280| 00 00 20 20 3b 75 70 64 | 61 74 65 20 27 61 63 72 |..  ;upd|ate 'acr|
|00000290| 6f 73 73 77 61 72 64 73 | 27 20 76 61 72 69 61 62 |osswards|' variab|
|000002a0| 6c 65 00 20 20 3b 00 20 | 20 78 3d bc 06 28 78 2b |le.  ;. | x=..(x+|
|000002b0| 32 2c 30 2c 33 32 30 29 | 00 00 20 20 3b 73 68 6f |2,0,320)|..  ;sho|
|000002c0| 77 20 66 6f 72 65 67 72 | 6f 75 6e 64 20 62 69 74 |w foregr|ound bit|
|000002d0| 6d 61 70 20 61 74 20 63 | 75 72 72 65 6e 74 20 27 |map at c|urrent '|
|000002e0| 61 63 72 6f 73 73 77 61 | 72 64 73 27 20 70 6f 73 |acrosswa|rds' pos|
|000002f0| 69 74 69 6f 6e 00 20 20 | 3b 00 20 20 c7 84 20 30 |ition.  |;.  .. 0|
|00000300| 2c 30 2c 78 2c 30 2c 31 | 2c 30 2c 30 00 80 c1 00 |,0,x,0,1|,0,0....|
|00000310| 00 80 02 00 00          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+