/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / z / zap / !Zap / Code / Taskwindow

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 3b f4 20 52 65 | 70 6c 61 63 65 73 20 74 |...;. Re|places t|
|00000010| 68 65 20 54 61 73 6b 77 | 69 6e 64 6f 77 20 63 6f |he Taskw|indow co|
|00000020| 6d 6d 61 6e 64 20 74 6f | 20 6c 6f 61 64 20 5a 61 |mmand to| load Za|
|00000030| 70 20 63 6f 72 72 65 63 | 74 6c 79 0d 00 14 2d f4 |p correc|tly...-.|
|00000040| 20 28 49 6e 63 6c 75 64 | 65 73 20 27 43 68 65 63 | (Includ|es 'Chec|
|00000050| 6b 27 20 62 79 20 4d 69 | 6b 65 20 42 6f 72 63 68 |k' by Mi|ke Borch|
|00000060| 65 72 64 73 20 3a 2d 29 | 0d 00 1e 04 0d 00 28 0e |erds :-)|......(.|
|00000070| ee 20 85 20 f2 65 72 72 | 6f 72 0d 00 32 04 0d 00 |. . .err|or..2...|
|00000080| 3c 12 61 72 67 73 24 3d | a4 67 65 74 61 72 67 73 |<.args$=|.getargs|
|00000090| 0d 00 46 42 f4 20 73 65 | 74 20 77 69 6d 70 6c 73 |..FB. se|t wimpls|
|000000a0| 6f 74 20 73 69 7a 65 20 | 73 6f 20 74 68 69 73 20 |ot size |so this |
|000000b0| 64 6f 65 73 6e 27 74 20 | 74 61 6b 65 20 61 6c 6c |doesn't |take all|
|000000c0| 20 61 76 61 69 6c 61 62 | 6c 65 20 6d 65 6d 6f 72 | availab|le memor|
|000000d0| 79 21 0d 00 50 0f e0 3d | e0 2b 31 36 2a 31 30 32 |y!..P..=|.+16*102|
|000000e0| 34 0d 00 5a 2a e7 20 ac | 20 a4 74 65 73 74 63 74 |4..Z*. .| .testct|
|000000f0| 72 6c 28 61 72 67 73 24 | 29 20 8c 20 61 72 67 73 |rl(args$|) . args|
|00000100| 24 2b 3d 22 20 2d 63 74 | 72 6c 22 0d 00 64 1a e7 |$+=" -ct|rl"..d..|
|00000110| 20 ac 20 a4 63 68 65 63 | 6b 20 8c 20 f2 73 74 61 | . .chec|k . .sta|
|00000120| 72 74 7a 61 70 0d 00 6e | 36 f4 20 70 75 74 20 74 |rtzap..n|6. put t|
|00000130| 68 65 20 77 69 6d 70 73 | 6c 6f 74 20 62 61 63 6b |he wimps|lot back|
|00000140| 20 75 70 20 61 67 61 69 | 6e 20 28 5a 61 70 20 6e | up agai|n (Zap n|
|00000150| 6f 77 20 73 74 61 72 74 | 65 64 29 0d 00 78 25 c8 |ow start|ed)..x%.|
|00000160| 99 20 22 57 69 6d 70 5f | 53 6c 6f 74 53 69 7a 65 |. "Wimp_|SlotSize|
|00000170| 22 2c 2d 31 2c 2d 31 20 | b8 20 2c 6e 65 78 74 25 |",-1,-1 |. ,next%|
|00000180| 0d 00 82 23 e7 20 6e 65 | 78 74 25 3c 32 34 2a 31 |...#. ne|xt%<24*1|
|00000190| 30 32 34 20 8c 20 6e 65 | 78 74 25 3d 32 34 2a 31 |024 . ne|xt%=24*1|
|000001a0| 30 32 34 0d 00 8c 11 e0 | 3d 26 38 30 30 30 2b 6e |024.....|=&8000+n|
|000001b0| 65 78 74 25 0d 00 8d 22 | f4 20 63 72 65 61 74 65 |ext%..."|. create|
|000001c0| 20 74 68 65 20 74 61 73 | 6b 77 69 6e 64 6f 77 2e | the tas|kwindow.|
|000001d0| 20 50 68 65 77 21 0d 00 | 96 1b ff 28 22 25 54 61 | Phew!..|...("%Ta|
|000001e0| 73 6b 77 69 6e 64 6f 77 | 20 22 2b 61 72 67 73 24 |skwindow| "+args$|
|000001f0| 29 0d 00 a0 04 0d 00 aa | 05 e0 0d 00 b4 04 0d 00 |).......|........|
|00000200| be 2a f4 20 4c 6f 61 64 | 20 5a 61 70 20 61 6e 64 |.*. Load| Zap and|
|00000210| 20 77 61 69 74 20 27 74 | 69 6c 6c 20 69 74 27 73 | wait 't|ill it's|
|00000220| 20 72 75 6e 6e 69 6e 67 | 0d 00 c8 04 0d 00 d2 0f | running|........|
|00000230| dd 20 f2 73 74 61 72 74 | 7a 61 70 0d 00 dc 17 f4 |. .start|zap.....|
|00000240| 20 70 72 65 73 65 72 76 | 65 20 4f 62 65 79 24 44 | preserv|e Obey$D|
|00000250| 69 72 0d 00 e6 0f de 20 | 6f 62 65 79 25 20 32 35 |ir..... |obey% 25|
|00000260| 36 0d 00 f0 3f c8 99 20 | 22 58 4f 53 5f 52 65 61 |6...?.. |"XOS_Rea|
|00000270| 64 56 61 72 56 61 6c 22 | 2c 22 4f 62 65 79 24 44 |dVarVal"|,"Obey$D|
|00000280| 69 72 22 2c 6f 62 65 79 | 25 2c 32 35 36 2c 30 2c |ir",obey|%,256,0,|
|00000290| 30 20 b8 20 2c 2c 6f 6c | 25 2c 2c 6f 74 25 3b 66 |0 . ,,ol|%,,ot%;f|
|000002a0| 0d 00 fa 16 e7 20 28 66 | 20 80 20 31 29 20 8c 20 |..... (f| . 1) . |
|000002b0| 6f 6c 25 3d 2d 31 0d 01 | 04 19 f4 20 70 72 65 73 |ol%=-1..|... pres|
|000002c0| 65 72 76 65 20 50 72 65 | 66 69 78 24 44 69 72 0d |erve Pre|fix$Dir.|
|000002d0| 01 0e 11 de 20 70 72 65 | 66 69 78 25 20 32 35 36 |.... pre|fix% 256|
|000002e0| 0d 01 18 43 c8 99 20 22 | 58 4f 53 5f 52 65 61 64 |...C.. "|XOS_Read|
|000002f0| 56 61 72 56 61 6c 22 2c | 22 50 72 65 66 69 78 24 |VarVal",|"Prefix$|
|00000300| 44 69 72 22 2c 70 72 65 | 66 69 78 25 2c 32 35 36 |Dir",pre|fix%,256|
|00000310| 2c 30 2c 30 20 b8 20 2c | 2c 70 6c 25 2c 2c 70 74 |,0,0 . ,|,pl%,,pt|
|00000320| 25 3b 66 0d 01 22 16 e7 | 20 28 66 20 80 20 31 29 |%;f.."..| (f . 1)|
|00000330| 20 8c 20 70 6c 25 3d 2d | 31 0d 01 2c 04 0d 01 36 | . pl%=-|1..,...6|
|00000340| 22 f4 20 73 74 61 72 74 | 20 77 69 6d 70 20 74 61 |". start| wimp ta|
|00000350| 73 6b 20 61 6e 64 20 6c | 6f 61 64 20 7a 61 70 0d |sk and l|oad zap.|
|00000360| 01 40 0e de 20 62 6c 6b | 25 20 32 35 36 0d 01 4a |.@.. blk|% 256..J|
|00000370| 3d c8 99 20 22 57 69 6d | 70 5f 49 6e 69 74 69 61 |=.. "Wim|p_Initia|
|00000380| 6c 69 73 65 22 2c 32 30 | 30 2c 26 34 42 35 33 34 |lise",20|0,&4B534|
|00000390| 31 35 34 2c 22 53 74 61 | 72 74 20 5a 61 70 22 2c |154,"Sta|rt Zap",|
|000003a0| 30 20 b8 20 2c 74 61 73 | 6b 25 0d 01 54 0b 71 75 |0 . ,tas|k%..T.qu|
|000003b0| 69 74 25 3d a3 0d 01 5e | 21 ff 28 22 46 69 6c 65 |it%=...^|!.("File|
|000003c0| 72 5f 52 75 6e 20 3c 5a | 61 70 24 44 69 72 3e 2e |r_Run <Z|ap$Dir>.|
|000003d0| 21 52 75 6e 22 29 0d 01 | 68 05 f5 0d 01 72 28 c8 |!Run")..|h....r(.|
|000003e0| 99 20 22 57 69 6d 70 5f | 50 6f 6c 6c 22 2c 30 2c |. "Wimp_|Poll",0,|
|000003f0| 62 6c 6b 25 20 b8 20 65 | 76 65 6e 74 25 2c 64 61 |blk% . e|vent%,da|
|00000400| 74 61 25 0d 01 7c 0f c8 | 8e 20 65 76 65 6e 74 25 |ta%..|..|. event%|
|00000410| 20 ca 0d 01 86 10 20 c9 | 20 33 3a 71 75 69 74 25 | ..... .| 3:quit%|
|00000420| 3d b9 0d 01 90 1a 20 c9 | 20 31 37 2c 31 38 3a c8 |=..... .| 17,18:.|
|00000430| 8e 20 64 61 74 61 25 21 | 31 36 20 ca 0d 01 9a 1c |. data%!|16 .....|
|00000440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 c9 20 30 |        |     . 0|
|00000450| 3a 71 75 69 74 25 3d b9 | 0d 01 a4 11 20 20 20 20 |:quit%=.|....    |
|00000460| 20 20 20 20 20 20 20 20 | cb 0d 01 ae 05 cb 0d 01 |        |........|
|00000470| b8 16 e7 20 a4 63 68 65 | 63 6b 20 8c 20 71 75 69 |... .che|ck . qui|
|00000480| 74 25 3d b9 0d 01 c2 0b | fd 20 71 75 69 74 25 0d |t%=.....|. quit%.|
|00000490| 01 cc 27 c8 99 20 22 57 | 69 6d 70 5f 43 6c 6f 73 |..'.. "W|imp_Clos|
|000004a0| 65 44 6f 77 6e 22 2c 74 | 61 73 6b 25 2c 26 34 42 |eDown",t|ask%,&4B|
|000004b0| 35 33 34 31 35 34 0d 01 | d6 04 0d 01 e0 30 f4 20 |534154..|.....0. |
|000004c0| 52 65 73 74 6f 72 65 20 | 76 61 72 69 61 62 6c 65 |Restore |variable|
|000004d0| 73 20 28 77 69 74 68 20 | 74 65 72 6d 69 6e 61 74 |s (with |terminat|
|000004e0| 6f 72 73 20 61 64 64 65 | 64 29 0d 01 ea 0e e7 20 |ors adde|d)..... |
|000004f0| 6f 6c 25 3e 3d 30 20 8c | 0d 01 f4 13 20 3f 28 6f |ol%>=0 .|.... ?(o|
|00000500| 62 65 79 25 2b 6f 6c 25 | 29 3d 30 0d 01 fe 31 20 |bey%+ol%|)=0...1 |
|00000510| c8 99 20 22 4f 53 5f 53 | 65 74 56 61 72 56 61 6c |.. "OS_S|etVarVal|
|00000520| 22 2c 22 4f 62 65 79 24 | 44 69 72 22 2c 6f 62 65 |","Obey$|Dir",obe|
|00000530| 79 25 2c 6f 6c 25 2c 30 | 2c 6f 74 25 0d 02 08 05 |y%,ol%,0|,ot%....|
|00000540| cd 0d 02 12 0e e7 20 70 | 6c 25 3e 3d 30 20 8c 0d |...... p|l%>=0 ..|
|00000550| 02 1c 15 20 3f 28 70 72 | 65 66 69 78 25 2b 70 6c |... ?(pr|efix%+pl|
|00000560| 25 29 3d 30 0d 02 26 35 | 20 c8 99 20 22 4f 53 5f |%)=0..&5| .. "OS_|
|00000570| 53 65 74 56 61 72 56 61 | 6c 22 2c 22 50 72 65 66 |SetVarVa|l","Pref|
|00000580| 69 78 24 44 69 72 22 2c | 70 72 65 66 69 78 25 2c |ix$Dir",|prefix%,|
|00000590| 70 6c 25 2c 30 2c 70 74 | 25 0d 02 30 05 cd 0d 02 |pl%,0,pt|%..0....|
|000005a0| 3a 05 e1 0d 02 44 04 0d | 02 4e 2b f4 20 72 65 74 |:....D..|.N+. ret|
|000005b0| 75 72 6e 20 54 52 55 45 | 20 69 66 20 74 68 65 20 |urn TRUE| if the |
|000005c0| 63 74 72 6c 20 6f 70 74 | 69 6f 6e 20 69 73 20 73 |ctrl opt|ion is s|
|000005d0| 65 74 0d 02 58 04 0d 02 | 62 13 dd 20 a4 74 65 73 |et..X...|b.. .tes|
|000005e0| 74 63 74 72 6c 28 61 24 | 29 0d 02 6c 08 70 25 3d |tctrl(a$|)..l.p%=|
|000005f0| 31 0d 02 76 05 f5 0d 02 | 80 19 20 61 72 67 24 3d |1..v....|.. arg$=|
|00000600| a4 6e 65 78 74 61 72 67 | 28 61 24 2c 70 25 29 0d |.nextarg|(a$,p%).|
|00000610| 02 8a 36 20 e7 20 61 72 | 67 24 3d 22 2d 63 74 72 |..6 . ar|g$="-ctr|
|00000620| 6c 22 20 84 20 61 72 67 | 24 3d 22 2d 43 74 72 6c |l" . arg|$="-Ctrl|
|00000630| 22 20 84 20 61 72 67 24 | 3d 22 2d 43 54 52 4c 22 |" . arg$|="-CTRL"|
|00000640| 20 8c 20 3d b9 0d 02 94 | 0d fd 20 61 72 67 24 3d | . =....|.. arg$=|
|00000650| 22 22 0d 02 9e 06 3d a3 | 0d 02 a8 04 0d 02 b2 3a |""....=.|.......:|
|00000660| f4 20 72 65 74 75 72 6e | 73 20 74 68 65 20 70 61 |. return|s the pa|
|00000670| 72 61 6d 65 74 65 72 20 | 70 61 72 74 20 6f 66 20 |rameter |part of |
|00000680| 74 68 65 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |the envi|ronment |
|00000690| 73 74 72 69 6e 67 0d 02 | bc 04 0d 02 c6 0e dd 20 |string..|....... |
|000006a0| a4 67 65 74 61 72 67 73 | 0d 02 d0 17 c8 99 20 22 |.getargs|...... "|
|000006b0| 4f 53 5f 47 65 74 45 6e | 76 22 20 b8 20 61 25 0d |OS_GetEn|v" . a%.|
|000006c0| 02 da 12 61 24 3d a4 67 | 65 74 73 74 72 28 61 25 |...a$=.g|etstr(a%|
|000006d0| 29 0d 02 e4 08 70 25 3d | 31 0d 02 ee 26 61 72 67 |)....p%=|1...&arg|
|000006e0| 24 3d a4 6e 65 78 74 61 | 72 67 28 61 24 2c 70 25 |$=.nexta|rg(a$,p%|
|000006f0| 29 20 3a f4 20 53 6b 69 | 70 20 42 41 53 49 43 0d |) :. Ski|p BASIC.|
|00000700| 02 f8 26 61 72 67 24 3d | a4 6e 65 78 74 61 72 67 |..&arg$=|.nextarg|
|00000710| 28 61 24 2c 70 25 29 20 | 3a f4 20 53 6b 69 70 20 |(a$,p%) |:. Skip |
|00000720| 2d 71 75 69 74 0d 03 02 | 29 61 72 67 24 3d a4 6e |-quit...|)arg$=.n|
|00000730| 65 78 74 61 72 67 28 61 | 24 2c 70 25 29 20 3a f4 |extarg(a|$,p%) :.|
|00000740| 20 53 6b 69 70 20 46 69 | 6c 65 6e 61 6d 65 0d 03 | Skip Fi|lename..|
|00000750| 0c 10 e7 20 70 25 3d 30 | 20 8c 20 3d 22 22 0d 03 |... p%=0| . =""..|
|00000760| 16 0c 3d c1 61 24 2c 70 | 25 29 0d 03 20 04 0d 03 |..=.a$,p|%).. ...|
|00000770| 2a 3a f4 20 6d 6f 76 65 | 20 70 25 20 74 6f 20 74 |*:. move| p% to t|
|00000780| 68 65 20 73 74 61 72 74 | 20 6f 66 20 74 68 65 20 |he start| of the |
|00000790| 6e 65 78 74 20 61 72 67 | 75 6d 65 6e 74 20 2f 20 |next arg|ument / |
|000007a0| 30 20 69 66 20 65 6e 64 | 0d 03 34 21 f4 20 72 65 |0 if end|..4!. re|
|000007b0| 74 75 72 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |turn the| current|
|000007c0| 20 61 72 67 75 6d 65 6e | 74 0d 03 3e 04 0d 03 48 | argumen|t..>...H|
|000007d0| 17 dd 20 a4 6e 65 78 74 | 61 72 67 28 61 24 2c f8 |.. .next|arg(a$,.|
|000007e0| 20 70 25 29 0d 03 52 0e | ea 20 6f 70 25 2c 61 72 | p%)..R.|. op%,ar|
|000007f0| 67 24 0d 03 5c 0a 6f 70 | 25 3d 70 25 0d 03 66 1e |g$..\.op|%=p%..f.|
|00000800| e7 20 70 25 3c 31 20 84 | 20 70 25 3e a9 61 24 20 |. p%<1 .| p%>.a$ |
|00000810| 8c 20 70 25 3d 30 3a 3d | 22 22 0d 03 70 12 70 25 |. p%=0:=|""..p.p%|
|00000820| 3d a7 61 24 2c 22 20 22 | 2c 70 25 29 0d 03 7a 24 |=.a$," "|,p%)..z$|
|00000830| e7 20 70 25 3c 31 20 84 | 20 70 25 3e a9 61 24 20 |. p%<1 .| p%>.a$ |
|00000840| 8c 20 70 25 3d 30 3a 3d | c1 61 24 2c 6f 70 25 29 |. p%=0:=|.a$,op%)|
|00000850| 0d 03 84 18 61 72 67 24 | 3d c1 61 24 2c 6f 70 25 |....arg$|=.a$,op%|
|00000860| 2c 70 25 2d 6f 70 25 29 | 0d 03 8e 26 c8 95 20 c1 |,p%-op%)|...&.. .|
|00000870| 61 24 2c 70 25 2c 31 29 | 3d 22 20 22 20 80 20 70 |a$,p%,1)|=" " . p|
|00000880| 25 3c 3d a9 61 24 3a 70 | 25 2b 3d 31 3a ce 0d 03 |%<=.a$:p|%+=1:...|
|00000890| 98 1a e7 20 70 25 3c 31 | 20 84 20 70 25 3e a9 61 |... p%<1| . p%>.a|
|000008a0| 24 20 8c 20 70 25 3d 30 | 0d 03 a2 09 3d 61 72 67 |$ . p%=0|....=arg|
|000008b0| 24 0d 03 ac 04 0d 03 b6 | 21 f4 20 72 65 74 75 72 |$.......|!. retur|
|000008c0| 6e 73 20 54 52 55 45 20 | 69 66 20 5a 61 70 20 72 |ns TRUE |if Zap r|
|000008d0| 75 6e 6e 69 6e 67 0d 03 | c0 04 0d 03 ca 0c dd 20 |unning..|....... |
|000008e0| a4 63 68 65 63 6b 0d 03 | d4 0f de 20 62 75 66 66 |.check..|... buff|
|000008f0| 65 72 20 33 30 0d 03 de | 08 41 25 3d 30 0d 03 e8 |er 30...|.A%=0...|
|00000900| 05 f5 0d 03 f2 35 c8 99 | 20 22 54 61 73 6b 4d 61 |.....5..| "TaskMa|
|00000910| 6e 61 67 65 72 5f 45 6e | 75 6d 65 72 61 74 65 54 |nager_En|umerateT|
|00000920| 61 73 6b 73 22 2c 41 25 | 2c 62 75 66 66 65 72 2c |asks",A%|,buffer,|
|00000930| 33 30 20 b8 20 41 25 0d | 03 fc 0f e7 20 41 25 3c |30 . A%.|.... A%<|
|00000940| 30 20 8c 20 3d a3 0d 04 | 06 1b 74 61 73 6b 24 3d |0 . =...|..task$=|
|00000950| a4 67 65 74 73 74 72 28 | 62 75 66 66 65 72 21 34 |.getstr(|buffer!4|
|00000960| 29 0d 04 10 16 e7 20 74 | 61 73 6b 24 3d 22 5a 61 |)..... t|ask$="Za|
|00000970| 70 22 20 8c 20 3d b9 0d | 04 1a 0a fd 20 41 25 3c |p" . =..|.... A%<|
|00000980| 30 0d 04 24 06 3d a3 0d | 04 2e 04 0d 04 38 22 f4 |0..$.=..|.....8".|
|00000990| 20 72 65 74 75 72 6e 73 | 20 73 74 72 69 6e 67 20 | returns| string |
|000009a0| 61 74 20 61 64 64 72 65 | 73 73 20 61 25 0d 04 42 |at addre|ss a%..B|
|000009b0| 04 0d 04 4c 11 dd 20 a4 | 67 65 74 73 74 72 28 61 |...L.. .|getstr(a|
|000009c0| 25 29 0d 04 56 09 61 24 | 3d 22 22 0d 04 60 20 c8 |%)..V.a$|=""..` .|
|000009d0| 95 20 28 3f 61 25 3e 33 | 31 29 3a 61 24 2b 3d bd |. (?a%>3|1):a$+=.|
|000009e0| 3f 61 25 3a 61 25 2b 3d | 31 3a ce 0d 04 6a 07 3d |?a%:a%+=|1:...j.=|
|000009f0| 61 24 0d 04 74 04 0d 04 | 7e 0c dd 20 f2 65 72 72 |a$..t...|~.. .err|
|00000a00| 6f 72 0d 04 88 15 f6 3a | f1 20 22 20 61 74 20 6c |or.....:|. " at l|
|00000a10| 69 6e 65 20 22 3b 9e 0d | 04 92 05 e0 0d ff       |ine ";..|......  |
+--------+-------------------------+-------------------------+--------+--------+