home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / busi / chkmstr.zip / SETUP.PRG < prev    next >
Text File  |  1990-03-15  |  8KB  |  290 lines

  1. CLEAR
  2. @10,20 SAY "LOADING DATA FILES ----------------------------"
  3. IF ISCOLOR()
  4. SET COLOR TO W/B,W/R,BG
  5. ENDIF
  6. RESTORE FROM CHEXMANG
  7. SET SAFETY OFF
  8. SET ECHO OFF
  9. SET TALK OFF
  10. USE CONFIG
  11. BYPASS=BYPASSD
  12. IF BYPASS= "0"
  13. CLEAR
  14. @2,1 TO 20,78
  15. @4,15 SAY "**************************************************"
  16. @6,30 SAY "WARNING !!!!!!"
  17. @8,15 SAY "**************************************************"
  18. @10,22 SAY "YOU WILL ONLY BE ABLE TO RUN THIS"
  19. @11,22 SAY "PROGRAM { ONE (1) } TIME IN ORDER"
  20. @12,22 SAY "TO INITIALLY SET UP YOUR CHECKING"
  21. @13,22 SAY "ACCOUNT SYSTEM. TO RUN IT AGAIN WOULD"
  22. @14,22 SAY "DESTROY ALL YOUR ACCOUNT DATA !!!!!"
  23. @16,22 SAY "ARE YOU READY AT THIS TIME TO SET UP"
  24. @17,22 SAY "YOUR SYSTEM ?? TYPE { Y } TO CONTINUE,"
  25. @18,22 SAY "TYPE { N } TO CANCEL AND RETURN TO DBASE."
  26. ABORT=" "
  27. DO WHILE .NOT. (UPPER(ABORT) $ 'YN')
  28. WAIT " " TO ABORT
  29. IF UPPER(ABORT) ='N'
  30. CLEAR
  31. @10,30 SAY "OPERATION CANCELLED !!!!"
  32. CANCEL
  33. ENDIF
  34. CLEAR
  35. @10,10 SAY "SETTING UP DATA FILES -------------------------"
  36. REPLACE CONFIGD WITH CONFIG
  37. CLEAR MEMORY
  38. CONFIG=" "
  39. CONFIG=CONFIGD
  40. USE CHKBKUP INDEX CBATNM,CHBKPT,CKBKSQ
  41. ZAP
  42. PACK
  43. USE DEPBKUP INDEX DBKAMT
  44. ZAP
  45. PACK
  46. USE DEPARC INDEX DARAMT
  47. ZAP
  48. PACK
  49. USE CHKARC INDEX CKARNM,CHARPT,CKARSQ
  50. ZAP
  51. PACK
  52. USE CHEXREG INDEX CKATNM,CKSEQ,CHEXPT
  53. ZAP
  54. PACK
  55. USE DEPREG INDEX DEPAMT
  56. ZAP
  57. PACK
  58. USE WORKCHEX INDEX WORKCHEX
  59. ZAP
  60. PACK
  61. USE ADDDEP INDEX ADDDEP
  62. ZAP
  63. PACK
  64. USE PERMCHEX
  65. ZAP
  66. USE REXREG
  67. ZAP
  68. USE REXCHEX
  69. ZAP
  70. USE REXDEP
  71. ZAP
  72. USE ACCTC INDEX ACCTC
  73. ZAP
  74. PACK
  75. USE ACCAR INDEX ACCAR
  76. ZAP
  77. PACK
  78. USE KIMACT
  79. ZAP
  80. PACK
  81. USE CSTATS INDEX CSTATS
  82. ZAP
  83. PACK
  84. USE CKTOT
  85. ZAP
  86. PACK
  87. USE CKTOAR
  88. ZAP
  89. PACK
  90. MESG= " "
  91. AUTO= " "
  92. PASS= "0"
  93. STORE 0 TO MULV,CGIN,MILE,CGEXP,CRUN,C00T,C01T,C02T,C03T,C04T,C05T,;
  94. CNTOT,ACTMIN,WCSN,COUNTER,ACCTN,SEQ,TRAND,TRANE,TRANF,TRANG,RCFBU,;
  95. RDFBU,ADDDEP_TOT,ACCTA,ACCTB,ACCTC,ACCTD,ACCTE,ACCTF,ACCTG,ACCTH,;
  96. A06SUM,A11SUM,DEP_TOTAL,CHEX_TOTAL,WKCHEX_TOT,GRAND_TOTL,DPARC,CKARC
  97. STORE 0 TO BASIS,RESID
  98. STAT=0.00
  99. STAT2=0.00
  100. COMBINE=0.00
  101. BANK2V=0.00
  102. FULLTEXT = " "
  103. DB10="           "
  104. DA02="           "
  105. ACCTKT= "0"
  106. XCPY= " "
  107. B111A=0.00
  108. B112A=0.00
  109. B113A=0.00
  110. ARCYEAR=YEAR(DATE())
  111. TRANDATE=MONTH(DATE())
  112. STORE "                      " TO A,B,C,D,E,F,G,H,BANK1,BANK2,;
  113. A01,A02,A03,A04,A05,A06,A07,A08,A09,A10,A11,A12,B01,B02,B03,B04,;
  114. B05,B06,B07,B08,B09,B10,B11,B12,B13,B14,B111,B1111,B112,B1121
  115. STORE "                      " TO B1131,C01,C02,C03,C04,C05,C06,;
  116. E01,E02,F01,F02,B113,C99,C09,C11,C12,D01,D02,C10,C08,C07
  117. ENDIF
  118. CLEAR
  119. @8,25 SAY "    THIS FIRST STEP WILL"
  120. @10,25 SAY "ALLOW YOU TO ASSIGN ACCOUNT"
  121. @12,25 SAY "   NAMES AND OTHER DATA."
  122. @14,25 SAY "IF YOU WISH TO SKIP OVER AN"
  123. @16,25 SAY "ENTRY, PRESS { DOWN ARROW } KEY !"
  124. WAIT
  125. CLEAR
  126. @2,8 SAY "ENTER ACCOUNT NUMBER                      " GET ACCTN
  127. @3,8 SAY "ENTER STARTING CHECK SEQUENCE NUMBER      " GET SEQ
  128. @4,8 SAY "ENTER ACCOUNT MINIMUM WARNING VALUE       " GET ACTMIN
  129. @5,8 SAY "ENTER NAME ACCOUNT { A }                  " GET A
  130. @6,8 SAY "ENTER NAME ACCOUNT { B }                  " GET B
  131. @7,8 SAY "ENTER NAME ACCOUNT { C }                  " GET C
  132. @8,8 SAY "ENTER NAME ACCOUNT { D }                  " GET D
  133. @9,8 SAY "ENTER NAME ACCOUNT { E }                  " GET E
  134. @10,8 SAY "ENTER NAME ACCOUNT { F }                  " GET F
  135. @11,8 SAY "ENTER NAME ACCOUNT { G }                  " GET G
  136. @12,8 SAY "ENTER NAME ACCOUNT { H }                  " GET H
  137. @13,8 SAY "BANK WHERE CHECKING ACCOUNT IS MAINTAINED " GET BANK1
  138. @14,8 SAY "BANK OR INSTITUTION WHERE 2nd ACCOUNT IS  " GET BANK2
  139. @15,8 SAY "BYPASS CERTAIN HELP MESSAGES { Y/N } ?    " GET MESG
  140. @16,8 SAY "AUTOMATIC DEPOSIT DATE YEAR ? ENTER { A } " GET AUTO
  141. READ
  142. CLEAR
  143. @2,14 SAY "CONTINUE ASSIGNING ACCOUNT VALUES  { *P* and *B* }."
  144. @5,10 SAY "ENTER { DA02 } TO DISPLAY              " GET DA02
  145. @6,10 SAY "ENTER { DB10 } TO DISPLAY              " GET DB10
  146. @7,10 SAY "ENTER $$ VALUE OF { DA02 }             " GET STAT
  147. @8,10 SAY "ENTER $$ VALUE OF { DB10 }             " GET STAT2
  148. @9,10 SAY "ENTER NAME B111                        " GET B111
  149. @10,10 SAY "ENTER NAME B1111                       " GET B1111
  150. @11,10 SAY "ENTER NAME B112                        " GET B112
  151. @12,10 SAY "ENTER NAME B1121                       " GET B1121
  152. @13,10 SAY "ENTER NAME B113                        " GET B113
  153. @14,10 SAY "ENTER NAME B1131                       " GET B1131
  154. @15,10 SAY "ENTER TRANSFER AMOUNT FOR ACCOUNT { E }" GET TRANE
  155. @16,10 SAY "ENTER TRANSFER AMOUNT FOR ACCOUNT { F }" GET TRANF
  156. @17,10 SAY "ENTER TRANSFER AMOUNT FOR ACCOUNT { G }" GET TRANG
  157. @18,10 SAY "ENTER INITIAL VALUE FOR ACCT.{C} EXPS. " GET CGEXP
  158. @19,10 SAY "ENTER AUTOMOBILE CENTS PER MILE        " GET MILE
  159. @20,10 SAY "ENTER BASIS VALUE OF HOME              " GET BASIS
  160. @21,10 SAY "ENTER NUMBER OF ROOMS IN HOME          " GET MULV
  161. READ
  162. MESG=UPPER(MESG)
  163. I="I - " + BANK2
  164. IF PASS= "0"
  165. REMAIN=31.5
  166. RESID=BASIS
  167. PASS="1"
  168. ENDIF
  169. CLEAR
  170. @2,25 SAY "     YOU ARE NOW READY TO "
  171. @3,25 SAY "SET-UP YOUR CHECKING ACCOUNT CODES."
  172. @5,1 SAY "A01" GET A01
  173. @6,1 SAY "A02" GET A02
  174. @7,1 SAY "A03" GET A03
  175. @8,1 SAY "A04" GET A04
  176. @9,1 SAY "A05" GET A05
  177. @10,1 SAY "A06" GET A06
  178. @11,1 SAY "A07" GET A07
  179. @12,1 SAY "A08" GET A08
  180. @13,1 SAY "A09" GET A09
  181. @14,1 SAY "A10" GET A10
  182. @15,1 SAY "A11" GET A11
  183. @16,1 SAY "A12" GET A12
  184. @18,1 SAY "D01" GET D01
  185. @19,1 SAY "D02" GET D02
  186. @5,27 SAY "B01" GET B01
  187. @6,27 SAY "B02" GET B02
  188. @7,27 SAY "B03" GET B03
  189. @8,27 SAY "B04" GET B04
  190. @9,27 SAY "B05" GET B05
  191. @10,27 SAY "B06" GET B06
  192. @11,27 SAY "B07" GET B07
  193. @12,27 SAY "B08" GET B08
  194. @13,27 SAY "B09" GET B09
  195. @14,27 SAY "B10" GET B10
  196. @15,27 SAY "B11" GET B11
  197. @16,27 SAY "B12" GET B12
  198. @17,27 SAY "B13" GET B13
  199. @18,27 SAY "B14" GET B14
  200. @20,27 SAY "E01" GET E01
  201. @21,27 SAY "E02" GET E02
  202. @5,53 SAY "C01" GET C01
  203. @6,53 SAY "C02" GET C02
  204. @7,53 SAY "C03" GET C03
  205. @8,53 SAY "C04" GET C04
  206. @9,53 SAY "C05" GET C05
  207. @10,53 SAY "C06" GET C06
  208. @11,53 SAY "C07" GET C07
  209. @12,53 SAY "C08" GET C08
  210. @13,53 SAY "C09" GET C09
  211. @14,53 SAY "C10" GET C10
  212. @15,53 SAY "C11" GET C11
  213. @16,53 SAY "C12" GET C12
  214. @17,53 SAY "C99" GET C99
  215. @19,53 SAY "F01" GET F01
  216. @20,53 SAY "F02" GET F02
  217. READ
  218. CLEAR
  219. @10,23 SAY "IF YOU HAVE { XCOPY } ON YOUR"
  220. @11,23 SAY "DOS DISK, AND YOU WANT TO USE"
  221. @12,23 SAY "IT INSTEAD OF { COPY } TO BACKUP"
  222. @13,23 SAY "YOUR DATA FILES, ENTER { X } NOW !"
  223. @15,23 SAY "    OTHERWISE, ENTER { C }."
  224. XCPY= " "
  225. DO WHILE .NOT. (UPPER(XCPY) $ 'CX')
  226. WAIT " " TO XCPY
  227. ENDDO
  228. XCPY=UPPER(XCPY)
  229. IF CONFIG= "C" .OR. CONFIG= "D"
  230. CLEAR
  231. @7,25 SAY "AT THIS POINT YOU WILL SELECT"
  232. @8,25 SAY "YOUR BACKUP FLOPPY DRIVES."
  233. @10,25 SAY "YOU ARE NOW SET TO BACKUP TO"
  234. @11,25 SAY "BOTH { A } AND { B } DRIVES."
  235. @12,25 SAY "LEAVE AS IS, OR MODIFY !!!!"
  236. @14,25 SAY "PRESS { CTRL-W } WHEN DONE."
  237. WAIT
  238. DO CASE
  239. CASE CONFIG= "C".AND. XCPY= "C"
  240. MODIFY COMMAND SAVEC.BAT
  241. CASE CONFIG= "D".AND. XCPY= "C"
  242. MODIFY COMMAND SAVED.BAT
  243. CASE CONFIG= "C".AND. XCPY= "X"
  244. MODIFY COMMAND XSAVEC.BAT
  245. CASE CONFIG= "D".AND. XCPY= "X"
  246. MODIFY COMMAND XSAVED.BAT
  247. ENDCASE
  248. ENDIF
  249. CLEAR
  250. @8,20 SAY "    THIS STEP ALLOWS YOU TO ENTER"
  251. @9,20 SAY "RECORDS INTO YOUR PERMENANT CHECK FILE."
  252. @11,20 SAY "   PRESS { CTRL-END } WHEN DONE !!!"
  253. @13,15 SAY "MAKE SURE TO ENTER A { P } INTO THE { V } FIELD !!"
  254. WAIT
  255. USE PERMCHEX
  256. APPEND
  257. CLEAR
  258. @8,25 SAY "IF YOUR ENTRIES ARE CORRECT AND"
  259. @9,25 SAY "YOU WISH TO SAVE THEM, TYPE { S }."
  260. @11,25 SAY "OTHERWISE, TYPE { A } TO RETURN"
  261. @12,25 SAY "TO BEGINNING OF SETUP PROGRAM."
  262. RETN= " "
  263. DO WHILE .NOT. (UPPER(RETN) $ 'SA')
  264. WAIT " " TO RETN
  265. ENDDO
  266. IF UPPER(RETN)= "A"
  267. DO SETUP
  268. ENDIF
  269. BYPASS= "1"
  270. USE CONFIG
  271. RNUM=REGNOD
  272. REPLACE BYPASSD WITH BYPASS
  273. CLEAR
  274. @10,20 SAY "LOADING DATA FILES ----------------------------"
  275. DO CASE
  276. CASE CONFIG="A"
  277. SAVE TO A:CHEXMANG
  278. CASE CONFIG="B"
  279. SAVE TO B:CHEXMANG
  280. CASE CONFIG="C"
  281. SAVE TO C:\CHEXMANG\CHEXMANG
  282. CASE CONFIG="D"
  283. SAVE TO D:\CHEXMANG\CHEXMANG
  284. ENDCASE
  285. CLOSE DATABASE
  286. SET PROCEDURE TO CHECK
  287. DO CHEXMENU
  288. RETURN
  289.  
  290.