/ The Datafile PD-CD 3 / PDCD_3.iso / utilities / utilst / wimpres / Code

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 57 69 | 6d 70 20 6c 69 62 72 61 |..... Wi|mp libra|
|00000010| 72 79 0d 00 14 25 f4 20 | 42 79 20 53 6f 66 74 77 |ry...%. |By Softw|
|00000020| 61 72 65 37 2c 20 4e 6f | 74 20 63 6f 70 79 72 69 |are7, No|t copyri|
|00000030| 67 68 74 3b 20 50 44 0d | 00 1e 33 f4 20 44 6f 6e |ght; PD.|..3. Don|
|00000040| 27 79 20 49 4e 53 54 41 | 4c 4c 20 69 74 2c 20 61 |'y INSTA|LL it, a|
|00000050| 64 61 70 74 20 69 74 20 | 77 69 74 68 20 79 6f 75 |dapt it |with you|
|00000060| 72 20 6f 77 6e 20 62 69 | 74 73 0d 00 1f 29 f4 20 |r own bi|ts...). |
|00000070| 54 68 69 73 20 63 6f 64 | 65 20 64 6f 65 73 6e 27 |This cod|e doesn'|
|00000080| 74 20 75 73 65 20 57 69 | 6d 70 45 78 74 65 6e 73 |t use Wi|mpExtens|
|00000090| 69 6f 6e 0d 00 20 2f f4 | 20 54 68 69 73 20 6d 6f |ion.. /.| This mo|
|000000a0| 64 75 6c 65 20 6d 61 6b | 65 73 20 74 68 69 6e 67 |dule mak|es thing|
|000000b0| 73 20 6d 75 63 68 20 6d | 75 63 68 20 6e 65 61 74 |s much m|uch neat|
|000000c0| 65 72 0d 00 28 04 0d 00 | 32 04 0d 00 3c 26 ee 20 |er..(...|2...<&. |
|000000d0| 85 20 f2 77 61 72 6e 28 | f6 24 2b 22 20 61 74 20 |. .warn(|.$+" at |
|000000e0| 6c 69 6e 65 20 22 2b c3 | 20 9e 29 3a f2 65 6e 64 |line "+.| .):.end|
|000000f0| 0d 00 46 04 0d 00 50 04 | 0d 00 5a 04 0d 00 64 2c |..F...P.|..Z...d,|
|00000100| de 20 62 25 20 32 35 36 | 2c 6d 25 20 32 35 36 2c |. b% 256|,m% 256,|
|00000110| 6d 25 20 32 35 36 2c 63 | 25 20 32 35 36 2c 61 63 |m% 256,c|% 256,ac|
|00000120| 63 65 73 73 25 20 31 32 | 0d 00 6e 28 de 20 74 6e |cess% 12|..n(. tn|
|00000130| 61 6d 65 25 20 33 32 2c | 69 62 25 20 31 30 32 34 |ame% 32,|ib% 1024|
|00000140| 2c 69 73 25 20 35 31 32 | 2c 66 24 28 32 35 36 29 |,is% 512|,f$(256)|
|00000150| 0d 00 78 04 0d 00 82 04 | 0d 00 8c 04 0d 00 96 3a |..x.....|.......:|
|00000160| c8 99 20 22 57 69 6d 70 | 5f 49 6e 69 74 69 61 6c |.. "Wimp|_Initial|
|00000170| 69 73 65 22 2c 32 30 30 | 2c 26 34 42 35 33 34 31 |ise",200|,&4B5341|
|00000180| 35 34 2c 22 54 61 73 6b | 20 6e 61 6d 65 22 20 b8 |54,"Task| name" .|
|00000190| 20 74 61 73 6b 25 0d 00 | a0 04 0d 00 a1 1e f4 20 | task%..|....... |
|000001a0| 43 6f 64 65 20 66 6f 72 | 20 6c 6f 61 64 69 6e 67 |Code for| loading|
|000001b0| 20 73 70 72 69 74 65 73 | 0d 00 aa 2e c8 99 20 22 | sprites|...... "|
|000001c0| 4f 53 5f 46 69 6c 65 22 | 2c 35 2c 22 3c 3e 2e 21 |OS_File"|,5,"<>.!|
|000001d0| 53 70 72 69 74 65 73 22 | 20 b8 20 2c 2c 2c 2c 6c |Sprites"| . ,,,,l|
|000001e0| 65 6e 67 74 68 25 0d 00 | b4 18 de 20 73 70 72 69 |ength%..|... spri|
|000001f0| 74 65 73 25 20 6c 65 6e | 67 74 68 25 2b 34 0d 00 |tes% len|gth%+4..|
|00000200| be 17 21 73 70 72 69 74 | 65 73 25 3d 6c 65 6e 67 |..!sprit|es%=leng|
|00000210| 74 68 25 2b 34 0d 00 c8 | 2d c8 99 20 22 4f 53 5f |th%+4...|-.. "OS_|
|00000220| 46 69 6c 65 22 2c 32 35 | 35 2c 22 3c 3e 2e 21 53 |File",25|5,"<>.!S|
|00000230| 70 72 69 74 65 73 22 2c | 73 70 72 69 74 65 73 25 |prites",|sprites%|
|00000240| 2b 34 0d 00 d2 12 62 61 | 72 25 3d a4 69 63 6f 6e |+4....ba|r%=.icon|
|00000250| 5f 62 61 72 0d 00 d3 0f | f4 20 45 6e 64 73 20 68 |_bar....|. Ends h|
|00000260| 65 72 65 0d 00 d4 04 0d | 00 dc 12 f2 63 72 65 61 |ere.....|....crea|
|00000270| 74 65 5f 77 69 6e 64 6f | 77 0d 00 e6 13 71 75 69 |te_windo|w....qui|
|00000280| 74 25 3d a3 3a 6f 6e 63 | 65 25 3d 30 0d 00 f0 06 |t%=.:onc|e%=0....|
|00000290| 20 f5 0d 00 fa 12 20 6f | 6e 63 65 25 3d 6f 6e 63 | ..... o|nce%=onc|
|000002a0| 65 25 2b 31 0d 01 04 1e | 20 20 c8 99 20 22 57 69 |e%+1....|  .. "Wi|
|000002b0| 6d 70 5f 50 6f 6c 6c 22 | 2c 31 2c 62 25 20 b8 20 |mp_Poll"|,1,b% . |
|000002c0| 72 25 0d 01 0e 0e 20 20 | 20 c8 8e 20 72 25 20 ca |r%....  | .. r% .|
|000002d0| 0d 01 18 3b 20 20 20 20 | 20 20 20 20 20 20 c9 20 |...;    |      . |
|000002e0| 32 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 c8 |2       |       .|
|000002f0| 99 20 22 57 69 6d 70 5f | 6f 70 65 6e 57 69 6e 64 |. "Wimp_|openWind|
|00000300| 6f 77 22 2c 2c 62 6c 6f | 63 6b 25 0d 01 19 3c 20 |ow",,blo|ck%...< |
|00000310| 20 20 20 20 20 20 20 20 | 20 c9 20 33 20 20 20 20 |        | . 3    |
|00000320| 20 20 20 20 20 20 20 20 | 20 20 c8 99 20 22 57 69 |        |  .. "Wi|
|00000330| 6d 70 5f 43 6c 6f 73 65 | 57 69 6e 64 6f 77 22 2c |mp_Close|Window",|
|00000340| 2c 62 6c 6f 63 6b 25 0d | 01 22 27 20 20 20 20 20 |,block%.|."'     |
|00000350| 20 20 20 20 20 c9 20 36 | 20 20 20 20 20 20 20 20 |     . 6|        |
|00000360| 20 20 20 20 20 20 3a f2 | 62 75 74 74 6f 6e 0d 01 |      :.|button..|
|00000370| 2c 25 20 20 20 20 20 20 | 20 20 20 20 c9 20 39 20 |,%      |    . 9 |
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f2 6d |        |     :.m|
|00000390| 65 6e 75 0d 01 36 28 20 | 20 20 20 20 20 20 20 20 |enu..6( |        |
|000003a0| 20 c9 20 31 37 2c 31 38 | 2c 31 39 20 20 20 20 20 | . 17,18|,19     |
|000003b0| 20 20 3a f2 72 65 63 69 | 65 76 65 0d 01 40 08 20 |  :.reci|eve..@. |
|000003c0| 20 20 cb 0d 01 4a 0c 20 | fd 20 71 75 69 74 25 0d |  ...J. |. quit%.|
|000003d0| 01 54 06 20 e0 0d 01 5e | 05 20 0d 01 68 05 20 0d |.T. ...^|. ..h. .|
|000003e0| 01 72 05 20 0d 01 7c 05 | 20 0d 01 86 0f dd 20 a4 |.r. ..|.| ..... .|
|000003f0| 69 63 6f 6e 5f 62 61 72 | 0d 01 90 0a 21 62 25 3d |icon_bar|....!b%=|
|00000400| 2d 31 0d 01 9a 11 62 25 | 21 34 3d 30 3a 62 25 21 |-1....b%|!4=0:b%!|
|00000410| 38 3d 30 0d 01 a4 15 62 | 25 21 31 32 3d 36 38 3a |8=0....b|%!12=68:|
|00000420| 62 25 21 31 36 3d 36 38 | 0d 01 ae 0f 62 25 21 32 |b%!16=68|....b%!2|
|00000430| 30 3d 26 32 31 30 32 0d | 01 b8 16 73 6e 61 6d 65 |0=&2102.|...sname|
|00000440| 24 3d 22 21 66 69 6c 65 | 69 6e 66 6f 22 0d 01 c2 |$="!file|info"...|
|00000450| 18 de 20 62 25 21 32 34 | 20 28 a9 20 73 6e 61 6d |.. b%!24| (. snam|
|00000460| 65 24 2b 31 29 0d 01 cc | 34 24 28 62 25 21 32 34 |e$+1)...|4$(b%!24|
|00000470| 29 3d 73 6e 61 6d 65 24 | 3a 62 25 21 32 38 3d 73 |)=sname$|:b%!28=s|
|00000480| 70 72 69 74 65 73 25 3a | 62 25 21 33 32 3d a9 28 |prites%:|b%!32=.(|
|00000490| 73 6e 61 6d 65 24 29 2b | 31 0d 01 d6 21 c8 99 20 |sname$)+|1...!.. |
|000004a0| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 49 63 6f 6e |"Wimp_Cr|eateIcon|
|000004b0| 22 2c 2c 62 25 20 b8 20 | 61 25 0d 01 e0 07 3d 61 |",,b% . |a%....=a|
|000004c0| 25 0d 01 ea 04 0d 01 f4 | 04 0d 01 fe 04 0d 02 08 |%.......|........|
|000004d0| 04 0d 02 12 0e dd 20 f2 | 72 65 63 69 65 76 65 0d |...... .|recieve.|
|000004e0| 02 1c 0f 20 c8 8e 20 62 | 25 21 31 36 20 ca 0d 02 |... .. b|%!16 ...|
|000004f0| 26 1c 20 20 20 c9 20 30 | 3a 20 20 20 20 20 20 20 |&.   . 0|:       |
|00000500| 20 20 20 20 20 20 f2 65 | 6e 64 0d 02 30 27 20 20 |      .e|nd..0'  |
|00000510| 20 f4 20 50 72 6f 67 72 | 61 6d 20 73 68 6f 75 6c | . Progr|am shoul|
|00000520| 64 20 72 65 73 70 6f 6e | 64 20 74 6f 20 26 35 30 |d respon|d to &50|
|00000530| 32 0d 02 3a 26 20 20 20 | f4 20 48 65 6c 70 20 72 |2..:&   |. Help r|
|00000540| 65 71 75 65 73 74 20 6d | 65 73 73 61 67 65 73 20 |equest m|essages |
|00000550| 61 73 20 77 65 6c 6c 0d | 02 44 08 20 20 20 f4 0d |as well.|.D.   ..|
|00000560| 02 4e 24 20 20 20 f4 20 | 49 74 20 6d 61 79 20 61 |.N$   . |It may a|
|00000570| 6c 73 6f 20 6e 65 65 64 | 20 74 6f 20 61 63 63 65 |lso need| to acce|
|00000580| 70 74 20 0d 02 58 22 20 | 20 20 f4 20 6d 65 73 73 |pt ..X" |  . mess|
|00000590| 61 67 65 20 33 2c 20 64 | 61 74 61 20 6c 6f 61 64 |age 3, d|ata load|
|000005a0| 20 28 41 4b 41 0d 02 62 | 26 20 20 20 f4 20 69 63 | (AKA..b|&   . ic|
|000005b0| 6f 6e 20 64 72 6f 70 65 | 64 20 6f 6e 20 62 61 72 |on drope|d on bar|
|000005c0| 20 6f 72 20 77 69 6e 64 | 6f 77 29 0d 02 6c 06 20 | or wind|ow)..l. |
|000005d0| cb 0d 02 76 05 e1 0d 02 | 80 04 0d 02 8a 04 0d 02 |...v....|........|
|000005e0| 94 04 0d 02 9e 04 0d 02 | a8 04 0d 02 b2 0d dd 20 |........|....... |
|000005f0| f2 62 75 74 74 6f 6e 0d | 02 bc 10 62 75 74 74 6f |.button.|...butto|
|00000600| 6e 25 3d 62 25 21 38 0d | 02 c6 11 20 c8 8e 20 62 |n%=b%!8.|... .. b|
|00000610| 75 74 74 6f 6e 25 20 ca | 0d 02 d0 09 20 20 c9 20 |utton% .|....  . |
|00000620| 32 0d 02 da 21 20 20 20 | f4 20 43 72 65 61 74 65 |2...!   |. Create|
|00000630| 20 6d 65 6e 75 20 66 6f | 72 20 69 63 6f 6e 20 62 | menu fo|r icon b|
|00000640| 61 72 0d 02 e4 16 20 20 | 20 f2 63 72 65 61 74 65 |ar....  | .create|
|00000650| 69 63 6f 6e 6d 65 6e 75 | 0d 02 ee 09 20 20 c9 20 |iconmenu|....  . |
|00000660| 34 0d 02 f8 35 20 20 20 | f4 20 44 6f 20 77 68 61 |4...5   |. Do wha|
|00000670| 74 20 65 76 65 72 20 79 | 6f 75 20 6c 69 6b 65 20 |t ever y|ou like |
|00000680| 77 68 65 6e 20 73 65 6c | 65 63 74 20 69 73 20 70 |when sel|ect is p|
|00000690| 72 65 73 73 65 64 0d 03 | 02 06 20 cb 0d 03 0c 0d |ressed..|.. .....|
|000006a0| e1 20 20 20 20 20 20 20 | 20 0d 03 16 04 0d 03 20 |.       | ...... |
|000006b0| 04 0d 03 2a 04 0d 03 34 | 04 0d 03 3e 04 0d 03 48 |...*...4|...>...H|
|000006c0| 11 dd 20 f2 77 61 72 6e | 28 65 72 72 24 29 0d 03 |.. .warn|(err$)..|
|000006d0| 52 09 21 62 25 3d 9f 0d | 03 5c 12 24 28 62 25 2b |R.!b%=..|.\.$(b%+|
|000006e0| 34 29 3d 28 65 72 72 24 | 29 0d 03 66 2a c8 99 20 |4)=(err$|)..f*.. |
|000006f0| 22 57 69 6d 70 5f 52 65 | 70 6f 72 74 45 72 72 6f |"Wimp_Re|portErro|
|00000700| 72 22 2c 62 25 2c 30 2c | 22 54 61 73 6b 20 6e 61 |r",b%,0,|"Task na|
|00000710| 6d 65 22 0d 03 70 05 e1 | 0d 03 7a 04 0d 03 84 04 |me"..p..|..z.....|
|00000720| 0d 03 8e 04 0d 03 98 04 | 0d 03 a2 04 0d 03 ac 04 |........|........|
|00000730| 0d 03 b6 04 0d 03 c0 04 | 0d 03 ca 0a dd 20 f2 65 |........|..... .e|
|00000740| 6e 64 0d 03 d4 17 c8 99 | 20 22 57 69 6d 70 5f 43 |nd......| "Wimp_C|
|00000750| 6c 6f 73 65 44 6f 77 6e | 22 0d 03 de 10 c8 99 20 |loseDown|"...... |
|00000760| 22 4f 53 5f 45 78 69 74 | 22 0d 03 e8 08 c8 98 3a |"OS_Exit|"......:|
|00000770| e1 0d 03 f2 04 0d 03 fc | 04 0d 04 06 04 0d 04 10 |........|........|
|00000780| 04 0d 04 1a 04 0d 04 24 | 05 20 0d 04 2e 05 20 0d |.......$|. .... .|
|00000790| 04 38 04 0d 04 42 04 0d | 04 4c 04 0d 04 56 04 0d |.8...B..|.L...V..|
|000007a0| 04 60 04 0d 04 6a 15 dd | 20 f2 63 72 65 61 74 65 |.`...j..| .create|
|000007b0| 69 63 6f 6e 6d 65 6e 75 | 0d 04 74 14 63 75 72 72 |iconmenu|..t.curr|
|000007c0| 6d 65 6e 75 24 3d 22 69 | 63 6f 6e 22 0d 04 7e 0f |menu$="i|con"..~.|
|000007d0| 69 74 25 3d 32 3a 6c 69 | 25 3d 30 0d 04 88 13 24 |it%=2:li|%=0....$|
|000007e0| 6d 25 3d 22 4d 65 6e 75 | 22 2b bd 28 30 29 0d 04 |m%="Menu|"+.(0)..|
|000007f0| 92 23 6d 25 3f 31 32 3d | 37 3a 6d 25 3f 31 33 3d |.#m%?12=|7:m%?13=|
|00000800| 32 3a 6d 25 3f 31 34 3d | 37 3a 6d 25 3f 31 35 3d |2:m%?14=|7:m%?15=|
|00000810| 30 0d 04 9c 25 6d 25 21 | 31 36 3d 39 36 3a 6d 25 |0...%m%!|16=96:m%|
|00000820| 21 32 30 3d 34 34 3a 6d | 25 21 32 34 3d 30 3a 6d |!20=44:m|%!24=0:m|
|00000830| 25 21 32 38 3d 30 0d 04 | a6 1e 6d 25 21 33 32 3d |%!28=0..|..m%!32=|
|00000840| 69 6e 66 6f 25 3a 6d 25 | 21 33 36 3d 26 37 30 30 |info%:m%|!36=&700|
|00000850| 30 30 32 31 0d 04 b0 18 | 24 28 6d 25 2b 34 30 29 |0021....|$(m%+40)|
|00000860| 3d 22 49 6e 66 6f 22 2b | bd 28 30 29 0d 04 ba 2b |="Info"+|.(0)...+|
|00000870| 6d 25 21 35 32 3d 25 31 | 30 30 30 30 30 30 30 3a |m%!52=%1|0000000:|
|00000880| 6d 25 21 35 36 3d 2d 31 | 3a 6d 25 21 36 30 3d 26 |m%!56=-1|:m%!60=&|
|00000890| 37 30 30 30 30 32 31 0d | 04 c4 27 24 28 6d 25 2b |7000021.|..'$(m%+|
|000008a0| 36 34 29 3d 22 51 75 69 | 74 22 2b bd 28 30 29 3a |64)="Qui|t"+.(0):|
|000008b0| 6d 65 6e 75 78 25 3d 62 | 25 21 30 2d 36 34 0d 04 |menux%=b|%!0-64..|
|000008c0| ce 21 6d 65 6e 75 79 25 | 3d 28 39 36 2b 28 69 74 |.!menuy%|=(96+(it|
|000008d0| 25 2a 34 34 29 2b 28 6c | 69 25 2a 32 34 29 29 0d |%*44)+(l|i%*24)).|
|000008e0| 04 d8 2a c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |..*.. "W|imp_Crea|
|000008f0| 74 65 4d 65 6e 75 22 2c | 2c 6d 25 2c 6d 65 6e 75 |teMenu",|,m%,menu|
|00000900| 78 25 2c 6d 65 6e 75 79 | 25 0d 04 e2 05 e1 0d 04 |x%,menuy|%.......|
|00000910| ec 04 0d 04 f6 04 0d 05 | 00 14 dd 20 f2 63 72 65 |........|... .cre|
|00000920| 61 74 65 5f 77 69 6e 64 | 6f 77 0d 05 0a 2e f4 20 |ate_wind|ow..... |
|00000930| 54 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 6f |This pro|cedure o|
|00000940| 6e 6c 79 20 63 72 65 61 | 74 65 73 20 74 68 65 20 |nly crea|tes the |
|00000950| 69 6e 66 6f 20 62 6f 78 | 0d 05 14 32 f4 20 28 49 |info box|...2. (I|
|00000960| 66 20 69 74 20 69 73 20 | 74 68 65 20 66 69 72 73 |f it is |the firs|
|00000970| 74 20 74 65 6d 70 6c 61 | 74 65 20 69 6e 20 74 68 |t templa|te in th|
|00000980| 65 20 66 69 6c 65 21 21 | 21 29 0d 05 1e 25 f4 20 |e file!!|!)...%. |
|00000990| 41 64 64 20 6d 6f 72 65 | 20 63 6f 64 65 20 66 6f |Add more| code fo|
|000009a0| 72 20 65 78 74 72 61 20 | 77 69 6e 64 6f 77 73 0d |r extra |windows.|
|000009b0| 05 28 28 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.((.. "W|imp_Open|
|000009c0| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 22 2e 54 65 6d |Template|",,".Tem|
|000009d0| 70 6c 61 74 65 73 22 0d | 05 32 19 24 28 74 6e 61 |plates".|.2.$(tna|
|000009e0| 6d 65 25 29 3d 22 49 6e | 66 6f 22 2b bd 28 30 29 |me%)="In|fo"+.(0)|
|000009f0| 0d 05 3c 37 c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |..<7.. "|Wimp_Loa|
|00000a00| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 69 62 25 2c |dTemplat|e",,ib%,|
|00000a10| 69 73 25 2c 69 73 25 2b | 35 31 32 2c 2d 31 2c 74 |is%,is%+|512,-1,t|
|00000a20| 6e 61 6d 65 25 2c 30 0d | 05 46 27 c8 99 20 22 57 |name%,0.|.F'.. "W|
|00000a30| 69 6d 70 5f 43 72 65 61 | 74 65 57 69 6e 64 6f 77 |imp_Crea|teWindow|
|00000a40| 22 2c 2c 69 62 25 20 b8 | 20 69 6e 66 6f 25 0d 05 |",,ib% .| info%..|
|00000a50| 50 05 e1 0d 05 5a 04 0d | 05 64 04 0d 05 6e 04 0d |P....Z..|.d...n..|
|00000a60| 05 78 0b dd 20 f2 6d 65 | 6e 75 0d 05 82 0d 69 74 |.x.. .me|nu....it|
|00000a70| 65 6d 25 3d 21 62 25 0d | 05 8c 2a f4 20 49 66 20 |em%=!b%.|..*. If |
|00000a80| 69 74 65 6d 25 20 69 73 | 20 31 20 74 68 65 6e 20 |item% is| 1 then |
|00000a90| 51 55 49 54 20 77 61 73 | 20 73 65 6c 65 63 74 65 |QUIT was| selecte|
|00000aa0| 64 0d 05 96 15 20 e7 20 | 69 74 65 6d 25 3d 31 20 |d.... . |item%=1 |
|00000ab0| 8c 20 f2 65 6e 64 0d 05 | a0 05 e1 0d ff          |. .end..|.....   |
+--------+-------------------------+-------------------------+--------+--------+