2 ! DELETES EMPLOYEES FROM PAYROLL DISK! 5 ! PROGRAM NAME:"DLTEMP" - BY JAC 10 OPEN "DK1:PAYROL.MST" AS FILE 1%:DIM #1%,A$(1500%)=128%,A%(0%) 15 OPEN "DK1:PAYROL.MDR" AS FILE 2%:DIM #2%,M$(1500%)=128%,M%(0%),D$(0%)=8% 20 OPEN "DK1:PAYROL.SCR" AS FILE 3%:DIM #3%,S$(1500%)=128%,S%(0%) 25 OPEN "DK1:PAYROL.YTD" AS FILE 4%:DIM #4%,Y$(1500%)=64%,Y%(0%) 30 OPEN "DK1:PAYROL.QRT" AS FILE 5%:DIM #5%,Q$(1500%)=64%,Q%(0%) 35 N%=A%(0%):DIM T%(101%):E%=0%:X%=0% 40 PRINT "ENTER THE EMPLOYEE NUMBERS OF EMPLOYEES TO BE DELETED." 45 PRINT "THIS PROGRAM WILL ONLY DELETE 100 EMPLOYEES AT A TIME." 50 PRINT "INPUT A -1 TO TERMINATE INPUT OF EMPLOYEE NUMBERS." 55 INPUT "EMP.#";T%:IF T%=-1% THEN 80 60 X%=X%+1%:E%=E%+1%:T%(E%)=T%:IF X%<10% THEN 55 65 INPUT "LAST 10 EMP. # CORRECT? - Y OR N";A$ 70 IF A$="Y" THEN X%=0%:IF E%<100% THEN 55 ELSE 78 75 PRINT "REENTER LAST 10 EMP. #.":E%=E%-10%:X%=0%:GOTO 55 78 PRINT "THAT'S ALL FOR THIS PASS" 80 FOR K%=1% TO E%-1%:IF T%(K%)<=T%(K%+1%) THEN 100 85 T%=T%(K%+1%):T%(K%+1%)=T%(K%) 90 FOR J%=K% TO 2% STEP -1%:IF T%(J%-1%)<=T% THEN T%(J%)=T%:GOTO 100 95 T%(J%)=T%(J%-1%):NEXT J%:T%(1%)=T% 100 NEXT K%:L%,J%=1% 105 FOR K%=1% UNTIL L%>N% 108 GOTO 115 IF J%>E%:IF T%(J%)N% :GOTO 108 115 A$(K%)=A$(L%):M$(K%)=M$(L%):S$(K%)=S$(L%):Y$(K%)=Y$(L%):Q$(K%)=Q$(L%): L%=L%+1%:NEXT K% 120 M%=K%-1%:A%(0%),M%(0%),S%(0%),Y%(0%),Q%(0%)=M% 125 CLOSE 1%,2%,3%,4%,5%:PRINT "DELETION OF EMPLOYEES IS COMPLETE" 126 PRINT "THERE ARE NOW";M%;"EMPLOYEES ON THE PAYROLL." 130 END