home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a093 / 7.ddi / TRANS.SC_ / TRANS.bin
Unknown  |  1993-01-17  |  15.6 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.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert AMOS Picture Packer (image/amosPicturePacker) ext Supported
1% dexvert Debian floppy split (archive/debianFloppySplit) ext Unsupported
1% dexvert Sound Images sound sample (audio/soundImagesSoundSample) ext Unsupported
1% dexvert STarKos tune (music/sTarKosTune) ext Unsupported
1% dexvert CADVANCE drawing (image/cadvanceDrawing) ext Unsupported
1% dexvert DESI-III drawing (image/desiIIIDrawing) ext Unsupported
1% dexvert MS-DOS PMODE extender executable (executable/msdosPMODEExtenderExecutable) ext Unsupported
1% dexvert Alien Trilogytextures (other/alienTrilogyTextures) ext Unsupported
1% dexvert APT cache data (other/aptCacheData) ext Unsupported
1% dexvert CADVANCE 2D symbol (other/cadvance2DSymbol) ext Unsupported
1% dexvert Cakewalk Groove (other/cakewalkGroove) ext Unsupported
1% dexvert Comic Book Creator Background (other/comicBookCreatorBackground) ext Unsupported
1% dexvert Comic Book Creator shape Table (other/comicBookCreatorShapeTable) ext Unsupported
1% dexvert CorelTRACE configuration (other/corelTRACEConfiguration) ext Unsupported
1% dexvert Dreamcast Disc (other/dreamcastDisc) ext Unsupported
1% dexvert EST flat binary (other/estFlatBinary) ext Unsupported
1% dexvert Finale Enigma Binary Format (other/finaleEnigmaBinaryFormat) ext Unsupported
1% dexvert Sega Genesis/Megadrive/32x ROM (other/genesisROM) ext Unsupported
1% dexvert Myth: The Fallen Lords game archive (other/mythTheFallenLordsGameArchive) ext Unsupported
1% dexvert Sega Saturn ROM (other/segaSaturnROM) ext Unsupported
1% dexvert Sound Images Sound Driver (other/soundImagesSoundDriver) ext Unsupported
1% dexvert Symantec/Norton Config (other/symantecNortonConfig) ext Unsupported
1% dexvert Vectrex ROM (other/vectrexROM) ext Unsupported
1% dexvert Adrenaline Rush Hour game data (other/adrenalineRushHourGameData) ext Unsupported
1% dexvert Bandai Tamagochi game data (other/bandaiTamagochiGameData) ext Unsupported
1% dexvert BIS raP encoded format (other/bisraPEncoded) ext Unsupported
1% dexvert Linksys RT31P2-NA firmware (other/linksysRT31P2NAFirmware) ext Unsupported
1% dexvert Pascal Script binary (other/pascalScriptBinary) ext Unsupported
1% dexvert 7th Level game data archive (other/seventhLevelGameDataArchive) ext Unsupported
1% dexvert Star Wars Galaxies TRE archive (other/starWarsGalaxiesTREArchive) ext Unsupported
1% dexvert Statistica MFM data (other/statisticaMFMData) ext Unsupported
1% dexvert Surf's Up game data archive (other/surfsUpGameDataArchive) ext Unsupported
1% dexvert TP-Link router firmware (other/tpLinkRouterFirmware) ext Unsupported
1% dexvert Binary Text (image/binaryText) fallback Supported
100% file Adobe Photoshop Color swatch, version 0, 485 colors; 1st RGB space (0), w 0x21, x 0, y 0, z 0 ; 2nd RGB space (0), w 0, x 0, y 0, z 0 default (weak)
99% file data default
100% TrID MacBinary 1 default (weak)
100% siegfried x-fmt/342 Microsoft FoxPro Memo default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 01 e5 00 00 00 21 | 00 00 00 00 00 00 00 00 |.......!|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 43 4f 4d 4d 45 4e 54 00 | 00 00 00 4d 69 00 00 00 |COMMENT.|...Mi...|
|00000210| 00 00 00 01 00 00 00 05 | 74 72 61 6e 73 00 00 00 |........|trans...|
|00000220| 45 4e 56 49 52 4f 4e 00 | 00 00 00 4c 73 00 00 00 |ENVIRON.|...Ls...|
|00000230| 01 00 00 00 01 00 00 00 | 0d 4d 53 20 53 61 6e 73 |........|.MS Sans|
|00000240| 20 53 65 72 69 66 00 00 | 00 00 00 00 00 00 00 00 | Serif..|........|
|00000250| 00 00 00 00 00 01 00 00 | 00 0e 22 7e 28 6d 2e 6d |........|.."~(m.m|
|00000260| 79 74 69 74 6c 65 29 22 | 00 00 00 00 00 00 00 00 |ytitle)"|........|
|00000270| 00 00 00 00 00 00 01 00 | 00 00 6e 49 46 20 6d 2e |........|..nIF m.|
|00000280| 65 64 69 74 69 6e 67 0d | 0a 09 3f 3f 20 43 48 52 |editing.|..?? CHR|
|00000290| 28 37 29 0d 0a 09 57 41 | 49 54 20 57 49 4e 44 4f |(7)...WA|IT WINDO|
|000002a0| 57 20 22 50 6c 65 61 73 | 65 20 63 6f 6e 66 69 72 |W "Pleas|e confir|
|000002b0| 6d 20 63 68 61 6e 67 65 | 73 22 20 4e 4f 57 41 49 |m change|s" NOWAI|
|000002c0| 54 0d 0a 09 52 45 54 55 | 52 4e 20 2e 46 2e 0d 0a |T...RETU|RN .F...|
|000002d0| 45 4e 44 49 46 0d 0a 52 | 45 54 55 52 4e 20 4e 4f |ENDIF..R|ETURN NO|
|000002e0| 54 20 57 52 45 41 44 28 | 29 00 00 00 00 00 00 00 |T WREAD(|).......|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 3d 53 |........|......=S|
|00000300| 45 54 20 53 4b 49 50 20 | 4f 46 20 50 4f 50 55 50 |ET SKIP |OF POPUP|
|00000310| 20 5f 4d 52 45 43 4f 52 | 44 20 2e 54 2e 0d 0a 53 | _MRECOR|D .T...S|
|00000320| 45 54 20 53 4b 49 50 20 | 4f 46 20 50 4f 50 55 50 |ET SKIP |OF POPUP|
|00000330| 20 72 65 70 6f 72 74 73 | 20 2e 54 2e 00 00 00 00 | reports| .T.....|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00000360| 01 e6 49 46 20 4e 4f 54 | 20 6d 2e 61 64 64 69 6e |..IF NOT| m.addin|
|00000370| 67 0d 0a 09 53 43 41 54 | 54 45 52 20 4d 45 4d 56 |g...SCAT|TER MEMV|
|00000380| 41 52 20 4d 45 4d 4f 0d | 0a 0d 0a 09 53 48 4f 57 |AR MEMO.|....SHOW|
|00000390| 20 47 45 54 20 6d 2e 73 | 65 72 76 69 63 65 0d 0a | GET m.s|ervice..|
|000003a0| 09 0d 0a 09 6d 2e 63 6c | 69 65 6e 74 20 3d 20 63 |....m.cl|ient = c|
|000003b0| 6c 69 65 6e 74 73 2e 63 | 6f 6d 70 61 6e 79 0d 0a |lients.c|ompany..|
|000003c0| 09 49 46 20 4e 4f 54 20 | 45 4d 50 54 59 28 6d 2e |.IF NOT |EMPTY(m.|
|000003d0| 63 6c 69 65 6e 74 29 0d | 0a 09 09 6d 2e 63 6c 69 |client).|...m.cli|
|000003e0| 74 72 61 6e 73 20 3d 20 | 31 0d 0a 09 45 4e 44 49 |trans = |1...ENDI|
|000003f0| 46 0d 0a 09 0d 0a 09 53 | 48 4f 57 20 47 45 54 20 |F......S|HOW GET |
|00000400| 6d 2e 74 72 61 6e 73 5f | 64 61 74 65 0d 0a 09 53 |m.trans_|date...S|
|00000410| 48 4f 57 20 47 45 54 20 | 6d 2e 61 6d 74 0d 0a 09 |HOW GET |m.amt...|
|00000420| 53 48 4f 57 20 47 45 54 | 20 6d 2e 63 68 65 63 6b |SHOW GET| m.check|
|00000430| 5f 6e 6f 0d 0a 09 53 48 | 4f 57 20 47 45 54 20 6d |_no...SH|OW GET m|
|00000440| 2e 74 72 61 6e 73 5f 74 | 79 70 65 0d 0a 09 0d 0a |.trans_t|ype.....|
|00000450| 09 49 46 20 4e 4f 54 20 | 45 4d 50 54 59 28 6d 2e |.IF NOT |EMPTY(m.|
|00000460| 63 61 72 64 5f 69 64 29 | 0d 0a 09 09 6d 2e 64 65 |card_id)|....m.de|
|00000470| 63 69 64 65 72 20 3d 20 | 31 0d 0a 09 09 6d 2e 63 |cider = |1....m.c|
|00000480| 61 72 64 73 20 3d 20 63 | 72 65 64 63 61 72 64 2e |ards = c|redcard.|
|00000490| 74 79 70 65 0d 0a 09 45 | 4c 53 45 0d 0a 09 09 6d |type...E|LSE....m|
|000004a0| 2e 63 61 72 64 73 20 3d | 20 22 22 0d 0a 09 45 4e |.cards =| ""...EN|
|000004b0| 44 49 46 0d 0a 09 6d 2e | 61 63 63 6e 74 20 3d 20 |DIF...m.|accnt = |
|000004c0| 22 22 0d 0a 09 49 46 20 | 4e 4f 54 20 45 4d 50 54 |""...IF |NOT EMPT|
|000004d0| 59 28 6d 2e 61 63 63 74 | 5f 69 64 29 0d 0a 09 09 |Y(m.acct|_id)....|
|000004e0| 6d 2e 64 65 63 69 64 65 | 72 20 3d 20 32 0d 0a 09 |m.decide|r = 2...|
|000004f0| 09 6d 2e 61 63 63 6e 74 | 20 3d 20 41 4c 4c 54 52 |.m.accnt| = ALLTR|
|00000500| 49 4d 28 63 61 72 64 73 | 32 2e 61 63 63 74 5f 69 |IM(cards|2.acct_i|
|00000510| 64 29 2b 22 20 22 2b 41 | 4c 4c 54 52 49 4d 28 63 |d)+" "+A|LLTRIM(c|
|00000520| 61 72 64 73 32 2e 74 79 | 70 65 29 0d 0a 09 45 4e |ards2.ty|pe)...EN|
|00000530| 44 49 46 0d 0a 09 3d 20 | 72 65 66 72 65 73 68 28 |DIF...= |refresh(|
|00000540| 29 0d 0a 45 4e 44 49 46 | 00 00 00 00 01 00 00 02 |)..ENDIF|........|
|00000550| bf 23 49 54 53 45 58 50 | 52 45 53 53 49 4f 4e 20 |.#ITSEXP|RESSION |
|00000560| 7e 0d 0a 23 53 45 43 54 | 20 31 0d 0a 6d 2e 6d 79 |~..#SECT| 1..m.my|
|00000570| 74 69 74 6c 65 20 20 3d | 20 22 20 4d 6f 6e 65 79 |title  =| " Money|
|00000580| 20 54 72 61 6e 73 61 63 | 74 69 6f 6e 73 20 22 0d | Transac|tions ".|
|00000590| 0a 0d 0a 23 53 45 43 54 | 20 32 0d 0a 6d 2e 63 6c |...#SECT| 2..m.cl|
|000005a0| 69 65 6e 74 69 64 20 3d | 20 22 22 0d 0a 6d 2e 61 |ientid =| ""..m.a|
|000005b0| 63 63 6e 74 20 20 20 20 | 3d 20 22 22 0d 0a 6d 2e |ccnt    |= ""..m.|
|000005c0| 61 64 64 69 6e 67 20 20 | 20 3d 20 2e 46 2e 0d 0a |adding  | = .F...|
|000005d0| 6d 2e 65 64 69 74 69 6e | 67 20 20 3d 20 2e 46 2e |m.editin|g  = .F.|
|000005e0| 0d 0a 0d 0a 44 49 4d 45 | 4e 53 49 4f 4e 20 63 61 |....DIME|NSION ca|
|000005f0| 72 64 69 64 61 72 79 5b | 31 5d 0d 0a 44 49 4d 45 |rdidary[|1]..DIME|
|00000600| 4e 53 49 4f 4e 20 61 63 | 63 6e 74 61 72 79 20 5b |NSION ac|cntary [|
|00000610| 31 5d 0d 0a 44 49 4d 45 | 4e 53 49 4f 4e 20 63 6c |1]..DIME|NSION cl|
|00000620| 69 65 6e 74 61 72 79 5b | 31 5d 0d 0a 0d 0a 53 43 |ientary[|1]....SC|
|00000630| 41 54 54 45 52 20 4d 45 | 4d 56 41 52 20 4d 45 4d |ATTER ME|MVAR MEM|
|00000640| 4f 20 42 4c 41 4e 4b 0d | 0a 0d 0a 6d 2e 63 61 72 |O BLANK.|...m.car|
|00000650| 64 73 20 3d 20 22 41 6d | 65 72 69 63 61 6e 20 45 |ds = "Am|erican E|
|00000660| 78 70 72 65 73 73 22 0d | 0a 53 45 4c 45 43 54 20 |xpress".|.SELECT |
|00000670| 44 49 53 54 49 4e 43 54 | 20 63 72 65 64 63 61 72 |DISTINCT| credcar|
|00000680| 64 2e 63 61 72 64 5f 69 | 64 20 3b 0d 0a 09 46 52 |d.card_i|d ;...FR|
|00000690| 4f 4d 20 63 72 65 64 63 | 61 72 64 20 3b 0d 0a 09 |OM credc|ard ;...|
|000006a0| 57 48 45 52 45 20 63 72 | 65 64 63 61 72 64 2e 74 |WHERE cr|edcard.t|
|000006b0| 79 70 65 20 3d 20 6d 2e | 63 61 72 64 73 20 3b 0d |ype = m.|cards ;.|
|000006c0| 0a 09 49 4e 54 4f 20 41 | 52 52 41 59 20 63 61 72 |..INTO A|RRAY car|
|000006d0| 64 69 64 61 72 79 0d 0a | 0d 0a 6d 2e 63 61 72 64 |didary..|..m.card|
|000006e0| 5f 69 64 20 3d 20 63 61 | 72 64 69 64 61 72 79 5b |_id = ca|rdidary[|
|000006f0| 31 5d 0d 0a 0d 0a 53 45 | 4c 45 43 54 20 44 49 53 |1]....SE|LECT DIS|
|00000700| 54 49 4e 43 54 20 41 4c | 4c 54 52 49 4d 28 63 72 |TINCT AL|LTRIM(cr|
|00000710| 65 64 63 61 72 64 2e 61 | 63 63 74 5f 69 64 29 2b |edcard.a|cct_id)+|
|00000720| 22 20 22 2b 41 4c 4c 54 | 52 49 4d 28 63 72 65 64 |" "+ALLT|RIM(cred|
|00000730| 63 61 72 64 2e 74 79 70 | 65 29 20 3b 0d 0a 09 46 |card.typ|e) ;...F|
|00000740| 52 4f 4d 20 63 72 65 64 | 63 61 72 64 20 3b 0d 0a |ROM cred|card ;..|
|00000750| 09 57 48 45 52 45 20 63 | 72 65 64 63 61 72 64 2e |.WHERE c|redcard.|
|00000760| 61 63 63 74 5f 69 64 20 | 3c 3e 20 22 20 20 20 20 |acct_id |<> "    |
|00000770| 20 20 20 20 20 22 20 3b | 0d 0a 09 49 4e 54 4f 20 |     " ;|...INTO |
|00000780| 41 52 52 41 59 20 61 63 | 63 6e 74 61 72 79 0d 0a |ARRAY ac|cntary..|
|00000790| 09 0d 0a 6d 2e 61 63 63 | 6e 74 20 3d 20 61 63 63 |...m.acc|nt = acc|
|000007a0| 6e 74 61 72 79 5b 31 5d | 0d 0a 0d 0a 53 45 4c 45 |ntary[1]|....SELE|
|000007b0| 43 54 20 44 49 53 54 49 | 4e 43 54 20 63 6c 69 65 |CT DISTI|NCT clie|
|000007c0| 6e 74 73 2e 63 6f 6d 70 | 61 6e 79 20 3b 0d 0a 09 |nts.comp|any ;...|
|000007d0| 46 52 4f 4d 20 63 6c 69 | 65 6e 74 73 20 3b 0d 0a |FROM cli|ents ;..|
|000007e0| 09 49 4e 54 4f 20 41 52 | 52 41 59 20 63 6c 69 65 |.INTO AR|RAY clie|
|000007f0| 6e 74 61 72 79 0d 0a 0d | 0a 6d 2e 63 6c 69 65 6e |ntary...|.m.clien|
|00000800| 74 20 3d 20 63 6c 69 65 | 6e 74 61 72 79 5b 31 5d |t = clie|ntary[1]|
|00000810| 0a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000820| 00 00 01 00 00 0f 7d 49 | 46 20 6d 2e 71 75 69 74 |......}I|F m.quit|
|00000830| 74 69 6e 67 20 0d 0a 09 | 52 45 4c 45 41 53 45 20 |ting ...|RELEASE |
|00000840| 57 49 4e 44 4f 57 20 74 | 72 61 6e 73 0d 0a 09 52 |WINDOW t|rans...R|
|00000850| 45 4c 45 41 53 45 20 57 | 49 4e 44 4f 57 20 63 6f |ELEASE W|INDOW co|
|00000860| 6e 74 72 6f 6c 73 0d 0a | 45 4e 44 49 46 0d 0a 0d |ntrols..|ENDIF...|
|00000870| 0a 2a 0d 0a 2a 20 53 48 | 4f 57 53 41 56 45 0d 0a |.*..* SH|OWSAVE..|
|00000880| 2a 0d 0a 46 55 4e 43 54 | 49 4f 4e 20 73 68 6f 77 |*..FUNCT|ION show|
|00000890| 73 61 76 65 0d 0a 49 46 | 20 4e 4f 54 20 6d 2e 65 |save..IF| NOT m.e|
|000008a0| 64 69 74 69 6e 67 0d 0a | 09 57 41 49 54 20 57 49 |diting..|.WAIT WI|
|000008b0| 4e 44 4f 57 20 22 50 6c | 65 61 73 65 20 63 6f 6e |NDOW "Pl|ease con|
|000008c0| 66 69 72 6d 20 63 68 61 | 6e 67 65 73 22 20 4e 4f |firm cha|nges" NO|
|000008d0| 57 41 49 54 0d 0a 45 4e | 44 49 46 0d 0a 0d 0a 53 |WAIT..EN|DIF....S|
|000008e0| 48 4f 57 20 47 45 54 20 | 6d 2e 6e 65 77 72 65 63 |HOW GET |m.newrec|
|000008f0| 6f 72 64 20 44 49 53 41 | 42 4c 45 0d 0a 53 48 4f |ord DISA|BLE..SHO|
|00000900| 57 20 47 45 54 20 6d 2e | 73 61 76 65 72 65 63 6f |W GET m.|savereco|
|00000910| 72 64 20 45 4e 41 42 4c | 45 0d 0a 53 48 4f 57 20 |rd ENABL|E..SHOW |
|00000920| 47 45 54 20 6d 2e 63 61 | 6e 63 65 6c 20 45 4e 41 |GET m.ca|ncel ENA|
|00000930| 42 4c 45 0d 0a 53 48 4f | 57 20 47 45 54 20 6d 2e |BLE..SHO|W GET m.|
|00000940| 67 6f 74 6f 20 44 49 53 | 41 42 4c 45 0d 0a 53 48 |goto DIS|ABLE..SH|
|00000950| 4f 57 20 47 45 54 53 20 | 44 49 53 41 42 4c 45 20 |OW GETS |DISABLE |
|00000960| 4f 4e 4c 59 20 57 49 4e | 44 4f 57 20 63 6f 6e 74 |ONLY WIN|DOW cont|
|00000970| 72 6f 6c 73 0d 0a 0d 0a | 53 45 54 20 53 4b 49 50 |rols....|SET SKIP|
|00000980| 20 4f 46 20 42 41 52 20 | 39 20 4f 46 20 5f 4d 53 | OF BAR |9 OF _MS|
|00000990| 59 53 54 45 4d 20 2e 54 | 2e 0d 0a 6d 2e 65 64 69 |YSTEM .T|...m.edi|
|000009a0| 74 69 6e 67 20 3d 20 2e | 54 2e 0d 0a 0d 0a 2a 0d |ting = .|T.....*.|
|000009b0| 0a 2a 20 52 45 46 52 45 | 53 48 0d 0a 2a 0d 0a 46 |.* REFRE|SH..*..F|
|000009c0| 55 4e 43 54 49 4f 4e 20 | 72 65 66 72 65 73 68 0d |UNCTION |refresh.|
|000009d0| 0a 44 4f 20 43 41 53 45 | 0d 0a 43 41 53 45 20 6d |.DO CASE|..CASE m|
|000009e0| 2e 74 72 61 6e 73 5f 74 | 79 70 65 20 3d 20 22 43 |.trans_t|ype = "C|
|000009f0| 68 61 72 67 65 22 0d 0a | 09 53 48 4f 57 20 47 45 |harge"..|.SHOW GE|
|00000a00| 54 20 6d 2e 63 61 72 64 | 73 20 45 4e 41 42 4c 45 |T m.card|s ENABLE|
|00000a10| 0d 0a 09 49 46 20 4e 4f | 54 20 45 4d 50 54 59 28 |...IF NO|T EMPTY(|
|00000a20| 6d 2e 63 61 72 64 73 29 | 0d 0a 09 09 53 48 4f 57 |m.cards)|....SHOW|
|00000a30| 20 47 45 54 20 6d 2e 63 | 61 72 64 5f 69 64 20 45 | GET m.c|ard_id E|
|00000a40| 4e 41 42 4c 45 0d 0a 09 | 45 4c 53 45 0d 0a 09 09 |NABLE...|ELSE....|
|00000a50| 53 48 4f 57 20 47 45 54 | 20 6d 2e 63 61 72 64 5f |SHOW GET| m.card_|
|00000a60| 69 64 20 44 49 53 41 42 | 4c 45 0d 0a 09 45 4e 44 |id DISAB|LE...END|
|00000a70| 49 46 0d 0a 09 6d 2e 63 | 6c 69 74 72 61 6e 73 20 |IF...m.c|litrans |
|00000a80| 3d 20 30 0d 0a 09 6d 2e | 63 6c 69 65 6e 74 20 20 |= 0...m.|client  |
|00000a90| 20 3d 20 22 22 0d 0a 09 | 53 48 4f 57 20 47 45 54 | = ""...|SHOW GET|
|00000aa0| 20 6d 2e 63 6c 69 74 72 | 61 6e 73 20 44 49 53 41 | m.clitr|ans DISA|
|00000ab0| 42 4c 45 0d 0a 09 53 48 | 4f 57 20 47 45 54 20 6d |BLE...SH|OW GET m|
|00000ac0| 2e 63 6c 69 65 6e 74 20 | 44 49 53 41 42 4c 45 0d |.client |DISABLE.|
|00000ad0| 0a 09 53 48 4f 57 20 47 | 45 54 20 6d 2e 61 63 63 |..SHOW G|ET m.acc|
|00000ae0| 6e 74 20 44 49 53 41 42 | 4c 45 0d 0a 09 53 48 4f |nt DISAB|LE...SHO|
|00000af0| 57 20 47 45 54 20 6d 2e | 64 65 63 69 64 65 72 20 |W GET m.|decider |
|00000b00| 44 49 53 41 42 4c 45 0d | 0a 09 53 48 4f 57 20 47 |DISABLE.|..SHOW G|
|00000b10| 45 54 20 6d 2e 63 6c 65 | 61 72 65 64 20 44 49 53 |ET m.cle|ared DIS|
|00000b20| 41 42 4c 45 0d 0a 09 53 | 48 4f 57 20 47 45 54 20 |ABLE...S|HOW GET |
|00000b30| 6d 2e 63 68 65 63 6b 5f | 6e 6f 20 44 49 53 41 42 |m.check_|no DISAB|
|00000b40| 4c 45 0d 0a 43 41 53 45 | 20 6d 2e 74 72 61 6e 73 |LE..CASE| m.trans|
|00000b50| 5f 74 79 70 65 20 3d 20 | 22 43 68 65 63 6b 22 0d |_type = |"Check".|
|00000b60| 0a 09 6d 2e 63 61 72 64 | 73 20 3d 20 22 22 0d 0a |..m.card|s = ""..|
|00000b70| 09 53 48 4f 57 20 47 45 | 54 20 6d 2e 63 61 72 64 |.SHOW GE|T m.card|
|00000b80| 73 20 44 49 53 41 42 4c | 45 0d 0a 09 53 48 4f 57 |s DISABL|E...SHOW|
|00000b90| 20 47 45 54 20 6d 2e 63 | 61 72 64 5f 69 64 20 44 | GET m.c|ard_id D|
|00000ba0| 49 53 41 42 4c 45 0d 0a | 09 53 48 4f 57 20 47 45 |ISABLE..|.SHOW GE|
|00000bb0| 54 20 6d 2e 61 63 63 6e | 74 20 45 4e 41 42 4c 45 |T m.accn|t ENABLE|
|00000bc0| 0d 0a 09 6d 2e 63 6c 69 | 74 72 61 6e 73 20 3d 20 |...m.cli|trans = |
|00000bd0| 30 0d 0a 09 6d 2e 63 6c | 69 65 6e 74 20 20 20 3d |0...m.cl|ient   =|
|00000be0| 20 22 22 0d 0a 09 53 48 | 4f 57 20 47 45 54 20 6d | ""...SH|OW GET m|
|00000bf0| 2e 63 6c 69 74 72 61 6e | 73 20 44 49 53 41 42 4c |.clitran|s DISABL|
|00000c00| 45 0d 0a 09 53 48 4f 57 | 20 47 45 54 20 6d 2e 63 |E...SHOW| GET m.c|
|00000c10| 6c 69 65 6e 74 20 44 49 | 53 41 42 4c 45 0d 0a 09 |lient DI|SABLE...|
|00000c20| 53 48 4f 57 20 47 45 54 | 20 6d 2e 64 65 63 69 64 |SHOW GET| m.decid|
|00000c30| 65 72 20 44 49 53 41 42 | 4c 45 0d 0a 09 53 48 4f |er DISAB|LE...SHO|
|00000c40| 57 20 47 45 54 20 6d 2e | 63 6c 65 61 72 65 64 20 |W GET m.|cleared |
|00000c50| 45 4e 41 42 4c 45 0d 0a | 09 6d 2e 63 68 65 63 6b |ENABLE..|.m.check|
|00000c60| 5f 6e 6f 20 3d 20 22 20 | 20 20 20 20 22 0d 0a 09 |_no = " |    "...|
|00000c70| 53 48 4f 57 20 47 45 54 | 20 6d 2e 63 68 65 63 6b |SHOW GET| m.check|
|00000c80| 5f 6e 6f 20 45 4e 41 42 | 4c 45 0d 0a 43 41 53 45 |_no ENAB|LE..CASE|
|00000c90| 20 6d 2e 74 72 61 6e 73 | 5f 74 79 70 65 20 3d 20 | m.trans|_type = |
|00000ca0| 22 42 69 6c 6c 69 6e 67 | 22 0d 0a 09 53 48 4f 57 |"Billing|"...SHOW|
|00000cb0| 20 47 45 54 20 6d 2e 63 | 61 72 64 73 20 44 49 53 | GET m.c|ards DIS|
|00000cc0| 41 42 4c 45 0d 0a 09 53 | 48 4f 57 20 47 45 54 20 |ABLE...S|HOW GET |
|00000cd0| 6d 2e 63 61 72 64 5f 69 | 64 20 44 49 53 41 42 4c |m.card_i|d DISABL|
|00000ce0| 45 0d 0a 09 53 48 4f 57 | 20 47 45 54 20 6d 2e 64 |E...SHOW| GET m.d|
|00000cf0| 65 63 69 64 65 72 20 44 | 49 53 41 42 4c 45 0d 0a |ecider D|ISABLE..|
|00000d00| 09 6d 2e 61 63 63 6e 74 | 20 3d 20 22 22 0d 0a 09 |.m.accnt| = ""...|
|00000d10| 53 48 4f 57 20 47 45 54 | 20 6d 2e 61 63 63 6e 74 |SHOW GET| m.accnt|
|00000d20| 20 44 49 53 41 42 4c 45 | 0d 0a 09 53 48 4f 57 20 | DISABLE|...SHOW |
|00000d30| 47 45 54 20 6d 2e 63 6c | 65 61 72 65 64 20 44 49 |GET m.cl|eared DI|
|00000d40| 53 41 42 4c 45 0d 0a 09 | 49 46 20 6d 2e 61 64 64 |SABLE...|IF m.add|
|00000d50| 69 6e 67 0d 0a 09 09 6d | 2e 63 6c 69 74 72 61 6e |ing....m|.clitran|
|00000d60| 73 20 3d 20 31 0d 0a 09 | 45 4e 44 49 46 0d 0a 09 |s = 1...|ENDIF...|
|00000d70| 53 48 4f 57 20 47 45 54 | 20 6d 2e 63 6c 69 74 72 |SHOW GET| m.clitr|
|00000d80| 61 6e 73 20 45 4e 41 42 | 4c 45 0d 0a 09 53 48 4f |ans ENAB|LE...SHO|
|00000d90| 57 20 47 45 54 20 6d 2e | 63 6c 69 65 6e 74 20 45 |W GET m.|client E|
|00000da0| 4e 41 42 4c 45 0d 0a 09 | 53 48 4f 57 20 47 45 54 |NABLE...|SHOW GET|
|00000db0| 20 6d 2e 63 68 65 63 6b | 5f 6e 6f 20 44 49 53 41 | m.check|_no DISA|
|00000dc0| 42 4c 45 0d 0a 43 41 53 | 45 20 6d 2e 74 72 61 6e |BLE..CAS|E m.tran|
|00000dd0| 73 5f 74 79 70 65 20 3d | 20 22 44 65 70 6f 73 69 |s_type =| "Deposi|
|00000de0| 74 22 0d 0a 09 49 46 20 | 6d 2e 61 64 64 69 6e 67 |t"...IF |m.adding|
|00000df0| 0d 0a 09 09 53 48 4f 57 | 20 47 45 54 20 6d 2e 64 |....SHOW| GET m.d|
|00000e00| 65 63 69 64 65 72 20 45 | 4e 41 42 4c 45 0d 0a 09 |ecider E|NABLE...|
|00000e10| 45 4e 44 49 46 0d 0a 09 | 49 46 20 6d 2e 64 65 63 |ENDIF...|IF m.dec|
|00000e20| 69 64 65 72 20 3d 20 31 | 0d 0a 09 09 53 48 4f 57 |ider = 1|....SHOW|
|00000e30| 20 47 45 54 20 6d 2e 61 | 63 63 6e 74 20 44 49 53 | GET m.a|ccnt DIS|
|00000e40| 41 42 4c 45 0d 0a 09 09 | 53 48 4f 57 20 47 45 54 |ABLE....|SHOW GET|
|00000e50| 20 6d 2e 63 61 72 64 73 | 20 45 4e 41 42 4c 45 0d | m.cards| ENABLE.|
|00000e60| 0a 09 09 49 46 20 6d 2e | 61 64 64 69 6e 67 0d 0a |...IF m.|adding..|
|00000e70| 09 09 09 53 48 4f 57 20 | 47 45 54 20 6d 2e 63 61 |...SHOW |GET m.ca|
|00000e80| 72 64 5f 69 64 20 44 49 | 53 41 42 4c 45 0d 0a 09 |rd_id DI|SABLE...|
|00000e90| 09 45 4c 53 45 0d 0a 09 | 09 09 53 48 4f 57 20 47 |.ELSE...|..SHOW G|
|00000ea0| 45 54 20 6d 2e 63 61 72 | 64 5f 69 64 20 45 4e 41 |ET m.car|d_id ENA|
|00000eb0| 42 4c 45 0d 0a 09 09 45 | 4e 44 49 46 0d 0a 09 45 |BLE....E|NDIF...E|
|00000ec0| 4c 53 45 0d 0a 09 09 53 | 48 4f 57 20 47 45 54 20 |LSE....S|HOW GET |
|00000ed0| 6d 2e 61 63 63 6e 74 20 | 45 4e 41 42 4c 45 0d 0a |m.accnt |ENABLE..|
|00000ee0| 09 09 53 48 4f 57 20 47 | 45 54 20 6d 2e 63 61 72 |..SHOW G|ET m.car|
|00000ef0| 64 73 20 44 49 53 41 42 | 4c 45 0d 0a 09 09 53 48 |ds DISAB|LE....SH|
|00000f00| 4f 57 20 47 45 54 20 6d | 2e 63 61 72 64 5f 69 64 |OW GET m|.card_id|
|00000f10| 20 44 49 53 41 42 4c 45 | 0d 0a 09 45 4e 44 49 46 | DISABLE|...ENDIF|
|00000f20| 0d 0a 09 6d 2e 63 6c 69 | 74 72 61 6e 73 20 3d 20 |...m.cli|trans = |
|00000f30| 30 0d 0a 09 6d 2e 63 6c | 69 65 6e 74 20 20 20 3d |0...m.cl|ient   =|
|00000f40| 20 22 22 0d 0a 09 53 48 | 4f 57 20 47 45 54 20 6d | ""...SH|OW GET m|
|00000f50| 2e 63 6c 69 74 72 61 6e | 73 20 44 49 53 41 42 4c |.clitran|s DISABL|
|00000f60| 45 0d 0a 09 53 48 4f 57 | 20 47 45 54 20 6d 2e 63 |E...SHOW| GET m.c|
|00000f70| 6c 69 65 6e 74 20 44 49 | 53 41 42 4c 45 0d 0a 09 |lient DI|SABLE...|
|00000f80| 53 48 4f 57 20 47 45 54 | 20 6d 2e 63 68 65 63 6b |SHOW GET| m.check|
|00000f90| 5f 6e 6f 20 44 49 53 41 | 42 4c 45 0d 0a 43 41 53 |_no DISA|BLE..CAS|
|00000fa0| 45 20 6d 2e 74 72 61 6e | 73 5f 74 79 70 65 20 3d |E m.tran|s_type =|
|00000fb0| 20 22 50 61 79 6d 65 6e | 74 22 0d 0a 09 53 48 4f | "Paymen|t"...SHO|
|00000fc0| 57 20 47 45 54 20 6d 2e | 64 65 63 69 64 65 72 20 |W GET m.|decider |
|00000fd0| 44 49 53 41 42 4c 45 0d | 0a 09 53 48 4f 57 20 47 |DISABLE.|..SHOW G|
|00000fe0| 45 54 20 6d 2e 63 61 72 | 64 73 20 45 4e 41 42 4c |ET m.car|ds ENABL|
|00000ff0| 45 0d 0a 09 49 46 20 6d | 2e 61 64 64 69 6e 67 20 |E...IF m|.adding |
|00001000| 0d 0a 09 09 53 48 4f 57 | 20 47 45 54 20 6d 2e 63 |....SHOW| GET m.c|
|00001010| 61 72 64 5f 69 64 20 44 | 49 53 41 42 4c 45 0d 0a |ard_id D|ISABLE..|
|00001020| 09 45 4c 53 45 0d 0a 09 | 09 53 48 4f 57 20 47 45 |.ELSE...|.SHOW GE|
|00001030| 54 20 6d 2e 63 61 72 64 | 5f 69 64 20 45 4e 41 42 |T m.card|_id ENAB|
|00001040| 4c 45 0d 0a 09 45 4e 44 | 49 46 0d 0a 09 53 48 4f |LE...END|IF...SHO|
|00001050| 57 20 47 45 54 20 6d 2e | 61 63 63 6e 74 20 45 4e |W GET m.|accnt EN|
|00001060| 41 42 4c 45 0d 0a 09 49 | 46 20 6d 2e 61 64 64 69 |ABLE...I|F m.addi|
|00001070| 6e 67 20 4f 52 20 4e 4f | 54 20 45 4d 50 54 59 28 |ng OR NO|T EMPTY(|
|00001080| 6d 2e 63 6c 69 65 6e 74 | 29 0d 0a 09 09 6d 2e 63 |m.client|)....m.c|
|00001090| 6c 69 74 72 61 6e 73 20 | 3d 20 31 0d 0a 09 45 4c |litrans |= 1...EL|
|000010a0| 53 45 0d 0a 09 09 6d 2e | 63 6c 69 74 72 61 6e 73 |SE....m.|clitrans|
|000010b0| 20 3d 20 30 0d 0a 09 45 | 4e 44 49 46 0d 0a 09 53 | = 0...E|NDIF...S|
|000010c0| 48 4f 57 20 47 45 54 20 | 6d 2e 63 6c 69 74 72 61 |HOW GET |m.clitra|
|000010d0| 6e 73 20 45 4e 41 42 4c | 45 0d 0a 09 53 48 4f 57 |ns ENABL|E...SHOW|
|000010e0| 20 47 45 54 20 6d 2e 63 | 6c 69 65 6e 74 20 45 4e | GET m.c|lient EN|
|000010f0| 41 42 4c 45 0d 0a 09 53 | 48 4f 57 20 47 45 54 20 |ABLE...S|HOW GET |
|00001100| 6d 2e 63 68 65 63 6b 5f | 6e 6f 20 45 4e 41 42 4c |m.check_|no ENABL|
|00001110| 45 0d 0a 43 41 53 45 20 | 6d 2e 74 72 61 6e 73 5f |E..CASE |m.trans_|
|00001120| 74 79 70 65 20 3d 20 22 | 45 78 70 65 6e 73 65 22 |type = "|Expense"|
|00001130| 0d 0a 09 49 46 20 6d 2e | 61 64 64 69 6e 67 20 0d |...IF m.|adding .|
|00001140| 0a 09 09 53 48 4f 57 20 | 47 45 54 20 6d 2e 64 65 |...SHOW |GET m.de|
|00001150| 63 69 64 65 72 20 45 4e | 41 42 4c 45 0d 0a 09 45 |cider EN|ABLE...E|
|00001160| 4e 44 49 46 0d 0a 09 6d | 2e 63 6c 69 74 72 61 6e |NDIF...m|.clitran|
|00001170| 73 20 3d 20 31 0d 0a 09 | 53 48 4f 57 20 47 45 54 |s = 1...|SHOW GET|
|00001180| 20 6d 2e 63 6c 69 74 72 | 61 6e 73 20 45 4e 41 42 | m.clitr|ans ENAB|
|00001190| 4c 45 0d 0a 09 53 48 4f | 57 20 47 45 54 20 6d 2e |LE...SHO|W GET m.|
|000011a0| 63 6c 69 65 6e 74 20 45 | 4e 41 42 4c 45 0d 0a 09 |client E|NABLE...|
|000011b0| 49 46 20 6d 2e 64 65 63 | 69 64 65 72 20 3d 20 31 |IF m.dec|ider = 1|
|000011c0| 0d 0a 09 09 53 48 4f 57 | 20 47 45 54 20 6d 2e 61 |....SHOW| GET m.a|
|000011d0| 63 63 6e 74 20 44 49 53 | 41 42 4c 45 0d 0a 09 09 |ccnt DIS|ABLE....|
|000011e0| 53 48 4f 57 20 47 45 54 | 20 6d 2e 63 61 72 64 73 |SHOW GET| m.cards|
|000011f0| 20 45 4e 41 42 4c 45 0d | 0a 09 09 53 48 4f 57 20 | ENABLE.|...SHOW |
|00001200| 47 45 54 20 6d 2e 63 68 | 65 63 6b 5f 6e 6f 20 44 |GET m.ch|eck_no D|
|00001210| 49 53 41 42 4c 45 0d 0a | 09 09 49 46 20 6d 2e 61 |ISABLE..|..IF m.a|
|00001220| 64 64 69 6e 67 0d 0a 09 | 09 09 53 48 4f 57 20 47 |dding...|..SHOW G|
|00001230| 45 54 20 6d 2e 63 61 72 | 64 5f 69 64 20 44 49 53 |ET m.car|d_id DIS|
|00001240| 41 42 4c 45 0d 0a 09 09 | 45 4c 53 45 0d 0a 09 09 |ABLE....|ELSE....|
|00001250| 09 53 48 4f 57 20 47 45 | 54 20 6d 2e 63 61 72 64 |.SHOW GE|T m.card|
|00001260| 5f 69 64 20 45 4e 41 42 | 4c 45 0d 0a 09 09 45 4e |_id ENAB|LE....EN|
|00001270| 44 49 46 0d 0a 09 45 4c | 53 45 0d 0a 09 09 53 48 |DIF...EL|SE....SH|
|00001280| 4f 57 20 47 45 54 20 6d | 2e 61 63 63 6e 74 20 45 |OW GET m|.accnt E|
|00001290| 4e 41 42 4c 45 0d 0a 09 | 09 53 48 4f 57 20 47 45 |NABLE...|.SHOW GE|
|000012a0| 54 20 6d 2e 63 61 72 64 | 73 20 44 49 53 41 42 4c |T m.card|s DISABL|
|000012b0| 45 0d 0a 09 09 53 48 4f | 57 20 47 45 54 20 6d 2e |E....SHO|W GET m.|
|000012c0| 63 61 72 64 5f 69 64 20 | 44 49 53 41 42 4c 45 0d |card_id |DISABLE.|
|000012d0| 0a 09 09 53 48 4f 57 20 | 47 45 54 20 6d 2e 63 68 |...SHOW |GET m.ch|
|000012e0| 65 63 6b 5f 6e 6f 20 45 | 4e 41 42 4c 45 0d 0a 09 |eck_no E|NABLE...|
|000012f0| 45 4e 44 49 46 0d 0a 43 | 41 53 45 20 6d 2e 74 72 |ENDIF..C|ASE m.tr|
|00001300| 61 6e 73 5f 74 79 70 65 | 20 3d 20 22 46 65 65 22 |ans_type| = "Fee"|
|00001310| 0d 0a 09 49 46 20 6d 2e | 61 64 64 69 6e 67 0d 0a |...IF m.|adding..|
|00001320| 09 09 53 48 4f 57 20 47 | 45 54 20 6d 2e 64 65 63 |..SHOW G|ET m.dec|
|00001330| 69 64 65 72 20 45 4e 41 | 42 4c 45 0d 0a 09 45 4e |ider ENA|BLE...EN|
|00001340| 44 49 46 0d 0a 09 49 46 | 20 6d 2e 64 65 63 69 64 |DIF...IF| m.decid|
|00001350| 65 72 20 3d 20 31 0d 0a | 09 09 53 48 4f 57 20 47 |er = 1..|..SHOW G|
|00001360| 45 54 20 6d 2e 61 63 63 | 6e 74 20 44 49 53 41 42 |ET m.acc|nt DISAB|
|00001370| 4c 45 0d 0a 09 09 53 48 | 4f 57 20 47 45 54 20 6d |LE....SH|OW GET m|
|00001380| 2e 63 61 72 64 73 20 45 | 4e 41 42 4c 45 0d 0a 09 |.cards E|NABLE...|
|00001390| 09 49 46 20 6d 2e 61 64 | 64 69 6e 67 0d 0a 09 09 |.IF m.ad|ding....|
|000013a0| 09 53 48 4f 57 20 47 45 | 54 20 6d 2e 63 61 72 64 |.SHOW GE|T m.card|
|000013b0| 5f 69 64 20 44 49 53 41 | 42 4c 45 0d 0a 09 09 45 |_id DISA|BLE....E|
|000013c0| 4c 53 45 0d 0a 09 09 09 | 53 48 4f 57 20 47 45 54 |LSE.....|SHOW GET|
|000013d0| 20 6d 2e 63 61 72 64 5f | 69 64 20 45 4e 41 42 4c | m.card_|id ENABL|
|000013e0| 45 0d 0a 09 09 45 4e 44 | 49 46 0d 0a 09 45 4c 53 |E....END|IF...ELS|
|000013f0| 45 0d 0a 09 09 53 48 4f | 57 20 47 45 54 20 6d 2e |E....SHO|W GET m.|
|00001400| 61 63 63 6e 74 20 45 4e | 41 42 4c 45 0d 0a 09 09 |accnt EN|ABLE....|
|00001410| 53 48 4f 57 20 47 45 54 | 20 6d 2e 63 61 72 64 73 |SHOW GET| m.cards|
|00001420| 20 44 49 53 41 42 4c 45 | 0d 0a 09 09 53 48 4f 57 | DISABLE|....SHOW|
|00001430| 20 47 45 54 20 6d 2e 63 | 61 72 64 5f 69 64 20 44 | GET m.c|ard_id D|
|00001440| 49 53 41 42 4c 45 0d 0a | 09 45 4e 44 49 46 0d 0a |ISABLE..|.ENDIF..|
|00001450| 09 6d 2e 63 6c 69 74 72 | 61 6e 73 20 3d 20 30 0d |.m.clitr|ans = 0.|
|00001460| 0a 09 6d 2e 63 6c 69 65 | 6e 74 20 20 20 3d 20 22 |..m.clie|nt   = "|
|00001470| 22 0d 0a 09 53 48 4f 57 | 20 47 45 54 20 6d 2e 63 |"...SHOW| GET m.c|
|00001480| 6c 69 74 72 61 6e 73 20 | 44 49 53 41 42 4c 45 0d |litrans |DISABLE.|
|00001490| 0a 09 53 48 4f 57 20 47 | 45 54 20 6d 2e 63 6c 69 |..SHOW G|ET m.cli|
|000014a0| 65 6e 74 20 44 49 53 41 | 42 4c 45 0d 0a 09 53 48 |ent DISA|BLE...SH|
|000014b0| 4f 57 20 47 45 54 20 6d | 2e 63 68 65 63 6b 5f 6e |OW GET m|.check_n|
|000014c0| 6f 20 44 49 53 41 42 4c | 45 0d 0a 43 41 53 45 20 |o DISABL|E..CASE |
|000014d0| 6d 2e 74 72 61 6e 73 5f | 74 79 70 65 20 3d 20 22 |m.trans_|type = "|
|000014e0| 57 69 74 68 64 72 61 77 | 22 0d 0a 09 53 48 4f 57 |Withdraw|"...SHOW|
|000014f0| 20 47 45 54 20 6d 2e 64 | 65 63 69 64 65 72 20 44 | GET m.d|ecider D|
|00001500| 49 53 41 42 4c 45 0d 0a | 09 53 48 4f 57 20 47 45 |ISABLE..|.SHOW GE|
|00001510| 54 20 6d 2e 61 63 63 6e | 74 20 45 4e 41 42 4c 45 |T m.accn|t ENABLE|
|00001520| 0d 0a 09 53 48 4f 57 20 | 47 45 54 20 6d 2e 63 61 |...SHOW |GET m.ca|
|00001530| 72 64 73 20 44 49 53 41 | 42 4c 45 0d 0a 09 53 48 |rds DISA|BLE...SH|
|00001540| 4f 57 20 47 45 54 20 6d | 2e 63 61 72 64 5f 69 64 |OW GET m|.card_id|
|00001550| 20 44 49 53 41 42 4c 45 | 0d 0a 09 6d 2e 63 6c 69 | DISABLE|...m.cli|
|00001560| 74 72 61 6e 73 20 3d 20 | 30 0d 0a 09 53 48 4f 57 |trans = |0...SHOW|
|00001570| 20 47 45 54 20 6d 2e 63 | 6c 69 74 72 61 6e 73 20 | GET m.c|litrans |
|00001580| 44 49 53 41 42 4c 45 0d | 0a 09 53 48 4f 57 20 47 |DISABLE.|..SHOW G|
|00001590| 45 54 20 6d 2e 63 6c 69 | 65 6e 74 20 44 49 53 41 |ET m.cli|ent DISA|
|000015a0| 42 4c 45 0d 0a 09 53 48 | 4f 57 20 47 45 54 20 6d |BLE...SH|OW GET m|
|000015b0| 2e 63 68 65 63 6b 5f 6e | 6f 20 45 4e 41 42 4c 45 |.check_n|o ENABLE|
|000015c0| 0d 0a 43 41 53 45 20 6d | 2e 74 72 61 6e 73 5f 74 |..CASE m|.trans_t|
|000015d0| 79 70 65 20 3d 20 22 49 | 6e 74 65 72 65 73 74 22 |ype = "I|nterest"|
|000015e0| 0d 0a 09 49 46 20 6d 2e | 61 64 64 69 6e 67 0d 0a |...IF m.|adding..|
|000015f0| 09 09 53 48 4f 57 20 47 | 45 54 20 6d 2e 64 65 63 |..SHOW G|ET m.dec|
|00001600| 69 64 65 72 20 45 4e 41 | 42 4c 45 0d 0a 09 45 4e |ider ENA|BLE...EN|
|00001610| 44 49 46 0d 0a 09 49 46 | 20 6d 2e 64 65 63 69 64 |DIF...IF| m.decid|
|00001620| 65 72 20 3d 20 31 0d 0a | 09 09 53 48 4f 57 20 47 |er = 1..|..SHOW G|
|00001630| 45 54 20 6d 2e 61 63 63 | 6e 74 20 44 49 53 41 42 |ET m.acc|nt DISAB|
|00001640| 4c 45 0d 0a 09 09 53 48 | 4f 57 20 47 45 54 20 6d |LE....SH|OW GET m|
|00001650| 2e 63 61 72 64 73 20 45 | 4e 41 42 4c 45 0d 0a 09 |.cards E|NABLE...|
|00001660| 09 49 46 20 6d 2e 61 64 | 64 69 6e 67 0d 0a 09 09 |.IF m.ad|ding....|
|00001670| 09 53 48 4f 57 20 47 45 | 54 20 6d 2e 63 61 72 64 |.SHOW GE|T m.card|
|00001680| 5f 69 64 20 44 49 53 41 | 42 4c 45 0d 0a 09 09 45 |_id DISA|BLE....E|
|00001690| 4c 53 45 0d 0a 09 09 09 | 53 48 4f 57 20 47 45 54 |LSE.....|SHOW GET|
|000016a0| 20 6d 2e 63 61 72 64 5f | 69 64 20 45 4e 41 42 4c | m.card_|id ENABL|
|000016b0| 45 0d 0a 09 09 45 4e 44 | 49 46 0d 0a 09 45 4c 53 |E....END|IF...ELS|
|000016c0| 45 0d 0a 09 09 53 48 4f | 57 20 47 45 54 20 6d 2e |E....SHO|W GET m.|
|000016d0| 61 63 63 6e 74 20 45 4e | 41 42 4c 45 0d 0a 09 09 |accnt EN|ABLE....|
|000016e0| 53 48 4f 57 20 47 45 54 | 20 6d 2e 63 61 72 64 73 |SHOW GET| m.cards|
|000016f0| 20 44 49 53 41 42 4c 45 | 0d 0a 09 09 53 48 4f 57 | DISABLE|....SHOW|
|00001700| 20 47 45 54 20 6d 2e 63 | 61 72 64 5f 69 64 20 44 | GET m.c|ard_id D|
|00001710| 49 53 41 42 4c 45 0d 0a | 09 45 4e 44 49 46 0d 0a |ISABLE..|.ENDIF..|
|00001720| 09 6d 2e 63 6c 69 74 72 | 61 6e 73 20 3d 20 30 0d |.m.clitr|ans = 0.|
|00001730| 0a 09 6d 2e 63 6c 69 65 | 6e 74 20 20 20 3d 20 22 |..m.clie|nt   = "|
|00001740| 22 0d 0a 09 53 48 4f 57 | 20 47 45 54 20 6d 2e 63 |"...SHOW| GET m.c|
|00001750| 6c 69 74 72 61 6e 73 20 | 44 49 53 41 42 4c 45 0d |litrans |DISABLE.|
|00001760| 0a 09 53 48 4f 57 20 47 | 45 54 20 6d 2e 63 6c 69 |..SHOW G|ET m.cli|
|00001770| 65 6e 74 20 44 49 53 41 | 42 4c 45 0d 0a 09 53 48 |ent DISA|BLE...SH|
|00001780| 4f 57 20 47 45 54 20 6d | 2e 63 68 65 63 6b 5f 6e |OW GET m|.check_n|
|00001790| 6f 20 44 49 53 41 42 4c | 45 0d 0a 45 4e 44 43 41 |o DISABL|E..ENDCA|
|000017a0| 53 45 0d 0a 20 20 20 20 | 20 20 20 2d 31 20 20 20 |SE..    |   -1   |
|000017b0| 2d 31 20 20 20 2d 31 20 | 00 00 00 01 00 00 00 14 |-1   -1 |........|
|000017c0| 2e 2e 5c 44 42 46 53 5c | 43 52 45 44 43 41 52 44 |..\DBFS\|CREDCARD|
|000017d0| 2e 44 42 46 00 00 00 00 | 00 00 00 00 01 00 00 00 |.DBF....|........|
|000017e0| 08 43 72 65 64 63 61 72 | 64 00 00 00 00 00 00 00 |.Credcar|d.......|
|000017f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001800| 00 07 43 61 72 64 5f 69 | 64 00 00 00 00 00 00 00 |..Card_i|d.......|
|00001810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001820| 00 00 14 2e 2e 5c 44 42 | 46 53 5c 43 41 52 44 55 |.....\DB|FS\CARDU|
|00001830| 53 45 52 2e 44 42 46 00 | 00 00 00 00 00 00 00 01 |SER.DBF.|........|
|00001840| 00 00 00 08 43 61 72 64 | 75 73 65 72 00 00 00 00 |....Card|user....|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 01 00 00 00 14 2e 2e 5c | 44 42 46 53 5c 50 45 52 |.......\|DBFS\PER|
|00001870| 53 4f 4e 41 4c 2e 44 42 | 46 00 00 00 00 00 00 00 |SONAL.DB|F.......|
|00001880| 00 01 00 00 00 08 50 65 | 72 73 6f 6e 61 6c 00 00 |......Pe|rsonal..|
|00001890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018a0| 00 00 01 00 00 00 14 2e | 2e 5c 44 42 46 53 5c 52 |........|.\DBFS\R|
|000018b0| 45 53 54 41 55 52 53 2e | 44 42 46 00 00 00 00 00 |ESTAURS.|DBF.....|
|000018c0| 00 00 00 01 00 00 00 08 | 52 65 73 74 61 75 72 73 |........|Restaurs|
|000018d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018e0| 00 00 00 00 01 00 00 00 | 13 2e 2e 5c 44 42 46 53 |........|...\DBFS|
|000018f0| 5c 43 4c 49 45 4e 54 53 | 2e 44 42 46 00 00 00 00 |\CLIENTS|.DBF....|
|00001900| 00 00 00 00 00 01 00 00 | 00 07 43 6c 69 65 6e 74 |........|..Client|
|00001910| 73 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.......|........|
|00001920| 00 00 00 00 00 00 01 00 | 00 00 09 43 6c 69 65 6e |........|...Clien|
|00001930| 74 5f 69 64 00 00 00 00 | 00 00 00 00 00 00 00 00 |t_id....|........|
|00001940| 00 00 00 00 00 00 00 01 | 00 00 00 13 2e 2e 5c 44 |........|......\D|
|00001950| 42 46 53 5c 44 45 54 41 | 49 4c 53 2e 44 42 46 00 |BFS\DETA|ILS.DBF.|
|00001960| 00 00 00 00 00 00 00 00 | 01 00 00 00 07 44 65 74 |........|.....Det|
|00001970| 61 69 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |ails....|........|
|00001980| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 09 54 79 |........|......Ty|
|00001990| 70 65 5f 64 61 74 65 00 | 00 00 00 00 00 00 00 00 |pe_date.|........|
|000019a0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 14 2e |........|........|
|000019b0| 2e 5c 44 42 46 53 5c 43 | 52 45 44 43 41 52 44 2e |.\DBFS\C|REDCARD.|
|000019c0| 44 42 46 00 00 00 00 00 | 00 00 00 01 00 00 00 06 |DBF.....|........|
|000019d0| 43 61 72 64 73 32 00 00 | 00 00 00 00 00 00 00 00 |Cards2..|........|
|000019e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000019f0| 07 41 63 63 74 5f 69 64 | 00 00 00 00 00 00 00 00 |.Acct_id|........|
|00001a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001a10| 00 07 61 63 63 74 5f 69 | 64 00 00 00 00 00 00 00 |..acct_i|d.......|
|00001a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001a30| 00 00 06 43 61 72 64 73 | 32 00 00 00 00 00 00 00 |...Cards|2.......|
|00001a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001a50| 00 00 00 07 44 65 74 61 | 69 6c 73 00 00 00 00 00 |....Deta|ils.....|
|00001a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a70| 01 00 00 00 07 63 61 72 | 64 5f 69 64 00 00 00 00 |.....car|d_id....|
|00001a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a90| 00 01 00 00 00 08 43 72 | 65 64 63 61 72 64 00 00 |......Cr|edcard..|
|00001aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ab0| 00 00 01 00 00 00 07 44 | 65 74 61 69 6c 73 00 00 |.......D|etails..|
|00001ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ad0| 00 00 00 01 00 00 00 09 | 63 6c 69 65 6e 74 5f 69 |........|client_i|
|00001ae0| 64 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |d.......|........|
|00001af0| 00 00 00 00 01 00 00 00 | 07 43 6c 69 65 6e 74 73 |........|.Clients|
|00001b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001b10| 00 00 00 00 00 01 00 00 | 00 07 44 65 74 61 69 6c |........|..Detail|
|00001b20| 73 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.......|........|
|00001b30| 00 00 00 00 00 00 01 00 | 00 00 0d 4d 53 20 53 61 |........|...MS Sa|
|00001b40| 6e 73 20 53 65 72 69 66 | 00 00 00 00 00 00 00 00 |ns Serif|........|
|00001b50| 00 00 00 00 00 00 00 01 | 00 00 00 07 22 44 61 74 |........|...."Dat|
|00001b60| 65 3a 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |e:".....|........|
|00001b70| 00 00 00 00 00 00 00 00 | 01 00 00 00 0d 4d 53 20 |........|.....MS |
|00001b80| 53 61 6e 73 20 53 65 72 | 69 66 00 00 00 00 00 00 |Sans Ser|if......|
|00001b90| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 09 22 41 |........|......"A|
|00001ba0| 6d 6f 75 6e 74 3a 22 00 | 00 00 00 00 00 00 00 00 |mount:".|........|
|00001bb0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0d 4d |........|.......M|
|00001bc0| 53 20 53 61 6e 73 20 53 | 65 72 69 66 00 00 00 00 |S Sans S|erif....|
|00001bd0| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0e |........|........|
|00001be0| 22 54 72 61 6e 73 61 63 | 74 69 6f 6e 3a 22 00 00 |"Transac|tion:"..|
|00001bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00001c00| 0d 4d 53 20 53 61 6e 73 | 20 53 65 72 69 66 00 00 |.MS Sans| Serif..|
|00001c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00001c20| 00 0e 22 43 72 65 64 69 | 74 20 63 61 72 64 3a 22 |.."Credi|t card:"|
|00001c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001c40| 00 00 0d 4d 53 20 53 61 | 6e 73 20 53 65 72 69 66 |...MS Sa|ns Serif|
|00001c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001c60| 00 00 00 0a 22 43 61 72 | 64 20 49 64 3a 22 00 00 |...."Car|d Id:"..|
|00001c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001c80| 01 00 00 00 0d 4d 53 20 | 53 61 6e 73 20 53 65 72 |.....MS |Sans Ser|
|00001c90| 69 66 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |if......|........|
|00001ca0| 00 01 00 00 00 0a 22 41 | 63 63 6f 75 6e 74 3a 22 |......"A|ccount:"|
|00001cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001cc0| 00 00 01 00 00 00 0d 4d | 53 20 53 61 6e 73 20 53 |.......M|S Sans S|
|00001cd0| 65 72 69 66 00 00 00 00 | 00 00 00 00 00 00 00 00 |erif....|........|
|00001ce0| 00 00 00 01 00 00 00 08 | 22 43 68 65 63 6b 3a 22 |........|"Check:"|
|00001cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001d00| 00 00 00 00 01 00 00 00 | 0d 4d 53 20 53 61 6e 73 |........|.MS Sans|
|00001d10| 20 53 65 72 69 66 00 00 | 00 00 00 00 00 00 00 00 | Serif..|........|
|00001d20| 00 00 00 00 00 01 00 00 | 00 0c 6d 2e 74 72 61 6e |........|..m.tran|
|00001d30| 73 5f 74 79 70 65 00 00 | 00 00 00 00 00 00 00 00 |s_type..|........|
|00001d40| 00 00 00 00 00 00 01 00 | 00 00 47 22 40 5e 20 43 |........|..G"@^ C|
|00001d50| 68 61 72 67 65 3b 43 68 | 65 63 6b 3b 42 69 6c 6c |harge;Ch|eck;Bill|
|00001d60| 69 6e 67 3b 44 65 70 6f | 73 69 74 3b 50 61 79 6d |ing;Depo|sit;Paym|
|00001d70| 65 6e 74 3b 45 78 70 65 | 6e 73 65 3b 46 65 65 3b |ent;Expe|nse;Fee;|
|00001d80| 57 69 74 68 64 72 61 77 | 3b 49 6e 74 65 72 65 73 |Withdraw|;Interes|
|00001d90| 74 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |t"......|........|
|00001da0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 48 49 46 |........|.....HIF|
|00001db0| 20 6d 2e 74 72 61 6e 73 | 5f 74 79 70 65 20 3c 3e | m.trans|_type <>|
|00001dc0| 20 64 65 74 61 69 6c 73 | 2e 74 72 61 6e 73 5f 74 | details|.trans_t|
|00001dd0| 79 70 65 0d 0a 09 3d 20 | 73 68 6f 77 73 61 76 65 |ype...= |showsave|
|00001de0| 28 29 0d 0a 45 4e 44 49 | 46 0d 0a 3d 20 72 65 66 |()..ENDI|F..= ref|
|00001df0| 72 65 73 68 28 29 20 20 | 20 20 20 20 20 20 20 20 |resh()  |        |
|00001e00| 20 20 20 20 20 20 20 20 | 20 00 00 00 01 00 00 00 |        | .......|
|00001e10| 08 22 43 68 61 72 67 65 | 22 20 20 20 20 20 20 20 |."Charge|"       |
|00001e20| 20 20 20 20 20 20 20 20 | 20 20 00 00 00 01 00 00 |        |  ......|
|00001e30| 00 0d 4d 53 20 53 61 6e | 73 20 53 65 72 69 66 00 |..MS San|s Serif.|
|00001e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00001e50| 00 00 09 6d 2e 64 65 63 | 69 64 65 72 00 00 00 00 |...m.dec|ider....|
|00001e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00001e70| 00 00 00 1d 22 40 2a 52 | 56 4e 20 43 72 65 64 69 |...."@*R|VN Credi|
|00001e80| 74 20 43 61 72 64 73 3b | 41 63 63 6f 75 6e 74 73 |t Cards;|Accounts|
|00001e90| 22 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |".......|........|
|00001ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001eb0| 00 01 00 00 01 bd 44 4f | 20 43 41 53 45 20 0d 0a |......DO| CASE ..|
|00001ec0| 43 41 53 45 20 6d 2e 64 | 65 63 69 64 65 72 20 3d |CASE m.d|ecider =|
|00001ed0| 20 31 0d 0a 09 53 48 4f | 57 20 47 45 54 20 6d 2e | 1...SHO|W GET m.|
|00001ee0| 63 61 72 64 73 20 45 4e | 41 42 4c 45 0d 0a 09 53 |cards EN|ABLE...S|
|00001ef0| 48 4f 57 20 47 45 54 20 | 6d 2e 63 61 72 64 5f 69 |HOW GET |m.card_i|
|00001f00| 64 20 45 4e 41 42 4c 45 | 0d 0a 09 53 48 4f 57 20 |d ENABLE|...SHOW |
|00001f10| 47 45 54 20 6d 2e 61 63 | 63 6e 74 20 44 49 53 41 |GET m.ac|cnt DISA|
|00001f20| 42 4c 45 0d 0a 09 53 48 | 4f 57 20 47 45 54 20 6d |BLE...SH|OW GET m|
|00001f30| 2e 63 6c 65 61 72 65 64 | 20 44 49 53 41 42 4c 45 |.cleared| DISABLE|
|00001f40| 0d 0a 09 53 48 4f 57 20 | 47 45 54 20 6d 2e 63 68 |...SHOW |GET m.ch|
|00001f50| 65 63 6b 5f 6e 6f 20 44 | 49 53 41 42 4c 45 0d 0a |eck_no D|ISABLE..|
|00001f60| 43 41 53 45 20 6d 2e 64 | 65 63 69 64 65 72 20 3d |CASE m.d|ecider =|
|00001f70| 20 32 0d 0a 09 53 48 4f | 57 20 47 45 54 20 6d 2e | 2...SHO|W GET m.|
|00001f80| 63 61 72 64 73 20 44 49 | 53 41 42 4c 45 0d 0a 09 |cards DI|SABLE...|
|00001f90| 53 48 4f 57 20 47 45 54 | 20 6d 2e 63 61 72 64 5f |SHOW GET| m.card_|
|00001fa0| 69 64 20 44 49 53 41 42 | 4c 45 0d 0a 09 53 48 4f |id DISAB|LE...SHO|
|00001fb0| 57 20 47 45 54 20 6d 2e | 61 63 63 6e 74 20 45 4e |W GET m.|accnt EN|
|00001fc0| 41 42 4c 45 0d 0a 09 53 | 48 4f 57 20 47 45 54 20 |ABLE...S|HOW GET |
|00001fd0| 6d 2e 63 6c 65 61 72 65 | 64 20 45 4e 41 42 4c 45 |m.cleare|d ENABLE|
|00001fe0| 0d 0a 09 49 46 20 4e 4f | 54 20 28 6d 2e 74 72 61 |...IF NO|T (m.tra|
|00001ff0| 6e 73 5f 74 79 70 65 20 | 3d 20 22 46 65 65 22 20 |ns_type |= "Fee" |
|00002000| 4f 52 20 6d 2e 74 72 61 | 6e 73 5f 74 79 70 65 20 |OR m.tra|ns_type |
|00002010| 3d 20 22 49 6e 74 65 72 | 65 73 74 22 29 0d 0a 09 |= "Inter|est")...|
|00002020| 09 53 48 4f 57 20 47 45 | 54 20 6d 2e 63 68 65 63 |.SHOW GE|T m.chec|
|00002030| 6b 5f 6e 6f 20 45 4e 41 | 42 4c 45 0d 0a 09 45 4e |k_no ENA|BLE...EN|
|00002040| 44 49 46 0d 0a 45 4e 44 | 43 41 53 45 0d 0a 49 46 |DIF..END|CASE..IF|
|00002050| 20 4e 4f 54 20 6d 2e 61 | 64 64 69 6e 67 0d 0a 09 | NOT m.a|dding...|
|00002060| 3d 20 73 68 6f 77 73 61 | 76 65 28 29 0d 0a 45 4e |= showsa|ve()..EN|
|00002070| 44 49 46 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |DIF.....|........|
|00002080| 00 00 00 0e 22 43 72 65 | 64 69 74 20 43 61 72 64 |...."Cre|dit Card|
|00002090| 73 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s"......|........|
|000020a0| 01 00 00 00 09 6d 2e 73 | 65 72 76 69 63 65 00 00 |.....m.s|ervice..|
|000020b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020c0| 00 01 00 00 00 04 22 40 | 4b 22 00 00 00 00 00 00 |......"@|K"......|
|000020d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000020e0| 00 00 01 00 00 00 0d 4d | 53 20 53 61 6e 73 20 53 |.......M|S Sans S|
|000020f0| 65 72 69 66 00 00 00 00 | 00 00 00 00 00 00 00 00 |erif....|........|
|00002100| 00 00 00 01 00 00 00 35 | 49 46 20 6d 2e 73 65 72 |.......5|IF m.ser|
|00002110| 76 69 63 65 20 3c 3e 20 | 64 65 74 61 69 6c 73 2e |vice <> |details.|
|00002120| 73 65 72 76 69 63 65 0d | 0a 09 3d 20 73 68 6f 77 |service.|..= show|
|00002130| 73 61 76 65 28 29 0d 0a | 45 4e 44 49 46 00 00 00 |save()..|ENDIF...|
|00002140| 00 00 00 00 00 01 00 00 | 00 0d 4d 53 20 53 61 6e |........|..MS San|
|00002150| 73 20 53 65 72 69 66 00 | 00 00 00 00 00 00 00 00 |s Serif.|........|
|00002160| 00 00 00 00 00 00 01 00 | 00 00 07 6d 2e 63 61 72 |........|...m.car|
|00002170| 64 73 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ds......|........|
|00002180| 00 00 00 00 00 00 00 01 | 00 00 00 08 61 6c 6c 63 |........|....allc|
|00002190| 61 72 64 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |ards....|........|
|000021a0| 00 00 00 00 00 00 00 00 | 01 00 00 00 4b 22 40 5e |........|....K"@^|
|000021b0| 20 41 6d 65 72 69 63 61 | 6e 20 45 78 70 72 65 73 | America|n Expres|
|000021c0| 73 3b 44 49 53 43 4f 56 | 45 52 3b 44 69 6e 65 72 |s;DISCOV|ER;Diner|
|000021d0| 27 73 20 43 6c 75 62 3b | 4d 61 73 74 65 72 43 61 |'s Club;|MasterCa|
|000021e0| 72 64 3b 56 49 53 41 3b | 4a 43 20 50 65 6e 6e 65 |rd;VISA;|JC Penne|
|000021f0| 79 3b 53 48 45 4c 4c 22 | 00 00 00 00 00 00 00 00 |y;SHELL"|........|
|00002200| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 de |........|........|
|00002210| 53 45 4c 45 43 54 20 44 | 49 53 54 49 4e 43 54 20 |SELECT D|ISTINCT |
|00002220| 63 72 65 64 63 61 72 64 | 2e 63 61 72 64 5f 69 64 |credcard|.card_id|
|00002230| 20 3b 0d 0a 09 46 52 4f | 4d 20 63 72 65 64 63 61 | ;...FRO|M credca|
|00002240| 72 64 20 3b 0d 0a 09 57 | 48 45 52 45 20 63 72 65 |rd ;...W|HERE cre|
|00002250| 64 63 61 72 64 2e 74 79 | 70 65 20 3d 20 6d 2e 63 |dcard.ty|pe = m.c|
|00002260| 61 72 64 73 20 3b 0d 0a | 09 49 4e 54 4f 20 41 52 |ards ;..|.INTO AR|
|00002270| 52 41 59 20 63 61 72 64 | 69 64 61 72 79 0d 0a 0d |RAY card|idary...|
|00002280| 0a 6d 2e 63 61 72 64 5f | 69 64 20 3d 20 63 61 72 |.m.card_|id = car|
|00002290| 64 69 64 61 72 79 5b 31 | 5d 0d 0a 53 48 4f 57 20 |didary[1|]..SHOW |
|000022a0| 47 45 54 20 6d 2e 63 61 | 72 64 5f 69 64 20 45 4e |GET m.ca|rd_id EN|
|000022b0| 41 42 4c 45 44 0d 0a 0d | 0a 49 46 20 6d 2e 63 61 |ABLED...|.IF m.ca|
|000022c0| 72 64 5f 69 64 20 3c 3e | 20 64 65 74 61 69 6c 73 |rd_id <>| details|
|000022d0| 2e 63 61 72 64 5f 69 64 | 0d 0a 09 3d 20 73 68 6f |.card_id|...= sho|
|000022e0| 77 73 61 76 65 28 29 0d | 0a 45 4e 44 49 46 00 00 |wsave().|.ENDIF..|
|000022f0| 00 00 01 00 00 00 12 22 | 41 6d 65 72 69 63 61 6e |......."|American|
|00002300| 20 45 78 70 72 65 73 73 | 22 00 00 00 00 00 00 00 | Express|".......|
|00002310| 00 00 00 01 00 00 00 0d | 4d 53 20 53 61 6e 73 20 |........|MS Sans |
|00002320| 53 65 72 69 66 00 00 00 | 00 00 00 00 00 00 00 00 |Serif...|........|
|00002330| 00 00 00 00 01 00 00 00 | 09 6d 2e 63 61 72 64 5f |........|.m.card_|
|00002340| 69 64 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |id......|........|
|00002350| 00 00 00 00 00 01 00 00 | 00 09 63 61 72 64 69 64 |........|..cardid|
|00002360| 61 72 79 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ary.....|........|
|00002370| 00 00 00 00 00 00 01 00 | 00 00 05 22 40 5e 20 22 |........|..."@^ "|
|00002380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002390| 00 00 00 00 00 00 00 01 | 00 00 00 35 49 46 20 6d |........|...5IF m|
|000023a0| 2e 63 61 72 64 5f 69 64 | 20 3c 3e 20 64 65 74 61 |.card_id| <> deta|
|000023b0| 69 6c 73 2e 63 61 72 64 | 5f 69 64 0d 0a 09 3d 20 |ils.card|_id...= |
|000023c0| 73 68 6f 77 73 61 76 65 | 28 29 0d 0a 45 4e 44 49 |showsave|()..ENDI|
|000023d0| 46 00 00 00 00 00 00 00 | 00 01 00 00 00 0a 6d 2e |F.......|......m.|
|000023e0| 63 6c 69 74 72 61 6e 73 | 00 00 00 00 00 00 00 00 |clitrans|........|
|000023f0| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0d 4d |........|.......M|
|00002400| 53 20 53 61 6e 73 20 53 | 65 72 69 66 00 00 00 00 |S Sans S|erif....|
|00002410| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0c |........|........|
|00002420| 22 40 2a 43 20 43 6c 69 | 65 6e 74 22 00 00 00 00 |"@*C Cli|ent"....|
|00002430| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00002440| 56 49 46 20 6d 2e 63 6c | 69 74 72 61 6e 73 20 3d |VIF m.cl|itrans =|
|00002450| 20 30 0d 0a 09 53 48 4f | 57 20 47 45 54 20 6d 2e | 0...SHO|W GET m.|
|00002460| 63 6c 69 65 6e 74 20 44 | 49 53 41 42 4c 45 0d 0a |client D|ISABLE..|
|00002470| 45 4c 53 45 0d 0a 09 53 | 48 4f 57 20 47 45 54 20 |ELSE...S|HOW GET |
|00002480| 6d 2e 63 6c 69 65 6e 74 | 20 45 4e 41 42 4c 45 0d |m.client| ENABLE.|
|00002490| 0a 45 4e 44 49 46 09 00 | 00 00 00 00 00 00 00 01 |.ENDIF..|........|
|000024a0| 00 00 00 0d 4d 53 20 53 | 61 6e 73 20 53 65 72 69 |....MS S|ans Seri|
|000024b0| 66 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |f.......|........|
|000024c0| 01 00 00 00 08 6d 2e 63 | 6c 69 65 6e 74 00 00 00 |.....m.c|lient...|
|000024d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024e0| 00 01 00 00 00 09 63 6c | 69 65 6e 74 61 72 79 00 |......cl|ientary.|
|000024f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002500| 00 00 01 00 00 00 05 22 | 40 5e 20 22 00 00 00 00 |......."|@^ "....|
|00002510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002520| 00 00 00 01 00 00 00 e0 | 50 52 49 56 41 54 45 20 |........|PRIVATE |
|00002530| 6d 2e 73 61 76 72 65 63 | 6f 0d 0a 0d 0a 6d 2e 73 |m.savrec|o....m.s|
|00002540| 61 76 65 72 65 63 6f 20 | 3d 20 52 45 43 4e 4f 28 |avereco |= RECNO(|
|00002550| 29 0d 0a 53 45 4c 45 43 | 54 20 63 6c 69 65 6e 74 |)..SELEC|T client|
|00002560| 73 0d 0a 49 46 20 6d 2e | 63 6c 69 65 6e 74 3c 3e |s..IF m.|client<>|
|00002570| 63 6c 69 65 6e 74 73 2e | 63 6f 6d 70 61 6e 79 0d |clients.|company.|
|00002580| 0a 09 3d 20 73 68 6f 77 | 73 61 76 65 28 29 0d 0a |..= show|save()..|
|00002590| 45 4e 44 49 46 0d 0a 4c | 4f 43 41 54 45 20 46 4f |ENDIF..L|OCATE FO|
|000025a0| 52 20 63 6c 69 65 6e 74 | 73 2e 63 6f 6d 70 61 6e |R client|s.compan|
|000025b0| 79 20 3d 20 6d 2e 63 6c | 69 65 6e 74 0d 0a 0d 0a |y = m.cl|ient....|
|000025c0| 6d 2e 63 6c 69 65 6e 74 | 69 64 20 3d 20 63 6c 69 |m.client|id = cli|
|000025d0| 65 6e 74 73 2e 63 6c 69 | 65 6e 74 5f 69 64 0d 0a |ents.cli|ent_id..|
|000025e0| 0d 0a 53 45 4c 45 43 54 | 20 64 65 74 61 69 6c 73 |..SELECT| details|
|000025f0| 0d 0a 47 4f 54 4f 20 52 | 45 43 4f 52 44 20 6d 2e |..GOTO R|ECORD m.|
|00002600| 73 61 76 65 72 65 63 6f | 00 00 00 00 00 00 00 00 |savereco|........|
|00002610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002620| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0d |........|........|
|00002630| 4d 53 20 53 61 6e 73 20 | 53 65 72 69 66 00 00 00 |MS Sans |Serif...|
|00002640| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00002650| 07 6d 2e 61 63 63 6e 74 | 00 00 00 00 00 00 00 00 |.m.accnt|........|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00002670| 00 08 61 63 63 6e 74 61 | 72 79 00 00 00 00 00 00 |..accnta|ry......|
|00002680| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00002690| 00 00 05 22 40 5e 20 22 | 00 00 00 00 00 00 00 00 |..."@^ "|........|
|000026a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000026b0| 00 00 00 6f 6d 2e 61 63 | 63 74 5f 69 64 20 3d 20 |...om.ac|ct_id = |
|000026c0| 41 4c 4c 54 52 49 4d 28 | 53 55 42 53 54 52 28 6d |ALLTRIM(|SUBSTR(m|
|000026d0| 2e 61 63 63 6e 74 2c 31 | 2c 41 54 28 22 20 22 2c |.accnt,1|,AT(" ",|
|000026e0| 6d 2e 61 63 63 6e 74 29 | 29 29 0d 0a 0d 0a 49 46 |m.accnt)|))....IF|
|000026f0| 20 6d 2e 61 63 63 74 5f | 69 64 20 3c 3e 20 64 65 | m.acct_|id <> de|
|00002700| 74 61 69 6c 73 2e 61 63 | 63 74 5f 69 64 0d 0a 09 |tails.ac|ct_id...|
|00002710| 3d 20 73 68 6f 77 73 61 | 76 65 28 29 0d 0a 45 4e |= showsa|ve()..EN|
|00002720| 44 49 46 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |DIF.....|........|
|00002730| 00 00 00 01 00 00 00 09 | 6d 2e 63 6c 65 61 72 65 |........|m.cleare|
|00002740| 64 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |d.......|........|
|00002750| 00 00 00 00 01 00 00 00 | 0d 4d 53 20 53 61 6e 73 |........|.MS Sans|
|00002760| 20 53 65 72 69 66 00 00 | 00 00 00 00 00 00 00 00 | Serif..|........|
|00002770| 00 00 00 00 00 01 00 00 | 00 13 22 40 2a 43 20 43 |........|.."@*C C|
|00002780| 6c 65 61 72 65 64 20 63 | 68 65 63 6b 22 00 00 00 |leared c|heck"...|
|00002790| 00 00 00 00 00 00 01 00 | 00 00 35 49 46 20 64 65 |........|..5IF de|
|000027a0| 74 61 69 6c 73 2e 63 6c | 65 61 72 65 64 20 3c 3e |tails.cl|eared <>|
|000027b0| 20 6d 2e 63 6c 65 61 72 | 65 64 0d 0a 09 3d 20 73 | m.clear|ed...= s|
|000027c0| 68 6f 77 73 61 76 65 28 | 29 0d 0a 45 4e 44 49 46 |howsave(|)..ENDIF|
|000027d0| 00 00 00 00 00 00 00 00 | 01 00 00 00 0c 6d 2e 64 |........|.....m.d|
|000027e0| 65 64 75 63 74 69 62 6c | 65 00 00 00 00 00 00 00 |eductibl|e.......|
|000027f0| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 0d 4d 53 |........|......MS|
|00002800| 20 53 61 6e 73 20 53 65 | 72 69 66 00 00 00 00 00 | Sans Se|rif.....|
|00002810| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 10 22 |........|......."|
|00002820| 40 2a 43 20 44 65 64 75 | 63 74 69 62 6c 65 22 00 |@*C Dedu|ctible".|
|00002830| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 3b |........|.......;|
|00002840| 49 46 20 64 65 74 61 69 | 6c 73 2e 64 65 64 75 63 |IF detai|ls.deduc|
|00002850| 74 69 62 6c 65 20 3c 3e | 20 6d 2e 64 65 64 75 63 |tible <>| m.deduc|
|00002860| 74 69 62 6c 65 0d 0a 09 | 3d 20 73 68 6f 77 73 61 |tible...|= showsa|
|00002870| 76 65 28 29 0d 0a 45 4e | 44 49 46 00 00 00 00 00 |ve()..EN|DIF.....|
|00002880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000028a0| 00 00 09 6d 2e 74 61 78 | 61 62 6c 65 00 00 00 00 |...m.tax|able....|
|000028b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|000028c0| 00 00 00 0d 4d 53 20 53 | 61 6e 73 20 53 65 72 69 |....MS S|ans Seri|
|000028d0| 66 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |f.......|........|
|000028e0| 01 00 00 00 0d 22 40 2a | 43 20 54 61 78 61 62 6c |....."@*|C Taxabl|
|000028f0| 65 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |e"......|........|
|00002900| 00 01 00 00 00 35 49 46 | 20 64 65 74 61 69 6c 73 |.....5IF| details|
|00002910| 2e 74 61 78 61 62 6c 65 | 20 3c 3e 20 6d 2e 74 61 |.taxable| <> m.ta|
|00002920| 78 61 62 6c 65 0d 0a 09 | 3d 20 73 68 6f 77 73 61 |xable...|= showsa|
|00002930| 76 65 28 29 0d 0a 45 4e | 44 49 46 00 00 00 00 00 |ve()..EN|DIF.....|
|00002940| 00 00 00 01 00 00 00 0c | 6d 2e 74 72 61 6e 73 5f |........|m.trans_|
|00002950| 64 61 74 65 00 00 00 00 | 00 00 00 00 00 00 00 00 |date....|........|
|00002960| 00 00 00 00 01 00 00 00 | 04 22 40 4b 22 00 00 00 |........|."@K"...|
|00002970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002980| 00 00 00 00 00 01 00 00 | 00 0d 4d 53 20 53 61 6e |........|..MS San|
|00002990| 73 20 53 65 72 69 66 00 | 00 00 00 00 00 00 00 00 |s Serif.|........|
|000029a0| 00 00 00 00 00 00 01 00 | 00 00 3b 49 46 20 6d 2e |........|..;IF m.|
|000029b0| 74 72 61 6e 73 5f 64 61 | 74 65 20 3c 3e 20 64 65 |trans_da|te <> de|
|000029c0| 74 61 69 6c 73 2e 74 72 | 61 6e 73 5f 64 61 74 65 |tails.tr|ans_date|
|000029d0| 0d 0a 09 3d 20 73 68 6f | 77 73 61 76 65 28 29 0d |...= sho|wsave().|
|000029e0| 0a 45 4e 44 49 46 00 00 | 00 00 00 00 00 00 00 00 |.ENDIF..|........|
|000029f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a00| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 05 6d 2e |........|......m.|
|00002a10| 61 6d 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |amt.....|........|
|00002a20| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0d 22 |........|......."|
|00002a30| 40 4b 20 39 39 39 39 39 | 2e 39 39 22 00 00 00 00 |@K 99999|.99"....|
|00002a40| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0d |........|........|
|00002a50| 4d 53 20 53 61 6e 73 20 | 53 65 72 69 66 00 00 00 |MS Sans |Serif...|
|00002a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00002a70| 04 30 2e 31 30 00 00 00 | 00 00 00 00 00 00 00 00 |.0.10...|........|
|00002a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00002a90| 00 05 31 30 30 30 30 00 | 00 00 00 00 00 00 00 00 |..10000.|........|
|00002aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00002ab0| 00 00 2d 49 46 20 6d 2e | 61 6d 74 20 3c 3e 20 64 |..-IF m.|amt <> d|
|00002ac0| 65 74 61 69 6c 73 2e 61 | 6d 74 0d 0a 09 3d 20 73 |etails.a|mt...= s|
|00002ad0| 68 6f 77 73 61 76 65 28 | 29 0d 0a 45 4e 44 49 46 |howsave(|)..ENDIF|
|00002ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002af0| 01 00 00 00 0a 6d 2e 63 | 68 65 63 6b 5f 6e 6f 00 |.....m.c|heck_no.|
|00002b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b10| 00 01 00 00 00 04 22 40 | 4b 22 00 00 00 00 00 00 |......"@|K"......|
|00002b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b30| 00 00 01 00 00 00 0d 4d | 53 20 53 61 6e 73 20 53 |.......M|S Sans S|
|00002b40| 65 72 69 66 00 00 00 00 | 00 00 00 00 00 00 00 00 |erif....|........|
|00002b50| 00 00 00 01 00 00 00 59 | 6d 2e 63 68 65 63 6b 5f |.......Y|m.check_|
|00002b60| 6e 6f 20 3d 20 41 4c 4c | 54 52 49 4d 28 6d 2e 63 |no = ALL|TRIM(m.c|
|00002b70| 68 65 63 6b 5f 6e 6f 29 | 0d 0a 49 46 20 6d 2e 63 |heck_no)|..IF m.c|
|00002b80| 68 65 63 6b 5f 6e 6f 20 | 3c 3e 20 64 65 74 61 69 |heck_no |<> detai|
|00002b90| 6c 73 2e 63 68 65 63 6b | 5f 6e 6f 0d 0a 09 3d 20 |ls.check|_no...= |
|00002ba0| 73 68 6f 77 73 61 76 65 | 28 29 0d 0a 45 4e 44 49 |showsave|()..ENDI|
|00002bb0| 46 00 00 00 00 00 01 00 | 00 00 0d 4d 53 20 53 61 |F.......|...MS Sa|
|00002bc0| 6e 73 20 53 65 72 69 66 | 00 00 00 00 00 00 00 00 |ns Serif|........|
|00002bd0| 00 00 00 00 00 00 00 01 | 00 00 00 06 6d 2e 67 6f |........|....m.go|
|00002be0| 74 6f 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |to......|........|
|00002bf0| 00 00 00 00 00 00 00 00 | 01 00 00 00 0d 22 40 2a |........|....."@*|
|00002c00| 48 4e 20 5c 3c 46 69 6e | 64 22 00 00 00 00 00 00 |HN \<Fin|d"......|
|00002c10| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 26 44 4f |........|.....&DO|
|00002c20| 20 67 6f 74 6f 2e 73 70 | 72 0d 0a 53 48 4f 57 20 | goto.sp|r..SHOW |
|00002c30| 47 45 54 53 20 57 49 4e | 44 4f 57 20 63 6f 6e 74 |GETS WIN|DOW cont|
|00002c40| 72 6f 6c 73 00 00 00 00 | 00 00 00 00 00 00 00 00 |rols....|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 06 |........|........|
|00002c60| 22 46 69 6e 64 22 00 00 | 00 00 00 00 00 00 00 00 |"Find"..|........|
|00002c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|00002c80| 0d 4d 53 20 53 61 6e 73 | 20 53 65 72 69 66 00 00 |.MS Sans| Serif..|
|00002c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|00002ca0| 00 0b 6d 2e 6e 65 77 72 | 65 63 6f 72 64 00 00 00 |..m.newr|ecord...|
|00002cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|00002cc0| 00 00 0c 22 40 2a 48 4e | 20 4e 65 5c 3c 77 22 00 |..."@*HN| Ne\<w".|
|00002cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 01 |........|........|
|00002ce0| 00 00 03 35 6d 2e 61 64 | 64 69 6e 67 20 3d 20 2e |...5m.ad|ding = .|
|00002cf0| 54 2e 0d 0a 6d 2e 64 65 | 63 69 64 65 72 20 3d 20 |T...m.de|cider = |
|00002d00| 31 0d 0a 53 43 41 54 54 | 45 52 20 4d 45 4d 56 41 |1..SCATT|ER MEMVA|
|00002d10| 52 20 42 4c 41 4e 4b 20 | 4d 45 4d 4f 0d 0a 0d 0a |R BLANK |MEMO....|
|00002d20| 6d 2e 63 6c 69 74 72 61 | 6e 73 20 20 20 3d 20 30 |m.clitra|ns   = 0|
|00002d30| 0d 0a 6d 2e 74 72 61 6e | 73 5f 64 61 74 65 20 3d |..m.tran|s_date =|
|00002d40| 20 44 41 54 45 28 29 0d | 0a 6d 2e 74 72 61 6e 73 | DATE().|.m.trans|
|00002d50| 5f 74 79 70 65 20 3d 20 | 22 43 68 61 72 67 65 22 |_type = |"Charge"|
|00002d60| 0d 0a 6d 2e 63 61 72 64 | 73 20 3d 20 22 22 0d 0a |..m.card|s = ""..|
|00002d70| 6d 2e 73 65 72 76 69 63 | 65 20 3d 20 22 22 0d 0a |m.servic|e = ""..|
|00002d80| 0d 0a 53 45 4c 45 43 54 | 20 44 49 53 54 49 4e 43 |..SELECT| DISTINC|
|00002d90| 54 20 63 72 65 64 63 61 | 72 64 2e 63 61 72 64 5f |T credca|rd.card_|
|00002da0| 69 64 20 3b 0d 0a 09 46 | 52 4f 4d 20 63 72 65 64 |id ;...F|ROM cred|
|00002db0| 63 61 72 64 20 3b 0d 0a | 09 57 48 45 52 45 20 63 |card ;..|.WHERE c|
|00002dc0| 72 65 64 63 61 72 64 2e | 74 79 70 65 20 3d 20 6d |redcard.|type = m|
|00002dd0| 2e 63 61 72 64 73 20 3b | 0d 0a 09 49 4e 54 4f 20 |.cards ;|...INTO |
|00002de0| 41 52 52 41 59 20 63 61 | 72 64 69 64 61 72 79 0d |ARRAY ca|rdidary.|
|00002df0| 0a 09 09 09 0d 0a 6d 2e | 63 61 72 64 5f 69 64 20 |......m.|card_id |
|00002e00| 3d 20 22 22 0d 0a 6d 2e | 61 63 63 6e 74 20 20 20 |= ""..m.|accnt   |
|00002e10| 3d 20 22 22 0d 0a 6d 2e | 63 6c 69 65 6e 74 20 20 |= ""..m.|client  |
|00002e20| 3d 20 22 22 0d 0a 09 09 | 0d 0a 53 48 4f 57 20 47 |= ""....|..SHOW G|
|00002e30| 45 54 20 6d 2e 63 6c 69 | 65 6e 74 20 44 49 53 41 |ET m.cli|ent DISA|
|00002e40| 42 4c 45 0d 0a 53 48 4f | 57 20 47 45 54 20 6d 2e |BLE..SHO|W GET m.|
|00002e50| 64 65 63 69 64 65 72 20 | 44 49 53 41 42 4c 45 0d |decider |DISABLE.|
|00002e60| 0a 53 48 4f 57 20 47 45 | 54 20 6d 2e 63 6c 69 74 |.SHOW GE|T m.clit|
|00002e70| 72 61 6e 73 20 44 49 53 | 41 42 4c 45 0d 0a 53 48 |rans DIS|ABLE..SH|
|00002e80| 4f 57 20 47 45 54 20 6d | 2e 61 63 63 6e 74 20 44 |OW GET m|.accnt D|
|00002e90| 49 53 41 42 4c 45 0d 0a | 53 48 4f 57 20 47 45 54 |ISABLE..|SHOW GET|
|00002ea0| 20 6d 2e 63 61 72 64 73 | 20 45 4e 41 42 4c 45 0d | m.cards| ENABLE.|
|00002eb0| 0a 49 46 20 4e 4f 54 20 | 45 4d 50 54 59 28 6d 2e |.IF NOT |EMPTY(m.|
|00002ec0| 63 61 72 64 73 29 0d 0a | 09 53 48 4f 57 20 47 45 |cards)..|.SHOW GE|
|00002ed0| 54 20 6d 2e 63 61 72 64 | 5f 69 64 20 45 4e 41 42 |T m.card|_id ENAB|
|00002ee0| 4c 45 0d 0a 45 4c 53 45 | 0d 0a 09 53 48 4f 57 20 |LE..ELSE|...SHOW |
|00002ef0| 47 45 54 20 6d 2e 63 61 | 72 64 5f 69 64 20 44 49 |GET m.ca|rd_id DI|
|00002f00| 53 41 42 4c 45 0d 0a 45 | 4e 44 49 46 0d 0a 53 48 |SABLE..E|NDIF..SH|
|00002f10| 4f 57 20 47 45 54 20 6d | 2e 67 6f 74 6f 20 44 49 |OW GET m|.goto DI|
|00002f20| 53 41 42 4c 45 0d 0a 53 | 48 4f 57 20 47 45 54 20 |SABLE..S|HOW GET |
|00002f30| 6d 2e 6e 65 77 72 65 63 | 6f 72 64 20 44 49 53 41 |m.newrec|ord DISA|
|00002f40| 42 4c 45 0d 0a 53 48 4f | 57 20 47 45 54 20 6d 2e |BLE..SHO|W GET m.|
|00002f50| 73 61 76 65 72 65 63 6f | 72 64 20 45 4e 41 42 4c |savereco|rd ENABL|
|00002f60| 45 0d 0a 53 48 4f 57 20 | 47 45 54 20 6d 2e 63 61 |E..SHOW |GET m.ca|
|00002f70| 6e 63 65 6c 20 45 4e 41 | 42 4c 45 0d 0a 53 48 4f |ncel ENA|BLE..SHO|
|00002f80| 57 20 47 45 54 20 6d 2e | 74 72 61 6e 73 5f 74 79 |W GET m.|trans_ty|
|00002f90| 70 65 20 45 4e 41 42 4c | 45 0d 0a 09 0d 0a 5f 43 |pe ENABL|E....._C|
|00002fa0| 55 52 4f 42 4a 20 3d 20 | 4f 42 4a 4e 55 4d 28 6d |UROBJ = |OBJNUM(m|
|00002fb0| 2e 74 72 61 6e 73 5f 74 | 79 70 65 29 09 0d 0a 53 |.trans_t|ype)...S|
|00002fc0| 48 4f 57 20 47 45 54 53 | 0d 0a 53 48 4f 57 20 47 |HOW GETS|..SHOW G|
|00002fd0| 45 54 53 20 44 49 53 41 | 42 4c 45 20 4f 4e 4c 59 |ETS DISA|BLE ONLY|
|00002fe0| 20 57 49 4e 44 4f 57 20 | 63 6f 6e 74 72 6f 6c 73 | WINDOW |controls|
|00002ff0| 0d 0a 09 09 0d 0a 53 45 | 54 20 53 4b 49 50 20 4f |......SE|T SKIP O|
|00003000| 46 20 42 41 52 20 39 20 | 4f 46 20 5f 4d 53 59 53 |F BAR 9 |OF _MSYS|
|00003010| 54 45 4d 20 2e 54 2e 0d | 0a 00 00 00 00 00 00 00 |TEM .T..|........|
|00003020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003030| 00 00 00 00 00 00 00 00 | 00 01 00 00 00 05 22 4e |........|......"N|
|00003040| 65 77 22 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ew".....|........|
|00003050| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 0d 4d |........|.......M|
|00003060| 53 20 53 61 6e 73 20 53 | 65 72 69 66 00 00 00 00 |S Sans S|erif....|
|00003070| 00 00 00 00 00 00 00 00 | 00 00 00 01 00 00 00 0c |........|........|
|00003080| 6d 2e 73 61 76 65 72 65 | 63 6f 72 64 00 00 00 00 |m.savere|cord....|
|00003090| 00 00 00 00 00 00 00 00 | 00 00 00 00 01 00 00 00 |........|........|
|000030a0| 0d 22 40 2a 48 4e 20 5c | 3c 53 61 76 65 22 00 00 |."@*HN \|<Save"..|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000030c0| 0a 88 49 46 20 6d 2e 63 | 6c 69 74 72 61 6e 73 20 |..IF m.c|litrans |
|000030d0| 3d 20 31 20 6f 72 20 6d | 2e 61 64 64 69 6e 67 0d |= 1 or m|.adding.|
|000030e0| 0a 09 6d 2e 63 6c 69 65 | 6e 74 5f 69 64 20 3d 20 |..m.clie|nt_id = |
|000030f0| 6d 2e 63 6c 69 65 6e 74 | 69 64 0d 0a 45 4e 44 49 |m.client|id..ENDI|
|00003100| 46 0d 0a 6d 2e 61 63 63 | 74 5f 69 64 20 3d 20 41 |F..m.acc|t_id = A|
|00003110| 4c 4c 54 52 49 4d 28 53 | 55 42 53 54 52 28 6d 2e |LLTRIM(S|UBSTR(m.|
|00003120| 61 63 63 6e 74 2c 31 2c | 41 54 28 22 20 22 2c 6d |accnt,1,|AT(" ",m|
|00003130| 2e 61 63 63 6e 74 29 29 | 29 0d 0a 0d 0a 6d 2e 65 |.accnt))|)....m.e|
|00003140| 64 69 74 69 6e 67 20 3d | 20 2e 46 2e 0d 0a 49 46 |diting =| .F...IF|
|00003150| 20 6f 6b 74 6f 73 61 76 | 65 28 29 0d 0a 09 49 46 | oktosav|e()...IF|
|00003160| 20 6d 2e 61 64 64 69 6e | 67 0d 0a 09 09 41 50 50 | m.addin|g....APP|
|00003170| 45 4e 44 20 42 4c 41 4e | 4b 0d 0a 09 09 6d 2e 61 |END BLAN|K....m.a|
|00003180| 64 64 69 6e 67 20 3d 20 | 2e 46 2e 0d 0a 09 45 4e |dding = |.F....EN|
|00003190| 44 49 46 0d 0a 09 47 41 | 54 48 45 52 20 4d 45 4d |DIF...GA|THER MEM|
|000031a0| 56 41 52 20 4d 45 4d 4f | 0d 0a 45 4c 53 45 0d 0a |VAR MEMO|..ELSE..|
|000031b0| 09 52 45 54 55 52 4e 0d | 0a 45 4e 44 49 46 0d 0a |.RETURN.|.ENDIF..|
|000031c0| 0d 0a 53 48 4f 57 20 47 | 45 54 20 6d 2e 67 6f 74 |..SHOW G|ET m.got|
|000031d0| 6f 20 45 4e 41 42 4c 45 | 0d 0a 53 48 4f 57 20 47 |o ENABLE|..SHOW G|
|000031e0| 45 54 20 6d 2e 6e 65 77 | 72 65 63 6f 72 64 20 45 |ET m.new|record E|
|000031f0| 4e 41 42 4c 45 0d 0a 53 | 48 4f 57 20 47 45 54 20 |NABLE..S|HOW GET |
|00003200| 6d 2e 73 61 76 65 72 65 | 63 6f 72 64 20 44 49 53 |m.savere|cord DIS|
|00003210| 41 42 4c 45 0d 0a 53 48 | 4f 57 20 47 45 54 20 6d |ABLE..SH|OW GET m|
|00003220| 2e 63 61 6e 63 65 6c 20 | 44 49 53 41 42 4c 45 0d |.cancel |DISABLE.|
|00003230| 0a 53 48 4f 57 20 47 45 | 54 20 6d 2e 74 72 61 6e |.SHOW GE|T m.tran|
|00003240| 73 5f 74 79 70 65 20 44 | 49 53 41 42 4c 45 0d 0a |s_type D|ISABLE..|
|00003250| 0d 0a 57 41 49 54 20 57 | 49 4e 44 4f 57 20 22 52 |..WAIT W|INDOW "R|
|00003260| 65 63 6f 72 64 20 68 61 | 73 20 62 65 65 6e 20 73 |ecord ha|s been s|
|00003270| 61 76 65 64 22 20 4e 4f | 57 41 49 54 0d 0a 09 09 |aved" NO|WAIT....|
|00003280| 0d 0a 53 48 4f 57 20 47 | 45 54 20 6d 2e 6c 63 68 |..SHOW G|ET m.lch|
|00003290| 6f 69 63 65 20 45 4e 41 | 42 4c 45 0d 0a 53 48 4f |oice ENA|BLE..SHO|
|000032a0| 57 20 47 45 54 20 6d 2e | 65 63 68 6f 69 63 65 20 |W GET m.|echoice |
|000032b0| 45 4e 41 42 4c 45 0d 0a | 5f 43 55 52 4f 42 4a 20 |ENABLE..|_CUROBJ |
|000032c0| 3d 20 4f 42 4a 4e 55 4d | 28 6d 2e 63 68 6f 69 63 |= OBJNUM|(m.choic|
|000032d0| 65 2c 20 31 29 0d 0a 53 | 48 4f 57 20 47 45 54 53 |e, 1)..S|HOW GETS|
|000032e0| 09 0d 0a 0d 0a 53 45 54 | 20 53 4b 49 50 20 4f 46 |.....SET| SKIP OF|
|000032f0| 20 42 41 52 20 39 20 4f | 46 20 5f 4d 53 59 53 54 | BAR 9 O|F _MSYST|
|00003300| 45 4d 20 2e 46 2e 0d 0a | 0d 0a 0d 0a 2a 0d 0a 2a |EM .F...|....*..*|
|00003310| 20 4f 4b 54 4f 53 41 56 | 45 20 2d 20 4d 61 6b 65 | OKTOSAV|E - Make|
|00003320| 20 73 75 72 65 20 61 6c | 6c 20 6e 65 63 65 73 73 | sure al|l necess|
|00003330| 61 72 79 20 69 6e 66 6f | 72 6d 61 74 69 6f 6e 20 |ary info|rmation |
|00003340| 77 61 73 20 65 6e 74 65 | 72 65 64 2e 0d 0a 2a 0d |was ente|red...*.|
|00003350| 0a 46 55 4e 43 54 49 4f | 4e 20 6f 6b 74 6f 73 61 |.FUNCTIO|N oktosa|
|00003360| 76 65 0d 0a 50 52 49 56 | 41 54 45 20 6d 2e 73 74 |ve..PRIV|ATE m.st|
|00003370| 61 74 75 73 0d 0a 09 6d | 2e 73 74 61 74 75 73 20 |atus...m|.status |
|00003380| 3d 20 2e 54 2e 0d 0a 09 | 44 4f 20 43 41 53 45 0d |= .T....|DO CASE.|
|00003390| 0a 09 43 41 53 45 20 6d | 2e 74 72 61 6e 73 5f 74 |..CASE m|.trans_t|
|000033a0| 79 70 65 20 3d 20 22 43 | 68 61 72 67 65 22 0d 0a |ype = "C|harge"..|
|000033b0| 09 09 6d 2e 73 74 61 74 | 75 73 20 3d 20 63 61 72 |..m.stat|us = car|
|000033c0| 64 5f 64 61 74 65 5f 61 | 6d 74 28 29 0d 0a 09 43 |d_date_a|mt()...C|
|000033d0| 41 53 45 20 6d 2e 74 72 | 61 6e 73 5f 74 79 70 65 |ASE m.tr|ans_type|
|000033e0| 20 3d 20 22 43 68 65 63 | 6b 22 0d 0a 09 09 49 46 | = "Chec|k"....IF|
|000033f0| 20 45 4d 50 54 59 28 6d | 2e 63 68 65 63 6b 5f 6e | EMPTY(m|.check_n|
|00003400| 6f 29 0d 0a 09 09 09 57 | 41 49 54 20 57 49 4e 44 |o).....W|AIT WIND|
|00003410| 4f 57 20 22 45 6e 74 65 | 72 20 63 68 65 63 6b 20 |OW "Ente|r check |
|00003420| 6e 75 6d 62 65 72 22 20 | 4e 4f 57 41 49 54 0d 0a |number" |NOWAIT..|
|00003430| 09 09 09 6d 2e 73 74 61 | 74 75 73 20 3d 20 2e 46 |...m.sta|tus = .F|
|00003440| 2e 0d 0a 09 09 45 4c 53 | 45 0d 0a 09 09 09 6d 2e |.....ELS|E.....m.|
|00003450| 73 74 61 74 75 73 20 3d | 20 61 63 63 74 5f 64 61 |status =| acct_da|
|00003460| 74 65 5f 61 6d 74 28 29 | 0d 0a 09 09 45 4e 44 49 |te_amt()|....ENDI|
|00003470| 46 0d 0a 09 43 41 53 45 | 20 6d 2e 74 72 61 6e 73 |F...CASE| m.trans|
|00003480| 5f 74 79 70 65 20 3d 20 | 22 42 69 6c 6c 69 6e 67 |_type = |"Billing|
|00003490| 22 0d 0a 09 09 49 46 20 | 45 4d 50 54 59 28 6d 2e |"....IF |EMPTY(m.|
|000034a0| 63 6c 69 65 6e 74 5f 69 | 64 29 0d 0a 09 09 09 57 |client_i|d).....W|
|000034b0| 41 49 54 20 57 49 4e 44 | 4f 57 20 22 53 65 6c 65 |AIT WIND|OW "Sele|
|000034c0| 63 74 20 63 6c 69 65 6e | 74 22 20 4e 4f 57 41 49 |ct clien|t" NOWAI|
|000034d0| 54 0d 0a 09 09 09 52 45 | 54 55 52 4e 20 2e 46 2e |T.....RE|TURN .F.|
|000034e0| 0d 0a 09 09 45 4c 53 45 | 0d 0a 09 09 09 6d 2e 73 |....ELSE|.....m.s|
|000034f0| 74 61 74 75 73 20 3d 20 | 64 61 74 65 5f 61 6d 74 |tatus = |date_amt|
|00003500| 28 29 0d 0a 09 09 45 4e | 44 49 46 0d 0a 09 43 41 |()....EN|DIF...CA|
|00003510| 53 45 20 6d 2e 74 72 61 | 6e 73 5f 74 79 70 65 20 |SE m.tra|ns_type |
|00003520| 3d 20 22 44 65 70 6f 73 | 69 74 22 0d 0a 09 09 49 |= "Depos|it"....I|
|00003530| 46 20 64 65 63 69 64 65 | 72 20 3d 20 31 0d 0a 09 |F decide|r = 1...|
|00003540| 09 09 6d 2e 73 74 61 74 | 75 73 20 3d 20 63 61 72 |..m.stat|us = car|
|00003550| 64 5f 64 61 74 65 5f 61 | 6d 74 28 29 0d 0a 09 09 |d_date_a|mt()....|
|00003560| 45 4c 53 45 0d 0a 09 09 | 09 6d 2e 73 74 61 74 75 |ELSE....|.m.statu|
|00003570| 73 20 3d 20 61 63 63 74 | 5f 64 61 74 65 5f 61 6d |s = acct|_date_am|
|00003580| 74 28 29 0d 0a 09 09 45 | 4e 44 49 46 0d 0a 09 43 |t()....E|NDIF...C|
|00003590| 41 53 45 20 6d 2e 74 72 | 61 6e 73 5f 74 79 70 65 |ASE m.tr|ans_type|
|000035a0| 20 3d 20 22 50 61 79 6d | 65 6e 74 22 0d 0a 09 09 | = "Paym|ent"....|
|000035b0| 6d 2e 73 74 61 74 75 73 | 20 3d 20 64 61 74 65 5f |m.status| = date_|
|000035c0| 61 6d 74 28 29 0d 0a 09 | 43 41 53 45 20 6d 2e 74 |amt()...|CASE m.t|
|000035d0| 72 61 6e 73 5f 74 79 70 | 65 20 3d 20 22 45 78 70 |rans_typ|e = "Exp|
|000035e0| 65 6e 73 65 22 0d 0a 09 | 09 49 46 20 64 65 63 69 |ense"...|.IF deci|
|000035f0| 64 65 72 20 3d 20 31 0d | 0a 09 09 09 49 46 20 45 |der = 1.|....IF E|
|00003600| 4d 50 54 59 28 6d 2e 63 | 6c 69 65 6e 74 5f 69 64 |MPTY(m.c|lient_id|
|00003610| 29 0d 0a 09 09 09 09 57 | 41 49 54 20 57 49 4e 44 |)......W|AIT WIND|
|00003620| 4f 57 20 22 53 65 6c 65 | 63 74 20 63 6c 69 65 6e |OW "Sele|ct clien|
|00003630| 74 22 20 4e 4f 57 41 49 | 54 0d 0a 09 09 09 09 52 |t" NOWAI|T......R|
|00003640| 45 54 55 52 4e 20 2e 46 | 2e 0d 0a 09 09 09 45 4c |ETURN .F|......EL|
|00003650| 53 45 0d 0a 09 09 09 09 | 6d 2e 73 74 61 74 75 73 |SE......|m.status|
|00003660| 20 3d 20 63 61 72 64 5f | 64 61 74 65 5f 61 6d 74 | = card_|date_amt|
|00003670| 28 29 0d 0a 09 09 09 45 | 4e 44 49 46 0d 0a 09 09 |().....E|NDIF....|
|00003680| 45 4c 53 45 0d 0a 09 09 | 09 49 46 20 45 4d 50 54 |ELSE....|.IF EMPT|
|00003690| 59 28 6d 2e 63 6c 69 65 | 6e 74 5f 69 64 29 0d 0a |Y(m.clie|nt_id)..|
|000036a0| 09 09 09 09 57 41 49 54 | 20 57 49 4e 44 4f 57 20 |....WAIT| WINDOW |
|000036b0| 22 53 65 6c 65 63 74 20 | 63 6c 69 65 6e 74 22 20 |"Select |client" |
|000036c0| 4e 4f 57 41 49 54 0d 0a | 09 09 09 09 52 45 54 55 |NOWAIT..|....RETU|
|000036d0| 52 4e 20 2e 46 2e 0d 0a | 09 09 09 45 4c 53 45 0d |RN .F...|...ELSE.|
|000036e0| 0a 09 09 09 09 49 46 20 | 45 4d 50 54 59 28 6d 2e |.....IF |EMPTY(m.|
|000036f0| 63 68 65 63 6b 5f 6e 6f | 29 20 0d 0a 09 09 09 09 |check_no|) ......|
|00003700| 09 57 41 49 54 20 57 49 | 4e 44 4f 57 20 22 45 6e |.WAIT WI|NDOW "En|
|00003710| 74 65 72 20 63 68 65 63 | 6b 20 6e 75 6d 62 65 72 |ter chec|k number|
|00003720| 22 20 4e 4f 57 41 49 54 | 0d 0a 09 09 09 09 09 52 |" NOWAIT|.......R|
|00003730| 45 54 55 52 4e 20 2e 46 | 2e 0d 0a 09 09 09 09 45 |ETURN .F|.......E|
|00003740| 4c 53 45 0d 0a 09 09 09 | 09 09 6d 2e 73 74 61 74 |LSE.....|..m.stat|
|00003750| 75 73 20 3d 20 61 63 63 | 74 5f 64 61 74 65 5f 61 |us = acc|t_date_a|
|00003760| 6d 74 28 29 0d 0a 09 09 | 09 09 45 4e 44 49 46 0d |mt()....|..ENDIF.|
|00003770| 0a 09 09 09 45 4e 44 49 | 46 0d 0a 09 09 45 4e 44 |....ENDI|F....END|
|00003780| 49 46 0d 0a 09 43 41 53 | 45 20 6d 2e 74 72 61 6e |IF...CAS|E m.tran|
|00003790| 73 5f 74 79 70 65 20 3d | 20 22 46 65 65 22 0d 0a |s_type =| "Fee"..|
|000037a0| 09 09 49 46 20 64 65 63 | 69 64 65 72 20 3d 20 31 |..IF dec|ider = 1|
|000037b0| 0d 0a 09 09 09 6d 2e 73 | 74 61 74 75 73 20 3d 20 |.....m.s|tatus = |
|000037c0| 63 61 72 64 5f 64 61 74 | 65 5f 61 6d 74 28 29 0d |card_dat|e_amt().|
|000037d0| 0a 09 09 45 4c 53 45 0d | 0a 09 09 09 6d 2e 73 74 |...ELSE.|....m.st|
|000037e0| 61 74 75 73 20 3d 20 61 | 63 63 74 5f 64 61 74 65 |atus = a|cct_date|
|000037f0| 5f 61 6d 74 28 29 0d 0a | 09 09 45 4e 44 49 46 0d |_amt()..|..ENDIF.|
|00003800| 0a 09 43 41 53 45 20 6d | 2e 74 72 61 6e 73 5f 74 |..CASE m|.trans_t|
|00003810| 79 70 65 20 3d 20 22 57 | 69 74 68 64 72 61 77 22 |ype = "W|ithdraw"|
|00003820| 0d 0a 09 09 6d 2e 73 74 | 61 74 75 73 20 3d 20 61 |....m.st|atus = a|
|00003830| 63 63 74 5f 64 61 74 65 | 5f 61 6d 74 28 29 0d 0a |cct_date|_amt()..|
|00003840| 09 43 41 53 45 20 6d 2e | 74 72 61 6e 73 5f 74 79 |.CASE m.|trans_ty|
|00003850| 70 65 20 3d 20 22 49 6e | 74 65 72 65 73 74 22 0d |pe = "In|terest".|
|00003860| 0a 09 09 49 46 20 64 65 | 63 69 64 65 72 20 3d 20 |...IF de|cider = |
|00003870| 31 0d 0a 09 09 09 6d 2e | 73 74 61 74 75 73 20 3d |1.....m.|status =|
|00003880| 20 63 61 72 64 5f 64 61 | 74 65 5f 61 6d 74 28 29 | card_da|te_amt()|
|00003890| 0d 0a 09 09 45 4c 53 45 | 0d 0a 09 09 09 6d 2e 73 |....ELSE|.....m.s|
|000038a0| 74 61 74 75 73 20 3d 20 | 61 63 63 74 5f 64 61 74 |tatus = |acct_dat|
|000038b0| 65 5f 61 6d 74 28 29 0d | 0a 09 09 45 4e 44 49 46 |e_amt().|...ENDIF|
|000038c0| 0d 0a 09 45 4e 44 43 41 | 53 45 0d 0a 52 45 54 55 |...ENDCA|SE..RETU|
|000038d0| 52 4e 20 6d 2e 73 74 61 | 74 75 73 0d 0a 0d 0a 2a |RN m.sta|tus....*|
|000038e0| 0d 0a 2a 20 41 43 43 54 | 5f 44 41 54 45 5f 41 4d |..* ACCT|_DATE_AM|
|000038f0| 54 0d 0a 2a 0d 0a 46 55 | 4e 43 54 49 4f 4e 20 61 |T..*..FU|NCTION a|
|00003900| 63 63 74 5f 64 61 74 65 | 5f 61 6d 74 0d 0a 50 52 |cct_date|_amt..PR|
|00003910| 49 56 41 54 45 20 6d 2e | 73 74 61 74 75 73 0d 0a |IVATE m.|status..|
|00003920| 09 49 46 20 45 4d 50 54 | 59 28 6d 2e 61 63 63 74 |.IF EMPT|Y(m.acct|
|00003930| 5f 69 64 29 0d 0a 09 09 | 57 41 49 54 20 57 49 4e |_id)....|WAIT WIN|
|00003940| 44 4f 57 20 22 53 65 6c | 65 63 74 20 61 6e 20 61 |DOW "Sel|ect an a|
|00003950| 63 63 6f 75 6e 74 22 20 | 4e 4f 57 41 49 54 0d 0a |ccount" |NOWAIT..|
|00003960| 09 09 52 45 54 55 52 4e | 20 2e 46 2e 0d 0a 09 45 |..RETURN| .F....E|
|00003970| 4e 44 49 46 0d 0a 09 6d | 2e 73 74 61 74 75 73 20 |NDIF...m|.status |
|00003980| 3d 20 64 61 74 65 5f 61 | 6d 74 28 29 0d 0a 52 45 |= date_a|mt()..RE|
|00003990| 54 55 52 4e 20 6d 2e 73 | 74 61 74 75 73 0d 0a 0d |TURN m.s|tatus...|
|000039a0| 0a 2a 0d 0a 2a 20 43 41 | 52 44 5f 44 41 54 45 5f |.*..* CA|RD_DATE_|
|000039b0| 41 4d 54 0d 0a 2a 0d 0a | 46 55 4e 43 54 49 4f 4e |AMT..*..|FUNCTION|
|000039c0| 20 63 61 72 64 5f 64 61 | 74 65 5f 61 6d 74 0d 0a | card_da|te_amt..|
|000039d0| 50 52 49 56 41 54 45 20 | 6d 2e 73 74 61 74 75 73 |PRIVATE |m.status|
|000039e0| 0d 0a 09 49 46 20 45 4d | 50 54 59 28 6d 2e 63 61 |...IF EM|PTY(m.ca|
|000039f0| 72 64 5f 69 64 29 0d 0a | 09 09 57 41 49 54 20 57 |rd_id)..|..WAIT W|
|00003a00| 49 4e 44 4f 57 20 22 53 | 65 6c 65 63 74 20 63 72 |INDOW "S|elect cr|
|00003a10| 65 64 69 74 20 63 61 72 | 64 22 20 4e 4f 57 41 49 |edit car|d" NOWAI|
|00003a20| 54 0d 0a 09 09 52 45 54 | 55 52 4e 20 2e 46 2e 0d |T....RET|URN .F..|
|00003a30| 0a 09 45 4e 44 49 46 0d | 0a 09 6d 2e 73 74 61 74 |..ENDIF.|..m.stat|
|00003a40| 75 73 20 3d 20 64 61 74 | 65 5f 61 6d 74 28 29 0d |us = dat|e_amt().|
|00003a50| 0a 52 45 54 55 52 4e 20 | 6d 2e 73 74 61 74 75 73 |.RETURN |m.status|
|00003a60| 0d 0a 0d 0a 2a 0d 0a 2a | 20 44 41 54 45 5f 41 4d |....*..*| DATE_AM|
|00003a70| 54 0d 0a 2a 0d 0a 46 55 | 4e 43 54 49 4f 4e 20 64 |T..*..FU|NCTION d|
|00003a80| 61 74 65 5f 61 6d 74 0d | 0a 09 49 46 20 45 4d 50 |ate_amt.|..IF EMP|
|00003a90| 54 59 28 6d 2e 74 72 61 | 6e 73 5f 64 61 74 65 29 |TY(m.tra|ns_date)|
|00003aa0| 0d 0a 09 09 57 41 49 54 | 20 57 49 4e 44 4f 57 20 |....WAIT| WINDOW |
|00003ab0| 22 45 6e 74 65 72 20 74 | 72 61 6e 73 61 63 74 69 |"Enter t|ransacti|
|00003ac0| 6f 6e 20 64 61 74 65 22 | 20 4e 4f 57 41 49 54 0d |on date"| NOWAIT.|
|00003ad0| 0a 09 09 52 45 54 55 52 | 4e 20 2e 46 2e 0d 0a 09 |...RETUR|N .F....|
|00003ae0| 45 4e 44 49 46 0d 0a 09 | 49 46 20 45 4d 50 54 59 |ENDIF...|IF EMPTY|
|00003af0| 28 6d 2e 61 6d 74 29 0d | 0a 09 09 57 41 49 54 20 |(m.amt).|...WAIT |
|00003b00| 57 49 4e 44 4f 57 20 22 | 45 6e 74 65 72 20 74 72 |WINDOW "|Enter tr|
|00003b10| 61 6e 73 61 63 74 69 6f | 6e 20 61 6d 6f 75 6e 74 |ansactio|n amount|
|00003b20| 22 20 4e 4f 57 41 49 54 | 0d 0a 09 09 52 45 54 55 |" NOWAIT|....RETU|
|00003b30| 52 4e 20 2e 46 2e 0d 0a | 09 45 4e 44 49 46 0d 0a |RN .F...|.ENDIF..|
|00003b40| 52 45 54 55 52 4e 20 2e | 54 2e 00 00 00 00 00 01 |RETURN .|T.......|
|00003b50| 00 00 00 06 22 53 61 76 | 65 22 00 00 00 00 00 00 |...."Sav|e"......|
|00003b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003b70| 01 00 00 00 0d 4d 53 20 | 53 61 6e 73 20 53 65 72 |.....MS |Sans Ser|
|00003b80| 69 66 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |if......|........|
|00003b90| 00 01 00 00 00 08 6d 2e | 63 61 6e 63 65 6c 00 00 |......m.|cancel..|
|00003ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003bb0| 00 00 01 00 00 00 0f 22 | 40 2a 48 4e 20 5c 3c 43 |......."|@*HN \<C|
|00003bc0| 61 6e 63 65 6c 22 00 00 | 00 00 00 00 00 00 00 00 |ancel"..|........|
|00003bd0| 00 00 00 01 00 00 01 8a | 53 43 41 54 54 45 52 20 |........|SCATTER |
|00003be0| 4d 45 4d 56 41 52 20 4d | 45 4d 4f 0d 0a 6d 2e 61 |MEMVAR M|EMO..m.a|
|00003bf0| 63 63 6e 74 20 3d 20 41 | 4c 4c 54 52 49 4d 28 53 |ccnt = A|LLTRIM(S|
|00003c00| 55 42 53 54 52 28 6d 2e | 61 63 63 6e 74 2c 31 2c |UBSTR(m.|accnt,1,|
|00003c10| 41 54 28 22 20 22 2c 6d | 2e 61 63 63 6e 74 29 29 |AT(" ",m|.accnt))|
|00003c20| 29 0d 0a 0d 0a 6d 2e 65 | 64 69 74 69 6e 67 20 3d |)....m.e|diting =|
|00003c30| 20 2e 46 2e 0d 0a 6d 2e | 61 64 64 69 6e 67 20 3d | .F...m.|adding =|
|00003c40| 20 2e 46 2e 0d 0a 0d 0a | 53 48 4f 57 20 47 45 54 | .F.....|SHOW GET|
|00003c50| 20 6d 2e 6e 65 77 72 65 | 63 6f 72 64 20 45 4e 41 | m.newre|cord ENA|
|00003c60| 42 4c 45 0d 0a 53 48 4f | 57 20 47 45 54 20 6d 2e |BLE..SHO|W GET m.|
|00003c70| 73 61 76 65 72 65 63 6f | 72 64 20 44 49 53 41 42 |savereco|rd DISAB|
|00003c80| 4c 45 0d 0a 53 48 4f 57 | 20 47 45 54 20 6d 2e 63 |LE..SHOW| GET m.c|
|00003c90| 61 6e 63 65 6c 20 44 49 | 53 41 42 4c 45 0d 0a 53 |ancel DI|SABLE..S|
|00003ca0| 48 4f 57 20 47 45 54 20 | 6d 2e 67 6f 74 6f 20 45 |HOW GET |m.goto E|
|00003cb0| 4e 41 42 4c 45 0d 0a 53 | 48 4f 57 20 47 45 54 20 |NABLE..S|HOW GET |
|00003cc0| 6d 2e 74 72 61 6e 73 5f | 74 79 70 65 20 44 49 53 |m.trans_|type DIS|
|00003cd0| 41 42 4c 45 0d 0a 09 0d | 0a 53 48 4f 57 20 47 45 |ABLE....|.SHOW GE|
|00003ce0| 54 20 6d 2e 6c 63 68 6f | 69 63 65 20 45 4e 41 42 |T m.lcho|ice ENAB|
|00003cf0| 4c 45 0d 0a 53 48 4f 57 | 20 47 45 54 20 6d 2e 65 |LE..SHOW| GET m.e|
|00003d00| 63 68 6f 69 63 65 20 45 | 4e 41 42 4c 45 0d 0a 09 |choice E|NABLE...|
|00003d10| 0d 0a 5f 43 55 52 4f 42 | 4a 20 3d 20 4f 42 4a 4e |.._CUROB|J = OBJN|
|00003d20| 55 4d 28 6d 2e 63 68 6f | 69 63 65 2c 20 31 29 0d |UM(m.cho|ice, 1).|
|00003d30| 0a 53 48 4f 57 20 47 45 | 54 53 09 0d 0a 0d 0a 53 |.SHOW GE|TS.....S|
|00003d40| 45 54 20 53 4b 49 50 20 | 4f 46 20 42 41 52 20 39 |ET SKIP |OF BAR 9|
|00003d50| 20 4f 46 20 5f 4d 53 59 | 53 54 45 4d 20 2e 46 2e | OF _MSY|STEM .F.|
|00003d60| 0d 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003d80| 01 00 00 00 08 22 43 61 | 6e 63 65 6c 22 00 00 00 |....."Ca|ncel"...|
|00003d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003da0| 00 01 00 00 00 0d 4d 53 | 20 53 61 6e 73 20 53 65 |......MS| Sans Se|
|00003db0| 72 69 66 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |rif.....|........|
|00003dc0| 00 00 01 00 00 00 09 6d | 2e 67 65 74 68 65 6c 70 |.......m|.gethelp|
|00003dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003de0| 00 00 00 01 00 00 00 0d | 22 40 2a 56 4e 20 5c 3c |........|"@*VN \<|
|00003df0| 48 65 6c 70 22 20 20 20 | 20 20 20 20 20 20 30 20 |Help"   |      0 |
|00003e00| 20 00 00 00 01 00 00 00 | 19 48 45 4c 50 20 fe 20 | .......|.HELP . |
|00003e10| 4d 6f 6e 65 79 20 54 72 | 61 6e 73 61 63 74 69 6f |Money Tr|ansactio|
|00003e20| 6e 73 00 00 00 01 00 00 | 00 06 22 48 65 6c 70 22 |ns......|.."Help"|
|00003e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003e40| 00 00 00 00 00 00 01 00 | 00 00 0d 4d 53 20 53 61 |........|...MS Sa|
|00003e50| 6e 73 20 53 65 72 69 66 | 00 00 00 00 00 00 00 00 |ns Serif|........|
|00003e60| 00 00 00 00 00 00 00 01 | 00 00 00 0d 4d 53 20 53 |........|....MS S|
|00003e70| 61 6e 73 20 53 65 72 69 | 66 20 20 20 20 20 5f 51 |ans Seri|f     _Q|
|00003e80| 41 55 30 4d 58          |                         |AU0MX   |        |
+--------+-------------------------+-------------------------+--------+--------+