home *** CD-ROM | disk | FTP | other *** search
MacBinary | 1991-04-21 | 22.9 KB | [ TEXT/MSBB]
open in: MacOS 8.1
extracted
|
Win98
extracted
|
DOS
extracted
browse contents |
view JSON data
|
view as text
This file was processed as: MacBinary
(archive/macBinary ).
Confidence Program Detection Match Type Support
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 key value 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 |........|........| +--------+-------------------------+-------------------------+--------+--------+