home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / zbasic / pia / piacal.z < prev    next >
Encoding:
Text File  |  1987-11-17  |  1.9 KB  |  39 lines
  1. 1 REM Compile with ZBASIC RUN+
  2. 2 REM Parts of this software were created using the ZBasic Compiler.
  3. 3 REM Portions of this Code are (C) Copyrighted, 1985 by Zedcor, Inc.
  4. 115 DIM A(2,6),B(7,114),C(4,100),D(9,6),F(10,8),G(6,114),H(3,6),I(114)
  5. 120 DIM J(2,51),K(8,2),L(6,114),O(114),Q(8,4),T(13,3),V(4,6),Z(486)
  6. 125 DIM 6A$(2),9D$(12),66E$(8),36F$(6),4G$(10),4H$(7),23K$(7),41N$(3)
  7. 126 DIM 10P$(3),43Q$(4),35R$(2),35T$(4),35U$(4),66W$(8),43X$(2)
  8. 127 DIM 66B$,11C$,20J$,20L$,66M$,2O$,1S$,12V$,35Y$
  9. 128 DIM A1,A2,A3,A4,A5,A6,A7,A8,A9,C1,C2,C5,C7,C8,C9,F1,F5,F6,G1,G2
  10. 129 DIM G3,G4,G5,G6,G7,G8,G9,I1,I2,I3,I4,I5,I6,I7,I8,I9,K1,K2,K3,K4
  11. 130 DIM K5,K6,K7,K8,K9,M1,M2,M3,M4,M5,M6,M7,M8,M9,N1,N2,N3,N4,N5,N6
  12. 131 DIM N7,N8,N9,P1,P2,P3,P4,P5,P6,P7,P8,P9,Q1,Q4,Q5,Q6,Q9,R1,S1,S2
  13. 132 DIM S3,S4,S5,S6,S7,S8,S9,T1,T2,T3,T4,T5,T6,T7,T8,T9,U1,U2,U3,U4
  14. 133 DIM U5,U6,U7,U8,U9,V2,V4,V5,V6,V7,V8,V9,W1,W2,W3,X1,X2,X6,X7,X9
  15. 134 CLEAR END: INKEY$(1): ON INKEY$(1) GOTO 9935
  16. 1060 PRINT USING "   Average Monthly Earnings = $########";D(5,M8)
  17. 1070 PRINT USING "   Indexed Monthly Earnings = $########";D(5,M8)
  18. 1085 PRINT USING "   Primary Insurance Amount = $#####.##";V6
  19. 1135 PRINT USING "   Benefit actually payable = $#####.##";X2
  20. 1140 PRINT USING "   Maximum Family Benefit =  $######.##";X1
  21. 1155 GOSUB 9830: INPUT&1,"";C$: GOSUB 9860
  22. 1180 OPEN"I",1,"PIAOUT.CHN": RUN 1
  23. 3380 F1=F1*(1!+G7/100!)
  24. 3440 D(2,1)=19.9+I2/10!
  25. 4955 IF (B(1,K1+13)/60)*60=B(1,K1+13) THEN 4965
  26. 4960 I7=(B(1,K1+13)/60)*5
  27. 4965 IF (B(1,K1+14)/60)*60=B(1,K1+14) THEN 4975
  28. 4970 I8=(B(1,K1+14)/60)*5
  29. 6720 IF 1000*X9 MOD 10000/1000!<Q9 THEN RETURN
  30. 6725 C9=C9+.1-1000*X9 MOD 10000/100000!: RETURN
  31. 9830 COLOR 0,K(1,2),1: RETURN
  32. 9840 COLOR 0,K(2,2),1: RETURN
  33. 9850 COLOR 0,K(3,2),1: RETURN
  34. 9860 COLOR 0,K(5,2),1: RETURN
  35. 9870 COLOR 0,K(8,2),1: RETURN
  36. 9905 GOSUB 9830: INPUT&1,"";C$: GOSUB 9860
  37. 9925 OPEN"I",1,"PIAIN.CHN": RUN 1
  38.  
  39.