/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / j / jfs_std / !JFShared / BasicLib / ForceLib

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 f4 20 3e 20 | 46 6f 72 63 65 4c 69 62 |..... > |ForceLib|
|00000010| 0d 00 14 3f f4 20 4c 69 | 62 72 61 72 79 20 6f 66 |...?. Li|brary of|
|00000020| 20 42 61 73 69 63 20 52 | 6f 75 74 69 6e 65 73 20 | Basic R|outines |
|00000030| 74 6f 20 66 6f 72 63 65 | 20 6f 74 68 65 72 20 74 |to force| other t|
|00000040| 61 73 6b 73 20 74 6f 20 | 70 65 72 66 6f 72 6d 0d |asks to |perform.|
|00000050| 00 1e 32 f4 20 6f 70 65 | 72 61 74 69 6f 6e 73 20 |..2. ope|rations |
|00000060| 75 73 75 61 6c 6c 79 20 | 61 73 73 6f 63 69 61 74 |usually |associat|
|00000070| 65 64 20 77 69 74 68 20 | 74 68 65 20 57 49 4d 50 |ed with |the WIMP|
|00000080| 2e 0d 00 28 22 f4 20 65 | 67 20 62 75 74 74 6f 6e |...(". e|g button|
|00000090| 20 63 6c 69 63 6b 73 2c | 20 6d 65 6e 75 73 2c 20 | clicks,| menus, |
|000000a0| 65 74 63 0d 00 32 05 f4 | 0d 00 3c 26 85 20 30 2c |etc..2..|..<&. 0,|
|000000b0| 22 44 6f 20 6e 6f 74 20 | 72 75 6e 20 74 68 65 20 |"Do not |run the |
|000000c0| 46 6f 72 63 65 20 4c 69 | 62 72 61 72 79 22 0d 00 |Force Li|brary"..|
|000000d0| 3d 05 e0 0d 00 3e 05 3a | 0d 00 3f 0f dd f2 69 6e |=....>.:|..?...in|
|000000e0| 69 74 66 6f 72 63 65 0d | 00 40 05 e1 0d 00 46 05 |itforce.|.@....F.|
|000000f0| 3a 0d 00 50 1d dd f2 66 | 6f 72 63 65 6f 70 65 6e |:..P...f|orceopen|
|00000100| 6d 65 6e 75 28 74 61 73 | 6b 2c 77 69 6e 29 0d 00 |menu(tas|k,win)..|
|00000110| 5a 3a f2 67 65 74 70 74 | 72 70 6f 73 28 70 78 2c |Z:.getpt|rpos(px,|
|00000120| 70 79 2c 74 2c 74 29 3a | f2 66 6f 72 63 65 62 75 |py,t,t):|.forcebu|
|00000130| 74 74 6f 6e 63 6c 69 63 | 6b 28 74 61 73 6b 2c 77 |ttonclic|k(task,w|
|00000140| 69 6e 2c 2d 31 2c 32 29 | 0d 00 5b 09 f2 50 6f 6c |in,-1,2)|..[..Pol|
|00000150| 6c 0d 00 64 05 e1 0d 00 | 6e 27 dd f2 66 6f 72 63 |l..d....|n'..forc|
|00000160| 65 6f 70 65 6e 73 75 62 | 28 74 61 73 6b 2c 6d 65 |eopensub|(task,me|
|00000170| 6e 75 2c 73 75 62 31 2c | 73 75 62 32 29 0d 00 78 |nu,sub1,|sub2)..x|
|00000180| 36 62 25 21 30 3d 36 34 | 3a 62 25 21 34 3d 74 61 |6b%!0=64|:b%!4=ta|
|00000190| 73 6b 3a 62 25 21 38 3d | 68 61 6e 64 6c 65 3a 62 |sk:b%!8=|handle:b|
|000001a0| 25 21 31 32 3d 30 3a 62 | 25 21 31 36 3d 26 34 30 |%!12=0:b|%!16=&40|
|000001b0| 30 43 30 0d 00 82 20 62 | 25 21 32 30 3d 31 3a 62 |0C0... b|%!20=1:b|
|000001c0| 25 21 32 34 3d 70 78 2d | 36 34 3a 62 25 21 32 38 |%!24=px-|64:b%!28|
|000001d0| 3d 70 79 0d 00 8c 2d 62 | 25 21 33 32 3d 6d 65 6e |=py...-b|%!32=men|
|000001e0| 75 3a 62 25 21 33 36 3d | 73 75 62 31 3a 62 25 21 |u:b%!36=|sub1:b%!|
|000001f0| 34 30 3d 73 75 62 32 3a | 62 25 21 34 34 3d 2d 31 |40=sub2:|b%!44=-1|
|00000200| 0d 00 96 24 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |...$.. "|Wimp_Sen|
|00000210| 64 4d 65 73 73 61 67 65 | 22 2c 31 37 2c 62 25 2c |dMessage|",17,b%,|
|00000220| 74 61 73 6b 0d 00 97 09 | f2 50 6f 6c 6c 0d 00 a0 |task....|.Poll...|
|00000230| 05 e1 0d 00 aa 2f dd f2 | 66 6f 72 63 65 6d 65 6e |...../..|forcemen|
|00000240| 75 73 65 6c 65 63 74 28 | 74 61 73 6b 2c 6d 65 6e |uselect(|task,men|
|00000250| 75 2c 73 75 62 31 2c 73 | 75 62 32 2c 73 75 62 33 |u,sub1,s|ub2,sub3|
|00000260| 29 0d 00 b4 35 62 25 21 | 30 3d 6d 65 6e 75 3a 62 |)...5b%!|0=menu:b|
|00000270| 25 21 34 3d 73 75 62 31 | 3a 62 25 21 38 3d 73 75 |%!4=sub1|:b%!8=su|
|00000280| 62 32 3a 62 25 21 31 32 | 3d 73 75 62 33 3a 62 25 |b2:b%!12|=sub3:b%|
|00000290| 21 31 36 3d 2d 31 0d 00 | be 23 c8 99 20 22 57 69 |!16=-1..|.#.. "Wi|
|000002a0| 6d 70 5f 53 65 6e 64 4d | 65 73 73 61 67 65 22 2c |mp_SendM|essage",|
|000002b0| 39 2c 62 25 2c 74 61 73 | 6b 0d 00 c8 22 f2 50 6f |9,b%,tas|k...".Po|
|000002c0| 6c 6c 3a c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |ll:.. "W|imp_Crea|
|000002d0| 74 65 4d 65 6e 75 22 2c | 2c 2d 31 0d 00 d2 05 e1 |teMenu",|,-1.....|
|000002e0| 0d 00 dc 2f dd f2 66 6f | 72 63 65 62 75 74 74 6f |.../..fo|rcebutto|
|000002f0| 6e 63 6c 69 63 6b 28 74 | 61 73 6b 2c 77 69 6e 2c |nclick(t|ask,win,|
|00000300| 69 63 6f 6e 2c 62 75 74 | 29 3a ea 20 78 2c 79 0d |icon,but|):. x,y.|
|00000310| 00 e6 41 f2 67 65 74 70 | 74 72 70 6f 73 28 78 2c |..A.getp|trpos(x,|
|00000320| 79 2c 74 2c 74 29 3a 62 | 25 21 30 3d 78 3a 62 25 |y,t,t):b|%!0=x:b%|
|00000330| 21 34 3d 79 3a 62 25 21 | 38 3d 32 3a 62 25 21 31 |!4=y:b%!|8=2:b%!1|
|00000340| 32 3d 77 69 6e 3a 62 25 | 21 31 36 3d 69 63 6f 6e |2=win:b%|!16=icon|
|00000350| 0d 00 f0 23 c8 99 20 22 | 57 69 6d 70 5f 53 65 6e |...#.. "|Wimp_Sen|
|00000360| 64 4d 65 73 73 61 67 65 | 22 2c 36 2c 62 25 2c 74 |dMessage|",6,b%,t|
|00000370| 61 73 6b 0d 00 fa 05 e1 | 0d 01 04 05 3a 0d 01 0e |ask.....|....:...|
|00000380| 3e dd a4 66 69 6e 64 6e | 61 6d 65 64 74 61 73 6b |>..findn|amedtask|
|00000390| 28 6e 61 6d 65 24 29 3a | ea 20 49 2c 74 24 2c 68 |(name$):|. I,t$,h|
|000003a0| 2c 6c 65 66 74 3a 49 3d | 6d 65 73 73 61 67 65 5f |,left:I=|message_|
|000003b0| 62 6c 6f 63 6b 25 3a 68 | 3d 2d 31 0d 01 18 41 c8 |block%:h|=-1...A.|
|000003c0| 99 20 22 54 61 73 6b 4d | 61 6e 61 67 65 72 5f 45 |. "TaskM|anager_E|
|000003d0| 6e 75 6d 65 72 61 74 65 | 54 61 73 6b 73 22 2c 2c |numerate|Tasks",,|
|000003e0| 6d 65 73 73 61 67 65 5f | 62 6c 6f 63 6b 25 2c 31 |message_|block%,1|
|000003f0| 30 32 34 20 b8 20 2c 2c | 6c 65 66 74 0d 01 22 05 |024 . ,,|left..".|
|00000400| f5 0d 01 2c 2b 20 68 3d | 21 49 3a 74 24 3d a4 73 |...,+ h=|!I:t$=.s|
|00000410| 74 72 69 6e 67 30 28 21 | 28 49 2b 34 29 3a 49 2b |tring0(!|(I+4):I+|
|00000420| 3d 31 36 3a 6c 65 66 74 | 2b 3d 31 36 0d 01 36 2a |=16:left|+=16..6*|
|00000430| fd 74 24 3d 6e 61 6d 65 | 24 20 84 20 6c 65 66 74 |.t$=name|$ . left|
|00000440| 3d 31 30 32 34 3a e7 20 | 74 24 3c 3e 6e 61 6d 65 |=1024:. |t$<>name|
|00000450| 24 8c 68 3d 2d 31 0d 01 | 40 06 3d 68 0d 01 4a 05 |$.h=-1..|@.=h..J.|
|00000460| 3a 0d 01 54 29 dd f2 66 | 69 6e 64 6e 61 6d 65 64 |:..T)..f|indnamed|
|00000470| 77 69 6e 64 6f 77 28 6e | 61 6d 65 24 2c f8 20 77 |window(n|ame$,. w|
|00000480| 69 6e 2c f8 20 74 61 73 | 6b 29 0d 01 5e 18 77 69 |in,. tas|k)..^.wi|
|00000490| 6e 3d 2d 31 3a 74 61 73 | 6b 3d 2d 31 3a ea 20 49 |n=-1:tas|k=-1:. I|
|000004a0| 2c 74 0d 01 68 15 49 3d | a4 62 61 63 6b 6f 66 77 |,t..h.I=|.backofw|
|000004b0| 69 6e 73 74 61 63 6b 0d | 01 72 05 f5 0d 01 7c 26 |instack.|.r....|&|
|000004c0| 20 21 62 25 3d 49 3a c8 | 99 20 22 57 69 6d 70 5f | !b%=I:.|. "Wimp_|
|000004d0| 47 65 74 57 69 6e 64 6f | 77 49 6e 66 6f 22 2c 2c |GetWindo|wInfo",,|
|000004e0| 62 25 0d 01 86 10 20 66 | 6c 61 67 73 3d 62 25 21 |b%.... f|lags=b%!|
|000004f0| 33 32 0d 01 90 5d 20 e7 | 20 28 28 66 6c 61 67 73 |32...] .| ((flags|
|00000500| 20 80 20 31 29 3e 30 20 | 80 20 28 66 6c 61 67 73 | . 1)>0 |. (flags|
|00000510| 20 80 20 28 31 3c 3c 33 | 31 29 29 3d 30 29 20 84 | . (1<<3|1))=0) .|
|00000520| 20 28 28 66 6c 61 67 73 | 20 80 20 28 31 3c 3c 32 | ((flags| . (1<<2|
|00000530| 36 29 29 3e 30 20 80 20 | 28 66 6c 61 67 73 20 80 |6))>0 . |(flags .|
|00000540| 20 28 31 3c 3c 33 31 29 | 29 3c 3e 30 29 20 8c 0d | (1<<31)|)<>0) ..|
|00000550| 01 9a 25 20 20 66 6c 61 | 67 73 3d 62 25 21 36 30 |..%  fla|gs=b%!60|
|00000560| 3a 74 61 73 6b 3d a4 77 | 69 6e 64 6f 77 74 61 73 |:task=.w|indowtas|
|00000570| 6b 28 49 29 0d 01 a4 19 | 20 20 e7 20 28 66 6c 61 |k(I)....|  . (fla|
|00000580| 67 73 20 80 20 32 35 36 | 29 3e 30 20 8c 0d 01 ae |gs . 256|)>0 ....|
|00000590| 25 20 20 20 61 24 3d a4 | 72 65 61 64 74 61 73 6b |%   a$=.|readtask|
|000005a0| 73 74 72 69 6e 67 28 74 | 61 73 6b 2c 62 25 21 37 |string(t|ask,b%!7|
|000005b0| 36 29 0d 01 b8 07 20 20 | cc 0d 01 c2 19 20 20 20 |6)....  |.....   |
|000005c0| 61 24 3d a4 73 74 72 69 | 6e 67 30 28 62 25 2b 37 |a$=.stri|ng0(b%+7|
|000005d0| 36 29 0d 01 cc 07 20 20 | cd 0d 01 d6 17 20 20 e7 |6)....  |.....  .|
|000005e0| 20 61 24 3d 6e 61 6d 65 | 24 20 8c 77 69 6e 3d 49 | a$=name|$ .win=I|
|000005f0| 0d 01 e0 06 20 cd 0d 01 | ea 21 20 e7 20 77 69 6e |.... ...|.! . win|
|00000600| 3d 2d 31 20 8c 49 3d a4 | 77 69 6e 73 74 61 63 6b |=-1 .I=.|winstack|
|00000610| 6e 65 78 74 28 49 29 0d | 01 f4 13 fd 20 49 3d 2d |next(I).|.... I=-|
|00000620| 31 20 84 20 77 69 6e 3e | 2d 31 0d 01 fe 15 e7 20 |1 . win>|-1..... |
|00000630| 77 69 6e 3d 2d 31 20 8c | 74 61 73 6b 3d 2d 31 0d |win=-1 .|task=-1.|
|00000640| 02 08 05 e1 0d ff       |                         |......  |        |
+--------+-------------------------+-------------------------+--------+--------+