/ Dream 57 / Amiga_Dream_57.iso / Amiga / Programmation / Basic / Blitz / StatsFuncs.lha / StatsFuncs / statements&functions.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 65 6d 61 69 6c 20 | 2d 20 6a 61 6d 65 73 62 |; email |- jamesb|
|00000010| 6f 79 64 40 76 65 6c 76 | 65 74 79 2e 64 65 6d 6f |oyd@velv|ety.demo|
|00000020| 6e 2e 63 6f 2e 75 6b 00 | 00 3b 20 44 4f 4e 27 54 |n.co.uk.|.; DON'T|
|00000030| 20 4a 55 53 54 20 54 52 | 59 20 54 4f 20 52 55 4e | JUST TR|Y TO RUN|
|00000040| 20 54 48 49 53 21 00 00 | 2e 49 6e 66 6f 00 2e 00 | THIS!..|.Info...|
|00000050| 20 20 3b 20 74 68 69 73 | 20 66 69 6c 65 20 63 6f |  ; this| file co|
|00000060| 6e 74 61 69 6e 73 20 61 | 20 77 68 6f 6c 65 20 6c |ntains a| whole l|
|00000070| 6f 61 64 20 6f 66 20 73 | 74 61 74 65 6d 65 6e 74 |oad of s|tatement|
|00000080| 73 20 61 6e 64 20 66 75 | 6e 63 74 69 6f 6e 73 00 |s and fu|nctions.|
|00000090| 20 20 3b 20 63 75 74 20 | 27 6e 27 20 70 61 73 74 |  ; cut |'n' past|
|000000a0| 65 64 20 66 72 6f 6d 20 | 76 61 72 69 6f 75 73 20 |ed from |various |
|000000b0| 73 6f 75 72 63 65 20 66 | 69 6c 65 73 20 62 79 20 |source f|iles by |
|000000c0| 6a 61 6d 65 73 20 6c 20 | 62 6f 79 64 2e 00 20 20 |james l |boyd..  |
|000000d0| 3b 20 6e 6f 74 65 20 74 | 68 61 74 20 4e 4f 54 20 |; note t|hat NOT |
|000000e0| 41 4c 4c 20 4f 46 20 54 | 48 45 53 45 20 41 52 45 |ALL OF T|HESE ARE|
|000000f0| 20 42 59 20 4d 45 21 00 | 00 20 20 3b 20 6a 75 73 | BY ME!.|.  ; jus|
|00000100| 74 20 63 75 74 20 61 6e | 64 20 70 61 73 74 65 20 |t cut an|d paste |
|00000110| 69 6e 74 6f 20 79 6f 75 | 72 20 70 72 6f 67 72 61 |into you|r progra|
|00000120| 6d 73 20 61 73 20 79 6f | 75 20 6e 65 65 64 21 00 |ms as yo|u need!.|
|00000130| 20 20 3b 20 74 68 65 20 | 64 6f 74 74 65 64 20 6c |  ; the |dotted l|
|00000140| 69 6e 65 73 20 61 72 65 | 20 74 68 65 72 65 20 74 |ines are| there t|
|00000150| 6f 20 68 65 6c 70 20 79 | 6f 75 20 63 75 74 20 74 |o help y|ou cut t|
|00000160| 68 65 20 72 69 67 68 74 | 20 61 72 65 61 21 00 00 |he right| area!..|
|00000170| 3b 20 4e 4f 54 45 53 00 | 00 3b 20 31 29 20 65 61 |; NOTES.|.; 1) ea|
|00000180| 63 68 20 63 61 6c 6c 20 | 68 61 73 20 61 20 64 65 |ch call |has a de|
|00000190| 6d 6f 6e 73 74 72 61 74 | 69 6f 6e 20 75 6e 64 65 |monstrat|ion unde|
|000001a0| 72 6e 65 61 74 68 20 69 | 74 2e 2e 2e 00 00 3b 20 |rneath i|t.....; |
|000001b0| 32 29 20 72 65 6d 65 6d | 62 65 72 2c 74 68 65 20 |2) remem|ber,the |
|000001c0| 66 75 6e 63 74 69 6f 6e | 2f 73 74 61 74 65 6d 65 |function|/stateme|
|000001d0| 6e 74 20 6e 61 6d 65 73 | 20 61 72 65 20 63 61 73 |nt names| are cas|
|000001e0| 65 2d 73 65 6e 73 69 74 | 69 76 65 2e 00 00 3b 20 |e-sensit|ive...; |
|000001f0| 33 29 20 61 6c 73 6f 2c | 73 6f 6d 65 20 6f 66 20 |3) also,|some of |
|00000200| 74 68 65 73 65 20 72 65 | 71 75 69 72 65 20 79 6f |these re|quire yo|
|00000210| 75 20 74 6f 20 68 61 76 | 65 00 3b 20 20 20 20 62 |u to hav|e.;    b|
|00000220| 6c 69 74 7a 6c 69 62 73 | 3a 61 6d 69 67 61 6c 69 |litzlibs|:amigali|
|00000230| 62 73 2e 72 65 73 20 72 | 65 73 69 64 65 6e 74 20 |bs.res r|esident |
|00000240| 69 6e 00 3b 20 20 20 20 | 74 68 65 20 43 6f 6d 70 |in.;    |the Comp|
|00000250| 69 6c 65 72 20 4f 70 74 | 69 6f 6e 73 2e 2e 2e 00 |iler Opt|ions....|
|00000260| 00 3b 20 34 29 20 73 6f | 6d 65 20 6f 66 20 74 68 |.; 4) so|me of th|
|00000270| 65 6d 20 72 65 71 75 69 | 72 65 20 61 20 63 75 72 |em requi|re a cur|
|00000280| 72 65 6e 74 6c 79 20 75 | 73 65 64 20 73 63 72 65 |rently u|sed scre|
|00000290| 65 6e 2c 6f 72 20 77 69 | 6e 64 6f 77 2e 2e 2e 00 |en,or wi|ndow....|
|000002a0| 00 3b 20 79 6f 75 20 63 | 61 6e 20 74 65 73 74 20 |.; you c|an test |
|000002b0| 65 61 63 68 20 66 75 6e | 63 74 69 6f 6e 20 6f 72 |each fun|ction or|
|000002c0| 20 73 74 61 74 65 6d 65 | 6e 74 20 62 79 20 75 6e | stateme|nt by un|
|000002d0| 63 6f 6d 6d 65 6e 74 69 | 6e 67 20 74 68 65 00 3b |commenti|ng the.;|
|000002e0| 20 66 75 6e 63 74 69 6f | 6e 2f 73 74 61 74 65 6d | functio|n/statem|
|000002f0| 65 6e 74 20 64 65 6d 6f | 20 79 6f 75 20 77 61 6e |ent demo| you wan|
|00000300| 74 20 74 6f 20 74 72 79 | 2c 4f 4e 45 20 41 54 20 |t to try|,ONE AT |
|00000310| 41 20 54 49 4d 45 20 28 | 79 6f 75 00 3b 20 4d 55 |A TIME (|you.; MU|
|00000320| 53 54 20 72 65 2d 63 6f | 6d 6d 65 6e 74 20 65 61 |ST re-co|mment ea|
|00000330| 63 68 20 6f 6e 65 20 62 | 65 66 6f 72 65 20 74 65 |ch one b|efore te|
|00000340| 73 74 69 6e 67 20 61 6e | 6f 74 68 65 72 21 20 2d |sting an|other! -|
|00000350| 20 75 6e 6c 65 73 73 00 | 3b 20 79 6f 75 20 6b 6e | unless.|; you kn|
|00000360| 6f 77 20 77 68 61 74 20 | 79 6f 75 27 72 65 20 64 |ow what |you're d|
|00000370| 6f 69 6e 67 29 00 00 3b | 2d 2d 2d 2d 2d 2d 2d 2d |oing)..;|--------|
|00000380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000003b0| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 2e 42 65 67 69 6e |--------|...Begin|
|000003c0| 6e 65 72 73 00 2e 00 3b | 20 42 20 45 20 47 20 49 |ners...;| B E G I|
|000003d0| 20 4e 20 4e 20 45 20 52 | 20 53 20 21 00 00 20 20 | N N E R| S !..  |
|000003e0| 3b 20 69 66 20 79 6f 75 | 20 64 6f 6e 27 74 20 6b |; if you| don't k|
|000003f0| 6e 6f 77 20 68 6f 77 20 | 74 6f 20 75 73 65 20 73 |now how |to use s|
|00000400| 74 61 74 65 6d 65 6e 74 | 73 20 61 6e 64 20 66 75 |tatement|s and fu|
|00000410| 6e 63 74 69 6f 6e 73 2c | 00 20 20 3b 20 69 74 27 |nctions,|.  ; it'|
|00000420| 73 20 65 61 73 79 21 00 | 00 20 20 3b 20 31 29 20 |s easy!.|.  ; 1) |
|00000430| 43 75 74 20 6f 75 74 20 | 74 68 65 20 66 75 6e 63 |Cut out |the func|
|00000440| 74 69 6f 6e 20 6f 72 20 | 73 74 61 74 65 6d 65 6e |tion or |statemen|
|00000450| 74 20 79 6f 75 20 77 61 | 6e 74 20 74 6f 20 75 73 |t you wa|nt to us|
|00000460| 65 2c 66 72 6f 6d 20 3a | 00 00 20 20 3b 20 20 20 |e,from :|..  ;   |
|00000470| 20 20 46 75 6e 63 74 69 | 6f 6e 2e 2e 2e 00 20 20 |  Functi|on....  |
|00000480| 3b 20 20 20 20 20 2d 2d | 2d 2d 2d 2d 74 6f 2d 2d |;     --|----to--|
|00000490| 2d 2d 2d 2d 00 20 20 3b | 20 20 20 20 20 45 6e 64 |----.  ;|     End|
|000004a0| 20 46 75 6e 63 74 69 6f | 6e 00 00 20 20 3b 20 20 | Functio|n..  ;  |
|000004b0| 20 20 20 6f 72 00 00 20 | 20 3b 20 20 20 20 20 53 |   or.. | ;     S|
|000004c0| 74 61 74 65 6d 65 6e 74 | 2e 2e 2e 00 20 20 3b 20 |tatement|....  ; |
|000004d0| 20 20 20 20 2d 2d 2d 2d | 2d 2d 74 6f 2d 2d 2d 2d |    ----|--to----|
|000004e0| 2d 2d 00 20 20 3b 20 20 | 20 20 20 45 6e 64 20 53 |--.  ;  |   End S|
|000004f0| 74 61 74 65 6d 65 6e 74 | 00 00 20 20 3b 20 32 29 |tatement|..  ; 2)|
|00000500| 20 50 61 73 74 65 20 69 | 74 20 69 6e 74 6f 20 74 | Paste i|t into t|
|00000510| 68 65 20 54 4f 50 20 6f | 66 20 79 6f 75 72 20 73 |he TOP o|f your s|
|00000520| 6f 75 72 63 65 20 63 6f | 64 65 20 28 6f 72 20 61 |ource co|de (or a|
|00000530| 6e 79 77 68 65 72 65 2c | 00 20 20 3b 20 20 20 20 |nywhere,|.  ;    |
|00000540| 61 73 20 6c 6f 6e 67 20 | 61 73 20 79 6f 75 20 44 |as long |as you D|
|00000550| 4f 4e 27 54 20 54 52 59 | 20 41 4e 44 20 43 41 4c |ON'T TRY| AND CAL|
|00000560| 4c 20 49 54 20 42 45 46 | 4f 52 45 20 54 48 45 20 |L IT BEF|ORE THE |
|00000570| 50 52 4f 47 52 41 4d 00 | 20 20 3b 20 20 20 20 52 |PROGRAM.|  ;    R|
|00000580| 45 41 43 48 45 53 20 49 | 54 21 29 00 00 20 20 3b |EACHES I|T!)..  ;|
|00000590| 20 33 29 20 4c 6f 6f 6b | 20 61 74 20 74 68 65 20 | 3) Look| at the |
|000005a0| 64 65 6d 6f 20 66 6f 72 | 20 65 61 63 68 20 66 75 |demo for| each fu|
|000005b0| 6e 63 74 69 6f 6e 2f 73 | 74 61 74 65 6d 65 6e 74 |nction/s|tatement|
|000005c0| 20 74 6f 20 73 65 65 00 | 20 20 3b 20 20 20 20 68 | to see.|  ;    h|
|000005d0| 6f 77 20 74 6f 20 75 73 | 65 20 69 74 2e 2e 2e 00 |ow to us|e it....|
|000005e0| 00 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 00 00 2e 53 54 41 | 54 45 4d 45 4e 54 53 00 |--...STA|TEMENTS.|
|00000630| 2e 00 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..;-----|--------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000670| 2d 2d 2d 2d 00 00 2e 42 | 46 57 69 6e 64 6f 77 00 |----...B|FWindow.|
|00000680| 00 3b 20 73 74 61 74 65 | 6d 65 6e 74 20 3a 20 42 |.; state|ment : B|
|00000690| 46 57 69 6e 64 6f 77 7b | 7d 00 00 3b 20 66 69 6c |FWindow{|}..; fil|
|000006a0| 6c 73 20 61 20 77 69 6e | 64 6f 77 20 77 69 74 68 |ls a win|dow with|
|000006b0| 20 61 20 62 61 63 6b 66 | 69 6c 6c 20 70 61 74 74 | a backf|ill patt|
|000006c0| 65 72 6e 2c 6c 69 6b 65 | 20 74 68 69 73 20 3a 00 |ern,like| this :.|
|000006d0| 00 3b 20 20 30 31 30 31 | 30 31 30 31 30 31 30 31 |.;  0101|01010101|
|000006e0| 30 31 30 31 30 31 30 31 | 30 31 30 31 30 31 30 31 |01010101|01010101|
|000006f0| 30 31 30 31 30 31 30 31 | 00 3b 20 20 31 30 31 30 |01010101|.;  1010|
|00000700| 31 30 31 30 31 30 31 30 | 31 30 31 30 31 30 31 30 |10101010|10101010|
|00000710| 31 30 31 30 31 30 31 30 | 31 30 31 30 31 30 31 30 |10101010|10101010|
|00000720| 00 3b 20 20 30 31 30 31 | 30 31 30 31 30 31 30 31 |.;  0101|01010101|
|00000730| 30 31 30 31 30 31 30 31 | 30 31 30 31 30 31 30 31 |01010101|01010101|
|00000740| 30 31 30 31 30 31 30 31 | 00 3b 20 20 31 30 31 30 |01010101|.;  1010|
|00000750| 31 30 31 30 31 30 31 30 | 31 30 31 30 31 30 31 30 |10101010|10101010|
|00000760| 31 30 31 30 31 30 31 30 | 31 30 31 30 31 30 31 30 |10101010|10101010|
|00000770| 00 3b 20 20 30 31 30 31 | 30 31 30 31 30 31 30 31 |.;  0101|01010101|
|00000780| 30 31 30 31 30 31 30 31 | 30 31 30 31 30 31 30 31 |01010101|01010101|
|00000790| 30 31 30 31 30 31 30 31 | 00 3b 20 20 31 30 31 30 |01010101|.;  1010|
|000007a0| 31 30 31 30 31 30 31 30 | 31 30 31 30 31 30 31 30 |10101010|10101010|
|000007b0| 31 30 31 30 31 30 31 30 | 31 30 31 30 31 30 31 30 |10101010|10101010|
|000007c0| 00 3b 20 20 30 31 30 31 | 30 31 30 31 30 31 30 31 |.;  0101|01010101|
|000007d0| 30 31 30 31 30 31 30 31 | 30 31 30 31 30 31 30 31 |01010101|01010101|
|000007e0| 30 31 30 31 30 31 30 31 | 00 00 3b 20 74 68 61 74 |01010101|..; that|
|000007f0| 20 6b 69 6e 64 20 6f 66 | 20 74 68 69 6e 67 20 3b | kind of| thing ;|
|00000800| 29 20 6c 6f 6f 6b 73 20 | 61 6c 6c 20 77 68 69 74 |) looks |all whit|
|00000810| 65 2c 6c 69 6b 65 20 72 | 65 71 75 65 73 74 65 72 |e,like r|equester|
|00000820| 73 2e 2e 2e 00 3b 20 6e | 6f 74 65 20 74 68 61 74 |s....; n|ote that|
|00000830| 20 69 74 20 6e 65 65 64 | 73 20 61 20 6e 6f 6e 2d | it need|s a non-|
|00000840| 47 49 4d 4d 45 5a 45 52 | 4f 5a 45 52 4f 20 77 69 |GIMMEZER|OZERO wi|
|00000850| 6e 64 6f 77 2c 6f 72 20 | 69 74 27 6c 6c 20 62 65 |ndow,or |it'll be|
|00000860| 00 3b 20 6f 66 66 73 65 | 74 20 28 49 27 6d 20 6e |.; offse|t (I'm n|
|00000870| 6f 74 20 74 72 79 69 6e | 67 20 74 6f 20 66 69 67 |ot tryin|g to fig|
|00000880| 75 72 65 20 74 68 69 73 | 20 73 74 61 74 65 6d 65 |ure this| stateme|
|00000890| 6e 74 20 6f 75 74 20 3b | 29 00 00 3b 20 67 6f 6f |nt out ;|)..; goo|
|000008a0| 64 20 77 68 65 6e 20 75 | 73 65 64 20 77 69 74 68 |d when u|sed with|
|000008b0| 20 57 46 42 6f 78 20 7b | 7d 20 2d 20 73 65 65 20 | WFBox {|} - see |
|000008c0| 2e 57 46 42 6f 78 2e 2e | 2e 00 00 80 08 20 42 46 |.WFBox..|..... BF|
|000008d0| 57 69 6e 64 6f 77 7b 57 | 69 6e 64 6f 49 44 2e 77 |Window{W|indoID.w|
|000008e0| 7d 00 00 2a 57 69 6e 64 | 6f 2e 57 69 6e 64 6f 77 |}..*Wind|o.Window|
|000008f0| 20 3d 20 da 02 2e 6c 28 | 80 b8 20 c5 01 28 57 69 | = ...l(|.. ..(Wi|
|00000900| 6e 64 6f 49 44 2e 77 29 | 29 00 80 ca 20 2a 57 69 |ndoID.w)|)... *Wi|
|00000910| 6e 64 6f 00 20 20 20 5c | 52 50 6f 72 74 5c 41 72 |ndo.   \|RPort\Ar|
|00000920| 65 61 50 74 72 6e 20 3d | 20 3f 42 61 63 6b 46 69 |eaPtrn =| ?BackFi|
|00000930| 6c 6c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ll      |        |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 50 61 |        |     ;Pa|
|00000950| 74 74 65 72 6e 20 41 64 | 64 72 65 73 73 00 20 20 |ttern Ad|dress.  |
|00000960| 20 5c 52 50 6f 72 74 5c | 41 72 65 61 50 74 53 7a | \RPort\|AreaPtSz|
|00000970| 20 3d 20 31 20 20 20 20 | 20 20 20 20 20 20 20 20 | = 1    |        |
|00000980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000990| 20 20 20 20 20 20 20 3b | 75 73 65 20 32 20 61 72 |       ;|use 2 ar|
|000009a0| 72 61 79 73 20 66 6f 72 | 6d 20 74 68 65 00 20 20 |rays for|m the.  |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000009e0| 20 20 20 20 20 20 20 3b | 50 61 74 74 65 72 6e 20 |       ;|Pattern |
|000009f0| 41 64 64 72 65 73 73 00 | 20 20 20 57 4c 65 66 74 |Address.|   WLeft|
|00000a00| 2e 77 20 20 20 20 3d 20 | 5c 42 6f 72 64 65 72 4c |.w    = |\BorderL|
|00000a10| 65 66 74 00 20 20 20 57 | 54 6f 70 2e 77 20 20 20 |eft.   W|Top.w   |
|00000a20| 20 20 3d 20 5c 42 6f 72 | 64 65 72 54 6f 70 00 20 |  = \Bor|derTop. |
|00000a30| 20 20 57 57 69 64 74 68 | 2e 77 20 20 20 3d 20 5c |  WWidth|.w   = \|
|00000a40| 57 69 64 74 68 20 2d 20 | 5c 42 6f 72 64 65 72 52 |Width - |\BorderR|
|00000a50| 69 67 68 74 20 2d 20 31 | 00 20 20 20 57 48 65 69 |ight - 1|.   WHei|
|00000a60| 67 68 74 2e 77 20 20 3d | 20 5c 48 65 69 67 68 74 |ght.w  =| \Height|
|00000a70| 20 2d 20 5c 42 6f 72 64 | 65 72 42 6f 74 74 6f 6d | - \Bord|erBottom|
|00000a80| 20 2d 20 31 00 00 3b 50 | 75 74 20 61 20 42 61 63 | - 1..;P|ut a Bac|
|00000a90| 6b 46 69 6c 6c 20 69 6e | 20 74 68 65 20 57 69 6e |kFill in| the Win|
|00000aa0| 64 6f 77 2e 00 20 20 20 | ff 35 20 5c 52 50 6f 72 |dow..   |.5 \RPor|
|00000ab0| 74 2c 32 00 20 20 20 ff | 37 20 5c 52 50 6f 72 74 |t,2.   .|7 \RPort|
|00000ac0| 2c 31 00 20 20 20 ff 30 | 20 5c 52 50 6f 72 74 2c |,1.   .0| \RPort,|
|00000ad0| 30 2c 57 4c 65 66 74 2c | 57 54 6f 70 2c 57 57 69 |0,WLeft,|WTop,WWi|
|00000ae0| 64 74 68 2c 57 48 65 69 | 67 68 74 2c 30 00 00 20 |dth,WHei|ght,0.. |
|00000af0| 20 20 5c 52 50 6f 72 74 | 5c 41 72 65 61 50 74 72 |  \RPort|\AreaPtr|
|00000b00| 6e 20 3d 20 30 20 20 20 | 20 20 20 20 20 20 20 20 |n = 0   |        |
|00000b10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b20| 20 20 20 20 20 20 20 20 | 3b 50 75 74 20 69 74 20 |        |;Put it |
|00000b30| 62 61 63 6b 20 74 6f 20 | 30 00 20 20 20 5c 52 50 |back to |0.   \RP|
|00000b40| 6f 72 74 5c 41 72 65 61 | 50 74 53 7a 20 3d 20 30 |ort\Area|PtSz = 0|
|00000b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000b70| 20 20 20 3b 50 75 74 20 | 69 74 20 62 61 63 6b 20 |   ;Put |it back |
|00000b80| 74 6f 20 30 00 00 80 08 | 20 80 07 00 42 61 63 6b |to 0....| ...Back|
|00000b90| 46 69 6c 6c 3a 20 80 25 | 2e 77 20 24 35 35 35 35 |Fill: .%|.w $5555|
|00000ba0| 2c 20 24 41 41 41 41 00 | 80 02 20 80 08 00 00 3b |, $AAAA.|.. ....;|
|00000bb0| 20 64 65 6d 6f 20 3a 00 | 00 3b 20 46 69 6e 64 53 | demo :.|.; FindS|
|00000bc0| 63 72 65 65 6e 20 30 00 | 3b 20 57 69 6e 64 6f 77 |creen 0.|; Window|
|00000bd0| 20 30 2c 30 2c 30 2c 36 | 34 30 2c 32 30 30 2c 24 | 0,0,0,6|40,200,$|
|00000be0| 31 30 30 66 2c 22 22 2c | 31 2c 32 00 3b 20 42 46 |100f,"",|1,2.; BF|
|00000bf0| 57 69 6e 64 6f 77 7b 30 | 7d 00 3b 20 4d 6f 75 73 |Window{0|}.; Mous|
|00000c00| 65 57 61 69 74 3a 45 6e | 64 00 00 2e 44 72 61 77 |eWait:En|d...Draw|
|00000c10| 33 64 42 6f 78 00 00 3b | 20 73 74 61 74 65 6d 65 |3dBox..;| stateme|
|00000c20| 6e 74 20 3a 20 44 72 61 | 77 33 64 42 6f 78 7b 7d |nt : Dra|w3dBox{}|
|00000c30| 00 00 3b 20 64 72 61 77 | 73 20 61 20 33 64 20 62 |..; draw|s a 3d b|
|00000c40| 6f 78 20 69 6e 20 61 20 | 77 69 6e 64 6f 77 00 3b |ox in a |window.;|
|00000c50| 20 6e 6f 74 65 20 74 68 | 61 74 20 79 6f 75 20 64 | note th|at you d|
|00000c60| 6f 20 6e 65 65 64 20 61 | 20 77 69 6e 64 6f 77 20 |o need a| window |
|00000c70| 74 6f 20 75 73 65 20 74 | 68 69 73 21 00 3b 20 73 |to use t|his!.; s|
|00000c80| 65 65 20 64 65 6d 6f 20 | 66 6f 72 20 6d 6f 72 65 |ee demo |for more|
|00000c90| 2e 2e 2e 00 00 80 08 20 | 44 72 61 77 33 64 42 6f |....... |Draw3dBo|
|00000ca0| 78 7b 61 78 2c 61 79 2c | 57 69 64 74 68 2e 6c 2c |x{ax,ay,|Width.l,|
|00000cb0| 48 65 69 67 68 74 2e 6c | 2c 77 61 79 2e 62 7d 00 |Height.l|,way.b}.|
|00000cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 78 32 2e |        |    ax2.|
|00000cd0| 6c 20 3d 20 28 61 78 2b | 57 69 64 74 68 29 2d 31 |l = (ax+|Width)-1|
|00000ce0| 3a 61 79 32 2e 6c 20 3d | 20 28 61 79 2b 48 65 69 |:ay2.l =| (ay+Hei|
|00000cf0| 67 68 74 29 2d 31 00 20 | 20 20 20 20 20 20 20 20 |ght)-1. |        |
|00000d00| 20 20 20 80 0b 20 77 61 | 79 3d 30 00 20 20 20 20 |   .. wa|y=0.    |
|00000d10| 20 20 20 20 20 20 20 20 | 20 20 20 c5 1e 20 61 78 |        |   .. ax|
|00000d20| 32 2c 61 79 2c 61 78 2c | 61 79 2c 61 78 2c 61 79 |2,ay,ax,|ay,ax,ay|
|00000d30| 32 2c 32 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |2,2.    |        |
|00000d40| 20 20 20 c5 1e 20 61 78 | 2b 31 2c 61 79 32 2c 61 |   .. ax|+1,ay2,a|
|00000d50| 78 32 2c 61 79 32 2c 61 | 78 32 2c 61 79 2c 31 00 |x2,ay2,a|x2,ay,1.|
|00000d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 c5 |        |       .|
|00000d70| 1e 20 61 78 2b 31 2c 61 | 79 32 2d 31 2c 61 78 32 |. ax+1,a|y2-1,ax2|
|00000d80| 2d 31 2c 61 79 32 2d 31 | 2c 61 78 32 2d 31 2c 61 |-1,ay2-1|,ax2-1,a|
|00000d90| 79 2b 31 2c 33 00 20 20 | 20 20 20 20 20 20 20 20 |y+1,3.  |        |
|00000da0| 20 20 80 22 00 20 20 20 | 20 20 20 20 20 20 20 20 |  .".   |        |
|00000db0| 20 20 20 20 c5 1e 20 61 | 78 32 2c 61 79 2c 61 78 |    .. a|x2,ay,ax|
|00000dc0| 2c 61 79 2c 61 78 2c 61 | 79 32 2c 31 00 20 20 20 |,ay,ax,a|y2,1.   |
|00000dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 c5 1e 20 61 |        |    .. a|
|00000de0| 78 32 2d 31 2c 61 79 2b | 31 2c 61 78 2b 31 2c 61 |x2-1,ay+|1,ax+1,a|
|00000df0| 79 2b 31 2c 61 78 2b 31 | 2c 61 79 32 2d 31 2c 33 |y+1,ax+1|,ay2-1,3|
|00000e00| 00 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..      |        |
|00000e10| 20 c5 1e 20 61 78 2b 31 | 2c 61 79 32 2c 61 78 32 | .. ax+1|,ay2,ax2|
|00000e20| 2c 61 79 32 2c 61 78 32 | 2c 61 79 2c 32 00 20 20 |,ay2,ax2|,ay,2.  |
|00000e30| 20 20 20 20 20 20 20 20 | 20 20 80 c0 00 80 02 20 |        |  ..... |
|00000e40| 80 08 00 00 3b 20 64 65 | 6d 6f 20 3a 00 00 3b 20 |....; de|mo :..; |
|00000e50| 46 69 6e 64 53 63 72 65 | 65 6e 20 30 00 3b 20 57 |FindScre|en 0.; W|
|00000e60| 69 6e 64 6f 77 20 30 2c | 30 2c 30 2c 36 34 30 2c |indow 0,|0,0,640,|
|00000e70| 32 30 30 2c 24 31 34 30 | 66 2c 22 48 65 6c 6c 6f |200,$140|f,"Hello|
|00000e80| 22 2c 31 2c 32 00 3b 20 | 44 72 61 77 33 64 42 6f |",1,2.; |Draw3dBo|
|00000e90| 78 7b 31 30 2c 31 30 2c | 33 35 30 2c 31 35 30 2c |x{10,10,|350,150,|
|00000ea0| 31 7d 20 3b 20 74 72 79 | 20 72 65 70 6c 61 63 69 |1} ; try| replaci|
|00000eb0| 6e 67 20 74 68 65 20 31 | 20 77 69 74 68 20 30 20 |ng the 1| with 0 |
|00000ec0| 66 6f 72 00 3b 20 20 20 | 20 20 20 20 20 20 20 20 |for.;   |        |
|00000ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000ee0| 20 20 20 61 6e 20 69 6e | 76 65 72 73 65 20 62 6f |   an in|verse bo|
|00000ef0| 78 2e 2e 2e 00 3b 20 4d | 6f 75 73 65 57 61 69 74 |x....; M|ouseWait|
|00000f00| 3a 45 6e 64 00 00 3b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |:End..;-|--------|
|00000f10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f40| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 2e 46 6c 61 73 68 |--------|...Flash|
|00000f50| 54 65 78 74 00 00 3b 20 | 73 74 61 74 65 6d 65 6e |Text..; |statemen|
|00000f60| 74 20 3a 20 46 6c 61 73 | 68 54 65 78 74 7b 7d 00 |t : Flas|hText{}.|
|00000f70| 00 3b 20 73 68 6f 77 73 | 20 66 6c 61 73 68 69 6e |.; shows| flashin|
|00000f80| 67 20 74 65 78 74 20 2d | 20 6e 65 65 64 73 20 61 |g text -| needs a|
|00000f90| 20 77 69 6e 64 6f 77 21 | 00 3b 20 78 20 69 73 20 | window!|.; x is |
|00000fa0| 74 68 65 20 6c 65 66 74 | 20 70 6f 73 69 74 69 6f |the left| positio|
|00000fb0| 6e 2c 79 20 69 73 20 74 | 68 65 20 74 6f 70 20 70 |n,y is t|he top p|
|00000fc0| 6f 73 69 74 69 6f 6e 2c | 6e 6f 20 69 73 20 74 68 |osition,|no is th|
|00000fd0| 65 00 3b 20 6e 75 6d 62 | 65 72 20 6f 66 20 74 69 |e.; numb|er of ti|
|00000fe0| 6d 65 73 20 74 6f 20 66 | 6c 61 73 68 2c 61 24 20 |mes to f|lash,a$ |
|00000ff0| 69 73 20 74 68 65 20 74 | 65 78 74 2c 73 70 65 65 |is the t|ext,spee|
|00001000| 64 20 69 73 20 74 68 65 | 20 44 45 4c 41 59 00 00 |d is the| DELAY..|
|00001010| 80 08 20 46 6c 61 73 68 | 54 65 78 74 7b 78 2e 77 |.. Flash|Text{x.w|
|00001020| 2c 79 2e 77 2c 6e 6f 2e | 77 2c 61 24 2c 73 70 65 |,y.w,no.|w,a$,spe|
|00001030| 65 64 2e 62 7d 00 00 80 | 16 20 61 2e 62 3d 31 20 |ed.b}...|. a.b=1 |
|00001040| 80 18 20 6e 6f 2d 31 00 | c5 1c 20 31 00 c5 10 20 |.. no-1.|.. 1... |
|00001050| 78 2c 79 3a dd 81 20 61 | 24 00 80 37 20 73 70 65 |x,y:.. a|$..7 spe|
|00001060| 65 64 00 c5 1c 20 30 00 | c5 10 20 78 2c 79 3a dd |ed... 0.|.. x,y:.|
|00001070| 81 20 61 24 00 80 37 20 | 73 70 65 65 64 00 80 17 |. a$..7 |speed...|
|00001080| 20 61 00 00 c5 1c 20 31 | 00 c5 10 20 78 2c 79 3a | a.... 1|... x,y:|
|00001090| dd 81 20 61 24 00 00 80 | 02 20 80 08 00 00 3b 20 |.. a$...|. ....; |
|000010a0| 64 65 6d 6f 20 3a 00 00 | 3b 20 46 69 6e 64 53 63 |demo :..|; FindSc|
|000010b0| 72 65 65 6e 20 30 00 3b | 20 57 69 6e 64 6f 77 20 |reen 0.;| Window |
|000010c0| 30 2c 30 2c 30 2c 36 34 | 30 2c 32 30 30 2c 24 31 |0,0,0,64|0,200,$1|
|000010d0| 34 30 66 2c 22 46 6c 61 | 73 68 54 65 78 74 20 44 |40f,"Fla|shText D|
|000010e0| 65 6d 6f 22 2c 31 2c 32 | 00 00 3b 20 46 6c 61 73 |emo",1,2|..; Flas|
|000010f0| 68 54 65 78 74 7b 31 30 | 30 2c 31 30 30 2c 31 30 |hText{10|0,100,10|
|00001100| 2c 22 48 65 6c 6c 6f 2c | 49 27 6d 20 66 6c 61 73 |,"Hello,|I'm flas|
|00001110| 68 69 6e 67 21 22 2c 32 | 7d 00 00 3b 20 45 6e 64 |hing!",2|}..; End|
|00001120| 00 00 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..;-----|--------|
|00001130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001160| 2d 2d 2d 2d 00 2e 00 2e | 46 55 4e 43 54 49 4f 4e |----....|FUNCTION|
|00001170| 53 00 2e 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |S...;---|--------|
|00001180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000011b0| 2d 2d 2d 2d 2d 2d 00 00 | 2e 57 46 42 6f 78 00 00 |------..|.WFBox..|
|000011c0| 3b 20 66 75 6e 63 74 69 | 6f 6e 20 3a 20 57 46 42 |; functi|on : WFB|
|000011d0| 6f 78 7b 7d 00 00 3b 20 | 63 6c 65 61 72 73 20 61 |ox{}..; |clears a|
|000011e0| 20 30 20 28 73 74 61 6e | 64 61 72 64 20 3a 20 67 | 0 (stan|dard : g|
|000011f0| 72 65 79 29 20 63 6f 6c | 6f 75 72 20 62 6f 78 20 |rey) col|our box |
|00001200| 6f 76 65 72 20 61 20 66 | 69 6c 6c 65 64 20 77 69 |over a f|illed wi|
|00001210| 6e 64 6f 77 2e 2e 2e 00 | 3b 20 6d 61 6b 65 20 61 |ndow....|; make a|
|00001220| 6c 6c 20 70 61 72 61 6d | 65 74 65 72 73 20 22 2d |ll param|eters "-|
|00001230| 31 22 20 28 65 78 70 65 | 72 69 6d 65 6e 74 20 77 |1" (expe|riment w|
|00001240| 69 74 68 20 6f 74 68 65 | 72 20 69 66 20 79 6f 75 |ith othe|r if you|
|00001250| 20 77 61 6e 74 2c 00 3b | 20 62 75 74 20 49 20 6e | want,.;| but I n|
|00001260| 65 76 65 72 20 67 6f 74 | 20 69 74 20 66 69 67 75 |ever got| it figu|
|00001270| 72 65 64 20 6f 75 74 29 | 2e 2e 2e 00 00 3b 20 67 |red out)|.....; g|
|00001280| 6f 6f 64 20 77 68 65 6e | 20 75 73 65 64 20 77 69 |ood when| used wi|
|00001290| 74 68 20 42 46 57 69 6e | 64 6f 77 20 7b 7d 20 2d |th BFWin|dow {} -|
|000012a0| 20 73 65 65 20 2e 42 46 | 57 69 6e 64 6f 77 2e 2e | see .BF|Window..|
|000012b0| 2e 00 00 80 09 2e 62 20 | 57 46 42 6f 78 7b 57 69 |......b |WFBox{Wi|
|000012c0| 6e 64 6f 49 44 2e 77 2c | 4c 65 66 74 53 69 64 65 |ndoID.w,|LeftSide|
|000012d0| 2e 77 2c 42 6f 78 57 69 | 64 74 68 2e 77 2c 54 6f |.w,BoxWi|dth.w,To|
|000012e0| 70 53 69 64 65 2e 77 2c | 42 6f 78 48 65 69 67 68 |pSide.w,|BoxHeigh|
|000012f0| 74 2e 77 7d 00 00 4d 61 | 6b 65 69 54 2e 62 20 3d |t.w}..Ma|keiT.b =|
|00001300| 20 bc 0f 00 00 2a 57 69 | 6e 64 6f 2e 57 69 6e 64 | ....*Wi|ndo.Wind|
|00001310| 6f 77 20 3d 20 da 02 2e | 6c 28 80 b8 20 c5 01 28 |ow = ...|l(.. ..(|
|00001320| 57 69 6e 64 6f 49 44 29 | 29 00 00 80 ca 20 2a 57 |WindoID)|).... *W|
|00001330| 69 6e 64 6f 00 3b 4c 6f | 6f 6b 20 74 6f 20 73 65 |indo.;Lo|ok to se|
|00001340| 65 20 69 66 20 6f 70 74 | 69 6f 6e 20 61 72 65 20 |e if opt|ion are |
|00001350| 6f 6e 00 4c 65 66 74 53 | 69 64 65 00 20 20 20 80 |on.LeftS|ide.   .|
|00001360| 0b 20 4c 65 66 74 53 69 | 64 65 20 3c 20 2d 31 20 |. LeftSi|de < -1 |
|00001370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 4e |        |      ;N|
|00001390| 6f 74 20 69 6e 20 55 73 | 65 00 20 20 20 20 20 20 |ot in Us|e.      |
|000013a0| 80 09 20 80 07 20 4d 61 | 6b 65 69 54 00 20 20 20 |.. .. Ma|keiT.   |
|000013b0| 80 c0 00 00 20 20 20 80 | 0b 20 4c 65 66 74 53 69 |....   .|. LeftSi|
|000013c0| 64 65 20 3d 20 2d 31 00 | 20 20 20 20 20 20 57 4c |de = -1.|      WL|
|000013d0| 65 66 74 2e 77 20 20 3d | 20 5c 42 6f 72 64 65 72 |eft.w  =| \Border|
|000013e0| 4c 65 66 74 20 2b 20 35 | 20 20 20 20 20 20 20 20 |Left + 5|        |
|000013f0| 20 20 20 20 20 20 20 20 | 20 20 3b 74 68 65 6e 20 |        |  ;then |
|00001400| 75 73 65 20 49 6e 69 74 | 20 56 61 6c 75 65 00 20 |use Init| Value. |
|00001410| 20 20 80 22 00 20 20 20 | 20 20 20 57 4c 65 66 74 |  .".   |   WLeft|
|00001420| 2e 77 20 20 3d 20 5c 42 | 6f 72 64 65 72 4c 65 66 |.w  = \B|orderLef|
|00001430| 74 20 2b 20 4c 65 66 74 | 53 69 64 65 20 20 20 20 |t + Left|Side    |
|00001440| 20 20 20 20 20 20 20 20 | 20 3b 4e 65 77 20 56 61 |        | ;New Va|
|00001450| 6c 75 65 00 20 20 20 80 | c0 00 00 20 20 20 80 0b |lue.   .|...   ..|
|00001460| 20 4c 65 66 74 53 69 64 | 65 20 3e 3d 20 20 28 20 | LeftSid|e >=  ( |
|00001470| 5c 57 69 64 74 68 20 2d | 20 5c 42 6f 72 64 65 72 |\Width -| \Border|
|00001480| 52 69 67 68 74 20 29 20 | 2d 20 31 20 20 20 3b 56 |Right ) |- 1   ;V|
|00001490| 61 6c 75 65 20 74 6f 6f | 20 68 69 67 68 3f 00 20 |alue too| high?. |
|000014a0| 20 20 20 20 20 4d 61 6b | 65 69 54 20 3d 20 bc 0f |     Mak|eiT = ..|
|000014b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000014c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|000014d0| 44 6f 20 6e 6f 74 20 64 | 6f 20 69 74 00 20 20 20 |Do not d|o it.   |
|000014e0| 20 20 20 80 09 20 80 07 | 20 4d 61 6b 65 69 54 20 |   .. ..| MakeiT |
|000014f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001500| 20 20 20 20 20 20 3b 72 | 65 74 75 72 6e 20 74 68 |      ;r|eturn th|
|00001510| 65 20 72 65 73 75 6c 74 | 00 20 20 20 80 c0 00 00 |e result|.   ....|
|00001520| 42 6f 78 57 69 64 74 68 | 00 20 20 20 80 0b 20 42 |BoxWidth|.   .. B|
|00001530| 6f 78 57 69 64 74 68 20 | 3c 20 2d 31 20 80 8a 20 |oxWidth |< -1 .. |
|00001540| 42 6f 78 57 69 64 74 68 | 20 3d 20 30 00 20 20 20 |BoxWidth| = 0.   |
|00001550| 20 20 20 80 09 20 80 07 | 20 4d 61 6b 65 69 54 00 |   .. ..| MakeiT.|
|00001560| 20 20 20 80 c0 00 00 20 | 20 20 80 0b 20 42 6f 78 |   .... |  .. Box|
|00001570| 57 69 64 74 68 20 3d 20 | 2d 31 00 20 20 20 20 20 |Width = |-1.     |
|00001580| 20 57 57 69 64 74 68 2e | 77 20 20 3d 20 28 20 5c | WWidth.|w  = ( \|
|00001590| 57 69 64 74 68 20 2d 20 | 5c 42 6f 72 64 65 72 52 |Width - |\BorderR|
|000015a0| 69 67 68 74 20 29 20 2d | 20 35 00 20 20 20 80 22 |ight ) -| 5.   ."|
|000015b0| 00 20 20 20 20 20 20 57 | 57 69 64 74 68 2e 77 20 |.      W|Width.w |
|000015c0| 20 3d 20 57 4c 65 66 74 | 20 2b 20 42 6f 78 57 69 | = WLeft| + BoxWi|
|000015d0| 64 74 68 00 20 20 20 80 | c0 00 00 20 20 20 80 0b |dth.   .|...   ..|
|000015e0| 20 57 57 69 64 74 68 20 | 3e 3d 20 5c 57 69 64 74 | WWidth |>= \Widt|
|000015f0| 68 20 2d 20 5c 42 6f 72 | 64 65 72 52 69 67 68 74 |h - \Bor|derRight|
|00001600| 00 20 20 20 20 20 20 80 | 09 20 80 07 20 4d 61 6b |.      .|. .. Mak|
|00001610| 65 69 54 00 20 20 20 80 | c0 00 00 54 6f 70 53 69 |eiT.   .|...TopSi|
|00001620| 64 65 00 20 20 20 80 0b | 20 54 6f 70 53 69 64 65 |de.   ..| TopSide|
|00001630| 20 3c 20 2d 31 00 20 20 | 20 20 20 20 80 09 20 80 | < -1.  |    .. .|
|00001640| 07 20 4d 61 6b 65 69 54 | 00 20 20 20 80 c0 00 00 |. MakeiT|.   ....|
|00001650| 20 20 20 80 0b 20 54 6f | 70 53 69 64 65 20 3d 20 |   .. To|pSide = |
|00001660| 2d 31 00 20 20 20 20 20 | 20 57 54 6f 70 2e 77 20 |-1.     | WTop.w |
|00001670| 20 3d 20 5c 42 6f 72 64 | 65 72 54 6f 70 20 2b 20 | = \Bord|erTop + |
|00001680| 35 00 20 20 20 80 22 00 | 20 20 20 20 20 20 57 54 |5.   .".|      WT|
|00001690| 6f 70 2e 77 20 20 3d 20 | 5c 42 6f 72 64 65 72 54 |op.w  = |\BorderT|
|000016a0| 6f 70 20 2b 20 54 6f 70 | 53 69 64 65 00 20 20 20 |op + Top|Side.   |
|000016b0| 80 c0 00 00 20 20 20 80 | 0b 20 54 6f 70 53 69 64 |....   .|. TopSid|
|000016c0| 65 20 3e 3d 20 20 5c 48 | 65 69 67 68 74 20 2d 20 |e >=  \H|eight - |
|000016d0| 5c 42 6f 72 64 65 72 42 | 6f 74 74 6f 6d 00 20 20 |\BorderB|ottom.  |
|000016e0| 20 20 20 20 4d 61 6b 65 | 69 54 20 3d 20 bc 0f 00 |    Make|iT = ...|
|000016f0| 20 20 20 20 20 20 80 09 | 20 80 07 20 4d 61 6b 65 |      ..| .. Make|
|00001700| 69 54 00 20 20 80 c0 00 | 00 00 42 6f 78 48 65 69 |iT.  ...|..BoxHei|
|00001710| 67 68 74 00 20 20 20 80 | 0b 20 42 6f 78 48 65 69 |ght.   .|. BoxHei|
|00001720| 67 68 74 20 3c 20 2d 31 | 20 20 80 8a 20 42 6f 78 |ght < -1|  .. Box|
|00001730| 48 65 69 67 68 74 20 3d | 20 30 00 20 20 20 20 20 |Height =| 0.     |
|00001740| 20 80 09 20 80 07 20 4d | 61 6b 65 69 54 00 20 20 | .. .. M|akeiT.  |
|00001750| 20 80 c0 00 00 20 20 20 | 80 0b 20 42 6f 78 48 65 | ....   |.. BoxHe|
|00001760| 69 67 68 74 20 3d 20 2d | 31 00 20 20 20 20 20 20 |ight = -|1.      |
|00001770| 57 48 65 69 67 68 74 2e | 77 20 3d 20 28 20 5c 48 |WHeight.|w = ( \H|
|00001780| 65 69 67 68 74 20 2d 20 | 5c 42 6f 72 64 65 72 42 |eight - |\BorderB|
|00001790| 6f 74 74 6f 6d 20 29 20 | 2d 20 32 35 00 20 20 20 |ottom ) |- 25.   |
|000017a0| 80 22 00 20 20 20 20 20 | 20 57 48 65 69 67 68 74 |.".     | WHeight|
|000017b0| 2e 77 20 3d 20 57 54 6f | 70 20 2b 20 42 6f 78 48 |.w = WTo|p + BoxH|
|000017c0| 65 69 67 68 74 00 20 20 | 20 80 c0 00 00 20 20 20 |eight.  | ....   |
|000017d0| 80 0b 20 57 48 65 69 67 | 68 74 2e 77 20 3e 3d 20 |.. WHeig|ht.w >= |
|000017e0| 5c 48 65 69 67 68 74 20 | 2d 20 5c 42 6f 72 64 65 |\Height |- \Borde|
|000017f0| 72 42 6f 74 74 6f 6d 00 | 20 20 20 20 20 20 4d 61 |rBottom.|      Ma|
|00001800| 6b 65 69 54 20 3d 20 bc | 0f 00 20 20 20 20 20 20 |keiT = .|..      |
|00001810| 80 09 20 80 07 20 4d 61 | 6b 65 69 54 00 20 20 20 |.. .. Ma|keiT.   |
|00001820| 80 c0 00 00 44 72 61 77 | 5f 54 68 65 5f 42 6f 78 |....Draw|_The_Box|
|00001830| 00 20 20 20 ff 35 20 5c | 52 50 6f 72 74 2c 30 00 |.   .5 \|RPort,0.|
|00001840| 20 20 20 ff 30 20 5c 52 | 50 6f 72 74 2c 30 2c 57 |   .0 \R|Port,0,W|
|00001850| 4c 65 66 74 2c 57 54 6f | 70 2c 57 57 69 64 74 68 |Left,WTo|p,WWidth|
|00001860| 2c 57 48 65 69 67 68 74 | 2c 30 00 20 20 20 ff 35 |,WHeight|,0.   .5|
|00001870| 20 5c 52 50 6f 72 74 2c | 31 00 20 20 20 ff 24 20 | \RPort,|1.   .$ |
|00001880| 5c 52 50 6f 72 74 2c 57 | 4c 65 66 74 2c 57 48 65 |\RPort,W|Left,WHe|
|00001890| 69 67 68 74 00 20 20 20 | ff 25 20 5c 52 50 6f 72 |ight.   |.% \RPor|
|000018a0| 74 2c 57 4c 65 66 74 2c | 57 54 6f 70 00 20 20 20 |t,WLeft,|WTop.   |
|000018b0| ff 25 20 5c 52 50 6f 72 | 74 2c 57 57 69 64 74 68 |.% \RPor|t,WWidth|
|000018c0| 2c 57 54 6f 70 00 20 20 | 20 ff 35 20 5c 52 50 6f |,WTop.  | .5 \RPo|
|000018d0| 72 74 2c 32 00 20 20 20 | ff 25 20 5c 52 50 6f 72 |rt,2.   |.% \RPor|
|000018e0| 74 2c 57 57 69 64 74 68 | 2c 57 48 65 69 67 68 74 |t,WWidth|,WHeight|
|000018f0| 00 20 20 20 ff 25 20 5c | 52 50 6f 72 74 2c 57 4c |.   .% \|RPort,WL|
|00001900| 65 66 74 2c 57 48 65 69 | 67 68 74 00 20 20 20 4d |eft,WHei|ght.   M|
|00001910| 61 6b 65 69 54 20 3d 20 | bc 0e 00 00 80 09 20 80 |akeiT = |...... .|
|00001920| 07 20 4d 61 6b 65 69 54 | 00 80 02 20 80 09 00 00 |. MakeiT|... ....|
|00001930| 3b 20 64 65 6d 6f 20 3a | 00 00 3b 20 46 69 6e 64 |; demo :|..; Find|
|00001940| 53 63 72 65 65 6e 20 30 | 00 3b 20 57 69 6e 64 6f |Screen 0|.; Windo|
|00001950| 77 20 30 2c 30 2c 30 2c | 36 34 30 2c 32 30 30 2c |w 0,0,0,|640,200,|
|00001960| 24 31 34 30 65 2c 22 22 | 2c 31 2c 32 00 00 3b 20 |$140e,""|,1,2..; |
|00001970| 53 65 74 52 61 73 74 5f | 20 52 61 73 74 50 6f 72 |SetRast_| RastPor|
|00001980| 74 28 30 29 2c 32 00 3b | 20 3b 57 43 6c 73 20 32 |t(0),2.;| ;WCls 2|
|00001990| 00 00 3b 20 20 3b 20 52 | 65 70 6c 61 63 65 20 74 |..;  ; R|eplace t|
|000019a0| 68 65 20 53 65 74 52 61 | 73 74 5f 20 6c 69 6e 65 |he SetRa|st_ line|
|000019b0| 20 77 69 74 68 20 22 57 | 43 6c 73 20 32 22 20 74 | with "W|Cls 2" t|
|000019c0| 6f 20 73 65 65 00 3b 20 | 20 3b 20 74 68 65 20 62 |o see.; | ; the b|
|000019d0| 75 67 20 69 6e 20 57 43 | 6c 73 21 4c 6f 6f 6b 20 |ug in WC|ls!Look |
|000019e0| 61 74 20 74 68 65 20 74 | 6f 70 20 6c 69 6e 65 20 |at the t|op line |
|000019f0| 6f 66 20 74 68 65 20 77 | 69 6e 64 6f 77 2e 2e 2e |of the w|indow...|
|00001a00| 00 3b 20 20 3b 20 2e 2e | 2e 69 74 27 73 20 73 74 |.;  ; ..|.it's st|
|00001a10| 69 6c 6c 20 67 72 65 79 | 21 00 00 3b 20 61 2e 62 |ill grey|!..; a.b|
|00001a20| 3d 57 46 42 6f 78 7b 30 | 2c 2d 31 2c 2d 31 2c 2d |=WFBox{0|,-1,-1,-|
|00001a30| 31 2c 2d 31 7d 20 3b 20 | 61 20 69 73 20 46 61 6c |1,-1} ; |a is Fal|
|00001a40| 73 65 20 69 66 20 69 74 | 27 73 20 66 61 69 6c 65 |se if it|'s faile|
|00001a50| 64 2e 2e 2e 00 00 3b 20 | 20 3b 20 49 20 64 6f 6e |d.....; | ; I don|
|00001a60| 27 74 20 75 6e 64 65 72 | 73 74 61 6e 64 20 74 68 |'t under|stand th|
|00001a70| 65 20 70 61 72 61 6d 65 | 74 65 72 73 2c 62 75 74 |e parame|ters,but|
|00001a80| 20 2d 31 20 66 6f 72 20 | 61 6c 6c 20 69 73 20 6e | -1 for |all is n|
|00001a90| 69 63 65 21 00 00 3b 20 | 4d 6f 75 73 65 57 61 69 |ice!..; |MouseWai|
|00001aa0| 74 3a 45 6e 64 00 00 3b | 2d 2d 2d 2d 2d 2d 2d 2d |t:End..;|--------|
|00001ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 00 00 2e 53 74 72 69 70 |--------|...Strip|
|00001af0| 46 69 6c 65 00 00 3b 20 | 66 75 6e 63 74 69 6f 6e |File..; |function|
|00001b00| 20 3a 20 53 74 72 69 70 | 46 69 6c 65 7b 7d 00 00 | : Strip|File{}..|
|00001b10| 3b 20 72 65 74 75 72 6e | 73 20 74 68 65 20 66 69 |; return|s the fi|
|00001b20| 6c 65 20 70 61 72 74 20 | 6f 66 20 61 20 70 61 74 |le part |of a pat|
|00001b30| 68 20 26 20 66 69 6c 65 | 20 73 74 72 69 6e 67 2c |h & file| string,|
|00001b40| 65 67 20 66 72 6f 6d 20 | 61 00 3b 20 72 65 71 74 |eg from |a.; reqt|
|00001b50| 6f 6f 6c 73 20 66 69 6c | 65 20 72 65 71 75 65 73 |ools fil|e reques|
|00001b60| 74 65 72 20 6f 72 20 61 | 6e 20 61 70 70 69 63 6f |ter or a|n appico|
|00001b70| 6e 2e 2e 2e 00 00 80 09 | 24 20 53 74 72 69 70 46 |n.......|$ StripF|
|00001b80| 69 6c 65 7b 70 24 7d 00 | 00 2a 66 69 6c 65 70 74 |ile{p$}.|.*filept|
|00001b90| 72 2e 6c 20 3d 20 fc 89 | 28 26 70 24 29 00 66 24 |r.l = ..|(&p$).f$|
|00001ba0| 3d da 02 24 28 2a 66 69 | 6c 65 70 74 72 29 00 00 |=..$(*fi|leptr)..|
|00001bb0| 80 09 20 80 07 20 66 24 | 00 80 02 20 80 09 00 00 |.. .. f$|... ....|
|00001bc0| 3b 20 64 65 6d 6f 20 3a | 00 00 3b 20 4d 61 78 4c |; demo :|..; MaxL|
|00001bd0| 65 6e 20 66 24 3d 31 39 | 32 20 3b 20 6e 65 65 64 |en f$=19|2 ; need|
|00001be0| 65 64 20 66 6f 72 20 52 | 54 45 5a 4c 6f 61 64 46 |ed for R|TEZLoadF|
|00001bf0| 69 6c 65 00 3b 20 46 69 | 6e 64 53 63 72 65 65 6e |ile.; Fi|ndScreen|
|00001c00| 20 30 20 20 3b 20 73 61 | 6d 65 20 68 65 72 65 00 | 0  ; sa|me here.|
|00001c10| 00 3b 20 61 24 3d 52 54 | 45 5a 4c 6f 61 64 46 69 |.; a$=RT|EZLoadFi|
|00001c20| 6c 65 28 22 53 65 6c 65 | 63 74 20 66 69 6c 65 22 |le("Sele|ct file"|
|00001c30| 2c 66 24 29 00 3b 20 49 | 66 20 61 24 3d 22 22 20 |,f$).; I|f a$="" |
|00001c40| 54 68 65 6e 20 45 6e 64 | 00 00 3b 20 52 65 71 75 |Then End|..; Requ|
|00001c50| 65 73 74 20 22 22 2c 22 | 54 68 65 20 66 69 6c 65 |est "","|The file|
|00001c60| 20 70 61 72 74 20 6f 66 | 20 22 2b 61 24 2b 22 7c | part of| "+a$+"||
|00001c70| 69 73 20 3a 20 22 2b 53 | 74 72 69 70 46 69 6c 65 |is : "+S|tripFile|
|00001c80| 7b 61 24 7d 2c 22 4f 4b | 22 00 3b 20 45 6e 64 00 |{a$},"OK|".; End.|
|00001c90| 00 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00001ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001cd0| 2d 2d 2d 00 00 2e 4c 6f | 63 6b 52 65 71 00 00 3b |---...Lo|ckReq..;|
|00001ce0| 20 66 75 6e 63 74 69 6f | 6e 20 3a 20 4c 6f 63 6b | functio|n : Lock|
|00001cf0| 52 65 71 7b 7d 00 00 3b | 20 6c 6f 63 6b 73 20 63 |Req{}..;| locks c|
|00001d00| 61 6c 6c 69 6e 67 20 77 | 69 6e 64 6f 77 2c 70 75 |alling w|indow,pu|
|00001d10| 74 73 20 75 70 20 72 65 | 71 75 65 73 74 65 72 20 |ts up re|quester |
|00001d20| 2d 20 73 74 61 6e 64 61 | 72 64 20 52 65 71 75 65 |- standa|rd Reque|
|00001d30| 73 74 00 3b 20 28 72 65 | 71 74 79 70 65 3d 30 29 |st.; (re|qtype=0)|
|00001d40| 20 6f 72 20 52 54 45 5a | 52 65 71 75 65 73 74 20 | or RTEZ|Request |
|00001d50| 28 72 65 71 74 79 70 65 | 3d 31 29 00 00 3b 20 52 |(reqtype|=1)..; R|
|00001d60| 54 45 5a 52 65 71 75 65 | 73 74 20 64 6f 65 73 20 |TEZReque|st does |
|00001d70| 6c 6f 63 6b 20 74 68 65 | 20 77 69 6e 64 6f 77 20 |lock the| window |
|00001d80| 6e 6f 72 6d 61 6c 6c 79 | 2c 62 75 74 20 69 66 20 |normally|,but if |
|00001d90| 74 68 65 20 77 69 6e 64 | 6f 77 00 3b 20 69 73 20 |the wind|ow.; is |
|00001da0| 63 6c 6f 73 65 64 20 64 | 75 72 69 6e 67 20 74 68 |closed d|uring th|
|00001db0| 65 20 70 72 6f 67 72 61 | 6d 2c 74 68 65 6e 20 72 |e progra|m,then r|
|00001dc0| 65 2d 6f 70 65 6e 65 64 | 2c 73 6f 6d 65 74 69 6d |e-opened|,sometim|
|00001dd0| 65 73 20 74 68 65 00 3b | 20 72 65 71 75 65 73 74 |es the.;| request|
|00001de0| 65 72 73 20 66 61 69 6c | 20 74 6f 20 6c 6f 63 6b |ers fail| to lock|
|00001df0| 21 20 68 65 6e 63 65 20 | 74 68 69 73 20 66 75 6e |! hence |this fun|
|00001e00| 63 74 69 6f 6e 20 3b 29 | 00 00 3b 20 6f 66 20 63 |ction ;)|..; of c|
|00001e10| 6f 75 72 73 65 2c 79 6f | 75 20 6e 65 65 64 20 74 |ourse,yo|u need t|
|00001e20| 6f 20 68 61 76 65 20 61 | 20 73 63 72 65 65 6e 20 |o have a| screen |
|00001e30| 69 6e 20 75 73 65 20 74 | 6f 20 63 61 6c 6c 20 65 |in use t|o call e|
|00001e40| 69 74 68 65 72 00 3b 20 | 52 65 71 75 65 73 74 20 |ither.; |Request |
|00001e50| 6f 72 20 52 54 45 5a 52 | 65 71 75 65 73 74 2e 2e |or RTEZR|equest..|
|00001e60| 2e 00 00 3b 20 74 6c 24 | 3d 74 69 74 6c 65 00 3b |...; tl$|=title.;|
|00001e70| 20 72 71 24 3d 62 6f 64 | 79 20 74 65 78 74 00 3b | rq$=bod|y text.;|
|00001e80| 20 67 64 24 3d 67 61 64 | 67 65 74 20 74 65 78 74 | gd$=gad|get text|
|00001e90| 20 28 61 73 20 6e 6f 72 | 6d 61 6c 20 2d 20 73 65 | (as nor|mal - se|
|00001ea0| 70 61 72 61 74 65 20 6d | 6f 72 65 20 74 68 61 6e |parate m|ore than|
|00001eb0| 20 6f 6e 65 20 67 61 64 | 67 65 74 00 3b 20 20 20 | one gad|get.;   |
|00001ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 77 |        |       w|
|00001ed0| 69 74 68 20 22 7c 22 2c | 65 67 20 22 4f 4b 7c 43 |ith "|",|eg "OK|C|
|00001ee0| 61 6e 63 65 6c 22 20 29 | 00 3b 20 72 65 71 74 79 |ancel" )|.; reqty|
|00001ef0| 70 65 3d 30 20 66 6f 72 | 20 52 65 71 75 65 73 74 |pe=0 for| Request|
|00001f00| 2c 31 20 66 6f 72 20 52 | 54 45 5a 52 65 71 75 65 |,1 for R|TEZReque|
|00001f10| 73 74 00 00 80 09 2e 6c | 20 4c 6f 63 6b 52 65 71 |st.....l| LockReq|
|00001f20| 7b 74 6c 24 2c 72 71 24 | 2c 67 64 24 2c 72 65 71 |{tl$,rq$|,gd$,req|
|00001f30| 74 79 70 65 2e 62 7d 00 | 00 6c 6f 63 6b 2e 6c 3d |type.b}.|.lock.l=|
|00001f40| 9b 0c 20 28 80 d1 20 c5 | 01 29 00 00 80 0b 20 72 |.. (.. .|.).... r|
|00001f50| 65 71 74 79 70 65 00 20 | 20 72 74 72 71 2e 6c 3d |eqtype. | rtrq.l=|
|00001f60| 9b 01 20 28 74 6c 24 2c | dc 8a 28 72 71 24 2c 22 |.. (tl$,|..(rq$,"|
|00001f70| 7c 22 2c dc 86 28 31 30 | 29 29 2c 67 64 24 29 00 ||",..(10|)),gd$).|
|00001f80| 80 22 20 72 74 72 71 2e | 6c 3d b5 8d 20 28 74 6c |." rtrq.|l=.. (tl|
|00001f90| 24 2c 72 71 24 2c 67 64 | 24 29 00 80 c0 00 00 80 |$,rq$,gd|$)......|
|00001fa0| 0b 20 6c 6f 63 6b 00 20 | 20 9b 0d 20 80 d1 20 c5 |. lock. | .. .. .|
|00001fb0| 01 2c 6c 6f 63 6b 00 80 | c0 00 00 80 09 20 80 07 |.,lock..|..... ..|
|00001fc0| 20 72 74 72 71 00 80 02 | 20 80 09 00 00 3b 20 64 | rtrq...| ....; d|
|00001fd0| 65 6d 6f 3a 00 00 3b 20 | 57 42 65 6e 63 68 54 6f |emo:..; |WBenchTo|
|00001fe0| 46 72 6f 6e 74 5f 3a 46 | 69 6e 64 53 63 72 65 65 |Front_:F|indScree|
|00001ff0| 6e 20 30 00 3b 20 57 69 | 6e 64 6f 77 20 30 2c 30 |n 0.; Wi|ndow 0,0|
|00002000| 2c 30 2c 36 34 30 2c 32 | 30 30 2c 24 31 34 30 66 |,0,640,2|00,$140f|
|00002010| 2c 22 4c 6f 63 6b 52 65 | 71 20 44 65 6d 6f 20 2d |,"LockRe|q Demo -|
|00002020| 20 74 68 69 73 20 77 69 | 6e 64 6f 77 20 69 73 20 | this wi|ndow is |
|00002030| 6c 6f 63 6b 65 64 21 22 | 2c 31 2c 32 00 3b 20 43 |locked!"|,1,2.; C|
|00002040| 61 74 63 68 44 6f 73 45 | 72 72 73 00 3b 20 72 74 |atchDosE|rrs.; rt|
|00002050| 2e 6c 3d 4c 6f 63 6b 52 | 65 71 7b 22 54 69 74 6c |.l=LockR|eq{"Titl|
|00002060| 65 22 2c 22 42 6f 64 79 | 20 74 65 78 74 22 2c 22 |e","Body| text","|
|00002070| 4f 4b 7c 51 75 69 74 7c | 43 61 6e 63 65 6c 22 2c |OK|Quit||Cancel",|
|00002080| 31 7d 00 3b 20 50 72 69 | 6e 74 20 22 47 61 64 67 |1}.; Pri|nt "Gadg|
|00002090| 65 74 20 70 72 65 73 73 | 65 64 20 3a 20 22 2c 72 |et press|ed : ",r|
|000020a0| 74 00 3b 20 4d 6f 75 73 | 65 57 61 69 74 3a 45 6e |t.; Mous|eWait:En|
|000020b0| 64 00 00 3b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d..;----|--------|
|000020c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000020f0| 2d 2d 2d 2d 2d 00 00 2e | 47 54 47 65 74 53 74 72 |-----...|GTGetStr|
|00002100| 00 00 3b 20 66 75 6e 63 | 74 69 6f 6e 20 3a 20 47 |..; func|tion : G|
|00002110| 54 47 65 74 53 74 72 7b | 7d 00 00 3b 20 75 73 65 |TGetStr{|}..; use|
|00002120| 20 74 68 69 73 20 74 6f | 20 67 65 74 20 74 68 65 | this to| get the|
|00002130| 20 63 6f 6e 74 65 6e 74 | 73 20 6f 66 20 61 20 73 | content|s of a s|
|00002140| 74 72 69 6e 67 20 67 61 | 64 67 65 74 20 2d 20 77 |tring ga|dget - w|
|00002150| 6f 72 6b 73 00 3b 20 6f | 6e 20 57 42 73 20 3c 20 |orks.; o|n WBs < |
|00002160| 33 2e 30 20 74 6f 6f 21 | 00 00 80 09 2e 73 20 47 |3.0 too!|.....s G|
|00002170| 54 47 65 74 53 74 72 7b | 6c 73 74 2e 77 2c 20 67 |TGetStr{|lst.w, g|
|00002180| 64 74 2e 77 7d 00 00 20 | 20 2a 67 61 64 2e 47 61 |dt.w}.. | *gad.Ga|
|00002190| 64 67 65 74 20 3d 20 c6 | 90 28 6c 73 74 2c 20 67 |dget = .|.(lst, g|
|000021a0| 64 74 29 00 20 20 2a 73 | 69 2e 53 74 72 69 6e 67 |dt).  *s|i.String|
|000021b0| 49 6e 66 6f 20 3d 20 2a | 67 61 64 5c 53 70 65 63 |Info = *|gad\Spec|
|000021c0| 69 61 6c 49 6e 66 6f 00 | 20 20 61 24 3d 20 da 02 |ialInfo.|  a$= ..|
|000021d0| 24 28 2a 73 69 5c 5f 42 | 75 66 66 65 72 29 00 20 |$(*si\_B|uffer). |
|000021e0| 20 80 09 20 80 07 20 61 | 24 00 80 02 20 80 09 00 | .. .. a|$... ...|
|000021f0| 00 3b 20 64 65 6d 6f 20 | 3a 00 00 3b 20 46 69 6e |.; demo |:..; Fin|
|00002200| 64 53 63 72 65 65 6e 20 | 30 00 3b 20 57 69 6e 64 |dScreen |0.; Wind|
|00002210| 6f 77 20 30 2c 30 2c 30 | 2c 31 38 30 2c 36 30 2c |ow 0,0,0|,180,60,|
|00002220| 24 31 34 30 61 2c 22 3c | 2d 20 43 6c 69 63 6b 20 |$140a,"<|- Click |
|00002230| 74 6f 20 45 6e 64 22 2c | 31 2c 32 00 3b 20 47 54 |to End",|1,2.; GT|
|00002240| 53 74 72 69 6e 67 20 30 | 2c 35 31 2c 33 35 2d 57 |String 0|,51,35-W|
|00002250| 4c 65 66 74 4f 66 66 2c | 35 2d 57 54 6f 70 4f 66 |LeftOff,|5-WTopOf|
|00002260| 66 2c 31 30 30 2c 32 30 | 2c 22 2e 2e 2e 61 6e 64 |f,100,20|,"...and|
|00002270| 20 70 72 65 73 73 20 45 | 6e 74 65 72 21 22 2c 24 | press E|nter!",$|
|00002280| 38 2c 35 30 00 3b 20 41 | 74 74 61 63 68 47 54 4c |8,50.; A|ttachGTL|
|00002290| 69 73 74 20 30 2c 30 00 | 00 3b 20 47 54 53 65 74 |ist 0,0.|.; GTSet|
|000022a0| 53 74 72 69 6e 67 20 30 | 2c 35 31 2c 22 54 79 70 |String 0|,51,"Typ|
|000022b0| 65 20 68 65 72 65 21 22 | 00 00 3b 20 6c 6f 6f 70 |e here!"|..; loop|
|000022c0| 00 00 3b 20 53 65 6c 65 | 63 74 20 57 61 69 74 45 |..; Sele|ct WaitE|
|000022d0| 76 65 6e 74 00 3b 20 20 | 20 43 61 73 65 20 24 32 |vent.;  | Case $2|
|000022e0| 30 30 00 3b 20 20 20 20 | 20 45 6e 64 00 3b 20 20 |00.;    | End.;  |
|000022f0| 20 43 61 73 65 20 24 34 | 30 00 3b 20 20 20 20 20 | Case $4|0.;     |
|00002300| 72 24 3d 47 54 47 65 74 | 53 74 72 7b 30 2c 35 31 |r$=GTGet|Str{0,51|
|00002310| 7d 00 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |}.;     |        |
|00002320| 20 20 5e 20 5e 00 3b 20 | 20 20 20 20 20 20 20 20 |  ^ ^.; |        |
|00002330| 20 20 20 20 20 20 7c 20 | 7c 00 3b 20 20 20 20 20 |      | ||.;     |
|00002340| 20 20 20 20 20 20 20 20 | 20 20 7c 20 6c 20 67 61 |        |  | l ga|
|00002350| 64 67 65 74 20 6e 75 6d | 62 65 72 00 3b 20 20 20 |dget num|ber.;   |
|00002360| 20 20 20 20 20 20 20 20 | 20 20 20 20 7c 00 3b 20 |        |    |.; |
|00002370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 20 |        |      l |
|00002380| 67 61 64 67 65 74 20 4c | 69 73 74 00 00 3b 20 20 |gadget L|ist..;  |
|00002390| 20 20 20 52 65 71 75 65 | 73 74 20 22 49 6e 66 6f |   Reque|st "Info|
|000023a0| 22 2c 22 54 68 65 20 67 | 61 64 67 65 74 20 73 61 |","The g|adget sa|
|000023b0| 79 73 20 3a 20 22 2b 72 | 24 2c 22 4f 4b 22 00 3b |ys : "+r|$,"OK".;|
|000023c0| 20 45 6e 64 20 53 65 6c | 65 63 74 00 00 3b 20 47 | End Sel|ect..; G|
|000023d0| 6f 74 6f 20 6c 6f 6f 70 | 00 00 3b 2d 2d 2d 2d 2d |oto loop|..;-----|
|000023e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002400| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 00 00 2e 47 |--------|----...G|
|00002420| 54 47 65 74 49 6e 74 00 | 00 3b 20 66 75 6e 63 74 |TGetInt.|.; funct|
|00002430| 69 6f 6e 20 3a 20 47 54 | 47 65 74 49 6e 74 7b 7d |ion : GT|GetInt{}|
|00002440| 00 00 3b 20 3b 20 75 73 | 65 20 74 68 69 73 20 74 |..; ; us|e this t|
|00002450| 6f 20 67 65 74 20 74 68 | 65 20 63 6f 6e 74 65 6e |o get th|e conten|
|00002460| 74 73 20 6f 66 20 61 6e | 20 69 6e 74 65 67 65 72 |ts of an| integer|
|00002470| 20 67 61 64 67 65 74 20 | 2d 20 77 6f 72 6b 73 00 | gadget |- works.|
|00002480| 3b 20 6f 6e 20 57 42 73 | 20 3c 20 33 2e 30 20 74 |; on WBs| < 3.0 t|
|00002490| 6f 6f 21 00 00 80 09 2e | 6c 20 47 54 47 65 74 49 |oo!.....|l GTGetI|
|000024a0| 6e 74 7b 6c 73 74 2e 77 | 2c 20 67 64 74 2e 77 7d |nt{lst.w|, gdt.w}|
|000024b0| 00 20 20 2a 67 61 64 2e | 47 61 64 67 65 74 20 3d |.  *gad.|Gadget =|
|000024c0| 20 c6 90 28 6c 73 74 2c | 20 67 64 74 29 00 20 20 | ..(lst,| gdt).  |
|000024d0| 2a 73 69 2e 53 74 72 69 | 6e 67 49 6e 66 6f 20 3d |*si.Stri|ngInfo =|
|000024e0| 20 2a 67 61 64 5c 53 70 | 65 63 69 61 6c 49 6e 66 | *gad\Sp|ecialInf|
|000024f0| 6f 00 20 20 61 2e 6c 20 | 3d 20 2a 73 69 5c 4c 6f |o.  a.l |= *si\Lo|
|00002500| 6e 67 49 6e 74 00 20 20 | 80 09 20 80 07 20 61 00 |ngInt.  |.. .. a.|
|00002510| 80 02 20 80 09 00 00 3b | 20 64 65 6d 6f 20 3a 00 |.. ....;| demo :.|
|00002520| 00 3b 20 46 69 6e 64 53 | 63 72 65 65 6e 20 30 00 |.; FindS|creen 0.|
|00002530| 3b 20 57 69 6e 64 6f 77 | 20 30 2c 30 2c 30 2c 31 |; Window| 0,0,0,1|
|00002540| 38 30 2c 36 30 2c 24 31 | 34 30 61 2c 22 3c 2d 20 |80,60,$1|40a,"<- |
|00002550| 43 6c 69 63 6b 20 74 6f | 20 45 6e 64 22 2c 31 2c |Click to| End",1,|
|00002560| 32 00 3b 20 47 54 49 6e | 74 65 67 65 72 20 30 2c |2.; GTIn|teger 0,|
|00002570| 35 31 2c 35 30 2d 57 4c | 65 66 74 4f 66 66 2c 32 |51,50-WL|eftOff,2|
|00002580| 30 2d 57 54 6f 70 4f 66 | 66 2c 37 30 2c 32 30 2c |0-WTopOf|f,70,20,|
|00002590| 22 45 6e 74 65 72 20 61 | 20 6e 75 6d 62 65 72 20 |"Enter a| number |
|000025a0| 3a 22 2c 24 34 2c 30 00 | 3b 20 41 74 74 61 63 68 |:",$4,0.|; Attach|
|000025b0| 47 54 4c 69 73 74 20 30 | 2c 30 00 00 3b 20 6c 6f |GTList 0|,0..; lo|
|000025c0| 6f 70 00 00 3b 20 53 65 | 6c 65 63 74 20 57 61 69 |op..; Se|lect Wai|
|000025d0| 74 45 76 65 6e 74 00 3b | 20 20 20 43 61 73 65 20 |tEvent.;|   Case |
|000025e0| 24 32 30 30 00 3b 20 20 | 20 20 20 45 6e 64 00 3b |$200.;  |   End.;|
|000025f0| 20 20 20 43 61 73 65 20 | 24 34 30 00 3b 20 20 20 |   Case |$40.;   |
|00002600| 20 20 6e 75 6d 62 65 72 | 2e 6c 3d 47 54 47 65 74 |  number|.l=GTGet|
|00002610| 49 6e 74 7b 30 2c 35 31 | 7d 00 3b 20 20 20 20 20 |Int{0,51|}.;     |
|00002620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002630| 20 20 5e 20 5e 00 3b 20 | 20 20 20 20 20 20 20 20 |  ^ ^.; |        |
|00002640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 7c 20 |        |      | |
|00002650| 7c 00 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 ||.;     |        |
|00002660| 20 20 20 20 20 20 20 20 | 20 20 7c 20 6c 20 67 61 |        |  | l ga|
|00002670| 64 67 65 74 20 6e 75 6d | 62 65 72 00 3b 20 20 20 |dget num|ber.;   |
|00002680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002690| 20 20 20 20 7c 00 3b 20 | 20 20 20 20 20 20 20 20 |    |.; |        |
|000026a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6c 20 |        |      l |
|000026b0| 67 61 64 67 65 74 20 6c | 69 73 74 00 00 3b 20 20 |gadget l|ist..;  |
|000026c0| 20 20 20 52 65 71 75 65 | 73 74 20 22 49 6e 66 6f |   Reque|st "Info|
|000026d0| 22 2c 22 54 68 65 20 67 | 61 64 67 65 74 20 73 61 |","The g|adget sa|
|000026e0| 79 73 20 3a 20 22 2b 53 | 74 72 24 28 6e 75 6d 62 |ys : "+S|tr$(numb|
|000026f0| 65 72 29 2c 22 4f 4b 22 | 00 3b 20 45 6e 64 20 53 |er),"OK"|.; End S|
|00002700| 65 6c 65 63 74 00 00 3b | 20 47 6f 74 6f 20 6c 6f |elect..;| Goto lo|
|00002710| 6f 70 00 00 3b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |op..;---|--------|
|00002720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002750| 2d 2d 2d 2d 2d 2d 00 00 | 2e 50 72 6f 67 44 69 72 |------..|.ProgDir|
|00002760| 00 00 3b 20 66 75 6e 63 | 74 69 6f 6e 20 3a 20 50 |..; func|tion : P|
|00002770| 72 6f 67 44 69 72 7b 7d | 00 00 3b 20 72 65 74 75 |rogDir{}|..; retu|
|00002780| 72 6e 73 20 61 20 73 74 | 72 69 6e 67 20 77 69 74 |rns a st|ring wit|
|00002790| 68 20 74 68 65 20 70 72 | 6f 67 72 61 6d 27 73 20 |h the pr|ogram's |
|000027a0| 64 69 72 65 63 74 6f 72 | 79 2e 00 00 3b 20 49 4d |director|y...; IM|
|000027b0| 50 4f 52 54 41 4e 54 21 | 20 4f 6e 6c 79 20 77 6f |PORTANT!| Only wo|
|000027c0| 72 6b 73 20 77 69 74 68 | 20 63 6f 6d 70 69 6c 65 |rks with| compile|
|000027d0| 64 20 65 78 65 63 75 74 | 61 62 6c 65 73 2c 61 73 |d execut|ables,as|
|000027e0| 00 3b 20 43 6f 6d 70 69 | 6c 69 6e 67 20 26 20 52 |.; Compi|ling & R|
|000027f0| 75 6e 6e 69 6e 67 20 64 | 6f 65 73 6e 27 74 20 75 |unning d|oesn't u|
|00002800| 73 65 20 61 20 64 69 72 | 65 63 74 6f 72 79 20 28 |se a dir|ectory (|
|00002810| 6f 62 76 69 6f 75 73 6c | 79 20 3b 29 00 00 3b 20 |obviousl|y ;)..; |
|00002820| 6f 6e 6c 79 20 77 6f 72 | 6b 20 77 69 74 68 20 43 |only wor|k with C|
|00002830| 4c 49 2d 72 75 6e 20 70 | 72 6f 67 72 61 6d 73 20 |LI-run p|rograms |
|00002840| 3a 28 00 00 80 09 24 20 | 50 72 6f 67 44 69 72 7b |:(....$ |ProgDir{|
|00002850| 7d 00 00 6c 6f 6b 2e 6c | 3d fe 5d 28 29 00 00 80 |}..lok.l|=.]()...|
|00002860| 0b 20 6c 6f 6b 00 20 20 | 2a 73 74 72 69 6e 67 62 |. lok.  |*stringb|
|00002870| 75 66 66 65 72 20 3d 20 | fe 97 28 32 35 35 2c 20 |uffer = |..(255, |
|00002880| 30 29 00 20 20 6e 2e 6c | 3d fe 3d 20 28 6c 6f 6b |0).  n.l|=.= (lok|
|00002890| 2c 20 2a 73 74 72 69 6e | 67 62 75 66 66 65 72 2c |, *strin|gbuffer,|
|000028a0| 20 32 35 35 29 00 00 80 | 0b 20 6e 00 20 20 6c 6f | 255)...|. n.  lo|
|000028b0| 63 6b 6e 61 6d 65 24 20 | 3d 20 da 02 24 28 2a 73 |ckname$ |= ..$(*s|
|000028c0| 74 72 69 6e 67 62 75 66 | 66 65 72 29 00 20 20 80 |tringbuf|fer).  .|
|000028d0| 09 20 80 07 20 6c 6f 63 | 6b 6e 61 6d 65 24 00 20 |. .. loc|kname$. |
|000028e0| 20 80 22 20 b5 8d 20 22 | 49 6e 66 6f 22 2c 22 43 | ." .. "|Info","C|
|000028f0| 6f 75 6c 64 6e 27 74 20 | 67 65 74 20 64 69 72 65 |ouldn't |get dire|
|00002900| 63 74 6f 72 79 20 6e 61 | 6d 65 21 22 2c 22 4f 68 |ctory na|me!","Oh|
|00002910| 2e 2e 2e 22 00 80 c0 00 | 00 fe 0b 28 6c 6f 6b 29 |..."....|...(lok)|
|00002920| 00 00 20 20 80 22 20 b5 | 8d 20 22 49 6e 66 6f 22 |..  ." .|. "Info"|
|00002930| 2c 22 45 72 72 6f 72 20 | 6c 6f 63 6b 69 6e 67 20 |,"Error |locking |
|00002940| 64 69 72 65 63 74 6f 72 | 79 21 22 2c 22 4f 68 2e |director|y!","Oh.|
|00002950| 2e 2e 22 00 80 c0 00 00 | 80 02 20 80 09 00 00 3b |..".....|.. ....;|
|00002960| 20 64 65 6d 6f 20 3a 00 | 00 3b 20 61 24 3d 50 72 | demo :.|.; a$=Pr|
|00002970| 6f 67 44 69 72 7b 7d 00 | 00 3b 20 50 72 69 6e 74 |ogDir{}.|.; Print|
|00002980| 20 61 24 00 3b 20 4d 6f | 75 73 65 57 61 69 74 3a | a$.; Mo|useWait:|
|00002990| 45 6e 64 00 00 3b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |End..;--|--------|
|000029a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029d0| 2d 2d 2d 2d 2d 2d 2d 00 | 00 2e 43 75 72 72 65 6e |-------.|..Curren|
|000029e0| 74 44 69 72 00 00 3b 20 | 66 75 6e 63 74 69 6f 6e |tDir..; |function|
|000029f0| 20 3a 20 43 75 72 72 65 | 6e 74 44 69 72 7b 7d 00 | : Curre|ntDir{}.|
|00002a00| 00 3b 20 72 65 74 75 72 | 6e 73 20 61 20 73 74 72 |.; retur|ns a str|
|00002a10| 69 6e 67 20 77 69 74 68 | 20 74 68 65 20 63 75 72 |ing with| the cur|
|00002a20| 72 65 6e 74 20 64 69 72 | 65 63 74 6f 72 79 20 6e |rent dir|ectory n|
|00002a30| 61 6d 65 00 3b 20 6f 6e | 6c 79 20 77 6f 72 6b 20 |ame.; on|ly work |
|00002a40| 77 69 74 68 20 43 4c 49 | 2d 72 75 6e 20 70 72 6f |with CLI|-run pro|
|00002a50| 67 72 61 6d 73 20 3a 28 | 00 00 80 09 24 20 43 75 |grams :(|....$ Cu|
|00002a60| 72 72 65 6e 74 44 69 72 | 7b 7d 00 00 2a 73 74 72 |rrentDir|{}..*str|
|00002a70| 69 6e 67 62 75 66 66 65 | 72 20 3d 20 fe 97 28 32 |ingbuffe|r = ..(2|
|00002a80| 35 35 2c 20 30 29 00 73 | 75 63 2e 6c 3d fe 57 28 |55, 0).s|uc.l=.W(|
|00002a90| 2a 73 74 72 69 6e 67 62 | 75 66 66 65 72 2c 32 35 |*stringb|uffer,25|
|00002aa0| 35 29 00 00 80 0b 20 73 | 75 63 00 20 20 63 64 69 |5).... s|uc.  cdi|
|00002ab0| 72 6e 61 6d 65 24 3d da | 02 24 28 2a 73 74 72 69 |rname$=.|.$(*stri|
|00002ac0| 6e 67 62 75 66 66 65 72 | 29 00 20 20 80 09 20 80 |ngbuffer|).  .. .|
|00002ad0| 07 20 63 64 69 72 6e 61 | 6d 65 24 00 20 20 80 22 |. cdirna|me$.  ."|
|00002ae0| 20 b5 8d 20 22 49 6e 66 | 6f 22 2c 22 43 6f 75 6c | .. "Inf|o","Coul|
|00002af0| 64 6e 27 74 20 67 65 74 | 20 63 75 72 72 65 6e 74 |dn't get| current|
|00002b00| 20 64 69 72 65 63 74 6f | 72 79 20 6e 61 6d 65 21 | directo|ry name!|
|00002b10| 22 2c 22 4f 68 2e 2e 2e | 22 00 80 c0 00 00 80 02 |","Oh...|".......|
|00002b20| 20 80 09 00 00 3b 20 64 | 65 6d 6f 20 3a 00 00 3b | ....; d|emo :..;|
|00002b30| 20 61 24 3d 43 75 72 72 | 65 6e 74 44 69 72 7b 7d | a$=Curr|entDir{}|
|00002b40| 00 00 3b 20 50 72 69 6e | 74 20 61 24 00 3b 20 4d |..; Prin|t a$.; M|
|00002b50| 6f 75 73 65 57 61 69 74 | 3a 45 6e 64 00 00 3b 2d |ouseWait|:End..;-|
|00002b60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ba0| 00 00 2e 50 72 6f 67 4e | 61 6d 65 00 00 3b 20 66 |...ProgN|ame..; f|
|00002bb0| 75 6e 63 74 69 6f 6e 20 | 3a 20 50 72 6f 67 4e 61 |unction |: ProgNa|
|00002bc0| 6d 65 7b 7d 00 00 3b 20 | 72 65 74 75 72 6e 73 20 |me{}..; |returns |
|00002bd0| 61 20 73 74 72 69 6e 67 | 20 77 69 74 68 20 74 68 |a string| with th|
|00002be0| 65 20 70 72 6f 67 72 61 | 6d 27 73 20 44 4f 53 20 |e progra|m's DOS |
|00002bf0| 6e 61 6d 65 00 00 80 09 | 24 20 50 72 6f 67 4e 61 |name....|$ ProgNa|
|00002c00| 6d 65 7b 7d 00 00 2a 73 | 74 72 69 6e 67 62 75 66 |me{}..*s|tringbuf|
|00002c10| 66 65 72 20 3d 20 fe 97 | 28 32 35 35 2c 20 30 29 |fer = ..|(255, 0)|
|00002c20| 00 73 75 63 2e 6c 3d fe | 59 28 2a 73 74 72 69 6e |.suc.l=.|Y(*strin|
|00002c30| 67 62 75 66 66 65 72 2c | 32 35 35 29 00 00 80 0b |gbuffer,|255)....|
|00002c40| 20 73 75 63 00 20 20 70 | 72 6f 67 6e 61 6d 65 24 | suc.  p|rogname$|
|00002c50| 3d da 02 24 28 2a 73 74 | 72 69 6e 67 62 75 66 66 |=..$(*st|ringbuff|
|00002c60| 65 72 29 00 20 20 80 09 | 20 80 07 20 70 72 6f 67 |er).  ..| .. prog|
|00002c70| 6e 61 6d 65 24 00 20 20 | 80 22 20 b5 8d 20 22 49 |name$.  |." .. "I|
|00002c80| 6e 66 6f 22 2c 22 43 6f | 75 6c 64 6e 27 74 20 67 |nfo","Co|uldn't g|
|00002c90| 65 74 20 6e 61 6d 65 20 | 6f 66 20 70 72 6f 67 72 |et name |of progr|
|00002ca0| 61 6d 21 22 2c 22 4f 68 | 2e 2e 2e 22 00 80 c0 00 |am!","Oh|..."....|
|00002cb0| 00 80 02 20 80 09 00 00 | 3b 20 64 65 6d 6f 20 3a |... ....|; demo :|
|00002cc0| 00 00 3b 20 61 24 3d 50 | 72 6f 67 4e 61 6d 65 7b |..; a$=P|rogName{|
|00002cd0| 7d 00 00 3b 20 50 72 69 | 6e 74 20 22 50 72 6f 67 |}..; Pri|nt "Prog|
|00002ce0| 72 61 6d 20 6e 61 6d 65 | 20 3a 20 22 2b 61 24 00 |ram name| : "+a$.|
|00002cf0| 3b 20 4d 6f 75 73 65 57 | 61 69 74 3a 45 6e 64 00 |; MouseW|ait:End.|
|00002d00| 00 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00002d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d40| 2d 2d 2d 00 00 2e 50 61 | 72 65 6e 74 44 69 72 00 |---...Pa|rentDir.|
|00002d50| 00 80 09 24 20 50 61 72 | 65 6e 74 44 69 72 7b 64 |...$ Par|entDir{d|
|00002d60| 69 72 24 7d 00 00 3b 20 | 66 75 6e 63 74 69 6f 6e |ir$}..; |function|
|00002d70| 20 3a 20 50 61 72 65 6e | 74 44 69 72 7b 7d 00 00 | : Paren|tDir{}..|
|00002d80| 3b 20 72 65 74 75 72 6e | 73 20 61 20 73 74 72 69 |; return|s a stri|
|00002d90| 6e 67 20 77 69 74 68 20 | 74 68 65 20 70 61 72 65 |ng with |the pare|
|00002da0| 6e 74 20 64 69 72 65 63 | 74 6f 72 79 20 6f 66 20 |nt direc|tory of |
|00002db0| 61 20 67 69 76 65 6e 20 | 64 69 72 65 63 74 6f 72 |a given |director|
|00002dc0| 79 2e 2e 2e 00 3b 20 6f | 6e 6c 79 20 77 6f 72 6b |y....; o|nly work|
|00002dd0| 20 66 72 6f 6d 20 43 4c | 49 2d 72 75 6e 20 70 72 | from CL|I-run pr|
|00002de0| 6f 67 72 61 6d 73 20 3a | 28 00 00 2a 6c 6f 6b 2e |ograms :|(..*lok.|
|00002df0| 6c 3d fe 0a 28 26 64 69 | 72 24 2c 23 41 43 43 45 |l=..(&di|r$,#ACCE|
|00002e00| 53 53 5f 52 45 41 44 29 | 00 00 80 0b 20 2a 6c 6f |SS_READ)|.... *lo|
|00002e10| 6b 00 2a 6e 65 77 6c 6f | 63 6b 2e 6c 3d fe 1d 28 |k.*newlo|ck.l=..(|
|00002e20| 2a 6c 6f 6b 29 00 00 80 | 0b 20 2a 6e 65 77 6c 6f |*lok)...|. *newlo|
|00002e30| 63 6b 00 2a 73 74 72 69 | 6e 67 62 75 66 66 65 72 |ck.*stri|ngbuffer|
|00002e40| 20 3d 20 fe 97 28 32 35 | 35 2c 20 30 29 00 6e 2e | = ..(25|5, 0).n.|
|00002e50| 6c 3d fe 3d 20 28 2a 6e | 65 77 6c 6f 63 6b 2c 20 |l=.= (*n|ewlock, |
|00002e60| 2a 73 74 72 69 6e 67 62 | 75 66 66 65 72 2c 20 32 |*stringb|uffer, 2|
|00002e70| 35 35 29 00 00 80 0b 20 | 6e 00 20 20 6c 6f 63 6b |55).... |n.  lock|
|00002e80| 6e 61 6d 65 24 3d da 02 | 24 28 2a 73 74 72 69 6e |name$=..|$(*strin|
|00002e90| 67 62 75 66 66 65 72 29 | 00 20 20 80 09 20 80 07 |gbuffer)|.  .. ..|
|00002ea0| 20 6c 6f 63 6b 6e 61 6d | 65 24 00 80 c0 00 00 fe | locknam|e$......|
|00002eb0| 0b 20 28 2a 6e 65 77 6c | 6f 63 6b 29 00 00 80 c0 |. (*newl|ock)....|
|00002ec0| 00 00 fe 0b 28 2a 6c 6f | 6b 29 00 00 80 c0 00 00 |....(*lo|k)......|
|00002ed0| 80 02 20 80 09 00 00 3b | 20 64 65 6d 6f 20 3a 00 |.. ....;| demo :.|
|00002ee0| 00 3b 20 64 24 3d 22 53 | 79 73 3a 44 65 76 73 2f |.; d$="S|ys:Devs/|
|00002ef0| 44 6f 73 44 72 69 76 65 | 72 73 22 00 3b 20 50 72 |DosDrive|rs".; Pr|
|00002f00| 69 6e 74 20 50 61 72 65 | 6e 74 44 69 72 7b 64 24 |int Pare|ntDir{d$|
|00002f10| 7d 00 3b 20 4d 6f 75 73 | 65 57 61 69 74 3a 45 6e |}.; Mous|eWait:En|
|00002f20| 64 00 00 3b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d..;----|--------|
|00002f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f60| 2d 2d 2d 2d 2d 00 00 2e | 53 65 74 43 6f 6d 6d 65 |-----...|SetComme|
|00002f70| 6e 74 00 00 3b 20 66 75 | 6e 63 74 69 6f 6e 20 3a |nt..; fu|nction :|
|00002f80| 20 53 65 74 43 6f 6d 6d | 65 6e 74 7b 7d 00 00 3b | SetComm|ent{}..;|
|00002f90| 20 74 72 69 65 73 20 74 | 6f 20 77 72 69 74 65 20 | tries t|o write |
|00002fa0| 61 20 66 69 6c 65 20 63 | 6f 6d 6d 65 6e 74 20 74 |a file c|omment t|
|00002fb0| 6f 20 74 68 65 20 73 70 | 65 63 69 66 69 65 64 20 |o the sp|ecified |
|00002fc0| 66 69 6c 65 00 00 3b 20 | 28 74 68 65 20 63 6f 6d |file..; |(the com|
|00002fd0| 6d 65 6e 74 20 61 70 70 | 65 61 72 73 20 69 6e 20 |ment app|ears in |
|00002fe0| 74 68 65 20 43 6f 6d 6d | 65 6e 74 20 73 65 63 74 |the Comm|ent sect|
|00002ff0| 69 6f 6e 20 77 68 65 6e | 20 79 6f 75 20 6c 6f 6f |ion when| you loo|
|00003000| 6b 00 3b 20 61 74 20 61 | 20 66 69 6c 65 27 73 20 |k.; at a| file's |
|00003010| 69 63 6f 6e 20 75 73 69 | 6e 67 20 74 68 65 20 49 |icon usi|ng the I|
|00003020| 63 6f 6e 2f 49 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |con/Info|rmation |
|00003030| 6d 65 6e 75 20 69 74 65 | 6d 00 3b 20 66 72 6f 6d |menu ite|m.; from|
|00003040| 20 57 6f 72 6b 62 65 6e | 63 68 29 00 00 3b 20 72 | Workben|ch)..; r|
|00003050| 65 74 75 72 6e 73 20 54 | 72 75 65 20 69 66 20 69 |eturns T|rue if i|
|00003060| 74 27 73 20 73 75 63 63 | 65 73 73 66 75 6c 2c 46 |t's succ|essful,F|
|00003070| 61 6c 73 65 20 69 66 20 | 69 74 20 66 61 69 6c 73 |alse if |it fails|
|00003080| 00 00 80 09 20 53 65 74 | 43 6f 6d 6d 65 6e 74 7b |.... Set|Comment{|
|00003090| 66 6e 61 6d 65 24 2c 63 | 6f 6d 6d 65 6e 74 24 7d |fname$,c|omment$}|
|000030a0| 00 20 20 61 2e 6c 3d fe | 18 20 28 26 66 6e 61 6d |.  a.l=.|. (&fnam|
|000030b0| 65 24 2c 26 63 6f 6d 6d | 65 6e 74 24 29 00 80 09 |e$,&comm|ent$)...|
|000030c0| 20 80 07 20 61 00 80 02 | 20 80 09 00 00 3b 20 64 | .. a...| ....; d|
|000030d0| 65 6d 6f 20 3a 00 00 3b | 20 66 69 6c 65 6e 61 6d |emo :..;| filenam|
|000030e0| 65 24 3d 22 72 61 6d 3a | 74 22 20 3b 20 61 64 64 |e$="ram:|t" ; add|
|000030f0| 73 20 61 20 63 6f 6d 6d | 65 6e 74 20 74 6f 20 74 |s a comm|ent to t|
|00003100| 68 65 20 52 61 6d 3a 54 | 20 64 72 61 77 65 72 00 |he Ram:T| drawer.|
|00003110| 00 3b 20 49 66 20 53 65 | 74 43 6f 6d 6d 65 6e 74 |.; If Se|tComment|
|00003120| 7b 66 69 6c 65 6e 61 6d | 65 24 2c 22 48 65 6c 6c |{filenam|e$,"Hell|
|00003130| 6f 2c 49 27 6d 20 61 20 | 63 6f 6d 6d 65 6e 74 21 |o,I'm a |comment!|
|00003140| 22 7d 3d 54 72 75 65 00 | 3b 20 20 52 65 71 75 65 |"}=True.|;  Reque|
|00003150| 73 74 20 22 22 2c 22 44 | 6f 6e 65 20 69 74 21 20 |st "","D|one it! |
|00003160| 4e 6f 77 20 63 6c 69 63 | 6b 20 6f 6e 20 74 68 65 |Now clic|k on the|
|00003170| 20 66 69 6c 65 27 73 20 | 69 63 6f 6e 7c 61 6e 64 | file's |icon|and|
|00003180| 20 67 6f 20 74 6f 20 74 | 68 65 20 57 42 20 49 63 | go to t|he WB Ic|
|00003190| 6f 6e 73 2f 49 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ons/Info|rmation |
|000031a0| 6d 65 6e 75 2e 2e 2e 22 | 2c 22 4f 4b 22 00 3b 20 |menu..."|,"OK".; |
|000031b0| 20 45 6c 73 65 20 52 65 | 71 75 65 73 74 20 22 22 | Else Re|quest ""|
|000031c0| 2c 22 46 61 69 6c 65 64 | 20 74 6f 20 77 72 69 74 |,"Failed| to writ|
|000031d0| 65 20 63 6f 6d 6d 65 6e | 74 21 22 2c 22 44 6f 68 |e commen|t!","Doh|
|000031e0| 21 22 00 3b 20 45 6e 64 | 49 66 00 00 3b 20 45 6e |!".; End|If..; En|
|000031f0| 64 00 00 3b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d..;----|--------|
|00003200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003230| 2d 2d 2d 2d 00 00 2e 4d | 65 6d 6f 72 79 00 00 3b |----...M|emory..;|
|00003240| 20 66 75 6e 63 74 69 6f | 6e 20 3a 20 4d 65 6d 6f | functio|n : Memo|
|00003250| 72 79 20 7b 7d 00 00 3b | 20 72 65 74 75 72 6e 73 |ry {}..;| returns|
|00003260| 20 73 69 7a 65 20 6f 66 | 20 6c 61 72 67 65 73 74 | size of| largest|
|00003270| 20 62 6c 6f 63 6b 20 6f | 66 20 61 76 61 69 6c 61 | block o|f availa|
|00003280| 62 6c 65 20 6d 65 6d 6f | 72 79 20 2d 00 3b 20 75 |ble memo|ry -.; u|
|00003290| 73 65 20 74 68 65 73 65 | 20 66 6c 61 67 73 20 3a |se these| flags :|
|000032a0| 00 00 3b 20 24 30 20 20 | 20 20 20 20 41 6e 79 20 |..; $0  |    Any |
|000032b0| 74 79 70 65 20 6f 66 20 | 6d 65 6d 6f 72 79 20 28 |type of |memory (|
|000032c0| 30 29 00 3b 20 24 31 20 | 20 20 20 20 20 50 75 62 |0).; $1 |     Pub|
|000032d0| 6c 69 63 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |lic     |        |
|000032e0| 28 31 29 00 3b 20 24 32 | 20 20 20 20 20 20 43 68 |(1).; $2|      Ch|
|000032f0| 69 70 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ip      |        |
|00003300| 20 28 32 29 00 3b 20 24 | 34 20 20 20 20 20 20 46 | (2).; $|4      F|
|00003310| 61 73 74 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ast     |        |
|00003320| 20 20 28 34 29 00 3b 20 | 24 31 30 30 20 20 20 20 |  (4).; |$100    |
|00003330| 4c 6f 63 61 6c 20 20 20 | 20 20 20 20 20 20 20 20 |Local   |        |
|00003340| 20 20 20 28 32 35 36 29 | 00 3b 20 24 32 30 30 20 |   (256)|.; $200 |
|00003350| 20 20 20 44 4d 41 61 62 | 6c 65 20 20 20 20 20 20 |   DMAab|le      |
|00003360| 20 20 20 20 20 20 28 35 | 31 32 29 00 3b 20 24 34 |      (5|12).; $4|
|00003370| 30 30 20 20 20 20 4b 69 | 63 6b 54 61 67 73 20 20 |00    Ki|ckTags  |
|00003380| 20 20 20 20 20 20 20 20 | 20 28 31 30 32 34 29 00 |        | (1024).|
|00003390| 3b 20 24 32 30 30 30 30 | 20 20 4c 61 72 67 65 73 |; $20000|  Larges|
|000033a0| 74 20 63 68 75 6e 6b 20 | 20 20 20 20 20 28 31 33 |t chunk |     (13|
|000033b0| 31 30 37 32 29 00 3b 20 | 24 38 30 30 30 30 20 20 |1072).; |$80000  |
|000033c0| 54 6f 74 61 6c 20 6d 65 | 6d 6f 72 79 20 20 20 20 |Total me|mory    |
|000033d0| 20 20 20 28 35 32 34 32 | 38 38 29 00 00 20 80 09 |   (5242|88).. ..|
|000033e0| 2e 6c 20 4d 65 6d 6f 72 | 79 7b 66 6c 61 67 2e 6c |.l Memor|y{flag.l|
|000033f0| 7d 00 20 20 80 09 20 80 | 07 20 fe 9a 28 66 6c 61 |}.  .. .|. ..(fla|
|00003400| 67 29 00 20 80 02 20 80 | 09 00 00 3b 20 64 65 6d |g). .. .|...; dem|
|00003410| 6f 20 3a 00 00 3b 20 4e | 50 72 69 6e 74 20 4d 65 |o :..; N|Print Me|
|00003420| 6d 6f 72 79 20 7b 24 31 | 30 30 7d 20 3b 20 24 31 |mory {$1|00} ; $1|
|00003430| 30 30 20 66 72 6f 6d 20 | 74 68 65 20 74 61 62 6c |00 from |the tabl|
|00003440| 65 20 61 62 6f 76 65 20 | 69 73 20 43 68 69 70 20 |e above |is Chip |
|00003450| 6d 65 6d 2e 2e 2e 00 3b | 20 4d 6f 75 73 65 57 61 |mem....;| MouseWa|
|00003460| 69 74 3a 45 6e 64 00 00 | 3b 2d 2d 2d 2d 2d 2d 2d |it:End..|;-------|
|00003470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003480| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 00 00 2e 43 68 65 63 |--------|-...Chec|
|000034b0| 6b 4c 69 62 00 00 3b 20 | 66 75 6e 63 74 69 6f 6e |kLib..; |function|
|000034c0| 20 3a 20 43 68 65 63 6b | 4c 69 62 20 7b 7d 00 00 | : Check|Lib {}..|
|000034d0| 3b 20 63 68 65 63 6b 73 | 20 6c 69 62 72 61 72 79 |; checks| library|
|000034e0| 20 76 65 72 73 69 6f 6e | 73 2e 2e 2e 00 3b 20 74 | version|s....; t|
|000034f0| 68 72 6f 77 20 69 74 20 | 61 74 20 74 68 65 20 73 |hrow it |at the s|
|00003500| 74 61 72 74 20 6f 66 20 | 79 6f 75 72 20 63 6f 64 |tart of |your cod|
|00003510| 65 2c 74 68 65 6e 20 64 | 6f 2e 2e 2e 00 00 3b 20 |e,then d|o.....; |
|00003520| 67 65 74 69 74 2e 6c 3d | 43 68 65 63 6b 4c 69 62 |getit.l=|CheckLib|
|00003530| 20 7b 22 73 6f 6d 65 2e | 6c 69 62 72 61 72 79 22 | {"some.|library"|
|00003540| 2c 76 65 72 73 69 6f 6e | 7d 00 00 3b 20 77 68 65 |,version|}..; whe|
|00003550| 72 65 20 22 73 6f 6d 65 | 2e 6c 69 62 72 61 72 79 |re "some|.library|
|00003560| 22 20 69 73 20 74 68 65 | 20 6c 69 62 72 61 72 79 |" is the| library|
|00003570| 20 79 6f 75 20 6e 65 65 | 64 20 74 6f 20 63 68 65 | you nee|d to che|
|00003580| 63 6b 20 66 6f 72 2c 00 | 3b 20 61 6e 64 20 76 65 |ck for,.|; and ve|
|00003590| 72 73 69 6f 6e 20 69 73 | 20 74 68 65 20 76 65 72 |rsion is| the ver|
|000035a0| 73 69 6f 6e 20 6e 75 6d | 62 65 72 20 79 6f 75 20 |sion num|ber you |
|000035b0| 6e 65 65 64 20 28 30 20 | 69 66 20 69 74 20 64 6f |need (0 |if it do|
|000035c0| 65 73 6e 27 74 00 3b 20 | 6d 61 74 74 65 72 29 2e |esn't.; |matter).|
|000035d0| 2e 2e 00 00 3b 20 6a 75 | 73 74 20 72 65 70 65 61 |....; ju|st repea|
|000035e0| 74 20 74 68 61 74 20 63 | 61 6c 6c 20 66 6f 72 20 |t that c|all for |
|000035f0| 65 61 63 68 20 6c 69 62 | 72 61 72 79 20 79 6f 75 |each lib|rary you|
|00003600| 20 6e 65 65 64 2e 2e 2e | 00 00 3b 20 75 73 65 20 | need...|..; use |
|00003610| 53 6e 6f 6f 70 44 6f 73 | 20 74 6f 20 73 65 65 20 |SnoopDos| to see |
|00003620| 69 66 20 79 6f 75 72 20 | 70 72 6f 67 72 61 6d 20 |if your |program |
|00003630| 72 65 71 75 69 72 65 73 | 20 61 20 70 61 72 74 69 |requires| a parti|
|00003640| 63 75 6c 61 72 00 3b 20 | 76 65 72 73 69 6f 6e 2c |cular.; |version,|
|00003650| 6f 74 68 65 72 77 69 73 | 65 20 79 6f 75 20 63 61 |otherwis|e you ca|
|00003660| 6e 20 6f 66 74 65 6e 20 | 6a 75 73 74 20 75 73 65 |n often |just use|
|00003670| 20 30 2e 2e 2e 00 00 80 | 09 20 43 68 65 63 6b 4c | 0......|. CheckL|
|00003680| 69 62 20 7b 6c 69 62 24 | 2c 6c 69 62 76 2e 6c 7d |ib {lib$|,libv.l}|
|00003690| 00 00 6f 70 65 6e 65 64 | 2e 62 3d 30 00 00 2a 70 |..opened|.b=0..*p|
|000036a0| 70 6c 69 62 2e 6c 3d fe | cf 28 26 6c 69 62 24 2c |plib.l=.|.(&lib$,|
|000036b0| 6c 69 62 76 2e 6c 29 00 | 00 80 0b 20 2a 70 70 6c |libv.l).|... *ppl|
|000036c0| 69 62 00 20 20 6f 70 65 | 6e 65 64 3d 31 00 20 20 |ib.  ope|ned=1.  |
|000036d0| fe bb 20 2a 70 70 6c 69 | 62 00 80 c0 00 00 80 09 |.. *ppli|b.......|
|000036e0| 20 80 07 20 6f 70 65 6e | 65 64 20 3b 20 69 74 20 | .. open|ed ; it |
|000036f0| 64 69 64 6e 27 74 20 77 | 61 6e 74 20 74 6f 20 72 |didn't w|ant to r|
|00003700| 65 74 75 72 6e 20 2a 70 | 70 6c 69 62 20 70 72 6f |eturn *p|plib pro|
|00003710| 70 65 72 6c 79 21 00 00 | 80 02 20 80 09 00 00 3b |perly!..|.. ....;|
|00003720| 20 64 65 6d 6f 20 3a 00 | 00 3b 20 46 69 6e 64 53 | demo :.|.; FindS|
|00003730| 63 72 65 65 6e 20 30 00 | 00 3b 20 6c 69 62 24 3d |creen 0.|.; lib$=|
|00003740| 22 72 65 71 74 6f 6f 6c | 73 2e 6c 69 62 72 61 72 |"reqtool|s.librar|
|00003750| 79 22 20 3b 20 6c 69 62 | 72 61 72 79 20 74 6f 20 |y" ; lib|rary to |
|00003760| 63 68 65 63 6b 20 66 6f | 72 2c 00 3b 20 6c 69 62 |check fo|r,.; lib|
|00003770| 76 2e 62 3d 33 38 20 20 | 20 20 20 20 20 20 20 20 |v.b=38  |        |
|00003780| 20 20 20 20 20 3b 20 76 | 65 72 73 69 6f 6e 20 6e |     ; v|ersion n|
|00003790| 75 6d 62 65 72 20 6e 65 | 65 64 65 64 2e 00 00 3b |umber ne|eded...;|
|000037a0| 20 49 66 20 43 68 65 63 | 6b 4c 69 62 20 7b 6c 69 | If Chec|kLib {li|
|000037b0| 62 24 2c 6c 69 62 76 7d | 3d 30 20 54 68 65 6e 20 |b$,libv}|=0 Then |
|000037c0| 52 65 71 75 65 73 74 20 | 22 45 52 52 4f 52 21 22 |Request |"ERROR!"|
|000037d0| 2c 22 59 6f 75 20 6e 65 | 65 64 20 22 2b 6c 69 62 |,"You ne|ed "+lib|
|000037e0| 24 2b 22 20 76 22 2b 53 | 74 72 24 28 6c 69 62 76 |$+" v"+S|tr$(libv|
|000037f0| 29 2b 22 21 22 2c 22 41 | 62 6f 72 74 22 3a 45 6e |)+"!","A|bort":En|
|00003800| 64 00 00 3b 20 45 6e 64 | 00 00 3b 2d 2d 2d 2d 2d |d..; End|..;-----|
|00003810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 00 00 2e 50 69 |--------|---...Pi|
|00003850| 78 65 6c 4c 65 6e 00 00 | 3b 20 66 75 6e 63 74 69 |xelLen..|; functi|
|00003860| 6f 6e 20 3a 20 50 69 78 | 65 6c 4c 65 6e 24 7b 7d |on : Pix|elLen${}|
|00003870| 00 00 3b 20 72 65 74 75 | 72 6e 73 20 74 68 65 20 |..; retu|rns the |
|00003880| 6e 75 6d 62 65 72 20 6f | 66 20 70 69 78 65 6c 73 |number o|f pixels|
|00003890| 20 69 6e 20 77 69 64 74 | 68 20 72 65 71 75 69 72 | in widt|h requir|
|000038a0| 65 64 20 74 6f 20 70 72 | 69 6e 74 00 3b 20 74 68 |ed to pr|int.; th|
|000038b0| 65 20 72 65 71 75 65 73 | 74 65 64 20 73 74 72 69 |e reques|ted stri|
|000038c0| 6e 67 00 00 80 09 2e 77 | 20 50 69 78 65 6c 4c 65 |ng.....w| PixelLe|
|000038d0| 6e 7b 61 24 7d 00 20 20 | 72 70 2e 6c 3d c5 39 28 |n{a$}.  |rp.l=.9(|
|000038e0| 30 29 20 3b 20 54 68 65 | 20 72 61 73 74 70 6f 72 |0) ; The| rastpor|
|000038f0| 74 20 6f 66 20 74 68 65 | 20 75 73 65 64 20 77 69 |t of the| used wi|
|00003900| 6e 64 6f 77 2e 00 20 20 | 80 09 20 80 07 20 ff 05 |ndow..  |.. .. ..|
|00003910| 28 72 70 2c 26 61 24 2c | dc 8f 28 61 24 29 29 00 |(rp,&a$,|..(a$)).|
|00003920| 80 02 20 80 09 00 00 3b | 20 64 65 6d 6f 20 3a 00 |.. ....;| demo :.|
|00003930| 00 3b 20 46 69 6e 64 53 | 63 72 65 65 6e 20 30 00 |.; FindS|creen 0.|
|00003940| 00 3b 20 49 66 20 57 69 | 6e 64 6f 77 20 28 30 2c |.; If Wi|ndow (0,|
|00003950| 30 2c 30 2c 36 34 30 2c | 32 30 30 2c 24 34 30 66 |0,0,640,|200,$40f|
|00003960| 2c 22 22 2c 31 2c 32 29 | 3d 30 20 54 68 65 6e 20 |,"",1,2)|=0 Then |
|00003970| 52 65 71 75 65 73 74 20 | 22 22 2c 22 57 69 6e 64 |Request |"","Wind|
|00003980| 6f 77 20 74 6f 6f 20 77 | 69 64 65 21 22 2c 22 45 |ow too w|ide!","E|
|00003990| 4e 44 22 3a 45 6e 64 00 | 00 3b 20 20 20 61 24 3d |ND":End.|.;   a$=|
|000039a0| 22 53 6f 6d 65 20 50 69 | 78 65 6c 73 22 20 20 20 |"Some Pi|xels"   |
|000039b0| 20 3b 20 75 73 65 20 74 | 68 69 73 20 74 65 78 74 | ; use t|his text|
|000039c0| 00 3b 20 20 20 70 69 78 | 2e 77 3d 50 69 78 65 6c |.;   pix|.w=Pixel|
|000039d0| 4c 65 6e 7b 61 24 7d 20 | 20 3b 20 66 69 6e 64 20 |Len{a$} | ; find |
|000039e0| 70 69 78 65 6c 20 77 69 | 64 74 68 20 6f 66 20 74 |pixel wi|dth of t|
|000039f0| 65 78 74 00 00 3b 20 20 | 20 3b 20 70 72 69 6e 74 |ext..;  | ; print|
|00003a00| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 3a 00 00 | informa|tion :..|
|00003a10| 3b 20 20 20 4e 50 72 69 | 6e 74 20 22 22 00 3b 20 |;   NPri|nt "".; |
|00003a20| 20 20 4e 50 72 69 6e 74 | 20 22 50 69 78 65 6c 4c |  NPrint| "PixelL|
|00003a30| 65 6e 20 7b 22 2b 43 68 | 72 24 28 33 34 29 2b 61 |en {"+Ch|r$(34)+a|
|00003a40| 24 2b 43 68 72 24 28 33 | 34 29 2b 22 7d 20 72 65 |$+Chr$(3|4)+"} re|
|00003a50| 74 75 72 6e 73 20 61 20 | 76 61 6c 75 65 20 6f 66 |turns a |value of|
|00003a60| 20 3a 20 22 2c 70 69 78 | 00 3b 20 20 20 4e 50 72 | : ",pix|.;   NPr|
|00003a70| 69 6e 74 20 22 22 00 3b | 20 20 20 50 72 69 6e 74 |int "".;|   Print|
|00003a80| 20 22 20 20 20 20 20 22 | 3a 57 4a 61 6d 20 34 3a | "     "|:WJam 4:|
|00003a90| 4e 50 72 69 6e 74 20 61 | 24 00 3b 20 20 20 4e 50 |NPrint a|$.;   NP|
|00003aa0| 72 69 6e 74 20 22 22 00 | 3b 20 20 20 57 4a 61 6d |rint "".|;   WJam|
|00003ab0| 20 30 3a 4e 50 72 69 6e | 74 20 22 53 6f 20 22 2b | 0:NPrin|t "So "+|
|00003ac0| 43 68 72 24 28 33 34 29 | 2b 61 24 2b 43 68 72 24 |Chr$(34)|+a$+Chr$|
|00003ad0| 28 33 34 29 2b 22 20 69 | 73 20 22 2c 70 69 78 2c |(34)+" i|s ",pix,|
|00003ae0| 22 20 70 69 78 65 6c 73 | 20 77 69 64 65 20 69 6e |" pixels| wide in|
|00003af0| 20 74 68 69 73 20 57 69 | 6e 64 6f 77 46 6f 6e 74 | this Wi|ndowFont|
|00003b00| 2e 22 00 3b 20 20 20 4e | 50 72 69 6e 74 20 22 22 |.".;   N|Print ""|
|00003b10| 3a 4e 50 72 69 6e 74 20 | 22 2d 2d 2d 2d 2d 2d 2d |:NPrint |"-------|
|00003b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003b50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 22 00 00 3b 20 20 |--------|--"..;  |
|00003b60| 3b 20 64 65 6d 6f 20 70 | 61 72 74 20 32 20 3a 00 |; demo p|art 2 :.|
|00003b70| 00 3b 20 20 20 61 24 3d | 22 4c 6f 74 73 20 61 6e |.;   a$=|"Lots an|
|00003b80| 64 20 6c 6f 74 73 20 61 | 6e 64 20 6c 6f 74 73 20 |d lots a|nd lots |
|00003b90| 61 6e 64 20 6c 6f 74 73 | 20 61 6e 64 20 6c 6f 74 |and lots| and lot|
|00003ba0| 73 20 61 6e 64 20 6c 6f | 74 73 20 61 6e 64 20 6c |s and lo|ts and l|
|00003bb0| 6f 74 73 20 61 6e 64 20 | 6c 6f 74 73 20 61 6e 64 |ots and |lots and|
|00003bc0| 20 6c 6f 74 73 20 61 6e | 64 20 6c 6f 74 73 20 6f | lots an|d lots o|
|00003bd0| 66 20 74 65 78 74 22 00 | 00 3b 20 20 3b 20 74 72 |f text".|.;  ; tr|
|00003be0| 79 20 74 61 6b 69 6e 67 | 20 6f 75 74 20 61 20 63 |y taking| out a c|
|00003bf0| 6f 75 70 6c 65 20 6f 66 | 20 22 61 6e 64 20 6c 6f |ouple of| "and lo|
|00003c00| 74 73 22 20 74 6f 20 6d | 61 6b 65 20 69 74 20 66 |ts" to m|ake it f|
|00003c10| 69 74 21 00 00 3b 20 20 | 20 4e 50 72 69 6e 74 20 |it!..;  | NPrint |
|00003c20| 22 22 3a 4e 50 72 69 6e | 74 20 61 24 00 00 3b 20 |"":NPrin|t a$..; |
|00003c30| 20 20 49 66 20 50 69 78 | 65 6c 4c 65 6e 20 7b 61 |  If Pix|elLen {a|
|00003c40| 24 7d 3e 49 6e 6e 65 72 | 57 69 64 74 68 00 3b 20 |$}>Inner|Width.; |
|00003c50| 20 20 20 20 4e 50 72 69 | 6e 74 20 22 22 3a 4e 50 |    NPri|nt "":NP|
|00003c60| 72 69 6e 74 20 22 54 68 | 65 20 73 74 72 69 6e 67 |rint "Th|e string|
|00003c70| 20 61 62 6f 76 65 20 69 | 73 20 74 6f 6f 20 77 69 | above i|s too wi|
|00003c80| 64 65 21 22 00 3b 20 20 | 20 20 20 45 6c 73 65 20 |de!".;  |   Else |
|00003c90| 4e 50 72 69 6e 74 20 22 | 22 3a 4e 50 72 69 6e 74 |NPrint "|":NPrint|
|00003ca0| 20 22 59 65 70 2c 74 68 | 61 74 20 73 74 72 69 6e | "Yep,th|at strin|
|00003cb0| 67 20 66 69 74 73 21 22 | 00 3b 20 20 20 45 6e 64 |g fits!"|.;   End|
|00003cc0| 49 66 00 00 3b 20 52 65 | 70 65 61 74 00 3b 20 56 |If..; Re|peat.; V|
|00003cd0| 57 61 69 74 20 35 00 3b | 20 55 6e 74 69 6c 20 45 |Wait 5.;| Until E|
|00003ce0| 76 65 6e 74 3d 24 32 30 | 30 00 3b 20 45 6e 64 00 |vent=$20|0.; End.|
|00003cf0| 00 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00003d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d30| 2d 2d 00 00 2e 53 74 72 | 69 70 54 6f 44 6f 74 00 |--...Str|ipToDot.|
|00003d40| 00 3b 20 66 75 6e 63 74 | 69 6f 6e 20 3a 20 53 74 |.; funct|ion : St|
|00003d50| 72 69 70 54 6f 44 6f 74 | 7b 7d 00 00 3b 20 49 20 |ripToDot|{}..; I |
|00003d60| 75 73 65 20 74 68 69 73 | 20 69 6e 20 61 20 70 72 |use this| in a pr|
|00003d70| 6f 67 72 61 6d 20 74 6f | 20 73 74 72 69 70 20 66 |ogram to| strip f|
|00003d80| 69 6c 65 20 65 78 74 65 | 6e 73 69 6f 6e 73 20 6f |ile exte|nsions o|
|00003d90| 66 66 2e 2e 2e 00 3b 20 | 65 67 2e 20 64 6f 69 6e |ff....; |eg. doin|
|00003da0| 67 20 53 74 72 69 70 54 | 6f 44 6f 74 7b 22 72 65 |g StripT|oDot{"re|
|00003db0| 71 74 6f 6f 6c 73 2e 6c | 69 62 72 61 72 79 22 7d |qtools.l|ibrary"}|
|00003dc0| 20 77 6f 75 6c 64 20 72 | 65 74 75 72 6e 00 3b 20 | would r|eturn.; |
|00003dd0| 6a 75 73 74 20 22 72 65 | 71 74 6f 6f 6c 73 22 2e |just "re|qtools".|
|00003de0| 2e 2e 00 00 80 09 24 20 | 53 74 72 69 70 54 6f 44 |......$ |StripToD|
|00003df0| 6f 74 7b 61 24 7d 00 00 | 20 20 80 16 20 61 2e 77 |ot{a$}..|  .. a.w|
|00003e00| 3d dc 8f 28 61 24 29 20 | 80 18 20 31 20 80 19 20 |=..(a$) |.. 1 .. |
|00003e10| 2d 31 00 20 20 20 20 80 | 0b 20 dc 83 28 61 24 2c |-1.    .|. ..(a$,|
|00003e20| 61 2c 31 29 3d 22 2e 22 | 20 80 21 20 61 24 3d dc |a,1)="."| .! a$=.|
|00003e30| 81 28 61 24 2c 61 2d 31 | 29 3a 80 be 20 80 16 3a |.(a$,a-1|):.. ..:|
|00003e40| 80 05 20 73 65 6e 64 69 | 74 62 61 63 6b 00 20 20 |.. sendi|tback.  |
|00003e50| 20 20 3b 20 69 66 20 69 | 74 20 66 6f 75 6e 64 20 |  ; if i|t found |
|00003e60| 61 20 64 6f 74 2c 70 75 | 74 73 20 72 65 73 75 6c |a dot,pu|ts resul|
|00003e70| 74 20 69 6e 74 6f 20 62 | 24 2c 67 6f 65 73 20 74 |t into b|$,goes t|
|00003e80| 6f 20 73 65 6e 64 69 74 | 62 61 63 6b 20 6c 61 62 |o sendit|back lab|
|00003e90| 65 6c 20 62 65 6c 6f 77 | 00 20 20 80 17 20 61 00 |el below|.  .. a.|
|00003ea0| 00 73 65 6e 64 69 74 62 | 61 63 6b 00 20 20 80 09 |.senditb|ack.  ..|
|00003eb0| 20 80 07 20 61 24 00 80 | 02 20 80 09 00 00 3b 20 | .. a$..|. ....; |
|00003ec0| 64 65 6d 6f 20 3a 00 00 | 3b 20 50 72 69 6e 74 20 |demo :..|; Print |
|00003ed0| 22 45 6e 74 65 72 20 61 | 20 73 74 72 69 6e 67 20 |"Enter a| string |
|00003ee0| 77 69 74 68 20 61 6e 20 | 65 78 74 65 6e 73 69 6f |with an |extensio|
|00003ef0| 6e 20 28 65 67 20 68 65 | 6c 70 2e 74 78 74 29 20 |n (eg he|lp.txt) |
|00003f00| 3a 20 22 00 3b 20 61 24 | 3d 53 74 72 69 70 54 6f |: ".; a$|=StripTo|
|00003f10| 44 6f 74 7b 45 64 69 74 | 24 28 32 35 29 7d 00 3b |Dot{Edit|$(25)}.;|
|00003f20| 20 4e 50 72 69 6e 74 20 | 22 22 3a 50 72 69 6e 74 | NPrint |"":Print|
|00003f30| 20 22 4e 65 77 20 6e 61 | 6d 65 20 3a 20 22 2c 61 | "New na|me : ",a|
|00003f40| 24 00 3b 20 4e 50 72 69 | 6e 74 20 22 22 3a 4e 50 |$.; NPri|nt "":NP|
|00003f50| 72 69 6e 74 20 22 43 6c | 69 63 6b 20 74 68 65 20 |rint "Cl|ick the |
|00003f60| 6d 6f 75 73 65 20 74 6f | 20 65 6e 64 2e 2e 2e 22 |mouse to| end..."|
|00003f70| 00 3b 20 4d 6f 75 73 65 | 57 61 69 74 3a 45 6e 64 |.; Mouse|Wait:End|
|00003f80| 00 00 3b 20 64 65 6d 6f | 20 32 20 3a 00 00 3b 20 |..; demo| 2 :..; |
|00003f90| 3b 20 49 20 75 73 65 20 | 69 74 20 61 6c 6f 6e 67 |; I use |it along|
|00003fa0| 20 77 69 74 68 20 53 74 | 72 69 70 46 69 6c 65 7b | with St|ripFile{|
|00003fb0| 7d 20 74 6f 20 6a 75 73 | 74 20 72 65 74 75 72 6e |} to jus|t return|
|00003fc0| 00 3b 20 3b 20 74 68 65 | 20 66 69 6c 65 20 70 61 |.; ; the| file pa|
|00003fd0| 72 74 20 6f 66 20 61 20 | 70 61 74 68 20 26 20 66 |rt of a |path & f|
|00003fe0| 69 6c 65 20 28 65 67 20 | 22 57 6f 72 6b 3a 50 69 |ile (eg |"Work:Pi|
|00003ff0| 63 73 2f 41 6d 69 67 61 | 2e 69 66 66 22 00 3b 20 |cs/Amiga|.iff".; |
|00004000| 3b 20 77 69 6c 6c 20 62 | 65 20 72 65 74 75 72 6e |; will b|e return|
|00004010| 65 64 20 61 73 20 22 41 | 6d 69 67 61 22 2e 2e 2e |ed as "A|miga"...|
|00004020| 00 00 3b 20 61 24 3d 53 | 74 72 69 70 54 6f 44 6f |..; a$=S|tripToDo|
|00004030| 74 7b 20 53 74 72 69 70 | 46 69 6c 65 7b 22 57 6f |t{ Strip|File{"Wo|
|00004040| 72 6b 3a 50 69 63 73 2f | 41 6d 69 67 61 2e 69 66 |rk:Pics/|Amiga.if|
|00004050| 66 22 7d 20 7d 00 3b 20 | 4e 50 72 69 6e 74 20 61 |f"} }.; |NPrint a|
|00004060| 24 3a 4d 6f 75 73 65 57 | 61 69 74 3a 45 6e 64 00 |$:MouseW|ait:End.|
|00004070| 00 3b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.;------|--------|
|00004080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000040a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000040b0| 2d 2d 00 00 2e 51 75 6f | 74 65 64 00 00 3b 20 66 |--...Quo|ted..; f|
|000040c0| 75 6e 63 74 69 6f 6e 20 | 3a 20 51 75 6f 74 65 64 |unction |: Quoted|
|000040d0| 7b 7d 00 00 3b 20 70 75 | 74 73 20 71 75 6f 74 65 |{}..; pu|ts quote|
|000040e0| 73 20 61 72 6f 75 6e 64 | 20 61 20 66 69 6c 65 20 |s around| a file |
|000040f0| 6e 61 6d 65 2c 73 6f 20 | 74 68 61 74 20 69 66 20 |name,so |that if |
|00004100| 79 6f 75 72 20 75 73 65 | 72 20 68 61 73 00 3b 20 |your use|r has.; |
|00004110| 65 6e 74 65 72 65 64 20 | 61 20 66 69 6c 65 20 6e |entered |a file n|
|00004120| 61 6d 65 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 73 |ame cont|aining s|
|00004130| 70 61 63 65 73 2c 69 74 | 27 6c 6c 20 73 74 69 6c |paces,it|'ll stil|
|00004140| 6c 20 62 65 20 4f 4b 2e | 2e 2e 00 00 3b 20 75 73 |l be OK.|....; us|
|00004150| 65 66 75 6c 20 66 6f 72 | 20 73 6f 6d 65 20 66 69 |eful for| some fi|
|00004160| 6c 65 20 72 65 71 75 65 | 73 74 65 72 20 72 65 74 |le reque|ster ret|
|00004170| 75 72 6e 65 64 20 73 74 | 72 69 6e 67 73 2c 6f 72 |urned st|rings,or|
|00004180| 20 61 70 70 69 63 6f 6e | 73 2e 2e 2e 00 00 80 09 | appicon|s.......|
|00004190| 24 20 51 75 6f 74 65 64 | 7b 61 24 7d 00 00 61 24 |$ Quoted|{a$}..a$|
|000041a0| 3d dc 86 28 33 34 29 2b | 61 24 2b dc 86 28 33 34 |=..(34)+|a$+..(34|
|000041b0| 29 00 00 20 20 80 09 20 | 80 07 20 61 24 00 80 02 |)..  .. |.. a$...|
|000041c0| 20 80 09 00 00 3b 20 64 | 65 6d 6f 20 3a 00 00 3b | ....; d|emo :..;|
|000041d0| 20 50 72 69 6e 74 20 22 | 45 6e 74 65 72 20 61 20 | Print "|Enter a |
|000041e0| 66 69 6c 65 20 6e 61 6d | 65 20 63 6f 6e 74 61 69 |file nam|e contai|
|000041f0| 6e 69 6e 67 20 73 70 61 | 63 65 73 20 3a 20 22 00 |ning spa|ces : ".|
|00004200| 3b 20 66 24 3d 45 64 69 | 74 24 28 33 30 29 00 3b |; f$=Edi|t$(30).;|
|00004210| 20 4e 50 72 69 6e 74 20 | 22 22 3a 4e 50 72 69 6e | NPrint |"":NPrin|
|00004220| 74 20 51 75 6f 74 65 64 | 7b 66 24 7d 00 3b 20 3b |t Quoted|{f$}.; ;|
|00004230| 20 45 78 65 63 75 74 65 | 5f 20 22 70 70 6d 6f 72 | Execute|_ "ppmor|
|00004240| 65 20 22 2b 51 75 6f 74 | 65 64 7b 66 24 7d 2c 30 |e "+Quot|ed{f$},0|
|00004250| 2c 30 20 3b 20 74 72 79 | 20 63 6f 70 79 69 6e 67 |,0 ; try| copying|
|00004260| 20 61 20 74 65 78 74 20 | 66 69 6c 65 20 69 6e 74 | a text |file int|
|00004270| 6f 20 72 61 6d 20 61 6e | 64 20 74 79 70 69 6e 67 |o ram an|d typing|
|00004280| 20 52 61 6d 20 44 69 73 | 6b 3a 74 65 78 74 66 69 | Ram Dis|k:textfi|
|00004290| 6c 65 2e 74 78 74 20 28 | 6f 72 20 6e 61 6d 65 20 |le.txt (|or name |
|000042a0| 6f 66 20 79 6f 75 72 20 | 66 69 6c 65 29 00 3b 20 |of your |file).; |
|000042b0| 4d 6f 75 73 65 57 61 69 | 74 3a 45 6e 64 00 00 3b |MouseWai|t:End..;|
|000042c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000042d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000042e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000042f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004300| 00 00 b5 8d 20 22 73 74 | 61 74 65 6d 65 6e 74 73 |.... "st|atements|
|00004310| 26 66 75 6e 63 74 69 6f | 6e 73 2e 62 62 32 22 2c |&functio|ns.bb2",|
|00004320| 22 59 6f 75 20 63 61 6e | 27 74 20 6a 75 73 74 20 |"You can|'t just |
|00004330| 72 75 6e 20 74 68 69 73 | 21 22 2c 22 4f 68 2e 2e |run this|!","Oh..|
|00004340| 2e 22 3a 80 02 00 3b 20 | 6a 75 73 74 20 69 6e 20 |.":...; |just in |
|00004350| 63 61 73 65 20 3b 29 00 | 2e 00 2e 55 53 45 46 55 |case ;).|...USEFU|
|00004360| 4c 5f 53 54 55 46 46 00 | 2e 00 3b 2d 2d 2d 2d 2d |L_STUFF.|..;-----|
|00004370| 2d 2d 2d 2d 2d 2d 20 42 | 45 47 49 4e 4e 49 4e 47 |------ B|EGINNING|
|00004380| 20 6f 66 20 43 61 72 6c | 27 73 20 57 42 46 4f 4e | of Carl|'s WBFON|
|00004390| 54 20 52 4f 55 54 49 4e | 45 20 2d 2d 2d 2d 2d 2d |T ROUTIN|E ------|
|000043a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 00 00 3b 20 52 |--------|---..; R|
|000043b0| 65 61 64 69 6e 67 20 74 | 68 65 20 57 6f 72 6b 62 |eading t|he Workb|
|000043c0| 65 6e 63 68 20 66 6f 6e | 74 20 70 72 65 66 73 20 |ench fon|t prefs |
|000043d0| 66 69 6c 65 2e 2e 2e 00 | 00 3b 20 74 68 69 73 20 |file....|.; this |
|000043e0| 69 73 20 63 75 74 20 73 | 74 72 61 69 67 68 74 20 |is cut s|traight |
|000043f0| 6f 75 74 20 6f 66 20 61 | 20 64 65 6d 6f 20 62 79 |out of a| demo by|
|00004400| 20 43 61 72 6c 20 52 65 | 61 64 2c 61 6e 64 20 72 | Carl Re|ad,and r|
|00004410| 65 71 75 69 72 65 73 00 | 3b 20 61 20 6c 69 74 74 |equires.|; a litt|
|00004420| 6c 65 20 6d 6f 72 65 20 | 65 66 66 6f 72 74 20 74 |le more |effort t|
|00004430| 6f 20 63 75 74 20 27 6e | 27 20 70 61 73 74 65 20 |o cut 'n|' paste |
|00004440| 69 6e 74 6f 20 79 6f 75 | 72 20 70 72 6f 67 72 61 |into you|r progra|
|00004450| 6d 73 20 3a 00 00 3b 20 | 31 29 20 50 75 74 20 74 |ms :..; |1) Put t|
|00004460| 68 65 20 46 69 6e 64 46 | 6f 6e 74 7b 7d 20 66 75 |he FindF|ont{} fu|
|00004470| 6e 63 74 69 6f 6e 20 61 | 74 20 74 68 65 20 74 6f |nction a|t the to|
|00004480| 70 20 6f 66 20 79 6f 75 | 72 20 73 6f 75 72 63 65 |p of you|r source|
|00004490| 2c 00 00 3b 20 32 29 20 | 50 75 74 20 74 68 65 20 |,..; 2) |Put the |
|000044a0| 22 4c 6f 61 64 46 69 6c | 65 22 20 73 75 62 72 6f |"LoadFil|e" subro|
|000044b0| 75 74 69 6e 65 20 4f 55 | 54 20 4f 46 20 54 48 45 |utine OU|T OF THE|
|000044c0| 20 4d 41 49 4e 20 4c 4f | 4f 50 20 6f 66 00 3b 20 | MAIN LO|OP of.; |
|000044d0| 20 20 20 79 6f 75 72 20 | 70 72 6f 67 72 61 6d 2c |   your |program,|
|000044e0| 73 6f 20 79 6f 75 20 64 | 6f 6e 27 74 20 61 63 63 |so you d|on't acc|
|000044f0| 69 64 65 6e 74 61 6c 6c | 79 20 72 75 6e 20 69 6e |identall|y run in|
|00004500| 74 6f 20 69 74 21 00 3b | 20 20 20 20 2a 20 2a 20 |to it!.;|    * * |
|00004510| 2a 20 2a 20 2a 20 2a 20 | 5e 5e 20 54 68 61 74 27 |* * * * |^^ That'|
|00004520| 73 20 49 4d 50 4f 52 54 | 41 4e 54 21 21 21 21 21 |s IMPORT|ANT!!!!!|
|00004530| 20 5e 5e 20 2a 20 2a 20 | 2a 20 2a 20 2a 20 2a 20 | ^^ * * |* * * * |
|00004540| 2a 00 00 3b 20 33 29 20 | 50 61 73 74 65 20 69 6e |*..; 3) |Paste in|
|00004550| 20 74 68 65 20 22 52 65 | 61 64 46 6f 6e 74 73 22 | the "Re|adFonts"|
|00004560| 20 72 6f 75 74 69 6e 65 | 20 74 6f 20 67 65 74 20 | routine| to get |
|00004570| 74 68 65 20 57 6f 72 6b | 62 65 6e 63 68 00 3b 20 |the Work|bench.; |
|00004580| 20 20 20 66 6f 6e 74 73 | 20 69 6e 66 6f 72 6d 61 |   fonts| informa|
|00004590| 74 69 6f 6e 20 28 73 65 | 65 20 22 64 65 6d 6f 22 |tion (se|e "demo"|
|000045a0| 29 2e 00 00 3b 20 49 27 | 76 65 20 6c 65 66 74 20 |)...; I'|ve left |
|000045b0| 69 74 20 75 6e 63 6f 6d | 6d 65 6e 74 65 64 2c 61 |it uncom|mented,a|
|000045c0| 73 20 69 74 20 77 6f 75 | 6c 64 20 62 65 20 61 20 |s it wou|ld be a |
|000045d0| 62 69 74 20 6f 66 20 61 | 20 70 61 69 6e 00 3b 20 |bit of a| pain.; |
|000045e0| 74 6f 20 68 61 76 65 20 | 74 6f 20 75 6e 63 6f 6d |to have |to uncom|
|000045f0| 6d 65 6e 74 20 69 74 20 | 61 6c 6c 20 74 6f 20 70 |ment it |all to p|
|00004600| 61 73 74 65 20 69 74 20 | 69 6e 20 3b 29 00 00 3b |aste it |in ;)..;|
|00004610| 20 4f 76 65 72 20 74 6f | 20 43 61 72 6c 20 3b 29 | Over to| Carl ;)|
|00004620| 00 00 3b 20 54 68 69 73 | 20 66 75 6e 63 74 69 6f |..; This| functio|
|00004630| 6e 20 73 65 61 72 63 68 | 65 73 20 66 6f 72 20 61 |n search|es for a|
|00004640| 20 66 6f 6e 74 20 6e 61 | 6d 65 20 69 6e 20 61 20 | font na|me in a |
|00004650| 73 74 72 69 6e 67 20 61 | 6e 64 20 77 69 6c 6c 00 |string a|nd will.|
|00004660| 3b 20 72 65 74 75 72 6e | 20 61 20 70 6f 69 6e 74 |; return| a point|
|00004670| 65 72 20 74 6f 20 69 74 | 20 28 69 6e 20 74 68 65 |er to it| (in the|
|00004680| 20 73 74 72 69 6e 67 29 | 20 69 66 20 66 6f 75 6e | string)| if foun|
|00004690| 64 2c 20 65 6c 73 65 20 | 69 74 27 6c 6c 00 3b 20 |d, else |it'll.; |
|000046a0| 72 65 74 75 72 6e 20 30 | 2e 20 20 49 66 20 66 6f |return 0|.  If fo|
|000046b0| 75 6e 64 20 66 6f 6e 74 | 4e 61 6d 65 24 20 77 69 |und font|Name$ wi|
|000046c0| 6c 6c 20 68 6f 6c 64 20 | 74 68 65 20 66 6f 6e 74 |ll hold |the font|
|000046d0| 20 6e 61 6d 65 20 61 6e | 64 00 3b 20 66 6f 6e 74 | name an|d.; font|
|000046e0| 53 69 7a 65 20 69 74 73 | 20 73 69 7a 65 2e 00 00 |Size its| size...|
|000046f0| 20 80 09 2e 6c 20 46 69 | 6e 64 46 6f 6e 74 7b 66 | ...l Fi|ndFont{f|
|00004700| 6f 6e 74 50 72 65 66 73 | 24 2c 73 74 61 72 74 50 |ontPrefs|$,startP|
|00004710| 6f 73 2e 6c 7d 00 20 20 | 80 15 20 66 6f 6e 74 4e |os.l}.  |.. fontN|
|00004720| 61 6d 65 24 2c 66 6f 6e | 74 53 69 7a 65 00 20 20 |ame$,fon|tSize.  |
|00004730| 66 6f 6e 74 4e 61 6d 65 | 24 3d 22 22 3a 66 6f 6e |fontName|$="":fon|
|00004740| 74 53 69 7a 65 3d 30 00 | 20 20 66 6f 6e 74 50 6f |tSize=0.|  fontPo|
|00004750| 69 6e 74 65 72 2e 6c 3d | dc 89 28 66 6f 6e 74 50 |inter.l=|..(fontP|
|00004760| 72 65 66 73 24 2c 22 46 | 4f 4e 54 22 2c 73 74 61 |refs$,"F|ONT",sta|
|00004770| 72 74 50 6f 73 29 00 20 | 20 80 0b 20 66 6f 6e 74 |rtPos). | .. font|
|00004780| 50 6f 69 6e 74 65 72 00 | 20 20 20 80 16 20 66 6f |Pointer.|   .. fo|
|00004790| 6e 74 4e 61 6d 65 2e 6c | 3d 66 6f 6e 74 50 6f 69 |ntName.l|=fontPoi|
|000047a0| 6e 74 65 72 2b 33 36 20 | 80 18 20 dc 8f 28 66 6f |nter+36 |.. ..(fo|
|000047b0| 6e 74 50 72 65 66 73 24 | 29 00 20 20 20 20 61 24 |ntPrefs$|).    a$|
|000047c0| 3d dc 83 28 66 6f 6e 74 | 50 72 65 66 73 24 2c 66 |=..(font|Prefs$,f|
|000047d0| 6f 6e 74 4e 61 6d 65 2c | 31 29 00 20 20 20 20 80 |ontName,|1).    .|
|000047e0| 0b 20 dc 87 28 61 24 29 | 00 20 20 20 20 20 66 6f |. ..(a$)|.     fo|
|000047f0| 6e 74 4e 61 6d 65 24 2b | 61 24 00 20 20 20 20 80 |ntName$+|a$.    .|
|00004800| 22 00 20 20 20 20 20 80 | 0b 20 be 15 28 22 73 79 |".     .|. ..("sy|
|00004810| 73 3a 66 6f 6e 74 73 2f | 22 2b 66 6f 6e 74 4e 61 |s:fonts/|"+fontNa|
|00004820| 6d 65 24 29 00 20 20 20 | 20 20 20 66 6f 6e 74 53 |me$).   |   fontS|
|00004830| 69 7a 65 3d dc 8d 28 dc | 83 28 66 6f 6e 74 50 72 |ize=..(.|.(fontPr|
|00004840| 65 66 73 24 2c 66 6f 6e | 74 50 6f 69 6e 74 65 72 |efs$,fon|tPointer|
|00004850| 2b 33 32 2c 32 29 29 00 | 20 20 20 20 20 20 66 6f |+32,2)).|      fo|
|00004860| 6e 74 50 6f 69 6e 74 65 | 72 2b 33 36 00 20 20 20 |ntPointe|r+36.   |
|00004870| 20 20 80 c0 00 20 20 20 | 20 20 66 6f 6e 74 4e 61 |  ...   |  fontNa|
|00004880| 6d 65 3d dc 8f 28 66 6f | 6e 74 50 72 65 66 73 24 |me=..(fo|ntPrefs$|
|00004890| 29 00 20 20 20 20 80 c0 | 00 20 20 20 80 17 00 20 |).    ..|.   ... |
|000048a0| 20 80 c0 00 20 20 80 09 | 20 80 07 20 66 6f 6e 74 | ...  ..| .. font|
|000048b0| 50 6f 69 6e 74 65 72 00 | 20 80 02 20 80 09 00 00 |Pointer.| .. ....|
|000048c0| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|000048d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000048e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000048f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004900| 2d 00 00 52 65 61 64 46 | 6f 6e 74 73 00 00 20 3b |-..ReadF|onts.. ;|
|00004910| 20 47 65 74 20 75 73 65 | 72 2d 64 65 66 69 6e 65 | Get use|r-define|
|00004920| 64 20 66 6f 6e 74 73 20 | 69 66 20 74 68 65 79 20 |d fonts |if they |
|00004930| 65 78 69 73 74 2e 00 20 | 66 69 24 3d 22 45 4e 56 |exist.. |fi$="ENV|
|00004940| 3a 73 79 73 2f 66 6f 6e | 74 2e 70 72 65 66 73 22 |:sys/fon|t.prefs"|
|00004950| 3a 66 69 4c 65 6e 2e 6c | 3d be 15 28 66 69 24 29 |:fiLen.l|=..(fi$)|
|00004960| 00 20 80 0b 20 66 69 4c | 65 6e 00 20 20 3b 20 4c |. .. fiL|en.  ; L|
|00004970| 6f 61 64 20 69 6e 20 57 | 42 33 20 28 49 20 74 68 |oad in W|B3 (I th|
|00004980| 69 6e 6b 29 20 66 6f 6e | 74 20 6e 61 6d 65 73 2e |ink) fon|t names.|
|00004990| 20 28 31 20 66 69 6c 65 | 2e 29 00 20 20 80 06 20 | (1 file|.).  .. |
|000049a0| 4c 6f 61 64 46 69 6c 65 | 00 20 80 22 00 20 20 3b |LoadFile|. .".  ;|
|000049b0| 20 4c 6f 61 64 20 69 6e | 20 57 42 32 20 28 49 20 | Load in| WB2 (I |
|000049c0| 74 68 69 6e 6b 29 20 66 | 6f 6e 74 73 20 6e 61 6d |think) f|onts nam|
|000049d0| 65 73 2e 20 28 33 20 66 | 69 6c 65 73 2e 29 00 20 |es. (3 f|iles.). |
|000049e0| 20 66 69 24 3d 22 45 4e | 56 3a 73 79 73 2f 77 62 | fi$="EN|V:sys/wb|
|000049f0| 66 6f 6e 74 2e 70 72 65 | 66 73 22 3a 66 69 4c 65 |font.pre|fs":fiLe|
|00004a00| 6e 2e 6c 3d be 15 28 66 | 69 24 29 00 20 20 80 0b |n.l=..(f|i$).  ..|
|00004a10| 20 66 69 4c 65 6e 20 80 | 21 20 80 06 20 4c 6f 61 | fiLen .|! .. Loa|
|00004a20| 64 46 69 6c 65 20 3b 20 | 49 63 6f 6e 20 66 6f 6e |dFile ; |Icon fon|
|00004a30| 74 2e 00 20 20 66 69 24 | 3d 22 45 4e 56 3a 73 79 |t..  fi$|="ENV:sy|
|00004a40| 73 2f 73 79 73 66 6f 6e | 74 2e 70 72 65 66 73 22 |s/sysfon|t.prefs"|
|00004a50| 3a 66 69 4c 65 6e 2e 6c | 3d be 15 28 66 69 24 29 |:fiLen.l|=..(fi$)|
|00004a60| 00 20 20 80 0b 20 66 69 | 4c 65 6e 20 80 21 20 80 |.  .. fi|Len .! .|
|00004a70| 06 20 4c 6f 61 64 46 69 | 6c 65 20 3b 20 53 79 73 |. LoadFi|le ; Sys|
|00004a80| 74 65 6d 20 66 6f 6e 74 | 2e 00 20 20 66 69 24 3d |tem font|..  fi$=|
|00004a90| 22 45 4e 56 3a 73 79 73 | 2f 73 63 72 65 65 6e 66 |"ENV:sys|/screenf|
|00004aa0| 6f 6e 74 2e 70 72 65 66 | 73 22 3a 66 69 4c 65 6e |ont.pref|s":fiLen|
|00004ab0| 2e 6c 3d be 15 28 66 69 | 24 29 00 20 20 80 0b 20 |.l=..(fi|$).  .. |
|00004ac0| 66 69 4c 65 6e 20 80 21 | 20 80 06 20 4c 6f 61 64 |fiLen .!| .. Load|
|00004ad0| 46 69 6c 65 20 3b 20 53 | 63 72 65 65 6e 20 66 6f |File ; S|creen fo|
|00004ae0| 6e 74 2e 00 20 80 c0 00 | 00 20 80 0b 20 66 6f 6e |nt.. ...|. .. fon|
|00004af0| 74 50 72 65 66 73 24 3c | 3e 22 22 00 20 20 66 6f |tPrefs$<|>"".  fo|
|00004b00| 6e 74 50 6f 69 6e 74 65 | 72 2e 6c 3d 46 69 6e 64 |ntPointe|r.l=Find|
|00004b10| 46 6f 6e 74 7b 66 6f 6e | 74 50 72 65 66 73 24 2c |Font{fon|tPrefs$,|
|00004b20| 31 7d 00 20 20 80 0b 20 | 66 6f 6e 74 50 6f 69 6e |1}.  .. |fontPoin|
|00004b30| 74 65 72 00 20 20 20 69 | 63 6f 6e 46 6f 6e 74 24 |ter.   i|conFont$|
|00004b40| 3d 66 6f 6e 74 4e 61 6d | 65 24 3a 69 63 6f 6e 46 |=fontNam|e$:iconF|
|00004b50| 6f 6e 74 53 69 7a 65 3d | 66 6f 6e 74 53 69 7a 65 |ontSize=|fontSize|
|00004b60| 00 20 20 80 c0 00 20 20 | 80 0b 20 66 6f 6e 74 50 |.  ...  |.. fontP|
|00004b70| 6f 69 6e 74 65 72 00 20 | 20 20 66 6f 6e 74 50 6f |ointer. |  fontPo|
|00004b80| 69 6e 74 65 72 2e 6c 3d | 46 69 6e 64 46 6f 6e 74 |inter.l=|FindFont|
|00004b90| 7b 66 6f 6e 74 50 72 65 | 66 73 24 2c 66 6f 6e 74 |{fontPre|fs$,font|
|00004ba0| 50 6f 69 6e 74 65 72 7d | 00 20 20 20 80 0b 20 66 |Pointer}|.   .. f|
|00004bb0| 6f 6e 74 50 6f 69 6e 74 | 65 72 00 20 20 20 20 73 |ontPoint|er.    s|
|00004bc0| 79 73 74 65 6d 46 6f 6e | 74 24 3d 66 6f 6e 74 4e |ystemFon|t$=fontN|
|00004bd0| 61 6d 65 24 3a 73 79 73 | 74 65 6d 46 6f 6e 74 53 |ame$:sys|temFontS|
|00004be0| 69 7a 65 3d 66 6f 6e 74 | 53 69 7a 65 00 20 20 20 |ize=font|Size.   |
|00004bf0| 80 c0 00 20 20 80 c0 00 | 20 20 80 0b 20 66 6f 6e |...  ...|  .. fon|
|00004c00| 74 50 6f 69 6e 74 65 72 | 00 20 20 20 66 6f 6e 74 |tPointer|.   font|
|00004c10| 50 6f 69 6e 74 65 72 2e | 6c 3d 46 69 6e 64 46 6f |Pointer.|l=FindFo|
|00004c20| 6e 74 7b 66 6f 6e 74 50 | 72 65 66 73 24 2c 66 6f |nt{fontP|refs$,fo|
|00004c30| 6e 74 50 6f 69 6e 74 65 | 72 7d 00 20 20 20 80 0b |ntPointe|r}.   ..|
|00004c40| 20 66 6f 6e 74 50 6f 69 | 6e 74 65 72 00 20 20 20 | fontPoi|nter.   |
|00004c50| 20 73 63 72 65 65 6e 46 | 6f 6e 74 24 3d 66 6f 6e | screenF|ont$=fon|
|00004c60| 74 4e 61 6d 65 24 3a 73 | 63 72 65 65 6e 46 6f 6e |tName$:s|creenFon|
|00004c70| 74 53 69 7a 65 3d 66 6f | 6e 74 53 69 7a 65 00 20 |tSize=fo|ntSize. |
|00004c80| 20 20 80 c0 00 20 20 80 | c0 00 20 80 c0 00 00 3b |  ...  .|.. ....;|
|00004c90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ca0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004cd0| 00 00 3b 20 49 27 76 65 | 20 6c 65 66 74 20 74 68 |..; I've| left th|
|00004ce0| 69 73 20 64 65 6d 6f 20 | 61 63 74 69 76 61 74 65 |is demo |activate|
|00004cf0| 64 2c 74 6f 20 61 76 6f | 69 64 20 68 61 76 69 6e |d,to avo|id havin|
|00004d00| 67 20 74 6f 20 63 6f 6d | 6d 65 6e 74 00 3b 20 6f |g to com|ment.; o|
|00004d10| 75 74 20 74 68 65 20 4c | 6f 61 64 46 69 6c 65 20 |ut the L|oadFile |
|00004d20| 70 61 72 74 20 6f 66 20 | 74 68 69 73 20 72 6f 75 |part of |this rou|
|00004d30| 74 69 6e 65 20 62 65 6c | 6f 77 20 28 63 6f 73 20 |tine bel|ow (cos |
|00004d40| 59 4f 55 27 44 20 68 61 | 76 65 00 3b 20 74 6f 20 |YOU'D ha|ve.; to |
|00004d50| 75 6e 63 6f 6d 6d 65 6e | 74 20 69 74 20 61 6c 6c |uncommen|t it all|
|00004d60| 20 2d 20 73 65 65 2c 49 | 20 63 61 72 65 21 20 6e | - see,I| care! n|
|00004d70| 6f 2c 72 65 61 6c 6c 79 | 2e 2e 2e 2e 20 3b 29 00 |o,really|.... ;).|
|00004d80| 00 3b 20 64 65 6d 6f 20 | 3a 00 00 3b 20 54 6f 20 |.; demo |:..; To |
|00004d90| 6c 6f 61 64 20 74 68 65 | 20 66 6f 6e 74 73 20 69 |load the| fonts i|
|00004da0| 6e 20 75 73 65 20 62 79 | 20 57 6f 72 6b 62 65 6e |n use by| Workben|
|00004db0| 63 68 20 3a 00 00 20 c3 | 01 20 30 2c 69 63 6f 6e |ch :.. .|. 0,icon|
|00004dc0| 46 6f 6e 74 24 2c 69 63 | 6f 6e 46 6f 6e 74 53 69 |Font$,ic|onFontSi|
|00004dd0| 7a 65 00 20 c3 01 20 31 | 2c 73 79 73 74 65 6d 46 |ze. .. 1|,systemF|
|00004de0| 6f 6e 74 24 2c 73 79 73 | 74 65 6d 46 6f 6e 74 53 |ont$,sys|temFontS|
|00004df0| 69 7a 65 00 20 c3 01 20 | 32 2c 73 63 72 65 65 6e |ize. .. |2,screen|
|00004e00| 46 6f 6e 74 24 2c 73 63 | 72 65 65 6e 46 6f 6e 74 |Font$,sc|reenFont|
|00004e10| 53 69 7a 65 00 00 20 69 | 6e 66 6f 24 3d 22 49 63 |Size.. i|nfo$="Ic|
|00004e20| 6f 6e 20 66 6f 6e 74 20 | 3a 20 22 2b 69 63 6f 6e |on font |: "+icon|
|00004e30| 46 6f 6e 74 24 2b 22 2c | 20 53 69 7a 65 20 3a 20 |Font$+",| Size : |
|00004e40| 22 2b dd 83 28 69 63 6f | 6e 46 6f 6e 74 53 69 7a |"+..(ico|nFontSiz|
|00004e50| 65 29 00 20 69 6e 66 6f | 24 3d 69 6e 66 6f 24 2b |e). info|$=info$+|
|00004e60| 22 7c 53 79 73 74 65 6d | 20 66 6f 6e 74 20 3a 20 |"|System| font : |
|00004e70| 22 2b 73 79 73 74 65 6d | 46 6f 6e 74 24 2b 22 2c |"+system|Font$+",|
|00004e80| 20 53 69 7a 65 20 3a 20 | 22 2b dd 83 28 73 79 73 | Size : |"+..(sys|
|00004e90| 74 65 6d 46 6f 6e 74 53 | 69 7a 65 29 00 20 69 6e |temFontS|ize). in|
|00004ea0| 66 6f 24 3d 69 6e 66 6f | 24 2b 22 7c 53 63 72 65 |fo$=info|$+"|Scre|
|00004eb0| 65 6e 20 66 6f 6e 74 20 | 3a 20 22 2b 73 63 72 65 |en font |: "+scre|
|00004ec0| 65 6e 46 6f 6e 74 24 2b | 22 2c 20 53 69 7a 65 20 |enFont$+|", Size |
|00004ed0| 3a 20 22 2b dd 83 28 73 | 63 72 65 65 6e 46 6f 6e |: "+..(s|creenFon|
|00004ee0| 74 53 69 7a 65 29 00 00 | 20 b5 8d 20 22 22 2c 69 |tSize)..| .. "",i|
|00004ef0| 6e 66 6f 24 2c 22 43 6f | 6f 6c 22 00 00 20 80 02 |nfo$,"Co|ol".. ..|
|00004f00| 00 00 3b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..;-----|--------|
|00004f10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004f20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004f40| 2d 2d 2d 00 00 4c 6f 61 | 64 46 69 6c 65 00 00 3b |---..Loa|dFile..;|
|00004f50| 20 74 68 69 73 20 69 73 | 20 74 68 65 20 73 75 62 | this is| the sub|
|00004f60| 72 6f 75 74 69 6e 65 20 | 63 61 6c 6c 65 64 20 62 |routine |called b|
|00004f70| 79 20 74 68 65 20 22 52 | 65 61 64 46 6f 6e 74 73 |y the "R|eadFonts|
|00004f80| 22 20 72 6f 75 74 69 6e | 65 20 3a 00 00 20 3b 20 |" routin|e :.. ; |
|00004f90| 54 68 69 73 20 72 6f 75 | 74 69 6e 65 20 61 64 64 |This rou|tine add|
|00004fa0| 73 20 74 6f 20 74 68 65 | 20 73 74 72 69 6e 67 20 |s to the| string |
|00004fb0| 66 6f 6e 74 50 72 65 66 | 73 24 20 74 68 65 20 66 |fontPref|s$ the f|
|00004fc0| 69 6c 65 20 66 69 24 20 | 6f 66 00 20 3b 20 6c 65 |ile fi$ |of. ; le|
|00004fd0| 6e 67 74 68 20 66 69 4c | 65 6e 2e 00 20 65 72 72 |ngth fiL|en.. err|
|00004fe0| 3d 30 00 20 80 b4 3a 65 | 72 72 3d 2d 31 3a 80 02 |=0. ..:e|rr=-1:..|
|00004ff0| 20 80 b4 00 20 20 80 0b | 20 65 72 72 3d 30 00 20 | ...  ..| err=0. |
|00005000| 20 20 80 0b 20 be 11 28 | 30 2c 66 69 24 29 00 20 |  .. ..(|0,fi$). |
|00005010| 20 20 20 be 08 20 30 00 | 20 20 20 20 66 6f 6e 74 |   .. 0.|    font|
|00005020| 50 72 65 66 73 24 2b dd | 02 28 66 69 4c 65 6e 29 |Prefs$+.|.(fiLen)|
|00005030| 00 20 20 20 80 c0 00 20 | 20 80 c0 00 20 20 be 02 |.   ... | ...  ..|
|00005040| 20 30 00 20 20 d2 01 00 | 20 80 b5 00 80 07 00 00 | 0.  ...| .......|
|00005050| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 20 45 4e |;-------|----- EN|
|00005060| 44 20 6f 66 20 43 61 72 | 6c 27 73 20 57 42 46 4f |D of Car|l's WBFO|
|00005070| 4e 54 20 52 4f 55 54 49 | 4e 45 20 2d 2d 2d 2d 2d |NT ROUTI|NE -----|
|00005080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005090| 2d 00 00                |                         |-..     |        |
+--------+-------------------------+-------------------------+--------+--------+