home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug045.ark / P_R040.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  1.8 KB  |  51 lines
  1.     REMARK    *********************************************\
  2.         *   P/R040.BAS  STATE TAX FILE MAINTENANCE  *\
  3.         *     3/9/79            10:45 AM    *\
  4.         *********************************************
  5.     DIM S1(8)                            REMARK  S1() IS THE STATE TAX FILE ARRAY
  6. %INCLUDE CURSOR
  7. %INCLUDE PRNMASK
  8. GOTO 6000
  9. %INCLUDE SUBS1.BAS
  10. 6000    OPEN "P/R0F070.DAT" AS 1                    REMARK  OPEN STATE TAX FILE
  11.     OPEN "CRT" RECL 1100 AS 19
  12.     X0=18:GOSUB 260                            REMARK  OPEN FILES AND LOAD CRT MASK FOR ENTRY
  13. 6005    X1=264:GOSUB 210
  14.     READ #1;S1$,S1(1),S1(2),S1(3),S1(4),S1(5),S1(6),\        REMARK  READ STATE TAX FILE
  15.     S1(7),S1(8)
  16.     PRINT S1$                            REMARK  DISPLAY NAME OF STATE
  17.     X1=284:GOSUB 210
  18.     PRINT S1(1);                            REMARK  DISPLAY STATE CODE
  19.     X1=293:GOSUB 210
  20.     PRINT S1(2)                            REMARK  DISPLAY TYPE
  21.     FOR I%=3 TO 8 STEP 2
  22.     X1=25:GOSUB 215
  23.     PRINT USING MASK2.2$;S1(I%)/100;
  24.     X1=14:GOSUB 215
  25.     PRINT USING MASK6$;S1(I%+1)
  26.     NEXT I%
  27. 6010    X2=1:X3=0:X4=4:X2$="ENTER FIELD TO CHANGE":GOSUB 665        REMARK  PROMPT OPERATOR TO CHANGE FIELDS
  28.     IF X0=0 THEN 7000                        REMARK  END PROGRAM IF NO MORE CHANGES
  29. 6100    IF X0 = 1 THEN X1=264:X2=12:X3=0:X4=0:GOSUB 345:\          REMARK  ENTER STATE NAME
  30.     S1$=X0$:\
  31.     X1=284:X2=2:X3=0:X4=99:GOSUB 345:\                REMARK  ENTER STATE CODE
  32.     S1(1)=X0:\
  33.     X1=293:X2=2:X3=0:X4=99:GOSUB 345:\                REMARK  ENTER TYPE CODE
  34.     S1(2)=X0:\
  35.     GOTO 6010
  36. 6200    F%=X0
  37.     I1%=216+F%*64
  38.     X1=I1%:X2=5:X3=0:X4=99.99:GOSUB 345                REMARK  ENTER SDI OR SUI RATE
  39.     S1(F%*2-1)=X0*100
  40.     X1=I1%+18:X2=6:X3=0:X4=999999:GOSUB 345                REMARK  ENTER CUTOFF FIGURE
  41.     S1(F%*2)=X0
  42.     GOTO 6010
  43.                                     REMARK  END PROGRAM, RE-WRITE FILE AND LOAD MENU
  44. 7000    CLOSE 1                                REMARK  CLOSE FILE TO ALLOW RE-WRITING
  45.     OPEN "P/R0F070.DAT" AS 1
  46.     PRINT #1;S1$,S1(1),S1(2),S1(3),S1(4),S1(5),S1(6),S1(7),S1(8)
  47.     CLOSE 1
  48.     PRINT CLEAR.SCREEN$;"STATE TAX F/M ENDED"
  49.  
  50.     CHAIN "P/R000"
  51.