home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
zbasic
/
pia
/
oldawbi.z
< prev
next >
Wrap
Text File
|
1987-11-17
|
2KB
|
50 lines
1 REM Compile with ZBASIC RUN+
5 REM Parts of this software were created using the ZBasic Compiler.
6 REM Portions of this Code are (C) Copyrighted, 1985 by Zedcor, Inc.
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)
120 DIM J(2,51),K(8,2),L(6,114),O(114),Q(8,4),T(13,3),V(4,6),Z(486)
125 DIM 6A$(2),9D$(12),66E$(8),36F$(6),4G$(10),4H$(7),23K$(7),41N$(3)
126 DIM 10P$(3),43Q$(4),35R$(2),35T$(4),35U$(4),66W$(8),43X$(2)
127 DIM 66B$,11C$,20J$,20L$,66M$,2O$,1S$,12V$,35Y$
128 DIM A1,A2,A3,A4,A5,A6,A7,A8,A9,C1,C2,C5,C7,C8,C9,F1,F5,F6,G1,G2
129 DIM G3,G4,G5,G6,G7,G8,G9,I1,I2,I3,I4,I5,I6,I7,I8,I9,K1,K2,K3,K4
130 DIM K5,K6,K7,K8,K9,M1,M2,M3,M4,M5,M6,M7,M8,M9,N1,N2,N3,N4,N5,N6
131 DIM N7,N8,N9,P1,P2,P3,P4,P5,P6,P7,P8,P9,Q1,Q4,Q5,Q6,Q9,R1,S1,S2
132 DIM S3,S4,S5,S6,S7,S8,S9,T1,T2,T3,T4,T5,T6,T7,T8,T9,U1,U2,U3,U4
133 DIM U5,U6,U7,U8,U9,V2,V4,V5,V6,V7,V8,V9,W1,W2,W3,X1,X2,X6,X7,X9
134 CLEAR END: INKEY$(1): ON INKEY$(1) GOTO 9900
135 N5=114: N7=N5-14
1055 PRINT " > ";: GOSUB 9830: INPUT&1,"";K8
1089 GOSUB 9830: INPUT&1,"";C$: GOSUB 9850
1110 GOSUB 9860: LOCATE 32,21: PRINT " Average wages "
1210 GOSUB 9860: LOCATE 34,21: PRINT " Wage bases "
1310 GOSUB 9860: LOCATE 30,21: PRINT " Old-law wage bases "
1410 GOSUB 9860: LOCATE 32,21: PRINT " Minimum wages "
1510 GOSUB 9860: LOCATE 30,21: PRINT " Benefit increases "
1625 PRINT " to disk? (y or n) > ";: GOSUB 9830: INPUT&1,"";C$: GOSUB 9850
1772 PRINT " > ";: GOSUB 9830: LINEINPUT&65,"";E$(0): GOSUB 9850
1835 PRINT " > ";: GOSUB 9830: INPUT&1,"";K8
1855 OPEN"I",1,"ADDRESS.CHN": RUN 1
1865 OPEN"I",1,"CONFIG.CHN": RUN 1
1905 OPEN"I",1,"PIAIN.CHN": RUN 1
2205 K4=G1: GOSUB 9820: CLS: I3=1: LOCATE 0,1
2305 GOSUB 9860: LOCATE 9,22
2325 U6=1+24*U6: LOCATE U6-1,U7: GOSUB 9870: PRINT " ";G2+1;" ";
2337 LOCATE U6+13,U7: INPUT&9,"";C$: B(0,G2+1-1936)=VAL(C$)
2340 LOCATE U6+12,U7: PRINT USING " ######.## ";B(0,G2+1-1936)
2610 LOCATE 7,22: PRINT STRING$(65," ");
2615 LOCATE 7,23: PRINT STRING$(65," ");
2720 LOCATE U6-1,U7: PRINT USING " ######.## ";B(0,K1-1936)
2805 GOSUB 9860: LOCATE 9,22
2920 LOCATE U6-1,U7: PRINT USING " #####.## ";B(0,K1-1950)
9820 COLOR 0,K(0,2),1: RETURN
9830 COLOR 0,K(1,2),1: RETURN
9832 COLOR 0,K(1,2),1: RETURN
9840 COLOR 0,K(2,2),1: RETURN
9850 COLOR 0,K(3,2),1: RETURN
9860 COLOR 0,K(5,2),1: RETURN
9863 COLOR 0,K(6,2),1: RETURN
9864 COLOR 0,K(7,2),1: RETURN
9870 COLOR 0,K(8,2),1: RETURN