� ViewLog
� By The Mad Hamster

(&� taskid%4 ,q% 100:$taskid%="TASK"
2� buffer 256
<log$="<Track$Dir>.LogFile"
F<ș "Wimp_Initialise",200,!taskid%,"KeepTrack" � version%
P�checklog(log$)
Z� exists=0 � �end
d� mine=0 � �end
n7ș "Wimp_StartTask","Filer_Run <Track$Dir>.LogFile"
x�end
��
�
���checklog(file$)
�exists=1
�
mine=1
�Iș "OS_File", 17, file$ � type%, , load%, exec%, length%, attributes%
�J� type%=1 � (attributes% � (1<<3))=(1<<3) � ș "OS_File",4,file$,,,,19
�� type%=0 � exists=0
�� type%>1 � mine=0
��
�
�	��end
�ș "Wimp_CloseDown"

�

�
�

00000000  0d 00 0a 0d f4 20 56 69  65 77 4c 6f 67 0d 00 14  |..... ViewLog...|
00000010  18 f4 20 42 79 20 54 68  65 20 4d 61 64 20 48 61  |.. By The Mad Ha|
00000020  6d 73 74 65 72 0d 00 1e  04 0d 00 28 26 de 20 74  |mster......(&. t|
00000030  61 73 6b 69 64 25 34 20  2c 71 25 20 31 30 30 3a  |askid%4 ,q% 100:|
00000040  24 74 61 73 6b 69 64 25  3d 22 54 41 53 4b 22 0d  |$taskid%="TASK".|
00000050  00 32 10 de 20 62 75 66  66 65 72 20 32 35 36 0d  |.2.. buffer 256.|
00000060  00 3c 1e 6c 6f 67 24 3d  22 3c 54 72 61 63 6b 24  |.<.log$="<Track$|
00000070  44 69 72 3e 2e 4c 6f 67  46 69 6c 65 22 0d 00 46  |Dir>.LogFile"..F|
00000080  3c c8 99 20 22 57 69 6d  70 5f 49 6e 69 74 69 61  |<.. "Wimp_Initia|
00000090  6c 69 73 65 22 2c 32 30  30 2c 21 74 61 73 6b 69  |lise",200,!taski|
000000a0  64 25 2c 22 4b 65 65 70  54 72 61 63 6b 22 20 b8  |d%,"KeepTrack" .|
000000b0  20 76 65 72 73 69 6f 6e  25 0d 00 50 13 f2 63 68  | version%..P..ch|
000000c0  65 63 6b 6c 6f 67 28 6c  6f 67 24 29 0d 00 5a 15  |ecklog(log$)..Z.|
000000d0  e7 20 65 78 69 73 74 73  3d 30 20 8c 20 f2 65 6e  |. exists=0 . .en|
000000e0  64 0d 00 64 13 e7 20 6d  69 6e 65 3d 30 20 8c 20  |d..d.. mine=0 . |
000000f0  f2 65 6e 64 0d 00 6e 37  c8 99 20 22 57 69 6d 70  |.end..n7.. "Wimp|
00000100  5f 53 74 61 72 74 54 61  73 6b 22 2c 22 46 69 6c  |_StartTask","Fil|
00000110  65 72 5f 52 75 6e 20 3c  54 72 61 63 6b 24 44 69  |er_Run <Track$Di|
00000120  72 3e 2e 4c 6f 67 46 69  6c 65 22 0d 00 78 08 f2  |r>.LogFile"..x..|
00000130  65 6e 64 0d 00 82 05 e0  0d 00 8c 04 0d 00 96 15  |end.............|
00000140  dd f2 63 68 65 63 6b 6c  6f 67 28 66 69 6c 65 24  |..checklog(file$|
00000150  29 0d 00 a0 0c 65 78 69  73 74 73 3d 31 0d 00 aa  |)....exists=1...|
00000160  0a 6d 69 6e 65 3d 31 0d  00 b4 49 c8 99 20 22 4f  |.mine=1...I.. "O|
00000170  53 5f 46 69 6c 65 22 2c  20 31 37 2c 20 66 69 6c  |S_File", 17, fil|
00000180  65 24 20 b8 20 74 79 70  65 25 2c 20 2c 20 6c 6f  |e$ . type%, , lo|
00000190  61 64 25 2c 20 65 78 65  63 25 2c 20 6c 65 6e 67  |ad%, exec%, leng|
000001a0  74 68 25 2c 20 61 74 74  72 69 62 75 74 65 73 25  |th%, attributes%|
000001b0  0d 00 be 4a e7 20 74 79  70 65 25 3d 31 20 80 20  |...J. type%=1 . |
000001c0  28 61 74 74 72 69 62 75  74 65 73 25 20 80 20 28  |(attributes% . (|
000001d0  31 3c 3c 33 29 29 3d 28  31 3c 3c 33 29 20 8c 20  |1<<3))=(1<<3) . |
000001e0  c8 99 20 22 4f 53 5f 46  69 6c 65 22 2c 34 2c 66  |.. "OS_File",4,f|
000001f0  69 6c 65 24 2c 2c 2c 2c  31 39 0d 00 c8 18 e7 20  |ile$,,,,19..... |
00000200  74 79 70 65 25 3d 30 20  8c 20 65 78 69 73 74 73  |type%=0 . exists|
00000210  3d 30 0d 00 d2 16 e7 20  74 79 70 65 25 3e 31 20  |=0..... type%>1 |
00000220  8c 20 6d 69 6e 65 3d 30  0d 00 dc 05 e1 0d 00 e6  |. mine=0........|
00000230  04 0d 00 f0 09 dd f2 65  6e 64 0d 00 fa 17 c8 99  |.......end......|
00000240  20 22 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  | "Wimp_CloseDown|
00000250  22 0d 01 04 05 e0 0d 01  0e 05 e1 0d ff           |"............|
0000025d