home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / zbasic / pia / piain.z < prev    next >
Encoding:
Text File  |  1987-11-17  |  5.3 KB  |  141 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. 135 N5=114: N7=N5-14
  17. 1028 PRINT "   > ";: GOSUB 9830: INPUT&1,"";T5: GOSUB 9860
  18. 1042 GOSUB 9830: INPUT&8,"";L$: L$=L$+".pia"
  19. 1043 ON ERROR GOSUB 6100
  20. 1046 ON ERROR RETURN: IF K6 THEN 1005
  21. 1296 ON ERROR RETURN
  22. 1510 OPEN"I",1,"PIACAL.CHN": RUN 1
  23. 2205 K4=G1: GOSUB 9820: CLS: I3=1: LOCATE 0,1
  24. 2320 LOCATE U6-1,U7: PRINT USING " ######.## ";O(K1-1936)
  25. 2410 LOCATE U6,U7: INPUT&9,"";C$: O(K1-1936)=VAL(C$)
  26. 2425 GOSUB 2600: GOSUB 2550: LOCATE U6,U7: GOTO 2405
  27. 2460 LOCATE U6-1,U7: PRINT ">";
  28. 2505 GOSUB 9850: LOCATE 9,22
  29. 2555 GOSUB 9840: LOCATE 9,22
  30. 2610 LOCATE 7,22: PRINT STRING$(65," ");
  31. 2615 LOCATE 7,23: PRINT STRING$(65," ");
  32. 2655 GOSUB 9850: LOCATE 9,22
  33. 2720 LOCATE U6-1,U7: PRINT USING " ######.## ";O(K1-1936)
  34. 2905 GOSUB 9830: INPUT;&1,"";C$
  35. 2915 BEEP: LOCATE 61,23: PRINT " ";: LOCATE 61,23: GOTO 2905
  36. 3015 GOSUB 9860: LOCATE 25,23
  37. 3075 INKEY$(1)
  38. 3080 ON INKEY$(14) GOTO 3300      : REM Cursor up
  39. 3085 ON INKEY$(17) GOTO 3350      : REM Cursor left
  40. 3090 ON INKEY$(19) GOTO 3400      : REM Cursor right
  41. 3095 ON INKEY$(22) GOTO 3450      : REM Cursor down
  42. 3100 ON INKEY$(23) GOTO 3500      : REM Exit correction mode (page down)
  43. 3105 ON INKEY$(24) GOTO 3150      : REM Data entry (insert)
  44. 3155 INKEY$(0)
  45. 3175 I3=1: GOSUB 2400
  46. 3270 LOCATE U6-1,U7: PRINT USING " ######.## ";O(K1-1936)
  47. 3280 ON INKEY$(14) RETURN
  48. 3281 ON INKEY$(17) RETURN
  49. 3282 ON INKEY$(19) RETURN
  50. 3283 ON INKEY$(22) RETURN
  51. 3284 ON INKEY$(23) RETURN
  52. 3285 ON INKEY$(24) RETURN
  53. 3286 INKEY$(1)
  54. 3287 GOTO 3005
  55. 3290 INKEY$(1)
  56. 3295 GOTO 3115
  57. 3307 LOCATE U6-1,U7: PRINT " ";: K1=K1-1
  58. 3325 GOTO 3120
  59. 3357 LOCATE U6-1,U7: PRINT " ";: K1=K1-20
  60. 3365 GOTO 3120
  61. 3407 LOCATE U6-1,U7: PRINT " ";: K1=K1+20
  62. 3415 GOTO 3120
  63. 3457 LOCATE U6-1,U7: PRINT " ";: K1=K1+1
  64. 3475 GOTO 3120
  65. 3502 ON INKEY$(14) RETURN
  66. 3503 ON INKEY$(17) RETURN
  67. 3504 ON INKEY$(19) RETURN
  68. 3505 ON INKEY$(22) RETURN
  69. 3506 ON INKEY$(23) RETURN
  70. 3507 ON INKEY$(24) RETURN
  71. 3510 LOCATE U6-1,U7: PRINT " ";
  72. 3515 GOTO 3005
  73. 3555 GOSUB 9850: LOCATE 30,21: PRINT " Correction mode "
  74. 3560 LOCATE 9,22: PRINT "-";CHR$(26);" = Right   ";CHR$(24);
  75. 3570 LOCATE 9,23: PRINT CHR$(27);"- = Left    ";CHR$(25);
  76. 4110 GOSUB 9830: INPUT&1,"";C$: GOSUB 9860
  77. 4310 PRINT "   > ";: GOSUB 9830: LINEINPUT&65,"";M$: GOSUB 9860: RETURN
  78. 4716 PRINT "> ";: GOSUB 9830: INPUT&9,"";B(1,N2+K1): GOSUB 9860
  79. 5004 ON ERROR GOSUB 5030
  80. 5006 ON ERROR RETURN
  81. 5100
  82. 5105
  83. 5110
  84. 5115
  85. 5120
  86. 5125
  87. 5130
  88. 5135
  89. 5300
  90. 5305
  91. 5310
  92. 5315
  93. 5317
  94. 5320
  95. 5530 PRINT " (y or n) > ";: GOSUB 9830: INPUT&1,"";C$: GOSUB 9860
  96. 5910 GOSUB 9830: INPUT&3,"";G(0,N6): GOSUB 9860
  97. 6105 BEEP: GOSUB 9840: K6=1: ERROR=0
  98. 6115 GOSUB 6200: RETURN
  99. 6816 GOSUB 9830: INPUT&6,"";C(2,K2): GOSUB 9860
  100. 6831 GOSUB 9830: INPUT&1,"";O$: GOSUB 9860
  101. 6861 GOSUB 9830: INPUT&6,"";F(K2,K1): GOSUB 9860
  102. 6880 IF T5>=1 THEN LINEINPUT #1,B$: RETURN
  103. 7056 PRINT "   > ";: GOSUB 9830: LINEINPUT&65,"";B$: GOSUB 9860
  104. 7775 C5=1.-I6*.285/I1: RETURN
  105. 7915 GOSUB 9830: INPUT&6,"";B(6,K2): GOSUB 9860
  106. 7920 IF T5>=1 THEN LINEINPUT #1,M$: RETURN
  107. 8056 GOSUB 9830: INPUT&10,"";C$
  108. 8371 GOSUB 9830: INPUT&6,"";C(2,K2): GOSUB 9860
  109. 8390 GOSUB 9830: INPUT&6,"";F(K2,K1): GOSUB 9860
  110. 8470 GOSUB 9830: INPUT&6,"";B(6,K2): GOSUB 9860
  111. 8541 GOSUB 9830: INPUT&9,"";B(1,N2+K1): GOSUB 9860
  112. 8590 PRINT USING "   Monthly noncovered pension is $####.##";F6
  113. 8711 GOSUB 9830: INPUT&7,"";C$
  114. 8756 GOSUB 9830: INPUT&1,"";A6: GOSUB 9860
  115. 8806 GOSUB 9830: INPUT&10,"";C$
  116. 8856 GOSUB 9830: INPUT&7,"";C$
  117. 8915 PRINT "   > ";: GOSUB 9830: INPUT&1,"";A5: GOSUB 9860
  118. 8965 PRINT "   > ";: GOSUB 9830: INPUT&1,"";A4: GOSUB 9860
  119. 9015 PRINT "   > ";: GOSUB 9830: INPUT&1,"";A3: GOSUB 9860
  120. 9056 GOSUB 9830: INPUT&10,"";C$
  121. 9107 GOSUB 9830: INPUT&4,"";G1
  122. 9175 PRINT "   > ";: GOSUB 9830: INPUT&1,"";T9: GOSUB 9860
  123. 9206 GOSUB 9830: INPUT&4,"";G2
  124. 9256 GOSUB 9830: INPUT&10,"";C$
  125. 9381 PRINT "   > ";: GOSUB 9830: INPUT&1,"";A1: GOSUB 9860
  126. 9426 PRINT "   > ";: GOSUB 9830: INPUT&1,"";T3: GOSUB 9860
  127. 9465 PRINT "   > ";: GOSUB 9830: INPUT&1,"";A2: GOSUB 9860
  128. 9560 PRINT "(0 if none) > ";: GOSUB 9830: INPUT&9,"";F6: GOSUB 9860
  129. 9621 GOSUB 9830: INPUT&1,"";C$: GOSUB 9860
  130. 9627 GOSUB 9830: INPUT&8,"";L$: GOSUB 9860: L$=L$+".pia"
  131. 9820 COLOR 0,K(0,2),1: RETURN
  132. 9830 COLOR 0,K(1,2),1: RETURN
  133. 9840 COLOR 0,K(2,2),1: RETURN
  134. 9850 COLOR 0,K(3,2),1: RETURN
  135. 9860 COLOR 0,K(5,2),1: RETURN
  136. 9863 COLOR 0,K(6,2),1: RETURN
  137. 9864 COLOR 0,K(7,2),1: RETURN
  138. 9870 COLOR 0,K(8,2),1: RETURN
  139. 9885 GOSUB 9830: INPUT&1,"";C$: GOSUB 9860
  140.  
  141.