home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug045.ark / P_R030.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  3.0 KB  |  111 lines
  1.     REMARK    ********************************************\
  2.         *  P/R030.BAS FEDERAL TAX FILE MAINTENANCE *\
  3.         *     3/9/79                   10:00 AM    *\
  4.         ********************************************
  5.  
  6. %INCLUDE CURSOR
  7.  
  8.     DIM F1(36)
  9.     MASK1$="##.##    ######"
  10.     MASK2$="######"
  11.     MASK3$="##.##    ######    ##.##    ######"
  12.  
  13.     GOTO 6000
  14.  
  15. %INCLUDE SUBS1
  16.  
  17. 6000     OPEN "P/R0F060.DAT"  RECL 350 AS 5, "CRT" RECL 1100 AS 19    REMARK  OPEN FILES
  18.     READ #5,1;F1(1),F1(2),F1(3),F1(4),F1(5),F1(6),F1(7),\        REMARK  READ FEDERAL TAX FILE FROM DISK
  19.     F1(8),F1(9),F1(10),F1(11),F1(12),F1(13),F1(14),F1(15),\
  20.     F1(16),F1(17),F1(18),F1(19),F1(20),F1(21),F1(22),F1(23),\
  21.     F1(24),F1(25),F1(26),F1(27),F1(28),F1(29),F1(30),F1(31),\
  22.     F1(32),F1(33),F1(34),F1(35),F1(36)
  23.     X0=2
  24.     GOSUB 260                            REMARK  GET SCREEN #2 FROM CRT MASK FILE AND DISPLAY IT
  25. 6005     X1=256
  26.     GOSUB 210
  27.     FOR I%=1TO 6 STEP 2
  28.     X1=23
  29.     GOSUB 215
  30.     PRINT USING MASK1$;F1(I%)/100;F1(I%+1)                REMARK  DISPLAY INSURANCE FIELDS ON CRT
  31.     NEXT I%
  32.     PRINT 
  33.     X1=32
  34.     GOSUB 215
  35.     PRINT USING  MASK2$;F1(7);                    REMARK  DISPLAY ANNUAL SINGLE EXEMPTION
  36.     X1=14
  37.     GOSUB 215
  38.     PRINT USING  MASK2$;F1(22);                    REMARK  DISPLAY ANNUAL MARRIED EXEMPTION
  39. 6007    FOR I%=8 TO 20 STEP 2
  40.     PRINT 
  41.     X1=23
  42.     GOSUB 215
  43.     PRINT USING  MASK3$;F1(I%)/100;F1(I%+1);F1(I%+15)/100;F1(I%+16);
  44.     NEXT I%
  45.  
  46. 6010    X2=2
  47.     X3=0
  48.     X4=11
  49.     X2$="ENTER FIELD TO CHANGE"
  50.     GOSUB 665                            REMARK  PROMPT OPERATOR TO CHANGE FIELD
  51.     IF X0=0 THEN GOTO 7000                        REMARK  END PROGRAM IF NO MORE CHANGES
  52. 6100    F%=X0
  53.     I1%=214+(F%*64)
  54.     IF F%>3 THEN 6200
  55.     X1=I1%
  56.     X2=5
  57.     X3=0
  58.     X4=99.99
  59.     GOSUB 345                            REMARK  ENTER FEDERAL TAX PERCENTAGE FIELD
  60.     F1(2*F%-1)=X0*100
  61.     GOSUB 210
  62.     PRINT USING "##.##";X0;
  63.     X1=I1%+9
  64.     X2=6
  65.     X3=0
  66.     X4=999999
  67.     GOSUB 345                            REMARK  ENTER FUT, EMPLOYER OR EMPLOYEE FICA RATE & CUTOFF
  68.     F1(2*F%)=X0
  69.     GOSUB 210
  70.     PRINT USING MASK2$;X0;
  71.     GOTO 6010
  72. 6200    I1%=I1%+64
  73.     IF F%>4 THEN 6250
  74.     FOR I%=0 TO 1
  75.     X1=I1%+9+I%*19
  76.     X2=6
  77.     X3=0
  78.     X4=999999
  79.     GOSUB 345                            REMARK  ENTER SINGLE AND MARRIED ANNUAL EXEMPTION AMOUNTS
  80.     F1(F%+3+I%*15)=X0
  81.     GOSUB 210
  82.     PRINT USING MASK2$;X0;                        REMARK  DISPLAY AMOUNT ENTERED
  83.     NEXT I%
  84.     GOTO 6010
  85. 6250    FOR I%=0 TO 1
  86.     X1=I1%+I%*19
  87.     X2=5
  88.     X3=0
  89.     X4=99.99
  90.     GOSUB 345                            REMARK  DEPENDING ON LEVEL, ENTER ANNUAL RATES & CUTOFFS\
  91.                                             FOR SINGLE AND MARRIED EMPLOYEES
  92.     F1(2*F%-2+I%*15)=X0*100
  93.     X1=I1%+9+I%*19
  94.     X2=6
  95.     X3=0
  96.     X4=999999                            REMARK  ENTER CUTOFF HERE
  97.     GOSUB 345
  98.     F1(2*F%-1+I%*15)=X0
  99.     NEXT I%
  100.     GOTO 6010
  101.  
  102.                                         REMARK  EXIT FROM PROGRAM HERE
  103. 7000    PRINT #5,1;F1(1),F1(2),F1(3),F1(4),F1(5),F1(6),F1(7),\        REMARK  RE-WRITE THE FEDERAL TAX FILE WITH NEW DATA
  104.     F1(8),F1(9),F1(10),F1(11),F1(12),F1(13),F1(14),F1(15),\
  105.     F1(16),F1(17),F1(18),F1(19),F1(20),F1(21),F1(22),F1(23),\
  106.     F1(24),F1(25),F1(26),F1(27),F1(28),F1(29),F1(30),F1(31),\
  107.     F1(32),F1(33),F1(34),F1(35),F1(36)
  108.     PRINT CLEAR.SCREEN$;"FEDERAL TAX F/M ENDED"
  109.     CHAIN "P/R000"                            REMARK  AFTER RE-WRITING FEDERAL TAX FILE,\
  110.                                             RETURN TO THE MENU.
  111.