/ The Datafile PD-CD 3 / PDCD_3.iso / languages / panebasic / lib / basiclib / !Squares / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 20 3e 20 | 3c 53 71 75 61 72 65 73 |..... > |<Squares|
|00000010| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000020| 00 14 28 f4 20 43 6f 70 | 79 72 69 67 68 74 20 28 |..(. Cop|yright (|
|00000030| 63 29 20 57 61 6c 74 68 | 65 72 20 53 63 68 6f 6f |c) Walth|er Schoo|
|00000040| 6e 65 6e 62 65 72 67 0d | 00 1e 2e f4 20 42 61 73 |nenberg.|.... Bas|
|00000050| 65 64 20 6f 6e 20 61 20 | 76 65 72 79 20 6f 6c 64 |ed on a |very old|
|00000060| 20 42 42 43 2d 42 20 67 | 72 61 70 68 69 63 73 20 | BBC-B g|raphics |
|00000070| 64 65 6d 6f 21 0d 00 28 | 29 f4 20 54 68 69 73 20 |demo!..(|). This |
|00000080| 61 70 70 6c 69 63 61 74 | 69 6f 6e 20 69 73 20 61 |applicat|ion is a|
|00000090| 20 57 49 4d 50 20 65 78 | 61 6d 70 6c 65 3a 0d 00 | WIMP ex|ample:..|
|000000a0| 32 41 f4 20 49 74 20 73 | 68 6f 77 73 20 68 6f 77 |2A. It s|hows how|
|000000b0| 20 74 6f 20 6f 75 74 70 | 75 74 20 67 72 61 70 68 | to outp|ut graph|
|000000c0| 69 63 73 20 74 6f 20 61 | 20 73 70 72 69 74 65 20 |ics to a| sprite |
|000000d0| 61 6e 64 20 74 6f 20 75 | 73 65 20 74 68 69 73 0d |and to u|se this.|
|000000e0| 00 3c 34 f4 20 76 65 72 | 79 20 75 73 65 66 75 6c |.<4. ver|y useful|
|000000f0| 20 74 65 63 68 6e 69 71 | 75 65 20 69 6e 20 74 68 | techniq|ue in th|
|00000100| 65 20 57 49 4d 50 20 65 | 6e 76 69 72 6f 6e 6d 65 |e WIMP e|nvironme|
|00000110| 6e 74 2e 0d 00 46 2f f4 | 20 54 68 61 6e 6b 73 20 |nt...F/.| Thanks |
|00000120| 74 6f 20 50 68 69 6c 69 | 70 20 43 6f 6c 6d 65 72 |to Phili|p Colmer|
|00000130| 20 28 41 63 6f 72 6e 29 | 20 66 6f 72 20 68 65 6c | (Acorn)| for hel|
|00000140| 70 2e 0d 00 50 05 3a 0d | 00 5a 19 c8 9b 20 22 42 |p...P.:.|.Z... "B|
|00000150| 61 73 69 63 4c 69 62 3a | 57 69 6d 70 4c 69 62 22 |asicLib:|WimpLib"|
|00000160| 0d 00 64 05 3a 0d 00 6e | 09 f2 69 6e 69 74 0d 00 |..d.:..n|..init..|
|00000170| 78 09 f2 70 6f 6c 6c 0d | 00 82 0f f2 63 6c 6f 73 |x..poll.|....clos|
|00000180| 65 5f 74 61 73 6b 0d 00 | 8c 05 e0 0d 00 96 05 3a |e_task..|.......:|
|00000190| 0d 00 a0 0b dd 20 f2 70 | 6f 6c 6c 0d 00 aa 0b 71 |..... .p|oll....q|
|000001a0| 75 69 74 25 3d a3 0d 00 | b4 05 f5 0d 00 be 34 20 |uit%=...|......4 |
|000001b0| 20 c8 99 20 22 4f 53 5f | 52 65 61 64 4d 6f 6e 6f | .. "OS_|ReadMono|
|000001c0| 74 6f 6e 69 63 54 69 6d | 65 22 20 b8 20 74 69 6d |tonicTim|e" . tim|
|000001d0| 65 78 25 3a 74 69 6d 65 | 78 25 2b 3d 32 30 30 0d |ex%:time|x%+=200.|
|000001e0| 00 c8 2e 20 20 c8 99 20 | 22 57 69 6d 70 5f 50 6f |...  .. |"Wimp_Po|
|000001f0| 6c 6c 49 64 6c 65 22 2c | 30 2c 71 25 2c 74 69 6d |llIdle",|0,q%,tim|
|00000200| 65 78 25 20 b8 20 72 65 | 61 73 6f 6e 25 0d 00 d2 |ex% . re|ason%...|
|00000210| 12 20 20 c8 8e 20 72 65 | 61 73 6f 6e 25 20 ca 0d |.  .. re|ason% ..|
|00000220| 00 dc 1c 20 20 c9 20 30 | 3a 20 e7 20 ac 20 66 72 |...  . 0|: . . fr|
|00000230| 65 65 7a 65 25 20 f2 6e | 75 6c 6c 0d 00 e6 1e 20 |eeze% .n|ull.... |
|00000240| 20 c9 20 31 3a 20 f2 72 | 65 64 72 61 77 5f 77 69 | . 1: .r|edraw_wi|
|00000250| 6e 64 6f 77 28 21 71 25 | 29 0d 00 f0 44 20 20 c9 |ndow(!q%|)...D  .|
|00000260| 20 32 3a 20 f2 6f 70 65 | 6e 5f 77 69 6e 64 6f 77 | 2: .ope|n_window|
|00000270| 28 21 71 25 2c 71 25 21 | 34 2c 71 25 21 38 2c 71 |(!q%,q%!|4,q%!8,q|
|00000280| 25 21 31 32 2c 71 25 21 | 31 36 2c 71 25 21 32 30 |%!12,q%!|16,q%!20|
|00000290| 2c 71 25 21 32 34 2c 71 | 25 21 32 38 29 0d 00 fa |,q%!24,q|%!28)...|
|000002a0| 1d 20 20 c9 20 33 3a 20 | f2 63 6c 6f 73 65 5f 77 |.  . 3: |.close_w|
|000002b0| 69 6e 64 6f 77 28 21 71 | 25 29 0d 01 04 32 20 20 |indow(!q|%)...2  |
|000002c0| c9 20 36 3a 20 f2 6d 6f | 75 73 65 5f 63 6c 69 63 |. 6: .mo|use_clic|
|000002d0| 6b 28 21 71 25 2c 71 25 | 21 34 2c 71 25 21 38 2c |k(!q%,q%|!4,q%!8,|
|000002e0| 71 25 21 31 32 2c 71 25 | 21 31 36 29 0d 01 0e 17 |q%!12,q%|!16)....|
|000002f0| 20 20 c9 20 39 3a 20 f2 | 6d 65 6e 75 5f 73 65 6c |  . 9: .|menu_sel|
|00000300| 65 63 74 0d 01 18 1e 20 | 20 c9 20 31 37 2c 31 38 |ect.... | . 17,18|
|00000310| 3a 20 f2 72 65 63 65 69 | 76 65 28 71 25 21 31 36 |: .recei|ve(q%!16|
|00000320| 29 0d 01 22 07 20 20 cb | 0d 01 2c 0b fd 20 71 75 |)..".  .|..,.. qu|
|00000330| 69 74 25 0d 01 36 05 e1 | 0d 01 40 05 3a 0d 01 4a |it%..6..|..@.:..J|
|00000340| 12 dd f2 73 71 28 78 25 | 2c 79 25 2c 73 25 29 0d |...sq(x%|,y%,s%).|
|00000350| 01 54 0d e7 20 73 25 3c | 76 25 20 e1 0d 01 5e 1b |.T.. s%<|v% ...^.|
|00000360| f2 73 71 28 78 25 2b 73 | 25 2f 34 2c 79 25 2b 73 |.sq(x%+s|%/4,y%+s|
|00000370| 25 2c 73 25 2f 32 29 0d | 01 68 1b f2 73 71 28 78 |%,s%/2).|.h..sq(x|
|00000380| 25 2b 73 25 2c 79 25 2b | 73 25 2f 34 2c 73 25 2f |%+s%,y%+|s%/4,s%/|
|00000390| 32 29 0d 01 72 1d f2 73 | 71 28 78 25 2d 73 25 2f |2)..r..s|q(x%-s%/|
|000003a0| 32 2c 79 25 2b 73 25 2f | 34 2c 73 25 2f 32 29 0d |2,y%+s%/|4,s%/2).|
|000003b0| 01 7c 1d f2 73 71 28 78 | 25 2b 73 25 2f 34 2c 79 |.|..sq(x|%+s%/4,y|
|000003c0| 25 2d 73 25 2f 32 2c 73 | 25 2f 32 29 0d 01 86 1d |%-s%/2,s|%/2)....|
|000003d0| ec 20 78 25 2c 79 25 3a | f0 20 26 36 35 2c 78 25 |. x%,y%:|. &65,x%|
|000003e0| 2b 73 25 2c 79 25 2b 73 | 25 0d 01 90 05 e1 0d 01 |+s%,y%+s|%.......|
|000003f0| 9a 05 3a 0d 01 a4 17 dd | 20 f2 61 70 70 6c 69 63 |..:.....| .applic|
|00000400| 61 74 69 6f 6e 5f 64 72 | 61 77 0d 01 ae 25 c8 99 |ation_dr|aw...%..|
|00000410| 20 22 57 69 6d 70 5f 53 | 65 74 43 6f 6c 6f 75 72 | "Wimp_S|etColour|
|00000420| 22 2c 28 33 3c 3c 34 29 | 2b b3 28 39 29 2b 36 0d |",(3<<4)|+.(9)+6.|
|00000430| 01 b8 24 f2 73 71 28 28 | 38 30 30 2d 32 35 36 29 |..$.sq((|800-256)|
|00000440| 2f 32 2c 28 38 30 30 2d | 32 35 36 29 2f 32 2c 32 |/2,(800-|256)/2,2|
|00000450| 35 36 29 0d 01 c2 0b 76 | 25 3d 76 25 2f 32 0d 01 |56)....v|%=v%/2..|
|00000460| cc 12 e7 20 76 25 3c 31 | 36 20 76 25 3d 35 31 32 |... v%<1|6 v%=512|
|00000470| 0d 01 d6 19 c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |...... "|Wimp_Set|
|00000480| 43 6f 6c 6f 75 72 22 2c | 37 0d 01 e0 05 e1 0d 01 |Colour",|7.......|
|00000490| ea 05 3a 0d 01 f4 16 dd | 20 f2 72 65 64 72 61 77 |..:.....| .redraw|
|000004a0| 28 68 61 6e 64 6c 65 25 | 29 0d 01 fe 0c ea 20 79 |(handle%|)..... y|
|000004b0| 73 69 7a 65 25 0d 02 08 | 16 e7 20 68 61 6e 64 6c |size%...|.. handl|
|000004c0| 65 25 3c 3e 6d 61 69 6e | 25 20 e1 0d 02 12 41 c8 |e%<>main|% ....A.|
|000004d0| 99 20 22 57 69 6d 70 5f | 52 65 61 64 50 69 78 54 |. "Wimp_|ReadPixT|
|000004e0| 72 61 6e 73 22 2c 26 31 | 30 30 2c 73 70 72 69 74 |rans",&1|00,sprit|
|000004f0| 65 25 2c 22 56 44 55 22 | 2c 2c 2c 2c 73 63 61 6c |e%,"VDU"|,,,,scal|
|00000500| 65 25 2c 64 75 66 74 72 | 61 6e 73 25 0d 02 1c 20 |e%,duftr|ans%... |
|00000510| 73 63 61 6c 65 25 21 38 | 20 3d 73 63 61 6c 65 25 |scale%!8| =scale%|
|00000520| 21 38 2a 78 64 69 76 6d | 75 6c 74 25 0d 02 26 21 |!8*xdivm|ult%..&!|
|00000530| 73 63 61 6c 65 25 21 31 | 32 3d 73 63 61 6c 65 25 |scale%!1|2=scale%|
|00000540| 21 31 32 2a 79 64 69 76 | 6d 75 6c 74 25 0d 02 30 |!12*ydiv|mult%..0|
|00000550| 20 73 63 61 6c 65 25 21 | 30 20 3d 73 63 61 6c 65 | scale%!|0 =scale|
|00000560| 25 21 30 2a 78 6d 61 67 | 6d 75 6c 74 25 0d 02 3a |%!0*xmag|mult%..:|
|00000570| 20 73 63 61 6c 65 25 21 | 34 20 3d 73 63 61 6c 65 | scale%!|4 =scale|
|00000580| 25 21 34 2a 79 6d 61 67 | 6d 75 6c 74 25 0d 02 44 |%!4*ymag|mult%..D|
|00000590| 1e 7a 25 3d 38 30 30 2f | 79 64 69 76 6d 75 6c 74 |.z%=800/|ydivmult|
|000005a0| 25 2a 79 6d 61 67 6d 75 | 6c 74 25 0d 02 4e 19 78 |%*ymagmu|lt%..N.x|
|000005b0| 25 3d 62 6c 6f 63 6b 25 | 21 34 2d 62 6c 6f 63 6b |%=block%|!4-block|
|000005c0| 25 21 32 30 0d 02 58 1d | 79 25 3d 62 6c 6f 63 6b |%!20..X.|y%=block|
|000005d0| 25 21 31 36 2d 62 6c 6f | 63 6b 25 21 32 34 2d 7a |%!16-blo|ck%!24-z|
|000005e0| 25 0d 02 62 42 c8 99 20 | 22 4f 53 5f 53 70 72 69 |%..bB.. |"OS_Spri|
|000005f0| 74 65 4f 70 22 2c 32 35 | 36 2b 35 32 2c 73 70 72 |teOp",25|6+52,spr|
|00000600| 69 74 65 25 2c 22 56 44 | 55 22 2c 78 25 2c 79 25 |ite%,"VD|U",x%,y%|
|00000610| 2c 30 2c 73 63 61 6c 65 | 25 2c 70 69 78 74 72 61 |,0,scale|%,pixtra|
|00000620| 6e 73 25 0d 02 6c 05 e1 | 0d 02 76 05 3a 0d 02 80 |ns%..l..|..v.:...|
|00000630| 14 dd 20 f2 75 70 64 61 | 74 65 5f 77 69 6e 64 6f |.. .upda|te_windo|
|00000640| 77 0d 02 8a 0d ea 20 62 | 78 25 2c 62 79 25 0d 02 |w..... b|x%,by%..|
|00000650| 94 2b 78 31 25 3d 28 78 | 31 25 3c 3c 32 29 2a 78 |.+x1%=(x|1%<<2)*x|
|00000660| 6d 61 67 6d 75 6c 74 25 | 2f 78 64 69 76 6d 75 6c |magmult%|/xdivmul|
|00000670| 74 25 2d 28 31 3c 3c 32 | 29 0d 02 9e 2b 78 32 25 |t%-(1<<2|)...+x2%|
|00000680| 3d 28 78 32 25 3c 3c 32 | 29 2a 78 6d 61 67 6d 75 |=(x2%<<2|)*xmagmu|
|00000690| 6c 74 25 2f 78 64 69 76 | 6d 75 6c 74 25 2b 28 31 |lt%/xdiv|mult%+(1|
|000006a0| 3c 3c 32 29 0d 02 a8 31 | 79 31 25 3d 28 28 79 31 |<<2)...1|y1%=((y1|
|000006b0| 25 2d 32 30 30 29 3c 3c | 32 29 2a 79 6d 61 67 6d |%-200)<<|2)*ymagm|
|000006c0| 75 6c 74 25 2f 79 64 69 | 76 6d 75 6c 74 25 2d 28 |ult%/ydi|vmult%-(|
|000006d0| 31 3c 3c 32 29 0d 02 b2 | 31 79 32 25 3d 28 28 79 |1<<2)...|1y2%=((y|
|000006e0| 32 25 2d 32 30 30 29 3c | 3c 32 29 2a 79 6d 61 67 |2%-200)<|<2)*ymag|
|000006f0| 6d 75 6c 74 25 2f 79 64 | 69 76 6d 75 6c 74 25 2b |mult%/yd|ivmult%+|
|00000700| 28 31 3c 3c 32 29 0d 02 | bc 4c f4 20 41 6e 20 69 |(1<<2)..|.L. An i|
|00000710| 6d 70 6f 72 74 61 6e 74 | 20 70 6f 69 6e 74 20 74 |mportant| point t|
|00000720| 6f 20 6e 6f 74 65 20 61 | 62 6f 75 74 20 74 68 65 |o note a|bout the|
|00000730| 20 61 62 6f 76 65 20 63 | 6f 64 65 20 69 73 20 74 | above c|ode is t|
|00000740| 68 65 20 28 31 3c 3c 32 | 29 20 62 69 74 2e 20 54 |he (1<<2|) bit. T|
|00000750| 68 65 0d 02 c6 4d f4 20 | 73 70 72 69 74 65 20 75 |he...M. |sprite u|
|00000760| 73 65 64 20 69 6e 20 74 | 68 69 73 20 65 78 61 6d |sed in t|his exam|
|00000770| 70 6c 65 20 69 73 20 61 | 20 6d 6f 64 65 20 39 20 |ple is a| mode 9 |
|00000780| 73 70 72 69 74 65 2c 20 | 77 68 69 63 68 20 69 73 |sprite, |which is|
|00000790| 20 77 68 79 20 74 68 65 | 20 76 61 6c 75 65 73 0d | why the| values.|
|000007a0| 02 d0 49 f4 20 61 72 65 | 20 62 65 69 6e 67 20 73 |..I. are| being s|
|000007b0| 63 61 6c 65 64 20 75 70 | 2e 20 49 66 20 79 6f 75 |caled up|. If you|
|000007c0| 72 20 73 70 72 69 74 65 | 27 73 20 6d 6f 64 65 20 |r sprite|'s mode |
|000007d0| 76 61 72 69 65 73 2c 20 | 79 6f 75 20 77 69 6c 6c |varies, |you will|
|000007e0| 20 6e 65 65 64 20 74 6f | 0d 02 da 34 f4 20 72 65 | need to|...4. re|
|000007f0| 61 64 20 74 68 65 20 65 | 69 67 65 6e 20 76 61 6c |ad the e|igen val|
|00000800| 75 65 73 20 66 6f 72 20 | 74 68 65 20 70 61 72 74 |ues for |the part|
|00000810| 69 63 75 6c 61 72 20 6d | 6f 64 65 2e 0d 02 e4 3d |icular m|ode....=|
|00000820| f4 20 4e 6f 77 20 75 70 | 64 61 74 65 20 74 68 65 |. Now up|date the|
|00000830| 20 77 69 6e 64 6f 77 20 | 72 65 63 74 61 6e 67 6c | window |rectangl|
|00000840| 65 20 74 68 61 74 20 68 | 61 73 20 62 65 65 6e 20 |e that h|as been |
|00000850| 61 66 66 65 63 74 65 64 | 3a 0d 02 ee 47 21 62 6c |affected|:...G!bl|
|00000860| 6f 63 6b 25 3d 6d 61 69 | 6e 25 3a 62 6c 6f 63 6b |ock%=mai|n%:block|
|00000870| 25 21 34 3d 78 31 25 3a | 62 6c 6f 63 6b 25 21 38 |%!4=x1%:|block%!8|
|00000880| 3d 79 31 25 3a 62 6c 6f | 63 6b 25 21 31 32 3d 78 |=y1%:blo|ck%!12=x|
|00000890| 32 25 3a 62 6c 6f 63 6b | 25 21 31 36 3d 79 32 25 |2%:block|%!16=y2%|
|000008a0| 0d 02 f8 2a c8 99 20 22 | 57 69 6d 70 5f 55 70 64 |...*.. "|Wimp_Upd|
|000008b0| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 62 6c 6f 63 |ateWindo|w",,bloc|
|000008c0| 6b 25 20 b8 20 6d 6f 72 | 65 25 0d 03 02 41 c8 99 |k% . mor|e%...A..|
|000008d0| 20 22 57 69 6d 70 5f 52 | 65 61 64 50 69 78 54 72 | "Wimp_R|eadPixTr|
|000008e0| 61 6e 73 22 2c 26 31 30 | 30 2c 73 70 72 69 74 65 |ans",&10|0,sprite|
|000008f0| 25 2c 22 56 44 55 22 2c | 2c 2c 2c 73 63 61 6c 65 |%,"VDU",|,,,scale|
|00000900| 25 2c 64 75 66 74 72 61 | 6e 73 25 0d 03 0c 20 73 |%,duftra|ns%... s|
|00000910| 63 61 6c 65 25 21 38 20 | 3d 73 63 61 6c 65 25 21 |cale%!8 |=scale%!|
|00000920| 38 2a 78 64 69 76 6d 75 | 6c 74 25 0d 03 16 21 73 |8*xdivmu|lt%...!s|
|00000930| 63 61 6c 65 25 21 31 32 | 3d 73 63 61 6c 65 25 21 |cale%!12|=scale%!|
|00000940| 31 32 2a 79 64 69 76 6d | 75 6c 74 25 0d 03 20 20 |12*ydivm|ult%..  |
|00000950| 73 63 61 6c 65 25 21 30 | 20 3d 73 63 61 6c 65 25 |scale%!0| =scale%|
|00000960| 21 30 2a 78 6d 61 67 6d | 75 6c 74 25 0d 03 2a 20 |!0*xmagm|ult%..* |
|00000970| 73 63 61 6c 65 25 21 34 | 20 3d 73 63 61 6c 65 25 |scale%!4| =scale%|
|00000980| 21 34 2a 79 6d 61 67 6d | 75 6c 74 25 0d 03 34 1e |!4*ymagm|ult%..4.|
|00000990| 7a 25 3d 38 30 30 2f 79 | 64 69 76 6d 75 6c 74 25 |z%=800/y|divmult%|
|000009a0| 2a 79 6d 61 67 6d 75 6c | 74 25 0d 03 3e 0c c8 95 |*ymagmul|t%..>...|
|000009b0| 20 6d 6f 72 65 25 0d 03 | 48 1c 20 20 62 78 25 3d | more%..|H.  bx%=|
|000009c0| 62 6c 6f 63 6b 25 21 34 | 2d 62 6c 6f 63 6b 25 21 |block%!4|-block%!|
|000009d0| 32 30 0d 03 52 1d 20 20 | 62 79 25 3d 62 6c 6f 63 |20..R.  |by%=bloc|
|000009e0| 6b 25 21 31 36 2d 62 6c | 6f 63 6b 25 21 32 34 0d |k%!16-bl|ock%!24.|
|000009f0| 03 5c 49 20 20 c8 99 20 | 22 4f 53 5f 53 70 72 69 |.\I  .. |"OS_Spri|
|00000a00| 74 65 4f 70 22 2c 32 35 | 36 2b 35 32 2c 73 70 72 |teOp",25|6+52,spr|
|00000a10| 69 74 65 25 2c 22 56 44 | 55 22 2c 62 78 25 2c 62 |ite%,"VD|U",bx%,b|
|00000a20| 79 25 2d 7a 25 2c 30 2c | 73 63 61 6c 65 25 2c 70 |y%-z%,0,|scale%,p|
|00000a30| 69 78 74 72 61 6e 73 25 | 0d 03 66 2c 20 20 c8 99 |ixtrans%|..f,  ..|
|00000a40| 20 22 57 69 6d 70 5f 47 | 65 74 52 65 63 74 61 6e | "Wimp_G|etRectan|
|00000a50| 67 6c 65 22 2c 2c 62 6c | 6f 63 6b 25 20 b8 20 6d |gle",,bl|ock% . m|
|00000a60| 6f 72 65 25 0d 03 70 05 | ce 0d 03 7a 05 e1 0d 03 |ore%..p.|...z....|
|00000a70| 84 05 3a 0d 03 8e 0b dd | 20 f2 6e 75 6c 6c 0d 03 |..:.....| .null..|
|00000a80| 98 15 ea 20 52 30 25 2c | 52 31 25 2c 52 32 25 2c |... R0%,|R1%,R2%,|
|00000a90| 52 33 25 0d 03 a2 30 f4 | 20 54 68 65 72 65 20 69 |R3%...0.| There i|
|00000aa0| 73 20 6e 6f 20 6e 65 65 | 64 20 74 6f 20 75 73 65 |s no nee|d to use|
|00000ab0| 20 61 20 73 70 72 69 74 | 65 20 73 61 76 65 20 61 | a sprit|e save a|
|00000ac0| 72 65 61 0d 03 ac 3d c8 | 99 20 22 4f 53 5f 53 70 |rea...=.|. "OS_Sp|
|00000ad0| 72 69 74 65 4f 70 22 2c | 32 35 36 2b 36 30 2c 73 |riteOp",|256+60,s|
|00000ae0| 70 72 69 74 65 25 2c 22 | 56 44 55 22 2c 30 20 b8 |prite%,"|VDU",0 .|
|00000af0| 20 52 30 25 2c 52 31 25 | 2c 52 32 25 2c 52 33 25 | R0%,R1%|,R2%,R3%|
|00000b00| 0d 03 b6 18 c8 99 20 22 | 4f 53 5f 43 68 61 6e 67 |...... "|OS_Chang|
|00000b10| 65 64 42 6f 78 22 2c 31 | 0d 03 c0 18 c8 99 20 22 |edBox",1|...... "|
|00000b20| 4f 53 5f 43 68 61 6e 67 | 65 64 42 6f 78 22 2c 32 |OS_Chang|edBox",2|
|00000b30| 0d 03 ca 4a f4 20 54 68 | 65 20 75 73 65 20 6f 66 |...J. Th|e use of|
|00000b40| 20 4f 53 5f 43 68 61 6e | 67 65 64 42 6f 78 20 61 | OS_Chan|gedBox a|
|00000b50| 6c 6c 6f 77 73 20 79 6f | 75 20 74 6f 20 6d 69 6e |llows yo|u to min|
|00000b60| 69 6d 69 73 65 20 74 68 | 65 20 73 63 72 65 65 6e |imise th|e screen|
|00000b70| 20 72 65 64 72 61 77 20 | 74 6f 0d 03 d4 4c f4 20 | redraw |to...L. |
|00000b80| 4a 55 53 54 20 74 68 65 | 20 72 65 63 74 61 6e 67 |JUST the| rectang|
|00000b90| 6c 65 20 74 68 61 74 20 | 79 6f 75 27 76 65 20 75 |le that |you've u|
|00000ba0| 70 64 61 74 65 64 2c 20 | 77 69 74 68 6f 75 74 20 |pdated, |without |
|00000bb0| 79 6f 75 20 68 61 76 69 | 6e 67 20 74 6f 20 77 6f |you havi|ng to wo|
|00000bc0| 72 6b 20 6f 75 74 0d 03 | de 11 f4 20 74 68 65 20 |rk out..|... the |
|00000bd0| 76 61 6c 75 65 73 2e 0d | 03 e8 15 f2 61 70 70 6c |values..|....appl|
|00000be0| 69 63 61 74 69 6f 6e 5f | 64 72 61 77 0d 03 f2 21 |ication_|draw...!|
|00000bf0| c8 99 20 22 4f 53 5f 43 | 68 61 6e 67 65 64 42 6f |.. "OS_C|hangedBo|
|00000c00| 78 22 2c 2d 31 20 b8 20 | 2c 62 6f 78 25 0d 03 fc |x",-1 . |,box%...|
|00000c10| 31 78 31 25 3d 62 6f 78 | 25 21 34 3a 79 31 25 3d |1x1%=box|%!4:y1%=|
|00000c20| 62 6f 78 25 21 38 3a 78 | 32 25 3d 62 6f 78 25 21 |box%!8:x|2%=box%!|
|00000c30| 31 32 3a 79 32 25 3d 62 | 6f 78 25 21 31 36 0d 04 |12:y2%=b|ox%!16..|
|00000c40| 06 24 c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |.$.. "OS|_SpriteO|
|00000c50| 70 22 2c 52 30 25 2c 52 | 31 25 2c 52 32 25 2c 52 |p",R0%,R|1%,R2%,R|
|00000c60| 33 25 0d 04 10 12 f2 75 | 70 64 61 74 65 5f 77 69 |3%.....u|pdate_wi|
|00000c70| 6e 64 6f 77 0d 04 1a 05 | e1 0d 04 24 05 3a 0d 04 |ndow....|...$.:..|
|00000c80| 2e 0d dd 20 f2 72 65 7a | 6f 6f 6d 0d 04 38 3b 24 |... .rez|oom..8;$|
|00000c90| 6d 61 67 6d 75 6c 74 5f | 69 63 6f 6e 25 3d c3 28 |magmult_|icon%=.(|
|00000ca0| 78 6d 61 67 6d 75 6c 74 | 25 29 3a 24 64 69 76 6d |xmagmult|%):$divm|
|00000cb0| 75 6c 74 5f 69 63 6f 6e | 25 3d c3 28 78 64 69 76 |ult_icon|%=.(xdiv|
|00000cc0| 6d 75 6c 74 25 29 0d 04 | 42 2b 79 6d 61 67 6d 75 |mult%)..|B+ymagmu|
|00000cd0| 6c 74 25 3d 78 6d 61 67 | 6d 75 6c 74 25 3a 79 64 |lt%=xmag|mult%:yd|
|00000ce0| 69 76 6d 75 6c 74 25 3d | 78 64 69 76 6d 75 6c 74 |ivmult%=|xdivmult|
|00000cf0| 25 0d 04 4c 17 f2 64 6f | 5f 6d 65 6e 75 28 6d 61 |%..L..do|_menu(ma|
|00000d00| 69 6e 6d 65 6e 75 25 29 | 0d 04 56 19 f2 72 65 64 |inmenu%)|..V..red|
|00000d10| 72 61 77 5f 77 69 6e 64 | 6f 77 28 6d 61 69 6e 25 |raw_wind|ow(main%|
|00000d20| 29 0d 04 60 05 e1 0d 04 | 6a 05 3a 0d 04 74 0c dd |)..`....|j.:..t..|
|00000d30| 20 f2 7a 6f 6f 6d 31 0d | 04 7e 2f 78 6d 61 67 6d | .zoom1.|.~/xmagm|
|00000d40| 75 6c 74 25 2b 3d 31 3a | 20 e7 20 78 6d 61 67 6d |ult%+=1:| . xmagm|
|00000d50| 75 6c 74 25 3e 39 39 39 | 20 78 6d 61 67 6d 75 6c |ult%>999| xmagmul|
|00000d60| 74 25 3d 39 39 39 0d 04 | 88 0b f2 72 65 7a 6f 6f |t%=999..|...rezoo|
|00000d70| 6d 0d 04 92 05 e1 0d 04 | 9c 05 3a 0d 04 a6 0c dd |m.......|..:.....|
|00000d80| 20 f2 7a 6f 6f 6d 32 0d | 04 b0 2b 78 6d 61 67 6d | .zoom2.|..+xmagm|
|00000d90| 75 6c 74 25 2d 3d 31 3a | 20 e7 20 78 6d 61 67 6d |ult%-=1:| . xmagm|
|00000da0| 75 6c 74 25 3c 31 20 78 | 6d 61 67 6d 75 6c 74 25 |ult%<1 x|magmult%|
|00000db0| 3d 31 0d 04 ba 0b f2 72 | 65 7a 6f 6f 6d 0d 04 c4 |=1.....r|ezoom...|
|00000dc0| 05 e1 0d 04 ce 05 3a 0d | 04 d8 0c dd 20 f2 7a 6f |......:.|.... .zo|
|00000dd0| 6f 6d 33 0d 04 e2 2f 78 | 64 69 76 6d 75 6c 74 25 |om3.../x|divmult%|
|00000de0| 2b 3d 31 3a 20 e7 20 78 | 64 69 76 6d 75 6c 74 25 |+=1: . x|divmult%|
|00000df0| 3e 39 39 39 20 78 64 69 | 76 6d 75 6c 74 25 3d 39 |>999 xdi|vmult%=9|
|00000e00| 39 39 0d 04 ec 0b f2 72 | 65 7a 6f 6f 6d 0d 04 f6 |99.....r|ezoom...|
|00000e10| 05 e1 0d 05 00 05 3a 0d | 05 0a 0c dd 20 f2 7a 6f |......:.|.... .zo|
|00000e20| 6f 6d 34 0d 05 14 2b 78 | 64 69 76 6d 75 6c 74 25 |om4...+x|divmult%|
|00000e30| 2d 3d 31 3a 20 e7 20 78 | 64 69 76 6d 75 6c 74 25 |-=1: . x|divmult%|
|00000e40| 3c 31 20 78 64 69 76 6d | 75 6c 74 25 3d 31 0d 05 |<1 xdivm|ult%=1..|
|00000e50| 1e 0b f2 72 65 7a 6f 6f | 6d 0d 05 28 05 e1 0d 05 |...rezoo|m..(....|
|00000e60| 32 05 3a 0d 05 3c 1e dd | 20 f2 6d 6f 75 73 65 28 |2.:..<..| .mouse(|
|00000e70| 62 25 2c 68 61 6e 64 6c | 65 25 2c 69 63 6f 6e 25 |b%,handl|e%,icon%|
|00000e80| 29 0d 05 46 0b c8 8e 20 | 62 25 20 ca 0d 05 50 1e |)..F... |b% ...P.|
|00000e90| c9 20 32 3a 20 f4 20 6d | 65 6e 75 2d 62 75 74 74 |. 2: . m|enu-butt|
|00000ea0| 6f 6e 20 67 65 6b 6c 69 | 6b 74 0d 05 5a 12 20 20 |on gekli|kt..Z.  |
|00000eb0| c8 8e 20 68 61 6e 64 6c | 65 25 20 ca 0d 05 64 22 |.. handl|e% ...d"|
|00000ec0| 20 20 c9 20 6d 61 69 6e | 25 3a 20 f2 64 6f 5f 6d |  . main|%: .do_m|
|00000ed0| 65 6e 75 28 6d 61 69 6e | 6d 65 6e 75 25 29 0d 05 |enu(main|menu%)..|
|00000ee0| 6e 1f 20 20 c9 20 2d 32 | 3a 20 f2 64 6f 5f 6d 65 |n.  . -2|: .do_me|
|00000ef0| 6e 75 28 69 63 6f 6e 6d | 65 6e 75 25 29 0d 05 78 |nu(iconm|enu%)..x|
|00000f00| 07 20 20 cb 0d 05 82 2c | c9 20 31 2c 34 3a 20 f4 |.  ....,|. 1,4: .|
|00000f10| 20 73 65 6c 65 63 74 2d | 20 6f 66 20 61 6c 74 65 | select-| of alte|
|00000f20| 72 2d 62 75 74 74 6f 6e | 20 67 65 6b 6c 69 6b 74 |r-button| geklikt|
|00000f30| 0d 05 8c 12 20 20 c8 8e | 20 68 61 6e 64 6c 65 25 |....  ..| handle%|
|00000f40| 20 ca 0d 05 96 12 20 20 | c9 20 6d 61 67 6e 69 66 | .....  |. magnif|
|00000f50| 69 65 72 25 0d 05 a0 12 | 20 20 20 20 c8 8e 20 69 |ier%....|    .. i|
|00000f60| 63 6f 6e 25 20 ca 0d 05 | aa 13 20 20 20 20 c9 20 |con% ...|..    . |
|00000f70| 32 3a 20 f2 7a 6f 6f 6d | 31 0d 05 b4 13 20 20 20 |2: .zoom|1....   |
|00000f80| 20 c9 20 33 3a 20 f2 7a | 6f 6f 6d 32 0d 05 be 13 | . 3: .z|oom2....|
|00000f90| 20 20 20 20 c9 20 34 3a | 20 f2 7a 6f 6f 6d 33 0d |    . 4:| .zoom3.|
|00000fa0| 05 c8 13 20 20 20 20 c9 | 20 35 3a 20 f2 7a 6f 6f |...    .| 5: .zoo|
|00000fb0| 6d 34 0d 05 d2 09 20 20 | 20 20 cb 0d 05 dc 19 20 |m4....  |  ..... |
|00000fc0| 20 c9 20 2d 32 3a 20 f2 | 66 72 6f 6e 74 28 6d 61 | . -2: .|front(ma|
|00000fd0| 69 6e 25 29 0d 05 e6 07 | 20 20 cb 0d 05 f0 05 cb |in%)....|  ......|
|00000fe0| 0d 05 fa 05 e1 0d 06 04 | 05 3a 0d 06 0e 12 dd 20 |........|.:..... |
|00000ff0| f2 75 70 64 61 74 65 5f | 6d 65 6e 75 0d 06 18 18 |.update_|menu....|
|00001000| ea 20 69 74 65 6d 24 2c | 6c 65 76 65 6c 25 2c 63 |. item$,|level%,c|
|00001010| 72 61 70 25 0d 06 22 22 | e7 20 66 72 65 65 7a 65 |rap%..""|. freeze|
|00001020| 25 20 69 74 65 6d 24 3d | 22 3e 22 20 8b 20 69 74 |% item$=|">" . it|
|00001030| 65 6d 24 3d 22 22 0d 06 | 2c 33 6d 65 6e 75 24 3d |em$=""..|,3menu$=|
|00001040| 70 72 6f 67 72 61 6d 24 | 2b 22 2c 21 31 49 6e 66 |program$|+",!1Inf|
|00001050| 6f 2c 21 32 5a 6f 6f 6d | 2c 22 2b 69 74 65 6d 24 |o,!2Zoom|,"+item$|
|00001060| 2b 22 46 72 65 65 7a 65 | 22 0d 06 36 41 6c 65 76 |+"Freeze|"..6Alev|
|00001070| 65 6c 25 3d 30 3a 63 72 | 61 70 25 3d a4 63 72 65 |el%=0:cr|ap%=.cre|
|00001080| 61 74 65 5f 6d 65 6e 75 | 5f 6c 65 76 65 6c 28 6d |ate_menu|_level(m|
|00001090| 61 69 6e 6d 65 6e 75 25 | 2c 6c 65 76 65 6c 25 2c |ainmenu%|,level%,|
|000010a0| 31 34 30 2c 6d 65 6e 75 | 24 29 0d 06 40 05 e1 0d |140,menu|$)..@...|
|000010b0| 06 4a 05 3a 0d 06 54 12 | dd 20 f2 6d 65 6e 75 28 |.J.:..T.|. .menu(|
|000010c0| 6d 65 6e 75 24 29 0d 06 | 5e 0e c8 8e 20 6d 65 6e |menu$)..|^... men|
|000010d0| 75 25 20 ca 0d 06 68 0f | c9 20 6d 61 69 6e 6d 65 |u% ...h.|. mainme|
|000010e0| 6e 75 25 0d 06 72 10 20 | 20 c8 8e 20 6d 65 6e 75 |nu%..r. | .. menu|
|000010f0| 24 20 ca 0d 06 7c 30 20 | 20 c9 20 22 46 72 65 65 |$ ...|0 | . "Free|
|00001100| 7a 65 22 3a 20 66 72 65 | 65 7a 65 25 3d ac 20 66 |ze": fre|eze%=. f|
|00001110| 72 65 65 7a 65 25 3a f2 | 75 70 64 61 74 65 5f 6d |reeze%:.|update_m|
|00001120| 65 6e 75 0d 06 86 07 20 | 20 cb 0d 06 90 0f c9 20 |enu.... | ...... |
|00001130| 69 63 6f 6e 6d 65 6e 75 | 25 0d 06 9a 1c 20 20 e7 |iconmenu|%....  .|
|00001140| 20 6d 65 6e 75 24 3d 22 | 51 75 69 74 22 20 71 75 | menu$="|Quit" qu|
|00001150| 69 74 25 3d b9 0d 06 a4 | 05 cb 0d 06 ae 05 e1 0d |it%=....|........|
|00001160| 06 b8 05 3a 0d 06 c2 18 | dd 20 f2 72 65 63 65 69 |...:....|. .recei|
|00001170| 76 65 28 6d 65 73 73 61 | 67 65 25 29 0d 06 cc 11 |ve(messa|ge%)....|
|00001180| c8 8e 20 6d 65 73 73 61 | 67 65 25 20 ca 0d 06 d6 |.. messa|ge% ....|
|00001190| 10 c9 20 30 3a 20 71 75 | 69 74 25 3d b9 0d 06 e0 |.. 0: qu|it%=....|
|000011a0| 1a c9 20 26 34 30 30 43 | 31 3a 20 f2 67 65 74 6d |.. &400C|1: .getm|
|000011b0| 6f 64 65 69 6e 66 6f 0d | 06 ea 05 cb 0d 06 f4 05 |odeinfo.|........|
|000011c0| e1 0d 06 fe 05 3a 0d 07 | 08 12 dd 20 f2 67 65 74 |.....:..|... .get|
|000011d0| 6d 6f 64 65 69 6e 66 6f | 0d 07 12 3f 71 25 21 30 |modeinfo|...?q%!0|
|000011e0| 3d 34 3a 71 25 21 34 3d | 35 3a 71 25 21 38 3d 31 |=4:q%!4=|5:q%!8=1|
|000011f0| 31 3a 71 25 21 31 32 3d | 31 32 3a 71 25 21 31 36 |1:q%!12=|12:q%!16|
|00001200| 3d 31 33 36 3a 71 25 21 | 32 30 3d 31 33 37 3a 71 |=136:q%!|20=137:q|
|00001210| 25 21 32 34 3d 2d 31 0d | 07 1c 25 c8 99 20 22 4f |%!24=-1.|..%.. "O|
|00001220| 53 5f 52 65 61 64 56 64 | 75 56 61 72 69 61 62 6c |S_ReadVd|uVariabl|
|00001230| 65 73 22 2c 71 25 2c 71 | 25 2b 32 38 0d 07 26 23 |es",q%,q|%+28..&#|
|00001240| 72 65 73 78 25 3d 28 71 | 25 21 33 36 29 2b 31 3a |resx%=(q|%!36)+1:|
|00001250| 72 65 73 79 25 3d 28 71 | 25 21 34 30 29 2b 31 0d |resy%=(q|%!40)+1.|
|00001260| 07 30 21 64 78 25 3d 31 | 3c 3c 28 71 25 21 32 38 |.0!dx%=1|<<(q%!28|
|00001270| 29 3a 64 79 25 3d 31 3c | 3c 28 71 25 21 33 32 29 |):dy%=1<|<(q%!32)|
|00001280| 0d 07 3a 23 73 63 72 78 | 25 3d 72 65 73 78 25 2a |..:#scrx|%=resx%*|
|00001290| 64 78 25 3a 73 63 72 79 | 25 3d 72 65 73 79 25 2a |dx%:scry|%=resy%*|
|000012a0| 64 79 25 0d 07 44 1b 6f | 72 67 78 25 3d 71 25 21 |dy%..D.o|rgx%=q%!|
|000012b0| 34 34 3a 6f 72 67 79 25 | 3d 71 25 21 34 38 0d 07 |44:orgy%|=q%!48..|
|000012c0| 4e 05 e1 0d 07 58 05 3a | 0d 07 62 0b dd 20 f2 69 |N....X.:|..b.. .i|
|000012d0| 6e 69 74 0d 07 6c 33 70 | 72 6f 67 72 61 6d 24 3d |nit..l3p|rogram$=|
|000012e0| 22 53 71 75 61 72 65 73 | 22 3a 76 65 72 73 69 6f |"Squares|":versio|
|000012f0| 6e 24 3d 22 31 2e 31 32 | 20 28 39 2d 4e 6f 76 2d |n$="1.12| (9-Nov-|
|00001300| 31 39 39 30 29 22 0d 07 | 76 1d f2 69 6e 69 74 5f |1990)"..|v..init_|
|00001310| 74 61 73 6b 28 70 72 6f | 67 72 61 6d 24 2c 31 30 |task(pro|gram$,10|
|00001320| 32 34 29 0d 07 80 31 f2 | 6f 70 65 6e 5f 74 65 6d |24)...1.|open_tem|
|00001330| 70 6c 61 74 65 28 22 3c | 53 71 75 61 72 65 73 24 |plate("<|Squares$|
|00001340| 44 69 72 3e 2e 54 65 6d | 70 6c 61 74 65 73 22 2c |Dir>.Tem|plates",|
|00001350| 31 38 36 29 0d 07 8a 20 | 6d 61 69 6e 25 3d a4 6c |186)... |main%=.l|
|00001360| 6f 61 64 5f 74 65 6d 70 | 6c 61 74 65 28 22 6d 61 |oad_temp|late("ma|
|00001370| 69 6e 22 29 0d 07 94 20 | 69 6e 66 6f 25 3d a4 6c |in")... |info%=.l|
|00001380| 6f 61 64 5f 74 65 6d 70 | 6c 61 74 65 28 22 69 6e |oad_temp|late("in|
|00001390| 66 6f 22 29 0d 07 9e 24 | 76 65 72 73 69 6f 6e 5f |fo")...$|version_|
|000013a0| 69 63 6f 6e 25 3d a4 69 | 63 6f 6e 61 64 64 72 28 |icon%=.i|conaddr(|
|000013b0| 69 6e 66 6f 25 2c 34 29 | 0d 07 a8 1b 24 76 65 72 |info%,4)|....$ver|
|000013c0| 73 69 6f 6e 5f 69 63 6f | 6e 25 3d 76 65 72 73 69 |sion_ico|n%=versi|
|000013d0| 6f 6e 24 0d 07 b2 2a 6d | 61 67 6e 69 66 69 65 72 |on$...*m|agnifier|
|000013e0| 25 3d a4 6c 6f 61 64 5f | 74 65 6d 70 6c 61 74 65 |%=.load_|template|
|000013f0| 28 22 6d 61 67 6e 69 66 | 69 65 72 22 29 0d 07 bc |("magnif|ier")...|
|00001400| 29 6d 61 67 6d 75 6c 74 | 5f 69 63 6f 6e 25 3d a4 |)magmult|_icon%=.|
|00001410| 69 63 6f 6e 61 64 64 72 | 28 6d 61 67 6e 69 66 69 |iconaddr|(magnifi|
|00001420| 65 72 25 2c 30 29 0d 07 | c6 29 64 69 76 6d 75 6c |er%,0)..|.)divmul|
|00001430| 74 5f 69 63 6f 6e 25 3d | a4 69 63 6f 6e 61 64 64 |t_icon%=|.iconadd|
|00001440| 72 28 6d 61 67 6e 69 66 | 69 65 72 25 2c 31 29 0d |r(magnif|ier%,1).|
|00001450| 07 d0 13 f2 63 6c 6f 73 | 65 5f 74 65 6d 70 6c 61 |....clos|e_templa|
|00001460| 74 65 0d 07 da 2e de 20 | 73 75 62 25 28 32 29 3a |te..... |sub%(2):|
|00001470| 73 75 62 25 28 31 29 3d | 69 6e 66 6f 25 3a 73 75 |sub%(1)=|info%:su|
|00001480| 62 25 28 32 29 3d 6d 61 | 67 6e 69 66 69 65 72 25 |b%(2)=ma|gnifier%|
|00001490| 0d 07 e4 0f 6d 61 78 6c | 65 76 65 6c 25 3d 31 0d |....maxl|evel%=1.|
|000014a0| 07 ee 37 69 63 6f 6e 6d | 65 6e 75 25 3d a4 63 72 |..7iconm|enu%=.cr|
|000014b0| 65 61 74 65 5f 6d 65 6e | 75 28 31 30 30 2c 70 72 |eate_men|u(100,pr|
|000014c0| 6f 67 72 61 6d 24 2b 22 | 2c 21 31 49 6e 66 6f 2c |ogram$+"|,!1Info,|
|000014d0| 51 75 69 74 22 29 0d 07 | f8 13 69 63 6f 6e 6d 65 |Quit")..|..iconme|
|000014e0| 6e 75 5f 6d 61 78 25 3d | 32 0d 08 02 0f 6d 61 78 |nu_max%=|2....max|
|000014f0| 6c 65 76 65 6c 25 3d 31 | 0d 08 0c 2a 6d 65 6e 75 |level%=1|...*menu|
|00001500| 24 3d 70 72 6f 67 72 61 | 6d 24 2b 22 2c 21 31 49 |$=progra|m$+",!1I|
|00001510| 6e 66 6f 2c 21 32 5a 6f | 6f 6d 2c 46 72 65 65 7a |nfo,!2Zo|om,Freez|
|00001520| 65 22 0d 08 16 0d 66 72 | 65 65 7a 65 25 3d a3 0d |e"....fr|eeze%=..|
|00001530| 08 20 1b 78 6d 61 67 6d | 75 6c 74 25 3d 31 3a 78 |. .xmagm|ult%=1:x|
|00001540| 64 69 76 6d 75 6c 74 25 | 3d 31 0d 08 2a 3b 24 6d |divmult%|=1..*;$m|
|00001550| 61 67 6d 75 6c 74 5f 69 | 63 6f 6e 25 3d c3 28 78 |agmult_i|con%=.(x|
|00001560| 6d 61 67 6d 75 6c 74 25 | 29 3a 24 64 69 76 6d 75 |magmult%|):$divmu|
|00001570| 6c 74 5f 69 63 6f 6e 25 | 3d c3 28 78 64 69 76 6d |lt_icon%|=.(xdivm|
|00001580| 75 6c 74 25 29 0d 08 34 | 25 6d 61 69 6e 6d 65 6e |ult%)..4|%mainmen|
|00001590| 75 25 3d a4 63 72 65 61 | 74 65 5f 6d 65 6e 75 28 |u%=.crea|te_menu(|
|000015a0| 31 34 30 2c 6d 65 6e 75 | 24 29 0d 08 3e 21 69 63 |140,menu|$)..>!ic|
|000015b0| 6f 6e 62 61 72 25 3d a4 | 69 63 6f 6e 62 61 72 28 |onbar%=.|iconbar(|
|000015c0| 22 21 73 71 75 61 72 65 | 73 22 29 0d 08 48 29 f4 |"!square|s")..H).|
|000015d0| 20 53 65 74 20 75 70 20 | 6f 75 74 70 75 74 20 77 | Set up |output w|
|000015e0| 69 6e 64 6f 77 20 61 73 | 20 75 73 65 72 20 73 70 |indow as| user sp|
|000015f0| 72 69 74 65 0d 08 52 32 | de 20 73 70 72 69 74 65 |rite..R2|. sprite|
|00001600| 25 20 32 30 2a 31 30 32 | 34 3a 20 f4 20 6d 6f 64 |% 20*102|4: . mod|
|00001610| 65 20 39 20 2d 20 75 73 | 65 72 20 73 70 72 69 74 |e 9 - us|er sprit|
|00001620| 65 20 61 72 65 61 0d 08 | 5c 3b 21 73 70 72 69 74 |e area..|\;!sprit|
|00001630| 65 25 3d 32 30 2a 31 30 | 32 34 3a 73 70 72 69 74 |e%=20*10|24:sprit|
|00001640| 65 25 21 34 3d 30 3a 73 | 70 72 69 74 65 25 21 38 |e%!4=0:s|prite%!8|
|00001650| 3d 31 36 3a 73 70 72 69 | 74 65 25 21 31 32 3d 31 |=16:spri|te%!12=1|
|00001660| 36 0d 08 66 33 de 20 73 | 63 61 6c 65 25 20 31 36 |6..f3. s|cale% 16|
|00001670| 2c 70 69 78 74 72 61 6e | 73 25 20 32 35 35 2c 64 |,pixtran|s% 255,d|
|00001680| 75 66 74 72 61 6e 73 25 | 20 32 35 35 2c 62 6f 78 |uftrans%| 255,box|
|00001690| 25 20 32 30 0d 08 70 35 | c8 99 20 22 43 6f 6c 6f |% 20..p5|.. "Colo|
|000016a0| 75 72 54 72 61 6e 73 5f | 53 65 6c 65 63 74 54 61 |urTrans_|SelectTa|
|000016b0| 62 6c 65 22 2c 32 30 2c | 2d 31 2c eb 2c 2d 31 2c |ble",20,|-1,.,-1,|
|000016c0| 70 69 78 74 72 61 6e 73 | 25 0d 08 7a 4e c8 99 20 |pixtrans|%..zN.. |
|000016d0| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 32 35 |"OS_Spri|teOp",25|
|000016e0| 36 2b 31 35 2c 73 70 72 | 69 74 65 25 2c 22 56 44 |6+15,spr|ite%,"VD|
|000016f0| 55 22 2c 31 2c 32 30 30 | 2c 32 30 30 2c 39 3a 20 |U",1,200|,200,9: |
|00001700| f4 20 63 72 65 61 74 65 | 73 20 6d 6f 64 65 20 39 |. create|s mode 9|
|00001710| 20 73 70 72 69 74 65 0d | 08 84 2b 79 6d 61 67 6d | sprite.|..+ymagm|
|00001720| 75 6c 74 25 3d 78 6d 61 | 67 6d 75 6c 74 25 3a 79 |ult%=xma|gmult%:y|
|00001730| 64 69 76 6d 75 6c 74 25 | 3d 78 64 69 76 6d 75 6c |divmult%|=xdivmul|
|00001740| 74 25 0d 08 8e 42 f4 20 | 54 68 65 73 65 20 76 61 |t%...B. |These va|
|00001750| 72 69 61 62 6c 65 73 20 | 61 6c 6c 6f 77 20 79 6f |riables |allow yo|
|00001760| 75 20 74 6f 20 73 63 61 | 6c 65 20 74 68 65 20 72 |u to sca|le the r|
|00001770| 65 64 72 61 77 20 6f 66 | 20 74 68 65 20 73 70 72 |edraw of| the spr|
|00001780| 69 74 65 21 0d 08 98 3d | f4 20 54 77 6f 20 6f 66 |ite!...=|. Two of|
|00001790| 20 74 68 65 20 66 6f 75 | 72 20 76 61 72 69 61 62 | the fou|r variab|
|000017a0| 6c 65 73 20 69 6e 20 74 | 68 69 73 20 61 70 70 6c |les in t|his appl|
|000017b0| 69 63 61 74 69 6f 6e 20 | 6e 6f 74 20 75 73 65 64 |ication |not used|
|000017c0| 2e 0d 08 a2 2c 76 25 3d | 35 31 32 3a 20 f4 20 67 |....,v%=|512: . g|
|000017d0| 72 61 70 68 69 63 73 20 | 64 65 6d 6f 20 63 6f 75 |raphics |demo cou|
|000017e0| 6e 74 65 72 20 76 61 72 | 69 61 62 6c 65 0d 08 ac |nter var|iable...|
|000017f0| 11 f2 66 72 6f 6e 74 28 | 6d 61 69 6e 25 29 0d 08 |..front(|main%)..|
|00001800| b6 05 e1 0d ff          |                         |.....   |        |
+--------+-------------------------+-------------------------+--------+--------+