home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug043.ark / A_R060.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.4 KB  |  42 lines
  1.  
  2.     REMARK    #########################################################
  3.     REMARK    #    A/R TAX CODE FILE MAINTENANCE    (A/R060)    #
  4.     REMARK    #        VERS. OF 10.00 AM    3/5/79        #
  5.     REMARK    #########################################################
  6.  
  7.     DIM R$(10),R1(10),R2(10)
  8. %INCLUDE CURSOR
  9.     GOTO 6000
  10. %INCLUDE SUBS1
  11. %INCLUDE A/RTAX
  12.  
  13. 6000    MASKA$="/      /     ##.##%   #####.#"
  14.     OPEN "A/R0F030.DAT" AS 1, "CRT" RECL 1100 AS 19
  15.     X0=17:GOSUB 260                            REMARK    DISPLAY TAX CODES CRT MASK
  16.     A1=1:GOSUB 3700                            REMARK    RETRIEVE TAX CODE DATA
  17.     X1=384:GOSUB 210
  18.     FOR I%=2 TO 10                            REMARK    DISPLAY TAX CODE DATA
  19.     X1=11:GOSUB 215
  20.     PRINT USING MASKA$;R$(I%),R1(I%),R2(I%)
  21.     NEXT I%
  22. 6020    X1=128:X2=2:X3=0:X4=10:GOSUB 345                REMARK    ALLOW CHANGES TO TAX CODES 1 THROUGH 9
  23.     IF X0=10 THEN 6040                        REMARK    END PROGRAM ON ENTRY OF TAX CODE 10
  24.     IF X0=0 THEN X2$="PRESET - UNCHANGEABLE":GOSUB 615:GOTO 6020    REMARK    NO CHANGES ALLOWED TO TAX CODE 0
  25.     F=X0+1
  26.     X1=266+F*64:X2=8:X3=0:X4=0:GOSUB 345                REMARK    ENTER TAX CODE DESCRIPTION
  27.     R$(F)=X0$
  28.     X1=279+F*64:X2=5:X3=0:X4=99.99:GOSUB 345            REMARK    ENTER TAX RATE
  29.     R1(F)=X0
  30.     X1=288+F*64:X2=7:X3=0:X4=99999.9:GOSUB 345            REMARK    ENTER G/L ACCOUNT NUMBER
  31.     R2(F)=X0
  32.     GOTO 6020
  33.  
  34.  
  35. 6040    R$(1)="SPECIAL"                            REMARK    END PROGRAM
  36.     R1(1)=0:R2(1)=0
  37.     CLOSE 1
  38.     OPEN "A/R0F030.DAT" AS 1
  39.     A1=1:GOSUB 3750                            REMARK    RESAVE TAX CODE DATA
  40.     PRINT CLEAR.SCREEN$;"A/R TAX CODE F/M LOADING MENU"
  41.     CHAIN "A/P000"                            REMARK    RELOAD MENU
  42.