<>„zlعz SELECT_AP$TITLE$ YDISABLE$O1X9$F0F$H99$H99$[]H99H99[]HC1HC1[]HC99$HC99$[]HC99HC99[]H9H9[]TODAYT0$T1T1$T2$T3$COMPID$ COMPNAME$ COMPADDR1$ COMPADDR2$ COMPCITY$ COMPSTATE$COMPZIP$ COMPCTRY$ COMPPHONE$ COMPDATE$RMBK1$RMBK2$RMBK1RMBK2RMBK3HC0$HC1$HC2$HC3$HC4$HC5$HC6$HC2HC7$HC8$HC9$HC10$HC3H5$H0$H1$H2$H0H1H2H3H3$H4$H4H5H6H7H8X0X1X3X1$X4XFIRST_CHECKWINDID$SELVAL$GUI_IDY$ LAST_CHECKFOUND_FIRST FOUND_LASTFILE[]K$GUIOSGUI$X$OVERLAP$O7CNTWIND$SEL$PRO$PROGID$X9Z9$X2INFOFLD_HLP$BUTTON_KEYS$[] GUI_RADIO$GENOPEN_MSG$YSAVE$TASKTPL$X8$MX8MX9SPRECO1$XXXX1$XX$XX1IDTF$MSG$MENUHLP$MENU1$TMPDUMMY$PARAM$¾4SETERR GENERROR7GENERROR³J /REM "RMBNK1 - EXTRACT CHECKS FROM HISTORY FILE"¥PZLET SELECT_AP$=STBL("MENUAPP")م‍MENUAPPءٌ 2_REM LET SELECT_AP$="AP"¥€رdVLET TITLE$=" Extract Checks From "+SELECT_AP$+" History ",YDISABLE$="D"; GOSUB PROMPTS م‍ Extract Checks From م#‍ History # م‍D 7PROMPTSںپOn‰IF SELECT_AP$<>"PA" AND SELECT_AP$<>"AP" THEN LET O1=1,X9$="Must Run This Program From PA or AP Only"; GOSUB CLEAR_GLOBAL; GOSUB GENERROR م‍PAاC—م‍APاWم‍1 م‍(Must Run This Program From PA or AP Only 7CLEAR_GLOBALں7GENERRORں=bبLET F0=1,F$="RMBK"+SELECT_AP$م‍1 م‍RMBKم# 1ـ GOSUB GENOPEN7GENOPENں€‹و1IF SELECT_AP$="PA" THEN LET F$="PAHC"+STBL("CID")م‍PAہWم‍PAHC‍CIDءٌ# =€‹ ë1IF SELECT_AP$="AP" THEN LET F$="APHC"+STBL("CID")م‍APہWم‍APHC‍CIDءٌ# =P ًLET F0=2; GOSUB GENOPENم‍2 7GENOPENںh,DIM H99$[0],H99[1]م‍0‍0/م ‍0‍1,*€’1DIM HC1[20],HC99$[0],HC99[1]م‍0‍20,م‍0‍0/م‍0‍1,*€چ 6DIM H9[9],H99$[0],H99[1]م‍0‍9,م‍0‍0/م ‍0‍1,*UگLET TODAY=NUM(STBL("JULDATE"))م‍JULDATEءٌص EƒREM 0 - (GLFIL) 899-918¥0 - (GLFIL) 899-918پ9„>XXTB: IOLIST T0$,T1,T1$,T2$,T3$; REM "all application tables" XXTB`متم‚متمتمتaم8م8م8م8م8aمةمپمةمةمةaمحم„محمحمحa¥‚ ٹsOSCOMP: IOLIST COMPID$,COMPNAME$,COMPADDR1$,COMPADDR2$,COMPCITY$,COMPSTATE$,COMPZIP$,COMPCTRY$,COMPPHONE$,COMPDATE$OSCOMP`متمتمتمتمتمتمتم تم!تم"تaم8م8م8م8م8م8م8م 8م!8م"8aمةمةمةمةمةمةمةم ةم!ةم"ةaمحمحمحمحمحمحمحم حم!حم"حaپ ‌-RMBNK: IOLIST RMBK1$,RMBK2$,RMBK1,RMBK2,RMBK3RMBNK`م#تم$تم%‚م&‚م'‚aم#8م$8م%8م&8م'8aم#ةم$ةم%پم&پم'پaم#حم$حم%„م&„م'„aپذ¢IPAHCX: IOLIST HC0$,HC1$,HC2$,HC3$,HC4$,HC5$,HC1[ALL],HC99$[ALL],HC99[ALL]PAHCX`م(تم)تم*تم+تم,تم-ت aم(8م)8م*8م+8م,8م-8666aم(ةم)ةم*ةم+ةم,ةم-ةaم(حم)حم*حم+حم,حم-حa‚‘§QAPHCX: IOLIST HC0$,HC1$,HC2$,HC1,HC3$,HC4$,HC5$,HC6$,HC2,HC7$,HC8$,HC9$,HC10$,HC3APHCX`م(تم)تم*تم‚م+تم,تم-تم.تم/‚م0تم1تم2تم3تم4‚aم(8م)8م*8م8م+8م,8م-8م.8م/8م08م18م28م38م48aم(ةم)ةم*ةمپم+ةم,ةم-ةم.ةم/پم0ةم1ةم2ةم3ةم4پaم(حم)حم*حم„م+حم,حم-حم.حم/„م0حم1حم2حم3حم4„aƒ/©[APHIX: IOLIST H5$,H0$,H1$,H2$,H0,H1,H2,H3,H3$,H4$,H4,H5,H6,H7,H8,H9[ALL],H99$[ALL],H99[ALL]APHIX`%م5تم6تم7تم8تم9‚م:‚م;‚م<‚م=تم>تم?‚م@‚مA‚مB‚مC‚ a%م58م68م78م88م98م:8م;8م<8م=8م>8م?8م@8مA8مB8مC866 6a%م5ةم6ةم7ةم8ةم9پم:پم;پم<پم=ةم>ةم?پم@پمAپمBپمCپ a%م5حم6حم7حم8حم9„م:„م;„م<„م=حم>حم?„م@„مA„مB„مC„ a?è$REM "DISPLAY AND ENTER PICK SCREEN" ¥پPvLET X0=4,X1=43,X3=1,X1$="#######",X4=LEN(X1$),X=FIRST_CHECK,WINDID$="RMBNK "+SELECT_AP$,SELVAL$=STR(X:X1$),GUI_ID=4000 مD‍4 مE‍43 مF‍1 مG‍####### مHمGئ مIمJ مK‍RMBNK م# مLمIمGءٍ مM‍4000 3GOSUB GENINPUT7GENINPUTںXIF Y$="U" THEN GOTO مN‍UہWmV=پ)hIF X<1 THEN LET X9$="You Must Enter A Beginning Check Number"; GOSUB CLEAR_GLOBAL; GOSUB GENERROR; GOTO مI‍1‰Wم‍'You Must Enter A Beginning Check Number 7CLEAR_GLOBALں7GENERRORںmV=6.LET FIRST_CHECK=XمJمI پO8uLET X0=5,X1=43,X3=1,X1$="#######",X4=LEN(X1$),X=LAST_CHECK,WINDID$="RMBNK "+SELECT_AP$,SELVAL$=STR(X:X1$),GUI_ID=4010 مD‍5 مE‍43 مF‍1 مG‍####### مHمGئ مIمO مK‍RMBNK م# مLمIمGءٍ مM‍4010 3=GOSUB GENINPUT7GENINPUTںXBIF Y$="U" THEN GOTO مN‍UہWmV=پ+G{IF X=FIRST_CHECK AND FOUND_FIRST<=LAST_CHECK THEN GOTO مPمJ†C—مPمOˆWmV=€‌+ھ@IF FOUND_LAST>=FIRST_CHECK AND FOUND_LAST<=LAST_CHECK THEN GOTO مQمJ†C—مQمOˆWmV=,,¬GOTO mVM-ذ2REM "Range overlap in extract, prompt to continue"¥/.ص LET Y$=""مN‍ پo/ع{IF GUI THEN PRINT (OSGUI.CHAN)'SHOW'(4030) ELSE PRINT @(8,7),'SB',STBL("FTXT"),"Checks Already On File! Continue (Y or N)"مTW GUCHANOSGUI¸‍4030{SHOWة‍ ة ڑ;‍0¸‍8‍7@ة{SBة‍FTXTءٌة‍*Checks Already On File! Continue (Y or N)ة‍ ة ڑ=€ث0ن7LET X0=7,X1=52,X3=5,X4=3,X$=OVERLAP$,X1$="",GUI_ID=4030مD‍7 مE‍52 مF‍5 مH‍3 مVمW مG‍ مM‍4030 31éGOSUB GENINPUT7GENINPUTں[2îIF X$<>"YES" THEN GOTO QUITمV‍YESاW7QUITV=}3¸,LET O7=2; GOSUB CLEAR_GLOBAL; GOSUB GENERRORمX‍2 7CLEAR_GLOBALں7GENERRORںX4آIF Y$="U" THEN GOTO مN‍UہWmV=Y5جIF Y$<>"P" THEN GOTO مN‍PاWmV=پs6ض}IF GUI THEN PRINT (OSGUI.CHAN)'TITLE'(100," Extracting... ") ELSE PRINT @(10,22),'SB',STBL("FTXT"),"Extracting... ",مTW GUCHANOSGUI¸‍100‍ Extracting... {TITLEة‍ ة ڑ;‍0¸‍10‍22@ة{SBة‍FTXTءٌة‍Extracting... ة‍ ة ڑ=پ+7CLET F0=2; READ (FILE[F0],KNUM=2,KEY=STR(FIRST_CHECK:"0000000"),DOM= 1); REM "BOTH FILES USE KEYNUM 2 FOR CHECK ORDER" م‍2 ½m DOM@½‍2KNUMمJ‍0000000ءٍKEYm DOM@مR¸R،کک¥c8+IF SELECT_AP$<>"PA" THEN GOTO م‍PAاWm V=€•90LET F0=2; READ (FILE[F0],END= )IOL=PAHCXم‍2 ½mEND@مR¸R7PAHCX_،کi:2"IF NUM(HC4$)>LAST_CHECK THEN GOTO م,صمO‡WmV=€²;3"IF HC1[3]=0 OR HC5$="Y" THEN GOTO ; REM "zero net or voided"‍3‍0…D—م-‍Yہ“WmV¥={<4IF TODAY-HC1[19]>365 THEN GOTO م‍19ٹ‍365‡WmV=a=5#LET RMBK1$=STR(NUM(HC4$):"#######")م#م,ص‍#######ءٍ N>:LET RMBK2$=HC1$(1,6)م$‍1‍6رز) €†??&LET RMBK1=HC1[19],RMBK2=HC1[3],RMBK3=0 م%‍19 م&‍3 م'‍0 پ¢@BگIF GUI THEN PRINT (OSGUI.CHAN)'TITLE'(100," Extracting... "+RMBK1$) ELSE PRINT @(10,22),'SB',STBL("FTXT"),"Extracting... ",'SF',RMBK1$,مTWGUCHANOSGUI¸‍100‍ Extracting... م##{TITLEة‍ ة ڑ;‍0¸‍10‍22@ة{SBة‍FTXTءٌة‍Extracting... ة{SFةم#ة‍ ة ڑ=€“AD.LET F0=1; WRITE (FILE[F0],KEY=RMBK1$)IOL=RMBNKم‍1 ½م#KEY@مR¸7RMBNKë éک=BF LET CNT=CNT+1مYمY‍1Œ ,CIGOTO mVcD€IF SELECT_AP$<>"AP" THEN GOTO م‍APاWmV=7E…REM "READING IN CHECK ORDER"¥€•F”LET F0=2; READ (FILE[F0],END= )IOL=APHCXم‍2 ½mEND@مR¸R7APHCX_،کiG–"IF NUM(HC2$)>LAST_CHECK THEN GOTO م*صمO‡WmV=€€H—IF HC2=0 OR HC3$="Y" THEN GOTO م/‍0…D—م+‍Yہ“Wm V=jIکIF TODAY-HC1>365 THEN GOTO ممٹ‍365‡Wm V=aJ™#LET RMBK1$=STR(NUM(HC2$):"#######")م#م*ص‍#######ءٍ 4K‍LET RMBK2$=HC1$م$م) fL£LET RMBK1=HC1,RMBK2=HC2,RMBK3=0 م%م م&م/ م'‍0 پ¢M¦گIF GUI THEN PRINT (OSGUI.CHAN)'TITLE'(100," Extracting... "+RMBK1$) ELSE PRINT @(10,22),'SB',STBL("FTXT"),"Extracting... ",'SF',RMBK1$,مTWGUCHANOSGUI¸‍100‍ Extracting... م##{TITLEة‍ ة ڑ;‍0¸‍10‍22@ة{SBة‍FTXTءٌة‍Extracting... ة{SFةم#ة‍ ة ڑ=€“N¨.LET F0=1; WRITE (FILE[F0],KEY=RMBK1$)IOL=RMBNKم‍1 ½م#KEY@مR¸7RMBNKë éک=Oھ LET CNT=CNT+1مYمY‍1Œ ,PGOTO m VپQ QIF GUI THEN PRINT (OSGUI.CHAN)'TITLE'(100,FILL(55)) ELSE PRINT @(10,22),FILL(50),مTWGUCHANOSGUI¸‍100‍55ء³{TITLEة‍ ة ڑ; ‍0¸‍10‍22@ة‍50ء³ة‍ ة ڑ=€¢Rھ;LET X9$=STR(CNT)+" Records Extracted From "+SELECT_AP$,O7=1ممYءٍ‍ Records Extracted From #م# مX‍1 ^S´"GOSUB CLEAR_GLOBAL; GOSUB GENERROR7CLEAR_GLOBALں7GENERRORں*T¹ GOTO QUIT7QUITVOUpREM 0 - (GENINPUT) 6000-6190¥0 - (GENINPUT) 6000-6190eVq:GENINPUT: REM "08/05/92 - General Input Routine Interface"GENINPUT¥pWu+LET WIND$=WINDID$,SEL$=SELVAL$,PRO$=PROGID$ مZمK م[مL م\م] WXzIF X9<>0 THEN GOTO م^‍0‹WmV=€»YتCIF POS(Y$="PJQ") THEN LET WINDID$="",SELVAL$="",PROGID$=""; RETURN مN‍1‍PJQظW مK‍ مL‍ م]‍ •=پشZش®IF GUI=0 THEN CALL "GENINPUT.PUB",ERR=GENERROR,Z9$,Y$,(X0),(X1),(X2),(X3),(X4),X9,X1$(1),X,X$,INFO,WINDID$,SELVAL$,COMPID$,PROGID$,FILE[ALL],YDISABLE$,PGM(-2),FLD_HLP$; GOTO مT‍0…W$½7GENERRORERR@‍GENINPUT.PUBم_مNمD”مE”م`”مF”مH”م^‍1رزGمIمVمaمKمLمم]Rم‍2àءطمbکmV=پش[قؤCALL "GENGUINP.PUB",ERR=GENERROR,Z9$,Y$,(X0),(X1),(X2),(X3),(X4),X9,X1$(1),X,X$,INFO,WINDID$,SELVAL$,COMPID$,PROGID$,FILE[ALL],YDISABLE$,PGM(-2),FLD_HLP$,GUI_ID,BUTTON_KEYS$[ALL],OSGUI$,GUI_RADIO$(½7GENERRORERR@‍GENGUINP.PUBم_مNمD”مE”م`”مF”مH”م^‍1رزGمIمVمaمKمLمم]Rم‍2àءطمbمMcمUمdک€›\è ON POS(Y$="DI PJCEU") GOTO ,,, مN‍1‍DI PJCEUظmmmm‘€¾]$"IF STBL("VERSW")="OFF" THEN GOSUB ELSE GOSUB ; REM "check other commands"‍VERSWءٌ‍OFFہWmں;mں¥=,^&GOTO mV€ہ_'EGOSUB INFO; LET Y$="E",WINDID$=WIND$,SELVAL$=SEL$,PROGID$=PRO$; GOTO 7INFOںمN‍E مKمZ مLم[ م]م\ mV-`)GOSUB mں,a+GOTO mVb.RETURN •3c8REM 0 - [INFO]¥ 0 - [INFO]$d9INFO: INFOeBRETURN •GfLPROMPTS: REM "DISPLAY SCREEN"PROMPTS¥VgMIF GUI THEN GOTO GUI_PROMPTSمTW7GUI_PROMPTSV=-hNGOSUB mں`iPPRINT 'SB',STBL("FTXT"),‍0¸{SBة‍FTXTءٌة‍ ة ڑ€‰jV"PRINT @(23,4)," Check Number From"‍0¸‍23‍4@ة‍ Check Number Fromة‍ ة ڑ€‰k["PRINT @(23,5)," Thru"‍0¸‍23‍5@ة‍ Thruة‍ ة ڑ/l`LET X2=0م`‍0 mjRETURN •?nDATA: REM "DISPLAY DATA"DATA¥PoIF GUI THEN GOTO GUI_DATAمTW7GUI_DATAV=op<PRINT 'CF','SF',STBL("FTXT"), ‍0¸{CFة{SFة‍FTXTءٌة‍ ة ڑqdRETURN •.rـREM "Display Boxes"¥€½sل"" THEN LET O7=1,X9$=GENOPEN_MSG$; GOSUB GENERROR; GOTO مe‍اWمX‍1 ممe 7GENERRORںmV=b €'LET YDISABLE$=YSAVE$,YSAVE$=""; RETURN ممf مf‍ •O€ ذREM 0 - (GENERROR) 8400-8452¥0 - (GENERROR) 8400-8452[پ ر0GENERROR: REM "02/21/89 - GENERAL ERROR ROUTINE"GENERROR¥€ھ‚ ص,IF O7=0 AND X9$="" AND X8$="" THEN LET O7=-3مX‍0…C—م‍ہC—مi‍ہWمX‍3à =پRƒ عzCALL "GENERROR.PUB",X9$,X8$,ERR,TCB(5),O7,Y$,TCB(10),X1$(1),F$(1),PROGID$,FILE[ALL],YDISABLE$,PGM(-2),X$,X4,MX8,MX9,OSGUI$‍GENERROR.PUBممi«‍5ُمXمN‍10ُ‍1رزG‍1رزم]Rم‍2àءطمVمHمjمkمU€·„ ن ON POS(Y$="XMSLR") GOTO ,,,,,مN‍1‍XMSLRظmmmmmm‘…!RETURN •€ژ†!:LET SPREC=TCB(14); RESET; PRECISION SPREC; SETERR GENERRORمl‍14ُ ¨مlن-7GENERROR³X‡!IF Y$="X" THEN GOTO مN‍XہWmV=Xˆ!IF Y$="S" THEN GOTO مN‍SہWmV=J‰!/REM "8470=BR ON X, 8480=BR ON S, 8490=L PRINT" ¥,ٹ!GOTO m V,‹! GOTO m VQŒ!*REM 0 - (GENERROR2) 8490-8499¥0 - (GENERROR2) 8490-8499=چ!+CALL "GENPSCR.PUB"‍GENPSCR.PUB/ژ!, LET Y$=""مN‍ ڈ!/RETURN •گ!3RETRYھ$‘'QUIT: QUIT&’' RUN O1$مm¬“'END<O”'REM 0 - (GENNUM) 10000-10035¥0 - (GENNUM) 10000-10035<•'DEF FNNUM$(XX,XX1$)(no€…–'LET XX$=STR(XX:XX1$,ERR=!); GOTO " مp½m!ERR@مnمoءٍک m"VپP—'yLET XX1=LEN(XX1$); IF POS(XX1$(XX1,1)="-)") THEN LET XX1=XX1-1 FI; LET XX$=FILL(XX1,"*"),XX$=XX$+FILL(LEN(XX1$)-LEN(XX$))مqمoئ مq‍1رزo‍1‍-)ظWمqمq‍1ٹ =مpمq‍*ء³ مpمpمoئمpئٹء³# (ک' RETURN XX$مp«!™'FNENDN}Fڑ'DEF FNGUINUM$(XX,XX1$,ID)(nor€…›'LET XX$=STR(XX:XX1$,ERR=#); GOTO $ مp½m#ERR@مnمoءٍک m$VپPœ'$yLET XX1=LEN(XX1$); IF POS(XX1$(XX1,1)="-)") THEN LET XX1=XX1-1 FI; LET XX$=FILL(XX1,"*"),XX$=XX$+FILL(LEN(XX1$)-LEN(XX$))مqمoئ مq‍1رزo‍1‍-)ظWمqمq‍1ٹ =مpمq‍*ء³ مpمpمoئمpئٹء³# €‚‌')(LET TF$=SENDMSG(OSGUI.CHAN,ID,23,0,XX1$)مsGUCHANOSGUIمr‍23‍0مoءن =‍'.RETURN CVS(XX$,3)مp‍3ء£«!ں'3FNENDN}2 D] GUI_PROMPTS: GUI_PROMPTS€س،DpILET OSGUI.SCRNID$="RMBNK1.BRC",OSGUI.WIND_ID[1]=1,OSGUI.CONTEXT_POINTER=1 2USCRNID$‍ RMBNK1.BRC ‍13UWIND_ID‍1 GUCONTEXT_POINTEROSGUI‍1 پm¢DzگLET MSG$=""; CALL "GENGURES.PUB",FILE[ALL],OSGUI$,MSG$; IF CVS(MSG$,3)<>"" THEN LET X9$=MSG$,O7=1; GOSUB CLEAR_GLOBAL; GOSUB GENERROR; GOTO QUITمt‍ ‍GENGURES.PUBRمUمtمt‍3ء£‍اWممt مX‍1 7CLEAR_GLOBALں7GENERRORں7QUITV=€…£D„7CALL "GENGUFNC.PUB::BUILD_MENU_STRINGS",MENUHLP$,MENU1$‍ GENGUFNC.PUB::BUILD_MENU_STRINGSمuمv€î¤DژYLET MENU1$=MENU1$+MENUHLP$; PRINT (OSGUI.CHAN)'SETMENU',MENU1$; LET MENU1$="",MENUHLP$=""مvمvمu# GUCHANOSGUI¸{SETMENUةمvة‍ ة ڑمv‍ مu‍ €›¥D¶-PRINT (OSGUI.CHAN)'TITLE'(0,TITLE$),'SHOW'(0) GUCHANOSGUI¸‍0م{TITLEة‍0{SHOWة‍ ة ڑ¦D»RETURN •c§E$&REM 17700 "----------------- GUI data"¥"17700 "----------------- GUI data",¨E. GUI_DATA: GUI_DATA€µ©E3=PRINT (OSGUI.CHAN)'TITLE'(4000,FNNUM$(FIRST_CHECK,"#######"))GUCHANOSGUI¸‍4000مJ‍#######FFNNUM$${TITLEة‍ ة ڑ€´ھE8t! qzVjوtè\?? v{ w|[k x}B@~"DA {~`lFBƒ#IC €jmْuچ$’%”&<p—'œ(‌)E$§D] F´±F¹²¦*E.¨ USR_FNNUM$• USR_FNGUINUM$ڑUSR_FNCHECK؛&8¸ˆ“œ‌ذ€ 0”شè$)'. ن ع#ًـ' q!!!*!3!! è'''$')G'