Washington Apple Pi Journal, July 1986

More documents

Recommendations

Info

to the same line number. This is because these lines provide the chaining to the other programs. However because chaining retains the values of the variables, when we get to the other programs, Q% and QN% retain their values, and we can direct the program to the proper line number in the other program by the value of Q% or QN%. We saw this already in lines 20-23 of the program BUDGET 1/85 last month. That program is used to: 7. PRThIT BUDGETED CATEGORffiS, 8. CHANGE BUDGETED CATEGORIES, 9. SAVE BUDGETED CATEGORffiS, and 21. INITIALIZE NEW BUDGET. (See last month's article for details.) We take the opportunity in the first screen to clear memory of old, unused strings with the statement X = FRE(O) in line 1507. This program creates a lot of strings, and this is a convenient time to get rid of old ones. Otherwise, you may be working along when all of a sudden the Apple will decide it has to take care of the old strings itself. It will go away for awhile and interrupt your work whenever it wants to rather than when you want it to. (I have found that it may still do this when you are reconciling your bank statement despite our efforts here.) ENTERING DATA FROM THE KEYBOARD 1799 REM *** ENTER DATA 1800 HOME 1815 PRThIT: PRINT "IF YOU WANT AUTOMATICALLY ASSIGNED CHECKNUMBERS, ENTER THE STARTING NUMBER." 1816 INPUT "IF YOU WANT TO ENTER THEM YOURSELF HIT "; SI$:SI = VAL (SI$) 1817 S2=0:IFSl>OTHENS2=1 1818 SS = 0:01 = O:R = NS + I:B = - I:MlS = MS:Ml = MO%:VlS = "" 1819 PRThIT: PRThIT "TO ENTER A DEPOSIT OR TO ENTER INCOME, TYPE A '#' SIGN FOR THE FIRST CHARACTER OF THE 'TO:' FffiLD.": PRINT 1820 PRINT "WHEN YOU'RE THROUGH ENTERING DATA, ENTERA '-1' FOR CHK# OR MO TO RETURN TO THE MENU.": PRINT 1822 INPUT "HIT WHEN 'READY..";CS The first thing we are going to do is to provide for the case when a person wants to enter a whole series of checks which all fall in numerical order. There should be no need for the user to enter the check numbers if the computer can do it for him. If the person hits return in response to line 1816, each check number will have to be entered. If the person enters a number, the computer will start with that as the first check number. The variable S2 is used as the flag to determine if the computer or the user will be entering the check numbers. In line 1818 we initialize some variables. SS is set to O. This is the flag which tells the computer that some changes have been made to the data. D 1 is the variable that holds the current date. R holds the record number. The first record will be record number O. B will hold the line number printed on 38 the screen. Ml$ holds the name of the current month. Ml holds the number of the current month. VIS holds the current vendor name. Money coming in, such as a deposit into the checking account, is noted by typing a "#" as the first character of the "TO:" field. We will get into this in a little more detail later. This fact is noted for the user on the screen and includes a prompt for stopping data entry by typing a "-1" in either the check number field or the month field. Doing so returns the user to the Main Menu. (If the computer is putting in the check numbers, the first field available for the user to input anything is the month field.) 1900 HOME: INVERSE: lITAB 8: PRINT "DATA ENTRY FROM KEYBOARD": NORMAL: GOSUB 40 1904 VTAB L%: HTAB 1: CALL - 958: GOSUB 162:T% = 4 1905 IF NOT S211ffiN INPUT 1'$: GOSUB 26: CALL - 958: IF T$ = "" THEN 1915 1906 IF NOT S2 THEN S 1 = VAL (TS) 1907 C = SI: IF C < 0 THEN 1500 1909 IF C > 9999 THEN 1913 1911 CN%(R) = C: HTAB 4: GOSUB 25: T% = 7: GOSUB 50: GOTO 1916 1913 HTAB 1: VTAB 24: PRINT "CHECK # TOO HIGH";:S2 = O:B = B-1: GOTO 1904 1915 HTAB 4: GOSUB 25 After clearing the screen, we print the data entry title at the top of the screen and the column titles underneath. 40 VTAB 2: PRINT" # CHK# MOIDA TO/FROM WHOM" TAB( 30)"AMOUNT CAT" 41 PRINT: POKE 34,3:L% = 4: RETURN Then we set the top of the scrolling window under the column titles, set our current vertical line number to 4 and RETURN. This takes us to line 1904. The ENTER DATA routine starts from this line and goes to line 1970 and then returns here. In line 1904, we GOSUB to line 162. 162 B = B + 1: IF B + 1 < 10 THEN PRINT" "; 163 PRINT B + 1;".";: RETURN This is the subroutine for printing the line number on the screen followed by a period. We now move along to the check number. If S2 is set to 1 then the conditions in lines 1905 and 1906 are both false and the program falls through to line 1907 where C is set to the value for S1. However, if S2 is 0, then the user wishes to manually enter the check number. This is permitted with the INPUT statement in line 1905. The GOSUB to line 26 in line 1905 is done to get rid of any stray messages that we might have put on line 24. 26 VTAB 24: lITAB 1: CALL - 958: VTAB L%: HTAB T%: RETURN Note how we use L % and T% to kccp track of our line and tab positions at all times so we can return to that position whenever required. If the user simply hits , nothing is required except to move on to the next field. However, if anything else is INPUT for the check number, we have to make sure the INPUT has no problems. The variable S 1 has the check number whether derived by contd. July 1986 Washington Apple Pi
the computer or entered by the user. This value is placed into the variable C. If C is less than 0, then this is the signal we are using to indicate we wish to go back to the Main Menu. This is taken care of in line 1907. We are not going to permit check numbers higher than 9999, since we do not have much room on our 40 character screen. If the number is too large, we go to line 1913 which prints the necessary message, takes us out of automatic check numbering if we were in that mode, decrements the screen line number and starts us over again at line 1904. Otherwise, we place the value of C in our array variable CN%(R), and get ready to print the check number on the screen. We do this by first placing our cursor at HTAB 4 and clearing the line to the right of the cursor by the subroutine in line 25. 25 PRINT ....;: CALL - 868: RETURN Now get ready to print the check number right justified. Set the column (T%) to 7. Then jump to the subroutine for right justification starting at line 50. 50 POKE 36,T% - 1: IF SG = - 1 AND PR THEN CALL - 1008 51 FOR A = 1 TO 4: IF ABS (C) > = INT (10 " A) THEN CALL - 1008 52 NEXT A: IF SG = - 1 THEN INVERSE: IF PR THEN PRINT "-"; 53 PRINT C;: RETURN The cursor is placed at T%-1 by a POKE 36 to that value. This is the first place we run up against the flag PRo This flag is used to indicate whether or not we are printing to the printer or not. If this subroutine is called by a routine which is printing a number on a printer, and the number is negative as indicated by the variable SG, then we need to backspace one space to make room for the negative sign that will have to be printed on the paper (since we ean not print in inverse mode as we can on the screen to indicate negatives). The backspace is accomplished with a CALL -1008. Now we examine C. If C is equal to or larger than 10, we backspace one space. If C is equal to or larger than 100, we backspace another space. And so on up to 10 to the 4th power. We do not use numbers as large as 100,000 in this program. Now, if the number is negative, we will print it in inverse. If we are using a printer, we will print a negative sign (-). Then we will print the number without issuing a line feed (note the semi-colon after the C in line 53), and RETURN to line 1911, which immediately takes us to line 1916. 1916 HTAB 8:T$ = ....:E$ = ....: PRINT "?"; 1917 IF Ml > 0 THEN HTAB 1: VTAB 24: PRINT "HIT FOR" + MIS +" (DEFAULT)";: CALL - 868: HTAB 9: VTAB L%: GOSUB 25 1919 GET ES: IF E$ = CHR$ (13) THEN 1924 1920 1'$ = 1'$ + E$: PRINT ES;: IF ES = CHR$ (8) AND LEN (TS) = 1 THEN B = B-1: GOTO 1904 1921 GOSUB 5 1922 GOTO 1919 1924 C = VAL (1'$): IF LEN (1'$) = 0 THEN C = Ml: GOTO 1930 1925 IF C < 0 THEN 1500 1926 IF C = 0 OR C > 12 THEN GOSUB 25: GOTO 1916 1927 01 = 0: FOR I =1 TO 12: READ Ml,MIS: IF Ml = C THEN I = 12: NEXT: GOTO 1930 1928 NEXT 1929 GOSUB 25: GOTO 1919 1930 RESTORE: HTAB 8: CALL - 958: T% = 10: GOSUB 50: PRINT "f';:MO%(R) = C:Ml = C:T% = 12: GOSUB 26 WHAT MONTH IS IT? Next we get ready to enter the month. After clearing some temporary string variables we will be using and printing our question mark in the proper place, we print the month that we have put into MI$ at the bottom of the screen and notify the user that if that is the month he wishes to enter, all he has to do is press . If that is what the user docs, the program GOES TO line 1924. Otherwise we start creating the string T$ by adding the character GOTten in line 1919 to the latest version of TS. (This is called "concatenation", for those of you who like big words.) Now ifthe last character GOTten was a backspace and that makes T$ one character long, the user is trying to backspace to the previous field. So we decrement B and go back to line 1904. Otherwise we GO to the SUBroutine at line 5. 5 IF ASC (ES) < 32 AND ASC (E$) < >8 THEN RETURN 6 IF E$ = CHR$ (8) AND LEN (TS) = 2 THEN 1'$ = .... 7 IF E$ = CHR$ (8) AND LEN (TS) > 2 THEN 1'$ = LEFfS (1'$, LEN (1'$) - 2) 10 RETURN Here we examine E$ to sec if it is a valid character, not a control character and not a backspace. If it is we return to line 1922 which takes us back to line 1919. Next we provide for the case when T$ consists of two characters, the last of which is a backspace. This makes T$ a null string. Finally, we provide for the case when T$ consists of more than two letters, the last one of which is a backspace. This makes T$ equal to what it used to be minus the last two characters, the backspace and the character backspaced over. OK? We continue getting characters in line 1919 until is pressed, at which time the program jumps to line 1924. Remember of course, that the user is INPUTing the number of the month here. The string 1'$ is changed into a number by the C = VAL(T$) expression in line 1924. Now if was the only key pressed, the length of TS will be zero, and C takes on the value stored in MI, and we can go directly to line 1930. Otherwise, we have to check the value of C to make sure a legitimate number was entered. Again, if C is less than 0, this is the clue the user gives the computer to return to the Main Menu. If C is 0 or if C is greater than 12, then we have to clear the line and start allover again at line 1916. Otherwise, we can READ the DATA in line 1700 to match the number of the month with the name of the month, and then print the number of the month right justified from T%=10 (line 1930). 1700 DATA 1,"JANUARY",2,"FEBRUARY",3, "MARCH" 4 "APRIL" 5 "MAY" 6 "JUNE" , , , , , , contd. Washington Apple Pi July 1986 39
Page 3: clinton Computar Clinton Computer -
Page 13: Apple 11/ IBM 40 Perform grafixon 4
Page 22: THE CONSUMER ELECTRONICS SHOW Contr
Page 31: Well over 45 members attended the 1
Page 35 and 36: 592 IF LEFTS (CC$.I) = "Y" OR LEFTS
Page 38 and 39: THE FAMILY HOME MONEY MANAGER: Part
Page 42: 7,"JULY",8,"AUGUST',9,"SEPTEMBER",
Page 48: WAPACROSTIC by ProfessorApple -----
Page 56: THERE'S A REVOLUTION GOING ON! (OrS
Page 66: IMUCHA DA's by David Morganstein We

Washington Apple Pi Journal, July 1986

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?