home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_ext.dms / in.adf / LibsDev.lha / userlibprogs / ZoneTest.bb2 < prev    next >
Unknown  |  1995-11-11  |  1.7 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |;#######|########|
|00000010| 23 23 23 23 23 23 23 23 | 23 00 3b 23 20 45 78 61 |########|#.;# Exa|
|00000020| 6d 70 6c 65 20 31 2e 32 | 20 5a 6f 6e 65 54 65 73 |mple 1.2| ZoneTes|
|00000030| 74 20 23 00 3b 23 23 23 | 23 23 23 23 23 23 23 23 |t #.;###|########|
|00000040| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 00 3b 20 |########|#####.; |
|00000050| 42 79 20 53 74 65 76 65 | 6e 20 4d 61 74 74 79 00 |By Steve|n Matty.|
|00000060| 3b 00 3b 20 54 68 69 73 | 20 73 65 74 73 75 70 20 |;.; This| setsup |
|00000070| 31 32 20 7a 6f 6e 65 73 | 20 77 69 74 68 20 65 69 |12 zones| with ei|
|00000080| 74 68 65 72 20 63 69 63 | 6c 65 73 20 6f 72 20 62 |ther cic|les or b|
|00000090| 6f 78 65 73 20 61 72 6f | 75 6e 64 20 74 68 65 6d |oxes aro|und them|
|000000a0| 00 3b 20 49 66 20 74 68 | 65 20 64 6f 74 20 63 6f |.; If th|e dot co|
|000000b0| 6d 65 73 20 69 6e 74 6f | 20 63 6f 6e 74 61 63 74 |mes into| contact|
|000000c0| 20 77 69 74 68 20 6f 6e | 65 2c 20 74 68 65 20 73 | with on|e, the s|
|000000d0| 63 72 65 65 6e 20 77 69 | 6c 6c 20 66 6c 61 73 68 |creen wi|ll flash|
|000000e0| 00 3b 20 54 75 72 6e 20 | 74 68 65 20 6c 69 67 68 |.; Turn |the ligh|
|000000f0| 74 73 20 64 6f 77 6e 20 | 66 6f 72 20 61 20 6e 69 |ts down |for a ni|
|00000100| 63 65 20 73 74 72 6f 62 | 65 20 3a 29 00 00 80 37 |ce strob|e :)...7|
|00000110| 20 34 30 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 40     |        |
|00000120| 3b 20 57 61 69 74 20 66 | 6f 72 20 64 69 73 6b 20 |; Wait f|or disk |
|00000130| 61 63 74 69 76 69 74 79 | 20 74 6f 20 66 69 6e 69 |activity| to fini|
|00000140| 73 68 00 80 34 20 20 20 | 20 20 20 20 20 20 20 20 |sh..4   |        |
|00000150| 20 20 20 20 20 3b 20 42 | 4c 49 54 5a 21 00 d0 01 |     ; B|LITZ!...|
|00000160| 20 30 2c 33 32 30 2c bc | 0c 2c 31 20 20 20 20 3b | 0,320,.|.,1    ;|
|00000170| 20 4f 70 65 6e 20 61 20 | 31 62 69 74 70 6c 61 6e | Open a |1bitplan|
|00000180| 65 20 62 69 74 6d 61 70 | 20 33 32 30 78 3f 3f 3f |e bitmap| 320x???|
|00000190| 00 c7 02 20 30 00 80 2c | 20 d0 01 20 30 00 c8 01 |... 0..,| .. 0...|
|000001a0| 20 30 2c 34 34 2c 33 32 | 30 2c bc 0c 2c 24 66 66 | 0,44,32|0,..,$ff|
|000001b0| 66 38 2c 31 2c 38 2c 32 | 2c 33 32 30 2c 33 32 30 |f8,1,8,2|,320,320|
|000001c0| 20 20 20 3b 20 41 6e 64 | 20 61 20 73 6c 69 63 65 |   ; And| a slice|
|000001d0| 00 c8 04 20 30 20 20 20 | 20 20 20 20 20 20 20 20 |... 0   |        |
|000001e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00000200| 20 53 68 6f 77 20 69 74 | 00 ce 0a 20 30 2c 31 2c | Show it|... 0,1,|
|00000210| 31 35 2c 31 35 2c 31 35 | 20 20 20 20 20 20 20 20 |15,15,15|        |
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000230| 20 20 20 20 20 3b 20 53 | 65 74 20 69 6e 6b 20 31 |     ; S|et ink 1|
|00000240| 20 74 6f 20 77 68 69 74 | 65 00 80 2c 20 ce 09 20 | to whit|e.., .. |
|00000250| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0       |        |
|00000260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000270| 20 20 20 20 3b 20 55 73 | 65 20 74 68 65 20 70 61 |    ; Us|e the pa|
|00000280| 6c 65 74 74 65 00 a0 01 | 20 30 2c 31 32 20 20 20 |lette...| 0,12   |
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002b0| 3b 20 43 6c 65 61 72 20 | 5a 6f 6e 65 73 20 30 2d |; Clear |Zones 0-|
|000002c0| 31 32 00 80 16 20 6e 3d | 30 20 80 18 20 31 32 20 |12... n=|0 .. 12 |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002f0| 20 20 3b 00 78 32 2e 77 | 3d bc 02 28 bc 07 28 33 |  ;.x2.w|=..(..(3|
|00000300| 30 29 29 2b 35 20 20 20 | 20 20 20 20 20 20 20 20 |0))+5   |        |
|00000310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000320| 20 20 3b 00 79 32 2e 77 | 3d bc 02 28 bc 07 28 33 |  ;.y2.w|=..(..(3|
|00000330| 30 29 29 2b 35 20 20 20 | 20 20 20 20 20 20 20 20 |0))+5   |        |
|00000340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000350| 20 20 3b 00 78 2e 77 3d | bc 02 28 bc 07 28 33 32 |  ;.x.w=|..(..(32|
|00000360| 30 2d 28 78 32 2a 32 29 | 29 29 20 20 20 20 20 20 |0-(x2*2)|))      |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000380| 20 20 3b 00 79 2e 77 3d | bc 02 28 bc 07 28 bc 0c |  ;.y.w=|..(..(..|
|00000390| 2d 28 79 32 2a 32 29 29 | 29 20 20 20 20 20 20 20 |-(y2*2))|)       |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 3b 00 80 0b 20 78 |        |  ;... x|
|000003b0| 32 3e 3d 33 32 30 20 80 | 21 20 78 32 3d 33 31 39 |2>=320 .|! x2=319|
|000003c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 3b 00 80 0b 20 79 |        |  ;... y|
|000003e0| 32 3e 3d bc 0c 20 80 21 | 20 79 32 3d bc 0c 2d 31 |2>=.. .!| y2=..-1|
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 3b 00 67 3d bc 02 |        |  ;.g=..|
|00000400| 28 bc 07 28 32 29 29 20 | 20 20 20 20 20 20 20 20 |(..(2)) |        |
|00000410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000420| 20 20 20 20 20 20 20 20 | 20 20 3b 20 43 69 72 63 |        |  ; Circ|
|00000430| 6c 65 20 6f 72 20 42 6f | 78 00 80 0b 20 67 3d 30 |le or Bo|x... g=0|
|00000440| 00 20 20 bb 83 20 78 2c | 79 2c 78 2b 78 32 2c 79 |.  .. x,|y,x+x2,y|
|00000450| 2b 79 32 2c 31 00 20 20 | a0 02 20 6e 2c 78 2c 79 |+y2,1.  |.. n,x,y|
|00000460| 2c 78 2b 78 32 2c 79 2b | 79 32 20 20 20 20 20 20 |,x+x2,y+|y2      |
|00000470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000480| 20 3b 20 53 65 74 20 42 | 6f 78 20 7a 6f 6e 65 00 | ; Set B|ox zone.|
|00000490| 80 22 00 20 20 bb 81 20 | 78 2c 79 2c 78 32 2c 31 |.".  .. |x,y,x2,1|
|000004a0| 00 20 20 a0 02 20 6e 2c | 78 2c 79 2c 78 32 20 20 |.  .. n,|x,y,x2  |
|000004b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 53 65 |        |    ; Se|
|000004d0| 74 20 43 69 72 63 75 6c | 61 72 20 7a 6f 6e 65 00 |t Circul|ar zone.|
|000004e0| 80 02 20 80 0b 00 80 17 | 20 6e 00 b6 01 20 80 c5 |.. .....| n... ..|
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000510| 20 20 20 20 20 20 20 20 | 3b 20 4d 6f 75 73 65 20 |        |; Mouse |
|00000520| 4f 4e 00 80 bb 00 78 6f | 2e 77 3d 78 6d 2e 77 00 |ON....xo|.w=xm.w.|
|00000530| 79 6f 2e 77 3d 79 6d 2e | 77 00 78 6d 2e 77 3d b6 |yo.w=ym.|w.xm.w=.|
|00000540| 04 00 79 6d 2e 77 3d b6 | 05 00 80 0b 20 78 6f 3c |..ym.w=.|.... xo<|
|00000550| 3e 78 6d 20 80 8a 20 79 | 6f 3c 3e 79 6d 00 20 20 |>xm .. y|o<>ym.  |
|00000560| b2 03 20 78 6f 2c 79 6f | 2c 30 20 20 20 20 20 20 |.. xo,yo|,0      |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000580| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 55 70 |        |    ; Up|
|00000590| 64 61 74 65 20 70 6f 69 | 6e 74 65 72 00 20 20 b2 |date poi|nter.  .|
|000005a0| 03 20 78 6d 2c 79 6d 2c | 31 00 80 c0 00 00 7a 6e |. xm,ym,|1.....zn|
|000005b0| 2e 77 3d a0 03 28 78 6d | 2c 79 6d 29 20 20 20 20 |.w=..(xm|,ym)    |
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 41 72 |        |    ; Ar|
|000005e0| 65 20 77 65 20 69 6e 20 | 74 68 65 20 5a 4f 4e 45 |e we in |the ZONE|
|000005f0| 3f 00 80 0b 20 7a 6e 3c | 3e 2d 31 20 80 21 20 c7 |?... zn<|>-1 .! .|
|00000600| 04 20 30 2c 30 3a dd 82 | 20 22 5a 6f 6e 65 20 22 |. 0,0:..| "Zone "|
|00000610| 2c 7a 6e 2c 22 20 68 69 | 74 21 22 20 3b 20 59 65 |,zn," hi|t!" ; Ye|
|00000620| 73 21 00 80 0b 20 7a 6e | 3d 2d 31 20 80 21 20 c7 |s!... zn|=-1 .! .|
|00000630| 04 20 30 2c 30 3a dd 82 | 22 20 20 20 20 20 20 20 |. 0,0:..|"       |
|00000640| 20 20 20 20 20 22 20 20 | 20 20 20 20 20 20 20 20 |     "  |        |
|00000650| 3b 20 4e 6f 21 00 80 37 | 00 80 bc 20 df 04 28 30 |; No!..7|... ..(0|
|00000660| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)       |        |
|00000670| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000680| 20 20 20 3b 20 55 6e 74 | 69 6c 20 6d 6f 75 73 65 |   ; Unt|il mouse|
|00000690| 62 75 74 74 6f 6e 00 80 | 35 00 80 02 00          |button..|5....   |
+--------+-------------------------+-------------------------+--------+--------+