00000000  44 10 9f e5 3c 20 9f e5  34 30 9f e5 04 00 12 e4  |D...< ..40......|
00000010  04 00 03 e4 04 10 51 e2  fb ff ff 5a 00 00 8f e2  |......Q....Z....|
00000020  05 00 00 ef 42 41 53 49  43 20 2d 51 75 69 74 20  |....BASIC -Quit |
00000030  40 30 30 30 30 39 30 30  30 2c 30 30 30 30 39 37  |@00009000,000097|
00000040  42 38 00 e2 b8 97 00 00  14 88 00 00 b8 07 00 00  |B8..............|
00000050  49 44 43 20 31 32 2f 31  39 39 31 e5 0d 00 0a 08  |IDC 12/1991.....|
00000060  ee 85 f2 64 0d 00 14 af  61 24 3d 22 44 69 67 69  |...d....a$="Digi|
00000070  43 6c 6f 63 6b 22 3a 63  24 3d 22 3c 64 69 67 69  |Clock":c$="<digi|
00000080  24 64 69 72 3e 22 3a de  71 25 20 31 30 30 2c 62  |$dir>":.q% 100,b|
00000090  25 20 31 30 30 2c 76 25  20 31 30 30 3a 24 71 25  |% 100,v% 100:$q%|
000000a0  3d 22 54 41 53 4b 22 3a  c8 99 22 57 69 6d 70 5f  |="TASK":.."Wimp_|
000000b0  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
000000c0  21 71 25 2c 61 24 b8 2c  77 25 3a c8 99 20 22 4f  |!q%,a$.,w%:.. "O|
000000d0  53 5f 52 65 61 64 4d 6f  6e 6f 74 6f 6e 69 63 54  |S_ReadMonotonicT|
000000e0  69 6d 65 22 20 b8 20 6f  74 25 3a f2 73 28 63 24  |ime" . ot%:.s(c$|
000000f0  2b 22 2e 73 70 72 69 74  65 73 22 29 3a 65 25 3d  |+".sprites"):e%=|
00000100  a4 74 28 63 24 2b 22 2e  54 65 6d 70 6c 61 74 65  |.t(c$+".Template|
00000110  73 22 29 0d 00 1e 6a 63  6c 3d a3 3a 43 24 3d c2  |s")...jcl=.:C$=.|
00000120  91 24 2c 38 29 3a 62 24  3d 22 22 3a f2 62 3a 21  |.$,8):b$="":.b:!|
00000130  62 25 3d 6b 25 3a c8 99  22 57 69 6d 70 5f 47 65  |b%=k%:.."Wimp_Ge|
00000140  74 57 69 6e 64 6f 77 53  74 61 74 65 22 2c 2c 62  |tWindowState",,b|
00000150  25 3a 62 25 21 32 38 3d  2d 31 3a c8 99 22 57 69  |%:b%!28=-1:.."Wi|
00000160  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000170  62 25 3a f2 65 3a f2 6d  3a f2 66 3a e0 0d 00 28  |b%:.e:.m:.f:...(|
00000180  5c dd f2 73 28 66 24 29  3a 61 3d 8e 28 66 24 29  |\..s(f$):a=.(f$)|
00000190  3a 6c 25 3d a2 23 61 2b  31 36 3a d9 23 61 3a de  |:l%=.#a+16:.#a:.|
000001a0  63 25 20 6c 25 3a 21 63  25 3d 6c 25 3a 63 25 21  |c% l%:!c%=l%:c%!|
000001b0  38 3d 31 36 3a 63 25 21  31 32 3d 31 36 3a c8 99  |8=16:c%!12=16:..|
000001c0  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 32 36  |"OS_SpriteOp",26|
000001d0  36 2c 63 25 2c 66 24 3a  e1 0d 00 32 47 dd f2 6d  |6,c%,f$:...2G..m|
000001e0  3a 6e 25 3d a3 3a f5 3a  21 62 25 3d 33 36 30 32  |:n%=.:.:!b%=3602|
000001f0  3a c8 99 22 57 69 6d 70  5f 50 6f 6c 6c 49 64 6c  |:.."Wimp_PollIdl|
00000200  65 22 2c 26 38 31 39 33  32 2c 62 25 2c 6f 74 25  |e",&81932,b%,ot%|
00000210  20 b8 20 66 25 3a f2 61  28 66 25 29 3a fd 6e 25  | . f%:.a(f%):.n%|
00000220  0d 00 3c 05 e1 0d 00 46  11 dd f2 61 28 66 25 29  |..<....F...a(f%)|
00000230  3a c8 8e 66 25 ca 0d 00  50 49 c9 30 3a 43 24 3d  |:..f%...PI.0:C$=|
00000240  c2 91 24 2c 38 29 3a f2  62 3a c8 99 20 22 4f 53  |..$,8):.b:.. "OS|
00000250  5f 52 65 61 64 4d 6f 6e  6f 74 6f 6e 69 63 54 69  |_ReadMonotonicTi|
00000260  6d 65 22 20 b8 20 6e 74  25 3a c8 95 20 6f 74 25  |me" . nt%:.. ot%|
00000270  3c 6e 74 25 3a 6f 74 25  2b 3d 31 30 30 3a ce 0d  |<nt%:ot%+=100:..|
00000280  00 5a 1e c9 32 3a c8 99  22 57 69 6d 70 5f 4f 70  |.Z..2:.."Wimp_Op|
00000290  65 6e 57 69 6e 64 6f 77  22 2c 2c 62 25 0d 00 64  |enWindow",,b%..d|
000002a0  09 c9 33 3a f2 66 0d 00  6e 18 c9 36 3a f2 67 28  |..3:.f..n..6:.g(|
000002b0  21 62 25 2c 62 25 21 34  2c 62 25 21 38 29 0d 00  |!b%,b%!4,b%!8)..|
000002c0  78 09 c9 39 3a f2 68 0d  00 82 20 c9 31 37 2c 31  |x..9:.h... .17,1|
000002d0  38 3a e7 62 25 21 31 36  3d 30 84 62 25 21 31 36  |8:.b%!16=0.b%!16|
000002e0  3d 38 8c 6e 25 3d b9 0d  00 8c 26 e7 62 25 21 31  |=8.n%=....&.b%!1|
000002f0  36 3d 32 36 32 33 33 37  20 8c 20 62 24 3d 22 22  |6=262337 . b$=""|
00000300  3a 43 24 3d c2 91 24 2c  38 29 3a f2 62 0d 00 96  |:C$=..$,8):.b...|
00000310  07 cb 3a e1 0d 00 a0 24  dd f2 67 28 6f 25 2c 70  |..:....$..g(o%,p|
00000320  25 2c 67 25 29 3a e7 67  25 3d 32 8c f2 63 28 72  |%,g%):.g%=2..c(r|
00000330  25 2c 6f 25 2c 70 25 29  0d 00 aa 05 e1 0d 00 b4  |%,o%,p%)........|
00000340  37 dd f2 68 3a c8 99 22  57 69 6d 70 5f 47 65 74  |7..h:.."Wimp_Get|
00000350  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 71 25  |PointerInfo",,q%|
00000360  3a 67 25 3d 71 25 21 38  3a e7 20 21 62 25 3d 31  |:g%=q%!8:. !b%=1|
00000370  20 8c f2 66 0d 00 be 21  e7 67 25 3d 31 8c f2 63  | ..f...!.g%=1..c|
00000380  28 68 25 2c 6f 25 2c 70  25 29 8b f2 63 28 2d 31  |(h%,o%,p%)..c(-1|
00000390  2c 30 2c 30 29 0d 00 c8  05 e1 0d 00 d2 3a dd f2  |,0,0)........:..|
000003a0  63 28 74 25 2c 78 25 2c  79 25 29 3a c8 99 22 57  |c(t%,x%,y%):.."W|
000003b0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000003c0  2c 74 25 2c 78 25 2d 36  34 2c 79 25 3a 68 25 3d  |,t%,x%-64,y%:h%=|
000003d0  74 25 3a e1 0d 00 dc 8d  dd a4 74 28 66 24 29 3a  |t%:.......t(f$):|
000003e0  64 25 3d 32 35 30 3a 3a  de 51 25 20 35 30 30 2c  |d%=250::.Q% 500,|
000003f0  73 25 20 64 25 2c 75 25  20 64 25 3a c8 99 22 57  |s% d%,u% d%:.."W|
00000400  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00000410  22 2c 2c 66 24 3a c8 99  22 57 69 6d 70 5f 4c 6f  |",,f$:.."Wimp_Lo|
00000420  61 64 54 65 6d 70 6c 61  74 65 22 2c 2c 51 25 2c  |adTemplate",,Q%,|
00000430  73 25 2c 73 25 2b 64 25  2c 2d 31 2c 22 69 6e 66  |s%,s%+d%,-1,"inf|
00000440  6f 22 2c 30 3a c8 99 22  57 69 6d 70 5f 43 72 65  |o",0:.."Wimp_Cre|
00000450  61 74 65 57 69 6e 64 6f  77 22 2c 2c 51 25 b8 65  |ateWindow",,Q%.e|
00000460  25 0d 00 e6 74 c8 99 22  57 69 6d 70 5f 4c 6f 61  |%...t.."Wimp_Loa|
00000470  64 54 65 6d 70 6c 61 74  65 22 2c 2c 51 25 2c 75  |dTemplate",,Q%,u|
00000480  25 2c 75 25 2b 64 25 2c  2d 31 2c 22 63 6c 6f 63  |%,u%+d%,-1,"cloc|
00000490  6b 22 2c 30 3a 51 25 21  36 34 3d 63 25 3a c8 99  |k",0:Q%!64=c%:..|
000004a0  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
000004b0  6f 77 22 2c 2c 51 25 b8  6b 25 3a c8 99 22 57 69  |ow",,Q%.k%:.."Wi|
000004c0  6d 70 5f 43 6c 6f 73 65  54 65 6d 70 6c 61 74 65  |mp_CloseTemplate|
000004d0  22 3a 3d 65 25 0d 00 f0  65 dd f2 65 3a ea 6d 25  |":=e%...e..e:.m%|
000004e0  3a 72 25 3d 76 25 3a 6d  25 3d a4 62 28 72 25 2c  |:r%=v%:m%=.b(r%,|
000004f0  61 24 29 3a 6d 25 3d a4  61 28 6d 25 2c 22 49 6e  |a$):m%=.a(m%,"In|
00000500  66 6f 22 2c 30 2c 65 25  2c 26 37 30 30 30 30 31  |fo",0,e%,&700001|
00000510  31 29 3a 6d 25 3d a4 61  28 6d 25 2c 22 51 75 69  |1):m%=.a(m%,"Qui|
00000520  74 22 2c 31 32 38 2c 2d  31 2c 26 37 30 30 30 30  |t",128,-1,&70000|
00000530  31 31 29 3a 68 25 3d 30  3a e1 0d 00 fa 25 dd f2  |11):h%=0:....%..|
00000540  66 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 44  |f:.."Wimp_CloseD|
00000550  6f 77 6e 22 2c 77 25 2c  21 71 25 3a e0 3a e1 0d  |own",w%,!q%:.:..|
00000560  01 04 95 dd f2 64 3a c8  99 22 57 69 6d 70 5f 44  |.....d:.."Wimp_D|
00000570  72 61 67 42 6f 78 22 2c  2c 30 3a c8 99 22 48 6f  |ragBox",,0:.."Ho|
00000580  75 72 67 6c 61 73 73 5f  53 6d 61 73 68 22 3a 21  |urglass_Smash":!|
00000590  62 25 3d 9f 3a 24 28 62  25 2b 34 29 3d 22 28 45  |b%=.:$(b%+4)="(E|
000005a0  52 52 4f 52 21 20 22 2b  c3 28 9e 29 2b 22 29 20  |RROR! "+.(.)+") |
000005b0  3c 22 2b c3 28 9f 29 2b  22 3e 22 2b f6 24 2b bd  |<"+.(.)+">"+.$+.|
000005c0  30 3a c8 99 22 57 69 6d  70 5f 52 65 70 6f 72 74  |0:.."Wimp_Report|
000005d0  45 72 72 6f 72 22 2c 62  25 2c 33 2c 61 24 b8 2c  |Error",b%,3,a$.,|
000005e0  7a 25 3a e7 7a 25 3d 32  8c 20 f2 66 20 8b 20 f2  |z%:.z%=2. .f . .|
000005f0  6d 3a f2 66 0d 01 0e 05  e1 0d 01 18 57 dd a4 62  |m:.f........W..b|
00000600  28 61 25 2c 65 24 29 3a  24 61 25 3d 65 24 3a 61  |(a%,e$):$a%=e$:a|
00000610  25 3f 31 32 3d 37 3a 61  25 3f 31 33 3d 32 3a 61  |%?12=7:a%?13=2:a|
00000620  25 3f 31 34 3d 37 3a 61  25 3f 31 35 3d 30 3a 61  |%?14=7:a%?15=0:a|
00000630  25 21 31 36 3d 31 32 38  3a 61 25 21 32 30 3d 34  |%!16=128:a%!20=4|
00000640  34 3a 61 25 21 32 34 3d  30 3a 3d 61 25 2b 32 38  |4:a%!24=0:=a%+28|
00000650  0d 01 22 42 dd a4 61 28  61 25 2c 74 24 2c 41 25  |.."B..a(a%,t$,A%|
00000660  2c 42 25 2c 43 25 29 3a  61 25 21 30 3d 41 25 3a  |,B%,C%):a%!0=A%:|
00000670  61 25 21 34 3d 42 25 3a  61 25 21 38 3d 43 25 3a  |a%!4=B%:a%!8=C%:|
00000680  24 28 61 25 2b 31 32 29  3d 74 24 3a 3d 61 25 2b  |$(a%+12)=t$:=a%+|
00000690  32 34 0d 01 2c 64 dd f2  62 3a 43 24 3d c1 43 24  |24..,d..b:C$=.C$|
000006a0  2c 31 2c 32 29 2b c1 43  24 2c 34 2c 32 29 2b c1  |,1,2)+.C$,4,2)+.|
000006b0  43 24 2c 37 2c 32 29 3a  62 3d a3 3a 63 3d 36 3a  |C$,7,2):b=.:c=6:|
000006c0  f5 3a e7 20 c1 62 24 2c  63 2c 31 29 3d c1 43 24  |.:. .b$,c,1)=.C$|
000006d0  2c 63 2c 31 29 8c 20 62  3d b9 20 8b 20 45 25 3d  |,c,1). b=. . E%=|
000006e0  a4 63 28 6b 25 2c 63 2b  32 2c 97 28 c1 43 24 2c  |.c(k%,c+2,.(.C$,|
000006f0  63 2c 31 29 29 29 0d 01  54 2d 63 2d 3d 31 3a fd  |c,1)))..T-c-=1:.|
00000700  63 3d 30 84 62 3d b9 3a  62 24 3d 43 24 3a e7 20  |c=0.b=.:b$=C$:. |
00000710  63 3c 3e 35 20 8c 20 63  6c 3d ac 28 63 6c 29 3a  |c<>5 . cl=.(cl):|
00000720  f2 63 6c 0d 01 5e 05 e1  0d 01 68 41 dd f2 63 6c  |.cl..^....hA..cl|
00000730  3a 71 25 21 30 3d 6b 25  3a e3 20 69 25 3d 31 20  |:q%!0=k%:. i%=1 |
00000740  b8 20 32 3a 71 25 21 34  3d 69 25 3a e7 20 63 6c  |. 2:q%!4=i%:. cl|
00000750  20 8c 20 71 25 21 38 3d  26 32 30 30 30 30 30 20  | . q%!8=&200000 |
00000760  8b 20 71 25 21 38 3d 25  30 0d 01 72 33 71 25 21  |. q%!8=%0..r3q%!|
00000770  31 32 3d 26 32 30 30 30  30 30 3a c8 99 20 22 57  |12=&200000:.. "W|
00000780  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00000790  22 2c 2c 71 25 3a ed 20  69 25 3a e1 0d 01 7c 74  |",,q%:. i%:...|t|
000007a0  dd a4 63 28 44 25 2c 69  25 2c 74 25 29 3a 21 71  |..c(D%,i%,t%):!q|
000007b0  25 3d 44 25 3a 71 25 21  34 3d 69 25 3a c8 99 22  |%=D%:q%!4=i%:.."|
000007c0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000007d0  65 22 2c 2c 71 25 3a 3f  28 71 25 21 33 32 2b 36  |e",,q%:?(q%!32+6|
000007e0  29 3d 74 25 3a 71 25 21  38 3d 30 3a 71 25 21 31  |)=t%:q%!8=0:q%!1|
000007f0  32 3d 30 3a c8 99 22 57  69 6d 70 5f 53 65 74 49  |2=0:.."Wimp_SetI|
00000800  63 6f 6e 53 74 61 74 65  22 2c 2c 71 25 3a 3d 30  |conState",,q%:=0|
00000810  0d ff                                             |..|
00000812