home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / zbasic / pia / piaout.z < prev    next >
Encoding:
Text File  |  1987-11-17  |  4.9 KB  |  97 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 9900
  16. 615 C$=MID$(DATE$,7,2): T(13,3)=1900+VAL(C$)
  17. 1150 PRINT "   > ";: GOSUB 9830: INPUT "";K9: GOSUB 9860
  18. 1265 LPRINT USING "     50 ###,###.##";C1: I1=1
  19. 1285 LPRINT USING " ###,###.##";O(14+K1+I4*K2);
  20. 1305 IF A(1,2)>0 THEN LPRINT USING "##,###,###.##";D(9,2);
  21. 1310 IF A(1,4)>0 THEN LPRINT USING "##,###,###.##";D(9,4);
  22. 1315 LPRINT TAB(59);"Divisor months:";12*N1
  23. 1350 LPRINT USING " ###,###.##";L(3,K1+I4*K2);
  24. 1365 LPRINT USING "##,###,###.##";D(9,3);
  25. 1370 LPRINT TAB(59);"Divisor months:";12*N1
  26. 1701 LPRINT USING " $###";X2;: GOTO 1705
  27. 1702 LPRINT USING " $####";X2;
  28. 1729 LPRINT USING " $###";V9;: GOTO 1731
  29. 1730 LPRINT USING " $####";V9;
  30. 1741 LPRINT USING " $###";FIX(V6);: GOTO 1743
  31. 1742 LPRINT USING " $####";FIX(V6);
  32. 1786 LPRINT USING " $###";X2;: GOTO 1788
  33. 1787 LPRINT USING " $####";X2;
  34. 1792 LPRINT "limited to";: LPRINT USING " $####.##";X1;
  35. 1830 LPRINT USING " $###";X2;: GOTO 1840
  36. 1835 LPRINT USING " $####";X2;
  37. 1870 LPRINT USING " $###";X2;: GOTO 1875
  38. 1872 LPRINT USING " $####";X2;
  39. 1927 LPRINT USING " $###";X2;: GOTO 1935
  40. 1930 LPRINT USING " $####";X2;
  41. 2106 LPRINT USING "      Noncovered monthly pension = ##,###.##";F6
  42. 2115 IF A(1,K3)>=1 THEN LPRINT USING "         PIA: $#####.##"; D(1,K3)
  43. 2120 IF A(1,K3)>=1 THEN LPRINT USING "         MFB: $#####.##"; D(8,K3)
  44. 2137 LPRINT USING "      Average Monthly Earnings = $########"; D(5,M8)
  45. 2139 LPRINT USING "      Indexed Monthly Earnings = $########"; D(5,M8)
  46. 2142 LPRINT USING "      Primary Insurance Amount = $#####.##";V6
  47. 2165 LPRINT USING "      Benefit actually payable = $#####.##";X2
  48. 2170 LPRINT USING "      Maximum Family Benefit =  $######.##";X1
  49. 2335 LPRINT USING "    #,###,###.##";O(K3-1936);
  50. 2337 LPRINT USING " #,###,###.##";L(0,K3-1936);
  51. 2635 LPRINT USING "  #,###,###.##";O(K3-1936);
  52. 2640 LPRINT USING "  #,###,###.##";L(1,K1);
  53. 2650 LPRINT USING "  #,###,###.##";L(1,K1)
  54. 2720 LPRINT USING "      AME = #,###,###.##";D(9,1);
  55. 2940 LPRINT USING "  #,###,###.##";O(K3-1936);
  56. 2950 LPRINT USING "  #,###,###.##";L(2,K1)
  57. 3015 LPRINT USING "      AME = #,###,###.##";D(9,2);
  58. 3130 LPRINT USING "$###,###.##      earnings       years";B(5,G9-1+14)
  59. 3155 LPRINT USING "  #,###,###.##";O(K3-1936);
  60. 3170 LPRINT USING " ###,###,###,###.##";C(3,K1);
  61. 3180 LPRINT USING "  #,###,###.##";L(3,K1): GOTO 3210
  62. 3190 LPRINT USING " ###,###,###,###.##";C(3,K1);
  63. 3200 LPRINT USING "  #,###,###.##";L(3,K1);
  64. 3205 LPRINT USING "  #,###,###.##";L(3,K1)
  65. 3315 GOSUB 6300: LPRINT USING "      AIME = ###,###,###.##";D(9,3);
  66. 3640 LPRINT USING "  #,###,###.##";O(K3-1936);
  67. 3650 LPRINT USING "  #,###,###.##";L(4,K1)
  68. 3715 GOSUB 6300: LPRINT USING "      AME = #,###,###.##";D(9,4);
  69. 3822 LPRINT "      1937-50";: LPRINT USING " ###,###.##";C1;
  70. 3835 LPRINT USING "  #,###,###.##";O(K3-1936);
  71. 3840 LPRINT USING "  #,###,###.##";.25*B(4,K1);
  72. 4130 LPRINT USING "$######.##";B(5,M7+13);
  73. 4155 LPRINT USING "  #,###,###.##";O(K2-1936);
  74. 4170 LPRINT USING "   #,###,###,###.##";C(4,K1);: GOTO 4180
  75. 4180 LPRINT USING "  #,###,###.##";L(6,K1): GOTO 4210
  76. 4190 LPRINT USING "   #,###,###,###.##";C(4,K1);: GOTO 4200
  77. 4200 LPRINT USING "  #,###,###.##";L(6,K1);
  78. 4205 LPRINT USING "  #,###,###.##";L(6,K1)
  79. 4320 LPRINT: GOSUB 6300: LPRINT USING "      AIME = ###,###,###.##";D(9,6);
  80. 4405 LPRINT USING "      PIA at entitlement = $#####.##";D(1,6): LPRINT
  81. 5010 GOSUB 9830: INPUT&1,"";C$: GOSUB 9860
  82. 5030 OPEN"I",1,"PIAIN.CHN": RUN 1
  83. 6105 LPRINT USING "      PIA at entitlement = $#####.##";D(1,S3): LPRINT
  84. 6110 LPRINT USING "      MFB at entitlement = $#####.##";D(8,S3)
  85. 6611 IF A5=2 THEN LINEINPUT&34,"";Y$ ELSE LINEINPUT&34,"";U$(1): GOTO 6615
  86. 6613 PRINT "   > ";: GOSUB 9830: LINEINPUT&34,"";U$(1)
  87. 6625 LINEINPUT&11,"";V$
  88. 6635 PRINT "   > ";: GOSUB 9830: LINEINPUT&34,"";U$(2)
  89. 6650 PRINT "   > ";: GOSUB 9830: LINEINPUT&34,"";U$(3)
  90. 6665 PRINT "   > ";: GOSUB 9830: LINEINPUT&34,"";U$(4)
  91. 9830 COLOR 0,K(1,2),1: RETURN
  92. 9840 COLOR 0,K(2,2),1: RETURN
  93. 9850 COLOR 0,K(3,2),1: RETURN
  94. 9860 COLOR 0,K(5,2),1: RETURN
  95. 9870 COLOR 0,K(8,2),1: RETURN
  96.  
  97.