home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / progrmng / qbgrphcs.sit / event shell.bas < prev    next >
MacBinary  |  1991-04-21  |  22.9 KB  |  [TEXT/MSBB]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Apr 21 12:26:55 1991, modified Sun Apr 21 12:26:55 1991, creator Microsoft BASIC (binary), type ASCII, 22428 bytes "event shell.bas" , at 0x581c 686 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MSBB]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 65 76 65 6e 74 20 | 73 68 65 6c 6c 2e 62 61 |..event |shell.ba|
|00000010| 73 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 42 | 42 01 00 00 00 00 00 00 |.TEXTMSB|B.......|
|00000050| 00 00 00 00 00 57 9c 00 | 00 02 ae a4 37 6d cf a4 |.....W..|....7m..|
|00000060| 37 6d cf 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |7m......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0a de 00 00 |........|........|
|00000080| 27 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |'-------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000000d0| 27 20 54 49 54 4c 45 3a | 20 20 20 20 65 76 65 6e |' TITLE:| even|
|000000e0| 74 20 73 68 65 6c 6c 0d | 27 20 44 41 54 45 3a 20 |t shell.|' DATE: |
|000000f0| 20 20 20 20 4d 61 72 63 | 68 20 36 2c 20 31 39 39 | Marc|h 6, 199|
|00000100| 31 0d 27 20 41 55 54 48 | 4f 52 3a 20 52 2e 20 47 |1.' AUTH|OR: R. G|
|00000110| 6f 6e 7a 61 6c 65 7a 0d | 27 0d 27 20 44 45 53 43 |onzalez.|'.' DESC|
|00000120| 52 49 50 54 49 4f 4e 3a | 20 20 53 61 6d 70 6c 65 |RIPTION:| Sample|
|00000130| 20 65 76 65 6e 74 2d 6c | 6f 6f 70 20 61 70 70 6c | event-l|oop appl|
|00000140| 69 63 61 74 69 6f 6e 2c | 20 66 6f 72 20 75 73 65 |ication,| for use|
|00000150| 20 61 73 20 61 20 73 68 | 65 6c 6c 20 74 6f 20 64 | as a sh|ell to d|
|00000160| 65 76 65 6c 6f 70 0d 27 | 20 6e 65 77 20 61 70 70 |evelop.'| new app|
|00000170| 6c 69 63 61 74 69 6f 6e | 73 2e 20 20 44 65 6d 6f |lication|s. Demo|
|00000180| 6e 73 74 72 61 74 65 73 | 20 64 65 66 69 6e 69 6e |nstrates| definin|
|00000190| 67 20 6d 65 6e 75 73 20 | 61 6e 64 20 77 69 6e 64 |g menus |and wind|
|000001a0| 6f 77 73 20 61 6e 64 20 | 70 6f 6c 6c 69 6e 67 20 |ows and |polling |
|000001b0| 66 6f 72 0d 27 20 65 76 | 65 6e 74 73 2e 20 20 41 |for.' ev|ents. A|
|000001c0| 6c 73 6f 20 64 65 6d 6f | 6e 73 74 72 61 74 65 73 |lso demo|nstrates|
|000001d0| 20 68 6f 77 20 74 6f 20 | 76 65 72 69 66 79 20 65 | how to |verify e|
|000001e0| 64 69 74 20 66 69 65 6c | 64 20 76 61 6c 75 65 73 |dit fiel|d values|
|000001f0| 20 28 74 72 79 20 74 79 | 70 69 6e 67 20 22 52 69 | (try ty|ping "Ri|
|00000200| 63 68 61 72 64 0d 27 20 | 4e 69 78 6f 6e 22 20 69 |chard.' |Nixon" i|
|00000210| 6e 20 74 68 65 20 64 61 | 74 61 20 66 69 65 6c 64 |n the da|ta field|
|00000220| 29 2c 20 73 68 6f 77 20 | 61 6c 74 65 72 6e 61 74 |), show |alternat|
|00000230| 69 76 65 20 63 75 72 73 | 6f 72 73 20 28 73 65 6c |ive curs|ors (sel|
|00000240| 65 63 74 20 74 68 65 20 | 22 50 72 65 66 65 72 65 |ect the |"Prefere|
|00000250| 6e 63 65 73 22 0d 27 20 | 6d 65 6e 75 20 69 74 65 |nces".' |menu ite|
|00000260| 6d 29 2c 20 61 6e 64 20 | 74 72 61 63 6b 20 74 68 |m), and |track th|
|00000270| 65 20 6d 6f 75 73 65 20 | 70 6f 73 69 74 69 6f 6e |e mouse |position|
|00000280| 2e 0d 27 0d 27 20 54 6f | 20 6d 61 6b 65 20 79 6f |..'.' To| make yo|
|00000290| 75 72 20 6f 77 6e 20 65 | 76 65 6e 74 2d 6c 6f 6f |ur own e|vent-loo|
|000002a0| 70 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 2c 20 64 |p applic|ation, d|
|000002b0| 6f 20 74 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 3a |o the fo|llowing:|
|000002c0| 0d 27 20 28 31 29 20 20 | 20 43 68 61 6e 67 65 20 |.' (1) | Change |
|000002d0| 74 68 65 20 6d 65 6e 75 | 20 72 6f 75 74 69 6e 65 |the menu| routine|
|000002e0| 73 20 74 6f 20 73 75 69 | 74 20 79 6f 75 72 20 61 |s to sui|t your a|
|000002f0| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 20 20 59 6f 75 |pplicati|on. You|
|00000300| 20 6d 61 79 20 6c 65 61 | 76 65 20 74 68 65 0d 27 | may lea|ve the.'|
|00000310| 20 20 20 20 20 20 20 20 | 46 69 6c 65 20 6d 65 6e | |File men|
|00000320| 75 20 28 61 6e 64 20 68 | 61 6e 64 6c 65 2e 66 69 |u (and h|andle.fi|
|00000330| 6c 65 2e 6d 65 6e 75 29 | 20 75 6e 63 68 61 6e 67 |le.menu)| unchang|
|00000340| 65 64 20 69 66 20 64 65 | 73 69 72 65 64 2e 0d 27 |ed if de|sired..'|
|00000350| 20 28 32 29 20 20 44 65 | 66 69 6e 65 20 67 6c 6f | (2) De|fine glo|
|00000360| 62 61 6c 20 28 44 49 4d | 20 53 48 41 52 45 44 29 |bal (DIM| SHARED)|
|00000370| 20 76 61 72 69 61 62 6c | 65 73 20 66 6f 72 20 79 | variabl|es for y|
|00000380| 6f 75 72 20 64 61 74 61 | 2c 20 69 6e 20 70 6c 61 |our data|, in pla|
|00000390| 63 65 20 6f 66 20 74 68 | 6f 73 65 0d 27 20 20 20 |ce of th|ose.' |
|000003a0| 20 20 20 20 20 49 27 76 | 65 20 64 65 66 69 6e 65 | I'v|e define|
|000003b0| 64 20 28 6d 69 6e 65 20 | 62 65 67 69 6e 20 77 69 |d (mine |begin wi|
|000003c0| 74 68 20 22 64 64 22 29 | 2e 0d 27 20 28 33 29 20 |th "dd")|..' (3) |
|000003d0| 20 20 43 68 61 6e 67 65 | 20 69 6e 69 74 69 61 6c | Change| initial|
|000003e0| 69 7a 65 2e 64 61 74 61 | 2c 20 73 61 76 65 2e 64 |ize.data|, save.d|
|000003f0| 61 74 61 2c 20 6c 6f 61 | 64 2e 64 61 74 61 2c 20 |ata, loa|d.data, |
|00000400| 61 6e 64 20 74 68 65 20 | 77 69 6e 64 6f 77 2c 20 |and the |window, |
|00000410| 62 75 74 74 6f 6e 2c 0d | 27 20 20 20 20 20 20 20 |button,.|' |
|00000420| 20 61 6e 64 20 65 64 69 | 74 20 66 69 65 6c 64 20 | and edi|t field |
|00000430| 72 6f 75 74 69 6e 65 73 | 20 74 6f 20 68 61 6e 64 |routines| to hand|
|00000440| 6c 65 20 79 6f 75 72 20 | 6f 77 6e 20 64 61 74 61 |le your |own data|
|00000450| 20 61 63 63 6f 72 64 69 | 6e 67 6c 79 2e 0d 27 20 | accordi|ngly..' |
|00000460| 28 34 29 20 20 20 53 65 | 74 20 74 68 65 20 67 6c |(4) Se|t the gl|
|00000470| 6f 62 61 6c 20 76 61 72 | 69 61 62 6c 65 20 63 68 |obal var|iable ch|
|00000480| 61 6e 67 65 73 25 20 74 | 6f 20 54 52 55 45 25 20 |anges% t|o TRUE% |
|00000490| 61 6e 64 20 63 61 6c 6c | 20 6d 65 6e 75 2e 61 66 |and call| menu.af|
|000004a0| 74 65 72 2e 63 68 61 6e | 67 65 73 0d 27 20 20 20 |ter.chan|ges.' |
|000004b0| 20 20 20 20 20 77 68 65 | 6e 20 74 68 65 20 75 73 | whe|n the us|
|000004c0| 65 72 20 63 68 61 6e 67 | 65 73 20 6f 6e 65 20 6f |er chang|es one o|
|000004d0| 66 20 79 6f 75 72 20 6f | 77 6e 20 67 6c 6f 62 61 |f your o|wn globa|
|000004e0| 6c 20 64 61 74 61 20 76 | 61 72 69 61 62 6c 65 73 |l data v|ariables|
|000004f0| 2e 20 20 4e 6f 74 65 20 | 74 68 61 74 0d 27 20 20 |. Note |that.' |
|00000500| 20 20 20 20 20 20 69 66 | 20 79 6f 75 20 68 61 76 | if| you hav|
|00000510| 65 20 65 64 69 74 20 66 | 69 65 6c 64 73 20 74 68 |e edit f|ields th|
|00000520| 65 6e 20 79 6f 75 20 6d | 61 79 20 6e 65 65 64 20 |en you m|ay need |
|00000530| 74 6f 20 61 63 74 69 76 | 65 6c 79 20 63 68 65 63 |to activ|ely chec|
|00000540| 6b 20 77 68 65 74 68 65 | 72 0d 27 20 20 20 20 20 |k whethe|r.' |
|00000550| 20 20 20 74 68 65 20 75 | 73 65 72 20 68 61 73 20 | the u|ser has |
|00000560| 74 79 70 65 64 20 61 6e | 79 74 68 69 6e 67 20 2d |typed an|ything -|
|00000570| 20 73 65 65 20 6d 79 20 | 75 73 65 20 6f 66 20 63 | see my |use of c|
|00000580| 68 65 63 6b 2e 66 6f 72 | 2e 65 64 69 74 2e 63 68 |heck.for|.edit.ch|
|00000590| 61 6e 67 65 73 2e 0d 27 | 0d 27 20 43 4f 4d 50 49 |anges..'|.' COMPI|
|000005a0| 4c 49 4e 47 3a 20 20 20 | 20 52 65 6d 6f 76 65 20 |LING: | Remove |
|000005b0| 53 54 41 54 49 43 20 64 | 65 63 6c 61 72 61 74 69 |STATIC d|eclarati|
|000005c0| 6f 6e 73 2c 20 75 6e 63 | 6f 6d 6d 65 6e 74 20 69 |ons, unc|omment i|
|000005d0| 6e 64 69 63 61 74 65 64 | 20 6c 69 6e 65 73 0d 27 |ndicated| lines.'|
|000005e0| 20 20 20 20 20 43 68 65 | 63 6b 3a 20 49 6e 63 6c | Che|ck: Incl|
|000005f0| 75 64 65 20 4d 42 50 43 | 73 20 26 20 4d 42 4c 43 |ude MBPC|s & MBLC|
|00000600| 73 2c 20 49 6e 63 6c 75 | 64 65 20 72 75 6e 74 69 |s, Inclu|de runti|
|00000610| 6d 65 20 63 6f 64 65 2c | 20 4d 61 6b 65 20 61 6c |me code,| Make al|
|00000620| 6c 20 61 72 72 61 79 73 | 20 73 74 61 74 69 63 2c |l arrays| static,|
|00000630| 0d 27 20 20 20 20 20 55 | 73 65 20 64 65 66 61 75 |.' U|se defau|
|00000640| 6c 74 20 77 69 6e 64 6f | 77 20 26 20 6d 65 6e 75 |lt windo|w & menu|
|00000650| 2c 20 28 69 66 20 61 76 | 61 69 6c 61 62 6c 65 3a |, (if av|ailable:|
|00000660| 20 47 65 6e 65 72 61 74 | 65 20 36 38 30 32 30 20 | Generat|e 68020 |
|00000670| 26 20 36 38 38 38 31 20 | 63 6f 64 65 29 2e 0d 27 |& 68881 |code)..'|
|00000680| 0d 27 20 28 4d 4f 44 49 | 46 49 43 41 54 49 4f 4e |.' (MODI|FICATION|
|00000690| 20 48 49 53 54 4f 52 59 | 29 0d 27 20 44 41 54 45 | HISTORY|).' DATE|
|000006a0| 3a 20 20 20 20 20 0d 27 | 20 41 55 54 48 4f 52 3a |: .'| AUTHOR:|
|000006b0| 20 0d 27 20 44 45 53 43 | 52 49 50 54 49 4f 4e 3a | .' DESC|RIPTION:|
|000006c0| 20 20 0d 27 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | .'----|--------|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000710| 2d 2d 0d 0d 27 20 74 68 | 65 73 65 20 76 61 72 69 |--..' th|ese vari|
|00000720| 61 62 6c 65 73 20 6d 61 | 79 20 62 65 20 73 68 61 |ables ma|y be sha|
|00000730| 72 65 64 20 61 6d 6f 6e | 67 20 73 65 76 65 72 61 |red amon|g severa|
|00000740| 6c 20 73 75 62 70 72 6f | 67 72 61 6d 73 3a 0d 44 |l subpro|grams:.D|
|00000750| 49 4d 20 53 48 41 52 45 | 44 20 54 52 55 45 25 2c |IM SHARE|D TRUE%,|
|00000760| 46 41 4c 53 45 25 2c 6d | 65 6e 75 2e 73 74 61 74 |FALSE%,m|enu.stat|
|00000770| 65 25 2c 63 68 61 6e 67 | 65 73 25 2c 77 69 6e 64 |e%,chang|es%,wind|
|00000780| 6f 77 2e 6f 70 65 6e 25 | 2c 77 69 6e 78 25 2c 77 |ow.open%|,winx%,w|
|00000790| 69 6e 79 25 0d 44 49 4d | 20 53 48 41 52 45 44 20 |iny%.DIM| SHARED |
|000007a0| 70 69 2c 70 69 63 25 28 | 32 34 30 30 29 2c 73 65 |pi,pic%(|2400),se|
|000007b0| 6c 65 63 74 65 64 2e 66 | 69 65 6c 64 25 0d 27 20 |lected.f|ield%.' |
|000007c0| 67 6c 6f 62 61 6c 20 64 | 61 74 61 20 76 61 72 69 |global d|ata vari|
|000007d0| 61 62 6c 65 73 3a 0d 44 | 49 4d 20 53 48 41 52 45 |ables:.D|IM SHARE|
|000007e0| 44 20 64 64 2e 65 64 69 | 74 31 24 2c 64 64 2e 65 |D dd.edi|t1$,dd.e|
|000007f0| 64 69 74 32 24 2c 64 64 | 2e 63 69 72 63 6c 65 2e |dit2$,dd|.circle.|
|00000800| 6f 6e 25 0d 27 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |on%.'---|--------|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000830| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000850| 2d 2d 2d 0d 27 20 6d 61 | 69 6e 20 70 72 6f 63 65 |---.' ma|in proce|
|00000860| 64 75 72 65 0d 27 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |dure.'--|--------|
|00000870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008b0| 2d 2d 2d 2d 0d 27 4d 41 | 49 4e 0d 20 20 20 20 0d |----.'MA|IN. .|
|000008c0| 20 20 20 20 44 49 4d 20 | 64 6f 6e 65 25 2c 6d 65 | DIM |done%,me|
|000008d0| 6e 75 2e 65 76 65 6e 74 | 25 2c 77 69 6e 64 6f 77 |nu.event|%,window|
|000008e0| 2e 65 76 65 6e 74 25 2c | 77 69 6e 64 6f 77 2e 6e |.event%,|window.n|
|000008f0| 75 6d 62 65 72 25 2c 6d | 6f 75 73 65 2e 65 76 65 |umber%,m|ouse.eve|
|00000900| 6e 74 25 0d 20 20 20 20 | 44 49 4d 20 66 69 6c 65 |nt%. |DIM file|
|00000910| 2e 6e 61 6d 65 24 0d 0d | 20 20 20 20 57 49 4e 44 |.name$..| WIND|
|00000920| 4f 57 20 43 4c 4f 53 45 | 20 31 20 20 27 63 6c 6f |OW CLOSE| 1 'clo|
|00000930| 73 65 20 64 65 66 61 75 | 6c 74 20 77 69 6e 64 6f |se defau|lt windo|
|00000940| 77 0d 0d 20 20 20 20 54 | 52 55 45 25 20 3d 20 2d |w.. T|RUE% = -|
|00000950| 31 0d 20 20 20 20 46 41 | 4c 53 45 25 20 3d 20 30 |1. FA|LSE% = 0|
|00000960| 0d 20 20 20 20 70 69 20 | 3d 20 33 2e 31 34 31 35 |. pi |= 3.1415|
|00000970| 39 0d 20 20 20 20 0d 20 | 20 20 20 69 6e 69 74 69 |9. . | initi|
|00000980| 61 6c 69 7a 65 2e 64 61 | 74 61 0d 20 20 20 20 73 |alize.da|ta. s|
|00000990| 65 74 75 70 2e 6d 65 6e | 75 0d 20 20 20 20 66 69 |etup.men|u. fi|
|000009a0| 6c 65 2e 6e 61 6d 65 24 | 20 3d 20 22 55 6e 74 69 |le.name$| = "Unti|
|000009b0| 74 6c 65 64 22 0d 20 20 | 20 20 6f 70 65 6e 2e 6d |tled". | open.m|
|000009c0| 61 69 6e 2e 77 69 6e 64 | 6f 77 20 66 69 6c 65 2e |ain.wind|ow file.|
|000009d0| 6e 61 6d 65 24 2c 54 52 | 55 45 25 0d 20 20 20 20 |name$,TR|UE%. |
|000009e0| 77 69 6e 64 6f 77 2e 6f | 70 65 6e 25 20 3d 20 54 |window.o|pen% = T|
|000009f0| 52 55 45 25 0d 20 20 20 | 20 64 6f 6e 65 25 20 3d |RUE%. | done% =|
|00000a00| 20 46 41 4c 53 45 25 0d | 0d 20 20 20 20 27 20 6d | FALSE%.|. ' m|
|00000a10| 61 69 6e 20 65 76 65 6e | 74 20 6c 6f 6f 70 0d 20 |ain even|t loop. |
|00000a20| 20 20 20 57 48 49 4c 45 | 20 4e 4f 54 20 64 6f 6e | WHILE| NOT don|
|00000a30| 65 25 0d 20 20 20 20 0d | 20 20 20 20 20 20 20 20 |e%. .| |
|00000a40| 6d 65 6e 75 2e 65 76 65 | 6e 74 25 20 3d 20 4d 45 |menu.eve|nt% = ME|
|00000a50| 4e 55 28 30 29 0d 20 20 | 20 20 20 20 20 20 49 46 |NU(0). | IF|
|00000a60| 20 6d 65 6e 75 2e 65 76 | 65 6e 74 25 20 3c 3e 20 | menu.ev|ent% <> |
|00000a70| 30 20 54 48 45 4e 0d 20 | 20 20 20 20 20 20 20 20 |0 THEN. | |
|00000a80| 20 20 20 68 61 6e 64 6c | 65 2e 6d 65 6e 75 20 6d | handl|e.menu m|
|00000a90| 65 6e 75 2e 65 76 65 6e | 74 25 2c 66 69 6c 65 2e |enu.even|t%,file.|
|00000aa0| 6e 61 6d 65 24 2c 64 6f | 6e 65 25 0d 20 20 20 20 |name$,do|ne%. |
|00000ab0| 20 20 20 20 45 4e 44 20 | 49 46 0d 0d 20 20 20 20 | END |IF.. |
|00000ac0| 20 20 20 20 77 69 6e 64 | 6f 77 2e 65 76 65 6e 74 | wind|ow.event|
|00000ad0| 25 20 3d 20 44 49 41 4c | 4f 47 28 30 29 0d 20 20 |% = DIAL|OG(0). |
|00000ae0| 20 20 20 20 20 20 27 49 | 6e 20 63 61 73 65 20 79 | 'I|n case y|
|00000af0| 6f 75 20 64 65 63 69 64 | 65 20 74 6f 20 75 73 65 |ou decid|e to use|
|00000b00| 20 6d 75 6c 74 69 70 6c | 65 20 77 69 6e 64 6f 77 | multipl|e window|
|00000b10| 73 3a 0d 20 20 20 20 20 | 20 20 20 77 69 6e 64 6f |s:. | windo|
|00000b20| 77 2e 6e 75 6d 62 65 72 | 25 20 3d 20 57 49 4e 44 |w.number|% = WIND|
|00000b30| 4f 57 28 30 29 0d 20 20 | 20 20 20 20 20 20 49 46 |OW(0). | IF|
|00000b40| 20 77 69 6e 64 6f 77 2e | 65 76 65 6e 74 25 20 3c | window.|event% <|
|00000b50| 3e 20 30 20 54 48 45 4e | 0d 20 20 20 20 20 20 20 |> 0 THEN|. |
|00000b60| 20 20 20 20 20 68 61 6e | 64 6c 65 2e 77 69 6e 64 | han|dle.wind|
|00000b70| 6f 77 20 77 69 6e 64 6f | 77 2e 65 76 65 6e 74 25 |ow windo|w.event%|
|00000b80| 2c 77 69 6e 64 6f 77 2e | 6e 75 6d 62 65 72 25 2c |,window.|number%,|
|00000b90| 66 69 6c 65 2e 6e 61 6d | 65 24 0d 20 20 20 20 20 |file.nam|e$. |
|00000ba0| 20 20 20 45 4e 44 20 49 | 46 0d 0d 20 20 20 20 20 | END I|F.. |
|00000bb0| 20 20 20 6d 6f 75 73 65 | 2e 65 76 65 6e 74 25 20 | mouse|.event% |
|00000bc0| 3d 20 4d 4f 55 53 45 28 | 30 29 0d 20 20 20 20 20 |= MOUSE(|0). |
|00000bd0| 20 20 20 49 46 20 77 69 | 6e 64 6f 77 2e 6f 70 65 | IF wi|ndow.ope|
|00000be0| 6e 25 20 41 4e 44 20 6d | 6f 75 73 65 2e 65 76 65 |n% AND m|ouse.eve|
|00000bf0| 6e 74 25 20 3c 3e 20 30 | 20 54 48 45 4e 0d 20 20 |nt% <> 0| THEN. |
|00000c00| 20 20 20 20 20 20 20 20 | 20 20 68 61 6e 64 6c 65 | | handle|
|00000c10| 2e 6d 6f 75 73 65 20 6d | 6f 75 73 65 2e 65 76 65 |.mouse m|ouse.eve|
|00000c20| 6e 74 25 2c 77 69 6e 64 | 6f 77 2e 6e 75 6d 62 65 |nt%,wind|ow.numbe|
|00000c30| 72 25 0d 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 |r%. | END I|
|00000c40| 46 0d 0d 20 20 20 20 20 | 20 20 20 27 4e 6f 20 51 |F.. | 'No Q|
|00000c50| 75 69 63 6b 42 41 53 49 | 43 20 65 76 65 6e 74 20 |uickBASI|C event |
|00000c60| 69 73 20 67 65 6e 65 72 | 61 74 65 64 20 77 68 65 |is gener|ated whe|
|00000c70| 6e 20 79 6f 75 20 74 79 | 70 65 20 69 6e 20 61 6e |n you ty|pe in an|
|00000c80| 20 65 64 69 74 20 66 69 | 65 6c 64 2c 0d 20 20 20 | edit fi|eld,. |
|00000c90| 20 20 20 20 20 27 73 6f | 20 63 68 65 63 6b 20 66 | 'so| check f|
|00000ca0| 6f 72 20 63 68 61 6e 67 | 65 73 20 70 65 72 69 6f |or chang|es perio|
|00000cb0| 64 69 63 61 6c 6c 79 3a | 0d 20 20 20 20 20 20 20 |dically:|. |
|00000cc0| 20 49 46 20 77 69 6e 64 | 6f 77 2e 6f 70 65 6e 25 | IF wind|ow.open%|
|00000cd0| 20 54 48 45 4e 0d 20 20 | 20 20 20 20 20 20 20 20 | THEN. | |
|00000ce0| 20 20 63 68 65 63 6b 2e | 66 6f 72 2e 65 64 69 74 | check.|for.edit|
|00000cf0| 2e 63 68 61 6e 67 65 73 | 0d 20 20 20 20 20 20 20 |.changes|. |
|00000d00| 20 45 4e 44 20 49 46 0d | 20 20 20 20 20 20 20 20 | END IF.| |
|00000d10| 0d 20 20 20 20 57 45 4e | 44 0d 20 20 20 20 20 20 |. WEN|D. |
|00000d20| 20 20 0d 45 4e 44 0d 0d | 27 2d 2d 2d 2d 2d 2d 2d | .END..|'-------|
|00000d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000d70| 2d 2d 2d 2d 2d 2d 2d 0d | 27 20 69 6e 69 74 69 61 |-------.|' initia|
|00000d80| 6c 69 7a 65 20 67 6c 6f | 62 61 6c 20 64 61 74 61 |lize glo|bal data|
|00000d90| 0d 27 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.'------|--------|
|00000da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000de0| 0d 53 55 42 20 69 6e 69 | 74 69 61 6c 69 7a 65 2e |.SUB ini|tialize.|
|00000df0| 64 61 74 61 20 53 54 41 | 54 49 43 0d 0d 20 20 20 |data STA|TIC.. |
|00000e00| 20 64 64 2e 65 64 69 74 | 31 24 20 3d 20 22 22 0d | dd.edit|1$ = "".|
|00000e10| 20 20 20 20 64 64 2e 65 | 64 69 74 32 24 20 3d 20 | dd.e|dit2$ = |
|00000e20| 22 22 0d 20 20 20 20 64 | 64 2e 63 69 72 63 6c 65 |"". d|d.circle|
|00000e30| 2e 6f 6e 25 20 3d 20 46 | 41 4c 53 45 25 0d 20 20 |.on% = F|ALSE%. |
|00000e40| 20 20 0d 20 20 20 20 63 | 68 61 6e 67 65 73 25 20 | . c|hanges% |
|00000e50| 3d 20 46 41 4c 53 45 25 | 0d 20 20 20 20 73 65 6c |= FALSE%|. sel|
|00000e60| 65 63 74 65 64 2e 66 69 | 65 6c 64 25 20 3d 20 31 |ected.fi|eld% = 1|
|00000e70| 0d 20 20 20 20 0d 45 4e | 44 20 53 55 42 0d 0d 27 |. .EN|D SUB..'|
|00000e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 27 |--------|------.'|
|00000ed0| 20 73 65 74 20 75 70 20 | 6f 70 65 6e 69 6e 67 20 | set up |opening |
|00000ee0| 6d 65 6e 75 0d 27 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |menu.'--|--------|
|00000ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|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 0d 53 55 42 | 20 73 65 74 75 70 2e 6d |----.SUB| setup.m|
|00000f40| 65 6e 75 20 53 54 41 54 | 49 43 0d 0d 20 20 20 20 |enu STAT|IC.. |
|00000f50| 6d 65 6e 75 2e 73 74 61 | 74 65 25 20 3d 20 30 0d |menu.sta|te% = 0.|
|00000f60| 20 20 20 20 0d 20 20 20 | 20 4d 45 4e 55 20 31 2c | . | MENU 1,|
|00000f70| 30 2c 31 2c 22 46 69 6c | 65 22 0d 20 20 20 20 4d |0,1,"Fil|e". M|
|00000f80| 45 4e 55 20 31 2c 31 2c | 31 2c 22 4e 65 77 22 0d |ENU 1,1,|1,"New".|
|00000f90| 20 20 20 20 4d 45 4e 55 | 20 31 2c 32 2c 31 2c 22 | MENU| 1,2,1,"|
|00000fa0| 4f 70 65 6e 2e 2e 2e 22 | 3a 63 6d 64 6b 65 79 20 |Open..."|:cmdkey |
|00000fb0| 31 2c 32 2c 22 4f 22 0d | 20 20 20 20 4d 45 4e 55 |1,2,"O".| MENU|
|00000fc0| 20 31 2c 33 2c 31 2c 22 | 43 6c 6f 73 65 22 0d 20 | 1,3,1,"|Close". |
|00000fd0| 20 20 20 4d 45 4e 55 20 | 31 2c 34 2c 30 2c 22 53 | MENU |1,4,0,"S|
|00000fe0| 61 76 65 22 3a 63 6d 64 | 6b 65 79 20 31 2c 34 2c |ave":cmd|key 1,4,|
|00000ff0| 22 53 22 0d 20 20 20 20 | 4d 45 4e 55 20 31 2c 35 |"S". |MENU 1,5|
|00001000| 2c 31 2c 22 53 61 76 65 | 20 41 73 2e 2e 2e 22 0d |,1,"Save| As...".|
|00001010| 20 20 20 20 4d 45 4e 55 | 20 31 2c 36 2c 31 2c 22 | MENU| 1,6,1,"|
|00001020| 50 72 69 6e 74 2e 2e 2e | 22 0d 20 20 20 20 4d 45 |Print...|". ME|
|00001030| 4e 55 20 31 2c 37 2c 31 | 2c 22 51 75 69 74 22 3a |NU 1,7,1|,"Quit":|
|00001040| 63 6d 64 6b 65 79 20 31 | 2c 37 2c 22 51 22 0d 0d |cmdkey 1|,7,"Q"..|
|00001050| 20 20 20 20 27 20 75 73 | 65 20 64 65 66 61 75 6c | ' us|e defaul|
|00001060| 74 20 65 64 69 74 20 6d | 65 6e 75 0d 0d 20 20 20 |t edit m|enu.. |
|00001070| 20 4d 45 4e 55 20 33 2c | 30 2c 31 2c 22 44 61 74 | MENU 3,|0,1,"Dat|
|00001080| 61 22 0d 20 20 20 20 4d | 45 4e 55 20 33 2c 31 2c |a". M|ENU 3,1,|
|00001090| 31 2c 22 50 72 65 66 65 | 72 65 6e 63 65 73 2e 2e |1,"Prefe|rences..|
|000010a0| 2e 22 0d 0d 45 4e 44 20 | 53 55 42 0d 0d 27 2d 2d |."..END |SUB..'--|
|000010b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 27 20 6d |--------|----.' m|
|00001100| 65 6e 75 20 77 68 65 6e | 20 6e 6f 20 77 69 6e 64 |enu when| no wind|
|00001110| 6f 77 20 6f 70 65 6e 0d | 27 2d 2d 2d 2d 2d 2d 2d |ow open.|'-------|
|00001120| 2d 2d 2d 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 2d 2d 2d 0d | 53 55 42 20 77 69 6e 64 |-------.|SUB wind|
|00001170| 6f 77 6c 65 73 73 2e 6d | 65 6e 75 20 53 54 41 54 |owless.m|enu STAT|
|00001180| 49 43 0d 0d 20 20 20 20 | 6d 65 6e 75 2e 73 74 61 |IC.. |menu.sta|
|00001190| 74 65 25 20 3d 20 31 0d | 20 20 20 20 0d 20 20 20 |te% = 1.| . |
|000011a0| 20 4d 45 4e 55 20 31 2c | 30 2c 31 2c 22 46 69 6c | MENU 1,|0,1,"Fil|
|000011b0| 65 22 0d 20 20 20 20 4d | 45 4e 55 20 31 2c 31 2c |e". M|ENU 1,1,|
|000011c0| 31 2c 22 4e 65 77 22 0d | 20 20 20 20 4d 45 4e 55 |1,"New".| MENU|
|000011d0| 20 31 2c 32 2c 31 2c 22 | 4f 70 65 6e 2e 2e 2e 22 | 1,2,1,"|Open..."|
|000011e0| 3a 63 6d 64 6b 65 79 20 | 31 2c 32 2c 22 4f 22 0d |:cmdkey |1,2,"O".|
|000011f0| 20 20 20 20 4d 45 4e 55 | 20 31 2c 33 2c 30 2c 22 | MENU| 1,3,0,"|
|00001200| 43 6c 6f 73 65 22 0d 20 | 20 20 20 4d 45 4e 55 20 |Close". | MENU |
|00001210| 31 2c 34 2c 30 2c 22 53 | 61 76 65 22 3a 63 6d 64 |1,4,0,"S|ave":cmd|
|00001220| 6b 65 79 20 31 2c 34 2c | 22 53 22 0d 20 20 20 20 |key 1,4,|"S". |
|00001230| 4d 45 4e 55 20 31 2c 35 | 2c 30 2c 22 53 61 76 65 |MENU 1,5|,0,"Save|
|00001240| 20 41 73 2e 2e 2e 22 0d | 20 20 20 20 4d 45 4e 55 | As...".| MENU|
|00001250| 20 31 2c 36 2c 30 2c 22 | 50 72 69 6e 74 2e 2e 2e | 1,6,0,"|Print...|
|00001260| 22 0d 20 20 20 20 4d 45 | 4e 55 20 31 2c 37 2c 31 |". ME|NU 1,7,1|
|00001270| 2c 22 51 75 69 74 22 3a | 63 6d 64 6b 65 79 20 31 |,"Quit":|cmdkey 1|
|00001280| 2c 37 2c 22 51 22 0d 0d | 20 20 20 20 27 20 75 73 |,7,"Q"..| ' us|
|00001290| 65 20 64 65 66 61 75 6c | 74 20 65 64 69 74 20 6d |e defaul|t edit m|
|000012a0| 65 6e 75 0d 0d 20 20 20 | 20 4d 45 4e 55 20 33 2c |enu.. | MENU 3,|
|000012b0| 30 2c 30 2c 22 44 61 74 | 61 22 0d 20 20 20 20 4d |0,0,"Dat|a". M|
|000012c0| 45 4e 55 20 33 2c 31 2c | 30 2c 22 50 72 65 66 65 |ENU 3,1,|0,"Prefe|
|000012d0| 72 65 6e 63 65 73 2e 2e | 2e 22 0d 0d 45 4e 44 20 |rences..|."..END |
|000012e0| 53 55 42 0d 0d 27 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |SUB..'--|--------|
|000012f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001330| 2d 2d 2d 2d 0d 27 20 6d | 65 6e 75 20 77 68 65 6e |----.' m|enu when|
|00001340| 20 77 69 6e 64 6f 77 20 | 63 6f 6e 74 65 6e 74 73 | window |contents|
|00001350| 20 68 61 76 65 20 63 68 | 61 6e 67 65 64 0d 27 2d | have ch|anged.'-|
|00001360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000013a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 53 55 |--------|-----.SU|
|000013b0| 42 20 6d 65 6e 75 2e 61 | 66 74 65 72 2e 63 68 61 |B menu.a|fter.cha|
|000013c0| 6e 67 65 73 20 53 54 41 | 54 49 43 0d 0d 20 20 20 |nges STA|TIC.. |
|000013d0| 20 6d 65 6e 75 2e 73 74 | 61 74 65 25 20 3d 20 32 | menu.st|ate% = 2|
|000013e0| 0d 20 20 20 20 0d 20 20 | 20 20 4d 45 4e 55 20 31 |. . | MENU 1|
|000013f0| 2c 30 2c 31 2c 22 46 69 | 6c 65 22 0d 20 20 20 20 |,0,1,"Fi|le". |
|00001400| 4d 45 4e 55 20 31 2c 31 | 2c 31 2c 22 4e 65 77 22 |MENU 1,1|,1,"New"|
|00001410| 0d 20 20 20 20 4d 45 4e | 55 20 31 2c 32 2c 31 2c |. MEN|U 1,2,1,|
|00001420| 22 4f 70 65 6e 2e 2e 2e | 22 3a 63 6d 64 6b 65 79 |"Open...|":cmdkey|
|00001430| 20 31 2c 32 2c 22 4f 22 | 0d 20 20 20 20 4d 45 4e | 1,2,"O"|. MEN|
|00001440| 55 20 31 2c 33 2c 31 2c | 22 43 6c 6f 73 65 22 0d |U 1,3,1,|"Close".|
|00001450| 20 20 20 20 4d 45 4e 55 | 20 31 2c 34 2c 31 2c 22 | MENU| 1,4,1,"|
|00001460| 53 61 76 65 22 3a 63 6d | 64 6b 65 79 20 31 2c 34 |Save":cm|dkey 1,4|
|00001470| 2c 22 53 22 0d 20 20 20 | 20 4d 45 4e 55 20 31 2c |,"S". | MENU 1,|
|00001480| 35 2c 31 2c 22 53 61 76 | 65 20 41 73 2e 2e 2e 22 |5,1,"Sav|e As..."|
|00001490| 0d 20 20 20 20 4d 45 4e | 55 20 31 2c 36 2c 31 2c |. MEN|U 1,6,1,|
|000014a0| 22 50 72 69 6e 74 2e 2e | 2e 22 0d 20 20 20 20 4d |"Print..|.". M|
|000014b0| 45 4e 55 20 31 2c 37 2c | 31 2c 22 51 75 69 74 22 |ENU 1,7,|1,"Quit"|
|000014c0| 3a 63 6d 64 6b 65 79 20 | 31 2c 37 2c 22 51 22 0d |:cmdkey |1,7,"Q".|
|000014d0| 0d 20 20 20 20 27 20 75 | 73 65 20 64 65 66 61 75 |. ' u|se defau|
|000014e0| 6c 74 20 65 64 69 74 20 | 6d 65 6e 75 0d 0d 20 20 |lt edit |menu.. |
|000014f0| 20 20 4d 45 4e 55 20 33 | 2c 30 2c 31 2c 22 44 61 | MENU 3|,0,1,"Da|
|00001500| 74 61 22 0d 20 20 20 20 | 4d 45 4e 55 20 33 2c 31 |ta". |MENU 3,1|
|00001510| 2c 31 2c 22 50 72 65 66 | 65 72 65 6e 63 65 73 2e |,1,"Pref|erences.|
|00001520| 2e 2e 22 0d 0d 45 4e 44 | 20 53 55 42 0d 0d 27 2d |.."..END| SUB..'-|
|00001530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 27 20 |--------|-----.' |
|00001580| 72 65 64 72 61 77 20 63 | 75 72 72 65 6e 74 20 6d |redraw c|urrent m|
|00001590| 65 6e 75 0d 27 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |enu.'---|--------|
|000015a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015e0| 2d 2d 2d 0d 53 55 42 20 | 72 65 73 74 6f 72 65 2e |---.SUB |restore.|
|000015f0| 6d 65 6e 75 20 53 54 41 | 54 49 43 0d 0d 20 20 20 |menu STA|TIC.. |
|00001600| 20 53 45 4c 45 43 54 20 | 43 41 53 45 20 6d 65 6e | SELECT |CASE men|
|00001610| 75 2e 73 74 61 74 65 25 | 0d 20 20 20 20 20 20 20 |u.state%|. |
|00001620| 20 43 41 53 45 20 30 3a | 20 20 20 20 73 65 74 75 | CASE 0:| setu|
|00001630| 70 2e 6d 65 6e 75 0d 0d | 20 20 20 20 20 20 20 20 |p.menu..| |
|00001640| 43 41 53 45 20 31 3a 20 | 20 20 20 77 69 6e 64 6f |CASE 1: | windo|
|00001650| 77 6c 65 73 73 2e 6d 65 | 6e 75 0d 20 20 20 20 20 |wless.me|nu. |
|00001660| 20 20 20 0d 20 20 20 20 | 20 20 20 20 43 41 53 45 | . | CASE|
|00001670| 20 32 3a 20 20 20 20 6d | 65 6e 75 2e 61 66 74 65 | 2: m|enu.afte|
|00001680| 72 2e 63 68 61 6e 67 65 | 73 0d 20 20 20 20 20 20 |r.change|s. |
|00001690| 20 20 0d 20 20 20 20 20 | 20 20 20 43 41 53 45 20 | . | CASE |
|000016a0| 45 4c 53 45 3a 0d 20 20 | 20 20 20 20 20 20 0d 20 |ELSE:. | . |
|000016b0| 20 20 20 45 4e 44 20 53 | 45 4c 45 43 54 0d 20 20 | END S|ELECT. |
|000016c0| 20 20 20 20 20 20 0d 45 | 4e 44 20 53 55 42 0d 20 | .E|ND SUB. |
|000016d0| 20 20 20 0d 27 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | .'---|--------|
|000016e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000016f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001700| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001720| 2d 2d 2d 0d 27 20 63 68 | 65 63 6b 20 77 68 61 74 |---.' ch|eck what|
|00001730| 20 6d 65 6e 75 20 77 61 | 73 20 63 68 6f 73 65 6e | menu wa|s chosen|
|00001740| 0d 27 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.'------|--------|
|00001750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001790| 0d 53 55 42 20 68 61 6e | 64 6c 65 2e 6d 65 6e 75 |.SUB han|dle.menu|
|000017a0| 20 28 6d 65 6e 75 2e 6e | 6f 25 2c 66 69 6c 65 2e | (menu.n|o%,file.|
|000017b0| 6e 61 6d 65 24 2c 64 6f | 6e 65 25 29 20 53 54 41 |name$,do|ne%) STA|
|000017c0| 54 49 43 0d 0d 20 20 20 | 20 27 20 66 6f 72 20 63 |TIC.. | ' for c|
|000017d0| 6f 6d 70 69 6c 65 72 20 | 6f 6e 6c 79 3a 0d 27 20 |ompiler |only:.' |
|000017e0| 20 20 20 64 69 6d 20 6d | 65 6e 75 2e 69 74 65 6d | dim m|enu.item|
|000017f0| 25 0d 0d 20 20 20 20 6d | 65 6e 75 2e 69 74 65 6d |%.. m|enu.item|
|00001800| 25 20 3d 20 4d 45 4e 55 | 28 31 29 0d 20 20 20 20 |% = MENU|(1). |
|00001810| 0d 20 20 20 20 53 45 4c | 45 43 54 20 43 41 53 45 |. SEL|ECT CASE|
|00001820| 20 6d 65 6e 75 2e 6e 6f | 25 0d 20 20 20 20 20 20 | menu.no|%. |
|00001830| 20 20 43 41 53 45 20 31 | 3a 20 20 20 20 68 61 6e | CASE 1|: han|
|00001840| 64 6c 65 2e 66 69 6c 65 | 2e 6d 65 6e 75 20 6d 65 |dle.file|.menu me|
|00001850| 6e 75 2e 69 74 65 6d 25 | 2c 66 69 6c 65 2e 6e 61 |nu.item%|,file.na|
|00001860| 6d 65 24 2c 64 6f 6e 65 | 25 0d 0d 20 20 20 20 20 |me$,done|%.. |
|00001870| 20 20 20 27 20 6c 65 74 | 20 51 42 20 68 61 6e 64 | ' let| QB hand|
|00001880| 6c 65 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 65 |le the d|efault e|
|00001890| 64 69 74 20 6d 65 6e 75 | 20 6f 6e 20 69 74 73 20 |dit menu| on its |
|000018a0| 6f 77 6e 0d 20 20 20 20 | 20 20 20 20 0d 20 20 20 |own. | . |
|000018b0| 20 20 20 20 20 43 41 53 | 45 20 33 3a 20 20 20 20 | CAS|E 3: |
|000018c0| 68 61 6e 64 6c 65 2e 64 | 61 74 61 2e 6d 65 6e 75 |handle.d|ata.menu|
|000018d0| 20 6d 65 6e 75 2e 69 74 | 65 6d 25 0d 0d 20 20 20 | menu.it|em%.. |
|000018e0| 20 20 20 20 20 43 41 53 | 45 20 45 4c 53 45 3a 0d | CAS|E ELSE:.|
|000018f0| 0d 20 20 20 20 45 4e 44 | 20 53 45 4c 45 43 54 0d |. END| SELECT.|
|00001900| 0d 45 4e 44 20 53 55 42 | 0d 0d 27 2d 2d 2d 2d 2d |.END SUB|..'-----|
|00001910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001920| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001930| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 27 20 63 68 65 63 |--------|-.' chec|
|00001960| 6b 20 77 68 61 74 20 66 | 69 6c 65 20 6d 65 6e 75 |k what f|ile menu|
|00001970| 20 69 74 65 6d 20 77 61 | 73 20 63 68 6f 73 65 6e | item wa|s chosen|
|00001980| 0d 27 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.'------|--------|
|00001990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019d0| 0d 53 55 42 20 68 61 6e | 64 6c 65 2e 66 69 6c 65 |.SUB han|dle.file|
|000019e0| 2e 6d 65 6e 75 20 28 6d | 65 6e 75 2e 69 74 65 6d |.menu (m|enu.item|
|000019f0| 25 2c 66 69 6c 65 2e 6e | 61 6d 65 24 2c 64 6f 6e |%,file.n|ame$,don|
|00001a00| 65 25 29 20 53 54 41 54 | 49 43 0d 0d 20 20 20 20 |e%) STAT|IC.. |
|00001a10| 27 20 66 6f 72 20 63 6f | 6d 70 69 6c 65 72 20 6f |' for co|mpiler o|
|00001a20| 6e 6c 79 3a 0d 27 20 20 | 20 64 69 6d 20 6e 65 77 |nly:.' | dim new|
|00001a30| 2e 6e 61 6d 65 24 2c 73 | 68 6f 72 74 2e 6e 61 6d |.name$,s|hort.nam|
|00001a40| 65 24 2c 73 75 63 63 65 | 73 73 25 0d 0d 20 20 20 |e$,succe|ss%.. |
|00001a50| 20 53 45 4c 45 43 54 20 | 43 41 53 45 20 6d 65 6e | SELECT |CASE men|
|00001a60| 75 2e 69 74 65 6d 25 0d | 20 20 20 20 20 20 20 20 |u.item%.| |
|00001a70| 43 41 53 45 20 31 3a 20 | 20 20 20 49 46 20 77 69 |CASE 1: | IF wi|
|00001a80| 6e 64 6f 77 2e 6f 70 65 | 6e 25 20 54 48 45 4e 0d |ndow.ope|n% THEN.|
|00001a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 63 6c 6f 73 | | clos|
|00001ab0| 65 2e 6d 61 69 6e 2e 77 | 69 6e 64 6f 77 20 73 75 |e.main.w|indow su|
|00001ac0| 63 63 65 73 73 25 0d 20 | 20 20 20 20 20 20 20 20 |ccess%. | |
|00001ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ae0| 20 20 20 77 69 6e 64 6f | 77 2e 6f 70 65 6e 25 20 | windo|w.open% |
|00001af0| 3d 20 4e 4f 54 20 73 75 | 63 63 65 73 73 25 0d 20 |= NOT su|ccess%. |
|00001b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b10| 20 20 20 20 20 20 20 45 | 4e 44 20 49 46 0d 20 20 | E|ND IF. |
|00001b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b30| 20 20 20 20 20 20 49 46 | 20 4e 4f 54 20 77 69 6e | IF| NOT win|
|00001b40| 64 6f 77 2e 6f 70 65 6e | 25 20 54 48 45 4e 0d 20 |dow.open|% THEN. |
|00001b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001b60| 20 20 20 20 20 20 20 20 | 20 20 20 66 69 6c 65 2e | | file.|
|00001b70| 6e 61 6d 65 24 20 3d 20 | 22 55 6e 74 69 74 6c 65 |name$ = |"Untitle|
|00001b80| 64 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d". | |
|00001b90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 69 | | i|
|00001ba0| 6e 69 74 69 61 6c 69 7a | 65 2e 64 61 74 61 0d 20 |nitializ|e.data. |
|00001bb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001bc0| 20 20 20 20 20 20 20 20 | 20 20 20 6f 70 65 6e 2e | | open.|
|00001bd0| 6d 61 69 6e 2e 77 69 6e | 64 6f 77 20 66 69 6c 65 |main.win|dow file|
|00001be0| 2e 6e 61 6d 65 24 2c 54 | 52 55 45 25 0d 20 20 20 |.name$,T|RUE%. |
|00001bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c00| 20 20 20 20 20 20 20 20 | 20 77 69 6e 64 6f 77 2e | | window.|
|00001c10| 6f 70 65 6e 25 20 3d 20 | 54 52 55 45 25 0d 20 20 |open% = |TRUE%. |
|00001c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001c30| 20 20 20 20 20 20 20 20 | 20 20 73 65 74 75 70 2e | | setup.|
|00001c40| 6d 65 6e 75 0d 20 20 20 | 20 20 20 20 20 20 20 20 |menu. | |
|00001c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4c 53 | | ELS|
|00001c60| 45 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |E. | |
|00001c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 72 65 | | re|
|00001c80| 73 74 6f 72 65 2e 6d 65 | 6e 75 0d 20 20 20 20 20 |store.me|nu. |
|00001c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ca0| 20 20 20 45 4e 44 20 49 | 46 0d 0d 20 20 20 20 20 | END I|F.. |
|00001cb0| 20 20 20 43 41 53 45 20 | 32 3a 20 20 20 20 49 46 | CASE |2: IF|
|00001cc0| 20 77 69 6e 64 6f 77 2e | 6f 70 65 6e 25 20 54 48 | window.|open% TH|
|00001cd0| 45 4e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |EN. | |
|00001ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 | | c|
|00001cf0| 6c 6f 73 65 2e 6d 61 69 | 6e 2e 77 69 6e 64 6f 77 |lose.mai|n.window|
|00001d00| 20 73 75 63 63 65 73 73 | 25 0d 20 20 20 20 20 20 | success|%. |
|00001d10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001d20| 20 20 20 20 20 20 77 69 | 6e 64 6f 77 2e 6f 70 65 | wi|ndow.ope|
|00001d30| 6e 25 20 3d 20 4e 4f 54 | 20 73 75 63 63 65 73 73 |n% = NOT| success|
|00001d40| 25 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |%. | |
|00001d50| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|00001d60| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001d70| 20 20 20 20 20 20 20 20 | 20 49 46 20 4e 4f 54 20 | | IF NOT |
|00001d80| 77 69 6e 64 6f 77 2e 6f | 70 65 6e 25 20 54 48 45 |window.o|pen% THE|
|00001d90| 4e 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N. | |
|00001da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 6e 65 | | ne|
|00001db0| 77 2e 6e 61 6d 65 24 20 | 3d 20 46 49 4c 45 53 24 |w.name$ |= FILES$|
|00001dc0| 28 31 2c 22 54 45 58 54 | 22 29 0d 20 20 20 20 20 |(1,"TEXT|"). |
|00001dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001de0| 20 20 20 20 20 20 20 49 | 46 20 6e 65 77 2e 6e 61 | I|F new.na|
|00001df0| 6d 65 24 20 3c 3e 20 22 | 22 20 54 48 45 4e 0d 20 |me$ <> "|" THEN. |
|00001e00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 66 | | f|
|00001e20| 69 6c 65 2e 6e 61 6d 65 | 24 20 3d 20 6e 65 77 2e |ile.name|$ = new.|
|00001e30| 6e 61 6d 65 24 0d 20 20 | 20 20 20 20 20 20 20 20 |name$. | |
|00001e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e50| 20 20 20 20 20 20 6f 70 | 65 6e 2e 6d 61 69 6e 2e | op|en.main.|
|00001e60| 77 69 6e 64 6f 77 20 66 | 69 6c 65 2e 6e 61 6d 65 |window f|ile.name|
|00001e70| 24 2c 54 52 55 45 25 0d | 20 20 20 20 20 20 20 20 |$,TRUE%.| |
|00001e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001e90| 20 20 20 20 20 20 20 20 | 77 69 6e 64 6f 77 2e 6f | |window.o|
|00001ea0| 70 65 6e 25 20 3d 20 54 | 52 55 45 25 0d 20 20 20 |pen% = T|RUE%. |
|00001eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 73 65 74 | | set|
|00001ed0| 75 70 2e 6d 65 6e 75 0d | 20 20 20 20 20 20 20 20 |up.menu.| |
|00001ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ef0| 20 20 20 20 45 4c 53 45 | 0d 20 20 20 20 20 20 20 | ELSE|. |
|00001f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f10| 20 20 20 20 20 20 20 20 | 20 77 69 6e 64 6f 77 6c | | windowl|
|00001f20| 65 73 73 2e 6d 65 6e 75 | 0d 20 20 20 20 20 20 20 |ess.menu|. |
|00001f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f40| 20 20 20 20 20 45 4e 44 | 20 49 46 0d 20 20 20 20 | END| IF. |
|00001f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f60| 20 20 20 20 45 4c 53 45 | 0d 20 20 20 20 20 20 20 | ELSE|. |
|00001f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001f80| 20 20 20 20 20 72 65 73 | 74 6f 72 65 2e 6d 65 6e | res|tore.men|
|00001f90| 75 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |u. | |
|00001fa0| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|00001fb0| 0d 0d 20 20 20 20 20 20 | 20 20 43 41 53 45 20 33 |.. | CASE 3|
|00001fc0| 3a 20 20 20 20 63 6c 6f | 73 65 2e 6d 61 69 6e 2e |: clo|se.main.|
|00001fd0| 77 69 6e 64 6f 77 20 73 | 75 63 63 65 73 73 25 0d |window s|uccess%.|
|00001fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001ff0| 20 20 20 20 20 20 20 20 | 77 69 6e 64 6f 77 2e 6f | |window.o|
|00002000| 70 65 6e 25 20 3d 20 4e | 4f 54 20 73 75 63 63 65 |pen% = N|OT succe|
|00002010| 73 73 25 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ss%. | |
|00002020| 20 20 20 20 20 20 20 20 | 20 20 20 20 49 46 20 4e | | IF N|
|00002030| 4f 54 20 77 69 6e 64 6f | 77 2e 6f 70 65 6e 25 20 |OT windo|w.open% |
|00002040| 54 48 45 4e 0d 20 20 20 | 20 20 20 20 20 20 20 20 |THEN. | |
|00002050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002060| 20 66 69 6c 65 2e 6e 61 | 6d 65 24 20 3d 20 22 22 | file.na|me$ = ""|
|00002070| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 77 69 6e | | win|
|00002090| 64 6f 77 6c 65 73 73 2e | 6d 65 6e 75 0d 20 20 20 |dowless.|menu. |
|000020a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000020b0| 20 20 20 20 20 45 4c 53 | 45 0d 20 20 20 20 20 20 | ELS|E. |
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000020d0| 20 20 20 20 20 20 72 65 | 73 74 6f 72 65 2e 6d 65 | re|store.me|
|000020e0| 6e 75 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |nu. | |
|000020f0| 20 20 20 20 20 20 20 20 | 20 20 20 45 4e 44 20 49 | | END I|
|00002100| 46 0d 0d 20 20 20 20 20 | 20 20 20 43 41 53 45 20 |F.. | CASE |
|00002110| 34 3a 20 20 20 20 49 46 | 20 66 69 6c 65 2e 6e 61 |4: IF| file.na|
|00002120| 6d 65 24 20 3d 20 22 55 | 6e 74 69 74 6c 65 64 22 |me$ = "U|ntitled"|
|00002130| 20 54 48 45 4e 0d 20 20 | 20 20 20 20 20 20 20 20 | THEN. | |
|00002140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002150| 20 20 6e 65 77 2e 6e 61 | 6d 65 24 20 3d 20 46 49 | new.na|me$ = FI|
|00002160| 4c 45 53 24 28 30 2c 22 | 53 61 76 65 20 66 69 6c |LES$(0,"|Save fil|
|00002170| 65 20 61 73 3a 22 29 0d | 20 20 20 20 20 20 20 20 |e as:").| |
|00002180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002190| 20 20 20 20 49 46 20 6e | 65 77 2e 6e 61 6d 65 24 | IF n|ew.name$|
|000021a0| 20 3c 3e 20 22 22 20 54 | 48 45 4e 0d 20 20 20 20 | <> "" T|HEN. |
|000021b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000021c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 66 69 6c 65 | | file|
|000021d0| 2e 6e 61 6d 65 24 20 3d | 20 6e 65 77 2e 6e 61 6d |.name$ =| new.nam|
|000021e0| 65 24 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |e$. | |
|000021f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002200| 20 20 20 73 74 72 69 70 | 2e 66 6f 6c 64 65 72 73 | strip|.folders|
|00002210| 20 66 69 6c 65 2e 6e 61 | 6d 65 24 2c 73 68 6f 72 | file.na|me$,shor|
|00002220| 74 2e 6e 61 6d 65 24 0d | 20 20 20 20 20 20 20 20 |t.name$.| |
|00002230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002240| 20 20 20 20 20 20 20 20 | 57 49 4e 44 4f 57 20 31 | |WINDOW 1|
|00002250| 2c 73 68 6f 72 74 2e 6e | 61 6d 65 24 0d 20 20 20 |,short.n|ame$. |
|00002260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002270| 20 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0d | | END IF.|
|00002280| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002290| 20 20 20 20 20 20 20 20 | 20 20 20 20 72 65 66 72 | | refr|
|000022a0| 65 73 68 2e 6d 61 69 6e | 2e 77 69 6e 64 6f 77 20 |esh.main|.window |
|000022b0| 66 69 6c 65 2e 6e 61 6d | 65 24 0d 20 20 20 20 20 |file.nam|e$. |
|000022c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000022d0| 20 20 20 45 4e 44 20 49 | 46 0d 20 20 20 20 20 20 | END I|F. |
|000022e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000022f0| 20 20 49 46 20 66 69 6c | 65 2e 6e 61 6d 65 24 20 | IF fil|e.name$ |
|00002300| 3c 3e 20 22 55 6e 74 69 | 74 6c 65 64 22 20 54 48 |<> "Unti|tled" TH|
|00002310| 45 4e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |EN. | |
|00002320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 73 | | s|
|00002330| 61 76 65 2e 64 61 74 61 | 20 66 69 6c 65 2e 6e 61 |ave.data| file.na|
|00002340| 6d 65 24 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |me$. | |
|00002350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002360| 73 65 74 75 70 2e 6d 65 | 6e 75 0d 20 20 20 20 20 |setup.me|nu. |
|00002370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002380| 20 20 20 45 4c 53 45 0d | 20 20 20 20 20 20 20 20 | ELSE.| |
|00002390| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000023a0| 20 20 20 20 72 65 73 74 | 6f 72 65 2e 6d 65 6e 75 | rest|ore.menu|
|000023b0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000023c0| 20 20 20 20 20 20 20 20 | 20 45 4e 44 20 49 46 0d | | END IF.|
|000023d0| 0d 20 20 20 20 20 20 20 | 20 43 41 53 45 20 35 3a |. | CASE 5:|
|000023e0| 20 20 20 20 6e 65 77 2e | 6e 61 6d 65 24 20 3d 20 | new.|name$ = |
|000023f0| 46 49 4c 45 53 24 28 30 | 2c 22 53 61 76 65 20 66 |FILES$(0|,"Save f|
|00002400| 69 6c 65 20 61 73 3a 22 | 29 0d 20 20 20 20 20 20 |ile as:"|). |
|00002410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002420| 20 20 49 46 20 6e 65 77 | 2e 6e 61 6d 65 24 20 3c | IF new|.name$ <|
|00002430| 3e 20 22 22 20 54 48 45 | 4e 0d 20 20 20 20 20 20 |> "" THE|N. |
|00002440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002450| 20 20 20 20 20 20 66 69 | 6c 65 2e 6e 61 6d 65 24 | fi|le.name$|
|00002460| 20 3d 20 6e 65 77 2e 6e | 61 6d 65 24 0d 20 20 20 | = new.n|ame$. |
|00002470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002480| 20 20 20 20 20 20 20 20 | 20 73 74 72 69 70 2e 66 | | strip.f|
|00002490| 6f 6c 64 65 72 73 20 66 | 69 6c 65 2e 6e 61 6d 65 |olders f|ile.name|
|000024a0| 24 2c 73 68 6f 72 74 2e | 6e 61 6d 65 24 0d 20 20 |$,short.|name$. |
|000024b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000024c0| 20 20 20 20 20 20 20 20 | 20 20 57 49 4e 44 4f 57 | | WINDOW|
|000024d0| 20 31 2c 73 68 6f 72 74 | 2e 6e 61 6d 65 24 0d 20 | 1,short|.name$. |
|000024e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000024f0| 20 20 20 20 20 20 20 20 | 20 20 20 73 61 76 65 2e | | save.|
|00002500| 64 61 74 61 20 66 69 6c | 65 2e 6e 61 6d 65 24 0d |data fil|e.name$.|
|00002510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002520| 20 20 20 20 20 20 20 20 | 20 20 20 20 73 65 74 75 | | setu|
|00002530| 70 2e 6d 65 6e 75 0d 20 | 20 20 20 20 20 20 20 20 |p.menu. | |
|00002540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|00002550| 4c 53 45 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |LSE. | |
|00002560| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002570| 72 65 73 74 6f 72 65 2e | 6d 65 6e 75 0d 20 20 20 |restore.|menu. |
|00002580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002590| 20 20 20 20 20 45 4e 44 | 20 49 46 0d 20 20 20 20 | END| IF. |
|000025a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000025b0| 20 20 20 20 72 65 66 72 | 65 73 68 2e 6d 61 69 6e | refr|esh.main|
|000025c0| 2e 77 69 6e 64 6f 77 20 | 66 69 6c 65 2e 6e 61 6d |.window |file.nam|
|000025d0| 65 24 0d 0d 20 20 20 20 | 20 20 20 20 43 41 53 45 |e$.. | CASE|
|000025e0| 20 36 3a 20 20 20 20 27 | 20 70 72 69 6e 74 20 66 | 6: '| print f|
|000025f0| 69 6c 65 3f 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ile?. | |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 72 65 73 | | res|
|00002610| 74 6f 72 65 2e 6d 65 6e | 75 0d 0d 20 20 20 20 20 |tore.men|u.. |
|00002620| 20 20 20 43 41 53 45 20 | 37 3a 20 20 20 20 49 46 | CASE |7: IF|
|00002630| 20 77 69 6e 64 6f 77 2e | 6f 70 65 6e 25 20 54 48 | window.|open% TH|
|00002640| 45 4e 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |EN. | |
|00002650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 | | c|
|00002660| 6c 6f 73 65 2e 6d 61 69 | 6e 2e 77 69 6e 64 6f 77 |lose.mai|n.window|
|00002670| 20 73 75 63 63 65 73 73 | 25 0d 20 20 20 20 20 20 | success|%. |
|00002680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002690| 20 20 20 20 20 20 77 69 | 6e 64 6f 77 2e 6f 70 65 | wi|ndow.ope|
|000026a0| 6e 25 20 3d 20 4e 4f 54 | 20 73 75 63 63 65 73 73 |n% = NOT| success|
|000026b0| 25 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |%. | |
|000026c0| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|000026d0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|000026e0| 20 20 20 20 20 20 20 20 | 20 49 46 20 4e 4f 54 20 | | IF NOT |
|000026f0| 77 69 6e 64 6f 77 2e 6f | 70 65 6e 25 20 54 48 45 |window.o|pen% THE|
|00002700| 4e 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |N. | |
|00002710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 64 6f | | do|
|00002720| 6e 65 25 20 3d 20 54 52 | 55 45 25 0d 20 20 20 20 |ne% = TR|UE%. |
|00002730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002740| 20 20 20 20 45 4c 53 45 | 0d 20 20 20 20 20 20 20 | ELSE|. |
|00002750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002760| 20 20 20 20 20 72 65 73 | 74 6f 72 65 2e 6d 65 6e | res|tore.men|
|00002770| 75 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |u. | |
|00002780| 20 20 20 20 20 20 20 20 | 20 20 45 4e 44 20 49 46 | | END IF|
|00002790| 0d 0d 20 20 20 20 20 20 | 20 20 43 41 53 45 20 45 |.. | CASE E|
|000027a0| 4c 53 45 3a 0d 0d 20 20 | 20 20 45 4e 44 20 53 45 |LSE:.. | END SE|
|000027b0| 4c 45 43 54 0d 0d 45 4e | 44 20 53 55 42 0d 0d 27 |LECT..EN|D SUB..'|
|000027c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000027d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000027e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000027f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 27 |--------|------.'|
|00002810| 20 63 68 65 63 6b 20 77 | 68 61 74 20 64 61 74 61 | check w|hat data|
|00002820| 20 6d 65 6e 75 20 69 74 | 65 6d 20 77 61 73 20 63 | menu it|em was c|
|00002830| 68 6f 73 65 6e 0d 27 2d | 2d 2d 2d 2d 2d 2d 2d 2d |hosen.'-|--------|
|00002840| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002880| 2d 2d 2d 2d 2d 0d 53 55 | 42 20 68 61 6e 64 6c 65 |-----.SU|B handle|
|00002890| 2e 64 61 74 61 2e 6d 65 | 6e 75 20 28 6d 65 6e 75 |.data.me|nu (menu|
|000028a0| 2e 69 74 65 6d 25 29 20 | 53 54 41 54 49 43 0d 0d |.item%) |STATIC..|
|000028b0| 20 20 20 20 49 46 20 6d | 65 6e 75 2e 69 74 65 6d | IF m|enu.item|
|000028c0| 25 20 3d 20 31 20 54 48 | 45 4e 0d 20 20 20 20 20 |% = 1 TH|EN. |
|000028d0| 20 20 20 27 20 73 68 6f | 77 20 22 50 72 65 66 65 | ' sho|w "Prefe|
|000028e0| 72 65 6e 63 65 73 22 20 | 64 69 61 6c 6f 67 3f 0d |rences" |dialog?.|
|000028f0| 20 20 20 20 20 20 20 20 | 72 65 73 74 6f 72 65 2e | |restore.|
|00002900| 6d 65 6e 75 0d 20 20 20 | 20 45 4e 44 20 49 46 0d |menu. | END IF.|
|00002910| 0d 20 20 20 20 27 20 74 | 6f 20 64 65 6d 6f 6e 73 |. ' t|o demons|
|00002920| 74 72 61 74 65 20 74 68 | 65 20 75 73 65 20 6f 66 |trate th|e use of|
|00002930| 20 6f 74 68 65 72 20 63 | 75 72 73 6f 72 73 3a 0d | other c|ursors:.|
|00002940| 20 20 20 20 63 68 61 6e | 67 65 63 75 72 73 6f 72 | chan|gecursor|
|00002950| 20 34 20 20 20 20 27 20 | 31 2d 34 20 61 76 61 69 | 4 ' |1-4 avai|
|00002960| 6c 61 62 6c 65 0d 20 20 | 20 20 73 6c 65 65 70 20 |lable. | sleep |
|00002970| 32 21 0d 20 20 20 20 49 | 4e 49 54 43 55 52 53 4f |2!. I|NITCURSO|
|00002980| 52 0d 0d 45 4e 44 20 53 | 55 42 0d 0d 27 2d 2d 2d |R..END S|UB..'---|
|00002990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|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 2d | 2d 2d 2d 0d 27 20 6f 70 |--------|---.' op|
|000029e0| 65 6e 20 77 69 6e 64 6f | 77 20 66 6f 72 20 6e 65 |en windo|w for ne|
|000029f0| 77 20 66 69 6c 65 0d 27 | 2d 2d 2d 2d 2d 2d 2d 2d |w file.'|--------|
|00002a00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a40| 2d 2d 2d 2d 2d 2d 0d 53 | 55 42 20 6f 70 65 6e 2e |------.S|UB open.|
|00002a50| 6d 61 69 6e 2e 77 69 6e | 64 6f 77 20 28 66 69 6c |main.win|dow (fil|
|00002a60| 65 2e 6e 61 6d 65 24 2c | 64 6f 2e 6c 6f 61 64 25 |e.name$,|do.load%|
|00002a70| 29 20 53 54 41 54 49 43 | 0d 0d 20 20 20 20 27 20 |) STATIC|.. ' |
|00002a80| 66 6f 72 20 63 6f 6d 70 | 69 6c 65 72 20 6f 6e 6c |for comp|iler onl|
|00002a90| 79 3a 0d 27 20 20 20 20 | 64 69 6d 20 72 65 63 74 |y:.' |dim rect|
|00002aa0| 25 28 34 29 0d 27 20 20 | 20 20 64 69 6d 20 6f 75 |%(4).' | dim ou|
|00002ab0| 74 73 74 72 69 6e 67 24 | 2c 74 69 74 6c 65 24 0d |tstring$|,title$.|
|00002ac0| 0d 20 20 20 20 73 74 72 | 69 70 2e 66 6f 6c 64 65 |. str|ip.folde|
|00002ad0| 72 73 20 66 69 6c 65 2e | 6e 61 6d 65 24 2c 74 69 |rs file.|name$,ti|
|00002ae0| 74 6c 65 24 0d 20 20 20 | 20 57 49 4e 44 4f 57 20 |tle$. | WINDOW |
|00002af0| 31 2c 74 69 74 6c 65 24 | 2c 2c 31 0d 20 20 20 20 |1,title$|,,1. |
|00002b00| 54 45 58 54 46 4f 4e 54 | 20 30 0d 20 20 20 20 77 |TEXTFONT| 0. w|
|00002b10| 69 6e 78 25 20 3d 20 35 | 0d 20 20 20 20 77 69 6e |inx% = 5|. win|
|00002b20| 79 25 20 3d 20 34 33 0d | 0d 20 20 20 20 49 46 20 |y% = 43.|. IF |
|00002b30| 66 69 6c 65 2e 6e 61 6d | 65 24 20 3c 3e 20 22 55 |file.nam|e$ <> "U|
|00002b40| 6e 74 69 74 6c 65 64 22 | 20 41 4e 44 20 64 6f 2e |ntitled"| AND do.|
|00002b50| 6c 6f 61 64 25 20 54 48 | 45 4e 0d 20 20 20 20 20 |load% TH|EN. |
|00002b60| 20 20 20 6c 6f 61 64 2e | 64 61 74 61 20 66 69 6c | load.|data fil|
|00002b70| 65 2e 6e 61 6d 65 24 0d | 20 20 20 20 45 4e 44 20 |e.name$.| END |
|00002b80| 49 46 0d 20 20 20 20 0d | 20 20 20 20 73 65 74 72 |IF. .| setr|
|00002b90| 65 63 74 20 72 65 63 74 | 25 28 30 29 2c 31 30 2c |ect rect|%(0),10,|
|00002ba0| 31 30 2c 31 37 30 2c 33 | 30 0d 20 20 20 20 6f 75 |10,170,3|0. ou|
|00002bb0| 74 73 74 72 69 6e 67 24 | 20 3d 20 22 48 6f 6e 65 |tstring$| = "Hone|
|00002bc0| 73 74 20 70 72 65 73 69 | 64 65 6e 74 3a 22 0d 20 |st presi|dent:". |
|00002bd0| 20 20 20 74 65 78 74 62 | 6f 78 20 6f 75 74 73 74 | textb|ox outst|
|00002be0| 72 69 6e 67 24 2c 72 65 | 63 74 25 28 30 29 2c 30 |ring$,re|ct%(0),0|
|00002bf0| 0d 20 20 20 20 45 44 49 | 54 20 46 49 45 4c 44 20 |. EDI|T FIELD |
|00002c00| 31 2c 64 64 2e 65 64 69 | 74 31 24 2c 28 31 38 30 |1,dd.edi|t1$,(180|
|00002c10| 2c 31 30 29 2d 28 34 38 | 30 2c 32 35 29 2c 31 0d |,10)-(48|0,25),1.|
|00002c20| 0d 20 20 20 20 73 65 74 | 72 65 63 74 20 72 65 63 |. set|rect rec|
|00002c30| 74 25 28 30 29 2c 31 30 | 2c 35 30 2c 31 37 30 2c |t%(0),10|,50,170,|
|00002c40| 37 30 0d 20 20 20 20 6f | 75 74 73 74 72 69 6e 67 |70. o|utstring|
|00002c50| 24 20 3d 20 22 57 68 61 | 74 65 76 65 72 3a 22 0d |$ = "Wha|tever:".|
|00002c60| 20 20 20 20 74 65 78 74 | 62 6f 78 20 6f 75 74 73 | text|box outs|
|00002c70| 74 72 69 6e 67 24 2c 72 | 65 63 74 25 28 30 29 2c |tring$,r|ect%(0),|
|00002c80| 30 0d 20 20 20 20 45 44 | 49 54 20 46 49 45 4c 44 |0. ED|IT FIELD|
|00002c90| 20 32 2c 64 64 2e 65 64 | 69 74 32 24 2c 28 31 38 | 2,dd.ed|it2$,(18|
|00002ca0| 30 2c 35 30 29 2d 28 34 | 38 30 2c 36 35 29 2c 31 |0,50)-(4|80,65),1|
|00002cb0| 0d 0d 20 20 20 20 49 46 | 20 64 64 2e 63 69 72 63 |.. IF| dd.circ|
|00002cc0| 6c 65 2e 6f 6e 25 20 54 | 48 45 4e 0d 20 20 20 20 |le.on% T|HEN. |
|00002cd0| 20 20 20 20 43 49 52 43 | 4c 45 20 28 32 30 30 2c | CIRC|LE (200,|
|00002ce0| 32 30 30 29 2c 35 30 0d | 20 20 20 20 45 4e 44 20 |200),50.| END |
|00002cf0| 49 46 0d 20 20 20 20 0d | 20 20 20 20 66 61 74 2e |IF. .| fat.|
|00002d00| 62 75 74 74 6f 6e 20 31 | 2c 31 2c 22 43 69 72 63 |button 1|,1,"Circ|
|00002d10| 6c 65 22 2c 38 30 2c 32 | 35 36 0d 20 20 20 20 42 |le",80,2|56. B|
|00002d20| 55 54 54 4f 4e 20 32 2c | 31 2c 22 45 72 61 73 65 |UTTON 2,|1,"Erase|
|00002d30| 22 2c 28 32 30 30 2c 32 | 36 30 29 2d 28 32 37 30 |",(200,2|60)-(270|
|00002d40| 2c 32 38 30 29 2c 31 0d | 0d 20 20 20 20 45 44 49 |,280),1.|. EDI|
|00002d50| 54 20 46 49 45 4c 44 20 | 73 65 6c 65 63 74 65 64 |T FIELD |selected|
|00002d60| 2e 66 69 65 6c 64 25 20 | 20 20 20 27 6d 61 6b 65 |.field% | 'make|
|00002d70| 20 74 68 69 73 20 74 68 | 65 20 69 6e 69 74 69 61 | this th|e initia|
|00002d80| 6c 6c 79 20 61 63 74 69 | 76 65 20 66 69 65 6c 64 |lly acti|ve field|
|00002d90| 0d 20 20 20 20 0d 45 4e | 44 20 53 55 42 0d 20 20 |. .EN|D SUB. |
|00002da0| 20 20 0d 27 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | .'----|--------|
|00002db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002df0| 2d 2d 0d 27 20 74 72 79 | 20 74 6f 20 63 6c 6f 73 |--.' try| to clos|
|00002e00| 65 20 77 69 6e 64 6f 77 | 0d 27 2d 2d 2d 2d 2d 2d |e window|.'------|
|00002e10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e50| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 53 55 42 20 63 6c 6f |--------|.SUB clo|
|00002e60| 73 65 2e 6d 61 69 6e 2e | 77 69 6e 64 6f 77 20 28 |se.main.|window (|
|00002e70| 73 75 63 63 65 73 73 25 | 29 20 53 54 41 54 49 43 |success%|) STATIC|
|00002e80| 0d 0d 20 20 20 20 73 75 | 63 63 65 73 73 25 20 3d |.. su|ccess% =|
|00002e90| 20 54 52 55 45 25 0d 20 | 20 20 20 49 46 20 63 68 | TRUE%. | IF ch|
|00002ea0| 61 6e 67 65 73 25 20 54 | 48 45 4e 0d 20 20 20 20 |anges% T|HEN. |
|00002eb0| 20 20 20 20 61 6c 65 72 | 74 2e 63 68 61 6e 67 65 | aler|t.change|
|00002ec0| 73 20 73 75 63 63 65 73 | 73 25 0d 20 20 20 20 45 |s succes|s%. E|
|00002ed0| 4e 44 20 49 46 0d 20 20 | 20 20 0d 20 20 20 20 49 |ND IF. | . I|
|00002ee0| 46 20 73 75 63 63 65 73 | 73 25 20 54 48 45 4e 0d |F succes|s% THEN.|
|00002ef0| 20 20 20 20 20 20 20 20 | 57 49 4e 44 4f 57 20 43 | |WINDOW C|
|00002f00| 4c 4f 53 45 20 31 0d 20 | 20 20 20 45 4e 44 20 49 |LOSE 1. | END I|
|00002f10| 46 0d 20 20 20 20 0d 45 | 4e 44 20 53 55 42 0d 0d |F. .E|ND SUB..|
|00002f20| 27 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |'-------|--------|
|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 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00002f70| 27 20 6c 6f 61 64 20 64 | 61 74 61 20 66 72 6f 6d |' load d|ata from|
|00002f80| 20 66 69 6c 65 0d 27 2d | 2d 2d 2d 2d 2d 2d 2d 2d | file.'-|--------|
|00002f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fd0| 2d 2d 2d 2d 2d 0d 53 55 | 42 20 6c 6f 61 64 2e 64 |-----.SU|B load.d|
|00002fe0| 61 74 61 20 28 66 69 6c | 65 2e 6e 61 6d 65 24 29 |ata (fil|e.name$)|
|00002ff0| 20 53 54 41 54 49 43 0d | 0d 20 20 20 20 4f 50 45 | STATIC.|. OPE|
|00003000| 4e 20 66 69 6c 65 2e 6e | 61 6d 65 24 20 46 4f 52 |N file.n|ame$ FOR|
|00003010| 20 49 4e 50 55 54 20 41 | 53 20 23 31 0d 20 20 20 | INPUT A|S #1. |
|00003020| 20 4c 49 4e 45 20 49 4e | 50 55 54 20 23 31 2c 20 | LINE IN|PUT #1, |
|00003030| 64 64 2e 65 64 69 74 31 | 24 0d 20 20 20 20 4c 49 |dd.edit1|$. LI|
|00003040| 4e 45 20 49 4e 50 55 54 | 20 23 31 2c 20 64 64 2e |NE INPUT| #1, dd.|
|00003050| 65 64 69 74 32 24 0d 20 | 20 20 20 49 4e 50 55 54 |edit2$. | INPUT|
|00003060| 20 23 31 2c 20 64 64 2e | 63 69 72 63 6c 65 2e 6f | #1, dd.|circle.o|
|00003070| 6e 25 0d 20 20 20 20 43 | 4c 4f 53 45 20 23 31 0d |n%. C|LOSE #1.|
|00003080| 0d 20 20 20 20 63 68 61 | 6e 67 65 73 25 20 3d 20 |. cha|nges% = |
|00003090| 46 41 4c 53 45 25 0d 20 | 20 20 20 73 65 6c 65 63 |FALSE%. | selec|
|000030a0| 74 65 64 2e 66 69 65 6c | 64 25 20 3d 20 31 0d 20 |ted.fiel|d% = 1. |
|000030b0| 20 20 20 0d 45 4e 44 20 | 53 55 42 0d 0d 27 2d 2d | .END |SUB..'--|
|000030c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000030f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003100| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 27 20 73 |--------|----.' s|
|00003110| 61 76 65 20 64 61 74 61 | 20 69 6e 20 66 69 6c 65 |ave data| in file|
|00003120| 0d 27 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.'------|--------|
|00003130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003170| 0d 53 55 42 20 73 61 76 | 65 2e 64 61 74 61 20 28 |.SUB sav|e.data (|
|00003180| 66 69 6c 65 2e 6e 61 6d | 65 24 29 20 53 54 41 54 |file.nam|e$) STAT|
|00003190| 49 43 0d 0d 20 20 20 20 | 64 64 2e 65 64 69 74 31 |IC.. |dd.edit1|
|000031a0| 24 20 3d 20 45 44 49 54 | 24 28 31 29 20 20 20 20 |$ = EDIT|$(1) |
|000031b0| 27 63 6f 6e 74 65 6e 74 | 73 20 6f 66 20 66 69 72 |'content|s of fir|
|000031c0| 73 74 20 65 64 69 74 20 | 66 69 65 6c 64 20 69 6e |st edit |field in|
|000031d0| 20 77 69 6e 64 6f 77 0d | 20 20 20 20 64 64 2e 65 | window.| dd.e|
|000031e0| 64 69 74 32 24 20 3d 20 | 45 44 49 54 24 28 32 29 |dit2$ = |EDIT$(2)|
|000031f0| 0d 20 20 20 20 0d 20 20 | 20 20 4f 50 45 4e 20 66 |. . | OPEN f|
|00003200| 69 6c 65 2e 6e 61 6d 65 | 24 20 46 4f 52 20 4f 55 |ile.name|$ FOR OU|
|00003210| 54 50 55 54 20 41 53 20 | 23 31 0d 20 20 20 20 50 |TPUT AS |#1. P|
|00003220| 52 49 4e 54 20 23 31 2c | 20 64 64 2e 65 64 69 74 |RINT #1,| dd.edit|
|00003230| 31 24 0d 20 20 20 20 50 | 52 49 4e 54 20 23 31 2c |1$. P|RINT #1,|
|00003240| 20 64 64 2e 65 64 69 74 | 32 24 0d 20 20 20 20 50 | dd.edit|2$. P|
|00003250| 52 49 4e 54 20 23 31 2c | 20 64 64 2e 63 69 72 63 |RINT #1,| dd.circ|
|00003260| 6c 65 2e 6f 6e 25 0d 20 | 20 20 20 43 4c 4f 53 45 |le.on%. | CLOSE|
|00003270| 20 23 31 0d 20 20 20 20 | 0d 20 20 20 20 63 68 61 | #1. |. cha|
|00003280| 6e 67 65 73 25 20 3d 20 | 46 41 4c 53 45 25 0d 20 |nges% = |FALSE%. |
|00003290| 20 20 20 0d 45 4e 44 20 | 53 55 42 0d 0d 27 2d 2d | .END |SUB..'--|
|000032a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 27 20 48 |--------|----.' H|
|000032f0| 61 6e 64 6c 65 20 77 69 | 6e 64 6f 77 2e 20 20 4e |andle wi|ndow. N|
|00003300| 6f 74 65 20 77 65 20 61 | 72 65 20 69 67 6e 6f 72 |ote we a|re ignor|
|00003310| 69 6e 67 20 77 69 6e 64 | 6f 77 2e 6e 75 6d 62 65 |ing wind|ow.numbe|
|00003320| 72 25 20 73 69 6e 63 65 | 20 77 65 20 6f 6e 6c 79 |r% since| we only|
|00003330| 20 68 61 76 65 20 6f 6e | 65 20 77 69 6e 64 6f 77 | have on|e window|
|00003340| 2e 0d 27 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..'-----|--------|
|00003350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003370| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003390| 2d 0d 53 55 42 20 68 61 | 6e 64 6c 65 2e 77 69 6e |-.SUB ha|ndle.win|
|000033a0| 64 6f 77 20 28 65 76 65 | 6e 74 2e 74 79 70 65 25 |dow (eve|nt.type%|
|000033b0| 2c 77 69 6e 64 6f 77 2e | 6e 75 6d 62 65 72 25 2c |,window.|number%,|
|000033c0| 66 69 6c 65 2e 6e 61 6d | 65 24 29 20 53 54 41 54 |file.nam|e$) STAT|
|000033d0| 49 43 0d 0d 20 20 20 20 | 27 20 66 6f 72 20 63 6f |IC.. |' for co|
|000033e0| 6d 70 69 6c 65 72 20 6f | 6e 6c 79 0d 27 20 20 20 |mpiler o|nly.' |
|000033f0| 20 64 69 6d 20 73 65 6c | 65 63 74 65 64 2e 62 75 | dim sel|ected.bu|
|00003400| 74 74 6f 6e 25 2c 74 65 | 6e 74 61 74 69 76 65 2e |tton%,te|ntative.|
|00003410| 66 69 65 6c 64 25 0d 0d | 20 20 20 20 53 45 4c 45 |field%..| SELE|
|00003420| 43 54 20 43 41 53 45 20 | 65 76 65 6e 74 2e 74 79 |CT CASE |event.ty|
|00003430| 70 65 25 0d 20 20 20 20 | 20 20 20 20 43 41 53 45 |pe%. | CASE|
|00003440| 20 31 3a 20 20 20 20 27 | 20 62 75 74 74 6f 6e 20 | 1: '| button |
|00003450| 70 72 65 73 73 65 64 0d | 20 20 20 20 20 20 20 20 |pressed.| |
|00003460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003470| 73 65 6c 65 63 74 65 64 | 2e 62 75 74 74 6f 6e 25 |selected|.button%|
|00003480| 20 3d 20 44 49 41 4c 4f | 47 28 31 29 0d 20 20 20 | = DIALO|G(1). |
|00003490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000034a0| 20 20 20 20 20 68 61 6e | 64 6c 65 2e 6d 61 69 6e | han|dle.main|
|000034b0| 2e 62 75 74 74 6f 6e 20 | 73 65 6c 65 63 74 65 64 |.button |selected|
|000034c0| 2e 62 75 74 74 6f 6e 25 | 0d 0d 20 20 20 20 20 20 |.button%|.. |
|000034d0| 20 20 43 41 53 45 20 32 | 3a 20 20 20 20 27 20 6e | CASE 2|: ' n|
|000034e0| 65 77 20 66 69 65 6c 64 | 20 73 65 6c 65 63 74 65 |ew field| selecte|
|000034f0| 64 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d. | |
|00003500| 20 20 20 20 20 20 20 20 | 20 20 74 65 6e 74 61 74 | | tentat|
|00003510| 69 76 65 2e 66 69 65 6c | 64 25 20 3d 20 44 49 41 |ive.fiel|d% = DIA|
|00003520| 4c 4f 47 28 32 29 0d 20 | 20 20 20 20 20 20 20 20 |LOG(2). | |
|00003530| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 68 | | h|
|00003540| 61 6e 64 6c 65 2e 6d 61 | 69 6e 2e 65 64 69 74 2e |andle.ma|in.edit.|
|00003550| 66 69 65 6c 64 2e 63 68 | 61 6e 67 65 20 74 65 6e |field.ch|ange ten|
|00003560| 74 61 74 69 76 65 2e 66 | 69 65 6c 64 25 0d 0d 20 |tative.f|ield%.. |
|00003570| 20 20 20 20 20 20 20 43 | 41 53 45 20 34 3a 20 20 | C|ASE 4: |
|00003580| 20 20 27 20 63 6c 6f 73 | 65 20 62 6f 78 20 70 72 | ' clos|e box pr|
|00003590| 65 73 73 65 64 0d 20 20 | 20 20 20 20 20 20 20 20 |essed. | |
|000035a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 27 68 | | 'h|
|000035b0| 61 6e 64 6c 65 2e 66 69 | 6c 65 2e 6d 65 6e 75 20 |andle.fi|le.menu |
|000035c0| 33 2c 66 69 6c 65 2e 6e | 61 6d 65 24 2c 30 0d 20 |3,file.n|ame$,0. |
|000035d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000035e0| 20 20 20 20 20 20 20 68 | 61 6e 64 6c 65 2e 6d 61 | h|andle.ma|
|000035f0| 69 6e 2e 63 6c 6f 73 65 | 2e 62 6f 78 20 66 69 6c |in.close|.box fil|
|00003600| 65 2e 6e 61 6d 65 24 0d | 20 20 20 20 20 20 20 20 |e.name$.| |
|00003610| 0d 20 20 20 20 20 20 20 | 20 43 41 53 45 20 36 3a |. | CASE 6:|
|00003620| 20 20 20 20 27 20 52 45 | 54 55 52 4e 20 70 72 65 | ' RE|TURN pre|
|00003630| 73 73 65 64 20 2d 20 63 | 61 72 72 79 20 6f 75 74 |ssed - c|arry out|
|00003640| 20 66 61 74 20 62 75 74 | 74 6f 6e 0d 20 20 20 20 | fat but|ton. |
|00003650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003660| 20 20 20 20 68 61 6e 64 | 6c 65 2e 6d 61 69 6e 2e | hand|le.main.|
|00003670| 62 75 74 74 6f 6e 20 31 | 0d 20 20 20 20 20 20 20 |button 1|. |
|00003680| 20 0d 20 20 20 20 20 20 | 20 20 43 41 53 45 20 37 | . | CASE 7|
|00003690| 3a 20 20 20 20 27 20 74 | 61 62 20 6b 65 79 20 70 |: ' t|ab key p|
|000036a0| 72 65 73 73 65 64 20 2d | 20 67 6f 20 74 6f 20 6e |ressed -| go to n|
|000036b0| 65 78 74 20 65 64 69 74 | 20 66 69 65 6c 64 0d 20 |ext edit| field. |
|000036c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000036d0| 20 20 20 20 20 20 20 20 | 49 46 20 73 65 6c 65 63 | |IF selec|
|000036e0| 74 65 64 2e 66 69 65 6c | 64 25 20 3d 20 31 20 54 |ted.fiel|d% = 1 T|
|000036f0| 48 45 4e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |HEN. | |
|00003700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003710| 20 74 65 6e 74 61 74 69 | 76 65 2e 66 69 65 6c 64 | tentati|ve.field|
|00003720| 25 20 3d 20 32 0d 20 20 | 20 20 20 20 20 20 20 20 |% = 2. | |
|00003730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|00003740| 4c 53 45 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |LSE. | |
|00003750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003760| 20 74 65 6e 74 61 74 69 | 76 65 2e 66 69 65 6c 64 | tentati|ve.field|
|00003770| 25 20 3d 20 31 0d 20 20 | 20 20 20 20 20 20 20 20 |% = 1. | |
|00003780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|00003790| 4e 44 20 49 46 0d 20 20 | 20 20 20 20 20 20 20 20 |ND IF. | |
|000037a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|000037b0| 44 49 54 20 46 49 45 4c | 44 20 74 65 6e 74 61 74 |DIT FIEL|D tentat|
|000037c0| 69 76 65 2e 66 69 65 6c | 64 25 0d 20 20 20 20 20 |ive.fiel|d%. |
|000037d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000037e0| 20 20 20 20 68 61 6e 64 | 6c 65 2e 6d 61 69 6e 2e | hand|le.main.|
|000037f0| 65 64 69 74 2e 66 69 65 | 6c 64 2e 63 68 61 6e 67 |edit.fie|ld.chang|
|00003800| 65 20 74 65 6e 74 61 74 | 69 76 65 2e 66 69 65 6c |e tentat|ive.fiel|
|00003810| 64 25 0d 0d 20 20 20 20 | 20 20 20 20 43 41 53 45 |d%.. | CASE|
|00003820| 20 45 4c 53 45 3a 0d 20 | 20 20 20 20 20 20 20 0d | ELSE:. | .|
|00003830| 20 20 20 20 45 4e 44 20 | 53 45 4c 45 43 54 0d 0d | END |SELECT..|
|00003840| 45 4e 44 20 53 55 42 0d | 0d 27 2d 2d 2d 2d 2d 2d |END SUB.|.'------|
|00003850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003890| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 27 20 63 68 65 63 6b |--------|.' check|
|000038a0| 20 62 75 74 74 6f 6e 20 | 69 6e 20 6d 61 69 6e 20 | button |in main |
|000038b0| 77 69 6e 64 6f 77 0d 27 | 2d 2d 2d 2d 2d 2d 2d 2d |window.'|--------|
|000038c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003900| 2d 2d 2d 2d 2d 2d 0d 53 | 55 42 20 68 61 6e 64 6c |------.S|UB handl|
|00003910| 65 2e 6d 61 69 6e 2e 62 | 75 74 74 6f 6e 20 28 62 |e.main.b|utton (b|
|00003920| 75 74 74 6f 6e 2e 6e 6f | 25 29 20 53 54 41 54 49 |utton.no|%) STATI|
|00003930| 43 0d 0d 20 20 20 20 53 | 45 4c 45 43 54 20 43 41 |C.. S|ELECT CA|
|00003940| 53 45 20 62 75 74 74 6f | 6e 2e 6e 6f 25 0d 20 20 |SE butto|n.no%. |
|00003950| 20 20 20 20 20 20 43 41 | 53 45 20 31 3a 20 20 20 | CA|SE 1: |
|00003960| 20 49 46 20 4e 4f 54 20 | 64 64 2e 63 69 72 63 6c | IF NOT |dd.circl|
|00003970| 65 2e 6f 6e 25 20 54 48 | 45 4e 0d 20 20 20 20 20 |e.on% TH|EN. |
|00003980| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003990| 20 20 20 20 20 20 20 64 | 64 2e 63 69 72 63 6c 65 | d|d.circle|
|000039a0| 2e 6f 6e 25 20 3d 20 54 | 52 55 45 25 0d 20 20 20 |.on% = T|RUE%. |
|000039b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000039c0| 20 20 20 20 20 20 20 20 | 20 43 49 52 43 4c 45 20 | | CIRCLE |
|000039d0| 28 32 30 30 2c 32 30 30 | 29 2c 35 30 0d 20 20 20 |(200,200|),50. |
|000039e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000039f0| 20 20 20 20 20 20 20 20 | 20 49 46 20 4e 4f 54 20 | | IF NOT |
|00003a00| 63 68 61 6e 67 65 73 25 | 20 54 48 45 4e 0d 20 20 |changes%| THEN. |
|00003a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 68 | | ch|
|00003a30| 61 6e 67 65 73 25 20 3d | 20 54 52 55 45 25 0d 20 |anges% =| TRUE%. |
|00003a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 6d | | m|
|00003a60| 65 6e 75 2e 61 66 74 65 | 72 2e 63 68 61 6e 67 65 |enu.afte|r.change|
|00003a70| 73 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |s. | |
|00003a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 45 4e | | EN|
|00003a90| 44 20 49 46 0d 20 20 20 | 20 20 20 20 20 20 20 20 |D IF. | |
|00003aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 45 4e 44 | | END|
|00003ab0| 20 49 46 0d 0d 20 20 20 | 20 20 20 20 20 43 41 53 | IF.. | CAS|
|00003ac0| 45 20 32 3a 20 20 20 20 | 49 46 20 64 64 2e 63 69 |E 2: |IF dd.ci|
|00003ad0| 72 63 6c 65 2e 6f 6e 25 | 20 54 48 45 4e 0d 20 20 |rcle.on%| THEN. |
|00003ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003af0| 20 20 20 20 20 20 20 20 | 20 20 64 64 2e 63 69 72 | | dd.cir|
|00003b00| 63 6c 65 2e 6f 6e 25 20 | 3d 20 46 41 4c 53 45 25 |cle.on% |= FALSE%|
|00003b10| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00003b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 66 6f 72 | | for|
|00003b30| 65 63 6f 6c 6f 72 20 33 | 30 0d 20 20 20 20 20 20 |ecolor 3|0. |
|00003b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003b50| 20 20 20 20 20 20 43 49 | 52 43 4c 45 20 28 32 30 | CI|RCLE (20|
|00003b60| 30 2c 32 30 30 29 2c 35 | 30 0d 20 20 20 20 20 20 |0,200),5|0. |
|00003b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003b80| 20 20 20 20 20 20 66 6f | 72 65 63 6f 6c 6f 72 20 | fo|recolor |
|00003b90| 33 33 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |33. | |
|00003ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 49 | | I|
|00003bb0| 46 20 4e 4f 54 20 63 68 | 61 6e 67 65 73 25 20 54 |F NOT ch|anges% T|
|00003bc0| 48 45 4e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |HEN. | |
|00003bd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003be0| 20 20 20 20 63 68 61 6e | 67 65 73 25 20 3d 20 54 | chan|ges% = T|
|00003bf0| 52 55 45 25 0d 20 20 20 | 20 20 20 20 20 20 20 20 |RUE%. | |
|00003c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003c10| 20 20 20 20 20 6d 65 6e | 75 2e 61 66 74 65 72 2e | men|u.after.|
|00003c20| 63 68 61 6e 67 65 73 0d | 20 20 20 20 20 20 20 20 |changes.| |
|00003c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003c40| 20 20 20 20 45 4e 44 20 | 49 46 0d 20 20 20 20 20 | END |IF. |
|00003c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003c60| 20 20 20 45 4e 44 20 49 | 46 0d 20 20 20 20 20 20 | END I|F. |
|00003c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003c80| 20 20 0d 20 20 20 20 20 | 20 20 20 43 41 53 45 20 | . | CASE |
|00003c90| 45 4c 53 45 3a 0d 20 20 | 20 20 20 20 20 20 0d 20 |ELSE:. | . |
|00003ca0| 20 20 20 45 4e 44 20 53 | 45 4c 45 43 54 0d 0d 45 | END S|ELECT..E|
|00003cb0| 4e 44 20 53 55 42 0d 0d | 27 2d 2d 2d 2d 2d 2d 2d |ND SUB..|'-------|
|00003cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d00| 2d 2d 2d 2d 2d 2d 2d 0d | 27 20 74 68 69 73 20 65 |-------.|' this e|
|00003d10| 76 65 6e 74 20 6d 65 61 | 6e 73 20 74 68 61 74 20 |vent mea|ns that |
|00003d20| 74 68 65 20 75 73 65 72 | 20 68 61 73 20 73 65 6c |the user| has sel|
|00003d30| 65 63 74 65 64 20 61 6e | 6f 74 68 65 72 20 66 69 |ected an|other fi|
|00003d40| 65 6c 64 0d 27 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |eld.'---|--------|
|00003d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003d90| 2d 2d 2d 0d 53 55 42 20 | 68 61 6e 64 6c 65 2e 6d |---.SUB |handle.m|
|00003da0| 61 69 6e 2e 65 64 69 74 | 2e 66 69 65 6c 64 2e 63 |ain.edit|.field.c|
|00003db0| 68 61 6e 67 65 20 28 61 | 63 74 69 76 65 2e 65 64 |hange (a|ctive.ed|
|00003dc0| 69 74 2e 66 69 65 6c 64 | 2e 6e 6f 25 29 20 53 54 |it.field|.no%) ST|
|00003dd0| 41 54 49 43 0d 0d 20 20 | 20 20 27 20 66 6f 72 20 |ATIC.. | ' for |
|00003de0| 63 6f 6d 70 69 6c 65 72 | 20 6f 6e 6c 79 3a 0d 27 |compiler| only:.'|
|00003df0| 20 20 20 20 64 69 6d 20 | 72 65 63 74 25 28 34 29 | dim |rect%(4)|
|00003e00| 2c 6c 65 67 61 6c 25 0d | 27 20 20 20 20 64 69 6d |,legal%.|' dim|
|00003e10| 20 6f 75 74 73 74 72 69 | 6e 67 24 0d 0d 20 20 20 | outstri|ng$.. |
|00003e20| 20 73 65 74 72 65 63 74 | 20 72 65 63 74 25 28 30 | setrect| rect%(0|
|00003e30| 29 2c 31 30 2c 39 30 2c | 32 37 30 2c 31 31 30 0d |),10,90,|270,110.|
|00003e40| 20 20 20 20 0d 20 20 20 | 20 53 45 4c 45 43 54 20 | . | SELECT |
|00003e50| 43 41 53 45 20 61 63 74 | 69 76 65 2e 65 64 69 74 |CASE act|ive.edit|
|00003e60| 2e 66 69 65 6c 64 2e 6e | 6f 25 0d 20 20 20 20 20 |.field.n|o%. |
|00003e70| 20 20 20 43 41 53 45 20 | 31 3a 20 20 20 6f 75 74 | CASE |1: out|
|00003e80| 73 74 72 69 6e 67 24 20 | 3d 20 22 4c 65 6e 67 74 |string$ |= "Lengt|
|00003e90| 68 20 69 73 3a 20 22 20 | 2b 20 53 54 52 24 28 4c |h is: " |+ STR$(L|
|00003ea0| 45 4e 28 45 44 49 54 24 | 28 73 65 6c 65 63 74 65 |EN(EDIT$|(selecte|
|00003eb0| 64 2e 66 69 65 6c 64 25 | 29 29 29 0d 20 20 20 20 |d.field%|))). |
|00003ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003ed0| 20 20 20 20 74 65 78 74 | 62 6f 78 20 6f 75 74 73 | text|box outs|
|00003ee0| 74 72 69 6e 67 24 2c 72 | 65 63 74 25 28 30 29 2c |tring$,r|ect%(0),|
|00003ef0| 30 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0. | |
|00003f00| 20 20 20 20 20 20 20 20 | 20 20 73 65 6c 65 63 74 | | select|
|00003f10| 65 64 2e 66 69 65 6c 64 | 25 20 3d 20 61 63 74 69 |ed.field|% = acti|
|00003f20| 76 65 2e 65 64 69 74 2e | 66 69 65 6c 64 2e 6e 6f |ve.edit.|field.no|
|00003f30| 25 20 20 27 6b 65 65 70 | 20 74 72 61 63 6b 20 6f |% 'keep| track o|
|00003f40| 66 20 63 75 72 72 65 6e | 74 20 66 69 65 6c 64 0d |f curren|t field.|
|00003f50| 20 20 20 20 20 20 20 20 | 0d 20 20 20 20 20 20 20 | |. |
|00003f60| 20 43 41 53 45 20 32 3a | 20 20 20 20 63 68 65 63 | CASE 2:| chec|
|00003f70| 6b 2e 73 65 6c 65 63 74 | 65 64 2e 66 69 65 6c 64 |k.select|ed.field|
|00003f80| 20 6c 65 67 61 6c 25 0d | 20 20 20 20 20 20 20 20 | legal%.| |
|00003f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003fa0| 27 20 79 6f 75 20 73 68 | 6f 75 6c 64 20 61 6c 73 |' you sh|ould als|
|00003fb0| 6f 20 70 72 6f 62 61 62 | 6c 79 20 63 68 65 63 6b |o probab|ly check|
|00003fc0| 20 74 68 69 73 20 77 68 | 65 6e 20 79 6f 75 20 22 | this wh|en you "|
|00003fd0| 53 61 76 65 22 20 6f 72 | 20 22 53 61 76 65 20 61 |Save" or| "Save a|
|00003fe0| 73 2e 2e 2e 22 0d 20 20 | 20 20 20 20 20 20 20 20 |s...". | |
|00003ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 49 46 | | IF|
|00004000| 20 4e 4f 54 20 6c 65 67 | 61 6c 25 20 54 48 45 4e | NOT leg|al% THEN|
|00004010| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00004020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 75 74 | | out|
|00004030| 73 74 72 69 6e 67 24 20 | 3d 20 22 49 6c 6c 65 67 |string$ |= "Illeg|
|00004040| 61 6c 20 76 61 6c 75 65 | 21 22 20 20 20 20 27 6f |al value|!" 'o|
|00004050| 72 20 70 75 74 20 75 70 | 20 61 20 64 69 61 6c 6f |r put up| a dialo|
|00004060| 67 20 77 69 6e 64 6f 77 | 0d 20 20 20 20 20 20 20 |g window|. |
|00004070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004080| 20 20 20 20 20 74 65 78 | 74 62 6f 78 20 6f 75 74 | tex|tbox out|
|00004090| 73 74 72 69 6e 67 24 2c | 72 65 63 74 25 28 30 29 |string$,|rect%(0)|
|000040a0| 2c 30 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,0. | |
|000040b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 45 | | E|
|000040c0| 44 49 54 20 46 49 45 4c | 44 20 73 65 6c 65 63 74 |DIT FIEL|D select|
|000040d0| 65 64 2e 66 69 65 6c 64 | 25 20 20 20 20 20 20 20 |ed.field|% |
|000040e0| 20 27 20 72 65 74 75 72 | 6e 20 74 6f 20 70 72 65 | ' retur|n to pre|
|000040f0| 76 69 6f 75 73 20 66 69 | 65 6c 64 0d 20 20 20 20 |vious fi|eld. |
|00004100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004110| 20 20 20 20 45 4c 53 45 | 0d 20 20 20 20 20 20 20 | ELSE|. |
|00004120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004130| 20 20 20 20 20 6f 75 74 | 73 74 72 69 6e 67 24 20 | out|string$ |
|00004140| 3d 20 22 4f 4b 20 76 61 | 6c 75 65 2e 22 0d 20 20 |= "OK va|lue.". |
|00004150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004160| 20 20 20 20 20 20 20 20 | 20 20 74 65 78 74 62 6f | | textbo|
|00004170| 78 20 6f 75 74 73 74 72 | 69 6e 67 24 2c 72 65 63 |x outstr|ing$,rec|
|00004180| 74 25 28 30 29 2c 30 0d | 20 20 20 20 20 20 20 20 |t%(0),0.| |
|00004190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000041a0| 20 20 20 20 73 65 6c 65 | 63 74 65 64 2e 66 69 65 | sele|cted.fie|
|000041b0| 6c 64 25 20 3d 20 61 63 | 74 69 76 65 2e 65 64 69 |ld% = ac|tive.edi|
|000041c0| 74 2e 66 69 65 6c 64 2e | 6e 6f 25 0d 20 20 20 20 |t.field.|no%. |
|000041d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000041e0| 20 20 20 20 45 4e 44 20 | 49 46 0d 0d 20 20 20 20 | END |IF.. |
|000041f0| 20 20 20 20 43 41 53 45 | 20 45 4c 53 45 3a 0d 20 | CASE| ELSE:. |
|00004200| 20 20 20 20 20 20 20 0d | 20 20 20 20 45 4e 44 20 | .| END |
|00004210| 53 45 4c 45 43 54 0d 0d | 45 4e 44 20 53 55 42 0d |SELECT..|END SUB.|
|00004220| 0d 27 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.'------|--------|
|00004230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004270| 0d 27 20 73 65 65 20 69 | 66 20 66 69 65 6c 64 20 |.' see i|f field |
|00004280| 68 61 73 20 6c 65 67 61 | 6c 20 76 61 6c 75 65 20 |has lega|l value |
|00004290| 69 6e 20 69 74 2e 0d 27 | 2d 2d 2d 2d 2d 2d 2d 2d |in it..'|--------|
|000042a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000042b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|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 0d 53 | 55 42 20 63 68 65 63 6b |------.S|UB check|
|000042f0| 2e 73 65 6c 65 63 74 65 | 64 2e 66 69 65 6c 64 20 |.selecte|d.field |
|00004300| 28 6c 65 67 61 6c 25 29 | 20 53 54 41 54 49 43 0d |(legal%)| STATIC.|
|00004310| 0d 20 20 20 20 6c 65 67 | 61 6c 25 20 3d 20 54 52 |. leg|al% = TR|
|00004320| 55 45 25 0d 20 20 20 20 | 0d 20 20 20 20 49 46 20 |UE%. |. IF |
|00004330| 73 65 6c 65 63 74 65 64 | 2e 66 69 65 6c 64 25 20 |selected|.field% |
|00004340| 3d 20 31 20 54 48 45 4e | 0d 20 20 20 20 20 20 20 |= 1 THEN|. |
|00004350| 20 49 46 20 45 44 49 54 | 24 28 31 29 20 3d 20 22 | IF EDIT|$(1) = "|
|00004360| 52 69 63 68 61 72 64 20 | 4e 69 78 6f 6e 22 20 54 |Richard |Nixon" T|
|00004370| 48 45 4e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |HEN. | |
|00004380| 6c 65 67 61 6c 25 20 3d | 20 46 41 4c 53 45 25 0d |legal% =| FALSE%.|
|00004390| 20 20 20 20 20 20 20 20 | 45 4e 44 20 49 46 0d 20 | |END IF. |
|000043a0| 20 20 20 45 4c 53 45 49 | 46 20 73 65 6c 65 63 74 | ELSEI|F select|
|000043b0| 65 64 2e 66 69 65 6c 64 | 25 20 3d 20 32 20 54 48 |ed.field|% = 2 TH|
|000043c0| 45 4e 0d 20 20 20 20 20 | 20 20 20 27 61 6e 79 20 |EN. | 'any |
|000043d0| 72 65 73 74 72 69 63 74 | 69 6f 6e 73 20 6f 6e 20 |restrict|ions on |
|000043e0| 66 69 65 6c 64 20 32 3f | 0d 20 20 20 20 45 4e 44 |field 2?|. END|
|000043f0| 20 49 46 0d 20 20 20 20 | 0d 45 4e 44 20 53 55 42 | IF. |.END SUB|
|00004400| 0d 0d 27 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..'-----|--------|
|00004410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004450| 2d 0d 27 20 75 73 65 72 | 20 68 61 73 20 63 6c 69 |-.' user| has cli|
|00004460| 63 6b 65 64 20 63 6c 6f | 73 65 20 62 6f 78 20 6f |cked clo|se box o|
|00004470| 66 20 77 69 6e 64 6f 77 | 2e 20 20 57 65 20 6d 75 |f window|. We mu|
|00004480| 73 74 20 72 65 6f 70 65 | 6e 20 69 74 20 69 66 20 |st reope|n it if |
|00004490| 74 68 65 79 20 63 68 61 | 6e 67 65 20 74 68 65 69 |they cha|nge thei|
|000044a0| 72 20 6d 69 6e 64 2e 0d | 27 20 28 55 6e 66 6f 72 |r mind..|' (Unfor|
|000044b0| 74 75 6e 61 74 65 6c 79 | 20 51 42 20 63 6c 6f 73 |tunately| QB clos|
|000044c0| 65 73 20 74 68 65 20 62 | 6f 78 20 62 65 66 6f 72 |es the b|ox befor|
|000044d0| 65 20 77 65 20 63 61 6e | 20 69 6e 74 65 72 63 65 |e we can| interce|
|000044e0| 70 74 20 69 74 2e 29 0d | 27 2d 2d 2d 2d 2d 2d 2d |pt it.).|'-------|
|000044f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004530| 2d 2d 2d 2d 2d 2d 2d 0d | 53 55 42 20 68 61 6e 64 |-------.|SUB hand|
|00004540| 6c 65 2e 6d 61 69 6e 2e | 63 6c 6f 73 65 2e 62 6f |le.main.|close.bo|
|00004550| 78 20 28 66 69 6c 65 2e | 6e 61 6d 65 24 29 20 53 |x (file.|name$) S|
|00004560| 54 41 54 49 43 0d 0d 20 | 20 20 20 27 20 66 6f 72 |TATIC.. | ' for|
|00004570| 20 63 6f 6d 70 69 6c 65 | 72 20 6f 6e 6c 79 0d 27 | compile|r only.'|
|00004580| 20 20 20 20 64 69 6d 20 | 73 75 63 63 65 73 73 25 | dim |success%|
|00004590| 0d 0d 20 20 20 20 63 6c | 6f 73 65 2e 6d 61 69 6e |.. cl|ose.main|
|000045a0| 2e 77 69 6e 64 6f 77 20 | 73 75 63 63 65 73 73 25 |.window |success%|
|000045b0| 0d 20 20 20 20 77 69 6e | 64 6f 77 2e 6f 70 65 6e |. win|dow.open|
|000045c0| 25 20 3d 20 4e 4f 54 20 | 73 75 63 63 65 73 73 25 |% = NOT |success%|
|000045d0| 0d 20 20 20 20 49 46 20 | 4e 4f 54 20 77 69 6e 64 |. IF |NOT wind|
|000045e0| 6f 77 2e 6f 70 65 6e 25 | 20 54 48 45 4e 0d 20 20 |ow.open%| THEN. |
|000045f0| 20 20 20 20 20 20 66 69 | 6c 65 2e 6e 61 6d 65 24 | fi|le.name$|
|00004600| 20 3d 20 22 22 0d 20 20 | 20 20 20 20 20 20 77 69 | = "". | wi|
|00004610| 6e 64 6f 77 6c 65 73 73 | 2e 6d 65 6e 75 0d 20 20 |ndowless|.menu. |
|00004620| 20 20 45 4c 53 45 0d 20 | 20 20 20 20 20 20 20 6f | ELSE. | o|
|00004630| 70 65 6e 2e 6d 61 69 6e | 2e 77 69 6e 64 6f 77 20 |pen.main|.window |
|00004640| 66 69 6c 65 2e 6e 61 6d | 65 24 2c 46 41 4c 53 45 |file.nam|e$,FALSE|
|00004650| 25 0d 20 20 20 20 45 4e | 44 20 49 46 0d 0d 45 4e |%. EN|D IF..EN|
|00004660| 44 20 53 55 42 0d 0d 27 | 2d 2d 2d 2d 2d 2d 2d 2d |D SUB..'|--------|
|00004670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004680| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004690| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000046a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000046b0| 2d 2d 2d 2d 2d 2d 0d 27 | 20 48 61 6e 64 6c 65 20 |------.'| Handle |
|000046c0| 6d 6f 75 73 65 20 63 6c | 69 63 6b 2e 20 20 49 67 |mouse cl|ick. Ig|
|000046d0| 6e 6f 72 65 20 77 69 6e | 64 6f 77 2e 6e 75 6d 62 |nore win|dow.numb|
|000046e0| 65 72 25 20 73 69 6e 63 | 65 20 74 68 65 72 65 27 |er% sinc|e there'|
|000046f0| 73 20 6f 6e 6c 79 20 6f | 6e 65 20 77 69 6e 64 6f |s only o|ne windo|
|00004700| 77 2e 0d 27 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |w..'----|--------|
|00004710| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004720| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004750| 2d 2d 0d 53 55 42 20 68 | 61 6e 64 6c 65 2e 6d 6f |--.SUB h|andle.mo|
|00004760| 75 73 65 20 28 65 76 65 | 6e 74 2e 74 79 70 65 25 |use (eve|nt.type%|
|00004770| 2c 77 69 6e 64 6f 77 2e | 6e 75 6d 62 65 72 25 29 |,window.|number%)|
|00004780| 20 53 54 41 54 49 43 0d | 0d 20 20 20 20 27 20 66 | STATIC.|. ' f|
|00004790| 6f 72 20 63 6f 6d 70 69 | 6c 65 72 20 6f 6e 6c 79 |or compi|ler only|
|000047a0| 0d 27 20 20 20 20 64 69 | 6d 20 6d 6f 75 73 65 2e |.' di|m mouse.|
|000047b0| 78 25 2c 6d 6f 75 73 65 | 2e 79 25 2c 72 65 63 74 |x%,mouse|.y%,rect|
|000047c0| 25 28 34 29 0d 27 20 20 | 20 20 64 69 6d 20 6f 75 |%(4).' | dim ou|
|000047d0| 74 73 74 72 69 6e 67 24 | 0d 0d 20 20 20 20 49 46 |tstring$|.. IF|
|000047e0| 20 65 76 65 6e 74 2e 74 | 79 70 65 25 20 3d 20 31 | event.t|ype% = 1|
|000047f0| 20 54 48 45 4e 20 20 20 | 20 27 20 6d 6f 75 73 65 | THEN | ' mouse|
|00004800| 20 77 61 73 20 63 6c 69 | 63 6b 65 64 0d 20 20 20 | was cli|cked. |
|00004810| 20 20 20 20 20 6d 6f 75 | 73 65 2e 78 25 20 3d 20 | mou|se.x% = |
|00004820| 4d 4f 55 53 45 28 33 29 | 20 20 20 20 27 20 78 20 |MOUSE(3)| ' x |
|00004830| 63 6f 6f 72 64 20 77 68 | 65 6e 20 62 75 74 74 6f |coord wh|en butto|
|00004840| 6e 20 77 61 73 20 66 69 | 72 73 74 20 70 72 65 73 |n was fi|rst pres|
|00004850| 73 65 64 0d 20 20 20 20 | 20 20 20 20 6d 6f 75 73 |sed. | mous|
|00004860| 65 2e 79 25 20 3d 20 4d | 4f 55 53 45 28 34 29 20 |e.y% = M|OUSE(4) |
|00004870| 20 20 20 27 20 79 20 63 | 6f 6f 72 64 20 77 68 65 | ' y c|oord whe|
|00004880| 6e 20 62 75 74 74 6f 6e | 20 77 61 73 20 66 69 72 |n button| was fir|
|00004890| 73 74 20 70 72 65 73 73 | 65 64 0d 20 20 20 20 20 |st press|ed. |
|000048a0| 20 20 20 73 65 74 72 65 | 63 74 20 72 65 63 74 25 | setre|ct rect%|
|000048b0| 28 30 29 2c 31 30 2c 31 | 31 30 2c 32 30 30 2c 31 |(0),10,1|10,200,1|
|000048c0| 33 30 0d 20 20 20 20 20 | 20 20 20 6f 75 74 73 74 |30. | outst|
|000048d0| 72 69 6e 67 24 20 3d 20 | 22 78 20 3d 22 20 2b 20 |ring$ = |"x =" + |
|000048e0| 53 54 52 24 28 6d 6f 75 | 73 65 2e 78 25 29 20 2b |STR$(mou|se.x%) +|
|000048f0| 20 22 20 20 20 20 79 20 | 3d 22 20 2b 20 53 54 52 | " y |=" + STR|
|00004900| 24 28 6d 6f 75 73 65 2e | 79 25 29 0d 20 20 20 20 |$(mouse.|y%). |
|00004910| 20 20 20 20 74 65 78 74 | 62 6f 78 20 6f 75 74 73 | text|box outs|
|00004920| 74 72 69 6e 67 24 2c 72 | 65 63 74 25 28 30 29 2c |tring$,r|ect%(0),|
|00004930| 30 0d 20 20 20 20 45 4c | 53 45 49 46 20 65 76 65 |0. EL|SEIF eve|
|00004940| 6e 74 2e 74 79 70 65 25 | 20 3d 20 2d 31 20 54 48 |nt.type%| = -1 TH|
|00004950| 45 4e 0d 20 20 20 20 20 | 20 20 20 27 20 63 61 6c |EN. | ' cal|
|00004960| 6c 20 72 6f 75 74 69 6e | 65 20 74 6f 20 68 61 6e |l routin|e to han|
|00004970| 64 6c 65 20 6d 6f 75 73 | 65 20 73 74 69 6c 6c 20 |dle mous|e still |
|00004980| 64 6f 77 6e 0d 20 20 20 | 20 45 4e 44 20 49 46 0d |down. | END IF.|
|00004990| 0d 45 4e 44 20 53 55 42 | 0d 0d 27 2d 2d 2d 2d 2d |.END SUB|..'-----|
|000049a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000049b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000049c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000049d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000049e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 27 20 63 68 65 63 |--------|-.' chec|
|000049f0| 6b 20 77 68 65 74 68 65 | 72 20 65 64 69 74 20 66 |k whethe|r edit f|
|00004a00| 69 65 6c 64 20 77 61 73 | 20 63 68 61 6e 67 65 64 |ield was| changed|
|00004a10| 2c 20 75 70 64 61 74 65 | 20 64 61 74 61 20 76 61 |, update| data va|
|00004a20| 72 69 61 62 6c 65 73 0d | 27 2d 2d 2d 2d 2d 2d 2d |riables.|'-------|
|00004a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a70| 2d 2d 2d 2d 2d 2d 2d 0d | 53 55 42 20 63 68 65 63 |-------.|SUB chec|
|00004a80| 6b 2e 66 6f 72 2e 65 64 | 69 74 2e 63 68 61 6e 67 |k.for.ed|it.chang|
|00004a90| 65 73 20 53 54 41 54 49 | 43 0d 0d 20 20 20 20 27 |es STATI|C.. '|
|00004aa0| 20 66 6f 72 20 63 6f 6d | 70 69 6c 65 72 20 6f 6e | for com|piler on|
|00004ab0| 6c 79 3a 0d 27 20 20 20 | 20 64 69 6d 20 65 6e 74 |ly:.' | dim ent|
|00004ac0| 72 79 31 24 2c 65 6e 74 | 72 79 32 24 0d 0d 20 20 |ry1$,ent|ry2$.. |
|00004ad0| 20 20 65 6e 74 72 79 31 | 24 20 3d 20 45 44 49 54 | entry1|$ = EDIT|
|00004ae0| 24 28 31 29 0d 20 20 20 | 20 65 6e 74 72 79 32 24 |$(1). | entry2$|
|00004af0| 20 3d 20 45 44 49 54 24 | 28 32 29 0d 20 20 20 20 | = EDIT$|(2). |
|00004b00| 0d 20 20 20 20 49 46 20 | 65 6e 74 72 79 31 24 20 |. IF |entry1$ |
|00004b10| 3c 3e 20 64 64 2e 65 64 | 69 74 31 24 20 4f 52 20 |<> dd.ed|it1$ OR |
|00004b20| 65 6e 74 72 79 32 24 20 | 3c 3e 20 64 64 2e 65 64 |entry2$ |<> dd.ed|
|00004b30| 69 74 32 24 20 54 48 45 | 4e 0d 20 20 20 20 20 20 |it2$ THE|N. |
|00004b40| 20 20 64 64 2e 65 64 69 | 74 31 24 20 3d 20 65 6e | dd.edi|t1$ = en|
|00004b50| 74 72 79 31 24 0d 20 20 | 20 20 20 20 20 20 64 64 |try1$. | dd|
|00004b60| 2e 65 64 69 74 32 24 20 | 3d 20 65 6e 74 72 79 32 |.edit2$ |= entry2|
|00004b70| 24 0d 20 20 20 20 20 20 | 20 20 49 46 20 4e 4f 54 |$. | IF NOT|
|00004b80| 20 63 68 61 6e 67 65 73 | 25 20 54 48 45 4e 0d 20 | changes|% THEN. |
|00004b90| 20 20 20 20 20 20 20 20 | 20 20 20 63 68 61 6e 67 | | chang|
|00004ba0| 65 73 25 20 3d 20 54 52 | 55 45 25 0d 20 20 20 20 |es% = TR|UE%. |
|00004bb0| 20 20 20 20 20 20 20 20 | 6d 65 6e 75 2e 61 66 74 | |menu.aft|
|00004bc0| 65 72 2e 63 68 61 6e 67 | 65 73 0d 20 20 20 20 20 |er.chang|es. |
|00004bd0| 20 20 20 45 4e 44 20 49 | 46 0d 20 20 20 20 45 4e | END I|F. EN|
|00004be0| 44 20 49 46 0d 0d 45 4e | 44 20 53 55 42 0d 0d 27 |D IF..EN|D SUB..'|
|00004bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004c20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004c30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 27 |--------|------.'|
|00004c40| 20 61 6c 65 72 74 20 75 | 73 65 72 20 74 68 61 74 | alert u|ser that|
|00004c50| 20 63 68 61 6e 67 65 73 | 20 68 61 76 65 20 6f 63 | changes| have oc|
|00004c60| 63 75 72 72 65 64 0d 27 | 2d 2d 2d 2d 2d 2d 2d 2d |curred.'|--------|
|00004c70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004c80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|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 0d 53 | 55 42 20 61 6c 65 72 74 |------.S|UB alert|
|00004cc0| 2e 63 68 61 6e 67 65 73 | 20 28 63 6f 6e 74 69 6e |.changes| (contin|
|00004cd0| 75 65 25 29 20 53 54 41 | 54 49 43 0d 0d 20 20 20 |ue%) STA|TIC.. |
|00004ce0| 20 27 20 66 6f 72 20 63 | 6f 6d 70 69 6c 65 72 20 | ' for c|ompiler |
|00004cf0| 6f 6e 6c 79 3a 0d 27 20 | 20 20 20 64 69 6d 20 72 |only:.' | dim r|
|00004d00| 65 63 74 25 28 34 29 0d | 27 20 20 20 20 64 69 6d |ect%(4).|' dim|
|00004d10| 20 6f 75 74 73 74 72 69 | 6e 67 24 0d 0d 20 20 20 | outstri|ng$.. |
|00004d20| 20 42 45 45 50 0d 0d 20 | 20 20 20 27 20 79 6f 75 | BEEP.. | ' you|
|00004d30| 20 6e 65 65 64 20 61 62 | 6f 75 74 20 31 20 69 6e | need ab|out 1 in|
|00004d40| 74 65 67 65 72 20 74 6f | 20 73 74 6f 72 65 20 61 |teger to| store a|
|00004d50| 20 31 33 20 28 3f 29 20 | 73 71 75 61 72 65 20 70 | 13 (?) |square p|
|00004d60| 69 78 65 6c 20 61 72 65 | 61 3b 0d 20 20 20 20 27 |ixel are|a;. '|
|00004d70| 20 6d 61 6b 65 20 73 75 | 72 65 20 70 69 63 25 20 | make su|re pic% |
|00004d80| 69 73 20 62 69 67 20 65 | 6e 6f 75 67 68 21 0d 20 |is big e|nough!. |
|00004d90| 20 20 20 47 45 54 20 28 | 34 35 2d 77 69 6e 78 25 | GET (|45-winx%|
|00004da0| 2c 34 35 2d 77 69 6e 79 | 25 29 2d 28 32 34 30 2d |,45-winy|%)-(240-|
|00004db0| 77 69 6e 78 25 2c 32 31 | 30 2d 77 69 6e 79 25 29 |winx%,21|0-winy%)|
|00004dc0| 2c 70 69 63 25 0d 20 20 | 20 20 0d 20 20 20 20 57 |,pic%. | . W|
|00004dd0| 49 4e 44 4f 57 20 32 2c | 2c 28 35 30 2c 35 30 29 |INDOW 2,|,(50,50)|
|00004de0| 2d 28 32 33 30 2c 32 30 | 30 29 2c 2d 32 0d 20 20 |-(230,20|0),-2. |
|00004df0| 20 20 54 45 58 54 46 4f | 4e 54 20 30 0d 0d 20 20 | TEXTFO|NT 0.. |
|00004e00| 20 20 73 65 74 72 65 63 | 74 20 72 65 63 74 25 28 | setrec|t rect%(|
|00004e10| 30 29 2c 30 2c 30 2c 31 | 38 30 2c 31 30 30 0d 20 |0),0,0,1|80,100. |
|00004e20| 20 20 20 6f 75 74 73 74 | 72 69 6e 67 24 20 3d 20 | outst|ring$ = |
|00004e30| 22 43 68 61 6e 67 65 73 | 20 68 61 76 65 20 62 65 |"Changes| have be|
|00004e40| 65 6e 20 6d 61 64 65 2e | 20 20 43 6f 6e 74 69 6e |en made.| Contin|
|00004e50| 75 65 20 77 69 74 68 6f | 75 74 20 73 61 76 69 6e |ue witho|ut savin|
|00004e60| 67 3f 22 0d 20 20 20 20 | 74 65 78 74 62 6f 78 20 |g?". |textbox |
|00004e70| 6f 75 74 73 74 72 69 6e | 67 24 2c 72 65 63 74 25 |outstrin|g$,rect%|
|00004e80| 28 30 29 2c 30 0d 20 20 | 20 20 42 55 54 54 4f 4e |(0),0. | BUTTON|
|00004e90| 20 31 2c 31 2c 22 4e 6f | 22 2c 28 35 30 2c 31 32 | 1,1,"No|",(50,12|
|00004ea0| 30 29 2d 28 31 32 30 2c | 31 33 35 29 2c 31 0d 20 |0)-(120,|135),1. |
|00004eb0| 20 20 20 42 55 54 54 4f | 4e 20 32 2c 31 2c 22 59 | BUTTO|N 2,1,"Y|
|00004ec0| 65 73 22 2c 28 35 30 2c | 31 30 30 29 2d 28 31 32 |es",(50,|100)-(12|
|00004ed0| 30 2c 31 31 35 29 2c 31 | 0d 0d 20 20 20 20 63 6c |0,115),1|.. cl|
|00004ee0| 65 61 72 2e 64 69 61 6c | 6f 67 2e 71 75 65 75 65 |ear.dial|og.queue|
|00004ef0| 0d 20 20 20 20 0d 20 20 | 20 20 27 20 6c 6f 63 61 |. . | ' loca|
|00004f00| 6c 20 65 76 65 6e 74 20 | 6c 6f 6f 70 20 73 69 6e |l event |loop sin|
|00004f10| 63 65 20 74 68 69 73 20 | 69 73 20 61 20 6d 6f 64 |ce this |is a mod|
|00004f20| 61 6c 20 61 6c 65 72 74 | 0d 20 20 20 20 57 48 49 |al alert|. WHI|
|00004f30| 4c 45 20 44 49 41 4c 4f | 47 28 30 29 20 3c 3e 20 |LE DIALO|G(0) <> |
|00004f40| 31 0d 20 20 20 20 57 45 | 4e 44 0d 0d 20 20 20 20 |1. WE|ND.. |
|00004f50| 49 46 20 44 49 41 4c 4f | 47 28 31 29 20 3d 20 31 |IF DIALO|G(1) = 1|
|00004f60| 20 54 48 45 4e 0d 20 20 | 20 20 20 20 20 20 63 6f | THEN. | co|
|00004f70| 6e 74 69 6e 75 65 25 20 | 3d 20 46 41 4c 53 45 25 |ntinue% |= FALSE%|
|00004f80| 0d 20 20 20 20 45 4c 53 | 45 0d 20 20 20 20 20 20 |. ELS|E. |
|00004f90| 20 20 63 6f 6e 74 69 6e | 75 65 25 20 3d 20 54 52 | contin|ue% = TR|
|00004fa0| 55 45 25 0d 20 20 20 20 | 45 4e 44 20 49 46 0d 0d |UE%. |END IF..|
|00004fb0| 20 20 20 20 57 49 4e 44 | 4f 57 20 43 4c 4f 53 45 | WIND|OW CLOSE|
|00004fc0| 20 32 0d 0d 20 20 20 20 | 27 20 72 65 66 72 65 73 | 2.. |' refres|
|00004fd0| 68 20 74 68 65 20 73 63 | 72 65 65 6e 0d 20 20 20 |h the sc|reen. |
|00004fe0| 20 50 55 54 20 28 34 35 | 2d 77 69 6e 78 25 2c 34 | PUT (45|-winx%,4|
|00004ff0| 35 2d 77 69 6e 79 25 29 | 2d 28 32 34 30 2d 77 69 |5-winy%)|-(240-wi|
|00005000| 6e 78 25 2c 32 31 30 2d | 77 69 6e 79 25 29 2c 70 |nx%,210-|winy%),p|
|00005010| 69 63 25 2c 50 53 45 54 | 0d 0d 45 4e 44 20 53 55 |ic%,PSET|..END SU|
|00005020| 42 0d 0d 27 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |B..'----|--------|
|00005030| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005070| 2d 2d 0d 27 20 72 65 73 | 65 74 20 71 75 65 75 65 |--.' res|et queue|
|00005080| 20 6f 66 20 64 69 61 6c | 6f 67 20 65 76 65 6e 74 | of dial|og event|
|00005090| 73 0d 27 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |s.'-----|--------|
|000050a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000050b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000050c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000050d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000050e0| 2d 0d 53 55 42 20 63 6c | 65 61 72 2e 64 69 61 6c |-.SUB cl|ear.dial|
|000050f0| 6f 67 2e 71 75 65 75 65 | 20 53 54 41 54 49 43 0d |og.queue| STATIC.|
|00005100| 0d 20 20 20 20 57 48 49 | 4c 45 20 44 49 41 4c 4f |. WHI|LE DIALO|
|00005110| 47 28 30 29 20 3c 3e 20 | 30 0d 20 20 20 20 57 45 |G(0) <> |0. WE|
|00005120| 4e 44 0d 20 20 20 20 20 | 20 20 20 0d 45 4e 44 20 |ND. | .END |
|00005130| 53 55 42 0d 20 20 20 20 | 0d 27 2d 2d 2d 2d 2d 2d |SUB. |.'------|
|00005140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005180| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 27 20 64 72 61 77 20 |--------|.' draw |
|00005190| 62 75 74 74 6f 6e 20 77 | 69 74 68 20 64 6f 75 62 |button w|ith doub|
|000051a0| 6c 65 20 62 6f 72 64 65 | 72 0d 27 2d 2d 2d 2d 2d |le borde|r.'-----|
|000051b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000051c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000051d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000051e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000051f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 53 55 42 20 66 61 |--------|-.SUB fa|
|00005200| 74 2e 62 75 74 74 6f 6e | 20 28 62 75 74 74 6f 6e |t.button| (button|
|00005210| 2e 6e 6f 25 2c 73 74 61 | 74 65 25 2c 6d 65 73 73 |.no%,sta|te%,mess|
|00005220| 61 67 65 24 2c 78 25 2c | 79 25 29 20 53 54 41 54 |age$,x%,|y%) STAT|
|00005230| 49 43 0d 0d 20 20 20 20 | 27 20 66 6f 72 20 63 6f |IC.. |' for co|
|00005240| 6d 70 69 6c 65 72 20 6f | 6e 6c 79 3a 0d 27 20 20 |mpiler o|nly:.' |
|00005250| 20 20 64 69 6d 20 72 65 | 63 74 25 28 34 29 0d 0d | dim re|ct%(4)..|
|00005260| 20 20 20 20 73 65 74 72 | 65 63 74 20 72 65 63 74 | setr|ect rect|
|00005270| 25 28 30 29 2c 78 25 2c | 79 25 2c 78 25 2b 37 36 |%(0),x%,|y%,x%+76|
|00005280| 2c 79 25 2b 32 38 0d 20 | 20 20 20 50 45 4e 53 49 |,y%+28. | PENSI|
|00005290| 5a 45 20 33 2c 33 0d 20 | 20 20 20 46 52 41 4d 45 |ZE 3,3. | FRAME|
|000052a0| 52 4f 55 4e 44 52 45 43 | 54 20 56 41 52 50 54 52 |ROUNDREC|T VARPTR|
|000052b0| 28 72 65 63 74 25 28 30 | 29 29 2c 31 36 2c 31 36 |(rect%(0|)),16,16|
|000052c0| 0d 20 20 20 20 50 45 4e | 4e 4f 52 4d 41 4c 0d 20 |. PEN|NORMAL. |
|000052d0| 20 20 20 42 55 54 54 4f | 4e 20 62 75 74 74 6f 6e | BUTTO|N button|
|000052e0| 2e 6e 6f 25 2c 73 74 61 | 74 65 25 2c 6d 65 73 73 |.no%,sta|te%,mess|
|000052f0| 61 67 65 24 2c 28 78 25 | 2b 34 2c 79 25 2b 34 29 |age$,(x%|+4,y%+4)|
|00005300| 2d 28 78 25 2b 37 32 2c | 79 25 2b 32 34 29 2c 31 |-(x%+72,|y%+24),1|
|00005310| 0d 0d 45 4e 44 20 53 55 | 42 0d 20 20 20 20 0d 27 |..END SU|B. .'|
|00005320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005360| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 27 |--------|------.'|
|00005370| 20 72 65 6d 6f 76 65 20 | 66 6f 6c 64 65 72 20 6e | remove |folder n|
|00005380| 61 6d 65 73 20 66 72 6f | 6d 20 66 69 6c 65 20 6e |ames fro|m file n|
|00005390| 61 6d 65 0d 27 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ame.'---|--------|
|000053a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000053b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000053c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000053d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000053e0| 2d 2d 2d 0d 53 55 42 20 | 73 74 72 69 70 2e 66 6f |---.SUB |strip.fo|
|000053f0| 6c 64 65 72 73 20 28 66 | 69 6c 65 2e 6e 61 6d 65 |lders (f|ile.name|
|00005400| 24 2c 73 68 6f 72 74 2e | 6e 61 6d 65 24 29 20 53 |$,short.|name$) S|
|00005410| 54 41 54 49 43 0d 0d 20 | 20 20 20 73 68 6f 72 74 |TATIC.. | short|
|00005420| 2e 6e 61 6d 65 24 20 3d | 20 66 69 6c 65 2e 6e 61 |.name$ =| file.na|
|00005430| 6d 65 24 0d 20 20 20 20 | 0d 20 20 20 20 57 48 49 |me$. |. WHI|
|00005440| 4c 45 20 49 4e 53 54 52 | 28 73 68 6f 72 74 2e 6e |LE INSTR|(short.n|
|00005450| 61 6d 65 24 2c 22 3a 22 | 29 20 3e 20 30 0d 20 20 |ame$,":"|) > 0. |
|00005460| 20 20 20 20 20 20 73 68 | 6f 72 74 2e 6e 61 6d 65 | sh|ort.name|
|00005470| 24 20 3d 20 52 49 47 48 | 54 24 28 73 68 6f 72 74 |$ = RIGH|T$(short|
|00005480| 2e 6e 61 6d 65 24 2c 4c | 45 4e 28 73 68 6f 72 74 |.name$,L|EN(short|
|00005490| 2e 6e 61 6d 65 24 29 2d | 49 4e 53 54 52 28 73 68 |.name$)-|INSTR(sh|
|000054a0| 6f 72 74 2e 6e 61 6d 65 | 24 2c 22 3a 22 29 29 0d |ort.name|$,":")).|
|000054b0| 20 20 20 20 57 45 4e 44 | 0d 20 20 20 20 0d 45 4e | WEND|. .EN|
|000054c0| 44 20 53 55 42 0d 0d 27 | 2d 2d 2d 2d 2d 2d 2d 2d |D SUB..'|--------|
|000054d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000054e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000054f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005510| 2d 2d 2d 2d 2d 2d 0d 27 | 20 77 61 69 74 20 73 70 |------.'| wait sp|
|00005520| 65 63 69 66 69 65 64 20 | 6e 75 6d 62 65 72 20 6f |ecified |number o|
|00005530| 66 20 73 65 63 6f 6e 64 | 73 0d 27 2d 2d 2d 2d 2d |f second|s.'-----|
|00005540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 53 55 42 20 73 6c |--------|-.SUB sl|
|00005590| 65 65 70 20 28 73 6c 65 | 65 70 2e 74 69 6d 65 29 |eep (sle|ep.time)|
|000055a0| 20 53 54 41 54 49 43 0d | 0d 20 20 20 20 27 20 66 | STATIC.|. ' f|
|000055b0| 6f 72 20 63 6f 6d 70 69 | 6c 65 72 20 6f 6e 6c 79 |or compi|ler only|
|000055c0| 3a 0d 27 20 20 20 20 64 | 69 6d 20 73 74 61 72 74 |:.' d|im start|
|000055d0| 2e 74 69 6d 65 0d 0d 20 | 20 20 20 73 74 61 72 74 |.time.. | start|
|000055e0| 2e 74 69 6d 65 20 3d 20 | 54 49 4d 45 52 0d 20 20 |.time = |TIMER. |
|000055f0| 20 20 57 48 49 4c 45 20 | 54 49 4d 45 52 20 3c 20 | WHILE |TIMER < |
|00005600| 73 74 61 72 74 2e 74 69 | 6d 65 20 2b 20 73 6c 65 |start.ti|me + sle|
|00005610| 65 70 2e 74 69 6d 65 0d | 20 20 20 20 57 45 4e 44 |ep.time.| WEND|
|00005620| 0d 0d 45 4e 44 20 53 55 | 42 0d 0d 27 2d 2d 2d 2d |..END SU|B..'----|
|00005630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005660| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005670| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 27 20 52 65 64 |--------|--.' Red|
|00005680| 72 61 77 20 6d 61 69 6e | 20 77 69 6e 64 6f 77 20 |raw main| window |
|00005690| 66 6f 72 20 75 73 65 20 | 61 66 74 65 72 20 66 69 |for use |after fi|
|000056a0| 6c 65 20 73 65 6c 65 63 | 74 69 6f 6e 20 64 69 61 |le selec|tion dia|
|000056b0| 6c 6f 67 2e 20 20 49 74 | 20 77 6f 75 6c 64 20 62 |log. It| would b|
|000056c0| 65 20 70 72 65 66 65 72 | 61 62 6c 65 0d 27 20 74 |e prefer|able.' t|
|000056d0| 6f 20 75 73 65 20 47 45 | 54 2f 50 55 54 20 61 73 |o use GE|T/PUT as|
|000056e0| 20 77 65 20 64 6f 20 66 | 6f 72 20 74 68 65 20 61 | we do f|or the a|
|000056f0| 6c 65 72 74 2e 63 68 61 | 6e 67 65 73 20 64 69 61 |lert.cha|nges dia|
|00005700| 6c 6f 67 2c 20 62 75 74 | 20 49 20 68 61 76 65 6e |log, but| I haven|
|00005710| 27 74 20 66 69 67 75 72 | 65 64 20 6f 75 74 0d 27 |'t figur|ed out.'|
|00005720| 20 77 68 65 72 65 20 74 | 68 65 20 66 69 6c 65 20 | where t|he file |
|00005730| 73 65 6c 65 63 74 69 6f | 6e 20 64 69 61 6c 6f 67 |selectio|n dialog|
|00005740| 20 61 70 70 65 61 72 73 | 2c 20 6f 72 20 68 6f 77 | appears|, or how|
|00005750| 20 62 69 67 20 69 74 20 | 69 73 2e 0d 27 2d 2d 2d | big it |is..'---|
|00005760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00005790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000057a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 53 55 42 20 |--------|---.SUB |
|000057b0| 72 65 66 72 65 73 68 2e | 6d 61 69 6e 2e 77 69 6e |refresh.|main.win|
|000057c0| 64 6f 77 20 28 66 69 6c | 65 2e 6e 61 6d 65 24 29 |dow (fil|e.name$)|
|000057d0| 20 53 54 41 54 49 43 0d | 0d 20 20 20 20 57 49 4e | STATIC.|. WIN|
|000057e0| 44 4f 57 20 43 4c 4f 53 | 45 20 31 0d 20 20 20 20 |DOW CLOS|E 1. |
|000057f0| 6f 70 65 6e 2e 6d 61 69 | 6e 2e 77 69 6e 64 6f 77 |open.mai|n.window|
|00005800| 20 66 69 6c 65 2e 6e 61 | 6d 65 24 2c 46 41 4c 53 | file.na|me$,FALS|
|00005810| 45 25 0d 0d 45 4e 44 20 | 53 55 42 0d 00 00 00 00 |E%..END |SUB.....|
|00005820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005880| 00 00 01 00 00 00 01 f2 | 00 00 00 f2 00 00 00 bc |........|........|
|00005890| 00 00 00 70 07 72 6f 62 | 6f 74 2e 63 02 00 00 00 |...p.rob|ot.c....|
|000058a0| 54 45 58 54 4b 41 48 4c | 01 00 00 00 00 c0 00 00 |TEXTKAHL|........|
|000058b0| 0f 65 76 65 6e 74 20 73 | 68 65 6c 6c 2e 62 61 73 |.event s|hell.bas|
|000058c0| 02 00 00 00 54 45 58 54 | 4d 53 42 42 01 00 01 00 |....TEXT|MSBB....|
|000058d0| 00 00 54 45 58 54 4d 53 | 42 42 01 00 01 00 00 80 |..TEXTMS|BB......|
|000058e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000058f0| 03 95 a3 fa e9 75 00 00 | 57 9c 00 00 02 ae 00 00 |.....u..|W.......|
|00005900| 00 00 16 00 00 00 00 70 | 10 72 6f 62 6f 74 66 75 |.......p|.robotfu|
|00005910| 6e 63 74 69 6f 6e 73 2e | 63 2e 02 00 00 00 54 45 |nctions.|c.....TE|
|00005920| 58 54 4b 41 48 4c 01 00 | 00 00 00 80 00 00 00 00 |XTKAHL..|........|
|00005930| 00 7e 00 00 00 00 0a 8d | 00 00 0c 00 00 00 00 00 |.~......|........|
|00005940| 00 00 00 00 00 00 a2 51 | f3 3f a2 51 f4 07 00 00 |.......Q|.?.Q....|
|00005950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005960| 00 00 00 00 00 c1 00 06 | 00 00 00 00 00 00 00 00 |........|........|
|00005970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005980| 00 00 00 16 14 41 62 6f | 75 74 20 41 70 70 6c 69 |.....Abo|ut Appli|
|00005990| 63 61 74 69 6f 6e 2e 2e | 2e 00 00 00 00 16 00 32 |cation..|.......2|
|000059a0| 00 82 00 83 01 76 00 01 | 00 00 00 00 00 00 00 00 |.....v..|........|
|000059b0| 00 80 00 00 00 00 00 64 | 00 02 00 00 00 00 00 34 |.......d|.......4|
|000059c0| 00 4b 00 48 00 a4 04 02 | 4f 4b 00 00 00 00 00 08 |.K.H....|OK......|
|000059d0| 00 08 00 18 00 f4 88 22 | 54 68 69 73 20 61 70 70 |......."|This app|
|000059e0| 6c 69 63 61 74 69 6f 6e | 20 77 61 73 20 63 72 65 |lication| was cre|
|000059f0| 61 74 65 64 20 75 73 69 | 6e 67 00 00 00 00 00 1c |ated usi|ng......|
|00005a00| 00 2d 00 2c 00 c3 88 14 | 4d 69 63 72 6f 73 6f 66 |.-.,....|Microsof|
|00005a10| 74 20 51 75 69 63 6b 42 | 41 53 49 43 00 00 00 04 |t QuickB|ASIC....|
|00005a20| 00 01 00 2e 00 00 00 0a | 00 09 06 4d 6f 6e 61 63 |........|...Monac|
|00005a30| 6f 00 00 00 00 04 00 06 | 00 08 00 00 00 34 33 52 |o.......|.....43R|
|00005a40| 61 6c 70 68 27 73 20 44 | 69 73 6b 3a 4c 61 6e 67 |alph's D|isk:Lang|
|00005a50| 75 61 67 65 73 3a 51 42 | 3a 6d 69 63 72 6f 67 72 |uages:QB|:microgr|
|00005a60| 61 70 68 69 63 73 3a 65 | 76 65 6e 74 20 73 68 65 |aphics:e|vent she|
|00005a70| 6c 6c 00 00 01 00 00 00 | 01 f2 00 00 00 f2 00 00 |ll......|........|
|00005a80| 00 bc 00 32 fa ac 04 6a | 00 00 00 1c 00 aa 00 06 |...2...j|........|
|00005a90| 53 54 52 20 00 00 00 3a | 44 4c 4f 47 00 00 00 46 |STR ...:|DLOG...F|
|00005aa0| 44 49 54 4c 00 00 00 52 | 4d 42 43 4f 00 00 00 5e |DITL...R|MBCO...^|
|00005ab0| 45 46 4e 54 00 00 00 6a | 45 54 41 42 00 00 00 76 |EFNT...j|ETAB...v|
|00005ac0| 4d 42 41 4e 00 00 00 82 | 00 80 00 00 20 00 00 00 |MBAN....|.... ...|
|00005ad0| 00 33 67 68 00 80 00 06 | 20 00 00 1a 00 00 00 00 |.3gh....| .......|
|00005ae0| 00 80 00 0c 20 00 00 34 | 00 00 00 00 00 00 ff ff |.... ..4|........|
|00005af0| 20 00 00 9c 00 33 6b 48 | 03 eb ff ff 00 00 00 a4 | ....3kH|........|
|00005b00| 00 00 00 00 03 ec ff ff | 00 00 00 b2 00 00 00 00 |........|........|
|00005b10| 00 00 ff ff 00 00 00 ba | 00 00 00 00 05 41 62 6f |........|.....Abo|
|00005b20| 75 74 05 41 62 6f 75 74 | 05 41 62 6f 75 74 00 00 |ut.About|.About..|
|00005b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+