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<X1 THEN 4925
4920  NEXT J1
4925  READ #3,2
4930  FOR J=1 TO J1
4935  READ #3;Z$
4940  NEXT J
4950  RETURN 
5000  IF S[1]#8 THEN 5050
5010  PRINT "VT06";
5020  RETURN 
5050  Z$="####-###"
5055  X$="0"
5060  X=INT(U[S[1]]/1000)
5065  GOTO X OF 5070,5075,5080,5085
5070  Z[1]=2200
5072  GOTO 5090
5075  Z[1]=3000
5077  GOTO 5090
5080  Z[1]=3300
5082  GOTO 5090
5085  Z[1]=3360
5090  Z[2]=U[S[1]]-X*1000
5095  GOSUB 9000
5100  RETURN 
5300  B1=0
5305  X=A0
5307  RESTORE 245
5310  FOR M=1 TO G8
5312  READ A$
5315  IF X<401 THEN 5340
5320  X=X-400
5325  NEXT M
5330  T$="   "
5335  GOTO 5397
5340  M0=INT(X/2)
5345  M1=2
5350  IF M0*2=X THEN 5365
5355  M0=M0+1
5360  M1=1
5365  ASSIGN A$,2,W5
5390  READ #2,M0;S$,D[1,1],D[1,2],T$,D[2,1],D[2,2]
5392  IF M1=2 THEN 5397
5395  T$=S$
5397  B3=0
5398  RETURN 
5400  I1=1
5410  GOSUB 4700
5415  GOTO F2 OF 5420,5440,5465
5420  PRINT TAB(59);Z$;
5425  GOSUB 6000
5427  P9=P9+1
5430  I1=I+1
5435  GOTO 5410
5440  PRINT TAB(59);Z$;
5445  IF D[M1,1]=0 THEN 5425
5450  GOSUB 4900
5455  PRINT ", ";Z$;"   ";D[M1,1];
5460  GOTO 5425
5465  IF Z$="" THEN 5490
5470  PRINT TAB(59)"ATTN: ";Z$;
5475  GOSUB 6000
5480  P9=P9+1
5490  B3=1
5495  RETURN 
6000  PRINT 
6040  RETURN 
8000  GOTO P5 OF 8005,8010
8005  PRINT '12'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18;
8007  GOTO 8020
8010  K=66-P9
8015  GOSUB 9910
8020  K=4
8030  GOSUB 9910
8050  Z$="DATE: ##/##/##"
8060  X$=" "
8070  Z[1]=D1
8080  Z[2]=D2
8090  Z[3]=D3
8100  GOSUB 9000
8110  PRINT TAB(50)"I N V E N T O R Y  C O N T R O L";"";TAB(30)"PAGE: ";
8150  Z$="###"
8160  Z[1]=P4=P4+1
8170  GOSUB 9000
8172  GOSUB 6000
8175  PRINT TAB(52)"LEASES EXPIRING IN ";
8177  Z[1]=D5
8178  GOSUB 9000
8179  PRINT " DAYS"
8180  PRINT 
8181  PRINT TAB(52);
8182  Z$="A####:"
8183  X$="0"
8184  Z[1]=A0
8185  GOSUB 9000
8186  P9=0
8187  GOSUB 5400
8188  K=2
8190  GOSUB 9910
8200  PRINT "AGREEMENT PRODUCT  SERIAL   DATE   SALES   CUST#  ";
8205  PRINT "INVOICE LEASE   FIELD  TERMS SALESMAN  MAINT.  ";
8210  PRINT "EQ.RENTAL   TAX RATE";
8212  GOSUB 6000
8215  PRINT TAB(4)"#";TAB(21)"#";TAB(36)"LOC. UNIT LOC    #    ";
8217  PRINT "STATUS SER LOC                 PRICE     PRICE";
8222  GOSUB 6000
8225  PRINT TAB(58);
8230  Z$="(  ALL)"
8235  X$=" "
8240  IF G1=11 THEN 8290
8245  Z$="(1 & 2)"
8250  IF G1=10 THEN 8290
8255  Z$="( ## )"
8260  Z[1]=G1
8290  GOSUB 9000
8330  K=2
8335  GOSUB 9900
8340  P9=P9+14
8350  RETURN 
9000  REM
9040  V=Z2=Z3=Z4=Z5=Z7=Z8=Z9=1
9050  DIM V$[20]
9070  Z0=Z9-1
9080  Z0=Z0+1
9090  IF Z0=LEN(Z$)+1 THEN 9650
9100  IF Z$[Z0,Z0]="#" THEN 9170
9110  IF Z$[Z0,Z0+1]=".#" THEN 9170
9120  IF Z$[Z0,Z0+1]="+#" THEN 9150
9130  V$[V,V]=Z$[Z0,Z0]
9131  V=V+1
9140  GOTO 9080
9150  Z4=0
9160  GOTO 9080
9170  Z=100
9180  Z6=Z[Z2]
9190  Z9=Z0-1
9200  Z9=Z9+1
9210  IF Z$[Z9,Z9]="." THEN 9240
9220  IF Z$[Z9,Z9]="#" THEN 9200
9230  GOTO 9280
9240  IF Z5#1 THEN 9280
9250  Z5=0
9260  Z=Z9
9270  GOTO 9200
9280  IF Z#100 THEN 9300
9290  Z=Z9
9300  IF Z4=1 THEN 9350
9310  IF Z6 >= 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<Z4 THEN 9500
9480  V$[V,V]="#"
9481  V=V+1
9490  GOTO 9600
9500  Z6=Z6-Z8*Z7
9510  IF Z8=0 THEN 9530
9520  Z3=0
9530  IF Z3=0 THEN 9590
9540  IF Z1#1 THEN 9570
9550  V$[V,V]="0"
9551  V=V+1
9560  GOTO 9600
9570  V$[V,V]=X$
9571  V=V+1
9580  GOTO 9600
9590  V$[V,V]=Y$[Z8+1,Z8+1]
9591  V=V+1
9600  Z7=Z7/10
9610  NEXT Z1
9620  Z3=Z4=Z5=Z7=1
9630  Z2=Z2+1
9640  GOTO 9070
9650  PRINT V$;
9660  V$=""
9670  RETURN 
9900  GOSUB 6000
9910  FOR I=1 TO K
9915  PRINT 
9930  NEXT I
9940  RETURN 
9999  END 
