1 H$='29'31'13'26'30 10 DIM A$[10],H$[5],B$[20],Y$[10],X$[1],S$[54],T$[54] 11 DIM C[4,8],S[16],P[13],K[12],U[30] 12 Y$="0123456789" 100 FILES C1,G10A,G0,S1 150 PRINT "(1) TOP OF FORM OR (2) ABDICK"; 160 INPUT P5 170 MAT READ K 172 DATA 31,28,31,30,31,30,31,31,30,31,30,31 200 READ C9,C8,C7,G8 210 DATA 13,4,8,3 220 MAT READ P 230 DATA 1000,3800,4300,4900,6500,7500,7560,7760,8760,9760,9870,10350,10400 232 MAT READ U 235 DATA 2100,3101,3300,3200,3400,4100,4200,0,1102,1104,1106,1108,1114,1118,1122 236 DATA 1126,1400,1401,1402,1403,1404,1405,1420,1300,1301,1302,1303,1200,1201,3120 240 DATA "C1","C2","C3","C4","C5","C6","C7","C8","C9","C10","C11","C12","C13" 245 DATA "G10A","G10B","G10C" 250 P4=K4=0 300 PRINT "CURRENT DATE"; 310 INPUT X 335 GOSUB 4800 355 D1=X1 360 D2=X2 365 D3=X3 370 GOSUB 3200 500 P9=66 505 N1=4 510 F5=0 1000 IF END #4 THEN 1200 1005 REM 1010 READ #4;A 1015 IF SGN(A)#-1 THEN 1045 1020 IF ABS(A)>A2 THEN 1210 1025 IF F5 THEN 1037 1030 IF ABS(A)#A1 THEN 1005 1035 F5=1 1037 A0=-A 1038 F6=G5=0 1040 GOTO 1005 1045 IF NOT F5 THEN 1005 1050 C0=S1=INT(A/10^4) 1060 R=S2=A-S1*10^4 1070 GOSUB 3000 1075 IF P#5 THEN 1085 1080 R=R-900 1085 IF P=1 THEN 1095 1090 R=R+P[P-1] 1095 GOSUB 4000 1100 IF NOT B1 THEN 1005 1105 GOSUB 3500 1110 IF B1 THEN 1005 1150 IF F6 THEN 1180 1160 GOSUB 5300 1165 GOSUB 8000 1170 F6=1 1180 GOSUB 2000 1190 GOTO 1005 1200 N1=N1+1 1205 IF N1>5 THEN 1210 1206 ASSIGN "S2",4,W5 1207 GOTO 1000 1210 IF F5 THEN 9999 1220 PRINT '7'7'7"BEGINNING CUS#";A1;"NOT ON CUST/UNIT SORT FILE" 1230 STOP 2000 IF C[R2,7]=G5 THEN 2006 2001 Z$=" ######" 2002 X$="0" 2003 Z[1]=G5=C[R2,7] 2004 GOSUB 9000 2006 PRINT TAB(10); 2007 GOSUB 5000 2010 PRINT TAB(20); 2020 Z$="#### " 2030 X$="0" 2040 Z[1]=S2 2042 IF S[1]#5 THEN 2050 2044 Z[1]=Z[1]+900 2050 GOSUB 9000 2080 X$=" " 2095 Z$="##/##/## " 2100 X=S[4] 2105 GOSUB 4800 2110 Z[1]=X2 2112 Z[2]=X3 2115 Z[3]=X1+70 2117 IF X1<8 THEN 2120 2118 Z[3]=X1+60 2120 GOSUB 9000 2125 K3=5 2127 Z$="## " 2130 GOSUB 4400 2137 Z$="#### " 2140 GOSUB 4400 2145 Z$="##### " 2146 X$="0" 2147 IF S[K3]#0 THEN 2152 2148 PRINT " "; 2150 K3=K3+1 2151 GOTO 2155 2152 GOSUB 4400 2155 X$=" " 2157 Z$="## " 2160 GOSUB 4400 2165 PRINT " "; 2167 GOSUB 4400 2172 Z$="##M " 2173 IF S5=1 THEN 2175 2174 Z$="##A " 2175 GOSUB 4400 2180 Z$="#### " 2182 K3=K3+1 2185 GOSUB 4400 2205 Z$="$#### " 2210 Z[1]=S6 2220 GOSUB 9000 2223 Z[1]=S[15] 2224 GOSUB 9000 2225 Z$=" #.##%" 2226 Z[1]=S[16]+S[11]*.01 2227 IF S[16]#0 THEN 2230 2228 Z$="TE - ##" 2229 Z[1]=S[11] 2230 GOSUB 9000 2232 K=1 2235 GOSUB 9900 2240 P9=P9+2 2245 IF P9<60 THEN 2260 2250 GOSUB 8000 2260 RETURN 3000 REM 3020 P=C0 3025 IF C0<9 THEN 3090 3030 P=9 3035 IF C0 <= 16 THEN 3090 3040 P=10 3045 IF C0 <= 23 THEN 3090 3050 P=11 3055 IF C0 <= 27 THEN 3090 3060 P=12 3065 IF C0 <= 29 THEN 3090 3070 P=13 3090 RETURN 3200 PRINT "DAYS TO EXPIRE"; 3205 INPUT D5 3225 X2=D2+D5 3226 X1=D1 3227 X3=D3 3230 IF X2 <= K[X1] THEN 3260 3235 X2=X2-K[X1] 3237 X1=X1+1 3240 IF X1 <= 12 THEN 3230 3245 X1=X1-12 3250 X3=X3+1 3255 GOTO 3240 3260 D=X3*10^4+X1*100+X2 3265 PRINT "LSE STAT (10=1&2,11=ALL)"; 3270 INPUT G1 3275 PRINT "CUST# INTERVAL (A1,A2)"; 3280 INPUT A1,A2 3285 RETURN 3500 B1=0 3505 IF S[3]=6 THEN 3520 3510 B1=1 3515 RETURN 3520 IF G1=11 THEN 3575 3522 IF G1#10 THEN 3535 3525 IF S[8]=1 OR S[8]=2 THEN 3575 3530 GOTO 3510 3535 IF S[8]#G1 THEN 3510 3575 X=S[4] 3580 GOSUB 4800 3585 IF X1<8 THEN 3600 3590 X1=X1+60 3595 GOTO 3605 3600 X1=X1+70 3605 X2=X2+S[10] 3610 IF X2 <= 12 THEN 3630 3615 X2=X2-12 3620 X1=X1+1 3625 GOTO 3610 3630 X3=X3-1 3631 IF X3>0 THEN 3640 3632 X2=X2-1 3633 IF X2>0 THEN 3636 3634 X2=12 3635 X1=X1-1 3636 X3=K[X2] 3640 D0=X1*10^4+X2*100+X3 3645 IF D0>D THEN 3510 3650 RETURN 4000 X=R/C8 4038 X1=INT(X) 4040 X2=INT((X-X1)*100) 4042 FOR I=1 TO (C8-1) 4044 IF X2=I*25 THEN 4054 4046 NEXT I 4048 R1=X1 4050 R2=C8 4052 GOTO 4057 4054 R1=X1+1 4056 R2=I 4057 RESTORE 240 4058 FOR N=1 TO C9 4060 READ A$ 4062 IF R1<201 THEN 4070 4063 R1=R1-200 4065 NEXT N 4067 PRINT "*" 4068 STOP 4070 ASSIGN A$,1,W5 4100 B1=0 4102 MAT READ #1,R1;C 4105 IF C[R2,1]=-1 THEN 4180 4107 B1=1 4110 J=1 4111 FOR I=1 TO 9 STEP 4 4112 S5=SGN(C[R2,J]) 4113 C[R2,J]=ABS(C[R2,J]) 4114 S[I]=INT(C[R2,J]/10^4) 4115 S[I+1]=C[R2,J]-S[I]*10^4 4116 IF I#9 THEN 4119 4117 S[I+1]=INT(S[I+1]/100) 4118 S[I+2]=C[R2,J]-S[I]*10^4-S[I+1]*100 4119 J=J+2 4120 NEXT I 4122 S[3]=INT(C[R2,2]/10^5) 4125 S[4]=C[R2,2]-S[3]*10^5 4145 S[7]=INT(C[R2,4]/10) 4150 S[8]=C[R2,4]-S[7]*10 4170 S[12]=INT(C[R2,6]/100) 4175 S[13]=C[R2,6]-S[12]*100 4176 S[14]=INT(C[R2,8]/10^5) 4177 S[15]=INT((C[R2,8]-S[14]*10^5)/10) 4178 S[16]=C[R2,8]-S[14]*10^5-S[15]*10 4179 S6=S[13]*10+S[14] 4180 RETURN 4400 Z[1]=S[K3] 4405 K3=K3+1 4410 GOSUB 9000 4420 RETURN 4700 J=1 4705 Z$="" 4710 FOR I=I1 TO LEN(T$) 4715 F2=1 4720 IF T$[I,I]='17 THEN 4780 4725 F2=2 4730 IF T$[I,I]='18 THEN 4780 4735 Z$[J,J]=T$[I,I] 4740 J=J+1 4742 IF B3 THEN 4765 4745 IF T$[I,I]="." THEN 4755 4750 IF T$[I,I]#"," THEN 4765 4755 Z$[J,J]=" " 4760 J=J+1 4765 NEXT I 4770 F2=3 4780 RETURN 4800 X1=INT(X/10^4) 4810 X2=INT((X-X1*10^4)/100) 4820 X3=X-X1*10^4-X2*100 4830 RETURN 4900 X=INT(D[M1,1]/100) 4902 READ #3,4 4905 FOR J1=1 TO 52 4907 READ #3;X1 4910 IF X= 0 THEN 9340 9320 V$[V,V]="-" 9321 V=V+1 9330 GOTO 9350 9340 V$[V,V]=" " 9341 V=V+1 9350 IF Z=Z9 THEN 9380 9360 Z6=ABS(Z6)+5*10^(Z-Z9) 9370 GOTO 9390 9380 Z6=ABS(Z6)+.5 9390 Z7=10^(Z-Z0-1) 9400 Z4=10*Z7 9410 FOR Z1=Z-Z0 TO Z+1-Z9 STEP -1 9420 IF Z1#0 THEN 9460 9430 V$[V,V]="." 9431 V=V+1 9440 Z3=0 9450 GOTO 9610 9460 Z8=INT(Z6/Z7) 9470 IF Z6