home *** CD-ROM | disk | FTP | other *** search
Unknown | 1994-01-17 | 5.8 KB |
open in:
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence | Program | Detection | Match Type | Support
|
---|
1%
| dexvert
| Alchemy Mindworks Resource (other/alchemyMindworksResource)
| ext
| Unsupported |
1%
| dexvert
| DAZ Pack game data archive (other/dazPackGameDataArchive)
| ext
| Unsupported |
1%
| dexvert
| Depth Dwellers Resource/game data (other/depthDwellersGameData)
| ext
| Unsupported |
1%
| dexvert
| Intelligent Games resource data (other/intelligentGamesResourceData)
| ext
| Unsupported |
1%
| dexvert
| The Software Toolworks resources archive (other/theSoftwareToolworksResourcesArchive)
| ext
| Unsupported |
1%
| dexvert
| T-Resource game data container (other/tResourceGameDataContainer)
| ext
| Unsupported |
1%
| dexvert
| AESOP engine Resource data (other/aesopEngineResourceData)
| ext
| Unsupported |
1%
| dexvert
| CINEMA 4D Layout (other/cinema4DLayout)
| ext
| Unsupported |
1%
| dexvert
| COL Format 256 Color palette (other/colFormatColorPalette)
| ext
| Unsupported |
1%
| dexvert
| Digimon Rumble Arena 2 game data archive (other/digimonRumbleArena2GameDataArchive)
| ext
| Unsupported |
1%
| dexvert
| Godot Resource data (other/godotResourceData)
| ext
| Unsupported |
1%
| dexvert
| M.A.X. game data archive (other/maxGameDataArchive)
| ext
| Unsupported |
1%
| dexvert
| Project IGI Resource data (other/projectIGIResourceData)
| ext
| Unsupported |
1%
| dexvert
| SCream Engine resource data (other/screamEngineResourceData)
| ext
| Unsupported |
100%
| file
| data
| default
| |
100%
| TrID
| MP3 audio
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff 00 dc ff 01 00 30 10 | 78 00 00 00 64 00 00 00 |......0.|x...d...|
|00000010| 04 63 61 6c 63 76 00 04 | 00 06 52 65 73 75 6c 74 |.calcv..|..Result|
|00000020| 65 00 01 00 00 66 00 01 | 00 00 67 00 01 00 00 73 |e....f..|..g....s|
|00000030| 00 01 00 00 70 00 01 00 | 00 6a 00 01 00 00 69 00 |....p...|.j....i.|
|00000040| 01 00 00 68 00 01 00 00 | 74 00 01 00 00 77 00 01 |...h....|t....w..|
|00000050| 00 00 6d 00 01 00 00 6c | 00 01 00 00 6b 00 01 00 |..m....l|....k...|
|00000060| 00 72 00 01 00 00 79 00 | 01 00 00 6e 00 01 00 00 |.r....y.|...n....|
|00000070| 6f 00 01 00 00 71 00 01 | 00 00 78 00 01 00 00 75 |o....q..|..x....u|
|00000080| 00 10 00 00 ff 01 dc ff | 01 00 30 10 b5 10 00 00 |........|..0.....|
|00000090| 0f 5f 44 72 73 41 69 64 | 65 49 6e 69 41 70 70 5f |._DrsAid|eIniApp_|
|000000a0| f5 04 2f 2a 20 53 6f 75 | 72 63 65 20 66 69 6c 65 |../* Sou|rce file|
|000000b0| 3a 20 46 3a 5c 44 72 44 | 69 61 6c 6f 67 5c 44 72 |: F:\DrD|ialog\Dr|
|000000c0| 52 65 78 78 5c 44 72 73 | 41 69 64 65 2e 52 58 4c |Rexx\Drs|Aide.RXL|
|000000d0| 20 2a 2f 0d 0a 2f 2a 20 | 46 69 6c 65 20 6c 61 73 | */../* |File las|
|000000e0| 74 20 6d 6f 64 69 66 69 | 65 64 20 6f 6e 3a 20 20 |t modifi|ed on: |
|000000f0| 20 20 20 20 20 20 20 30 | 31 2f 30 36 2f 39 34 20 | 0|1/06/94 |
|00000100| 61 74 20 30 35 3a 34 35 | 70 6d 20 2a 2f 0d 0a 2f |at 05:45|pm */../|
|00000110| 2a 20 50 72 6f 63 65 64 | 75 72 65 20 61 64 64 65 |* Proced|ure adde|
|00000120| 64 20 74 6f 20 6c 69 62 | 72 61 72 79 20 6f 6e 3a |d to lib|rary on:|
|00000130| 20 30 31 2f 30 36 2f 39 | 34 20 61 74 20 30 35 3a | 01/06/9|4 at 05:|
|00000140| 34 36 70 6d 20 2a 2f 0d | 0a 2f 2a 20 50 72 6f 63 |46pm */.|./* Proc|
|00000150| 65 64 75 72 65 20 69 6d | 70 6f 72 74 65 64 20 6f |edure im|ported o|
|00000160| 6e 3a 20 20 20 20 20 20 | 20 20 20 30 31 2f 30 36 |n: | 01/06|
|00000170| 2f 39 34 20 61 74 20 30 | 36 3a 33 31 70 6d 20 2a |/94 at 0|6:31pm *|
|00000180| 2f 0d 0a 0d 0a 50 52 4f | 43 45 44 55 52 45 0d 0a |/....PRO|CEDURE..|
|00000190| 2f 2a 20 55 73 61 67 65 | 20 69 73 3a 20 69 6e 69 |/* Usage| is: ini|
|000001a0| 41 70 70 20 3d 20 5f 44 | 72 73 41 69 64 65 49 6e |App = _D|rsAideIn|
|000001b0| 69 41 70 70 5f 28 29 20 | 2a 2f 0d 0a 2f 2a 20 52 |iApp_() |*/../* R|
|000001c0| 65 74 75 72 6e 73 20 2e | 49 4e 49 20 66 69 6c 65 |eturns .|INI file|
|000001d0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 6b 65 79 | applica|tion key|
|000001e0| 20 6f 66 20 74 68 65 20 | 66 6f 72 6d 3a 20 66 69 | of the |form: fi|
|000001f0| 6c 65 3a 64 69 61 6c 6f | 67 20 2a 2f 0d 0a 20 20 |le:dialo|g */.. |
|00000200| 20 50 41 52 53 45 20 53 | 4f 55 52 43 45 20 2e 20 | PARSE S|OURCE . |
|00000210| 2e 20 69 6e 69 41 70 70 | 0d 0a 20 20 20 63 6f 6c |. iniApp|.. col|
|00000220| 20 3d 20 6c 61 73 74 70 | 6f 73 28 20 27 5c 27 2c | = lastp|os( '\',|
|00000230| 20 69 6e 69 41 70 70 20 | 29 0d 0a 20 20 20 49 46 | iniApp |).. IF|
|00000240| 20 63 6f 6c 20 3d 20 30 | 20 54 48 45 4e 20 63 6f | col = 0| THEN co|
|00000250| 6c 20 3d 20 6c 61 73 74 | 70 6f 73 28 20 27 3a 27 |l = last|pos( ':'|
|00000260| 2c 20 69 6e 69 41 70 70 | 20 29 0d 0a 20 20 20 69 |, iniApp| ).. i|
|00000270| 6e 69 41 70 70 20 3d 20 | 74 72 61 6e 73 6c 61 74 |niApp = |translat|
|00000280| 65 28 20 73 75 62 73 74 | 72 28 20 69 6e 69 41 70 |e( subst|r( iniAp|
|00000290| 70 2c 20 63 6f 6c 20 2b | 20 31 20 29 20 29 0d 0a |p, col +| 1 ) )..|
|000002a0| 20 20 20 63 6f 6c 20 20 | 20 20 3d 20 6c 61 73 74 | col | = last|
|000002b0| 70 6f 73 28 20 27 2e 27 | 2c 20 69 6e 69 41 70 70 |pos( '.'|, iniApp|
|000002c0| 20 29 0d 0a 20 20 20 49 | 46 20 63 6f 6c 20 3c 3e | ).. I|F col <>|
|000002d0| 20 30 20 54 48 45 4e 20 | 69 6e 69 41 70 70 20 3d | 0 THEN |iniApp =|
|000002e0| 20 6c 65 66 74 28 20 69 | 6e 69 41 70 70 2c 20 63 | left( i|niApp, c|
|000002f0| 6f 6c 20 2d 20 31 20 29 | 0d 0a 20 20 20 52 45 54 |ol - 1 )|.. RET|
|00000300| 55 52 4e 20 69 6e 69 41 | 70 70 27 3a 27 44 69 61 |URN iniA|pp':'Dia|
|00000310| 6c 6f 67 28 29 0d 0a 0d | 5f 44 72 73 41 69 64 65 |log()...|_DrsAide|
|00000320| 49 6e 69 74 5f e5 0a 2f | 2a 20 53 6f 75 72 63 65 |Init_../|* Source|
|00000330| 20 66 69 6c 65 3a 20 46 | 3a 5c 44 72 44 69 61 6c | file: F|:\DrDial|
|00000340| 6f 67 5c 44 72 52 65 78 | 78 5c 44 72 73 41 69 64 |og\DrRex|x\DrsAid|
|00000350| 65 2e 52 58 4c 20 2a 2f | 0d 0a 2f 2a 20 46 69 6c |e.RXL */|../* Fil|
|00000360| 65 20 6c 61 73 74 20 6d | 6f 64 69 66 69 65 64 20 |e last m|odified |
|00000370| 6f 6e 3a 20 20 20 20 20 | 20 20 20 20 30 31 2f 30 |on: | 01/0|
|00000380| 36 2f 39 34 20 61 74 20 | 30 35 3a 34 35 70 6d 20 |6/94 at |05:45pm |
|00000390| 2a 2f 0d 0a 2f 2a 20 50 | 72 6f 63 65 64 75 72 65 |*/../* P|rocedure|
|000003a0| 20 61 64 64 65 64 20 74 | 6f 20 6c 69 62 72 61 72 | added t|o librar|
|000003b0| 79 20 6f 6e 3a 20 30 31 | 2f 30 36 2f 39 34 20 61 |y on: 01|/06/94 a|
|000003c0| 74 20 30 35 3a 34 36 70 | 6d 20 2a 2f 0d 0a 2f 2a |t 05:46p|m */../*|
|000003d0| 20 50 72 6f 63 65 64 75 | 72 65 20 69 6d 70 6f 72 | Procedu|re impor|
|000003e0| 74 65 64 20 6f 6e 3a 20 | 20 20 20 20 20 20 20 20 |ted on: | |
|000003f0| 30 31 2f 30 36 2f 39 34 | 20 61 74 20 30 36 3a 33 |01/06/94| at 06:3|
|00000400| 31 70 6d 20 2a 2f 0d 0a | 0d 0a 50 52 4f 43 45 44 |1pm */..|..PROCED|
|00000410| 55 52 45 0d 0a 2f 2a 20 | 55 73 61 67 65 3a 20 72 |URE../* |Usage: r|
|00000420| 63 20 3d 20 5f 44 72 73 | 41 69 64 65 49 6e 69 74 |c = _Drs|AideInit|
|00000430| 28 20 68 77 6e 64 2c 20 | 69 6e 69 46 69 6c 65 20 |( hwnd, |iniFile |
|00000440| 5b 2c 20 64 69 61 6c 6f | 67 5d 20 5b 2c 20 62 69 |[, dialo|g] [, bi|
|00000450| 74 6d 61 70 5d 20 29 20 | 2a 2f 0d 0a 49 46 20 52 |tmap] ) |*/..IF R|
|00000460| 78 46 75 6e 63 51 75 65 | 72 79 28 20 27 53 79 73 |xFuncQue|ry( 'Sys|
|00000470| 4c 6f 61 64 46 75 6e 63 | 73 27 20 29 20 54 48 45 |LoadFunc|s' ) THE|
|00000480| 4e 20 44 4f 0d 0a 20 20 | 20 43 41 4c 4c 20 52 78 |N DO.. | CALL Rx|
|00000490| 46 75 6e 63 41 64 64 20 | 27 53 79 73 4c 6f 61 64 |FuncAdd |'SysLoad|
|000004a0| 46 75 6e 63 73 27 2c 20 | 27 52 65 78 78 55 74 69 |Funcs', |'RexxUti|
|000004b0| 6c 27 2c 20 27 53 79 73 | 4c 6f 61 64 46 75 6e 63 |l', 'Sys|LoadFunc|
|000004c0| 73 27 0d 0a 20 20 20 43 | 41 4c 4c 20 53 79 73 4c |s'.. C|ALL SysL|
|000004d0| 6f 61 64 46 75 6e 63 73 | 0d 0a 20 20 20 45 4e 44 |oadFuncs|.. END|
|000004e0| 0d 0a 50 41 52 53 45 20 | 41 52 47 20 68 77 6e 64 |..PARSE |ARG hwnd|
|000004f0| 2c 20 69 6e 69 46 69 6c | 65 2c 20 64 69 61 6c 6f |, iniFil|e, dialo|
|00000500| 67 2c 20 62 69 74 6d 61 | 70 0d 0a 49 46 20 68 77 |g, bitma|p..IF hw|
|00000510| 6e 64 20 3d 20 27 2d 49 | 27 20 54 48 45 4e 20 44 |nd = '-I|' THEN D|
|00000520| 4f 0d 0a 20 20 20 49 46 | 20 62 69 74 6d 61 70 20 |O.. IF| bitmap |
|00000530| 3c 3e 20 27 27 20 54 48 | 45 4e 20 44 4f 0d 0a 20 |<> '' TH|EN DO.. |
|00000540| 20 20 20 20 20 61 70 70 | 73 20 3d 20 53 79 73 49 | app|s = SysI|
|00000550| 6e 69 28 20 69 6e 69 46 | 69 6c 65 2c 20 27 44 72 |ni( iniF|ile, 'Dr|
|00000560| 73 41 69 64 65 27 2c 20 | 27 41 70 70 73 27 20 29 |sAide', |'Apps' )|
|00000570| 0d 0a 20 20 20 20 20 20 | 49 46 20 61 70 70 73 20 |.. |IF apps |
|00000580| 3d 20 27 45 52 52 4f 52 | 3a 27 20 54 48 45 4e 20 |= 'ERROR|:' THEN |
|00000590| 61 70 70 73 20 3d 20 27 | 27 0d 0a 20 20 20 20 20 |apps = '|'.. |
|000005a0| 20 50 41 52 53 45 20 53 | 4f 55 52 43 45 20 2e 20 | PARSE S|OURCE . |
|000005b0| 2e 20 72 65 73 46 69 6c | 65 0d 0a 20 20 20 20 20 |. resFil|e.. |
|000005c0| 20 63 6f 6c 20 3d 20 70 | 6f 73 28 20 27 20 27 72 | col = p|os( ' 'r|
|000005d0| 65 73 46 69 6c 65 27 28 | 27 2c 20 61 70 70 73 20 |esFile'(|', apps |
|000005e0| 29 0d 0a 20 20 20 20 20 | 20 49 46 20 63 6f 6c 20 |).. | IF col |
|000005f0| 3c 3e 20 30 20 54 48 45 | 4e 20 44 4f 0d 0a 20 20 |<> 0 THE|N DO.. |
|00000600| 20 20 20 20 20 20 20 63 | 6f 6c 32 20 3d 20 70 6f | c|ol2 = po|
|00000610| 73 28 20 27 29 27 2c 20 | 61 70 70 73 2c 20 63 6f |s( ')', |apps, co|
|00000620| 6c 20 2b 20 6c 65 6e 67 | 74 68 28 20 72 65 73 46 |l + leng|th( resF|
|00000630| 69 6c 65 20 29 20 2b 20 | 32 20 29 0d 0a 20 20 20 |ile ) + |2 ).. |
|00000640| 20 20 20 20 20 20 61 70 | 70 73 20 3d 20 6c 65 66 | ap|ps = lef|
|00000650| 74 28 20 61 70 70 73 2c | 20 63 6f 6c 20 2d 20 31 |t( apps,| col - 1|
|00000660| 20 29 20 7c 7c 20 73 75 | 62 73 74 72 28 20 61 70 | ) || su|bstr( ap|
|00000670| 70 73 2c 20 63 6f 6c 32 | 20 2b 20 31 20 29 0d 0a |ps, col2| + 1 )..|
|00000680| 20 20 20 20 20 20 20 20 | 20 45 4e 44 0d 0a 20 20 | | END.. |
|00000690| 20 20 20 20 43 41 4c 4c | 20 53 79 73 49 6e 69 20 | CALL| SysIni |
|000006a0| 69 6e 69 46 69 6c 65 2c | 20 27 44 72 73 41 69 64 |iniFile,| 'DrsAid|
|000006b0| 65 27 2c 20 27 41 70 70 | 73 27 2c 20 61 70 70 73 |e', 'App|s', apps|
|000006c0| 2c 0d 0a 20 20 20 20 20 | 20 20 20 20 20 20 74 72 |,.. | tr|
|000006d0| 61 6e 73 6c 61 74 65 28 | 20 72 65 73 46 69 6c 65 |anslate(| resFile|
|000006e0| 2c 20 27 30 31 27 58 2c | 20 27 20 27 20 29 27 28 |, '01'X,| ' ' )'(|
|000006f0| 27 74 72 61 6e 73 6c 61 | 74 65 28 20 62 69 74 6d |'transla|te( bitm|
|00000700| 61 70 2c 20 27 30 31 27 | 58 2c 20 27 20 27 20 29 |ap, '01'|X, ' ' )|
|00000710| 27 29 27 0d 0a 20 20 20 | 20 20 20 43 41 4c 4c 20 |')'.. | CALL |
|00000720| 52 78 4d 65 73 73 61 67 | 65 42 6f 78 20 72 65 73 |RxMessag|eBox res|
|00000730| 46 69 6c 65 20 27 61 64 | 64 65 64 20 74 6f 20 44 |File 'ad|ded to D|
|00000740| 72 73 41 69 64 65 27 2c | 20 27 44 72 73 41 69 64 |rsAide',| 'DrsAid|
|00000750| 65 27 2c 20 27 4f 4b 27 | 2c 20 27 4e 4f 4e 45 27 |e', 'OK'|, 'NONE'|
|00000760| 0d 0a 20 20 20 20 20 20 | 45 4e 44 0d 0a 20 20 20 |.. |END.. |
|00000770| 45 4c 53 45 20 43 41 4c | 4c 20 52 78 4d 65 73 73 |ELSE CAL|L RxMess|
|00000780| 61 67 65 42 6f 78 20 72 | 65 73 46 69 6c 65 20 27 |ageBox r|esFile '|
|00000790| 68 61 73 20 6e 6f 20 62 | 69 74 6d 61 70 27 2c 20 |has no b|itmap', |
|000007a0| 27 44 72 73 41 69 64 65 | 27 2c 20 27 43 41 4e 43 |'DrsAide|', 'CANC|
|000007b0| 45 4c 27 2c 20 27 4e 4f | 4e 45 27 0d 0a 20 20 20 |EL', 'NO|NE'.. |
|000007c0| 45 58 49 54 0d 0a 20 20 | 20 45 4e 44 0d 0a 49 46 |EXIT.. | END..IF|
|000007d0| 20 6c 65 66 74 28 20 68 | 77 6e 64 2c 20 32 20 29 | left( h|wnd, 2 )|
|000007e0| 20 3c 3e 20 27 2d 48 27 | 20 54 48 45 4e 20 52 45 | <> '-H'| THEN RE|
|000007f0| 54 55 52 4e 20 30 0d 0a | 43 41 4c 4c 20 44 72 44 |TURN 0..|CALL DrD|
|00000800| 69 61 6c 6f 67 20 27 49 | 6e 69 74 27 2c 20 68 77 |ialog 'I|nit', hw|
|00000810| 6e 64 0d 0a 49 46 20 64 | 69 61 6c 6f 67 20 3d 20 |nd..IF d|ialog = |
|00000820| 27 27 20 54 48 45 4e 20 | 44 4f 0d 0a 20 20 20 43 |'' THEN |DO.. C|
|00000830| 41 4c 4c 20 44 69 61 6c | 6f 67 73 0d 0a 20 20 20 |ALL Dial|ogs.. |
|00000840| 64 69 61 6c 6f 67 20 3d | 20 64 69 61 6c 6f 67 73 |dialog =| dialogs|
|00000850| 2e 31 0d 0a 20 20 20 44 | 52 4f 50 20 64 69 61 6c |.1.. D|ROP dial|
|00000860| 6f 67 73 0d 0a 20 20 20 | 45 4e 44 0d 0a 43 41 4c |ogs.. |END..CAL|
|00000870| 4c 20 4f 70 65 6e 46 6f | 72 20 64 69 61 6c 6f 67 |L OpenFo|r dialog|
|00000880| 0d 0a 52 45 54 55 52 4e | 20 31 0d 0a 13 5f 44 72 |..RETURN| 1..._Dr|
|00000890| 73 41 69 64 65 44 69 61 | 6c 6f 67 45 78 69 74 5f |sAideDia|logExit_|
|000008a0| 84 05 2f 2a 20 53 6f 75 | 72 63 65 20 66 69 6c 65 |../* Sou|rce file|
|000008b0| 3a 20 46 3a 5c 44 72 44 | 69 61 6c 6f 67 5c 44 72 |: F:\DrD|ialog\Dr|
|000008c0| 52 65 78 78 5c 44 72 73 | 41 69 64 65 2e 52 58 4c |Rexx\Drs|Aide.RXL|
|000008d0| 20 2a 2f 0d 0a 2f 2a 20 | 46 69 6c 65 20 6c 61 73 | */../* |File las|
|000008e0| 74 20 6d 6f 64 69 66 69 | 65 64 20 6f 6e 3a 20 20 |t modifi|ed on: |
|000008f0| 20 20 20 20 20 20 20 30 | 31 2f 30 36 2f 39 34 20 | 0|1/06/94 |
|00000900| 61 74 20 30 35 3a 34 35 | 70 6d 20 2a 2f 0d 0a 2f |at 05:45|pm */../|
|00000910| 2a 20 50 72 6f 63 65 64 | 75 72 65 20 61 64 64 65 |* Proced|ure adde|
|00000920| 64 20 74 6f 20 6c 69 62 | 72 61 72 79 20 6f 6e 3a |d to lib|rary on:|
|00000930| 20 30 31 2f 30 36 2f 39 | 34 20 61 74 20 30 35 3a | 01/06/9|4 at 05:|
|00000940| 34 36 70 6d 20 2a 2f 0d | 0a 2f 2a 20 50 72 6f 63 |46pm */.|./* Proc|
|00000950| 65 64 75 72 65 20 69 6d | 70 6f 72 74 65 64 20 6f |edure im|ported o|
|00000960| 6e 3a 20 20 20 20 20 20 | 20 20 20 30 31 2f 30 36 |n: | 01/06|
|00000970| 2f 39 34 20 61 74 20 30 | 36 3a 33 31 70 6d 20 2a |/94 at 0|6:31pm *|
|00000980| 2f 0d 0a 0d 0a 50 52 4f | 43 45 44 55 52 45 20 45 |/....PRO|CEDURE E|
|00000990| 58 50 4f 53 45 20 78 2e | 20 79 2e 20 64 78 2e 20 |XPOSE x.| y. dx. |
|000009a0| 64 79 2e 0d 0a 2f 2a 20 | 55 73 61 67 65 20 69 6e |dy.../* |Usage in|
|000009b0| 3a 20 43 41 4c 4c 20 5f | 44 72 73 41 69 64 65 44 |: CALL _|DrsAideD|
|000009c0| 69 61 6c 6f 67 45 78 69 | 74 5f 20 68 77 6e 64 2c |ialogExi|t_ hwnd,|
|000009d0| 20 69 6e 69 46 69 6c 65 | 20 2a 2f 0d 0a 50 41 52 | iniFile| */..PAR|
|000009e0| 53 45 20 41 52 47 20 68 | 77 6e 64 2c 20 69 6e 69 |SE ARG h|wnd, ini|
|000009f0| 46 69 6c 65 0d 0a 49 46 | 20 6c 65 66 74 28 20 68 |File..IF| left( h|
|00000a00| 77 6e 64 2c 20 32 20 29 | 20 3d 20 27 2d 48 27 20 |wnd, 2 )| = '-H' |
|00000a10| 54 48 45 4e 20 44 4f 0d | 0a 20 20 20 50 41 52 53 |THEN DO.|. PARS|
|00000a20| 45 20 56 41 4c 55 45 20 | 50 6f 73 69 74 69 6f 6e |E VALUE |Position|
|00000a30| 28 29 20 57 49 54 48 20 | 6e 65 77 58 20 6e 65 77 |() WITH |newX new|
|00000a40| 59 20 6e 65 77 44 58 20 | 6e 65 77 44 59 0d 0a 20 |Y newDX |newDY.. |
|00000a50| 20 20 64 69 61 6c 6f 67 | 20 3d 20 44 69 61 6c 6f | dialog| = Dialo|
|00000a60| 67 28 29 0d 0a 20 20 20 | 49 46 20 28 6e 65 77 78 |g().. |IF (newx|
|00000a70| 20 20 3c 3e 20 78 2e 64 | 69 61 6c 6f 67 29 20 20 | <> x.d|ialog) |
|00000a80| 7c 20 28 6e 65 77 59 20 | 20 3c 3e 20 79 2e 64 69 || (newY | <> y.di|
|00000a90| 61 6c 6f 67 29 20 7c 2c | 0d 0a 20 20 20 20 20 20 |alog) |,|.. |
|00000aa0| 28 6e 65 77 44 58 20 3c | 3e 20 64 78 2e 64 69 61 |(newDX <|> dx.dia|
|00000ab0| 6c 6f 67 29 20 7c 20 28 | 6e 65 77 44 59 20 3c 3e |log) | (|newDY <>|
|00000ac0| 20 64 79 2e 64 69 61 6c | 6f 67 29 20 54 48 45 4e | dy.dial|og) THEN|
|00000ad0| 0d 0a 20 20 20 20 20 20 | 43 41 4c 4c 20 53 79 73 |.. |CALL Sys|
|00000ae0| 49 6e 69 20 69 6e 69 46 | 69 6c 65 2c 20 5f 44 72 |Ini iniF|ile, _Dr|
|00000af0| 73 41 69 64 65 49 6e 69 | 41 70 70 5f 28 29 2c 20 |sAideIni|App_(), |
|00000b00| 27 50 6f 73 27 2c 20 6e | 65 77 58 20 6e 65 77 59 |'Pos', n|ewX newY|
|00000b10| 20 6e 65 77 44 58 20 6e | 65 77 44 59 0d 0a 20 20 | newDX n|ewDY.. |
|00000b20| 20 45 4e 44 0d 0a 13 5f | 44 72 73 41 69 64 65 44 | END..._|DrsAideD|
|00000b30| 69 61 6c 6f 67 49 6e 69 | 74 5f fd 04 2f 2a 20 53 |ialogIni|t_../* S|
|00000b40| 6f 75 72 63 65 20 66 69 | 6c 65 3a 20 46 3a 5c 44 |ource fi|le: F:\D|
|00000b50| 72 44 69 61 6c 6f 67 5c | 44 72 52 65 78 78 5c 44 |rDialog\|DrRexx\D|
|00000b60| 72 73 41 69 64 65 2e 52 | 58 4c 20 2a 2f 0d 0a 2f |rsAide.R|XL */../|
|00000b70| 2a 20 46 69 6c 65 20 6c | 61 73 74 20 6d 6f 64 69 |* File l|ast modi|
|00000b80| 66 69 65 64 20 6f 6e 3a | 20 20 20 20 20 20 20 20 |fied on:| |
|00000b90| 20 30 31 2f 30 36 2f 39 | 34 20 61 74 20 30 35 3a | 01/06/9|4 at 05:|
|00000ba0| 34 35 70 6d 20 2a 2f 0d | 0a 2f 2a 20 50 72 6f 63 |45pm */.|./* Proc|
|00000bb0| 65 64 75 72 65 20 61 64 | 64 65 64 20 74 6f 20 6c |edure ad|ded to l|
|00000bc0| 69 62 72 61 72 79 20 6f | 6e 3a 20 30 31 2f 30 36 |ibrary o|n: 01/06|
|00000bd0| 2f 39 34 20 61 74 20 30 | 35 3a 34 36 70 6d 20 2a |/94 at 0|5:46pm *|
|00000be0| 2f 0d 0a 2f 2a 20 50 72 | 6f 63 65 64 75 72 65 20 |/../* Pr|ocedure |
|00000bf0| 69 6d 70 6f 72 74 65 64 | 20 6f 6e 3a 20 20 20 20 |imported| on: |
|00000c00| 20 20 20 20 20 30 31 2f | 30 36 2f 39 34 20 61 74 | 01/|06/94 at|
|00000c10| 20 30 36 3a 33 31 70 6d | 20 2a 2f 0d 0a 0d 0a 50 | 06:31pm| */....P|
|00000c20| 52 4f 43 45 44 55 52 45 | 20 45 58 50 4f 53 45 20 |ROCEDURE| EXPOSE |
|00000c30| 78 2e 20 79 2e 20 64 78 | 2e 20 64 79 2e 0d 0a 2f |x. y. dx|. dy.../|
|00000c40| 2a 20 55 73 61 67 65 20 | 69 73 3a 20 43 41 4c 4c |* Usage |is: CALL|
|00000c50| 20 5f 44 72 73 41 69 64 | 65 44 69 61 6c 6f 67 49 | _DrsAid|eDialogI|
|00000c60| 6e 69 74 20 68 77 6e 64 | 2c 20 69 6e 69 46 69 6c |nit hwnd|, iniFil|
|00000c70| 65 20 2a 2f 0d 0a 50 41 | 52 53 45 20 41 52 47 20 |e */..PA|RSE ARG |
|00000c80| 68 77 6e 64 2c 20 69 6e | 69 46 69 6c 65 0d 0a 49 |hwnd, in|iFile..I|
|00000c90| 46 20 6c 65 66 74 28 20 | 68 77 6e 64 2c 20 32 20 |F left( |hwnd, 2 |
|00000ca0| 29 20 3d 20 27 2d 48 27 | 20 54 48 45 4e 20 44 4f |) = '-H'| THEN DO|
|00000cb0| 0d 0a 20 20 20 64 69 61 | 6c 6f 67 20 3d 20 44 69 |.. dia|log = Di|
|00000cc0| 61 6c 6f 67 28 29 0d 0a | 20 20 20 43 41 4c 4c 20 |alog()..| CALL |
|00000cd0| 44 72 44 69 61 6c 6f 67 | 20 27 4f 77 6e 65 72 27 |DrDialog| 'Owner'|
|00000ce0| 2c 20 64 69 61 6c 6f 67 | 0d 0a 20 20 20 50 41 52 |, dialog|.. PAR|
|00000cf0| 53 45 20 56 41 4c 55 45 | 20 53 79 73 49 6e 69 28 |SE VALUE| SysIni(|
|00000d00| 20 69 6e 69 46 69 6c 65 | 2c 20 5f 44 72 73 41 69 | iniFile|, _DrsAi|
|00000d10| 64 65 49 6e 69 41 70 70 | 5f 28 29 2c 20 27 50 6f |deIniApp|_(), 'Po|
|00000d20| 73 27 20 29 20 57 49 54 | 48 20 78 2e 64 69 61 6c |s' ) WIT|H x.dial|
|00000d30| 6f 67 20 79 2e 64 69 61 | 6c 6f 67 20 64 78 2e 64 |og y.dia|log dx.d|
|00000d40| 69 61 6c 6f 67 20 64 79 | 2e 64 69 61 6c 6f 67 0d |ialog dy|.dialog.|
|00000d50| 0a 20 20 20 49 46 20 78 | 2e 64 69 61 6c 6f 67 20 |. IF x|.dialog |
|00000d60| 3c 3e 20 27 45 52 52 4f | 52 3a 27 20 54 48 45 4e |<> 'ERRO|R:' THEN|
|00000d70| 20 43 41 4c 4c 20 50 6f | 73 69 74 69 6f 6e 20 78 | CALL Po|sition x|
|00000d80| 2e 64 69 61 6c 6f 67 20 | 79 2e 64 69 61 6c 6f 67 |.dialog |y.dialog|
|00000d90| 20 64 78 2e 64 69 61 6c | 6f 67 20 64 79 2e 64 69 | dx.dial|og dy.di|
|00000da0| 61 6c 6f 67 0d 0a 20 20 | 20 45 4e 44 0d 0a 43 41 |alog.. | END..CA|
|00000db0| 4c 4c 20 53 68 6f 77 0d | 0a 04 49 6e 69 74 a0 01 |LL Show.|..Init..|
|00000dc0| 2f 2a 20 28 63 29 20 43 | 6f 70 79 72 69 67 68 74 |/* (c) C|opyright|
|00000dd0| 20 49 6e 74 65 72 6e 61 | 74 69 6f 6e 61 6c 20 42 | Interna|tional B|
|00000de0| 75 73 69 6e 65 73 73 20 | 4d 61 63 68 69 6e 65 73 |usiness |Machines|
|00000df0| 20 43 6f 72 70 6f 72 61 | 74 69 6f 6e 20 31 39 39 | Corpora|tion 199|
|00000e00| 33 20 2a 2f 0d 0a 2f 2a | 20 41 6c 6c 20 72 69 67 |3 */../*| All rig|
|00000e10| 68 74 73 20 72 65 73 65 | 72 76 65 64 20 2a 2f 0d |hts rese|rved */.|
|00000e20| 0a 0d 0a 50 41 52 53 45 | 20 41 52 47 20 68 77 6e |...PARSE| ARG hwn|
|00000e30| 64 20 69 6e 69 46 69 6c | 65 20 72 65 73 74 0d 0a |d iniFil|e rest..|
|00000e40| 43 41 4c 4c 20 5f 44 72 | 73 41 69 64 65 49 6e 69 |CALL _Dr|sAideIni|
|00000e50| 74 5f 20 68 77 6e 64 2c | 20 69 6e 69 46 69 6c 65 |t_ hwnd,| iniFile|
|00000e60| 05 56 61 6c 75 65 9f 02 | 73 65 6c 65 63 74 0d 0a |.Value..|select..|
|00000e70| 20 20 77 68 65 6e 20 6f | 70 65 72 20 3d 20 22 2a | when o|per = "*|
|00000e80| 22 20 74 68 65 6e 20 61 | 63 63 75 6d 20 3d 20 61 |" then a|ccum = a|
|00000e90| 63 63 75 6d 20 2a 20 6e | 75 6d 62 65 72 0d 0a 20 |ccum * n|umber.. |
|00000ea0| 20 77 68 65 6e 20 6f 70 | 65 72 20 3d 20 22 2f 22 | when op|er = "/"|
|00000eb0| 20 74 68 65 6e 20 61 63 | 63 75 6d 20 3d 20 61 63 | then ac|cum = ac|
|00000ec0| 63 75 6d 20 2f 20 6e 75 | 6d 62 65 72 0d 0a 20 20 |cum / nu|mber.. |
|00000ed0| 77 68 65 6e 20 6f 70 65 | 72 20 3d 20 22 2d 22 20 |when ope|r = "-" |
|00000ee0| 74 68 65 6e 20 61 63 63 | 75 6d 20 3d 20 61 63 63 |then acc|um = acc|
|00000ef0| 75 6d 20 2d 20 6e 75 6d | 62 65 72 0d 0a 20 20 77 |um - num|ber.. w|
|00000f00| 68 65 6e 20 6f 70 65 72 | 20 3d 20 22 2b 22 20 74 |hen oper| = "+" t|
|00000f10| 68 65 6e 20 61 63 63 75 | 6d 20 3d 20 61 63 63 75 |hen accu|m = accu|
|00000f20| 6d 20 2b 20 6e 75 6d 62 | 65 72 0d 0a 20 20 77 68 |m + numb|er.. wh|
|00000f30| 65 6e 20 6f 70 65 72 20 | 3d 20 22 3d 22 20 74 68 |en oper |= "=" th|
|00000f40| 65 6e 20 61 63 63 75 6d | 20 3d 20 61 63 63 75 6d |en accum| = accum|
|00000f50| 0d 0a 20 20 6f 74 68 65 | 72 77 69 73 65 20 61 63 |.. othe|rwise ac|
|00000f60| 63 75 6d 20 3d 20 6e 75 | 6d 62 65 72 0d 0a 65 6e |cum = nu|mber..en|
|00000f70| 64 0d 0a 63 61 6c 6c 20 | 52 65 73 65 74 0d 0a 61 |d..call |Reset..a|
|00000f80| 72 67 20 6f 70 65 72 05 | 52 65 73 65 74 58 73 69 |rg oper.|ResetXsi|
|00000f90| 67 6e 20 20 20 20 3d 20 | 22 22 0d 0a 6e 75 6d 62 |gn = |""..numb|
|00000fa0| 65 72 20 20 3d 20 30 0d | 0a 64 69 76 69 73 6f 72 |er = 0.|.divisor|
|00000fb0| 20 3d 20 30 0d 0a 61 66 | 74 65 72 20 20 20 3d 20 | = 0..af|ter = |
|00000fc0| 30 0d 0a 64 69 67 69 74 | 73 20 20 3d 20 30 0d 0a |0..digit|s = 0..|
|00000fd0| 63 61 6c 6c 20 52 65 73 | 75 6c 74 2e 54 65 78 74 |call Res|ult.Text|
|00000fe0| 20 61 63 63 75 6d 08 41 | 64 64 44 69 67 69 74 d3 | accum.A|ddDigit.|
|00000ff0| 02 61 72 67 20 64 69 67 | 69 74 0d 0a 64 69 67 69 |.arg dig|it..digi|
|00001000| 74 73 20 3d 20 31 0d 0a | 69 66 20 6e 75 6d 62 65 |ts = 1..|if numbe|
|00001010| 72 20 3c 20 30 20 74 68 | 65 6e 20 73 69 67 6e 20 |r < 0 th|en sign |
|00001020| 3d 20 2d 31 3b 20 65 6c | 73 65 20 73 69 67 6e 20 |= -1; el|se sign |
|00001030| 3d 20 31 0d 0a 6e 75 6d | 62 65 72 20 3d 20 73 69 |= 1..num|ber = si|
|00001040| 67 6e 20 2a 20 6e 75 6d | 62 65 72 0d 0a 69 66 20 |gn * num|ber..if |
|00001050| 64 69 76 69 73 6f 72 20 | 3d 20 30 20 74 68 65 6e |divisor |= 0 then|
|00001060| 20 6e 75 6d 62 65 72 20 | 3d 20 31 30 20 2a 20 6e | number |= 10 * n|
|00001070| 75 6d 62 65 72 20 2b 20 | 64 69 67 69 74 0d 0a 65 |umber + |digit..e|
|00001080| 6c 73 65 20 64 6f 0d 0a | 20 20 61 66 74 65 72 20 |lse do..| after |
|00001090| 20 20 3d 20 61 66 74 65 | 72 20 2b 20 31 0d 0a 20 | = afte|r + 1.. |
|000010a0| 20 64 69 76 69 73 6f 72 | 20 3d 20 31 30 20 2a 20 | divisor| = 10 * |
|000010b0| 64 69 76 69 73 6f 72 0d | 0a 20 20 6e 75 6d 62 65 |divisor.|. numbe|
|000010c0| 72 20 20 3d 20 6e 75 6d | 62 65 72 20 2b 20 64 69 |r = num|ber + di|
|000010d0| 67 69 74 20 2f 20 64 69 | 76 69 73 6f 72 0d 0a 65 |git / di|visor..e|
|000010e0| 6e 64 0d 0a 6e 75 6d 62 | 65 72 20 3d 20 46 6f 72 |nd..numb|er = For|
|000010f0| 6d 61 74 28 20 73 69 67 | 6e 20 2a 20 6e 75 6d 62 |mat( sig|n * numb|
|00001100| 65 72 2c 2c 20 61 66 74 | 65 72 20 29 0d 0a 63 61 |er,, aft|er )..ca|
|00001110| 6c 6c 20 52 65 73 75 6c | 74 2e 54 65 78 74 20 6e |ll Resul|t.Text n|
|00001120| 75 6d 62 65 72 20 0d 0a | 69 66 20 6f 70 65 72 20 |umber ..|if oper |
|00001130| 3d 20 22 3d 22 20 74 68 | 65 6e 20 6f 70 65 72 20 |= "=" th|en oper |
|00001140| 3d 20 22 22 ff ff 04 00 | ff 64 00 30 10 e3 02 00 |= ""....|.d.0....|
|00001150| 00 e3 02 00 00 b5 01 0e | 00 01 00 ff ff 00 00 00 |........|........|
|00001160| 00 15 00 00 00 00 00 11 | 00 a2 02 80 00 00 16 bc |........|........|
|00001170| 00 56 00 75 00 5b 00 64 | 00 ff ff b4 02 00 00 00 |.V.u.[.d|........|
|00001180| 00 00 00 05 00 00 00 b8 | 02 01 06 01 80 07 00 4d |........|.......M|
|00001190| 00 66 00 08 00 76 00 ff | ff ff ff 00 00 00 00 00 |.f...v..|........|
|000011a0| 00 03 00 01 00 b9 02 00 | 00 03 80 04 00 39 00 14 |........|.....9..|
|000011b0| 00 10 00 65 00 ff ff ff | ff 00 00 00 00 00 00 03 |...e....|........|
|000011c0| 00 01 00 bb 02 00 00 02 | 80 1a 00 39 00 14 00 10 |........|...9....|
|000011d0| 00 66 00 ff ff ff ff 00 | 00 00 00 00 00 03 00 01 |.f......|........|
|000011e0| 00 bd 02 00 00 02 80 31 | 00 39 00 14 00 10 00 67 |.......1|.9.....g|
|000011f0| 00 ff ff ff ff 00 00 00 | 00 00 00 03 00 01 00 bf |........|........|
|00001200| 02 00 00 02 80 47 00 39 | 00 14 00 10 00 73 00 ff |.....G.9|.....s..|
|00001210| ff ff ff 00 00 00 00 00 | 00 03 00 01 00 c1 02 00 |........|........|
|00001220| 00 02 80 5e 00 39 00 14 | 00 10 00 70 00 ff ff ff |...^.9..|...p....|
|00001230| ff 00 00 00 00 00 00 03 | 00 01 00 c3 02 00 00 02 |........|........|
|00001240| 80 04 00 27 00 14 00 10 | 00 6a 00 ff ff ff ff 00 |...'....|.j......|
|00001250| 00 00 00 00 00 03 00 01 | 00 c5 02 00 00 02 80 1a |........|........|
|00001260| 00 27 00 14 00 10 00 69 | 00 ff ff ff ff 00 00 00 |.'.....i|........|
|00001270| 00 00 00 03 00 01 00 c7 | 02 00 00 02 80 31 00 27 |........|.....1.'|
|00001280| 00 14 00 10 00 68 00 ff | ff ff ff 00 00 00 00 00 |.....h..|........|
|00001290| 00 03 00 01 00 c9 02 00 | 00 02 80 47 00 27 00 14 |........|...G.'..|
|000012a0| 00 10 00 74 00 ff ff ff | ff 00 00 00 00 00 00 03 |...t....|........|
|000012b0| 00 02 00 cb 02 00 00 02 | 80 5e 00 27 00 14 00 10 |........|.^.'....|
|000012c0| 00 77 00 ff ff ff ff 00 | 00 00 00 00 00 03 00 01 |.w......|........|
|000012d0| 00 ce 02 00 00 02 80 04 | 00 15 00 14 00 10 00 6d |........|.......m|
|000012e0| 00 ff ff ff ff 00 00 00 | 00 00 00 03 00 01 00 d0 |........|........|
|000012f0| 02 00 00 02 80 1a 00 15 | 00 14 00 10 00 6c 00 ff |........|.....l..|
|00001300| ff ff ff 00 00 00 00 00 | 00 03 00 01 00 d2 02 00 |........|........|
|00001310| 00 02 80 31 00 15 00 14 | 00 10 00 6b 00 ff ff ff |...1....|...k....|
|00001320| ff 00 00 00 00 00 00 03 | 00 01 00 d4 02 00 00 02 |........|........|
|00001330| 80 47 00 15 00 14 00 10 | 00 72 00 ff ff ff ff 00 |.G......|.r......|
|00001340| 00 00 00 00 00 03 00 03 | 00 d6 02 00 00 02 80 04 |........|........|
|00001350| 00 03 00 14 00 10 00 79 | 00 ff ff ff ff 00 00 00 |.......y|........|
|00001360| 00 00 00 03 00 01 00 da | 02 00 00 02 80 1a 00 03 |........|........|
|00001370| 00 14 00 10 00 6e 00 ff | ff ff ff 00 00 00 00 00 |.....n..|........|
|00001380| 00 03 00 01 00 dc 02 00 | 00 02 80 31 00 03 00 14 |........|...1....|
|00001390| 00 10 00 6f 00 ff ff ff | ff 00 00 00 00 00 00 03 |...o....|........|
|000013a0| 00 01 00 de 02 00 00 02 | 80 47 00 03 00 14 00 10 |........|.G......|
|000013b0| 00 71 00 ff ff ff ff 00 | 00 00 00 00 00 03 00 01 |.q......|........|
|000013c0| 00 e0 02 00 00 02 80 5e | 00 03 00 14 00 22 00 78 |.......^|.....".x|
|000013d0| 00 ff ff ff ff 00 00 00 | 00 00 00 05 00 00 00 e2 |........|........|
|000013e0| 02 02 00 00 80 04 00 4b | 00 6e 00 10 00 75 00 ff |.......K|.n...u..|
|000013f0| ff ff ff 44 72 52 65 78 | 78 20 43 61 6c 63 75 6c |...DrRex|x Calcul|
|00001400| 61 74 6f 72 00 03 10 00 | 00 00 37 00 38 00 39 00 |ator....|..7.8.9.|
|00001410| 2f 00 43 00 34 00 35 00 | 36 00 2a 00 41 43 00 31 |/.C.4.5.|6.*.AC.1|
|00001420| 00 32 00 33 00 2d 00 2b | 2f 2d 00 30 00 2e 00 2b |.2.3.-.+|/-.0...+|
|00001430| 00 3d 00 00 ff 04 dc ff | 64 00 30 10 1c 03 00 00 |.=......|d.0.....|
|00001440| 80 64 00 04 49 6e 69 74 | 26 43 41 4c 4c 20 5f 44 |.d..Init|&CALL _D|
|00001450| 72 73 41 69 64 65 44 69 | 61 6c 6f 67 49 6e 69 74 |rsAideDi|alogInit|
|00001460| 5f 20 68 77 6e 64 2c 20 | 69 6e 69 46 69 6c 65 04 |_ hwnd, |iniFile.|
|00001470| 45 78 69 74 26 43 41 4c | 4c 20 5f 44 72 73 41 69 |Exit&CAL|L _DrsAi|
|00001480| 64 65 44 69 61 6c 6f 67 | 45 78 69 74 5f 20 68 77 |deDialog|Exit_ hw|
|00001490| 6e 64 2c 20 69 6e 69 46 | 69 6c 65 80 78 00 05 43 |nd, iniF|ile.x..C|
|000014a0| 6c 69 63 6b 0e 63 61 6c | 6c 20 56 61 6c 75 65 20 |lick.cal|l Value |
|000014b0| 22 3d 22 80 71 00 05 43 | 6c 69 63 6b 0e 63 61 6c |"=".q..C|lick.cal|
|000014c0| 6c 20 56 61 6c 75 65 20 | 22 2b 22 80 6f 00 05 43 |l Value |"+".o..C|
|000014d0| 6c 69 63 6b 5a 69 66 20 | 64 69 76 69 73 6f 72 20 |lickZif |divisor |
|000014e0| 3d 20 30 20 74 68 65 6e | 20 64 6f 0d 0a 20 20 64 |= 0 then| do.. d|
|000014f0| 69 76 69 73 6f 72 20 3d | 20 31 0d 0a 20 20 63 61 |ivisor =| 1.. ca|
|00001500| 6c 6c 20 52 65 73 75 6c | 74 2e 54 65 78 74 20 6e |ll Resul|t.Text n|
|00001510| 75 6d 62 65 72 22 2e 22 | 0d 0a 20 20 65 6e 64 0d |umber"."|.. end.|
|00001520| 0a 65 6c 73 65 20 63 61 | 6c 6c 20 42 6f 6e 67 80 |.else ca|ll Bong.|
|00001530| 6e 00 05 43 6c 69 63 6b | 0f 63 61 6c 6c 20 41 64 |n..Click|.call Ad|
|00001540| 64 44 69 67 69 74 20 30 | 80 79 00 05 43 6c 69 63 |dDigit 0|.y..Clic|
|00001550| 6b 83 01 69 66 20 64 69 | 67 69 74 73 20 74 68 65 |k..if di|gits the|
|00001560| 6e 20 64 6f 0d 0a 20 20 | 6e 75 6d 62 65 72 20 3d |n do.. |number =|
|00001570| 20 2d 6e 75 6d 62 65 72 | 0d 0a 20 20 63 61 6c 6c | -number|.. call|
|00001580| 20 52 65 73 75 6c 74 2e | 54 65 78 74 20 6e 75 6d | Result.|Text num|
|00001590| 62 65 72 0d 0a 20 20 65 | 6e 64 0d 0a 65 6c 73 65 |ber.. e|nd..else|
|000015a0| 20 64 6f 0d 0a 20 20 61 | 63 63 75 6d 20 3d 20 2d | do.. a|ccum = -|
|000015b0| 61 63 63 75 6d 0d 0a 20 | 20 63 61 6c 6c 20 52 65 |accum.. | call Re|
|000015c0| 73 75 6c 74 2e 54 65 78 | 74 20 61 63 63 75 6d 0d |sult.Tex|t accum.|
|000015d0| 0a 65 6e 64 0d 0a 80 72 | 00 05 43 6c 69 63 6b 0e |.end...r|..Click.|
|000015e0| 63 61 6c 6c 20 76 61 6c | 75 65 20 22 2d 22 80 6b |call val|ue "-".k|
|000015f0| 00 05 43 6c 69 63 6b 0f | 63 61 6c 6c 20 41 64 64 |..Click.|call Add|
|00001600| 44 69 67 69 74 20 33 80 | 6c 00 05 43 6c 69 63 6b |Digit 3.|l..Click|
|00001610| 0f 63 61 6c 6c 20 41 64 | 64 44 69 67 69 74 20 32 |.call Ad|dDigit 2|
|00001620| 80 6d 00 05 43 6c 69 63 | 6b 0f 63 61 6c 6c 20 41 |.m..Clic|k.call A|
|00001630| 64 64 44 69 67 69 74 20 | 31 80 77 00 05 43 6c 69 |ddDigit |1.w..Cli|
|00001640| 63 6b 15 61 63 63 75 6d | 20 3d 20 30 0d 0a 63 61 |ck.accum| = 0..ca|
|00001650| 6c 6c 20 52 65 73 65 74 | 80 74 00 05 43 6c 69 63 |ll Reset|.t..Clic|
|00001660| 6b 0e 63 61 6c 6c 20 56 | 61 6c 75 65 20 22 2a 22 |k.call V|alue "*"|
|00001670| 80 68 00 05 43 6c 69 63 | 6b 0f 63 61 6c 6c 20 41 |.h..Clic|k.call A|
|00001680| 64 64 44 69 67 69 74 20 | 36 80 69 00 05 43 6c 69 |ddDigit |6.i..Cli|
|00001690| 63 6b 0f 63 61 6c 6c 20 | 41 64 64 44 69 67 69 74 |ck.call |AddDigit|
|000016a0| 20 35 80 6a 00 05 43 6c | 69 63 6b 0f 63 61 6c 6c | 5.j..Cl|ick.call|
|000016b0| 20 41 64 64 44 69 67 69 | 74 20 34 80 70 00 05 43 | AddDigi|t 4.p..C|
|000016c0| 6c 69 63 6b 0a 63 61 6c | 6c 20 52 65 73 65 74 80 |lick.cal|l Reset.|
|000016d0| 73 00 05 43 6c 69 63 6b | 0e 63 61 6c 6c 20 56 61 |s..Click|.call Va|
|000016e0| 6c 75 65 20 22 2f 22 80 | 67 00 05 43 6c 69 63 6b |lue "/".|g..Click|
|000016f0| 0f 63 61 6c 6c 20 41 64 | 64 44 69 67 69 74 20 39 |.call Ad|dDigit 9|
|00001700| 80 66 00 05 43 6c 69 63 | 6b 0f 63 61 6c 6c 20 41 |.f..Clic|k.call A|
|00001710| 64 64 44 69 67 69 74 20 | 38 80 65 00 05 43 6c 69 |ddDigit |8.e..Cli|
|00001720| 63 6b 0f 63 61 6c 6c 20 | 41 64 64 44 69 67 69 74 |ck.call |AddDigit|
|00001730| 20 37 80 76 00 04 49 6e | 69 74 20 61 63 63 75 6d | 7.v..In|it accum|
|00001740| 20 3d 20 30 0d 0a 6f 70 | 65 72 20 3d 20 22 22 0d | = 0..op|er = "".|
|00001750| 0a 63 61 6c 6c 20 52 65 | 73 65 74 ff |.call Re|set. |
+--------+-------------------------+-------------------------+--------+--------+