/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / BLZ_EXD.DMS / in.adf / amigamode / clock.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 77 6f 72 6b | 62 65 6e 63 68 20 63 6c |;.; work|bench cl|
|00000010| 6f 63 6b 20 70 72 6f 67 | 72 61 6d 00 3b 00 00 80 |ock prog|ram.;...|
|00000020| c3 3a cf 04 20 30 20 20 | 20 3b 6f 70 65 6e 20 77 |.:.. 0  | ;open w|
|00000030| 69 6e 64 6f 77 20 6f 6e | 20 77 6f 72 6b 62 65 6e |indow on| workben|
|00000040| 63 68 00 00 c5 01 20 30 | 2c 31 30 30 2c 32 30 2c |ch.... 0|,100,20,|
|00000050| 31 36 30 2c 31 30 34 2c | 24 31 30 30 45 2c 22 42 |160,104,|$100E,"B|
|00000060| 4c 49 54 5a 20 43 4c 4f | 43 4b 22 2c 31 2c 32 00 |LITZ CLO|CK",1,2.|
|00000070| 00 c5 0e 20 38 30 2c 35 | 30 2c 37 30 2c 33 35 2c |... 80,5|0,70,35,|
|00000080| 31 20 20 20 3b 64 72 61 | 77 20 63 6c 6f 63 6b 00 |1   ;dra|w clock.|
|00000090| 00 80 01 20 2e 78 79 3a | 78 2e 77 3a 79 2e 77 3a |... .xy:|x.w:y.w:|
|000000a0| 80 02 20 80 01 20 3b 63 | 6f 6f 72 64 69 6e 61 74 |.. .. ;c|oordinat|
|000000b0| 65 73 20 66 6f 72 20 68 | 61 6e 64 73 00 80 04 20 |es for h|ands... |
|000000c0| 68 2e 78 79 28 35 39 29 | 00 80 16 20 69 3d 30 20 |h.xy(59)|... i=0 |
|000000d0| 80 18 20 35 39 00 20 20 | 68 28 69 29 5c 78 3d 36 |.. 59.  |h(i)\x=6|
|000000e0| 38 2a e0 0a 28 69 2a 80 | ba 2f 33 30 29 2c 2d 33 |8*..(i*.|./30),-3|
|000000f0| 32 2a e0 05 28 69 2a 80 | ba 2f 33 30 29 00 80 17 |2*..(i*.|./30)...|
|00000100| 00 00 80 bb 00 20 20 c5 | 1e 20 38 30 2c 35 30 2c |.....  .|. 80,50,|
|00000110| 38 30 2b 68 28 a7 0b 29 | 5c 78 2c 35 30 2b 68 28 |80+h(..)|\x,50+h(|
|00000120| a7 0b 29 5c 79 2c 30 00 | 20 20 c5 1e 20 38 30 2c |..)\y,0.|  .. 80,|
|00000130| 35 30 2c 38 30 2b 68 28 | a7 0a 29 5c 78 2c 35 30 |50,80+h(|..)\x,50|
|00000140| 2b 68 28 a7 0a 29 5c 79 | 2c 30 00 20 20 c5 1e 20 |+h(..)\y|,0.  .. |
|00000150| 38 30 2c 35 30 2c 38 30 | 2b 68 28 68 72 29 5c 78 |80,50,80|+h(hr)\x|
|00000160| 2f 32 2c 35 30 2b 68 28 | 68 72 29 5c 79 2f 32 2c |/2,50+h(|hr)\y/2,|
|00000170| 30 00 20 20 c5 10 20 34 | 30 2c 38 30 3a dd 82 20 |0.  .. 4|0,80:.. |
|00000180| a7 02 28 a7 01 29 00 20 | 20 68 72 3d 35 2a 28 a7 |..(..). | hr=5*(.|
|00000190| 09 20 80 b9 20 31 32 29 | 00 20 20 c5 1e 20 38 30 |. .. 12)|.  .. 80|
|000001a0| 2c 35 30 2c 38 30 2b 68 | 28 68 72 29 5c 78 2f 32 |,50,80+h|(hr)\x/2|
|000001b0| 2c 35 30 2b 68 28 68 72 | 29 5c 79 2f 32 2c 31 00 |,50+h(hr|)\y/2,1.|
|000001c0| 20 20 c5 1e 20 38 30 2c | 35 30 2c 38 30 2b 68 28 |  .. 80,|50,80+h(|
|000001d0| a7 0a 29 5c 78 2c 35 30 | 2b 68 28 a7 0a 29 5c 79 |..)\x,50|+h(..)\y|
|000001e0| 2c 31 00 20 20 c5 1e 20 | 38 30 2c 35 30 2c 38 30 |,1.  .. |80,50,80|
|000001f0| 2b 68 28 a7 0b 29 5c 78 | 2c 35 30 2b 68 28 a7 0b |+h(..)\x|,50+h(..|
|00000200| 29 5c 79 2c 32 00 20 20 | fe 1b 20 35 30 20 20 20 |)\y,2.  |.. 50   |
|00000210| 20 3b 67 6f 74 6f 20 73 | 6c 65 65 70 20 66 6f 72 | ;goto s|leep for|
|00000220| 20 31 20 73 65 63 6f 6e | 64 00 80 bc 20 c5 03 3d | 1 secon|d... ..=|
|00000230| 24 32 30 30 00 00       |                         |$200..  |        |
+--------+-------------------------+-------------------------+--------+--------+