home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-04-05 | 3.9 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.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 00 3b 20 24 56 45 52 | 3a 20 50 72 6f 67 72 65 |;.; $VER|: Progre|
|00000010| 73 73 20 49 6e 64 69 63 | 61 74 6f 72 20 56 30 2e |ss Indic|ator V0.|
|00000020| 31 20 2d 20 42 79 20 44 | 61 76 69 64 20 43 6f 6c |1 - By D|avid Col|
|00000030| 65 20 20 28 34 2d 34 2d | 39 34 29 00 3b 00 3b 20 |e (4-4-|94).;.; |
|00000040| 54 68 65 73 65 20 72 6f | 75 74 69 6e 65 73 20 61 |These ro|utines a|
|00000050| 72 65 20 64 65 73 69 67 | 6e 65 64 20 74 6f 20 62 |re desig|ned to b|
|00000060| 65 20 72 75 6e 20 6f 6e | 20 38 20 6f 72 20 67 72 |e run on| 8 or gr|
|00000070| 65 61 74 65 72 00 3b 20 | 63 6f 6c 6f 75 72 20 73 |eater.; |colour s|
|00000080| 63 72 65 65 6e 73 2e 00 | 3b 20 57 68 65 6e 20 63 |creens..|; When c|
|00000090| 6f 6c 6f 75 72 73 20 68 | 61 76 65 20 62 65 65 6e |olours h|ave been|
|000000a0| 20 75 73 65 64 2c 20 74 | 68 65 79 20 68 61 76 65 | used, t|hey have|
|000000b0| 20 62 65 65 6e 20 65 78 | 70 6c 61 69 6e 65 64 00 | been ex|plained.|
|000000c0| 3b 20 28 69 65 2c 20 68 | 69 67 68 6c 69 67 68 74 |; (ie, h|ighlight|
|000000d0| 73 2c 20 73 68 61 64 6f | 77 73 2c 20 6d 61 69 6e |s, shado|ws, main|
|000000e0| 20 62 61 72 20 65 74 63 | 29 2c 20 73 6f 20 69 66 | bar etc|), so if|
|000000f0| 20 74 68 65 73 65 20 64 | 6f 20 6e 6f 74 00 3b 20 | these d|o not.; |
|00000100| 6c 6f 6f 6b 20 72 69 67 | 68 74 2c 20 70 6c 65 61 |look rig|ht, plea|
|00000110| 73 65 20 66 65 65 6c 20 | 66 72 65 65 20 74 6f 20 |se feel |free to |
|00000120| 61 64 6a 75 73 74 2e 20 | 20 54 68 65 20 70 72 65 |adjust. | The pre|
|00000130| 73 65 74 20 76 61 6c 75 | 65 73 00 3b 20 6c 6f 6f |set valu|es.; loo|
|00000140| 6b 20 6e 69 63 65 20 77 | 69 74 68 20 74 68 65 20 |k nice w|ith the |
|00000150| 64 65 66 61 75 6c 74 20 | 70 61 6c 65 74 74 65 20 |default |palette |
|00000160| 6f 66 20 4d 61 67 69 63 | 57 6f 72 6b 62 65 6e 63 |of Magic|Workbenc|
|00000170| 68 00 3b 20 28 62 79 20 | 4d 61 72 74 69 6e 20 48 |h.; (by |Martin H|
|00000180| 75 74 74 65 6e 6c 6f 68 | 65 72 29 2c 20 77 69 74 |uttenloh|er), wit|
|00000190| 68 20 74 68 65 20 4d 61 | 72 62 6c 65 5f 43 4c 41 |h the Ma|rble_CLA|
|000001a0| 53 53 49 43 20 62 61 63 | 6b 67 72 6f 75 6e 64 2e |SSIC bac|kground.|
|000001b0| 00 3b 20 49 20 68 61 76 | 65 20 69 6e 63 6c 75 64 |.; I hav|e includ|
|000001c0| 65 64 20 74 68 69 73 20 | 70 61 6c 65 74 74 65 20 |ed this |palette |
|000001d0| 69 6e 20 74 68 65 20 61 | 72 63 68 69 76 65 20 28 |in the a|rchive (|
|000001e0| 66 6f 72 20 75 73 65 20 | 77 69 74 68 00 3b 20 50 |for use |with.; P|
|000001f0| 72 65 66 73 2f 50 61 6c | 65 74 74 65 20 69 6e 20 |refs/Pal|ette in |
|00000200| 57 42 32 20 6f 72 20 67 | 72 65 61 74 65 72 29 2e |WB2 or g|reater).|
|00000210| 00 3b 00 3b 20 54 68 65 | 73 65 20 72 6f 75 74 69 |.;.; The|se routi|
|00000220| 6e 65 73 20 61 72 65 20 | 63 6f 70 79 72 69 67 68 |nes are |copyrigh|
|00000230| 74 20 74 6f 20 6d 65 20 | 28 44 61 76 69 64 20 43 |t to me |(David C|
|00000240| 6f 6c 65 29 2c 20 62 75 | 74 20 6d 61 79 00 3b 20 |ole), bu|t may.; |
|00000250| 62 65 20 66 72 65 65 6c | 79 20 75 73 65 64 2f 69 |be freel|y used/i|
|00000260| 6e 74 65 67 72 61 74 65 | 64 20 69 6e 74 6f 20 61 |ntegrate|d into a|
|00000270| 6e 79 20 42 6c 69 74 7a | 20 42 61 73 69 63 20 49 |ny Blitz| Basic I|
|00000280| 49 20 70 72 6f 67 72 61 | 6d 2c 00 3b 20 61 73 20 |I progra|m,.; as |
|00000290| 6c 6f 6e 67 20 61 73 20 | 49 20 61 6d 20 61 63 63 |long as |I am acc|
|000002a0| 72 65 64 69 74 65 64 20 | 73 6f 6d 65 77 68 65 72 |redited |somewher|
|000002b0| 65 20 69 6e 20 74 68 65 | 20 70 72 6f 67 72 61 6d |e in the| program|
|000002c0| 20 28 65 78 65 63 75 74 | 61 62 6c 65 29 2c 00 3b | (execut|able),.;|
|000002d0| 20 61 6e 64 20 6e 6f 74 | 69 66 69 65 64 20 69 66 | and not|ified if|
|000002e0| 20 75 73 65 64 20 69 6e | 20 61 20 63 6f 6d 6d 65 | used in| a comme|
|000002f0| 72 63 69 61 6c 20 70 72 | 6f 67 72 61 6d 2e 00 3b |rcial pr|ogram..;|
|00000300| 00 3b 20 54 68 69 73 20 | 68 65 61 64 65 72 20 69 |.; This |header i|
|00000310| 6e 66 6f 72 6d 61 74 69 | 6f 6e 20 6d 75 73 74 20 |nformati|on must |
|00000320| 72 65 6d 61 69 6e 20 69 | 6e 20 74 68 65 20 66 69 |remain i|n the fi|
|00000330| 6c 65 20 22 50 72 6f 67 | 72 65 73 73 49 6e 64 2e |le "Prog|ressInd.|
|00000340| 62 62 32 22 2e 00 3b 20 | 44 69 73 74 72 69 62 75 |bb2"..; |Distribu|
|00000350| 74 69 6f 6e 20 6f 66 20 | 74 68 69 73 20 61 72 63 |tion of |this arc|
|00000360| 68 69 76 65 20 69 73 20 | 61 6c 6c 6f 77 65 64 2c |hive is |allowed,|
|00000370| 20 62 75 74 20 4d 55 53 | 54 20 4e 4f 54 20 62 65 | but MUS|T NOT be|
|00000380| 20 63 68 61 6e 67 65 64 | 2c 00 3b 20 28 69 65 2c | changed|,.; (ie,|
|00000390| 20 22 50 72 6f 67 72 65 | 73 73 49 6e 64 2e 62 62 | "Progre|ssInd.bb|
|000003a0| 32 22 2c 20 22 53 6d 61 | 6c 6c 46 6f 6e 74 22 20 |2", "Sma|llFont" |
|000003b0| 61 6e 64 20 22 50 61 6c | 65 74 74 65 2e 69 6c 62 |and "Pal|ette.ilb|
|000003c0| 6d 22 20 6d 75 73 74 20 | 72 65 6d 61 69 6e 00 3b |m" must |remain.;|
|000003d0| 20 61 73 20 69 73 20 61 | 6e 64 20 62 65 20 69 6e | as is a|nd be in|
|000003e0| 63 6c 75 64 65 64 29 2c | 20 75 6e 6c 65 73 73 20 |cluded),| unless |
|000003f0| 49 20 61 6d 20 63 6f 6e | 74 61 63 74 65 64 2c 20 |I am con|tacted, |
|00000400| 61 6e 64 20 61 6c 6c 20 | 63 68 61 6e 67 65 73 20 |and all |changes |
|00000410| 61 72 65 00 3b 20 64 6f | 63 75 6d 65 6e 74 65 64 |are.; do|cumented|
|00000420| 2e 00 3b 00 3b 20 49 20 | 63 61 6e 20 62 65 20 63 |..;.; I |can be c|
|00000430| 6f 6e 74 61 63 74 65 64 | 20 61 74 3a 00 3b 20 20 |ontacted| at:.; |
|00000440| 20 20 73 39 33 33 33 38 | 34 40 79 61 6c 6c 61 72 | s93338|4@yallar|
|00000450| 61 2e 63 73 2e 72 6d 69 | 74 2e 6f 7a 2e 61 75 00 |a.cs.rmi|t.oz.au.|
|00000460| 3b 20 20 20 20 73 39 33 | 33 33 38 34 40 6d 69 6e |; s93|3384@min|
|00000470| 79 6f 73 2e 78 78 2e 72 | 6d 69 74 2e 6f 7a 2e 61 |yos.xx.r|mit.oz.a|
|00000480| 75 00 3b 20 26 20 20 44 | 61 76 69 64 5f 43 6f 6c |u.; & D|avid_Col|
|00000490| 65 40 67 75 72 75 2e 61 | 70 61 6e 61 2e 6f 72 67 |e@guru.a|pana.org|
|000004a0| 2e 61 75 00 3b 00 3b 20 | 45 6e 6a 6f 79 21 00 00 |.au.;.; |Enjoy!..|
|000004b0| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|000004c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004f0| 2d 2d 2d 2d 2d 00 3b 42 | 61 73 69 63 20 76 61 6c |-----.;B|asic val|
|00000500| 75 65 73 20 66 6f 72 20 | 69 6e 64 69 63 61 74 6f |ues for |indicato|
|00000510| 72 20 61 73 20 6f 66 66 | 73 65 74 73 20 66 72 6f |r as off|sets fro|
|00000520| 6d 20 74 6f 70 20 6c 65 | 66 74 20 63 6f 72 6e 65 |m top le|ft corne|
|00000530| 72 20 6f 66 20 77 69 6e | 64 6f 77 00 23 70 69 78 |r of win|dow.#pix|
|00000540| 31 3d 32 30 00 23 70 69 | 78 32 3d 32 34 30 00 23 |1=20.#pi|x2=240.#|
|00000550| 70 69 79 31 3d 32 30 00 | 23 70 69 79 32 3d 23 70 |piy1=20.|#piy2=#p|
|00000560| 69 79 31 2b 31 30 00 00 | 80 08 20 73 65 74 75 70 |iy1+10..|.. setup|
|00000570| 70 72 6f 67 72 65 73 73 | 7b 77 78 2c 77 79 7d 00 |progress|{wx,wy}.|
|00000580| 3b 49 6e 69 74 69 61 6c | 20 73 65 74 74 69 6e 67 |;Initial| setting|
|00000590| 20 75 70 20 6f 66 20 77 | 69 6e 64 6f 77 20 61 6e | up of w|indow an|
|000005a0| 64 20 64 72 61 77 69 6e | 67 20 6f 66 20 69 6e 64 |d drawin|g of ind|
|000005b0| 69 63 61 74 6f 72 2e 00 | 3b 20 2d 20 77 78 20 61 |icator..|; - wx a|
|000005c0| 6e 64 20 77 79 20 64 65 | 66 69 6e 65 20 74 68 65 |nd wy de|fine the|
|000005d0| 20 74 6f 70 20 6c 65 66 | 74 20 63 6f 72 6e 65 72 | top lef|t corner|
|000005e0| 20 6f 66 20 74 68 65 20 | 77 69 6e 64 6f 77 2e 00 | of the |window..|
|000005f0| 00 20 20 c5 01 20 30 2c | 77 78 2c 77 79 2c 32 36 |. .. 0,|wx,wy,26|
|00000600| 30 2c 35 30 2c 24 32 7c | 24 34 2c 22 50 72 6f 67 |0,50,$2||$4,"Prog|
|00000610| 72 65 73 73 20 49 6e 64 | 69 63 61 74 6f 72 22 2c |ress Ind|icator",|
|00000620| 30 2c 31 20 20 3b 42 61 | 73 69 63 20 77 69 6e 64 |0,1 ;Ba|sic wind|
|00000630| 6f 77 20 2d 00 20 20 20 | 20 20 20 20 20 20 20 20 |ow -. | |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 64 | | ; d|
|00000670| 72 61 67 67 61 62 6c 65 | 20 26 00 20 20 20 20 20 |raggable| &. |
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006b0| 20 20 20 3b 20 64 65 70 | 74 68 20 67 61 64 67 65 | ; dep|th gadge|
|000006c0| 74 00 00 20 20 c5 2f 20 | 35 20 20 20 20 20 20 20 |t.. ./ |5 |
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006e0| 20 20 20 20 20 3b 43 68 | 61 6e 67 65 20 62 67 20 | ;Ch|ange bg |
|000006f0| 63 6f 6c 6f 75 72 00 20 | 20 c5 1c 20 31 2c 35 00 |colour. | .. 1,5.|
|00000700| 00 20 20 c3 01 20 30 2c | 22 53 6d 61 6c 6c 46 6f |. .. 0,|"SmallFo|
|00000710| 6e 74 2e 66 6f 6e 74 22 | 2c 36 20 20 20 20 20 20 |nt.font"|,6 |
|00000720| 20 20 20 3b 53 6d 61 6c | 6c 20 66 6f 6e 74 20 75 | ;Smal|l font u|
|00000730| 73 65 64 20 74 6f 20 64 | 69 73 70 6c 61 79 20 69 |sed to d|isplay i|
|00000740| 6e 66 6f 00 20 20 c5 0a | 20 30 00 20 20 c5 1f 20 |nfo. ..| 0. .. |
|00000750| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0 | |
|00000760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 41 63 | | ;Ac|
|00000770| 74 69 76 61 74 65 20 77 | 69 6e 64 6f 77 20 6f 6e |tivate w|indow on|
|00000780| 20 69 6e 69 74 69 61 6c | 69 73 61 74 69 6f 6e 00 | initial|isation.|
|00000790| 00 20 20 63 6f 6c 3d 31 | 20 20 20 20 20 20 20 20 |. col=1| |
|000007a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000007b0| 20 20 20 20 20 20 20 20 | 20 3b 44 72 61 77 20 73 | | ;Draw s|
|000007c0| 68 61 64 6f 77 73 00 20 | 20 c5 1e 20 23 70 69 78 |hadows. | .. #pix|
|000007d0| 31 2c 23 70 69 79 31 2c | 23 70 69 78 32 2c 23 70 |1,#piy1,|#pix2,#p|
|000007e0| 69 79 31 2c 63 6f 6c 00 | 20 20 c5 1e 20 23 70 69 |iy1,col.| .. #pi|
|000007f0| 78 31 2c 23 70 69 79 31 | 2c 23 70 69 78 31 2c 23 |x1,#piy1|,#pix1,#|
|00000800| 70 69 79 32 2c 63 6f 6c | 00 00 20 20 63 6f 6c 3d |piy2,col|.. col=|
|00000810| 32 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |2 | |
|00000820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000830| 20 20 3b 44 72 61 77 20 | 68 69 67 68 6c 69 67 68 | ;Draw |highligh|
|00000840| 74 73 00 20 20 c5 1e 20 | 23 70 69 78 31 2c 23 70 |ts. .. |#pix1,#p|
|00000850| 69 79 32 2c 23 70 69 78 | 32 2c 23 70 69 79 32 2c |iy2,#pix|2,#piy2,|
|00000860| 63 6f 6c 00 20 20 c5 1e | 20 23 70 69 78 32 2c 23 |col. ..| #pix2,#|
|00000870| 70 69 79 31 2c 23 70 69 | 78 32 2c 23 70 69 79 32 |piy1,#pi|x2,#piy2|
|00000880| 2c 63 6f 6c 00 00 20 20 | 63 6f 6c 3d 34 20 20 20 |,col.. |col=4 |
|00000890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 53 | | ;S|
|000008b0| 68 61 64 65 20 69 6e 20 | 62 61 63 6b 67 72 6f 75 |hade in |backgrou|
|000008c0| 6e 64 00 20 20 c5 0c 20 | 23 70 69 78 31 2b 31 2c |nd. .. |#pix1+1,|
|000008d0| 23 70 69 79 31 2b 31 2c | 23 70 69 78 32 2d 31 2c |#piy1+1,|#pix2-1,|
|000008e0| 23 70 69 79 32 2d 31 2c | 34 00 00 20 20 71 75 61 |#piy2-1,|4.. qua|
|000008f0| 72 74 65 72 3d 28 23 70 | 69 78 32 2d 23 70 69 78 |rter=(#p|ix2-#pix|
|00000900| 31 29 2f 34 20 20 20 20 | 20 20 20 20 20 20 20 20 |1)/4 | |
|00000910| 20 20 20 20 20 20 20 20 | 20 3b 64 65 74 65 72 6d | | ;determ|
|00000920| 69 6e 65 20 31 2f 34 20 | 72 65 67 69 6f 6e 73 20 |ine 1/4 |regions |
|00000930| 6f 6e 20 69 6e 64 69 63 | 61 74 6f 72 00 20 20 c5 |on indic|ator. .|
|00000940| 1e 20 23 70 69 78 31 2b | 31 2c 23 70 69 79 31 2d |. #pix1+|1,#piy1-|
|00000950| 34 2c 23 70 69 78 31 2b | 31 2c 23 70 69 79 32 2b |4,#pix1+|1,#piy2+|
|00000960| 34 2c 63 6f 6c 20 20 20 | 20 20 20 20 20 20 3b 20 |4,col | ; |
|00000970| 61 6e 64 20 64 72 61 77 | 20 74 68 65 6d 2e 00 20 |and draw| them.. |
|00000980| 20 c5 1e 20 23 70 69 78 | 31 2b 71 75 61 72 74 65 | .. #pix|1+quarte|
|00000990| 72 2c 23 70 69 79 31 2d | 34 2c 23 70 69 78 31 2b |r,#piy1-|4,#pix1+|
|000009a0| 71 75 61 72 74 65 72 2c | 23 70 69 79 32 2b 34 2c |quarter,|#piy2+4,|
|000009b0| 63 6f 6c 00 20 20 c5 1e | 20 23 70 69 78 31 2b 28 |col. ..| #pix1+(|
|000009c0| 32 2a 71 75 61 72 74 65 | 72 29 2c 23 70 69 79 31 |2*quarte|r),#piy1|
|000009d0| 2d 34 2c 23 70 69 78 31 | 2b 28 32 2a 71 75 61 72 |-4,#pix1|+(2*quar|
|000009e0| 74 65 72 29 2c 23 70 69 | 79 32 2b 34 2c 63 6f 6c |ter),#pi|y2+4,col|
|000009f0| 00 20 20 c5 1e 20 23 70 | 69 78 31 2b 28 33 2a 71 |. .. #p|ix1+(3*q|
|00000a00| 75 61 72 74 65 72 29 2c | 23 70 69 79 31 2d 34 2c |uarter),|#piy1-4,|
|00000a10| 23 70 69 78 31 2b 28 33 | 2a 71 75 61 72 74 65 72 |#pix1+(3|*quarter|
|00000a20| 29 2c 23 70 69 79 32 2b | 34 2c 63 6f 6c 00 20 20 |),#piy2+|4,col. |
|00000a30| c5 1e 20 23 70 69 78 32 | 2d 31 2c 23 70 69 79 31 |.. #pix2|-1,#piy1|
|00000a40| 2d 34 2c 23 70 69 78 32 | 2d 31 2c 23 70 69 79 32 |-4,#pix2|-1,#piy2|
|00000a50| 2b 34 2c 63 6f 6c 00 00 | 20 20 63 6f 6c 3d 31 20 |+4,col..| col=1 |
|00000a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a80| 3b 44 72 61 77 20 69 6e | 20 30 25 20 61 6e 64 20 |;Draw in| 0% and |
|00000a90| 31 30 30 25 20 69 6e 64 | 69 63 61 74 6f 72 73 2e |100% ind|icators.|
|00000aa0| 00 20 20 c5 10 20 23 70 | 69 78 31 2d 36 2c 23 70 |. .. #p|ix1-6,#p|
|00000ab0| 69 79 32 2d 35 00 20 20 | dd 81 20 22 30 25 22 00 |iy2-5. |.. "0%".|
|00000ac0| 20 20 c5 10 20 23 70 69 | 78 32 2d 32 36 2c 23 70 | .. #pi|x2-26,#p|
|00000ad0| 69 79 32 2d 35 00 20 20 | dd 81 20 22 31 30 30 25 |iy2-5. |.. "100%|
|00000ae0| 22 00 20 20 dd 84 20 22 | 23 23 23 22 20 20 20 20 |". .. "|###" |
|00000af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b00| 20 20 20 20 20 20 3b 46 | 6f 72 6d 61 74 20 73 74 | ;F|ormat st|
|00000b10| 72 69 6e 67 20 66 6f 72 | 20 25 20 43 6f 6d 70 6c |ring for| % Compl|
|00000b20| 65 74 65 2e 00 80 02 20 | 80 08 00 00 80 08 20 70 |ete.... |...... p|
|00000b30| 72 6f 67 72 65 73 73 7b | 70 65 72 63 65 6e 74 61 |rogress{|percenta|
|00000b40| 67 65 7d 00 3b 50 72 6f | 67 72 65 73 73 20 42 61 |ge}.;Pro|gress Ba|
|00000b50| 72 20 70 6f 73 69 74 69 | 6f 6e 20 72 6f 75 74 69 |r positi|on routi|
|00000b60| 6e 65 00 3b 20 2d 20 70 | 65 72 63 65 6e 74 61 67 |ne.; - p|ercentag|
|00000b70| 65 20 69 73 20 74 68 65 | 20 63 75 72 72 65 6e 74 |e is the| current|
|00000b80| 20 70 65 72 63 65 6e 74 | 61 67 65 20 74 6f 20 62 | percent|age to b|
|00000b90| 65 20 73 68 6f 77 6e 20 | 62 79 20 69 6e 64 69 63 |e shown |by indic|
|00000ba0| 61 74 6f 72 20 62 61 72 | 2e 00 00 20 20 70 6f 73 |ator bar|... pos|
|00000bb0| 3d 28 28 70 65 72 63 65 | 6e 74 61 67 65 2a 28 28 |=((perce|ntage*((|
|00000bc0| 23 70 69 78 32 2d 33 29 | 2d 23 70 69 78 31 29 29 |#pix2-3)|-#pix1))|
|00000bd0| 2f 31 30 30 29 20 20 20 | 20 20 20 3b 43 6f 6e 76 |/100) | ;Conv|
|00000be0| 65 72 74 20 70 65 72 63 | 65 6e 74 61 67 65 20 74 |ert perc|entage t|
|00000bf0| 6f 20 70 69 78 65 6c 00 | 20 20 20 20 20 20 20 20 |o pixel.| |
|00000c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c20| 20 20 20 20 20 20 20 20 | 3b 76 61 6c 75 65 73 2e | |;values.|
|00000c30| 00 00 20 20 c5 0c 20 23 | 70 69 78 31 2b 32 2c 23 |.. .. #|pix1+2,#|
|00000c40| 70 69 79 31 2b 32 2c 23 | 70 69 78 31 2b 31 2b 70 |piy1+2,#|pix1+1+p|
|00000c50| 6f 73 2c 23 70 69 79 32 | 2d 32 2c 37 20 20 20 20 |os,#piy2|-2,7 |
|00000c60| 3b 44 72 61 77 20 6d 61 | 69 6e 20 63 6f 6c 6f 75 |;Draw ma|in colou|
|00000c70| 72 20 70 61 72 74 20 6f | 66 20 62 61 72 00 00 20 |r part o|f bar.. |
|00000c80| 20 63 6f 6c 3d 32 20 20 | 20 20 20 20 20 20 20 20 | col=2 | |
|00000c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00000cb0| 44 72 61 77 20 48 69 67 | 68 6c 69 67 68 74 73 00 |Draw Hig|hlights.|
|00000cc0| 20 20 c5 1e 20 23 70 69 | 78 31 2b 31 2c 23 70 69 | .. #pi|x1+1,#pi|
|00000cd0| 79 31 2b 31 2c 23 70 69 | 78 31 2b 32 2b 70 6f 73 |y1+1,#pi|x1+2+pos|
|00000ce0| 2c 23 70 69 79 31 2b 31 | 2c 63 6f 6c 00 20 20 c5 |,#piy1+1|,col. .|
|00000cf0| 1e 20 23 70 69 78 31 2b | 31 2c 23 70 69 79 31 2b |. #pix1+|1,#piy1+|
|00000d00| 31 2c 23 70 69 78 31 2b | 31 2c 23 70 69 79 32 2d |1,#pix1+|1,#piy2-|
|00000d10| 32 2c 63 6f 6c 00 00 20 | 20 63 6f 6c 3d 31 20 20 |2,col.. | col=1 |
|00000d20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d40| 20 20 20 20 20 20 20 3b | 44 72 61 77 20 53 68 61 | ;|Draw Sha|
|00000d50| 64 6f 77 73 00 20 20 c5 | 1e 20 23 70 69 78 31 2b |dows. .|. #pix1+|
|00000d60| 31 2c 23 70 69 79 32 2d | 31 2c 23 70 69 78 31 2b |1,#piy2-|1,#pix1+|
|00000d70| 32 2b 70 6f 73 2c 23 70 | 69 79 32 2d 31 2c 63 6f |2+pos,#p|iy2-1,co|
|00000d80| 6c 00 20 20 c5 1e 20 23 | 70 69 78 31 2b 32 2b 70 |l. .. #|pix1+2+p|
|00000d90| 6f 73 2c 23 70 69 79 31 | 2b 32 2c 23 70 69 78 31 |os,#piy1|+2,#pix1|
|00000da0| 2b 32 2b 70 6f 73 2c 23 | 70 69 79 32 2d 31 2c 63 |+2+pos,#|piy2-1,c|
|00000db0| 6f 6c 00 00 20 20 c5 10 | 20 28 28 23 70 69 78 32 |ol.. ..| ((#pix2|
|00000dc0| 2d 23 70 69 78 31 29 2f | 32 29 2d 32 32 2c 23 70 |-#pix1)/|2)-22,#p|
|00000dd0| 69 79 32 2d 35 20 20 20 | 20 20 20 20 20 20 20 3b |iy2-5 | ;|
|00000de0| 50 72 69 6e 74 20 70 65 | 72 63 65 6e 74 61 67 65 |Print pe|rcentage|
|00000df0| 20 61 73 20 74 65 78 74 | 00 20 20 dd 81 20 dd 83 | as text|. .. ..|
|00000e00| 28 70 65 72 63 65 6e 74 | 61 67 65 29 2b 22 25 20 |(percent|age)+"% |
|00000e10| 43 6f 6d 70 6c 65 74 65 | 22 00 80 02 20 80 08 00 |Complete|"... ...|
|00000e20| 00 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00000e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 2d 2d 00 3b 20 42 65 6c | 6f 77 20 69 73 20 61 6e |--.; Bel|ow is an|
|00000e70| 20 65 78 61 6d 70 6c 65 | 20 75 73 61 67 65 20 6f | example| usage o|
|00000e80| 66 20 74 68 65 20 74 77 | 6f 20 72 6f 75 74 69 6e |f the tw|o routin|
|00000e90| 65 73 2c 20 22 73 65 74 | 75 70 70 72 6f 67 72 65 |es, "set|upprogre|
|00000ea0| 73 73 22 00 3b 20 61 6e | 64 20 22 70 72 6f 67 72 |ss".; an|d "progr|
|00000eb0| 65 73 73 22 2e 00 00 80 | cc 20 20 20 20 20 20 20 |ess"....|. |
|00000ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ee0| 20 20 20 3b 44 6f 6e 27 | 74 20 6f 70 65 6e 20 75 | ;Don'|t open u|
|00000ef0| 70 20 64 65 66 61 75 6c | 74 20 77 69 6e 64 6f 77 |p defaul|t window|
|00000f00| 00 00 cf 02 20 30 00 ff | b5 00 00 73 65 74 75 70 |.... 0..|...setup|
|00000f10| 70 72 6f 67 72 65 73 73 | 7b 31 39 30 2c 39 30 7d |progress|{190,90}|
|00000f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f30| 20 20 20 20 20 20 20 20 | 20 20 3b 43 61 6c 6c 20 | | ;Call |
|00000f40| 69 6e 69 74 69 61 6c 69 | 73 61 74 69 6f 6e 00 00 |initiali|sation..|
|00000f50| 80 16 20 69 3d 30 20 80 | 18 20 31 30 30 20 20 20 |.. i=0 .|. 100 |
|00000f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 53 | | ;S|
|00000f80| 68 6f 77 20 70 72 6f 67 | 72 65 73 73 69 6f 6e 00 |how prog|ression.|
|00000f90| 20 20 70 72 6f 67 72 65 | 73 73 7b 69 7d 00 80 17 | progre|ss{i}...|
|00000fa0| 00 00 80 0a 00 ff b4 00 | 00 |........|. |
+--------+-------------------------+-------------------------+--------+--------+
