00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 4b f4 ab ab ab  ab ab ab ab ab ab ab ab  |...K............|
00000020  ab ab ab ab ab ab ab ab  ab ab ab ab ab ab ab ab  |................|
*
00000050  ab ab ab ab ab ab ab ab  ab ab ab 0d 00 1e 4b f4  |..............K.|
00000060  20 43 6f 6e 76 65 72 74  73 20 66 6f 72 65 69 67  | Converts foreig|
00000070  6e 20 67 72 61 70 68 69  63 73 20 66 69 6c 65 73  |n graphics files|
00000080  20 74 6f 20 41 72 63 68  69 6d 65 64 65 73 20 20  | to Archimedes  |
00000090  20 20 20 20 20 20 20 20  20 20 20 20 28 52 49 53  |            (RIS|
000000a0  43 57 41 52 45 29 0d 00  28 2d f4 20 56 65 72 73  |CWARE)..(-. Vers|
000000b0  69 6f 6e 20 64 61 74 65  20 3a 20 53 61 74 2c 30  |ion date : Sat,0|
000000c0  37 20 4a 75 6c 20 31 39  39 30 2e 31 31 3a 35 39  |7 Jul 1990.11:59|
000000d0  3a 34 36 0d 00 32 1e f4  20 a9 20 31 39 39 30 20  |:46..2.. . 1990 |
000000e0  5a 65 72 69 64 61 6a 68  20 73 6f 66 74 77 61 72  |Zeridajh softwar|
000000f0  65 0d 00 3c 15 f4 20 62  79 20 4a 6f 68 6e 20 4b  |e..<.. by John K|
00000100  6f 72 74 69 6e 6b 0d 00  46 4b f4 ab ab ab ab ab  |ortink..FK......|
00000110  ab ab ab ab ab ab ab ab  ab ab ab ab ab ab ab ab  |................|
*
00000150  ab 0d 00 50 31 ee 20 85  20 eb 30 3a f1 27 22 45  |...P1. . .0:.'"E|
00000160  72 72 6f 72 22 27 27 22  27 22 3b f6 24 3b 22 27  |rror"''"'";.$;"'|
00000170  20 28 63 6f 64 65 20 22  3b 9e 3b 22 29 22 27 27  | (code ";.;")"''|
00000180  3a e0 0d 00 5a 3a de 20  6d 65 6e 75 31 20 26 34  |:...Z:. menu1 &4|
00000190  30 30 2c 73 75 62 6d 65  6e 75 31 20 26 34 30 30  |00,submenu1 &400|
000001a0  2c 73 75 62 6d 65 6e 75  32 20 26 34 30 30 2c 73  |,submenu2 &400,s|
000001b0  75 62 6d 65 6e 75 33 20  26 34 30 30 0d 00 64 2c  |ubmenu3 &400..d,|
000001c0  de 20 77 69 6e 64 6f 77  31 20 26 31 30 30 2c 77  |. window1 &100,w|
000001d0  69 6e 64 6f 77 32 20 26  31 30 30 2c 77 69 6e 64  |indow2 &100,wind|
000001e0  6f 77 33 20 26 32 30 30  0d 00 6e 2c de 20 77 69  |ow3 &200..n,. wi|
000001f0  6e 64 6f 77 34 20 26 34  30 30 2c 77 69 6e 64 6f  |ndow4 &400,windo|
00000200  77 35 20 26 36 30 30 2c  77 69 6e 64 6f 77 36 20  |w5 &600,window6 |
00000210  26 32 30 30 0d 00 78 2f  de 20 69 63 6f 6e 73 70  |&200..x/. iconsp|
00000220  72 69 74 65 73 20 32 30  34 38 2c 69 63 6f 6e 64  |rites 2048,icond|
00000230  61 74 61 20 34 30 39 36  2c 69 63 6f 6e 64 65 6e  |ata 4096,iconden|
00000240  64 20 30 0d 00 82 44 de  20 70 6f 6c 6c 20 32 35  |d 0...D. poll 25|
00000250  36 2c 62 6c 6f 63 6b 20  32 35 36 2c 65 72 72 20  |6,block 256,err |
00000260  32 35 36 2c 77 69 6d 70  70 61 6c 20 32 35 36 2c  |256,wimppal 256,|
00000270  70 6f 69 6e 74 65 72 20  35 31 32 2c 73 74 72 6f  |pointer 512,stro|
00000280  66 66 20 34 30 39 36 0d  00 8c 45 de 20 49 6e 50  |ff 4096...E. InP|
00000290  61 6c 25 28 32 35 36 29  2c 49 6d 67 50 61 6c 25  |al%(256),ImgPal%|
000002a0  28 32 35 36 29 2c 53 68  6f 77 50 61 6c 25 28 32  |(256),ShowPal%(2|
000002b0  35 36 29 2c 55 73 65 72  4d 6f 64 65 53 65 74 25  |56),UserModeSet%|
000002c0  28 34 29 2c 46 69 6c 65  28 31 30 29 0d 00 96 27  |(4),File(10)...'|
000002d0  de 20 61 72 67 25 20 31  30 32 34 2c 64 75 6d 25  |. arg% 1024,dum%|
000002e0  20 31 30 32 34 2c 74 72  61 6e 73 74 61 62 25 20  | 1024,transtab% |
000002f0  32 35 36 0d 00 a0 35 de  20 70 61 6c 72 67 62 25  |256...5. palrgb%|
00000300  20 31 30 32 34 2c 68 61  6d 62 61 73 25 20 36 34  | 1024,hambas% 64|
00000310  2c 66 72 65 71 25 20 31  30 32 34 2c 6f 75 74 70  |,freq% 1024,outp|
00000320  61 6c 25 20 31 30 32 34  0d 00 aa 4c 50 72 6f 67  |al% 1024...LProg|
00000330  6e 65 65 64 25 3d 31 32  30 2a 31 30 32 34 3a f4  |need%=120*1024:.|
00000340  20 45 73 74 69 6d 61 74  65 64 20 73 70 61 63 65  | Estimated space|
00000350  20 6e 65 65 64 65 64 20  66 6f 72 20 70 72 6f 67  | needed for prog|
00000360  72 61 6d 2b 76 61 72 73  20 28 6e 6f 20 73 70 72  |ram+vars (no spr|
00000370  62 75 66 29 0d 00 b4 37  54 6f 74 61 6c 66 72 65  |buf)...7Totalfre|
00000380  65 25 3d 93 2d 90 3a f4  20 54 6f 74 61 6c 20 66  |e%=.-.:. Total f|
00000390  72 65 65 20 66 6f 72 20  70 72 6f 67 72 61 6d 2b  |ree for program+|
000003a0  76 61 72 73 2b 73 70 72  62 75 66 0d 00 be 3d 53  |vars+sprbuf...=S|
000003b0  70 72 69 74 65 73 69 7a  65 25 3d 54 6f 74 61 6c  |pritesize%=Total|
000003c0  66 72 65 65 25 2d 50 72  6f 67 6e 65 65 64 25 3a  |free%-Progneed%:|
000003d0  f4 20 46 72 65 65 20 66  6f 72 20 73 70 72 69 74  |. Free for sprit|
000003e0  65 20 62 75 66 66 65 72  0d 00 c8 45 e7 53 70 72  |e buffer...E.Spr|
000003f0  69 74 65 73 69 7a 65 25  3c 31 30 32 34 20 8c 20  |itesize%<1024 . |
00000400  85 20 31 2c 22 4e 6f 20  72 6f 6f 6d 20 74 6f 20  |. 1,"No room to |
00000410  73 74 61 72 74 20 75 70  20 54 72 61 6e 73 6c 61  |start up Transla|
00000420  74 6f 72 20 70 72 6f 70  65 72 6c 79 22 0d 00 d2  |tor properly"...|
00000430  29 de 20 53 70 72 69 74  65 25 20 53 70 72 69 74  |). Sprite% Sprit|
00000440  65 73 69 7a 65 25 3a f4  20 53 70 72 69 74 65 20  |esize%:. Sprite |
00000450  62 75 66 66 65 72 0d 00  dc 28 f2 69 6e 69 74 69  |buffer...(.initi|
00000460  61 6c 69 73 65 3a f4 20  49 6e 69 74 69 61 6c 69  |alise:. Initiali|
00000470  73 65 20 61 70 70 6c 69  63 61 74 69 6f 6e 0d 00  |se application..|
00000480  e6 34 f2 6d 6f 64 65 5f  63 68 61 6e 67 65 28 2d  |.4.mode_change(-|
00000490  31 29 3a f4 20 52 65 73  65 6c 65 63 74 20 63 75  |1):. Reselect cu|
000004a0  72 72 65 6e 74 20 6d 6f  64 65 20 74 6f 20 74 69  |rrent mode to ti|
000004b0  64 79 0d 00 f0 2d ee 20  85 20 f2 65 72 72 6f 72  |dy...-. . .error|
000004c0  28 9f 2c f6 24 2b 22 20  28 63 6f 64 65 20 22 2b  |(.,.$+" (code "+|
000004d0  c3 9e 2b 22 29 22 29 3a  f2 69 63 6c 6f 73 65 0d  |..+")"):.iclose.|
000004e0  00 fa d1 e7 53 70 72 69  74 65 73 69 7a 65 25 3c  |....Spritesize%<|
000004f0  38 30 2a 31 30 32 34 20  8c 20 f2 65 72 72 6f 72  |80*1024 . .error|
00000500  28 30 2c 22 57 41 52 4e  49 4e 47 20 21 20 49 20  |(0,"WARNING ! I |
00000510  68 61 76 65 20 6f 6e 6c  79 20 22 2b c3 28 53 70  |have only "+.(Sp|
00000520  72 69 74 65 73 69 7a 65  25 29 2b 22 20 62 79 74  |ritesize%)+" byt|
00000530  65 73 20 66 72 65 65 20  66 6f 72 20 69 6d 61 67  |es free for imag|
00000540  65 20 68 61 6e 64 6c 69  6e 67 2e 20 50 72 65 73  |e handling. Pres|
00000550  73 20 4f 4b 20 74 6f 20  63 6f 6e 74 69 6e 75 65  |s OK to continue|
00000560  20 77 69 74 68 20 74 68  69 73 20 74 72 69 63 6b  | with this trick|
00000570  79 20 73 69 74 75 61 74  69 6f 6e 20 6f 72 20 43  |y situation or C|
00000580  41 4e 43 45 4c 20 74 6f  20 71 75 69 74 20 28 61  |ANCEL to quit (a|
00000590  6e 64 20 72 65 73 65 72  76 65 20 73 6f 6d 65 20  |nd reserve some |
000005a0  6d 6f 72 65 20 6d 65 6d  6f 72 79 20 21 29 22 29  |more memory !)")|
000005b0  0d 01 04 17 f5 20 f4 20  50 6f 6c 6c 20 61 6e 64  |..... . Poll and|
000005c0  20 61 63 74 69 6f 6e 0d  01 0e 44 e7 44 61 74 61  | action...D.Data|
000005d0  4c 6f 61 64 52 65 66 25  20 8c 20 70 6f 6c 6c 6d  |LoadRef% . pollm|
000005e0  61 73 6b 25 3d 34 38 20  8b 20 70 6f 6c 6c 6d 61  |ask%=48 . pollma|
000005f0  73 6b 25 3d 34 39 3a f4  20 4e 6f 20 6e 75 6c 6c  |sk%=49:. No null|
00000600  73 20 69 66 20 77 61 73  74 65 64 0d 01 18 19 c8  |s if wasted.....|
00000610  8e 20 a4 70 6f 6c 6c 28  70 6f 6c 6c 6d 61 73 6b  |. .poll(pollmask|
00000620  25 29 20 ca 0d 01 22 30  20 c9 20 30 20 3a 20 f2  |%) ..."0 . 0 : .|
00000630  6e 75 6c 6c 3a f4 20 4e  6f 74 68 69 6e 67 20 74  |null:. Nothing t|
00000640  6f 20 64 6f 2c 20 70 65  72 66 6f 72 6d 20 63 68  |o do, perform ch|
00000650  65 63 6b 73 0d 01 2c 2a  20 c9 20 31 20 3a 20 f2  |ecks..,* . 1 : .|
00000660  72 65 64 72 61 77 3a f4  20 52 65 64 72 61 77 20  |redraw:. Redraw |
00000670  77 69 6e 64 6f 77 20 72  65 71 75 65 73 74 0d 01  |window request..|
00000680  36 26 20 c9 20 32 20 3a  20 f2 6f 70 65 6e 3a f4  |6& . 2 : .open:.|
00000690  20 4f 70 65 6e 20 77 69  6e 64 6f 77 20 72 65 71  | Open window req|
000006a0  75 65 73 74 0d 01 40 28  20 c9 20 33 20 3a 20 f2  |uest..@( . 3 : .|
000006b0  63 6c 6f 73 65 3a f4 20  43 6c 6f 73 65 20 77 69  |close:. Close wi|
000006c0  6e 64 6f 77 20 72 65 71  75 65 73 74 0d 01 4a 26  |ndow request..J&|
000006d0  20 c9 20 36 20 3a 20 f2  6d 6f 75 73 65 63 6c 69  | . 6 : .mousecli|
000006e0  63 6b 3a f4 20 4d 6f 75  73 65 20 63 6c 69 63 6b  |ck:. Mouse click|
000006f0  65 64 0d 01 54 3f 20 c9  20 37 20 3a 20 f2 64 72  |ed..T? . 7 : .dr|
00000700  61 67 64 72 6f 70 3a f4  20 55 73 65 72 20 68 61  |agdrop:. User ha|
00000710  73 20 64 72 6f 70 70 65  64 20 64 72 61 67 20 62  |s dropped drag b|
00000720  6f 78 20 6f 66 20 66 69  6c 65 20 77 69 6e 64 6f  |ox of file windo|
00000730  77 0d 01 5e 1d 20 c9 20  38 20 3a 20 f2 6b 65 79  |w..^. . 8 : .key|
00000740  3a f4 20 4b 65 79 20 70  72 65 73 73 65 64 0d 01  |:. Key pressed..|
00000750  68 31 20 c9 20 39 20 3a  20 f2 6d 65 6e 75 73 65  |h1 . 9 : .menuse|
00000760  6c 65 63 74 3a f4 20 4d  65 6e 75 20 73 65 6c 65  |lect:. Menu sele|
00000770  63 74 69 6f 6e 20 66 72  6f 6d 20 75 73 65 72 0d  |ction from user.|
00000780  01 72 2b 20 c9 20 31 37  2c 31 38 20 3a 20 f2 6d  |.r+ . 17,18 : .m|
00000790  65 73 73 61 67 65 3a f4  20 4d 65 73 73 61 67 65  |essage:. Message|
000007a0  20 66 72 6f 6d 20 57 49  4d 50 0d 01 7c 05 cb 0d  | from WIMP..|...|
000007b0  01 86 07 fd 20 a3 0d 01  90 04 0d 01 9a 10 dd f2  |.... ...........|
000007c0  6d 65 6e 75 73 65 6c 65  63 74 0d 01 a4 3f c8 99  |menuselect...?..|
000007d0  20 57 44 65 63 6f 64 65  4d 25 2c 2c 6d 65 6e 75  | WDecodeM%,,menu|
000007e0  31 2c 70 6f 6c 6c 2c c4  31 30 30 2c 22 20 22 29  |1,poll,.100," ")|
000007f0  20 b8 20 2c 2c 2c 73 65  6c 65 63 74 24 3a f4 20  | . ,,,select$:. |
00000800  53 65 6c 65 63 74 69 6f  6e 0d 01 ae 2d f4 20 44  |Selection...-. D|
00000810  65 63 6f 64 65 20 6d 61  69 6e 2f 73 75 62 2f 73  |ecode main/sub/s|
00000820  75 62 73 75 62 20 73 65  6c 65 63 74 69 6f 6e 20  |ubsub selection |
00000830  73 74 72 69 6e 67 0d 01  b8 2a 6d 65 6e 75 70 61  |string...*menupa|
00000840  74 68 24 3d 73 65 6c 65  63 74 24 3a f4 20 52 65  |th$=select$:. Re|
00000850  6d 65 6d 62 65 72 20 6d  65 6e 75 20 70 61 74 68  |member menu path|
00000860  0d 01 c2 50 73 65 6c 65  63 74 32 3d a3 3a 73 65  |...Pselect2=.:se|
00000870  6c 65 63 74 33 3d a3 3a  73 65 6c 65 63 74 34 3d  |lect3=.:select4=|
00000880  a3 3a 73 65 6c 65 63 74  32 24 3d 22 22 3a 73 65  |.:select2$="":se|
00000890  6c 65 63 74 33 24 3d 22  22 3a 73 65 6c 65 63 74  |lect3$="":select|
000008a0  34 24 3d 22 22 3a f4 20  44 65 66 61 75 6c 74 73  |4$="":. Defaults|
000008b0  0d 01 cc bd 70 25 3d a7  73 65 6c 65 63 74 24 2c  |....p%=.select$,|
000008c0  22 2e 22 29 3a e7 70 25  3e 30 20 8c 20 73 65 6c  |"."):.p%>0 . sel|
000008d0  65 63 74 32 3d b9 3a 73  65 6c 65 63 74 32 24 3d  |ect2=.:select2$=|
000008e0  c1 73 65 6c 65 63 74 24  2c 70 25 2b 31 29 3a 73  |.select$,p%+1):s|
000008f0  65 6c 65 63 74 24 3d c0  73 65 6c 65 63 74 24 2c  |elect$=.select$,|
00000900  70 25 2d 31 29 3a 70 25  3d a7 73 65 6c 65 63 74  |p%-1):p%=.select|
00000910  32 24 2c 22 2e 22 29 3a  e7 70 25 3e 30 20 8c 20  |2$,"."):.p%>0 . |
00000920  73 65 6c 65 63 74 33 3d  b9 3a 73 65 6c 65 63 74  |select3=.:select|
00000930  33 24 3d c1 73 65 6c 65  63 74 32 24 2c 70 25 2b  |3$=.select2$,p%+|
00000940  31 29 3a 73 65 6c 65 63  74 32 24 3d c0 73 65 6c  |1):select2$=.sel|
00000950  65 63 74 32 24 2c 70 25  2d 31 29 3a 70 25 3d a7  |ect2$,p%-1):p%=.|
00000960  73 65 6c 65 63 74 33 24  2c 22 2e 22 29 0d 01 d6  |select3$,".")...|
00000970  47 e7 70 25 3e 30 20 8c  20 73 65 6c 65 63 74 34  |G.p%>0 . select4|
00000980  3d b9 3a 73 65 6c 65 63  74 34 24 3d c1 73 65 6c  |=.:select4$=.sel|
00000990  65 63 74 33 24 2c 70 25  2b 31 29 3a 73 65 6c 65  |ect3$,p%+1):sele|
000009a0  63 74 33 24 3d c0 73 65  6c 65 63 74 33 24 2c 70  |ct3$=.select3$,p|
000009b0  25 2d 31 29 0d 01 e0 34  f4 20 46 69 6c 74 65 72  |%-1)...4. Filter|
000009c0  20 63 6c 69 63 6b 73 20  6f 6e 20 72 6f 6f 74 73  | clicks on roots|
000009d0  20 6f 66 20 65 6e 74 72  69 65 73 20 77 69 74 68  | of entries with|
000009e0  20 73 75 62 6d 65 6e 75  0d 01 ea 12 c8 8e 20 6d  | submenu...... m|
000009f0  65 6e 75 70 61 74 68 24  20 ca 0d 01 f4 73 20 c9  |enupath$ ....s .|
00000a00  20 22 49 6d 61 67 65 20  69 6e 66 6f 22 2c 22 50  | "Image info","P|
00000a10  6f 70 20 75 70 22 2c 22  50 72 6f 63 65 73 73 69  |op up","Processi|
00000a20  6e 67 22 2c 22 5a 6f 6f  6d 20 69 6d 61 67 65 22  |ng","Zoom image"|
00000a30  2c 22 4d 69 72 72 6f 72  20 69 6d 61 67 65 22 2c  |,"Mirror image",|
00000a40  22 53 61 76 65 20 69 6d  61 67 65 22 2c 22 53 74  |"Save image","St|
00000a50  61 74 75 73 22 20 3a 20  e7 73 65 6c 65 63 74 32  |atus" : .select2|
00000a60  20 8b 20 73 65 6c 65 63  74 24 3d 22 22 0d 01 fe  | . select$=""...|
00000a70  a9 20 c9 20 22 50 72 6f  63 65 73 73 69 6e 67 2e  |. . "Processing.|
00000a80  4f 75 74 70 75 74 20 6d  6f 64 65 22 2c 22 50 72  |Output mode","Pr|
00000a90  6f 63 65 73 73 69 6e 67  2e 4f 75 74 70 75 74 20  |ocessing.Output |
00000aa0  70 61 6c 65 74 74 65 22  2c 22 50 72 6f 63 65 73  |palette","Proces|
00000ab0  73 69 6e 67 2e 49 6d 61  67 65 20 6e 75 6d 62 65  |sing.Image numbe|
00000ac0  72 22 2c 22 50 6f 70 20  75 70 2e 4d 6f 64 65 20  |r","Pop up.Mode |
00000ad0  73 65 74 22 2c 22 5a 6f  6f 6d 2e 49 6e 22 2c 22  |set","Zoom.In","|
00000ae0  5a 6f 6f 6d 2e 4f 75 74  22 2c 22 50 72 6f 63 65  |Zoom.Out","Proce|
00000af0  73 73 69 6e 67 2e 53 63  61 6c 69 6e 67 22 20 3a  |ssing.Scaling" :|
00000b00  20 e7 73 65 6c 65 63 74  33 20 8b 20 73 65 6c 65  | .select3 . sele|
00000b10  63 74 24 3d 22 22 0d 02  08 4c 20 c9 20 22 50 72  |ct$=""...L . "Pr|
00000b20  6f 63 65 73 73 69 6e 67  2e 53 63 61 6c 69 6e 67  |ocessing.Scaling|
00000b30  2e 78 22 2c 22 50 72 6f  63 65 73 73 69 6e 67 2e  |.x","Processing.|
00000b40  53 63 61 6c 69 6e 67 2e  79 22 20 3a 20 e7 73 65  |Scaling.y" : .se|
00000b50  6c 65 63 74 34 20 8b 20  73 65 6c 65 63 74 24 3d  |lect4 . select$=|
00000b60  22 22 0d 02 12 05 cb 0d  02 1c 10 c8 8e 20 73 65  |""........... se|
00000b70  6c 65 63 74 24 20 ca 0d  02 26 18 20 c9 20 22 22  |lect$ ...&. . ""|
00000b80  20 3a 20 f4 20 44 6f 20  6e 6f 74 68 69 6e 67 0d  | : . Do nothing.|
00000b90  02 30 1e 20 c9 20 22 51  75 69 74 22 20 3a 20 f4  |.0. . "Quit" : .|
00000ba0  20 51 75 69 74 20 70 72  6f 67 72 61 6d 0d 02 3a  | Quit program..:|
00000bb0  1d 20 20 f2 64 69 65 3a  f4 20 54 69 64 79 20 75  |.  .die:. Tidy u|
00000bc0  70 20 61 6e 64 20 65 78  69 74 0d 02 44 22 20 c9  |p and exit..D" .|
00000bd0  20 22 50 6f 70 20 75 70  22 20 3a 20 f4 20 50 6f  | "Pop up" : . Po|
00000be0  70 20 75 70 20 6f 70 74  69 6f 6e 73 0d 02 4e 13  |p up options..N.|
00000bf0  20 20 c8 8e 20 73 65 6c  65 63 74 32 24 20 ca 0d  |  .. select2$ ..|
00000c00  02 58 3a 20 20 20 c9 20  22 41 75 74 6f 20 6d 6f  |.X:   . "Auto mo|
00000c10  64 65 22 20 3a 20 f4 20  54 6f 67 67 6c 65 20 61  |de" : . Toggle a|
00000c20  75 74 6f 20 6d 6f 64 65  20 73 65 6c 65 63 74 69  |uto mode selecti|
00000c30  6f 6e 20 6f 6e 2f 6f 66  66 0d 02 62 23 20 20 20  |on on/off..b#   |
00000c40  20 41 75 74 6f 4d 6f 64  65 3d ac 41 75 74 6f 4d  | AutoMode=.AutoM|
00000c50  6f 64 65 3a f4 20 54 6f  67 67 6c 65 0d 02 6c 40  |ode:. Toggle..l@|
00000c60  20 20 20 c9 20 22 41 75  74 6f 20 70 61 6c 65 74  |   . "Auto palet|
00000c70  74 65 22 20 3a 20 f4 20  54 6f 67 67 6c 65 20 61  |te" : . Toggle a|
00000c80  75 74 6f 20 70 61 6c 65  74 74 65 20 73 65 6c 65  |uto palette sele|
00000c90  63 74 69 6f 6e 20 6f 6e  2f 6f 66 66 0d 02 76 21  |ction on/off..v!|
00000ca0  20 20 20 20 41 75 74 6f  50 61 6c 3d ac 41 75 74  |    AutoPal=.Aut|
00000cb0  6f 50 61 6c 3a f4 20 54  6f 67 67 6c 65 0d 02 80  |oPal:. Toggle...|
00000cc0  2b 20 20 20 c9 20 22 4d  6f 64 65 20 73 65 74 22  |+   . "Mode set"|
00000cd0  20 3a 20 f4 20 53 65 6c  65 63 74 20 6e 65 77 20  | : . Select new |
00000ce0  6d 6f 64 65 20 73 65 74  0d 02 8a 19 20 20 20 20  |mode set....    |
00000cf0  c8 8e 20 c0 73 65 6c 65  63 74 33 24 2c 34 29 20  |.. .select3$,4) |
00000d00  ca 0d 02 94 29 20 20 20  20 20 c9 20 22 52 6f 6f  |....)     . "Roo|
00000d10  74 22 20 3a 20 f4 20 4e  6f 20 73 65 6c 65 63 74  |t" : . No select|
00000d20  69 6f 6e 20 28 72 6f 6f  74 29 0d 02 9e 2b 20 20  |ion (root)...+  |
00000d30  20 20 20 c9 20 22 4e 6f  6e 65 22 20 3a 20 4d 6f  |   . "None" : Mo|
00000d40  64 65 53 65 74 3d 30 3a  f4 20 4e 6f 20 6d 6f 64  |deSet=0:. No mod|
00000d50  65 20 73 65 74 0d 02 a8  37 20 20 20 20 20 c9 20  |e set...7     . |
00000d60  22 4e 6f 72 6d 22 20 3a  20 4d 6f 64 65 53 65 74  |"Norm" : ModeSet|
00000d70  3d 31 3a f4 20 4e 6f 72  6d 61 6c 20 6d 6f 6e 69  |=1:. Normal moni|
00000d80  74 6f 72 20 6d 6f 64 65  20 73 65 74 0d 02 b2 3a  |tor mode set...:|
00000d90  20 20 20 20 20 c9 20 22  4d 75 6c 74 22 20 3a 20  |     . "Mult" : |
00000da0  4d 6f 64 65 53 65 74 3d  32 3a f4 20 4d 75 6c 74  |ModeSet=2:. Mult|
00000db0  69 73 79 6e 63 20 6d 6f  6e 69 74 6f 72 20 6d 6f  |isync monitor mo|
00000dc0  64 65 20 73 65 74 0d 02  bc 35 20 20 20 20 20 7f  |de set...5     .|
00000dd0  20 3a 20 f4 20 55 73 65  72 20 6d 6f 64 65 20 73  | : . User mode s|
00000de0  65 74 2c 20 63 68 65 63  6b 20 61 6e 64 20 69 66  |et, check and if|
00000df0  20 6f 6b 2c 20 63 68 61  6e 67 65 0d 02 c6 98 20  | ok, change.... |
00000e00  20 20 20 20 20 73 24 3d  73 65 6c 65 63 74 33 24  |     s$=select3$|
00000e10  3a 70 25 3d a7 73 24 2c  22 2c 22 29 3a e7 70 25  |:p%=.s$,","):.p%|
00000e20  3e 30 20 8c 20 6d 31 25  3d bb 73 24 3a 73 24 3d  |>0 . m1%=.s$:s$=|
00000e30  c1 73 24 2c 70 25 2b 31  29 3a 70 25 3d a7 73 24  |.s$,p%+1):p%=.s$|
00000e40  2c 22 2c 22 29 3a e7 70  25 3e 30 20 8c 20 6d 32  |,","):.p%>0 . m2|
00000e50  25 3d bb 73 24 3a 73 24  3d c1 73 24 2c 70 25 2b  |%=.s$:s$=.s$,p%+|
00000e60  31 29 3a 70 25 3d a7 73  24 2c 22 2c 22 29 3a e7  |1):p%=.s$,","):.|
00000e70  70 25 3e 30 20 8c 20 6d  33 25 3d bb 73 24 3a 73  |p%>0 . m3%=.s$:s|
00000e80  24 3d c1 73 24 2c 70 25  2b 31 29 3a 6d 34 25 3d  |$=.s$,p%+1):m4%=|
00000e90  bb 73 24 0d 02 d0 da 20  20 20 20 20 20 e7 70 25  |.s$....      .p%|
00000ea0  3e 30 20 8c 20 55 73 65  72 4d 6f 64 65 53 65 74  |>0 . UserModeSet|
00000eb0  25 28 31 29 3d 6d 31 25  3a 55 73 65 72 4d 6f 64  |%(1)=m1%:UserMod|
00000ec0  65 53 65 74 25 28 32 29  3d 6d 32 25 3a 55 73 65  |eSet%(2)=m2%:Use|
00000ed0  72 4d 6f 64 65 53 65 74  25 28 33 29 3d 6d 33 25  |rModeSet%(3)=m3%|
00000ee0  3a 55 73 65 72 4d 6f 64  65 53 65 74 25 28 34 29  |:UserModeSet%(4)|
00000ef0  3d 6d 34 25 3a 4d 6f 64  65 53 65 74 3d 33 20 8b  |=m4%:ModeSet=3 .|
00000f00  20 f2 65 72 72 6f 72 28  2d 31 2c 22 42 61 64 20  | .error(-1,"Bad |
00000f10  75 73 65 72 20 6d 6f 64  65 20 73 65 74 2e 20 50  |user mode set. P|
00000f20  6c 65 61 73 65 20 75 73  65 20 27 3c 32 63 6f 6c  |lease use '<2col|
00000f30  6d 6f 64 65 3e 2c 3c 34  63 6f 6c 6d 6f 64 65 3e  |mode>,<4colmode>|
00000f40  2c 3c 31 36 63 6f 6c 6d  6f 64 65 3e 2c 3c 32 35  |,<16colmode>,<25|
00000f50  36 63 6f 6c 6d 6f 64 65  3e 27 2c 20 65 2e 67 2e  |6colmode>', e.g.|
00000f60  20 27 31 2c 32 2c 33 2c  34 27 2e 22 29 0d 02 da  | '1,2,3,4'.")...|
00000f70  09 20 20 20 20 cb 0d 02  e4 25 20 20 20 20 f2 73  |.    ....%    .s|
00000f80  75 62 6d 65 6e 75 28 22  50 6f 70 20 75 70 2e 4d  |ubmenu("Pop up.M|
00000f90  6f 64 65 20 73 65 74 22  2c a3 29 0d 02 ee 29 20  |ode set",.)...) |
00000fa0  20 20 c9 20 22 41 75 74  6f 20 7a 6f 6f 6d 22 20  |  . "Auto zoom" |
00000fb0  3a 20 f4 20 54 6f 67 67  6c 65 20 61 75 74 6f 20  |: . Toggle auto |
00000fc0  7a 6f 6f 6d 0d 02 f8 23  20 20 20 20 41 75 74 6f  |zoom...#    Auto|
00000fd0  5a 6f 6f 6d 3d ac 41 75  74 6f 5a 6f 6f 6d 3a f4  |Zoom=.AutoZoom:.|
00000fe0  20 54 6f 67 67 6c 65 0d  03 02 07 20 20 cb 0d 03  | Toggle....  ...|
00000ff0  0c 1a 20 20 f2 73 75 62  6d 65 6e 75 28 22 50 6f  |..  .submenu("Po|
00001000  70 20 75 70 22 2c a3 29  0d 03 16 2a 20 c9 20 22  |p up",.)...* . "|
00001010  50 72 6f 63 65 73 73 69  6e 67 22 20 3a 20 f4 20  |Processing" : . |
00001020  50 72 6f 63 65 73 73 69  6e 67 20 6f 70 74 69 6f  |Processing optio|
00001030  6e 73 0d 03 20 13 20 20  c8 8e 20 73 65 6c 65 63  |ns.. .  .. selec|
00001040  74 32 24 20 ca 0d 03 2a  31 20 20 20 c9 20 22 43  |t2$ ...*1   . "C|
00001050  6c 65 61 72 20 6f 75 74  70 75 74 22 20 3a 20 f4  |lear output" : .|
00001060  20 43 6c 65 61 72 20 6f  75 74 70 75 74 20 66 69  | Clear output fi|
00001070  6c 65 20 6f 66 66 0d 03  34 3a 20 20 20 20 e7 43  |le off..4:    .C|
00001080  6c 65 61 72 46 69 6c 65  20 8c 20 c8 99 20 22 4f  |learFile . .. "O|
00001090  53 5f 46 69 6c 65 22 2c  36 2c 43 6c 65 61 72 53  |S_File",6,ClearS|
000010a0  61 76 65 24 3a 43 6c 65  61 72 46 69 6c 65 3d a3  |ave$:ClearFile=.|
000010b0  0d 03 3e 37 20 20 20 c9  20 22 4f 75 74 70 75 74  |..>7   . "Output|
000010c0  20 6d 6f 64 65 22 20 3a  20 f4 20 43 68 61 6e 67  | mode" : . Chang|
000010d0  65 20 6f 75 74 70 75 74  20 6d 6f 64 65 20 73 65  |e output mode se|
000010e0  6c 65 63 74 69 6f 6e 0d  03 48 30 20 20 20 20 e7  |lection..H0    .|
000010f0  73 65 6c 65 63 74 33 24  3d 22 41 75 74 6f 22 20  |select3$="Auto" |
00001100  8c 20 4f 75 74 4d 6f 64  65 3d 31 20 8b 20 4f 75  |. OutMode=1 . Ou|
00001110  74 4d 6f 64 65 3d 32 0d  03 52 2c 20 20 20 20 f2  |tMode=2..R,    .|
00001120  73 75 62 6d 65 6e 75 28  22 50 72 6f 63 65 73 73  |submenu("Process|
00001130  69 6e 67 2e 4f 75 74 70  75 74 20 6d 6f 64 65 22  |ing.Output mode"|
00001140  2c a3 29 0d 03 5c 3d 20  20 20 c9 20 22 4f 75 74  |,.)..\=   . "Out|
00001150  70 75 74 20 70 61 6c 65  74 74 65 22 20 3a 20 f4  |put palette" : .|
00001160  20 43 68 61 6e 67 65 20  6f 75 74 70 75 74 20 70  | Change output p|
00001170  61 6c 65 74 74 65 20 73  65 6c 65 63 74 69 6f 6e  |alette selection|
00001180  0d 03 66 52 20 20 20 20  e7 73 65 6c 65 63 74 33  |..fR    .select3|
00001190  24 3d 22 43 75 72 72 65  6e 74 22 20 8c 20 4f 75  |$="Current" . Ou|
000011a0  74 50 61 6c 3d 31 20 8b  20 e7 73 65 6c 65 63 74  |tPal=1 . .select|
000011b0  33 24 3d 22 44 65 66 61  75 6c 74 22 20 8c 20 4f  |3$="Default" . O|
000011c0  75 74 50 61 6c 3d 32 20  8b 20 4f 75 74 50 61 6c  |utPal=2 . OutPal|
000011d0  3d 33 0d 03 70 2f 20 20  20 20 f2 73 75 62 6d 65  |=3..p/    .subme|
000011e0  6e 75 28 22 50 72 6f 63  65 73 73 69 6e 67 2e 4f  |nu("Processing.O|
000011f0  75 74 70 75 74 20 70 61  6c 65 74 74 65 22 2c a3  |utput palette",.|
00001200  29 0d 03 7a 2b 20 20 20  c9 20 22 53 63 61 6c 69  |)..z+   . "Scali|
00001210  6e 67 22 20 3a 20 f4 20  43 68 61 6e 67 65 20 73  |ng" : . Change s|
00001220  63 61 6c 65 20 66 61 63  74 6f 72 73 0d 03 84 15  |cale factors....|
00001230  20 20 20 20 c8 8e 20 73  65 6c 65 63 74 33 24 20  |    .. select3$ |
00001240  ca 0d 03 8e 32 20 20 20  20 20 c9 20 22 31 3a 31  |....2     . "1:1|
00001250  22 20 3a 20 58 4d 75 6c  25 3d 31 3a 59 4d 75 6c  |" : XMul%=1:YMul|
00001260  25 3d 31 3a 58 44 69 76  25 3d 31 3a 59 44 69 76  |%=1:XDiv%=1:YDiv|
00001270  25 3d 31 0d 03 98 75 20  20 20 20 20 c9 20 22 78  |%=1...u     . "x|
00001280  22 2c 22 79 22 20 3a 20  6d 75 6c 25 3d 2d 31 3a  |","y" : mul%=-1:|
00001290  64 69 76 25 3d 2d 31 3a  73 24 3d 73 65 6c 65 63  |div%=-1:s$=selec|
000012a0  74 34 24 3a 70 25 3d a7  73 24 2c 22 3a 22 29 3a  |t4$:p%=.s$,":"):|
000012b0  e7 70 25 3e 30 20 8c 20  6d 75 6c 25 3d bb 73 24  |.p%>0 . mul%=.s$|
000012c0  3a 73 24 3d c1 73 24 2c  70 25 2b 31 29 3a 64 69  |:s$=.s$,p%+1):di|
000012d0  76 25 3d bb 73 24 3a f4  20 47 65 74 20 6e 65 77  |v%=.s$:. Get new|
000012e0  20 66 61 63 74 6f 72 73  0d 03 a2 2c 20 20 20 20  | factors...,    |
000012f0  20 20 e7 28 6d 75 6c 25  3c 3d 30 29 84 28 64 69  |  .(mul%<=0).(di|
00001300  76 25 3c 3d 30 29 84 28  6d 75 6c 25 3e 64 69 76  |v%<=0).(mul%>div|
00001310  25 29 20 8c 0d 03 ac 57  20 20 20 20 20 20 20 f2  |%) ....W       .|
00001320  65 72 72 6f 72 28 2d 31  2c 22 50 6c 65 61 73 65  |error(-1,"Please|
00001330  20 65 6e 74 65 72 20 3c  6d 75 6c 3e 3a 3c 64 69  | enter <mul>:<di|
00001340  76 3e 2c 20 77 68 65 72  65 20 3c 6d 75 6c 3e 20  |v>, where <mul> |
00001350  69 73 20 6e 6f 74 20 67  72 65 61 74 65 72 20 74  |is not greater t|
00001360  68 61 6e 20 3c 64 69 76  3e 22 29 0d 03 b6 62 20  |han <div>")...b |
00001370  20 20 20 20 20 cc 20 e7  73 65 6c 65 63 74 33 24  |     . .select3$|
00001380  3d 22 78 22 20 8c 20 58  4d 75 6c 25 3d 6d 75 6c  |="x" . XMul%=mul|
00001390  25 3a 58 44 69 76 25 3d  64 69 76 25 20 8b 20 59  |%:XDiv%=div% . Y|
000013a0  4d 75 6c 25 3d 6d 75 6c  25 3a 59 44 69 76 25 3d  |Mul%=mul%:YDiv%=|
000013b0  64 69 76 25 3a f4 20 55  70 64 61 74 65 20 73 63  |div%:. Update sc|
000013c0  61 6c 69 6e 67 20 66 61  63 74 6f 72 73 0d 03 c0  |aling factors...|
000013d0  0b 20 20 20 20 20 20 cd  0d 03 ca 09 20 20 20 20  |.      .....    |
000013e0  cb 0d 03 d4 28 20 20 20  20 f2 73 75 62 6d 65 6e  |....(    .submen|
000013f0  75 28 22 50 72 6f 63 65  73 73 69 6e 67 2e 53 63  |u("Processing.Sc|
00001400  61 6c 69 6e 67 22 2c a3  29 0d 03 de 3c 20 20 20  |aling",.)...<   |
00001410  c9 20 22 45 72 72 6f 72  20 73 70 72 65 61 64 69  |. "Error spreadi|
00001420  6e 67 22 20 3a 20 f4 20  54 6f 67 67 6c 65 20 65  |ng" : . Toggle e|
00001430  72 72 6f 72 20 73 70 72  65 61 64 69 6e 67 20 6f  |rror spreading o|
00001440  6e 2f 6f 66 66 0d 03 e8  25 20 20 20 20 45 72 72  |n/off...%    Err|
00001450  53 70 72 65 61 64 3d ac  45 72 72 53 70 72 65 61  |Spread=.ErrSprea|
00001460  64 3a f4 20 54 6f 67 67  6c 65 0d 03 f2 35 20 20  |d:. Toggle...5  |
00001470  20 c9 20 22 42 6c 61 63  6b 20 61 6e 64 20 77 68  | . "Black and wh|
00001480  69 74 65 22 20 3a 20 f4  20 54 6f 67 67 6c 65 20  |ite" : . Toggle |
00001490  62 6c 61 63 6b 20 61 6e  64 20 77 68 69 74 65 0d  |black and white.|
000014a0  03 fc 1e 20 20 20 20 42  6c 61 63 6b 57 68 69 74  |...    BlackWhit|
000014b0  65 3d ac 42 6c 61 63 6b  57 68 69 74 65 0d 04 06  |e=.BlackWhite...|
000014c0  25 20 20 20 c9 20 22 5a  69 67 20 7a 61 67 22 20  |%   . "Zig zag" |
000014d0  3a 20 f4 20 54 6f 67 67  6c 65 20 7a 69 67 20 7a  |: . Toggle zig z|
000014e0  61 67 0d 04 10 16 20 20  20 20 5a 69 67 5a 61 67  |ag....    ZigZag|
000014f0  3d ac 5a 69 67 5a 61 67  0d 04 1a 35 20 20 20 c9  |=.ZigZag...5   .|
00001500  20 22 53 63 72 65 65 6e  20 62 6c 61 6e 6b 69 6e  | "Screen blankin|
00001510  67 22 20 3a 20 f4 20 54  6f 67 67 6c 65 20 73 63  |g" : . Toggle sc|
00001520  72 65 65 6e 20 62 6c 61  6e 6b 69 6e 67 0d 04 24  |reen blanking..$|
00001530  1a 20 20 20 20 42 6c 61  6e 6b 69 6e 67 3d ac 42  |.    Blanking=.B|
00001540  6c 61 6e 6b 69 6e 67 0d  04 2e 2e 20 20 20 c9 20  |lanking....   . |
00001550  22 49 6e 76 65 72 74 20  52 47 42 22 20 3a 20 f4  |"Invert RGB" : .|
00001560  20 54 6f 67 67 6c 65 20  52 47 42 20 69 6e 76 65  | Toggle RGB inve|
00001570  72 74 69 6e 67 0d 04 38  1c 20 20 20 20 49 6e 76  |rting..8.    Inv|
00001580  65 72 74 52 47 42 3d ac  49 6e 76 65 72 74 52 47  |ertRGB=.InvertRG|
00001590  42 0d 04 42 27 20 20 20  c9 20 22 47 49 46 20 73  |B..B'   . "GIF s|
000015a0  63 61 6e 22 20 3a 20 f4  20 54 6f 67 67 6c 65 20  |can" : . Toggle |
000015b0  47 49 46 20 73 63 61 6e  0d 04 4c 18 20 20 20 20  |GIF scan..L.    |
000015c0  47 49 46 53 63 61 6e 3d  ac 47 49 46 53 63 61 6e  |GIFScan=.GIFScan|
000015d0  0d 04 56 28 20 20 20 c9  20 22 49 6d 61 67 65 20  |..V(   . "Image |
000015e0  6e 75 6d 62 65 72 22 20  3a 20 f4 20 49 6d 61 67  |number" : . Imag|
000015f0  65 20 6e 75 6d 62 65 72  0d 04 60 39 20 20 20 20  |e number..`9    |
00001600  49 6d 61 67 65 4e 72 25  3d bb 28 73 65 6c 65 63  |ImageNr%=.(selec|
00001610  74 33 24 29 3a f4 20 4e  65 77 20 76 61 6c 75 65  |t3$):. New value|
00001620  20 66 6f 72 20 69 6d 61  67 65 20 6e 75 6d 62 65  | for image numbe|
00001630  72 0d 04 6a 2d 20 20 20  20 f2 73 75 62 6d 65 6e  |r..j-    .submen|
00001640  75 28 22 50 72 6f 63 65  73 73 69 6e 67 2e 49 6d  |u("Processing.Im|
00001650  61 67 65 20 6e 75 6d 62  65 72 22 2c a3 29 0d 04  |age number",.)..|
00001660  74 07 20 20 cb 0d 04 7e  1e 20 20 f2 73 75 62 6d  |t.  ...~.  .subm|
00001670  65 6e 75 28 22 50 72 6f  63 65 73 73 69 6e 67 22  |enu("Processing"|
00001680  2c a3 29 0d 04 88 31 20  c9 20 22 5a 6f 6f 6d 20  |,.)...1 . "Zoom |
00001690  69 6d 61 67 65 22 20 3a  20 f4 20 5a 6f 6f 6d 20  |image" : . Zoom |
000016a0  69 6e 2c 20 6f 75 74 2c  20 6e 6f 72 6d 61 6c 20  |in, out, normal |
000016b0  73 69 7a 65 0d 04 92 3f  20 20 4f 6c 64 5a 6f 6f  |size...?  OldZoo|
000016c0  6d 58 3d 5a 6f 6f 6d 58  3a 4f 6c 64 5a 6f 6f 6d  |mX=ZoomX:OldZoom|
000016d0  59 3d 5a 6f 6f 6d 59 3a  f4 20 52 65 6d 65 6d 62  |Y=ZoomY:. Rememb|
000016e0  65 72 20 6f 6c 64 20 7a  6f 6f 6d 20 66 61 63 74  |er old zoom fact|
000016f0  6f 72 73 0d 04 9c 13 20  20 c8 8e 20 73 65 6c 65  |ors....  .. sele|
00001700  63 74 32 24 20 ca 0d 04  a6 7d 20 20 20 c9 20 22  |ct2$ ....}   . "|
00001710  49 6e 22 3a 20 e7 73 65  6c 65 63 74 33 24 3d 22  |In": .select3$="|
00001720  42 6f 74 68 22 20 8c 20  5a 6f 6f 6d 58 3d 5a 6f  |Both" . ZoomX=Zo|
00001730  6f 6d 58 2a 32 3a 5a 6f  6f 6d 59 3d 5a 6f 6f 6d  |omX*2:ZoomY=Zoom|
00001740  59 2a 32 20 8b 20 e7 73  65 6c 65 63 74 33 24 3d  |Y*2 . .select3$=|
00001750  22 78 22 20 8c 20 5a 6f  6f 6d 58 3d 5a 6f 6f 6d  |"x" . ZoomX=Zoom|
00001760  58 2a 32 20 8b 20 e7 73  65 6c 65 63 74 33 24 3d  |X*2 . .select3$=|
00001770  22 79 22 20 8c 20 5a 6f  6f 6d 59 3d 5a 6f 6f 6d  |"y" . ZoomY=Zoom|
00001780  59 2a 32 0d 04 b0 7e 20  20 20 c9 20 22 4f 75 74  |Y*2...~   . "Out|
00001790  22 3a 20 e7 73 65 6c 65  63 74 33 24 3d 22 42 6f  |": .select3$="Bo|
000017a0  74 68 22 20 8c 20 5a 6f  6f 6d 58 3d 5a 6f 6f 6d  |th" . ZoomX=Zoom|
000017b0  58 2f 32 3a 5a 6f 6f 6d  59 3d 5a 6f 6f 6d 59 2f  |X/2:ZoomY=ZoomY/|
000017c0  32 20 8b 20 e7 73 65 6c  65 63 74 33 24 3d 22 78  |2 . .select3$="x|
000017d0  22 20 8c 20 5a 6f 6f 6d  58 3d 5a 6f 6f 6d 58 2f  |" . ZoomX=ZoomX/|
000017e0  32 20 8b 20 e7 73 65 6c  65 63 74 33 24 3d 22 79  |2 . .select3$="y|
000017f0  22 20 8c 20 5a 6f 6f 6d  59 3d 5a 6f 6f 6d 59 2f  |" . ZoomY=ZoomY/|
00001800  32 0d 04 ba 1f 20 20 20  c9 20 22 31 3a 31 22 3a  |2....   . "1:1":|
00001810  20 5a 6f 6f 6d 58 3d 31  3a 5a 6f 6f 6d 59 3d 31  | ZoomX=1:ZoomY=1|
00001820  0d 04 c4 07 20 20 cb 0d  04 ce 4a 20 20 f4 20 53  |....  ....J  . S|
00001830  65 74 20 69 6d 61 67 65  20 77 69 6e 64 6f 77 20  |et image window |
00001840  65 78 74 65 6e 74 20 61  6e 64 20 74 69 74 6c 65  |extent and title|
00001850  20 61 63 63 6f 72 64 69  6e 67 20 74 6f 20 63 75  | according to cu|
00001860  72 72 65 6e 74 20 7a 6f  6f 6d 20 66 61 63 74 6f  |rrent zoom facto|
00001870  72 0d 04 d8 41 20 20 21  62 6c 6f 63 6b 3d 30 3a  |r...A  !block=0:|
00001880  62 6c 6f 63 6b 21 34 3d  30 3a 62 6c 6f 63 6b 21  |block!4=0:block!|
00001890  38 3d a4 73 70 72 57 2a  5a 6f 6f 6d 58 3a 62 6c  |8=.sprW*ZoomX:bl|
000018a0  6f 63 6b 21 31 32 3d a4  73 70 72 48 2a 5a 6f 6f  |ock!12=.sprH*Zoo|
000018b0  6d 59 0d 04 e2 41 20 20  c8 99 20 57 53 65 74 45  |mY...A  .. WSetE|
000018c0  25 2c 77 69 6e 5f 69 6d  67 25 2c 62 6c 6f 63 6b  |%,win_img%,block|
000018d0  3a f4 20 53 65 74 20 77  69 6e 64 6f 77 20 65 78  |:. Set window ex|
000018e0  74 65 6e 74 20 74 6f 20  7a 6f 6f 6d 65 64 20 73  |tent to zoomed s|
000018f0  69 7a 65 0d 04 ec 26 20  20 24 49 4d 57 74 74 25  |ize...&  $IMWtt%|
00001900  3d a4 69 6d 61 67 65 5f  74 69 74 6c 65 3a f4 20  |=.image_title:. |
00001910  4e 65 77 20 74 69 74 6c  65 0d 04 f6 40 20 20 21  |New title...@  !|
00001920  62 6c 6f 63 6b 3d 77 69  6e 5f 69 6d 67 25 3a c8  |block=win_img%:.|
00001930  99 20 57 47 65 74 57 53  25 2c 2c 62 6c 6f 63 6b  |. WGetWS%,,block|
00001940  3a f4 20 52 65 61 64 20  77 69 6e 64 6f 77 27 73  |:. Read window's|
00001950  20 70 6f 73 69 74 69 6f  6e 0d 05 00 4a 20 20 64  | position...J  d|
00001960  78 25 3d 28 62 6c 6f 63  6b 21 31 32 2d 62 6c 6f  |x%=(block!12-blo|
00001970  63 6b 21 34 29 2f 32 3a  64 79 25 3d 28 62 6c 6f  |ck!4)/2:dy%=(blo|
00001980  63 6b 21 31 36 2d 62 6c  6f 63 6b 21 38 29 2f 32  |ck!16-block!8)/2|
00001990  3a f4 20 48 61 6c 66 20  77 69 6e 64 6f 77 20 73  |:. Half window s|
000019a0  69 7a 65 0d 05 0a 46 20  20 76 78 25 3d 62 6c 6f  |ize...F  vx%=blo|
000019b0  63 6b 21 32 30 2b 64 78  25 3a 76 79 25 3d 62 6c  |ck!20+dx%:vy%=bl|
000019c0  6f 63 6b 21 32 34 2d 64  79 25 3a f4 20 56 65 63  |ock!24-dy%:. Vec|
000019d0  74 6f 72 20 66 72 6f 6d  20 63 65 6e 74 72 65 20  |tor from centre |
000019e0  74 6f 20 6f 72 69 67 69  6e 0d 05 14 47 20 20 f4  |to origin...G  .|
000019f0  20 43 61 6c 63 75 6c 61  74 65 20 6e 65 77 20 73  | Calculate new s|
00001a00  63 72 6f 6c 6c 20 6f 66  66 73 65 74 73 20 62 79  |croll offsets by|
00001a10  20 73 63 61 6c 69 6e 67  20 76 65 63 74 6f 72 20  | scaling vector |
00001a20  61 6e 64 20 72 65 2d 74  72 61 6e 73 70 6f 73 65  |and re-transpose|
00001a30  0d 05 1e 45 20 20 62 6c  6f 63 6b 21 32 30 3d 76  |...E  block!20=v|
00001a40  78 25 2a 5a 6f 6f 6d 58  2f 4f 6c 64 5a 6f 6f 6d  |x%*ZoomX/OldZoom|
00001a50  58 2d 64 78 25 3a 62 6c  6f 63 6b 21 32 34 3d 76  |X-dx%:block!24=v|
00001a60  79 25 2a 5a 6f 6f 6d 59  2f 4f 6c 64 5a 6f 6f 6d  |y%*ZoomY/OldZoom|
00001a70  59 2b 64 79 25 0d 05 28  3a 20 20 f2 63 6c 6f 73  |Y+dy%..(:  .clos|
00001a80  65 5f 77 69 6e 64 6f 77  28 77 69 6e 5f 69 6d 67  |e_window(win_img|
00001a90  25 29 3a f2 6f 70 65 6e  5f 77 69 6e 64 6f 77 28  |%):.open_window(|
00001aa0  77 69 6e 5f 69 6d 67 25  2c 62 6c 6f 63 6b 29 0d  |win_img%,block).|
00001ab0  05 32 1e 20 20 f2 73 75  62 6d 65 6e 75 28 22 5a  |.2.  .submenu("Z|
00001ac0  6f 6f 6d 20 69 6d 61 67  65 22 2c a3 29 0d 05 3c  |oom image",.)..<|
00001ad0  33 20 c9 20 22 53 61 76  65 20 69 6d 61 67 65 22  |3 . "Save image"|
00001ae0  20 3a 20 f4 20 53 61 76  65 20 77 68 6f 6c 65 20  | : . Save whole |
00001af0  6f 72 20 70 61 72 74 20  6f 66 20 69 6d 61 67 65  |or part of image|
00001b00  0d 05 46 30 20 20 53 61  76 65 4b 69 6e 64 24 3d  |..F0  SaveKind$=|
00001b10  73 65 6c 65 63 74 32 24  3a f4 20 52 65 6d 65 6d  |select2$:. Remem|
00001b20  62 65 72 20 74 79 70 65  20 6f 66 20 73 61 76 65  |ber type of save|
00001b30  0d 05 50 46 20 20 24 53  41 56 66 6e 25 3d 53 61  |..PF  $SAVfn%=Sa|
00001b40  76 65 53 70 72 24 3a 24  53 41 56 73 6e 25 3d 22  |veSpr$:$SAVsn%="|
00001b50  66 69 6c 65 5f 66 66 39  22 3a f4 20 53 65 74 20  |file_ff9":. Set |
00001b60  66 69 6c 65 20 77 69 6e  64 6f 77 20 66 6f 72 20  |file window for |
00001b70  73 70 72 69 74 65 0d 05  5a 32 20 20 f2 6f 70 65  |sprite..Z2  .ope|
00001b80  6e 5f 77 69 6e 64 6f 77  28 77 69 6e 5f 66 69 6c  |n_window(win_fil|
00001b90  65 25 2c 30 29 3a f4 20  4f 70 65 6e 20 66 69 6c  |e%,0):. Open fil|
00001ba0  65 20 77 69 6e 64 6f 77  0d 05 64 37 20 c9 20 22  |e window..d7 . "|
00001bb0  49 6e 63 6c 75 64 65 20  70 61 6c 65 74 74 65 22  |Include palette"|
00001bc0  20 3a 20 f4 20 54 6f 67  67 6c 65 20 73 61 76 65  | : . Toggle save|
00001bd0  2d 70 61 6c 65 74 74 65  20 6f 6e 2f 6f 66 66 0d  |-palette on/off.|
00001be0  05 6e 21 20 20 50 61 6c  6f 6e 6f 66 66 3d ac 50  |.n!  Palonoff=.P|
00001bf0  61 6c 6f 6e 6f 66 66 3a  f4 20 54 6f 67 67 6c 65  |alonoff:. Toggle|
00001c00  0d 05 78 2f 20 c9 20 22  49 6d 61 67 65 20 70 61  |..x/ . "Image pa|
00001c10  6c 65 74 74 65 22 20 3a  20 f4 20 53 65 6c 65 63  |lette" : . Selec|
00001c20  74 20 69 6d 61 67 65 20  70 61 6c 65 74 74 65 0d  |t image palette.|
00001c30  05 82 15 20 20 f2 73 65  74 5f 70 61 6c 65 74 74  |...  .set_palett|
00001c40  65 28 31 29 0d 05 8c 27  20 c9 20 22 52 6f 74 61  |e(1)...' . "Rota|
00001c50  74 65 20 69 6d 61 67 65  22 20 3a 20 f4 20 52 6f  |te image" : . Ro|
00001c60  74 61 74 65 20 73 70 72  69 74 65 0d 05 96 1d 20  |tate sprite.... |
00001c70  20 f2 68 6f 75 72 5f 6f  6e 3a f4 20 48 6f 75 72  | .hour_on:. Hour|
00001c80  67 6c 61 73 73 20 6f 6e  0d 05 a0 34 20 20 c8 99  |glass on...4  ..|
00001c90  20 22 54 72 61 6e 73 6c  61 74 6f 72 5f 52 6f 74  | "Translator_Rot|
00001ca0  61 74 65 22 2c 53 70 72  50 74 72 25 3a f4 20 52  |ate",SprPtr%:. R|
00001cb0  6f 74 61 74 65 20 73 70  72 69 74 65 0d 05 aa 1f  |otate sprite....|
00001cc0  20 20 f2 68 6f 75 72 5f  6f 66 66 3a f4 20 48 6f  |  .hour_off:. Ho|
00001cd0  75 72 67 6c 61 73 73 20  6f 66 66 0d 05 b4 3e 20  |urglass off...> |
00001ce0  20 f2 73 70 72 69 74 65  5f 68 65 61 64 65 72 28  | .sprite_header(|
00001cf0  31 29 3a c8 94 20 53 70  72 48 25 2c 53 70 72 57  |1):.. SprH%,SprW|
00001d00  25 3a f4 20 53 65 74 20  73 70 72 69 74 65 20 69  |%:. Set sprite i|
00001d10  6e 66 6f 20 72 69 67 68  74 0d 05 be 40 20 20 f2  |nfo right...@  .|
00001d20  6e 65 77 5f 69 6d 61 67  65 5f 77 69 6e 64 6f 77  |new_image_window|
00001d30  3a f2 6e 65 77 5f 77 69  6e 64 6f 77 28 77 69 6e  |:.new_window(win|
00001d40  5f 69 6d 67 25 29 3a f4  20 4e 65 77 20 69 6d 61  |_img%):. New ima|
00001d50  67 65 20 77 69 6e 64 6f  77 0d 05 c8 26 20 c9 20  |ge window...& . |
00001d60  22 4d 69 72 72 6f 72 20  69 6d 61 67 65 22 20 3a  |"Mirror image" :|
00001d70  20 f4 20 4d 69 72 72 6f  72 20 69 6d 61 67 65 0d  | . Mirror image.|
00001d80  05 d2 39 20 20 f2 76 61  72 28 22 77 69 64 74 22  |..9  .var("widt"|
00001d90  2c 53 70 72 57 25 29 3a  f2 76 61 72 28 22 68 65  |,SprW%):.var("he|
00001da0  69 67 22 2c 53 70 72 48  25 29 3a f4 20 4d 6f 64  |ig",SprH%):. Mod|
00001db0  75 6c 65 20 69 6e 66 6f  0d 05 dc 1d 20 20 f2 68  |ule info....  .h|
00001dc0  6f 75 72 5f 6f 6e 3a f4  20 48 6f 75 72 67 6c 61  |our_on:. Hourgla|
00001dd0  73 73 20 6f 6e 0d 05 e6  67 20 20 e7 73 65 6c 65  |ss on...g  .sele|
00001de0  63 74 32 24 3d 22 78 22  20 8c 20 c8 99 20 22 54  |ct2$="x" . .. "T|
00001df0  72 61 6e 73 6c 61 74 6f  72 5f 4d 69 72 72 6f 72  |ranslator_Mirror|
00001e00  58 22 2c 53 70 72 50 74  72 25 20 8b 20 c8 99 20  |X",SprPtr% . .. |
00001e10  22 54 72 61 6e 73 6c 61  74 6f 72 5f 4d 69 72 72  |"Translator_Mirr|
00001e20  6f 72 59 22 2c 53 70 72  50 74 72 25 3a f4 20 4d  |orY",SprPtr%:. M|
00001e30  69 72 72 6f 72 20 73 70  72 69 74 65 0d 05 f0 1f  |irror sprite....|
00001e40  20 20 f2 68 6f 75 72 5f  6f 66 66 3a f4 20 48 6f  |  .hour_off:. Ho|
00001e50  75 72 67 6c 61 73 73 20  6f 66 66 0d 05 fa 32 20  |urglass off...2 |
00001e60  20 f2 6e 65 77 5f 77 69  6e 64 6f 77 28 77 69 6e  | .new_window(win|
00001e70  5f 69 6d 67 25 29 3a f4  20 46 72 65 73 68 65 6e  |_img%):. Freshen|
00001e80  20 69 6d 61 67 65 20 77  69 6e 64 6f 77 0d 06 04  | image window...|
00001e90  27 20 c9 20 22 53 74 61  74 75 73 22 20 3a 20 f4  |' . "Status" : .|
00001ea0  20 4d 61 6e 69 70 75 6c  61 74 65 20 64 65 66 61  | Manipulate defa|
00001eb0  75 6c 74 73 0d 06 0e 13  20 20 c8 8e 20 73 65 6c  |ults....  .. sel|
00001ec0  65 63 74 32 24 20 ca 0d  06 18 d9 20 20 20 c9 20  |ect2$ .....   . |
00001ed0  22 53 61 76 65 22 20 3a  20 53 74 61 74 75 73 3d  |"Save" : Status=|
00001ee0  ae 28 22 3c 54 72 61 6e  73 6c 61 74 6f 72 24 44  |.("<Translator$D|
00001ef0  69 72 3e 2e 53 74 61 74  75 73 22 29 3a f1 23 53  |ir>.Status"):.#S|
00001f00  74 61 74 75 73 2c 41 75  74 6f 4d 6f 64 65 2c 41  |tatus,AutoMode,A|
00001f10  75 74 6f 50 61 6c 2c 4d  6f 64 65 53 65 74 2c 45  |utoPal,ModeSet,E|
00001f20  72 72 53 70 72 65 61 64  2c 50 61 6c 6f 6e 6f 66  |rrSpread,Palonof|
00001f30  66 2c 55 73 65 72 4d 6f  64 65 53 65 74 25 28 31  |f,UserModeSet%(1|
00001f40  29 2c 55 73 65 72 4d 6f  64 65 53 65 74 25 28 32  |),UserModeSet%(2|
00001f50  29 2c 55 73 65 72 4d 6f  64 65 53 65 74 25 28 33  |),UserModeSet%(3|
00001f60  29 2c 55 73 65 72 4d 6f  64 65 53 65 74 25 28 34  |),UserModeSet%(4|
00001f70  29 2c 41 75 74 6f 5a 6f  6f 6d 2c 42 6c 61 63 6b  |),AutoZoom,Black|
00001f80  57 68 69 74 65 2c 47 49  46 53 63 61 6e 2c 42 6c  |White,GIFScan,Bl|
00001f90  61 6e 6b 69 6e 67 2c 49  6e 76 65 72 74 52 47 42  |anking,InvertRGB|
00001fa0  0d 06 22 20 20 20 20 20  f1 23 53 74 61 74 75 73  |.."     .#Status|
00001fb0  2c 5a 69 67 5a 61 67 3a  d9 23 53 74 61 74 75 73  |,ZigZag:.#Status|
00001fc0  0d 06 2c 62 20 20 20 c9  20 22 4c 6f 61 64 22 20  |..,b   . "Load" |
00001fd0  3a 20 e7 a4 6c 6f 61 64  5f 73 74 61 74 75 73 20  |: ..load_status |
00001fe0  8b 20 f2 65 72 72 6f 72  28 2d 31 2c 22 49 20 63  |. .error(-1,"I c|
00001ff0  61 6e 6e 6f 74 20 66 69  6e 64 20 6d 79 20 73 74  |annot find my st|
00002000  61 74 75 73 20 66 69 6c  65 20 21 20 48 61 76 65  |atus file ! Have|
00002010  20 79 6f 75 20 73 61 76  65 64 20 6f 6e 65 20 3f  | you saved one ?|
00002020  22 29 0d 06 36 3a 20 20  20 c9 20 22 4b 69 6c 6c  |")..6:   . "Kill|
00002030  22 20 3a 20 c8 99 20 22  4f 53 5f 46 69 6c 65 22  |" : .. "OS_File"|
00002040  2c 36 2c 22 3c 54 72 61  6e 73 6c 61 74 6f 72 24  |,6,"<Translator$|
00002050  44 69 72 3e 2e 53 74 61  74 75 73 22 0d 06 40 07  |Dir>.Status"..@.|
00002060  20 20 cb 0d 06 4a 05 cb  0d 06 54 28 c8 99 20 57  |  ...J....T(.. W|
00002070  47 65 74 50 49 25 2c 2c  62 6c 6f 63 6b 3a f4 20  |GetPI%,,block:. |
00002080  47 65 74 20 70 6f 69 6e  74 65 72 20 69 6e 66 6f  |Get pointer info|
00002090  0d 06 5e 3b e7 28 28 62  6c 6f 63 6b 21 38 29 80  |..^;.((block!8).|
000020a0  31 29 3e 30 20 8c 20 f2  6f 70 74 69 6f 6e 73 5f  |1)>0 . .options_|
000020b0  6d 65 6e 75 28 b9 29 3a  f4 20 41 64 6a 75 73 74  |menu(.):. Adjust|
000020c0  20 2d 3e 20 72 65 2d 6f  70 65 6e 0d 06 68 05 e1  | -> re-open..h..|
000020d0  0d 06 72 04 0d 06 7c 0b  dd f2 63 6c 6f 73 65 0d  |..r...|...close.|
000020e0  06 86 1f 77 69 6e 25 3d  70 6f 6c 6c 21 30 3a f4  |...win%=poll!0:.|
000020f0  20 57 69 6e 64 6f 77 20  68 61 6e 64 6c 65 0d 06  | Window handle..|
00002100  90 26 f2 63 6c 6f 73 65  5f 77 69 6e 64 6f 77 28  |.&.close_window(|
00002110  77 69 6e 25 29 3a f4 20  43 6c 6f 73 65 20 77 69  |win%):. Close wi|
00002120  6e 64 6f 77 0d 06 9a 4f  e7 77 69 6e 25 3d 77 69  |ndow...O.win%=wi|
00002130  6e 5f 69 6d 67 25 20 8c  20 f2 69 6e 76 61 6c 69  |n_img% . .invali|
00002140  64 61 74 65 5f 69 6d 61  67 65 3a f2 73 65 74 5f  |date_image:.set_|
00002150  70 61 6c 65 74 74 65 28  30 29 3a f2 63 6c 6f 73  |palette(0):.clos|
00002160  65 5f 77 69 6e 64 6f 77  28 77 69 6e 5f 66 69 6c  |e_window(win_fil|
00002170  65 25 29 0d 06 a4 05 e1  0d 06 ae 04 0d 06 b8 0a  |e%).............|
00002180  dd f2 6f 70 65 6e 0d 06  c2 18 f2 6f 70 65 6e 5f  |..open.....open_|
00002190  77 69 6e 64 6f 77 28 30  2c 70 6f 6c 6c 29 0d 06  |window(0,poll)..|
000021a0  cc 05 e1 0d 06 d6 04 0d  06 e0 0c dd f2 72 65 64  |.............red|
000021b0  72 61 77 0d 06 ea 1c f2  72 65 64 72 61 77 5f 77  |raw.....redraw_w|
000021c0  69 6e 64 6f 77 28 70 6f  6c 6c 21 30 2c a3 29 0d  |indow(poll!0,.).|
000021d0  06 f4 05 e1 0d 06 fe 04  0d 07 08 0a dd f2 6e 75  |..............nu|
000021e0  6c 6c 0d 07 12 13 e7 44  61 74 61 4c 6f 61 64 52  |ll.....DataLoadR|
000021f0  65 66 25 20 8c 0d 07 1c  44 20 44 61 74 61 4c 6f  |ef% ....D DataLo|
00002200  61 64 52 65 66 25 3d a3  3a c8 99 20 22 4f 53 5f  |adRef%=.:.. "OS_|
00002210  46 69 6c 65 22 2c 36 2c  53 61 76 65 24 3a f4 20  |File",6,Save$:. |
00002220  44 65 6c 65 74 65 20 66  69 6c 65 20 73 61 76 65  |Delete file save|
00002230  64 2f 63 72 65 61 74 65  64 0d 07 26 43 20 f2 65  |d/created..&C .e|
00002240  72 72 6f 72 28 2d 31 2c  22 42 61 64 20 64 61 74  |rror(-1,"Bad dat|
00002250  61 20 74 72 61 6e 73 66  65 72 2c 20 72 65 63 65  |a transfer, rece|
00002260  69 76 65 72 20 64 65 61  64 22 29 3a f4 20 4e 6f  |iver dead"):. No|
00002270  20 44 61 74 61 4c 6f 61  64 41 63 6b 0d 07 30 05  | DataLoadAck..0.|
00002280  cd 0d 07 3a 05 e1 0d 07  44 04 0d 07 4e 09 dd f2  |...:....D...N...|
00002290  6b 65 79 0d 07 58 45 77  69 6e 25 3d 70 6f 6c 6c  |key..XEwin%=poll|
000022a0  21 30 3a 69 63 6f 25 3d  70 6f 6c 6c 21 34 3a 63  |!0:ico%=poll!4:c|
000022b0  68 61 72 25 3d 70 6f 6c  6c 21 32 34 3a f4 20 57  |har%=poll!24:. W|
000022c0  69 6e 64 6f 77 2c 20 69  63 6f 6e 2c 20 6b 65 79  |indow, icon, key|
000022d0  20 70 72 65 73 73 65 64  0d 07 62 22 e7 28 77 69  | pressed..b".(wi|
000022e0  6e 25 3d 77 69 6e 5f 66  69 6c 65 25 29 20 80 20  |n%=win_file%) . |
000022f0  28 69 63 6f 25 3d 31 29  20 8c 0d 07 6c 0f 20 c8  |(ico%=1) ...l. .|
00002300  8e 20 63 68 61 72 25 20  ca 0d 07 76 1d 20 20 c9  |. char% ...v.  .|
00002310  20 31 33 20 3a 20 f4 20  52 65 74 75 72 6e 20 70  | 13 : . Return p|
00002320  72 65 73 73 65 64 0d 07  80 4a 20 20 20 f2 65 72  |ressed...J   .er|
00002330  72 6f 72 28 2d 31 2c 22  50 6c 65 61 73 65 20 64  |ror(-1,"Please d|
00002340  72 61 67 20 74 68 65 20  73 70 72 69 74 65 20 66  |rag the sprite f|
00002350  69 6c 65 20 69 63 6f 6e  20 74 6f 20 61 20 64 69  |ile icon to a di|
00002360  72 65 63 74 6f 72 79 20  76 69 65 77 65 72 22 29  |rectory viewer")|
00002370  0d 07 8a 1d 20 20 c9 20  32 37 20 3a 20 f4 20 45  |....  . 27 : . E|
00002380  73 63 61 70 65 20 70 72  65 73 73 65 64 0d 07 94  |scape pressed...|
00002390  1f 20 20 20 f2 63 6c 6f  73 65 5f 77 69 6e 64 6f  |.   .close_windo|
000023a0  77 28 77 69 6e 5f 66 69  6c 65 25 29 0d 07 9e 06  |w(win_file%)....|
000023b0  20 cb 0d 07 a8 05 cd 0d  07 b2 05 e1 0d 07 bc 04  | ...............|
000023c0  0d 07 c6 0d dd f2 6d 65  73 73 61 67 65 0d 07 d0  |......message...|
000023d0  2d f4 20 49 67 6e 6f 72  65 20 6d 65 73 73 61 67  |-. Ignore messag|
000023e0  65 73 20 6f 72 69 67 69  6e 61 74 69 6e 67 20 66  |es originating f|
000023f0  72 6f 6d 20 6d 79 73 65  6c 66 0d 07 da 36 e7 28  |rom myself...6.(|
00002400  70 6f 6c 6c 21 34 29 3d  54 61 73 6b 48 61 6e 64  |poll!4)=TaskHand|
00002410  6c 65 25 20 8c 20 6d 73  67 6e 72 25 3d 2d 31 20  |le% . msgnr%=-1 |
00002420  8b 20 6d 73 67 6e 72 25  3d 70 6f 6c 6c 21 31 36  |. msgnr%=poll!16|
00002430  0d 07 e4 0f c8 8e 20 6d  73 67 6e 72 25 20 ca 0d  |...... msgnr% ..|
00002440  07 ee 19 20 c9 20 2d 31  20 3a 20 f4 20 44 6f 6e  |... . -1 : . Don|
00002450  27 74 20 72 65 61 63 74  0d 07 f8 2b 20 c9 20 30  |'t react...+ . 0|
00002460  20 3a 20 f2 64 69 65 3a  f4 20 52 65 71 75 65 73  | : .die:. Reques|
00002470  74 20 74 6f 20 74 65 72  6d 69 6e 61 74 65 20 74  |t to terminate t|
00002480  61 73 6b 0d 08 02 2e 20  c9 20 31 20 3a 20 f4 20  |ask.... . 1 : . |
00002490  44 61 74 61 53 61 76 65  2c 20 74 72 61 6e 73 66  |DataSave, transf|
000024a0  65 72 20 76 69 61 20 73  63 72 61 70 20 66 69 6c  |er via scrap fil|
000024b0  65 0d 08 0c 37 20 20 73  63 72 61 70 24 3d a4 4f  |e...7  scrap$=.O|
000024c0  53 76 61 72 28 22 57 69  6d 70 24 53 63 72 61 70  |Svar("Wimp$Scrap|
000024d0  22 29 3a f4 20 52 65 61  64 20 73 63 72 61 70 20  |"):. Read scrap |
000024e0  66 69 6c 65 6e 61 6d 65  0d 08 16 d2 20 20 e7 73  |filename....  .s|
000024f0  63 72 61 70 24 3c 3e 22  22 20 8c 20 70 6f 6c 6c  |crap$<>"" . poll|
00002500  21 31 32 3d 70 6f 6c 6c  21 38 3a 70 6f 6c 6c 21  |!12=poll!8:poll!|
00002510  31 36 3d 32 3a 70 6f 6c  6c 21 33 36 3d 2d 31 3a  |16=2:poll!36=-1:|
00002520  24 28 70 6f 6c 6c 2b 34  34 29 3d 73 63 72 61 70  |$(poll+44)=scrap|
00002530  24 2b bd 30 3a 70 6f 6c  6c 21 30 3d 34 34 2b 28  |$+.0:poll!0=44+(|
00002540  a9 73 63 72 61 70 24 2b  31 2b 33 29 80 ac 33 3a  |.scrap$+1+3)..3:|
00002550  c8 99 20 57 53 65 6e 64  4d 73 67 25 2c 31 38 2c  |.. WSendMsg%,18,|
00002560  70 6f 6c 6c 2c 70 6f 6c  6c 21 34 20 8b 20 f2 65  |poll,poll!4 . .e|
00002570  72 72 6f 72 28 2d 31 2c  22 57 69 6d 70 24 53 63  |rror(-1,"Wimp$Sc|
00002580  72 61 70 20 6e 6f 74 20  64 65 66 69 6e 65 64 22  |rap not defined"|
00002590  29 3a f4 20 53 65 6e 64  20 44 61 74 61 53 61 76  |):. Send DataSav|
000025a0  65 41 63 6b 20 69 66 20  73 63 72 61 70 20 66 69  |eAck if scrap fi|
000025b0  6c 65 20 64 65 66 69 6e  65 64 0d 08 20 23 20 c9  |le defined.. # .|
000025c0  20 32 20 3a 20 f4 20 44  61 74 61 53 61 76 65 41  | 2 : . DataSaveA|
000025d0  63 6b 2c 20 73 61 76 65  20 66 69 6c 65 0d 08 2a  |ck, save file..*|
000025e0  1d 20 20 e7 70 6f 6c 6c  21 31 32 3d 44 61 74 61  |.  .poll!12=Data|
000025f0  53 61 76 65 52 65 66 25  20 8c 0d 08 34 49 20 20  |SaveRef% ...4I  |
00002600  20 53 61 76 65 24 3d a4  73 74 72 69 6e 67 28 70  | Save$=.string(p|
00002610  6f 6c 6c 2b 34 34 29 3a  f4 20 46 75 6c 6c 20 70  |oll+44):. Full p|
00002620  61 74 68 6e 61 6d 65 20  6f 66 20 66 69 6c 65 20  |athname of file |
00002630  74 6f 20 62 65 20 73 61  76 65 64 2f 63 72 65 61  |to be saved/crea|
00002640  74 65 64 0d 08 3e 2e 20  20 20 f4 20 53 61 76 65  |ted..>.   . Save|
00002650  20 73 70 72 69 74 65 20  66 69 6c 65 20 6f 72 20  | sprite file or |
00002660  27 6f 70 65 6e 27 20 43  6c 65 61 72 20 66 69 6c  |'open' Clear fil|
00002670  65 0d 08 48 85 20 20 20  e7 24 53 41 56 73 6e 25  |e..H.   .$SAVsn%|
00002680  3d 22 66 69 6c 65 5f 66  66 39 22 20 8c 20 53 70  |="file_ff9" . Sp|
00002690  72 53 61 76 65 24 3d 53  61 76 65 24 3a f2 73 61  |rSave$=Save$:.sa|
000026a0  76 65 5f 73 70 72 69 74  65 28 53 70 72 53 61 76  |ve_sprite(SprSav|
000026b0  65 24 29 20 8b 20 43 6c  65 61 72 53 61 76 65 24  |e$) . ClearSave$|
000026c0  3d 53 61 76 65 24 3a c8  99 20 22 4f 53 5f 46 69  |=Save$:.. "OS_Fi|
000026d0  6c 65 22 2c 31 31 2c 43  6c 65 61 72 53 61 76 65  |le",11,ClearSave|
000026e0  24 2c 26 36 39 30 2c 30  2c 30 3a 43 6c 65 61 72  |$,&690,0,0:Clear|
000026f0  46 69 6c 65 3d b9 0d 08  52 3f 20 20 20 70 6f 6c  |File=...R?   pol|
00002700  6c 21 31 32 3d 70 6f 6c  6c 21 38 3a 70 6f 6c 6c  |l!12=poll!8:poll|
00002710  21 31 36 3d 33 3a f4 20  41 6d 65 6e 64 20 64 61  |!16=3:. Amend da|
00002720  74 61 20 62 6c 6f 63 6b  20 66 6f 72 20 44 61 74  |ta block for Dat|
00002730  61 4c 6f 61 64 0d 08 5c  32 20 20 20 c8 99 20 57  |aLoad..\2   .. W|
00002740  53 65 6e 64 4d 73 67 25  2c 31 38 2c 70 6f 6c 6c  |SendMsg%,18,poll|
00002750  2c 70 6f 6c 6c 21 34 3a  f4 20 53 65 6e 64 20 44  |,poll!4:. Send D|
00002760  61 74 61 4c 6f 61 64 0d  08 66 40 20 20 20 44 61  |ataLoad..f@   Da|
00002770  74 61 4c 6f 61 64 52 65  66 25 3d 70 6f 6c 6c 21  |taLoadRef%=poll!|
00002780  38 3a f4 20 41 77 61 69  74 20 61 20 44 61 74 61  |8:. Await a Data|
00002790  4c 6f 61 64 41 63 6b 2c  20 72 65 6d 65 6d 62 65  |LoadAck, remembe|
000027a0  72 20 6d 79 72 65 66 0d  08 70 07 20 20 cd 0d 08  |r myref..p.  ...|
000027b0  7a 2e 20 c9 20 33 2c 35  20 3a 20 f4 20 44 61 74  |z. . 3,5 : . Dat|
000027c0  61 4c 6f 61 64 2f 4f 70  65 6e 20 3a 20 61 74 74  |aLoad/Open : att|
000027d0  65 6d 70 74 20 74 6f 20  6c 6f 61 64 0d 08 84 1e  |empt to load....|
000027e0  20 20 74 79 70 65 25 3d  70 6f 6c 6c 21 34 30 3a  |  type%=poll!40:|
000027f0  f4 20 46 69 6c 65 74 79  70 65 0d 08 8e 27 20 20  |. Filetype...'  |
00002800  6e 61 6d 65 24 3d a4 73  74 72 69 6e 67 28 70 6f  |name$=.string(po|
00002810  6c 6c 2b 34 34 29 3a f4  20 46 69 6c 65 6e 61 6d  |ll+44):. Filenam|
00002820  65 0d 08 98 10 20 20 c8  8e 20 74 79 70 65 25 20  |e....  .. type% |
00002830  ca 0d 08 a2 4f 20 20 20  c9 20 26 36 39 30 2c 26  |....O   . &690,&|
00002840  36 39 31 2c 26 36 39 32  2c 26 36 39 33 2c 26 36  |691,&692,&693,&6|
00002850  39 34 2c 26 36 39 35 2c  26 36 39 36 2c 26 36 39  |94,&695,&696,&69|
00002860  37 2c 26 36 39 38 2c 26  46 46 30 20 3a 20 f2 6c  |7,&698,&FF0 : .l|
00002870  6f 61 64 28 74 79 70 65  25 2c 6e 61 6d 65 24 29  |oad(type%,name$)|
00002880  0d 08 ac 42 20 20 20 c9  20 26 46 46 39 2c 26 44  |...B   . &FF9,&D|
00002890  45 32 2c 26 44 46 41 2c  26 44 35 38 2c 26 30 30  |E2,&DFA,&D58,&00|
000028a0  34 20 3a 20 e7 6d 73 67  6e 72 25 3d 33 20 8c 20  |4 : .msgnr%=3 . |
000028b0  f2 6c 6f 61 64 28 74 79  70 65 25 2c 6e 61 6d 65  |.load(type%,name|
000028c0  24 29 0d 08 b6 40 20 20  7f 20 3a 20 f4 20 46 69  |$)...@  . : . Fi|
000028d0  6c 65 74 79 70 65 20 6e  6f 74 20 72 65 63 6f 67  |letype not recog|
000028e0  6e 69 7a 65 64 2c 20 6c  6f 6f 6b 20 61 74 20 63  |nized, look at c|
000028f0  6f 6e 74 65 6e 74 73 20  69 66 20 64 72 61 67 67  |ontents if dragg|
00002900  65 64 0d 08 c0 12 20 20  20 e7 6d 73 67 6e 72 25  |ed....   .msgnr%|
00002910  3d 33 20 8c 0d 08 ca 53  20 20 20 20 48 65 61 64  |=3 ....S    Head|
00002920  3d 8e 28 6e 61 6d 65 24  29 3a 69 64 24 3d 22 22  |=.(name$):id$=""|
00002930  3a e3 20 69 25 3d 31 20  b8 20 31 32 3a 69 64 24  |:. i%=1 . 12:id$|
00002940  2b 3d bd 28 9a 23 48 65  61 64 29 3a ed 3a d9 23  |+=.(.#Head):.:.#|
00002950  48 65 61 64 3a f4 20 47  65 74 20 68 65 61 64 20  |Head:. Get head |
00002960  6f 66 20 66 69 6c 65 0d  08 d4 29 20 20 20 20 74  |of file...)    t|
00002970  79 70 65 25 3d 2d 31 3a  f4 20 4e 6f 20 72 65 63  |ype%=-1:. No rec|
00002980  6f 67 6e 69 7a 65 64 20  74 79 70 65 20 79 65 74  |ognized type yet|
00002990  0d 08 de 5a 20 20 20 20  e7 c0 69 64 24 2c 36 29  |...Z    ..id$,6)|
000029a0  3d 22 47 49 46 38 37 61  22 20 8c 20 74 79 70 65  |="GIF87a" . type|
000029b0  25 3d 26 36 39 35 20 8b  20 e7 28 c0 69 64 24 2c  |%=&695 . .(.id$,|
000029c0  34 29 3d 22 46 4f 52 4d  22 29 20 80 20 28 c2 69  |4)="FORM") . (.i|
000029d0  64 24 2c 34 29 3d 22 49  4c 42 4d 22 29 20 8c 20  |d$,4)="ILBM") . |
000029e0  74 79 70 65 25 3d 26 36  39 33 0d 08 e8 6d 20 20  |type%=&693...m  |
000029f0  20 20 e7 74 79 70 65 25  3d 2d 31 20 8c 20 e7 c0  |  .type%=-1 . ..|
00002a00  69 64 24 2c 34 29 3d bd  26 35 39 2b bd 26 41 36  |id$,4)=.&59+.&A6|
00002a10  2b bd 26 36 41 2b bd 26  39 35 20 8c 20 74 79 70  |+.&6A+.&95 . typ|
00002a20  65 25 3d 26 36 39 36 20  8b 20 e7 28 c0 69 64 24  |e%=&696 . .(.id$|
00002a30  2c 32 29 3d 22 49 49 22  29 20 84 20 28 c0 69 64  |,2)="II") . (.id|
00002a40  24 2c 32 29 3d 22 4d 4d  22 29 20 8c 20 74 79 70  |$,2)="MM") . typ|
00002a50  65 25 3d 26 46 46 30 0d  08 f2 bd 20 20 20 20 e7  |e%=&FF0....    .|
00002a60  74 79 70 65 25 3e 30 20  8c 20 c8 99 20 22 4f 53  |type%>0 . .. "OS|
00002a70  5f 43 4c 49 22 2c 22 53  65 74 54 79 70 65 20 22  |_CLI","SetType "|
00002a80  2b 6e 61 6d 65 24 2b 22  20 22 2b c3 7e 28 74 79  |+name$+" "+.~(ty|
00002a90  70 65 25 29 3a f2 6c 6f  61 64 28 74 79 70 65 25  |pe%):.load(type%|
00002aa0  2c 6e 61 6d 65 24 29 20  8b 20 f2 65 72 72 6f 72  |,name$) . .error|
00002ab0  28 2d 31 2c 22 49 20 64  6f 6e 27 74 20 72 65 63  |(-1,"I don't rec|
00002ac0  6f 67 6e 69 7a 65 20 74  68 69 73 20 66 69 6c 65  |ognize this file|
00002ad0  2e 20 50 6c 65 61 73 65  20 66 69 6c 65 74 79 70  |. Please filetyp|
00002ae0  65 20 69 74 20 61 70 70  72 6f 70 69 61 74 65 6c  |e it appropiatel|
00002af0  79 2e 22 29 3a f4 20 46  69 6c 65 74 79 70 65 20  |y."):. Filetype |
00002b00  61 6e 64 20 6c 6f 61 64  20 6f 72 20 63 6f 6d 70  |and load or comp|
00002b10  6c 61 69 6e 0d 08 fc 08  20 20 20 cd 0d 09 06 07  |lain....   .....|
00002b20  20 20 cb 0d 09 10 29 20  c9 20 34 20 3a 20 f4 20  |  ....) . 4 : . |
00002b30  44 61 74 61 4c 6f 61 64  41 63 6b 2c 20 63 68 65  |DataLoadAck, che|
00002b40  63 6b 20 6f 72 20 69 67  6e 6f 72 65 0d 09 1a 3c  |ck or ignore...<|
00002b50  20 20 e7 44 61 74 61 4c  6f 61 64 52 65 66 25 20  |  .DataLoadRef% |
00002b60  8c 20 e7 70 6f 6c 6c 21  31 32 3d 44 61 74 61 4c  |. .poll!12=DataL|
00002b70  6f 61 64 52 65 66 25 20  8c 20 44 61 74 61 4c 6f  |oadRef% . DataLo|
00002b80  61 64 52 65 66 25 3d a3  0d 09 24 21 20 c9 20 26  |adRef%=...$! . &|
00002b90  34 30 30 43 30 20 3a 20  f4 20 53 75 62 6d 65 6e  |400C0 : . Submen|
00002ba0  75 20 77 61 72 6e 69 6e  67 0d 09 2e 47 20 20 70  |u warning...G  p|
00002bb0  6f 69 6e 74 65 72 25 3d  70 6f 6c 6c 21 32 30 3a  |ointer%=poll!20:|
00002bc0  78 25 3d 70 6f 6c 6c 21  32 34 3a 79 25 3d 70 6f  |x%=poll!24:y%=po|
00002bd0  6c 6c 21 32 38 3a f4 20  47 65 74 20 70 6f 69 6e  |ll!28:. Get poin|
00002be0  74 65 72 2f 70 72 6f 70  6f 73 65 64 20 78 2f 79  |ter/proposed x/y|
00002bf0  0d 09 38 41 20 20 c8 99  20 57 44 65 63 6f 64 65  |..8A  .. WDecode|
00002c00  4d 25 2c 2c 6d 65 6e 75  31 2c 70 6f 6c 6c 2b 33  |M%,,menu1,poll+3|
00002c10  32 2c c4 31 30 30 2c 22  20 22 29 20 b8 20 2c 2c  |2,.100," ") . ,,|
00002c20  2c 70 61 74 68 24 3a f4  20 47 65 74 20 70 61 74  |,path$:. Get pat|
00002c30  68 0d 09 42 10 20 20 c8  8e 20 70 61 74 68 24 20  |h..B.  .. path$ |
00002c40  ca 0d 09 4c 8a 20 20 20  c9 20 22 50 72 6f 63 65  |...L.   . "Proce|
00002c50  73 73 69 6e 67 2e 43 6c  65 61 72 20 6f 75 74 70  |ssing.Clear outp|
00002c60  75 74 22 20 3a 20 24 53  41 56 66 6e 25 3d 53 61  |ut" : $SAVfn%=Sa|
00002c70  76 65 43 6c 65 61 72 24  3a 24 53 41 56 73 6e 25  |veClear$:$SAVsn%|
00002c80  3d 22 66 69 6c 65 5f 36  39 30 22 3a c8 99 20 57  |="file_690":.. W|
00002c90  43 72 65 61 74 65 53 4d  25 2c 2c 70 6f 69 6e 74  |CreateSM%,,point|
00002ca0  65 72 25 2c 78 25 2c 79  25 3a f4 20 4f 70 65 6e  |er%,x%,y%:. Open|
00002cb0  20 66 69 6c 65 20 77 69  6e 64 6f 77 20 66 6f 72  | file window for|
00002cc0  20 43 6c 65 61 72 20 66  69 6c 65 0d 09 56 64 20  | Clear file..Vd |
00002cd0  20 20 c9 20 22 49 6d 61  67 65 20 69 6e 66 6f 22  |  . "Image info"|
00002ce0  2c 22 49 6e 66 6f 22 2c  22 46 69 6c 65 74 79 70  |,"Info","Filetyp|
00002cf0  65 73 22 2c 22 50 72 6f  63 65 73 73 69 6e 67 2e  |es","Processing.|
00002d00  52 47 42 20 72 65 73 6f  6c 75 74 69 6f 6e 22 20  |RGB resolution" |
00002d10  3a 20 c8 99 20 57 43 72  65 61 74 65 53 4d 25 2c  |: .. WCreateSM%,|
00002d20  2c 70 6f 69 6e 74 65 72  25 2c 78 25 2c 79 25 0d  |,pointer%,x%,y%.|
00002d30  09 60 1c 20 20 20 7f 20  3a 20 f2 73 75 62 6d 65  |.`.   . : .subme|
00002d40  6e 75 28 70 61 74 68 24  2c b9 29 0d 09 6a 07 20  |nu(path$,.)..j. |
00002d50  20 cb 0d 09 74 40 20 c9  20 26 34 30 30 43 31 20  | ...t@ . &400C1 |
00002d60  3a 20 f4 20 4d 6f 64 65  20 68 61 73 20 63 68 61  |: . Mode has cha|
00002d70  6e 67 65 64 20 28 61 6e  64 20 69 74 20 6d 61 79  |nged (and it may|
00002d80  20 6e 6f 74 20 68 61 76  65 20 62 65 65 6e 20 6d  | not have been m|
00002d90  65 29 0d 09 7e 20 20 20  f2 6d 6f 64 65 5f 63 68  |e)..~   .mode_ch|
00002da0  61 6e 67 65 28 2d 31 29  3a f4 20 54 69 64 79 20  |ange(-1):. Tidy |
00002db0  75 70 0d 09 88 36 20 c9  20 26 43 43 45 30 30 20  |up...6 . &CCE00 |
00002dc0  3a 20 f4 20 4f 74 68 65  72 20 54 72 61 6e 73 6c  |: . Other Transl|
00002dd0  61 74 6f 72 20 61 73 6b  73 20 74 6f 20 6b 69 6c  |ator asks to kil|
00002de0  6c 20 6d 6f 64 75 6c 65  0d 09 92 3e 20 20 70 6f  |l module...>  po|
00002df0  6c 6c 21 31 32 3d 70 6f  6c 6c 21 38 3a c8 99 20  |ll!12=poll!8:.. |
00002e00  57 53 65 6e 64 4d 73 67  25 2c 31 39 2c 70 6f 6c  |WSendMsg%,19,pol|
00002e10  6c 2c 70 6f 6c 6c 21 34  3a f4 20 48 61 6e 64 73  |l,poll!4:. Hands|
00002e20  20 6f 66 66 20 21 0d 09  9c 05 cb 0d 09 a6 05 e1  | off !..........|
00002e30  0d 09 b0 05 20 0d 09 ba  10 dd f2 6d 6f 75 73 65  |.... ......mouse|
00002e40  63 6c 69 63 6b 0d 09 c4  3f 62 75 74 25 3d 70 6f  |click...?but%=po|
00002e50  6c 6c 21 38 3a 77 69 6e  25 3d 70 6f 6c 6c 21 31  |ll!8:win%=poll!1|
00002e60  32 3a 69 63 6f 25 3d 70  6f 6c 6c 21 31 36 3a f4  |2:ico%=poll!16:.|
00002e70  20 42 75 74 74 6f 6e 73  2f 77 69 6e 64 6f 77 2f  | Buttons/window/|
00002e80  69 63 6f 6e 0d 09 ce 0d  c8 8e 20 77 69 6e 25 20  |icon...... win% |
00002e90  ca 0d 09 d8 1e 20 c9 20  2d 32 20 3a 20 f4 20 43  |..... . -2 : . C|
00002ea0  6c 69 63 6b 20 6f 6e 20  69 63 6f 6e 62 61 72 0d  |lick on iconbar.|
00002eb0  09 e2 17 20 20 e7 69 63  6f 25 3d 49 69 63 6f 6e  |...  .ico%=Iicon|
00002ec0  62 61 72 25 20 8c 0d 09  ec 1d 20 20 20 f4 20 49  |bar% .....   . I|
00002ed0  63 6f 6e 62 61 72 20 69  63 6f 6e 20 63 6c 69 63  |conbar icon clic|
00002ee0  6b 65 64 0d 09 f6 14 20  20 20 c8 8e 20 62 75 74  |ked....   .. but|
00002ef0  25 20 80 20 37 20 ca 0d  0a 00 80 20 20 20 20 c9  |% . 7 .....    .|
00002f00  20 32 20 3a 20 f2 63 72  65 61 74 65 5f 6d 65 6e  | 2 : .create_men|
00002f10  75 28 2d 31 2c 30 2c 22  54 72 61 6e 73 6c 61 74  |u(-1,0,"Translat|
00002f20  6f 72 22 2c 31 30 2a 31  36 2c 34 30 2c 30 2c 22  |or",10*16,40,0,"|
00002f30  20 49 6e 66 6f 22 2b 22  23 22 2b c3 28 77 69 6e  | Info"+"#"+.(win|
00002f40  5f 69 6e 66 6f 25 29 2b  22 7c 20 46 69 6c 65 74  |_info%)+"| Filet|
00002f50  79 70 65 73 22 2b 22 23  22 2b c3 28 77 69 6e 5f  |ypes"+"#"+.(win_|
00002f60  66 69 6c 65 74 25 29 2b  22 7c 20 51 75 69 74 7c  |filet%)+"| Quit||
00002f70  22 2c 22 22 2c b9 29 0d  0a 0a 20 20 20 20 20 c9  |","",.)...     .|
00002f80  20 31 2c 34 20 3a 20 f2  6f 70 74 69 6f 6e 73 5f  | 1,4 : .options_|
00002f90  6d 65 6e 75 28 b9 29 0d  0a 14 08 20 20 20 cb 0d  |menu(.)....   ..|
00002fa0  0a 1e 07 20 20 cd 0d 0a  28 29 20 c9 20 77 69 6e  |...  ...() . win|
00002fb0  5f 69 6d 67 25 20 3a 20  f4 20 43 6c 69 63 6b 20  |_img% : . Click |
00002fc0  6f 6e 20 69 6d 61 67 65  20 77 69 6e 64 6f 77 0d  |on image window.|
00002fd0  0a 32 13 20 20 c8 8e 20  62 75 74 25 20 80 20 37  |.2.  .. but% . 7|
00002fe0  20 ca 0d 0a 3c 38 20 20  20 c9 20 32 20 3a 20 f2  | ...<8   . 2 : .|
00002ff0  6f 70 74 69 6f 6e 73 5f  6d 65 6e 75 28 b9 29 3a  |options_menu(.):|
00003000  f4 20 4d 65 6e 75 20 62  75 74 74 6f 6e 2c 20 70  |. Menu button, p|
00003010  6f 70 20 75 70 20 6d 65  6e 75 0d 0a 46 07 20 20  |op up menu..F.  |
00003020  cb 0d 0a 50 29 20 c9 20  77 69 6e 5f 66 69 6c 65  |...P) . win_file|
00003030  25 20 3a 20 f4 20 43 6c  69 63 6b 20 6f 6e 20 66  |% : . Click on f|
00003040  69 6c 65 20 77 69 6e 64  6f 77 0d 0a 5a 0f 20 20  |ile window..Z.  |
00003050  e7 69 63 6f 25 3d 30 20  8c 0d 0a 64 16 20 20 20  |.ico%=0 ...d.   |
00003060  c8 8e 20 62 75 74 25 20  80 20 26 37 46 20 ca 0d  |.. but% . &7F ..|
00003070  0a 6e 39 20 20 20 20 c9  20 31 36 2c 36 34 20 3a  |.n9    . 16,64 :|
00003080  20 f4 20 44 72 61 67 2c  63 61 6c 63 75 6c 61 74  | . Drag,calculat|
00003090  65 20 64 72 61 67 20 62  6f 78 20 61 6e 64 20 63  |e drag box and c|
000030a0  72 65 61 74 65 20 69 74  0d 0a 78 e7 20 20 20 20  |reate it..x.    |
000030b0  20 21 62 6c 6f 63 6b 3d  77 69 6e 25 3a c8 99 20  | !block=win%:.. |
000030c0  57 47 65 74 57 53 25 2c  2c 62 6c 6f 63 6b 3a 78  |WGetWS%,,block:x|
000030d0  25 3d 62 6c 6f 63 6b 21  34 3a 79 25 3d 62 6c 6f  |%=block!4:y%=blo|
000030e0  63 6b 21 38 3a 62 6c 6f  63 6b 21 34 3d 69 63 6f  |ck!8:block!4=ico|
000030f0  25 3a c8 99 20 57 47 65  74 49 53 25 2c 2c 62 6c  |%:.. WGetIS%,,bl|
00003100  6f 63 6b 3a 21 62 6c 6f  63 6b 3d 77 69 6e 25 3a  |ock:!block=win%:|
00003110  62 6c 6f 63 6b 21 34 3d  35 3a 62 6c 6f 63 6b 21  |block!4=5:block!|
00003120  38 2b 3d 78 25 3a 62 6c  6f 63 6b 21 31 32 2b 3d  |8+=x%:block!12+=|
00003130  79 25 3a 62 6c 6f 63 6b  21 31 36 3d 62 6c 6f 63  |y%:block!16=bloc|
00003140  6b 21 38 2b 36 38 3a 62  6c 6f 63 6b 21 32 30 3d  |k!8+68:block!20=|
00003150  62 6c 6f 63 6b 21 31 32  2b 36 38 3a 62 6c 6f 63  |block!12+68:bloc|
00003160  6b 21 32 34 3d 30 3a 62  6c 6f 63 6b 21 32 38 3d  |k!24=0:block!28=|
00003170  30 3a 62 6c 6f 63 6b 21  33 32 3d 53 63 72 57 25  |0:block!32=ScrW%|
00003180  3a 62 6c 6f 63 6b 21 33  36 3d 53 63 72 48 25 0d  |:block!36=ScrH%.|
00003190  0a 82 2c 20 20 20 20 20  c8 99 20 57 44 72 61 67  |..,     .. WDrag|
000031a0  42 25 2c 2c 62 6c 6f 63  6b 3a f4 20 43 72 65 61  |B%,,block:. Crea|
000031b0  74 65 20 64 72 61 67 20  62 6f 78 0d 0a 8c 08 20  |te drag box.... |
000031c0  20 20 cb 0d 0a 96 07 20  20 cd 0d 0a a0 2f 20 c9  |  .....  ..../ .|
000031d0  20 77 69 6e 5f 72 67 62  62 69 74 73 25 20 3a 20  | win_rgbbits% : |
000031e0  f4 20 52 47 42 20 73 6c  69 64 65 72 20 6d 61 6e  |. RGB slider man|
000031f0  69 70 75 6c 61 74 69 6f  6e 0d 0a aa 8f 20 20 21  |ipulation....  !|
00003200  62 6c 6f 63 6b 3d 77 69  6e 25 3a c8 99 20 57 47  |block=win%:.. WG|
00003210  65 74 57 53 25 2c 2c 62  6c 6f 63 6b 3a 78 25 3d  |etWS%,,block:x%=|
00003220  62 6c 6f 63 6b 21 34 3a  79 25 3d 62 6c 6f 63 6b  |block!4:y%=block|
00003230  21 38 3a 62 6c 6f 63 6b  21 34 3d 69 63 6f 25 3a  |!8:block!4=ico%:|
00003240  c8 99 20 57 47 65 74 49  53 25 2c 2c 62 6c 6f 63  |.. WGetIS%,,bloc|
00003250  6b 3a 78 25 2b 3d 62 6c  6f 63 6b 21 38 2b 32 3a  |k:x%+=block!8+2:|
00003260  79 25 2b 3d 62 6c 6f 63  6b 21 31 32 2b 38 3a f4  |y%+=block!12+8:.|
00003270  20 50 6f 73 69 74 69 6f  6e 20 69 6e 20 73 6c 69  | Position in sli|
00003280  64 65 72 20 69 63 6f 6e  0d 0a b4 46 20 20 6d 78  |der icon...F  mx|
00003290  25 3d 21 70 6f 6c 6c 3a  64 78 25 3d 6d 78 25 2d  |%=!poll:dx%=mx%-|
000032a0  78 25 2d 38 3a 76 61 6c  25 3d 64 78 25 20 81 20  |x%-8:val%=dx% . |
000032b0  31 36 3a e7 76 61 6c 25  3e 38 20 8c 20 76 61 6c  |16:.val%>8 . val|
000032c0  25 3d 38 3a f4 20 50 6f  73 69 74 69 6f 6e 0d 0a  |%=8:. Position..|
000032d0  be 86 20 20 e7 69 63 6f  25 3d 33 20 8c 20 63 6f  |..  .ico%=3 . co|
000032e0  6c 25 3d 31 31 3a 73 6e  24 3d 22 52 22 3a 62 69  |l%=11:sn$="R":bi|
000032f0  74 25 3d 31 36 20 8b 20  e7 69 63 6f 25 3d 34 20  |t%=16 . .ico%=4 |
00003300  8c 20 63 6f 6c 25 3d 31  30 3a 73 6e 24 3d 22 47  |. col%=10:sn$="G|
00003310  22 3a 62 69 74 25 3d 38  20 8b 20 63 6f 6c 25 3d  |":bit%=8 . col%=|
00003320  38 3a 73 6e 24 3d 22 42  22 3a 62 69 74 25 3d 30  |8:sn$="B":bit%=0|
00003330  3a f4 20 53 6c 69 64 65  72 20 63 6f 6c 6f 75 72  |:. Slider colour|
00003340  73 2c 20 6e 61 6d 65 73  2c 20 62 69 74 6f 66 66  |s, names, bitoff|
00003350  73 65 74 73 0d 0a c8 24  20 20 f4 20 50 6c 6f 74  |sets...$  . Plot|
00003360  20 73 6c 69 64 65 72 20  69 6e 20 73 6c 69 64 65  | slider in slide|
00003370  72 20 73 70 72 69 74 65  0d 0a d2 7e 20 20 c8 99  |r sprite...~  ..|
00003380  20 4f 53 53 70 6f 70 25  2c 36 30 2b 32 35 36 2c  | OSSpop%,60+256,|
00003390  69 63 6f 6e 73 70 72 69  74 65 73 2c 22 73 6c 69  |iconsprites,"sli|
000033a0  64 65 72 22 2b 73 6e 24  2c 30 20 b8 20 72 30 2c  |der"+sn$,0 . r0,|
000033b0  72 31 2c 72 32 2c 72 33  3a e6 30 2c 30 3a c8 93  |r1,r2,r3:.0,0:..|
000033c0  20 c8 90 20 32 2c 38 2c  38 2a 31 36 2c 31 36 3a  | .. 2,8,8*16,16:|
000033d0  e6 30 2c 63 6f 6c 25 3a  e7 76 61 6c 25 3e 30 20  |.0,col%:.val%>0 |
000033e0  8c 20 c8 93 20 c8 90 20  32 2c 38 2c 76 61 6c 25  |. .. .. 2,8,val%|
000033f0  2a 31 36 2c 31 36 0d 0a  dc 32 20 20 c8 99 20 4f  |*16,16...2  .. O|
00003400  53 53 70 6f 70 25 2c 72  30 2c 72 31 2c 72 32 2c  |SSpop%,r0,r1,r2,|
00003410  72 33 3a f4 20 52 65 73  74 6f 72 65 20 56 44 55  |r3:. Restore VDU|
00003420  20 63 6f 6e 74 65 78 74  0d 0a e6 8f 20 20 52 47  | context....  RG|
00003430  42 62 69 74 73 25 3d 28  52 47 42 62 69 74 73 25  |Bbits%=(RGBbits%|
00003440  20 80 20 ac 20 28 32 35  35 3c 3c 62 69 74 25 29  | . . (255<<bit%)|
00003450  29 20 84 20 28 76 61 6c  25 3c 3c 62 69 74 25 29  |) . (val%<<bit%)|
00003460  3a 21 62 6c 6f 63 6b 3d  77 69 6e 25 3a 62 6c 6f  |:!block=win%:blo|
00003470  63 6b 21 34 3d 69 63 6f  25 3a 62 6c 6f 63 6b 21  |ck!4=ico%:block!|
00003480  38 3d 30 3a 62 6c 6f 63  6b 21 31 32 3d 30 3a c8  |8=0:block!12=0:.|
00003490  99 20 57 53 65 74 49 53  25 2c 2c 62 6c 6f 63 6b  |. WSetIS%,,block|
000034a0  3a f4 20 55 70 64 61 74  65 20 63 6f 64 65 20 61  |:. Update code a|
000034b0  6e 64 20 69 63 6f 6e 0d  0a f0 05 cb 0d 0a fa 05  |nd icon.........|
000034c0  e1 0d 0b 04 04 0d 0b 0e  0e dd f2 64 72 61 67 64  |...........dragd|
000034d0  72 6f 70 0d 0b 18 21 c8  99 20 57 43 72 65 61 74  |rop...!.. WCreat|
000034e0  65 4d 25 2c 2c 2d 31 3a  f4 20 43 6c 6f 73 65 20  |eM%,,-1:. Close |
000034f0  6d 65 6e 75 0d 0b 22 2c  c8 99 20 57 47 65 74 50  |menu..",.. WGetP|
00003500  49 25 2c 2c 62 6c 6f 63  6b 3a f4 20 47 65 74 20  |I%,,block:. Get |
00003510  70 6f 69 6e 74 65 72 20  70 6f 73 69 74 69 6f 6e  |pointer position|
00003520  0d 0b 2c 47 64 72 6f 70  77 69 6e 25 3d 62 6c 6f  |..,Gdropwin%=blo|
00003530  63 6b 21 31 32 3a 64 72  6f 70 69 63 6f 25 3d 62  |ck!12:dropico%=b|
00003540  6c 6f 63 6b 21 31 36 3a  f4 20 57 69 6e 64 6f 77  |lock!16:. Window|
00003550  2f 69 63 6f 6e 20 77 68  65 72 65 20 62 6f 78 20  |/icon where box |
00003560  64 72 6f 70 70 65 64 0d  0b 36 28 73 61 76 65 24  |dropped..6(save$|
00003570  3d a4 73 74 72 69 6e 67  28 53 41 56 66 6e 25 29  |=.string(SAVfn%)|
00003580  3a f4 20 47 65 74 20 6c  65 61 66 6e 61 6d 65 0d  |:. Get leafname.|
00003590  0b 40 6f e7 24 53 41 56  73 6e 25 3d 22 66 69 6c  |.@o.$SAVsn%="fil|
000035a0  65 5f 66 66 39 22 20 8c  20 53 61 76 65 53 70 72  |e_ff9" . SaveSpr|
000035b0  24 3d 73 61 76 65 24 3a  66 74 25 3d 26 46 46 39  |$=save$:ft%=&FF9|
000035c0  20 8b 20 53 61 76 65 43  6c 65 61 72 24 3d 73 61  | . SaveClear$=sa|
000035d0  76 65 24 3a 66 74 25 3d  26 36 39 30 3a f4 20 52  |ve$:ft%=&690:. R|
000035e0  65 6d 65 6d 62 65 72 20  6c 65 61 66 6e 61 6d 65  |emember leafname|
000035f0  2c 20 73 65 74 20 66 69  6c 65 74 79 70 65 0d 0b  |, set filetype..|
00003600  4a a4 62 6c 6f 63 6b 21  32 30 3d 62 6c 6f 63 6b  |J.block!20=block|
00003610  21 31 32 3a 62 6c 6f 63  6b 21 32 34 3d 62 6c 6f  |!12:block!24=blo|
00003620  63 6b 21 31 36 3a 62 6c  6f 63 6b 21 32 38 3d 62  |ck!16:block!28=b|
00003630  6c 6f 63 6b 21 30 3a 62  6c 6f 63 6b 21 33 32 3d  |lock!0:block!32=|
00003640  62 6c 6f 63 6b 21 34 3a  62 6c 6f 63 6b 21 31 32  |block!4:block!12|
00003650  3d 30 3a 62 6c 6f 63 6b  21 31 36 3d 31 3a 62 6c  |=0:block!16=1:bl|
00003660  6f 63 6b 21 33 36 3d 30  3a 62 6c 6f 63 6b 21 34  |ock!36=0:block!4|
00003670  30 3d 66 74 25 3a 24 28  62 6c 6f 63 6b 2b 34 34  |0=ft%:$(block+44|
00003680  29 3d 73 61 76 65 24 2b  bd 30 3a 21 62 6c 6f 63  |)=save$+.0:!bloc|
00003690  6b 3d 28 34 34 2b a9 73  61 76 65 24 2b 34 29 80  |k=(44+.save$+4).|
000036a0  ac 33 0d 0b 54 3b c8 99  20 57 53 65 6e 64 4d 73  |.3..T;.. WSendMs|
000036b0  67 25 2c 31 37 2c 62 6c  6f 63 6b 2c 64 72 6f 70  |g%,17,block,drop|
000036c0  77 69 6e 25 2c 64 72 6f  70 69 63 6f 25 3a f4 20  |win%,dropico%:. |
000036d0  53 65 6e 64 20 44 61 74  61 53 61 76 65 0d 0b 5e  |Send DataSave..^|
000036e0  36 44 61 74 61 53 61 76  65 52 65 66 25 3d 62 6c  |6DataSaveRef%=bl|
000036f0  6f 63 6b 21 38 3a f4 20  52 65 6d 65 6d 62 65 72  |ock!8:. Remember|
00003700  20 6d 79 72 65 66 20 66  6f 72 20 44 61 74 61 53  | myref for DataS|
00003710  61 76 65 0d 0b 68 30 f2  63 6c 6f 73 65 5f 77 69  |ave..h0.close_wi|
00003720  6e 64 6f 77 28 77 69 6e  5f 66 69 6c 65 25 29 3a  |ndow(win_file%):|
00003730  f4 20 43 6c 6f 73 65 20  66 69 6c 65 20 77 69 6e  |. Close file win|
00003740  64 6f 77 0d 0b 72 05 e1  0d 0b 7c 05 20 0d 0b 86  |dow..r....|. ...|
00003750  17 dd f2 6c 6f 61 64 28  74 79 70 65 25 2c 6e 61  |...load(type%,na|
00003760  6d 65 24 29 0d 0b 90 16  f4 20 4c 6f 61 64 73 20  |me$)..... Loads |
00003770  69 6d 61 67 65 20 66 69  6c 65 0d 0b 9a 4b 70 6f  |image file...Kpo|
00003780  6c 6c 21 31 32 3d 70 6f  6c 6c 21 38 3a 70 6f 6c  |ll!12=poll!8:pol|
00003790  6c 21 31 36 3d 34 3a c8  99 20 57 53 65 6e 64 4d  |l!16=4:.. WSendM|
000037a0  73 67 25 2c 31 37 2c 70  6f 6c 6c 2c 70 6f 6c 6c  |sg%,17,poll,poll|
000037b0  21 34 3a f4 20 53 65 6e  64 20 44 61 74 61 4c 6f  |!4:. Send DataLo|
000037c0  61 64 41 63 6b 0d 0b a4  1a 4c 6f 61 64 24 3d 6e  |adAck....Load$=n|
000037d0  61 6d 65 24 3a f4 20 46  69 6c 65 6e 61 6d 65 0d  |ame$:. Filename.|
000037e0  0b ae 7b 70 6f 73 25 3d  a9 4c 6f 61 64 24 3a f5  |..{pos%=.Load$:.|
000037f0  20 70 6f 73 25 2d 3d 31  3a 70 65 72 69 6f 64 3d  | pos%-=1:period=|
00003800  28 c1 4c 6f 61 64 24 2c  70 6f 73 25 2c 31 29 3d  |(.Load$,pos%,1)=|
00003810  22 2e 22 29 3a fd 20 28  70 6f 73 25 3d 31 29 20  |"."):. (pos%=1) |
00003820  84 20 70 65 72 69 6f 64  3a e7 70 65 72 69 6f 64  |. period:.period|
00003830  20 8c 20 4c 65 61 66 24  3d c2 4c 6f 61 64 24 2c  | . Leaf$=.Load$,|
00003840  a9 4c 6f 61 64 24 2d 70  6f 73 25 29 20 8b 20 4c  |.Load$-pos%) . L|
00003850  65 61 66 24 3d 4c 6f 61  64 24 0d 0b b8 35 c8 99  |eaf$=Load$...5..|
00003860  20 22 4f 53 5f 46 69 6c  65 22 2c 31 37 2c 4c 6f  | "OS_File",17,Lo|
00003870  61 64 24 20 b8 20 2c 2c  2c 2c 46 6c 65 6e 25 3a  |ad$ . ,,,,Flen%:|
00003880  f4 20 46 69 6c 65 27 73  20 6c 65 6e 67 74 68 0d  |. File's length.|
00003890  0b c2 20 46 69 6c 65 28  31 29 3d 8e 28 4c 6f 61  |.. File(1)=.(Loa|
000038a0  64 24 29 3a f4 20 4f 70  65 6e 20 66 69 6c 65 0d  |d$):. Open file.|
000038b0  0b cc 39 f2 76 61 72 28  22 66 68 61 6e 22 2c 46  |..9.var("fhan",F|
000038c0  69 6c 65 28 31 29 29 3a  f2 76 61 72 28 22 66 70  |ile(1)):.var("fp|
000038d0  74 72 22 2c 30 29 3a f4  20 52 45 4d 20 4d 6f 64  |tr",0):. REM Mod|
000038e0  75 6c 65 20 69 6e 66 6f  0d 0b d6 27 69 54 79 70  |ule info...'iTyp|
000038f0  65 25 3d 30 3a f4 20 44  65 66 61 75 6c 74 20 69  |e%=0:. Default i|
00003900  6e 70 75 74 20 62 79 74  65 20 6f 72 64 65 72 0d  |nput byte order.|
00003910  0b e0 1b f2 68 6f 75 72  5f 6f 6e 3a f4 20 48 6f  |....hour_on:. Ho|
00003920  75 72 67 6c 61 73 73 20  6f 6e 0d 0b ea 3f e7 77  |urglass on...?.w|
00003930  69 6e 5f 69 6d 67 25 3e  30 20 8c 20 f2 63 6c 6f  |in_img%>0 . .clo|
00003940  73 65 5f 77 69 6e 64 6f  77 28 77 69 6e 5f 69 6d  |se_window(win_im|
00003950  67 25 29 3a f4 20 4f 6c  64 20 69 6d 61 67 65 20  |g%):. Old image |
00003960  64 69 73 63 61 72 64 65  64 0d 0b f4 3f f2 69 6e  |discarded...?.in|
00003970  76 61 6c 69 64 61 74 65  5f 69 6d 61 67 65 3a f4  |validate_image:.|
00003980  20 4e 65 77 20 69 6d 61  67 65 20 74 6f 20 63 6f  | New image to co|
00003990  6d 65 2c 20 69 6e 76 61  6c 69 64 61 74 65 20 6f  |me, invalidate o|
000039a0  6c 64 20 69 6d 61 67 65  0d 0b fe 0e c8 8e 20 74  |ld image...... t|
000039b0  79 70 65 25 20 ca 0d 0c  08 af 20 c9 20 26 46 46  |ype% ..... . &FF|
000039c0  39 20 3a 20 70 25 3d a7  22 2e 22 2b a4 75 70 73  |9 : p%=."."+.ups|
000039d0  74 72 69 6e 67 28 6e 61  6d 65 24 29 2c 22 2e 48  |tring(name$),".H|
000039e0  49 50 2e 22 29 3a e7 70  25 3e 30 20 8c 20 6c 6f  |IP."):.p%>0 . lo|
000039f0  70 70 61 74 68 24 3d 6e  61 6d 65 24 3a c1 6c 6f  |ppath$=name$:.lo|
00003a00  70 70 61 74 68 24 2c 70  25 2c 33 29 3d 22 4c 4f  |ppath$,p%,3)="LO|
00003a10  50 22 3a 46 69 6c 65 28  32 29 3d 8e 28 6c 6f 70  |P":File(2)=.(lop|
00003a20  70 61 74 68 24 29 3a e7  46 69 6c 65 28 32 29 3d  |path$):.File(2)=|
00003a30  30 20 8c 20 f2 65 72 72  6f 72 28 2d 31 2c 22 49  |0 . .error(-1,"I|
00003a40  20 63 61 6e 6e 6f 74 20  66 69 6e 64 20 74 68 65  | cannot find the|
00003a50  20 41 72 56 69 73 20 4c  4f 50 20 66 69 6c 65 20  | ArVis LOP file |
00003a60  21 22 29 3a e1 0d 0c 12  62 20 20 e7 70 25 3d 30  |!"):....b  .p%=0|
00003a70  20 8c 20 4f 6b 3d a4 70  69 63 5f 41 52 43 20 8b  | . Ok=.pic_ARC .|
00003a80  20 f2 76 61 72 28 22 66  68 61 32 22 2c 46 69 6c  | .var("fha2",Fil|
00003a90  65 28 32 29 29 3a f2 76  61 72 28 22 66 70 74 32  |e(2)):.var("fpt2|
00003aa0  22 2c 30 29 3a 4f 6b 3d  a4 70 69 63 5f 41 52 56  |",0):Ok=.pic_ARV|
00003ab0  49 53 3a f4 20 57 68 61  74 27 73 20 74 68 69 73  |IS:. What's this|
00003ac0  20 74 68 65 6e 20 3f 0d  0c 1c 1c 20 c9 20 26 44  | then ?.... . &D|
00003ad0  45 32 20 3a 20 4f 6b 3d  a4 70 69 63 5f 50 52 4f  |E2 : Ok=.pic_PRO|
00003ae0  41 52 54 0d 0c 26 1d 20  c9 20 26 44 46 41 20 3a  |ART..&. . &DFA :|
00003af0  20 4f 6b 3d a4 70 69 63  5f 57 41 54 46 4f 52 44  | Ok=.pic_WATFORD|
00003b00  0d 0c 30 1c 20 c9 20 26  44 35 38 20 3a 20 4f 6b  |..0. . &D58 : Ok|
00003b10  3d a4 70 69 63 5f 52 45  4e 44 45 52 0d 0c 3a 19  |=.pic_RENDER..:.|
00003b20  20 c9 20 26 30 30 34 20  3a 20 4f 6b 3d a4 70 69  | . &004 : Ok=.pi|
00003b30  63 5f 41 49 4d 0d 0c 44  1b 20 c9 20 26 36 39 30  |c_AIM..D. . &690|
00003b40  20 3a 20 4f 6b 3d a4 70  69 63 5f 43 4c 45 41 52  | : Ok=.pic_CLEAR|
00003b50  0d 0c 4e 1b 20 c9 20 26  36 39 31 20 3a 20 4f 6b  |..N. . &691 : Ok|
00003b60  3d a4 70 69 63 5f 44 45  47 41 53 0d 0c 58 19 20  |=.pic_DEGAS..X. |
00003b70  c9 20 26 36 39 32 20 3a  20 4f 6b 3d a4 70 69 63  |. &692 : Ok=.pic|
00003b80  5f 49 4d 47 0d 0c 62 19  20 c9 20 26 36 39 33 20  |_IMG..b. . &693 |
00003b90  3a 20 4f 6b 3d a4 70 69  63 5f 49 46 46 0d 0c 6c  |: Ok=.pic_IFF..l|
00003ba0  19 20 c9 20 26 36 39 34  20 3a 20 4f 6b 3d a4 70  |. . &694 : Ok=.p|
00003bb0  69 63 5f 4d 41 43 0d 0c  76 19 20 c9 20 26 36 39  |ic_MAC..v. . &69|
00003bc0  35 20 3a 20 4f 6b 3d a4  70 69 63 5f 47 49 46 0d  |5 : Ok=.pic_GIF.|
00003bd0  0c 80 19 20 c9 20 26 36  39 36 20 3a 20 4f 6b 3d  |... . &696 : Ok=|
00003be0  a4 70 69 63 5f 53 55 4e  0d 0c 8a 19 20 c9 20 26  |.pic_SUN.... . &|
00003bf0  36 39 37 20 3a 20 4f 6b  3d a4 70 69 63 5f 50 43  |697 : Ok=.pic_PC|
00003c00  58 0d 0c 94 19 20 c9 20  26 36 39 38 20 3a 20 4f  |X.... . &698 : O|
00003c10  6b 3d a4 70 69 63 5f 51  52 54 0d 0c 9e 1a 20 c9  |k=.pic_QRT.... .|
00003c20  20 26 46 46 30 20 3a 20  4f 6b 3d a4 70 69 63 5f  | &FF0 : Ok=.pic_|
00003c30  54 49 46 46 0d 0c a8 05  cb 0d 0c b2 24 49 6d 67  |TIFF........$Img|
00003c40  3d 4f 6b 3a f4 20 49 6d  61 67 65 20 6f 6b 20 69  |=Ok:. Image ok i|
00003c50  66 20 61 6c 6c 20 69 73  20 77 65 6c 6c 0d 0c bc  |f all is well...|
00003c60  1d f2 68 6f 75 72 5f 6f  66 66 3a f4 20 48 6f 75  |..hour_off:. Hou|
00003c70  72 67 6c 61 73 73 20 6f  66 66 0d 0c c6 1f f2 69  |rglass off.....i|
00003c80  63 6c 6f 73 65 3a f4 20  43 6c 6f 73 65 20 69 6e  |close:. Close in|
00003c90  70 75 74 20 66 69 6c 65  73 0d 0c d0 0a e7 49 6d  |put files.....Im|
00003ca0  67 20 8c 0d 0c da 2c 20  f2 73 65 74 5f 6d 6f 64  |g ...., .set_mod|
00003cb0  65 28 49 6d 67 4d 6f 64  65 25 29 3a f4 20 53 65  |e(ImgMode%):. Se|
00003cc0  6c 65 63 74 20 69 6d 61  67 65 20 6d 6f 64 65 0d  |lect image mode.|
00003cd0  0c e4 29 20 5a 6f 6f 6d  58 3d 31 3a 5a 6f 6f 6d  |..) ZoomX=1:Zoom|
00003ce0  59 3d 31 3a f4 20 52 65  73 65 74 20 7a 6f 6f 6d  |Y=1:. Reset zoom|
00003cf0  20 66 61 63 74 6f 72 73  0d 0c ee 41 20 e7 41 75  | factors...A .Au|
00003d00  74 6f 50 61 6c 20 8c 20  f2 73 65 74 5f 70 61 6c  |toPal . .set_pal|
00003d10  65 74 74 65 28 31 29 3a  f4 20 53 65 6c 65 63 74  |ette(1):. Select|
00003d20  20 69 6d 61 67 65 20 70  61 6c 65 74 74 65 20 69  | image palette i|
00003d30  66 20 65 6e 61 62 6c 65  64 0d 0c f8 2d 20 f2 6e  |f enabled...- .n|
00003d40  65 77 5f 69 6d 61 67 65  5f 77 69 6e 64 6f 77 3a  |ew_image_window:|
00003d50  f4 20 4f 70 65 6e 20 77  69 6e 64 6f 77 20 6f 6e  |. Open window on|
00003d60  20 69 6d 61 67 65 0d 0d  02 05 cd 0d 0d 0c 05 e1  | image..........|
00003d70  0d 0d 16 04 0d 0d 20 17  dd f2 73 61 76 65 5f 73  |...... ...save_s|
00003d80  70 72 69 74 65 28 6f 75  74 24 29 0d 0d 2a 1f f4  |prite(out$)..*..|
00003d90  20 53 61 76 65 73 20 69  6d 61 67 65 20 61 73 20  | Saves image as |
00003da0  73 70 72 69 74 65 66 69  6c 65 0d 0d 34 12 c8 8e  |spritefile..4...|
00003db0  20 53 61 76 65 4b 69 6e  64 24 20 ca 0d 0d 3e 31  | SaveKind$ ...>1|
00003dc0  20 c9 20 22 46 75 6c 6c  22 20 3a 20 f4 20 46 75  | . "Full" : . Fu|
00003dd0  6c 6c 20 72 65 73 6f 6c  75 74 69 6f 6e 20 73 70  |ll resolution sp|
00003de0  72 69 74 65 2c 20 6e 6f  20 65 64 69 74 0d 0d 48  |rite, no edit..H|
00003df0  20 20 c9 20 22 57 68 6f  6c 65 22 20 3a 20 f2 65  |  . "Whole" : .e|
00003e00  64 69 74 5f 70 61 72 74  28 a3 2c a3 29 0d 0d 52  |dit_part(.,.)..R|
00003e10  29 20 c9 20 22 57 68 6f  6c 65 20 28 73 63 61 6c  |) . "Whole (scal|
00003e20  65 64 29 22 20 3a 20 f2  65 64 69 74 5f 70 61 72  |ed)" : .edit_par|
00003e30  74 28 b9 2c a3 29 0d 0d  5c 1f 20 c9 20 22 50 61  |t(.,.)..\. . "Pa|
00003e40  72 74 22 20 3a 20 f2 65  64 69 74 5f 70 61 72 74  |rt" : .edit_part|
00003e50  28 a3 2c b9 29 0d 0d 66  28 20 c9 20 22 50 61 72  |(.,.)..f( . "Par|
00003e60  74 20 28 73 63 61 6c 65  64 29 22 20 3a 20 f2 65  |t (scaled)" : .e|
00003e70  64 69 74 5f 70 61 72 74  28 b9 2c b9 29 0d 0d 70  |dit_part(.,.)..p|
00003e80  05 cb 0d 0d 7a 1b f2 68  6f 75 72 5f 6f 6e 3a f4  |....z..hour_on:.|
00003e90  20 48 6f 75 72 67 6c 61  73 73 20 6f 6e 0d 0d 84  | Hourglass on...|
00003ea0  17 e7 53 61 76 65 4b 69  6e 64 24 3d 22 46 75 6c  |..SaveKind$="Ful|
00003eb0  6c 22 20 8c 0d 0d 8e 38  20 f4 20 46 75 6c 6c 20  |l" ....8 . Full |
00003ec0  73 70 72 69 74 65 2c 20  73 61 76 65 20 69 6d 61  |sprite, save ima|
00003ed0  67 65 20 77 69 74 68 20  70 61 6c 65 74 74 65 20  |ge with palette |
00003ee0  28 6f 70 74 69 6f 6e 61  6c 6c 79 29 0d 0d 98 23  |(optionally)...#|
00003ef0  20 4f 75 74 3d ae 28 6f  75 74 24 29 3a f4 20 4f  | Out=.(out$):. O|
00003f00  70 65 6e 20 6f 75 74 70  75 74 20 66 69 6c 65 0d  |pen output file.|
00003f10  0d a2 2d 20 73 70 72 25  3d 53 70 72 69 74 65 25  |..- spr%=Sprite%|
00003f20  2b 53 70 72 69 74 65 25  21 38 3a f4 20 53 74 61  |+Sprite%!8:. Sta|
00003f30  72 74 20 6f 66 20 73 70  72 69 74 65 0d 0d ac 2c  |rt of sprite...,|
00003f40  20 63 6f 6c 73 25 3d 32  5e 53 70 72 43 6f 6c 62  | cols%=2^SprColb|
00003f50  69 74 73 25 3a f4 20 43  6f 6c 6f 75 72 73 20 69  |its%:. Colours i|
00003f60  6e 20 73 70 72 69 74 65  0d 0d b6 1f 20 e7 50 61  |n sprite.... .Pa|
00003f70  6c 6f 6e 6f 66 66 20 80  20 28 63 6f 6c 73 25 3c  |lonoff . (cols%<|
00003f80  3e 32 35 36 29 20 8c 0d  0d c0 22 20 20 f4 20 53  |>256) ...."  . S|
00003f90  61 76 65 20 77 69 74 68  20 70 61 6c 65 74 74 65  |ave with palette|
00003fa0  20 69 6e 63 6c 75 64 65  64 0d 0d ca 2e 20 20 65  | included....  e|
00003fb0  78 74 72 61 25 3d 63 6f  6c 73 25 2a 38 3a f4 20  |xtra%=cols%*8:. |
00003fc0  45 78 74 72 61 20 62 79  74 65 73 20 66 6f 72 20  |Extra bytes for |
00003fd0  70 61 6c 65 74 74 65 0d  0d d4 45 20 20 c8 99 20  |palette...E  .. |
00003fe0  22 4f 53 5f 47 42 50 42  22 2c 31 2c 4f 75 74 2c  |"OS_GBPB",1,Out,|
00003ff0  53 70 72 69 74 65 25 2b  34 2c 38 2c 30 3a f4 20  |Sprite%+4,8,0:. |
00004000  4f 75 74 70 75 74 20 70  61 72 74 20 6f 66 20 63  |Output part of c|
00004010  6f 6e 74 72 6f 6c 20 62  6c 6f 63 6b 0d 0d de 44  |ontrol block...D|
00004020  20 20 21 61 72 67 25 3d  65 78 74 72 61 25 2b 53  |  !arg%=extra%+S|
00004030  70 72 69 74 65 25 21 31  32 3a c8 99 20 22 4f 53  |prite%!12:.. "OS|
00004040  5f 47 42 50 42 22 2c 32  2c 4f 75 74 2c 61 72 67  |_GBPB",2,Out,arg|
00004050  25 2c 34 3a f4 20 4e 65  77 20 6f 66 66 73 65 74  |%,4:. New offset|
00004060  0d 0d e8 3f 20 20 21 61  72 67 25 3d 65 78 74 72  |...?  !arg%=extr|
00004070  61 25 2b 21 73 70 72 25  3a c8 99 20 22 4f 53 5f  |a%+!spr%:.. "OS_|
00004080  47 42 50 42 22 2c 32 2c  4f 75 74 2c 61 72 67 25  |GBPB",2,Out,arg%|
00004090  2c 34 3a f4 20 4e 65 77  20 6f 66 66 73 65 74 0d  |,4:. New offset.|
000040a0  0d f2 41 20 20 c8 99 20  22 4f 53 5f 47 42 50 42  |..A  .. "OS_GBPB|
000040b0  22 2c 32 2c 4f 75 74 2c  73 70 72 25 2b 34 2c 32  |",2,Out,spr%+4,2|
000040c0  38 3a f4 20 4f 75 74 70  75 74 20 70 61 72 74 20  |8:. Output part |
000040d0  6f 66 20 73 70 72 69 74  65 20 68 65 61 64 65 72  |of sprite header|
000040e0  0d 0d fc 41 20 20 21 61  72 67 25 3d 65 78 74 72  |...A  !arg%=extr|
000040f0  61 25 2b 73 70 72 25 21  33 32 3a c8 99 20 22 4f  |a%+spr%!32:.. "O|
00004100  53 5f 47 42 50 42 22 2c  32 2c 4f 75 74 2c 61 72  |S_GBPB",2,Out,ar|
00004110  67 25 2c 34 3a f4 20 4e  65 77 20 6f 66 66 73 65  |g%,4:. New offse|
00004120  74 0d 0e 06 41 20 20 21  61 72 67 25 3d 65 78 74  |t...A  !arg%=ext|
00004130  72 61 25 2b 73 70 72 25  21 33 36 3a c8 99 20 22  |ra%+spr%!36:.. "|
00004140  4f 53 5f 47 42 50 42 22  2c 32 2c 4f 75 74 2c 61  |OS_GBPB",2,Out,a|
00004150  72 67 25 2c 34 3a f4 20  4e 65 77 20 6f 66 66 73  |rg%,4:. New offs|
00004160  65 74 0d 0e 10 39 20 20  c8 99 20 22 4f 53 5f 47  |et...9  .. "OS_G|
00004170  42 50 42 22 2c 32 2c 4f  75 74 2c 73 70 72 25 2b  |BPB",2,Out,spr%+|
00004180  34 30 2c 34 3a f4 20 4f  75 74 70 75 74 20 73 70  |40,4:. Output sp|
00004190  72 69 74 65 27 73 20 6d  6f 64 65 0d 0e 1a 8a 20  |rite's mode.... |
000041a0  20 e3 20 63 25 3d 31 20  b8 20 63 6f 6c 73 25 3a  | . c%=1 . cols%:|
000041b0  61 72 67 25 21 28 63 25  2a 38 2d 38 29 3d a4 72  |arg%!(c%*8-8)=.r|
000041c0  65 61 64 70 61 6c 76 61  6c 28 49 6d 67 50 61 6c  |eadpalval(ImgPal|
000041d0  25 28 63 25 29 29 3a 61  72 67 25 21 28 63 25 2a  |%(c%)):arg%!(c%*|
000041e0  38 2d 34 29 3d 61 72 67  25 21 28 63 25 2a 38 2d  |8-4)=arg%!(c%*8-|
000041f0  38 29 3a ed 3a c8 99 20  22 4f 53 5f 47 42 50 42  |8):.:.. "OS_GBPB|
00004200  22 2c 32 2c 4f 75 74 2c  61 72 67 25 2c 63 6f 6c  |",2,Out,arg%,col|
00004210  73 25 2a 38 3a f4 20 4f  75 74 70 75 74 20 70 61  |s%*8:. Output pa|
00004220  6c 65 74 74 65 0d 0e 24  46 20 20 c8 99 20 22 4f  |lette..$F  .. "O|
00004230  53 5f 47 42 50 42 22 2c  32 2c 4f 75 74 2c 73 70  |S_GBPB",2,Out,sp|
00004240  72 25 2b 73 70 72 25 21  33 32 2c 28 73 70 72 25  |r%+spr%!32,(spr%|
00004250  21 31 36 2b 31 29 2a 28  73 70 72 25 21 32 30 2b  |!16+1)*(spr%!20+|
00004260  31 29 2a 34 3a f4 20 44  61 74 61 0d 0e 2e 29 20  |1)*4:. Data...) |
00004270  cc 20 f4 20 4e 6f 20 70  61 6c 65 74 74 65 2c 20  |. . No palette, |
00004280  6f 75 74 70 75 74 20 74  68 65 20 77 68 6f 6c 65  |output the whole|
00004290  20 6c 6f 74 0d 0e 38 3e  20 20 c8 99 20 22 4f 53  | lot..8>  .. "OS|
000042a0  5f 47 42 50 42 22 2c 31  2c 4f 75 74 2c 53 70 72  |_GBPB",1,Out,Spr|
000042b0  69 74 65 25 2b 34 2c 53  70 72 69 74 65 25 21 31  |ite%+4,Sprite%!1|
000042c0  32 2d 34 2c 30 3a f4 20  4f 75 74 70 75 74 20 61  |2-4,0:. Output a|
000042d0  6c 6c 0d 0e 42 06 20 cd  0d 0e 4c 3f 20 d9 23 4f  |ll..B. ...L? .#O|
000042e0  75 74 3a c8 99 20 22 4f  53 5f 43 4c 49 22 2c 22  |ut:.. "OS_CLI","|
000042f0  53 65 74 54 79 70 65 20  22 2b 6f 75 74 24 2b 22  |SetType "+out$+"|
00004300  20 53 70 72 69 74 65 22  3a f4 20 43 6c 6f 73 65  | Sprite":. Close|
00004310  20 26 20 74 79 70 65 0d  0e 56 30 cc 20 f4 20 45  | & type..V0. . E|
00004320  64 69 74 65 64 20 70 61  72 74 20 69 6e 20 77 69  |dited part in wi|
00004330  6e 64 6f 77 20 6f 6e 20  73 63 72 65 65 6e 2c 20  |ndow on screen, |
00004340  73 61 76 65 20 69 74 0d  0e 60 28 20 f2 69 6e 76  |save it..`( .inv|
00004350  61 6c 69 64 61 74 65 5f  73 63 72 65 65 6e 3a f4  |alidate_screen:.|
00004360  20 53 63 72 65 65 6e 20  69 6e 76 61 6c 69 64 0d  | Screen invalid.|
00004370  0e 6a 20 20 e7 50 61 6c  6f 6e 6f 66 66 20 8c 20  |.j  .Palonoff . |
00004380  70 61 6c 25 3d 31 20 8b  20 70 61 6c 25 3d 30 0d  |pal%=1 . pal%=0.|
00004390  0e 74 34 20 c8 99 20 4f  53 53 70 6f 70 25 2c 32  |.t4 .. OSSpop%,2|
000043a0  2c 2c 6f 75 74 24 2c 70  61 6c 25 3a f4 20 53 61  |,,out$,pal%:. Sa|
000043b0  76 65 20 73 63 72 65 65  6e 20 69 6e 20 77 69 6e  |ve screen in win|
000043c0  64 6f 77 0d 0e 7e 2f 20  ef 32 34 2c 30 3b 30 3b  |dow..~/ .24,0;0;|
000043d0  53 63 72 57 25 3b 53 63  72 48 25 3b 3a f4 20 52  |ScrW%;ScrH%;:. R|
000043e0  65 73 65 74 20 73 63 72  65 65 6e 20 77 69 6e 64  |eset screen wind|
000043f0  6f 77 0d 0e 88 05 cd 0d  0e 92 1d f2 68 6f 75 72  |ow..........hour|
00004400  5f 6f 66 66 3a f4 20 48  6f 75 72 67 6c 61 73 73  |_off:. Hourglass|
00004410  20 6f 66 66 0d 0e 9c 05  e1 0d 0e a6 04 0d 0e b0  | off............|
00004420  0f dd a4 70 69 63 5f 44  45 47 41 53 0d 0e ba 2f  |...pic_DEGAS.../|
00004430  f4 20 4d 61 6b 65 73 20  41 74 61 72 69 20 44 65  |. Makes Atari De|
00004440  67 61 73 20 69 6d 61 67  65 20 28 50 49 31 2f 32  |gas image (PI1/2|
00004450  2f 33 2c 50 43 31 2f 32  2f 33 29 0d 0e c4 2b 69  |/3,PC1/2/3)...+i|
00004460  54 79 70 65 25 3d 30 3a  f4 20 53 65 74 20 6c 6f  |Type%=0:. Set lo|
00004470  77 2d 74 6f 2d 68 69 67  68 20 74 79 70 65 20 6f  |w-to-high type o|
00004480  66 20 64 61 74 61 0d 0e  ce 39 63 6f 6d 70 72 25  |f data...9compr%|
00004490  3d a4 69 31 28 31 29 3a  72 65 73 25 3d a4 69 31  |=.i1(1):res%=.i1|
000044a0  28 31 29 3a f4 20 46 6c  61 67 73 2c 20 72 65 73  |(1):. Flags, res|
000044b0  6f 6c 75 74 69 6f 6e 20  28 31 2f 32 2f 33 29 0d  |olution (1/2/3).|
000044c0  0e d8 37 63 6f 6d 70 72  65 73 73 65 64 3d 28 28  |..7compressed=((|
000044d0  63 6f 6d 70 72 25 80 25  31 30 30 30 30 30 30 30  |compr%.%10000000|
000044e0  29 3e 30 29 3a f4 20 43  6f 6d 70 72 65 73 73 65  |)>0):. Compresse|
000044f0  64 20 66 6c 61 67 0d 0e  e2 23 74 6f 74 61 6c 25  |d flag...#total%|
00004500  3d 33 32 30 30 30 3a f4  20 54 6f 74 61 6c 20 64  |=32000:. Total d|
00004510  61 74 61 20 62 79 74 65  73 0d 0e ec 0d c8 8e 20  |ata bytes...... |
00004520  72 65 73 25 20 ca 0d 0e  f6 29 20 c9 20 30 20 3a  |res% ....) . 0 :|
00004530  20 78 72 65 73 25 3d 33  32 30 3a 79 72 65 73 25  | xres%=320:yres%|
00004540  3d 32 30 30 3a 63 6f 6c  62 69 74 73 25 3d 34 0d  |=200:colbits%=4.|
00004550  0f 00 29 20 c9 20 31 20  3a 20 78 72 65 73 25 3d  |..) . 1 : xres%=|
00004560  36 34 30 3a 79 72 65 73  25 3d 32 30 30 3a 63 6f  |640:yres%=200:co|
00004570  6c 62 69 74 73 25 3d 32  0d 0f 0a 29 20 c9 20 32  |lbits%=2...) . 2|
00004580  20 3a 20 78 72 65 73 25  3d 36 34 30 3a 79 72 65  | : xres%=640:yre|
00004590  73 25 3d 34 30 30 3a 63  6f 6c 62 69 74 73 25 3d  |s%=400:colbits%=|
000045a0  31 0d 0f 14 05 cb 0d 0f  1e 2b 63 6f 6c 6f 75 72  |1........+colour|
000045b0  73 25 3d 32 5e 63 6f 6c  62 69 74 73 25 3a f4 20  |s%=2^colbits%:. |
000045c0  4e 75 6d 62 65 72 20 6f  66 20 63 6f 6c 6f 75 72  |Number of colour|
000045d0  73 0d 0f 28 36 6d 6f 64  65 25 3d a4 6d 6f 64 65  |s..(6mode%=.mode|
000045e0  28 78 72 65 73 25 2c 79  72 65 73 25 2c 63 6f 6c  |(xres%,yres%,col|
000045f0  6f 75 72 73 25 29 3a f4  20 44 65 74 65 72 6d 69  |ours%):. Determi|
00004600  6e 65 20 6d 6f 64 65 0d  0f 32 29 e7 a4 6e 65 77  |ne mode..2)..new|
00004610  5f 69 6d 61 67 65 28 6d  6f 64 65 25 2c 78 72 65  |_image(mode%,xre|
00004620  73 25 2c 79 72 65 73 25  2c 30 29 20 8b 20 3d a3  |s%,yres%,0) . =.|
00004630  0d 0f 3c 2d f2 69 67 65  74 28 31 2c 64 75 6d 25  |..<-.iget(1,dum%|
00004640  2c 33 32 29 3a f4 20 52  65 61 64 20 70 61 6c 65  |,32):. Read pale|
00004650  74 74 65 20 66 72 6f 6d  20 66 69 6c 65 0d 0f 46  |tte from file..F|
00004660  95 49 6e 50 61 6c 25 28  30 29 3d 63 6f 6c 62 69  |.InPal%(0)=colbi|
00004670  74 73 25 3a e3 20 63 25  3d 30 20 b8 20 63 6f 6c  |ts%:. c%=0 . col|
00004680  6f 75 72 73 25 2d 31 3a  76 25 3d 64 75 6d 25 21  |ours%-1:v%=dum%!|
00004690  28 63 25 2a 32 29 3a 72  25 3d 28 76 25 80 37 29  |(c%*2):r%=(v%.7)|
000046a0  2a 33 32 3a 67 25 3d 28  28 76 25 3e 3e 31 32 29  |*32:g%=((v%>>12)|
000046b0  80 37 29 2a 33 32 3a 62  25 3d 28 28 76 25 3e 3e  |.7)*32:b%=((v%>>|
000046c0  38 29 80 37 29 2a 33 32  3a 49 6e 50 61 6c 25 28  |8).7)*32:InPal%(|
000046d0  63 6f 6c 6f 75 72 73 25  2d 63 25 29 3d 28 72 25  |colours%-c%)=(r%|
000046e0  3c 3c 31 36 29 2b 28 67  25 3c 3c 38 29 2b 62 25  |<<16)+(g%<<8)+b%|
000046f0  3a ed 0d 0f 50 5b e7 63  6f 6d 70 72 65 73 73 65  |:...P[.compresse|
00004700  64 20 8c 20 63 6f 6d 70  72 24 3d 22 52 75 6e 20  |d . compr$="Run |
00004710  6c 65 6e 67 74 68 22 3a  74 79 70 65 24 3d 22 50  |length":type$="P|
00004720  43 22 2b c3 28 72 65 73  25 2b 31 29 20 8b 20 63  |C"+.(res%+1) . c|
00004730  6f 6d 70 72 24 3d 22 22  3a 74 79 70 65 24 3d 22  |ompr$="":type$="|
00004740  50 49 22 2b c3 28 72 65  73 25 2b 31 29 0d 0f 5a  |PI"+.(res%+1)..Z|
00004750  5c f2 69 6d 61 67 65 5f  69 6e 66 6f 28 22 41 74  |\.image_info("At|
00004760  61 72 69 20 44 65 67 61  73 20 22 2b 74 79 70 65  |ari Degas "+type|
00004770  24 2c 78 72 65 73 25 2c  79 72 65 73 25 2c 30 2c  |$,xres%,yres%,0,|
00004780  63 6f 6c 62 69 74 73 25  2c 6d 6f 64 65 25 2c 63  |colbits%,mode%,c|
00004790  6f 6d 70 72 24 2c 22 22  2c 46 6c 65 6e 25 2d 33  |ompr$,"",Flen%-3|
000047a0  34 2c 74 6f 74 61 6c 25  29 0d 0f 64 75 f2 76 61  |4,total%)..du.va|
000047b0  72 28 22 63 6f 6d 70 22  2c 63 6f 6d 70 72 65 73  |r("comp",compres|
000047c0  73 65 64 29 3a f2 76 61  72 28 22 72 65 73 74 22  |sed):.var("rest"|
000047d0  2c 72 65 73 25 29 3a f2  76 61 72 28 22 77 69 64  |,res%):.var("wid|
000047e0  74 22 2c 78 72 65 73 25  29 3a f2 76 61 72 28 22  |t",xres%):.var("|
000047f0  68 65 69 67 22 2c 79 72  65 73 25 29 3a f2 76 61  |heig",yres%):.va|
00004800  72 28 22 66 70 74 72 22  2c 26 32 32 29 3a f2 75  |r("fptr",&22):.u|
00004810  6e 70 61 63 6b 28 22 44  45 47 41 53 22 29 0d 0f  |npack("DEGAS")..|
00004820  6e 15 49 6d 67 4d 6f 64  65 25 3d 6d 6f 64 65 25  |n.ImgMode%=mode%|
00004830  3a 3d b9 0d 0f 78 05 20  0d 0f 82 0d dd a4 70 69  |:=...x. ......pi|
00004840  63 5f 49 4d 47 0d 0f 8c  1b f4 20 4d 61 6b 65 73  |c_IMG..... Makes|
00004850  20 41 74 61 72 69 20 49  4d 47 20 69 6d 61 67 65  | Atari IMG image|
00004860  0d 0f 96 2b 69 54 79 70  65 25 3d 31 3a f4 20 53  |...+iType%=1:. S|
00004870  65 74 20 68 69 67 68 2d  74 6f 2d 6c 6f 77 20 74  |et high-to-low t|
00004880  79 70 65 20 6f 66 20 64  61 74 61 0d 0f a0 51 76  |ype of data...Qv|
00004890  65 72 73 69 6f 6e 25 3d  a4 69 32 28 31 29 3a 68  |ersion%=.i2(1):h|
000048a0  65 61 64 6c 65 6e 25 3d  a4 69 32 28 31 29 3a 6e  |eadlen%=.i2(1):n|
000048b0  70 6c 61 6e 65 73 25 3d  a4 69 32 28 31 29 3a f4  |planes%=.i2(1):.|
000048c0  20 56 65 72 73 69 6f 6e  2c 20 68 65 61 64 6c 65  | Version, headle|
000048d0  6e 67 74 68 2c 20 70 6c  61 6e 65 73 0d 0f aa 51  |ngth, planes...Q|
000048e0  70 61 74 6c 65 6e 25 3d  a4 69 32 28 31 29 3a 70  |patlen%=.i2(1):p|
000048f0  77 25 3d a4 69 32 28 31  29 3a 70 68 25 3d a4 69  |w%=.i2(1):ph%=.i|
00004900  32 28 31 29 3a f4 20 50  61 74 74 65 72 6e 20 6c  |2(1):. Pattern l|
00004910  65 6e 67 74 68 2c 20 70  69 78 65 6c 20 77 69 64  |ength, pixel wid|
00004920  74 68 20 61 6e 64 20 68  65 69 67 68 74 0d 0f b4  |th and height...|
00004930  3d 77 69 64 74 68 25 3d  a4 69 32 28 31 29 3a 68  |=width%=.i2(1):h|
00004940  65 69 67 68 74 25 3d a4  69 32 28 31 29 3a f4 20  |eight%=.i2(1):. |
00004950  57 69 64 74 68 20 61 6e  64 20 68 65 69 67 68 74  |Width and height|
00004960  20 69 6e 20 70 69 78 65  6c 73 0d 0f be 2b 63 6f  | in pixels...+co|
00004970  6c 6f 75 72 73 25 3d 32  5e 6e 70 6c 61 6e 65 73  |lours%=2^nplanes|
00004980  25 3a f4 20 4e 75 6d 62  65 72 20 6f 66 20 63 6f  |%:. Number of co|
00004990  6c 6f 75 72 73 0d 0f c8  7f e7 63 6f 6c 6f 75 72  |lours.....colour|
000049a0  73 25 3c 3e 32 20 84 20  70 61 74 6c 65 6e 25 3c  |s%<>2 . patlen%<|
000049b0  3e 32 20 8c 20 f2 65 72  72 6f 72 28 2d 31 2c 22  |>2 . .error(-1,"|
000049c0  49 20 63 61 6e 6e 6f 74  20 64 69 73 70 6c 61 79  |I cannot display|
000049d0  20 41 74 61 72 69 20 49  4d 47 20 69 6d 61 67 65  | Atari IMG image|
000049e0  73 20 77 69 74 68 20 6d  6f 72 65 20 74 68 61 6e  |s with more than|
000049f0  20 32 20 63 6f 6c 6f 75  72 73 20 6f 72 20 70 61  | 2 colours or pa|
00004a00  74 74 65 72 6e 6c 65 6e  67 74 68 3c 3e 32 20 21  |tternlength<>2 !|
00004a10  22 29 3a e1 0d 0f d2 39  6d 6f 64 65 25 3d a4 6d  |"):....9mode%=.m|
00004a20  6f 64 65 28 77 69 64 74  68 25 2c 68 65 69 67 68  |ode(width%,heigh|
00004a30  74 25 2c 63 6f 6c 6f 75  72 73 25 29 3a f4 20 44  |t%,colours%):. D|
00004a40  65 74 65 72 6d 69 6e 65  20 6d 6f 64 65 0d 0f dc  |etermine mode...|
00004a50  2c e7 a4 6e 65 77 5f 69  6d 61 67 65 28 6d 6f 64  |,..new_image(mod|
00004a60  65 25 2c 77 69 64 74 68  25 2c 68 65 69 67 68 74  |e%,width%,height|
00004a70  25 2c 30 29 20 8b 20 3d  a3 0d 0f e6 42 49 6e 50  |%,0) . =....BInP|
00004a80  61 6c 25 28 30 29 3d 6e  70 6c 61 6e 65 73 25 3a  |al%(0)=nplanes%:|
00004a90  49 6e 50 61 6c 25 28 31  29 3d 30 3a 49 6e 50 61  |InPal%(1)=0:InPa|
00004aa0  6c 25 28 32 29 3d 26 46  46 46 46 46 46 3a f4 20  |l%(2)=&FFFFFF:. |
00004ab0  53 65 74 20 70 61 6c 65  74 74 65 0d 0f f0 7b f2  |Set palette...{.|
00004ac0  69 6d 61 67 65 5f 69 6e  66 6f 28 22 41 74 61 72  |image_info("Atar|
00004ad0  69 20 49 4d 47 22 2c 77  69 64 74 68 25 2c 68 65  |i IMG",width%,he|
00004ae0  69 67 68 74 25 2c 30 2c  6e 70 6c 61 6e 65 73 25  |ight%,0,nplanes%|
00004af0  2c 6d 6f 64 65 25 2c 22  53 65 76 65 72 61 6c 20  |,mode%,"Several |
00004b00  77 61 79 73 22 2c 22 22  2c 46 6c 65 6e 25 2d 68  |ways","",Flen%-h|
00004b10  65 61 64 6c 65 6e 25 2a  32 2c 28 77 69 64 74 68  |eadlen%*2,(width|
00004b20  25 2a 68 65 69 67 68 74  25 2a 6e 70 6c 61 6e 65  |%*height%*nplane|
00004b30  73 25 29 81 38 29 0d 0f  fa 53 f2 76 61 72 28 22  |s%).8)...S.var("|
00004b40  77 69 64 74 22 2c 77 69  64 74 68 25 29 3a f2 76  |widt",width%):.v|
00004b50  61 72 28 22 68 65 69 67  22 2c 68 65 69 67 68 74  |ar("heig",height|
00004b60  25 29 3a f2 76 61 72 28  22 66 70 74 72 22 2c 68  |%):.var("fptr",h|
00004b70  65 61 64 6c 65 6e 25 2a  32 29 3a f2 75 6e 70 61  |eadlen%*2):.unpa|
00004b80  63 6b 28 22 49 4d 47 22  29 0d 10 04 15 49 6d 67  |ck("IMG")....Img|
00004b90  4d 6f 64 65 25 3d 6d 6f  64 65 25 3a 3d b9 0d 10  |Mode%=mode%:=...|
00004ba0  0e 05 20 0d 10 18 0d dd  a4 70 69 63 5f 4d 41 43  |.. ......pic_MAC|
00004bb0  0d 10 22 24 f4 20 4d 61  6b 65 73 20 4d 61 63 49  |.."$. Makes MacI|
00004bc0  6e 74 6f 73 68 20 4d 61  63 50 61 69 6e 74 20 69  |ntosh MacPaint i|
00004bd0  6d 61 67 65 0d 10 2c 32  77 69 64 74 68 25 3d 35  |mage..,2width%=5|
00004be0  37 36 3a 68 65 69 67 68  74 25 3d 37 32 30 3a 63  |76:height%=720:c|
00004bf0  6f 6c 62 69 74 73 25 3d  31 3a f4 20 52 65 73 6f  |olbits%=1:. Reso|
00004c00  6c 75 74 69 6f 6e 0d 10  36 3b 6d 6f 64 65 25 3d  |lution..6;mode%=|
00004c10  a4 6d 6f 64 65 28 77 69  64 74 68 25 2c 68 65 69  |.mode(width%,hei|
00004c20  67 68 74 25 2c 32 5e 63  6f 6c 62 69 74 73 25 29  |ght%,2^colbits%)|
00004c30  3a f4 20 44 65 74 65 72  6d 69 6e 65 20 6d 6f 64  |:. Determine mod|
00004c40  65 0d 10 40 2c e7 a4 6e  65 77 5f 69 6d 61 67 65  |e..@,..new_image|
00004c50  28 6d 6f 64 65 25 2c 77  69 64 74 68 25 2c 68 65  |(mode%,width%,he|
00004c60  69 67 68 74 25 2c 30 29  20 8b 20 3d a3 0d 10 4a  |ight%,0) . =...J|
00004c70  42 49 6e 50 61 6c 25 28  30 29 3d 63 6f 6c 62 69  |BInPal%(0)=colbi|
00004c80  74 73 25 3a 49 6e 50 61  6c 25 28 31 29 3d 30 3a  |ts%:InPal%(1)=0:|
00004c90  49 6e 50 61 6c 25 28 32  29 3d 26 46 46 46 46 46  |InPal%(2)=&FFFFF|
00004ca0  46 3a f4 20 53 65 74 20  70 61 6c 65 74 74 65 0d  |F:. Set palette.|
00004cb0  10 54 6b f2 69 6d 61 67  65 5f 69 6e 66 6f 28 22  |.Tk.image_info("|
00004cc0  4d 61 63 49 6e 74 6f 73  68 20 4d 61 63 50 61 69  |MacIntosh MacPai|
00004cd0  6e 74 22 2c 77 69 64 74  68 25 2c 68 65 69 67 68  |nt",width%,heigh|
00004ce0  74 25 2c 30 2c 63 6f 6c  62 69 74 73 25 2c 6d 6f  |t%,0,colbits%,mo|
00004cf0  64 65 25 2c 22 52 75 6e  20 6c 65 6e 67 74 68 22  |de%,"Run length"|
00004d00  2c 22 22 2c 46 6c 65 6e  25 2d 36 34 30 2c 28 35  |,"",Flen%-640,(5|
00004d10  37 36 2a 37 32 30 29 81  38 29 0d 10 5e 4c f2 76  |76*720).8)..^L.v|
00004d20  61 72 28 22 77 69 64 74  22 2c 77 69 64 74 68 25  |ar("widt",width%|
00004d30  29 3a f2 76 61 72 28 22  68 65 69 67 22 2c 68 65  |):.var("heig",he|
00004d40  69 67 68 74 25 29 3a f2  76 61 72 28 22 66 70 74  |ight%):.var("fpt|
00004d50  72 22 2c 36 34 30 29 3a  f2 75 6e 70 61 63 6b 28  |r",640):.unpack(|
00004d60  22 4d 41 43 22 29 0d 10  68 15 49 6d 67 4d 6f 64  |"MAC")..h.ImgMod|
00004d70  65 25 3d 6d 6f 64 65 25  3a 3d b9 0d 10 72 05 20  |e%=mode%:=...r. |
00004d80  0d 10 7c 0d dd a4 70 69  63 5f 49 46 46 0d 10 86  |..|...pic_IFF...|
00004d90  1b f4 20 4d 61 6b 65 73  20 41 6d 69 67 61 20 49  |.. Makes Amiga I|
00004da0  46 46 20 69 6d 61 67 65  0d 10 90 25 62 6d 68 64  |FF image...%bmhd|
00004db0  3d a3 3a 63 6d 61 70 3d  a3 3a 62 6f 64 79 3d a3  |=.:cmap=.:body=.|
00004dc0  3a f4 20 49 6e 69 74 20  66 6c 61 67 73 0d 10 9a  |:. Init flags...|
00004dd0  32 68 61 6d 3d a3 3a 6c  61 63 65 3d a3 3a 68 69  |2ham=.:lace=.:hi|
00004de0  72 65 73 3d a3 3a 68 61  6c 66 62 72 69 67 68 74  |res=.:halfbright|
00004df0  3d a3 3a f4 20 49 6e 69  74 20 66 6c 61 67 73 0d  |=.:. Init flags.|
00004e00  10 a4 2b 69 54 79 70 65  25 3d 31 3a f4 20 53 65  |..+iType%=1:. Se|
00004e10  74 20 68 69 67 68 2d 74  6f 2d 6c 6f 77 20 74 79  |t high-to-low ty|
00004e20  70 65 20 6f 66 20 64 61  74 61 0d 10 ae 32 f4 20  |pe of data...2. |
00004e30  43 68 65 63 6b 20 69 66  20 74 68 69 73 20 69 73  |Check if this is|
00004e40  20 61 20 73 74 61 6e 64  61 72 64 20 49 46 46 20  | a standard IFF |
00004e50  70 69 63 74 75 72 65 20  66 69 6c 65 0d 10 b8 8a  |picture file....|
00004e60  66 6f 72 6d 24 3d a4 69  73 74 72 69 6e 67 28 31  |form$=.istring(1|
00004e70  2c 34 29 3a f2 69 73 6b  69 70 28 31 2c 34 29 3a  |,4):.iskip(1,4):|
00004e80  66 6f 72 6d 24 2b 3d a4  69 73 74 72 69 6e 67 28  |form$+=.istring(|
00004e90  31 2c 34 29 3a e7 66 6f  72 6d 24 3c 3e 22 46 4f  |1,4):.form$<>"FO|
00004ea0  52 4d 49 4c 42 4d 22 20  8c 20 f2 65 72 72 6f 72  |RMILBM" . .error|
00004eb0  28 2d 31 2c 22 54 68 69  73 20 73 63 72 65 65 6e  |(-1,"This screen|
00004ec0  20 66 69 6c 65 20 69 73  20 6e 6f 74 20 61 6e 20  | file is not an |
00004ed0  49 46 46 20 73 63 72 65  65 6e 20 66 69 6c 65 20  |IFF screen file |
00004ee0  21 22 29 3a 3d a3 0d 10  c2 29 f5 20 f4 20 46 6f  |!"):=....). . Fo|
00004ef0  6c 6c 6f 77 20 42 4d 48  44 2c 43 4d 41 50 20 61  |llow BMHD,CMAP a|
00004f00  6e 64 20 42 4f 44 59 20  68 65 61 64 65 72 73 0d  |nd BODY headers.|
00004f10  10 cc 37 68 65 61 64 24  3d a4 69 73 74 72 69 6e  |..7head$=.istrin|
00004f20  67 28 31 2c 34 29 3a 68  6c 65 6e 25 3d a4 69 34  |g(1,4):hlen%=.i4|
00004f30  28 31 29 3a 73 74 61 72  74 70 74 72 25 3d a4 69  |(1):startptr%=.i|
00004f40  70 74 72 28 31 29 0d 10  d6 0e c8 8e 20 68 65 61  |ptr(1)...... hea|
00004f50  64 24 20 ca 0d 10 e0 26  20 c9 20 22 42 4d 48 44  |d$ ....& . "BMHD|
00004f60  22 20 3a 20 62 6d 68 64  3d b9 3a f4 20 42 69 74  |" : bmhd=.:. Bit|
00004f70  6d 61 70 20 68 65 61 64  65 72 0d 10 ea 3d 20 20  |map header...=  |
00004f80  20 20 20 20 20 f4 20 52  65 61 64 20 70 69 63 74  |     . Read pict|
00004f90  75 72 65 2f 73 63 72 65  65 6e 20 77 69 64 74 68  |ure/screen width|
00004fa0  2c 20 68 65 69 67 68 74  2c 20 63 6f 6c 6f 75 72  |, height, colour|
00004fb0  73 2c 20 65 74 63 2e 0d  10 f4 4e 20 20 20 20 20  |s, etc....N     |
00004fc0  20 20 77 69 64 74 68 25  3d a4 69 32 28 31 29 3a  |  width%=.i2(1):|
00004fd0  68 65 69 67 68 74 25 3d  a4 69 32 28 31 29 3a f2  |height%=.i2(1):.|
00004fe0  69 73 6b 69 70 28 31 2c  34 29 3a 70 6c 61 6e 65  |iskip(1,4):plane|
00004ff0  73 25 3d a4 69 31 28 31  29 3a f2 69 73 6b 69 70  |s%=.i1(1):.iskip|
00005000  28 31 2c 31 29 0d 10 fe  4d 20 20 20 20 20 20 20  |(1,1)...M       |
00005010  63 6f 6d 70 72 65 73 73  65 64 3d 28 a4 69 31 28  |compressed=(.i1(|
00005020  31 29 3d 31 29 3a f2 69  73 6b 69 70 28 31 2c 35  |1)=1):.iskip(1,5|
00005030  29 3a 73 5f 77 69 64 74  68 25 3d a4 69 32 28 31  |):s_width%=.i2(1|
00005040  29 3a 73 5f 68 65 69 67  68 74 25 3d a4 69 32 28  |):s_height%=.i2(|
00005050  31 29 0d 11 08 40 20 c9  20 22 43 41 4d 47 22 20  |1)...@ . "CAMG" |
00005060  3a 20 66 6c 61 67 73 25  3d a4 69 34 28 31 29 3a  |: flags%=.i4(1):|
00005070  f4 20 47 65 74 20 66 6c  61 67 20 62 69 74 73 2c  |. Get flag bits,|
00005080  20 73 65 74 20 66 6c 61  67 73 20 66 72 6f 6d 20  | set flags from |
00005090  69 74 0d 11 12 35 20 20  20 20 20 20 20 68 61 6d  |it...5       ham|
000050a0  3d 28 28 66 6c 61 67 73  25 80 26 38 30 30 29 3e  |=((flags%.&800)>|
000050b0  30 29 3a 6c 61 63 65 3d  28 28 66 6c 61 67 73 25  |0):lace=((flags%|
000050c0  80 26 34 29 3e 30 29 0d  11 1c 3f 20 20 20 20 20  |.&4)>0)...?     |
000050d0  20 20 68 69 72 65 73 3d  28 28 66 6c 61 67 73 25  |  hires=((flags%|
000050e0  80 26 38 30 30 30 29 3e  30 29 3a 68 61 6c 66 62  |.&8000)>0):halfb|
000050f0  72 69 67 68 74 3d 28 28  66 6c 61 67 73 25 80 26  |right=((flags%.&|
00005100  38 30 29 3e 30 29 0d 11  26 2d 20 c9 20 22 43 4d  |80)>0)..&- . "CM|
00005110  41 50 22 20 3a 20 63 6d  61 70 3d b9 3a f4 20 43  |AP" : cmap=.:. C|
00005120  6f 6c 6f 75 72 20 6d 61  70 20 28 70 61 6c 65 74  |olour map (palet|
00005130  74 65 29 0d 11 30 42 20  20 20 20 20 20 20 70 61  |te)..0B       pa|
00005140  6c 64 65 66 73 25 3d 68  6c 65 6e 25 81 33 3a f4  |ldefs%=hlen%.3:.|
00005150  20 4e 75 6d 62 65 72 20  6f 66 20 70 61 6c 65 74  | Number of palet|
00005160  74 65 20 63 6f 6c 6f 75  72 20 64 65 66 69 6e 69  |te colour defini|
00005170  74 69 6f 6e 73 0d 11 3a  34 20 20 20 20 20 20 20  |tions..:4       |
00005180  e3 20 5f 25 3d 30 20 b8  20 70 61 6c 64 65 66 73  |. _%=0 . paldefs|
00005190  25 2d 31 3a 49 6e 50 61  6c 25 28 5f 25 2b 31 29  |%-1:InPal%(_%+1)|
000051a0  3d a4 69 33 28 31 29 3a  ed 0d 11 44 24 20 c9 20  |=.i3(1):...D$ . |
000051b0  22 42 4f 44 59 22 20 3a  20 62 6f 64 79 3d b9 3a  |"BODY" : body=.:|
000051c0  f4 20 53 63 72 65 65 6e  20 64 61 74 61 0d 11 4e  |. Screen data..N|
000051d0  29 20 20 20 20 20 20 20  f4 20 43 68 65 63 6b 20  |)       . Check |
000051e0  69 66 20 61 6c 6c 20 70  61 72 74 73 20 61 72 65  |if all parts are|
000051f0  20 74 68 65 72 65 0d 11  58 be 20 20 20 20 20 20  | there..X.      |
00005200  20 e7 ac 62 6d 68 64 20  8c 20 f2 65 72 72 6f 72  | ..bmhd . .error|
00005210  28 2d 31 2c 22 49 46 46  20 65 72 72 6f 72 20 3a  |(-1,"IFF error :|
00005220  20 49 20 64 69 64 20 6e  6f 74 20 66 69 6e 64 20  | I did not find |
00005230  61 20 27 42 4d 48 44 27  20 62 6c 6f 63 6b 2e 20  |a 'BMHD' block. |
00005240  43 61 6e 6e 6f 74 20 70  72 6f 63 65 65 64 20 21  |Cannot proceed !|
00005250  22 29 3a fd 20 b9 3a 3d  a3 20 8b 20 e7 ac 63 6d  |"):. .:=. . ..cm|
00005260  61 70 20 8c 20 f2 65 72  72 6f 72 28 2d 31 2c 22  |ap . .error(-1,"|
00005270  49 46 46 20 65 72 72 6f  72 20 3a 20 49 20 64 69  |IFF error : I di|
00005280  64 20 6e 6f 74 20 66 69  6e 64 20 61 20 27 43 4d  |d not find a 'CM|
00005290  41 50 27 20 62 6c 6f 63  6b 2e 20 43 61 6e 6e 6f  |AP' block. Canno|
000052a0  74 20 70 72 6f 63 65 65  64 20 21 22 29 3a fd 20  |t proceed !"):. |
000052b0  b9 3a 3d a3 0d 11 62 36  20 20 20 20 20 20 20 f4  |.:=...b6       .|
000052c0  20 44 65 74 65 72 6d 69  6e 65 20 73 75 69 74 61  | Determine suita|
000052d0  62 6c 65 20 41 72 63 68  69 6d 65 64 65 73 20 73  |ble Archimedes s|
000052e0  63 72 65 65 6e 20 6d 6f  64 65 0d 11 6c 11 20 20  |creen mode..l.  |
000052f0  20 20 20 20 20 e7 68 61  6d 20 8c 0d 11 76 a7 20  |     .ham ...v. |
00005300  20 20 20 20 20 20 20 6d  6f 64 65 25 3d a4 6d 6f  |       mode%=.mo|
00005310  64 65 28 33 32 30 2c 73  5f 68 65 69 67 68 74 25  |de(320,s_height%|
00005320  2c 32 35 36 29 3a 63 6f  6c 62 69 74 73 25 3d 31  |,256):colbits%=1|
00005330  32 3a 69 6e 66 6f 24 3d  22 48 41 4d 20 28 48 6f  |2:info$="HAM (Ho|
00005340  6c 64 20 41 6e 64 20 4d  6f 64 69 66 79 29 22 3a  |ld And Modify)":|
00005350  49 6e 50 61 6c 25 28 30  29 3d 63 6f 6c 62 69 74  |InPal%(0)=colbit|
00005360  73 25 3a e3 20 63 25 3d  30 20 b8 20 31 35 3a 68  |s%:. c%=0 . 15:h|
00005370  61 6d 62 61 73 25 21 28  63 25 3c 3c 32 29 3d 49  |ambas%!(c%<<2)=I|
00005380  6e 50 61 6c 25 28 63 25  2b 31 29 3a ed 3a f2 76  |nPal%(c%+1):.:.v|
00005390  61 72 28 22 68 61 6d 62  22 2c 68 61 6d 62 61 73  |ar("hamb",hambas|
000053a0  25 29 0d 11 80 74 20 20  20 20 20 20 20 cc 20 63  |%)...t       . c|
000053b0  6f 6c 6f 75 72 73 25 3d  32 5e 70 6c 61 6e 65 73  |olours%=2^planes|
000053c0  25 3a 6d 6f 64 65 25 3d  a4 6d 6f 64 65 28 73 5f  |%:mode%=.mode(s_|
000053d0  77 69 64 74 68 25 2c 73  5f 68 65 69 67 68 74 25  |width%,s_height%|
000053e0  2c 63 6f 6c 6f 75 72 73  25 29 3a 63 6f 6c 62 69  |,colours%):colbi|
000053f0  74 73 25 3d 70 6c 61 6e  65 73 25 3a 49 6e 50 61  |ts%=planes%:InPa|
00005400  6c 25 28 30 29 3d 70 6c  61 6e 65 73 25 3a 69 6e  |l%(0)=planes%:in|
00005410  66 6f 24 3d 22 22 0d 11  8a 78 20 20 20 20 20 20  |fo$=""...x      |
00005420  20 20 e7 68 61 6c 66 62  72 69 67 68 74 20 8c 20  |  .halfbright . |
00005430  69 6e 66 6f 24 3d 22 48  61 6c 66 2d 62 72 69 67  |info$="Half-brig|
00005440  68 74 22 3a 68 61 6c 66  25 3d 63 6f 6c 6f 75 72  |ht":half%=colour|
00005450  73 25 81 32 3a e3 20 63  25 3d 31 20 b8 20 68 61  |s%.2:. c%=1 . ha|
00005460  6c 66 25 3a 49 6e 50 61  6c 25 28 63 25 2b 68 61  |lf%:InPal%(c%+ha|
00005470  6c 66 25 29 3d 28 49 6e  50 61 6c 25 28 63 25 29  |lf%)=(InPal%(c%)|
00005480  80 26 45 30 45 30 45 30  29 3e 3e 31 3a ed 0d 11  |.&E0E0E0)>>1:...|
00005490  94 0c 20 20 20 20 20 20  20 cd 0d 11 9e 33 20 20  |..       ....3  |
000054a0  20 20 20 20 20 e7 a4 6e  65 77 5f 69 6d 61 67 65  |     ..new_image|
000054b0  28 6d 6f 64 65 25 2c 77  69 64 74 68 25 2c 68 65  |(mode%,width%,he|
000054c0  69 67 68 74 25 2c 30 29  20 8b 20 3d a3 0d 11 a8  |ight%,0) . =....|
000054d0  38 20 20 20 20 20 20 20  e7 63 6f 6d 70 72 65 73  |8       .compres|
000054e0  73 65 64 20 8c 20 63 6f  6d 70 72 24 3d 22 52 75  |sed . compr$="Ru|
000054f0  6e 20 6c 65 6e 67 74 68  22 20 8b 20 63 6f 6d 70  |n length" . comp|
00005500  72 24 3d 22 22 0d 11 b2  26 20 20 20 20 20 20 20  |r$=""...&       |
00005510  e7 63 6f 6c 62 69 74 73  25 3e 38 20 8c 20 63 69  |.colbits%>8 . ci|
00005520  25 3d 32 20 8b 20 63 69  25 3d 30 0d 11 bc 7c 20  |%=2 . ci%=0...| |
00005530  20 20 20 20 20 20 f2 69  6d 61 67 65 5f 69 6e 66  |      .image_inf|
00005540  6f 28 22 41 6d 69 67 61  20 49 46 46 22 2c 77 69  |o("Amiga IFF",wi|
00005550  64 74 68 25 2c 68 65 69  67 68 74 25 2c 63 69 25  |dth%,height%,ci%|
00005560  2c 63 6f 6c 62 69 74 73  25 2c 6d 6f 64 65 25 2c  |,colbits%,mode%,|
00005570  63 6f 6d 70 72 24 2c 69  6e 66 6f 24 2c 46 6c 65  |compr$,info$,Fle|
00005580  6e 25 2d a4 69 70 74 72  28 31 29 2c 28 77 69 64  |n%-.iptr(1),(wid|
00005590  74 68 25 2a 68 65 69 67  68 74 25 2a 70 6c 61 6e  |th%*height%*plan|
000055a0  65 73 25 29 81 38 29 0d  11 c6 31 20 20 20 20 20  |es%).8)...1     |
000055b0  20 20 e7 68 61 6d 20 8c  20 f2 76 61 72 28 22 73  |  .ham . .var("s|
000055c0  63 74 79 22 2c 31 29 20  8b 20 f2 76 61 72 28 22  |cty",1) . .var("|
000055d0  73 63 74 79 22 2c 30 29  0d 11 d0 85 20 20 20 20  |scty",0)....    |
000055e0  20 20 20 f2 76 61 72 28  22 66 70 74 72 22 2c a4  |   .var("fptr",.|
000055f0  69 70 74 72 28 31 29 29  3a f2 76 61 72 28 22 70  |iptr(1)):.var("p|
00005600  6c 61 6e 22 2c 70 6c 61  6e 65 73 25 29 3a f2 76  |lan",planes%):.v|
00005610  61 72 28 22 77 69 64 74  22 2c 77 69 64 74 68 25  |ar("widt",width%|
00005620  29 3a f2 76 61 72 28 22  68 65 69 67 22 2c 68 65  |):.var("heig",he|
00005630  69 67 68 74 25 29 3a f2  76 61 72 28 22 63 6f 6d  |ight%):.var("com|
00005640  70 22 2c 63 6f 6d 70 72  65 73 73 65 64 29 3a f2  |p",compressed):.|
00005650  75 6e 70 61 63 6b 28 22  49 46 46 22 29 0d 11 da  |unpack("IFF")...|
00005660  19 20 20 20 20 20 20 20  49 6d 67 4d 6f 64 65 25  |.       ImgMode%|
00005670  3d 6d 6f 64 65 25 0d 11  e4 05 cb 0d 11 ee 39 f2  |=mode%........9.|
00005680  69 73 6b 69 70 28 31 2c  68 6c 65 6e 25 2d 28 a4  |iskip(1,hlen%-(.|
00005690  69 70 74 72 28 31 29 2d  73 74 61 72 74 70 74 72  |iptr(1)-startptr|
000056a0  25 29 29 3a f4 20 54 6f  20 6e 65 78 74 20 68 65  |%)):. To next he|
000056b0  61 64 65 72 0d 11 f8 0a  fd 20 62 6f 64 79 0d 12  |ader..... body..|
000056c0  02 06 3d b9 0d 12 0c 05  20 0d 12 16 0d dd a4 70  |..=..... ......p|
000056d0  69 63 5f 47 49 46 0d 12  20 33 f4 20 4d 61 6b 65  |ic_GIF.. 3. Make|
000056e0  73 20 47 49 46 20 28 47  72 61 70 68 69 63 73 20  |s GIF (Graphics |
000056f0  49 6e 74 65 72 63 68 61  6e 67 65 20 46 6f 72 6d  |Interchange Form|
00005700  61 74 29 20 69 6d 61 67  65 0d 12 2a 26 ea 20 67  |at) image..*&. g|
00005710  5f 49 6e 50 61 6c 25 28  29 2c 50 69 63 5f 70 74  |_InPal%(),Pic_pt|
00005720  72 25 28 29 2c 50 69 63  5f 6c 65 6e 25 28 29 0d  |r%(),Pic_len%().|
00005730  12 34 2f de 20 67 5f 49  6e 50 61 6c 25 28 32 35  |.4/. g_InPal%(25|
00005740  36 29 2c 50 69 63 5f 70  74 72 25 28 32 35 36 29  |6),Pic_ptr%(256)|
00005750  2c 50 69 63 5f 6c 65 6e  25 28 32 35 36 29 0d 12  |,Pic_len%(256)..|
00005760  3e 2b 69 54 79 70 65 25  3d 30 3a f4 20 53 65 74  |>+iType%=0:. Set|
00005770  20 6c 6f 77 2d 74 6f 2d  68 69 67 68 20 74 79 70  | low-to-high typ|
00005780  65 20 6f 66 20 64 61 74  61 0d 12 48 31 73 69 67  |e of data..H1sig|
00005790  6e 61 74 75 72 65 24 3d  a4 69 73 74 72 69 6e 67  |nature$=.istring|
000057a0  28 31 2c 36 29 3a f4 20  52 65 61 64 20 47 49 46  |(1,6):. Read GIF|
000057b0  20 73 69 67 6e 61 74 75  72 65 0d 12 52 58 e7 c0  | signature..RX..|
000057c0  73 69 67 6e 61 74 75 72  65 24 2c 33 29 3c 3e 22  |signature$,3)<>"|
000057d0  47 49 46 22 20 8c 20 f2  65 72 72 6f 72 28 2d 31  |GIF" . .error(-1|
000057e0  2c 22 54 68 69 73 20 73  63 72 65 65 6e 20 66 69  |,"This screen fi|
000057f0  6c 65 20 69 73 20 6e 6f  74 20 61 20 47 49 46 20  |le is not a GIF |
00005800  73 63 72 65 65 6e 20 66  69 6c 65 20 21 22 29 3a  |screen file !"):|
00005810  3d a3 0d 12 5c 24 f4 20  52 65 61 64 20 64 61 74  |=...\$. Read dat|
00005820  61 20 69 6e 20 53 63 72  65 65 6e 20 44 65 73 63  |a in Screen Desc|
00005830  72 69 70 74 6f 72 0d 12  66 32 72 5f 77 69 64 74  |riptor..f2r_widt|
00005840  68 25 3d a4 69 32 28 31  29 3a 72 5f 68 65 69 67  |h%=.i2(1):r_heig|
00005850  68 74 25 3d a4 69 32 28  31 29 3a f4 20 52 61 73  |ht%=.i2(1):. Ras|
00005860  74 65 72 20 73 69 7a 65  0d 12 70 44 66 6c 61 67  |ter size..pDflag|
00005870  73 25 3d a4 69 31 28 31  29 3a 62 61 63 6b 67 72  |s%=.i1(1):backgr|
00005880  25 3d a4 69 31 28 31 29  3a f2 69 73 6b 69 70 28  |%=.i1(1):.iskip(|
00005890  31 2c 31 29 3a f4 20 46  6c 61 67 73 20 61 6e 64  |1,1):. Flags and|
000058a0  20 62 61 63 6b 20 63 6f  6c 6f 75 72 0d 12 7a 3b  | back colour..z;|
000058b0  67 6c 6f 62 61 6c 3d 28  28 66 6c 61 67 73 25 80  |global=((flags%.|
000058c0  26 38 30 29 3e 30 29 3a  f4 20 47 6c 6f 62 61 6c  |&80)>0):. Global|
000058d0  20 63 6f 6c 6f 75 72 20  6d 61 70 20 66 6f 6c 6c  | colour map foll|
000058e0  6f 77 69 6e 67 20 3f 0d  12 84 33 67 5f 70 69 78  |owing ?...3g_pix|
000058f0  62 69 74 73 25 3d 28 66  6c 61 67 73 25 80 37 29  |bits%=(flags%.7)|
00005900  2b 31 3a f4 20 47 6c 6f  62 61 6c 20 62 69 74 73  |+1:. Global bits|
00005910  20 70 65 72 20 70 69 78  65 6c 0d 12 8e 3a 63 6f  | per pixel...:co|
00005920  6c 62 69 74 73 25 3d 28  28 66 6c 61 67 73 25 3e  |lbits%=((flags%>|
00005930  3e 34 29 80 37 29 2b 31  3a f4 20 42 69 74 73 20  |>4).7)+1:. Bits |
00005940  6f 66 20 63 6f 6c 6f 75  72 20 72 65 73 6f 6c 75  |of colour resolu|
00005950  74 69 6f 6e 0d 12 98 0d  e7 67 6c 6f 62 61 6c 20  |tion.....global |
00005960  8c 0d 12 a2 6a 20 e3 20  63 25 3d 31 20 b8 20 32  |....j . c%=1 . 2|
00005970  5e 67 5f 70 69 78 62 69  74 73 25 3a 67 5f 49 6e  |^g_pixbits%:g_In|
00005980  50 61 6c 25 28 63 25 29  3d 28 a4 69 31 28 31 29  |Pal%(c%)=(.i1(1)|
00005990  3c 3c 31 36 29 2b 28 a4  69 31 28 31 29 3c 3c 38  |<<16)+(.i1(1)<<8|
000059a0  29 2b a4 69 31 28 31 29  3a ed 3a f4 20 52 65 61  |)+.i1(1):.:. Rea|
000059b0  64 20 47 6c 6f 62 61 6c  20 43 6f 6c 6f 75 72 20  |d Global Colour |
000059c0  4d 61 70 20 70 61 6c 65  74 74 65 0d 12 ac 2d 20  |Map palette...- |
000059d0  67 5f 49 6e 50 61 6c 25  28 30 29 3d 67 5f 70 69  |g_InPal%(0)=g_pi|
000059e0  78 62 69 74 73 25 3a f4  20 50 61 6c 65 74 74 65  |xbits%:. Palette|
000059f0  20 65 6e 74 72 69 65 73  0d 12 b6 25 cc 20 49 6e  | entries...%. In|
00005a00  50 61 6c 25 28 30 29 3d  2d 31 3a f4 20 4e 6f 20  |Pal%(0)=-1:. No |
00005a10  70 61 6c 65 74 74 65 20  66 6f 75 6e 64 0d 12 c0  |palette found...|
00005a20  05 cd 0d 12 ca 29 f4 20  53 63 61 6e 20 64 61 74  |.....). Scan dat|
00005a30  61 20 66 6f 72 20 70 69  63 74 75 72 65 73 2c 20  |a for pictures, |
00005a40  6d 61 6b 65 20 61 20 6c  69 73 74 0d 12 d4 10 70  |make a list....p|
00005a50  69 63 74 75 72 65 25 3d  30 3a f5 0d 12 de 3f f2  |icture%=0:....?.|
00005a60  73 6b 69 70 5f 47 49 46  5f 65 78 74 65 6e 73 69  |skip_GIF_extensi|
00005a70  6f 6e 3a f4 20 53 6b 69  70 20 65 78 74 65 6e 73  |on:. Skip extens|
00005a80  69 6f 6e 20 62 6c 6f 63  6b 73 20 70 72 65 63 65  |ion blocks prece|
00005a90  64 69 6e 67 20 49 6d 61  67 65 0d 12 e8 26 f4 20  |ding Image...&. |
00005aa0  53 65 61 72 63 68 20 66  6f 72 20 6e 65 78 74 20  |Search for next |
00005ab0  49 6d 61 67 65 20 44 65  73 63 72 69 70 74 6f 72  |Image Descriptor|
00005ac0  0d 12 f2 46 f5 20 5f 25  3d a4 69 31 28 31 29 3a  |...F. _%=.i1(1):|
00005ad0  69 6d 61 67 65 3d 28 5f  25 3d 97 22 2c 22 29 3a  |image=(_%=.","):|
00005ae0  65 6e 64 3d 28 5f 25 3d  97 22 3b 22 29 3a fd 20  |end=(_%=.";"):. |
00005af0  69 6d 61 67 65 20 84 20  65 6e 64 20 84 20 a4 69  |image . end . .i|
00005b00  65 6f 66 28 31 29 0d 12  fc 7e e7 ac 69 6d 61 67  |eof(1)...~..imag|
00005b10  65 20 8c 20 e7 ac 65 6e  64 20 8c 20 f2 65 72 72  |e . ..end . .err|
00005b20  6f 72 28 2d 31 2c 22 57  61 72 6e 69 6e 67 20 21  |or(-1,"Warning !|
00005b30  20 47 49 46 20 66 69 6c  65 20 69 73 20 6e 6f 74  | GIF file is not|
00005b40  20 70 72 6f 70 65 72 6c  79 20 74 65 72 6d 69 6e  | properly termin|
00005b50  61 74 65 64 20 21 22 29  3a 65 6e 64 3d b9 3a f2  |ated !"):end=.:.|
00005b60  68 6f 75 72 5f 6f 66 66  3a f2 68 6f 75 72 5f 6f  |hour_off:.hour_o|
00005b70  6e 3a f4 20 52 65 61 64  20 62 65 79 6f 6e 64 20  |n:. Read beyond |
00005b80  66 69 6c 65 0d 13 06 0c  e7 69 6d 61 67 65 20 8c  |file.....image .|
00005b90  0d 13 10 22 20 f4 20 52  65 67 69 73 74 65 72 20  |..." . Register |
00005ba0  70 69 63 74 75 72 65 27  73 20 70 6f 73 69 74 69  |picture's positi|
00005bb0  6f 6e 0d 13 1a 2e 20 70  69 63 74 75 72 65 25 2b  |on.... picture%+|
00005bc0  3d 31 3a 50 69 63 5f 70  74 72 25 28 70 69 63 74  |=1:Pic_ptr%(pict|
00005bd0  75 72 65 25 29 3d a4 69  70 74 72 28 31 29 2d 31  |ure%)=.iptr(1)-1|
00005be0  0d 13 24 6a 20 f2 69 73  6b 69 70 28 31 2c 38 29  |..$j .iskip(1,8)|
00005bf0  3a 5f 25 3d a4 69 31 28  31 29 3a e7 28 5f 25 80  |:_%=.i1(1):.(_%.|
00005c00  26 38 30 29 3e 30 20 8c  20 f2 69 73 6b 69 70 28  |&80)>0 . .iskip(|
00005c10  31 2c 33 2a 32 5e 28 28  5f 25 80 37 29 2b 31 29  |1,3*2^((_%.7)+1)|
00005c20  29 3a f4 20 49 66 20 74  68 65 72 65 27 73 20 61  |):. If there's a|
00005c30  20 6c 6f 63 61 6c 20 63  6f 6c 6f 75 72 20 6d 61  | local colour ma|
00005c40  70 2c 20 73 6b 69 70 20  69 74 0d 13 2e 0f 20 e7  |p, skip it.... .|
00005c50  47 49 46 53 63 61 6e 20  8c 0d 13 38 30 20 20 f4  |GIFScan ...80  .|
00005c60  20 44 65 74 65 72 6d 69  6e 65 20 70 69 63 74 75  | Determine pictu|
00005c70  72 65 20 64 61 74 61 20  6c 65 6e 67 74 68 2c 20  |re data length, |
00005c80  73 6b 69 70 20 64 61 74  61 0d 13 42 31 20 20 f2  |skip data..B1  .|
00005c90  69 73 6b 69 70 28 31 2c  31 29 3a f5 20 63 25 3d  |iskip(1,1):. c%=|
00005ca0  a4 69 31 28 31 29 3a f2  69 73 6b 69 70 28 31 2c  |.i1(1):.iskip(1,|
00005cb0  63 25 29 3a fd 20 63 25  3d 30 0d 13 4c 34 20 20  |c%):. c%=0..L4  |
00005cc0  50 69 63 5f 6c 65 6e 25  28 70 69 63 74 75 72 65  |Pic_len%(picture|
00005cd0  25 29 3d a4 69 70 74 72  28 31 29 2d 50 69 63 5f  |%)=.iptr(1)-Pic_|
00005ce0  70 74 72 25 28 70 69 63  74 75 72 65 25 29 0d 13  |ptr%(picture%)..|
00005cf0  56 3b 20 cc 20 50 69 63  5f 6c 65 6e 25 28 70 69  |V; . Pic_len%(pi|
00005d00  63 74 75 72 65 25 29 3d  a4 69 6c 65 6e 28 31 29  |cture%)=.ilen(1)|
00005d10  2d 50 69 63 5f 70 74 72  25 28 70 69 63 74 75 72  |-Pic_ptr%(pictur|
00005d20  65 25 29 3a 65 6e 64 3d  b9 0d 13 60 06 20 cd 0d  |e%):end=...`. ..|
00005d30  13 6a 05 cd 0d 13 74 09  fd 20 65 6e 64 0d 13 7e  |.j....t.. end..~|
00005d40  31 70 69 63 74 75 72 65  73 25 3d 70 69 63 74 75  |1pictures%=pictu|
00005d50  72 65 25 3a f4 20 4e 75  6d 62 65 72 20 6f 66 20  |re%:. Number of |
00005d60  70 69 63 74 75 72 65 73  20 66 6f 75 6e 64 0d 13  |pictures found..|
00005d70  88 4e e7 70 69 63 74 75  72 65 73 25 3e 30 20 8b  |.N.pictures%>0 .|
00005d80  20 f2 65 72 72 6f 72 28  2d 31 2c 22 49 20 63 61  | .error(-1,"I ca|
00005d90  6e 6e 6f 74 20 66 69 6e  64 20 61 6e 79 20 69 6d  |nnot find any im|
00005da0  61 67 65 73 20 69 6e 20  74 68 69 73 20 47 49 46  |ages in this GIF|
00005db0  20 66 69 6c 65 20 21 22  29 3a 3d a3 0d 13 92 0e  | file !"):=.....|
00005dc0  e7 47 49 46 53 63 61 6e  20 8c 0d 13 9c ba 20 e7  |.GIFScan ..... .|
00005dd0  28 49 6d 61 67 65 4e 72  25 3e 30 29 20 80 20 28  |(ImageNr%>0) . (|
00005de0  49 6d 61 67 65 4e 72 25  3c 3d 70 69 63 74 75 72  |ImageNr%<=pictur|
00005df0  65 73 25 29 20 8c 20 70  69 63 74 75 72 65 25 3d  |es%) . picture%=|
00005e00  49 6d 61 67 65 4e 72 25  20 8b 20 f2 65 72 72 6f  |ImageNr% . .erro|
00005e10  72 28 2d 31 2c 22 54 68  69 73 20 66 69 6c 65 20  |r(-1,"This file |
00005e20  63 6f 6e 74 61 69 6e 73  20 22 2b c3 28 70 69 63  |contains "+.(pic|
00005e30  74 75 72 65 73 25 29 2b  22 20 69 6d 61 67 65 73  |tures%)+" images|
00005e40  2e 20 53 65 6c 65 63 74  20 27 31 27 2d 27 22 2b  |. Select '1'-'"+|
00005e50  c3 28 70 69 63 74 75 72  65 73 25 29 2b 22 27 20  |.(pictures%)+"' |
00005e60  69 6e 20 74 68 65 20 27  49 6d 61 67 65 20 6e 75  |in the 'Image nu|
00005e70  6d 62 65 72 27 20 73 75  62 6d 65 6e 75 20 21 22  |mber' submenu !"|
00005e80  29 3a 3d a3 0d 13 a6 10  cc 20 70 69 63 74 75 72  |):=...... pictur|
00005e90  65 25 3d 31 0d 13 b0 05  cd 0d 13 ba 49 f2 69 70  |e%=1........I.ip|
00005ea0  74 72 28 31 2c 50 69 63  5f 70 74 72 25 28 70 69  |tr(1,Pic_ptr%(pi|
00005eb0  63 74 75 72 65 25 29 2b  31 29 3a 6c 65 6e 25 3d  |cture%)+1):len%=|
00005ec0  50 69 63 5f 6c 65 6e 25  28 70 69 63 74 75 72 65  |Pic_len%(picture|
00005ed0  25 29 3a f4 20 50 69 63  20 70 6f 73 20 26 20 6c  |%):. Pic pos & l|
00005ee0  65 6e 0d 13 c4 20 f4 20  52 65 61 64 20 49 6d 61  |en... . Read Ima|
00005ef0  67 65 20 44 65 73 63 72  69 70 74 6f 72 20 64 61  |ge Descriptor da|
00005f00  74 61 0d 13 ce 34 69 5f  6c 65 66 74 25 3d a4 69  |ta...4i_left%=.i|
00005f10  32 28 31 29 3a 69 5f 74  6f 70 25 3d a4 69 32 28  |2(1):i_top%=.i2(|
00005f20  31 29 3a f4 20 50 6f 73  69 74 69 6f 6e 20 69 6e  |1):. Position in|
00005f30  20 66 72 61 6d 65 0d 13  d8 43 69 5f 77 69 64 74  | frame...Ci_widt|
00005f40  68 25 3d a4 69 32 28 31  29 3a 69 5f 68 65 69 67  |h%=.i2(1):i_heig|
00005f50  68 74 25 3d a4 69 32 28  31 29 3a 66 6c 61 67 73  |ht%=.i2(1):flags|
00005f60  25 3d a4 69 31 28 31 29  3a f4 20 53 69 7a 65 20  |%=.i1(1):. Size |
00005f70  61 6e 64 20 66 6c 61 67  73 0d 13 e2 37 6c 6f 63  |and flags...7loc|
00005f80  61 6c 3d 28 66 6c 61 67  73 25 80 26 38 30 29 3e  |al=(flags%.&80)>|
00005f90  30 3a f4 20 4c 6f 63 61  6c 20 63 6f 6c 6f 75 72  |0:. Local colour|
00005fa0  20 6d 61 70 20 66 6f 6c  6c 6f 77 69 6e 67 20 3f  | map following ?|
00005fb0  0d 13 ec 3c 69 62 69 74  3d 28 66 6c 61 67 73 25  |...<ibit=(flags%|
00005fc0  80 26 34 30 29 3e 30 3a  f4 20 49 6d 61 67 65 20  |.&40)>0:. Image |
00005fd0  73 74 6f 72 65 64 20 69  6e 20 69 6e 74 65 72 6c  |stored in interl|
00005fe0  61 63 65 64 20 6f 72 64  65 72 20 3f 0d 13 f6 32  |aced order ?...2|
00005ff0  6c 5f 70 69 78 62 69 74  73 25 3d 28 66 6c 61 67  |l_pixbits%=(flag|
00006000  73 25 80 37 29 2b 31 3a  f4 20 4c 6f 63 61 6c 20  |s%.7)+1:. Local |
00006010  62 69 74 73 20 70 65 72  20 70 69 78 65 6c 0d 14  |bits per pixel..|
00006020  00 0c e7 6c 6f 63 61 6c  20 8c 0d 14 0a 40 20 70  |...local ....@ p|
00006030  69 78 62 69 74 73 25 3d  6c 5f 70 69 78 62 69 74  |ixbits%=l_pixbit|
00006040  73 25 3a f4 20 52 65 61  64 20 61 6e 64 20 75 73  |s%:. Read and us|
00006050  65 20 4c 6f 63 61 6c 20  43 6f 6c 6f 75 72 20 4d  |e Local Colour M|
00006060  61 70 20 70 61 6c 65 74  74 65 0d 14 14 56 20 e3  |ap palette...V .|
00006070  20 63 25 3d 31 20 b8 20  32 5e 6c 5f 70 69 78 62  | c%=1 . 2^l_pixb|
00006080  69 74 73 25 3a 49 6e 50  61 6c 25 28 63 25 29 3d  |its%:InPal%(c%)=|
00006090  28 a4 69 31 28 31 29 3c  3c 31 36 29 2b 28 a4 69  |(.i1(1)<<16)+(.i|
000060a0  31 28 31 29 3c 3c 38 29  2b a4 69 31 28 31 29 3a  |1(1)<<8)+.i1(1):|
000060b0  ed 3a f4 20 52 65 61 64  20 70 61 6c 65 74 74 65  |.:. Read palette|
000060c0  0d 14 1e 2b 20 49 6e 50  61 6c 25 28 30 29 3d 6c  |...+ InPal%(0)=l|
000060d0  5f 70 69 78 62 69 74 73  25 3a f4 20 50 61 6c 65  |_pixbits%:. Pale|
000060e0  74 74 65 20 65 6e 74 72  69 65 73 0d 14 28 3f cc  |tte entries..(?.|
000060f0  20 70 69 78 62 69 74 73  25 3d 67 5f 70 69 78 62  | pixbits%=g_pixb|
00006100  69 74 73 25 3a 49 6e 50  61 6c 25 28 29 3d 67 5f  |its%:InPal%()=g_|
00006110  49 6e 50 61 6c 25 28 29  3a f4 20 55 73 65 20 47  |InPal%():. Use G|
00006120  6c 6f 62 61 6c 20 64 61  74 61 0d 14 32 05 cd 0d  |lobal data..2...|
00006130  14 3c 4e e7 49 6e 50 61  6c 25 28 30 29 3d 2d 31  |.<N.InPal%(0)=-1|
00006140  20 8c 20 f2 65 72 72 6f  72 28 2d 31 2c 22 49 20  | . .error(-1,"I |
00006150  63 61 6e 6e 6f 74 20 66  69 6e 64 20 61 20 70 61  |cannot find a pa|
00006160  6c 65 74 74 65 20 69 6e  20 74 68 69 73 20 47 49  |lette in this GI|
00006170  46 20 66 69 6c 65 20 21  22 29 3a 3d a3 0d 14 46  |F file !"):=...F|
00006180  2b 63 6f 6c 6f 75 72 73  25 3d 32 5e 70 69 78 62  |+colours%=2^pixb|
00006190  69 74 73 25 3a f4 20 4e  75 6d 62 65 72 20 6f 66  |its%:. Number of|
000061a0  20 63 6f 6c 6f 75 72 73  0d 14 50 2f f4 20 44 65  | colours..P/. De|
000061b0  74 65 72 6d 69 6e 65 20  73 75 69 74 61 62 6c 65  |termine suitable|
000061c0  20 41 72 63 68 69 6d 65  64 65 73 20 73 63 72 65  | Archimedes scre|
000061d0  65 6e 20 6d 6f 64 65 0d  14 5a 3d 6d 6f 64 65 25  |en mode..Z=mode%|
000061e0  3d a4 6d 6f 64 65 28 72  5f 77 69 64 74 68 25 2c  |=.mode(r_width%,|
000061f0  72 5f 68 65 69 67 68 74  25 2c 63 6f 6c 6f 75 72  |r_height%,colour|
00006200  73 25 29 3a f4 20 44 65  74 65 72 6d 69 6e 65 20  |s%):. Determine |
00006210  6d 6f 64 65 0d 14 64 3b  f4 20 52 6f 6f 6d 20 6e  |mode..d;. Room n|
00006220  65 65 64 65 64 20 66 6f  72 20 64 65 63 6f 6d 70  |eeded for decomp|
00006230  72 65 73 73 69 6f 6e 20  64 61 74 61 20 61 6e 64  |ression data and|
00006240  20 64 65 2d 69 6e 74 65  72 6c 61 63 69 6e 67 0d  | de-interlacing.|
00006250  14 6e 64 e7 70 69 78 62  69 74 73 25 3c 3d 32 20  |.nd.pixbits%<=2 |
00006260  8c 20 72 62 69 74 73 25  3d 70 69 78 62 69 74 73  |. rbits%=pixbits|
00006270  25 20 8b 20 e7 70 69 78  62 69 74 73 25 3c 3d 34  |% . .pixbits%<=4|
00006280  20 8c 20 72 62 69 74 73  25 3d 34 20 8b 20 72 62  | . rbits%=4 . rb|
00006290  69 74 73 25 3d 38 3a f4  20 52 6f 75 6e 64 20 75  |its%=8:. Round u|
000062a0  70 20 62 70 70 20 74 6f  20 73 70 72 69 74 65 20  |p bpp to sprite |
000062b0  62 70 70 0d 14 78 45 72  6f 6f 6d 25 3d 28 28 28  |bpp..xEroom%=(((|
000062c0  69 5f 77 69 64 74 68 25  2a 72 62 69 74 73 25 2b  |i_width%*rbits%+|
000062d0  33 31 29 3e 3e 35 29 3c  3c 32 29 2a 69 5f 68 65  |31)>>5)<<2)*i_he|
000062e0  69 67 68 74 25 2b 31 30  32 34 3a f4 20 52 6f 6f  |ight%+1024:. Roo|
000062f0  6d 20 6e 65 65 64 65 64  0d 14 82 34 e7 a4 6e 65  |m needed...4..ne|
00006300  77 5f 69 6d 61 67 65 28  6d 6f 64 65 25 2c 69 5f  |w_image(mode%,i_|
00006310  77 69 64 74 68 25 2c 69  5f 68 65 69 67 68 74 25  |width%,i_height%|
00006320  2c 72 6f 6f 6d 25 29 20  8b 20 3d a3 0d 14 8c 27  |,room%) . =....'|
00006330  e7 47 49 46 53 63 61 6e  20 8c 20 6e 70 24 3d c3  |.GIFScan . np$=.|
00006340  70 69 63 74 75 72 65 73  25 20 8b 20 6e 70 24 3d  |pictures% . np$=|
00006350  22 3f 22 0d 14 96 95 f2  69 6d 61 67 65 5f 69 6e  |"?".....image_in|
00006360  66 6f 28 73 69 67 6e 61  74 75 72 65 24 2c 69 5f  |fo(signature$,i_|
00006370  77 69 64 74 68 25 2c 69  5f 68 65 69 67 68 74 25  |width%,i_height%|
00006380  2c 30 2c 70 69 78 62 69  74 73 25 2c 6d 6f 64 65  |,0,pixbits%,mode|
00006390  25 2c 22 4c 5a 57 22 2c  6e 70 24 2b 22 20 70 69  |%,"LZW",np$+" pi|
000063a0  63 73 20 28 74 68 69 73  20 69 73 20 22 2b a4 74  |cs (this is "+.t|
000063b0  69 6d 65 73 28 70 69 63  74 75 72 65 25 29 2b 22  |imes(picture%)+"|
000063c0  29 22 2c 6c 65 6e 25 2c  28 69 5f 68 65 69 67 68  |)",len%,(i_heigh|
000063d0  74 25 2a 69 5f 77 69 64  74 68 25 2a 70 69 78 62  |t%*i_width%*pixb|
000063e0  69 74 73 25 29 81 38 29  0d 14 a0 2b e7 69 62 69  |its%).8)...+.ibi|
000063f0  74 20 8c 20 f2 76 61 72  28 22 6c 61 63 65 22 2c  |t . .var("lace",|
00006400  31 29 20 8b 20 f2 76 61  72 28 22 6c 61 63 65 22  |1) . .var("lace"|
00006410  2c 30 29 0d 14 aa 55 f2  76 61 72 28 22 66 70 74  |,0)...U.var("fpt|
00006420  72 22 2c a4 69 70 74 72  28 31 29 29 3a f2 76 61  |r",.iptr(1)):.va|
00006430  72 28 22 77 69 64 74 22  2c 69 5f 77 69 64 74 68  |r("widt",i_width|
00006440  25 29 3a f2 76 61 72 28  22 68 65 69 67 22 2c 69  |%):.var("heig",i|
00006450  5f 68 65 69 67 68 74 25  29 3a f2 75 6e 70 61 63  |_height%):.unpac|
00006460  6b 28 22 47 49 46 22 29  0d 14 b4 15 49 6d 67 4d  |k("GIF")....ImgM|
00006470  6f 64 65 25 3d 6d 6f 64  65 25 3a 3d b9 0d 14 be  |ode%=mode%:=....|
00006480  05 20 0d 14 c8 18 dd f2  73 6b 69 70 5f 47 49 46  |. ......skip_GIF|
00006490  5f 65 78 74 65 6e 73 69  6f 6e 0d 14 d2 3f f4 20  |_extension...?. |
000064a0  53 6b 69 70 73 20 61 20  47 49 46 20 45 78 74 65  |Skips a GIF Exte|
000064b0  6e 73 69 6f 6e 20 42 6c  6f 63 6b 20 69 66 20 70  |nsion Block if p|
000064c0  72 65 73 65 6e 74 20 61  74 20 63 75 72 72 65 6e  |resent at curren|
000064d0  74 20 70 6f 69 6e 74 65  72 0d 14 dc 08 ea 20 5f  |t pointer..... _|
000064e0  25 0d 14 e6 14 e7 28 a4  69 31 28 31 29 29 3d 97  |%.....(.i1(1))=.|
000064f0  22 21 22 20 8c 0d 14 f0  25 20 f2 69 73 6b 69 70  |"!" ....% .iskip|
00006500  28 31 2c 31 29 3a f4 20  53 6b 69 70 20 66 75 6e  |(1,1):. Skip fun|
00006510  63 74 69 6f 6e 20 63 6f  64 65 0d 14 fa 3c 20 f5  |ction code...< .|
00006520  20 5f 25 3d a4 69 31 28  31 29 3a f2 69 73 6b 69  | _%=.i1(1):.iski|
00006530  70 28 31 2c 5f 25 29 3a  fd 20 5f 25 3d 30 3a f4  |p(1,_%):. _%=0:.|
00006540  20 53 6b 69 70 20 64 61  74 61 20 62 79 74 65 20  | Skip data byte |
00006550  62 6c 6f 63 6b 73 0d 15  04 12 cc 20 f2 69 73 6b  |blocks..... .isk|
00006560  69 70 28 31 2c 2d 31 29  0d 15 0e 05 cd 0d 15 18  |ip(1,-1)........|
00006570  05 e1 0d 15 22 05 20 0d  15 2c 0d dd a4 70 69 63  |....". ..,...pic|
00006580  5f 41 52 43 0d 15 36 23  f4 20 4c 6f 61 64 73 20  |_ARC..6#. Loads |
00006590  41 72 63 68 69 6d 65 64  65 73 20 73 70 72 69 74  |Archimedes sprit|
000065a0  65 20 69 6d 61 67 65 0d  15 40 2b 69 54 79 70 65  |e image..@+iType|
000065b0  25 3d 30 3a f4 20 53 65  74 20 6c 6f 77 2d 74 6f  |%=0:. Set low-to|
000065c0  2d 68 69 67 68 20 74 79  70 65 20 6f 66 20 64 61  |-high type of da|
000065d0  74 61 0d 15 4a 48 70 69  63 74 75 72 65 73 25 3d  |ta..JHpictures%=|
000065e0  a4 69 34 28 31 29 3a 6f  66 69 72 73 74 25 3d a4  |.i4(1):ofirst%=.|
000065f0  69 34 28 31 29 3a f4 20  4e 75 6d 62 65 72 20 6f  |i4(1):. Number o|
00006600  66 20 73 70 72 69 74 65  73 2c 20 6f 66 66 73 65  |f sprites, offse|
00006610  74 20 74 6f 20 66 69 72  73 74 0d 15 54 b9 e7 28  |t to first..T..(|
00006620  49 6d 61 67 65 4e 72 25  3e 30 29 20 80 20 28 49  |ImageNr%>0) . (I|
00006630  6d 61 67 65 4e 72 25 3c  3d 70 69 63 74 75 72 65  |mageNr%<=picture|
00006640  73 25 29 20 8c 20 70 69  63 74 75 72 65 25 3d 49  |s%) . picture%=I|
00006650  6d 61 67 65 4e 72 25 20  8b 20 f2 65 72 72 6f 72  |mageNr% . .error|
00006660  28 2d 31 2c 22 54 68 69  73 20 66 69 6c 65 20 63  |(-1,"This file c|
00006670  6f 6e 74 61 69 6e 73 20  22 2b c3 28 70 69 63 74  |ontains "+.(pict|
00006680  75 72 65 73 25 29 2b 22  20 69 6d 61 67 65 73 2e  |ures%)+" images.|
00006690  20 53 65 6c 65 63 74 20  27 31 27 2d 27 22 2b c3  | Select '1'-'"+.|
000066a0  28 70 69 63 74 75 72 65  73 25 29 2b 22 27 20 69  |(pictures%)+"' i|
000066b0  6e 20 74 68 65 20 27 49  6d 61 67 65 20 6e 75 6d  |n the 'Image num|
000066c0  62 65 72 27 20 73 75 62  6d 65 6e 75 20 21 22 29  |ber' submenu !")|
000066d0  3a 3d a3 0d 15 5e 31 f2  69 73 6b 69 70 28 31 2c  |:=...^1.iskip(1,|
000066e0  6f 66 69 72 73 74 25 2d  38 2d 34 29 3a f4 20 53  |ofirst%-8-4):. S|
000066f0  74 61 72 74 20 6f 66 20  66 69 72 73 74 20 73 70  |tart of first sp|
00006700  72 69 74 65 0d 15 68 45  73 6b 69 70 25 3d 70 69  |rite..hEskip%=pi|
00006710  63 74 75 72 65 73 25 2d  70 69 63 74 75 72 65 25  |ctures%-picture%|
00006720  3a c8 95 20 73 6b 69 70  25 3e 30 3a f2 69 73 6b  |:.. skip%>0:.isk|
00006730  69 70 28 31 2c a4 69 34  28 31 29 2d 34 29 3a 73  |ip(1,.i4(1)-4):s|
00006740  6b 69 70 25 2d 3d 31 3a  ce 0d 15 72 47 73 74 61  |kip%-=1:...rGsta|
00006750  72 74 25 3d a4 69 70 74  72 28 31 29 3a f2 69 73  |rt%=.iptr(1):.is|
00006760  6b 69 70 28 31 2c 31 36  29 3a f4 20 52 65 6d 65  |kip(1,16):. Reme|
00006770  6d 62 65 72 20 73 74 61  72 74 2c 20 73 6b 69 70  |mber start, skip|
00006780  20 6f 66 66 73 65 74 20  61 6e 64 20 6e 61 6d 65  | offset and name|
00006790  0d 15 7c 46 77 6f 72 64  73 25 3d a4 69 34 28 31  |..|Fwords%=.i4(1|
000067a0  29 2b 31 3a 68 65 69 67  68 74 25 3d a4 69 34 28  |)+1:height%=.i4(|
000067b0  31 29 2b 31 3a f4 20 57  69 64 74 68 20 69 6e 20  |1)+1:. Width in |
000067c0  77 6f 72 64 73 2c 20 68  65 69 67 68 74 20 69 6e  |words, height in|
000067d0  20 6c 69 6e 65 73 0d 15  86 37 62 66 69 72 73 74  | lines...7bfirst|
000067e0  25 3d a4 69 34 28 31 29  3a 62 6c 61 73 74 25 3d  |%=.i4(1):blast%=|
000067f0  a4 69 34 28 31 29 3a f4  20 46 69 72 73 74 2f 6c  |.i4(1):. First/l|
00006800  61 73 74 20 62 69 74 73  20 75 73 65 64 0d 15 90  |ast bits used...|
00006810  46 6f 69 6d 61 67 65 25  3d a4 69 34 28 31 29 3a  |Foimage%=.i4(1):|
00006820  f2 69 73 6b 69 70 28 31  2c 34 29 3a 73 70 72 6d  |.iskip(1,4):sprm|
00006830  6f 64 65 25 3d a4 69 34  28 31 29 3a f4 20 4f 66  |ode%=.i4(1):. Of|
00006840  66 73 65 74 20 74 6f 20  69 6d 61 67 65 2c 20 6d  |fset to image, m|
00006850  6f 64 65 0d 15 9a 42 63  6f 6c 62 69 74 73 25 3d  |ode...Bcolbits%=|
00006860  32 5e a4 6d 6f 64 65 5f  76 61 72 28 73 70 72 6d  |2^.mode_var(sprm|
00006870  6f 64 65 25 2c 39 29 3a  63 6f 6c 6f 75 72 73 25  |ode%,9):colours%|
00006880  3d 32 5e 63 6f 6c 62 69  74 73 25 3a f4 20 43 6f  |=2^colbits%:. Co|
00006890  6c 6f 75 72 73 0d 15 a4  23 e7 28 6f 69 6d 61 67  |lours...#.(oimag|
000068a0  65 25 3c 3d 34 34 29 84  28 63 6f 6c 6f 75 72 73  |e%<=44).(colours|
000068b0  25 3d 32 35 36 29 20 8c  0d 15 ae 3e 20 f4 20 4e  |%=256) ....> . N|
000068c0  6f 20 70 61 6c 65 74 74  65 20 6f 72 20 32 35 36  |o palette or 256|
000068d0  2d 63 6f 6c 6f 75 72 20  70 61 6c 65 74 74 65 20  |-colour palette |
000068e0  3a 20 73 65 74 20 73 74  61 6e 64 61 72 64 20 70  |: set standard p|
000068f0  61 6c 65 74 74 65 0d 15  b8 29 20 f2 73 74 61 6e  |alette...) .stan|
00006900  64 61 72 64 5f 70 61 6c  65 74 74 65 28 49 6e 50  |dard_palette(InP|
00006910  61 6c 25 28 29 2c 63 6f  6c 62 69 74 73 25 29 0d  |al%(),colbits%).|
00006920  15 c2 88 cc 20 49 6e 50  61 6c 25 28 30 29 3d 63  |.... InPal%(0)=c|
00006930  6f 6c 62 69 74 73 25 3a  e3 20 63 25 3d 31 20 b8  |olbits%:. c%=1 .|
00006940  20 63 6f 6c 6f 75 72 73  25 3a 70 25 3d a4 69 34  | colours%:p%=.i4|
00006950  28 31 29 3a 49 6e 50 61  6c 25 28 63 25 29 3d 28  |(1):InPal%(c%)=(|
00006960  28 70 25 80 26 46 46 30  30 29 3c 3c 38 29 2b 28  |(p%.&FF00)<<8)+(|
00006970  28 70 25 80 26 46 46 30  30 30 30 29 3e 3e 38 29  |(p%.&FF0000)>>8)|
00006980  2b 28 70 25 3e 3e 3e 32  34 29 3a f2 69 73 6b 69  |+(p%>>>24):.iski|
00006990  70 28 31 2c 34 29 3a ed  3a f4 20 52 65 61 64 20  |p(1,4):.:. Read |
000069a0  70 61 6c 65 74 74 65 0d  15 cc 05 cd 0d 15 d6 42  |palette........B|
000069b0  78 72 65 73 25 3d 28 77  6f 72 64 73 25 2a 33 32  |xres%=(words%*32|
000069c0  2d 62 66 69 72 73 74 25  2d 28 33 31 2d 62 6c 61  |-bfirst%-(31-bla|
000069d0  73 74 25 29 29 20 81 20  63 6f 6c 62 69 74 73 25  |st%)) . colbits%|
000069e0  3a 79 72 65 73 25 3d 68  65 69 67 68 74 25 0d 15  |:yres%=height%..|
000069f0  e0 84 e7 a4 61 76 61 69  6c 61 62 6c 65 5f 6d 6f  |....available_mo|
00006a00  64 65 28 73 70 72 6d 6f  64 65 25 29 20 8c 20 6d  |de(sprmode%) . m|
00006a10  6f 64 65 25 3d 73 70 72  6d 6f 64 65 25 20 8b 20  |ode%=sprmode% . |
00006a20  6d 6f 64 65 25 3d a4 6d  6f 64 65 28 78 72 65 73  |mode%=.mode(xres|
00006a30  25 2c 79 72 65 73 25 2c  63 6f 6c 6f 75 72 73 25  |%,yres%,colours%|
00006a40  29 3a f4 20 44 65 74 65  72 6d 69 6e 65 20 6f 74  |):. Determine ot|
00006a50  68 65 72 20 6d 6f 64 65  20 69 66 20 73 70 72 69  |her mode if spri|
00006a60  74 65 27 73 20 6d 6f 64  65 20 77 6f 6e 27 74 20  |te's mode won't |
00006a70  64 6f 0d 15 ea 29 e7 a4  6e 65 77 5f 69 6d 61 67  |do...)..new_imag|
00006a80  65 28 6d 6f 64 65 25 2c  78 72 65 73 25 2c 79 72  |e(mode%,xres%,yr|
00006a90  65 73 25 2c 30 29 20 8b  20 3d a3 0d 15 f4 7d f2  |es%,0) . =....}.|
00006aa0  69 6d 61 67 65 5f 69 6e  66 6f 28 22 41 72 63 68  |image_info("Arch|
00006ab0  69 6d 65 64 65 73 20 73  70 72 69 74 65 22 2c 78  |imedes sprite",x|
00006ac0  72 65 73 25 2c 79 72 65  73 25 2c 30 2c 63 6f 6c  |res%,yres%,0,col|
00006ad0  62 69 74 73 25 2c 6d 6f  64 65 25 2c 22 22 2c c3  |bits%,mode%,"",.|
00006ae0  70 69 63 74 75 72 65 73  25 2b 22 20 73 70 72 69  |pictures%+" spri|
00006af0  74 65 73 20 28 74 68 69  73 20 69 73 20 22 2b a4  |tes (this is "+.|
00006b00  74 69 6d 65 73 28 70 69  63 74 75 72 65 25 29 2b  |times(picture%)+|
00006b10  22 29 22 2c 31 2c 31 29  0d 15 fe 7f f2 76 61 72  |")",1,1).....var|
00006b20  28 22 66 70 74 72 22 2c  73 74 61 72 74 25 2b 6f  |("fptr",start%+o|
00006b30  69 6d 61 67 65 25 29 3a  f2 76 61 72 28 22 77 69  |image%):.var("wi|
00006b40  64 74 22 2c 78 72 65 73  25 29 3a f2 76 61 72 28  |dt",xres%):.var(|
00006b50  22 68 65 69 67 22 2c 68  65 69 67 68 74 25 29 3a  |"heig",height%):|
00006b60  f2 76 61 72 28 22 77 72  64 73 22 2c 77 6f 72 64  |.var("wrds",word|
00006b70  73 25 29 3a f2 76 61 72  28 22 62 66 69 72 22 2c  |s%):.var("bfir",|
00006b80  62 66 69 72 73 74 25 29  3a f2 75 6e 70 61 63 6b  |bfirst%):.unpack|
00006b90  28 22 41 52 43 22 29 0d  16 08 15 49 6d 67 4d 6f  |("ARC")....ImgMo|
00006ba0  64 65 25 3d 6d 6f 64 65  25 3a 3d b9 0d 16 12 05  |de%=mode%:=.....|
00006bb0  20 0d 16 1c 10 dd a4 70  69 63 5f 50 52 4f 41 52  | ......pic_PROAR|
00006bc0  54 0d 16 26 1c f4 20 4d  61 6b 65 73 20 50 72 6f  |T..&.. Makes Pro|
00006bd0  41 72 74 69 73 61 6e 20  69 6d 61 67 65 0d 16 30  |Artisan image..0|
00006be0  2b 77 69 64 74 68 25 3d  36 34 30 3a 68 65 69 67  |+width%=640:heig|
00006bf0  68 74 25 3d 32 35 36 3a  f4 20 53 65 74 20 72 65  |ht%=256:. Set re|
00006c00  73 6f 6c 75 74 69 6f 6e  0d 16 3a 34 6d 6f 64 65  |solution..:4mode|
00006c10  25 3d a4 6d 6f 64 65 28  77 69 64 74 68 25 2c 68  |%=.mode(width%,h|
00006c20  65 69 67 68 74 25 2c 32  35 36 29 3a f4 20 44 65  |eight%,256):. De|
00006c30  74 65 72 6d 69 6e 65 20  6d 6f 64 65 0d 16 44 43  |termine mode..DC|
00006c40  72 6f 6f 6d 25 3d 28 77  69 64 74 68 25 2a 68 65  |room%=(width%*he|
00006c50  69 67 68 74 25 2b 33 29  80 ac 33 3a f4 20 52 6f  |ight%+3)..3:. Ro|
00006c60  6f 6d 20 6e 65 65 64 65  64 20 66 6f 72 20 75 6e  |om needed for un|
00006c70  70 61 63 6b 20 28 63 6f  6c 74 61 62 6c 65 29 0d  |pack (coltable).|
00006c80  16 4e 30 e7 a4 6e 65 77  5f 69 6d 61 67 65 28 6d  |.N0..new_image(m|
00006c90  6f 64 65 25 2c 77 69 64  74 68 25 2c 68 65 69 67  |ode%,width%,heig|
00006ca0  68 74 25 2c 72 6f 6f 6d  25 29 20 8b 20 3d a3 0d  |ht%,room%) . =..|
00006cb0  16 58 2b 69 54 79 70 65  25 3d 30 3a f4 20 53 65  |.X+iType%=0:. Se|
00006cc0  74 20 6c 6f 77 2d 74 6f  2d 68 69 67 68 20 74 79  |t low-to-high ty|
00006cd0  70 65 20 6f 66 20 64 61  74 61 0d 16 62 47 63 6f  |pe of data..bGco|
00006ce0  6c 6c 65 6e 25 3d a4 69  34 28 31 29 3a 63 6f 6d  |llen%=.i4(1):com|
00006cf0  66 6c 61 67 25 3d a4 69  34 28 31 29 3a f4 20 4c  |flag%=.i4(1):. L|
00006d00  65 6e 67 74 68 20 6f 66  20 63 6f 6c 6f 75 72 20  |ength of colour |
00006d10  74 61 62 6c 65 2f 63 6f  6d 70 72 65 73 73 69 6f  |table/compressio|
00006d20  6e 0d 16 6c 35 63 6f 6c  74 61 62 6c 65 25 3d 4c  |n..l5coltable%=L|
00006d30  6f 6d 65 6d 25 2d 63 6f  6c 6c 65 6e 25 3a f4 20  |omem%-collen%:. |
00006d40  53 70 61 63 65 20 66 6f  72 20 63 6f 6c 6f 75 72  |Space for colour|
00006d50  20 74 61 62 6c 65 0d 16  76 32 f2 69 67 65 74 28  | table..v2.iget(|
00006d60  31 2c 63 6f 6c 74 61 62  6c 65 25 2c 63 6f 6c 6c  |1,coltable%,coll|
00006d70  65 6e 25 29 3a f4 20 52  65 61 64 20 63 6f 6c 6f  |en%):. Read colo|
00006d80  75 72 20 74 61 62 6c 65  0d 16 80 3f f2 73 74 61  |ur table...?.sta|
00006d90  6e 64 61 72 64 5f 70 61  6c 65 74 74 65 28 49 6e  |ndard_palette(In|
00006da0  50 61 6c 25 28 29 2c 38  29 3a f4 20 53 74 61 6e  |Pal%(),8):. Stan|
00006db0  64 61 72 64 20 32 35 36  20 63 6f 6c 6f 75 72 20  |dard 256 colour |
00006dc0  70 61 6c 65 74 74 65 0d  16 8a 5d f2 69 6d 61 67  |palette...].imag|
00006dd0  65 5f 69 6e 66 6f 28 22  50 72 6f 41 72 74 69 73  |e_info("ProArtis|
00006de0  61 6e 22 2c 77 69 64 74  68 25 2c 68 65 69 67 68  |an",width%,heigh|
00006df0  74 25 2c 30 2c 38 2c 6d  6f 64 65 25 2c 22 52 75  |t%,0,8,mode%,"Ru|
00006e00  6e 20 6c 65 6e 67 74 68  22 2c 22 22 2c 46 6c 65  |n length","",Fle|
00006e10  6e 25 2d 38 2c 77 69 64  74 68 25 2a 68 65 69 67  |n%-8,width%*heig|
00006e20  68 74 25 29 0d 16 94 81  f2 76 61 72 28 22 66 70  |ht%).....var("fp|
00006e30  74 72 22 2c a4 69 70 74  72 28 31 29 29 3a f2 76  |tr",.iptr(1)):.v|
00006e40  61 72 28 22 70 72 6f 74  22 2c 63 6f 6c 74 61 62  |ar("prot",coltab|
00006e50  6c 65 25 29 3a f2 76 61  72 28 22 63 6f 6d 70 22  |le%):.var("comp"|
00006e60  2c 63 6f 6d 66 6c 61 67  25 29 3a f2 76 61 72 28  |,comflag%):.var(|
00006e70  22 77 69 64 74 22 2c 77  69 64 74 68 25 29 3a f2  |"widt",width%):.|
00006e80  76 61 72 28 22 68 65 69  67 22 2c 68 65 69 67 68  |var("heig",heigh|
00006e90  74 25 29 3a f2 75 6e 70  61 63 6b 28 22 50 52 4f  |t%):.unpack("PRO|
00006ea0  41 52 54 22 29 0d 16 9e  15 49 6d 67 4d 6f 64 65  |ART")....ImgMode|
00006eb0  25 3d 6d 6f 64 65 25 3a  3d b9 0d 16 a8 05 20 0d  |%=mode%:=..... .|
00006ec0  16 b2 11 dd a4 70 69 63  5f 57 41 54 46 4f 52 44  |.....pic_WATFORD|
00006ed0  0d 16 bc 23 f4 20 4d 61  6b 65 73 20 57 61 74 66  |...#. Makes Watf|
00006ee0  6f 72 64 20 64 69 67 69  74 69 73 65 72 20 69 6d  |ord digitiser im|
00006ef0  61 67 65 0d 16 c6 2b 77  69 64 74 68 25 3d 35 31  |age...+width%=51|
00006f00  32 3a 68 65 69 67 68 74  25 3d 32 35 36 3a f4 20  |2:height%=256:. |
00006f10  53 65 74 20 72 65 73 6f  6c 75 74 69 6f 6e 0d 16  |Set resolution..|
00006f20  d0 34 6d 6f 64 65 25 3d  a4 6d 6f 64 65 28 77 69  |.4mode%=.mode(wi|
00006f30  64 74 68 25 2c 68 65 69  67 68 74 25 2c 32 35 36  |dth%,height%,256|
00006f40  29 3a f4 20 44 65 74 65  72 6d 69 6e 65 20 6d 6f  |):. Determine mo|
00006f50  64 65 0d 16 da 2c e7 a4  6e 65 77 5f 69 6d 61 67  |de...,..new_imag|
00006f60  65 28 6d 6f 64 65 25 2c  77 69 64 74 68 25 2c 68  |e(mode%,width%,h|
00006f70  65 69 67 68 74 25 2c 30  29 20 8b 20 3d a3 0d 16  |eight%,0) . =...|
00006f80  e4 3e 49 6e 50 61 6c 25  28 29 3d 30 3a 49 6e 50  |.>InPal%()=0:InP|
00006f90  61 6c 25 28 30 29 3d 38  3a f4 20 50 61 6c 65 74  |al%(0)=8:. Palet|
00006fa0  74 65 20 69 73 20 36 34  20 67 72 65 79 73 2c 20  |te is 64 greys, |
00006fb0  6c 69 6e 65 61 72 20 73  63 61 6c 65 0d 16 ee 38  |linear scale...8|
00006fc0  e3 20 63 25 3d 30 20 b8  20 36 33 3a 49 6e 50 61  |. c%=0 . 63:InPa|
00006fd0  6c 25 28 63 25 2b 31 29  3d 28 63 25 3c 3c 31 38  |l%(c%+1)=(c%<<18|
00006fe0  29 2b 28 63 25 3c 3c 31  30 29 2b 28 63 25 3c 3c  |)+(c%<<10)+(c%<<|
00006ff0  32 29 3a ed 0d 16 f8 68  f2 69 6d 61 67 65 5f 69  |2):....h.image_i|
00007000  6e 66 6f 28 22 57 61 74  66 6f 72 64 20 64 69 67  |nfo("Watford dig|
00007010  69 74 69 73 65 72 22 2c  77 69 64 74 68 25 2c 68  |itiser",width%,h|
00007020  65 69 67 68 74 25 2c 31  2c 36 2c 6d 6f 64 65 25  |eight%,1,6,mode%|
00007030  2c 22 52 75 6e 20 6c 65  6e 67 74 68 22 2c 22 22  |,"Run length",""|
00007040  2c 46 6c 65 6e 25 2c 28  77 69 64 74 68 25 2a 68  |,Flen%,(width%*h|
00007050  65 69 67 68 74 25 2a 36  29 81 38 29 0d 17 02 4e  |eight%*6).8)...N|
00007060  f2 76 61 72 28 22 77 69  64 74 22 2c 77 69 64 74  |.var("widt",widt|
00007070  68 25 29 3a f2 76 61 72  28 22 68 65 69 67 22 2c  |h%):.var("heig",|
00007080  68 65 69 67 68 74 25 29  3a f2 76 61 72 28 22 66  |height%):.var("f|
00007090  70 74 72 22 2c 30 29 3a  f2 75 6e 70 61 63 6b 28  |ptr",0):.unpack(|
000070a0  22 57 41 54 46 4f 52 44  22 29 0d 17 0c 15 49 6d  |"WATFORD")....Im|
000070b0  67 4d 6f 64 65 25 3d 6d  6f 64 65 25 3a 3d b9 0d  |gMode%=mode%:=..|
000070c0  17 16 05 20 0d 17 20 10  dd a4 70 69 63 5f 52 45  |... .. ...pic_RE|
000070d0  4e 44 45 52 0d 17 2a 1f  f4 20 4d 61 6b 65 73 20  |NDER..*.. Makes |
000070e0  52 65 6e 64 65 72 20 42  65 6e 64 65 72 20 69 6d  |Render Bender im|
000070f0  61 67 65 0d 17 34 0e 69  54 79 70 65 25 3d 30 3a  |age..4.iType%=0:|
00007100  f4 0d 17 3e 24 6d 6f 64  65 25 3d a4 69 31 28 31  |...>$mode%=.i1(1|
00007110  29 3a f4 20 52 65 61 64  20 69 6d 61 67 65 27 73  |):. Read image's|
00007120  20 6d 6f 64 65 0d 17 48  a6 e7 a4 6d 6f 64 65 5f  | mode..H...mode_|
00007130  76 61 72 28 6d 6f 64 65  25 2c 39 29 3c 3e 33 20  |var(mode%,9)<>3 |
00007140  8c 20 f2 65 72 72 6f 72  28 2d 31 2c 22 54 68 69  |. .error(-1,"Thi|
00007150  73 20 52 65 6e 64 65 72  20 42 65 6e 64 65 72 20  |s Render Bender |
00007160  69 6d 61 67 65 20 77 61  73 20 6e 6f 74 20 64 65  |image was not de|
00007170  66 69 6e 65 64 20 69 6e  20 61 20 32 35 36 20 63  |fined in a 256 c|
00007180  6f 6c 6f 75 72 20 6d 6f  64 65 20 21 22 29 20 8b  |olour mode !") .|
00007190  20 77 69 64 74 68 25 3d  a4 6d 6f 64 65 5f 76 61  | width%=.mode_va|
000071a0  72 28 6d 6f 64 65 25 2c  31 31 29 2b 31 3a 68 65  |r(mode%,11)+1:he|
000071b0  69 67 68 74 25 3d a4 6d  6f 64 65 5f 76 61 72 28  |ight%=.mode_var(|
000071c0  6d 6f 64 65 25 2c 31 32  29 2b 31 0d 17 52 34 6d  |mode%,12)+1..R4m|
000071d0  6f 64 65 25 3d a4 6d 6f  64 65 28 77 69 64 74 68  |ode%=.mode(width|
000071e0  25 2c 68 65 69 67 68 74  25 2c 32 35 36 29 3a f4  |%,height%,256):.|
000071f0  20 44 65 74 65 72 6d 69  6e 65 20 6d 6f 64 65 0d  | Determine mode.|
00007200  17 5c 2c e7 a4 6e 65 77  5f 69 6d 61 67 65 28 6d  |.\,..new_image(m|
00007210  6f 64 65 25 2c 77 69 64  74 68 25 2c 68 65 69 67  |ode%,width%,heig|
00007220  68 74 25 2c 30 29 20 8b  20 3d a3 0d 17 66 3f f2  |ht%,0) . =...f?.|
00007230  73 74 61 6e 64 61 72 64  5f 70 61 6c 65 74 74 65  |standard_palette|
00007240  28 49 6e 50 61 6c 25 28  29 2c 38 29 3a f4 20 53  |(InPal%(),8):. S|
00007250  74 61 6e 64 61 72 64 20  32 35 36 20 63 6f 6c 6f  |tandard 256 colo|
00007260  75 72 20 70 61 6c 65 74  74 65 0d 17 70 60 f2 69  |ur palette..p`.i|
00007270  6d 61 67 65 5f 69 6e 66  6f 28 22 52 65 6e 64 65  |mage_info("Rende|
00007280  72 20 42 65 6e 64 65 72  22 2c 77 69 64 74 68 25  |r Bender",width%|
00007290  2c 68 65 69 67 68 74 25  2c 30 2c 38 2c 6d 6f 64  |,height%,0,8,mod|
000072a0  65 25 2c 22 52 75 6e 20  6c 65 6e 67 74 68 22 2c  |e%,"Run length",|
000072b0  22 22 2c 46 6c 65 6e 25  2d 31 2c 77 69 64 74 68  |"",Flen%-1,width|
000072c0  25 2a 68 65 69 67 68 74  25 29 0d 17 7a 4d f2 76  |%*height%)..zM.v|
000072d0  61 72 28 22 66 70 74 72  22 2c 31 29 3a f2 76 61  |ar("fptr",1):.va|
000072e0  72 28 22 77 69 64 74 22  2c 77 69 64 74 68 25 29  |r("widt",width%)|
000072f0  3a f2 76 61 72 28 22 68  65 69 67 22 2c 68 65 69  |:.var("heig",hei|
00007300  67 68 74 25 29 3a f2 75  6e 70 61 63 6b 28 22 52  |ght%):.unpack("R|
00007310  45 4e 44 45 52 22 29 0d  17 84 15 49 6d 67 4d 6f  |ENDER")....ImgMo|
00007320  64 65 25 3d 6d 6f 64 65  25 3a 3d b9 0d 17 8e 05  |de%=mode%:=.....|
00007330  20 0d 17 98 0d dd a4 70  69 63 5f 41 49 4d 0d 17  | ......pic_AIM..|
00007340  a2 15 f4 20 4d 61 6b 65  73 20 41 49 4d 20 69 6d  |... Makes AIM im|
00007350  61 67 65 0d 17 ac 2b 77  69 64 74 68 25 3d 32 35  |age...+width%=25|
00007360  36 3a 68 65 69 67 68 74  25 3d 32 35 36 3a f4 20  |6:height%=256:. |
00007370  53 65 74 20 72 65 73 6f  6c 75 74 69 6f 6e 0d 17  |Set resolution..|
00007380  b6 34 6d 6f 64 65 25 3d  a4 6d 6f 64 65 28 77 69  |.4mode%=.mode(wi|
00007390  64 74 68 25 2c 68 65 69  67 68 74 25 2c 32 35 36  |dth%,height%,256|
000073a0  29 3a f4 20 44 65 74 65  72 6d 69 6e 65 20 6d 6f  |):. Determine mo|
000073b0  64 65 0d 17 c0 2c e7 a4  6e 65 77 5f 69 6d 61 67  |de...,..new_imag|
000073c0  65 28 6d 6f 64 65 25 2c  77 69 64 74 68 25 2c 68  |e(mode%,width%,h|
000073d0  65 69 67 68 74 25 2c 30  29 20 8b 20 3d a3 0d 17  |eight%,0) . =...|
000073e0  ca 34 49 6e 50 61 6c 25  28 30 29 3d 38 3a f4 20  |.4InPal%(0)=8:. |
000073f0  50 61 6c 65 74 74 65 20  69 73 20 32 35 36 20 67  |Palette is 256 g|
00007400  72 65 79 73 2c 20 6c 69  6e 65 61 72 20 73 63 61  |reys, linear sca|
00007410  6c 65 0d 17 d4 33 e3 20  63 25 3d 30 20 b8 20 32  |le...3. c%=0 . 2|
00007420  35 35 3a 49 6e 50 61 6c  25 28 63 25 2b 31 29 3d  |55:InPal%(c%+1)=|
00007430  28 63 25 3c 3c 31 36 29  2b 28 63 25 3c 3c 38 29  |(c%<<16)+(c%<<8)|
00007440  2b 63 25 3a ed 0d 17 de  43 f2 69 6d 61 67 65 5f  |+c%:....C.image_|
00007450  69 6e 66 6f 28 22 41 49  4d 22 2c 77 69 64 74 68  |info("AIM",width|
00007460  25 2c 68 65 69 67 68 74  25 2c 31 2c 38 2c 6d 6f  |%,height%,1,8,mo|
00007470  64 65 25 2c 22 22 2c 22  22 2c 46 6c 65 6e 25 2c  |de%,"","",Flen%,|
00007480  32 35 36 2a 32 35 36 29  0d 17 e8 4a f2 76 61 72  |256*256)...J.var|
00007490  28 22 77 69 64 74 22 2c  77 69 64 74 68 25 29 3a  |("widt",width%):|
000074a0  f2 76 61 72 28 22 68 65  69 67 22 2c 68 65 69 67  |.var("heig",heig|
000074b0  68 74 25 29 3a f2 76 61  72 28 22 66 70 74 72 22  |ht%):.var("fptr"|
000074c0  2c 30 29 3a f2 75 6e 70  61 63 6b 28 22 41 49 4d  |,0):.unpack("AIM|
000074d0  22 29 0d 17 f2 15 49 6d  67 4d 6f 64 65 25 3d 6d  |")....ImgMode%=m|
000074e0  6f 64 65 25 3a 3d b9 0d  17 fc 05 20 0d 18 06 0d  |ode%:=..... ....|
000074f0  dd a4 70 69 63 5f 53 55  4e 0d 18 10 15 f4 20 4d  |..pic_SUN..... M|
00007500  61 6b 65 73 20 53 55 4e  20 69 6d 61 67 65 0d 18  |akes SUN image..|
00007510  1a 2b 69 54 79 70 65 25  3d 31 3a f4 20 53 65 74  |.+iType%=1:. Set|
00007520  20 68 69 67 68 2d 74 6f  2d 6c 6f 77 20 74 79 70  | high-to-low typ|
00007530  65 20 6f 66 20 64 61 74  61 0d 18 24 5c 6d 61 67  |e of data..$\mag|
00007540  69 63 25 3d a4 69 34 28  31 29 3a e7 6d 61 67 69  |ic%=.i4(1):.magi|
00007550  63 25 3c 3e 26 35 39 41  36 36 41 39 35 20 8c 20  |c%<>&59A66A95 . |
00007560  f2 65 72 72 6f 72 28 2d  31 2c 22 54 68 69 73 20  |.error(-1,"This |
00007570  69 73 20 6e 6f 20 73 74  61 6e 64 61 72 64 20 53  |is no standard S|
00007580  55 4e 20 72 61 73 74 65  72 20 66 69 6c 65 20 21  |UN raster file !|
00007590  22 29 3a 3d a3 0d 18 2e  42 77 69 64 74 68 25 3d  |"):=....Bwidth%=|
000075a0  a4 69 34 28 31 29 3a 68  65 69 67 68 74 25 3d a4  |.i4(1):height%=.|
000075b0  68 65 69 67 68 74 25 3d  a4 68 31 29 3a 63 6f 6c  |height%=.h1):col|
000075c0  62 69 74 73 25 3d a4 69  34 28 31 29 3a f4 20 52  |bits%=.i4(1):. R|
000075d0  65 61 64 20 72 65 73 6f  6c 75 74 69 6f 6e 0d 18  |ead resolution..|
000075e0  38 4e 6c 65 6e 67 74 68  25 3d a4 69 34 28 31 29  |8Nlength%=.i4(1)|
000075f0  3a 74 79 70 65 25 3d a4  69 34 28 31 29 3a 6d 61  |:type%=.i4(1):ma|
00007600  70 74 79 70 65 25 3d a4  69 34 28 31 29 3a 6d 61  |ptype%=.i4(1):ma|
00007610  70 6c 65 6e 67 74 68 25  3d a4 69 34 28 31 29 3a  |plength%=.i4(1):|
00007620  f4 20 45 78 74 72 61 20  69 6e 66 6f 0d 18 42 48  |. Extra info..BH|
00007630  e7 74 79 70 65 25 3e 31  20 8c 20 f2 65 72 72 6f  |.type%>1 . .erro|
00007640  72 28 2d 31 2c 22 49 20  63 61 6e 20 6f 6e 6c 79  |r(-1,"I can only|
00007650  20 72 65 61 64 20 75 6e  63 6f 6d 70 72 65 73 73  | read uncompress|
00007660  65 64 20 53 75 6e 20 69  6d 61 67 65 73 20 21 22  |ed Sun images !"|
00007670  29 3a 3d a3 0d 18 4c 2b  63 6f 6c 6f 75 72 73 25  |):=...L+colours%|
00007680  3d 32 5e 63 6f 6c 62 69  74 73 25 3a f4 20 4e 75  |=2^colbits%:. Nu|
00007690  6d 62 65 72 20 6f 66 20  63 6f 6c 6f 75 72 73 0d  |mber of colours.|
000076a0  18 56 11 c8 8e 20 63 6f  6c 62 69 74 73 25 20 ca  |.V... colbits% .|
000076b0  0d 18 60 2c 20 c9 20 31  2c 38 20 3a 20 e7 28 6d  |..`, . 1,8 : .(m|
000076c0  61 70 74 79 70 65 25 3c  3e 31 29 84 28 6d 61 70  |aptype%<>1).(map|
000076d0  6c 65 6e 67 74 68 25 3d  30 29 20 8c 0d 18 6a 6d  |length%=0) ...jm|
000076e0  20 20 20 20 20 20 20 20  20 20 20 20 20 e7 63 6f  |             .co|
000076f0  6c 62 69 74 73 25 3e 31  20 8c 20 f2 65 72 72 6f  |lbits%>1 . .erro|
00007700  72 28 2d 31 2c 22 54 68  69 73 20 53 55 4e 20 69  |r(-1,"This SUN i|
00007710  6d 61 67 65 20 66 69 6c  65 20 63 6f 6e 74 61 69  |mage file contai|
00007720  6e 73 20 6e 6f 20 70 61  6c 65 74 74 65 20 21 20  |ns no palette ! |
00007730  49 20 77 69 6c 6c 20 75  73 65 20 61 20 67 72 65  |I will use a gre|
00007740  79 73 63 61 6c 65 2e 22  29 0d 18 74 2a 20 20 20  |yscale.")..t*   |
00007750  20 20 20 20 20 20 20 20  20 20 f2 67 72 65 79 5f  |          .grey_|
00007760  70 61 6c 65 74 74 65 28  63 6f 6c 62 69 74 73 25  |palette(colbits%|
00007770  2c 31 29 0d 18 7e 76 20  20 20 20 20 20 20 20 20  |,1)..~v         |
00007780  20 20 20 cc 20 49 6e 50  61 6c 25 28 29 3d 30 3a  |   . InPal%()=0:|
00007790  e3 20 69 25 3d 31 20 b8  20 33 3a e3 20 63 25 3d  |. i%=1 . 3:. c%=|
000077a0  31 20 b8 20 6d 61 70 6c  65 6e 67 74 68 25 81 33  |1 . maplength%.3|
000077b0  3a 49 6e 50 61 6c 25 28  63 25 29 3d 28 49 6e 50  |:InPal%(c%)=(InP|
000077c0  61 6c 25 28 63 25 29 3c  3c 38 29 2b a4 69 31 28  |al%(c%)<<8)+.i1(|
000077d0  31 29 3a ed 3a ed 3a 49  6e 50 61 6c 25 28 30 29  |1):.:.:InPal%(0)|
000077e0  3d 63 6f 6c 62 69 74 73  25 0d 18 88 11 20 20 20  |=colbits%....   |
000077f0  20 20 20 20 20 20 20 20  20 cd 0d 18 92 4c 20 7f  |         ....L .|
00007800  20 3a 20 f2 65 72 72 6f  72 28 2d 31 2c 22 49 20  | : .error(-1,"I |
00007810  63 61 6e 20 6f 6e 6c 79  20 72 65 61 64 20 31 2d  |can only read 1-|
00007820  20 61 6e 64 20 38 2d 62  69 74 20 70 65 72 20 70  | and 8-bit per p|
00007830  69 78 65 6c 20 53 75 6e  20 69 6d 61 67 65 73 20  |ixel Sun images |
00007840  21 22 29 3a 3d a3 0d 18  9c 05 cb 0d 18 a6 39 6d  |!"):=.........9m|
00007850  6f 64 65 25 3d a4 6d 6f  64 65 28 77 69 64 74 68  |ode%=.mode(width|
00007860  25 2c 68 65 69 67 68 74  25 2c 63 6f 6c 6f 75 72  |%,height%,colour|
00007870  73 25 29 3a f4 20 44 65  74 65 72 6d 69 6e 65 20  |s%):. Determine |
00007880  6d 6f 64 65 0d 18 b0 2c  e7 a4 6e 65 77 5f 69 6d  |mode...,..new_im|
00007890  61 67 65 28 6d 6f 64 65  25 2c 77 69 64 74 68 25  |age(mode%,width%|
000078a0  2c 68 65 69 67 68 74 25  2c 30 29 20 8b 20 3d a3  |,height%,0) . =.|
000078b0  0d 18 ba 48 f2 69 6d 61  67 65 5f 69 6e 66 6f 28  |...H.image_info(|
000078c0  22 53 55 4e 22 2c 77 69  64 74 68 25 2c 68 65 69  |"SUN",width%,hei|
000078d0  67 68 74 25 2c 30 2c 63  6f 6c 62 69 74 73 25 2c  |ght%,0,colbits%,|
000078e0  6d 6f 64 65 25 2c 22 22  2c 22 22 2c 46 6c 65 6e  |mode%,"","",Flen|
000078f0  25 2c 46 6c 65 6e 25 29  0d 18 c4 56 f2 76 61 72  |%,Flen%)...V.var|
00007900  28 22 66 70 74 72 22 2c  33 32 2b 6d 61 70 6c 65  |("fptr",32+maple|
00007910  6e 67 74 68 25 29 3a f2  76 61 72 28 22 77 69 64  |ngth%):.var("wid|
00007920  74 22 2c 77 69 64 74 68  25 29 3a f2 76 61 72 28  |t",width%):.var(|
00007930  22 68 65 69 67 22 2c 68  65 69 67 68 74 25 29 3a  |"heig",height%):|
00007940  f2 75 6e 70 61 63 6b 28  22 53 55 4e 22 29 0d 18  |.unpack("SUN")..|
00007950  ce 15 49 6d 67 4d 6f 64  65 25 3d 6d 6f 64 65 25  |..ImgMode%=mode%|
00007960  3a 3d b9 0d 18 d8 05 20  0d 18 e2 0d dd a4 70 69  |:=..... ......pi|
00007970  63 5f 50 43 58 0d 18 ec  15 f4 20 4d 61 6b 65 73  |c_PCX..... Makes|
00007980  20 50 43 58 20 69 6d 61  67 65 0d 18 f6 2b 69 54  | PCX image...+iT|
00007990  79 70 65 25 3d 30 3a f4  20 53 65 74 20 6c 6f 77  |ype%=0:. Set low|
000079a0  2d 74 6f 2d 68 69 67 68  20 74 79 70 65 20 6f 66  |-to-high type of|
000079b0  20 64 61 74 61 0d 19 00  31 6d 61 6e 25 3d a4 69  | data...1man%=.i|
000079c0  31 28 31 29 3a f4 20 4d  61 6e 75 66 61 63 74 75  |1(1):. Manufactu|
000079d0  72 65 20 63 6f 64 65 20  28 73 68 6f 75 6c 64 20  |re code (should |
000079e0  62 65 20 31 30 29 0d 19  0a 3e e7 6d 61 6e 25 3c  |be 10)...>.man%<|
000079f0  3e 31 30 20 8c 20 f2 65  72 72 6f 72 28 2d 31 2c  |>10 . .error(-1,|
00007a00  22 54 68 69 73 20 69 73  20 6e 6f 20 73 74 61 6e  |"This is no stan|
00007a10  64 61 72 64 20 50 43 58  20 66 69 6c 65 20 21 22  |dard PCX file !"|
00007a20  29 3a 3d a3 0d 19 14 2c  76 65 72 73 69 6f 6e 25  |):=....,version%|
00007a30  3d a4 69 31 28 31 29 3a  f4 20 56 65 72 73 69 6f  |=.i1(1):. Versio|
00007a40  6e 20 63 6f 64 65 20 28  30 2f 32 2f 33 2f 35 29  |n code (0/2/3/5)|
00007a50  0d 19 1e 59 e7 76 65 72  73 69 6f 6e 25 3c 35 20  |...Y.version%<5 |
00007a60  8c 20 f2 65 72 72 6f 72  28 2d 31 2c 22 49 20 63  |. .error(-1,"I c|
00007a70  61 6e 6e 6f 74 20 68 61  6e 64 6c 65 20 6f 6c 64  |annot handle old|
00007a80  20 50 43 58 20 66 69 6c  65 73 20 28 6f 6e 6c 79  | PCX files (only|
00007a90  20 76 65 72 73 69 6f 6e  20 35 20 61 6e 64 20 75  | version 5 and u|
00007aa0  70 29 20 21 22 29 3a 3d  a3 0d 19 28 47 65 6e 63  |p) !"):=...(Genc|
00007ab0  6f 64 69 6e 67 25 3d a4  69 31 28 31 29 3a f4 20  |oding%=.i1(1):. |
00007ac0  45 6e 63 6f 64 69 6e 67  20 63 6f 64 65 20 28 30  |Encoding code (0|
00007ad0  2d 6e 6f 6e 65 2c 20 31  2d 50 43 58 20 72 75 6e  |-none, 1-PCX run|
00007ae0  6c 65 6e 67 74 68 20 65  6e 63 6f 64 69 6e 67 29  |length encoding)|
00007af0  0d 19 32 33 62 69 74 73  25 3d a4 69 31 28 31 29  |..23bits%=.i1(1)|
00007b00  3a f4 20 42 69 74 73 20  70 65 72 20 27 70 69 78  |:. Bits per 'pix|
00007b10  65 6c 27 20 28 31 2d 45  47 41 2c 20 38 2d 4d 43  |el' (1-EGA, 8-MC|
00007b20  47 41 29 0d 19 3c 50 77  78 6d 69 6e 25 3d a4 69  |GA)..<Pwxmin%=.i|
00007b30  32 28 31 29 3a 77 79 6d  69 6e 25 3d a4 69 32 28  |2(1):wymin%=.i2(|
00007b40  31 29 3a 77 78 6d 61 78  25 3d a4 69 32 28 31 29  |1):wxmax%=.i2(1)|
00007b50  3a 77 79 6d 61 78 25 3d  a4 69 32 28 31 29 3a f4  |:wymax%=.i2(1):.|
00007b60  20 57 69 6e 64 6f 77 20  63 6f 6f 72 64 69 6e 61  | Window coordina|
00007b70  74 65 73 0d 19 46 49 77  69 64 74 68 25 3d 77 78  |tes..FIwidth%=wx|
00007b80  6d 61 78 25 2d 77 78 6d  69 6e 25 2b 31 3a 68 65  |max%-wxmin%+1:he|
00007b90  69 67 68 74 25 3d 77 79  6d 61 78 25 2d 77 79 6d  |ight%=wymax%-wym|
00007ba0  69 6e 25 2b 31 3a f4 20  52 65 73 6f 6c 75 74 69  |in%+1:. Resoluti|
00007bb0  6f 6e 20 69 6e 20 70 69  78 65 6c 73 0d 19 50 20  |on in pixels..P |
00007bc0  f2 69 73 6b 69 70 28 31  2c 34 29 3a f4 20 53 6b  |.iskip(1,4):. Sk|
00007bd0  69 70 20 48 72 65 73 2f  56 72 65 73 0d 19 5a 1e  |ip Hres/Vres..Z.|
00007be0  49 6e 50 61 6c 25 28 29  3d 30 3a f4 20 43 6c 65  |InPal%()=0:. Cle|
00007bf0  61 72 20 70 61 6c 65 74  74 65 0d 19 64 6c e3 20  |ar palette..dl. |
00007c00  69 25 3d 31 20 b8 20 31  36 3a 72 67 62 25 3d a4  |i%=1 . 16:rgb%=.|
00007c10  69 33 28 31 29 3a 49 6e  50 61 6c 25 28 69 25 29  |i3(1):InPal%(i%)|
00007c20  3d 28 28 72 67 62 25 80  26 46 46 29 3c 3c 31 36  |=((rgb%.&FF)<<16|
00007c30  29 2b 28 72 67 62 25 80  26 46 46 30 30 29 2b 28  |)+(rgb%.&FF00)+(|
00007c40  72 67 62 25 3e 3e 31 36  29 3a ed 3a f4 20 52 65  |rgb%>>16):.:. Re|
00007c50  61 64 20 63 6f 6c 6f 75  72 6d 61 70 20 69 6e 20  |ad colourmap in |
00007c60  68 65 61 64 65 72 0d 19  6e 24 f2 69 73 6b 69 70  |header..n$.iskip|
00007c70  28 31 2c 31 29 3a f4 20  53 6b 69 70 20 72 65 73  |(1,1):. Skip res|
00007c80  65 72 76 65 64 20 62 79  74 65 0d 19 78 21 70 6c  |erved byte..x!pl|
00007c90  61 6e 65 73 25 3d a4 69  31 28 31 29 3a f4 20 43  |anes%=.i1(1):. C|
00007ca0  6f 6c 6f 75 72 70 6c 61  6e 65 73 0d 19 82 24 6c  |olourplanes...$l|
00007cb0  69 6e 65 6c 65 6e 25 3d  a4 69 32 28 31 29 3a f4  |inelen%=.i2(1):.|
00007cc0  20 42 79 74 65 73 20 70  65 72 20 6c 69 6e 65 0d  | Bytes per line.|
00007cd0  19 8c 88 72 6f 75 6e 64  6c 65 6e 25 3d 28 28 77  |...roundlen%=((w|
00007ce0  69 64 74 68 25 2a 62 69  74 73 25 2b 37 29 81 38  |idth%*bits%+7).8|
00007cf0  29 3a e7 72 6f 75 6e 64  6c 65 6e 25 3c 3e 6c 69  |):.roundlen%<>li|
00007d00  6e 65 6c 65 6e 25 20 8c  20 77 69 64 74 68 25 3d  |nelen% . width%=|
00007d10  6c 69 6e 65 6c 65 6e 25  2a 38 2f 62 69 74 73 25  |linelen%*8/bits%|
00007d20  3a f4 20 43 6f 72 72 65  63 74 20 77 69 64 74 68  |:. Correct width|
00007d30  20 69 66 20 77 69 6e 64  6f 77 20 61 6e 64 20 6c  | if window and l|
00007d40  69 6e 65 6c 65 6e 67 74  68 20 64 61 74 61 20 63  |inelength data c|
00007d50  6f 6e 66 6c 69 63 74 0d  19 96 2b 70 69 78 62 69  |onflict...+pixbi|
00007d60  74 73 25 3d 62 69 74 73  25 2a 70 6c 61 6e 65 73  |ts%=bits%*planes|
00007d70  25 3a f4 20 42 69 74 73  20 70 65 72 20 70 69 78  |%:. Bits per pix|
00007d80  65 6c 0d 19 a0 89 e7 28  70 69 78 62 69 74 73 25  |el.....(pixbits%|
00007d90  3d 31 29 20 84 20 28 70  69 78 62 69 74 73 25 3d  |=1) . (pixbits%=|
00007da0  32 29 20 84 20 28 70 69  78 62 69 74 73 25 3d 34  |2) . (pixbits%=4|
00007db0  29 20 84 20 28 70 69 78  62 69 74 73 25 3d 38 29  |) . (pixbits%=8)|
00007dc0  20 8b 20 f2 65 72 72 6f  72 28 2d 31 2c 22 49 20  | . .error(-1,"I |
00007dd0  63 61 6e 6e 6f 74 20 68  61 6e 64 6c 65 20 22 2b  |cannot handle "+|
00007de0  c3 28 32 5e 70 69 78 62  69 74 73 25 29 2b 22 20  |.(2^pixbits%)+" |
00007df0  63 6f 6c 6f 75 72 20 45  47 41 20 50 43 58 20 66  |colour EGA PCX f|
00007e00  69 6c 65 73 20 21 22 29  3a 3d a3 0d 19 aa 2b 63  |iles !"):=....+c|
00007e10  6f 6c 6f 75 72 73 25 3d  32 5e 70 69 78 62 69 74  |olours%=2^pixbit|
00007e20  73 25 3a f4 20 4e 75 6d  62 65 72 20 6f 66 20 63  |s%:. Number of c|
00007e30  6f 6c 6f 75 72 73 0d 19  b4 7e f2 76 61 72 28 22  |olours...~.var("|
00007e40  66 70 74 72 22 2c 31 32  38 29 3a f2 76 61 72 28  |fptr",128):.var(|
00007e50  22 74 6f 74 6c 22 2c 6c  69 6e 65 6c 65 6e 25 2a  |"totl",linelen%*|
00007e60  70 6c 61 6e 65 73 25 2a  68 65 69 67 68 74 25 29  |planes%*height%)|
00007e70  3a f2 76 61 72 28 22 63  6f 6d 70 22 2c 65 6e 63  |:.var("comp",enc|
00007e80  6f 64 69 6e 67 25 29 3a  f2 75 6e 70 61 63 6b 5f  |oding%):.unpack_|
00007e90  70 68 61 73 65 28 22 50  43 58 22 2c 32 29 3a f4  |phase("PCX",2):.|
00007ea0  20 47 65 74 20 28 70 61  63 6b 65 64 29 20 6c 65  | Get (packed) le|
00007eb0  6e 67 74 68 0d 19 be 41  6c 65 6e 25 3d a4 76 61  |ngth...Alen%=.va|
00007ec0  72 28 22 70 61 6b 6c 22  29 3a f2 69 70 74 72 28  |r("pakl"):.iptr(|
00007ed0  31 2c 31 32 38 2b 6c 65  6e 25 29 3a f4 20 47 6f  |1,128+len%):. Go|
00007ee0  20 74 6f 20 65 6e 64 20  6f 66 20 69 6d 61 67 65  | to end of image|
00007ef0  20 64 61 74 61 0d 19 c8  3f 63 6f 64 65 25 3d a4  | data...?code%=.|
00007f00  69 31 28 31 29 3a f4 20  47 65 74 20 63 6f 64 65  |i1(1):. Get code|
00007f10  20 28 31 32 20 69 6e 64  69 63 61 74 65 73 20 70  | (12 indicates p|
00007f20  61 6c 65 74 74 65 20 69  6e 66 6f 20 66 6f 6c 6c  |alette info foll|
00007f30  6f 77 73 29 0d 19 d2 74  e7 63 6f 64 65 25 3d 31  |ows)...t.code%=1|
00007f40  32 20 8c 20 e3 20 69 25  3d 31 20 b8 20 63 6f 6c  |2 . . i%=1 . col|
00007f50  6f 75 72 73 25 3a 72 67  62 25 3d a4 69 33 28 31  |ours%:rgb%=.i3(1|
00007f60  29 3a 49 6e 50 61 6c 25  28 69 25 29 3d 28 28 72  |):InPal%(i%)=((r|
00007f70  67 62 25 80 26 46 46 29  3c 3c 31 36 29 2b 28 72  |gb%.&FF)<<16)+(r|
00007f80  67 62 25 80 26 46 46 30  30 29 2b 28 72 67 62 25  |gb%.&FF00)+(rgb%|
00007f90  3e 3e 31 36 29 3a ed 3a  f4 20 52 65 61 64 20 63  |>>16):.:. Read c|
00007fa0  6f 6c 6f 75 72 6d 61 70  0d 19 dc 2e 67 72 65 79  |olourmap....grey|
00007fb0  3d a3 3a f4 20 46 6c 61  67 20 74 6f 20 69 6e 64  |=.:. Flag to ind|
00007fc0  69 63 61 74 65 20 66 6f  72 63 65 64 20 67 72 65  |icate forced gre|
00007fd0  79 73 63 61 6c 65 0d 19  e6 80 e7 62 69 74 73 25  |yscale.....bits%|
00007fe0  3d 38 20 8c 20 e7 63 6f  64 65 25 3c 3e 31 32 20  |=8 . .code%<>12 |
00007ff0  8c 20 f2 65 72 72 6f 72  28 2d 31 2c 22 49 20 63  |. .error(-1,"I c|
00008000  61 6e 6e 6f 74 20 66 69  6e 64 20 74 68 65 20 70  |annot find the p|
00008010  61 6c 65 74 74 65 20 69  6e 20 74 68 69 73 20 32  |alette in this 2|
00008020  35 36 2d 63 6f 6c 6f 75  72 20 50 43 58 20 69 6d  |56-colour PCX im|
00008030  61 67 65 20 21 20 49 20  77 69 6c 6c 20 75 73 65  |age ! I will use|
00008040  20 61 20 67 72 65 79 73  63 61 6c 65 2e 22 29 3a  | a greyscale."):|
00008050  67 72 65 79 3d b9 0d 19  f0 7d e7 ac 67 72 65 79  |grey=....}..grey|
00008060  20 8c 20 e7 c6 8e 28 49  6e 50 61 6c 25 28 29 29  | . ...(InPal%())|
00008070  3d 30 20 8c 20 f2 65 72  72 6f 72 28 2d 31 2c 22  |=0 . .error(-1,"|
00008080  49 20 63 61 6e 6e 6f 74  20 66 69 6e 64 20 61 20  |I cannot find a |
00008090  64 65 63 65 6e 74 20 70  61 6c 65 74 74 65 20 69  |decent palette i|
000080a0  6e 20 74 68 69 73 20 50  43 58 20 69 6d 61 67 65  |n this PCX image|
000080b0  20 21 20 49 20 77 69 6c  6c 20 75 73 65 20 61 20  | ! I will use a |
000080c0  67 72 65 79 73 63 61 6c  65 2e 22 29 3a 67 72 65  |greyscale."):gre|
000080d0  79 3d b9 0d 19 fa 3a e7  67 72 65 79 20 8c 20 f2  |y=....:.grey . .|
000080e0  67 72 65 79 5f 70 61 6c  65 74 74 65 28 70 69 78  |grey_palette(pix|
000080f0  62 69 74 73 25 2c 31 29  20 8b 20 49 6e 50 61 6c  |bits%,1) . InPal|
00008100  25 28 30 29 3d 70 69 78  62 69 74 73 25 0d 1a 04  |%(0)=pixbits%...|
00008110  39 6d 6f 64 65 25 3d a4  6d 6f 64 65 28 77 69 64  |9mode%=.mode(wid|
00008120  74 68 25 2c 68 65 69 67  68 74 25 2c 63 6f 6c 6f  |th%,height%,colo|
00008130  75 72 73 25 29 3a f4 20  44 65 74 65 72 6d 69 6e  |urs%):. Determin|
00008140  65 20 6d 6f 64 65 0d 1a  0e 2c e7 a4 6e 65 77 5f  |e mode...,..new_|
00008150  69 6d 61 67 65 28 6d 6f  64 65 25 2c 77 69 64 74  |image(mode%,widt|
00008160  68 25 2c 68 65 69 67 68  74 25 2c 30 29 20 8b 20  |h%,height%,0) . |
00008170  3d a3 0d 1a 18 32 e7 65  6e 63 6f 64 69 6e 67 25  |=....2.encoding%|
00008180  3d 31 20 8c 20 63 6f 6d  70 72 24 3d 22 52 75 6e  |=1 . compr$="Run|
00008190  20 6c 65 6e 67 74 68 22  20 8b 20 63 6f 6d 70 72  | length" . compr|
000081a0  24 3d 22 22 0d 1a 22 66  f2 69 6d 61 67 65 5f 69  |$="".."f.image_i|
000081b0  6e 66 6f 28 22 50 43 58  22 2c 77 69 64 74 68 25  |nfo("PCX",width%|
000081c0  2c 68 65 69 67 68 74 25  2c 30 2c 70 69 78 62 69  |,height%,0,pixbi|
000081d0  74 73 25 2c 6d 6f 64 65  25 2c 63 6f 6d 70 72 24  |ts%,mode%,compr$|
000081e0  2c 22 22 2c 46 6c 65 6e  25 2d 31 32 38 2c 28 77  |,"",Flen%-128,(w|
000081f0  69 64 74 68 25 2a 68 65  69 67 68 74 25 2a 70 69  |idth%*height%*pi|
00008200  78 62 69 74 73 25 29 81  38 29 0d 1a 2c 63 f2 76  |xbits%).8)..,c.v|
00008210  61 72 28 22 66 70 74 72  22 2c 31 32 38 29 3a f2  |ar("fptr",128):.|
00008220  76 61 72 28 22 77 69 64  74 22 2c 77 69 64 74 68  |var("widt",width|
00008230  25 29 3a f2 76 61 72 28  22 68 65 69 67 22 2c 68  |%):.var("heig",h|
00008240  65 69 67 68 74 25 29 3a  f2 76 61 72 28 22 63 6f  |eight%):.var("co|
00008250  6d 70 22 2c 65 6e 63 6f  64 69 6e 67 25 29 3a f2  |mp",encoding%):.|
00008260  75 6e 70 61 63 6b 28 22  50 43 58 22 29 0d 1a 36  |unpack("PCX")..6|
00008270  15 49 6d 67 4d 6f 64 65  25 3d 6d 6f 64 65 25 3a  |.ImgMode%=mode%:|
00008280  3d b9 0d 1a 40 05 20 0d  1a 4a 0e dd a4 70 69 63  |=...@. ..J...pic|
00008290  5f 54 49 46 46 0d 1a 54  16 f4 20 4d 61 6b 65 73  |_TIFF..T.. Makes|
000082a0  20 54 49 46 46 20 69 6d  61 67 65 0d 1a 5e 2b 69  | TIFF image..^+i|
000082b0  64 24 3d a4 69 73 74 72  69 6e 67 28 31 2c 32 29  |d$=.istring(1,2)|
000082c0  3a f4 20 54 49 46 46 20  69 64 65 6e 74 69 66 69  |:. TIFF identifi|
000082d0  63 61 74 69 6f 6e 0d 1a  68 0c c8 8e 20 69 64 24  |cation..h... id$|
000082e0  20 ca 0d 1a 72 35 20 c9  20 22 49 49 22 20 3a 20  | ...r5 . "II" : |
000082f0  69 54 79 70 65 25 3d 30  3a f4 20 53 65 74 20 6c  |iType%=0:. Set l|
00008300  6f 77 2d 74 6f 2d 68 69  67 68 20 74 79 70 65 20  |ow-to-high type |
00008310  6f 66 20 64 61 74 61 0d  1a 7c 35 20 c9 20 22 4d  |of data..|5 . "M|
00008320  4d 22 20 3a 20 69 54 79  70 65 25 3d 31 3a f4 20  |M" : iType%=1:. |
00008330  53 65 74 20 68 69 67 68  2d 74 6f 2d 6c 6f 77 20  |Set high-to-low |
00008340  74 79 70 65 20 6f 66 20  64 61 74 61 0d 1a 86 32  |type of data...2|
00008350  20 7f 20 3a 20 f2 65 72  72 6f 72 28 2d 31 2c 22  | . : .error(-1,"|
00008360  54 68 69 73 20 69 73 20  6e 6f 74 20 61 20 54 49  |This is not a TI|
00008370  46 46 20 66 69 6c 65 20  21 22 29 3a 3d a3 0d 1a  |FF file !"):=...|
00008380  90 05 cb 0d 1a 9a 2b 76  65 72 73 69 6f 6e 25 3d  |......+version%=|
00008390  a4 74 69 66 66 28 33 29  3a f4 20 54 49 46 46 20  |.tiff(3):. TIFF |
000083a0  76 65 72 73 69 6f 6e 20  6e 75 6d 62 65 72 0d 1a  |version number..|
000083b0  a4 47 e7 76 65 72 73 69  6f 6e 25 3c 3e 34 32 20  |.G.version%<>42 |
000083c0  8c 20 f2 65 72 72 6f 72  28 2d 31 2c 22 49 20 63  |. .error(-1,"I c|
000083d0  61 6e 6e 6f 74 20 68 61  6e 64 6c 65 20 74 68 69  |annot handle thi|
000083e0  73 20 54 49 46 46 20 76  65 72 73 69 6f 6e 20 21  |s TIFF version !|
000083f0  22 29 3a 3d a3 0d 1a ae  2b 6f 66 66 46 49 46 44  |"):=....+offFIFD|
00008400  25 3d a4 74 69 66 66 28  34 29 3a f4 20 4f 66 66  |%=.tiff(4):. Off|
00008410  73 65 74 20 74 6f 20 66  69 72 73 74 20 49 46 44  |set to first IFD|
00008420  0d 1a b8 27 f2 69 70 74  72 28 31 2c 6f 66 66 46  |...'.iptr(1,offF|
00008430  49 46 44 25 29 3a f4 20  47 6f 20 74 6f 20 66 69  |IFD%):. Go to fi|
00008440  72 73 74 20 49 46 44 0d  1a c2 2d 65 6e 74 72 69  |rst IFD...-entri|
00008450  65 73 25 3d a4 74 69 66  66 28 33 29 3a f4 20 4e  |es%=.tiff(3):. N|
00008460  75 6d 62 65 72 20 6f 66  20 49 46 44 20 65 6e 74  |umber of IFD ent|
00008470  72 69 65 73 0d 1a cc 1f  49 6e 50 61 6c 25 28 29  |ries....InPal%()|
00008480  3d 30 3a f4 20 4e 6f 20  70 61 6c 65 74 74 65 20  |=0:. No palette |
00008490  79 65 74 0d 1a d6 31 6f  6b 3d b9 3a f4 20 46 6c  |yet...1ok=.:. Fl|
000084a0  61 67 20 69 6e 64 69 63  61 74 69 6e 67 20 69 66  |ag indicating if|
000084b0  20 54 49 46 46 20 63 61  6e 20 62 65 20 68 61 6e  | TIFF can be han|
000084c0  64 6c 65 64 0d 1a e0 72  72 6f 77 73 70 65 72 73  |dled...rrowspers|
000084d0  74 72 69 70 25 3d 2d 31  3a 62 69 74 73 25 3d 31  |trip%=-1:bits%=1|
000084e0  3a 63 6f 6c 6f 75 72 73  25 3d 32 3a 63 6f 6d 70  |:colours%=2:comp|
000084f0  72 65 73 73 69 6f 6e 25  3d 31 3a 70 6c 61 6e 61  |ression%=1:plana|
00008500  72 25 3d 31 3a 66 69 6c  6c 6f 72 64 65 72 25 3d  |r%=1:fillorder%=|
00008510  31 3a 67 72 65 79 75 6e  69 74 25 3d 33 3a 70 69  |1:greyunit%=3:pi|
00008520  78 73 61 6d 70 6c 65 73  25 3d 31 3a f4 20 44 65  |xsamples%=1:. De|
00008530  66 61 75 6c 74 73 0d 1a  ea 15 e3 20 65 25 3d 31  |faults..... e%=1|
00008540  20 b8 20 65 6e 74 72 69  65 73 25 0d 1a f4 40 74  | . entries%...@t|
00008550  61 67 25 3d a4 74 69 66  66 28 33 29 3a 74 79 70  |ag%=.tiff(3):typ|
00008560  65 25 3d a4 74 69 66 66  28 33 29 3a 6c 65 6e 67  |e%=.tiff(3):leng|
00008570  74 68 25 3d a4 74 69 66  66 28 34 29 3a f4 20 54  |th%=.tiff(4):. T|
00008580  61 67 20 61 6e 64 20 69  6e 66 6f 0d 1a fe 72 e7  |ag and info...r.|
00008590  74 79 70 65 25 3d 31 20  8c 20 76 61 6c 75 65 25  |type%=1 . value%|
000085a0  3d a4 74 69 66 66 28 31  29 3a f2 69 73 6b 69 70  |=.tiff(1):.iskip|
000085b0  28 31 2c 33 29 20 8b 20  e7 74 79 70 65 25 3d 33  |(1,3) . .type%=3|
000085c0  20 8c 20 76 61 6c 75 65  25 3d a4 74 69 66 66 28  | . value%=.tiff(|
000085d0  33 29 3a f2 69 73 6b 69  70 28 31 2c 32 29 20 8b  |3):.iskip(1,2) .|
000085e0  20 76 61 6c 75 65 25 3d  a4 74 69 66 66 28 34 29  | value%=.tiff(4)|
000085f0  3a f4 20 52 65 61 64 20  76 61 6c 75 65 0d 1b 08  |:. Read value...|
00008600  36 63 70 74 72 25 3d a4  69 70 74 72 28 31 29 3a  |6cptr%=.iptr(1):|
00008610  f4 20 52 65 6d 65 6d 62  65 72 20 63 75 72 72 65  |. Remember curre|
00008620  6e 74 20 70 6f 73 69 74  69 6f 6e 20 69 6e 20 66  |nt position in f|
00008630  69 6c 65 0d 1b 12 0d c8  8e 20 74 61 67 25 20 ca  |ile...... tag% .|
00008640  0d 1b 1c 1a 20 c9 20 32  35 36 20 3a 20 77 69 64  |.... . 256 : wid|
00008650  74 68 25 3d 76 61 6c 75  65 25 0d 1b 26 1b 20 c9  |th%=value%..&. .|
00008660  20 32 35 37 20 3a 20 68  65 69 67 68 74 25 3d 76  | 257 : height%=v|
00008670  61 6c 75 65 25 0d 1b 30  2a 20 c9 20 32 35 38 20  |alue%..0* . 258 |
00008680  3a 20 62 69 74 73 25 3d  76 61 6c 75 65 25 3a 63  |: bits%=value%:c|
00008690  6f 6c 6f 75 72 73 25 3d  32 5e 62 69 74 73 25 0d  |olours%=2^bits%.|
000086a0  1b 3a 20 20 c9 20 32 35  39 20 3a 20 63 6f 6d 70  |.:  . 259 : comp|
000086b0  72 65 73 73 69 6f 6e 25  3d 76 61 6c 75 65 25 0d  |ression%=value%.|
000086c0  1b 44 20 20 c9 20 32 36  32 20 3a 20 70 68 6f 74  |.D  . 262 : phot|
000086d0  6f 6d 65 74 72 69 63 25  3d 76 61 6c 75 65 25 0d  |ometric%=value%.|
000086e0  1b 4e 1e 20 c9 20 32 36  36 20 3a 20 66 69 6c 6c  |.N. . 266 : fill|
000086f0  6f 72 64 65 72 25 3d 76  61 6c 75 65 25 0d 1b 58  |order%=value%..X|
00008700  90 20 c9 20 32 37 33 20  3a 20 21 73 74 72 6f 66  |. . 273 : !strof|
00008710  66 3d 6c 65 6e 67 74 68  25 3a e7 6c 65 6e 67 74  |f=length%:.lengt|
00008720  68 25 3d 31 20 8c 20 73  74 72 6f 66 66 21 34 3d  |h%=1 . stroff!4=|
00008730  76 61 6c 75 65 25 20 8b  20 f2 69 70 74 72 28 31  |value% . .iptr(1|
00008740  2c 76 61 6c 75 65 25 29  3a 70 25 3d 73 74 72 6f  |,value%):p%=stro|
00008750  66 66 2b 34 3a e3 20 73  25 3d 31 20 b8 20 6c 65  |ff+4:. s%=1 . le|
00008760  6e 67 74 68 25 3a 21 70  25 3d a4 74 69 66 66 28  |ngth%:!p%=.tiff(|
00008770  74 79 70 65 25 29 3a 70  25 2b 3d 34 3a ed 3a f2  |type%):p%+=4:.:.|
00008780  69 70 74 72 28 31 2c 63  70 74 72 25 29 0d 1b 62  |iptr(1,cptr%)..b|
00008790  1f 20 c9 20 32 37 37 20  3a 20 70 69 78 73 61 6d  |. . 277 : pixsam|
000087a0  70 6c 65 73 25 3d 76 61  6c 75 65 25 0d 1b 6c 21  |ples%=value%..l!|
000087b0  20 c9 20 32 37 38 20 3a  20 72 6f 77 73 70 65 72  | . 278 : rowsper|
000087c0  73 74 72 69 70 25 3d 76  61 6c 75 65 25 0d 1b 76  |strip%=value%..v|
000087d0  1b 20 c9 20 32 38 34 20  3a 20 70 6c 61 6e 61 72  |. . 284 : planar|
000087e0  25 3d 76 61 6c 75 65 25  0d 1b 80 1d 20 c9 20 32  |%=value%.... . 2|
000087f0  39 30 20 3a 20 67 72 65  79 75 6e 69 74 25 3d 76  |90 : greyunit%=v|
00008800  61 6c 75 65 25 0d 1b 8a  a0 20 c9 20 32 39 31 20  |alue%.... . 291 |
00008810  3a 20 f2 69 70 74 72 28  31 2c 76 61 6c 75 65 25  |: .iptr(1,value%|
00008820  29 3a 64 69 76 25 3d 32  2a 31 30 5e 67 72 65 79  |):div%=2*10^grey|
00008830  75 6e 69 74 25 3a e3 20  67 25 3d 31 20 b8 20 6c  |unit%:. g%=1 . l|
00008840  65 6e 67 74 68 25 3a 63  25 3d a4 74 69 66 66 28  |ength%:c%=.tiff(|
00008850  74 79 70 65 25 29 2a 32  35 35 3a 69 25 3d 63 25  |type%)*255:i%=c%|
00008860  2f 64 69 76 25 3a 49 6e  50 61 6c 25 28 67 25 29  |/div%:InPal%(g%)|
00008870  3d 69 25 2b 28 69 25 3c  3c 38 29 2b 28 69 25 3c  |=i%+(i%<<8)+(i%<|
00008880  3c 31 36 29 3a ed 3a 49  6e 50 61 6c 25 28 30 29  |<16):.:InPal%(0)|
00008890  3d 62 69 74 73 25 3a f2  69 70 74 72 28 31 2c 63  |=bits%:.iptr(1,c|
000088a0  70 74 72 25 29 0d 1b 94  9b 20 c9 20 33 32 30 20  |ptr%).... . 320 |
000088b0  3a 20 f2 69 70 74 72 28  31 2c 76 61 6c 75 65 25  |: .iptr(1,value%|
000088c0  29 3a 49 6e 50 61 6c 25  28 29 3d 30 3a e3 20 70  |):InPal%()=0:. p|
000088d0  25 3d 31 20 b8 20 33 3a  e3 20 63 25 3d 31 20 b8  |%=1 . 3:. c%=1 .|
000088e0  20 6c 65 6e 67 74 68 25  81 33 3a 76 25 3d a4 74  | length%.3:v%=.t|
000088f0  69 66 66 28 74 79 70 65  25 29 3a 49 6e 50 61 6c  |iff(type%):InPal|
00008900  25 28 63 25 29 3d 28 49  6e 50 61 6c 25 28 63 25  |%(c%)=(InPal%(c%|
00008910  29 3c 3c 38 29 2b 28 76  25 3e 3e 38 29 3a ed 3a  |)<<8)+(v%>>8):.:|
00008920  ed 3a 49 6e 50 61 6c 25  28 30 29 3d 62 69 74 73  |.:InPal%(0)=bits|
00008930  25 3a f2 69 70 74 72 28  31 2c 63 70 74 72 25 29  |%:.iptr(1,cptr%)|
00008940  0d 1b 9e 05 cb 0d 1b a8  05 ed 0d 1b b2 2d e7 72  |.............-.r|
00008950  6f 77 73 70 65 72 73 74  72 69 70 25 3d 2d 31 20  |owsperstrip%=-1 |
00008960  8c 20 72 6f 77 73 70 65  72 73 74 72 69 70 25 3d  |. rowsperstrip%=|
00008970  68 65 69 67 68 74 25 0d  1b bc 4f e7 63 6f 6d 70  |height%...O.comp|
00008980  72 65 73 73 69 6f 6e 25  3c 3e 31 20 8c 20 f2 65  |ression%<>1 . .e|
00008990  72 72 6f 72 28 2d 31 2c  22 49 20 63 61 6e 6e 6f  |rror(-1,"I canno|
000089a0  74 20 68 61 6e 64 6c 65  20 63 6f 6d 70 72 65 73  |t handle compres|
000089b0  73 65 64 20 54 49 46 46  20 69 6d 61 67 65 73 20  |sed TIFF images |
000089c0  21 22 29 3a 3d a3 0d 1b  c6 7d e7 28 62 69 74 73  |!"):=....}.(bits|
000089d0  25 3d 31 29 84 28 62 69  74 73 25 3d 32 29 84 28  |%=1).(bits%=2).(|
000089e0  62 69 74 73 25 3d 34 29  84 28 62 69 74 73 25 3d  |bits%=4).(bits%=|
000089f0  38 29 20 8b 20 f2 65 72  72 6f 72 28 2d 31 2c 22  |8) . .error(-1,"|
00008a00  49 20 63 61 6e 20 6f 6e  6c 79 20 68 61 6e 64 6c  |I can only handl|
00008a10  65 20 54 49 46 46 20 69  6d 61 67 65 73 20 77 69  |e TIFF images wi|
00008a20  74 68 20 31 2c 32 2c 34  20 6f 72 20 38 20 62 69  |th 1,2,4 or 8 bi|
00008a30  74 73 20 70 65 72 20 70  69 78 65 6c 20 21 22 29  |ts per pixel !")|
00008a40  3a 3d a3 0d 1b d0 54 e7  70 6c 61 6e 61 72 25 3c  |:=....T.planar%<|
00008a50  3e 31 20 8c 20 f2 65 72  72 6f 72 28 2d 31 2c 22  |>1 . .error(-1,"|
00008a60  49 20 63 61 6e 6e 6f 74  20 68 61 6e 64 6c 65 20  |I cannot handle |
00008a70  54 49 46 46 20 69 6d 61  67 65 73 20 77 69 74 68  |TIFF images with|
00008a80  20 6d 75 6c 74 69 70 6c  65 20 70 6c 61 6e 65 73  | multiple planes|
00008a90  20 21 22 29 3a 3d a3 0d  1b da 67 e7 70 69 78 73  | !"):=....g.pixs|
00008aa0  61 6d 70 6c 65 73 25 3c  3e 31 20 8c 20 f2 65 72  |amples%<>1 . .er|
00008ab0  72 6f 72 28 2d 31 2c 22  49 20 63 61 6e 6e 6f 74  |ror(-1,"I cannot|
00008ac0  20 68 61 6e 64 6c 65 20  54 49 46 46 20 69 6d 61  | handle TIFF ima|
00008ad0  67 65 73 20 77 69 74 68  20 6d 6f 72 65 20 74 68  |ges with more th|
00008ae0  61 6e 20 6f 6e 65 20 73  61 6d 70 6c 65 20 70 65  |an one sample pe|
00008af0  72 20 70 69 78 65 6c 20  21 22 29 3a 3d a3 0d 1b  |r pixel !"):=...|
00008b00  e4 56 e7 49 6e 50 61 6c  25 28 30 29 3c 3e 30 20  |.V.InPal%(0)<>0 |
00008b10  8b 20 e7 70 68 6f 74 6f  6d 65 74 72 69 63 25 3d  |. .photometric%=|
00008b20  30 20 8c 20 f2 67 72 65  79 5f 70 61 6c 65 74 74  |0 . .grey_palett|
00008b30  65 28 62 69 74 73 25 2c  2d 31 29 20 8b 20 f2 67  |e(bits%,-1) . .g|
00008b40  72 65 79 5f 70 61 6c 65  74 74 65 28 62 69 74 73  |rey_palette(bits|
00008b50  25 2c 31 29 0d 1b ee 39  6d 6f 64 65 25 3d a4 6d  |%,1)...9mode%=.m|
00008b60  6f 64 65 28 77 69 64 74  68 25 2c 68 65 69 67 68  |ode(width%,heigh|
00008b70  74 25 2c 63 6f 6c 6f 75  72 73 25 29 3a f4 20 44  |t%,colours%):. D|
00008b80  65 74 65 72 6d 69 6e 65  20 6d 6f 64 65 0d 1b f8  |etermine mode...|
00008b90  2c e7 a4 6e 65 77 5f 69  6d 61 67 65 28 6d 6f 64  |,..new_image(mod|
00008ba0  65 25 2c 77 69 64 74 68  25 2c 68 65 69 67 68 74  |e%,width%,height|
00008bb0  25 2c 30 29 20 8b 20 3d  a3 0d 1c 02 38 e7 70 68  |%,0) . =....8.ph|
00008bc0  6f 74 6f 6d 65 74 72 69  63 25 3d 33 20 8c 20 63  |otometric%=3 . c|
00008bd0  6f 64 65 25 3d 30 20 8b  20 63 6f 64 65 25 3d 31  |ode%=0 . code%=1|
00008be0  3a f4 20 43 6f 6c 6f 75  72 20 6f 72 20 67 72 65  |:. Colour or gre|
00008bf0  79 0d 1c 0c 4a f2 69 6d  61 67 65 5f 69 6e 66 6f  |y...J.image_info|
00008c00  28 22 54 49 46 46 22 2c  77 69 64 74 68 25 2c 68  |("TIFF",width%,h|
00008c10  65 69 67 68 74 25 2c 63  6f 64 65 25 2c 62 69 74  |eight%,code%,bit|
00008c20  73 25 2c 6d 6f 64 65 25  2c 22 22 2c 22 22 2c 46  |s%,mode%,"","",F|
00008c30  6c 65 6e 25 2c 46 6c 65  6e 25 29 0d 1c 16 92 f2  |len%,Flen%).....|
00008c40  76 61 72 28 22 66 70 74  72 22 2c 30 29 3a f2 76  |var("fptr",0):.v|
00008c50  61 72 28 22 77 69 64 74  22 2c 77 69 64 74 68 25  |ar("widt",width%|
00008c60  29 3a f2 76 61 72 28 22  68 65 69 67 22 2c 68 65  |):.var("heig",he|
00008c70  69 67 68 74 25 29 3a f2  76 61 72 28 22 6d 61 70  |ight%):.var("map|
00008c80  31 22 2c 73 74 72 6f 66  66 29 3a f2 76 61 72 28  |1",stroff):.var(|
00008c90  22 72 6f 70 73 22 2c 72  6f 77 73 70 65 72 73 74  |"rops",rowsperst|
00008ca0  72 69 70 25 29 3a f2 76  61 72 28 22 62 69 74 6f  |rip%):.var("bito|
00008cb0  22 2c 66 69 6c 6c 6f 72  64 65 72 25 29 3a f2 75  |",fillorder%):.u|
00008cc0  6e 70 61 63 6b 28 22 54  49 46 46 22 29 0d 1c 20  |npack("TIFF").. |
00008cd0  15 49 6d 67 4d 6f 64 65  25 3d 6d 6f 64 65 25 3a  |.ImgMode%=mode%:|
00008ce0  3d b9 0d 1c 2a 05 20 0d  1c 34 11 dd a4 74 69 66  |=...*. ..4...tif|
00008cf0  66 28 74 79 70 65 25 29  0d 1c 3e 1c f4 20 52 65  |f(type%)..>.. Re|
00008d00  74 75 72 6e 73 20 74 69  66 66 20 64 61 74 61 20  |turns tiff data |
00008d10  74 79 70 65 0d 1c 48 0b  ea 20 69 24 2c 62 25 0d  |type..H.. i$,b%.|
00008d20  1c 52 0e c8 8e 20 74 79  70 65 25 20 ca 0d 1c 5c  |.R... type% ...\|
00008d30  12 20 c9 20 31 20 3a 20  3d a4 69 31 28 31 29 0d  |. . 1 : =.i1(1).|
00008d40  1c 66 3b 20 c9 20 32 20  3a 20 69 24 3d 22 22 3a  |.f; . 2 : i$="":|
00008d50  62 25 3d a4 69 31 28 31  29 3a c8 95 20 62 25 3c  |b%=.i1(1):.. b%<|
00008d60  3e 30 3a 69 24 2b 3d bd  62 25 3a 62 25 3d a4 69  |>0:i$+=.b%:b%=.i|
00008d70  31 28 31 29 3a ce 3a 3d  69 24 0d 1c 70 12 20 c9  |1(1):.:=i$..p. .|
00008d80  20 33 20 3a 20 3d a4 69  32 28 31 29 0d 1c 7a 12  | 3 : =.i2(1)..z.|
00008d90  20 c9 20 34 20 3a 20 3d  a4 69 34 28 31 29 0d 1c  | . 4 : =.i4(1)..|
00008da0  84 0d 20 c9 20 35 20 3a  20 3d 30 0d 1c 8e 05 cb  |.. . 5 : =0.....|
00008db0  0d 1c 98 06 3d 30 0d 1c  a2 05 20 0d 1c ac 0d dd  |....=0.... .....|
00008dc0  a4 70 69 63 5f 51 52 54  0d 1c b6 15 f4 20 4d 61  |.pic_QRT..... Ma|
00008dd0  6b 65 73 20 51 52 54 20  69 6d 61 67 65 0d 1c c0  |kes QRT image...|
00008de0  2b 69 54 79 70 65 25 3d  30 3a f4 20 53 65 74 20  |+iType%=0:. Set |
00008df0  6c 6f 77 2d 74 6f 2d 68  69 67 68 20 74 79 70 65  |low-to-high type|
00008e00  20 6f 66 20 64 61 74 61  0d 1c ca 32 77 69 64 74  | of data...2widt|
00008e10  68 25 3d a4 69 32 28 31  29 3a 68 65 69 67 68 74  |h%=.i2(1):height|
00008e20  25 3d a4 69 32 28 31 29  3a f4 20 52 65 61 64 20  |%=.i2(1):. Read |
00008e30  72 65 73 6f 6c 75 74 69  6f 6e 0d 1c d4 34 6d 6f  |resolution...4mo|
00008e40  64 65 25 3d a4 6d 6f 64  65 28 77 69 64 74 68 25  |de%=.mode(width%|
00008e50  2c 68 65 69 67 68 74 25  2c 32 35 36 29 3a f4 20  |,height%,256):. |
00008e60  44 65 74 65 72 6d 69 6e  65 20 6d 6f 64 65 0d 1c  |Determine mode..|
00008e70  de 2c e7 a4 6e 65 77 5f  69 6d 61 67 65 28 6d 6f  |.,..new_image(mo|
00008e80  64 65 25 2c 77 69 64 74  68 25 2c 68 65 69 67 68  |de%,width%,heigh|
00008e90  74 25 2c 30 29 20 8b 20  3d a3 0d 1c e8 2e 49 6e  |t%,0) . =.....In|
00008ea0  50 61 6c 25 28 30 29 3d  32 34 3a f4 20 4e 6f 20  |Pal%(0)=24:. No |
00008eb0  70 61 6c 65 74 74 65 2c  20 70 75 72 65 20 32 34  |palette, pure 24|
00008ec0  2d 62 69 74 20 52 47 42  0d 1c f2 46 f2 69 6d 61  |-bit RGB...F.ima|
00008ed0  67 65 5f 69 6e 66 6f 28  22 51 52 54 20 52 41 57  |ge_info("QRT RAW|
00008ee0  22 2c 77 69 64 74 68 25  2c 68 65 69 67 68 74 25  |",width%,height%|
00008ef0  2c 32 2c 32 34 2c 6d 6f  64 65 25 2c 22 22 2c 22  |,2,24,mode%,"","|
00008f00  22 2c 46 6c 65 6e 25 2c  46 6c 65 6e 25 29 0d 1c  |",Flen%,Flen%)..|
00008f10  fc 4a f2 76 61 72 28 22  66 70 74 72 22 2c 34 29  |.J.var("fptr",4)|
00008f20  3a f2 76 61 72 28 22 77  69 64 74 22 2c 77 69 64  |:.var("widt",wid|
00008f30  74 68 25 29 3a f2 76 61  72 28 22 68 65 69 67 22  |th%):.var("heig"|
00008f40  2c 68 65 69 67 68 74 25  29 3a f2 75 6e 70 61 63  |,height%):.unpac|
00008f50  6b 28 22 51 52 54 22 29  0d 1d 06 15 49 6d 67 4d  |k("QRT")....ImgM|
00008f60  6f 64 65 25 3d 6d 6f 64  65 25 3a 3d b9 0d 1d 10  |ode%=mode%:=....|
00008f70  05 20 0d 1d 1a 0f dd a4  70 69 63 5f 41 52 56 49  |. ......pic_ARVI|
00008f80  53 0d 1d 24 17 f4 20 4d  61 6b 65 73 20 41 72 56  |S..$.. Makes ArV|
00008f90  69 73 20 69 6d 61 67 65  0d 1d 2e 2b 69 54 79 70  |is image...+iTyp|
00008fa0  65 25 3d 30 3a f4 20 53  65 74 20 6c 6f 77 2d 74  |e%=0:. Set low-t|
00008fb0  6f 2d 68 69 67 68 20 74  79 70 65 20 6f 66 20 64  |o-high type of d|
00008fc0  61 74 61 0d 1d 38 67 f2  69 70 74 72 28 31 2c 34  |ata..8g.iptr(1,4|
00008fd0  29 3a f2 69 70 74 72 28  31 2c a4 2c a4 2c 31 29  |):.iptr(1,.,.,1)|
00008fe0  2d 34 29 3a f2 69 73 6b  69 70 28 31 2c 31 36 29  |-4):.iskip(1,16)|
00008ff0  3a 77 69 64 74 68 25 3d  a4 69 34 28 31 29 2a 34  |:width%=.i4(1)*4|
00009000  2b 34 3a 68 65 69 67 68  74 25 3d a4 68 65 69 67  |+4:height%=.heig|
00009010  68 74 25 3d a4 68 31 29  2b 31 3a f4 20 47 65 74  |ht%=.h1)+1:. Get|
00009020  20 77 69 64 74 68 20 61  6e 64 20 68 65 69 67 68  | width and heigh|
00009030  74 0d 1d 42 75 f2 69 73  6b 69 70 28 31 2c 38 29  |t..Bu.iskip(1,8)|
00009040  3a f2 69 73 6b 69 70 28  31 2c a4 2c a4 2c 31 29  |:.iskip(1,.,.,1)|
00009050  2d 33 36 29 3a f2 69 70  74 72 28 32 2c 34 29 3a  |-36):.iptr(2,4):|
00009060  f2 69 70 74 72 28 32 2c  a4 2c a4 2c 32 29 2d 34  |.iptr(2,.,.,2)-4|
00009070  29 3a f2 69 73 6b 69 70  28 32 2c 33 32 29 3a f2  |):.iskip(2,32):.|
00009080  69 73 6b 69 70 28 32 2c  a4 2c a4 2c 32 29 2d 33  |iskip(2,.,.,2)-3|
00009090  36 29 3a f4 20 47 6f 20  74 6f 20 73 70 72 69 74  |6):. Go to sprit|
000090a0  65 20 64 61 74 61 0d 1d  4c 2d 63 6f 6c 62 69 74  |e data..L-colbit|
000090b0  73 25 3d 31 35 3a 63 6f  6c 6f 75 72 73 25 3d 32  |s%=15:colours%=2|
000090c0  5e 63 6f 6c 62 69 74 73  25 3a f4 20 43 6f 6c 6f  |^colbits%:. Colo|
000090d0  75 72 73 0d 1d 56 34 6d  6f 64 65 25 3d a4 6d 6f  |urs..V4mode%=.mo|
000090e0  64 65 28 77 69 64 74 68  25 2c 68 65 69 67 68 74  |de(width%,height|
000090f0  25 2c 32 35 36 29 3a f4  20 44 65 74 65 72 6d 69  |%,256):. Determi|
00009100  6e 65 20 6d 6f 64 65 0d  1d 60 2c e7 a4 6e 65 77  |ne mode..`,..new|
00009110  5f 69 6d 61 67 65 28 6d  6f 64 65 25 2c 77 69 64  |_image(mode%,wid|
00009120  74 68 25 2c 68 65 69 67  68 74 25 2c 30 29 20 8b  |th%,height%,0) .|
00009130  20 3d a3 0d 1d 6a 2e 49  6e 50 61 6c 25 28 30 29  | =...j.InPal%(0)|
00009140  3d 31 35 3a f4 20 4e 6f  20 70 61 6c 65 74 74 65  |=15:. No palette|
00009150  2c 20 70 75 72 65 20 31  35 2d 62 69 74 20 52 47  |, pure 15-bit RG|
00009160  42 0d 1d 74 44 f2 69 6d  61 67 65 5f 69 6e 66 6f  |B..tD.image_info|
00009170  28 22 41 72 56 69 73 22  2c 77 69 64 74 68 25 2c  |("ArVis",width%,|
00009180  68 65 69 67 68 74 25 2c  32 2c 31 35 2c 6d 6f 64  |height%,2,15,mod|
00009190  65 25 2c 22 22 2c 22 22  2c 46 6c 65 6e 25 2c 46  |e%,"","",Flen%,F|
000091a0  6c 65 6e 25 29 0d 1d 7e  69 f2 76 61 72 28 22 66  |len%)..~i.var("f|
000091b0  70 74 72 22 2c a4 69 70  74 72 28 31 29 29 3a f2  |ptr",.iptr(1)):.|
000091c0  76 61 72 28 22 66 70 74  32 22 2c a4 69 70 74 72  |var("fpt2",.iptr|
000091d0  28 32 29 29 3a f2 76 61  72 28 22 77 69 64 74 22  |(2)):.var("widt"|
000091e0  2c 77 69 64 74 68 25 29  3a f2 76 61 72 28 22 68  |,width%):.var("h|
000091f0  65 69 67 22 2c 68 65 69  67 68 74 25 29 3a f2 75  |eig",height%):.u|
00009200  6e 70 61 63 6b 28 22 41  52 56 49 53 22 29 0d 1d  |npack("ARVIS")..|
00009210  88 15 49 6d 67 4d 6f 64  65 25 3d 6d 6f 64 65 25  |..ImgMode%=mode%|
00009220  3a 3d b9 0d 1d 92 05 20  0d 1d 9c 0f dd a4 70 69  |:=..... ......pi|
00009230  63 5f 43 4c 45 41 52 0d  1d a6 17 f4 20 4d 61 6b  |c_CLEAR..... Mak|
00009240  65 73 20 43 6c 65 61 72  20 69 6d 61 67 65 0d 1d  |es Clear image..|
00009250  b0 2b 69 54 79 70 65 25  3d 30 3a f4 20 53 65 74  |.+iType%=0:. Set|
00009260  20 6c 6f 77 2d 74 6f 2d  68 69 67 68 20 74 79 70  | low-to-high typ|
00009270  65 20 6f 66 20 64 61 74  61 0d 1d ba 3f 6d 61 6b  |e of data...?mak|
00009280  65 72 24 3d a4 69 73 74  72 69 6e 67 28 31 2c 2d  |er$=.istring(1,-|
00009290  31 29 3a 76 65 72 73 69  6f 6e 25 3d a4 69 34 28  |1):version%=.i4(|
000092a0  31 29 3a f4 20 43 72 65  61 74 6f 72 20 69 6e 66  |1):. Creator inf|
000092b0  6f 72 6d 61 74 69 6f 6e  0d 1d c4 42 77 69 64 74  |ormation...Bwidt|
000092c0  68 25 3d a4 69 34 28 31  29 3a 68 65 69 67 68 74  |h%=.i4(1):height|
000092d0  25 3d a4 68 65 69 67 68  74 25 3d a4 68 31 29 3a  |%=.height%=.h1):|
000092e0  62 69 74 73 25 3d a4 69  34 28 31 29 3a f4 20 57  |bits%=.i4(1):. W|
000092f0  69 64 74 68 2c 20 68 65  69 67 68 74 2c 20 62 70  |idth, height, bp|
00009300  70 0d 1d ce 7e e7 62 69  74 73 25 3c 3d 38 20 8c  |p...~.bits%<=8 .|
00009310  20 63 6f 6c 62 69 74 73  25 3d 62 69 74 73 25 3a  | colbits%=bits%:|
00009320  e3 20 63 25 3d 31 20 b8  20 32 5e 62 69 74 73 25  |. c%=1 . 2^bits%|
00009330  3a 72 67 62 25 3d a4 69  33 28 31 29 3a 49 6e 50  |:rgb%=.i3(1):InP|
00009340  61 6c 25 28 63 25 29 3d  28 72 67 62 25 80 26 46  |al%(c%)=(rgb%.&F|
00009350  46 30 30 29 2b 28 72 67  62 25 3e 3e 31 36 29 2b  |F00)+(rgb%>>16)+|
00009360  28 28 72 67 62 25 80 26  46 46 29 3c 3c 31 36 29  |((rgb%.&FF)<<16)|
00009370  3a ed 20 8b 20 63 6f 6c  62 69 74 73 25 3d 38 0d  |:. . colbits%=8.|
00009380  1d d8 24 49 6e 50 61 6c  25 28 30 29 3d 62 69 74  |..$InPal%(0)=bit|
00009390  73 25 3a f4 20 42 69 74  73 20 70 65 72 20 70 69  |s%:. Bits per pi|
000093a0  78 65 6c 0d 1d e2 3b 6d  6f 64 65 25 3d a4 6d 6f  |xel...;mode%=.mo|
000093b0  64 65 28 77 69 64 74 68  25 2c 68 65 69 67 68 74  |de(width%,height|
000093c0  25 2c 32 5e 63 6f 6c 62  69 74 73 25 29 3a f4 20  |%,2^colbits%):. |
000093d0  44 65 74 65 72 6d 69 6e  65 20 6d 6f 64 65 0d 1d  |Determine mode..|
000093e0  ec 2c e7 a4 6e 65 77 5f  69 6d 61 67 65 28 6d 6f  |.,..new_image(mo|
000093f0  64 65 25 2c 77 69 64 74  68 25 2c 68 65 69 67 68  |de%,width%,heigh|
00009400  74 25 2c 30 29 20 8b 20  3d a3 0d 1d f6 85 f2 69  |t%,0) . =......i|
00009410  6d 61 67 65 5f 69 6e 66  6f 28 22 43 6c 65 61 72  |mage_info("Clear|
00009420  22 2c 77 69 64 74 68 25  2c 68 65 69 67 68 74 25  |",width%,height%|
00009430  2c 63 6f 64 65 25 2c 62  69 74 73 25 2c 6d 6f 64  |,code%,bits%,mod|
00009440  65 25 2c 22 22 2c 22 62  79 20 22 2b 6d 61 6b 65  |e%,"","by "+make|
00009450  72 24 2b 22 20 22 2b c3  28 76 65 72 73 69 6f 6e  |r$+" "+.(version|
00009460  25 81 31 30 30 29 2b 22  2e 22 2b c2 22 30 22 2b  |%.100)+"."+."0"+|
00009470  c3 28 76 65 72 73 69 6f  6e 25 83 31 30 30 29 2c  |.(version%.100),|
00009480  32 29 2c 46 6c 65 6e 25  2c 46 6c 65 6e 25 29 0d  |2),Flen%,Flen%).|
00009490  1e 00 53 f2 76 61 72 28  22 66 70 74 72 22 2c a4  |..S.var("fptr",.|
000094a0  69 70 74 72 28 31 29 29  3a f2 76 61 72 28 22 77  |iptr(1)):.var("w|
000094b0  69 64 74 22 2c 77 69 64  74 68 25 29 3a f2 76 61  |idt",width%):.va|
000094c0  72 28 22 68 65 69 67 22  2c 68 65 69 67 68 74 25  |r("heig",height%|
000094d0  29 3a f2 75 6e 70 61 63  6b 28 22 43 4c 45 41 52  |):.unpack("CLEAR|
000094e0  22 29 0d 1e 0a 15 49 6d  67 4d 6f 64 65 25 3d 6d  |")....ImgMode%=m|
000094f0  6f 64 65 25 3a 3d b9 0d  1e 14 05 20 0d 1e 1e 59  |ode%:=..... ...Y|
00009500  dd f2 69 6d 61 67 65 5f  69 6e 66 6f 28 74 79 70  |..image_info(typ|
00009510  65 24 2c 77 69 64 74 68  25 2c 68 65 69 67 68 74  |e$,width%,height|
00009520  25 2c 63 6f 64 65 25 2c  63 6f 6c 62 69 74 73 25  |%,code%,colbits%|
00009530  2c 6d 6f 64 65 25 2c 63  6f 6d 70 72 24 2c 69 6e  |,mode%,compr$,in|
00009540  66 6f 24 2c 64 61 74 61  6c 65 6e 25 2c 70 69 63  |fo$,datalen%,pic|
00009550  6c 65 6e 25 29 0d 1e 28  26 f4 20 53 65 74 73 20  |len%)..(&. Sets |
00009560  69 6e 66 6f 72 6d 61 74  69 6f 6e 20 61 62 6f 75  |information abou|
00009570  74 20 74 68 65 20 69 6d  61 67 65 0d 1e 32 1d ea  |t the image..2..|
00009580  20 66 61 63 74 6f 72 25  2c 77 25 2c 68 25 2c 63  | factor%,w%,h%,c|
00009590  25 2c 69 25 2c 69 64 24  0d 1e 3c 46 49 6d 67 57  |%,i%,id$..<FImgW|
000095a0  25 3d 77 69 64 74 68 25  3a 49 6d 67 48 25 3d 68  |%=width%:ImgH%=h|
000095b0  65 69 67 68 74 25 3a 49  6d 67 42 69 74 73 25 3d  |eight%:ImgBits%=|
000095c0  63 6f 6c 62 69 74 73 25  3a f4 20 52 65 67 69 73  |colbits%:. Regis|
000095d0  74 65 72 20 72 65 73 6f  6c 75 74 69 6f 6e 0d 1e  |ter resolution..|
000095e0  46 1f 24 49 4d 49 66 6e  25 3d 4c 65 61 66 24 3a  |F.$IMIfn%=Leaf$:|
000095f0  24 49 4d 49 69 74 25 3d  74 79 70 65 24 0d 1e 50  |$IMIit%=type$..P|
00009600  2b e7 69 6e 66 6f 24 3d  22 22 20 8c 20 24 49 4d  |+.info$="" . $IM|
00009610  49 69 6e 25 3d 22 2d 22  20 8b 20 24 49 4d 49 69  |Iin%="-" . $IMIi|
00009620  6e 25 3d 69 6e 66 6f 24  0d 1e 5a 1b 24 49 4d 49  |n%=info$..Z.$IMI|
00009630  69 66 25 3d c3 46 6c 65  6e 25 2b 22 20 62 79 74  |if%=.Flen%+" byt|
00009640  65 73 22 0d 1e 64 6e e7  63 6f 6d 70 72 24 3d 22  |es"..dn.compr$="|
00009650  22 20 8c 20 24 49 4d 49  63 6f 25 3d 22 4e 6f 6e  |" . $IMIco%="Non|
00009660  65 20 28 30 25 29 22 20  8b 20 66 61 63 74 6f 72  |e (0%)" . factor|
00009670  25 3d 31 30 30 2d a8 28  31 30 30 2a 28 64 61 74  |%=100-.(100*(dat|
00009680  61 6c 65 6e 25 2f 70 69  63 6c 65 6e 25 29 29 3a  |alen%/piclen%)):|
00009690  24 49 4d 49 63 6f 25 3d  63 6f 6d 70 72 24 2b 22  |$IMIco%=compr$+"|
000096a0  20 28 22 2b c3 66 61 63  74 6f 72 25 2b 22 25 29  | ("+.factor%+"%)|
000096b0  22 0d 1e 6e 2c 24 49 4d  49 77 68 25 3d c3 77 69  |"..n,$IMIwh%=.wi|
000096c0  64 74 68 25 2b 22 20 78  20 22 2b c3 68 65 69 67  |dth%+" x "+.heig|
000096d0  68 74 25 2b 22 20 70 69  78 65 6c 73 22 0d 1e 78  |ht%+" pixels"..x|
000096e0  5d e7 28 77 69 64 74 68  25 3e 53 70 72 57 25 29  |].(width%>SprW%)|
000096f0  84 28 68 65 69 67 68 74  25 3e 53 70 72 48 25 29  |.(height%>SprH%)|
00009700  20 8c 20 24 49 4d 49 73  63 25 3d 22 74 6f 20 22  | . $IMIsc%="to "|
00009710  2b c3 53 70 72 57 25 2b  22 20 78 20 22 2b c3 53  |+.SprW%+" x "+.S|
00009720  70 72 48 25 20 8b 20 24  49 4d 49 73 63 25 3d 22  |prH% . $IMIsc%="|
00009730  46 75 6c 6c 20 73 69 7a  65 22 0d 1e 82 43 24 49  |Full size"...C$I|
00009740  4d 49 62 70 25 3d c3 28  63 6f 6c 62 69 74 73 25  |MIbp%=.(colbits%|
00009750  29 2b 22 2d 62 69 74 20  22 2b c1 22 63 6f 6c 6f  |)+"-bit "+."colo|
00009760  75 72 20 20 67 72 65 79  20 20 20 20 52 47 42 22  |ur  grey    RGB"|
00009770  2c 31 2b 63 6f 64 65 25  2a 38 2c 38 29 0d 1e 8c  |,1+code%*8,8)...|
00009780  4a f2 6d 6f 64 65 5f 69  6e 66 6f 28 6d 6f 64 65  |J.mode_info(mode|
00009790  25 2c 77 25 2c 68 25 2c  63 25 29 3a 24 49 4d 49  |%,w%,h%,c%):$IMI|
000097a0  73 6d 25 3d c3 6d 6f 64  65 25 2b 22 20 28 22 2b  |sm%=.mode%+" ("+|
000097b0  c3 77 25 2b 22 78 22 2b  c3 68 25 2b 22 78 22 2b  |.w%+"x"+.h%+"x"+|
000097c0  c3 63 25 2b 22 29 22 0d  1e 96 05 e1 0d 1e a0 05  |.c%+")".........|
000097d0  20 0d 1e aa 16 dd f2 6e  65 77 5f 69 6d 61 67 65  | ......new_image|
000097e0  5f 77 69 6e 64 6f 77 0d  1e b4 41 f4 20 43 72 65  |_window...A. Cre|
000097f0  61 74 65 73 20 6e 65 77  20 69 6d 61 67 65 20 77  |ates new image w|
00009800  69 6e 64 6f 77 20 6f 66  20 61 70 70 72 6f 70 69  |indow of appropi|
00009810  61 74 65 20 73 69 7a 65  20 69 6e 20 63 75 72 72  |ate size in curr|
00009820  65 6e 74 20 6d 6f 64 65  0d 1e be 08 ea 20 77 25  |ent mode..... w%|
00009830  0d 1e c8 24 f2 61 75 74  6f 7a 6f 6f 6d 3a f4 20  |...$.autozoom:. |
00009840  41 75 74 6f 20 7a 6f 6f  6d 20 69 66 20 65 6e 61  |Auto zoom if ena|
00009850  62 6c 65 64 0d 1e d2 3f  21 62 6c 6f 63 6b 3d 77  |bled...?!block=w|
00009860  69 6e 5f 69 6d 67 25 3a  c8 99 20 57 44 65 6c 65  |in_img%:.. WDele|
00009870  74 65 57 25 2c 2c 62 6c  6f 63 6b 3a f4 20 44 65  |teW%,,block:. De|
00009880  6c 65 74 65 20 6f 6c 64  20 64 65 66 69 6e 69 74  |lete old definit|
00009890  69 6f 6e 0d 1e dc 91 77  25 3d 77 69 6e 64 6f 77  |ion....w%=window|
000098a0  31 3a 21 77 25 3d 30 3a  77 25 21 34 3d 30 3a 77  |1:!w%=0:w%!4=0:w|
000098b0  25 21 38 3d a4 73 70 72  57 3a 77 25 21 31 32 3d  |%!8=.sprW:w%!12=|
000098c0  a4 73 70 72 48 3a 77 25  21 32 30 3d a4 73 70 72  |.sprH:w%!20=.spr|
000098d0  48 3a 77 25 21 34 30 3d  30 3a 77 25 21 34 34 3d  |H:w%!40=0:w%!44=|
000098e0  30 3a 77 25 21 34 38 3d  a4 73 70 72 57 2a 5a 6f  |0:w%!48=.sprW*Zo|
000098f0  6f 6d 58 3a 77 25 21 35  32 3d a4 73 70 72 48 2a  |omX:w%!52=.sprH*|
00009900  5a 6f 6f 6d 59 3a 24 49  4d 57 74 74 25 3d a4 69  |ZoomY:$IMWtt%=.i|
00009910  6d 61 67 65 5f 74 69 74  6c 65 3a f4 20 52 65 77  |mage_title:. Rew|
00009920  72 69 74 65 0d 1e e6 38  c8 99 20 57 43 72 65 61  |rite...8.. WCrea|
00009930  74 65 57 25 2c 2c 77 69  6e 64 6f 77 31 20 b8 20  |teW%,,window1 . |
00009940  77 69 6e 5f 69 6d 67 25  3a f4 20 43 72 65 61 74  |win_img%:. Creat|
00009950  65 20 6e 65 77 20 77 69  6e 64 6f 77 0d 1e f0 23  |e new window...#|
00009960  e7 49 6d 67 20 8c 20 f2  6f 70 65 6e 5f 77 69 6e  |.Img . .open_win|
00009970  64 6f 77 28 77 69 6e 5f  69 6d 67 25 2c 30 29 0d  |dow(win_img%,0).|
00009980  1e fa 05 e1 0d 1f 04 05  20 0d 1f 0e 11 dd a4 69  |........ ......i|
00009990  6d 61 67 65 5f 74 69 74  6c 65 0d 1f 18 3a f4 20  |mage_title...:. |
000099a0  52 65 74 75 72 6e 73 20  69 6d 61 67 65 20 77 69  |Returns image wi|
000099b0  6e 64 6f 77 20 74 69 74  6c 65 20 64 65 70 65 6e  |ndow title depen|
000099c0  64 69 6e 67 20 6f 6e 20  7a 6f 6f 6d 20 66 61 63  |ding on zoom fac|
000099d0  74 6f 72 73 0d 1f 22 0c  ea 20 74 69 74 6c 65 24  |tors..".. title$|
000099e0  0d 1f 2c 19 74 69 74 6c  65 24 3d 22 49 6d 61 67  |..,.title$="Imag|
000099f0  65 22 3a f4 20 42 61 73  65 0d 1f 36 4b e7 5a 6f  |e":. Base..6K.Zo|
00009a00  6f 6d 58 3c 31 20 8c 20  74 69 74 6c 65 24 2b 3d  |omX<1 . title$+=|
00009a10  22 20 78 2f 22 2b c3 28  31 2f 5a 6f 6f 6d 58 29  |" x/"+.(1/ZoomX)|
00009a20  20 8b 20 e7 5a 6f 6f 6d  58 3e 31 20 8c 20 74 69  | . .ZoomX>1 . ti|
00009a30  74 6c 65 24 2b 3d 22 20  78 2a 22 2b c3 28 5a 6f  |tle$+=" x*"+.(Zo|
00009a40  6f 6d 58 29 0d 1f 40 4b  e7 5a 6f 6f 6d 59 3c 31  |omX)..@K.ZoomY<1|
00009a50  20 8c 20 74 69 74 6c 65  24 2b 3d 22 20 79 2f 22  | . title$+=" y/"|
00009a60  2b c3 28 31 2f 5a 6f 6f  6d 59 29 20 8b 20 e7 5a  |+.(1/ZoomY) . .Z|
00009a70  6f 6f 6d 59 3e 31 20 8c  20 74 69 74 6c 65 24 2b  |oomY>1 . title$+|
00009a80  3d 22 20 79 2a 22 2b c3  28 5a 6f 6f 6d 59 29 0d  |=" y*"+.(ZoomY).|
00009a90  1f 4a 15 3d 74 69 74 6c  65 24 2b 22 20 22 2b 4c  |.J.=title$+" "+L|
00009aa0  6f 61 64 24 0d 1f 54 05  20 0d 1f 5e 28 dd a4 6e  |oad$..T. ..^(..n|
00009ab0  65 77 5f 69 6d 61 67 65  28 6d 6f 64 65 25 2c 78  |ew_image(mode%,x|
00009ac0  72 65 73 25 2c 79 72 65  73 25 2c 72 6f 6f 6d 25  |res%,yres%,room%|
00009ad0  29 0d 1f 68 41 f4 20 43  72 65 61 74 65 73 20 72  |)..hA. Creates r|
00009ae0  6f 6f 6d 20 66 6f 72 20  70 69 63 74 75 72 65 20  |oom for picture |
00009af0  73 70 72 69 74 65 20 6f  66 20 73 70 65 63 69 66  |sprite of specif|
00009b00  69 63 20 72 65 73 6f 6c  75 74 69 6f 6e 2f 6d 6f  |ic resolution/mo|
00009b10  64 65 0d 1f 72 47 f4 20  61 6e 64 20 70 61 72 74  |de..rG. and part|
00009b20  69 74 69 6f 6e 73 20 6d  65 6d 6f 72 79 20 28 61  |itions memory (a|
00009b30  74 20 6c 65 61 73 74 20  72 6f 6f 6d 25 20 66 72  |t least room% fr|
00009b40  6f 6d 20 73 70 72 69 74  65 20 73 74 61 72 74 20  |om sprite start |
00009b50  74 6f 20 6c 6f 6d 65 6d  29 0d 1f 7c 2d f4 20 52  |to lomem)..|-. R|
00009b60  65 74 75 72 6e 73 20 54  52 55 45 20 69 66 20 61  |eturns TRUE if a|
00009b70  6c 6c 20 69 73 20 77 65  6c 6c 2c 20 65 6c 73 65  |ll is well, else|
00009b80  20 46 41 4c 53 45 0d 1f  86 38 ea 20 62 69 74 73  | FALSE...8. bits|
00009b90  25 2c 77 6f 72 64 73 25  2c 65 6e 64 25 2c 73 69  |%,words%,end%,si|
00009ba0  7a 65 25 2c 63 6f 6c 62  69 74 73 25 2c 73 70 72  |ze%,colbits%,spr|
00009bb0  64 6f 66 66 25 2c 73 70  72 66 6f 66 66 25 0d 1f  |doff%,sprfoff%..|
00009bc0  90 3a 79 72 65 73 25 3d  79 72 65 73 25 2a 28 59  |.:yres%=yres%*(Y|
00009bd0  4d 75 6c 25 2f 59 44 69  76 25 29 3a f4 20 41 70  |Mul%/YDiv%):. Ap|
00009be0  70 6c 79 20 73 63 61 6c  69 6e 67 20 66 61 63 74  |ply scaling fact|
00009bf0  6f 72 20 66 6f 72 20 59  0d 1f 9a 3a 78 72 65 73  |or for Y...:xres|
00009c00  25 3d 78 72 65 73 25 2a  28 58 4d 75 6c 25 2f 58  |%=xres%*(XMul%/X|
00009c10  44 69 76 25 29 3a f4 20  41 70 70 6c 79 20 73 63  |Div%):. Apply sc|
00009c20  61 6c 69 6e 67 20 66 61  63 74 6f 72 20 66 6f 72  |aling factor for|
00009c30  20 58 0d 1f a4 60 e7 28  79 72 65 73 25 3c 3d 30  | X...`.(yres%<=0|
00009c40  29 84 28 78 72 65 73 25  3c 3d 30 29 20 8c 20 f2  |).(xres%<=0) . .|
00009c50  65 72 72 6f 72 28 2d 31  2c 22 54 68 65 72 65 20  |error(-1,"There |
00009c60  61 72 65 20 6e 6f 20 70  69 78 65 6c 73 20 6c 65  |are no pixels le|
00009c70  66 74 20 77 69 74 68 20  74 68 65 20 63 75 72 72  |ft with the curr|
00009c80  65 6e 74 20 73 63 61 6c  69 6e 67 20 21 22 29 3a  |ent scaling !"):|
00009c90  3d a3 0d 1f ae 32 63 6f  6c 62 69 74 73 25 3d 32  |=....2colbits%=2|
00009ca0  5e a4 6d 6f 64 65 5f 76  61 72 28 6d 6f 64 65 25  |^.mode_var(mode%|
00009cb0  2c 39 29 3a f4 20 42 69  74 73 20 70 65 72 20 70  |,9):. Bits per p|
00009cc0  69 78 65 6c 0d 1f b8 3f  62 69 74 73 25 3d 78 72  |ixel...?bits%=xr|
00009cd0  65 73 25 2a 63 6f 6c 62  69 74 73 25 3a 62 69 74  |es%*colbits%:bit|
00009ce0  73 72 6f 74 25 3d 79 72  65 73 25 2a 63 6f 6c 62  |srot%=yres%*colb|
00009cf0  69 74 73 25 3a f4 20 42  69 74 73 20 70 65 72 20  |its%:. Bits per |
00009d00  72 6f 77 0d 1f c2 43 77  6f 72 64 73 25 3d 28 62  |row...Cwords%=(b|
00009d10  69 74 73 25 2b 33 31 29  3e 3e 35 3a 77 6f 72 64  |its%+31)>>5:word|
00009d20  73 72 6f 74 25 3d 28 62  69 74 73 72 6f 74 25 2b  |srot%=(bitsrot%+|
00009d30  33 31 29 3e 3e 35 3a f4  20 57 6f 72 64 73 20 70  |31)>>5:. Words p|
00009d40  65 72 20 72 6f 77 0d 1f  cc 2c 73 70 72 64 6f 66  |er row...,sprdof|
00009d50  66 25 3d 34 34 3a 73 70  72 66 6f 66 66 25 3d 53  |f%=44:sprfoff%=S|
00009d60  70 72 69 74 65 25 21 38  3a f4 20 4f 66 66 73 65  |prite%!8:. Offse|
00009d70  74 73 0d 1f d6 29 73 70  74 72 25 3d 53 70 72 69  |ts...)sptr%=Spri|
00009d80  74 65 25 2b 73 70 72 66  6f 66 66 25 3a f4 20 53  |te%+sprfoff%:. S|
00009d90  70 72 69 74 65 20 73 74  61 72 74 0d 1f e0 46 73  |prite start...Fs|
00009da0  69 7a 65 75 70 25 3d 77  6f 72 64 73 25 2a 79 72  |izeup%=words%*yr|
00009db0  65 73 25 3c 3c 32 3a 73  69 7a 65 72 6f 74 25 3d  |es%<<2:sizerot%=|
00009dc0  77 6f 72 64 73 72 6f 74  25 2a 78 72 65 73 25 3c  |wordsrot%*xres%<|
00009dd0  3c 32 3a f4 20 53 70 72  69 74 65 20 73 69 7a 65  |<2:. Sprite size|
00009de0  73 0d 1f ea 4b 64 61 74  61 73 69 7a 65 25 3d a4  |s...Kdatasize%=.|
00009df0  6d 61 78 28 73 69 7a 65  75 70 25 2c 73 69 7a 65  |max(sizeup%,size|
00009e00  72 6f 74 25 29 3a f4 20  4d 61 78 69 6d 75 6d 20  |rot%):. Maximum |
00009e10  73 70 72 69 74 65 20 73  69 7a 65 20 28 6e 6f 72  |sprite size (nor|
00009e20  6d 61 6c 2f 72 6f 74 61  74 65 64 29 0d 1f f4 38  |mal/rotated)...8|
00009e30  64 61 74 61 73 69 7a 65  25 3d a4 6d 61 78 28 64  |datasize%=.max(d|
00009e40  61 74 61 73 69 7a 65 25  2c 72 6f 6f 6d 25 29 3a  |atasize%,room%):|
00009e50  f4 20 4d 6f 72 65 20 72  6f 6f 6d 20 6e 65 65 64  |. More room need|
00009e60  65 64 20 3f 0d 1f fe 46  65 6e 64 25 3d 73 70 74  |ed ?...Fend%=spt|
00009e70  72 25 2b 73 70 72 64 6f  66 66 25 2b 64 61 74 61  |r%+sprdoff%+data|
00009e80  73 69 7a 65 25 3a f4 20  41 64 64 72 65 73 73 20  |size%:. Address |
00009e90  6f 66 20 66 69 72 73 74  20 62 79 74 65 20 61 66  |of first byte af|
00009ea0  74 65 72 20 73 70 72 69  74 65 0d 20 08 84 e7 28  |ter sprite. ...(|
00009eb0  65 6e 64 25 2b 31 30 32  34 29 3e 48 69 6d 65 6d  |end%+1024)>Himem|
00009ec0  25 20 8c 20 f2 65 72 72  6f 72 28 2d 31 2c 22 49  |% . .error(-1,"I|
00009ed0  20 63 61 6e 6e 6f 74 20  68 61 6e 64 6c 65 20 74  | cannot handle t|
00009ee0  68 69 73 20 69 6d 61 67  65 2e 20 49 20 6e 65 65  |his image. I nee|
00009ef0  64 20 61 62 6f 75 74 20  22 2b c3 28 28 65 6e 64  |d about "+.((end|
00009f00  25 2b 31 30 32 34 2d 48  69 6d 65 6d 25 2b 31 30  |%+1024-Himem%+10|
00009f10  32 33 29 81 31 30 32 34  29 2b 22 4b 20 6d 6f 72  |23).1024)+"K mor|
00009f20  65 20 6d 65 6d 6f 72 79  2e 22 29 3a 3d a3 0d 20  |e memory."):=.. |
00009f30  12 34 73 70 74 72 25 21  30 3d 73 70 72 64 6f 66  |.4sptr%!0=sprdof|
00009f40  66 25 2b 73 69 7a 65 75  70 25 3a f4 20 4f 66 66  |f%+sizeup%:. Off|
00009f50  73 65 74 20 74 6f 20 6e  65 78 74 20 73 70 72 69  |set to next spri|
00009f60  74 65 0d 20 1c 2c f2 73  70 72 69 74 65 5f 68 65  |te. .,.sprite_he|
00009f70  61 64 65 72 28 31 29 3a  f4 20 55 70 64 61 74 65  |ader(1):. Update|
00009f80  20 73 70 72 69 74 65 20  68 65 61 64 65 72 0d 20  | sprite header. |
00009f90  26 30 24 28 73 70 74 72  25 2b 34 29 3d 49 6d 61  |&0$(sptr%+4)=Ima|
00009fa0  67 65 53 70 72 24 2b c4  31 32 2c bd 30 29 3a f4  |geSpr$+.12,.0):.|
00009fb0  20 53 70 72 69 74 65 27  73 20 6e 61 6d 65 0d 20  | Sprite's name. |
00009fc0  30 28 73 70 74 72 25 21  31 36 3d 77 6f 72 64 73  |0(sptr%!16=words|
00009fd0  25 2d 31 3a f4 20 57 69  64 74 68 20 69 6e 20 77  |%-1:. Width in w|
00009fe0  6f 72 64 73 2d 31 0d 20  3a 2c 73 70 74 72 25 21  |ords-1. :,sptr%!|
00009ff0  32 30 3d 79 72 65 73 25  2d 31 3a f4 20 48 65 69  |20=yres%-1:. Hei|
0000a000  67 68 74 20 69 6e 20 73  63 61 6e 6c 69 6e 65 73  |ght in scanlines|
0000a010  2d 31 0d 20 44 3d 73 70  74 72 25 21 32 34 3d 30  |-1. D=sptr%!24=0|
0000a020  3a 73 70 74 72 25 21 32  38 3d 33 31 2d 28 77 6f  |:sptr%!28=31-(wo|
0000a030  72 64 73 25 2a 33 32 2d  62 69 74 73 25 29 3a f4  |rds%*32-bits%):.|
0000a040  20 53 74 61 72 74 2f 65  6e 64 20 62 69 74 73 0d  | Start/end bits.|
0000a050  20 4e 44 73 70 74 72 25  21 33 32 3d 73 70 72 64  | NDsptr%!32=sprd|
0000a060  6f 66 66 25 3a 73 70 74  72 25 21 33 36 3d 73 70  |off%:sptr%!36=sp|
0000a070  74 72 25 21 33 32 3a f4  20 4f 66 66 73 65 74 20  |tr%!32:. Offset |
0000a080  74 6f 20 73 70 72 69 74  65 20 64 61 74 61 2f 6d  |to sprite data/m|
0000a090  61 73 6b 0d 20 58 23 73  70 74 72 25 21 34 30 3d  |ask. X#sptr%!40=|
0000a0a0  6d 6f 64 65 25 3a f4 20  4d 6f 64 65 20 6f 66 20  |mode%:. Mode of |
0000a0b0  73 70 72 69 74 65 0d 20  62 48 c8 99 20 22 54 72  |sprite. bH.. "Tr|
0000a0c0  61 6e 73 6c 61 74 6f 72  5f 57 72 69 74 65 57 6f  |anslator_WriteWo|
0000a0d0  72 64 73 22 2c 73 70 74  72 25 2b 73 70 72 64 6f  |rds",sptr%+sprdo|
0000a0e0  66 66 25 2c 30 2c 73 69  7a 65 75 70 25 3e 3e 32  |ff%,0,sizeup%>>2|
0000a0f0  3a f4 20 57 69 70 65 20  73 70 72 69 74 65 0d 20  |:. Wipe sprite. |
0000a100  6c 34 4c 6f 6d 65 6d 25  3d 65 6e 64 25 3a f4 20  |l4Lomem%=end%:. |
0000a110  45 6e 64 20 6f 66 20 73  70 72 69 74 65 2c 20 73  |End of sprite, s|
0000a120  74 61 72 74 20 6f 66 20  66 72 65 65 20 73 70 61  |tart of free spa|
0000a130  63 65 0d 20 76 39 f2 76  61 72 28 22 6c 6f 6d 65  |ce. v9.var("lome|
0000a140  22 2c 4c 6f 6d 65 6d 25  29 3a f2 76 61 72 28 22  |",Lomem%):.var("|
0000a150  68 69 6d 65 22 2c 48 69  6d 65 6d 25 29 3a f4 20  |hime",Himem%):. |
0000a160  4d 6f 64 75 6c 65 20 69  6e 66 6f 0d 20 80 28 f2  |Module info. .(.|
0000a170  76 61 72 28 22 72 6f 77  6c 22 2c 77 6f 72 64 73  |var("rowl",words|
0000a180  25 3c 3c 32 29 3a f4 20  4d 6f 64 75 6c 65 20 69  |%<<2):. Module i|
0000a190  6e 66 6f 0d 20 8a 27 f2  76 61 72 28 22 6f 75 74  |nfo. .'.var("out|
0000a1a0  62 22 2c 63 6f 6c 62 69  74 73 25 29 3a f4 20 4d  |b",colbits%):. M|
0000a1b0  6f 64 75 6c 65 20 69 6e  66 6f 0d 20 94 2d f2 76  |odule info. .-.v|
0000a1c0  61 72 28 22 73 70 72 69  22 2c 73 70 74 72 25 2b  |ar("spri",sptr%+|
0000a1d0  73 70 74 72 25 21 33 32  29 3a f4 20 4d 6f 64 75  |sptr%!32):. Modu|
0000a1e0  6c 65 20 69 6e 66 6f 0d  20 9e 4a 53 70 72 43 6f  |le info. .JSprCo|
0000a1f0  6c 62 69 74 73 25 3d 63  6f 6c 62 69 74 73 25 3a  |lbits%=colbits%:|
0000a200  53 70 72 50 74 72 25 3d  73 70 74 72 25 3a 53 70  |SprPtr%=sptr%:Sp|
0000a210  72 4d 6f 64 65 25 3d 6d  6f 64 65 25 3a f4 20 47  |rMode%=mode%:. G|
0000a220  6c 6f 62 61 6c 20 73 70  72 69 74 65 20 69 6e 66  |lobal sprite inf|
0000a230  6f 0d 20 a8 44 53 70 72  57 25 3d 78 72 65 73 25  |o. .DSprW%=xres%|
0000a240  3a 53 70 72 48 25 3d 79  72 65 73 25 3a f4 20 52  |:SprH%=yres%:. R|
0000a250  65 6d 65 6d 62 65 72 20  73 70 72 69 74 65 27 73  |emember sprite's|
0000a260  20 72 65 73 6f 6c 75 74  69 6f 6e 20 69 6e 20 70  | resolution in p|
0000a270  69 78 65 6c 73 0d 20 b2  49 73 69 7a 65 25 3d 28  |ixels. .Isize%=(|
0000a280  28 48 69 6d 65 6d 25 2d  4c 6f 6d 65 6d 25 29 81  |(Himem%-Lomem%).|
0000a290  32 35 36 29 2a 32 35 36  3a f4 20 53 69 7a 65 20  |256)*256:. Size |
0000a2a0  6f 66 20 66 72 65 65 20  73 70 61 63 65 20 69 6e  |of free space in|
0000a2b0  20 73 70 72 69 74 65 20  62 75 66 66 65 72 0d 20  | sprite buffer. |
0000a2c0  bc 06 3d b9 0d 20 c6 05  20 0d 20 d0 1a dd f2 73  |..=.. .. . ....s|
0000a2d0  70 72 69 74 65 5f 68 65  61 64 65 72 28 63 6f 64  |prite_header(cod|
0000a2e0  65 25 29 0d 20 da 48 f4  20 49 6e 69 74 69 61 6c  |e%). .H. Initial|
0000a2f0  69 73 65 73 20 28 30 29  20 6f 72 20 75 70 64 61  |ises (0) or upda|
0000a300  74 65 73 20 28 31 29 20  73 70 72 69 74 65 20 61  |tes (1) sprite a|
0000a310  72 65 61 20 68 65 61 64  65 72 20 28 73 70 72 69  |rea header (spri|
0000a320  74 65 20 63 68 61 6e 67  65 64 29 0d 20 e4 0e c8  |te changed). ...|
0000a330  8e 20 63 6f 64 65 25 20  ca 0d 20 ee 36 20 c9 20  |. code% .. .6 . |
0000a340  30 20 3a 20 53 70 72 69  74 65 25 21 30 3d 53 70  |0 : Sprite%!0=Sp|
0000a350  72 69 74 65 73 69 7a 65  25 3a f4 20 53 69 7a 65  |ritesize%:. Size|
0000a360  20 6f 66 20 73 70 72 69  74 65 20 61 72 65 61 0d  | of sprite area.|
0000a370  20 f8 44 20 20 20 20 20  20 20 20 20 20 53 70 72  | .D          Spr|
0000a380  69 74 65 25 21 34 3d 30  3a 53 70 72 69 74 65 25  |ite%!4=0:Sprite%|
0000a390  21 38 3d 31 36 3a 53 70  72 69 74 65 25 21 31 32  |!8=16:Sprite%!12|
0000a3a0  3d 31 36 3a f4 20 4e 6f  20 73 70 72 69 74 65 20  |=16:. No sprite |
0000a3b0  79 65 74 0d 21 02 3f 20  20 20 20 20 20 20 20 20  |yet.!.?         |
0000a3c0  20 48 69 6d 65 6d 25 3d  53 70 72 69 74 65 25 2b  | Himem%=Sprite%+|
0000a3d0  53 70 72 69 74 65 73 69  7a 65 25 3a f4 20 45 6e  |Spritesize%:. En|
0000a3e0  64 20 6f 66 20 73 70 72  69 74 65 20 62 75 66 66  |d of sprite buff|
0000a3f0  65 72 0d 21 0c 40 20 c9  20 31 20 3a 20 53 70 72  |er.!.@ . 1 : Spr|
0000a400  69 74 65 25 21 34 3d 31  3a 53 70 72 69 74 65 25  |ite%!4=1:Sprite%|
0000a410  21 31 32 3d 53 70 72 69  74 65 25 21 38 2b 21 28  |!12=Sprite%!8+!(|
0000a420  53 70 72 69 74 65 25 2b  53 70 72 69 74 65 25 21  |Sprite%+Sprite%!|
0000a430  38 29 0d 21 16 05 cb 0d  21 20 05 e1 0d 21 2a 05  |8).!....! ...!*.|
0000a440  20 0d 21 34 0d dd f2 68  6f 75 72 5f 6f 6e 0d 21  | .!4...hour_on.!|
0000a450  3e 18 f4 20 54 75 72 6e  73 20 68 6f 75 72 67 6c  |>.. Turns hourgl|
0000a460  61 73 73 20 6f 6e 0d 21  48 1a c8 99 20 22 48 6f  |ass on.!H... "Ho|
0000a470  75 72 67 6c 61 73 73 5f  53 74 61 72 74 22 2c 34  |urglass_Start",4|
0000a480  0d 21 52 05 e1 0d 21 5c  05 20 0d 21 66 0e dd f2  |.!R...!\. .!f...|
0000a490  68 6f 75 72 5f 6f 66 66  0d 21 70 19 f4 20 54 75  |hour_off.!p.. Tu|
0000a4a0  72 6e 73 20 68 6f 75 72  67 6c 61 73 73 20 6f 66  |rns hourglass of|
0000a4b0  66 0d 21 7a 16 c8 99 20  22 48 6f 75 72 67 6c 61  |f.!z... "Hourgla|
0000a4c0  73 73 5f 4f 66 66 22 0d  21 84 05 e1 0d 21 8e 05  |ss_Off".!....!..|
0000a4d0  20 0d 21 98 1a dd f2 65  64 69 74 5f 70 61 72 74  | .!....edit_part|
0000a4e0  28 73 69 7a 65 2c 70 61  72 74 29 0d 21 a2 37 f4  |(size,part).!.7.|
0000a4f0  20 45 64 69 74 73 20 69  6d 61 67 65 20 73 69 7a  | Edits image siz|
0000a500  65 20 61 6e 64 20 70 61  72 74 20 28 69 66 20 65  |e and part (if e|
0000a510  6e 61 62 6c 65 64 20 77  69 74 68 20 66 6c 61 67  |nabled with flag|
0000a520  73 29 0d 21 ac 43 f4 20  52 65 74 75 72 6e 73 20  |s).!.C. Returns |
0000a530  77 69 74 68 20 28 73 63  61 6c 65 64 29 20 69 6d  |with (scaled) im|
0000a540  61 67 65 20 69 6e 20 67  72 61 70 68 69 63 73 20  |age in graphics |
0000a550  77 69 6e 64 6f 77 20 72  65 61 64 79 20 66 6f 72  |window ready for|
0000a560  20 73 61 76 65 0d 21 b6  41 ea 20 5f 25 2c 6f 78  | save.!.A. _%,ox|
0000a570  25 2c 6f 79 25 2c 78 25  2c 79 25 2c 62 75 74 25  |%,oy%,x%,y%,but%|
0000a580  2c 78 31 25 2c 78 32 25  2c 79 31 25 2c 79 32 25  |,x1%,x2%,y1%,y2%|
0000a590  2c 78 73 25 2c 79 73 25  2c 73 69 7a 65 78 25 2c  |,xs%,ys%,sizex%,|
0000a5a0  73 69 7a 65 79 25 0d 21  c0 22 ea 20 73 70 72 57  |sizey%.!.". sprW|
0000a5b0  25 2c 73 70 72 48 25 2c  70 74 72 24 2c 72 30 2c  |%,sprH%,ptr$,r0,|
0000a5c0  72 31 2c 72 32 2c 72 33  0d 21 ca 93 21 70 6f 69  |r1,r2,r3.!..!poi|
0000a5d0  6e 74 65 72 3d 35 31 32  3a 70 6f 69 6e 74 65 72  |nter=512:pointer|
0000a5e0  21 34 3d 30 3a 70 6f 69  6e 74 65 72 21 38 3d 31  |!4=0:pointer!8=1|
0000a5f0  36 3a 70 6f 69 6e 74 65  72 21 31 32 3d 31 36 3a  |6:pointer!12=16:|
0000a600  70 74 72 24 3d 22 70 74  72 22 3a c8 99 20 22 4f  |ptr$="ptr":.. "O|
0000a610  53 5f 53 70 72 69 74 65  4f 70 22 2c 31 35 2b 32  |S_SpriteOp",15+2|
0000a620  35 36 2c 70 6f 69 6e 74  65 72 2c 70 74 72 24 2c  |56,pointer,ptr$,|
0000a630  30 2c 33 32 2c 33 32 2c  31 31 3a f4 20 49 6e 69  |0,32,32,11:. Ini|
0000a640  74 69 61 6c 69 73 65 20  70 6f 69 6e 74 65 72 20  |tialise pointer |
0000a650  73 70 72 69 74 65 20 61  72 65 61 0d 21 d4 b5 c8  |sprite area.!...|
0000a660  99 20 4f 53 53 70 6f 70  25 2c 36 30 2b 32 35 36  |. OSSpop%,60+256|
0000a670  2c 70 6f 69 6e 74 65 72  2c 70 74 72 24 2c 30 20  |,pointer,ptr$,0 |
0000a680  b8 20 72 30 2c 72 31 2c  72 32 2c 72 33 3a ec 20  |. r0,r1,r2,r3:. |
0000a690  30 2c 31 32 34 3a e6 30  2c 33 3a f0 31 2c 30 2c  |0,124:.0,3:.1,0,|
0000a6a0  2d 33 32 3a f0 30 2c 30  2c 33 32 3a f0 31 2c 34  |-32:.0,0,32:.1,4|
0000a6b0  30 2c 30 3a f0 30 2c 2d  34 30 2c 30 3a f0 31 2c  |0,0:.0,-40,0:.1,|
0000a6c0  36 30 2c 2d 33 30 3a f0  30 2c 2d 36 30 2c 32 36  |60,-30:.0,-60,26|
0000a6d0  3a f0 31 2c 36 30 2c 2d  33 30 3a c8 99 20 4f 53  |:.1,60,-30:.. OS|
0000a6e0  53 70 6f 70 25 2c 72 30  2c 72 31 2c 72 32 2c 72  |Spop%,r0,r1,r2,r|
0000a6f0  33 3a f4 20 50 6c 6f 74  20 61 72 72 6f 77 20 69  |3:. Plot arrow i|
0000a700  6e 20 70 6f 69 6e 74 65  72 20 73 70 72 69 74 65  |n pointer sprite|
0000a710  0d 21 de 3f ef 32 34 2c  30 3b 30 3b 53 63 72 57  |.!.?.24,0;0;ScrW|
0000a720  25 3b 53 63 72 48 25 3b  3a f4 20 57 68 6f 6c 65  |%;ScrH%;:. Whole|
0000a730  20 73 63 72 65 65 6e 20  77 69 6e 64 6f 77 20 66  | screen window f|
0000a740  6f 72 20 69 6d 61 67 65  20 73 70 72 69 74 65 0d  |or image sprite.|
0000a750  21 e8 3a 73 70 72 57 25  3d a4 73 70 72 57 3a 73  |!.:sprW%=.sprW:s|
0000a760  70 72 48 25 3d a4 73 70  72 48 3a f4 20 54 72 75  |prH%=.sprH:. Tru|
0000a770  65 20 4f 53 20 73 69 7a  65 20 6f 66 20 69 6d 61  |e OS size of ima|
0000a780  67 65 20 73 70 72 69 74  65 0d 21 f2 2c 78 73 25  |ge sprite.!.,xs%|
0000a790  3d 32 5e a4 6d 6f 64 65  5f 76 61 72 28 eb 2c 34  |=2^.mode_var(.,4|
0000a7a0  29 3a f4 20 58 20 63 6f  6f 72 64 69 6e 61 74 65  |):. X coordinate|
0000a7b0  20 73 74 65 70 0d 21 fc  2c 79 73 25 3d 32 5e a4  | step.!.,ys%=2^.|
0000a7c0  6d 6f 64 65 5f 76 61 72  28 eb 2c 35 29 3a f4 20  |mode_var(.,5):. |
0000a7d0  59 20 63 6f 6f 72 64 69  6e 61 74 65 20 73 74 65  |Y coordinate ste|
0000a7e0  70 0d 22 06 3e e7 53 63  72 57 25 3e 73 70 72 57  |p.".>.ScrW%>sprW|
0000a7f0  25 20 8c 20 73 69 7a 65  78 25 3d 73 70 72 57 25  |% . sizex%=sprW%|
0000a800  20 8b 20 73 69 7a 65 78  25 3d 53 63 72 57 25 3a  | . sizex%=ScrW%:|
0000a810  f4 20 49 6e 69 74 69 61  6c 20 77 69 64 74 68 0d  |. Initial width.|
0000a820  22 10 3f e7 53 63 72 48  25 3e 73 70 72 48 25 20  |".?.ScrH%>sprH% |
0000a830  8c 20 73 69 7a 65 79 25  3d 73 70 72 48 25 20 8b  |. sizey%=sprH% .|
0000a840  20 73 69 7a 65 79 25 3d  53 63 72 48 25 3a f4 20  | sizey%=ScrH%:. |
0000a850  49 6e 69 74 69 61 6c 20  68 65 69 67 68 74 0d 22  |Initial height."|
0000a860  1a 4b 21 61 72 67 25 3d  73 69 7a 65 78 25 3a 61  |.K!arg%=sizex%:a|
0000a870  72 67 25 21 34 3d 73 69  7a 65 79 25 3a 61 72 67  |rg%!4=sizey%:arg|
0000a880  25 21 38 3d 73 70 72 57  25 3a 61 72 67 25 21 31  |%!8=sprW%:arg%!1|
0000a890  32 3d 73 70 72 48 25 3a  f4 20 49 6e 69 74 69 61  |2=sprH%:. Initia|
0000a8a0  6c 20 73 63 61 6c 69 6e  67 0d 22 24 2f da 3a f2  |l scaling."$/.:.|
0000a8b0  70 6c 6f 74 5f 69 6d 61  67 65 28 30 2c 30 2c 30  |plot_image(0,0,0|
0000a8c0  2c 61 72 67 25 29 3a f4  20 49 6e 69 74 69 61 6c  |,arg%):. Initial|
0000a8d0  20 64 69 73 70 6c 61 79  0d 22 2e 0b e7 73 69 7a  | display."...siz|
0000a8e0  65 20 8c 0d 22 38 3f 20  c8 97 20 c8 93 20 30 2c  |e .."8? .. .. 0,|
0000a8f0  30 2c 53 63 72 57 25 2d  78 73 25 2c 53 63 72 48  |0,ScrW%-xs%,ScrH|
0000a900  25 2d 79 73 25 3a f4 20  52 65 73 74 72 69 63 74  |%-ys%:. Restrict|
0000a910  20 70 6f 69 6e 74 65 72  20 74 6f 20 73 63 72 65  | pointer to scre|
0000a920  65 6e 0d 22 42 36 20 6f  78 25 3d 73 69 7a 65 78  |en."B6 ox%=sizex|
0000a930  25 2d 78 73 25 3a 6f 79  25 3d 73 69 7a 65 79 25  |%-xs%:oy%=sizey%|
0000a940  2d 79 73 25 3a f4 20 27  4f 6c 64 27 20 63 6f 6f  |-ys%:. 'Old' coo|
0000a950  72 64 69 6e 61 74 65 73  0d 22 4c 30 20 c8 97 20  |rdinates."L0 .. |
0000a960  b8 20 6f 78 25 2c 6f 79  25 3a f4 20 50 6f 69 6e  |. ox%,oy%:. Poin|
0000a970  74 65 72 20 74 6f 20 75  70 70 65 72 20 6c 65 66  |ter to upper lef|
0000a980  74 20 63 6f 72 6e 65 72  0d 22 56 3f 20 f5 20 f2  |t corner."V? . .|
0000a990  72 6d 6f 75 73 65 28 5f  25 2c 5f 25 2c 62 75 74  |rmouse(_%,_%,but|
0000a9a0  25 29 3a fd 20 62 75 74  25 3d 30 3a f4 20 57 61  |%):. but%=0:. Wa|
0000a9b0  69 74 20 66 6f 72 20 62  75 74 74 6f 6e 73 20 72  |it for buttons r|
0000a9c0  65 6c 65 61 73 65 64 0d  22 60 28 20 f5 20 f2 76  |eleased."`( . .v|
0000a9d0  61 6c 75 65 5f 70 74 72  28 73 69 7a 65 78 25 81  |alue_ptr(sizex%.|
0000a9e0  78 73 25 2c 73 69 7a 65  79 25 81 79 73 25 29 0d  |xs%,sizey%.ys%).|
0000a9f0  22 6a 3a 20 f5 20 f2 72  6d 6f 75 73 65 28 78 25  |"j: . .rmouse(x%|
0000aa00  2c 79 25 2c 62 75 74 25  29 3a fd 20 28 78 25 3c  |,y%,but%):. (x%<|
0000aa10  3e 6f 78 25 29 84 28 79  25 3c 3e 6f 79 25 29 84  |>ox%).(y%<>oy%).|
0000aa20  28 62 75 74 25 3c 3e 30  29 0d 22 74 0e 20 e7 62  |(but%<>0)."t. .b|
0000aa30  75 74 25 3d 30 20 8c 0d  22 7e 3e 20 20 e7 6f 79  |ut%=0 .."~>  .oy|
0000aa40  25 3e 79 25 20 8c 20 ec  20 30 2c 79 25 3a f0 20  |%>y% . . 0,y%:. |
0000aa50  31 30 33 2c a4 6d 61 78  28 78 25 2c 6f 78 25 29  |103,.max(x%,ox%)|
0000aa60  2c 6f 79 25 3a f4 20 57  69 70 65 20 59 2d 70 6f  |,oy%:. Wipe Y-po|
0000aa70  72 74 69 6f 6e 0d 22 88  3e 20 20 e7 6f 78 25 3e  |rtion.".>  .ox%>|
0000aa80  78 25 20 8c 20 ec 20 78  25 2c 30 3a f0 20 31 30  |x% . . x%,0:. 10|
0000aa90  33 2c 6f 78 25 2c a4 6d  61 78 28 79 25 2c 6f 79  |3,ox%,.max(y%,oy|
0000aaa0  25 29 3a f4 20 57 69 70  65 20 58 2d 70 6f 72 74  |%):. Wipe X-port|
0000aab0  69 6f 6e 0d 22 92 3a 20  20 73 69 7a 65 78 25 3d  |ion.".:  sizex%=|
0000aac0  78 25 2b 78 73 25 3a 73  69 7a 65 79 25 3d 79 25  |x%+xs%:sizey%=y%|
0000aad0  2b 79 73 25 3a f4 20 54  72 75 65 20 73 63 61 6c  |+ys%:. True scal|
0000aae0  65 64 20 69 6d 61 67 65  20 73 69 7a 65 0d 22 9c  |ed image size.".|
0000aaf0  3b 20 20 21 61 72 67 25  3d 73 69 7a 65 78 25 3a  |;  !arg%=sizex%:|
0000ab00  61 72 67 25 21 34 3d 73  69 7a 65 79 25 3a 61 72  |arg%!4=sizey%:ar|
0000ab10  67 25 21 38 3d 73 70 72  57 25 3a 61 72 67 25 21  |g%!8=sprW%:arg%!|
0000ab20  31 32 3d 73 70 72 48 25  0d 22 a6 1d 20 20 f2 70  |12=sprH%."..  .p|
0000ab30  6c 6f 74 5f 69 6d 61 67  65 28 30 2c 30 2c 30 2c  |lot_image(0,0,0,|
0000ab40  61 72 67 25 29 0d 22 b0  2e 20 20 6f 78 25 3d 78  |arg%)."..  ox%=x|
0000ab50  25 3a 6f 79 25 3d 79 25  3a f4 20 52 65 6d 65 6d  |%:oy%=y%:. Remem|
0000ab60  62 65 72 20 6f 6c 64 20  63 6f 6f 72 64 69 6e 61  |ber old coordina|
0000ab70  74 65 73 0d 22 ba 06 20  cd 0d 22 c4 0e 20 fd 20  |tes.".. ..".. . |
0000ab80  62 75 74 25 3c 3e 30 0d  22 ce 36 20 c8 99 20 22  |but%<>0.".6 .. "|
0000ab90  4f 53 5f 43 4c 49 22 2c  22 50 6f 69 6e 74 65 72  |OS_CLI","Pointer|
0000aba0  20 31 22 3a f4 20 52 65  73 74 6f 72 65 20 64 65  | 1":. Restore de|
0000abb0  66 61 75 6c 74 20 70 6f  69 6e 74 65 72 0d 22 d8  |fault pointer.".|
0000abc0  05 cd 0d 22 e2 0b e7 70  61 72 74 20 8c 0d 22 ec  |..."...part ..".|
0000abd0  3e 20 f5 20 f2 6d 6f 75  73 65 28 5f 25 2c 5f 25  |> . .mouse(_%,_%|
0000abe0  2c 62 75 74 25 29 3a fd  20 62 75 74 25 3d 30 3a  |,but%):. but%=0:|
0000abf0  f4 20 57 61 69 74 20 66  6f 72 20 62 75 74 74 6f  |. Wait for butto|
0000ac00  6e 73 20 72 65 6c 65 61  73 65 64 0d 22 f6 40 20  |ns released.".@ |
0000ac10  c8 97 20 c8 93 20 30 2c  30 2c 73 69 7a 65 78 25  |.. .. 0,0,sizex%|
0000ac20  2d 78 73 25 2c 73 69 7a  65 79 25 2d 79 73 25 3a  |-xs%,sizey%-ys%:|
0000ac30  f4 20 52 65 73 74 72 69  63 74 20 70 6f 69 6e 74  |. Restrict point|
0000ac40  65 72 20 74 6f 20 69 6d  61 67 65 0d 23 00 3c 20  |er to image.#.< |
0000ac50  c8 97 20 b8 20 30 2c 73  69 7a 65 79 25 2d 79 73  |.. . 0,sizey%-ys|
0000ac60  25 3a f4 20 4d 6f 75 73  65 20 74 6f 20 74 6f 70  |%:. Mouse to top|
0000ac70  20 72 69 67 68 74 20 6f  66 20 73 63 61 6c 65 64  | right of scaled|
0000ac80  20 73 70 72 69 74 65 0d  23 0a 38 20 f5 20 f2 72  | sprite.#.8 . .r|
0000ac90  6d 6f 75 73 65 28 78 31  25 2c 79 32 25 2c 62 75  |mouse(x1%,y2%,bu|
0000aca0  74 25 29 3a f2 76 61 6c  75 65 5f 70 74 72 28 78  |t%):.value_ptr(x|
0000acb0  31 25 81 78 73 25 2c 79  32 25 81 79 73 25 29 0d  |1%.xs%,y2%.ys%).|
0000acc0  23 14 23 20 fd 20 62 75  74 25 3c 3e 30 3a f4 20  |#.# . but%<>0:. |
0000acd0  47 65 74 20 74 6f 70 20  6c 65 66 74 20 70 6f 69  |Get top left poi|
0000ace0  6e 74 0d 23 1e 3e 20 f5  20 f2 6d 6f 75 73 65 28  |nt.#.> . .mouse(|
0000acf0  5f 25 2c 5f 25 2c 62 75  74 25 29 3a fd 20 62 75  |_%,_%,but%):. bu|
0000ad00  74 25 3d 30 3a f4 20 57  61 69 74 20 66 6f 72 20  |t%=0:. Wait for |
0000ad10  62 75 74 74 6f 6e 73 20  72 65 6c 65 61 73 65 64  |buttons released|
0000ad20  0d 23 28 2c 20 78 32 25  3d 78 31 25 3a 79 31 25  |.#(, x2%=x1%:y1%|
0000ad30  3d 79 32 25 3a f4 20 49  6e 69 74 69 61 6c 20 77  |=y2%:. Initial w|
0000ad40  69 6e 64 6f 77 20 63 6f  72 6e 65 72 0d 23 32 3e  |indow corner.#2>|
0000ad50  20 c8 97 20 c8 93 20 78  31 25 2c 30 2c 73 69 7a  | .. .. x1%,0,siz|
0000ad60  65 78 25 2d 78 73 25 2d  78 31 25 2c 79 32 25 3a  |ex%-xs%-x1%,y2%:|
0000ad70  f4 20 54 72 61 70 20 6d  6f 75 73 65 20 74 6f 20  |. Trap mouse to |
0000ad80  64 6f 77 6e 2f 72 69 67  68 74 0d 23 3c 33 20 c8  |down/right.#<3 .|
0000ad90  99 20 57 53 65 74 43 6f  6c 25 2c 28 34 3c 3c 34  |. WSetCol%,(4<<4|
0000ada0  29 2b 30 3a f4 20 49 6e  76 65 72 74 20 63 6f 6c  |)+0:. Invert col|
0000adb0  6f 75 72 20 6f 6e 20 73  63 72 65 65 6e 0d 23 46  |our on screen.#F|
0000adc0  41 20 6f 78 25 3d 78 32  25 3a 6f 79 25 3d 79 31  |A ox%=x2%:oy%=y1|
0000add0  25 3a c8 93 20 78 31 25  2c 79 31 25 2c 78 32 25  |%:.. x1%,y1%,x2%|
0000ade0  2d 78 31 25 2c 79 32 25  2d 79 31 25 3a f4 20 46  |-x1%,y2%-y1%:. F|
0000adf0  69 72 73 74 20 72 65 63  74 61 6e 67 6c 65 0d 23  |irst rectangle.#|
0000ae00  50 1c 20 f5 20 f2 72 6d  6f 75 73 65 28 78 32 25  |P. . .rmouse(x2%|
0000ae10  2c 79 31 25 2c 62 75 74  25 29 0d 23 5a 30 20 f2  |,y1%,but%).#Z0 .|
0000ae20  76 61 6c 75 65 5f 70 74  72 28 28 78 32 25 2d 78  |value_ptr((x2%-x|
0000ae30  31 25 29 81 78 73 25 2b  31 2c 28 79 32 25 2d 79  |1%).xs%+1,(y2%-y|
0000ae40  31 25 29 81 79 73 25 2b  31 29 0d 23 64 1d 20 e7  |1%).ys%+1).#d. .|
0000ae50  28 78 32 25 3c 3e 6f 78  25 29 84 28 79 31 25 3c  |(x2%<>ox%).(y1%<|
0000ae60  3e 6f 79 25 29 20 8c 0d  23 6e 35 20 20 c8 93 20  |>oy%) ..#n5  .. |
0000ae70  78 31 25 2c 6f 79 25 2c  6f 78 25 2d 78 31 25 2c  |x1%,oy%,ox%-x1%,|
0000ae80  79 32 25 2d 6f 79 25 3a  f4 20 57 69 70 65 20 6f  |y2%-oy%:. Wipe o|
0000ae90  6c 64 20 72 65 63 74 61  6e 67 6c 65 0d 23 78 30  |ld rectangle.#x0|
0000aea0  20 20 c8 93 20 78 31 25  2c 79 31 25 2c 78 32 25  |  .. x1%,y1%,x2%|
0000aeb0  2d 78 31 25 2c 79 32 25  2d 79 31 25 3a f4 20 4e  |-x1%,y2%-y1%:. N|
0000aec0  65 77 20 72 65 63 74 61  6e 67 6c 65 0d 23 82 2a  |ew rectangle.#.*|
0000aed0  20 20 6f 78 25 3d 78 32  25 3a 6f 79 25 3d 79 31  |  ox%=x2%:oy%=y1|
0000aee0  25 3a f4 20 4f 6c 64 20  6d 6f 75 73 65 20 70 6f  |%:. Old mouse po|
0000aef0  73 69 74 69 6f 6e 0d 23  8c 06 20 cd 0d 23 96 2a  |sition.#.. ..#.*|
0000af00  20 fd 20 62 75 74 25 3c  3e 30 3a f4 20 55 6e 74  | . but%<>0:. Unt|
0000af10  69 6c 20 73 65 63 6f 6e  64 20 62 75 74 74 6f 6e  |il second button|
0000af20  20 70 72 65 73 73 0d 23  a0 42 20 c8 97 20 c8 93  | press.#.B .. ..|
0000af30  20 30 2c 30 2c 53 63 72  57 25 2c 53 63 72 48 25  | 0,0,ScrW%,ScrH%|
0000af40  3a f4 20 52 65 73 65 74  20 6d 6f 75 73 65 20 72  |:. Reset mouse r|
0000af50  65 63 74 61 6e 67 6c 65  20 74 6f 20 77 68 6f 6c  |ectangle to whol|
0000af60  65 20 73 63 72 65 65 6e  0d 23 aa 30 20 c8 93 20  |e screen.#.0 .. |
0000af70  78 31 25 2c 79 31 25 2c  78 32 25 2d 78 31 25 2c  |x1%,y1%,x2%-x1%,|
0000af80  79 32 25 2d 79 31 25 3a  f4 20 57 69 70 65 20 72  |y2%-y1%:. Wipe r|
0000af90  65 63 74 61 6e 67 6c 65  0d 23 b4 22 20 ec 20 30  |ectangle.#." . 0|
0000afa0  2c 30 3a f4 20 57 69 70  65 20 73 75 72 72 6f 75  |,0:. Wipe surrou|
0000afb0  6e 64 69 6e 67 20 61 72  65 61 0d 23 be 3a 20 5f  |nding area.#.: _|
0000afc0  25 3d 78 31 25 2d 78 73  25 3a e7 5f 25 3e 3d 30  |%=x1%-xs%:._%>=0|
0000afd0  20 8c 20 f0 20 31 30 33  2c 5f 25 2c 31 30 32 34  | . . 103,_%,1024|
0000afe0  2d 79 73 25 20 8b 20 ec  20 5f 25 2c 31 30 32 34  |-ys% . . _%,1024|
0000aff0  2d 79 73 25 0d 23 c8 3d  20 5f 25 3d 79 32 25 2b  |-ys%.#.= _%=y2%+|
0000b000  79 73 25 3a e7 5f 25 3c  53 63 72 48 25 20 8c 20  |ys%:._%<ScrH% . |
0000b010  f0 20 31 30 33 2c 31 32  38 30 2d 78 73 25 2c 5f  |. 103,1280-xs%,_|
0000b020  25 20 8b 20 ec 20 31 32  38 30 2d 78 73 25 2c 5f  |% . . 1280-xs%,_|
0000b030  25 0d 23 d2 2f 20 5f 25  3d 78 32 25 2b 78 73 25  |%.#./ _%=x2%+xs%|
0000b040  3a e7 5f 25 3c 53 63 72  57 25 20 8c 20 f0 20 31  |:._%<ScrW% . . 1|
0000b050  30 33 2c 5f 25 2c 30 20  8b 20 ec 20 5f 25 2c 30  |03,_%,0 . . _%,0|
0000b060  0d 23 dc 38 20 5f 25 3d  79 31 25 2d 79 73 25 3a  |.#.8 _%=y1%-ys%:|
0000b070  e7 5f 25 3e 3d 30 20 8c  20 f0 20 31 30 33 2c 78  |._%>=0 . . 103,x|
0000b080  31 25 2d 78 73 25 2c 5f  25 20 8b 20 ec 20 78 31  |1%-xs%,_% . . x1|
0000b090  25 2d 78 73 25 2c 5f 25  0d 23 e6 36 20 c8 99 20  |%-xs%,_%.#.6 .. |
0000b0a0  22 4f 53 5f 43 4c 49 22  2c 22 50 6f 69 6e 74 65  |"OS_CLI","Pointe|
0000b0b0  72 20 31 22 3a f4 20 52  65 73 74 6f 72 65 20 64  |r 1":. Restore d|
0000b0c0  65 66 61 75 6c 74 20 70  6f 69 6e 74 65 72 0d 23  |efault pointer.#|
0000b0d0  f0 45 cc 20 78 31 25 3d  30 3a 79 31 25 3d 30 3a  |.E. x1%=0:y1%=0:|
0000b0e0  78 32 25 3d 73 69 7a 65  78 25 2d 78 73 25 3a 79  |x2%=sizex%-xs%:y|
0000b0f0  32 25 3d 73 69 7a 65 79  25 2d 79 73 25 3a f4 20  |2%=sizey%-ys%:. |
0000b100  57 68 6f 6c 65 20 73 70  72 69 74 65 20 77 69 6e  |Whole sprite win|
0000b110  64 6f 77 0d 23 fa 05 cd  0d 24 04 26 ef 32 34 2c  |dow.#....$.&.24,|
0000b120  78 31 25 3b 79 31 25 3b  78 32 25 3b 79 32 25 3b  |x1%;y1%;x2%;y2%;|
0000b130  3a f4 20 43 6c 69 70 20  77 69 6e 64 6f 77 0d 24  |:. Clip window.$|
0000b140  0e 05 e1 0d 24 18 05 20  0d 24 22 1e dd f2 72 6d  |....$.. .$"...rm|
0000b150  6f 75 73 65 28 f8 20 78  25 2c f8 20 79 25 2c f8  |ouse(. x%,. y%,.|
0000b160  20 62 75 74 25 29 0d 24  2c 4a f4 20 52 65 74 75  | but%).$,J. Retu|
0000b170  72 6e 73 20 6d 6f 75 73  65 20 63 6f 6f 72 64 69  |rns mouse coordi|
0000b180  6e 61 74 65 73 20 61 6e  64 20 62 75 74 74 6f 6e  |nates and button|
0000b190  73 2c 20 72 6f 75 6e 64  65 64 20 74 6f 20 65 78  |s, rounded to ex|
0000b1a0  61 63 74 20 70 69 78 65  6c 20 63 6f 6f 72 64 73  |act pixel coords|
0000b1b0  0d 24 36 24 f2 6d 6f 75  73 65 28 78 25 2c 79 25  |.$6$.mouse(x%,y%|
0000b1c0  2c 62 75 74 25 29 3a f4  20 4d 6f 75 73 65 20 73  |,but%):. Mouse s|
0000b1d0  74 61 74 65 0d 24 40 2a  78 25 2d 3d 78 25 20 83  |tate.$@*x%-=x% .|
0000b1e0  20 78 73 25 3a 79 25 2d  3d 79 25 20 83 20 79 73  | xs%:y%-=y% . ys|
0000b1f0  25 3a f4 20 52 6f 75 6e  64 20 64 6f 77 6e 0d 24  |%:. Round down.$|
0000b200  4a 05 e1 0d 24 54 05 20  0d 24 5e 1c dd f2 76 61  |J...$T. .$^...va|
0000b210  6c 75 65 5f 70 74 72 28  76 61 6c 31 25 2c 76 61  |lue_ptr(val1%,va|
0000b220  6c 32 25 29 0d 24 68 1c  f4 20 50 75 74 73 20 76  |l2%).$h.. Puts v|
0000b230  61 6c 75 65 73 20 69 6e  20 70 6f 69 6e 74 65 72  |alues in pointer|
0000b240  0d 24 72 45 c8 99 20 4f  53 53 70 6f 70 25 2c 36  |.$rE.. OSSpop%,6|
0000b250  30 2b 32 35 36 2c 70 6f  69 6e 74 65 72 2c 70 74  |0+256,pointer,pt|
0000b260  72 24 2c 30 20 b8 20 72  30 2c 72 31 2c 72 32 2c  |r$,0 . r0,r1,r2,|
0000b270  72 33 3a f4 20 4f 75 74  70 75 74 20 74 6f 20 73  |r3:. Output to s|
0000b280  70 72 69 74 65 0d 24 7c  77 fb 31 32 39 3a fb 32  |prite.$|w.129:.2|
0000b290  3a f1 8a 30 2c 32 29 3b  c2 22 20 20 20 22 2b c3  |:..0,2);."   "+.|
0000b2a0  76 61 6c 31 25 2c 34 29  27 c2 22 20 20 20 22 2b  |val1%,4)'."   "+|
0000b2b0  c3 76 61 6c 32 25 2c 34  29 3b 3a c8 99 20 4f 53  |.val2%,4);:.. OS|
0000b2c0  53 70 6f 70 25 2c 33 36  2b 32 35 36 2c 70 6f 69  |Spop%,36+256,poi|
0000b2d0  6e 74 65 72 2c 70 74 72  24 2c 25 30 30 30 30 30  |nter,ptr$,%00000|
0000b2e0  31 30 3a f4 20 50 72 69  6e 74 20 76 61 6c 75 65  |10:. Print value|
0000b2f0  73 20 61 6e 64 20 64 65  66 69 6e 65 0d 24 86 35  |s and define.$.5|
0000b300  c8 99 20 4f 53 53 70 6f  70 25 2c 72 30 2c 72 31  |.. OSSpop%,r0,r1|
0000b310  2c 72 32 2c 72 33 3a f4  20 52 65 73 74 6f 72 65  |,r2,r3:. Restore|
0000b320  20 6f 75 74 70 75 74 20  74 6f 20 73 63 72 65 65  | output to scree|
0000b330  6e 0d 24 90 05 e1 0d 24  9a 05 20 0d 24 a4 1a dd  |n.$....$.. .$...|
0000b340  f2 6f 70 74 69 6f 6e 73  5f 6d 65 6e 75 28 63 72  |.options_menu(cr|
0000b350  65 61 74 65 29 0d 24 ae  34 f4 20 28 52 65 29 77  |eate).$.4. (Re)w|
0000b360  72 69 74 65 73 20 6f 70  74 69 6f 6e 73 20 6d 65  |rites options me|
0000b370  6e 75 2c 20 6f 70 74 69  6f 6e 61 6c 6c 79 20 63  |nu, optionally c|
0000b380  72 65 61 74 65 73 20 69  74 0d 24 b8 0d ea 20 69  |reates it.$... i|
0000b390  31 24 2c 69 32 24 0d 24  c2 39 69 31 24 3d a4 73  |1$,i2$.$.9i1$=.s|
0000b3a0  65 6c 28 30 2c 31 2c 30  2c ac 49 6d 67 2c 30 29  |el(0,1,0,.Img,0)|
0000b3b0  2b 22 49 6d 61 67 65 20  69 6e 66 6f 23 22 2b c3  |+"Image info#"+.|
0000b3c0  77 69 6e 5f 69 6d 69 6e  66 6f 25 2b 22 7c 22 0d  |win_iminfo%+"|".|
0000b3d0  24 cc 2d 69 31 24 2b 3d  a4 73 65 6c 28 30 2c 31  |$.-i1$+=.sel(0,1|
0000b3e0  2c 30 2c 30 2c 30 29 2b  22 50 6f 70 20 75 70 23  |,0,0,0)+"Pop up#|
0000b3f0  22 2b c3 73 75 62 31 25  2b 22 7c 22 0d 24 d6 31  |"+.sub1%+"|".$.1|
0000b400  69 31 24 2b 3d a4 73 65  6c 28 30 2c 31 2c 30 2c  |i1$+=.sel(0,1,0,|
0000b410  30 2c 30 29 2b 22 50 72  6f 63 65 73 73 69 6e 67  |0,0)+"Processing|
0000b420  23 22 2b c3 73 75 62 31  25 2b 22 7c 22 0d 24 e0  |#"+.sub1%+"|".$.|
0000b430  2c 69 31 24 2b 3d a4 73  65 6c 28 30 2c 30 2c 30  |,i1$+=.sel(0,0,0|
0000b440  2c ac 49 6d 67 2c 30 29  2b 22 49 6d 61 67 65 20  |,.Img,0)+"Image |
0000b450  70 61 6c 65 74 74 65 7c  22 0d 24 ea 34 69 32 24  |palette|".$.4i2$|
0000b460  2b 3d a4 73 65 6c 28 30  2c 30 2c 30 2c ac 49 6d  |+=.sel(0,0,0,.Im|
0000b470  67 2c 30 29 2b 22 5a 6f  6f 6d 20 69 6d 61 67 65  |g,0)+"Zoom image|
0000b480  23 22 2b c3 73 75 62 31  25 2b 22 7c 22 0d 24 f4  |#"+.sub1%+"|".$.|
0000b490  2b 69 32 24 2b 3d a4 73  65 6c 28 30 2c 30 2c 30  |+i2$+=.sel(0,0,0|
0000b4a0  2c ac 49 6d 67 2c 30 29  2b 22 52 6f 74 61 74 65  |,.Img,0)+"Rotate|
0000b4b0  20 69 6d 61 67 65 7c 22  0d 24 fe 36 69 32 24 2b  | image|".$.6i2$+|
0000b4c0  3d a4 73 65 6c 28 30 2c  31 2c 30 2c ac 49 6d 67  |=.sel(0,1,0,.Img|
0000b4d0  2c 30 29 2b 22 4d 69 72  72 6f 72 20 69 6d 61 67  |,0)+"Mirror imag|
0000b4e0  65 23 22 2b c3 73 75 62  31 25 2b 22 7c 22 0d 25  |e#"+.sub1%+"|".%|
0000b4f0  08 32 69 32 24 2b 3d a4  73 65 6c 28 50 61 6c 6f  |.2i2$+=.sel(Palo|
0000b500  6e 6f 66 66 2c 30 2c 30  2c 30 2c 30 29 2b 22 49  |noff,0,0,0,0)+"I|
0000b510  6e 63 6c 75 64 65 20 70  61 6c 65 74 74 65 7c 22  |nclude palette|"|
0000b520  0d 25 12 34 69 32 24 2b  3d a4 73 65 6c 28 30 2c  |.%.4i2$+=.sel(0,|
0000b530  31 2c 30 2c ac 49 6d 67  2c 30 29 2b 22 53 61 76  |1,0,.Img,0)+"Sav|
0000b540  65 20 69 6d 61 67 65 23  22 2b c3 73 75 62 31 25  |e image#"+.sub1%|
0000b550  2b 22 7c 22 0d 25 1c 1e  69 32 24 2b 3d 22 20 53  |+"|".%..i2$+=" S|
0000b560  74 61 74 75 73 23 22 2b  c3 73 75 62 31 25 2b 22  |tatus#"+.sub1%+"|
0000b570  7c 22 0d 25 26 3b f2 63  72 65 61 74 65 5f 6d 65  ||".%&;.create_me|
0000b580  6e 75 28 2d 31 2c 30 2c  22 54 72 61 6e 73 6c 61  |nu(-1,0,"Transla|
0000b590  74 6f 72 22 2c 32 36 30  2c 34 30 2c 30 2c 69 31  |tor",260,40,0,i1|
0000b5a0  24 2c 69 32 24 2c 63 72  65 61 74 65 29 0d 25 30  |$,i2$,create).%0|
0000b5b0  05 e1 0d 25 3a 05 20 0d  25 44 1b dd f2 73 75 62  |...%:. .%D...sub|
0000b5c0  6d 65 6e 75 28 70 61 74  68 24 2c 63 72 65 61 74  |menu(path$,creat|
0000b5d0  65 29 0d 25 4e 35 f4 20  28 52 65 29 77 72 69 74  |e).%N5. (Re)writ|
0000b5e0  65 73 20 73 75 62 6d 65  6e 75 20 70 61 74 68 24  |es submenu path$|
0000b5f0  2c 20 6f 70 74 69 6f 6e  61 6c 6c 79 20 63 72 65  |, optionally cre|
0000b600  61 74 65 73 20 69 74 0d  25 58 0c ea 20 69 24 2c  |ates it.%X.. i$,|
0000b610  69 32 24 0d 25 62 32 43  75 72 72 53 75 62 24 3d  |i2$.%b2CurrSub$=|
0000b620  70 61 74 68 24 3a f4 20  52 65 6d 65 6d 62 65 72  |path$:. Remember|
0000b630  20 63 75 72 72 65 6e 74  20 73 75 62 6d 65 6e 75  | current submenu|
0000b640  20 70 61 74 68 0d 25 6c  0e c8 8e 20 70 61 74 68  | path.%l... path|
0000b650  24 20 ca 0d 25 76 bb 20  c9 20 22 50 6f 70 20 75  |$ ..%v. . "Pop u|
0000b660  70 22 20 3a 20 69 24 3d  a4 73 65 6c 28 41 75 74  |p" : i$=.sel(Aut|
0000b670  6f 4d 6f 64 65 2c 30 2c  30 2c 30 2c 30 29 2b 22  |oMode,0,0,0,0)+"|
0000b680  41 75 74 6f 20 6d 6f 64  65 7c 22 2b a4 73 65 6c  |Auto mode|"+.sel|
0000b690  28 41 75 74 6f 50 61 6c  2c 30 2c 30 2c 30 2c 30  |(AutoPal,0,0,0,0|
0000b6a0  29 2b 22 41 75 74 6f 20  70 61 6c 65 74 74 65 7c  |)+"Auto palette||
0000b6b0  22 2b a4 73 65 6c 28 41  75 74 6f 5a 6f 6f 6d 2c  |"+.sel(AutoZoom,|
0000b6c0  30 2c 30 2c 30 2c 30 29  2b 22 41 75 74 6f 20 7a  |0,0,0,0)+"Auto z|
0000b6d0  6f 6f 6d 7c 22 2b a4 73  65 6c 28 28 4d 6f 64 65  |oom|"+.sel((Mode|
0000b6e0  53 65 74 3e 30 29 2c 30  2c 30 2c ac 41 75 74 6f  |Set>0),0,0,.Auto|
0000b6f0  4d 6f 64 65 2c 30 29 2b  22 4d 6f 64 65 20 73 65  |Mode,0)+"Mode se|
0000b700  74 23 22 2b c3 73 75 62  32 25 2b 22 7c 22 0d 25  |t#"+.sub2%+"|".%|
0000b710  80 40 20 20 20 20 20 20  f2 63 72 65 61 74 65 5f  |.@      .create_|
0000b720  6d 65 6e 75 28 78 25 2c  79 25 2c 22 5e 31 50 6f  |menu(x%,y%,"^1Po|
0000b730  70 20 75 70 22 2c 31 33  2a 31 36 2c 34 30 2c 30  |p up",13*16,40,0|
0000b740  2c 69 24 2c 22 22 2c 63  72 65 61 74 65 29 0d 25  |,i$,"",create).%|
0000b750  8a bc 20 c9 20 22 50 6f  70 20 75 70 2e 4d 6f 64  |.. . "Pop up.Mod|
0000b760  65 20 73 65 74 22 20 3a  20 69 24 3d a4 73 65 6c  |e set" : i$=.sel|
0000b770  28 28 4d 6f 64 65 53 65  74 3d 30 29 2c 30 2c 30  |((ModeSet=0),0,0|
0000b780  2c 30 2c 30 29 2b 22 4e  6f 6e 65 7c 22 2b a4 73  |,0,0)+"None|"+.s|
0000b790  65 6c 28 28 4d 6f 64 65  53 65 74 3d 31 29 2c 30  |el((ModeSet=1),0|
0000b7a0  2c 30 2c 30 2c 30 29 2b  22 4e 6f 72 6d 61 6c 7c  |,0,0,0)+"Normal||
0000b7b0  22 2b a4 73 65 6c 28 28  4d 6f 64 65 53 65 74 3d  |"+.sel((ModeSet=|
0000b7c0  32 29 2c 30 2c 30 2c ac  4d 75 6c 74 69 53 79 6e  |2),0,0,.MultiSyn|
0000b7d0  63 2c 30 29 2b 22 4d 75  6c 74 69 73 79 6e 63 7c  |c,0)+"Multisync||
0000b7e0  22 2b a4 73 65 6c 28 28  4d 6f 64 65 53 65 74 3d  |"+.sel((ModeSet=|
0000b7f0  33 29 2c 30 2c 31 2c 30  2c 30 29 2b a4 75 6d 73  |3),0,1,0,0)+.ums|
0000b800  2b 22 26 61 30 2d 39 2c  7c 22 0d 25 94 42 20 20  |+"&a0-9,|".%.B  |
0000b810  20 20 20 20 f2 63 72 65  61 74 65 5f 6d 65 6e 75  |    .create_menu|
0000b820  28 78 25 2c 79 25 2c 22  5e 32 4d 6f 64 65 20 73  |(x%,y%,"^2Mode s|
0000b830  65 74 22 2c 31 30 2a 31  36 2c 34 30 2c 30 2c 69  |et",10*16,40,0,i|
0000b840  24 2c 22 22 2c 63 72 65  61 74 65 29 0d 25 9e 9e  |$,"",create).%..|
0000b850  20 c9 20 22 50 72 6f 63  65 73 73 69 6e 67 22 20  | . "Processing" |
0000b860  3a 20 69 24 3d a4 73 65  6c 28 43 6c 65 61 72 46  |: i$=.sel(ClearF|
0000b870  69 6c 65 2c 30 2c 30 2c  30 2c 30 29 2b 22 43 6c  |ile,0,0,0,0)+"Cl|
0000b880  65 61 72 20 6f 75 74 70  75 74 23 22 2b c3 77 69  |ear output#"+.wi|
0000b890  6e 5f 66 69 6c 65 25 2b  22 7c 20 4f 75 74 70 75  |n_file%+"| Outpu|
0000b8a0  74 20 6d 6f 64 65 23 22  2b c3 73 75 62 32 25 2b  |t mode#"+.sub2%+|
0000b8b0  22 7c 22 2b a4 73 65 6c  28 30 2c 30 2c 30 2c 28  |"|"+.sel(0,0,0,(|
0000b8c0  4f 75 74 4d 6f 64 65 3d  31 29 2c 30 29 2b 22 4f  |OutMode=1),0)+"O|
0000b8d0  75 74 70 75 74 20 70 61  6c 65 74 74 65 23 22 2b  |utput palette#"+|
0000b8e0  c3 73 75 62 32 25 2b 22  7c 22 0d 25 a8 a8 20 20  |.sub2%+"|".%..  |
0000b8f0  20 20 20 20 69 24 2b 3d  a4 73 65 6c 28 28 28 58  |    i$+=.sel(((X|
0000b900  4d 75 6c 25 3c 3e 58 44  69 76 25 29 84 28 59 4d  |Mul%<>XDiv%).(YM|
0000b910  75 6c 25 3c 3e 59 44 69  76 25 29 29 2c 30 2c 30  |ul%<>YDiv%)),0,0|
0000b920  2c 30 2c 30 29 2b 22 53  63 61 6c 69 6e 67 23 22  |,0,0)+"Scaling#"|
0000b930  2b c3 73 75 62 32 25 2b  22 7c 22 2b a4 73 65 6c  |+.sub2%+"|"+.sel|
0000b940  28 45 72 72 53 70 72 65  61 64 2c 30 2c 30 2c 30  |(ErrSpread,0,0,0|
0000b950  2c 30 29 2b 22 45 72 72  6f 72 20 73 70 72 65 61  |,0)+"Error sprea|
0000b960  64 69 6e 67 7c 22 2b a4  73 65 6c 28 42 6c 61 63  |ding|"+.sel(Blac|
0000b970  6b 57 68 69 74 65 2c 30  2c 30 2c 30 2c 30 29 2b  |kWhite,0,0,0,0)+|
0000b980  22 42 6c 61 63 6b 20 61  6e 64 20 77 68 69 74 65  |"Black and white|
0000b990  7c 22 0d 25 b2 dd 20 20  20 20 20 20 69 32 24 3d  ||".%..      i2$=|
0000b9a0  a4 73 65 6c 28 5a 69 67  5a 61 67 2c 30 2c 30 2c  |.sel(ZigZag,0,0,|
0000b9b0  30 2c 30 29 2b 22 5a 69  67 20 7a 61 67 7c 22 2b  |0,0)+"Zig zag|"+|
0000b9c0  22 20 52 47 42 20 72 65  73 6f 6c 75 74 69 6f 6e  |" RGB resolution|
0000b9d0  23 22 2b c3 77 69 6e 5f  72 67 62 62 69 74 73 25  |#"+.win_rgbbits%|
0000b9e0  2b 22 7c 22 2b a4 73 65  6c 28 49 6e 76 65 72 74  |+"|"+.sel(Invert|
0000b9f0  52 47 42 2c 31 2c 30 2c  30 2c 30 29 2b 22 49 6e  |RGB,1,0,0,0)+"In|
0000ba00  76 65 72 74 20 52 47 42  7c 22 2b a4 73 65 6c 28  |vert RGB|"+.sel(|
0000ba10  42 6c 61 6e 6b 69 6e 67  2c 30 2c 30 2c 30 2c 30  |Blanking,0,0,0,0|
0000ba20  29 2b 22 53 63 72 65 65  6e 20 62 6c 61 6e 6b 69  |)+"Screen blanki|
0000ba30  6e 67 7c 22 2b a4 73 65  6c 28 47 49 46 53 63 61  |ng|"+.sel(GIFSca|
0000ba40  6e 2c 30 2c 30 2c 30 2c  30 29 2b 22 47 49 46 20  |n,0,0,0,0)+"GIF |
0000ba50  73 63 61 6e 7c 20 49 6d  61 67 65 20 6e 75 6d 62  |scan| Image numb|
0000ba60  65 72 23 22 2b c3 73 75  62 32 25 2b 22 7c 22 0d  |er#"+.sub2%+"|".|
0000ba70  25 bc 45 20 20 20 20 20  20 f2 63 72 65 61 74 65  |%.E      .create|
0000ba80  5f 6d 65 6e 75 28 78 25  2c 79 25 2c 22 5e 31 50  |_menu(x%,y%,"^1P|
0000ba90  72 6f 63 65 73 73 69 6e  67 22 2c 31 36 2a 31 36  |rocessing",16*16|
0000baa0  2c 34 30 2c 30 2c 69 24  2c 69 32 24 2c 63 72 65  |,40,0,i$,i2$,cre|
0000bab0  61 74 65 29 0d 25 c6 99  20 c9 20 22 50 72 6f 63  |ate).%.. . "Proc|
0000bac0  65 73 73 69 6e 67 2e 4f  75 74 70 75 74 20 6d 6f  |essing.Output mo|
0000bad0  64 65 22 20 3a 20 f2 63  72 65 61 74 65 5f 6d 65  |de" : .create_me|
0000bae0  6e 75 28 78 25 2c 79 25  2c 22 5e 32 4d 6f 64 65  |nu(x%,y%,"^2Mode|
0000baf0  22 2c 38 2a 31 36 2c 34  30 2c 30 2c a4 73 65 6c  |",8*16,40,0,.sel|
0000bb00  28 28 4f 75 74 4d 6f 64  65 3d 31 29 2c 30 2c 30  |((OutMode=1),0,0|
0000bb10  2c 30 2c 30 29 2b 22 41  75 74 6f 7c 22 2b a4 73  |,0,0)+"Auto|"+.s|
0000bb20  65 6c 28 28 4f 75 74 4d  6f 64 65 3d 32 29 2c 30  |el((OutMode=2),0|
0000bb30  2c 30 2c 30 2c 30 29 2b  22 43 75 72 72 65 6e 74  |,0,0,0)+"Current|
0000bb40  7c 22 2c 22 22 2c 63 72  65 61 74 65 29 0d 25 d0  ||","",create).%.|
0000bb50  c7 20 c9 20 22 50 72 6f  63 65 73 73 69 6e 67 2e  |. . "Processing.|
0000bb60  4f 75 74 70 75 74 20 70  61 6c 65 74 74 65 22 20  |Output palette" |
0000bb70  3a 20 f2 63 72 65 61 74  65 5f 6d 65 6e 75 28 78  |: .create_menu(x|
0000bb80  25 2c 79 25 2c 22 5e 32  50 61 6c 65 74 74 65 22  |%,y%,"^2Palette"|
0000bb90  2c 31 30 2a 31 36 2c 34  30 2c 30 2c a4 73 65 6c  |,10*16,40,0,.sel|
0000bba0  28 28 4f 75 74 50 61 6c  3d 31 29 2c 30 2c 30 2c  |((OutPal=1),0,0,|
0000bbb0  30 2c 30 29 2b 22 43 75  72 72 65 6e 74 7c 22 2b  |0,0)+"Current|"+|
0000bbc0  a4 73 65 6c 28 28 4f 75  74 50 61 6c 3d 32 29 2c  |.sel((OutPal=2),|
0000bbd0  30 2c 30 2c 30 2c 30 29  2b 22 44 65 66 61 75 6c  |0,0,0,0)+"Defaul|
0000bbe0  74 7c 22 2b a4 73 65 6c  28 28 4f 75 74 50 61 6c  |t|"+.sel((OutPal|
0000bbf0  3d 33 29 2c 30 2c 30 2c  30 2c 30 29 2b 22 47 72  |=3),0,0,0,0)+"Gr|
0000bc00  65 79 73 63 61 6c 65 7c  22 2c 22 22 2c 63 72 65  |eyscale|","",cre|
0000bc10  61 74 65 29 0d 25 da b0  20 c9 20 22 50 72 6f 63  |ate).%.. . "Proc|
0000bc20  65 73 73 69 6e 67 2e 53  63 61 6c 69 6e 67 22 20  |essing.Scaling" |
0000bc30  3a 20 f2 63 72 65 61 74  65 5f 6d 65 6e 75 28 78  |: .create_menu(x|
0000bc40  25 2c 79 25 2c 22 5e 32  53 63 61 6c 69 6e 67 22  |%,y%,"^2Scaling"|
0000bc50  2c 35 2a 31 36 2c 34 30  2c 30 2c a4 73 65 6c 28  |,5*16,40,0,.sel(|
0000bc60  28 58 4d 75 6c 25 3c 3e  58 44 69 76 25 29 2c 30  |(XMul%<>XDiv%),0|
0000bc70  2c 30 2c 30 2c 30 29 2b  22 78 23 22 2b c3 73 75  |,0,0,0)+"x#"+.su|
0000bc80  62 33 25 2b 22 7c 22 2b  a4 73 65 6c 28 28 59 4d  |b3%+"|"+.sel((YM|
0000bc90  75 6c 25 3c 3e 59 44 69  76 25 29 2c 30 2c 30 2c  |ul%<>YDiv%),0,0,|
0000bca0  30 2c 30 29 2b 22 79 23  22 2b c3 73 75 62 33 25  |0,0)+"y#"+.sub3%|
0000bcb0  2b 22 7c 20 31 3a 31 7c  22 2c 22 22 2c 63 72 65  |+"| 1:1|","",cre|
0000bcc0  61 74 65 29 0d 25 e4 72  20 c9 20 22 50 72 6f 63  |ate).%.r . "Proc|
0000bcd0  65 73 73 69 6e 67 2e 53  63 61 6c 69 6e 67 2e 78  |essing.Scaling.x|
0000bce0  22 20 3a 20 f2 63 72 65  61 74 65 5f 6d 65 6e 75  |" : .create_menu|
0000bcf0  28 78 25 2c 79 25 2c 22  5e 33 58 22 2c 31 30 2a  |(x%,y%,"^3X",10*|
0000bd00  31 36 2c 34 30 2c 30 2c  22 24 22 2b c3 28 58 4d  |16,40,0,"$"+.(XM|
0000bd10  75 6c 25 29 2b 22 3a 22  2b c3 28 58 44 69 76 25  |ul%)+":"+.(XDiv%|
0000bd20  29 2b 22 26 61 30 2d 39  3a 7c 22 2c 22 22 2c 63  |)+"&a0-9:|","",c|
0000bd30  72 65 61 74 65 29 0d 25  ee 72 20 c9 20 22 50 72  |reate).%.r . "Pr|
0000bd40  6f 63 65 73 73 69 6e 67  2e 53 63 61 6c 69 6e 67  |ocessing.Scaling|
0000bd50  2e 79 22 20 3a 20 f2 63  72 65 61 74 65 5f 6d 65  |.y" : .create_me|
0000bd60  6e 75 28 78 25 2c 79 25  2c 22 5e 33 59 22 2c 31  |nu(x%,y%,"^3Y",1|
0000bd70  30 2a 31 36 2c 34 30 2c  30 2c 22 24 22 2b c3 28  |0*16,40,0,"$"+.(|
0000bd80  59 4d 75 6c 25 29 2b 22  3a 22 2b c3 28 59 44 69  |YMul%)+":"+.(YDi|
0000bd90  76 25 29 2b 22 26 61 30  2d 39 3a 7c 22 2c 22 22  |v%)+"&a0-9:|",""|
0000bda0  2c 63 72 65 61 74 65 29  0d 25 f8 6e 20 c9 20 22  |,create).%.n . "|
0000bdb0  50 72 6f 63 65 73 73 69  6e 67 2e 49 6d 61 67 65  |Processing.Image|
0000bdc0  20 6e 75 6d 62 65 72 22  20 3a 20 f2 63 72 65 61  | number" : .crea|
0000bdd0  74 65 5f 6d 65 6e 75 28  78 25 2c 79 25 2c 22 5e  |te_menu(x%,y%,"^|
0000bde0  32 4e 75 6d 62 65 72 22  2c 36 2a 31 36 2c 34 30  |2Number",6*16,40|
0000bdf0  2c 30 2c 22 24 22 2b c3  28 49 6d 61 67 65 4e 72  |,0,"$"+.(ImageNr|
0000be00  25 29 2b 22 26 61 30 2d  39 7c 22 2c 22 22 2c 63  |%)+"&a0-9|","",c|
0000be10  72 65 61 74 65 29 0d 26  02 93 20 c9 20 22 5a 6f  |reate).&.. . "Zo|
0000be20  6f 6d 20 69 6d 61 67 65  22 20 3a 20 f2 63 72 65  |om image" : .cre|
0000be30  61 74 65 5f 6d 65 6e 75  28 78 25 2c 79 25 2c 22  |ate_menu(x%,y%,"|
0000be40  5e 31 5a 6f 6f 6d 22 2c  34 2a 31 36 2c 34 30 2c  |^1Zoom",4*16,40,|
0000be50  30 2c 22 20 49 6e 23 22  2b c3 73 75 62 32 25 2b  |0," In#"+.sub2%+|
0000be60  22 7c 20 4f 75 74 23 22  2b c3 73 75 62 32 25 2b  |"| Out#"+.sub2%+|
0000be70  22 7c 22 2b a4 73 65 6c  28 28 28 5a 6f 6f 6d 58  |"|"+.sel(((ZoomX|
0000be80  3d 31 29 80 28 5a 6f 6f  6d 59 3d 31 29 29 2c 30  |=1).(ZoomY=1)),0|
0000be90  2c 30 2c 30 2c 30 29 2b  22 31 3a 31 7c 22 2c 22  |,0,0,0)+"1:1|","|
0000bea0  22 2c 63 72 65 61 74 65  29 0d 26 0c 70 20 c9 20  |",create).&.p . |
0000beb0  22 5a 6f 6f 6d 20 69 6d  61 67 65 2e 49 6e 22 2c  |"Zoom image.In",|
0000bec0  22 5a 6f 6f 6d 20 69 6d  61 67 65 2e 4f 75 74 22  |"Zoom image.Out"|
0000bed0  20 3a 20 f2 63 72 65 61  74 65 5f 6d 65 6e 75 28  | : .create_menu(|
0000bee0  78 25 2c 79 25 2c 22 5e  32 22 2b c1 70 61 74 68  |x%,y%,"^2"+.path|
0000bef0  24 2c 31 32 29 2c 35 2a  31 36 2c 34 30 2c 30 2c  |$,12),5*16,40,0,|
0000bf00  22 20 42 6f 74 68 7c 20  78 7c 20 79 7c 22 2c 22  |" Both| x| y|","|
0000bf10  22 2c 63 72 65 61 74 65  29 0d 26 16 53 20 c9 20  |",create).&.S . |
0000bf20  22 4d 69 72 72 6f 72 20  69 6d 61 67 65 22 20 3a  |"Mirror image" :|
0000bf30  20 f2 63 72 65 61 74 65  5f 6d 65 6e 75 28 78 25  | .create_menu(x%|
0000bf40  2c 79 25 2c 22 5e 31 4d  69 72 72 6f 72 22 2c 36  |,y%,"^1Mirror",6|
0000bf50  2a 31 36 2c 34 30 2c 30  2c 22 20 78 7c 20 79 7c  |*16,40,0," x| y||
0000bf60  22 2c 22 22 2c 63 72 65  61 74 65 29 0d 26 20 59  |","",create).& Y|
0000bf70  20 c9 20 22 53 74 61 74  75 73 22 20 3a 20 f2 63  | . "Status" : .c|
0000bf80  72 65 61 74 65 5f 6d 65  6e 75 28 78 25 2c 79 25  |reate_menu(x%,y%|
0000bf90  2c 22 5e 31 53 74 61 74  75 73 22 2c 35 2a 31 36  |,"^1Status",5*16|
0000bfa0  2c 34 30 2c 30 2c 22 20  53 61 76 65 7c 20 4c 6f  |,40,0," Save| Lo|
0000bfb0  61 64 7c 20 4b 69 6c 6c  7c 22 2c 22 22 2c 63 72  |ad| Kill|","",cr|
0000bfc0  65 61 74 65 29 0d 26 2a  82 20 c9 20 22 53 61 76  |eate).&*. . "Sav|
0000bfd0  65 20 69 6d 61 67 65 22  20 3a 20 f2 63 72 65 61  |e image" : .crea|
0000bfe0  74 65 5f 6d 65 6e 75 28  78 25 2c 79 25 2c 22 5e  |te_menu(x%,y%,"^|
0000bff0  31 53 61 76 65 20 69 6d  61 67 65 22 2c 31 35 2a  |1Save image",15*|
0000c000  31 36 2c 34 30 2c 30 2c  22 20 46 75 6c 6c 7c 20  |16,40,0," Full| |
0000c010  57 68 6f 6c 65 7c 20 57  68 6f 6c 65 20 28 73 63  |Whole| Whole (sc|
0000c020  61 6c 65 64 29 7c 20 50  61 72 74 7c 20 50 61 72  |aled)| Part| Par|
0000c030  74 20 28 73 63 61 6c 65  64 29 7c 22 2c 22 22 2c  |t (scaled)|","",|
0000c040  63 72 65 61 74 65 29 0d  26 34 14 20 7f 20 3a 20  |create).&4. . : |
0000c050  43 75 72 72 53 75 62 24  3d 22 22 0d 26 3e 05 cb  |CurrSub$="".&>..|
0000c060  0d 26 48 05 e1 0d 26 52  05 20 0d 26 5c 15 dd f2  |.&H...&R. .&\...|
0000c070  73 65 74 5f 6d 6f 64 65  28 6d 6f 64 65 25 29 0d  |set_mode(mode%).|
0000c080  26 66 32 f4 20 53 65 74  73 20 6e 65 77 20 6d 6f  |&f2. Sets new mo|
0000c090  64 65 20 28 69 66 20 65  6e 61 62 6c 65 64 29 20  |de (if enabled) |
0000c0a0  66 6f 72 20 69 6d 61 67  65 20 64 69 73 70 6c 61  |for image displa|
0000c0b0  79 0d 26 70 0e ea 20 6c  6f 67 32 62 70 70 25 0d  |y.&p.. log2bpp%.|
0000c0c0  26 7a 3e e7 41 75 74 6f  4d 6f 64 65 20 8b 20 f2  |&z>.AutoMode . .|
0000c0d0  73 65 74 5f 74 72 61 6e  73 3a e1 3a f4 20 41 75  |set_trans:.:. Au|
0000c0e0  74 6f 20 6d 6f 64 65 20  73 65 6c 65 63 74 69 6f  |to mode selectio|
0000c0f0  6e 20 6e 6f 74 20 65 6e  61 62 6c 65 64 0d 26 84  |n not enabled.&.|
0000c100  29 6c 6f 67 32 62 70 70  25 3d a4 6d 6f 64 65 5f  |)log2bpp%=.mode_|
0000c110  76 61 72 28 6d 6f 64 65  25 2c 39 29 3a f4 20 4c  |var(mode%,9):. L|
0000c120  6f 67 32 42 50 50 0d 26  8e 10 c8 8e 20 4d 6f 64  |og2BPP.&.... Mod|
0000c130  65 53 65 74 20 ca 0d 26  98 34 20 c9 20 30 20 3a  |eSet ..&.4 . 0 :|
0000c140  20 f4 20 4e 6f 20 6d 6f  64 65 20 73 65 74 20 3a  | . No mode set :|
0000c150  20 6e 6f 20 63 68 61 6e  67 65 20 6f 66 20 64 69  | no change of di|
0000c160  73 70 6c 61 79 20 6d 6f  64 65 0d 26 a2 3a 20 c9  |splay mode.&.: .|
0000c170  20 31 20 3a 20 6d 6f 64  65 25 3d bb c1 22 20 30  | 1 : mode%=.." 0|
0000c180  20 38 31 32 31 35 22 2c  6c 6f 67 32 62 70 70 25  | 81215",log2bpp%|
0000c190  2a 32 2b 31 2c 32 29 3a  f4 20 4e 6f 72 6d 61 6c  |*2+1,2):. Normal|
0000c1a0  20 73 65 74 0d 26 ac 3d  20 c9 20 32 20 3a 20 6d  | set.&.= . 2 : m|
0000c1b0  6f 64 65 25 3d bb c1 22  31 38 31 39 32 30 32 31  |ode%=.."18192021|
0000c1c0  22 2c 6c 6f 67 32 62 70  70 25 2a 32 2b 31 2c 32  |",log2bpp%*2+1,2|
0000c1d0  29 3a f4 20 4d 75 6c 74  69 73 79 6e 63 20 73 65  |):. Multisync se|
0000c1e0  74 0d 26 b6 34 20 c9 20  33 20 3a 20 6d 6f 64 65  |t.&.4 . 3 : mode|
0000c1f0  25 3d 55 73 65 72 4d 6f  64 65 53 65 74 25 28 6c  |%=UserModeSet%(l|
0000c200  6f 67 32 62 70 70 25 2b  31 29 3a f4 20 55 73 65  |og2bpp%+1):. Use|
0000c210  72 20 73 65 74 0d 26 c0  05 cb 0d 26 ca 7d e7 ac  |r set.&....&.}..|
0000c220  4d 75 6c 74 69 53 79 6e  63 20 8c 20 e7 28 6d 6f  |MultiSync . .(mo|
0000c230  64 65 25 3e 3d 31 38 29  80 28 6d 6f 64 65 25 3c  |de%>=18).(mode%<|
0000c240  3d 32 38 29 20 8c 20 6d  6f 64 65 25 3d bb 28 c1  |=28) . mode%=.(.|
0000c250  22 30 30 30 38 31 32 31  35 31 35 30 30 32 34 30  |"000812151500240|
0000c260  30 30 38 31 32 31 35 22  2c 28 6d 6f 64 65 25 2d  |0081215",(mode%-|
0000c270  31 38 29 2a 32 2b 31 2c  32 29 29 3a f4 20 4d 61  |18)*2+1,2)):. Ma|
0000c280  70 20 74 6f 20 6e 6f 6e  2d 6d 75 6c 74 69 73 79  |p to non-multisy|
0000c290  6e 63 20 6d 6f 64 65 0d  26 d4 25 f2 6d 6f 64 65  |nc mode.&.%.mode|
0000c2a0  5f 63 68 61 6e 67 65 28  6d 6f 64 65 25 29 3a f4  |_change(mode%):.|
0000c2b0  20 53 65 6c 65 63 74 20  6d 6f 64 65 0d 26 de 05  | Select mode.&..|
0000c2c0  e1 0d 26 e8 05 20 0d 26  f2 18 dd f2 6d 6f 64 65  |..&.. .&....mode|
0000c2d0  5f 63 68 61 6e 67 65 28  6d 6f 64 65 25 29 0d 26  |_change(mode%).&|
0000c2e0  fc 29 f4 20 4d 6f 64 65  20 68 61 73 20 63 68 61  |.). Mode has cha|
0000c2f0  6e 67 65 64 20 6f 72 20  73 65 6c 65 63 74 20 6e  |nged or select n|
0000c300  65 77 20 6d 6f 64 65 0d  27 06 29 f4 20 49 66 20  |ew mode.'.). If |
0000c310  6d 6f 64 65 25 3e 3d 30  2c 20 6d 6f 64 65 20 6d  |mode%>=0, mode m|
0000c320  6f 64 65 25 20 69 73 20  73 65 6c 65 63 74 65 64  |ode% is selected|
0000c330  0d 27 10 4a ea 20 5f 25  2c 78 77 69 6e 64 25 2c  |.'.J. _%,xwind%,|
0000c340  79 77 69 6e 64 25 2c 6f  74 68 65 72 6d 6f 64 65  |ywind%,othermode|
0000c350  2c 63 6f 6c 6f 75 72 73  25 2c 70 6f 73 25 2c 61  |,colours%,pos%,a|
0000c360  6c 74 6d 6f 64 65 24 2c  6d 6f 64 65 63 6f 6c 73  |ltmode$,modecols|
0000c370  25 2c 73 70 72 63 6f 6c  73 25 0d 27 1a 33 c8 99  |%,sprcols%.'.3..|
0000c380  20 57 52 65 61 64 50 25  2c 2c 77 69 6d 70 70 61  | WReadP%,,wimppa|
0000c390  6c 3a f4 20 52 65 61 64  20 63 75 72 72 65 6e 74  |l:. Read current|
0000c3a0  20 57 49 4d 50 20 70 61  6c 65 74 74 65 0d 27 24  | WIMP palette.'$|
0000c3b0  1e e7 28 6d 6f 64 65 25  3e 3d 30 29 20 80 20 28  |..(mode%>=0) . (|
0000c3c0  6d 6f 64 65 25 3c 3e eb  29 20 8c 0d 27 2e 22 20  |mode%<>.) ..'." |
0000c3d0  c8 99 20 57 53 65 74 4d  25 2c 6d 6f 64 65 25 3a  |.. WSetM%,mode%:|
0000c3e0  f4 20 43 68 61 6e 67 65  20 6d 6f 64 65 0d 27 38  |. Change mode.'8|
0000c3f0  10 20 e7 6d 6f 64 65 25  3c 3e eb 20 8c 0d 27 42  |. .mode%<>. ..'B|
0000c400  47 20 20 d4 20 31 2c 2d  31 30 2c 31 38 30 2c 31  |G  . 1,-10,180,1|
0000c410  3a f4 20 41 6c 65 72 74  20 75 73 65 72 20 74 68  |:. Alert user th|
0000c420  61 74 20 27 69 64 65 61  6c 27 20 6d 6f 64 65 20  |at 'ideal' mode |
0000c430  63 6f 75 6c 64 6e 27 74  20 62 65 20 73 65 6c 65  |couldn't be sele|
0000c440  63 74 65 64 0d 27 4c 3a  20 20 63 6f 6c 6f 75 72  |cted.'L:  colour|
0000c450  73 25 3d 32 5e 28 32 5e  a4 6d 6f 64 65 5f 76 61  |s%=2^(2^.mode_va|
0000c460  72 28 6d 6f 64 65 25 2c  39 29 29 3a f4 20 43 6f  |r(mode%,9)):. Co|
0000c470  6c 6f 75 72 73 20 72 65  71 75 69 72 65 64 0d 27  |lours required.'|
0000c480  56 a8 20 20 e7 63 6f 6c  6f 75 72 73 25 3d 32 20  |V.  .colours%=2 |
0000c490  8c 20 61 6c 74 6d 6f 64  65 24 3d 22 7c 31 38 30  |. altmode$="|180|
0000c4a0  30 22 20 8b 20 e7 63 6f  6c 6f 75 72 73 25 3d 34  |0" . .colours%=4|
0000c4b0  20 8c 20 61 6c 74 6d 6f  64 65 24 3d 22 7c 31 39  | . altmode$="|19|
0000c4c0  30 38 7c 30 38 30 31 22  20 8b 20 e7 63 6f 6c 6f  |08|0801" . .colo|
0000c4d0  75 72 73 25 3d 31 36 20  8c 20 61 6c 74 6d 6f 64  |urs%=16 . altmod|
0000c4e0  65 24 3d 22 7c 32 30 31  32 7c 31 36 31 32 7c 31  |e$="|2012|1612|1|
0000c4f0  32 30 39 22 20 8b 20 e7  63 6f 6c 6f 75 72 73 25  |209" . .colours%|
0000c500  3d 32 35 36 20 8c 20 61  6c 74 6d 6f 64 65 24 3d  |=256 . altmode$=|
0000c510  22 7c 32 31 31 35 7c 32  34 31 35 7c 31 35 31 33  |"|2115|2415|1513|
0000c520  7c 31 33 31 30 22 0d 27  60 07 20 20 f5 0d 27 6a  ||1310".'`.  ..'j|
0000c530  bf 20 20 e7 eb 3d 6d 6f  64 65 25 20 8b 20 70 6f  |.  ..=mode% . po|
0000c540  73 25 3d a7 61 6c 74 6d  6f 64 65 24 2c 22 7c 22  |s%=.altmode$,"|"|
0000c550  2b c2 22 30 22 2b c3 6d  6f 64 65 25 2c 32 29 29  |+."0"+.mode%,2))|
0000c560  3a e7 70 6f 73 25 3e 30  20 8c 20 6d 6f 64 65 25  |:.pos%>0 . mode%|
0000c570  3d bb 28 c1 61 6c 74 6d  6f 64 65 24 2c 70 6f 73  |=.(.altmode$,pos|
0000c580  25 2b 33 29 29 20 8b 20  f2 65 72 72 6f 72 28 2d  |%+3)) . .error(-|
0000c590  31 2c 22 49 20 66 61 69  6c 65 64 20 74 6f 20 73  |1,"I failed to s|
0000c5a0  65 6c 65 63 74 20 74 68  65 20 69 64 65 61 6c 20  |elect the ideal |
0000c5b0  6d 6f 64 65 2c 20 6e 6f  72 20 61 6e 79 20 61 6c  |mode, nor any al|
0000c5c0  74 65 72 6e 61 74 69 76  65 20 6d 6f 64 65 20 21  |ternative mode !|
0000c5d0  20 4e 6f 77 20 79 6f 75  20 74 72 79 20 69 74 20  | Now you try it |
0000c5e0  21 22 29 3a 6d 6f 64 65  25 3d 2d 31 0d 27 74 23  |!"):mode%=-1.'t#|
0000c5f0  20 20 c8 99 20 57 53 65  74 4d 25 2c 6d 6f 64 65  |  .. WSetM%,mode|
0000c600  25 3a f4 20 43 68 61 6e  67 65 20 6d 6f 64 65 0d  |%:. Change mode.|
0000c610  27 7e 1d 20 20 fd 20 28  eb 3d 6d 6f 64 65 25 29  |'~.  . (.=mode%)|
0000c620  20 84 20 28 6d 6f 64 65  25 3c 30 29 0d 27 88 06  | . (mode%<0).'..|
0000c630  20 cd 0d 27 92 05 cd 0d  27 9c 40 6f 74 68 65 72  | ..'....'.@other|
0000c640  6d 6f 64 65 3d 28 eb 3c  3e 43 75 72 72 4d 6f 64  |mode=(.<>CurrMod|
0000c650  65 25 29 3a 43 75 72 72  4d 6f 64 65 25 3d eb 3a  |e%):CurrMode%=.:|
0000c660  f4 20 4d 6f 64 65 20 6f  74 68 65 72 20 74 68 61  |. Mode other tha|
0000c670  6e 20 6f 6c 64 20 3f 0d  27 a6 41 58 65 69 67 25  |n old ?.'.AXeig%|
0000c680  3d a4 6d 6f 64 65 5f 76  61 72 28 eb 2c 34 29 3a  |=.mode_var(.,4):|
0000c690  59 65 69 67 25 3d a4 6d  6f 64 65 5f 76 61 72 28  |Yeig%=.mode_var(|
0000c6a0  eb 2c 35 29 3a f4 20 52  65 61 64 20 58 2f 59 45  |.,5):. Read X/YE|
0000c6b0  69 67 46 61 63 74 6f 72  0d 27 b0 42 78 77 69 6e  |igFactor.'.Bxwin|
0000c6c0  64 25 3d a4 6d 6f 64 65  5f 76 61 72 28 eb 2c 31  |d%=.mode_var(.,1|
0000c6d0  31 29 2b 31 3a 79 77 69  6e 64 25 3d a4 6d 6f 64  |1)+1:ywind%=.mod|
0000c6e0  65 5f 76 61 72 28 eb 2c  31 32 29 2b 31 3a f4 20  |e_var(.,12)+1:. |
0000c6f0  52 65 73 6f 6c 75 74 69  6f 6e 0d 27 ba 41 53 63  |Resolution.'.ASc|
0000c700  72 57 25 3d 28 31 3c 3c  58 65 69 67 25 29 2a 78  |rW%=(1<<Xeig%)*x|
0000c710  77 69 6e 64 25 3a 53 63  72 48 25 3d 28 31 3c 3c  |wind%:ScrH%=(1<<|
0000c720  59 65 69 67 25 29 2a 79  77 69 6e 64 25 3a f4 20  |Yeig%)*ywind%:. |
0000c730  53 63 72 65 65 6e 20 73  69 7a 65 0d 27 c4 0a e7  |Screen size.'...|
0000c740  49 6d 67 20 8c 0d 27 ce  2b 20 f2 73 65 74 5f 74  |Img ..'.+ .set_t|
0000c750  72 61 6e 73 3a f4 20 52  65 2d 73 65 74 20 73 70  |rans:. Re-set sp|
0000c760  72 69 74 65 20 74 72 61  6e 73 6c 61 74 69 6f 6e  |rite translation|
0000c770  0d 27 d8 41 20 e7 41 75  74 6f 50 61 6c 20 8c 20  |.'.A .AutoPal . |
0000c780  f2 73 65 74 5f 70 61 6c  65 74 74 65 28 31 29 3a  |.set_palette(1):|
0000c790  f4 20 53 65 6c 65 63 74  20 69 6d 61 67 65 20 70  |. Select image p|
0000c7a0  61 6c 65 74 74 65 20 69  66 20 65 6e 61 62 6c 65  |alette if enable|
0000c7b0  64 0d 27 e2 23 20 e7 6f  74 68 65 72 6d 6f 64 65  |d.'.# .othermode|
0000c7c0  20 8c 20 f2 6e 65 77 5f  69 6d 61 67 65 5f 77 69  | . .new_image_wi|
0000c7d0  6e 64 6f 77 0d 27 ec 05  cd 0d 27 f6 05 e1 0d 28  |ndow.'....'....(|
0000c7e0  00 05 20 0d 28 0a 0f dd  f2 73 65 74 5f 74 72 61  |.. .(....set_tra|
0000c7f0  6e 73 0d 28 14 43 f4 20  53 65 74 73 20 74 72 61  |ns.(.C. Sets tra|
0000c800  6e 73 6c 61 74 69 6f 6e  20 66 61 63 74 6f 72 73  |nslation factors|
0000c810  20 28 74 72 61 6e 73 74  61 62 20 26 20 70 61 6c  | (transtab & pal|
0000c820  65 74 74 65 29 20 66 6f  72 20 73 70 72 69 74 65  |ette) for sprite|
0000c830  20 70 6c 6f 74 0d 28 1e  21 ea 20 6d 63 25 2c 73  | plot.(.!. mc%,s|
0000c840  63 25 2c 76 25 2c 63 25  2c 67 76 25 2c 67 69 25  |c%,v%,c%,gv%,gi%|
0000c850  2c 69 25 2c 70 25 0d 28  28 3c 6d 63 25 3d 32 5e  |,i%,p%.((<mc%=2^|
0000c860  28 32 5e a4 6c 6f 67 32  42 50 50 29 3a 73 63 25  |(2^.log2BPP):sc%|
0000c870  3d 32 5e 53 70 72 43 6f  6c 62 69 74 73 25 3a f4  |=2^SprColbits%:.|
0000c880  20 43 6f 6c 6f 75 72 73  20 61 76 61 69 6c 61 62  | Colours availab|
0000c890  6c 65 0d 28 32 47 53 68  6f 77 50 61 6c 25 28 29  |le.(2GShowPal%()|
0000c8a0  3d 49 6d 67 50 61 6c 25  28 29 3a 53 68 6f 77 50  |=ImgPal%():ShowP|
0000c8b0  61 6c 25 28 30 29 3d 32  5e 53 68 6f 77 50 61 6c  |al%(0)=2^ShowPal|
0000c8c0  25 28 30 29 3a f4 20 43  6f 70 79 20 69 6d 61 67  |%(0):. Copy imag|
0000c8d0  65 20 70 61 6c 65 74 74  65 0d 28 3c 25 e7 6d 63  |e palette.(<%.mc|
0000c8e0  25 3d 73 63 25 20 8c 20  54 72 61 6e 73 54 61 62  |%=sc% . TransTab|
0000c8f0  49 64 3d b9 3a e1 3a f4  20 49 64 65 61 6c 0d 28  |Id=.:.:. Ideal.(|
0000c900  46 25 54 72 61 6e 73 54  61 62 49 64 3d a3 3a f4  |F%TransTabId=.:.|
0000c910  20 41 6c 77 61 79 73 20  74 72 61 6e 73 6c 61 74  | Always translat|
0000c920  69 6f 6e 0d 28 50 0e e7  6d 63 25 3e 73 63 25 20  |ion.(P..mc%>sc% |
0000c930  8c 0d 28 5a 3a 20 e7 6d  63 25 3c 3d 31 36 20 8c  |..(Z: .mc%<=16 .|
0000c940  20 e3 20 63 25 3d 30 20  b8 20 73 63 25 2d 31 3a  | . c%=0 . sc%-1:|
0000c950  74 72 61 6e 73 74 61 62  25 3f 63 25 3d 63 25 80  |transtab%?c%=c%.|
0000c960  28 6d 63 25 2d 31 29 3a  ed 3a e1 0d 28 64 3b 20  |(mc%-1):.:..(d; |
0000c970  c8 99 20 22 54 72 61 6e  73 6c 61 74 6f 72 5f 50  |.. "Translator_P|
0000c980  61 6c 65 74 74 65 22 2c  38 2c 64 75 6d 25 2c 31  |alette",8,dum%,1|
0000c990  3a f4 20 47 65 74 20 63  75 72 72 65 6e 74 20 70  |:. Get current p|
0000c9a0  61 6c 65 74 74 65 0d 28  6e 5f 20 e3 20 63 25 3d  |alette.(n_ . c%=|
0000c9b0  30 20 b8 20 73 63 25 2d  31 3a c8 99 20 22 54 72  |0 . sc%-1:.. "Tr|
0000c9c0  61 6e 73 6c 61 74 6f 72  5f 43 6c 6f 73 65 73 74  |anslator_Closest|
0000c9d0  54 6f 52 47 42 22 2c 53  68 6f 77 50 61 6c 25 28  |ToRGB",ShowPal%(|
0000c9e0  63 25 2b 31 29 2c 32 35  36 2c 64 75 6d 25 20 b8  |c%+1),256,dum% .|
0000c9f0  20 76 25 3a 74 72 61 6e  73 74 61 62 25 3f 63 25  | v%:transtab%?c%|
0000ca00  3d 76 25 3a ed 0d 28 78  31 cc 20 f4 20 4c 65 73  |=v%:..(x1. . Les|
0000ca10  73 20 63 6f 6c 6f 75 72  73 20 74 68 61 6e 20 72  |s colours than r|
0000ca20  65 71 75 69 72 65 64 2c  20 73 6f 20 63 6f 6d 70  |equired, so comp|
0000ca30  72 6f 6d 69 73 65 0d 28  82 85 20 e7 ac 46 72 65  |romise.(.. ..Fre|
0000ca40  71 43 61 6c 63 20 8c 20  f2 68 6f 75 72 5f 6f 6e  |qCalc . .hour_on|
0000ca50  3a c8 99 20 22 54 72 61  6e 73 6c 61 74 6f 72 5f  |:.. "Translator_|
0000ca60  50 69 78 65 6c 46 72 65  71 22 2c 53 70 72 50 74  |PixelFreq",SprPt|
0000ca70  72 25 2c 66 72 65 71 25  3a f2 68 6f 75 72 5f 6f  |r%,freq%:.hour_o|
0000ca80  66 66 3a 46 72 65 71 43  61 6c 63 3d b9 3a f4 20  |ff:FreqCalc=.:. |
0000ca90  43 61 6c 63 75 6c 61 74  65 20 70 69 78 65 6c 20  |Calculate pixel |
0000caa0  66 72 65 71 75 65 6e 63  69 65 73 20 69 6e 20 69  |frequencies in i|
0000cab0  6d 61 67 65 20 73 70 72  69 74 65 0d 28 8c 1c 20  |mage sprite.(.. |
0000cac0  f2 68 6f 75 72 5f 6f 6e  3a f4 20 48 6f 75 72 67  |.hour_on:. Hourg|
0000cad0  6c 61 73 73 20 6f 6e 0d  28 96 43 20 70 25 3d 64  |lass on.(.C p%=d|
0000cae0  75 6d 25 3a e3 20 63 25  3d 31 20 b8 20 73 63 25  |um%:. c%=1 . sc%|
0000caf0  3a 21 70 25 3d 49 6d 67  50 61 6c 25 28 63 25 29  |:!p%=ImgPal%(c%)|
0000cb00  3a 70 25 2b 3d 34 3a ed  3a f4 20 49 6d 61 67 65  |:p%+=4:.:. Image|
0000cb10  27 73 20 70 61 6c 65 74  74 65 0d 28 a0 3a 20 f4  |'s palette.(.: .|
0000cb20  20 43 61 6c 63 75 6c 61  74 65 20 74 72 61 6e 73  | Calculate trans|
0000cb30  6c 61 74 69 6f 6e 20 74  61 62 6c 65 20 61 6e 64  |lation table and|
0000cb40  20 70 61 6c 65 74 74 65  20 66 6f 72 20 64 69 73  | palette for dis|
0000cb50  70 6c 61 79 0d 28 aa 4b  20 c8 99 20 22 54 72 61  |play.(.K .. "Tra|
0000cb60  6e 73 6c 61 74 6f 72 5f  43 61 6c 63 54 72 61 6e  |nslator_CalcTran|
0000cb70  73 22 2c 73 63 25 2c 66  72 65 71 25 2c 64 75 6d  |s",sc%,freq%,dum|
0000cb80  25 2c 6d 63 25 2c 74 72  61 6e 73 74 61 62 25 2c  |%,mc%,transtab%,|
0000cb90  61 72 67 25 20 b8 20 2c  2c 2c 75 73 65 64 25 0d  |arg% . ,,,used%.|
0000cba0  28 b4 43 20 70 25 3d 61  72 67 25 3a e3 20 63 25  |(.C p%=arg%:. c%|
0000cbb0  3d 31 20 b8 20 75 73 65  64 25 3a 53 68 6f 77 50  |=1 . used%:ShowP|
0000cbc0  61 6c 25 28 63 25 29 3d  21 70 25 3a 70 25 2b 3d  |al%(c%)=!p%:p%+=|
0000cbd0  34 3a ed 3a f4 20 52 65  61 64 20 70 61 6c 65 74  |4:.:. Read palet|
0000cbe0  74 65 0d 28 be 38 20 53  68 6f 77 50 61 6c 25 28  |te.(.8 ShowPal%(|
0000cbf0  30 29 3d 75 73 65 64 25  3a f4 20 43 6f 6c 6f 75  |0)=used%:. Colou|
0000cc00  72 73 20 75 73 65 64 20  69 6e 20 64 69 73 70 6c  |rs used in displ|
0000cc10  61 79 20 70 61 6c 65 74  74 65 0d 28 c8 1e 20 f2  |ay palette.(.. .|
0000cc20  68 6f 75 72 5f 6f 66 66  3a f4 20 48 6f 75 72 67  |hour_off:. Hourg|
0000cc30  6c 61 73 73 20 6f 66 66  0d 28 d2 05 cd 0d 28 dc  |lass off.(....(.|
0000cc40  05 e1 0d 28 e6 05 20 0d  28 f0 0e dd f2 61 75 74  |...(.. .(....aut|
0000cc50  6f 7a 6f 6f 6d 0d 28 fa  33 f4 20 41 64 6a 75 73  |ozoom.(.3. Adjus|
0000cc60  74 20 7a 6f 6f 6d 20 66  61 63 74 6f 72 20 66 6f  |t zoom factor fo|
0000cc70  72 20 61 75 74 6f 20 7a  6f 6f 6d 20 28 69 66 20  |r auto zoom (if |
0000cc80  65 6e 61 62 6c 65 64 29  0d 29 04 08 ea 20 5f 25  |enabled).)... _%|
0000cc90  0d 29 0e 0f e7 41 75 74  6f 5a 6f 6f 6d 20 8c 0d  |.)...AutoZoom ..|
0000cca0  29 18 37 20 5f 25 3d a4  73 70 72 57 2a 5a 6f 6f  |).7 _%=.sprW*Zoo|
0000ccb0  6d 58 3a c8 95 20 5f 25  3e 53 63 72 57 25 3a 5a  |mX:.. _%>ScrW%:Z|
0000ccc0  6f 6f 6d 58 3d 5a 6f 6f  6d 58 2f 32 3a 5f 25 3d  |oomX=ZoomX/2:_%=|
0000ccd0  5f 25 2f 32 3a ce 0d 29  22 36 20 e7 5a 6f 6f 6d  |_%/2:..)"6 .Zoom|
0000cce0  58 3c 31 20 8c 20 c8 95  20 5f 25 2a 32 3c 3d 53  |X<1 . .. _%*2<=S|
0000ccf0  63 72 57 25 3a 5a 6f 6f  6d 58 3d 5a 6f 6f 6d 58  |crW%:ZoomX=ZoomX|
0000cd00  2a 32 3a 5f 25 3d 5f 25  2a 32 3a ce 0d 29 2c 37  |*2:_%=_%*2:..),7|
0000cd10  20 5f 25 3d a4 73 70 72  48 2a 5a 6f 6f 6d 59 3a  | _%=.sprH*ZoomY:|
0000cd20  c8 95 20 5f 25 3e 53 63  72 48 25 3a 5a 6f 6f 6d  |.. _%>ScrH%:Zoom|
0000cd30  59 3d 5a 6f 6f 6d 59 2f  32 3a 5f 25 3d 5f 25 2f  |Y=ZoomY/2:_%=_%/|
0000cd40  32 3a ce 0d 29 36 36 20  e7 5a 6f 6f 6d 59 3c 31  |2:..)66 .ZoomY<1|
0000cd50  20 8c 20 c8 95 20 5f 25  2a 32 3c 3d 53 63 72 48  | . .. _%*2<=ScrH|
0000cd60  25 3a 5a 6f 6f 6d 59 3d  5a 6f 6f 6d 59 2a 32 3a  |%:ZoomY=ZoomY*2:|
0000cd70  5f 25 3d 5f 25 2a 32 3a  ce 0d 29 40 05 cd 0d 29  |_%=_%*2:..)@...)|
0000cd80  4a 05 e1 0d 29 54 05 20  0d 29 5e 23 dd f2 70 6c  |J...)T. .)^#..pl|
0000cd90  6f 74 5f 69 6d 61 67 65  28 78 25 2c 79 25 2c 61  |ot_image(x%,y%,a|
0000cda0  63 74 25 2c 73 63 61 6c  65 25 29 0d 29 68 2f f4  |ct%,scale%).)h/.|
0000cdb0  20 50 6c 6f 74 73 20 69  6d 61 67 65 20 73 70 72  | Plots image spr|
0000cdc0  69 74 65 20 77 69 74 68  20 74 72 61 6e 73 6c 61  |ite with transla|
0000cdd0  74 69 6f 6e 20 74 61 62  6c 65 0d 29 72 7f e7 54  |tion table.)r..T|
0000cde0  72 61 6e 73 54 61 62 49  64 20 8c 20 c8 99 20 4f  |ransTabId . .. O|
0000cdf0  53 53 70 6f 70 25 2c 35  36 34 2c 53 70 72 69 74  |SSpop%,564,Sprit|
0000ce00  65 25 2c 53 70 72 50 74  72 25 2c 78 25 2c 79 25  |e%,SprPtr%,x%,y%|
0000ce10  2c 61 63 74 25 2c 73 63  61 6c 65 25 20 8b 20 c8  |,act%,scale% . .|
0000ce20  99 20 4f 53 53 70 6f 70  25 2c 35 36 34 2c 53 70  |. OSSpop%,564,Sp|
0000ce30  72 69 74 65 25 2c 53 70  72 50 74 72 25 2c 78 25  |rite%,SprPtr%,x%|
0000ce40  2c 79 25 2c 61 63 74 25  2c 73 63 61 6c 65 25 2c  |,y%,act%,scale%,|
0000ce50  74 72 61 6e 73 74 61 62  25 0d 29 7c 05 e1 0d 29  |transtab%.)|...)|
0000ce60  86 05 20 0d 29 90 13 dd  f2 75 6e 70 61 63 6b 28  |.. .)....unpack(|
0000ce70  74 79 70 65 24 29 0d 29  9a 2b f4 20 55 6e 70 61  |type$).).+. Unpa|
0000ce80  63 6b 73 20 69 6d 61 67  65 20 28 66 69 6e 61 6c  |cks image (final|
0000ce90  20 75 6e 70 61 63 6b 69  6e 67 20 70 68 61 73 65  | unpacking phase|
0000cea0  29 0d 29 a4 11 ea 20 63  25 2c 62 70 70 25 2c 70  |).)... c%,bpp%,p|
0000ceb0  63 25 0d 29 ae 29 62 70  70 25 3d 49 6e 50 61 6c  |c%.).)bpp%=InPal|
0000cec0  25 28 30 29 3a f4 20 42  69 74 73 20 70 65 72 20  |%(0):. Bits per |
0000ced0  70 69 78 65 6c 20 69 6e  70 75 74 0d 29 b8 34 f2  |pixel input.).4.|
0000cee0  76 61 72 28 22 69 6e 62  69 22 2c 62 70 70 25 29  |var("inbi",bpp%)|
0000cef0  3a f4 20 49 6e 70 75 74  20 28 69 6d 61 67 65 29  |:. Input (image)|
0000cf00  20 62 69 74 73 20 70 65  72 20 70 69 78 65 6c 0d  | bits per pixel.|
0000cf10  29 c2 26 f2 76 61 72 28  22 62 77 68 69 22 2c 42  |).&.var("bwhi",B|
0000cf20  6c 61 63 6b 57 68 69 74  65 29 3a f4 20 42 2f 77  |lackWhite):. B/w|
0000cf30  20 66 6c 61 67 0d 29 cc  31 f2 76 61 72 28 22 65  | flag.).1.var("e|
0000cf40  73 70 72 22 2c 45 72 72  53 70 72 65 61 64 29 3a  |spr",ErrSpread):|
0000cf50  f4 20 45 72 72 6f 72 20  73 70 72 65 61 64 69 6e  |. Error spreadin|
0000cf60  67 20 66 6c 61 67 0d 29  d6 26 f2 76 61 72 28 22  |g flag.).&.var("|
0000cf70  7a 69 67 7a 22 2c 5a 69  67 5a 61 67 29 3a f4 20  |zigz",ZigZag):. |
0000cf80  5a 69 67 20 7a 61 67 20  66 6c 61 67 0d 29 e0 2c  |Zig zag flag.).,|
0000cf90  f2 76 61 72 28 22 69 6e  76 74 22 2c 49 6e 76 65  |.var("invt",Inve|
0000cfa0  72 74 52 47 42 29 3a f4  20 49 6e 76 65 72 74 20  |rtRGB):. Invert |
0000cfb0  52 47 42 20 66 6c 61 67  0d 29 ea 2a f2 76 61 72  |RGB flag.).*.var|
0000cfc0  28 22 70 68 61 73 22 2c  31 29 3a f4 20 46 69 6e  |("phas",1):. Fin|
0000cfd0  61 6c 20 75 6e 70 61 63  6b 69 6e 67 20 70 68 61  |al unpacking pha|
0000cfe0  73 65 0d 29 f4 26 f2 76  61 72 28 22 72 67 62 62  |se.).&.var("rgbb|
0000cff0  22 2c 52 47 42 62 69 74  73 25 29 3a f4 20 52 2f  |",RGBbits%):. R/|
0000d000  47 2f 42 20 62 69 74 73  0d 29 fe 3d f2 76 61 72  |G/B bits.).=.var|
0000d010  28 22 79 6d 75 6c 22 2c  59 4d 75 6c 25 29 3a f2  |("ymul",YMul%):.|
0000d020  76 61 72 28 22 79 64 69  76 22 2c 59 44 69 76 25  |var("ydiv",YDiv%|
0000d030  29 3a f4 20 53 63 61 6c  69 6e 67 20 66 61 63 74  |):. Scaling fact|
0000d040  6f 72 73 20 59 0d 2a 08  3d f2 76 61 72 28 22 78  |ors Y.*.=.var("x|
0000d050  6d 75 6c 22 2c 58 4d 75  6c 25 29 3a f2 76 61 72  |mul",XMul%):.var|
0000d060  28 22 78 64 69 76 22 2c  58 44 69 76 25 29 3a f4  |("xdiv",XDiv%):.|
0000d070  20 53 63 61 6c 69 6e 67  20 66 61 63 74 6f 72 73  | Scaling factors|
0000d080  20 58 0d 2a 12 38 f4 20  53 65 74 20 70 61 6c 65  | X.*.8. Set pale|
0000d090  74 74 65 20 28 69 66 20  72 65 6c 65 76 61 6e 74  |tte (if relevant|
0000d0a0  2c 20 69 2e 65 2e 20 6e  6f 74 20 70 75 72 65 20  |, i.e. not pure |
0000d0b0  52 47 42 20 69 6e 70 75  74 29 0d 2a 1c 3f e7 62  |RGB input).*.?.b|
0000d0c0  70 70 25 3c 3d 38 20 8c  20 e3 20 63 25 3d 30 20  |pp%<=8 . . c%=0 |
0000d0d0  b8 20 32 5e 62 70 70 25  2d 31 3a 70 61 6c 72 67  |. 2^bpp%-1:palrg|
0000d0e0  62 25 21 28 63 25 3c 3c  32 29 3d 49 6e 50 61 6c  |b%!(c%<<2)=InPal|
0000d0f0  25 28 63 25 2b 31 29 3a  ed 0d 2a 26 39 e7 4f 75  |%(c%+1):..*&9.Ou|
0000d100  74 4d 6f 64 65 3d 31 20  8c 20 70 63 25 3d 30 20  |tMode=1 . pc%=0 |
0000d110  8b 20 70 63 25 3d 4f 75  74 50 61 6c 3a f4 20 53  |. pc%=OutPal:. S|
0000d120  65 6c 65 63 74 20 70 61  6c 65 74 74 65 20 63 6f  |elect palette co|
0000d130  64 65 0d 2a 30 10 e7 43  6c 65 61 72 46 69 6c 65  |de.*0..ClearFile|
0000d140  20 8c 0d 2a 3a 39 20 4f  75 74 3d ae 28 43 6c 65  | ..*:9 Out=.(Cle|
0000d150  61 72 53 61 76 65 24 29  3a f2 76 61 72 28 22 63  |arSave$):.var("c|
0000d160  61 70 74 22 2c 4f 75 74  29 3a f4 20 4f 70 65 6e  |apt",Out):. Open|
0000d170  20 43 6c 65 61 72 20 66  69 6c 65 0d 2a 44 75 20  | Clear file.*Du |
0000d180  f2 6f 73 74 72 69 6e 67  28 4f 75 74 2c 22 54 72  |.ostring(Out,"Tr|
0000d190  61 6e 73 6c 61 74 6f 72  22 29 3a f2 6f 28 4f 75  |anslator"):.o(Ou|
0000d1a0  74 2c 30 2c 31 29 3a f2  6f 28 4f 75 74 2c 36 30  |t,0,1):.o(Out,60|
0000d1b0  30 2c 34 29 3a f2 6f 28  4f 75 74 2c 53 70 72 57  |0,4):.o(Out,SprW|
0000d1c0  25 2c 34 29 3a f2 6f 28  4f 75 74 2c 53 70 72 48  |%,4):.o(Out,SprH|
0000d1d0  25 2c 34 29 3a f2 6f 28  4f 75 74 2c 49 6d 67 42  |%,4):.o(Out,ImgB|
0000d1e0  69 74 73 25 2c 34 29 3a  f4 20 48 65 61 64 65 72  |its%,4):. Header|
0000d1f0  0d 2a 4e 6b 20 e7 49 6d  67 42 69 74 73 25 3c 3d  |.*Nk .ImgBits%<=|
0000d200  38 20 8c 20 e3 20 63 25  3d 31 20 b8 20 32 5e 49  |8 . . c%=1 . 2^I|
0000d210  6d 67 42 69 74 73 25 3a  72 67 62 25 3d 49 6e 50  |mgBits%:rgb%=InP|
0000d220  61 6c 25 28 63 25 29 3a  d5 23 4f 75 74 2c 72 67  |al%(c%):.#Out,rg|
0000d230  62 25 3e 3e 31 36 3a d5  23 4f 75 74 2c 72 67 62  |b%>>16:.#Out,rgb|
0000d240  25 3e 3e 38 3a d5 23 4f  75 74 2c 72 67 62 25 3a  |%>>8:.#Out,rgb%:|
0000d250  ed 3a f4 20 50 61 6c 65  74 74 65 0d 2a 58 05 cd  |.:. Palette.*X..|
0000d260  0d 2a 62 3a c8 99 20 22  54 72 61 6e 73 6c 61 74  |.*b:.. "Translat|
0000d270  6f 72 5f 55 6e 70 61 63  6b 50 72 65 22 2c 70 61  |or_UnpackPre",pa|
0000d280  6c 72 67 62 25 2c 70 63  25 3a f4 20 49 6e 69 74  |lrgb%,pc%:. Init|
0000d290  20 75 6e 70 61 63 6b 69  6e 67 0d 2a 6c 68 49 6d  | unpacking.*lhIm|
0000d2a0  67 50 61 6c 25 28 30 29  3d 53 70 72 43 6f 6c 62  |gPal%(0)=SprColb|
0000d2b0  69 74 73 25 3a e3 20 63  25 3d 30 20 b8 20 32 5e  |its%:. c%=0 . 2^|
0000d2c0  53 70 72 43 6f 6c 62 69  74 73 25 2d 31 3a 49 6d  |SprColbits%-1:Im|
0000d2d0  67 50 61 6c 25 28 63 25  2b 31 29 3d 70 61 6c 72  |gPal%(c%+1)=palr|
0000d2e0  67 62 25 21 28 63 25 3c  3c 32 29 3a ed 3a f4 20  |gb%!(c%<<2):.:. |
0000d2f0  52 65 61 64 20 69 6d 61  67 65 20 70 61 6c 65 74  |Read image palet|
0000d300  74 65 0d 2a 76 37 f2 75  6e 70 61 63 6b 5f 70 68  |te.*v7.unpack_ph|
0000d310  61 73 65 28 74 79 70 65  24 2c 31 29 3a f4 20 45  |ase(type$,1):. E|
0000d320  78 65 63 75 74 65 20 66  69 6e 61 6c 20 75 6e 70  |xecute final unp|
0000d330  61 63 6b 20 70 68 61 73  65 0d 2a 80 10 e7 43 6c  |ack phase.*...Cl|
0000d340  65 61 72 46 69 6c 65 20  8c 0d 2a 8a a9 20 43 6c  |earFile ..*.. Cl|
0000d350  65 61 72 46 69 6c 65 3d  a3 3a d9 23 4f 75 74 3a  |earFile=.:.#Out:|
0000d360  e7 a4 76 61 72 28 22 63  61 70 74 22 29 3d 30 20  |..var("capt")=0 |
0000d370  8c 20 c8 99 20 22 4f 53  5f 46 69 6c 65 22 2c 36  |. .. "OS_File",6|
0000d380  2c 43 6c 65 61 72 53 61  76 65 24 3a f2 65 72 72  |,ClearSave$:.err|
0000d390  6f 72 28 2d 31 2c 22 45  72 72 6f 72 20 64 75 72  |or(-1,"Error dur|
0000d3a0  69 6e 67 20 6f 75 74 70  75 74 20 74 6f 20 43 6c  |ing output to Cl|
0000d3b0  65 61 72 20 66 69 6c 65  20 3a 20 22 2b a4 73 74  |ear file : "+.st|
0000d3c0  72 69 6e 67 28 a4 76 61  72 28 22 65 72 72 6f 22  |ring(.var("erro"|
0000d3d0  29 2b 34 29 29 3a f4 20  52 65 6d 6f 76 65 20 43  |)+4)):. Remove C|
0000d3e0  6c 65 61 72 20 66 69 6c  65 20 69 66 20 65 72 72  |lear file if err|
0000d3f0  6f 72 0d 2a 94 05 cd 0d  2a 9e 05 e1 0d 2a a8 05  |or.*....*....*..|
0000d400  20 0d 2a b2 20 dd f2 75  6e 70 61 63 6b 5f 70 68  | .*. ..unpack_ph|
0000d410  61 73 65 28 74 79 70 65  24 2c 70 68 61 73 65 25  |ase(type$,phase%|
0000d420  29 0d 2a bc 35 f4 20 45  78 65 63 75 74 65 73 20  |).*.5. Executes |
0000d430  75 6e 70 61 63 6b 20 70  68 61 73 65 2c 20 62 6c  |unpack phase, bl|
0000d440  61 6e 6b 73 20 73 63 72  65 65 6e 20 69 66 20 65  |anks screen if e|
0000d450  6e 61 62 6c 65 64 0d 2a  c6 2d f2 76 61 72 28 22  |nabled.*.-.var("|
0000d460  70 68 61 73 22 2c 70 68  61 73 65 25 29 3a f4 20  |phas",phase%):. |
0000d470  53 65 74 20 75 6e 70 61  63 6b 69 6e 67 20 70 68  |Set unpacking ph|
0000d480  61 73 65 0d 2a d0 2b 24  64 75 6d 25 3d c0 74 79  |ase.*.+$dum%=.ty|
0000d490  70 65 24 2b 22 20 20 20  20 22 2c 34 29 3a f4 20  |pe$+"    ",4):. |
0000d4a0  54 79 70 65 20 74 6f 20  75 6e 70 61 63 6b 0d 2a  |Type to unpack.*|
0000d4b0  da 3d e7 42 6c 61 6e 6b  69 6e 67 20 8c 20 c8 99  |.=.Blanking . ..|
0000d4c0  20 22 54 72 61 6e 73 6c  61 74 6f 72 5f 56 69 64  | "Translator_Vid|
0000d4d0  65 6f 44 4d 41 22 2c 30  3a f4 20 42 6c 61 6e 6b  |eoDMA",0:. Blank|
0000d4e0  20 69 66 20 65 6e 61 62  6c 65 64 0d 2a e4 37 c8  | if enabled.*.7.|
0000d4f0  99 20 22 54 72 61 6e 73  6c 61 74 6f 72 5f 55 6e  |. "Translator_Un|
0000d500  70 61 63 6b 22 2c 21 64  75 6d 25 3a f4 20 45 78  |pack",!dum%:. Ex|
0000d510  65 63 75 74 65 20 75 6e  70 61 63 6b 20 70 68 61  |ecute unpack pha|
0000d520  73 65 0d 2a ee 41 e7 42  6c 61 6e 6b 69 6e 67 20  |se.*.A.Blanking |
0000d530  8c 20 c8 99 20 22 54 72  61 6e 73 6c 61 74 6f 72  |. .. "Translator|
0000d540  5f 56 69 64 65 6f 44 4d  41 22 2c 31 3a f4 20 52  |_VideoDMA",1:. R|
0000d550  65 2d 65 6e 61 62 6c 65  20 69 66 20 62 6c 61 6e  |e-enable if blan|
0000d560  6b 65 64 0d 2a f8 05 e1  0d 2b 02 05 20 0d 2b 0c  |ked.*....+.. .+.|
0000d570  1b dd f2 73 65 74 5f 70  61 6c 65 74 74 65 28 70  |...set_palette(p|
0000d580  61 6c 65 74 74 65 25 29  0d 2b 16 2a f4 20 53 65  |alette%).+.*. Se|
0000d590  74 73 20 61 20 70 61 6c  65 74 74 65 20 61 63 63  |ts a palette acc|
0000d5a0  6f 72 64 69 6e 67 20 74  6f 20 70 61 6c 65 74 74  |ording to palett|
0000d5b0  65 25 0d 2b 20 1a f4 20  20 30 20 2d 20 44 65 73  |e%.+ ..  0 - Des|
0000d5c0  6b 74 6f 70 20 70 61 6c  65 74 74 65 0d 2b 2a 49  |ktop palette.+*I|
0000d5d0  f4 20 20 31 20 2d 20 49  6d 61 67 65 27 73 20 6f  |.  1 - Image's o|
0000d5e0  77 6e 20 70 61 6c 65 74  74 65 20 28 77 68 65 6e  |wn palette (when|
0000d5f0  20 70 6f 73 73 69 62 6c  65 2c 20 65 6c 73 65 20  | possible, else |
0000d600  64 65 73 6b 74 6f 70 20  70 61 6c 65 74 74 65 20  |desktop palette |
0000d610  75 73 65 64 29 0d 2b 34  08 ea 20 63 25 0d 2b 3e  |used).+4.. c%.+>|
0000d620  11 c8 8e 20 70 61 6c 65  74 74 65 25 20 ca 0d 2b  |... palette% ..+|
0000d630  48 1d 20 c9 20 30 20 3a  20 c8 99 20 57 53 65 74  |H. . 0 : .. WSet|
0000d640  50 25 2c 2c 77 69 6d 70  70 61 6c 0d 2b 52 74 20  |P%,,wimppal.+Rt |
0000d650  c9 20 31 20 3a 20 e7 a4  63 32 35 36 20 8b 20 e3  |. 1 : ..c256 . .|
0000d660  20 63 25 3d 30 20 b8 20  53 68 6f 77 50 61 6c 25  | c%=0 . ShowPal%|
0000d670  28 30 29 2d 31 3a 64 75  6d 25 21 28 63 25 3c 3c  |(0)-1:dum%!(c%<<|
0000d680  32 29 3d 53 68 6f 77 50  61 6c 25 28 63 25 2b 31  |2)=ShowPal%(c%+1|
0000d690  29 3a ed 3a c8 99 20 22  54 72 61 6e 73 6c 61 74  |):.:.. "Translat|
0000d6a0  6f 72 5f 53 65 74 50 61  6c 65 74 74 65 22 2c 53  |or_SetPalette",S|
0000d6b0  68 6f 77 50 61 6c 25 28  30 29 2c 64 75 6d 25 0d  |howPal%(0),dum%.|
0000d6c0  2b 5c 05 cb 0d 2b 66 05  e1 0d 2b 70 05 20 0d 2b  |+\...+f...+p. .+|
0000d6d0  7a 25 dd f2 73 74 61 6e  64 61 72 64 5f 70 61 6c  |z%..standard_pal|
0000d6e0  65 74 74 65 28 f8 20 50  61 6c 25 28 29 2c 62 70  |ette(. Pal%(),bp|
0000d6f0  70 25 29 0d 2b 84 48 f4  20 53 65 74 73 20 61 20  |p%).+.H. Sets a |
0000d700  70 61 6c 65 74 74 65 20  74 6f 20 73 74 61 6e 64  |palette to stand|
0000d710  61 72 64 20 41 72 63 68  69 6d 65 64 65 73 20 32  |ard Archimedes 2|
0000d720  2c 34 2c 31 36 20 6f 72  20 32 35 36 20 63 6f 6c  |,4,16 or 256 col|
0000d730  6f 75 72 20 70 61 6c 65  74 74 65 0d 2b 8e 0b ea  |our palette.+...|
0000d740  20 63 25 2c 70 25 0d 2b  98 44 c8 99 20 22 54 72  | c%,p%.+.D.. "Tr|
0000d750  61 6e 73 6c 61 74 6f 72  5f 50 61 6c 65 74 74 65  |anslator_Palette|
0000d760  22 2c 62 70 70 25 2c 64  75 6d 25 2c 32 3a f4 20  |",bpp%,dum%,2:. |
0000d770  43 61 6c 63 75 6c 61 74  65 20 73 74 61 6e 64 61  |Calculate standa|
0000d780  72 64 20 70 61 6c 65 74  74 65 0d 2b a2 3d 70 25  |rd palette.+.=p%|
0000d790  3d 64 75 6d 25 3a e3 20  63 25 3d 31 20 b8 20 32  |=dum%:. c%=1 . 2|
0000d7a0  5e 62 70 70 25 3a 50 61  6c 25 28 63 25 29 3d 21  |^bpp%:Pal%(c%)=!|
0000d7b0  70 25 3a 70 25 2b 3d 34  3a ed 3a 50 61 6c 25 28  |p%:p%+=4:.:Pal%(|
0000d7c0  30 29 3d 62 70 70 25 0d  2b ac 05 e1 0d 2b b6 05  |0)=bpp%.+....+..|
0000d7d0  20 0d 2b c0 1d dd f2 67  72 65 79 5f 70 61 6c 65  | .+....grey_pale|
0000d7e0  74 74 65 28 62 70 70 25  2c 64 69 72 25 29 0d 2b  |tte(bpp%,dir%).+|
0000d7f0  ca 3d f4 20 53 65 74 73  20 69 6e 70 75 74 20 70  |.=. Sets input p|
0000d800  61 6c 65 74 74 65 20 74  6f 20 67 72 65 79 73 63  |alette to greysc|
0000d810  61 6c 65 20 66 6f 72 20  62 70 70 25 20 62 69 74  |ale for bpp% bit|
0000d820  73 20 70 65 72 20 70 69  78 65 6c 0d 2b d4 3f f4  |s per pixel.+.?.|
0000d830  20 64 69 72 25 3d 31 20  67 69 76 65 73 20 62 6c  | dir%=1 gives bl|
0000d840  61 63 6b 20 74 6f 20 77  68 69 74 65 2c 20 64 69  |ack to white, di|
0000d850  72 25 3d 2d 31 20 67 69  76 65 73 20 77 68 69 74  |r%=-1 gives whit|
0000d860  65 20 74 6f 20 62 6c 61  63 6b 0d 2b de 11 ea 20  |e to black.+... |
0000d870  63 6f 64 65 25 2c 63 25  2c 70 25 0d 2b e8 1f e7  |code%,c%,p%.+...|
0000d880  64 69 72 25 3d 31 20 8c  20 63 6f 64 65 25 3d 33  |dir%=1 . code%=3|
0000d890  20 8b 20 63 6f 64 65 25  3d 34 0d 2b f2 41 c8 99  | . code%=4.+.A..|
0000d8a0  20 22 54 72 61 6e 73 6c  61 74 6f 72 5f 50 61 6c  | "Translator_Pal|
0000d8b0  65 74 74 65 22 2c 62 70  70 25 2c 64 75 6d 25 2c  |ette",bpp%,dum%,|
0000d8c0  63 6f 64 65 25 3a f4 20  43 61 6c 63 75 6c 61 74  |code%:. Calculat|
0000d8d0  65 20 67 72 65 79 73 63  61 6c 65 0d 2b fc 41 70  |e greyscale.+.Ap|
0000d8e0  25 3d 64 75 6d 25 3a e3  20 63 25 3d 31 20 b8 20  |%=dum%:. c%=1 . |
0000d8f0  32 5e 62 70 70 25 3a 49  6e 50 61 6c 25 28 63 25  |2^bpp%:InPal%(c%|
0000d900  29 3d 21 70 25 3a 70 25  2b 3d 34 3a ed 3a 49 6e  |)=!p%:p%+=4:.:In|
0000d910  50 61 6c 25 28 30 29 3d  62 70 70 25 0d 2c 06 05  |Pal%(0)=bpp%.,..|
0000d920  e1 0d 2c 10 05 20 0d 2c  1a 34 dd f2 6d 6f 64 65  |..,.. .,.4..mode|
0000d930  5f 69 6e 66 6f 28 6d 6f  64 65 25 2c f8 20 77 69  |_info(mode%,. wi|
0000d940  64 74 68 25 2c f8 20 68  65 69 67 68 74 25 2c f8  |dth%,. height%,.|
0000d950  20 63 6f 6c 6f 75 72 73  25 29 0d 2c 24 31 f4 20  | colours%).,$1. |
0000d960  52 65 74 75 72 6e 73 20  69 6e 66 6f 72 6d 61 74  |Returns informat|
0000d970  69 6f 6e 20 61 62 6f 75  74 20 61 20 70 61 72 74  |ion about a part|
0000d980  69 63 75 6c 61 72 20 6d  6f 64 65 0d 2c 2e 6e 63  |icular mode.,.nc|
0000d990  6f 6c 6f 75 72 73 25 3d  32 5e 28 32 5e a4 6d 6f  |olours%=2^(2^.mo|
0000d9a0  64 65 5f 76 61 72 28 6d  6f 64 65 25 2c 39 29 29  |de_var(mode%,9))|
0000d9b0  3a 77 69 64 74 68 25 3d  31 2b a4 6d 6f 64 65 5f  |:width%=1+.mode_|
0000d9c0  76 61 72 28 6d 6f 64 65  25 2c 31 31 29 3a 68 65  |var(mode%,11):he|
0000d9d0  69 67 68 74 25 3d 31 2b  a4 6d 6f 64 65 5f 76 61  |ight%=1+.mode_va|
0000d9e0  72 28 6d 6f 64 65 25 2c  31 32 29 3a f4 20 52 65  |r(mode%,12):. Re|
0000d9f0  74 75 72 6e 20 69 6e 66  6f 0d 2c 38 05 e1 0d 2c  |turn info.,8...,|
0000da00  42 05 20 0d 2c 4c 17 dd  f2 69 6e 76 61 6c 69 64  |B. .,L...invalid|
0000da10  61 74 65 5f 73 63 72 65  65 6e 0d 2c 56 1f f4 20  |ate_screen.,V.. |
0000da20  49 6e 76 61 6c 69 64 61  74 65 73 20 65 6e 74 69  |Invalidates enti|
0000da30  72 65 20 73 63 72 65 65  6e 0d 2c 60 3d c8 99 20  |re screen.,`=.. |
0000da40  57 46 6f 72 63 65 25 2c  2d 31 2c 30 2c 30 2c 53  |WForce%,-1,0,0,S|
0000da50  63 72 57 25 2c 53 63 72  48 25 3a f4 20 46 6f 72  |crW%,ScrH%:. For|
0000da60  63 65 20 72 65 64 72 61  77 20 77 68 6f 6c 65 20  |ce redraw whole |
0000da70  73 63 72 65 65 6e 0d 2c  6a 05 e1 0d 2c 74 05 20  |screen.,j...,t. |
0000da80  0d 2c 7e 16 dd f2 69 6e  76 61 6c 69 64 61 74 65  |.,~...invalidate|
0000da90  5f 69 6d 61 67 65 0d 2c  88 17 f4 20 49 6e 76 61  |_image.,... Inva|
0000daa0  6c 69 64 61 74 65 73 20  69 6d 61 67 65 0d 2c 92  |lidates image.,.|
0000dab0  15 49 6d 67 3d a3 3a 46  72 65 71 43 61 6c 63 3d  |.Img=.:FreqCalc=|
0000dac0  a3 3a 0d 2c 9c 05 e1 0d  2c a6 05 20 0d 2c b0 19  |.:.,....,.. .,..|
0000dad0  dd f2 6e 65 77 5f 77 69  6e 64 6f 77 28 68 61 6e  |..new_window(han|
0000dae0  64 6c 65 25 29 0d 2c ba  20 f4 20 52 65 64 72 61  |dle%).,. . Redra|
0000daf0  77 73 20 65 6e 74 69 72  65 20 77 69 6e 64 6f 77  |ws entire window|
0000db00  20 61 72 65 61 0d 2c c4  1d f2 72 65 64 72 61 77  | area.,...redraw|
0000db10  5f 77 69 6e 64 6f 77 28  68 61 6e 64 6c 65 25 2c  |_window(handle%,|
0000db20  b9 29 0d 2c ce 05 e1 0d  2c d8 05 20 0d 2c e2 22  |.).,....,.. .,."|
0000db30  dd f2 72 65 64 72 61 77  5f 77 69 6e 64 6f 77 28  |..redraw_window(|
0000db40  68 61 6e 64 6c 65 25 2c  66 6f 72 63 65 29 0d 2c  |handle%,force).,|
0000db50  ec 28 f4 20 52 65 64 72  61 77 73 20 77 69 6e 64  |.(. Redraws wind|
0000db60  6f 77 20 77 69 74 68 20  68 61 6e 64 6c 65 20 68  |ow with handle h|
0000db70  61 6e 64 6c 65 25 0d 2c  f6 3c f4 20 49 66 20 66  |andle%.,.<. If f|
0000db80  6f 72 63 65 3d 54 52 55  45 20 74 68 65 20 77 69  |orce=TRUE the wi|
0000db90  6e 64 6f 77 27 73 20 65  6e 74 69 72 65 20 77 6f  |ndow's entire wo|
0000dba0  72 6b 20 61 72 65 61 20  69 73 20 75 70 64 61 74  |rk area is updat|
0000dbb0  65 64 0d 2d 00 2b ea 20  6d 6f 72 65 25 2c 6e 78  |ed.-.+. more%,nx|
0000dbc0  25 2c 6e 79 25 2c 76 77  25 2c 76 68 25 2c 73 6d  |%,ny%,vw%,vh%,sm|
0000dbd0  61 6c 6c 25 2c 78 25 2c  79 25 2c 73 25 0d 2d 0a  |all%,x%,y%,s%.-.|
0000dbe0  28 21 62 6c 6f 63 6b 3d  68 61 6e 64 6c 65 25 3a  |(!block=handle%:|
0000dbf0  f4 20 53 65 74 20 77 69  6e 64 6f 77 27 73 20 68  |. Set window's h|
0000dc00  61 6e 64 6c 65 0d 2d 14  78 e7 66 6f 72 63 65 20  |andle.-.x.force |
0000dc10  8c 20 62 6c 6f 63 6b 21  34 3d 30 3a 62 6c 6f 63  |. block!4=0:bloc|
0000dc20  6b 21 38 3d 30 3a 62 6c  6f 63 6b 21 31 32 3d 26  |k!8=0:block!12=&|
0000dc30  37 46 46 46 3a 62 6c 6f  63 6b 21 31 36 3d 26 37  |7FFF:block!16=&7|
0000dc40  46 46 46 3a c8 99 20 57  55 70 64 61 74 65 57 25  |FFF:.. WUpdateW%|
0000dc50  2c 2c 62 6c 6f 63 6b 20  b8 20 6d 6f 72 65 25 20  |,,block . more% |
0000dc60  8b 20 c8 99 20 57 52 65  64 72 61 77 57 25 2c 2c  |. .. WRedrawW%,,|
0000dc70  62 6c 6f 63 6b 20 b8 20  6d 6f 72 65 25 0d 2d 1e  |block . more%.-.|
0000dc80  46 6e 78 25 3d 28 62 6c  6f 63 6b 21 34 2d 62 6c  |Fnx%=(block!4-bl|
0000dc90  6f 63 6b 21 32 30 29 3a  6e 79 25 3d 28 62 6c 6f  |ock!20):ny%=(blo|
0000dca0  63 6b 21 31 36 2d 62 6c  6f 63 6b 21 32 34 29 3a  |ck!16-block!24):|
0000dcb0  f4 20 47 65 74 20 73 70  72 69 74 65 20 6f 72 69  |. Get sprite ori|
0000dcc0  67 69 6e 0d 2d 28 41 76  77 25 3d 62 6c 6f 63 6b  |gin.-(Avw%=block|
0000dcd0  21 31 32 2d 62 6c 6f 63  6b 21 34 3a 76 68 25 3d  |!12-block!4:vh%=|
0000dce0  62 6c 6f 63 6b 21 31 36  2d 62 6c 6f 63 6b 21 38  |block!16-block!8|
0000dcf0  3a f4 20 56 69 73 69 62  6c 65 20 61 72 65 61 20  |:. Visible area |
0000dd00  73 69 7a 65 0d 2d 32 10  c8 8e 20 68 61 6e 64 6c  |size.-2... handl|
0000dd10  65 25 20 ca 0d 2d 3c 27  20 c9 20 77 69 6e 5f 69  |e% ..-<' . win_i|
0000dd20  6d 67 25 20 3a 20 f4 20  52 65 64 72 61 77 20 69  |mg% : . Redraw i|
0000dd30  6d 61 67 65 20 77 69 6e  64 6f 77 0d 2d 46 3f 20  |mage window.-F? |
0000dd40  20 e7 5a 6f 6f 6d 58 3e  3d 31 20 8c 20 21 61 72  | .ZoomX>=1 . !ar|
0000dd50  67 25 3d 5a 6f 6f 6d 58  3a 61 72 67 25 21 38 3d  |g%=ZoomX:arg%!8=|
0000dd60  31 20 8b 20 21 61 72 67  25 3d 31 3a 61 72 67 25  |1 . !arg%=1:arg%|
0000dd70  21 38 3d 31 2f 5a 6f 6f  6d 58 0d 2d 50 43 20 20  |!8=1/ZoomX.-PC  |
0000dd80  e7 5a 6f 6f 6d 59 3e 3d  31 20 8c 20 61 72 67 25  |.ZoomY>=1 . arg%|
0000dd90  21 34 3d 5a 6f 6f 6d 59  3a 61 72 67 25 21 31 32  |!4=ZoomY:arg%!12|
0000dda0  3d 31 20 8b 20 61 72 67  25 21 34 3d 31 3a 61 72  |=1 . arg%!4=1:ar|
0000ddb0  67 25 21 31 32 3d 31 2f  5a 6f 6f 6d 59 0d 2d 5a  |g%!12=1/ZoomY.-Z|
0000ddc0  40 20 20 73 6d 61 6c 6c  25 3d 28 28 76 77 25 3c  |@  small%=((vw%<|
0000ddd0  3d 31 36 30 29 84 28 76  68 25 3c 3d 31 36 30 29  |=160).(vh%<=160)|
0000dde0  29 3a f4 20 57 69 6e 64  6f 77 20 70 6f 73 73 69  |):. Window possi|
0000ddf0  62 6c 79 20 74 6f 6f 20  73 6d 61 6c 6c 0d 2d 64  |bly too small.-d|
0000de00  44 20 20 e7 73 6d 61 6c  6c 25 20 8c 20 78 25 3d  |D  .small% . x%=|
0000de10  62 6c 6f 63 6b 21 34 3a  79 25 3d 62 6c 6f 63 6b  |block!4:y%=block|
0000de20  21 38 3a 73 25 3d a4 6d  61 78 28 76 77 25 2c 76  |!8:s%=.max(vw%,v|
0000de30  68 25 29 3a c8 99 20 57  53 65 74 43 6f 6c 25 2c  |h%):.. WSetCol%,|
0000de40  30 0d 2d 6e 2a 20 20 c8  95 20 6d 6f 72 65 25 3a  |0.-n*  .. more%:|
0000de50  e7 73 6d 61 6c 6c 25 20  8c 20 c8 93 20 c8 90 20  |.small% . .. .. |
0000de60  78 25 2c 79 25 2c 73 25  2c 73 25 0d 2d 78 38 20  |x%,y%,s%,s%.-x8 |
0000de70  20 f2 70 6c 6f 74 5f 69  6d 61 67 65 28 6e 78 25  | .plot_image(nx%|
0000de80  2c 6e 79 25 2c 30 2c 61  72 67 25 29 3a f4 20 44  |,ny%,0,arg%):. D|
0000de90  69 73 70 6c 61 79 20 69  6d 61 67 65 20 73 70 72  |isplay image spr|
0000dea0  69 74 65 0d 2d 82 35 20  20 c8 99 20 57 47 65 74  |ite.-.5  .. WGet|
0000deb0  52 25 2c 2c 62 6c 6f 63  6b 20 b8 20 6d 6f 72 65  |R%,,block . more|
0000dec0  25 3a ce 3a f4 20 47 65  74 20 6e 65 78 74 20 72  |%:.:. Get next r|
0000ded0  65 63 74 61 6e 67 6c 65  0d 2d 8c 05 cb 0d 2d 96  |ectangle.-....-.|
0000dee0  05 e1 0d 2d a0 05 20 0d  2d aa 1f dd f2 6f 70 65  |...-.. .-....ope|
0000def0  6e 5f 77 69 6e 64 6f 77  28 68 61 6e 64 6c 65 25  |n_window(handle%|
0000df00  2c 69 6e 66 6f 29 0d 2d  b4 26 f4 20 4f 70 65 6e  |,info).-.&. Open|
0000df10  73 20 77 69 6e 64 6f 77  20 77 69 74 68 20 68 61  |s window with ha|
0000df20  6e 64 6c 65 20 68 61 6e  64 6c 65 25 0d 2d be 3a  |ndle handle%.-.:|
0000df30  f4 20 49 66 20 69 6e 66  6f 3c 3e 30 20 74 68 65  |. If info<>0 the|
0000df40  6e 20 69 6e 66 6f 20 69  73 20 72 65 61 64 79 20  |n info is ready |
0000df50  61 74 20 69 6e 66 6f 2c  20 65 6c 73 65 20 67 65  |at info, else ge|
0000df60  74 20 69 6e 66 6f 0d 2d  c8 1b ea 20 62 25 2c 70  |t info.-... b%,p|
0000df70  78 25 2c 70 79 25 2c 5f  25 2c 78 73 25 2c 79 73  |x%,py%,_%,xs%,ys|
0000df80  25 0d 2d d2 0e e7 69 6e  66 6f 3c 3e 30 20 8c 0d  |%.-...info<>0 ..|
0000df90  2d dc 27 20 e3 20 62 25  3d 30 20 b8 20 33 31 20  |-.' . b%=0 . 31 |
0000dfa0  88 20 34 3a 62 6c 6f 63  6b 21 62 25 3d 69 6e 66  |. 4:block!b%=inf|
0000dfb0  6f 21 62 25 3a ed 0d 2d  e6 26 cc 20 21 62 6c 6f  |o!b%:..-.&. !blo|
0000dfc0  63 6b 3d 68 61 6e 64 6c  65 25 3a c8 99 20 57 47  |ck=handle%:.. WG|
0000dfd0  65 74 57 53 25 2c 2c 62  6c 6f 63 6b 0d 2d f0 c8  |etWS%,,block.-..|
0000dfe0  20 e7 68 61 6e 64 6c 65  25 3c 3e 77 69 6e 5f 69  | .handle%<>win_i|
0000dff0  6d 67 25 20 8c 20 f2 6d  6f 75 73 65 28 70 78 25  |mg% . .mouse(px%|
0000e000  2c 70 79 25 2c 5f 25 29  3a 78 73 25 3d 62 6c 6f  |,py%,_%):xs%=blo|
0000e010  63 6b 21 31 32 2d 62 6c  6f 63 6b 21 34 3a 79 73  |ck!12-block!4:ys|
0000e020  25 3d 62 6c 6f 63 6b 21  31 36 2d 62 6c 6f 63 6b  |%=block!16-block|
0000e030  21 38 3a 62 6c 6f 63 6b  21 34 3d 70 78 25 2d 36  |!8:block!4=px%-6|
0000e040  34 3a 62 6c 6f 63 6b 21  38 3d 70 79 25 2d 79 73  |4:block!8=py%-ys|
0000e050  25 2b 31 36 3a 62 6c 6f  63 6b 21 31 32 3d 62 6c  |%+16:block!12=bl|
0000e060  6f 63 6b 21 34 2b 78 73  25 3a 62 6c 6f 63 6b 21  |ock!4+xs%:block!|
0000e070  31 36 3d 62 6c 6f 63 6b  21 38 2b 79 73 25 3a f4  |16=block!8+ys%:.|
0000e080  20 50 6f 70 20 75 70 20  61 74 20 6d 6f 75 73 65  | Pop up at mouse|
0000e090  20 69 66 20 6e 6f 74 20  69 6d 61 67 65 20 77 69  | if not image wi|
0000e0a0  6e 64 6f 77 0d 2d fa 05  cd 0d 2e 04 15 c8 99 20  |ndow.-......... |
0000e0b0  57 4f 70 65 6e 57 25 2c  2c 62 6c 6f 63 6b 0d 2e  |WOpenW%,,block..|
0000e0c0  0e 05 e1 0d 2e 18 05 20  0d 2e 22 1b dd f2 63 6c  |....... .."...cl|
0000e0d0  6f 73 65 5f 77 69 6e 64  6f 77 28 68 61 6e 64 6c  |ose_window(handl|
0000e0e0  65 25 29 0d 2e 2c 27 f4  20 43 6c 6f 73 65 73 20  |e%)..,'. Closes |
0000e0f0  77 69 6e 64 6f 77 20 77  69 74 68 20 68 61 6e 64  |window with hand|
0000e100  6c 65 20 68 61 6e 64 6c  65 25 0d 2e 36 25 21 62  |le handle%..6%!b|
0000e110  6c 6f 63 6b 3d 68 61 6e  64 6c 65 25 3a c8 99 20  |lock=handle%:.. |
0000e120  57 43 6c 6f 73 65 57 25  2c 2c 62 6c 6f 63 6b 0d  |WCloseW%,,block.|
0000e130  2e 40 05 e1 0d 2e 4a 05  20 0d 2e 54 11 dd a4 70  |.@....J. ..T...p|
0000e140  6f 6c 6c 28 6d 61 73 6b  25 29 0d 2e 5e 40 f4 20  |oll(mask%)..^@. |
0000e150  52 65 74 75 72 6e 73 20  70 6f 6c 6c 20 72 65 61  |Returns poll rea|
0000e160  73 6f 6e 20 63 6f 64 65  2c 20 6d 61 73 6b 69 6e  |son code, maskin|
0000e170  67 20 77 69 74 68 20 6d  61 73 6b 25 2c 20 64 61  |g with mask%, da|
0000e180  74 61 20 61 74 20 70 6f  6c 6c 0d 2e 68 10 ea 20  |ta at poll..h.. |
0000e190  72 65 61 73 6f 6e 63 6f  64 65 0d 2e 72 25 c8 99  |reasoncode..r%..|
0000e1a0  20 57 50 6f 6c 6c 25 2c  6d 61 73 6b 25 2c 70 6f  | WPoll%,mask%,po|
0000e1b0  6c 6c 20 b8 20 72 65 61  73 6f 6e 63 6f 64 65 0d  |ll . reasoncode.|
0000e1c0  2e 7c 0f 3d 72 65 61 73  6f 6e 63 6f 64 65 0d 2e  |.|.=reasoncode..|
0000e1d0  86 05 20 0d 2e 90 10 dd  f2 69 6e 69 74 69 61 6c  |.. ......initial|
0000e1e0  69 73 65 0d 2e 9a 19 f4  20 49 6e 69 74 69 61 6c  |ise..... Initial|
0000e1f0  69 73 65 73 20 70 72 6f  67 72 61 6d 0d 2e a4 3e  |ises program...>|
0000e200  c8 99 20 22 57 69 6d 70  5f 52 65 61 64 50 61 6c  |.. "Wimp_ReadPal|
0000e210  65 74 74 65 22 2c 2c 77  69 6d 70 70 61 6c 3a f4  |ette",,wimppal:.|
0000e220  20 52 65 61 64 20 63 75  72 72 65 6e 74 20 57 49  | Read current WI|
0000e230  4d 50 20 70 61 6c 65 74  74 65 0d 2e ae 37 f2 68  |MP palette...7.h|
0000e240  6f 75 72 5f 6f 6e 3a f2  69 6e 69 74 5f 6d 6f 64  |our_on:.init_mod|
0000e250  75 6c 65 3a f2 68 6f 75  72 5f 6f 66 66 3a f4 20  |ule:.hour_off:. |
0000e260  49 6e 69 74 69 61 6c 69  73 65 20 6d 6f 64 75 6c  |Initialise modul|
0000e270  65 0d 2e b8 44 c8 99 20  22 4f 53 5f 43 68 65 63  |e...D.. "OS_Chec|
0000e280  6b 4d 6f 64 65 56 61 6c  69 64 22 2c 31 38 20 b8  |kModeValid",18 .|
0000e290  20 5f 25 3a 4d 75 6c 74  69 53 79 6e 63 3d 28 5f  | _%:MultiSync=(_|
0000e2a0  25 3c 3e 2d 31 29 3a f4  20 4d 6f 6e 69 74 6f 72  |%<>-1):. Monitor|
0000e2b0  20 74 79 70 65 0d 2e c2  30 61 70 70 6c 6e 61 6d  | type...0applnam|
0000e2c0  65 24 3d 22 54 72 61 6e  73 6c 61 74 6f 72 22 3a  |e$="Translator":|
0000e2d0  f4 20 4e 61 6d 65 20 6f  66 20 61 70 70 6c 69 63  |. Name of applic|
0000e2e0  61 74 69 6f 6e 0d 2e cc  46 c8 99 20 22 57 69 6d  |ation...F.. "Wim|
0000e2f0  70 5f 49 6e 69 74 69 61  6c 69 73 65 22 2c 32 30  |p_Initialise",20|
0000e300  30 2c 26 34 42 35 33 34  31 35 34 2c 61 70 70 6c  |0,&4B534154,appl|
0000e310  6e 61 6d 65 24 20 b8 20  76 65 72 73 69 6f 6e 2c  |name$ . version,|
0000e320  54 61 73 6b 48 61 6e 64  6c 65 25 0d 2e d6 39 e7  |TaskHandle%...9.|
0000e330  76 65 72 73 69 6f 6e 3c  32 30 30 20 8c 20 85 20  |version<200 . . |
0000e340  31 2c 22 49 20 63 61 6e  6e 6f 74 20 77 6f 72 6b  |1,"I cannot work|
0000e350  20 77 69 74 68 20 57 49  4d 50 20 70 72 65 2d 32  | with WIMP pre-2|
0000e360  2e 30 30 22 0d 2e e0 36  57 25 3d a4 73 77 69 5f  |.00"...6W%=.swi_|
0000e370  74 6f 5f 6e 72 28 22 57  69 6d 70 5f 49 6e 69 74  |to_nr("Wimp_Init|
0000e380  69 61 6c 69 73 65 22 29  3a f4 20 42 61 73 65 20  |ialise"):. Base |
0000e390  53 57 49 20 6e 75 6d 62  65 72 0d 2e ea 9e 57 43  |SWI number....WC|
0000e3a0  72 65 61 74 65 57 25 3d  57 25 2b 31 3a 57 43 72  |reateW%=W%+1:WCr|
0000e3b0  65 61 74 65 49 25 3d 57  25 2b 32 3a 57 44 65 6c  |eateI%=W%+2:WDel|
0000e3c0  65 74 65 57 25 3d 57 25  2b 33 3a 57 4f 70 65 6e  |eteW%=W%+3:WOpen|
0000e3d0  57 25 3d 57 25 2b 35 3a  57 43 6c 6f 73 65 57 25  |W%=W%+5:WCloseW%|
0000e3e0  3d 57 25 2b 36 3a 57 50  6f 6c 6c 25 3d 57 25 2b  |=W%+6:WPoll%=W%+|
0000e3f0  37 3a 57 52 65 64 72 61  77 57 25 3d 57 25 2b 38  |7:WRedrawW%=W%+8|
0000e400  3a 57 55 70 64 61 74 65  57 25 3d 57 25 2b 39 3a  |:WUpdateW%=W%+9:|
0000e410  57 47 65 74 52 25 3d 57  25 2b 31 30 3a 57 47 65  |WGetR%=W%+10:WGe|
0000e420  74 57 53 25 3d 57 25 2b  31 31 3a 57 53 65 74 49  |tWS%=W%+11:WSetI|
0000e430  53 25 3d 57 25 2b 31 33  0d 2e f4 92 57 47 65 74  |S%=W%+13....WGet|
0000e440  49 53 25 3d 57 25 2b 31  34 3a 57 47 65 74 50 49  |IS%=W%+14:WGetPI|
0000e450  25 3d 57 25 2b 31 35 3a  57 44 72 61 67 42 25 3d  |%=W%+15:WDragB%=|
0000e460  57 25 2b 31 36 3a 57 46  6f 72 63 65 25 3d 57 25  |W%+16:WForce%=W%|
0000e470  2b 31 37 3a 57 43 72 65  61 74 65 4d 25 3d 57 25  |+17:WCreateM%=W%|
0000e480  2b 32 30 3a 57 44 65 63  6f 64 65 4d 25 3d 57 25  |+20:WDecodeM%=W%|
0000e490  2b 32 31 3a 57 53 65 74  45 25 3d 57 25 2b 32 33  |+21:WSetE%=W%+23|
0000e4a0  3a 57 4c 6f 61 64 54 25  3d 57 25 2b 32 37 3a 57  |:WLoadT%=W%+27:W|
0000e4b0  52 65 70 6f 72 74 25 3d  57 25 2b 33 31 3a 57 53  |Report%=W%+31:WS|
0000e4c0  65 74 4d 25 3d 57 25 2b  33 35 0d 2e fe 4e 57 53  |etM%=W%+35...NWS|
0000e4d0  65 74 50 25 3d 57 25 2b  33 36 3a 57 52 65 61 64  |etP%=W%+36:WRead|
0000e4e0  50 25 3d 57 25 2b 33 37  3a 57 53 65 74 43 6f 6c  |P%=W%+37:WSetCol|
0000e4f0  25 3d 57 25 2b 33 38 3a  57 53 65 6e 64 4d 73 67  |%=W%+38:WSendMsg|
0000e500  25 3d 57 25 2b 33 39 3a  57 43 72 65 61 74 65 53  |%=W%+39:WCreateS|
0000e510  4d 25 3d 57 25 2b 34 30  0d 2f 08 7d 4f 53 53 70  |M%=W%+40./.}OSSp|
0000e520  6f 70 25 3d a4 73 77 69  5f 74 6f 5f 6e 72 28 22  |op%=.swi_to_nr("|
0000e530  4f 53 5f 53 70 72 69 74  65 4f 70 22 29 3a 4f 53  |OS_SpriteOp"):OS|
0000e540  52 65 61 64 56 56 25 3d  a4 73 77 69 5f 74 6f 5f  |ReadVV%=.swi_to_|
0000e550  6e 72 28 22 4f 53 5f 52  65 61 64 56 64 75 56 61  |nr("OS_ReadVduVa|
0000e560  72 69 61 62 6c 65 73 22  29 3a 4f 53 52 65 61 64  |riables"):OSRead|
0000e570  4d 56 25 3d a4 73 77 69  5f 74 6f 5f 6e 72 28 22  |MV%=.swi_to_nr("|
0000e580  4f 53 5f 52 65 61 64 4d  6f 64 65 56 61 72 69 61  |OS_ReadModeVaria|
0000e590  62 6c 65 22 29 0d 2f 12  33 c8 99 20 57 52 65 61  |ble")./.3.. WRea|
0000e5a0  64 50 25 2c 2c 77 69 6d  70 70 61 6c 3a f4 20 52  |dP%,,wimppal:. R|
0000e5b0  65 61 64 20 63 75 72 72  65 6e 74 20 57 49 4d 50  |ead current WIMP|
0000e5c0  20 70 61 6c 65 74 74 65  0d 2f 1c 3d 74 66 25 3d  | palette./.=tf%=|
0000e5d0  37 3a 74 62 25 3d 32 3a  77 66 25 3d 37 3a 77 62  |7:tb%=2:wf%=7:wb|
0000e5e0  25 3d 30 3a 73 69 25 3d  31 3a 73 6f 25 3d 33 3a  |%=0:si%=1:so%=3:|
0000e5f0  f4 20 57 69 6e 64 6f 77  2f 6d 65 6e 75 20 63 6f  |. Window/menu co|
0000e600  6c 6f 75 72 73 0d 2f 26  94 21 62 6c 6f 63 6b 3d  |lours./&.!block=|
0000e610  2d 31 3a 62 6c 6f 63 6b  21 34 3d 30 3a 62 6c 6f  |-1:block!4=0:blo|
0000e620  63 6b 21 38 3d 30 3a 62  6c 6f 63 6b 21 31 32 3d  |ck!8=0:block!12=|
0000e630  36 38 3a 62 6c 6f 63 6b  21 31 36 3d 36 38 3a 62  |68:block!16=68:b|
0000e640  6c 6f 63 6b 21 32 30 3d  26 32 37 30 30 33 30 30  |lock!20=&2700300|
0000e650  32 3a 24 28 62 6c 6f 63  6b 2b 32 34 29 3d 22 21  |2:$(block+24)="!|
0000e660  74 72 61 6e 73 6c 61 74  72 22 3a c8 99 20 57 43  |translatr":.. WC|
0000e670  72 65 61 74 65 49 25 2c  2c 62 6c 6f 63 6b 20 b8  |reateI%,,block .|
0000e680  20 49 69 63 6f 6e 62 61  72 25 3a f4 20 49 63 6f  | Iiconbar%:. Ico|
0000e690  6e 62 61 72 20 69 63 6f  6e 0d 2f 30 1c f4 20 4c  |nbar icon./0.. L|
0000e6a0  6f 61 64 20 73 70 72 69  74 65 73 20 66 6f 72 20  |oad sprites for |
0000e6b0  69 63 6f 6e 73 0d 2f 3a  48 21 69 63 6f 6e 73 70  |icons./:H!iconsp|
0000e6c0  72 69 74 65 73 3d 32 30  34 38 3a 69 63 6f 6e 73  |rites=2048:icons|
0000e6d0  70 72 69 74 65 73 21 34  3d 30 3a 69 63 6f 6e 73  |prites!4=0:icons|
0000e6e0  70 72 69 74 65 73 21 38  3d 31 36 3a 69 63 6f 6e  |prites!8=16:icon|
0000e6f0  73 70 72 69 74 65 73 21  31 32 3d 31 36 0d 2f 44  |sprites!12=16./D|
0000e700  3c c8 99 20 4f 53 53 70  6f 70 25 2c 31 30 2b 32  |<.. OSSpop%,10+2|
0000e710  35 36 2c 69 63 6f 6e 73  70 72 69 74 65 73 2c 22  |56,iconsprites,"|
0000e720  3c 54 72 61 6e 73 6c 61  74 6f 72 24 44 69 72 3e  |<Translator$Dir>|
0000e730  2e 53 70 72 69 74 65 73  22 0d 2f 4e 14 f4 20 4c  |.Sprites"./N.. L|
0000e740  6f 61 64 20 74 65 6d 70  6c 61 74 65 73 0d 2f 58  |oad templates./X|
0000e750  38 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |8.. "Wimp_OpenTe|
0000e760  6d 70 6c 61 74 65 22 2c  2c 22 3c 54 72 61 6e 73  |mplate",,"<Trans|
0000e770  6c 61 74 6f 72 24 44 69  72 3e 2e 54 65 6d 70 6c  |lator$Dir>.Templ|
0000e780  61 74 65 73 22 0d 2f 62  3c 69 63 3d 69 63 6f 6e  |ates"./b<ic=icon|
0000e790  64 61 74 61 3a 69 65 3d  69 63 6f 6e 64 65 6e 64  |data:ie=icondend|
0000e7a0  3a f4 20 49 6e 64 69 72  65 63 74 65 64 20 69 63  |:. Indirected ic|
0000e7b0  6f 6e 20 64 61 74 61 20  77 6f 72 6b 73 70 61 63  |on data workspac|
0000e7c0  65 0d 2f 6c 3b 24 64 75  6d 25 3d 22 73 61 76 65  |e./l;$dum%="save|
0000e7d0  22 3a c8 99 20 57 4c 6f  61 64 54 25 2c 2c 77 69  |":.. WLoadT%,,wi|
0000e7e0  6e 64 6f 77 32 2c 69 63  2c 69 65 2c 2d 31 2c 64  |ndow2,ic,ie,-1,d|
0000e7f0  75 6d 25 2c 30 20 b8 20  2c 2c 69 63 0d 2f 76 24  |um%,0 . ,,ic./v$|
0000e800  77 69 6e 64 6f 77 32 21  28 38 38 2b 32 34 29 3d  |window2!(88+24)=|
0000e810  31 3a f4 20 57 49 4d 50  20 61 72 65 61 70 74 72  |1:. WIMP areaptr|
0000e820  0d 2f 80 25 c8 99 20 57  43 72 65 61 74 65 57 25  |./.%.. WCreateW%|
0000e830  2c 2c 77 69 6e 64 6f 77  32 20 b8 20 77 69 6e 5f  |,,window2 . win_|
0000e840  66 69 6c 65 25 0d 2f 8a  3f 53 41 56 73 6e 25 3d  |file%./.?SAVsn%=|
0000e850  a4 69 63 6f 6e 61 64 64  72 28 77 69 6e 5f 66 69  |.iconaddr(win_fi|
0000e860  6c 65 25 2c 30 29 3a 53  41 56 66 6e 25 3d a4 69  |le%,0):SAVfn%=.i|
0000e870  63 6f 6e 61 64 64 72 28  77 69 6e 5f 66 69 6c 65  |conaddr(win_file|
0000e880  25 2c 31 29 0d 2f 94 3b  24 64 75 6d 25 3d 22 69  |%,1)./.;$dum%="i|
0000e890  6e 66 6f 22 3a c8 99 20  57 4c 6f 61 64 54 25 2c  |nfo":.. WLoadT%,|
0000e8a0  2c 77 69 6e 64 6f 77 33  2c 69 63 2c 69 65 2c 2d  |,window3,ic,ie,-|
0000e8b0  31 2c 64 75 6d 25 2c 30  20 b8 20 2c 2c 69 63 0d  |1,dum%,0 . ,,ic.|
0000e8c0  2f 9e 25 c8 99 20 57 43  72 65 61 74 65 57 25 2c  |/.%.. WCreateW%,|
0000e8d0  2c 77 69 6e 64 6f 77 33  20 b8 20 77 69 6e 5f 69  |,window3 . win_i|
0000e8e0  6e 66 6f 25 0d 2f a8 40  24 64 75 6d 25 3d 22 66  |nfo%./.@$dum%="f|
0000e8f0  69 6c 65 74 79 70 65 73  22 3a c8 99 20 57 4c 6f  |iletypes":.. WLo|
0000e900  61 64 54 25 2c 2c 77 69  6e 64 6f 77 35 2c 69 63  |adT%,,window5,ic|
0000e910  2c 69 65 2c 2d 31 2c 64  75 6d 25 2c 30 20 b8 20  |,ie,-1,dum%,0 . |
0000e920  2c 2c 69 63 0d 2f b2 26  c8 99 20 57 43 72 65 61  |,,ic./.&.. WCrea|
0000e930  74 65 57 25 2c 2c 77 69  6e 64 6f 77 35 20 b8 20  |teW%,,window5 . |
0000e940  77 69 6e 5f 66 69 6c 65  74 25 0d 2f bc 40 24 64  |win_filet%./.@$d|
0000e950  75 6d 25 3d 22 69 6d 61  67 65 69 6e 66 6f 22 3a  |um%="imageinfo":|
0000e960  c8 99 20 57 4c 6f 61 64  54 25 2c 2c 77 69 6e 64  |.. WLoadT%,,wind|
0000e970  6f 77 34 2c 69 63 2c 69  65 2c 2d 31 2c 64 75 6d  |ow4,ic,ie,-1,dum|
0000e980  25 2c 30 20 b8 20 2c 2c  69 63 0d 2f c6 27 c8 99  |%,0 . ,,ic./.'..|
0000e990  20 57 43 72 65 61 74 65  57 25 2c 2c 77 69 6e 64  | WCreateW%,,wind|
0000e9a0  6f 77 34 20 b8 20 77 69  6e 5f 69 6d 69 6e 66 6f  |ow4 . win_iminfo|
0000e9b0  25 0d 2f d0 89 77 25 3d  77 69 6e 5f 69 6d 69 6e  |%./..w%=win_imin|
0000e9c0  66 6f 25 3a 49 4d 49 66  6e 25 3d a4 69 63 6f 6e  |fo%:IMIfn%=.icon|
0000e9d0  61 64 64 72 28 77 25 2c  39 29 3a 49 4d 49 69 74  |addr(w%,9):IMIit|
0000e9e0  25 3d a4 69 63 6f 6e 61  64 64 72 28 77 25 2c 31  |%=.iconaddr(w%,1|
0000e9f0  30 29 3a 49 4d 49 69 6e  25 3d a4 69 63 6f 6e 61  |0):IMIin%=.icona|
0000ea00  64 64 72 28 77 25 2c 31  31 29 3a 49 4d 49 69 66  |ddr(w%,11):IMIif|
0000ea10  25 3d a4 69 63 6f 6e 61  64 64 72 28 77 25 2c 31  |%=.iconaddr(w%,1|
0000ea20  32 29 3a 49 4d 49 63 6f  25 3d a4 69 63 6f 6e 61  |2):IMIco%=.icona|
0000ea30  64 64 72 28 77 25 2c 31  33 29 0d 2f da 63 49 4d  |ddr(w%,13)./.cIM|
0000ea40  49 77 68 25 3d a4 69 63  6f 6e 61 64 64 72 28 77  |Iwh%=.iconaddr(w|
0000ea50  25 2c 31 34 29 3a 49 4d  49 73 63 25 3d a4 69 63  |%,14):IMIsc%=.ic|
0000ea60  6f 6e 61 64 64 72 28 77  25 2c 31 35 29 3a 49 4d  |onaddr(w%,15):IM|
0000ea70  49 62 70 25 3d a4 69 63  6f 6e 61 64 64 72 28 77  |Ibp%=.iconaddr(w|
0000ea80  25 2c 31 36 29 3a 49 4d  49 73 6d 25 3d a4 69 63  |%,16):IMIsm%=.ic|
0000ea90  6f 6e 61 64 64 72 28 77  25 2c 31 37 29 0d 2f e4  |onaddr(w%,17)./.|
0000eaa0  3e 24 64 75 6d 25 3d 22  72 67 62 62 69 74 73 22  |>$dum%="rgbbits"|
0000eab0  3a c8 99 20 57 4c 6f 61  64 54 25 2c 2c 77 69 6e  |:.. WLoadT%,,win|
0000eac0  64 6f 77 36 2c 69 63 2c  69 65 2c 2d 31 2c 64 75  |dow6,ic,ie,-1,du|
0000ead0  6d 25 2c 30 20 b8 20 2c  2c 69 63 0d 2f ee 44 e3  |m%,0 . ,,ic./.D.|
0000eae0  20 69 25 3d 33 20 b8 20  35 3a 61 70 25 3d 77 69  | i%=3 . 5:ap%=wi|
0000eaf0  6e 64 6f 77 36 2b 38 38  2b 69 25 2a 33 32 2b 32  |ndow6+88+i%*32+2|
0000eb00  34 3a 21 61 70 25 3d 69  63 6f 6e 73 70 72 69 74  |4:!ap%=iconsprit|
0000eb10  65 73 3a ed 3a f4 20 41  72 65 61 70 74 72 73 0d  |es:.:. Areaptrs.|
0000eb20  2f f8 28 c8 99 20 57 43  72 65 61 74 65 57 25 2c  |/.(.. WCreateW%,|
0000eb30  2c 77 69 6e 64 6f 77 36  20 b8 20 77 69 6e 5f 72  |,window6 . win_r|
0000eb40  67 62 62 69 74 73 25 0d  30 02 46 24 64 75 6d 25  |gbbits%.0.F$dum%|
0000eb50  3d 22 69 6d 61 67 65 22  3a 49 4d 57 74 74 25 3d  |="image":IMWtt%=|
0000eb60  69 63 3a c8 99 20 57 4c  6f 61 64 54 25 2c 2c 77  |ic:.. WLoadT%,,w|
0000eb70  69 6e 64 6f 77 31 2c 69  63 2c 69 65 2c 2d 31 2c  |indow1,ic,ie,-1,|
0000eb80  64 75 6d 25 2c 30 20 b8  20 2c 2c 69 63 0d 30 0c  |dum%,0 . ,,ic.0.|
0000eb90  2b 77 69 6e 64 6f 77 31  3f 33 35 3d 26 46 46 3a  |+window1?35=&FF:|
0000eba0  f4 20 54 72 61 6e 73 70  61 72 65 6e 74 20 62 61  |. Transparent ba|
0000ebb0  63 6b 67 72 6f 75 6e 64  0d 30 16 24 c8 99 20 57  |ckground.0.$.. W|
0000ebc0  43 72 65 61 74 65 57 25  2c 2c 77 69 6e 64 6f 77  |CreateW%,,window|
0000ebd0  31 20 b8 20 77 69 6e 5f  69 6d 67 25 0d 30 20 1b  |1 . win_img%.0 .|
0000ebe0  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 54 65  |.. "Wimp_CloseTe|
0000ebf0  6d 70 6c 61 74 65 22 0d  30 2a 14 f4 20 49 6e 69  |mplate".0*.. Ini|
0000ec00  74 20 76 61 72 69 61 62  6c 65 73 0d 30 34 8d 53  |t variables.04.S|
0000ec10  61 76 65 4b 69 6e 64 24  3d 22 22 3a 49 6d 67 3d  |aveKind$="":Img=|
0000ec20  a3 3a 50 61 6c 6f 6e 6f  66 66 3d b9 3a 5a 6f 6f  |.:Palonoff=.:Zoo|
0000ec30  6d 58 3d 31 3a 5a 6f 6f  6d 59 3d 31 3a 73 75 62  |mX=1:ZoomY=1:sub|
0000ec40  31 25 3d 73 75 62 6d 65  6e 75 31 3a 73 75 62 32  |1%=submenu1:sub2|
0000ec50  25 3d 73 75 62 6d 65 6e  75 32 3a 73 75 62 33 25  |%=submenu2:sub3%|
0000ec60  3d 73 75 62 6d 65 6e 75  33 3a 49 6d 61 67 65 53  |=submenu3:ImageS|
0000ec70  70 72 24 3d 22 69 6d 61  67 65 22 3a 43 75 72 72  |pr$="image":Curr|
0000ec80  53 75 62 24 3d 22 22 3a  46 6c 65 6e 25 3d 30 3a  |Sub$="":Flen%=0:|
0000ec90  4c 6f 61 64 24 3d 22 22  0d 30 3e 8c 44 61 74 61  |Load$="".0>.Data|
0000eca0  53 61 76 65 52 65 66 25  3d 2d 31 3a 44 61 74 61  |SaveRef%=-1:Data|
0000ecb0  4c 6f 61 64 52 65 66 25  3d a3 3a 59 4d 75 6c 25  |LoadRef%=.:YMul%|
0000ecc0  3d 31 3a 59 44 69 76 25  3d 31 3a 58 4d 75 6c 25  |=1:YDiv%=1:XMul%|
0000ecd0  3d 31 3a 58 44 69 76 25  3d 31 3a 43 6c 65 61 72  |=1:XDiv%=1:Clear|
0000ece0  46 69 6c 65 3d a3 3a 53  61 76 65 53 70 72 24 3d  |File=.:SaveSpr$=|
0000ecf0  22 49 6d 61 67 65 22 3a  53 61 76 65 43 6c 65 61  |"Image":SaveClea|
0000ed00  72 24 3d 22 43 6c 65 61  72 22 3a 53 70 72 53 61  |r$="Clear":SprSa|
0000ed10  76 65 24 3d 22 22 3a 43  6c 65 61 72 53 61 76 65  |ve$="":ClearSave|
0000ed20  24 3d 22 22 0d 30 48 85  46 69 6c 65 28 29 3d 30  |$="".0H.File()=0|
0000ed30  3a 53 70 72 57 25 3d 30  3a 53 70 72 48 25 3d 30  |:SprW%=0:SprH%=0|
0000ed40  3a 49 6d 61 67 65 4e 72  25 3d 31 3a 41 75 74 6f  |:ImageNr%=1:Auto|
0000ed50  4d 6f 64 65 3d b9 3a 41  75 74 6f 50 61 6c 3d b9  |Mode=.:AutoPal=.|
0000ed60  3a 43 75 72 72 4d 6f 64  65 25 3d 2d 31 3a 45 72  |:CurrMode%=-1:Er|
0000ed70  72 53 70 72 65 61 64 3d  b9 3a 4d 6f 64 65 53 65  |rSpread=.:ModeSe|
0000ed80  74 3d 30 3a 55 73 65 72  4d 6f 64 65 53 65 74 25  |t=0:UserModeSet%|
0000ed90  28 29 3d 30 2c 30 2c 38  2c 31 32 2c 31 35 3a 41  |()=0,0,8,12,15:A|
0000eda0  75 74 6f 5a 6f 6f 6d 3d  a3 0d 30 52 81 42 6c 61  |utoZoom=..0R.Bla|
0000edb0  63 6b 57 68 69 74 65 3d  a3 3a 54 72 61 6e 73 54  |ckWhite=.:TransT|
0000edc0  61 62 49 64 3d a3 3a 49  6d 67 4d 6f 64 65 25 3d  |abId=.:ImgMode%=|
0000edd0  30 3a 47 49 46 53 63 61  6e 3d a3 3a 52 47 42 62  |0:GIFScan=.:RGBb|
0000ede0  69 74 73 25 3d 26 30 38  30 38 30 38 3a 42 6c 61  |its%=&080808:Bla|
0000edf0  6e 6b 69 6e 67 3d a3 3a  5a 69 67 5a 61 67 3d b9  |nking=.:ZigZag=.|
0000ee00  3a 49 6e 76 65 72 74 52  47 42 3d a3 3a 46 72 65  |:InvertRGB=.:Fre|
0000ee10  71 43 61 6c 63 3d a3 3a  4f 75 74 4d 6f 64 65 3d  |qCalc=.:OutMode=|
0000ee20  31 3a 4f 75 74 50 61 6c  3d 31 0d 30 5c 30 e7 a4  |1:OutPal=1.0\0..|
0000ee30  6c 6f 61 64 5f 73 74 61  74 75 73 3a f4 20 4c 6f  |load_status:. Lo|
0000ee40  61 64 20 64 65 66 61 75  6c 74 20 73 74 61 74 75  |ad default statu|
0000ee50  73 20 28 69 66 20 61 6e  79 29 0d 30 66 2e f2 73  |s (if any).0f..s|
0000ee60  70 72 69 74 65 5f 68 65  61 64 65 72 28 30 29 3a  |prite_header(0):|
0000ee70  f4 20 49 6e 69 74 69 61  6c 69 73 65 20 73 70 72  |. Initialise spr|
0000ee80  69 74 65 20 61 72 65 61  0d 30 70 05 e1 0d 30 7a  |ite area.0p...0z|
0000ee90  05 20 0d 30 84 19 dd a4  69 63 6f 6e 61 64 64 72  |. .0....iconaddr|
0000eea0  28 77 69 6e 25 2c 69 63  6f 25 29 0d 30 8e 2c f4  |(win%,ico%).0.,.|
0000eeb0  20 52 65 74 75 72 6e 73  20 69 6e 64 69 72 65 63  | Returns indirec|
0000eec0  74 65 64 20 69 63 6f 6e  27 73 20 64 61 74 61 20  |ted icon's data |
0000eed0  61 64 64 72 65 73 73 0d  30 98 3e 21 62 6c 6f 63  |address.0.>!bloc|
0000eee0  6b 3d 77 69 6e 25 3a 62  6c 6f 63 6b 21 34 3d 69  |k=win%:block!4=i|
0000eef0  63 6f 25 3a c8 99 20 57  47 65 74 49 53 25 2c 2c  |co%:.. WGetIS%,,|
0000ef00  62 6c 6f 63 6b 3a f4 20  47 65 74 20 69 63 6f 6e  |block:. Get icon|
0000ef10  20 69 6e 66 6f 0d 30 a2  0d 3d 62 6c 6f 63 6b 21  | info.0..=block!|
0000ef20  32 38 0d 30 ac 05 20 0d  30 b6 11 dd a4 6c 6f 61  |28.0.. .0....loa|
0000ef30  64 5f 73 74 61 74 75 73  0d 30 c0 23 f4 20 4c 6f  |d_status.0.#. Lo|
0000ef40  61 64 73 20 64 65 66 61  75 6c 74 20 73 74 61 74  |ads default stat|
0000ef50  75 73 20 28 69 66 20 61  6e 79 29 0d 30 ca 48 f4  |us (if any).0.H.|
0000ef60  20 52 65 74 75 72 6e 73  20 54 52 55 45 20 69 66  | Returns TRUE if|
0000ef70  20 73 75 63 63 65 73 66  75 6c 2c 20 65 6c 73 65  | succesful, else|
0000ef80  20 46 41 4c 53 45 20 28  69 2e 65 2e 20 73 74 61  | FALSE (i.e. sta|
0000ef90  74 75 73 20 66 69 6c 65  20 6e 6f 74 20 66 6f 75  |tus file not fou|
0000efa0  6e 64 29 0d 30 d4 36 53  74 61 74 75 73 3d 8e 28  |nd).0.6Status=.(|
0000efb0  22 3c 54 72 61 6e 73 6c  61 74 6f 72 24 44 69 72  |"<Translator$Dir|
0000efc0  3e 2e 53 74 61 74 75 73  22 29 3a e7 53 74 61 74  |>.Status"):.Stat|
0000efd0  75 73 3d 30 20 8c 20 3d  a3 0d 30 de 38 e8 23 53  |us=0 . =..0.8.#S|
0000efe0  74 61 74 75 73 2c 41 75  74 6f 4d 6f 64 65 2c 41  |tatus,AutoMode,A|
0000eff0  75 74 6f 50 61 6c 2c 4d  6f 64 65 53 65 74 2c 45  |utoPal,ModeSet,E|
0000f000  72 72 53 70 72 65 61 64  2c 50 61 6c 6f 6e 6f 66  |rrSpread,Palonof|
0000f010  66 0d 30 e8 99 e7 ac c5  23 53 74 61 74 75 73 20  |f.0.....#Status |
0000f020  8c 20 e8 23 53 74 61 74  75 73 2c 55 73 65 72 4d  |. .#Status,UserM|
0000f030  6f 64 65 53 65 74 25 28  31 29 2c 55 73 65 72 4d  |odeSet%(1),UserM|
0000f040  6f 64 65 53 65 74 25 28  32 29 2c 55 73 65 72 4d  |odeSet%(2),UserM|
0000f050  6f 64 65 53 65 74 25 28  33 29 2c 55 73 65 72 4d  |odeSet%(3),UserM|
0000f060  6f 64 65 53 65 74 25 28  34 29 3a e7 ac c5 23 53  |odeSet%(4):...#S|
0000f070  74 61 74 75 73 20 8c 20  e8 23 53 74 61 74 75 73  |tatus . .#Status|
0000f080  2c 41 75 74 6f 5a 6f 6f  6d 3a e7 ac c5 23 53 74  |,AutoZoom:...#St|
0000f090  61 74 75 73 20 8c 20 e8  23 53 74 61 74 75 73 2c  |atus . .#Status,|
0000f0a0  42 6c 61 63 6b 57 68 69  74 65 0d 30 f2 7d e7 ac  |BlackWhite.0.}..|
0000f0b0  c5 23 53 74 61 74 75 73  20 8c 20 e8 23 53 74 61  |.#Status . .#Sta|
0000f0c0  74 75 73 2c 47 49 46 53  63 61 6e 3a e7 ac c5 23  |tus,GIFScan:...#|
0000f0d0  53 74 61 74 75 73 20 8c  20 e8 23 53 74 61 74 75  |Status . .#Statu|
0000f0e0  73 2c 42 6c 61 6e 6b 69  6e 67 3a e7 ac c5 23 53  |s,Blanking:...#S|
0000f0f0  74 61 74 75 73 20 8c 20  e8 23 53 74 61 74 75 73  |tatus . .#Status|
0000f100  2c 49 6e 76 65 72 74 52  47 42 3a e7 ac c5 23 53  |,InvertRGB:...#S|
0000f110  74 61 74 75 73 20 8c 20  e8 23 53 74 61 74 75 73  |tatus . .#Status|
0000f120  2c 5a 69 67 5a 61 67 0d  30 fc 0f d9 23 53 74 61  |,ZigZag.0...#Sta|
0000f130  74 75 73 3a 3d b9 0d 31  06 05 20 0d 31 10 48 dd  |tus:=..1.. .1.H.|
0000f140  f2 63 72 65 61 74 65 5f  6d 65 6e 75 28 78 25 2c  |.create_menu(x%,|
0000f150  79 25 2c 74 69 74 6c 65  24 2c 77 69 64 74 68 25  |y%,title$,width%|
0000f160  2c 68 65 69 67 68 74 25  2c 67 61 70 25 2c 69 63  |,height%,gap%,ic|
0000f170  6f 6e 31 24 2c 69 63 6f  6e 32 24 2c 63 72 65 61  |on1$,icon2$,crea|
0000f180  74 65 29 0d 31 1a 36 f4  20 57 72 69 74 65 73 20  |te).1.6. Writes |
0000f190  6d 65 6e 75 20 73 74 72  75 63 74 75 72 65 2c 20  |menu structure, |
0000f1a0  63 72 65 61 74 65 73 20  69 74 20 69 66 20 63 72  |creates it if cr|
0000f1b0  65 61 74 65 3d 54 52 55  45 0d 31 24 3d f4 20 2d  |eate=TRUE.1$=. -|
0000f1c0  20 49 66 20 78 25 3c 30  20 74 68 65 6e 20 78 2f  | If x%<0 then x/|
0000f1d0  79 20 63 6f 6f 72 64 69  6e 61 74 65 73 20 61 72  |y coordinates ar|
0000f1e0  65 20 28 6d 6f 75 73 65  58 2d 36 34 29 2c 28 6d  |e (mouseX-64),(m|
0000f1f0  6f 75 73 65 59 29 0d 31  2e 4a f4 20 2d 20 49 66  |ouseY).1.J. - If|
0000f200  20 74 69 74 6c 65 24 20  73 74 61 72 74 73 20 22  | title$ starts "|
0000f210  5e 3c 6e 72 3e 22 20 74  68 65 6e 20 74 68 69 73  |^<nr>" then this|
0000f220  20 62 65 63 6f 6d 65 73  20 61 20 3c 6e 72 3e 27  | becomes a <nr>'|
0000f230  74 68 20 73 75 62 6d 65  6e 75 20 28 31 2f 32 29  |th submenu (1/2)|
0000f240  0d 31 38 41 f4 20 2d 20  4d 65 6e 75 20 69 63 6f  |.18A. - Menu ico|
0000f250  6e 73 20 69 6e 20 69 63  6f 6e 20 73 74 72 69 6e  |ns in icon strin|
0000f260  67 73 20 3a 20 3f 3c 69  63 6f 6e 31 3e 7c 3f 3c  |gs : ?<icon1>|?<|
0000f270  69 63 6f 6e 32 3e 7c 2e  2e 2e 2e 2e 20 65 74 63  |icon2>|..... etc|
0000f280  2e 0d 31 42 31 f4 20 2d  20 3f 20 69 73 20 61 20  |..1B1. - ? is a |
0000f290  63 68 61 72 61 63 74 65  72 20 63 6f 6e 74 61 69  |character contai|
0000f2a0  6e 69 6e 67 20 73 65 6c  65 63 74 20 62 69 74 73  |ning select bits|
0000f2b0  20 3a 0d 31 4c 1e f4 20  20 20 62 69 74 20 30 20  | :.1L..   bit 0 |
0000f2c0  3a 20 69 63 6f 6e 20 69  73 20 74 69 63 6b 65 64  |: icon is ticked|
0000f2d0  0d 31 56 31 f4 20 20 20  62 69 74 20 31 20 3a 20  |.1V1.   bit 1 : |
0000f2e0  69 63 6f 6e 20 69 73 20  66 6f 6c 6c 6f 77 65 64  |icon is followed|
0000f2f0  20 62 79 20 61 20 64 6f  74 74 65 64 20 6c 69 6e  | by a dotted lin|
0000f300  65 0d 31 60 20 f4 20 20  20 62 69 74 20 32 20 3a  |e.1` .   bit 2 :|
0000f310  20 69 63 6f 6e 20 69 73  20 77 72 69 74 61 62 6c  | icon is writabl|
0000f320  65 0d 31 6a 34 f4 20 20  20 62 69 74 20 33 20 3a  |e.1j4.   bit 3 :|
0000f330  20 69 63 6f 6e 20 69 73  20 73 68 61 64 65 64 20  | icon is shaded |
0000f340  28 69 2e 65 2e 20 6e 6f  74 20 73 65 6c 65 63 74  |(i.e. not select|
0000f350  61 62 6c 65 29 0d 31 74  3e f4 20 20 20 62 69 74  |able).1t>.   bit|
0000f360  20 34 20 3a 20 77 72 69  74 61 62 6c 65 20 69 63  | 4 : writable ic|
0000f370  6f 6e 20 68 61 73 20 34  30 20 63 68 61 72 61 63  |on has 40 charac|
0000f380  74 65 72 73 20 72 6f 6f  6d 20 28 65 6c 73 65 20  |ters room (else |
0000f390  31 36 29 0d 31 7e 18 f4  20 20 20 62 69 74 20 35  |16).1~..   bit 5|
0000f3a0  20 3a 20 61 6c 77 61 79  73 20 31 0d 31 88 41 f4  | : always 1.1.A.|
0000f3b0  20 2d 20 69 63 6f 6e 73  20 6f 66 20 66 6f 72 6d  | - icons of form|
0000f3c0  20 27 3f 3c 73 74 72 3e  26 3c 76 61 6c 3e 27 20  | '?<str>&<val>' |
0000f3d0  68 61 76 65 20 76 61 6c  69 64 61 74 69 6f 6e 20  |have validation |
0000f3e0  73 74 72 69 6e 67 20 3c  76 61 6c 3e 0d 31 92 46  |string <val>.1.F|
0000f3f0  f4 20 2d 20 69 63 6f 6e  73 20 6f 66 20 66 6f 72  |. - icons of for|
0000f400  6d 20 27 3f 3c 73 74 72  3e 23 3c 76 61 6c 3e 27  |m '?<str>#<val>'|
0000f410  20 68 61 76 65 20 73 75  62 2d 77 69 6e 64 6f 77  | have sub-window|
0000f420  20 77 69 74 68 20 68 61  6e 64 6c 65 20 3c 76 61  | with handle <va|
0000f430  6c 3e 0d 31 9c 34 f4 20  20 20 61 6c 73 6f 2c 20  |l>.1.4.   also, |
0000f440  74 68 65 20 27 6d 65 6e  75 20 77 61 72 6e 69 6e  |the 'menu warnin|
0000f450  67 20 6d 65 73 73 61 67  65 27 20 69 73 20 73 65  |g message' is se|
0000f460  6c 65 63 74 65 64 0d 31  a6 39 ea 20 69 24 2c 70  |lected.1.9. i$,p|
0000f470  74 72 25 2c 69 78 25 2c  64 61 74 61 70 74 72 25  |tr%,ix%,dataptr%|
0000f480  2c 69 6c 65 6e 25 2c 70  25 2c 69 74 24 2c 74 79  |,ilen%,p%,it$,ty|
0000f490  70 65 25 2c 64 61 74 61  24 2c 6d 65 6e 75 25 0d  |pe%,data$,menu%.|
0000f4a0  31 b0 22 ea 20 76 61 6c  69 64 24 2c 73 75 62 2c  |1.". valid$,sub,|
0000f4b0  63 61 6c 6c 25 2c 74 69  63 6b 25 2c 77 72 69 74  |call%,tick%,writ|
0000f4c0  25 0d 31 ba 34 ea 20 62  75 74 74 79 25 2c 73 68  |%.1.4. butty%,sh|
0000f4d0  61 64 65 64 25 2c 64 6f  74 74 65 64 25 2c 73 75  |aded%,dotted%,su|
0000f4e0  62 25 2c 73 75 62 77 61  72 6e 25 2c 69 63 6f 6e  |b%,subwarn%,icon|
0000f4f0  25 2c 6e 72 25 0d 31 c4  3f e7 78 25 3c 30 20 8c  |%,nr%.1.?.x%<0 .|
0000f500  20 f2 6d 6f 75 73 65 28  78 25 2c 79 25 2c 5f 25  | .mouse(x%,y%,_%|
0000f510  29 3a 78 25 2d 3d 36 34  3a f4 20 47 65 74 20 63  |):x%-=64:. Get c|
0000f520  6f 6f 72 64 69 6e 61 74  65 73 20 76 69 61 20 6d  |oordinates via m|
0000f530  6f 75 73 65 0d 31 ce 15  e7 c0 74 69 74 6c 65 24  |ouse.1....title$|
0000f540  2c 31 29 3d 22 5e 22 20  8c 0d 31 d8 1e 20 73 75  |,1)="^" ..1.. su|
0000f550  62 3d b9 3a 6e 72 25 3d  bb 28 c1 74 69 74 6c 65  |b=.:nr%=.(.title|
0000f560  24 2c 32 2c 31 29 29 0d  31 e2 47 20 e7 6e 72 25  |$,2,1)).1.G .nr%|
0000f570  3d 31 20 8c 20 6d 65 6e  75 25 3d 73 75 62 6d 65  |=1 . menu%=subme|
0000f580  6e 75 31 20 8b 20 e7 6e  72 25 3d 32 20 8c 20 6d  |nu1 . .nr%=2 . m|
0000f590  65 6e 75 25 3d 73 75 62  6d 65 6e 75 32 20 8b 20  |enu%=submenu2 . |
0000f5a0  6d 65 6e 75 25 3d 73 75  62 6d 65 6e 75 33 0d 31  |menu%=submenu3.1|
0000f5b0  ec 16 20 74 69 74 6c 65  24 3d c1 74 69 74 6c 65  |.. title$=.title|
0000f5c0  24 2c 33 29 0d 31 f6 17  cc 20 73 75 62 3d a3 3a  |$,3).1... sub=.:|
0000f5d0  6d 65 6e 75 25 3d 6d 65  6e 75 31 0d 32 00 05 cd  |menu%=menu1.2...|
0000f5e0  0d 32 0a 74 24 6d 65 6e  75 25 3d 74 69 74 6c 65  |.2.t$menu%=title|
0000f5f0  24 3a 6d 65 6e 75 25 3f  31 32 3d 74 66 25 3a 6d  |$:menu%?12=tf%:m|
0000f600  65 6e 75 25 3f 31 33 3d  74 62 25 3a 6d 65 6e 75  |enu%?13=tb%:menu|
0000f610  25 3f 31 34 3d 77 66 25  3a 6d 65 6e 75 25 3f 31  |%?14=wf%:menu%?1|
0000f620  35 3d 77 62 25 3a 6d 65  6e 75 25 21 31 36 3d 77  |5=wb%:menu%!16=w|
0000f630  69 64 74 68 25 3a 6d 65  6e 75 25 21 32 30 3d 68  |idth%:menu%!20=h|
0000f640  65 69 67 68 74 25 3a 6d  65 6e 75 25 21 32 34 3d  |eight%:menu%!24=|
0000f650  67 61 70 25 0d 32 14 12  f4 20 44 65 66 69 6e 65  |gap%.2... Define|
0000f660  20 69 63 6f 6e 73 0d 32  1e 29 69 24 3d 69 63 6f  | icons.2.)i$=ico|
0000f670  6e 31 24 3a 69 63 6f 6e  25 3d 31 3a f4 20 46 69  |n1$:icon%=1:. Fi|
0000f680  72 73 74 20 69 63 6f 6e  20 73 74 72 69 6e 67 0d  |rst icon string.|
0000f690  32 28 35 70 74 72 25 3d  6d 65 6e 75 25 2b 32 38  |2(5ptr%=menu%+28|
0000f6a0  3a 69 78 25 3d 30 3a 64  61 74 61 70 74 72 25 3d  |:ix%=0:dataptr%=|
0000f6b0  6d 65 6e 75 25 2b 35 31  32 3a f4 20 50 6f 69 6e  |menu%+512:. Poin|
0000f6c0  74 65 72 73 0d 32 32 19  c8 95 20 69 24 3c 3e 22  |ters.22... i$<>"|
0000f6d0  22 3a 70 25 3d a7 69 24  2c 22 7c 22 29 0d 32 3c  |":p%=.i$,"|").2<|
0000f6e0  0b e7 70 25 3d 30 20 8c  0d 32 46 0a 20 69 24 3d  |..p%=0 ..2F. i$=|
0000f6f0  22 22 0d 32 50 13 cc 20  f4 20 44 65 66 69 6e 65  |"".2P.. . Define|
0000f700  20 69 63 6f 6e 0d 32 5a  21 20 69 74 24 3d c0 69  | icon.2Z! it$=.i|
0000f710  24 2c 70 25 2d 31 29 3a  69 24 3d c2 69 24 2c a9  |$,p%-1):i$=.i$,.|
0000f720  69 24 2d 70 25 29 0d 32  64 26 20 74 79 70 65 25  |i$-p%).2d& type%|
0000f730  3d 97 c0 69 74 24 2c 31  29 3a 64 61 74 61 24 3d  |=..it$,1):data$=|
0000f740  c2 69 74 24 2c a9 69 74  24 2d 31 29 0d 32 6e 82  |.it$,.it$-1).2n.|
0000f750  20 74 69 63 6b 25 3d 28  74 79 70 65 25 80 25 30  | tick%=(type%.%0|
0000f760  30 30 30 30 31 29 3a 64  6f 74 74 65 64 25 3d 28  |00001):dotted%=(|
0000f770  74 79 70 65 25 80 25 30  30 30 30 31 30 29 3e 3e  |type%.%000010)>>|
0000f780  31 3a 77 72 69 74 25 3d  28 74 79 70 65 25 80 25  |1:writ%=(type%.%|
0000f790  30 30 30 31 30 30 29 3e  3e 32 3a 73 68 61 64 65  |000100)>>2:shade|
0000f7a0  64 25 3d 28 74 79 70 65  25 80 25 30 30 31 30 30  |d%=(type%.%00100|
0000f7b0  30 29 3e 3e 33 3a 6c 6f  6e 67 25 3d 28 74 79 70  |0)>>3:long%=(typ|
0000f7c0  65 25 80 25 30 31 30 30  30 30 29 3e 3e 34 0d 32  |e%.%010000)>>4.2|
0000f7d0  78 71 20 76 61 6c 69 64  24 3d 22 22 3a 70 25 3d  |xq valid$="":p%=|
0000f7e0  a7 64 61 74 61 24 2c 22  26 22 29 3a e7 70 25 3e  |.data$,"&"):.p%>|
0000f7f0  30 20 8c 20 76 61 6c 69  64 24 3d c1 64 61 74 61  |0 . valid$=.data|
0000f800  24 2c 70 25 2b 31 29 3a  64 61 74 61 24 3d c0 64  |$,p%+1):data$=.d|
0000f810  61 74 61 24 2c 70 25 2d  31 29 3a f4 20 45 78 74  |ata$,p%-1):. Ext|
0000f820  72 61 63 74 20 76 61 6c  69 64 61 74 69 6f 6e 20  |ract validation |
0000f830  73 74 72 69 6e 67 20 28  69 66 20 61 6e 79 29 0d  |string (if any).|
0000f840  32 82 85 20 73 75 62 25  3d 2d 31 3a 73 75 62 77  |2.. sub%=-1:subw|
0000f850  61 72 6e 25 3d 30 3a 70  25 3d a7 64 61 74 61 24  |arn%=0:p%=.data$|
0000f860  2c 22 23 22 29 3a e7 70  25 3e 30 20 8c 20 73 75  |,"#"):.p%>0 . su|
0000f870  62 25 3d bb 28 c1 64 61  74 61 24 2c 70 25 2b 31  |b%=.(.data$,p%+1|
0000f880  29 29 3a 73 75 62 77 61  72 6e 25 3d 31 3a 64 61  |)):subwarn%=1:da|
0000f890  74 61 24 3d c0 64 61 74  61 24 2c 70 25 2d 31 29  |ta$=.data$,p%-1)|
0000f8a0  3a f4 20 45 78 74 72 61  63 74 20 73 75 62 77 69  |:. Extract subwi|
0000f8b0  6e 64 6f 77 20 68 61 6e  64 6c 65 20 28 69 66 20  |ndow handle (if |
0000f8c0  61 6e 79 29 0d 32 8c 3e  20 e7 77 72 69 74 25 3d  |any).2.> .writ%=|
0000f8d0  30 20 8c 20 69 6c 65 6e  25 3d a9 64 61 74 61 24  |0 . ilen%=.data$|
0000f8e0  2b 31 20 8b e7 6c 6f 6e  67 25 3d 30 20 8c 20 69  |+1 ..long%=0 . i|
0000f8f0  6c 65 6e 25 3d 31 36 20  8b 20 69 6c 65 6e 25 3d  |len%=16 . ilen%=|
0000f900  34 30 0d 32 96 43 20 21  70 74 72 25 3d 28 73 75  |40.2.C !ptr%=(su|
0000f910  62 77 61 72 6e 25 3c 3c  33 29 2b 28 77 72 69 74  |bwarn%<<3)+(writ|
0000f920  25 3c 3c 32 29 2b 28 64  6f 74 74 65 64 25 3c 3c  |%<<2)+(dotted%<<|
0000f930  31 29 2b 74 69 63 6b 25  3a f4 20 4d 65 6e 75 20  |1)+tick%:. Menu |
0000f940  66 6c 61 67 73 0d 32 a0  22 20 70 74 72 25 21 34  |flags.2." ptr%!4|
0000f950  3d 73 75 62 25 3a f4 20  53 75 62 20 6d 65 6e 75  |=sub%:. Sub menu|
0000f960  2f 77 69 6e 64 6f 77 0d  32 aa 3e 20 70 74 72 25  |/window.2.> ptr%|
0000f970  21 38 3d 28 77 62 25 3c  3c 32 38 29 2b 28 77 66  |!8=(wb%<<28)+(wf|
0000f980  25 3c 3c 32 34 29 2b 28  73 68 61 64 65 64 25 3c  |%<<24)+(shaded%<|
0000f990  3c 32 32 29 2b 28 31 3c  3c 38 29 2b 31 3a f4 20  |<22)+(1<<8)+1:. |
0000f9a0  46 6c 61 67 73 0d 32 b4  45 20 24 64 61 74 61 70  |Flags.2.E $datap|
0000f9b0  74 72 25 3d 64 61 74 61  24 3a 70 74 72 25 21 31  |tr%=data$:ptr%!1|
0000f9c0  32 3d 64 61 74 61 70 74  72 25 3a 70 74 72 25 21  |2=dataptr%:ptr%!|
0000f9d0  32 30 3d 69 6c 65 6e 25  3a 64 61 74 61 70 74 72  |20=ilen%:dataptr|
0000f9e0  25 2b 3d 69 6c 65 6e 25  2b 31 0d 32 be 54 20 e7  |%+=ilen%+1.2.T .|
0000f9f0  76 61 6c 69 64 24 3d 22  22 20 8c 20 70 74 72 25  |valid$="" . ptr%|
0000fa00  21 31 36 3d 2d 31 20 8b  20 24 64 61 74 61 70 74  |!16=-1 . $datapt|
0000fa10  72 25 3d 76 61 6c 69 64  24 3a 70 74 72 25 21 31  |r%=valid$:ptr%!1|
0000fa20  36 3d 64 61 74 61 70 74  72 25 3a 64 61 74 61 70  |6=dataptr%:datap|
0000fa30  74 72 25 2b 3d a9 76 61  6c 69 64 24 2b 31 0d 32  |tr%+=.valid$+1.2|
0000fa40  c8 14 20 70 74 72 25 2b  3d 32 34 3a 69 78 25 2b  |.. ptr%+=24:ix%+|
0000fa50  3d 31 0d 32 d2 05 cd 0d  32 dc 2a e7 69 24 3d 22  |=1.2....2.*.i$="|
0000fa60  22 20 8c 20 e7 69 63 6f  6e 25 3d 31 20 8c 20 69  |" . .icon%=1 . i|
0000fa70  24 3d 69 63 6f 6e 32 24  3a 69 63 6f 6e 25 2b 3d  |$=icon2$:icon%+=|
0000fa80  31 0d 32 e6 05 ce 0d 32  f0 32 70 74 72 25 21 2d  |1.2....2.2ptr%!-|
0000fa90  32 34 3d 28 70 74 72 25  21 2d 32 34 29 84 26 38  |24=(ptr%!-24).&8|
0000faa0  30 3a f4 20 49 6e 64 69  63 61 74 65 20 27 6c 61  |0:. Indicate 'la|
0000fab0  73 74 20 69 63 6f 6e 27  0d 32 fa 10 e7 ac 63 72  |st icon'.2....cr|
0000fac0  65 61 74 65 20 8c 20 e1  0d 33 04 41 e7 73 75 62  |eate . ..3.A.sub|
0000fad0  20 8c 20 c8 99 20 57 43  72 65 61 74 65 53 4d 25  | . .. WCreateSM%|
0000fae0  2c 2c 6d 65 6e 75 25 2c  78 25 2c 79 25 20 8b 20  |,,menu%,x%,y% . |
0000faf0  c8 99 20 57 43 72 65 61  74 65 4d 25 2c 2c 6d 65  |.. WCreateM%,,me|
0000fb00  6e 75 25 2c 78 25 2c 79  25 0d 33 0e 05 e1 0d 33  |nu%,x%,y%.3....3|
0000fb10  18 05 20 0d 33 22 19 dd  a4 73 65 6c 28 74 25 2c  |.. .3"...sel(t%,|
0000fb20  64 25 2c 77 25 2c 73 25  2c 72 25 29 0d 33 2c 32  |d%,w%,s%,r%).3,2|
0000fb30  f4 20 52 65 74 75 72 6e  73 20 73 65 6c 65 63 74  |. Returns select|
0000fb40  20 63 68 61 72 61 63 74  65 72 20 66 6f 72 20 69  | character for i|
0000fb50  63 6f 6e 20 61 74 74 72  69 62 75 74 65 73 0d 33  |con attributes.3|
0000fb60  36 45 3d bd 28 28 31 3c  3c 35 29 2b 28 28 72 25  |6E=.((1<<5)+((r%|
0000fb70  80 31 29 3c 3c 34 29 2b  28 28 73 25 80 31 29 3c  |.1)<<4)+((s%.1)<|
0000fb80  3c 33 29 2b 28 28 77 25  80 31 29 3c 3c 32 29 2b  |<3)+((w%.1)<<2)+|
0000fb90  28 28 64 25 80 31 29 3c  3c 31 29 2b 28 74 25 80  |((d%.1)<<1)+(t%.|
0000fba0  31 29 29 0d 33 40 05 20  0d 33 4a 09 dd a4 75 6d  |1)).3@. .3J...um|
0000fbb0  73 0d 33 54 37 f4 20 52  65 74 75 72 6e 73 20 73  |s.3T7. Returns s|
0000fbc0  74 72 69 6e 67 20 72 65  70 72 65 73 65 6e 74 69  |tring representi|
0000fbd0  6e 67 20 63 75 72 72 65  6e 74 20 75 73 65 72 20  |ng current user |
0000fbe0  6d 6f 64 65 20 73 65 74  0d 33 5e 5c 3d c3 28 55  |mode set.3^\=.(U|
0000fbf0  73 65 72 4d 6f 64 65 53  65 74 25 28 31 29 29 2b  |serModeSet%(1))+|
0000fc00  22 2c 22 2b c3 28 55 73  65 72 4d 6f 64 65 53 65  |","+.(UserModeSe|
0000fc10  74 25 28 32 29 29 2b 22  2c 22 2b c3 28 55 73 65  |t%(2))+","+.(Use|
0000fc20  72 4d 6f 64 65 53 65 74  25 28 33 29 29 2b 22 2c  |rModeSet%(3))+",|
0000fc30  22 2b c3 28 55 73 65 72  4d 6f 64 65 53 65 74 25  |"+.(UserModeSet%|
0000fc40  28 34 29 29 0d 33 68 05  20 0d 33 72 1b dd a4 61  |(4)).3h. .3r...a|
0000fc50  76 61 69 6c 61 62 6c 65  5f 6d 6f 64 65 28 6d 6f  |vailable_mode(mo|
0000fc60  64 65 25 29 0d 33 7c 43  f4 20 43 68 65 63 6b 73  |de%).3|C. Checks|
0000fc70  20 69 66 20 6d 6f 64 65  25 20 69 73 20 61 20 76  | if mode% is a v|
0000fc80  61 6c 69 64 20 57 49 4d  50 20 6d 6f 64 65 20 61  |alid WIMP mode a|
0000fc90  6e 64 20 61 76 61 69 6c  61 62 6c 65 20 6f 6e 20  |nd available on |
0000fca0  6d 6f 6e 69 74 6f 72 0d  33 86 30 e7 6d 6f 64 65  |monitor.3.0.mode|
0000fcb0  25 3d 33 20 84 20 6d 6f  64 65 25 3d 36 20 84 20  |%=3 . mode%=6 . |
0000fcc0  6d 6f 64 65 25 3d 37 20  84 20 6d 6f 64 65 25 3d  |mode%=7 . mode%=|
0000fcd0  32 33 20 8c 20 3d a3 0d  33 90 1c e7 6d 6f 64 65  |23 . =..3...mode|
0000fce0  25 3c 30 20 84 20 6d 6f  64 65 25 3e 32 38 20 8c  |%<0 . mode%>28 .|
0000fcf0  20 3d a3 0d 33 9a 2a e7  6d 6f 64 65 25 3d 32 34  | =..3.*.mode%=24|
0000fd00  20 84 20 6d 6f 64 65 25  3c 31 38 20 8c 20 3d b9  | . mode%<18 . =.|
0000fd10  20 8b 20 3d 4d 75 6c 74  69 53 79 6e 63 0d 33 a4  | . =MultiSync.3.|
0000fd20  05 20 0d 33 ae 11 dd a4  61 6c 69 67 6e 28 76 61  |. .3....align(va|
0000fd30  6c 25 29 0d 33 b8 30 f4  20 52 65 74 75 72 6e 73  |l%).3.0. Returns|
0000fd40  20 6e 65 78 74 2d 75 70  20 77 6f 72 64 20 61 6c  | next-up word al|
0000fd50  69 67 6e 65 64 20 76 61  6c 75 65 20 6f 66 20 76  |igned value of v|
0000fd60  61 6c 25 0d 33 c2 10 3d  28 76 61 6c 25 2b 33 29  |al%.3..=(val%+3)|
0000fd70  80 ac 33 0d 33 cc 05 20  0d 33 d6 16 dd a4 72 65  |..3.3.. .3....re|
0000fd80  61 64 70 61 6c 76 61 6c  28 72 67 62 25 29 0d 33  |adpalval(rgb%).3|
0000fd90  e0 33 f4 20 52 65 74 75  72 6e 73 20 27 4f 53 5f  |.3. Returns 'OS_|
0000fda0  52 65 61 64 50 61 6c 65  74 74 65 27 20 77 6f 72  |ReadPalette' wor|
0000fdb0  64 20 66 72 6f 6d 20 26  52 47 42 20 76 61 6c 75  |d from &RGB valu|
0000fdc0  65 0d 33 ea 3f 3d 28 28  72 67 62 25 80 26 46 46  |e.3.?=((rgb%.&FF|
0000fdd0  29 3c 3c 32 34 29 2b 28  28 72 67 62 25 80 26 46  |)<<24)+((rgb%.&F|
0000fde0  46 30 30 29 3c 3c 38 29  2b 28 28 72 67 62 25 80  |F00)<<8)+((rgb%.|
0000fdf0  26 46 46 30 30 30 30 29  3e 3e 38 29 2b 26 31 30  |&FF0000)>>8)+&10|
0000fe00  0d 33 f4 05 20 0d 33 fe  13 dd a4 73 74 72 69 6e  |.3.. .3....strin|
0000fe10  67 28 61 64 64 72 25 29  0d 34 08 32 f4 20 52 65  |g(addr%).4.2. Re|
0000fe20  74 75 72 6e 73 20 43 54  52 4c 2d 63 68 61 72 20  |turns CTRL-char |
0000fe30  74 65 72 6d 69 6e 61 74  65 64 20 73 74 72 69 6e  |terminated strin|
0000fe40  67 20 61 74 20 61 64 64  72 25 0d 34 12 0f ea 20  |g at addr%.4... |
0000fe50  5f 25 2c 5f 63 25 2c 5f  24 0d 34 1c 1f 5f 25 3d  |_%,_c%,_$.4.._%=|
0000fe60  2d 31 3a f5 20 5f 25 2b  3d 31 3a fd 20 61 64 64  |-1:. _%+=1:. add|
0000fe70  72 25 3f 5f 25 3c 33 32  0d 34 26 33 5f 63 25 3d  |r%?_%<32.4&3_c%=|
0000fe80  61 64 64 72 25 3f 5f 25  3a 61 64 64 72 25 3f 5f  |addr%?_%:addr%?_|
0000fe90  25 3d 31 33 3a 5f 24 3d  24 61 64 64 72 25 3a 61  |%=13:_$=$addr%:a|
0000fea0  64 64 72 25 3f 5f 25 3d  5f 63 25 0d 34 30 07 3d  |ddr%?_%=_c%.40.=|
0000feb0  5f 24 0d 34 3a 05 20 0d  34 44 12 dd a4 75 70 73  |_$.4:. .4D...ups|
0000fec0  74 72 69 6e 67 28 6d 24  29 0d 34 4e 1b f4 20 52  |tring(m$).4N.. R|
0000fed0  65 74 75 72 6e 73 20 75  70 70 65 72 20 63 61 73  |eturns upper cas|
0000fee0  65 20 6d 24 0d 34 58 0e  ea 20 63 25 2c 76 25 2c  |e m$.4X.. c%,v%,|
0000fef0  75 24 0d 34 62 52 75 24  3d 6d 24 3a e3 20 63 25  |u$.4bRu$=m$:. c%|
0000ff00  3d 31 20 b8 20 a9 20 6d  24 3a 76 25 3d 97 c1 6d  |=1 . . m$:v%=..m|
0000ff10  24 2c 63 25 2c 31 29 3a  e7 28 76 25 3c 3d 97 22  |$,c%,1):.(v%<=."|
0000ff20  7a 22 29 80 28 76 25 3e  3d 97 22 61 22 29 20 8c  |z").(v%>=."a") .|
0000ff30  20 c1 75 24 2c 63 25 2c  31 29 3d bd 28 76 25 80  | .u$,c%,1)=.(v%.|
0000ff40  26 35 46 29 0d 34 6c 09  ed 3a 3d 75 24 0d 34 76  |&5F).4l..:=u$.4v|
0000ff50  05 20 0d 34 80 1d dd f2  6d 6f 75 73 65 28 f8 20  |. .4....mouse(. |
0000ff60  78 25 2c f8 20 79 25 2c  f8 20 62 75 74 25 29 0d  |x%,. y%,. but%).|
0000ff70  34 8a 2b f4 20 52 65 74  75 72 6e 73 20 78 2c 79  |4.+. Returns x,y|
0000ff80  20 61 6e 64 20 62 75 74  74 6f 6e 20 73 74 61 74  | and button stat|
0000ff90  65 20 6f 66 20 6d 6f 75  73 65 0d 34 94 11 c8 97  |e of mouse.4....|
0000ffa0  20 78 25 2c 79 25 2c 62  75 74 25 0d 34 9e 05 e1  | x%,y%,but%.4...|
0000ffb0  0d 34 a8 05 20 0d 34 b2  0a dd a4 63 32 35 36 0d  |.4.. .4....c256.|
0000ffc0  34 bc 35 f4 20 52 65 74  75 72 6e 73 20 54 52 55  |4.5. Returns TRU|
0000ffd0  45 20 69 66 20 63 75 72  72 65 6e 74 20 6d 6f 64  |E if current mod|
0000ffe0  65 20 69 73 20 32 35 36  20 63 6f 6c 6f 75 72 20  |e is 256 colour |
0000fff0  6d 6f 64 65 0d 34 c6 11  3d 28 a4 6c 6f 67 32 42  |mode.4..=(.log2B|
00010000  50 50 3d 33 29 0d 34 d0  05 20 0d 34 da 0d dd a4  |PP=3).4.. .4....|
00010010  6c 6f 67 32 42 50 50 0d  34 e4 26 f4 20 52 65 74  |log2BPP.4.&. Ret|
00010020  75 72 6e 73 20 4c 6f 67  32 42 50 50 20 66 6f 72  |urns Log2BPP for|
00010030  20 63 75 72 72 65 6e 74  20 6d 6f 64 65 0d 34 ee  | current mode.4.|
00010040  13 3d a4 6d 6f 64 65 5f  76 61 72 28 eb 2c 39 29  |.=.mode_var(.,9)|
00010050  0d 34 f8 05 20 0d 35 02  15 dd a4 76 64 75 5f 76  |.4.. .5....vdu_v|
00010060  61 72 28 76 61 72 6e 72  25 29 0d 35 0c 21 f4 20  |ar(varnr%).5.!. |
00010070  52 65 74 75 72 6e 73 20  56 44 55 20 76 61 72 69  |Returns VDU vari|
00010080  61 62 6c 65 20 76 61 72  6e 72 25 0d 35 16 3b 21  |able varnr%.5.;!|
00010090  61 72 67 25 3d 76 61 72  6e 72 25 3a 61 72 67 25  |arg%=varnr%:arg%|
000100a0  21 34 3d 2d 31 3a c8 99  20 4f 53 52 65 61 64 56  |!4=-1:.. OSReadV|
000100b0  56 25 2c 61 72 67 25 2c  61 72 67 25 2b 38 3a 3d  |V%,arg%,arg%+8:=|
000100c0  61 72 67 25 21 38 0d 35  20 05 20 0d 35 2a 1c dd  |arg%!8.5 . .5*..|
000100d0  a4 6d 6f 64 65 5f 76 61  72 28 6d 6f 64 65 25 2c  |.mode_var(mode%,|
000100e0  76 61 72 6e 72 25 29 0d  35 34 28 f4 20 52 65 74  |varnr%).54(. Ret|
000100f0  75 72 6e 73 20 6d 6f 64  65 20 6d 6f 64 65 25 20  |urns mode mode% |
00010100  76 61 72 69 61 62 6c 65  20 76 61 72 6e 72 25 0d  |variable varnr%.|
00010110  35 3e 0d ea 20 72 65 73  75 6c 74 25 0d 35 48 32  |5>.. result%.5H2|
00010120  c8 99 20 4f 53 52 65 61  64 4d 56 25 2c 6d 6f 64  |.. OSReadMV%,mod|
00010130  65 25 2c 76 61 72 6e 72  25 20 b8 20 2c 2c 72 65  |e%,varnr% . ,,re|
00010140  73 75 6c 74 25 3a 3d 72  65 73 75 6c 74 25 0d 35  |sult%:=result%.5|
00010150  52 05 20 0d 35 5c 10 dd  a4 4f 53 5f 76 61 72 28  |R. .5\...OS_var(|
00010160  5f 24 29 0d 35 66 2e f4  20 41 74 74 65 6d 70 74  |_$).5f.. Attempt|
00010170  73 20 74 6f 20 72 65 74  75 72 6e 20 4f 53 2d 76  |s to return OS-v|
00010180  61 72 27 73 20 73 74 72  69 6e 67 20 76 61 6c 75  |ar's string valu|
00010190  65 0d 35 70 0d ea 20 5f  72 24 2c 5f 6c 25 0d 35  |e.5p.. _r$,_l%.5|
000101a0  7a 37 c8 99 20 22 58 4f  53 5f 52 65 61 64 56 61  |z7.. "XOS_ReadVa|
000101b0  72 56 61 6c 22 2c 5f 24  2c c4 31 30 30 2c 22 20  |rVal",_$,.100," |
000101c0  22 29 2c 31 30 30 2c 30  2c 33 20 b8 20 2c 5f 72  |"),100,0,3 . ,_r|
000101d0  24 2c 5f 6c 25 0d 35 84  16 5f 72 24 3d c0 5f 72  |$,_l%.5.._r$=._r|
000101e0  24 2c 5f 6c 25 29 3a 3d  5f 72 24 0d 35 8e 05 20  |$,_l%):=_r$.5.. |
000101f0  0d 35 98 15 dd a4 73 77  69 5f 74 6f 5f 6e 72 28  |.5....swi_to_nr(|
00010200  73 77 69 24 29 0d 35 a2  29 f4 20 52 65 74 75 72  |swi$).5.). Retur|
00010210  6e 73 20 53 57 49 20 6e  75 6d 62 65 72 20 6f 66  |ns SWI number of|
00010220  20 53 57 49 20 63 61 6c  6c 20 73 77 69 24 0d 35  | SWI call swi$.5|
00010230  ac 0c ea 20 73 77 69 6e  72 25 0d 35 b6 2f c8 99  |... swinr%.5./..|
00010240  20 22 58 4f 53 5f 53 57  49 4e 75 6d 62 65 72 46  | "XOS_SWINumberF|
00010250  72 6f 6d 53 74 72 69 6e  67 22 2c 2c 73 77 69 24  |romString",,swi$|
00010260  20 b8 20 73 77 69 6e 72  25 0d 35 c0 0b 3d 73 77  | . swinr%.5..=sw|
00010270  69 6e 72 25 0d 35 ca 05  20 0d 35 d4 1a dd f2 65  |inr%.5.. .5....e|
00010280  72 72 6f 72 28 65 72 72  6e 72 2c 65 72 72 6d 73  |rror(errnr,errms|
00010290  67 24 29 0d 35 de 14 f4  20 48 61 6e 64 6c 65 73  |g$).5... Handles|
000102a0  20 65 72 72 6f 72 73 0d  35 e8 16 ea 20 62 75 74  | errors.5... but|
000102b0  25 2c 6f 6c 64 70 61 6c  2c 6f 70 74 25 0d 35 f2  |%,oldpal,opt%.5.|
000102c0  39 c8 99 20 22 54 72 61  6e 73 6c 61 74 6f 72 5f  |9.. "Translator_|
000102d0  56 69 64 65 6f 44 4d 41  22 2c 31 3a f4 20 45 6e  |VideoDMA",1:. En|
000102e0  73 75 72 65 20 76 69 64  65 6f 20 44 4d 41 20 65  |sure video DMA e|
000102f0  6e 61 62 6c 65 64 0d 35  fc 27 e7 65 72 72 6e 72  |nabled.5.'.errnr|
00010300  3d 2d 31 20 8c 20 65 72  72 6e 72 3d 31 3a 6f 70  |=-1 . errnr=1:op|
00010310  74 25 3d 31 20 8b 20 6f  70 74 25 3d 33 0d 36 06  |t%=1 . opt%=3.6.|
00010320  1f 21 65 72 72 3d 65 72  72 6e 72 3a 24 28 65 72  |.!err=errnr:$(er|
00010330  72 2b 34 29 3d 65 72 72  6d 73 67 24 0d 36 10 44  |r+4)=errmsg$.6.D|
00010340  c8 99 20 22 54 72 61 6e  73 6c 61 74 6f 72 5f 50  |.. "Translator_P|
00010350  61 6c 65 74 74 65 22 2c  32 5e a4 6c 6f 67 32 42  |alette",2^.log2B|
00010360  50 50 2c 64 75 6d 25 2c  31 3a f4 20 52 65 61 64  |PP,dum%,1:. Read|
00010370  20 63 75 72 72 65 6e 74  20 70 61 6c 65 74 74 65  | current palette|
00010380  0d 36 1a 29 f2 73 65 74  5f 70 61 6c 65 74 74 65  |.6.).set_palette|
00010390  28 30 29 3a f4 20 53 65  6c 65 63 74 20 57 49 4d  |(0):. Select WIM|
000103a0  50 20 70 61 6c 65 74 74  65 0d 36 24 2a c8 99 20  |P palette.6$*.. |
000103b0  57 52 65 70 6f 72 74 25  2c 65 72 72 2c 6f 70 74  |WReport%,err,opt|
000103c0  25 2c 61 70 70 6c 6e 61  6d 65 24 20 b8 20 2c 62  |%,applname$ . ,b|
000103d0  75 74 25 0d 36 2e 13 e7  62 75 74 25 3c 3e 31 20  |ut%.6...but%<>1 |
000103e0  8c 20 f2 64 69 65 0d 36  38 42 c8 99 20 22 54 72  |. .die.68B.. "Tr|
000103f0  61 6e 73 6c 61 74 6f 72  5f 53 65 74 50 61 6c 65  |anslator_SetPale|
00010400  74 74 65 22 2c 32 5e 28  32 5e a4 6c 6f 67 32 42  |tte",2^(2^.log2B|
00010410  50 50 29 2c 64 75 6d 25  3a f4 20 52 65 73 65 74  |PP),dum%:. Reset|
00010420  20 70 61 6c 65 74 74 65  0d 36 42 05 e1 0d 36 4c  | palette.6B...6L|
00010430  05 20 0d 36 56 0a dd a4  73 70 72 57 0d 36 60 3f  |. .6V...sprW.6`?|
00010440  f4 20 52 65 74 75 72 6e  73 20 69 6d 61 67 65 20  |. Returns image |
00010450  73 70 72 69 74 65 27 73  20 77 69 64 74 68 20 69  |sprite's width i|
00010460  6e 20 4f 53 20 70 69 78  65 6c 73 20 69 6e 20 63  |n OS pixels in c|
00010470  75 72 72 65 6e 74 20 6d  6f 64 65 0d 36 6a 1b 3d  |urrent mode.6j.=|
00010480  53 70 72 57 25 2a 32 5e  a4 6d 6f 64 65 5f 76 61  |SprW%*2^.mode_va|
00010490  72 28 eb 2c 34 29 0d 36  74 05 20 0d 36 7e 0a dd  |r(.,4).6t. .6~..|
000104a0  a4 73 70 72 48 0d 36 88  40 f4 20 52 65 74 75 72  |.sprH.6.@. Retur|
000104b0  6e 73 20 69 6d 61 67 65  20 73 70 72 69 74 65 27  |ns image sprite'|
000104c0  73 20 68 65 69 67 68 74  20 69 6e 20 4f 53 20 70  |s height in OS p|
000104d0  69 78 65 6c 73 20 69 6e  20 63 75 72 72 65 6e 74  |ixels in current|
000104e0  20 6d 6f 64 65 0d 36 92  1b 3d 53 70 72 48 25 2a  | mode.6..=SprH%*|
000104f0  32 5e a4 6d 6f 64 65 5f  76 61 72 28 eb 2c 35 29  |2^.mode_var(.,5)|
00010500  0d 36 9c 05 20 0d 36 a6  12 dd a4 6d 61 78 28 76  |.6.. .6....max(v|
00010510  31 25 2c 76 32 25 29 0d  36 b0 24 f4 20 52 65 74  |1%,v2%).6.$. Ret|
00010520  75 72 6e 73 20 6d 61 78  69 6d 75 6d 20 6f 66 20  |urns maximum of |
00010530  76 31 25 20 61 6e 64 20  76 32 25 0d 36 ba 1a e7  |v1% and v2%.6...|
00010540  76 31 25 3e 76 32 25 20  8c 20 3d 76 31 25 20 8b  |v1%>v2% . =v1% .|
00010550  20 3d 76 32 25 0d 36 c4  05 20 0d 36 ce 09 dd f2  | =v2%.6.. .6....|
00010560  64 69 65 0d 36 d8 19 f4  20 54 69 64 69 65 73 20  |die.6... Tidies |
00010570  75 70 20 61 6e 64 20 65  78 69 74 73 0d 36 e2 15  |up and exits.6..|
00010580  f2 66 69 6e 69 73 68 3a  f4 20 54 69 64 79 20 75  |.finish:. Tidy u|
00010590  70 0d 36 ec 10 c8 99 20  22 4f 53 5f 45 78 69 74  |p.6.... "OS_Exit|
000105a0  22 0d 36 f6 05 e1 0d 37  00 05 20 0d 37 0a 0c dd  |".6....7.. .7...|
000105b0  f2 66 69 6e 69 73 68 0d  37 14 0f f4 20 54 69 64  |.finish.7... Tid|
000105c0  69 65 73 20 75 70 0d 37  1e 31 f4 20 53 65 6e 64  |ies up.7.1. Send|
000105d0  20 6d 65 73 73 61 67 65  20 74 6f 20 61 73 6b 20  | message to ask |
000105e0  69 66 20 6d 6f 64 75 6c  65 20 63 61 6e 20 62 65  |if module can be|
000105f0  20 6b 69 6c 6c 65 64 0d  37 28 c4 21 62 6c 6f 63  | killed.7(.!bloc|
00010600  6b 3d 32 30 3a 62 6c 6f  63 6b 21 31 32 3d 30 3a  |k=20:block!12=0:|
00010610  62 6c 6f 63 6b 21 31 36  3d 26 43 43 45 30 30 3a  |block!16=&CCE00:|
00010620  c8 99 20 57 53 65 6e 64  4d 73 67 25 2c 31 38 2c  |.. WSendMsg%,18,|
00010630  62 6c 6f 63 6b 2c 30 3a  6b 69 6c 6c 3d a3 3a f5  |block,0:kill=.:.|
00010640  20 6c 69 73 74 65 6e 25  3d a4 70 6f 6c 6c 28 30  | listen%=.poll(0|
00010650  29 3a 6b 69 6c 6c 3d 6b  69 6c 6c 20 84 20 28 28  |):kill=kill . ((|
00010660  6c 69 73 74 65 6e 25 3d  31 39 29 80 28 70 6f 6c  |listen%=19).(pol|
00010670  6c 21 31 36 3d 26 43 43  45 30 30 29 80 28 70 6f  |l!16=&CCE00).(po|
00010680  6c 6c 21 31 32 3d 30 29  29 3a fd 20 6c 69 73 74  |ll!12=0)):. list|
00010690  65 6e 25 3d 30 3a e7 6b  69 6c 6c 20 8c 20 c8 99  |en%=0:.kill . ..|
000106a0  20 22 4f 53 5f 4d 6f 64  75 6c 65 22 2c 34 2c 22  | "OS_Module",4,"|
000106b0  54 72 61 6e 73 6c 61 74  6f 72 22 0d 37 32 26 c8  |Translator".72&.|
000106c0  99 20 57 53 65 74 50 25  2c 2c 77 69 6d 70 70 61  |. WSetP%,,wimppa|
000106d0  6c 3a f4 20 52 65 73 65  74 20 70 61 6c 65 74 74  |l:. Reset palett|
000106e0  65 0d 37 3c 2d c8 99 20  22 57 69 6d 70 5f 43 6c  |e.7<-.. "Wimp_Cl|
000106f0  6f 73 65 44 6f 77 6e 22  2c 54 61 73 6b 48 61 6e  |oseDown",TaskHan|
00010700  64 6c 65 25 2c 26 34 42  35 33 34 31 35 34 0d 37  |dle%,&4B534154.7|
00010710  46 05 e1 0d 37 50 05 20  0d 37 5a 23 dd a4 6d 6f  |F...7P. .7Z#..mo|
00010720  64 65 28 77 69 64 74 68  25 2c 68 65 69 67 68 74  |de(width%,height|
00010730  25 2c 63 6f 6c 6f 75 72  73 25 29 0d 37 64 4c f4  |%,colours%).7dL.|
00010740  20 52 65 74 75 72 6e 73  2c 20 69 66 20 70 6f 73  | Returns, if pos|
00010750  73 69 62 6c 65 2c 20 61  20 73 74 61 6e 64 61 72  |sible, a standar|
00010760  64 20 73 63 72 65 65 6e  20 6d 6f 64 65 20 74 68  |d screen mode th|
00010770  61 74 20 69 73 20 6d 6f  73 74 20 73 75 69 74 61  |at is most suita|
00010780  62 6c 65 20 66 6f 72 0d  37 6e 4b f4 20 64 69 73  |ble for.7nK. dis|
00010790  70 6c 61 79 69 6e 67 20  61 20 70 69 63 74 75 72  |playing a pictur|
000107a0  65 20 6f 66 20 28 77 69  64 74 68 25 29 78 28 68  |e of (width%)x(h|
000107b0  65 69 67 68 74 25 29 20  70 69 78 65 6c 73 20 69  |eight%) pixels i|
000107c0  6e 20 63 6f 6c 6f 75 72  73 25 20 63 6f 6c 6f 75  |n colours% colou|
000107d0  72 73 0d 37 78 36 f4 20  52 65 74 75 72 6e 73 20  |rs.7x6. Returns |
000107e0  2d 31 20 69 66 20 6e 75  6d 62 65 72 20 6f 66 20  |-1 if number of |
000107f0  63 6f 6c 6f 75 72 73 20  67 72 65 61 74 65 72 20  |colours greater |
00010800  74 68 61 6e 20 32 35 36  0d 37 82 29 ea 20 61 72  |than 256.7.). ar|
00010810  63 63 6f 6c 73 25 2c 61  72 63 77 69 64 74 68 25  |ccols%,arcwidth%|
00010820  2c 61 72 63 68 65 69 67  68 74 25 2c 6d 6f 64 65  |,archeight%,mode|
00010830  25 0d 37 8c 13 e7 4f 75  74 4d 6f 64 65 3d 32 20  |%.7...OutMode=2 |
00010840  8c 20 3d eb 0d 37 96 2f  f4 20 52 61 6e 67 65 20  |. =..7./. Range |
00010850  63 68 65 63 6b 20 66 6f  72 20 63 6f 6c 6f 75 72  |check for colour|
00010860  73 2c 20 77 69 64 74 68  20 61 6e 64 20 68 65 69  |s, width and hei|
00010870  67 68 74 0d 37 a0 26 e7  63 6f 6c 6f 75 72 73 25  |ght.7.&.colours%|
00010880  3e 32 35 36 20 8c 20 3d  2d 31 3a f4 20 49 6d 70  |>256 . =-1:. Imp|
00010890  6f 73 73 69 62 6c 65 20  21 0d 37 aa 2c f4 20 44  |ossible !.7.,. D|
000108a0  65 74 65 72 6d 69 6e 65  20 63 6c 6f 73 65 73 74  |etermine closest|
000108b0  20 63 6f 6c 6f 75 72 73  2f 77 69 64 74 68 2f 68  | colours/width/h|
000108c0  65 69 67 68 74 0d 37 b4  63 e7 63 6f 6c 6f 75 72  |eight.7.c.colour|
000108d0  73 25 3e 31 36 20 8c 20  61 72 63 63 6f 6c 73 25  |s%>16 . arccols%|
000108e0  3d 32 35 36 20 8b 20 e7  63 6f 6c 6f 75 72 73 25  |=256 . .colours%|
000108f0  3e 34 20 8c 20 61 72 63  63 6f 6c 73 25 3d 31 36  |>4 . arccols%=16|
00010900  20 8b 20 e7 63 6f 6c 6f  75 72 73 25 3e 32 20 8c  | . .colours%>2 .|
00010910  20 61 72 63 63 6f 6c 73  25 3d 34 20 8b 20 61 72  | arccols%=4 . ar|
00010920  63 63 6f 6c 73 25 3d 32  0d 37 be 4e e7 77 69 64  |ccols%=2.7.N.wid|
00010930  74 68 25 3e 36 34 30 20  8c 20 61 72 63 77 69 64  |th%>640 . arcwid|
00010940  74 68 25 3d 31 30 35 36  20 8b 20 e7 77 69 64 74  |th%=1056 . .widt|
00010950  68 25 3e 33 32 30 20 8c  20 61 72 63 77 69 64 74  |h%>320 . arcwidt|
00010960  68 25 3d 36 34 30 20 8b  20 61 72 63 77 69 64 74  |h%=640 . arcwidt|
00010970  68 25 3d 33 32 30 0d 37  c8 33 e7 68 65 69 67 68  |h%=320.7.3.heigh|
00010980  74 25 3c 3d 32 35 36 20  8c 20 61 72 63 68 65 69  |t%<=256 . archei|
00010990  67 68 74 25 3d 32 35 36  20 8b 20 61 72 63 68 65  |ght%=256 . arche|
000109a0  69 67 68 74 25 3d 35 31  32 0d 37 d2 11 c8 8e 20  |ight%=512.7.... |
000109b0  61 72 63 63 6f 6c 73 25  20 ca 0d 37 dc 2f 20 c9  |arccols% ..7./ .|
000109c0  20 32 20 3a 20 e7 61 72  63 68 65 69 67 68 74 25  | 2 : .archeight%|
000109d0  3d 35 31 32 20 8c 20 6d  6f 64 65 25 3d 31 38 20  |=512 . mode%=18 |
000109e0  8b 20 6d 6f 64 65 25 3d  30 0d 37 e6 4b 20 c9 20  |. mode%=0.7.K . |
000109f0  34 20 3a 20 e7 61 72 63  68 65 69 67 68 74 25 3d  |4 : .archeight%=|
00010a00  35 31 32 20 8c 20 6d 6f  64 65 25 3d 31 39 20 8b  |512 . mode%=19 .|
00010a10  20 e7 61 72 63 77 69 64  74 68 25 3c 3d 33 32 30  | .arcwidth%<=320|
00010a20  20 8c 20 6d 6f 64 65 25  3d 31 20 8b 20 6d 6f 64  | . mode%=1 . mod|
00010a30  65 25 3d 38 0d 37 f0 69  20 c9 20 31 36 20 3a 20  |e%=8.7.i . 16 : |
00010a40  e7 61 72 63 68 65 69 67  68 74 25 3d 35 31 32 20  |.archeight%=512 |
00010a50  8c 20 6d 6f 64 65 25 3d  32 30 20 8b 20 e7 61 72  |. mode%=20 . .ar|
00010a60  63 77 69 64 74 68 25 3c  3d 33 32 30 20 8c 20 6d  |cwidth%<=320 . m|
00010a70  6f 64 65 25 3d 39 20 8b  20 e7 61 72 63 77 69 64  |ode%=9 . .arcwid|
00010a80  74 68 25 3d 36 34 30 20  8c 20 6d 6f 64 65 25 3d  |th%=640 . mode%=|
00010a90  31 32 20 8b 20 6d 6f 64  65 25 3d 31 36 0d 37 fa  |12 . mode%=16.7.|
00010aa0  86 20 c9 20 32 35 36 20  3a 20 e7 61 72 63 68 65  |. . 256 : .arche|
00010ab0  69 67 68 74 25 3d 35 31  32 20 8c 20 6d 6f 64 65  |ight%=512 . mode|
00010ac0  25 3d 32 31 20 8b 20 e7  61 72 63 77 69 64 74 68  |%=21 . .arcwidth|
00010ad0  25 3d 31 36 30 20 8c 20  6d 6f 64 65 25 3d 31 30  |%=160 . mode%=10|
00010ae0  20 8b 20 e7 61 72 63 77  69 64 74 68 25 3d 33 32  | . .arcwidth%=32|
00010af0  30 20 8c 20 6d 6f 64 65  25 3d 31 33 20 8b 20 e7  |0 . mode%=13 . .|
00010b00  61 72 63 77 69 64 74 68  25 3d 36 34 30 20 8c 20  |arcwidth%=640 . |
00010b10  6d 6f 64 65 25 3d 31 35  20 8b 20 6d 6f 64 65 25  |mode%=15 . mode%|
00010b20  3d 32 34 0d 38 04 05 cb  0d 38 0e 0a 3d 6d 6f 64  |=24.8....8..=mod|
00010b30  65 25 0d 38 18 05 20 0d  38 22 13 dd a4 74 69 6d  |e%.8.. .8"...tim|
00010b40  65 73 28 76 61 6c 75 65  25 29 0d 38 2c 30 f4 20  |es(value%).8,0. |
00010b50  52 65 74 75 72 6e 73 20  53 54 52 24 76 61 6c 75  |Returns STR$valu|
00010b60  65 25 20 77 69 74 68 20  27 70 6c 75 72 61 6c 20  |e% with 'plural |
00010b70  65 78 74 65 6e 73 69 6f  6e 27 0d 38 36 09 ea 20  |extension'.86.. |
00010b80  5f 64 25 0d 38 40 33 5f  64 25 3d 76 61 6c 75 65  |_d%.8@3_d%=value|
00010b90  25 83 31 30 3a f4 20 4c  61 73 74 20 64 69 67 69  |%.10:. Last digi|
00010ba0  74 20 64 65 74 65 72 6d  69 6e 65 73 20 65 78 74  |t determines ext|
00010bb0  65 6e 73 69 6f 6e 0d 38  4a 3a e7 28 28 28 76 61  |ension.8J:.(((va|
00010bc0  6c 75 65 25 83 31 30 30  29 81 31 30 29 3d 31 29  |lue%.100).10)=1)|
00010bd0  84 28 5f 64 25 3e 33 29  84 28 5f 64 25 3d 30 29  |.(_d%>3).(_d%=0)|
00010be0  20 8c 20 3d c3 76 61 6c  75 65 25 2b 22 74 68 22  | . =.value%+"th"|
00010bf0  0d 38 54 0c c8 8e 20 5f  64 25 20 ca 0d 38 5e 18  |.8T... _d% ..8^.|
00010c00  20 c9 20 31 20 3a 20 3d  c3 76 61 6c 75 65 25 2b  | . 1 : =.value%+|
00010c10  22 73 74 22 0d 38 68 18  20 c9 20 32 20 3a 20 3d  |"st".8h. . 2 : =|
00010c20  c3 76 61 6c 75 65 25 2b  22 6e 64 22 0d 38 72 18  |.value%+"nd".8r.|
00010c30  20 c9 20 33 20 3a 20 3d  c3 76 61 6c 75 65 25 2b  | . 3 : =.value%+|
00010c40  22 72 64 22 0d 38 7c 05  cb 0d 38 86 05 20 0d 38  |"rd".8|...8.. .8|
00010c50  90 17 dd a4 69 73 74 72  69 6e 67 28 66 6e 25 2c  |....istring(fn%,|
00010c60  6c 65 6e 25 29 0d 38 9a  21 f4 20 52 65 74 75 72  |len%).8.!. Retur|
00010c70  6e 73 20 73 74 72 69 6e  67 20 6f 66 20 66 72 6f  |ns string of fro|
00010c80  6d 20 66 69 6c 65 0d 38  a4 30 f4 20 49 66 20 6c  |m file.8.0. If l|
00010c90  65 6e 25 3e 30 20 74 68  65 20 6e 75 6d 62 65 72  |en%>0 the number|
00010ca0  20 6f 66 20 63 68 61 72  61 63 74 65 72 73 20 69  | of characters i|
00010cb0  73 20 6c 65 6e 25 0d 38  ae 38 f4 20 49 66 20 6c  |s len%.8.8. If l|
00010cc0  65 6e 25 3d 2d 31 20 74  68 65 20 73 74 72 69 6e  |en%=-1 the strin|
00010cd0  67 20 69 73 20 43 54 52  4c 2d 63 68 61 72 61 63  |g is CTRL-charac|
00010ce0  74 65 72 20 74 65 72 6d  69 6e 61 74 65 64 0d 38  |ter terminated.8|
00010cf0  b8 0e ea 20 5f 25 2c 72  24 2c 63 25 0d 38 c2 6c  |... _%,r$,c%.8.l|
00010d00  5f 24 3d 22 22 3a e7 6c  65 6e 25 3e 30 20 8c 20  |_$="":.len%>0 . |
00010d10  e3 20 5f 25 3d 31 20 b8  20 6c 65 6e 25 3a 72 24  |. _%=1 . len%:r$|
00010d20  2b 3d bd a4 69 31 28 66  6e 25 29 3a ed 20 8b 20  |+=..i1(fn%):. . |
00010d30  e7 6c 65 6e 25 3d 2d 31  20 8c 20 63 25 3d a4 69  |.len%=-1 . c%=.i|
00010d40  31 28 66 6e 25 29 3a c8  95 20 63 25 3e 3d 97 22  |1(fn%):.. c%>=."|
00010d50  20 22 3a 72 24 2b 3d bd  63 25 3a 63 25 3d a4 69  | ":r$+=.c%:c%=.i|
00010d60  31 28 66 6e 25 29 3a ce  0d 38 cc 07 3d 72 24 0d  |1(fn%):..8..=r$.|
00010d70  38 d6 05 20 0d 38 e0 18  dd f2 69 73 6b 69 70 28  |8.. .8....iskip(|
00010d80  66 6e 25 2c 61 6d 6f 75  6e 74 25 29 0d 38 ea 21  |fn%,amount%).8.!|
00010d90  f4 20 53 6b 69 70 73 20  61 6d 6f 75 6e 74 25 20  |. Skips amount% |
00010da0  62 79 74 65 73 20 69 6e  20 66 69 6c 65 0d 38 f4  |bytes in file.8.|
00010db0  23 cf 23 46 69 6c 65 28  66 6e 25 29 3d 61 6d 6f  |#.#File(fn%)=amo|
00010dc0  75 6e 74 25 2b 8f 23 46  69 6c 65 28 66 6e 25 29  |unt%+.#File(fn%)|
00010dd0  0d 38 fe 05 e1 0d 39 08  05 20 0d 39 12 17 dd f2  |.8....9.. .9....|
00010de0  69 70 74 72 28 66 6e 25  2c 6e 65 77 70 74 72 25  |iptr(fn%,newptr%|
00010df0  29 0d 39 1c 1d f4 20 53  65 74 73 20 6e 65 77 20  |).9... Sets new |
00010e00  6f 66 66 73 65 74 20 69  6e 20 66 69 6c 65 0d 39  |offset in file.9|
00010e10  26 17 cf 23 46 69 6c 65  28 66 6e 25 29 3d 6e 65  |&..#File(fn%)=ne|
00010e20  77 70 74 72 25 0d 39 30  05 e1 0d 39 3a 05 20 0d  |wptr%.90...9:. .|
00010e30  39 44 0f dd a4 69 70 74  72 28 66 6e 25 29 0d 39  |9D...iptr(fn%).9|
00010e40  4e 24 f4 20 52 65 74 75  72 6e 73 20 63 75 72 72  |N$. Returns curr|
00010e50  65 6e 74 20 6f 66 66 73  65 74 20 69 6e 20 66 69  |ent offset in fi|
00010e60  6c 65 0d 39 58 10 3d 8f  23 46 69 6c 65 28 66 6e  |le.9X.=.#File(fn|
00010e70  25 29 0d 39 62 05 20 0d  39 6c 0f dd a4 69 6c 65  |%).9b. .9l...ile|
00010e80  6e 28 66 6e 25 29 0d 39  76 1c f4 20 52 65 74 75  |n(fn%).9v.. Retu|
00010e90  72 6e 73 20 6c 65 6e 67  74 68 20 6f 66 20 66 69  |rns length of fi|
00010ea0  6c 65 0d 39 80 10 3d a2  23 46 69 6c 65 28 66 6e  |le.9..=.#File(fn|
00010eb0  25 29 0d 39 8a 05 20 0d  39 94 0f dd a4 69 65 6f  |%).9.. .9....ieo|
00010ec0  66 28 66 6e 25 29 0d 39  9e 28 f4 20 52 65 74 75  |f(fn%).9.(. Retu|
00010ed0  72 6e 73 20 65 6e 64 2d  6f 66 2d 66 69 6c 65 20  |rns end-of-file |
00010ee0  73 74 61 74 75 73 20 6f  66 20 66 69 6c 65 0d 39  |status of file.9|
00010ef0  a8 10 3d c5 23 46 69 6c  65 28 66 6e 25 29 0d 39  |..=.#File(fn%).9|
00010f00  b2 05 20 0d 39 bc 0c dd  f2 69 63 6c 6f 73 65 0d  |.. .9....iclose.|
00010f10  39 c6 1c f4 20 43 6c 6f  73 65 73 20 61 6c 6c 20  |9... Closes all |
00010f20  69 6e 70 75 74 20 66 69  6c 65 73 0d 39 d0 08 ea  |input files.9...|
00010f30  20 66 25 0d 39 da 33 e3  20 66 25 3d 31 20 b8 20  | f%.9.3. f%=1 . |
00010f40  31 30 3a e7 46 69 6c 65  28 66 25 29 3e 30 20 8c  |10:.File(f%)>0 .|
00010f50  20 d9 23 46 69 6c 65 28  66 25 29 3a 46 69 6c 65  | .#File(f%):File|
00010f60  28 66 25 29 3d 30 0d 39  e4 05 ed 0d 39 ee 05 e1  |(f%)=0.9....9...|
00010f70  0d 39 f8 05 20 0d 3a 02  1c dd f2 69 67 65 74 28  |.9.. .:....iget(|
00010f80  66 6e 25 2c 61 64 72 25  2c 61 6d 6f 75 6e 74 25  |fn%,adr%,amount%|
00010f90  29 0d 3a 0c 2d f4 20 52  65 74 75 72 6e 73 20 61  |).:.-. Returns a|
00010fa0  6d 6f 75 6e 74 25 20 62  79 74 65 73 20 61 74 20  |mount% bytes at |
00010fb0  61 64 72 25 20 66 72 6f  6d 20 66 69 6c 65 0d 3a  |adr% from file.:|
00010fc0  16 29 c8 99 20 22 4f 53  5f 47 42 50 42 22 2c 34  |.).. "OS_GBPB",4|
00010fd0  2c 46 69 6c 65 28 66 6e  25 29 2c 61 64 72 25 2c  |,File(fn%),adr%,|
00010fe0  61 6d 6f 75 6e 74 25 0d  3a 20 05 e1 0d 3a 2a 05  |amount%.: ...:*.|
00010ff0  20 0d 3a 34 18 dd a4 69  31 28 66 6e 25 29 3a 3d  | .:4...i1(fn%):=|
00011000  a4 69 28 66 6e 25 2c 31  29 0d 3a 3e 18 dd a4 69  |.i(fn%,1).:>...i|
00011010  32 28 66 6e 25 29 3a 3d  a4 69 28 66 6e 25 2c 32  |2(fn%):=.i(fn%,2|
00011020  29 0d 3a 48 18 dd a4 69  33 28 66 6e 25 29 3a 3d  |).:H...i3(fn%):=|
00011030  a4 69 28 66 6e 25 2c 33  29 0d 3a 52 18 dd a4 69  |.i(fn%,3).:R...i|
00011040  34 28 66 6e 25 29 3a 3d  a4 69 28 66 6e 25 2c 34  |4(fn%):=.i(fn%,4|
00011050  29 0d 3a 5c 05 20 0d 3a  66 11 dd a4 69 28 66 6e  |).:\. .:f...i(fn|
00011060  25 2c 6c 65 6e 25 29 0d  3a 70 27 f4 20 52 65 74  |%,len%).:p'. Ret|
00011070  75 72 6e 73 20 6c 65 6e  25 2d 62 79 74 65 20 76  |urns len%-byte v|
00011080  61 6c 75 65 20 66 72 6f  6d 20 66 69 6c 65 0d 3a  |alue from file.:|
00011090  7a 0c ea 20 5f 25 2c 5f  72 25 0d 3a 84 17 5f 72  |z.. _%,_r%.:.._r|
000110a0  25 3d 30 3a e3 20 5f 25  3d 31 20 b8 20 6c 65 6e  |%=0:. _%=1 . len|
000110b0  25 0d 3a 8e 0f c8 8e 20  69 54 79 70 65 25 20 ca  |%.:.... iType% .|
000110c0  0d 3a 98 23 20 c9 20 31  20 3a 20 5f 72 25 3d 28  |.:.# . 1 : _r%=(|
000110d0  5f 72 25 3c 3c 38 29 2b  9a 23 46 69 6c 65 28 66  |_r%<<8)+.#File(f|
000110e0  6e 25 29 0d 3a a2 28 20  7f 20 20 3a 20 5f 72 25  |n%).:.( .  : _r%|
000110f0  2b 3d 28 28 9a 23 46 69  6c 65 28 66 6e 25 29 29  |+=((.#File(fn%))|
00011100  3c 3c 28 5f 25 2d 31 29  2a 38 29 0d 3a ac 07 cb  |<<(_%-1)*8).:...|
00011110  3a ed 0d 3a b6 08 3d 5f  72 25 0d 3a c0 05 20 0d  |:..:..=_r%.:.. .|
00011120  3a ca 18 dd f2 6f 28 66  68 25 2c 76 61 6c 25 2c  |:....o(fh%,val%,|
00011130  62 79 74 65 73 25 29 0d  3a d4 2b f4 20 4f 75 74  |bytes%).:.+. Out|
00011140  70 75 74 73 20 76 61 6c  75 65 20 6f 66 20 62 79  |puts value of by|
00011150  74 65 73 25 20 62 79 74  65 73 20 74 6f 20 66 69  |tes% bytes to fi|
00011160  6c 65 0d 3a de 08 ea 20  69 25 0d 3a e8 2d e3 20  |le.:... i%.:.-. |
00011170  69 25 3d 31 20 b8 20 62  79 74 65 73 25 3a d5 23  |i%=1 . bytes%:.#|
00011180  66 68 25 2c 76 61 6c 25  3a 76 61 6c 25 3d 76 61  |fh%,val%:val%=va|
00011190  6c 25 3e 3e 38 3a ed 0d  3a f2 05 e1 0d 3a fc 05  |l%>>8:..:....:..|
000111a0  20 0d 3b 06 15 dd f2 6f  73 74 72 69 6e 67 28 66  | .;....ostring(f|
000111b0  68 25 2c 76 24 29 0d 3b  10 1c f4 20 4f 75 74 70  |h%,v$).;... Outp|
000111c0  75 74 73 20 73 74 72 69  6e 67 20 74 6f 20 66 69  |uts string to fi|
000111d0  6c 65 0d 3b 1a 08 ea 20  69 25 0d 3b 24 23 e3 20  |le.;... i%.;$#. |
000111e0  69 25 3d 31 20 b8 20 a9  76 24 3a d5 23 66 68 25  |i%=1 . .v$:.#fh%|
000111f0  2c 97 c1 76 24 2c 69 25  2c 31 29 3a ed 0d 3b 2e  |,..v$,i%,1):..;.|
00011200  05 e1 0d 3b 38 04 0d 3b  42 11 dd f2 69 6e 69 74  |...;8..;B...init|
00011210  5f 6d 6f 64 75 6c 65 0d  3b 4c 18 f4 20 49 6e 69  |_module.;L.. Ini|
00011220  74 69 61 6c 69 73 65 73  20 6d 6f 64 75 6c 65 0d  |tialises module.|
00011230  3b 56 2e c8 99 20 22 54  72 61 6e 73 6c 61 74 6f  |;V... "Translato|
00011240  72 5f 4d 61 6b 65 4d 61  70 73 22 3a f4 20 49 6e  |r_MakeMaps":. In|
00011250  69 74 69 61 6c 69 73 65  20 6d 61 70 73 0d 3b 60  |itialise maps.;`|
00011260  05 e1 0d 3b 6a 05 20 0d  3b 74 1a dd f2 76 61 72  |...;j. .;t...var|
00011270  28 76 61 72 6e 61 6d 65  24 2c 76 61 6c 75 65 25  |(varname$,value%|
00011280  29 0d 3b 7e 1c f4 20 57  72 69 74 65 73 20 6d 6f  |).;~.. Writes mo|
00011290  64 75 6c 65 20 76 61 72  69 61 62 6c 65 0d 3b 88  |dule variable.;.|
000112a0  3b 24 64 75 6d 25 3d 76  61 72 6e 61 6d 65 24 3a  |;$dum%=varname$:|
000112b0  c8 99 20 22 54 72 61 6e  73 6c 61 74 6f 72 5f 53  |.. "Translator_S|
000112c0  65 74 56 61 72 69 61 62  6c 65 22 2c 21 64 75 6d  |etVariable",!dum|
000112d0  25 2c 76 61 6c 75 65 25  0d 3b 92 05 e1 0d 3b 9c  |%,value%.;....;.|
000112e0  05 20 0d 3b a6 13 dd a4  76 61 72 28 76 61 72 6e  |. .;....var(varn|
000112f0  61 6d 65 24 29 0d 3b b0  1b f4 20 52 65 61 64 73  |ame$).;... Reads|
00011300  20 6d 6f 64 75 6c 65 20  76 61 72 69 61 62 6c 65  | module variable|
00011310  0d 3b ba 0c ea 20 76 61  6c 75 65 25 0d 3b c4 3e  |.;... value%.;.>|
00011320  24 64 75 6d 25 3d 76 61  72 6e 61 6d 65 24 3a c8  |$dum%=varname$:.|
00011330  99 20 22 54 72 61 6e 73  6c 61 74 6f 72 5f 52 65  |. "Translator_Re|
00011340  61 64 56 61 72 69 61 62  6c 65 22 2c 21 64 75 6d  |adVariable",!dum|
00011350  25 20 b8 20 76 61 6c 75  65 25 0d 3b ce 0b 3d 76  |% . value%.;..=v|
00011360  61 6c 75 65 25 0d 3b d8  05 20 0d 3b e2 12 dd a4  |alue%.;.. .;....|
00011370  4f 53 76 61 72 28 6e 61  6d 65 24 29 0d 3b ec 2e  |OSvar(name$).;..|
00011380  f4 20 41 74 74 65 6d 70  74 73 20 74 6f 20 72 65  |. Attempts to re|
00011390  74 75 72 6e 20 4f 53 2d  76 61 72 27 73 20 73 74  |turn OS-var's st|
000113a0  72 69 6e 67 20 76 61 6c  75 65 0d 3b f6 0d ea 20  |ring value.;... |
000113b0  5f 72 24 2c 5f 6c 25 0d  3c 00 43 5f 72 24 3d c4  |_r$,_l%.<.C_r$=.|
000113c0  31 30 30 2c 22 20 22 29  3a c8 99 20 22 58 4f 53  |100," "):.. "XOS|
000113d0  5f 52 65 61 64 56 61 72  56 61 6c 22 2c 6e 61 6d  |_ReadVarVal",nam|
000113e0  65 24 2c 5f 72 24 2c a9  5f 72 24 2c 30 2c 33 20  |e$,_r$,._r$,0,3 |
000113f0  b8 20 2c 5f 72                                    |. ,_r|
000113f5