1  REM  ****  HP BASIC PROGRAM LIBRARY  *****************************
2  REM
3  REM        CLRAJ:  CTC PAYROLL PROGRAM, PART 11 OF 34
4  REM
5  REM        36213  REV B  6/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  **********************************
10  DIM E$[22],A$[10],E[20]
11  DIM D$[5]
100  FILES E1,E2,AJ,ETRAN
200  READ E9,E7
210  DATA 2,17
230  GOSUB 9300
300  PRINT "DO YOU WANT TO CLEAR THE COMMISSION ADJUSTMENT FILE";
310  INPUT A$
320  IF A$="YES" THEN 400
330  IF A$="NO" THEN 9999
340  PRINT '7'7'7'7'7'7"WHAT";
350  GOTO 310
400  PRINT '29'31"ENTER TODAY'S DATE";
410  INPUT D1
420  IF D1<10^6 AND D1>9999 THEN 440
430  PRINT '7'7'7'7'7"INVALID DATE"
435  GOTO 400
440  X=INT(D1/10^4)
445  IF X<1 OR X>12 THEN 430
450  X1=INT((D1-X*10^4)/100)
455  IF X1<1 OR X1>31 THEN 430
460  X2=D1-X*10^4-X1*100
465  IF X2<72 THEN 430
500  PRINT "W A I T !"'13;
1000  PRINT #(E9+1),1; END 
1010  FOR N=1 TO E9
1020  FOR I1=1 TO 200
1021  IF  END #N THEN 1075
1025  READ #N,I1;E$
1030  FOR I=1 TO E7
1035  READ #N;E[I]
1040  NEXT I
1045  E[17]=E[17]-INT(E[17]/10)*10
1050  PRINT #N,I1;E$
1055  FOR I=1 TO E7
1060  PRINT #N;E[I]
1065  NEXT I
1070  NEXT I1
1075  NEXT N
1080  D$="CL"
1085  E$=""
1090  U6=0
1095  T1=5
1100  T2=T3=T4=T5=T6=T7=0
1110  PRINT #(E9+2);E$[1,22],U6,T1,D$,T2,T3,T4,T5,T6,D1,T7
1115  PRINT #(E9+2); END 
1120  END 
9300  IF  END #(E9+2) THEN 9370
9310  FOR I=1 TO 200
9320  READ #(E9+2),I;E$,U6,T1,D$,T2,T3,T4,T5,T6,D1,T7
9330  READ #(E9+2);E$,U6,T1,D$,T2,T3,T4,T5,T6,D1,T7
9340  NEXT I
9350  PRINT "TRANSACTION FILE FULL--PLEASE EMPTY"
9360  STOP 
9370  IF  END #(E9+2) THEN 9380
9375  RETURN 
9380  PRINT "TRANSACTION FILE AT EOF"
9385  STOP 
9999  END 
