1  REM  ****  HP BASIC PROGRAM LIBRARY  ***************
2  REM
3  REM        EMPCNT:  CTC PAYROLL PROGRAM, PART 17 OF 34
4  REM
5  REM        36213  REV B  6/73
6  REM
7  REM ****  CONTRIBUTED PROGRAM **************************************
9  H$='29'31'13'26'30
10  DIM E[17],T[51],H$[5]
11  DIM E$[22]
100  FILES E1,E2,EAUX
200  READ E9,E7
210  DATA 2,17
220  READ #(E9+1);A9,M9
230  MAT T=ZER
235  T=0
240  PRINT "WHICH PRINTER: (1) ACCOUNTING OR (2) ABDICK";
245  INPUT P5
250  IF P5=1 OR P5=2 THEN 300
255  PRINT '7'7'7'7'7"WHAT";
257  GOTO 245
300  PRINT H$[1,2]"ENTER CURRENT DATE (MDDYY)";
310  INPUT D
320  IF D<10^6 AND D>9999 THEN 330
325  PRINT '7'7'7'7"INVALID DATE"
327  GOTO 300
330  D1=INT(D/10^4)
335  IF D1<1 OR D1>12 THEN 325
340  D2=INT((D-D1*10^4)/100)
345  IF D2<1 OR D2>31 THEN 325
350  D3=D-D1*10^4-D2*100
355  IF D3<72 THEN 325
1000  FOR R=1 TO M9-1000
1010  FOR I=1 TO E9
1020  IF R <= I*200 THEN 1060
1030  NEXT I
1040  PRINT '7'7'7'7'7"ERROR IN M9";M9">";E9*200
1050  STOP 
1060  N=I
1070  R1=R-(I-1)*200
1080  READ #N,R1;E$
1090  MAT  READ #N;E
1092  IF E[1]=-1 THEN 1120
1093  X=INT(E[4]/10^4)
1094  X1=INT((E[4]-X*10^4)/1000)
1095  IF X1 THEN 1120
1110  K=INT(E[2]/1000)+1
1115  T[K]=T[K]+1
1120  NEXT R
1125  PRINT " "'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'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18'18;
1145  K=4
1150  GOSUB 9910
1155  PRINT "E M P L O Y E E  C O U N T -";D1;"/";D2;"/";D3;
1160  K=2
1165  GOSUB 9900
1170  PRINT "STATE";TAB(20)"NUMBER OF EMPLOYEES";
1175  K=2
1180  GOSUB 9900
1185  FOR I=1 TO 51
1190  IF T[I]=0 THEN 1210
1195  PRINT I-1;TAB(25);T[I];
1197  T=T+T[I]
1200  K=1
1205  GOSUB 9900
1210  NEXT I
1215  PRINT TAB(25)"----";
1220  GOSUB 6000
1225  PRINT TAB(25);T;
1230  GOSUB 6000
1240  END 
6000  GOTO P5 OF 6010,6030
6010  PRINT '13;
6020  RETURN 
6030  PRINT 
6040  RETURN 
9900  GOSUB 6000
9910  FOR K1=1 TO K
9920  PRINT "       ";
9925  GOSUB 6000
9930  NEXT K1
9935  RETURN 
9999  END 
