/ PSION CD 2 / PsionCDVol2.iso / Programs / 8 / GENERIC.SIS

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 6d 00 00 10 | 19 04 00 10 bf d9 96 9d |....m...|........|
|00000010| 6a 76 01 00 03 00 00 00 | 00 00 00 00 00 00 00 00 |jv......|........|
|00000020| 64 00 00 00 00 00 00 00 | 01 00 0a 00 00 00 00 00 |d.......|........|
|00000030| 44 00 00 00 46 00 00 00 | b2 00 00 00 00 00 00 00 |D...F...|........|
|00000040| b2 00 00 00 01 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 16 00 00 00 ba 00 | 00 00 20 00 00 00 d0 00 |........|.. .....|
|00000060| 00 00 cf 02 00 00 5d 01 | 00 00 00 00 00 00 00 00 |......].|........|
|00000070| 00 00 00 00 00 00 12 00 | 00 00 f0 00 00 00 1c 00 |........|........|
|00000080| 00 00 02 01 00 00 da 3d | 00 00 2c 04 00 00 00 00 |.......=|..,.....|
|00000090| 00 00 01 00 00 00 02 00 | 00 00 12 00 00 00 1e 01 |........|........|
|000000a0| 00 00 1e 00 00 00 30 01 | 00 00 88 02 00 00 06 42 |......0.|.......B|
|000000b0| 00 00 0f 00 00 00 4e 01 | 00 00 44 3a 5c 53 49 53 |......N.|..D:\SIS|
|000000c0| 54 45 4d 50 5c 47 45 4e | 45 52 49 43 2e 4d 42 4d |TEMP\GEN|ERIC.MBM|
|000000d0| 21 3a 5c 50 73 69 6f 6e | 35 43 44 31 5c 47 65 6e |!:\Psion|5CD1\Gen|
|000000e0| 65 72 69 63 5c 47 45 4e | 45 52 49 43 2e 4d 42 4d |eric\GEN|ERIC.MBM|
|000000f0| 44 3a 5c 53 49 53 54 45 | 4d 50 5c 47 45 4e 45 52 |D:\SISTE|MP\GENER|
|00000100| 49 43 21 3a 5c 50 73 69 | 6f 6e 35 43 44 31 5c 47 |IC!:\Psi|on5CD1\G|
|00000110| 65 6e 65 72 69 63 5c 47 | 45 4e 45 52 49 43 44 3a |eneric\G|ENERICD:|
|00000120| 5c 53 49 53 54 45 4d 50 | 5c 42 69 73 2e 74 78 74 |\SISTEMP|\Bis.txt|
|00000130| 21 3a 5c 53 79 73 74 65 | 6d 5c 41 70 70 73 5c 47 |!:\Syste|m\Apps\G|
|00000140| 65 6e 65 72 69 63 5c 42 | 69 73 2e 74 78 74 47 65 |eneric\B|is.txtGe|
|00000150| 6e 65 72 69 63 20 31 36 | 2e 31 20 6b 42 37 00 00 |neric 16|.1 kB7..|
|00000160| 10 42 00 00 10 00 00 00 | 00 39 64 39 47 bb 02 00 |.B......|.9d9G...|
|00000170| 00 d3 00 00 00 28 00 00 | 00 20 00 00 00 20 00 00 |.....(..|. ... ..|
|00000180| 00 00 00 00 00 00 00 00 | 00 02 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 01 00 00 | 00 17 ff b0 3f fc c3 ff |........|....?...|
|000001a0| ff f0 ff c3 3f fc c3 ff | ff c0 ff c0 3f fc c3 ff |....?...|....?...|
|000001b0| ff 00 3f c0 3f fc c3 ff | ff 30 0c c3 3f 00 c0 ff |..?.?...|.0..?...|
|000001c0| ff f0 c0 c3 3f 00 c0 ff | ff f0 f3 c3 3f fc c3 3f |....?...|....?..?|
|000001d0| fc f0 ff c3 3f fc c3 ff | ff f0 ff c3 3f fc c3 ff |....?...|....?...|
|000001e0| ff f0 ff c3 3f fc c3 3f | fc f0 ff c3 17 ff b0 3f |....?..?|.......?|
|000001f0| c0 ff ff f0 f0 ff c3 3f | 00 fc ff f0 c0 ff c0 3f |.......?|.......?|
|00000200| 3c fc 3f fc 00 3f c0 3f | 3c fc 3f fc 30 0c c3 3f |<.?..?.?|<.?.0..?|
|00000210| 3c fc 0f ff f0 c0 c3 3f | 3c fc 0f ff f0 f3 c3 3f |<......?|<......?|
|00000220| 3c fc c3 ff f0 ff c3 3f | 3c fc c3 ff f0 ff c3 3f |<......?|<......?|
|00000230| 00 fc f0 ff f0 ff c3 3f | c0 ff f0 ff f0 ff c3 2d |.......?|.......-|
|00000240| ff fe ff ff 80 00 00 00 | 28 00 00 00 20 00 00 00 |........|(... ...|
|00000250| 20 00 00 00 00 00 00 00 | 00 00 00 00 02 00 00 00 | .......|........|
|00000260| 00 00 00 00 00 00 00 00 | 01 00 00 00 4f ff b0 3f |........|....O..?|
|00000270| c0 ff ff f0 f0 ff c3 3f | 00 fc ff f0 c0 ff c0 3f |.......?|.......?|
|00000280| 3c fc 3f fc 00 3f c0 3f | 3c fc 3f fc 30 0c c3 3f |<.?..?.?|<.?.0..?|
|00000290| 3c fc 0f ff f0 c0 c3 3f | 3c fc 0f ff f0 f3 c3 3f |<......?|<......?|
|000002a0| 3c fc c3 ff f0 ff c3 3f | 3c fc c3 ff f0 ff c3 3f |<......?|<......?|
|000002b0| 00 fc f0 ff f0 ff c3 3f | c0 ff f0 ff f0 ff c3 5d |.......?|.......]|
|000002c0| ff fe ff ff d6 00 00 00 | 28 00 00 00 20 00 00 00 |........|(... ...|
|000002d0| 20 00 00 00 00 00 00 00 | 00 00 00 00 02 00 00 00 | .......|........|
|000002e0| 00 00 00 00 00 00 00 00 | 01 00 00 00 22 ff fe 0f |........|...."...|
|000002f0| fc 05 ff fe f0 f3 04 ff | fd 0f ff cf 04 ff fd f0 |........|........|
|00000300| 3f 3c 03 ff fc 0f ff c3 | 3f 03 ff fb f3 3f fc f0 |?<......|?....?..|
|00000310| fc 02 ff fb cf c3 0f bf | cc 02 ff fa 3f ff f0 ef |........|....?...|
|00000320| 33 fc 02 ff fb 0c ff be | e2 f3 02 ff fb fc ef ab |3.......|........|
|00000330| f8 f0 02 ff fb f3 be ca | 0f ca 02 ff cc b0 ab fc |........|........|
|00000340| a0 ca ff ff 3f 8f ca 0f | aa ca ff ff cf 8f fc a0 |....?...|........|
|00000350| aa f0 ff ff 0f af 0f aa | 0a c0 ff ff 8f f0 a0 aa |........|........|
|00000360| 00 c0 ff ff 8f 0a aa 0a | 00 fc ff ff 8f aa aa 00 |........|........|
|00000370| c0 02 ff fb 0f a8 0a 00 | fc 02 ff fc 0f 80 00 c0 |........|........|
|00000380| 03 ff fc 0f 00 00 fc 04 | ff fe 00 c0 05 ff fe 0f |........|........|
|00000390| fc 05 ff ff 3f 22 ff fe | ff ff 7e 00 00 00 28 00 |....?"..|..~...(.|
|000003a0| 00 00 18 00 00 00 18 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 02 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000003c0| 00 00 19 ff fe 03 f0 04 | ff fd 3f 00 00 04 ff fc |........|..?.....|
|000003d0| 0f f0 03 fc 03 ff fc 0f | fc 0f fc 03 ff fc 03 fc |........|........|
|000003e0| 0f fc 05 ff fe 0f fc 05 | ff fe 03 fc 05 ff ff 03 |........|........|
|000003f0| 05 ff fe 3f c0 05 ff fe | 3f f0 05 ff fe 0f fc 05 |...?....|?.......|
|00000400| ff fe 0f fc 05 ff fe 0f | fc 15 ff fe 0f fc 05 ff |........|........|
|00000410| fe 0f fc 21 ff fe ff ff | 04 00 00 00 14 00 00 00 |...!....|........|
|00000420| e7 00 00 00 67 01 00 00 | 3d 02 00 00 37 00 00 10 |....g...|=...7...|
|00000430| 6d 00 00 10 85 00 00 10 | f4 63 08 55 c1 3d 00 00 |m.......|.c.U.=..|
|00000440| 5c 00 00 10 63 00 00 10 | 00 00 00 00 64 00 00 10 |\...c...|....d...|
|00000450| d5 f3 49 4e 43 4c 55 44 | 45 20 22 43 4f 4e 53 54 |..INCLUD|E "CONST|
|00000460| 2e 4f 50 48 22 06 49 4e | 43 4c 55 44 45 20 22 50 |.OPH".IN|CLUDE "P|
|00000470| 52 49 4e 54 45 52 2e 4f | 58 48 22 06 49 4e 43 4c |RINTER.O|XH".INCL|
|00000480| 55 44 45 20 22 53 59 53 | 54 45 4d 2e 4f 58 48 22 |UDE "SYS|TEM.OXH"|
|00000490| 06 49 4e 43 4c 55 44 45 | 20 22 54 4f 4f 4c 42 41 |.INCLUDE| "TOOLBA|
|000004a0| 52 2e 4f 50 48 22 06 49 | 4e 43 4c 55 44 45 20 22 |R.OPH".I|NCLUDE "|
|000004b0| 44 41 54 45 2e 4f 58 48 | 22 06 06 41 50 50 20 47 |DATE.OXH|"..APP G|
|000004c0| 65 6e 65 72 69 63 2c 34 | 32 34 33 34 35 06 45 4e |eneric,4|24345.EN|
|000004d0| 44 41 06 06 43 4f 4e 53 | 54 20 4e 6f 6d 41 70 70 |DA..CONS|T NomApp|
|000004e0| 6c 69 24 3d 22 47 65 6e | 65 72 69 63 22 06 43 4f |li$="Gen|eric".CO|
|000004f0| 4e 53 54 20 73 68 6f 72 | 74 70 61 74 68 24 3d 22 |NST shor|tpath$="|
|00000500| 5c 53 79 73 74 65 6d 5c | 41 70 70 73 5c 47 65 6e |\System\|Apps\Gen|
|00000510| 65 72 69 63 5c 22 06 43 | 4f 4e 53 54 20 50 69 63 |eric\".C|ONST Pic|
|00000520| 74 46 69 6c 65 24 3d 22 | 47 65 6e 65 72 69 63 2e |tFile$="|Generic.|
|00000530| 6d 62 6d 22 06 43 4f 4e | 53 54 20 49 6e 69 46 69 |mbm".CON|ST IniFi|
|00000540| 6c 65 24 3d 22 47 65 6e | 65 72 69 63 2e 69 6e 69 |le$="Gen|eric.ini|
|00000550| 22 06 43 4f 4e 53 54 20 | 47 65 6e 65 72 69 63 5f |".CONST |Generic_|
|00000560| 55 49 44 26 3d 34 32 34 | 33 34 35 06 06 43 4f 4e |UID&=424|345..CON|
|00000570| 53 54 20 50 6f 69 6e 74 | 65 72 5f 55 73 65 64 26 |ST Point|er_Used&|
|00000580| 3d 26 34 30 38 06 43 4f | 4e 53 54 20 50 6f 69 6e |=&408.CO|NST Poin|
|00000590| 74 65 72 5f 45 6e 74 65 | 72 26 3d 26 34 30 39 06 |ter_Ente|r&=&409.|
|000005a0| 43 4f 4e 53 54 20 50 6f | 69 6e 74 65 72 5f 45 78 |CONST Po|inter_Ex|
|000005b0| 69 74 26 3d 26 34 30 41 | 06 06 52 45 4d 10 50 6f |it&=&40A|..REM.Po|
|000005c0| 75 72 20 45 52 52 06 43 | 4f 4e 53 54 20 6e 6f 45 |ur ERR.C|ONST noE|
|000005d0| 72 72 25 3d 30 06 06 52 | 45 4d 20 66 6f 72 20 67 |rr%=0..R|EM for g|
|000005e0| 54 65 73 74 25 06 43 4f | 4e 53 54 20 4b 67 54 65 |Test%.CO|NST KgTe|
|000005f0| 73 74 5f 53 68 6f 72 74 | 25 20 3d 20 31 06 43 4f |st_Short|% = 1.CO|
|00000600| 4e 53 54 20 4b 67 54 65 | 73 74 5f 4d 65 64 69 75 |NST KgTe|st_Mediu|
|00000610| 6d 25 20 3d 20 32 06 43 | 4f 4e 53 54 20 4b 67 54 |m% = 2.C|ONST KgT|
|00000620| 65 73 74 5f 4c 6f 6e 67 | 25 20 3d 20 33 06 06 52 |est_Long|% = 3..R|
|00000630| 45 4d 20 4d 61 78 69 6d | 75 6d 20 4c 65 6e 67 74 |EM Maxim|um Lengt|
|00000640| 68 20 66 6f 72 20 61 20 | 66 69 6c 65 6e 61 6d 65 |h for a |filename|
|00000650| 20 28 43 74 72 6c 2d 66 | 29 06 43 4f 4e 53 54 20 | (Ctrl-f|).CONST |
|00000660| 4d 41 58 5f 46 49 4c 45 | 4e 41 4d 45 25 20 3d 20 |MAX_FILE|NAME% = |
|00000670| 32 30 06 43 4f 4e 53 54 | 20 4d 41 58 5f 53 54 52 |20.CONST| MAX_STR|
|00000680| 49 4e 47 5f 46 49 4c 45 | 4e 41 4d 45 25 20 3d 20 |ING_FILE|NAME% = |
|00000690| 32 32 20 52 45 4d 20 32 | 20 6d 6f 72 65 20 74 68 |22 REM 2| more th|
|000006a0| 61 6e 20 4d 41 58 5f 46 | 49 4c 45 4e 41 4d 45 25 |an MAX_F|ILENAME%|
|000006b0| 06 06 52 45 4d 20 46 69 | 72 73 74 20 70 72 6f 63 |..REM Fi|rst proc|
|000006c0| 65 64 75 72 65 20 63 61 | 6c 6c 65 64 06 50 52 4f |edure ca|lled.PRO|
|000006d0| 43 20 41 70 70 5f 53 74 | 61 72 74 3a 06 09 4c 4f |C App_St|art:..LO|
|000006e0| 41 44 4d 20 22 5a 3a 5c | 53 59 53 54 45 4d 5c 4f |ADM "Z:\|SYSTEM\O|
|000006f0| 50 4c 5c 54 4f 4f 4c 42 | 41 52 2e 4f 50 4f 22 06 |PL\TOOLB|AR.OPO".|
|00000700| 09 54 42 61 72 4c 69 6e | 6b 3a 28 22 41 70 70 5f |.TBarLin|k:("App_|
|00000710| 4d 61 69 6e 22 29 06 45 | 4e 44 50 06 06 06 50 52 |Main").E|NDP...PR|
|00000720| 4f 43 20 41 70 70 5f 4d | 61 69 6e 3a 06 09 06 09 |OC App_M|ain:....|
|00000730| 52 45 4d 20 52 75 6e 2f | 51 75 69 74 20 61 70 70 |REM Run/|Quit app|
|00000740| 6c 69 63 61 74 69 6f 6e | 06 09 47 4c 4f 42 41 4c |lication|..GLOBAL|
|00000750| 20 67 4f 4b 25 06 09 52 | 45 4d 20 49 64 6c 65 20 | gOK%..R|EM Idle |
|00000760| 6d 61 6e 61 67 65 6d 65 | 6e 74 06 09 47 4c 4f 42 |manageme|nt..GLOB|
|00000770| 41 4c 20 67 49 64 6c 65 | 25 06 09 52 45 4d 20 49 |AL gIdle|%..REM I|
|00000780| 6e 66 72 61 52 65 64 20 | 6d 61 6e 61 67 65 6d 65 |nfraRed |manageme|
|00000790| 6e 74 06 09 47 4c 4f 42 | 41 4c 20 67 49 52 5f 66 |nt..GLOB|AL gIR_f|
|000007a0| 6c 61 67 53 65 6e 64 25 | 2c 20 67 49 52 5f 66 6c |lagSend%|, gIR_fl|
|000007b0| 61 67 52 65 63 65 69 76 | 65 25 06 09 52 45 4d 20 |agReceiv|e%..REM |
|000007c0| 43 75 74 2f 43 6f 70 79 | 2f 50 61 73 74 65 20 6d |Cut/Copy|/Paste m|
|000007d0| 61 6e 61 67 65 6d 65 6e | 74 06 09 47 4c 4f 42 41 |anagemen|t..GLOBA|
|000007e0| 4c 20 67 43 43 50 5f 66 | 6c 61 67 43 75 74 25 2c |L gCCP_f|lagCut%,|
|000007f0| 20 67 43 43 50 5f 66 6c | 61 67 43 6f 70 79 25 2c | gCCP_fl|agCopy%,|
|00000800| 20 67 43 43 50 5f 66 6c | 61 67 50 61 73 74 65 25 | gCCP_fl|agPaste%|
|00000810| 06 09 52 45 4d 20 4d 65 | 6e 75 20 6d 61 6e 61 67 |..REM Me|nu manag|
|00000820| 65 6d 65 6e 74 06 09 47 | 4c 4f 42 41 4c 20 67 4d |ement..G|LOBAL gM|
|00000830| 69 6e 69 74 25 2c 20 67 | 4d 44 54 24 28 35 32 2c |init%, g|MDT$(52,|
|00000840| 32 30 29 06 06 09 52 45 | 4d 20 54 61 73 6b 20 22 |20)...RE|M Task "|
|00000850| 44 61 74 61 22 20 66 6f | 72 20 48 65 6c 70 06 09 |Data" fo|r Help..|
|00000860| 47 4c 4f 42 41 4c 20 67 | 54 68 72 65 61 64 26 06 |GLOBAL g|Thread&.|
|00000870| 09 06 09 52 45 4d 20 46 | 69 6c 65 73 20 70 61 74 |...REM F|iles pat|
|00000880| 68 73 06 09 47 4c 4f 42 | 41 4c 20 67 44 65 76 24 |hs..GLOB|AL gDev$|
|00000890| 28 32 29 09 06 06 09 52 | 45 4d 20 43 75 72 72 65 |(2)....R|EM Curre|
|000008a0| 6e 74 20 6d 6f 64 65 06 | 09 47 4c 4f 42 41 4c 20 |nt mode.|.GLOBAL |
|000008b0| 67 4d 6f 64 65 31 25 2c | 20 67 4d 6f 64 65 32 25 |gMode1%,| gMode2%|
|000008c0| 06 06 09 52 45 4d 20 57 | 69 6e 64 6f 77 20 64 61 |...REM W|indow da|
|000008d0| 74 61 20 61 6e 64 20 7a | 6f 6f 6d 06 09 47 4c 4f |ta and z|oom..GLO|
|000008e0| 42 41 4c 20 67 53 63 72 | 57 69 64 25 2c 67 53 63 |BAL gScr|Wid%,gSc|
|000008f0| 72 48 67 68 74 25 06 09 | 47 4c 4f 42 41 4c 20 67 |rHght%..|GLOBAL g|
|00000900| 4d 61 69 6e 73 63 6e 25 | 06 09 47 4c 4f 42 41 4c |Mainscn%|..GLOBAL|
|00000910| 20 67 5a 6f 6f 6d 25 2c | 67 46 6f 6e 74 26 2c 67 | gZoom%,|gFont&,g|
|00000920| 54 46 6f 6e 74 25 06 09 | 06 09 52 45 4d 20 54 6f |TFont%..|..REM To|
|00000930| 6f 6c 42 61 72 06 09 47 | 4c 4f 42 41 4c 20 67 54 |olBar..G|LOBAL gT|
|00000940| 6f 6f 6c 62 61 72 25 2c | 20 67 53 63 72 65 65 6e |oolbar%,| gScreen|
|00000950| 57 69 64 74 68 25 06 09 | 47 4c 4f 42 41 4c 20 67 |Width%..|GLOBAL g|
|00000960| 5f 54 62 50 69 63 74 31 | 26 2c 67 5f 54 62 50 69 |_TbPict1|&,g_TbPi|
|00000970| 63 74 32 26 2c 67 5f 54 | 62 50 69 63 74 33 26 2c |ct2&,g_T|bPict3&,|
|00000980| 67 5f 54 62 50 69 63 74 | 34 26 06 06 09 47 4c 4f |g_TbPict|4&...GLO|
|00000990| 42 41 4c 20 67 50 61 74 | 68 24 28 32 35 35 29 06 |BAL gPat|h$(255).|
|000009a0| 09 47 4c 4f 42 41 4c 20 | 67 43 6f 6e 74 72 6f 6c |.GLOBAL |gControl|
|000009b0| 25 2c 67 53 68 69 66 74 | 25 06 09 09 09 09 06 09 |%,gShift|%.......|
|000009c0| 41 70 70 5f 49 6e 69 74 | 3a 06 09 67 4f 4b 25 3d |App_Init|:..gOK%=|
|000009d0| 4b 54 72 75 65 25 06 09 | 41 70 70 5f 45 76 6e 74 |KTrue%..|App_Evnt|
|000009e0| 3a 28 43 4d 44 24 28 33 | 29 2c 43 4d 44 24 28 32 |:(CMD$(3|),CMD$(2|
|000009f0| 29 29 06 06 09 57 48 49 | 4c 45 20 67 4f 4b 25 06 |))...WHI|LE gOK%.|
|00000a00| 09 09 41 70 70 5f 52 75 | 6e 3a 06 09 45 4e 44 57 |..App_Ru|n:..ENDW|
|00000a10| 48 06 09 41 70 70 5f 45 | 6e 64 3a 06 45 4e 44 50 |H..App_E|nd:.ENDP|
|00000a20| 06 06 50 52 4f 43 20 41 | 70 70 5f 52 75 6e 3a 06 |..PROC A|pp_Run:.|
|00000a30| 09 4c 4f 43 41 4c 20 74 | 26 06 09 47 4c 4f 42 41 |.LOCAL t|&..GLOBA|
|00000a40| 4c 20 67 41 26 28 32 30 | 29 06 06 09 52 45 4d 20 |L gA&(20|)...REM |
|00000a50| 69 64 6c 65 20 6d 61 6e | 61 67 65 6d 65 6e 74 06 |idle man|agement.|
|00000a60| 09 49 46 20 67 49 64 6c | 65 25 06 09 09 49 64 6c |.IF gIdl|e%...Idl|
|00000a70| 65 5f 44 6f 3a 06 09 09 | 49 46 20 4e 4f 54 20 54 |e_Do:...|IF NOT T|
|00000a80| 45 53 54 45 56 45 4e 54 | 20 3a 52 45 54 55 52 4e |ESTEVENT| :RETURN|
|00000a90| 20 20 3a 45 4e 44 49 46 | 06 09 45 4e 44 49 46 06 |  :ENDIF|..ENDIF.|
|00000aa0| 06 06 09 52 45 4d 20 77 | 61 69 74 20 66 6f 72 20 |...REM w|ait for |
|00000ab0| 74 68 65 20 6e 65 78 74 | 20 65 76 65 6e 74 06 09 |the next| event..|
|00000ac0| 47 45 54 45 56 45 4e 54 | 33 32 20 67 41 26 28 29 |GETEVENT|32 gA&()|
|00000ad0| 06 09 74 26 3d 67 41 26 | 28 31 29 06 09 49 46 20 |..t&=gA&|(1)..IF |
|00000ae0| 74 26 20 3e 3d 20 4b 4b | 65 79 53 69 64 65 62 61 |t& >= KK|eySideba|
|00000af0| 72 4d 65 6e 75 25 06 09 | 09 45 76 65 6e 74 5f 53 |rMenu%..|.Event_S|
|00000b00| 62 61 72 3a 28 74 26 20 | 2d 20 4b 4b 65 79 53 69 |bar:(t& |- KKeySi|
|00000b10| 64 65 62 61 72 4d 65 6e | 75 25 29 06 09 45 4c 53 |debarMen|u%)..ELS|
|00000b20| 45 49 46 20 28 74 26 20 | 41 4e 44 20 26 34 30 30 |EIF (t& |AND &400|
|00000b30| 29 20 3d 30 06 20 09 20 | 20 45 76 65 6e 74 5f 4b |) =0. . | Event_K|
|00000b40| 65 79 3a 06 09 45 4c 53 | 45 06 09 09 45 76 65 6e |ey:..ELS|E...Even|
|00000b50| 74 5f 53 79 73 74 3a 28 | 74 26 29 06 09 45 4e 44 |t_Syst:(|t&)..END|
|00000b60| 49 46 06 45 4e 44 50 06 | 06 52 45 4d 20 73 79 73 |IF.ENDP.|.REM sys|
|00000b70| 74 65 6d 20 65 76 65 6e | 74 73 20 6d 61 6e 61 67 |tem even|ts manag|
|00000b80| 65 6d 65 6e 74 06 50 52 | 4f 43 20 41 70 70 5f 45 |ement.PR|OC App_E|
|00000b90| 76 6e 74 3a 28 74 24 2c | 77 24 29 06 09 49 46 20 |vnt:(t$,|w$)..IF |
|00000ba0| 74 24 3d 4b 43 6d 64 4c | 65 74 74 65 72 4f 70 65 |t$=KCmdL|etterOpe|
|00000bb0| 6e 24 06 09 09 46 69 6c | 65 5f 53 65 74 3a 28 77 |n$...Fil|e_Set:(w|
|00000bc0| 24 29 06 09 45 4c 53 45 | 49 46 20 74 24 3d 4b 43 |$)..ELSE|IF t$=KC|
|00000bd0| 6d 64 4c 65 74 74 65 72 | 52 75 6e 24 06 09 09 46 |mdLetter|Run$...F|
|00000be0| 69 6c 65 5f 52 65 73 75 | 6d 65 3a 20 06 09 45 4c |ile_Resu|me: ..EL|
|00000bf0| 53 45 49 46 20 74 24 3d | 4b 43 6d 64 4c 65 74 74 |SEIF t$=|KCmdLett|
|00000c00| 65 72 43 72 65 61 74 65 | 24 06 09 09 46 69 6c 65 |erCreate|$...File|
|00000c10| 5f 43 72 65 61 74 65 3a | 20 06 09 45 4c 53 45 49 |_Create:| ..ELSEI|
|00000c20| 46 20 74 24 3d 22 58 22 | 06 09 09 41 70 70 5f 51 |F t$="X"|...App_Q|
|00000c30| 75 69 74 3a 06 09 45 4e | 44 49 46 06 45 4e 44 50 |uit:..EN|DIF.ENDP|
|00000c40| 06 06 52 45 4d 20 51 75 | 69 74 20 74 68 65 20 61 |..REM Qu|it the a|
|00000c50| 70 70 6c 69 63 61 74 69 | 6f 6e 06 50 52 4f 43 20 |pplicati|on.PROC |
|00000c60| 41 70 70 5f 51 75 69 74 | 3a 06 09 52 45 4d 20 65 |App_Quit|:..REM e|
|00000c70| 78 69 74 20 6f 66 20 74 | 68 65 20 6e 65 76 65 72 |xit of t|he never|
|00000c80| 20 65 6e 64 20 6c 6f 6f | 70 06 09 52 45 4d 20 41 | end loo|p..REM A|
|00000c90| 70 70 5f 45 6e 64 20 69 | 73 20 74 68 65 6e 20 63 |pp_End i|s then c|
|00000ca0| 61 6c 6c 65 64 20 62 79 | 20 41 70 70 5f 4d 61 69 |alled by| App_Mai|
|00000cb0| 6e 06 09 67 4f 4b 25 3d | 4b 46 61 6c 73 65 25 06 |n..gOK%=|KFalse%.|
|00000cc0| 45 4e 44 50 06 06 52 45 | 4d 20 42 65 67 69 6e 69 |ENDP..RE|M Begini|
|00000cd0| 6e 67 20 6f 66 20 74 68 | 65 20 70 72 6f 67 72 61 |ng of th|e progra|
|00000ce0| 6d 06 50 52 4f 43 20 41 | 70 70 5f 49 6e 69 74 3a |m.PROC A|pp_Init:|
|00000cf0| 06 09 67 44 65 76 24 3d | 4c 45 46 54 24 28 43 4d |..gDev$=|LEFT$(CM|
|00000d00| 44 24 28 31 29 2c 32 29 | 06 09 67 53 63 72 57 69 |D$(1),2)|..gScrWi|
|00000d10| 64 25 3d 67 57 69 64 74 | 68 20 3a 67 53 63 72 48 |d%=gWidt|h :gScrH|
|00000d20| 67 68 74 25 3d 67 48 65 | 69 67 68 74 06 09 67 50 |ght%=gHe|ight..gP|
|00000d30| 61 74 68 24 3d 67 44 65 | 76 24 2b 73 68 6f 72 74 |ath$=gDe|v$+short|
|00000d40| 70 61 74 68 24 06 09 54 | 52 41 50 20 4d 4b 44 49 |path$..T|RAP MKDI|
|00000d50| 52 20 67 50 61 74 68 24 | 06 09 49 6e 69 46 69 6c |R gPath$|..IniFil|
|00000d60| 65 5f 4c 6f 61 64 3a 06 | 09 4d 65 6e 75 5f 49 6e |e_Load:.|.Menu_In|
|00000d70| 69 74 3a 06 09 5a 6f 6f | 6d 5f 53 65 74 3a 28 67 |it:..Zoo|m_Set:(g|
|00000d80| 5a 6f 6f 6d 25 29 06 09 | 54 6f 6f 6c 62 61 72 5f |Zoom%)..|Toolbar_|
|00000d90| 49 6e 69 74 3a 06 45 4e | 44 50 06 06 52 45 4d 20 |Init:.EN|DP..REM |
|00000da0| 45 6e 64 20 6f 66 20 74 | 68 65 20 70 72 6f 67 72 |End of t|he progr|
|00000db0| 61 6d 06 50 52 4f 43 20 | 41 70 70 5f 45 6e 64 3a |am.PROC |App_End:|
|00000dc0| 06 09 49 6e 69 46 69 6c | 65 5f 53 61 76 65 3a 09 |..IniFil|e_Save:.|
|00000dd0| 09 52 45 4d 20 73 61 76 | 65 20 70 72 65 66 65 72 |.REM sav|e prefer|
|00000de0| 65 6e 63 65 73 06 09 48 | 65 6c 70 5f 45 6e 64 3a |ences..H|elp_End:|
|00000df0| 06 09 44 72 61 77 5f 43 | 6c 6f 73 65 3a 06 09 53 |..Draw_C|lose:..S|
|00000e00| 54 4f 50 06 45 4e 44 50 | 06 06 52 45 4d 20 45 76 |TOP.ENDP|..REM Ev|
|00000e10| 65 6e 74 20 4d 61 6e 61 | 67 65 6d 65 6e 74 06 52 |ent Mana|gement.R|
|00000e20| 45 4d 20 2d 2b 2d 2b 2d | 2b 2d 2b 2d 2b 2d 2b 2d |EM -+-+-|+-+-+-+-|
|00000e30| 2b 2d 2b 06 06 52 45 4d | 20 53 6c 69 64 65 62 61 |+-+..REM| Slideba|
|00000e40| 72 20 74 61 70 06 50 52 | 4f 43 20 45 76 65 6e 74 |r tap.PR|OC Event|
|00000e50| 5f 53 62 61 72 3a 28 74 | 26 29 06 09 4c 4f 43 41 |_Sbar:(t|&)..LOCA|
|00000e60| 4c 20 6b 26 06 06 09 49 | 46 20 74 26 20 3d 20 30 |L k&...I|F t& = 0|
|00000e70| 06 09 09 4d 65 6e 75 5f | 44 69 73 70 26 3a 06 20 |...Menu_|Disp&:. |
|00000e80| 20 45 4c 53 45 49 46 20 | 74 26 20 3d 20 31 06 20 | ELSEIF |t& = 1. |
|00000e90| 20 09 09 43 43 50 5f 50 | 6f 70 75 70 3a 06 09 45 | ..CCP_P|opup:..E|
|00000ea0| 4c 53 45 49 46 20 74 26 | 20 3d 20 32 06 09 09 49 |LSEIF t&| = 2...I|
|00000eb0| 52 5f 50 6f 70 75 70 3a | 06 09 45 4c 53 45 49 46 |R_Popup:|..ELSEIF|
|00000ec0| 20 74 26 20 3d 20 33 06 | 09 09 5a 6f 6f 6d 5f 49 | t& = 3.|..Zoom_I|
|00000ed0| 6e 3a 06 09 45 4c 53 45 | 49 46 20 74 26 20 3d 20 |n:..ELSE|IF t& = |
|00000ee0| 34 06 09 09 5a 6f 6f 6d | 5f 4f 75 74 3a 06 09 45 |4...Zoom|_Out:..E|
|00000ef0| 4e 44 49 46 06 45 4e 44 | 50 06 06 52 45 4d 20 4b |NDIF.END|P..REM K|
|00000f00| 65 79 20 70 72 65 73 73 | 20 65 76 65 6e 74 06 50 |ey press| event.P|
|00000f10| 52 4f 43 20 45 76 65 6e | 74 5f 4b 65 79 3a 06 09 |ROC Even|t_Key:..|
|00000f20| 4c 4f 43 41 4c 20 6b 26 | 2c 4d 6f 64 25 06 06 09 |LOCAL k&|,Mod%...|
|00000f30| 52 45 4d 20 6b 65 79 20 | 63 6f 64 65 06 09 6b 26 |REM key |code..k&|
|00000f40| 3d 67 41 26 28 31 29 06 | 06 09 52 45 4d 20 44 65 |=gA&(1).|..REM De|
|00000f50| 74 65 72 6d 69 6e 65 20 | 73 74 61 74 75 73 20 6f |termine |status o|
|00000f60| 66 20 6d 6f 64 69 66 69 | 65 72 20 6b 65 79 73 06 |f modifi|er keys.|
|00000f70| 09 4d 6f 64 25 3d 67 41 | 26 28 34 29 20 41 4e 44 |.Mod%=gA|&(4) AND|
|00000f80| 20 32 35 35 06 09 49 46 | 20 4d 6f 64 25 20 41 4e | 255..IF| Mod% AN|
|00000f90| 44 20 32 20 3a 20 67 53 | 68 69 66 74 25 3d 4b 54 |D 2 : gS|hift%=KT|
|00000fa0| 72 75 65 25 20 20 20 3a | 20 45 4c 53 45 20 3a 20 |rue%   :| ELSE : |
|00000fb0| 67 53 68 69 66 74 25 3d | 4b 46 61 6c 73 65 25 20 |gShift%=|KFalse% |
|00000fc0| 20 20 3a 20 45 4e 44 49 | 46 06 09 49 46 20 4d 6f |  : ENDI|F..IF Mo|
|00000fd0| 64 25 20 41 4e 44 20 34 | 20 3a 20 67 43 6f 6e 74 |d% AND 4| : gCont|
|00000fe0| 72 6f 6c 25 3d 4b 54 72 | 75 65 25 20 3a 20 45 4c |rol%=KTr|ue% : EL|
|00000ff0| 53 45 20 3a 20 67 43 6f | 6e 74 72 6f 6c 25 3d 4b |SE : gCo|ntrol%=K|
|00001000| 46 61 6c 73 65 25 20 3a | 20 45 4e 44 49 46 06 06 |False% :| ENDIF..|
|00001010| 09 52 45 4d 20 4d 65 6e | 75 20 6b 65 79 06 20 20 |.REM Men|u key.  |
|00001020| 49 46 20 6b 26 3d 4b 4b | 65 79 4d 65 6e 75 25 20 |IF k&=KK|eyMenu% |
|00001030| 3a 4d 65 6e 75 5f 44 69 | 73 70 26 3a 20 3a 52 45 |:Menu_Di|sp&: :RE|
|00001040| 54 55 52 4e 20 3a 45 4e | 44 49 46 06 20 20 52 45 |TURN :EN|DIF.  RE|
|00001050| 4d 20 4d 65 6e 75 20 73 | 68 6f 72 74 63 75 74 06 |M Menu s|hortcut.|
|00001060| 09 49 46 20 67 43 6f 6e | 74 72 6f 6c 25 20 41 4e |.IF gCon|trol% AN|
|00001070| 44 20 6b 26 20 3c 3d 20 | 32 36 06 09 09 4d 65 6e |D k& <= |26...Men|
|00001080| 75 5f 4b 65 79 3a 28 6b | 26 29 06 20 20 45 4c 53 |u_Key:(k|&).  ELS|
|00001090| 45 49 46 20 6b 26 3d 4b | 4b 65 79 45 73 63 25 20 |EIF k&=K|KeyEsc% |
|000010a0| 3a 4b 65 79 5f 45 73 63 | 3a 06 20 20 45 4c 53 45 |:Key_Esc|:.  ELSE|
|000010b0| 49 46 20 6b 26 3d 4b 4b | 65 79 53 70 61 63 65 25 |IF k&=KK|eySpace%|
|000010c0| 20 3a 4b 65 79 5f 53 70 | 61 63 65 3a 06 20 20 45 | :Key_Sp|ace:.  E|
|000010d0| 4c 53 45 49 46 20 6b 26 | 3d 4b 4b 65 79 44 65 6c |LSEIF k&|=KKeyDel|
|000010e0| 25 20 3a 4b 65 79 5f 44 | 65 6c 3a 06 20 20 45 4c |% :Key_D|el:.  EL|
|000010f0| 53 45 49 46 20 6b 26 3d | 4b 4b 65 79 54 61 62 25 |SEIF k&=|KKeyTab%|
|00001100| 20 3a 4b 65 79 5f 54 61 | 62 3a 06 20 20 45 4c 53 | :Key_Ta|b:.  ELS|
|00001110| 45 49 46 20 6b 26 3d 4b | 4b 65 79 45 6e 74 65 72 |EIF k&=K|KeyEnter|
|00001120| 25 20 3a 4b 65 79 5f 45 | 6e 74 65 72 3a 06 20 20 |% :Key_E|nter:.  |
|00001130| 45 4c 53 45 49 46 20 6b | 26 3d 34 31 30 31 20 3a |ELSEIF k|&=4101 :|
|00001140| 20 43 75 72 73 5f 50 67 | 44 77 6e 3a 06 20 20 45 | Curs_Pg|Dwn:.  E|
|00001150| 4c 53 45 49 46 20 6b 26 | 3d 34 31 30 30 20 3a 20 |LSEIF k&|=4100 : |
|00001160| 43 75 72 73 5f 50 67 55 | 70 3a 06 20 20 45 4c 53 |Curs_PgU|p:.  ELS|
|00001170| 45 49 46 20 6b 26 3d 34 | 30 39 39 20 3a 20 43 75 |EIF k&=4|099 : Cu|
|00001180| 72 73 5f 45 6e 64 3a 06 | 20 20 45 4c 53 45 49 46 |rs_End:.|  ELSEIF|
|00001190| 20 6b 26 3d 34 30 39 38 | 20 3a 20 43 75 72 73 5f | k&=4098| : Curs_|
|000011a0| 48 6f 6d 65 3a 06 20 20 | 45 4c 53 45 49 46 20 6b |Home:.  |ELSEIF k|
|000011b0| 26 3d 34 31 30 36 20 3a | 20 43 75 72 73 5f 44 6f |&=4106 :| Curs_Do|
|000011c0| 77 6e 3a 06 20 20 45 4c | 53 45 49 46 20 6b 26 3d |wn:.  EL|SEIF k&=|
|000011d0| 34 31 30 35 20 3a 20 43 | 75 72 73 5f 55 70 3a 06 |4105 : C|urs_Up:.|
|000011e0| 20 20 45 4c 53 45 49 46 | 20 6b 26 3d 34 31 30 34 |  ELSEIF| k&=4104|
|000011f0| 20 3a 20 43 75 72 73 5f | 52 69 67 68 74 3a 06 20 | : Curs_|Right:. |
|00001200| 20 45 4c 53 45 49 46 20 | 6b 26 3d 34 31 30 33 20 | ELSEIF |k&=4103 |
|00001210| 3a 20 43 75 72 73 5f 4c | 65 66 74 3a 06 09 45 4c |: Curs_L|eft:..EL|
|00001220| 53 45 06 09 09 47 49 50 | 52 49 4e 54 20 22 4b 65 |SE...GIP|RINT "Ke|
|00001230| 79 3a 22 2b 48 45 58 24 | 28 67 41 26 28 31 29 29 |y:"+HEX$|(gA&(1))|
|00001240| 20 3a 50 41 55 53 45 20 | 32 30 06 20 20 45 4e 44 | :PAUSE |20.  END|
|00001250| 49 46 06 45 4e 44 50 06 | 06 52 45 4d 20 53 79 73 |IF.ENDP.|.REM Sys|
|00001260| 74 65 6d 20 65 76 65 6e | 74 06 50 52 4f 43 20 45 |tem even|t.PROC E|
|00001270| 76 65 6e 74 5f 73 79 73 | 74 3a 28 74 26 29 06 09 |vent_sys|t:(t&)..|
|00001280| 4c 4f 43 41 4c 20 63 24 | 28 32 35 35 29 06 06 09 |LOCAL c$|(255)...|
|00001290| 49 46 20 74 26 3d 4b 45 | 76 46 6f 63 75 73 47 61 |IF t&=KE|vFocusGa|
|000012a0| 69 6e 65 64 26 06 09 09 | 45 76 65 6e 74 5f 46 6f |ined&...|Event_Fo|
|000012b0| 72 65 3a 06 20 09 45 4c | 53 45 49 46 20 74 26 3d |re:. .EL|SEIF t&=|
|000012c0| 4b 45 76 46 6f 63 75 73 | 4c 6f 73 74 26 06 20 09 |KEvFocus|Lost&. .|
|000012d0| 09 45 76 65 6e 74 5f 42 | 61 63 6b 3a 06 09 45 4c |.Event_B|ack:..EL|
|000012e0| 53 45 49 46 20 74 26 3d | 4b 45 76 53 77 69 74 63 |SEIF t&=|KEvSwitc|
|000012f0| 68 4f 6e 26 06 20 09 09 | 45 76 65 6e 74 5f 4f 6e |hOn&. ..|Event_On|
|00001300| 3a 06 09 45 4c 53 45 49 | 46 20 74 26 3d 4b 45 76 |:..ELSEI|F t&=KEv|
|00001310| 43 6f 6d 6d 61 6e 64 26 | 06 09 09 63 24 3d 47 45 |Command&|...c$=GE|
|00001320| 54 43 4d 44 24 06 09 09 | 41 70 70 5f 45 76 6e 74 |TCMD$...|App_Evnt|
|00001330| 3a 28 4c 45 46 54 24 28 | 63 24 2c 31 29 2c 4d 49 |:(LEFT$(|c$,1),MI|
|00001340| 44 24 28 63 24 2c 32 2c | 32 35 35 29 29 06 09 45 |D$(c$,2,|255))..E|
|00001350| 4c 53 45 49 46 20 74 26 | 3d 4b 45 76 44 61 74 65 |LSEIF t&|=KEvDate|
|00001360| 43 68 61 6e 67 65 64 26 | 06 09 45 4c 53 45 49 46 |Changed&|..ELSEIF|
|00001370| 20 74 26 3d 4b 45 76 4b | 65 79 44 6f 77 6e 26 06 | t&=KEvK|eyDown&.|
|00001380| 09 45 4c 53 45 49 46 20 | 74 26 3d 4b 45 76 4b 65 |.ELSEIF |t&=KEvKe|
|00001390| 79 55 70 26 06 09 45 4c | 53 45 49 46 20 74 26 3d |yUp&..EL|SEIF t&=|
|000013a0| 4b 45 76 50 74 72 26 06 | 09 09 54 6f 75 63 68 5f |KEvPtr&.|..Touch_|
|000013b0| 54 61 70 3a 06 09 45 4c | 53 45 49 46 20 74 26 3d |Tap:..EL|SEIF t&=|
|000013c0| 4b 45 76 50 74 72 45 6e | 74 65 72 26 06 09 09 54 |KEvPtrEn|ter&...T|
|000013d0| 6f 75 63 68 5f 45 6e 74 | 65 72 3a 28 67 41 26 28 |ouch_Ent|er:(gA&(|
|000013e0| 33 29 29 06 09 45 4c 53 | 45 49 46 20 74 26 3d 4b |3))..ELS|EIF t&=K|
|000013f0| 45 76 50 74 72 45 78 69 | 74 26 06 09 09 54 6f 75 |EvPtrExi|t&...Tou|
|00001400| 63 68 5f 45 78 69 74 3a | 28 67 41 26 28 33 29 29 |ch_Exit:|(gA&(3))|
|00001410| 06 09 45 4e 44 49 46 06 | 45 4e 44 50 06 06 52 45 |..ENDIF.|ENDP..RE|
|00001420| 4d 20 42 61 63 6b 67 72 | 6f 75 6e 64 2f 66 6f 72 |M Backgr|ound/for|
|00001430| 65 67 72 6f 75 6e 64 20 | 4d 61 6e 61 67 6d 65 6e |eground |Managmen|
|00001440| 74 06 52 45 4d 20 2d 3d | 2d 3d 2d 3d 2d 3d 2d 3d |t.REM -=|-=-=-=-=|
|00001450| 2d 3d 2d 3d 2d 3d 2d 3d | 2d 3d 2d 3d 2d 3d 2d 3d |-=-=-=-=|-=-=-=-=|
|00001460| 2d 3d 2d 3d 2d 06 06 52 | 45 4d 20 41 70 70 6c 69 |-=-=-..R|EM Appli|
|00001470| 63 61 74 69 6f 6e 20 67 | 6f 20 74 6f 20 62 61 63 |cation g|o to bac|
|00001480| 6b 67 72 6f 75 6e 64 06 | 50 52 4f 43 20 45 76 65 |kground.|PROC Eve|
|00001490| 6e 74 5f 42 61 63 6b 3a | 06 09 47 49 50 52 49 4e |nt_Back:|..GIPRIN|
|000014a0| 54 20 22 45 76 65 6e 74 | 5f 42 61 63 6b 22 20 3a |T "Event|_Back" :|
|000014b0| 50 41 55 53 45 20 32 30 | 06 45 4e 44 50 06 06 52 |PAUSE 20|.ENDP..R|
|000014c0| 45 4d 20 41 70 70 6c 69 | 63 61 74 69 6f 6e 20 67 |EM Appli|cation g|
|000014d0| 6f 20 74 6f 20 66 6f 72 | 65 67 72 6f 75 6e 64 06 |o to for|eground.|
|000014e0| 50 52 4f 43 20 45 76 65 | 6e 74 5f 46 6f 72 65 3a |PROC Eve|nt_Fore:|
|000014f0| 06 09 47 49 50 52 49 4e | 54 20 22 45 76 65 6e 74 |..GIPRIN|T "Event|
|00001500| 5f 46 6f 72 65 22 20 3a | 50 41 55 53 45 20 32 30 |_Fore" :|PAUSE 20|
|00001510| 06 45 4e 44 50 06 06 52 | 45 4d 20 53 65 72 69 65 |.ENDP..R|EM Serie|
|00001520| 73 20 35 20 73 77 69 74 | 63 68 20 4f 6e 06 50 52 |s 5 swit|ch On.PR|
|00001530| 4f 43 20 45 76 65 6e 74 | 5f 4f 6e 3a 06 09 47 49 |OC Event|_On:..GI|
|00001540| 50 52 49 4e 54 20 22 45 | 76 65 6e 74 5f 4f 6e 22 |PRINT "E|vent_On"|
|00001550| 20 3a 50 41 55 53 45 20 | 32 30 06 45 4e 44 50 06 | :PAUSE |20.ENDP.|
|00001560| 06 52 45 4d 20 4b 65 79 | 73 20 4d 61 6e 61 67 65 |.REM Key|s Manage|
|00001570| 6d 65 6e 74 06 52 45 4d | 20 2b 2d 2b 2d 2b 2d 2b |ment.REM| +-+-+-+|
|00001580| 2d 2b 2d 2b 2d 2b 2d 2b | 06 06 50 52 4f 43 20 4b |-+-+-+-+|..PROC K|
|00001590| 65 79 5f 45 73 63 3a 06 | 09 47 49 50 52 49 4e 54 |ey_Esc:.|.GIPRINT|
|000015a0| 20 22 4b 65 79 5f 45 73 | 63 22 20 3a 50 41 55 53 | "Key_Es|c" :PAUS|
|000015b0| 45 20 32 30 06 45 4e 44 | 50 06 06 50 52 4f 43 20 |E 20.END|P..PROC |
|000015c0| 4b 65 79 5f 53 70 61 63 | 65 3a 06 09 47 49 50 52 |Key_Spac|e:..GIPR|
|000015d0| 49 4e 54 20 22 4b 65 79 | 5f 53 70 61 63 65 22 20 |INT "Key|_Space" |
|000015e0| 3a 50 41 55 53 45 20 32 | 30 06 45 4e 44 50 06 06 |:PAUSE 2|0.ENDP..|
|000015f0| 50 52 4f 43 20 4b 65 79 | 5f 44 65 6c 3a 06 09 47 |PROC Key|_Del:..G|
|00001600| 49 50 52 49 4e 54 20 22 | 4b 65 79 5f 44 65 6c 22 |IPRINT "|Key_Del"|
|00001610| 20 3a 50 41 55 53 45 20 | 32 30 06 45 4e 44 50 06 | :PAUSE |20.ENDP.|
|00001620| 06 50 52 4f 43 20 4b 65 | 79 5f 54 61 62 3a 06 09 |.PROC Ke|y_Tab:..|
|00001630| 47 49 50 52 49 4e 54 20 | 22 4b 65 79 5f 54 61 62 |GIPRINT |"Key_Tab|
|00001640| 22 20 3a 50 41 55 53 45 | 20 32 30 06 45 4e 44 50 |" :PAUSE| 20.ENDP|
|00001650| 06 06 50 52 4f 43 20 4b | 65 79 5f 45 6e 74 65 72 |..PROC K|ey_Enter|
|00001660| 3a 06 09 47 49 50 52 49 | 4e 54 20 22 4b 65 79 5f |:..GIPRI|NT "Key_|
|00001670| 45 6e 74 65 72 22 20 3a | 50 41 55 53 45 20 32 30 |Enter" :|PAUSE 20|
|00001680| 06 45 4e 44 50 06 06 52 | 45 4d 20 43 75 72 73 6f |.ENDP..R|EM Curso|
|00001690| 72 20 4d 61 6e 61 67 65 | 6d 65 6e 74 06 52 45 4d |r Manage|ment.REM|
|000016a0| 20 2b 2d 2b 2d 2b 2d 2b | 2d 2b 2d 2b 2d 2b 2d 2b | +-+-+-+|-+-+-+-+|
|000016b0| 2d 2b 06 06 50 52 4f 43 | 20 43 75 72 73 5f 50 67 |-+..PROC| Curs_Pg|
|000016c0| 44 77 6e 3a 06 09 47 49 | 50 52 49 4e 54 20 22 43 |Dwn:..GI|PRINT "C|
|000016d0| 75 72 73 5f 50 67 44 77 | 6e 22 20 3a 50 41 55 53 |urs_PgDw|n" :PAUS|
|000016e0| 45 20 32 30 06 45 4e 44 | 50 06 06 50 52 4f 43 20 |E 20.END|P..PROC |
|000016f0| 43 75 72 73 5f 50 67 55 | 70 3a 06 09 47 49 50 52 |Curs_PgU|p:..GIPR|
|00001700| 49 4e 54 20 22 43 75 72 | 73 5f 70 67 55 70 22 20 |INT "Cur|s_pgUp" |
|00001710| 3a 50 41 55 53 45 20 32 | 30 06 45 4e 44 50 06 06 |:PAUSE 2|0.ENDP..|
|00001720| 50 52 4f 43 20 43 75 72 | 73 5f 45 6e 64 3a 06 09 |PROC Cur|s_End:..|
|00001730| 47 49 50 52 49 4e 54 20 | 22 43 75 72 73 5f 45 6e |GIPRINT |"Curs_En|
|00001740| 64 22 20 3a 50 41 55 53 | 45 20 32 30 06 45 4e 44 |d" :PAUS|E 20.END|
|00001750| 50 06 06 50 52 4f 43 20 | 43 75 72 73 5f 48 6f 6d |P..PROC |Curs_Hom|
|00001760| 65 3a 06 09 47 49 50 52 | 49 4e 54 20 22 43 75 72 |e:..GIPR|INT "Cur|
|00001770| 73 5f 48 6f 6d 65 22 20 | 3a 50 41 55 53 45 20 32 |s_Home" |:PAUSE 2|
|00001780| 30 06 45 4e 44 50 06 06 | 50 52 4f 43 20 43 75 72 |0.ENDP..|PROC Cur|
|00001790| 73 5f 44 6f 77 6e 3a 06 | 09 47 49 50 52 49 4e 54 |s_Down:.|.GIPRINT|
|000017a0| 20 22 43 75 72 73 5f 44 | 6f 77 6e 22 20 3a 50 41 | "Curs_D|own" :PA|
|000017b0| 55 53 45 20 32 30 06 45 | 4e 44 50 06 06 50 52 4f |USE 20.E|NDP..PRO|
|000017c0| 43 20 43 75 72 73 5f 55 | 70 3a 06 09 47 49 50 52 |C Curs_U|p:..GIPR|
|000017d0| 49 4e 54 20 22 43 75 72 | 73 5f 55 70 22 20 3a 50 |INT "Cur|s_Up" :P|
|000017e0| 41 55 53 45 20 32 30 06 | 45 4e 44 50 06 06 50 52 |AUSE 20.|ENDP..PR|
|000017f0| 4f 43 20 43 75 72 73 5f | 52 69 67 68 74 3a 06 09 |OC Curs_|Right:..|
|00001800| 47 49 50 52 49 4e 54 20 | 22 43 75 72 73 5f 52 69 |GIPRINT |"Curs_Ri|
|00001810| 67 68 74 22 20 3a 50 41 | 55 53 45 20 32 30 06 45 |ght" :PA|USE 20.E|
|00001820| 4e 44 50 06 06 50 52 4f | 43 20 43 75 72 73 5f 4c |NDP..PRO|C Curs_L|
|00001830| 65 66 74 3a 06 09 47 49 | 50 52 49 4e 54 20 22 43 |eft:..GI|PRINT "C|
|00001840| 75 72 73 5f 4c 65 66 74 | 22 20 3a 50 41 55 53 45 |urs_Left|" :PAUSE|
|00001850| 20 32 30 06 45 4e 44 50 | 06 06 52 45 4d 20 43 75 | 20.ENDP|..REM Cu|
|00001860| 74 2f 43 6f 70 79 2f 50 | 61 73 74 65 20 4d 61 6e |t/Copy/P|aste Man|
|00001870| 61 67 6d 65 6e 74 06 52 | 45 4d 20 2b 2d 2b 2d 2b |agment.R|EM +-+-+|
|00001880| 2d 2b 2d 2b 2d 2b 2d 2b | 2d 2b 2d 2b 2d 2b 2d 2b |-+-+-+-+|-+-+-+-+|
|00001890| 2d 2b 2d 06 06 52 45 4d | 20 43 75 74 2f 43 6f 70 |-+-..REM| Cut/Cop|
|000018a0| 79 2f 50 61 73 74 65 20 | 50 6f 70 75 70 20 4d 65 |y/Paste |Popup Me|
|000018b0| 6e 75 06 50 52 4f 43 20 | 43 43 50 5f 50 6f 70 75 |nu.PROC |CCP_Popu|
|000018c0| 70 3a 06 09 4c 4f 43 41 | 4c 20 6b 25 06 06 09 6b |p:..LOCA|L k%...k|
|000018d0| 25 3d 6d 50 4f 50 55 50 | 28 31 30 2c 34 30 2c 4b |%=mPOPUP|(10,40,K|
|000018e0| 4d 50 6f 70 75 70 50 6f | 73 54 6f 70 4c 65 66 74 |MPopupPo|sTopLeft|
|000018f0| 25 2c 22 43 75 74 22 2c | 25 78 2c 22 43 6f 70 79 |%,"Cut",|%x,"Copy|
|00001900| 22 2c 25 63 2c 22 50 61 | 73 74 65 22 2c 25 76 29 |",%c,"Pa|ste",%v)|
|00001910| 06 09 49 46 20 6b 25 3d | 25 78 06 09 09 43 43 50 |..IF k%=|%x...CCP|
|00001920| 5f 43 75 74 3a 06 09 45 | 4c 53 45 49 46 20 6b 25 |_Cut:..E|LSEIF k%|
|00001930| 3d 25 63 06 09 09 43 43 | 50 5f 43 6f 70 79 3a 06 |=%c...CC|P_Copy:.|
|00001940| 09 45 4c 53 45 49 46 20 | 6b 25 3d 25 76 06 09 09 |.ELSEIF |k%=%v...|
|00001950| 43 43 50 5f 50 61 73 74 | 65 3a 06 09 45 4e 44 49 |CCP_Past|e:..ENDI|
|00001960| 46 06 45 4e 44 50 06 06 | 52 45 4d 20 43 75 74 20 |F.ENDP..|REM Cut |
|00001970| 43 6f 6d 6d 61 6e 64 06 | 50 52 4f 43 20 43 43 50 |Command.|PROC CCP|
|00001980| 5f 43 75 74 3a 06 09 47 | 49 50 52 49 4e 54 20 22 |_Cut:..G|IPRINT "|
|00001990| 43 43 50 5f 43 75 74 22 | 20 3a 50 41 55 53 45 20 |CCP_Cut"| :PAUSE |
|000019a0| 32 30 06 45 4e 44 50 06 | 06 52 45 4d 20 43 6f 70 |20.ENDP.|.REM Cop|
|000019b0| 79 20 43 6f 6d 6d 61 6e | 64 06 50 52 4f 43 20 43 |y Comman|d.PROC C|
|000019c0| 43 50 5f 43 6f 70 79 3a | 06 09 47 49 50 52 49 4e |CP_Copy:|..GIPRIN|
|000019d0| 54 20 22 43 43 50 5f 43 | 6f 70 79 22 20 3a 50 41 |T "CCP_C|opy" :PA|
|000019e0| 55 53 45 20 32 30 06 45 | 4e 44 50 06 06 52 45 4d |USE 20.E|NDP..REM|
|000019f0| 20 50 61 73 74 65 20 43 | 6f 6d 6d 61 6e 64 06 50 | Paste C|ommand.P|
|00001a00| 52 4f 43 20 43 43 50 5f | 50 61 73 74 65 3a 06 09 |ROC CCP_|Paste:..|
|00001a10| 47 49 50 52 49 4e 54 20 | 22 43 50 50 5f 50 61 73 |GIPRINT |"CPP_Pas|
|00001a20| 74 65 22 20 3a 50 41 55 | 53 45 20 32 30 06 45 4e |te" :PAU|SE 20.EN|
|00001a30| 44 50 06 06 52 45 4d 20 | 49 6e 66 72 61 52 65 64 |DP..REM |InfraRed|
|00001a40| 20 4d 61 6e 61 67 65 6d | 65 6e 74 06 52 45 4d 20 | Managem|ent.REM |
|00001a50| 2b 2d 2b 2d 2b 2d 2b 2d | 2b 2d 2b 2d 2b 2d 2b 2d |+-+-+-+-|+-+-+-+-|
|00001a60| 2b 2d 2b 06 06 52 45 4d | 20 49 6e 66 72 61 72 65 |+-+..REM| Infrare|
|00001a70| 64 20 50 6f 70 75 70 20 | 4d 65 6e 75 06 50 52 4f |d Popup |Menu.PRO|
|00001a80| 43 20 49 52 5f 50 6f 70 | 75 70 3a 06 09 4c 4f 43 |C IR_Pop|up:..LOC|
|00001a90| 41 4c 20 6b 25 06 06 09 | 6b 25 3d 6d 50 4f 50 55 |AL k%...|k%=mPOPU|
|00001aa0| 50 28 31 30 2c 39 35 2c | 4b 4d 50 6f 70 75 70 50 |P(10,95,|KMPopupP|
|00001ab0| 6f 73 54 6f 70 4c 65 66 | 74 25 2c 22 49 6e 66 72 |osTopLef|t%,"Infr|
|00001ac0| 61 72 65 64 20 73 65 6e | 64 22 2c 33 2c 22 49 6e |ared sen|d",3,"In|
|00001ad0| 66 72 61 72 65 64 20 72 | 65 63 65 69 76 65 22 2c |frared r|eceive",|
|00001ae0| 34 20 4f 52 20 4b 4d 65 | 6e 75 44 69 6d 6d 65 64 |4 OR KMe|nuDimmed|
|00001af0| 25 29 06 09 49 46 20 6b | 25 3d 33 06 09 09 49 52 |%)..IF k|%=3...IR|
|00001b00| 5f 53 65 6e 64 3a 06 09 | 45 4c 53 45 49 46 20 6b |_Send:..|ELSEIF k|
|00001b10| 25 3d 34 06 09 09 49 52 | 5f 52 65 63 65 69 76 65 |%=4...IR|_Receive|
|00001b20| 3a 06 09 45 4e 44 49 46 | 06 45 4e 44 50 06 06 52 |:..ENDIF|.ENDP..R|
|00001b30| 45 4d 20 49 6e 66 72 61 | 72 65 64 20 73 65 6e 64 |EM Infra|red send|
|00001b40| 20 43 6f 6d 6d 61 6e 64 | 06 50 52 4f 43 20 49 52 | Command|.PROC IR|
|00001b50| 5f 53 65 6e 64 3a 06 09 | 47 49 50 52 49 4e 54 20 |_Send:..|GIPRINT |
|00001b60| 22 49 52 5f 53 65 6e 64 | 22 20 3a 50 41 55 53 45 |"IR_Send|" :PAUSE|
|00001b70| 20 32 30 06 45 4e 44 50 | 06 06 52 45 4d 20 49 6e | 20.ENDP|..REM In|
|00001b80| 66 72 61 72 65 64 20 72 | 65 63 65 69 76 65 20 43 |frared r|eceive C|
|00001b90| 6f 6d 6d 61 6e 64 06 50 | 52 4f 43 20 49 52 5f 52 |ommand.P|ROC IR_R|
|00001ba0| 65 63 65 69 76 65 3a 06 | 09 47 49 50 52 49 4e 54 |eceive:.|.GIPRINT|
|00001bb0| 20 22 49 52 5f 52 65 63 | 65 69 76 65 22 20 3a 50 | "IR_Rec|eive" :P|
|00001bc0| 41 55 53 45 20 32 30 06 | 45 4e 44 50 06 06 52 45 |AUSE 20.|ENDP..RE|
|00001bd0| 4d 20 4d 65 6e 75 20 4d | 61 6e 61 67 6d 65 6e 74 |M Menu M|anagment|
|00001be0| 06 52 45 4d 20 2d 3d 2d | 3d 2d 3d 2d 3d 2d 3d 2d |.REM -=-|=-=-=-=-|
|00001bf0| 3d 2d 3d 06 06 52 45 4d | 20 69 6e 69 74 69 61 6c |=-=..REM| initial|
|00001c00| 69 73 65 20 74 68 65 20 | 6d 65 6e 75 20 64 69 73 |ise the |menu dis|
|00001c10| 70 61 74 63 68 20 74 61 | 62 6c 65 06 50 52 4f 43 |patch ta|ble.PROC|
|00001c20| 20 4d 65 6e 75 5f 49 6e | 69 74 3a 06 09 67 4d 44 | Menu_In|it:..gMD|
|00001c30| 54 24 28 31 29 3d 22 48 | 65 6c 70 5f 41 62 6f 75 |T$(1)="H|elp_Abou|
|00001c40| 74 22 20 52 45 4d 20 43 | 74 72 6c 2b 41 06 09 67 |t" REM C|trl+A..g|
|00001c50| 4d 44 54 24 28 32 29 3d | 22 22 20 52 45 4d 20 43 |MDT$(2)=|"" REM C|
|00001c60| 74 72 6c 2b 42 06 09 67 | 4d 44 54 24 28 33 29 3d |trl+B..g|MDT$(3)=|
|00001c70| 22 43 43 50 5f 43 6f 70 | 79 22 20 52 45 4d 20 43 |"CCP_Cop|y" REM C|
|00001c80| 74 72 6c 2b 43 06 09 67 | 4d 44 54 24 28 34 29 3d |trl+C..g|MDT$(4)=|
|00001c90| 22 4d 6f 64 65 5f 53 65 | 74 32 22 20 52 45 4d 20 |"Mode_Se|t2" REM |
|00001ca0| 43 74 72 6c 2b 44 06 09 | 67 4d 44 54 24 28 35 29 |Ctrl+D..|gMDT$(5)|
|00001cb0| 3d 22 41 70 70 5f 51 75 | 69 74 22 20 52 45 4d 20 |="App_Qu|it" REM |
|00001cc0| 43 74 72 6c 2b 45 06 09 | 67 4d 44 54 24 28 36 29 |Ctrl+E..|gMDT$(6)|
|00001cd0| 3d 22 22 20 52 45 4d 20 | 43 74 72 6c 2b 46 06 09 |="" REM |Ctrl+F..|
|00001ce0| 67 4d 44 54 24 28 37 29 | 3d 22 22 20 52 45 4d 20 |gMDT$(7)|="" REM |
|00001cf0| 43 74 72 6c 2b 47 06 09 | 67 4d 44 54 24 28 38 29 |Ctrl+G..|gMDT$(8)|
|00001d00| 3d 22 4d 6f 64 65 5f 53 | 65 74 31 22 20 52 45 4d |="Mode_S|et1" REM|
|00001d10| 20 43 74 72 6c 2b 48 06 | 09 67 4d 44 54 24 28 39 | Ctrl+H.|.gMDT$(9|
|00001d20| 29 3d 22 49 52 5f 53 65 | 6e 64 22 20 52 45 4d 20 |)="IR_Se|nd" REM |
|00001d30| 43 74 72 6c 2b 49 06 09 | 67 4d 44 54 24 28 31 30 |Ctrl+I..|gMDT$(10|
|00001d40| 29 3d 22 22 20 52 45 4d | 20 43 74 72 6c 2b 4a 06 |)="" REM| Ctrl+J.|
|00001d50| 09 67 4d 44 54 24 28 31 | 31 29 3d 22 50 72 65 66 |.gMDT$(1|1)="Pref|
|00001d60| 5f 44 69 73 70 22 20 52 | 45 4d 20 43 74 72 6c 2b |_Disp" R|EM Ctrl+|
|00001d70| 4b 06 09 67 4d 44 54 24 | 28 31 32 29 3d 22 22 20 |K..gMDT$|(12)="" |
|00001d80| 52 45 4d 20 43 74 72 6c | 2b 4c 06 09 67 4d 44 54 |REM Ctrl|+L..gMDT|
|00001d90| 24 28 31 33 29 3d 22 5a | 6f 6f 6d 5f 49 6e 22 20 |$(13)="Z|oom_In" |
|00001da0| 52 45 4d 20 43 74 72 6c | 2b 4d 06 09 67 4d 44 54 |REM Ctrl|+M..gMDT|
|00001db0| 24 28 31 34 29 3d 22 22 | 20 52 45 4d 20 43 74 72 |$(14)=""| REM Ctr|
|00001dc0| 6c 2b 4e 06 09 67 4d 44 | 54 24 28 31 35 29 3d 22 |l+N..gMD|T$(15)="|
|00001dd0| 22 20 52 45 4d 20 43 74 | 72 6c 2b 4f 06 09 67 4d |" REM Ct|rl+O..gM|
|00001de0| 44 54 24 28 31 36 29 3d | 22 50 72 69 6e 74 5f 50 |DT$(16)=|"Print_P|
|00001df0| 72 69 6e 74 22 20 52 45 | 4d 20 43 74 72 6c 2b 50 |rint" RE|M Ctrl+P|
|00001e00| 06 09 67 4d 44 54 24 28 | 31 37 29 3d 22 22 20 52 |..gMDT$(|17)="" R|
|00001e10| 45 4d 20 43 74 72 6c 2b | 51 06 09 67 4d 44 54 24 |EM Ctrl+|Q..gMDT$|
|00001e20| 28 31 38 29 3d 22 22 20 | 52 45 4d 20 43 74 72 6c |(18)="" |REM Ctrl|
|00001e30| 2b 52 06 09 67 4d 44 54 | 24 28 31 39 29 3d 22 22 |+R..gMDT|$(19)=""|
|00001e40| 20 52 45 4d 20 43 74 72 | 6c 2b 53 06 09 67 4d 44 | REM Ctr|l+S..gMD|
|00001e50| 54 24 28 32 30 29 3d 22 | 54 6f 6f 6c 62 61 72 5f |T$(20)="|Toolbar_|
|00001e60| 53 77 69 74 63 68 22 20 | 52 45 4d 20 43 74 72 6c |Switch" |REM Ctrl|
|00001e70| 2b 54 06 09 67 4d 44 54 | 24 28 32 31 29 3d 22 22 |+T..gMDT|$(21)=""|
|00001e80| 20 52 45 4d 20 43 74 72 | 6c 2b 55 06 09 67 4d 44 | REM Ctr|l+U..gMD|
|00001e90| 54 24 28 32 32 29 3d 22 | 43 43 50 5f 50 61 73 74 |T$(22)="|CCP_Past|
|00001ea0| 65 22 20 52 45 4d 20 43 | 74 72 6c 2b 56 06 09 67 |e" REM C|trl+V..g|
|00001eb0| 4d 44 54 24 28 32 33 29 | 3d 22 22 20 52 45 4d 20 |MDT$(23)|="" REM |
|00001ec0| 43 74 72 6c 2b 57 06 09 | 67 4d 44 54 24 28 32 34 |Ctrl+W..|gMDT$(24|
|00001ed0| 29 3d 22 43 43 50 5f 43 | 75 74 22 20 52 45 4d 20 |)="CCP_C|ut" REM |
|00001ee0| 43 74 72 6c 2b 58 06 09 | 67 4d 44 54 24 28 32 35 |Ctrl+X..|gMDT$(25|
|00001ef0| 29 3d 22 22 20 52 45 4d | 20 43 74 72 6c 2b 59 06 |)="" REM| Ctrl+Y.|
|00001f00| 09 67 4d 44 54 24 28 32 | 36 29 3d 22 22 20 52 45 |.gMDT$(2|6)="" RE|
|00001f10| 4d 20 43 74 72 6c 2b 5a | 06 09 67 4d 44 54 24 28 |M Ctrl+Z|..gMDT$(|
|00001f20| 32 37 29 3d 22 22 20 52 | 45 4d 20 43 74 72 6c 2b |27)="" R|EM Ctrl+|
|00001f30| 53 68 69 66 74 2b 41 06 | 09 67 4d 44 54 24 28 32 |Shift+A.|.gMDT$(2|
|00001f40| 38 29 3d 22 22 20 52 45 | 4d 20 43 74 72 6c 2b 53 |8)="" RE|M Ctrl+S|
|00001f50| 68 69 66 74 2b 42 06 09 | 67 4d 44 54 24 28 32 39 |hift+B..|gMDT$(29|
|00001f60| 29 3d 22 22 20 52 45 4d | 20 43 74 72 6c 2b 53 68 |)="" REM| Ctrl+Sh|
|00001f70| 69 66 74 2b 43 06 09 67 | 4d 44 54 24 28 33 30 29 |ift+C..g|MDT$(30)|
|00001f80| 3d 22 22 20 52 45 4d 20 | 43 74 72 6c 2b 53 68 69 |="" REM |Ctrl+Shi|
|00001f90| 66 74 2b 44 06 09 67 4d | 44 54 24 28 33 31 29 3d |ft+D..gM|DT$(31)=|
|00001fa0| 22 22 20 52 45 4d 20 43 | 74 72 6c 2b 53 68 69 66 |"" REM C|trl+Shif|
|00001fb0| 74 2b 45 06 09 67 4d 44 | 54 24 28 33 32 29 3d 22 |t+E..gMD|T$(32)="|
|00001fc0| 22 20 52 45 4d 20 43 74 | 72 6c 2b 53 68 69 66 74 |" REM Ct|rl+Shift|
|00001fd0| 2b 46 06 09 67 4d 44 54 | 24 28 33 33 29 3d 22 22 |+F..gMDT|$(33)=""|
|00001fe0| 20 52 45 4d 20 43 74 72 | 6c 2b 53 68 69 66 74 2b | REM Ctr|l+Shift+|
|00001ff0| 47 06 09 67 4d 44 54 24 | 28 33 34 29 3d 22 48 65 |G..gMDT$|(34)="He|
|00002000| 6c 70 5f 44 69 73 70 22 | 20 52 45 4d 20 43 74 72 |lp_Disp"| REM Ctr|
|00002010| 6c 2b 53 68 69 66 74 2b | 48 06 09 67 4d 44 54 24 |l+Shift+|H..gMDT$|
|00002020| 28 33 35 29 3d 22 49 52 | 5f 52 65 63 65 69 76 65 |(35)="IR|_Receive|
|00002030| 22 20 52 45 4d 20 43 74 | 72 6c 2b 53 68 69 66 74 |" REM Ct|rl+Shift|
|00002040| 2b 49 06 09 67 4d 44 54 | 24 28 33 36 29 3d 22 22 |+I..gMDT|$(36)=""|
|00002050| 20 52 45 4d 20 43 74 72 | 6c 2b 53 68 69 66 74 2b | REM Ctr|l+Shift+|
|00002060| 4a 06 09 67 4d 44 54 24 | 28 33 37 29 3d 22 22 20 |J..gMDT$|(37)="" |
|00002070| 52 45 4d 20 43 74 72 6c | 2b 53 68 69 66 74 2b 4b |REM Ctrl|+Shift+K|
|00002080| 06 09 67 4d 44 54 24 28 | 33 38 29 3d 22 22 20 52 |..gMDT$(|38)="" R|
|00002090| 45 4d 20 43 74 72 6c 2b | 53 68 69 66 74 2b 4c 06 |EM Ctrl+|Shift+L.|
|000020a0| 09 67 4d 44 54 24 28 33 | 39 29 3d 22 5a 6f 6f 6d |.gMDT$(3|9)="Zoom|
|000020b0| 5f 4f 75 74 22 20 52 45 | 4d 20 43 74 72 6c 2b 53 |_Out" RE|M Ctrl+S|
|000020c0| 68 69 66 74 2b 4d 06 09 | 67 4d 44 54 24 28 34 30 |hift+M..|gMDT$(40|
|000020d0| 29 3d 22 22 20 52 45 4d | 20 43 74 72 6c 2b 53 68 |)="" REM| Ctrl+Sh|
|000020e0| 69 66 74 2b 4e 06 09 67 | 4d 44 54 24 28 34 31 29 |ift+N..g|MDT$(41)|
|000020f0| 3d 22 22 20 52 45 4d 20 | 43 74 72 6c 2b 53 68 69 |="" REM |Ctrl+Shi|
|00002100| 66 74 2b 4f 06 09 67 4d | 44 54 24 28 34 32 29 3d |ft+O..gM|DT$(42)=|
|00002110| 22 50 72 69 6e 74 5f 53 | 65 74 75 70 22 20 52 45 |"Print_S|etup" RE|
|00002120| 4d 20 43 74 72 6c 2b 53 | 68 69 66 74 2b 50 06 09 |M Ctrl+S|hift+P..|
|00002130| 67 4d 44 54 24 28 34 33 | 29 3d 22 22 20 52 45 4d |gMDT$(43|)="" REM|
|00002140| 20 43 74 72 6c 2b 53 68 | 69 66 74 2b 51 06 09 67 | Ctrl+Sh|ift+Q..g|
|00002150| 4d 44 54 24 28 34 34 29 | 3d 22 22 20 52 45 4d 20 |MDT$(44)|="" REM |
|00002160| 43 74 72 6c 2b 53 68 69 | 66 74 2b 52 06 09 67 4d |Ctrl+Shi|ft+R..gM|
|00002170| 44 54 24 28 34 35 29 3d | 22 22 20 52 45 4d 20 43 |DT$(45)=|"" REM C|
|00002180| 74 72 6c 2b 53 68 69 66 | 74 2b 53 06 09 67 4d 44 |trl+Shif|t+S..gMD|
|00002190| 54 24 28 34 36 29 3d 22 | 22 20 52 45 4d 20 43 74 |T$(46)="|" REM Ct|
|000021a0| 72 6c 2b 53 68 69 66 74 | 2b 54 06 09 67 4d 44 54 |rl+Shift|+T..gMDT|
|000021b0| 24 28 34 37 29 3d 22 50 | 72 69 6e 74 5f 50 61 67 |$(47)="P|rint_Pag|
|000021c0| 65 53 65 74 75 70 22 20 | 52 45 4d 20 43 74 72 6c |eSetup" |REM Ctrl|
|000021d0| 2b 53 68 69 66 74 2b 55 | 06 09 67 4d 44 54 24 28 |+Shift+U|..gMDT$(|
|000021e0| 34 38 29 3d 22 50 72 69 | 6e 74 5f 50 72 65 76 69 |48)="Pri|nt_Previ|
|000021f0| 65 77 22 20 52 45 4d 20 | 43 74 72 6c 2b 53 68 69 |ew" REM |Ctrl+Shi|
|00002200| 66 74 2b 56 06 09 67 4d | 44 54 24 28 34 39 29 3d |ft+V..gM|DT$(49)=|
|00002210| 22 22 20 52 45 4d 20 43 | 74 72 6c 2b 53 68 69 66 |"" REM C|trl+Shif|
|00002220| 74 2b 57 06 09 67 4d 44 | 54 24 28 35 30 29 3d 22 |t+W..gMD|T$(50)="|
|00002230| 22 20 52 45 4d 20 43 74 | 72 6c 2b 53 68 69 66 74 |" REM Ct|rl+Shift|
|00002240| 2b 58 06 09 67 4d 44 54 | 24 28 35 31 29 3d 22 22 |+X..gMDT|$(51)=""|
|00002250| 20 52 45 4d 20 43 74 72 | 6c 2b 53 68 69 66 74 2b | REM Ctr|l+Shift+|
|00002260| 59 06 09 67 4d 44 54 24 | 28 35 32 29 3d 22 22 20 |Y..gMDT$|(52)="" |
|00002270| 52 45 4d 20 43 74 72 6c | 2b 53 68 69 66 74 2b 5a |REM Ctrl|+Shift+Z|
|00002280| 06 45 4e 44 50 06 06 52 | 45 4d 20 64 69 73 70 6c |.ENDP..R|EM displ|
|00002290| 61 79 20 74 68 65 20 6d | 65 6e 75 20 61 6e 64 20 |ay the m|enu and |
|000022a0| 65 78 65 63 75 74 65 20 | 74 68 65 20 75 73 65 72 |execute |the user|
|000022b0| 20 63 68 6f 69 63 65 06 | 50 52 4f 43 20 4d 65 6e | choice.|PROC Men|
|000022c0| 75 5f 44 69 73 70 26 3a | 06 09 4c 4f 43 41 4c 20 |u_Disp&:|..LOCAL |
|000022d0| 6b 26 06 06 09 6d 49 4e | 49 54 06 09 6d 43 41 53 |k&...mIN|IT..mCAS|
|000022e0| 43 20 22 50 72 69 6e 74 | 69 6e 67 22 2c 22 50 61 |C "Print|ing","Pa|
|000022f0| 67 65 20 73 65 74 75 70 | 85 22 2c 25 55 2c 20 22 |ge setup|.",%U, "|
|00002300| 50 72 69 6e 74 20 73 65 | 74 75 70 85 22 2c 25 50 |Print se|tup.",%P|
|00002310| 2c 20 22 50 72 69 6e 74 | 20 70 72 65 76 69 65 77 |, "Print| preview|
|00002320| 85 22 2c 25 56 2c 22 50 | 72 69 6e 74 85 22 2c 25 |.",%V,"P|rint.",%|
|00002330| 70 06 09 49 46 20 67 4d | 6f 64 65 31 25 3d 31 06 |p..IF gM|ode1%=1.|
|00002340| 09 09 6d 43 41 52 44 20 | 22 46 69 6c 65 22 2c 22 |..mCARD |"File","|
|00002350| 4f 70 65 6e 20 46 69 6c | 65 85 22 2c 2d 25 6f 2c |Open Fil|e.",-%o,|
|00002360| 20 22 50 72 69 6e 74 69 | 6e 67 3e 22 2c 2d 31 36 | "Printi|ng>",-16|
|00002370| 2c 22 43 6c 6f 73 65 22 | 2c 25 65 06 09 45 4c 53 |,"Close"|,%e..ELS|
|00002380| 45 06 09 09 6d 43 41 52 | 44 20 22 46 69 6c 65 22 |E...mCAR|D "File"|
|00002390| 2c 22 53 61 76 65 20 46 | 69 6c 65 22 2c 2d 25 73 |,"Save F|ile",-%s|
|000023a0| 2c 20 22 50 72 69 6e 74 | 69 6e 67 3e 22 2c 2d 31 |, "Print|ing>",-1|
|000023b0| 36 2c 22 43 6c 6f 73 65 | 22 2c 25 65 06 09 45 4e |6,"Close|",%e..EN|
|000023c0| 44 49 46 06 09 6d 43 41 | 52 44 20 22 45 64 69 74 |DIF..mCA|RD "Edit|
|000023d0| 22 2c 22 55 6e 64 6f 22 | 2c 2d 25 7a 2c 20 22 43 |","Undo"|,-%z, "C|
|000023e0| 75 74 22 2c 25 78 2c 20 | 22 43 6f 70 79 22 2c 25 |ut",%x, |"Copy",%|
|000023f0| 63 2c 20 22 50 61 73 74 | 65 22 2c 25 76 06 09 6d |c, "Past|e",%v..m|
|00002400| 43 41 52 44 20 22 56 69 | 65 77 22 2c 22 4d 6f 64 |CARD "Vi|ew","Mod|
|00002410| 65 20 31 22 2c 25 68 20 | 4f 52 20 4b 4d 65 6e 75 |e 1",%h |OR KMenu|
|00002420| 4f 70 74 69 6f 6e 53 74 | 61 72 74 25 20 4f 52 20 |OptionSt|art% OR |
|00002430| 4b 4d 65 6e 75 53 79 6d | 62 6f 6c 4f 6e 25 20 2a |KMenuSym|bolOn% *|
|00002440| 20 67 4d 6f 64 65 31 25 | 2c 20 22 4d 6f 64 65 20 | gMode1%|, "Mode |
|00002450| 32 22 2c 2d 28 25 64 20 | 20 4f 52 20 4b 4d 65 6e |2",-(%d | OR KMen|
|00002460| 75 4f 70 74 69 6f 6e 45 | 6e 64 25 20 4f 52 20 4b |uOptionE|nd% OR K|
|00002470| 4d 65 6e 75 53 79 6d 62 | 6f 6c 4f 6e 25 20 2a 20 |MenuSymb|olOn% * |
|00002480| 67 4d 6f 64 65 32 25 29 | 2c 22 5a 6f 6f 6d 20 69 |gMode2%)|,"Zoom i|
|00002490| 6e 22 2c 25 6d 2c 20 22 | 5a 6f 6f 6d 20 6f 75 74 |n",%m, "|Zoom out|
|000024a0| 22 2c 2d 25 4d 2c 20 22 | 53 68 6f 77 20 74 6f 6f |",-%M, "|Show too|
|000024b0| 6c 62 61 72 22 2c 25 74 | 20 4f 52 20 24 32 38 30 |lbar",%t| OR $280|
|000024c0| 30 2a 28 67 54 6f 6f 6c | 62 61 72 25 2b 31 29 06 |0*(gTool|bar%+1).|
|000024d0| 09 6d 43 41 53 43 20 22 | 49 6e 66 72 61 72 65 64 |.mCASC "|Infrared|
|000024e0| 22 2c 22 53 65 6e 64 22 | 2c 25 69 2c 20 22 52 65 |","Send"|,%i, "Re|
|000024f0| 63 65 69 76 65 22 2c 25 | 49 06 09 6d 43 41 52 44 |ceive",%|I..mCARD|
|00002500| 20 22 54 6f 6f 6c 73 22 | 2c 22 50 72 65 66 65 72 | "Tools"|,"Prefer|
|00002510| 65 6e 63 65 22 2c 25 6b | 2c 20 22 41 62 6f 75 74 |ence",%k|, "About|
|00002520| 22 2c 25 61 2c 22 48 65 | 6c 70 22 2c 2d 25 48 2c |",%a,"He|lp",-%H,|
|00002530| 22 49 6e 66 72 61 72 65 | 64 3e 22 2c 31 35 06 09 |"Infrare|d>",15..|
|00002540| 67 43 6f 6e 74 72 6f 6c | 25 3d 4b 54 72 75 65 25 |gControl|%=KTrue%|
|00002550| 06 09 4c 4f 43 4b 20 4f | 4e 20 3a 6b 26 3d 4d 45 |..LOCK O|N :k&=ME|
|00002560| 4e 55 28 67 4d 69 6e 69 | 74 25 29 2d 25 41 2b 31 |NU(gMini|t%)-%A+1|
|00002570| 20 3a 4c 4f 43 4b 20 4f | 46 46 06 09 49 46 20 6b | :LOCK O|FF..IF k|
|00002580| 26 20 3e 20 33 31 20 3a | 20 67 53 68 69 66 74 25 |& > 31 :| gShift%|
|00002590| 3d 4b 46 61 6c 73 65 25 | 20 3a 20 6b 26 3d 6b 26 |=KFalse%| : k&=k&|
|000025a0| 2d 33 32 06 09 45 4c 53 | 45 20 3a 20 67 53 68 69 |-32..ELS|E : gShi|
|000025b0| 66 74 25 3d 4b 54 72 75 | 65 25 06 09 45 4e 44 49 |ft%=KTru|e%..ENDI|
|000025c0| 46 06 09 4d 65 6e 75 5f | 4b 65 79 3a 28 6b 26 29 |F..Menu_|Key:(k&)|
|000025d0| 06 45 4e 44 50 06 06 50 | 52 4f 43 20 4d 65 6e 75 |.ENDP..P|ROC Menu|
|000025e0| 5f 4b 65 79 3a 28 6b 26 | 29 06 09 4c 4f 43 41 4c |_Key:(k&|)..LOCAL|
|000025f0| 20 70 24 28 32 35 35 29 | 06 06 09 49 46 20 6b 26 | p$(255)|...IF k&|
|00002600| 3c 31 20 4f 52 20 6b 26 | 3e 32 36 20 3a 52 45 54 |<1 OR k&|>26 :RET|
|00002610| 55 52 4e 20 3a 45 4e 44 | 49 46 06 09 49 46 20 67 |URN :END|IF..IF g|
|00002620| 53 68 69 66 74 25 06 09 | 09 70 24 3d 67 4d 44 54 |Shift%..|.p$=gMDT|
|00002630| 24 28 32 36 2b 6b 26 29 | 06 09 45 4c 53 45 06 09 |$(26+k&)|..ELSE..|
|00002640| 09 70 24 3d 67 4d 44 54 | 24 28 6b 26 29 06 09 45 |.p$=gMDT|$(k&)..E|
|00002650| 4e 44 49 46 06 09 49 46 | 20 70 24 3c 3e 22 22 06 |NDIF..IF| p$<>"".|
|00002660| 09 09 40 28 70 24 29 3a | 06 09 45 4e 44 49 46 06 |..@(p$):|..ENDIF.|
|00002670| 45 4e 44 50 06 06 52 45 | 4d 20 54 6f 75 63 68 2d |ENDP..RE|M Touch-|
|00002680| 73 63 72 65 65 6e 20 6d | 61 6e 61 67 65 6d 65 6e |screen m|anagemen|
|00002690| 74 06 52 45 4d 20 2b 2d | 2b 2d 2b 2d 2b 2d 2b 2d |t.REM +-|+-+-+-+-|
|000026a0| 2b 2d 2b 2d 2b 2d 2b 2d | 2b 2d 2b 2d 2b 06 06 52 |+-+-+-+-|+-+-+..R|
|000026b0| 45 4d 20 54 61 70 20 6f | 6e 20 74 68 65 20 74 6f |EM Tap o|n the to|
|000026c0| 75 63 68 2d 73 63 72 65 | 65 6e 06 50 52 4f 43 20 |uch-scre|en.PROC |
|000026d0| 54 6f 75 63 68 5f 54 61 | 70 3a 06 09 49 46 20 54 |Touch_Ta|p:..IF T|
|000026e0| 42 61 72 4f 66 66 65 72 | 25 3a 28 67 41 26 28 33 |BarOffer|%:(gA&(3|
|000026f0| 29 2c 67 41 26 28 34 29 | 2c 67 41 26 28 36 29 2c |),gA&(4)|,gA&(6),|
|00002700| 67 41 26 28 37 29 29 06 | 09 09 52 45 54 55 52 4e |gA&(7)).|..RETURN|
|00002710| 06 09 45 4c 53 45 06 09 | 09 49 46 20 67 41 26 28 |..ELSE..|.IF gA&(|
|00002720| 4b 45 76 41 50 74 72 54 | 79 70 65 25 29 20 3d 20 |KEvAPtrT|ype%) = |
|00002730| 30 06 09 09 09 54 6f 75 | 63 68 5f 46 69 72 73 74 |0....Tou|ch_First|
|00002740| 3a 28 67 41 26 28 33 29 | 2c 67 41 26 28 36 29 2c |:(gA&(3)|,gA&(6),|
|00002750| 67 41 26 28 37 29 29 06 | 09 09 45 4c 53 45 49 46 |gA&(7)).|..ELSEIF|
|00002760| 20 67 41 26 28 4b 45 76 | 41 50 74 72 54 79 70 65 | gA&(KEv|APtrType|
|00002770| 25 29 20 3d 20 31 06 09 | 09 09 54 6f 75 63 68 5f |%) = 1..|..Touch_|
|00002780| 4c 61 73 74 3a 28 67 41 | 26 28 33 29 2c 67 41 26 |Last:(gA|&(3),gA&|
|00002790| 28 36 29 2c 67 41 26 28 | 37 29 29 06 09 09 45 4c |(6),gA&(|7))...EL|
|000027a0| 53 45 49 46 20 67 41 26 | 28 4b 45 76 41 50 74 72 |SEIF gA&|(KEvAPtr|
|000027b0| 54 79 70 65 25 29 20 3d | 20 36 06 09 09 09 54 6f |Type%) =| 6....To|
|000027c0| 75 63 68 5f 4d 69 64 64 | 6c 65 3a 28 67 41 26 28 |uch_Midd|le:(gA&(|
|000027d0| 33 29 2c 67 41 26 28 36 | 29 2c 67 41 26 28 37 29 |3),gA&(6|),gA&(7)|
|000027e0| 29 06 09 09 45 4e 44 49 | 46 06 09 45 4e 44 49 46 |)...ENDI|F..ENDIF|
|000027f0| 06 45 4e 44 50 06 06 52 | 45 4d 20 74 61 70 20 6f |.ENDP..R|EM tap o|
|00002800| 6e 20 74 68 65 20 74 6f | 75 63 68 20 73 63 72 65 |n the to|uch scre|
|00002810| 65 6e 06 50 52 4f 43 20 | 54 6f 75 63 68 5f 46 69 |en.PROC |Touch_Fi|
|00002820| 72 73 74 3a 28 57 26 2c | 58 5f 50 26 2c 59 5f 50 |rst:(W&,|X_P&,Y_P|
|00002830| 26 29 06 20 09 47 49 50 | 52 49 4e 54 20 22 54 6f |&). .GIP|RINT "To|
|00002840| 75 63 68 5f 46 69 72 73 | 74 20 57 3d 22 2b 4e 55 |uch_Firs|t W="+NU|
|00002850| 4d 24 28 57 26 2c 31 32 | 29 2b 22 2c 20 58 3d 22 |M$(W&,12|)+", X="|
|00002860| 2b 4e 55 4d 24 28 58 5f | 50 26 2c 31 32 29 2b 22 |+NUM$(X_|P&,12)+"|
|00002870| 2c 20 59 3d 22 2b 4e 55 | 4d 24 28 59 5f 50 26 2c |, Y="+NU|M$(Y_P&,|
|00002880| 31 32 29 20 3a 50 41 55 | 53 45 20 32 30 06 45 4e |12) :PAU|SE 20.EN|
|00002890| 44 50 06 06 52 45 4d 20 | 74 61 70 20 6f 6e 20 74 |DP..REM |tap on t|
|000028a0| 68 65 20 74 6f 75 63 68 | 20 73 63 72 65 65 6e 06 |he touch| screen.|
|000028b0| 50 52 4f 43 20 54 6f 75 | 63 68 5f 4d 69 64 64 6c |PROC Tou|ch_Middl|
|000028c0| 65 3a 28 57 26 2c 58 5f | 50 26 2c 59 5f 50 26 29 |e:(W&,X_|P&,Y_P&)|
|000028d0| 06 20 09 47 49 50 52 49 | 4e 54 20 22 54 6f 75 63 |. .GIPRI|NT "Touc|
|000028e0| 68 5f 4d 69 64 64 6c 65 | 20 57 3d 22 2b 4e 55 4d |h_Middle| W="+NUM|
|000028f0| 24 28 57 26 2c 31 32 29 | 2b 22 2c 20 58 3d 22 2b |$(W&,12)|+", X="+|
|00002900| 4e 55 4d 24 28 58 5f 50 | 26 2c 31 32 29 2b 22 2c |NUM$(X_P|&,12)+",|
|00002910| 20 59 3d 22 2b 4e 55 4d | 24 28 59 5f 50 26 2c 31 | Y="+NUM|$(Y_P&,1|
|00002920| 32 29 20 3a 50 41 55 53 | 45 20 32 30 06 45 4e 44 |2) :PAUS|E 20.END|
|00002930| 50 06 06 52 45 4d 20 74 | 61 70 20 6f 6e 20 74 68 |P..REM t|ap on th|
|00002940| 65 20 74 6f 75 63 68 20 | 73 63 72 65 65 6e 06 50 |e touch |screen.P|
|00002950| 52 4f 43 20 54 6f 75 63 | 68 5f 4c 61 73 74 3a 28 |ROC Touc|h_Last:(|
|00002960| 57 26 2c 58 5f 50 26 2c | 59 5f 50 26 29 06 20 09 |W&,X_P&,|Y_P&). .|
|00002970| 47 49 50 52 49 4e 54 20 | 22 54 6f 75 63 68 5f 4c |GIPRINT |"Touch_L|
|00002980| 61 73 74 20 57 3d 22 2b | 4e 55 4d 24 28 57 26 2c |ast W="+|NUM$(W&,|
|00002990| 31 32 29 2b 22 2c 20 58 | 3d 22 2b 4e 55 4d 24 28 |12)+", X|="+NUM$(|
|000029a0| 58 5f 50 26 2c 31 32 29 | 2b 22 2c 20 59 3d 22 2b |X_P&,12)|+", Y="+|
|000029b0| 4e 55 4d 24 28 59 5f 50 | 26 2c 31 32 29 20 3a 50 |NUM$(Y_P|&,12) :P|
|000029c0| 41 55 53 45 20 32 30 06 | 45 4e 44 50 06 06 52 45 |AUSE 20.|ENDP..RE|
|000029d0| 4d 20 74 6f 75 63 68 2d | 73 63 72 65 65 6e 3a 20 |M touch-|screen: |
|000029e0| 74 68 65 20 70 6f 69 6e | 74 65 72 20 65 6e 74 65 |the poin|ter ente|
|000029f0| 72 20 69 6e 20 74 68 65 | 20 61 72 65 61 06 50 52 |r in the| area.PR|
|00002a00| 4f 43 20 54 6f 75 63 68 | 5f 45 6e 74 65 72 3a 28 |OC Touch|_Enter:(|
|00002a10| 57 26 29 06 09 47 49 50 | 52 49 4e 54 20 22 54 6f |W&)..GIP|RINT "To|
|00002a20| 75 63 68 5f 45 6e 74 65 | 72 20 57 3d 22 2b 4e 55 |uch_Ente|r W="+NU|
|00002a30| 4d 24 28 57 26 2c 31 32 | 29 20 3a 50 41 55 53 45 |M$(W&,12|) :PAUSE|
|00002a40| 20 32 30 06 45 4e 44 50 | 06 06 52 45 4d 20 74 6f | 20.ENDP|..REM to|
|00002a50| 75 63 68 2d 73 63 72 65 | 65 6e 3a 20 74 68 65 20 |uch-scre|en: the |
|00002a60| 70 6f 69 6e 74 65 72 20 | 65 78 69 74 20 74 68 65 |pointer |exit the|
|00002a70| 20 61 72 65 61 06 50 52 | 4f 43 20 54 6f 75 63 68 | area.PR|OC Touch|
|00002a80| 5f 45 78 69 74 3a 28 57 | 26 29 06 09 47 49 50 52 |_Exit:(W|&)..GIPR|
|00002a90| 49 4e 54 20 22 54 6f 75 | 63 68 5f 45 78 69 74 20 |INT "Tou|ch_Exit |
|00002aa0| 57 3d 22 2b 4e 55 4d 24 | 28 57 26 2c 31 32 29 20 |W="+NUM$|(W&,12) |
|00002ab0| 3a 50 41 55 53 45 20 32 | 30 06 45 4e 44 50 06 06 |:PAUSE 2|0.ENDP..|
|00002ac0| 52 45 4d 20 44 69 73 70 | 6c 61 79 20 4d 61 6e 61 |REM Disp|lay Mana|
|00002ad0| 67 6d 65 6e 74 06 52 45 | 4d 20 2d 3d 2d 3d 2d 3d |gment.RE|M -=-=-=|
|00002ae0| 2d 3d 2d 3d 2d 3d 2d 3d | 2d 3d 2d 3d 06 06 52 45 |-=-=-=-=|-=-=..RE|
|00002af0| 4d 20 43 72 65 61 74 65 | 20 61 6c 6c 20 74 68 65 |M Create| all the|
|00002b00| 20 77 69 6e 64 6f 77 73 | 06 50 52 4f 43 20 44 72 | windows|.PROC Dr|
|00002b10| 61 77 5f 43 72 65 61 74 | 65 3a 06 09 49 46 20 67 |aw_Creat|e:..IF g|
|00002b20| 4d 61 69 6e 53 63 6e 25 | 20 3d 20 30 06 09 09 67 |MainScn%| = 0...g|
|00002b30| 4d 61 69 6e 53 63 6e 25 | 3d 67 43 52 45 41 54 45 |MainScn%|=gCREATE|
|00002b40| 20 28 30 2c 30 2c 67 53 | 63 72 65 65 6e 77 69 64 | (0,0,gS|creenwid|
|00002b50| 74 68 25 2c 67 53 63 72 | 48 67 68 74 25 2c 4b 67 |th%,gScr|Hght%,Kg|
|00002b60| 43 72 65 61 74 65 56 69 | 73 69 62 6c 65 25 2c 4b |CreateVi|sible%,K|
|00002b70| 67 43 72 65 61 74 65 32 | 43 6f 6c 6f 75 72 4d 6f |gCreate2|ColourMo|
|00002b80| 64 65 25 29 06 09 45 4c | 53 45 06 09 09 67 55 53 |de%)..EL|SE...gUS|
|00002b90| 45 20 67 4d 61 69 6e 53 | 63 6e 25 06 09 09 67 53 |E gMainS|cn%...gS|
|00002ba0| 45 54 57 49 4e 20 30 2c | 30 2c 67 53 63 72 65 65 |ETWIN 0,|0,gScree|
|00002bb0| 6e 77 69 64 74 68 25 2c | 67 53 63 72 48 67 68 74 |nwidth%,|gScrHght|
|00002bc0| 25 06 09 45 4e 44 49 46 | 06 09 44 72 61 77 5f 41 |%..ENDIF|..Draw_A|
|00002bd0| 6c 6c 3a 06 45 4e 44 50 | 06 06 52 45 4d 20 63 6c |ll:.ENDP|..REM cl|
|00002be0| 6f 73 65 20 61 6c 6c 20 | 6f 70 65 6e 20 77 69 6e |ose all |open win|
|00002bf0| 64 6f 77 73 06 50 52 4f | 43 20 44 72 61 77 5f 43 |dows.PRO|C Draw_C|
|00002c00| 6c 6f 73 65 3a 06 09 49 | 46 20 67 4d 61 69 6e 53 |lose:..I|F gMainS|
|00002c10| 63 6e 25 20 3a 67 43 4c | 4f 53 45 20 67 4d 61 69 |cn% :gCL|OSE gMai|
|00002c20| 6e 53 63 6e 25 20 3a 45 | 4e 44 49 46 06 45 4e 44 |nScn% :E|NDIF.END|
|00002c30| 50 06 06 52 45 4d 20 44 | 72 61 77 20 74 68 65 20 |P..REM D|raw the |
|00002c40| 77 69 6e 64 6f 77 73 20 | 06 50 52 4f 43 20 44 72 |windows |.PROC Dr|
|00002c50| 61 77 5f 41 6c 6c 3a 06 | 09 67 55 53 45 20 67 4d |aw_All:.|.gUSE gM|
|00002c60| 61 69 6e 73 63 6e 25 06 | 09 67 43 4c 53 20 3a 67 |ainscn%.|.gCLS :g|
|00002c70| 42 4f 52 44 45 52 20 30 | 06 06 09 54 69 6d 65 5f |BORDER 0|...Time_|
|00002c80| 44 72 61 77 3a 06 45 4e | 44 50 06 06 52 45 4d 20 |Draw:.EN|DP..REM |
|00002c90| 44 72 61 77 20 74 68 65 | 20 77 69 6e 64 6f 77 73 |Draw the| windows|
|00002ca0| 20 06 50 52 4f 43 20 54 | 69 6d 65 5f 44 72 61 77 | .PROC T|ime_Draw|
|00002cb0| 3a 06 09 4c 4f 43 41 4c | 20 63 68 24 28 32 35 35 |:..LOCAL| ch$(255|
|00002cc0| 29 06 06 09 67 46 4f 4e | 54 20 67 46 6f 6e 74 26 |)...gFON|T gFont&|
|00002cd0| 06 09 67 41 54 20 34 38 | 2c 33 32 20 3a 20 67 46 |..gAT 48|,32 : gF|
|00002ce0| 49 4c 4c 20 33 32 30 2c | 32 32 2c 31 20 3a 20 67 |ILL 320,|22,1 : g|
|00002cf0| 42 4f 58 20 33 32 30 2c | 32 32 06 09 06 09 63 68 |BOX 320,|22....ch|
|00002d00| 24 3d 44 41 54 49 4d 24 | 06 09 49 46 20 67 4d 6f |$=DATIM$|..IF gMo|
|00002d10| 64 65 32 25 20 3d 20 31 | 06 09 09 63 68 24 3d 4c |de2% = 1|...ch$=L|
|00002d20| 45 46 54 24 28 63 68 24 | 2c 31 35 29 06 09 45 4e |EFT$(ch$|,15)..EN|
|00002d30| 44 49 46 06 09 67 41 54 | 20 35 30 2c 35 30 20 3a |DIF..gAT| 50,50 :|
|00002d40| 67 50 52 49 4e 54 20 63 | 68 24 06 45 4e 44 50 06 |gPRINT c|h$.ENDP.|
|00002d50| 06 52 45 4d 20 5a 6f 6f | 6d 20 4d 61 6e 61 67 65 |.REM Zoo|m Manage|
|00002d60| 6d 65 6e 74 06 52 45 4d | 20 2d 3d 2d 3d 2d 3d 2d |ment.REM| -=-=-=-|
|00002d70| 3d 2d 3d 2d 3d 2d 3d 2d | 06 06 52 45 4d 20 5a 6f |=-=-=-=-|..REM Zo|
|00002d80| 6f 6d 20 69 6e 20 28 6d | 61 67 6e 69 66 79 29 06 |om in (m|agnify).|
|00002d90| 50 52 4f 43 20 5a 6f 6f | 6d 5f 49 6e 3a 06 09 47 |PROC Zoo|m_In:..G|
|00002da0| 49 50 52 49 4e 54 20 22 | 5a 6f 6f 6d 5f 49 6e 22 |IPRINT "|Zoom_In"|
|00002db0| 20 3a 50 41 55 53 45 20 | 32 30 06 09 5a 6f 6f 6d | :PAUSE |20..Zoom|
|00002dc0| 5f 53 65 74 3a 28 28 67 | 5a 6f 6f 6d 25 2b 31 29 |_Set:((g|Zoom%+1)|
|00002dd0| 20 41 4e 44 20 33 29 06 | 09 54 69 6d 65 5f 44 72 | AND 3).|.Time_Dr|
|00002de0| 61 77 3a 06 45 4e 44 50 | 06 06 52 45 4d 20 5a 6f |aw:.ENDP|..REM Zo|
|00002df0| 6f 6d 20 6f 75 74 20 28 | 72 65 64 75 63 65 29 06 |om out (|reduce).|
|00002e00| 50 52 4f 43 20 5a 6f 6f | 6d 5f 4f 75 74 3a 06 09 |PROC Zoo|m_Out:..|
|00002e10| 47 49 50 52 49 4e 54 20 | 22 5a 6f 6f 6d 5f 49 6e |GIPRINT |"Zoom_In|
|00002e20| 22 20 3a 50 41 55 53 45 | 20 32 30 06 09 5a 6f 6f |" :PAUSE| 20..Zoo|
|00002e30| 6d 5f 53 65 74 3a 28 28 | 67 5a 6f 6f 6d 25 2d 31 |m_Set:((|gZoom%-1|
|00002e40| 29 20 41 4e 44 20 33 29 | 06 09 54 69 6d 65 3a 06 |) AND 3)|..Time:.|
|00002e50| 45 4e 44 50 06 06 52 45 | 4d 20 43 68 61 6e 67 65 |ENDP..RE|M Change|
|00002e60| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 7a 6f 6f | the cur|rent zoo|
|00002e70| 6d 20 6c 65 76 65 6c 06 | 50 52 4f 43 20 5a 6f 6f |m level.|PROC Zoo|
|00002e80| 6d 5f 53 65 74 3a 28 7a | 25 29 06 09 67 5a 6f 6f |m_Set:(z|%)..gZoo|
|00002e90| 6d 25 3d 7a 25 06 06 09 | 52 45 4d 20 75 70 64 61 |m%=z%...|REM upda|
|00002ea0| 74 65 20 74 68 65 20 66 | 6f 6e 74 06 09 49 46 20 |te the f|ont..IF |
|00002eb0| 67 54 46 6f 6e 74 25 20 | 3d 20 31 06 09 09 67 46 |gTFont% |= 1...gF|
|00002ec0| 6f 6e 74 26 3d 4b 46 6f | 6e 74 41 72 69 61 6c 4e |ont&=KFo|ntArialN|
|00002ed0| 6f 72 6d 61 6c 31 31 26 | 2b 67 5a 6f 6f 6d 25 06 |ormal11&|+gZoom%.|
|00002ee0| 09 45 4c 53 45 49 46 20 | 67 54 46 6f 6e 74 25 20 |.ELSEIF |gTFont% |
|00002ef0| 3d 20 32 06 09 09 67 46 | 6f 6e 74 26 3d 4b 46 6f |= 2...gF|ont&=KFo|
|00002f00| 6e 74 54 69 6d 65 73 4e | 6f 72 6d 61 6c 31 31 26 |ntTimesN|ormal11&|
|00002f10| 2b 67 5a 6f 6f 6d 25 06 | 09 45 4c 53 45 06 09 09 |+gZoom%.|.ELSE...|
|00002f20| 67 46 6f 6e 74 26 3d 4b | 46 6f 6e 74 43 6f 75 72 |gFont&=K|FontCour|
|00002f30| 69 65 72 4e 6f 72 6d 61 | 6c 31 31 26 2b 67 5a 6f |ierNorma|l11&+gZo|
|00002f40| 6f 6d 25 06 09 45 4e 44 | 49 46 06 45 4e 44 50 06 |om%..END|IF.ENDP.|
|00002f50| 06 52 45 4d 20 54 6f 6f | 6c 20 42 61 72 20 4d 61 |.REM Too|l Bar Ma|
|00002f60| 6e 61 67 65 6d 65 6e 74 | 06 52 45 4d 20 2d 3d 2d |nagement|.REM -=-|
|00002f70| 3d 2d 3d 2d 3d 2d 3d 2d | 3d 2d 3d 2d 3d 2d 3d 2d |=-=-=-=-|=-=-=-=-|
|00002f80| 06 06 50 52 4f 43 20 54 | 6f 6f 6c 62 61 72 5f 49 |..PROC T|oolbar_I|
|00002f90| 6e 69 74 3a 06 09 4c 4f | 43 41 4c 20 6d 62 6d 54 |nit:..LO|CAL mbmT|
|00002fa0| 62 61 72 24 28 32 35 35 | 29 06 06 09 6d 62 6d 54 |bar$(255|)...mbmT|
|00002fb0| 62 61 72 24 3d 67 50 61 | 74 68 24 2b 50 69 63 74 |bar$=gPa|th$+Pict|
|00002fc0| 46 69 6c 65 24 06 09 67 | 5f 54 62 50 69 63 74 31 |File$..g|_TbPict1|
|00002fd0| 26 3d 67 4c 6f 61 64 42 | 69 74 28 6d 62 6d 54 62 |&=gLoadB|it(mbmTb|
|00002fe0| 61 72 24 2c 30 2c 30 29 | 06 09 67 5f 54 62 50 69 |ar$,0,0)|..g_TbPi|
|00002ff0| 63 74 32 26 3d 67 4c 6f | 61 64 42 69 74 28 6d 62 |ct2&=gLo|adBit(mb|
|00003000| 6d 54 62 61 72 24 2c 30 | 2c 31 29 06 09 67 5f 54 |mTbar$,0|,1)..g_T|
|00003010| 62 50 69 63 74 33 26 3d | 67 4c 6f 61 64 42 69 74 |bPict3&=|gLoadBit|
|00003020| 28 6d 62 6d 54 62 61 72 | 24 2c 30 2c 32 29 06 09 |(mbmTbar|$,0,2)..|
|00003030| 67 5f 54 62 50 69 63 74 | 34 26 3d 67 4c 6f 61 64 |g_TbPict|4&=gLoad|
|00003040| 42 69 74 28 6d 62 6d 54 | 62 61 72 24 2c 30 2c 33 |Bit(mbmT|bar$,0,3|
|00003050| 29 06 06 09 54 42 61 72 | 49 6e 69 74 3a 28 4e 6f |)...TBar|Init:(No|
|00003060| 6d 41 70 70 6c 69 24 2c | 67 53 63 72 57 69 64 25 |mAppli$,|gScrWid%|
|00003070| 2c 67 53 63 72 48 67 68 | 74 25 29 06 09 54 42 61 |,gScrHgh|t%)..TBa|
|00003080| 72 42 75 74 74 3a 28 22 | 68 22 2c 31 2c 22 48 6f |rButt:("|h",1,"Ho|
|00003090| 75 72 22 2c 30 2c 67 5f | 54 62 50 69 63 74 31 26 |ur",0,g_|TbPict1&|
|000030a0| 2c 67 5f 54 62 50 69 63 | 74 31 26 2c 20 4b 54 62 |,g_TbPic|t1&, KTb|
|000030b0| 46 6c 67 4c 61 74 63 68 | 53 74 61 72 74 25 29 06 |FlgLatch|Start%).|
|000030c0| 09 54 42 61 72 42 75 74 | 74 3a 28 22 64 22 2c 32 |.TBarBut|t:("d",2|
|000030d0| 2c 22 44 61 79 22 2c 30 | 2c 67 5f 54 62 50 69 63 |,"Day",0|,g_TbPic|
|000030e0| 74 32 26 2c 67 5f 54 62 | 50 69 63 74 32 26 2c 20 |t2&,g_Tb|Pict2&, |
|000030f0| 4b 54 62 46 6c 67 4c 61 | 74 63 68 45 6e 64 25 29 |KTbFlgLa|tchEnd%)|
|00003100| 06 09 54 42 61 72 42 75 | 74 74 3a 28 22 56 22 2c |..TBarBu|tt:("V",|
|00003110| 33 2c 22 50 72 69 6e 74 | 22 2c 30 2c 67 5f 54 62 |3,"Print|",0,g_Tb|
|00003120| 50 69 63 74 33 26 2c 67 | 5f 54 62 50 69 63 74 33 |Pict3&,g|_TbPict3|
|00003130| 26 2c 30 29 06 09 54 42 | 61 72 42 75 74 74 3a 28 |&,0)..TB|arButt:(|
|00003140| 22 48 22 2c 34 2c 22 48 | 65 6c 70 22 2c 30 2c 67 |"H",4,"H|elp",0,g|
|00003150| 5f 54 62 50 69 63 74 34 | 26 2c 67 5f 54 62 50 69 |_TbPict4|&,g_TbPi|
|00003160| 63 74 34 26 2c 30 29 06 | 09 54 6f 6f 6c 42 61 72 |ct4&,0).|.ToolBar|
|00003170| 5f 4d 6f 64 65 3a 06 09 | 54 6f 6f 6c 42 61 72 5f |_Mode:..|ToolBar_|
|00003180| 53 65 74 3a 06 09 54 6f | 6f 6c 62 61 72 5f 54 69 |Set:..To|olbar_Ti|
|00003190| 74 6c 65 3a 28 4e 6f 6d | 41 70 70 6c 69 24 29 06 |tle:(Nom|Appli$).|
|000031a0| 45 4e 44 50 06 06 50 52 | 4f 43 20 54 6f 6f 6c 42 |ENDP..PR|OC ToolB|
|000031b0| 61 72 5f 4d 6f 64 65 3a | 06 09 49 46 20 67 4d 6f |ar_Mode:|..IF gMo|
|000031c0| 64 65 31 25 20 3d 20 31 | 06 09 09 54 42 41 52 4c |de1% = 1|...TBARL|
|000031d0| 61 74 63 68 3a 28 31 29 | 06 09 45 4c 53 45 49 46 |atch:(1)|..ELSEIF|
|000031e0| 20 67 4d 6f 64 65 32 25 | 20 3d 20 31 06 09 09 54 | gMode2%| = 1...T|
|000031f0| 42 41 52 4c 61 74 63 68 | 3a 28 32 29 06 09 45 4e |BARLatch|:(2)..EN|
|00003200| 44 49 46 06 45 4e 44 50 | 06 06 50 52 4f 43 20 54 |DIF.ENDP|..PROC T|
|00003210| 6f 6f 6c 42 61 72 5f 53 | 65 74 3a 06 09 49 46 20 |oolBar_S|et:..IF |
|00003220| 67 54 6f 6f 6c 62 61 72 | 25 20 3a 54 42 61 72 48 |gToolbar|% :TBarH|
|00003230| 69 64 65 3a 06 09 45 4c | 53 45 20 3a 54 42 61 72 |ide:..EL|SE :TBar|
|00003240| 53 68 6f 77 3a 06 09 45 | 4e 44 49 46 06 09 67 53 |Show:..E|NDIF..gS|
|00003250| 63 72 65 65 6e 77 69 64 | 74 68 25 3d 67 53 63 72 |creenwid|th%=gScr|
|00003260| 57 69 64 25 2b 28 54 62 | 57 69 64 74 68 25 2a 20 |Wid%+(Tb|Width%* |
|00003270| 4e 4f 54 20 67 54 6f 6f | 6c 62 61 72 25 29 2d 31 |NOT gToo|lbar%)-1|
|00003280| 06 09 44 72 61 77 5f 43 | 72 65 61 74 65 3a 06 45 |..Draw_C|reate:.E|
|00003290| 4e 44 50 06 06 50 52 4f | 43 20 54 6f 6f 6c 62 61 |NDP..PRO|C Toolba|
|000032a0| 72 5f 53 77 69 74 63 68 | 3a 06 09 67 54 6f 6f 6c |r_Switch|:..gTool|
|000032b0| 62 61 72 25 20 3d 20 4e | 4f 54 20 67 54 6f 6f 6c |bar% = N|OT gTool|
|000032c0| 62 61 72 25 06 09 54 6f | 6f 6c 42 61 72 5f 53 65 |bar%..To|olBar_Se|
|000032d0| 74 3a 06 45 4e 44 50 06 | 06 50 52 4f 43 20 54 6f |t:.ENDP.|.PROC To|
|000032e0| 6f 6c 62 61 72 5f 54 69 | 74 6c 65 3a 28 41 24 29 |olbar_Ti|tle:(A$)|
|000032f0| 06 09 52 45 4d 20 27 54 | 72 69 6d 20 46 69 6c 65 |..REM 'T|rim File|
|00003300| 6e 61 6d 65 20 74 6f 20 | 37 20 63 68 61 72 61 63 |name to |7 charac|
|00003310| 74 65 72 73 20 74 6f 20 | 66 69 74 20 54 6f 6f 6c |ters to |fit Tool|
|00003320| 42 61 72 06 09 54 42 61 | 72 53 65 74 54 69 74 6c |Bar..TBa|rSetTitl|
|00003330| 65 3a 28 4c 45 46 54 24 | 28 41 24 2c 37 29 29 06 |e:(LEFT$|(A$,7)).|
|00003340| 45 4e 44 50 06 06 52 45 | 4d 20 48 65 6c 70 20 66 |ENDP..RE|M Help f|
|00003350| 72 6f 6d 20 54 6f 6f 6c | 62 61 72 06 50 52 4f 43 |rom Tool|bar.PROC|
|00003360| 20 43 6d 64 53 68 25 3a | 06 09 48 65 6c 70 5f 44 | CmdSh%:|..Help_D|
|00003370| 69 73 70 3a 06 45 4e 44 | 50 06 06 52 45 4d 20 50 |isp:.END|P..REM P|
|00003380| 72 69 6e 74 20 66 72 6f | 6d 20 54 6f 6f 6c 62 61 |rint fro|m Toolba|
|00003390| 72 06 50 52 4f 43 20 43 | 6d 64 53 76 25 3a 06 09 |r.PROC C|mdSv%:..|
|000033a0| 50 72 69 6e 74 5f 50 72 | 65 76 69 65 77 3a 06 45 |Print_Pr|eview:.E|
|000033b0| 4e 44 50 06 06 52 45 4d | 20 4d 6f 64 65 20 31 20 |NDP..REM| Mode 1 |
|000033c0| 66 72 6f 6d 20 54 6f 6f | 6c 62 61 72 06 50 52 4f |from Too|lbar.PRO|
|000033d0| 43 20 43 6d 64 68 25 3a | 06 20 20 4d 6f 64 65 5f |C Cmdh%:|.  Mode_|
|000033e0| 53 65 74 31 3a 06 45 4e | 44 50 06 06 52 45 4d 20 |Set1:.EN|DP..REM |
|000033f0| 4d 6f 64 65 20 32 20 66 | 72 6f 6d 20 54 6f 6f 6c |Mode 2 f|rom Tool|
|00003400| 62 61 72 06 50 52 4f 43 | 20 43 6d 64 64 25 3a 06 |bar.PROC| Cmdd%:.|
|00003410| 20 20 4d 6f 64 65 5f 53 | 65 74 32 3a 06 45 4e 44 |  Mode_S|et2:.END|
|00003420| 50 06 06 52 45 4d 20 2e | 69 6e 69 20 46 69 6c 65 |P..REM .|ini File|
|00003430| 20 4d 61 6e 61 67 65 6d | 65 6e 74 06 52 45 4d 20 | Managem|ent.REM |
|00003440| 2d 3d 2d 3d 2d 3d 2d 3d | 2d 3d 2d 3d 2d 3d 2d 3d |-=-=-=-=|-=-=-=-=|
|00003450| 2d 3d 2d 3d 06 06 52 45 | 4d 20 64 65 66 61 75 6c |-=-=..RE|M defaul|
|00003460| 74 20 76 61 6c 75 65 73 | 20 66 6f 72 20 70 72 65 |t values| for pre|
|00003470| 66 65 72 65 6e 63 65 73 | 20 77 68 65 6e 20 74 68 |ferences| when th|
|00003480| 65 06 52 45 4d 20 69 6e | 69 20 66 69 6c 65 20 64 |e.REM in|i file d|
|00003490| 6f 65 73 6e 27 74 20 65 | 78 69 73 74 20 6f 72 20 |oesn't e|xist or |
|000034a0| 77 68 65 6e 20 69 74 20 | 69 73 06 52 45 4d 20 63 |when it |is.REM c|
|000034b0| 6f 72 72 75 70 74 65 64 | 06 50 52 4f 43 20 49 6e |orrupted|.PROC In|
|000034c0| 69 46 69 6c 65 5f 44 65 | 66 61 75 6c 74 3a 06 09 |iFile_De|fault:..|
|000034d0| 67 54 6f 6f 6c 62 61 72 | 25 3d 4b 46 61 6c 73 65 |gToolbar|%=KFalse|
|000034e0| 25 06 09 67 4d 6f 64 65 | 31 25 3d 31 06 09 67 4d |%..gMode|1%=1..gM|
|000034f0| 6f 64 65 32 25 3d 30 06 | 09 67 54 46 6f 6e 74 25 |ode2%=0.|.gTFont%|
|00003500| 3d 31 06 09 67 5a 6f 6f | 6d 25 3d 31 06 45 4e 44 |=1..gZoo|m%=1.END|
|00003510| 50 06 06 52 45 4d 20 6c | 6f 61 64 20 74 68 65 20 |P..REM l|oad the |
|00003520| 70 72 65 66 65 72 65 6e | 63 65 73 20 66 72 6f 6d |preferen|ces from|
|00003530| 20 74 68 65 20 69 6e 69 | 20 66 69 6c 65 06 50 52 | the ini| file.PR|
|00003540| 4f 43 20 49 6e 69 46 69 | 6c 65 5f 4c 6f 61 64 3a |OC IniFi|le_Load:|
|00003550| 06 09 49 46 20 45 58 49 | 53 54 20 28 67 50 61 74 |..IF EXI|ST (gPat|
|00003560| 68 24 2b 49 6e 69 46 69 | 6c 65 24 29 06 09 09 54 |h$+IniFi|le$)...T|
|00003570| 52 41 50 20 4f 50 45 4e | 20 67 50 61 74 68 24 2b |RAP OPEN| gPath$+|
|00003580| 49 6e 69 46 69 6c 65 24 | 2c 41 2c 74 62 25 2c 6d |IniFile$|,A,tb%,m|
|00003590| 31 25 2c 6d 32 25 2c 74 | 66 25 2c 7a 25 06 09 09 |1%,m2%,t|f%,z%...|
|000035a0| 49 46 20 45 52 52 20 3d | 20 4e 6f 45 72 72 25 06 |IF ERR =| NoErr%.|
|000035b0| 09 09 09 67 54 6f 6f 6c | 62 61 72 25 3d 41 2e 74 |...gTool|bar%=A.t|
|000035c0| 62 25 06 09 09 09 67 4d | 6f 64 65 31 25 3d 41 2e |b%....gM|ode1%=A.|
|000035d0| 6d 31 25 06 09 09 09 67 | 4d 6f 64 65 32 25 3d 41 |m1%....g|Mode2%=A|
|000035e0| 2e 6d 32 25 06 09 09 09 | 67 54 46 6f 6e 74 25 3d |.m2%....|gTFont%=|
|000035f0| 41 2e 74 66 25 06 09 09 | 09 67 5a 6f 6f 6d 25 3d |A.tf%...|.gZoom%=|
|00003600| 41 2e 7a 25 06 09 09 09 | 43 4c 4f 53 45 06 09 09 |A.z%....|CLOSE...|
|00003610| 09 52 45 54 55 52 4e 06 | 09 09 45 4e 44 49 46 06 |.RETURN.|..ENDIF.|
|00003620| 09 45 4e 44 49 46 06 09 | 49 6e 69 46 69 6c 65 5f |.ENDIF..|IniFile_|
|00003630| 44 65 66 61 75 6c 74 3a | 06 45 4e 44 50 06 06 52 |Default:|.ENDP..R|
|00003640| 45 4d 20 73 61 76 65 20 | 74 68 65 20 70 72 65 66 |EM save |the pref|
|00003650| 65 72 65 6e 63 65 73 20 | 74 6f 20 74 68 65 20 69 |erences |to the i|
|00003660| 6e 69 20 66 69 6c 65 06 | 50 52 4f 43 20 49 6e 69 |ni file.|PROC Ini|
|00003670| 46 69 6c 65 5f 53 61 76 | 65 3a 06 09 54 52 41 50 |File_Sav|e:..TRAP|
|00003680| 20 44 45 4c 45 54 45 20 | 67 50 61 74 68 24 2b 49 | DELETE |gPath$+I|
|00003690| 6e 69 46 69 6c 65 24 06 | 09 43 52 45 41 54 45 20 |niFile$.|.CREATE |
|000036a0| 67 50 61 74 68 24 2b 49 | 6e 69 46 69 6c 65 24 2c |gPath$+I|niFile$,|
|000036b0| 41 2c 74 62 25 2c 6d 31 | 25 2c 6d 32 25 2c 74 66 |A,tb%,m1|%,m2%,tf|
|000036c0| 25 2c 7a 25 06 09 41 2e | 74 62 25 3d 67 54 6f 6f |%,z%..A.|tb%=gToo|
|000036d0| 6c 62 61 72 25 06 09 41 | 2e 6d 31 25 3d 67 4d 6f |lbar%..A|.m1%=gMo|
|000036e0| 64 65 31 25 06 09 41 2e | 6d 32 25 3d 67 4d 6f 64 |de1%..A.|m2%=gMod|
|000036f0| 65 32 25 06 09 41 2e 74 | 66 25 3d 67 54 46 6f 6e |e2%..A.t|f%=gTFon|
|00003700| 74 25 06 09 41 2e 7a 25 | 3d 67 5a 6f 6f 6d 25 06 |t%..A.z%|=gZoom%.|
|00003710| 09 41 50 50 45 4e 44 06 | 09 43 4c 4f 53 45 06 45 |.APPEND.|.CLOSE.E|
|00003720| 4e 44 50 06 06 52 45 4d | 20 4d 6f 64 65 20 4d 61 |NDP..REM| Mode Ma|
|00003730| 6e 61 67 65 6d 65 6e 74 | 06 52 45 4d 20 2d 3d 2d |nagement|.REM -=-|
|00003740| 3d 2d 3d 2d 3d 2d 3d 2d | 3d 2d 3d 2d 06 06 50 52 |=-=-=-=-|=-=-..PR|
|00003750| 4f 43 20 4d 6f 64 65 5f | 53 65 74 31 3a 06 09 49 |OC Mode_|Set1:..I|
|00003760| 46 20 67 4d 6f 64 65 31 | 25 20 3c 3e 20 31 06 09 |F gMode1|% <> 1..|
|00003770| 09 67 4d 6f 64 65 31 25 | 3d 31 06 09 09 67 4d 6f |.gMode1%|=1...gMo|
|00003780| 64 65 32 25 3d 30 06 09 | 09 54 6f 6f 6c 42 61 72 |de2%=0..|.ToolBar|
|00003790| 5f 4d 6f 64 65 3a 06 09 | 09 44 72 61 77 5f 41 6c |_Mode:..|.Draw_Al|
|000037a0| 6c 3a 06 09 45 4e 44 49 | 46 06 45 4e 44 50 06 06 |l:..ENDI|F.ENDP..|
|000037b0| 50 52 4f 43 20 4d 6f 64 | 65 5f 53 65 74 32 3a 06 |PROC Mod|e_Set2:.|
|000037c0| 09 49 46 20 67 4d 6f 64 | 65 32 25 20 3c 3e 20 31 |.IF gMod|e2% <> 1|
|000037d0| 06 09 09 67 4d 6f 64 65 | 32 25 3d 31 06 09 09 67 |...gMode|2%=1...g|
|000037e0| 4d 6f 64 65 31 25 3d 30 | 06 09 09 54 6f 6f 6c 42 |Mode1%=0|...ToolB|
|000037f0| 61 72 5f 4d 6f 64 65 3a | 06 09 09 44 72 61 77 5f |ar_Mode:|...Draw_|
|00003800| 41 6c 6c 3a 06 09 45 4e | 44 49 46 06 45 4e 44 50 |All:..EN|DIF.ENDP|
|00003810| 06 06 52 45 4d 20 46 69 | 6c 65 20 4d 61 6e 61 67 |..REM Fi|le Manag|
|00003820| 65 6d 65 6e 74 06 52 45 | 4d 20 2d 3d 2d 3d 2d 3d |ement.RE|M -=-=-=|
|00003830| 2d 3d 2d 3d 2d 3d 2d 3d | 2d 06 06 52 45 4d 20 4f |-=-=-=-=|-..REM O|
|00003840| 70 65 6e 20 61 20 65 78 | 69 73 74 69 6e 67 20 66 |pen a ex|isting f|
|00003850| 69 6c 65 06 50 52 4f 43 | 20 46 69 6c 65 5f 53 65 |ile.PROC| File_Se|
|00003860| 74 3a 28 77 24 29 06 45 | 4e 44 50 06 06 52 45 4d |t:(w$).E|NDP..REM|
|00003870| 20 4f 70 65 6e 20 74 68 | 65 20 66 69 6c 65 20 6c | Open th|e file l|
|00003880| 61 73 74 20 6f 70 65 6e | 65 64 06 50 52 4f 43 20 |ast open|ed.PROC |
|00003890| 46 69 6c 65 5f 52 65 73 | 75 6d 65 3a 06 45 4e 44 |File_Res|ume:.END|
|000038a0| 50 06 06 52 45 4d 20 63 | 72 65 61 74 69 6f 6e 20 |P..REM c|reation |
|000038b0| 6f 66 20 61 20 6e 65 77 | 20 66 69 6c 65 06 50 52 |of a new| file.PR|
|000038c0| 4f 43 20 46 69 6c 65 5f | 43 72 65 61 74 65 3a 20 |OC File_|Create: |
|000038d0| 06 45 4e 44 50 06 06 52 | 45 4d 20 50 72 69 6e 74 |.ENDP..R|EM Print|
|000038e0| 69 6e 67 20 4d 61 6e 61 | 67 65 6d 65 6e 74 06 52 |ing Mana|gement.R|
|000038f0| 45 4d 20 2d 3d 2d 3d 2d | 3d 2d 3d 2d 3d 2d 3d 2d |EM -=-=-|=-=-=-=-|
|00003900| 3d 2d 3d 2d 3d 2d 06 06 | 52 45 4d 20 50 72 69 6e |=-=-=-..|REM Prin|
|00003910| 74 69 6e 67 06 50 52 4f | 43 20 50 72 69 6e 74 5f |ting.PRO|C Print_|
|00003920| 57 72 69 74 65 3a 06 09 | 52 45 4d 20 69 6e 69 74 |Write:..|REM init|
|00003930| 69 61 6c 69 73 61 74 69 | 6f 6e 06 09 52 45 53 45 |ialisati|on..RESE|
|00003940| 54 50 52 49 4e 54 49 4e | 47 3a 06 09 53 45 54 46 |TPRINTIN|G:..SETF|
|00003950| 4f 4e 54 4e 41 4d 45 3a | 28 22 43 6f 75 72 69 65 |ONTNAME:|("Courie|
|00003960| 72 22 29 06 09 53 45 54 | 46 4f 4e 54 48 45 49 47 |r")..SET|FONTHEIG|
|00003970| 48 54 3a 28 31 32 29 06 | 06 09 52 45 4d 20 77 72 |HT:(12).|..REM wr|
|00003980| 69 74 65 20 6f 6e 20 70 | 61 67 65 28 73 29 06 09 |ite on p|age(s)..|
|00003990| 53 45 4e 44 53 54 52 49 | 4e 47 54 4f 50 52 49 4e |SENDSTRI|NGTOPRIN|
|000039a0| 54 45 52 3a 28 22 54 65 | 73 74 20 64 27 69 6d 70 |TER:("Te|st d'imp|
|000039b0| 72 65 73 73 69 6f 6e 22 | 29 06 09 53 45 4e 44 4e |ression"|)..SENDN|
|000039c0| 45 57 50 41 52 41 54 4f | 50 52 49 4e 54 45 52 3a |EWPARATO|PRINTER:|
|000039d0| 06 45 4e 44 50 06 06 52 | 45 4d 20 4d 65 6e 75 20 |.ENDP..R|EM Menu |
|000039e0| 46 69 6c 65 20 2f 20 50 | 72 69 6e 74 69 6e 67 20 |File / P|rinting |
|000039f0| 2f 20 50 61 67 65 20 73 | 65 74 75 70 85 06 50 52 |/ Page s|etup..PR|
|00003a00| 4f 43 20 50 72 69 6e 74 | 5f 50 61 67 65 53 65 74 |OC Print|_PageSet|
|00003a10| 75 70 3a 06 09 50 61 67 | 65 53 65 74 75 70 44 69 |up:..Pag|eSetupDi|
|00003a20| 61 6c 6f 67 3a 06 45 4e | 44 50 06 06 52 45 4d 20 |alog:.EN|DP..REM |
|00003a30| 4d 65 6e 75 20 46 69 6c | 65 20 2f 20 50 72 69 6e |Menu Fil|e / Prin|
|00003a40| 74 69 6e 67 20 2f 20 50 | 72 69 6e 74 20 73 65 74 |ting / P|rint set|
|00003a50| 75 70 85 06 50 52 4f 43 | 20 50 72 69 6e 74 5f 53 |up..PROC| Print_S|
|00003a60| 65 74 75 70 3a 06 09 50 | 72 69 6e 74 52 61 6e 67 |etup:..P|rintRang|
|00003a70| 65 44 69 61 6c 6f 67 3a | 06 45 4e 44 50 06 06 52 |eDialog:|.ENDP..R|
|00003a80| 45 4d 20 4d 65 6e 75 20 | 46 69 6c 65 20 2f 20 50 |EM Menu |File / P|
|00003a90| 72 69 6e 74 69 6e 67 20 | 2f 20 50 72 69 6e 74 20 |rinting |/ Print |
|00003aa0| 70 72 65 76 69 65 77 85 | 06 50 52 4f 43 20 50 72 |preview.|.PROC Pr|
|00003ab0| 69 6e 74 5f 50 72 65 76 | 69 65 77 3a 06 09 4f 4e |int_Prev|iew:..ON|
|00003ac0| 45 52 52 20 43 6d 64 53 | 76 71 75 69 74 3a 3a 06 |ERR CmdS|vquit::.|
|00003ad0| 09 50 72 69 6e 74 5f 57 | 72 69 74 65 3a 20 3a 20 |.Print_W|rite: : |
|00003ae0| 50 72 69 6e 74 50 72 65 | 76 69 65 77 44 69 61 6c |PrintPre|viewDial|
|00003af0| 6f 67 3a 06 09 4f 4e 45 | 52 52 20 4f 46 46 20 3a |og:..ONE|RR OFF :|
|00003b00| 20 52 45 54 55 52 4e 06 | 06 09 43 6d 64 53 76 71 | RETURN.|..CmdSvq|
|00003b10| 75 69 74 3a 3a 06 09 4f | 4e 45 52 52 20 4f 46 46 |uit::..O|NERR OFF|
|00003b20| 06 09 67 69 50 52 49 4e | 54 20 22 50 72 69 6e 74 |..giPRIN|T "Print|
|00003b30| 65 72 20 6e 6f 74 20 63 | 6f 6e 6e 65 63 74 65 64 |er not c|onnected|
|00003b40| 22 20 3a 50 41 55 53 45 | 20 32 30 06 45 4e 44 50 |" :PAUSE| 20.ENDP|
|00003b50| 06 06 52 45 4d 20 46 69 | 6c 65 20 2f 20 50 72 69 |..REM Fi|le / Pri|
|00003b60| 6e 74 69 6e 67 20 2f 20 | 50 72 69 6e 74 85 06 50 |nting / |Print..P|
|00003b70| 52 4f 43 20 50 72 69 6e | 74 5f 50 72 69 6e 74 3a |ROC Prin|t_Print:|
|00003b80| 06 09 4f 4e 45 52 52 20 | 43 6d 64 70 51 75 69 74 |..ONERR |CmdpQuit|
|00003b90| 3a 3a 06 09 50 72 69 6e | 74 5f 57 72 69 74 65 3a |::..Prin|t_Write:|
|00003ba0| 20 3a 20 50 72 69 6e 74 | 44 69 61 6c 6f 67 3a 06 | : Print|Dialog:.|
|00003bb0| 09 4f 4e 45 52 52 20 4f | 46 46 20 3a 20 52 45 54 |.ONERR O|FF : RET|
|00003bc0| 55 52 4e 06 06 09 43 6d | 64 70 51 75 69 74 3a 3a |URN...Cm|dpQuit::|
|00003bd0| 06 09 4f 4e 45 52 52 20 | 4f 46 46 06 09 67 69 50 |..ONERR |OFF..giP|
|00003be0| 52 49 4e 54 20 22 50 72 | 69 6e 74 65 72 20 6e 6f |RINT "Pr|inter no|
|00003bf0| 74 20 63 6f 6e 6e 65 63 | 74 65 64 22 06 45 4e 44 |t connec|ted".END|
|00003c00| 50 06 06 52 45 4d 20 50 | 72 65 66 65 72 65 6e 63 |P..REM P|referenc|
|00003c10| 65 73 20 4d 61 6e 61 67 | 65 6d 65 6e 74 06 52 45 |es Manag|ement.RE|
|00003c20| 4d 20 2d 3d 2d 3d 2d 3d | 2d 3d 2d 3d 2d 3d 2d 3d |M -=-=-=|-=-=-=-=|
|00003c30| 2d 3d 2d 3d 2d 3d 2d 3d | 06 06 52 45 4d 20 44 69 |-=-=-=-=|..REM Di|
|00003c40| 73 70 6c 61 79 20 74 68 | 65 20 70 72 65 66 65 72 |splay th|e prefer|
|00003c50| 65 6e 63 65 20 64 69 61 | 6c 6f 67 06 50 52 4f 43 |ence dia|log.PROC|
|00003c60| 20 50 72 65 66 5f 44 69 | 73 70 3a 06 09 4c 4f 43 | Pref_Di|sp:..LOC|
|00003c70| 41 4c 20 72 25 2c 6f 6c | 64 25 06 06 09 6f 6c 64 |AL r%,ol|d%...old|
|00003c80| 25 3d 67 54 46 6f 6e 74 | 25 06 09 64 49 4e 49 54 |%=gTFont|%..dINIT|
|00003c90| 20 4e 6f 6d 41 70 70 6c | 69 24 2b 22 20 70 72 65 | NomAppl|i$+" pre|
|00003ca0| 66 65 72 65 6e 63 65 73 | 22 06 09 64 43 48 4f 49 |ferences|"..dCHOI|
|00003cb0| 43 45 20 67 54 46 6f 6e | 74 25 2c 22 46 6f 6e 74 |CE gTFon|t%,"Font|
|00003cc0| 22 2c 22 41 72 69 61 6c | 2c 54 69 6d 65 73 2c 43 |","Arial|,Times,C|
|00003cd0| 6f 75 72 69 65 72 22 06 | 09 64 42 55 54 54 4f 4e |ourier".|.dBUTTON|
|00003ce0| 53 20 22 43 61 6e 63 65 | 6c 22 2c 4b 44 42 75 74 |S "Cance|l",KDBut|
|00003cf0| 74 6f 6e 45 73 63 25 20 | 4f 52 20 4b 44 42 75 74 |tonEsc% |OR KDBut|
|00003d00| 74 6f 6e 4e 6f 4c 61 62 | 65 6c 25 20 4f 52 20 4b |tonNoLab|el% OR K|
|00003d10| 44 42 75 74 74 6f 6e 50 | 6c 61 69 6e 4b 65 79 25 |DButtonP|lainKey%|
|00003d20| 2c 22 59 65 73 22 2c 4b | 44 42 75 74 74 6f 6e 45 |,"Yes",K|DButtonE|
|00003d30| 6e 74 65 72 25 20 4f 52 | 20 4b 44 42 75 74 74 6f |nter% OR| KDButto|
|00003d40| 6e 4e 6f 4c 61 62 65 6c | 25 20 4f 52 20 4b 44 42 |nNoLabel|% OR KDB|
|00003d50| 75 74 74 6f 6e 50 6c 61 | 69 6e 4b 65 79 25 06 09 |uttonPla|inKey%..|
|00003d60| 4c 4f 43 4b 20 4f 4e 20 | 3a 72 25 3d 44 49 41 4c |LOCK ON |:r%=DIAL|
|00003d70| 4f 47 20 3a 4c 4f 43 4b | 20 4f 46 46 06 09 49 46 |OG :LOCK| OFF..IF|
|00003d80| 20 72 25 3d 4b 44 42 75 | 74 74 6f 6e 45 6e 74 65 | r%=KDBu|ttonEnte|
|00003d90| 72 25 06 09 09 49 46 20 | 6f 6c 64 25 20 3c 3e 20 |r%...IF |old% <> |
|00003da0| 67 54 46 6f 6e 74 25 06 | 09 09 09 5a 6f 6f 6d 5f |gTFont%.|...Zoom_|
|00003db0| 53 65 74 3a 28 67 5a 6f | 6f 6d 25 29 06 09 09 09 |Set:(gZo|om%)....|
|00003dc0| 44 72 61 77 5f 54 69 6d | 65 3a 06 09 09 45 4e 44 |Draw_Tim|e:...END|
|00003dd0| 49 46 06 09 45 4e 44 49 | 46 06 45 4e 44 50 06 06 |IF..ENDI|F.ENDP..|
|00003de0| 52 45 4d 20 48 65 6c 70 | 20 4d 61 6e 61 67 65 6d |REM Help| Managem|
|00003df0| 65 6e 74 06 52 45 4d 20 | 2d 3d 2d 3d 2d 3d 2d 3d |ent.REM |-=-=-=-=|
|00003e00| 2d 3d 2d 3d 2d 3d 2d 06 | 06 52 45 4d 10 4d 65 6e |-=-=-=-.|.REM.Men|
|00003e10| 75 3a 20 54 6f 6f 6c 73 | 20 2f 20 41 62 6f 75 74 |u: Tools| / About|
|00003e20| 06 50 52 4f 43 20 48 65 | 6c 70 5f 41 62 6f 75 74 |.PROC He|lp_About|
|00003e30| 3a 06 09 64 49 4e 49 54 | 20 22 47 65 6e 65 72 69 |:..dINIT| "Generi|
|00003e40| 63 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 28 46 |c applic|ation (F|
|00003e50| 72 65 65 77 61 72 65 29 | 22 06 09 64 54 45 58 54 |reeware)|"..dTEXT|
|00003e60| 20 22 41 75 74 68 6f 72 | 3a 22 2c 22 20 44 69 64 | "Author|:"," Did|
|00003e70| 69 65 72 20 43 41 42 55 | 5a 45 4c 22 06 09 64 54 |ier CABU|ZEL"..dT|
|00003e80| 45 58 54 20 22 45 6d 61 | 69 6c 3a 22 2c 22 64 69 |EXT "Ema|il:","di|
|00003e90| 64 69 65 72 40 63 61 62 | 75 7a 65 6c 2e 63 6f 6d |dier@cab|uzel.com|
|00003ea0| 22 06 09 64 54 45 58 54 | 20 22 56 65 72 73 69 6f |"..dTEXT| "Versio|
|00003eb0| 6e 3a 22 2c 22 31 2e 30 | 22 06 09 64 54 45 58 54 |n:","1.0|"..dTEXT|
|00003ec0| 20 22 44 61 74 65 3a 22 | 2c 22 30 38 2f 4f 63 74 | "Date:"|,"08/Oct|
|00003ed0| 2f 31 39 39 37 22 06 09 | 64 42 55 54 54 4f 4e 53 |/1997"..|dBUTTONS|
|00003ee0| 20 22 43 6c 6f 73 65 22 | 2c 4b 44 42 75 74 74 6f | "Close"|,KDButto|
|00003ef0| 6e 45 6e 74 65 72 25 20 | 4f 52 20 4b 44 42 75 74 |nEnter% |OR KDBut|
|00003f00| 74 6f 6e 4e 6f 4c 61 62 | 65 6c 25 20 4f 52 20 4b |tonNoLab|el% OR K|
|00003f10| 44 42 75 74 74 6f 6e 50 | 6c 61 69 6e 4b 65 79 25 |DButtonP|lainKey%|
|00003f20| 06 09 4c 4f 43 4b 20 4f | 4e 20 3a 44 49 41 4c 4f |..LOCK O|N :DIALO|
|00003f30| 47 20 3a 4c 4f 43 4b 20 | 4f 46 46 06 45 4e 44 50 |G :LOCK |OFF.ENDP|
|00003f40| 06 06 52 45 4d 10 4d 65 | 6e 75 20 54 6f 6f 6c 73 |..REM.Me|nu Tools|
|00003f50| 20 2f 20 48 65 6c 70 20 | 61 6e 64 20 54 6f 6f 6c | / Help |and Tool|
|00003f60| 62 61 72 20 42 75 74 74 | 6f 6e 06 50 52 4f 43 20 |bar Butt|on.PROC |
|00003f70| 48 65 6c 70 5f 44 69 73 | 70 3a 06 09 4c 4f 43 41 |Help_Dis|p:..LOCA|
|00003f80| 4c 20 48 65 6c 70 46 69 | 6c 65 24 28 32 35 35 29 |L HelpFi|le$(255)|
|00003f90| 06 06 09 48 65 6c 70 66 | 69 6c 65 24 3d 67 50 61 |...Helpf|ile$=gPa|
|00003fa0| 74 68 24 2b 4e 6f 6d 41 | 70 70 6c 69 24 2b 22 2e |th$+NomA|ppli$+".|
|00003fb0| 68 6c 70 22 06 09 49 46 | 20 45 58 49 53 54 20 28 |hlp"..IF| EXIST (|
|00003fc0| 68 65 6c 70 66 69 6c 65 | 24 29 06 09 09 49 46 20 |helpfile|$)...IF |
|00003fd0| 67 54 68 72 65 61 64 26 | 3c 3e 30 06 09 09 09 4f |gThread&|<>0....O|
|00003fe0| 4e 45 52 52 20 48 65 6c | 70 4e 6f 74 6f 70 65 6e |NERR Hel|pNotopen|
|00003ff0| 3a 3a 06 09 09 09 53 45 | 54 46 4f 52 45 47 52 4f |::....SE|TFOREGRO|
|00004000| 55 4e 44 42 59 54 48 52 | 45 41 44 26 3a 28 67 54 |UNDBYTHR|EAD&:(gT|
|00004010| 68 72 65 61 64 26 2c 30 | 29 06 09 09 45 4c 53 45 |hread&,0|)...ELSE|
|00004020| 06 09 09 09 48 65 6c 70 | 4e 6f 74 6f 70 65 6e 3a |....Help|Notopen:|
|00004030| 3a 06 09 09 09 4f 4e 45 | 52 52 20 4f 46 46 06 09 |:....ONE|RR OFF..|
|00004040| 09 09 67 54 68 72 65 61 | 64 26 3d 52 55 4e 41 50 |..gThrea|d&=RUNAP|
|00004050| 50 26 3a 28 22 44 61 74 | 61 22 2c 48 65 6c 70 66 |P&:("Dat|a",Helpf|
|00004060| 69 6c 65 24 2c 22 22 2c | 30 29 06 09 09 45 4e 44 |ile$,"",|0)...END|
|00004070| 49 46 06 09 45 4c 53 45 | 06 09 09 47 49 50 52 49 |IF..ELSE|...GIPRI|
|00004080| 4e 54 20 22 48 65 6c 70 | 20 66 69 6c 65 20 6e 6f |NT "Help| file no|
|00004090| 74 20 66 6f 75 6e 64 22 | 06 09 45 4e 44 49 46 06 |t found"|..ENDIF.|
|000040a0| 45 4e 44 50 06 06 52 45 | 4d 20 4b 69 6c 6c 73 20 |ENDP..RE|M Kills |
|000040b0| 74 68 65 20 68 65 6c 70 | 20 74 61 73 6b 2c 20 69 |the help| task, i|
|000040c0| 66 20 69 74 20 65 78 69 | 73 74 73 06 50 52 4f 43 |f it exi|sts.PROC|
|000040d0| 20 48 65 6c 70 5f 45 6e | 64 3a 06 09 49 46 20 67 | Help_En|d:..IF g|
|000040e0| 54 68 72 65 61 64 26 3c | 3e 30 09 09 52 45 4d 20 |Thread&<|>0..REM |
|000040f0| 6b 69 6c 6c 20 68 65 6c | 70 20 74 68 72 65 61 64 |kill hel|p thread|
|00004100| 06 09 09 4f 4e 45 52 52 | 20 45 6e 64 41 6e 79 77 |...ONERR| EndAnyw|
|00004110| 61 79 3a 3a 06 09 09 45 | 4e 44 54 41 53 4b 26 3a |ay::...E|NDTASK&:|
|00004120| 28 67 54 68 72 65 61 64 | 26 2c 30 29 06 09 45 4e |(gThread|&,0)..EN|
|00004130| 44 49 46 06 09 45 6e 64 | 41 6e 79 77 61 79 3a 3a |DIF..End|Anyway::|
|00004140| 06 45 4e 44 50 06 06 01 | 00 00 00 00 00 00 00 01 |.ENDP...|........|
|00004150| 00 00 00 00 00 00 00 01 | 00 00 00 d0 02 00 00 d0 |........|........|
|00004160| 02 00 00 a0 05 00 00 a0 | 05 00 00 a0 05 00 00 a0 |........|........|
|00004170| 05 00 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004180| 5c 00 00 10 63 00 00 10 | 1b 3d 00 00 65 00 00 10 |\...c...|.=..e...|
|00004190| 00 00 00 00 66 00 00 10 | 00 00 00 00 64 00 00 10 |....f...|....d...|
|000041a0| 02 06 01 00 00 00 00 00 | 00 00 00 00 00 00 00 5c |........|.......\|
|000041b0| 00 00 10 63 00 00 10 23 | 3d 00 00 65 00 00 10 00 |...c...#|=..e....|
|000041c0| 00 00 00 66 00 00 10 00 | 00 00 00 64 00 00 10 02 |...f....|...d....|
|000041d0| 06 6a 01 00 10 d0 2f 00 | 00 e0 3d 00 00 00 85 00 |.j..../.|..=.....|
|000041e0| 00 10 2a 54 65 78 74 45 | 64 2e 61 70 70 06 85 00 |..*TextE|d.app...|
|000041f0| 00 10 14 00 00 00 05 01 | 00 10 2b 3d 00 00 89 00 |........|..+=....|
|00004200| 00 10 b2 3d 00 00 54 68 | 69 73 20 53 49 53 2d 66 |...=..Th|is SIS-f|
|00004210| 69 6c 65 20 69 73 20 64 | 65 73 69 67 6e 65 64 20 |ile is d|esigned |
|00004220| 66 72 6f 6d 20 42 49 53 | 4f 4e 20 53 6f 66 74 77 |from BIS|ON Softw|
|00004230| 61 72 65 2e 20 0d 0a 42 | 69 73 6f 6e 20 53 6f 66 |are. ..B|ison Sof|
|00004240| 74 77 61 72 65 20 64 6f | 65 73 6e 27 74 20 61 63 |tware do|esn't ac|
|00004250| 63 65 70 74 20 61 6e 79 | 20 6c 69 61 62 69 6c 69 |cept any| liabili|
|00004260| 74 79 20 66 6f 72 20 74 | 68 65 20 0d 0a 66 75 6e |ty for t|he ..fun|
|00004270| 63 74 69 6f 6e 20 6f 66 | 20 74 68 65 20 70 72 6f |ction of| the pro|
|00004280| 67 72 61 6d 6d 65 20 74 | 6f 20 62 65 20 69 6e 73 |gramme t|o be ins|
|00004290| 74 61 6c 6c 65 64 2e 20 | 0d 0a 50 6c 65 61 73 65 |talled. |..Please|
|000042a0| 20 70 61 79 20 61 74 74 | 65 6e 74 69 6f 6e 20 74 | pay att|ention t|
|000042b0| 6f 20 74 68 65 20 63 6f | 6d 6d 65 6e 74 20 69 6e |o the co|mment in|
|000042c0| 20 74 68 65 20 52 45 41 | 44 4d 45 20 66 69 6c 65 | the REA|DME file|
|000042d0| 0d 0a 6f 66 20 74 68 65 | 20 41 75 74 68 6f 72 2e |..of the| Author.|
|000042e0| 0d 0a 42 65 66 6f 72 65 | 20 69 6e 73 74 61 6c 6c |..Before| install|
|000042f0| 69 6e 67 20 74 68 69 73 | 20 73 6f 66 74 77 61 72 |ing this| softwar|
|00004300| 65 20 70 6c 65 61 73 65 | 20 6d 61 6b 65 20 61 0d |e please| make a.|
|00004310| 0a 42 20 41 20 43 20 4b | 20 55 20 50 20 20 6f 66 |.B A C K| U P  of|
|00004320| 20 79 6f 75 72 20 50 73 | 69 6f 6e 20 53 65 72 69 | your Ps|ion Seri|
|00004330| 65 73 20 35 2e 0d 0a 48 | 61 76 65 20 61 20 6c 6f |es 5...H|ave a lo|
|00004340| 74 20 6f 66 20 66 75 6e | 21 0d 0a 0d 0a 44 69 65 |t of fun|!....Die|
|00004350| 73 65 20 53 49 53 2d 44 | 61 74 65 69 20 77 75 72 |se SIS-D|atei wur|
|00004360| 64 65 20 76 6f 6e 20 42 | 69 73 6f 6e 20 53 6f 66 |de von B|ison Sof|
|00004370| 74 77 61 72 65 20 65 72 | 73 74 65 6c 6c 74 2e 0d |tware er|stellt..|
|00004380| 0a 42 69 73 6f 6e 20 53 | 6f 66 74 77 61 72 65 20 |.Bison S|oftware |
|00004390| fc 62 65 72 6e 69 6d 6d | 74 20 6b 65 69 6e 65 72 |.bernimm|t keiner|
|000043a0| 6c 65 69 20 47 61 72 61 | 6e 74 69 65 20 66 fc 72 |lei Gara|ntie f.r|
|000043b0| 20 64 69 65 20 0d 0a 46 | 75 6e 6b 74 69 6f 6e 20 | die ..F|unktion |
|000043c0| 64 65 73 20 7a 75 20 69 | 6e 73 74 61 6c 6c 69 65 |des zu i|nstallie|
|000043d0| 72 65 6e 64 65 6e 20 50 | 72 6f 67 72 61 6d 6d 65 |renden P|rogramme|
|000043e0| 73 2e 20 0d 0a 42 69 74 | 74 65 20 62 65 61 63 68 |s. ..Bit|te beach|
|000043f0| 74 65 6e 20 53 69 65 20 | 64 69 65 20 48 69 6e 77 |ten Sie |die Hinw|
|00004400| 65 69 73 65 20 69 6e 20 | 64 65 72 20 52 45 41 44 |eise in |der READ|
|00004410| 4d 45 20 44 61 74 65 69 | 20 64 65 73 0d 0a 41 75 |ME Datei| des..Au|
|00004420| 74 6f 72 73 2e 0d 0a 42 | 65 76 6f 72 20 53 69 65 |tors...B|evor Sie|
|00004430| 20 64 61 73 20 50 72 6f | 67 72 61 6d 6d 20 69 6e | das Pro|gramm in|
|00004440| 73 74 61 6c 6c 69 65 72 | 65 6e 20 6d 61 63 68 65 |stallier|en mache|
|00004450| 6e 20 53 69 65 20 65 69 | 6e 20 20 0d 0a 42 20 41 |n Sie ei|n  ..B A|
|00004460| 20 43 20 4b 20 55 20 50 | 20 20 49 68 72 65 73 20 | C K U P|  Ihres |
|00004470| 50 73 69 6f 6e 20 53 65 | 72 69 65 20 35 2e 0d 0a |Psion Se|rie 5...|
|00004480| 56 69 65 6c 20 53 70 61 | df 21 0d 0a 0d 0a       |Viel Spa|.!....  |
+--------+-------------------------+-------------------------+--------+--------+