Amiga ISO Collection

home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / OTL-BBU3.DMS / in.adf / BlitzBlank / SOURCES / screenreq.bb2 < prev
Unknown | 1993-10-07 | 6.8 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`100%`	file	data	default
`100%`	TrID	OMF - Relocatable Object Module Format	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 cb 00 00 3b 53 63 72 | 65 65 6e 6d 6f 64 65 72 |....;Scr|eenmoder|
|00000010| 65 71 75 65 73 74 65 72 | 20 62 79 20 54 68 6f 6d |equester| by Thom|
|00000020| 61 73 20 42 6f 65 72 6b | 65 6c 00 3b 00 3b 54 68 |as Boerk|el.;.;Th|
|00000030| 69 73 20 72 6f 75 74 69 | 6e 65 20 64 69 73 70 6c |is routi|ne displ|
|00000040| 61 79 73 20 61 20 73 63 | 72 65 65 6e 6d 6f 64 65 |ays a sc|reenmode|
|00000050| 72 65 71 75 65 73 74 65 | 72 20 61 6e 64 20 63 61 |requeste|r and ca|
|00000060| 6e 20 62 65 20 75 73 65 | 64 20 69 6e 20 79 6f 75 |n be use|d in you|
|00000070| 72 20 6f 77 6e 00 3b 70 | 72 6f 67 72 61 6d 73 2c |r own.;p|rograms,|
|00000080| 20 69 66 20 79 6f 75 20 | 67 69 76 65 20 63 72 65 | if you |give cre|
|00000090| 64 69 74 2e 00 3b 54 68 | 65 20 72 6f 75 74 69 6e |dit..;Th|e routin|
|000000a0| 65 20 75 73 65 73 20 34 | 20 67 6c 6f 62 61 6c 20 |e uses 4| global |
|000000b0| 76 61 72 73 20 66 6f 72 | 20 74 68 65 20 6d 6f 64 |vars for| the mod|
|000000c0| 65 69 64 2c 20 77 69 64 | 74 68 2c 20 68 65 69 67 |eid, wid|th, heig|
|000000d0| 68 74 20 61 6e 64 20 64 | 65 70 74 68 2e 00 3b 59 |ht and d|epth..;Y|
|000000e0| 6f 75 20 63 61 6e 20 70 | 72 6f 76 69 64 65 20 74 |ou can p|rovide t|
|000000f0| 68 65 73 65 20 76 61 72 | 73 20 77 69 74 68 20 76 |hese var|s with v|
|00000100| 61 6c 75 65 73 20 61 6e | 64 20 74 68 65 20 72 6f |alues an|d the ro|
|00000110| 75 74 69 6e 65 20 77 69 | 6c 6c 20 74 72 79 20 74 |utine wi|ll try t|
|00000120| 6f 20 6d 61 72 6b 00 3b | 74 68 61 74 20 73 63 72 |o mark.;|that scr|
|00000130| 65 65 6e 6d 6f 64 65 20 | 69 6e 20 69 74 60 73 20 |eenmode |in it`s |
|00000140| 6c 69 73 74 2e 00 3b 49 | 66 20 79 6f 75 20 77 61 |list..;I|f you wa|
|00000150| 6e 74 20 74 6f 20 6f 70 | 65 6e 20 61 20 73 63 72 |nt to op|en a scr|
|00000160| 65 65 6e 20 77 69 74 68 | 20 74 68 65 20 67 69 76 |een with| the giv|
|00000170| 65 6e 20 6d 6f 64 65 69 | 64 2c 20 79 6f 75 20 68 |en modei|d, you h|
|00000180| 61 76 65 20 74 6f 20 6f | 70 65 6e 00 3b 69 74 20 |ave to o|pen.;it |
|00000190| 77 69 74 68 20 4f 70 65 | 6e 53 63 72 65 65 6e 54 |with Ope|nScreenT|
|000001a0| 61 67 4c 69 73 74 5f 28 | 29 20 61 74 20 74 68 69 |agList_(|) at thi|
|000001b0| 73 20 74 69 6d 65 2e 20 | 59 6f 75 20 74 68 65 6e |s time. |You then|
|000001c0| 20 63 61 6e 20 75 73 65 | 20 74 68 61 74 20 73 63 | can use| that sc|
|000001d0| 72 65 65 6e 20 77 69 74 | 68 00 3b 42 6c 69 74 7a |reen wit|h.;Blitz|
|000001e0| 32 2d 63 6f 6d 6d 61 6e | 64 73 20 77 69 74 68 20 |2-comman|ds with |
|000001f0| 46 69 6e 64 53 63 72 65 | 65 6e 20 30 20 6f 72 20 |FindScre|en 0 or |
|00000200| 46 69 6e 64 53 63 72 65 | 65 6e 20 30 2c 22 4e 61 |FindScre|en 0,"Na|
|00000210| 6d 65 22 00 00 80 33 2e | 6c 00 00 80 08 20 73 63 |me"...3.|l.... sc|
|00000220| 72 65 65 6e 72 65 71 7b | 7d 00 80 15 20 6d 6f 64 |reenreq{|}... mod|
|00000230| 65 69 64 2e 6c 2c 77 69 | 64 74 68 2e 6c 2c 68 65 |eid.l,wi|dth.l,he|
|00000240| 69 67 68 74 2e 6c 2c 64 | 65 70 74 68 2e 6c 00 00 |ight.l,d|epth.l..|
|00000250| 80 12 20 67 61 64 74 6f | 6f 6c 73 2e 62 62 32 00 |.. gadto|ols.bb2.|
|00000260| 00 80 01 2e 73 63 72 74 | 61 67 73 00 61 2e 6c 00 |....scrt|ags.a.l.|
|00000270| 62 00 63 00 64 00 65 00 | 66 00 67 00 68 00 69 00 |b.c.d.e.|f.g.h.i.|
|00000280| 6a 00 6b 00 6c 00 6d 00 | 6e 00 6f 00 70 00 71 00 |j.k.l.m.|n.o.p.q.|
|00000290| 72 00 73 00 80 02 20 80 | 01 00 00 80 33 2e 4c 69 |r.s... .|....3.Li|
|000002a0| 73 74 20 2a 73 63 72 6c | 69 73 74 00 80 33 2e 4e |st *scrl|ist..3.N|
|000002b0| 6f 64 65 20 2a 73 63 72 | 6e 6f 64 65 2c 2a 74 65 |ode *scr|node,*te|
|000002c0| 6d 70 6e 6f 64 65 00 80 | 33 2e 53 63 72 65 65 6e |mpnode..|3.Screen|
|000002d0| 20 2a 77 62 73 63 72 65 | 65 6e 00 80 33 2e 4e 65 | *wbscre|en..3.Ne|
|000002e0| 77 57 69 6e 64 6f 77 20 | 6e 65 77 77 69 6e 64 6f |wWindow |newwindo|
|000002f0| 77 00 80 33 2e 57 69 6e | 64 6f 77 20 2a 6d 79 77 |w..3.Win|dow *myw|
|00000300| 69 6e 64 6f 77 00 80 33 | 2e 4e 65 77 47 61 64 67 |indow..3|.NewGadg|
|00000310| 65 74 20 6e 67 00 80 33 | 2e 47 61 64 67 65 74 20 |et ng..3|.Gadget |
|00000320| 2a 67 61 64 00 80 33 2e | 4e 61 6d 65 49 6e 66 6f |*gad..3.|NameInfo|
|00000330| 20 73 63 72 65 65 6e 6e | 61 6d 65 00 80 33 2e 44 | screenn|ame..3.D|
|00000340| 69 6d 65 6e 73 69 6f 6e | 49 6e 66 6f 20 73 63 72 |imension|Info scr|
|00000350| 65 65 6e 64 69 6d 00 80 | 33 2e 44 69 73 70 6c 61 |eendim..|3.Displa|
|00000360| 79 49 6e 66 6f 20 73 63 | 72 65 65 6e 64 69 73 70 |yInfo sc|reendisp|
|00000370| 00 80 33 2e 4d 6f 6e 69 | 74 6f 72 49 6e 66 6f 20 |..3.Moni|torInfo |
|00000380| 6d 6f 6e 69 6e 66 6f 00 | 80 33 2e 73 63 72 74 61 |moninfo.|.3.scrta|
|00000390| 67 73 20 74 61 67 73 00 | 80 33 2e 49 6e 74 75 69 |gs tags.|.3.Intui|
|000003a0| 4d 65 73 73 61 67 65 20 | 2a 69 6d 73 67 00 80 33 |Message |*imsg..3|
|000003b0| 2e 54 65 78 74 41 74 74 | 72 20 20 20 20 20 20 74 |.TextAtt|r      t|
|000003c0| 6f 70 61 7a 38 30 00 80 | 33 2e 6c 20 6d 69 2c 61 |opaz80..|3.l mi,a|
|000003d0| 2c 69 2c 61 76 61 69 6c | 2c 70 72 6f 70 2c 73 2c |,i,avail|,prop,s,|
|000003e0| 2a 76 69 2c 2a 67 6c 69 | 73 74 2c 72 65 73 75 6c |*vi,*gli|st,resul|
|000003f0| 74 2c 63 6c 61 73 73 2c | 63 6f 64 65 2c 64 2c 6d |t,class,|code,d,m|
|00000400| 00 00 3b 53 70 65 63 69 | 61 6c 20 74 72 69 63 6b |..;Speci|al trick|
|00000410| 3a 20 41 73 73 65 6d 62 | 6c 65 72 20 73 75 62 72 |: Assemb|ler subr|
|00000420| 6f 75 74 69 6e 65 20 77 | 68 69 63 68 20 69 73 20 |outine w|hich is |
|00000430| 63 61 6c 6c 65 64 20 62 | 79 20 47 61 64 54 6f 6f |called b|y GadToo|
|00000440| 6c 73 20 74 6f 00 3b 63 | 61 6c 63 75 6c 61 74 65 |ls to.;c|alculate|
|00000450| 20 74 68 65 20 63 6f 6c | 6f 72 73 20 66 72 6f 6d | the col|ors from|
|00000460| 20 74 68 65 20 64 65 70 | 74 68 2e 20 54 68 65 20 | the dep|th. The |
|00000470| 63 6f 6c 6f 72 73 20 61 | 72 65 20 74 68 65 6e 20 |colors a|re then |
|00000480| 64 69 73 70 6c 61 79 65 | 64 00 3b 62 65 73 69 64 |displaye|d.;besid|
|00000490| 65 20 74 68 65 20 64 65 | 70 74 68 2d 73 6c 69 64 |e the de|pth-slid|
|000004a0| 65 72 00 80 0b 20 30 00 | 20 20 6c 61 62 3a 00 20 |er... 0.|  lab:. |
|000004b0| 20 80 7e 2e 6c 20 64 31 | 2c 2d 28 61 37 29 00 20 | .~.l d1|,-(a7). |
|000004c0| 20 80 7e 2e 6c 20 64 30 | 2c 64 31 00 20 20 80 7e | .~.l d0|,d1.  .~|
|000004d0| 2e 6c 20 23 31 2c 64 30 | 00 20 20 80 7c 2e 6c 20 |.l #1,d0|.  .|.l |
|000004e0| 64 31 2c 64 30 00 20 20 | 80 7e 2e 6c 20 28 61 37 |d1,d0.  |.~.l (a7|
|000004f0| 29 2b 2c 64 31 00 20 20 | 80 94 00 80 c0 00 00 23 |)+,d1.  |.......#|
|00000500| 47 41 44 5f 4f 4b 3d 30 | 00 23 47 41 44 5f 43 41 |GAD_OK=0|.#GAD_CA|
|00000510| 4e 43 45 4c 3d 31 00 23 | 47 41 44 5f 4c 49 53 54 |NCEL=1.#|GAD_LIST|
|00000520| 3d 32 00 23 47 41 44 5f | 53 4c 49 44 45 52 3d 33 |=2.#GAD_|SLIDER=3|
|00000530| 00 23 47 41 44 5f 52 45 | 53 4f 4c 55 54 49 4f 4e |.#GAD_RE|SOLUTION|
|00000540| 3d 34 00 00 23 55 53 3d | 39 35 00 00 67 74 65 78 |=4..#US=|95..gtex|
|00000550| 74 30 24 3d 22 5f 4f 4b | 22 2b dc 86 28 30 29 00 |t0$="_OK|"+..(0).|
|00000560| 67 74 65 78 74 31 24 3d | 22 43 5f 61 6e 63 65 6c |gtext1$=|"C_ancel|
|00000570| 22 2b dc 86 28 30 29 00 | 67 74 65 78 74 32 24 3d |"+..(0).|gtext2$=|
|00000580| 22 41 76 61 69 6c 61 62 | 6c 65 20 5f 53 63 72 65 |"Availab|le _Scre|
|00000590| 65 6e 6d 6f 64 65 73 22 | 2b dc 86 28 30 29 00 67 |enmodes"|+..(0).g|
|000005a0| 74 65 78 74 33 24 3d 22 | 5f 43 6f 6c 6f 72 73 3a |text3$="|_Colors:|
|000005b0| 20 20 20 20 22 2b dc 86 | 28 30 29 00 66 6e 61 6d |    "+..|(0).fnam|
|000005c0| 65 24 3d 22 74 6f 70 61 | 7a 2e 66 6f 6e 74 22 2b |e$="topa|z.font"+|
|000005d0| dc 86 28 30 29 00 74 6f | 70 61 7a 38 30 5c 74 61 |..(0).to|paz80\ta|
|000005e0| 5f 4e 61 6d 65 3d 26 66 | 6e 61 6d 65 24 2c 38 2c |_Name=&f|name$,8,|
|000005f0| 30 2c 30 00 00 00 6d 3d | 6d 6f 64 65 69 64 00 64 |0,0...m=|modeid.d|
|00000600| 3d 64 65 70 74 68 00 73 | 3d 2d 31 00 2a 77 62 73 |=depth.s|=-1.*wbs|
|00000610| 63 72 65 65 6e 3d ff d1 | 28 30 29 00 00 3b 49 73 |creen=..|(0)..;Is|
|00000620| 20 74 68 65 20 67 69 76 | 65 6e 20 6d 6f 64 65 20 | the giv|en mode |
|00000630| 61 76 61 69 6c 61 62 6c | 65 3f 20 49 66 20 6e 6f |availabl|e? If no|
|00000640| 74 3a 20 55 73 65 20 57 | 42 60 73 20 6d 6f 64 65 |t: Use W|B`s mode|
|00000650| 69 64 00 80 0b 20 28 6d | 3d 30 20 80 42 20 64 3d |id... (m|=0 .B d=|
|00000660| 30 29 20 80 8a 20 ff 7e | 20 28 6d 29 00 20 20 6d |0) .. .~| (m).  m|
|00000670| 3d ff 7d 28 2a 77 62 73 | 63 72 65 65 6e 5c 56 69 |=.}(*wbs|creen\Vi|
|00000680| 65 77 50 6f 72 74 29 00 | 20 20 64 3d 2a 77 62 73 |ewPort).|  d=*wbs|
|00000690| 63 72 65 65 6e 5c 42 69 | 74 4d 61 70 5c 44 65 70 |creen\Bi|tMap\Dep|
|000006a0| 74 68 00 80 c0 00 00 3b | 49 66 20 69 74 20 69 73 |th.....;|If it is|
|000006b0| 20 74 68 65 20 64 65 66 | 61 75 6c 74 2d 6d 6f 6e | the def|ault-mon|
|000006c0| 69 74 6f 72 20 74 68 65 | 6e 20 67 65 74 20 74 68 |itor the|n get th|
|000006d0| 65 20 72 69 67 68 74 20 | 6d 6f 6e 69 74 6f 72 2d |e right |monitor-|
|000006e0| 49 44 00 80 0b 20 28 6d | 20 80 42 20 23 4d 4f 4e |ID... (m| .B #MON|
|000006f0| 49 54 4f 52 5f 49 44 5f | 4d 41 53 4b 29 3d 30 00 |ITOR_ID_|MASK)=0.|
|00000700| 20 20 ff 77 20 30 2c 6d | 6f 6e 69 6e 66 6f 2c 80 |  .w 0,m|oninfo,.|
|00000710| 2f 2e 4d 6f 6e 69 74 6f | 72 49 6e 66 6f 2c 23 44 |/.Monito|rInfo,#D|
|00000720| 54 41 47 5f 4d 4e 54 52 | 2c 6d 00 20 20 6d 20 80 |TAG_MNTR|,m.  m .|
|00000730| 8a 20 6d 6f 6e 69 6e 66 | 6f 5c 48 65 61 64 65 72 |. moninf|o\Header|
|00000740| 5c 44 69 73 70 6c 61 79 | 49 44 00 80 c0 00 00 61 |\Display|ID.....a|
|00000750| 3d 30 00 6d 69 3d ff 76 | 28 2d 31 29 00 80 bb 00 |=0.mi=.v|(-1)....|
|00000760| 20 20 61 2b 31 00 20 20 | 6d 69 3d ff 76 28 6d 69 |  a+1.  |mi=.v(mi|
|00000770| 29 00 80 bc 20 6d 69 3d | 2d 31 00 00 73 3d 2d 31 |)... mi=|-1..s=-1|
|00000780| 00 00 80 04 20 73 63 72 | 6e 24 28 61 29 00 80 04 |.... scr|n$(a)...|
|00000790| 20 73 63 72 6d 2e 6c 28 | 61 29 00 80 04 20 73 63 | scrm.l(|a)... sc|
|000007a0| 72 78 2e 6c 28 61 29 00 | 80 04 20 73 63 72 79 2e |rx.l(a).|.. scry.|
|000007b0| 6c 28 61 29 00 80 04 20 | 73 63 72 64 2e 6c 28 61 |l(a)... |scrd.l(a|
|000007c0| 29 00 2a 73 63 72 6c 69 | 73 74 3d fe 97 28 80 2f |).*scrli|st=..(./|
|000007d0| 2e 4c 69 73 74 2c 23 4d | 45 4d 46 5f 43 4c 45 41 |.List,#M|EMF_CLEA|
|000007e0| 52 29 00 2a 73 63 72 6c | 69 73 74 5c 6c 68 5f 48 |R).*scrl|ist\lh_H|
|000007f0| 65 61 64 3d 26 2a 73 63 | 72 6c 69 73 74 5c 6c 68 |ead=&*sc|rlist\lh|
|00000800| 5f 54 61 69 6c 00 2a 73 | 63 72 6c 69 73 74 5c 6c |_Tail.*s|crlist\l|
|00000810| 68 5f 54 61 69 6c 3d 30 | 00 2a 73 63 72 6c 69 73 |h_Tail=0|.*scrlis|
|00000820| 74 5c 6c 68 5f 54 61 69 | 6c 50 72 65 64 3d 26 2a |t\lh_Tai|lPred=&*|
|00000830| 73 63 72 6c 69 73 74 5c | 6c 68 5f 48 65 61 64 00 |scrlist\|lh_Head.|
|00000840| 6d 69 3d ff 76 28 2d 31 | 29 00 69 3d 2d 31 00 80 |mi=.v(-1|).i=-1..|
|00000850| bb 00 20 20 ff 77 20 30 | 2c 73 63 72 65 65 6e 64 |..  .w 0|,screend|
|00000860| 69 73 70 2c 80 2f 2e 44 | 69 73 70 6c 61 79 49 6e |isp,./.D|isplayIn|
|00000870| 66 6f 2c 23 44 54 41 47 | 5f 44 49 53 50 2c 6d 69 |fo,#DTAG|_DISP,mi|
|00000880| 00 20 20 61 76 61 69 6c | 3d 73 63 72 65 65 6e 64 |.  avail|=screend|
|00000890| 69 73 70 5c 4e 6f 74 41 | 76 61 69 6c 61 62 6c 65 |isp\NotA|vailable|
|000008a0| 00 20 20 70 72 6f 70 3d | 73 63 72 65 65 6e 64 69 |.  prop=|screendi|
|000008b0| 73 70 5c 50 72 6f 70 65 | 72 74 79 46 6c 61 67 73 |sp\Prope|rtyFlags|
|000008c0| 00 20 20 80 0b 20 28 70 | 72 6f 70 20 80 42 20 23 |.  .. (p|rop .B #|
|000008d0| 44 49 50 46 5f 49 53 5f | 48 41 4d 29 3d 30 20 80 |DIPF_IS_|HAM)=0 .|
|000008e0| 42 20 28 70 72 6f 70 20 | 80 42 20 23 44 49 50 46 |B (prop |.B #DIPF|
|000008f0| 5f 49 53 5f 44 55 41 4c | 50 46 29 3d 30 20 80 42 |_IS_DUAL|PF)=0 .B|
|00000900| 20 28 70 72 6f 70 20 80 | 42 20 23 44 49 50 46 5f | (prop .|B #DIPF_|
|00000910| 49 53 5f 45 58 54 52 41 | 48 41 4c 46 42 52 49 54 |IS_EXTRA|HALFBRIT|
|00000920| 45 29 3d 30 20 80 42 20 | 61 76 61 69 6c 3d 30 00 |E)=0 .B |avail=0.|
|00000930| 20 20 20 20 80 0b 20 6d | 69 20 80 42 20 23 4d 4f |    .. m|i .B #MO|
|00000940| 4e 49 54 4f 52 5f 49 44 | 5f 4d 41 53 4b 00 00 20 |NITOR_ID|_MASK.. |
|00000950| 20 20 20 20 20 80 0b 20 | ff 77 28 30 2c 73 63 72 |     .. |.w(0,scr|
|00000960| 65 65 6e 6e 61 6d 65 2c | 80 2f 2e 4e 61 6d 65 49 |eenname,|./.NameI|
|00000970| 6e 66 6f 2c 23 44 54 41 | 47 5f 4e 41 4d 45 2c 6d |nfo,#DTA|G_NAME,m|
|00000980| 69 29 00 20 20 20 20 20 | 20 20 20 69 2b 31 00 20 |i).     |   i+1. |
|00000990| 20 20 20 20 20 20 20 ff | 77 20 30 2c 73 63 72 65 |       .|w 0,scre|
|000009a0| 65 6e 64 69 6d 2c 80 2f | 2e 44 69 6d 65 6e 73 69 |endim,./|.Dimensi|
|000009b0| 6f 6e 49 6e 66 6f 2c 23 | 44 54 41 47 5f 44 49 4d |onInfo,#|DTAG_DIM|
|000009c0| 53 2c 6d 69 00 20 20 20 | 20 20 20 20 20 73 63 72 |S,mi.   |     scr|
|000009d0| 64 28 69 29 3d 73 63 72 | 65 65 6e 64 69 6d 5c 4d |d(i)=scr|eendim\M|
|000009e0| 61 78 44 65 70 74 68 00 | 20 20 20 20 20 20 20 20 |axDepth.|        |
|000009f0| 73 63 72 78 28 69 29 3d | 73 63 72 65 65 6e 64 69 |scrx(i)=|screendi|
|00000a00| 6d 5c 54 78 74 4f 53 63 | 61 6e 5c 4d 61 78 58 2b |m\TxtOSc|an\MaxX+|
|00000a10| 31 00 20 20 20 20 20 20 | 20 20 73 63 72 79 28 69 |1.      |  scry(i|
|00000a20| 29 3d 73 63 72 65 65 6e | 64 69 6d 5c 54 78 74 4f |)=screen|dim\TxtO|
|00000a30| 53 63 61 6e 5c 4d 61 78 | 59 2b 31 00 20 20 20 20 |Scan\Max|Y+1.    |
|00000a40| 20 20 20 20 73 63 72 6d | 28 69 29 3d 6d 69 00 20 |    scrm|(i)=mi. |
|00000a50| 20 20 20 20 20 20 20 73 | 63 72 6e 24 28 69 29 3d |       s|crn$(i)=|
|00000a60| da 02 24 28 26 73 63 72 | 65 65 6e 6e 61 6d 65 5c |..$(&scr|eenname\|
|00000a70| 4e 61 6d 65 29 00 20 20 | 20 20 20 20 20 20 72 65 |Name).  |      re|
|00000a80| 73 6f 6c 75 74 69 6f 6e | 24 3d dd 83 28 73 63 72 |solution|$=..(scr|
|00000a90| 78 28 69 29 29 2b 22 20 | 78 20 22 2b dd 83 28 73 |x(i))+" |x "+..(s|
|00000aa0| 63 72 79 28 69 29 29 00 | 20 20 20 20 20 20 20 20 |cry(i)).|        |
|00000ab0| 73 63 72 6e 24 28 69 29 | 2b dc 88 28 22 20 22 2c |scrn$(i)|+..(" ",|
|00000ac0| 34 34 2d dc 8f 28 72 65 | 73 6f 6c 75 74 69 6f 6e |44-..(re|solution|
|00000ad0| 24 29 2d dc 8f 28 73 63 | 72 6e 24 28 69 29 29 29 |$)-..(sc|rn$(i)))|
|00000ae0| 2b 72 65 73 6f 6c 75 74 | 69 6f 6e 24 2b dc 86 28 |+resolut|ion$+..(|
|00000af0| 30 29 00 20 20 20 20 20 | 20 20 20 80 0b 20 6d 69 |0).     |   .. mi|
|00000b00| 3d 6d 00 20 20 20 20 20 | 20 20 20 20 20 73 3d 69 |=m.     |     s=i|
|00000b10| 00 20 20 20 20 20 20 20 | 20 80 c0 00 20 20 20 20 |.       | ...    |
|00000b20| 20 20 20 20 2a 73 63 72 | 6e 6f 64 65 3d fe 97 28 |    *scr|node=..(|
|00000b30| 80 2f 2e 4e 6f 64 65 2c | 23 4d 45 4d 46 5f 43 4c |./.Node,|#MEMF_CL|
|00000b40| 45 41 52 29 00 20 20 20 | 20 20 20 20 20 2a 73 63 |EAR).   |     *sc|
|00000b50| 72 6e 6f 64 65 5c 6c 6e | 5f 4e 61 6d 65 3d 26 73 |rnode\ln|_Name=&s|
|00000b60| 63 72 6e 24 28 69 29 00 | 20 20 20 20 20 20 20 20 |crn$(i).|        |
|00000b70| fe 9f 20 2a 73 63 72 6c | 69 73 74 2c 2a 73 63 72 |.. *scrl|ist,*scr|
|00000b80| 6e 6f 64 65 00 20 20 20 | 20 20 20 80 c0 00 20 20 |node.   |   ...  |
|00000b90| 20 20 80 c0 00 20 20 80 | c0 00 20 20 6d 69 3d ff |  ...  .|..  mi=.|
|00000ba0| 76 28 6d 69 29 00 80 bc | 20 6d 69 3d 2d 31 00 61 |v(mi)...| mi=-1.a|
|00000bb0| 3d 69 00 00 2a 67 6c 69 | 73 74 3d 30 00 2a 76 69 |=i..*gli|st=0.*vi|
|00000bc0| 3d f6 11 28 2a 77 62 73 | 63 72 65 65 6e 2c 30 29 |=..(*wbs|creen,0)|
|00000bd0| 00 2a 67 61 64 3d f6 0f | 28 26 2a 67 6c 69 73 74 |.*gad=..|(&*glist|
|00000be0| 29 00 00 74 61 67 73 5c | 61 3d 23 47 54 5f 55 6e |)..tags\|a=#GT_Un|
|00000bf0| 64 65 72 73 63 6f 72 65 | 00 74 61 67 73 5c 62 3d |derscore|.tags\b=|
|00000c00| 23 55 53 00 74 61 67 73 | 5c 63 3d 30 00 00 6e 67 |#US.tags|\c=0..ng|
|00000c10| 5c 6e 67 5f 4c 65 66 74 | 45 64 67 65 3d 33 30 2c |\ng_Left|Edge=30,|
|00000c20| 31 36 30 2c 36 30 2c 31 | 32 2c 26 67 74 65 78 74 |160,60,1|2,&gtext|
|00000c30| 30 24 2c 74 6f 70 61 7a | 38 30 2c 23 47 41 44 5f |0$,topaz|80,#GAD_|
|00000c40| 4f 4b 2c 30 2c 2a 76 69 | 2c 30 00 2a 67 61 64 3d |OK,0,*vi|,0.*gad=|
|00000c50| f6 01 28 23 42 55 54 54 | 4f 4e 5f 4b 49 4e 44 2c |..(#BUTT|ON_KIND,|
|00000c60| 2a 67 61 64 2c 6e 67 2c | 74 61 67 73 29 00 00 6e |*gad,ng,|tags)..n|
|00000c70| 67 5c 6e 67 5f 4c 65 66 | 74 45 64 67 65 3d 33 33 |g\ng_Lef|tEdge=33|
|00000c80| 30 2c 31 36 30 2c 36 30 | 2c 31 32 2c 26 67 74 65 |0,160,60|,12,&gte|
|00000c90| 78 74 31 24 2c 74 6f 70 | 61 7a 38 30 2c 23 47 41 |xt1$,top|az80,#GA|
|00000ca0| 44 5f 43 41 4e 43 45 4c | 00 2a 67 61 64 3d f6 01 |D_CANCEL|.*gad=..|
|00000cb0| 28 23 42 55 54 54 4f 4e | 5f 4b 49 4e 44 2c 2a 67 |(#BUTTON|_KIND,*g|
|00000cc0| 61 64 2c 6e 67 2c 74 61 | 67 73 29 00 00 74 61 67 |ad,ng,ta|gs)..tag|
|00000cd0| 73 5c 63 3d 23 47 54 4c | 56 5f 4c 61 62 65 6c 73 |s\c=#GTL|V_Labels|
|00000ce0| 00 74 61 67 73 5c 64 3d | 2a 73 63 72 6c 69 73 74 |.tags\d=|*scrlist|
|00000cf0| 00 74 61 67 73 5c 65 3d | 23 47 54 4c 56 5f 54 6f |.tags\e=|#GTLV_To|
|00000d00| 70 00 74 61 67 73 5c 66 | 3d 73 00 74 61 67 73 5c |p.tags\f|=s.tags\|
|00000d10| 67 3d 23 47 54 4c 56 5f | 53 68 6f 77 53 65 6c 65 |g=#GTLV_|ShowSele|
|00000d20| 63 74 65 64 00 74 61 67 | 73 5c 68 3d 30 00 74 61 |cted.tag|s\h=0.ta|
|00000d30| 67 73 5c 69 3d 23 47 54 | 4c 56 5f 53 65 6c 65 63 |gs\i=#GT|LV_Selec|
|00000d40| 74 65 64 00 74 61 67 73 | 5c 6a 3d 73 00 74 61 67 |ted.tags|\j=s.tag|
|00000d50| 73 5c 6b 3d 30 00 6e 67 | 5c 6e 67 5f 4c 65 66 74 |s\k=0.ng|\ng_Left|
|00000d60| 45 64 67 65 3d 32 30 2c | 33 30 2c 33 38 30 2c 31 |Edge=20,|30,380,1|
|00000d70| 30 30 2c 26 67 74 65 78 | 74 32 24 2c 74 6f 70 61 |00,&gtex|t2$,topa|
|00000d80| 7a 38 30 2c 23 47 41 44 | 5f 4c 49 53 54 00 2a 67 |z80,#GAD|_LIST.*g|
|00000d90| 61 64 31 3d f6 01 28 23 | 4c 49 53 54 56 49 45 57 |ad1=..(#|LISTVIEW|
|00000da0| 5f 4b 49 4e 44 2c 2a 67 | 61 64 2c 6e 67 2c 74 61 |_KIND,*g|ad,ng,ta|
|00000db0| 67 73 29 00 00 66 24 3d | 22 25 33 6c 64 22 2b dc |gs)..f$=|"%3ld"+.|
|00000dc0| 86 28 30 29 00 74 61 67 | 73 5c 63 3d 23 47 54 53 |.(0).tag|s\c=#GTS|
|00000dd0| 4c 5f 4d 69 6e 00 74 61 | 67 73 5c 64 3d 31 00 74 |L_Min.ta|gs\d=1.t|
|00000de0| 61 67 73 5c 65 3d 23 47 | 54 53 4c 5f 4d 61 78 00 |ags\e=#G|TSL_Max.|
|00000df0| 74 61 67 73 5c 66 3d 73 | 63 72 64 28 73 29 00 74 |tags\f=s|crd(s).t|
|00000e00| 61 67 73 5c 67 3d 23 47 | 54 53 4c 5f 4c 65 76 65 |ags\g=#G|TSL_Leve|
|00000e10| 6c 00 74 61 67 73 5c 68 | 3d 64 00 74 61 67 73 5c |l.tags\h|=d.tags\|
|00000e20| 69 3d 23 47 54 53 4c 5f | 4c 65 76 65 6c 46 6f 72 |i=#GTSL_|LevelFor|
|00000e30| 6d 61 74 00 74 61 67 73 | 5c 6a 3d 26 66 24 00 74 |mat.tags|\j=&f$.t|
|00000e40| 61 67 73 5c 6b 3d 23 47 | 54 53 4c 5f 4d 61 78 4c |ags\k=#G|TSL_MaxL|
|00000e50| 65 76 65 6c 4c 65 6e 00 | 74 61 67 73 5c 6c 3d 33 |evelLen.|tags\l=3|
|00000e60| 00 74 61 67 73 5c 6d 3d | 23 47 54 53 4c 5f 44 69 |.tags\m=|#GTSL_Di|
|00000e70| 73 70 46 75 6e 63 00 74 | 61 67 73 5c 6e 3d 3f 6c |spFunc.t|ags\n=?l|
|00000e80| 61 62 00 74 61 67 73 5c | 6f 3d 23 47 41 5f 52 65 |ab.tags\|o=#GA_Re|
|00000e90| 6c 56 65 72 69 66 79 00 | 74 61 67 73 5c 70 3d bc |lVerify.|tags\p=.|
|00000ea0| 0e 00 74 61 67 73 5c 71 | 3d 30 00 6e 67 5c 6e 67 |..tags\q|=0.ng\ng|
|00000eb0| 5f 4c 65 66 74 45 64 67 | 65 3d 31 39 30 2c 31 34 |_LeftEdg|e=190,14|
|00000ec0| 30 2c 31 33 30 2c 31 31 | 2c 26 67 74 65 78 74 33 |0,130,11|,&gtext3|
|00000ed0| 24 2c 74 6f 70 61 7a 38 | 30 2c 23 47 41 44 5f 53 |$,topaz8|0,#GAD_S|
|00000ee0| 4c 49 44 45 52 00 2a 67 | 61 64 32 3d f6 01 28 23 |LIDER.*g|ad2=..(#|
|00000ef0| 53 4c 49 44 45 52 5f 4b | 49 4e 44 2c 2a 67 61 64 |SLIDER_K|IND,*gad|
|00000f00| 31 2c 6e 67 2c 74 61 67 | 73 29 00 00 74 69 74 6c |1,ng,tag|s)..titl|
|00000f10| 65 24 3d 22 50 6c 65 61 | 73 65 20 63 68 6f 6f 73 |e$="Plea|se choos|
|00000f20| 65 20 73 63 72 65 65 6e | 6d 6f 64 65 2e 2e 2e 22 |e screen|mode..."|
|00000f30| 2b dc 86 28 30 29 00 6e | 65 77 77 69 6e 64 6f 77 |+..(0).n|ewwindow|
|00000f40| 5c 4c 65 66 74 45 64 67 | 65 3d 2a 77 62 73 63 72 |\LeftEdg|e=*wbscr|
|00000f50| 65 65 6e 5c 57 69 64 74 | 68 2f 32 2d 32 31 30 2c |een\Widt|h/2-210,|
|00000f60| 2a 77 62 73 63 72 65 65 | 6e 5c 48 65 69 67 68 74 |*wbscree|n\Height|
|00000f70| 2f 32 2d 39 30 2c 34 32 | 30 2c 31 38 30 2c 30 2c |/2-90,42|0,180,0,|
|00000f80| 31 2c 23 49 44 43 4d 50 | 5f 43 4c 4f 53 45 57 49 |1,#IDCMP|_CLOSEWI|
|00000f90| 4e 44 4f 57 7c 23 4c 49 | 53 54 56 49 45 57 49 44 |NDOW|#LI|STVIEWID|
|00000fa0| 43 4d 50 7c 23 49 44 43 | 4d 50 5f 56 41 4e 49 4c |CMP|#IDC|MP_VANIL|
|00000fb0| 4c 41 4b 45 59 00 6e 65 | 77 77 69 6e 64 6f 77 5c |LAKEY.ne|wwindow\|
|00000fc0| 46 6c 61 67 73 3d 23 57 | 46 4c 47 5f 43 4c 4f 53 |Flags=#W|FLG_CLOS|
|00000fd0| 45 47 41 44 47 45 54 7c | 23 57 46 4c 47 5f 44 52 |EGADGET||#WFLG_DR|
|00000fe0| 41 47 42 41 52 7c 23 57 | 46 4c 47 5f 44 45 50 54 |AGBAR|#W|FLG_DEPT|
|00000ff0| 48 47 41 44 47 45 54 7c | 23 57 46 4c 47 5f 41 43 |HGADGET||#WFLG_AC|
|00001000| 54 49 56 41 54 45 7c 23 | 52 4d 42 54 52 41 50 00 |TIVATE|#|RMBTRAP.|
|00001010| 6e 65 77 77 69 6e 64 6f | 77 5c 46 69 72 73 74 47 |newwindo|w\FirstG|
|00001020| 61 64 67 65 74 3d 2a 67 | 6c 69 73 74 2c 30 2c 26 |adget=*g|list,0,&|
|00001030| 74 69 74 6c 65 24 2c 30 | 2c 30 2c 2d 31 2c 2d 31 |title$,0|,0,-1,-1|
|00001040| 2c 2d 31 2c 2d 31 2c 23 | 57 42 45 4e 43 48 53 43 |,-1,-1,#|WBENCHSC|
|00001050| 52 45 45 4e 00 2a 6d 79 | 77 69 6e 64 6f 77 3d ff |REEN.*my|window=.|
|00001060| 9e 28 6e 65 77 77 69 6e | 64 6f 77 29 00 80 0b 20 |.(newwin|dow)... |
|00001070| 2a 6d 79 77 69 6e 64 6f | 77 00 20 20 f6 0a 20 2a |*mywindo|w.  .. *|
|00001080| 6d 79 77 69 6e 64 6f 77 | 2c 30 00 20 20 72 65 73 |mywindow|,0.  res|
|00001090| 75 6c 74 3d 31 00 20 20 | 80 bb 00 20 20 20 20 fe |ult=1.  |...    .|
|000010a0| b6 20 2a 6d 79 77 69 6e | 64 6f 77 5c 55 73 65 72 |. *mywin|dow\User|
|000010b0| 50 6f 72 74 00 20 20 20 | 20 2a 69 6d 73 67 3d f6 |Port.   | *imsg=.|
|000010c0| 08 28 2a 6d 79 77 69 6e | 64 6f 77 5c 55 73 65 72 |.(*mywin|dow\User|
|000010d0| 50 6f 72 74 29 00 20 20 | 20 20 80 0b 20 2a 69 6d |Port).  |  .. *im|
|000010e0| 73 67 00 20 20 20 20 20 | 20 63 6c 61 73 73 3d 2a |sg.     | class=*|
|000010f0| 69 6d 73 67 5c 43 6c 61 | 73 73 00 20 20 20 20 20 |imsg\Cla|ss.     |
|00001100| 20 2a 67 61 64 3d 2a 69 | 6d 73 67 5c 49 41 64 64 | *gad=*i|msg\IAdd|
|00001110| 72 65 73 73 00 20 20 20 | 20 20 20 63 6f 64 65 3d |ress.   |   code=|
|00001120| 2a 69 6d 73 67 5c 43 6f | 64 65 00 20 20 20 20 20 |*imsg\Co|de.     |
|00001130| 20 f6 09 28 2a 69 6d 73 | 67 29 00 20 20 20 20 20 | ..(*ims|g).     |
|00001140| 20 80 0e 20 63 6c 61 73 | 73 00 20 20 20 20 20 20 | .. clas|s.      |
|00001150| 20 20 80 0f 20 23 49 44 | 43 4d 50 5f 43 4c 4f 53 |  .. #ID|CMP_CLOS|
|00001160| 45 57 49 4e 44 4f 57 00 | 20 20 20 20 20 20 20 20 |EWINDOW.|        |
|00001170| 20 20 72 65 73 75 6c 74 | 3d 30 00 20 20 20 20 20 |  result|=0.     |
|00001180| 20 20 20 80 0f 20 23 49 | 44 43 4d 50 5f 56 41 4e |   .. #I|DCMP_VAN|
|00001190| 49 4c 4c 41 4b 45 59 00 | 20 20 20 20 20 20 20 20 |ILLAKEY.|        |
|000011a0| 20 20 80 0e 20 63 6f 64 | 65 00 20 20 20 20 20 20 |  .. cod|e.      |
|000011b0| 20 20 20 20 20 20 80 0f | 20 31 31 31 20 3b 6f 00 |      ..| 111 ;o.|
|000011c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|000011d0| 64 65 69 64 3d 73 63 72 | 6d 28 73 29 00 20 20 20 |deid=scr|m(s).   |
|000011e0| 20 20 20 20 20 20 20 20 | 20 20 20 77 69 64 74 68 |        |   width|
|000011f0| 3d 73 63 72 78 28 73 29 | 00 20 20 20 20 20 20 20 |=scrx(s)|.       |
|00001200| 20 20 20 20 20 20 20 68 | 65 69 67 68 74 3d 73 63 |       h|eight=sc|
|00001210| 72 79 28 73 29 00 20 20 | 20 20 20 20 20 20 20 20 |ry(s).  |        |
|00001220| 20 20 20 20 64 65 70 74 | 68 3d 64 00 20 20 20 20 |    dept|h=d.    |
|00001230| 20 20 20 20 20 20 20 20 | 20 20 72 65 73 75 6c 74 |        |  result|
|00001240| 3d 30 00 20 20 20 20 20 | 20 20 20 20 20 20 20 80 |=0.     |       .|
|00001250| 0f 20 37 39 20 3b 4f 00 | 20 20 20 20 20 20 20 20 |. 79 ;O.|        |
|00001260| 20 20 20 20 20 20 6d 6f | 64 65 69 64 3d 73 63 72 |      mo|deid=scr|
|00001270| 6d 28 73 29 00 20 20 20 | 20 20 20 20 20 20 20 20 |m(s).   |        |
|00001280| 20 20 20 77 69 64 74 68 | 3d 73 63 72 78 28 73 29 |   width|=scrx(s)|
|00001290| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 68 |.       |       h|
|000012a0| 65 69 67 68 74 3d 73 63 | 72 79 28 73 29 00 20 20 |eight=sc|ry(s).  |
|000012b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 64 65 70 74 |        |    dept|
|000012c0| 68 3d 64 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |h=d.    |        |
|000012d0| 20 20 72 65 73 75 6c 74 | 3d 30 00 20 20 20 20 20 |  result|=0.     |
|000012e0| 20 20 20 20 20 20 20 80 | 0f 20 39 37 20 3b 61 00 |       .|. 97 ;a.|
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 72 65 |        |      re|
|00001300| 73 75 6c 74 3d 30 00 20 | 20 20 20 20 20 20 20 20 |sult=0. |        |
|00001310| 20 20 20 80 0f 20 36 35 | 20 3b 41 00 20 20 20 20 |   .. 65| ;A.    |
|00001320| 20 20 20 20 20 20 20 20 | 20 20 72 65 73 75 6c 74 |        |  result|
|00001330| 3d 30 00 20 20 20 20 20 | 20 20 20 20 20 20 20 80 |=0.     |       .|
|00001340| 0f 20 32 37 20 3b 45 53 | 43 00 20 20 20 20 20 20 |. 27 ;ES|C.      |
|00001350| 20 20 20 20 20 20 20 20 | 72 65 73 75 6c 74 3d 30 |        |result=0|
|00001360| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 80 0f 20 |.       |     .. |
|00001370| 39 39 20 3b 63 00 20 20 | 20 20 20 20 20 20 20 20 |99 ;c.  |        |
|00001380| 20 20 20 20 80 0b 20 64 | 3c 73 63 72 64 28 73 29 |    .. d|<scrd(s)|
|00001390| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000013a0| 20 64 2b 31 00 20 20 20 | 20 20 20 20 20 20 20 20 | d+1.   |        |
|000013b0| 20 20 20 20 20 74 61 67 | 73 5c 61 3d 23 47 54 53 |     tag|s\a=#GTS|
|000013c0| 4c 5f 4c 65 76 65 6c 00 | 20 20 20 20 20 20 20 20 |L_Level.|        |
|000013d0| 20 20 20 20 20 20 20 20 | 74 61 67 73 5c 62 3d 64 |        |tags\b=d|
|000013e0| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000013f0| 20 74 61 67 73 5c 63 3d | 30 00 20 20 20 20 20 20 | tags\c=|0.      |
|00001400| 20 20 20 20 20 20 20 20 | 20 20 f6 03 20 2a 67 61 |        |  .. *ga|
|00001410| 64 32 2c 2a 6d 79 77 69 | 6e 64 6f 77 2c 30 2c 74 |d2,*mywi|ndow,0,t|
|00001420| 61 67 73 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |ags.    |        |
|00001430| 20 20 80 c0 00 20 20 20 | 20 20 20 20 20 20 20 20 |  ...   |        |
|00001440| 20 80 0f 20 36 37 20 3b | 43 00 20 20 20 20 20 20 | .. 67 ;|C.      |
|00001450| 20 20 20 20 20 20 20 20 | 80 0b 20 64 3e 31 00 20 |        |.. d>1. |
|00001460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 64 |        |       d|
|00001470| 2d 31 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |-1.     |        |
|00001480| 20 20 20 74 61 67 73 5c | 61 3d 23 47 54 53 4c 5f |   tags\|a=#GTSL_|
|00001490| 4c 65 76 65 6c 00 20 20 | 20 20 20 20 20 20 20 20 |Level.  |        |
|000014a0| 20 20 20 20 20 20 74 61 | 67 73 5c 62 3d 64 00 20 |      ta|gs\b=d. |
|000014b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 74 |        |       t|
|000014c0| 61 67 73 5c 63 3d 30 00 | 20 20 20 20 20 20 20 20 |ags\c=0.|        |
|000014d0| 20 20 20 20 20 20 20 20 | f6 03 20 2a 67 61 64 32 |        |.. *gad2|
|000014e0| 2c 2a 6d 79 77 69 6e 64 | 6f 77 2c 30 2c 74 61 67 |,*mywind|ow,0,tag|
|000014f0| 73 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s.      |        |
|00001500| 80 c0 00 20 20 20 20 20 | 20 20 20 20 20 20 20 80 |...     |       .|
|00001510| 0f 20 31 31 35 20 3b 73 | 00 20 20 20 20 20 20 20 |. 115 ;s|.       |
|00001520| 20 20 20 20 20 20 20 80 | 0b 20 73 3c 61 00 20 20 |       .|. s<a.  |
|00001530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 73 2b |        |      s+|
|00001540| 31 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1.      |        |
|00001550| 20 20 74 61 67 73 5c 61 | 3d 23 47 54 4c 56 5f 54 |  tags\a|=#GTLV_T|
|00001560| 6f 70 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |op.     |        |
|00001570| 20 20 20 74 61 67 73 5c | 62 3d 73 00 20 20 20 20 |   tags\|b=s.    |
|00001580| 20 20 20 20 20 20 20 20 | 20 20 20 20 74 61 67 73 |        |    tags|
|00001590| 5c 63 3d 23 47 54 4c 56 | 5f 53 65 6c 65 63 74 65 |\c=#GTLV|_Selecte|
|000015a0| 64 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d.      |        |
|000015b0| 20 20 74 61 67 73 5c 64 | 3d 73 00 20 20 20 20 20 |  tags\d|=s.     |
|000015c0| 20 20 20 20 20 20 20 20 | 20 20 20 74 61 67 73 5c |        |   tags\|
|000015d0| 65 3d 30 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |e=0.    |        |
|000015e0| 20 20 20 20 f6 03 20 2a | 67 61 64 31 2c 2a 6d 79 |    .. *|gad1,*my|
|000015f0| 77 69 6e 64 6f 77 2c 30 | 2c 74 61 67 73 00 20 20 |window,0|,tags.  |
|00001600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|00001610| 64 73 6c 69 64 65 3d 31 | 00 20 20 20 20 20 20 20 |dslide=1|.       |
|00001620| 20 20 20 20 20 20 20 80 | c0 00 20 20 20 20 20 20 |       .|..      |
|00001630| 20 20 20 20 20 20 80 0f | 20 38 33 20 3b 53 00 20 |      ..| 83 ;S. |
|00001640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 |        |     .. |
|00001650| 73 3e 30 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |s>0.    |        |
|00001660| 20 20 20 20 73 2d 31 00 | 20 20 20 20 20 20 20 20 |    s-1.|        |
|00001670| 20 20 20 20 20 20 20 20 | 74 61 67 73 5c 61 3d 23 |        |tags\a=#|
|00001680| 47 54 4c 56 5f 54 6f 70 | 00 20 20 20 20 20 20 20 |GTLV_Top|.       |
|00001690| 20 20 20 20 20 20 20 20 | 20 74 61 67 73 5c 62 3d |        | tags\b=|
|000016a0| 73 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s.      |        |
|000016b0| 20 20 74 61 67 73 5c 63 | 3d 23 47 54 4c 56 5f 53 |  tags\c|=#GTLV_S|
|000016c0| 65 6c 65 63 74 65 64 00 | 20 20 20 20 20 20 20 20 |elected.|        |
|000016d0| 20 20 20 20 20 20 20 20 | 74 61 67 73 5c 64 3d 73 |        |tags\d=s|
|000016e0| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000016f0| 20 74 61 67 73 5c 65 3d | 30 00 20 20 20 20 20 20 | tags\e=|0.      |
|00001700| 20 20 20 20 20 20 20 20 | 20 20 f6 03 20 2a 67 61 |        |  .. *ga|
|00001710| 64 31 2c 2a 6d 79 77 69 | 6e 64 6f 77 2c 30 2c 74 |d1,*mywi|ndow,0,t|
|00001720| 61 67 73 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |ags.    |        |
|00001730| 20 20 20 20 6d 6f 64 73 | 6c 69 64 65 3d 31 00 20 |    mods|lide=1. |
|00001740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 80 c0 00 |        |     ...|
|00001750| 20 20 20 20 20 20 20 20 | 20 20 80 02 20 80 0e 00 |        |  .. ...|
|00001760| 20 20 20 20 20 20 20 20 | 80 0f 20 23 49 44 43 4d |        |.. #IDCM|
|00001770| 50 5f 47 41 44 47 45 54 | 55 50 00 20 20 20 20 20 |P_GADGET|UP.     |
|00001780| 20 20 20 20 20 80 0e 20 | 2a 67 61 64 5c 47 61 64 |     .. |*gad\Gad|
|00001790| 67 65 74 49 44 00 20 20 | 20 20 20 20 20 20 20 20 |getID.  |        |
|000017a0| 20 20 80 0f 20 23 47 41 | 44 5f 4f 4b 00 20 20 20 |  .. #GA|D_OK.   |
|000017b0| 20 20 20 20 20 20 20 20 | 20 20 20 6d 6f 64 65 69 |        |   modei|
|000017c0| 64 3d 73 63 72 6d 28 73 | 29 00 20 20 20 20 20 20 |d=scrm(s|).      |
|000017d0| 20 20 20 20 20 20 20 20 | 77 69 64 74 68 3d 73 63 |        |width=sc|
|000017e0| 72 78 28 73 29 00 20 20 | 20 20 20 20 20 20 20 20 |rx(s).  |        |
|000017f0| 20 20 20 20 68 65 69 67 | 68 74 3d 73 63 72 79 28 |    heig|ht=scry(|
|00001800| 73 29 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s).     |        |
|00001810| 20 64 65 70 74 68 3d 64 | 00 20 20 20 20 20 20 20 | depth=d|.       |
|00001820| 20 20 20 20 20 20 20 72 | 65 73 75 6c 74 3d 30 00 |       r|esult=0.|
|00001830| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 0f 20 23 |        |    .. #|
|00001840| 47 41 44 5f 43 41 4e 43 | 45 4c 00 20 20 20 20 20 |GAD_CANC|EL.     |
|00001850| 20 20 20 20 20 20 20 20 | 20 72 65 73 75 6c 74 3d |        | result=|
|00001860| 30 00 20 20 20 20 20 20 | 20 20 20 20 20 20 80 0f |0.      |      ..|
|00001870| 20 23 47 41 44 5f 4c 49 | 53 54 00 20 20 20 20 20 | #GAD_LI|ST.     |
|00001880| 20 20 20 20 20 20 20 20 | 20 73 3d 63 6f 64 65 00 |        | s=code.|
|00001890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6d 6f |        |      mo|
|000018a0| 64 73 6c 69 64 65 3d 31 | 00 20 20 20 20 20 20 20 |dslide=1|.       |
|000018b0| 20 20 20 20 20 80 0f 20 | 23 47 41 44 5f 53 4c 49 |     .. |#GAD_SLI|
|000018c0| 44 45 52 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |DER.    |        |
|000018d0| 20 20 64 3d 63 6f 64 65 | 00 20 20 20 20 20 20 20 |  d=code|.       |
|000018e0| 20 20 20 80 02 20 80 0e | 00 20 20 20 20 20 20 80 |   .. ..|.      .|
|000018f0| 02 20 80 0e 00 20 20 20 | 20 20 20 80 0b 20 6d 6f |. ...   |   .. mo|
|00001900| 64 73 6c 69 64 65 3d 31 | 00 20 20 20 20 20 20 20 |dslide=1|.       |
|00001910| 20 6d 6f 64 73 6c 69 64 | 65 3d 30 00 20 20 20 20 | modslid|e=0.    |
|00001920| 20 20 20 20 80 0b 20 73 | 63 72 64 28 73 29 3c 64 |    .. s|crd(s)<d|
|00001930| 00 20 20 20 20 20 20 20 | 20 20 20 64 3d 73 63 72 |.       |   d=scr|
|00001940| 64 28 73 29 00 20 20 20 | 20 20 20 20 20 80 c0 00 |d(s).   |     ...|
|00001950| 20 20 20 20 20 20 20 20 | 74 61 67 73 5c 61 3d 23 |        |tags\a=#|
|00001960| 47 54 53 4c 5f 4d 61 78 | 00 20 20 20 20 20 20 20 |GTSL_Max|.       |
|00001970| 20 74 61 67 73 5c 62 3d | 73 63 72 64 28 73 29 00 | tags\b=|scrd(s).|
|00001980| 20 20 20 20 20 20 20 20 | 74 61 67 73 5c 63 3d 23 |        |tags\c=#|
|00001990| 47 54 53 4c 5f 4c 65 76 | 65 6c 00 20 20 20 20 20 |GTSL_Lev|el.     |
|000019a0| 20 20 20 74 61 67 73 5c | 64 3d 64 00 20 20 20 20 |   tags\|d=d.    |
|000019b0| 20 20 20 20 74 61 67 73 | 5c 65 3d 30 00 20 20 20 |    tags|\e=0.   |
|000019c0| 20 20 20 20 20 f6 03 20 | 2a 67 61 64 32 2c 2a 6d |     .. |*gad2,*m|
|000019d0| 79 77 69 6e 64 6f 77 2c | 30 2c 74 61 67 73 00 20 |ywindow,|0,tags. |
|000019e0| 20 20 20 20 20 80 c0 00 | 20 20 20 20 80 c0 00 20 |     ...|    ... |
|000019f0| 20 80 bc 20 72 65 73 75 | 6c 74 3d 30 00 20 20 ff | .. resu|lt=0.  .|
|00001a00| 88 20 2a 6d 79 77 69 6e | 64 6f 77 00 20 20 f6 02 |. *mywin|dow.  ..|
|00001a10| 20 2a 67 6c 69 73 74 00 | 20 20 f6 12 20 2a 76 69 | *glist.|  .. *vi|
|00001a20| 00 00 80 c0 00 2a 74 65 | 6d 70 6e 6f 64 65 3d 2a |.....*te|mpnode=*|
|00001a30| 73 63 72 6c 69 73 74 5c | 6c 68 5f 54 61 69 6c 50 |scrlist\|lh_TailP|
|00001a40| 72 65 64 00 80 0c 20 2a | 74 65 6d 70 6e 6f 64 65 |red... *|tempnode|
|00001a50| 5c 6c 6e 5f 50 72 65 64 | 00 20 20 2a 73 63 72 6e |\ln_Pred|.  *scrn|
|00001a60| 6f 64 65 3d 2a 74 65 6d | 70 6e 6f 64 65 5c 6c 6e |ode=*tem|pnode\ln|
|00001a70| 5f 50 72 65 64 00 20 20 | fe 99 20 2a 74 65 6d 70 |_Pred.  |.. *temp|
|00001a80| 6e 6f 64 65 2c 80 2f 2e | 4e 6f 64 65 00 20 20 2a |node,./.|Node.  *|
|00001a90| 74 65 6d 70 6e 6f 64 65 | 3d 2a 73 63 72 6e 6f 64 |tempnode|=*scrnod|
|00001aa0| 65 00 80 c1 00 fe 99 20 | 2a 73 63 72 6c 69 73 74 |e...... |*scrlist|
|00001ab0| 2c 80 2f 2e 4c 69 73 74 | 00 ff d2 20 30 2c 2a 6d |,./.List|... 0,*m|
|00001ac0| 79 73 63 72 65 65 6e 00 | 80 02 20 80 08 00 00 3b |yscreen.|.. ....;|
|00001ad0| 54 68 69 73 20 69 73 20 | 74 6f 20 74 65 73 74 20 |This is |to test |
|00001ae0| 74 68 65 20 72 65 71 75 | 65 73 74 65 72 3a 00 00 |the requ|ester:..|
|00001af0| 3b 73 63 72 65 65 6e 72 | 65 71 7b 7d 00 3b 4e 50 |;screenr|eq{}.;NP|
|00001b00| 72 69 6e 74 20 48 65 78 | 24 28 6d 6f 64 65 69 64 |rint Hex|$(modeid|
|00001b10| 29 00 3b 4e 50 72 69 6e | 74 20 77 69 64 74 68 00 |).;NPrin|t width.|
|00001b20| 3b 4e 50 72 69 6e 74 20 | 68 65 69 67 68 74 00 3b |;NPrint |height.;|
|00001b30| 4e 50 72 69 6e 74 20 64 | 65 70 74 68 00 3b 45 6e |NPrint d|epth.;En|
|00001b40| 64 00 00 00 00          |                         |d....   |        |
+--------+-------------------------+-------------------------+--------+--------+