Programmer 7500

home *** CD-ROM | disk | FTP | other *** search

/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / BLDPAS.ZIP / BLDPAS.DOC next >

Wrap

Text File | 1993-04-15 | 31.0 KB | 709 lines

********************* Copyright has been applied for BLDPAS Registration Fee: $20.00 Source Code: $15.00 Registration of program gets SOURCE ZOOMCHAR or LOTTERY program for $5.00 off. DBA TEKSERV %William A. Phillips RT 1 BOX 397 Piney Grove Danbury, Nc 27016 USA COMPUSERV 75250,1012 ********************** *N* Build Program is a simple but flexible way to build a screen with associated cursor contorls and database without programming. Although you can program changes since a program is generated. REQUIREMENTS: PC AT 286 or compatible, TURBO Pascal 4.0 or higher compiler. NOTE: Rapsvars.Pas source code contains the global variables. The PASCALDB tpu unit sent is a TURBO PASCAL 7.0 Compiled unit. If you have trouble with an older compile the PASCALDB.T40 is a 4.0 compile. You can rename the PASCALDB.TPU unit to something and rename the PASCALDB.T40 to PASCALDB.TPU. *N* PROGRAM BUILD FOR PASCAL Example Screen: XXXXXXXX INVOICE XXXXXXXX INVOICE: XXXXXXXXX CUSTOMER: XXXXXXXXX NAME: XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX X ADDRESS: XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XX XXXXXXXXX STOCK DESCRIPTION VENDOR EACH TOTAL _____ _______________________________ ______ _________ _________ XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX Sub Total XXXXXXXXX Tax XXXXXXXXX TOTAL XXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX *N* USER GUIDE To begin load the BLDPAS disk onto a directory of your choice. If you are going to use the "TURBO" Pascal compiler from Borland load the BLDPAS programs onto the "\PASCAL" directory. Next load the Database disk onto the "\BLDPAS" directory. You are then ready to begin building a program by entering "BLDPAS" and depressing enter. You should see a screen like the following. PROGRAM BUILD FOR PASCAL Program Name: ________ Text Color: B (R - K) Back Color: K (R - K) Box Color: R (R - K) R-Red Y-Yellow G-Green B-Blue C-Cyan W-WHite K-Black M-Magenta Enter a program name up to 8 characters. The text color is the default color of the screen text. You can enter a number from "0" thru "9". "1" is the default for this screen which is blue. The colors are: K - Black B - Blue G - Green R - Red M - Magenta C - Cyan Y - Yellow W - White These text colors can be changed later in the execution for the modifiable fields. Enter the Back color or the color of the backround of the screen. The default is "0" which is Black. The Box color if present will put a box around the outside of the screen with defult color Red. If you do not want a box Blank this field out. Press "ENTER" when done. You will then see an empty screen on which you can begin entering characters which will comprise you screen. How this screen WORKS: The Tab,Cursor, Home, End, Enter, And ESC keys are function keys. Tab will tab to the end of the line and back. Cursor will move the cursor. The Home and End key will place the cursor at the top left or bottom left of the screen respectively. The 24th line is reserved for action literals for your program and the 25th line is reserved for messages. To enter a screen you just type the characters just as you would like to see the screen to appear with one exception. Wherever you plan to enter data or display it Type an "X" where the field is to start for the length of the field. THERE MUST BE A BLANK BEFORE THE START OF A DATA FIELD. For example the screen on the cover is an example of a screen entered to be built. Notice the "X" characters. These represent fields into which you will enter or display data. XXXXXXXX INVOICE XXXXXXXX INVOICE: XXXXXXXXX CUSTOMER: XXXXXXXXX NAME: XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX X ADDRESS: XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XX XXXXXXXXX STOCK DESCRIPTION VENDOR EACH TOTAL _____ _______________________________ ______ _________ _________ XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX Sub Total XXXXXXXXX Tax XXXXXXXXX TOTAL XXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USE THE "ESC" KEY WHEN DONE WITH THIS SCREEN The two data fields on the top line are for the date and time. When you have completed your screen depress the "ESC" key. You will then be ready to enter the Type, Attribute, Color, and Key designations. At this point you can depress the ENTER key four times without entering any other data to get the generate screen. By depressing ENTER at the generate screen you will genereate the program. The data fields will be defaulted to character fields. The Attributes will be modifiable. The Color will be Blue. And the first modifiable field will have a an index. Otherwise you will be prompted to enter the Type of field. The types of fields are either character or numeric. If the field is a character field simply leave an "X" in the first byte of the field. If the field is numeric enter a "N" in the first byte of the field. If you want the field to be an amount field enter "$" in the first byte of the field. XXXXXXXX INVOICE XXXXXXXX INVOICE: NXXXXXXXX CUSTOMER: NXXXXXXXX NAME: XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX X ADDRESS: XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XX XXXXXXXXX STOCK DESCRIPTION VENDOR EACH TOTAL _____ _______________________________ ______ _________ _________ XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX Sub Total XXXXXXXXX Tax XXXXXXXXX TOTAL XXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX As you can see the INVOICE and Customer fields are numbers and the "EACH" and "TOTAL" fields are amounts. Depress "ENTER" when done. You will then be prompted for the "ATTR" of the field. The Attribute designates whether the field is to be modifiable by the keyboard or protected (Display only). Place an "X" in the first byte of the field if the field is to be modifiable. Place an "P" in the first byte of the field if the field is to be protected. Since the first two fields are the date and time you can enter a "P" in these fields. Enter "N" if the field is to be Non Display. There is no special editing for numeric or amount fields yet. You can inquire MAPTYP to see what type of field it is. Editing is planned in a later release. PXXXXXXX INVOICE PXXXXXXX INVOICE: NXXXXXXXX CUSTOMER: NXXXXXXXX NAME: XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX X ADDRESS: XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XX XXXXXXXXX STOCK DESCRIPTION VENDOR EACH TOTAL _____ _______________________________ ______ _________ _________ XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX Sub Total XXXXXXXXX Tax XXXXXXXXX TOTAL XXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Depress ENTER when done. You will be prompted to enter the color for each data field. The colors for the fields are: B - Blue G - Green R - Red C - Cyan Y - Yellow W - White Enter the color letter of your choice in the first byte of each field. You can leave an "X" in the field and the field color will default to the default text color you entered on the main screen. The following entries would make the date and time entries White, the Invoice and Customer numbers Yellow, and the other fields Green. WXXXXXXX INVOICE WXXXXXXX INVOICE: YXXXXXXXX CUSTOMER: YXXXXXXXX NAME: GXXXXXXXXXXXXXXXXXXX GXXXXXXXXXXXXXX G ADDRESS: GXXXXXXXXXXXXXXXXXXX GXXXXXXXXXXXXXX GX GXXXXXXXX STOCK DESCRIPTION VENDOR EACH TOTAL _____ _______________________________ ______ _________ _________ GXXXX GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX GXXXXX GXXXXXXXX GXXXXXXXX GXXXX GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX GXXXXX GXXXXXXXX GXXXXXXXX GXXXX GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX GXXXXX GXXXXXXXX GXXXXXXXX GXXXX GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX GXXXXX GXXXXXXXX GXXXXXXXX GXXXX GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX GXXXXX GXXXXXXXX GXXXXXXXX GXXXX GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX GXXXXX GXXXXXXXX GXXXXXXXX GXXXX GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX GXXXXX GXXXXXXXX GXXXXXXXX GXXXX GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX GXXXXX GXXXXXXXX GXXXXXXXX GXXXX GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX GXXXXX GXXXXXXXX GXXXXXXXX GXXXX GXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX GXXXXX GXXXXXXXX GXXXXXXXX Sub Total GXXXXXXXX Tax GXXXXXXXX TOTAL GXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Depress ENTER when done. You will then be prompted to enter the data fields for which you want indexes on (you can search on these as keys). Enter the appropriate letter "U" for a unique index and "K" for an index allowing duplicate entries in the first byte of any data field you wish to have as a key. By selecting appropriate keys you can have a very useful and flexible application. The following example illustrates an application that can have duplicate keys on the Customer, First Name, Address, State, or Zip code. Also it allows only a Unique key on the INVOICE number. So that each invoice is unique. XXXXXXXX INVOICE XXXXXXXX INVOICE: UXXXXXXXX CUSTOMER: KXXXXXXXX NAME: KXXXXXXXXXXXXXXXXXXX KXXXXXXXXXXXXXX K ADDRESS: KXXXXXXXXXXXXXXXXXXX KXXXXXXXXXXXXXX KX KXXXXXXXX STOCK DESCRIPTION VENDOR EACH TOTAL _____ _______________________________ ______ _________ _________ XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX Sub Total XXXXXXXXX Tax XXXXXXXXX TOTAL XXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Depress the ENTER key when done. This concludes the buld screen process. You should see the generate screen which if you now depress ENTER your program will be generated. If you wish to terminate the process depress the "ESC" key. If you depress the "ESC" everything will be lost. You will have to start form the beginning. By depressing the ENTER key you will have a program generated with the name program.PAS where program is the name you entered on the main screen. A new directory of the name "program" will be made and your program compiled to this directory. You can then change to this directory CD \program and enter the program name to execute the program. This program was called invoice so you could enter "CD \INVOICE", depress enter and enter "INVOICE" to execute the program. XXXXXXXX INVOICE XXXXXXXX INVOICE: XXXXXXXXX CUSTOMER: XXXXXXXXX NAME: XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX X ADDRESS: XXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXX XX XXXXXXXXX STOCK DESCRIPTION VENDOR EACH TOTAL _____ _______________________________ ______ _________ _________ XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX XXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXXXXX XXXXXXXXX XXXXXXXXX Sub Total XXXXXXXXX Tax XXXXXXXXX TOTAL XXXXXXXXX Ent-Get F2-Get Next F3-Get Prev F4-Find F5-List F6-Add F7-Updt F8-Del F10-Util DEPRESS ENTER TO GENERATE THE PROGRAM If at any time you wish to rebuild the program you can do so. If you build the screen with the same length fields and in the same order you can just re-create the application. If however you change the length of any fields you will have to delete the data and index files before you start the building process. You can enter: CD \INVOICE DEL INVOICE.DAT DEL INVOICE.I* to delete the data and index files. THIS WILL DELETE ALL DATA ON THE DATABASE. YOU CAN USE THE UTILTIY OPTION TO DUMP THE DATA FIRST AND THEN RELOAD. Note: Since the program is generated as a text file you can use any editor to edit the program including the "TURBO" editor. The education part of this process begins now since you will have a Pascal program that has been generated. Near the end of the program you will see in comments {USER CODE}. This comment is placed at an appropriate place where the screen data has been moved to the database record area and you are ready to change or manipulate the data as desired after which the appropriate action will automatically take place (retrieve, add, update, delete...). To reference the database fields you would find the data field sequence from the top to bottom, lefte to right. For instance the Last Name field would be field sequence 5 since the datae and time fields are considered data fields. If for instance you wanted to set the last name to another name you might enter in the "USER CODE" section Invoice.Datafld5 := 'DAVID JONES". Or you might want to add to an amount field by entering: TChr := Invoice.Datafld16; Val(TempCHr, TempNum, CondCode); TNum := TNum + 5; Str(TNum, TChr); INVOICE.Datafld16 := TChr; Note: There are 10 temp character and number fields TChr thru TChr9 and TNum thru TNum9. *N* If for instance you wanted to add the amounts in the totals column to the total you could Enter: Tchr := Invoice.Datafld16; Val(Tempchr, Tempnum, CondCode); If CondCode <> 0 Then Error := 16; Tchr1 := Invoice.Datafld17; Val(Tchr1, Tnum1,CondCode); If CondCode <> 0 Then Error := 17; Tchr2 := Invoice.Datafld18; Val(Tchr2, Tnum2,CondCode); If CondCode <> 0 Then Error := 18; Tchr3 := Invoice.Datafld19; Val(Tchr3, Tnum3,CondCode); If CondCode <> 0 Then Error := 19; Tchr4 := Invoice.Datafld20; Val(Tchr4, Tnum4,CondCode); If CondCode <> 0 Then Error := 20; Tchr5 := Invoice.Datafld21; Val(Tchr5, Tnum5,CondCode); If CondCode <> 0 Then Error := 21; Tchr6 := Invoice.Datafld22; Val(Tchr6, Tnum6,CondCode); If CondCode <> 0 Then Error := 22; Tchr7 := Invoice.Datafld23; Val(Tchr7, Tnum7,CondCode); If CondCode <> 0 Then Error := 23; Tchr8 := Invoice.Datafld24; Val(Tchr8, Tnum8,CondCode); If CondCode <> 0 Then Error := 24; Tchr9 := Invoice.Datafld25; Val(Tchr9, Tnum9,CondCode); If CondCode <> 0 Then Error := 25; If Error <> 0 Then Begin InvoiceMsgStr := 'Error on field '; FldSeq := Error End; Tnum := Tnum + Tnum1 + Tnum2 + Tnum3 + Tnum4 + tnum5 + Tnum6 + Tnum7 + Tnum8 + Tnum9; Str(Tnum:2, Tchr); *where "2" is the number of bytes* Invoice.Datafld65 := Tchr; The resultant changes would then be available to the Database buffer for adds or updates. Every program will have a programMsgStr variable that is written after processing and before display of screen. You can move messages to it. The function is held in a variable called "Function_Id". The function is held in the "Function_Id" as "S" - Select (Enter key) "N" - Select Next (F2) "P" - Select Previous (F3) "F" - Find (F4) "L" - List (F5) "I" - Insert (F6) "U" - Update (F7) "D" - Delete (F8) The function is held in a variable called "Function_Id". E.G. If Function_Id = "I" {If Add (Insert) Function} Or Case Function_Id "I" : <action>; "U" : <action>; End; To Change the field attributes they are kept in MAPLN (line), MAPPOS (position), MAPLEN (length), MAPATTR (Attribute), MAPCOLR (color) arrays. To change the color of the 5 field top to bottom left to right you could MAPCOLR[5] := 'B'; The MAP** arrays are initialized in program_INIT once. After that you can change them. If you want to make a permenant change to the field change the constants at the beginning of the program. That's where INIT copies the data to the MAP** arrays. There are two main screen/ database record format procedures you can use anytime. programFMT_SCRNBUF and programFMT_RECBUF. You can add database files and indexes following the open/create and access routines in the program. SYSTEM FIELDS: The Date And Time are held in the ScreenDate And ScreenTime Fields. To Refresh The date or time there is a Procedure GetDateTime you can Execute. The ScreenDate field is 10 bytes and the ScreenTime Field Is 11 Bytes. The F10 key will change the prompts at the bottom of the screen. You can re-build an index by placing the cursor on an index field and depressing F1. You can dump the database with F2 and after deleting the records of the .dat and i* files re-load with F3 and rebuild the indexes. This software can be used to build a simple but efficient program for viewing as a model or for use. Another thing that can be done is to combine programs by making procedures out of them and executing them from a mainline program. ZOOMCHAR and FEDERAL BALANCE THE BUDGET LOTTERY were written using BLDPAS software. *N* OTHER SOFTWARE ZOOMCHAR/BIGCHAR is a set of two programs. BIGCHAR is for displaying/ Creating big letters/figures and scrolling or displaying. ZOOMCHAR will scroll these 3" letters across your screen with phrases you enter. Both contain their own database. FEDERAL BALANCE THE BUDGET LOTTERY is a lottery GAME that allows lottery entries. You can draw random selections or use a DRAW TO WIN feature that will Generate random numbers up to a Number of draws entry. If there is a completed match with an entry it will stop and let you know. If not it will stop at the pre set Number of draws with the entry greater than or equal to the set drawn. You can use 1 to 8 numbers for a range of numbers from 1 to 99. *N* ADDITIONAL COPIES __ 3.5" Disk __ 5.25" # __ OF BLDPAS x $20.00 = _____ __ SOURCE x $15.00 = ______ __ OF LOTTERY x $15.00 = _____ __ SOURCE x $10.00 = ______ __ OF ZOOMCHAR x $10.00 = _____ __ SOURCE x $7.00 = ______ Registration or purchase of one gets $5.00 off any other. (You must have sent questionaire in or SSN so it is on Database for sponsor) Name: __________________________ Address: ___________________________ City: _______________ ST: _____ ZIP: ___________ COUNTRY: _________ Sponsor Number: _______________ Name: ____________________________ (Enter SSN and pass around. Fill out questionaire. Every order gets you $1.00) DBA TEKSERV, %William A. Phillips, RT1 BOX 397 Piney Grove Rd., Danbury, Nc 27016 *N* COPYRIGHT A Copyright has been applied for and DBA TEKSERV claims all rights to this product. However you are encouraged to use this product for any activity including making money as long as the money made is not for the sale of this product. This product is not to be copyied for other persons PC's nor to be given away to others. It is intended for the owner's PC's. The owner is allowed to operate the product on multiple PC's that the owner owns in a private sense. Buisiness, Corporate, and Government agencies are only allowed one copy per machine. However a discount can be applied for multiple purchases by these agencies. *N* SPONSOR PROGRAM If you pass the following additional copies request on to a friend put your SSN in the Sponsor field. Then if you tell DBA TEKSERV how you liked the product and if there are any problems or IDEAS you have and include your SSN on this Questionaire you will receive a dollar if the additional copies form comes in with an order. Make as many copies as you wish with your sponsor number. For every order with the Sponsor number you will get a dollar. SSN: _________________ NAME: _________________________ ADDR: _________________________ ST: ____ ZIP: __________ How well did you like BLDPAS Program? ________________________________________________________________________ Compare it to other software as far as program productivity Good, Bad, or Ugly. _________________________________________________________________________ How easy is BLDPAS to use? Any New Ideas for it? ___________________________________________________________________________ Would you be interested in purchasing a 3" LETTER SCROLLING game. It is a phrase scrolling program that has a database. It can also scroll ASCII Text files like a billboard. ___ YES ___ NO Do you have an interest in a Lottery game which allows you to make entries and then you can have an auto random draw to win? ___ YES ___ NO AGE: ____ SEX: ____ OCCUPATION: ________________________ *N* DISCLAIMER This program is intended for program development. DBA TEKSERV is not responsible for the illegal use or misuse of this program. DBA TEKSERV is not responsible for any such accusitory "DEFECTS" in program design or operation. This product is sold "AS IS". RETURN POLICY Any returns of this product will be subject to a 20% restocking Charge to the customer. HELP POLICY DBA TEKSERV encourages correspondence to DBA TEKSERV concerning the appearance, operation, or problems associated with this product. Although no guarantee is given for "FIXING" any inherent problems, "IRRITATIONS", etc. All available effort and time will be given to HELP the customer enjoy this game if posslible. HEALTH POLICY DBA TEKSERV is not responsible for any damage the customer may incur from the computer or the operation of the game in any financial, or health related area. The operation of you computer and software is considered by DBA TEKSERV to be the responsibility of the customer. The color combinations of the game were chosen to attract the customers attention in an entertaining way. So the customer is to use this product at their own risk. This policy is stated due to allegations of damage due to radion of the computer montitor to the eyes and electomagnetic waves. This game is assumed by DBA TEKSERV to be no more damaging than any other game presently available. *N* _____________________ ________ _____________________ _____________________ STAMP ________ DBA TEKSERV RT1 Box 397 Piney Grove Danbury, NC 27016 *N* Federal Balance the Budget Lottery Promotional Entry This is an entry for you to enter 4 numbers from 1 to 36. DBA TEKSERV is going to hold a PROMOTIONAL lottery by DEC 31, 1993. The winner(s) will get/split $100.00 in prizes. The lottery will only be held if there are more than 100 participants. The lottery will be using the Draw to Win for an exact match. The first entry(s) that match will be the winners. This entry is an incentive for owners of the FEDERAL BALANCE THE BUDGET LOTTERY or ZOOMCHAR/BIGCHAR. However all entries are welcome. NAME ___________________________ SSN ____________________ Phone: __________ ADDRESS ___________________________ ST ____ ZIP ____________ (4 numbers 1 thru 36 - Do not use leading zeroes) __ __ __ __ *N* ZOOMCHAR/BIGCHAR ZOOMCHAR/BIGCHAR are programs that allow the use/creation of big letter's and figures. Zoomchar will scroll these letter's/figures across your screen in color. You can enter phrases on the database and chain them You can also scroll ASCII text files. Use for Messaging, Education, Screen saver. Normal registration Fee $10.00. *N* ORDER FORM Orders of 10 or more $15.00 each. Owners of LOTTERY/ZOOMCHAR/BIGCHAR $15.00 __ Copies BLDPAS At $20.00 Total = ($20.00 times number of copies) = _______ Orders of 20 or more or owners of FEDERAL BALANCE BUDGET LOTTERY $5.00 __ Copies Zoomchar At $7.50 Total = ($7.50 times number of copies) = _______ Every 10 copies of Lottery,Zoomchar or BLDPAS get 1 free. __ 3.5" disk __ 5.25" disk Send to: name ________________________________________ SSN: ___________ address __________________________________ city __________________________________ ST ___ ZIP __________ DBA TEKSERV,RT1 BOX 397 PINEY GROVE RD,DANBURY, NC 27016 Sponsor Number: _______________ Name: ____________________________ (Enter SSN and pass around. Fill out questionaire. Every order gets you $1.00)