10 REM REJECT ANALYSIS PGM
20 REM WRITTEN BY TIM L. WARD
30 REM DATE 11/23-28/85
100 DIM V$(19,3)
101 FOR X=1 TO 19
102 PRINT AT 21,0;" "
103 PRINT AT 21,0;"ENTER INPUT DEVICE NBR. ";X
104 INPUT V$(X)
105 NEXT X
110 DIM S(15)
111 FOR X=1 TO 15
112 PRINT AT 21,0;" "
113 PRINT AT 21,0;"ENTER REJECT NBR. ";X
114 INPUT S(X)
115 NEXT X
116 FAST
120 LET F$="%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z%Z"
130 DIM R$(200,93)
131 FOR X=1 TO 200
132 LET R$(X)=F$
133 NEXT X
140 LET NBRREJ=0
141 LET NEXTREJ=1
150 DIM T(19,57)
151 FOR X=1 TO 19
152 FOR Y=1 TO 57
153 LET T(X,Y)=0
154 NEXT Y
155 NEXT X
500 REM %M%E%N%U% % % % % % % % % % % % % % % % % % %
510 CLS
511 SLOW
512 PRINT AT 0,2;"REJECT ANALYSIS PROGRAM MENU",,,
520 PRINT "1...INIT PGM (COLD START)?",,,
530 PRINT "2...BLANK MONTHLY TOTALS ONLY?",,,
540 PRINT "3...ENTER CURRENT REJECTS?",,,
550 PRINT "4...ENTER REJECT CLEAR CARDS?",,,
560 PRINT "5...PRINT CURRENT REJECTS?",,,
570 PRINT "6...PRINT MONTHLY REJECT TOTALS?",,
580 PRINT "7...SAVE ""REJECT"" ANALYSIS?",,,
590 PRINT "8...RESERVED FOR FUTURE USE",,,
600 PRINT "9...RESERVED FOR FUTURE USE"
610 PRINT AT 21,0;"ENTER NBR OF YOUR CHOICE 1-9"
611 INPUT I$
620 IF VAL I$<1 OR VAL I$>9 THEN GOTO 0610
621 FAST
630 IF I$="1" THEN GOTO 0100
640 IF I$="2" THEN GOTO 0150
650 IF I$="3" THEN GOSUB 3000
660 IF I$="4" THEN GOSUB 4000
670 IF I$="5" THEN GOSUB 5000
680 IF I$="6" THEN GOSUB 6000
690 IF I$="7" THEN GOTO 7000
700 GOTO 0500
\n3000 REM %E%N%T%E%R% %C%U%R%R%E%N%T% %R%E%J%E%C%T%S% %
\n3001 CLS
\n3005 SLOW
\n3006 IF NEXTREJ>200 THEN PRINT "REJECT AREA IS FULL PLEASE PROCESS REJECT CLEAR CARDS NOW."
\n3011 PRINT AT 12,0;"PLEASE ENTER REJECT TRANSACTIONS"
\n3020 DIM A$(1,93)
\n3021 INPUT A$(1)
\n3022 LET A$(1,93)="*"
\n3023 IF A$(1,1 TO 3)="END" THEN RETURN
\n3025 FAST
\n3030 FOR A=1 TO 18
\n3031 IF V$(A)=A$(1,4 TO 6) THEN LET F=A
\n3032 NEXT A
\n3040 LET G=16
\n3041 FOR A=1 TO 15
\n3042 IF S(A)=VAL A$(1,1 TO 3) THEN LET G=A
\n3050 NEXT A
\n3051 LET G=(G*3)-2
\n3060 LET RD=VAL A$(1,7 TO 10)
\n3070 FOR X=1 TO NEXTREJ
\n3080 IF A$(1,1 TO 10)<>R$(X,1 TO 10) THEN NEXT X
\n3081 IF A$(1,1 TO 10)<>R$(X,1 TO 10) THEN GOTO 3200
\n3090 IF A$(1,13 TO 92)<>R$(X,13 TO 92) THEN NEXT X
\n3091 IF A$(1,13 TO 92)<>R$(X,13 TO 92) THEN GOTO 3200
\n3100 IF CD-RD<7 THEN GOTO 3170
\n3110 IF CD-RD=7 THEN LET T(F,52)=T(F,52)+1
\n3120 IF CD-RD=7 THEN LET T(F,53)=T(F,53)+1
\n3130 IF CD-RD=15 THEN LET T(F,53)=T(F,53)-1
\n3140 IF CD-RD=15 THEN LET T(F,54)=T(F,54)+1
\n3150 IF CD-RD=30 THEN LET T(F,54)=T(F,54)-1
\n3160 IF CD-RD=30 THEN LET T(F,55)=T(F,55)+1
\n3170 IF A$(1,11 TO 12)="01" AND A$(1,11 TO 12)>R$(X,11 TO 12) THEN LET T(F,56)=T(F,56)+1
\n3180 LET T(F,57)=T(F,57)+(VAL A$(1,11 TO 12)-VAL R$(X,11 TO 12))
\n3190 LET R$(X)=A$(1)
\n3191 GOTO 3000
\n3200 LET T(F,G)=T(F,G)+1
\n3201 LET T(F,49)=T(F,49)+1
\n3210 IF A$(1,11 TO 12)>"00" THEN LET T(F,56)=T(F,56)+1
\n3220 LET T(F,57)=T(F,57)+VAL A$(1,11 TO 12)
\n3230 IF CD-RD>6 THEN LET T(F,52)=T(F,52)+1
\n3240 IF CD-RD>6 AND CD-RD<15 THEN LET T(F,53)=T(F,53)+1
\n3250 IF CD-RD>14 AND CD-RD<30 THEN LET T(F,54)=T(F,54)+1
\n3260 IF CD-RD>29 THEN LET T(F,55)=T(F,55)+1
\n3270 LET R$(NEXTREJ)=A$(1)
\n3271 LET NEXTREJ=NEXTREJ+1
\n3272 LET NBRREJ=NBRREJ+1
\n3280 GOTO 3000
\n4000 REM %E%N%T%E%R% %R%E%J%E%C%T% %C%L%E%A%R% %C%A%R%D
\n4005 CLS
\n4010 SLOW
\n4011 PRINT AT 12,0;"PLEASE ENTER REJ CLEAR TRANS"
\n4020 DIM A$(1,20)
\n4021 INPUT A$(1)
\n4022 IF A$(1,1 TO 3)="END" THEN GOTO 4120
\n4025 FAST
\n4030 FOR X=1 TO NEXTREJ
\n4040 IF A$(1,1 TO 3)=R$(X,13 TO 15) AND A$(1,4 TO 17)=R$(X,42 TO 55) AND A$(1,18 TO 20)=R$(X,4 TO 6) THEN GOTO 4070
\n4050 IF A$(1,1 TO 3)=R$(X,13 TO 15) AND A$(1,4 TO 17)=R$(X,16 TO 29) AND A$(1,18 TO 20)=R$(X,4 TO 6) THEN GOTO 4070
\n4060 NEXT X
\n4061 RETURN
\n4070 FOR A=1 TO 18
\n4071 IF V$(A)=R$(X,4 TO 6) THEN LET F=A
\n4072 NEXT A
\n4080 LET G=16
\n4081 FOR A=1 TO 15
\n4082 IF S(A)=VAL R$(X,1 TO 3) THEN LET G=A
\n4090 NEXT A
\n4091 LET G=(G*3)-1
\n4100 LET T(F,G)=T(F,G)+1
\n4101 LET T(F,50)=T(F,50)+1
\n4102 LET NBRREJ=NBRREJ-1
\n4110 LET R$(X)=F$
\n4111 GOTO 4000
\n4120 FOR X=1 TO NEXTREJ
\n4121 IF R$(X,93)="%Z" THEN GOTO 4140
\n4130 IF R$(X,93)="*" THEN GOTO 4150
\n4140 NEXT X
\n4141 GOTO 4200
\n4150 FOR A=1 TO 18
\n4151 IF V$(A)=R$(X,4 TO 6) THEN LET F=A
\n4152 NEXT A
\n4160 LET G=16
\n4161 FOR A=1 TO 15
\n4162 IF S(A)=VAL R$(X,1 TO 3) THEN LET G=A
\n4170 NEXT A
\n4171 LET G=(G*3)
\n4180 LET T(F,G)=T(F,G)+1
\n4181 LET T(F,51)=T(F,51)+1
\n4182 LET NBRREJ=NBRREJ-1
\n4190 LET R$(X)=F$
\n4191 GOTO 4140
\n4200 FOR A=1 TO NEXTREJ-2
\n4210 FOR Y=X+1 TO NEXTREJ-1
\n4220 IF R$(X,1 TO 3)<R$(Y,1 TO 3) THEN GOTO 4260
\n4230 LET Y$=R$(X)
\n4240 LET R$(X)=R$(Y)
\n4250 LET R$(Y)=Y$
\n4260 NEXT Y
\n4270 NEXT X
\n4280 LET NEXTREJ=NBRREJ+1
\n4290 FOR X=1 TO NBRREJ
\n4291 LET R$(X,93)=" "
\n4292 NEXT X
\n4293 RETURN
\n5000 REM %P%R%I%N%T% %C%U%R%R%E%N%T% %R%E%J%E%C%T%S% %
\n5010 LET A=1
\n5011 LET B=47
\n5012 IF B>NBRREJ THEN LET B=NBRREJ
\n5030 LPRINT ,,,,,,,,,,,TAB 27;"TRIC."
\n5040 LPRINT "REJ NR TIMES ORIGINAL"
\n5050 LPRINT "NBR REJECTED REJ DATE 1234"
\n5060 LPRINT
\n5070 FOR X=A TO B
\n5080 LPRINT R$(X,1 TO 3);TAB 8;R$(X,11 TO 12);TAB 20;R$(X,7 TO 10);TAB 28;R$(X,13 TO 16)
\n5090 NEXT X
\n5091 LPRINT ,,"--------------------------------"
\n5100 IF B=NBRREJ THEN GOTO 5140
\n5110 LET A=A+47
\n5111 LET B=B+47
\n5120 IF B>NBRREJ THEN LET B=NBRREJ
\n5130 GOTO 5020
\n5140 LET A=1
\n5141 LET B=47
\n5142 IF B>NBRREJ THEN LET B=NBRREJ
\n5150 LPRINT
\n5151 LPRINT TAB 22;"REJECT ANA"
\n5152 LPRINT
\n5153 LPRINT TAB 19;"CURRENT REJEC"
\n5154 LPRINT
\n5160 LPRINT ".........................INPUT I"
\n5161 LPRINT TAB 5;"1";TAB 15;"2";TAB 25;"3"
\n5162 LPRINT "56789012345678901234567890123456",,
\n5170 FOR X=A TO B
\n5180 LPRINT R$(X,17 TO 48)
\n5190 NEXT X
\n5191 LPRINT ,,"--------------------------------"
\n5200 IF B=NBRREJ THEN GOTO 5240
\n5210 LET A=A+47
\n5211 LET B=B+47
\n5220 IF B>NBRREJ THEN LET B=NBRREJ
\n5230 GOTO 5150
\n5240 LET A=1
\n5241 LET B=47
\n5242 IF B>NBRREJ THEN LET B=NBRREJ
\n5250 LPRINT ,,"LYSIS PGM",,,,"TS FOR ";CD,,,,
\n5260 LPRINT "MAGE............................"
\n5261 LPRINT TAB 3;"4";TAB 13;"5";TAB 23;"6"
\n5262 LPRINT "78901234567890123456789012345678"
\n5263 LPRINT
\n5270 FOR X=A TO B
\n5280 LPRINT R$(X,49 TO 80)
\n5290 NEXT X
\n5291 LPRINT
\n5292 LPRINT "--------------------------------"
\n5300 IF B=NBRREJ THEN GOTO 5340
\n5310 LET A=A+47
\n5311 LET B=B+47
\n5320 IF B>NBRREJ THEN LET B=NBRREJ
\n5330 GOTO 5250
\n5340 LET A=1
\n5341 LET B=47
\n5342 IF B>NBRREJ THEN LET B=NBRREJ
\n5360 LPRINT ,,,,,,,,,,"............ REJ OVER INPUT"
\n5361 LPRINT " 7";TAB 11;"8";TAB 15;"6 DAYS";TAB 24;"DEVICE"
\n5362 LPRINT "901234567890 OLD NUMBER"
\n5363 LPRINT
\n5370 FOR X=A TO B
\n5380 LPRINT R$(X,81 TO 92);
\n5390 IF CD-VAL R$(X,7 TO 10)>6 THEN LPRINT TAB 16;"YES";
\n5400 IF CD-VAL R$(X,7 TO 10)<7 THEN LPRINT TAB 16;"NO";
\n5401 LPRINT TAB 25;R$(X,4 TO 6)
\n5410 NEXT X
\n5411 LPRINT
\n5412 LPRINT "--------------------------------"
\n5420 IF B=NBRREJ THEN RETURN
\n5430 LET A=A+47
\n5431 LET B=B+47
\n5440 IF B>NBRREJ THEN LET B=NBRREJ
\n5450 GOTO 5350
\n6000 REM %P%R%I%N%T% %M%O%N%T%H%L%Y% %T%O%T%A%L%S% % %
\n6010 FOR X=1 TO 57
\n6011 LET T(19,X)=0
\n6012 NEXT X
\n6020 FOR X=1 TO 57
\n6021 FOR Y=1 TO 18
\n6022 LET T(19,X)=T(19,X)+T(Y,X)
\n6023 NEXT Y
\n6024 NEXT X
\n6030 LET A=1
\n6031 LET B=4
\n6040 FOR X=A TO B
\n6060 LPRINT ,,,,,,,,,," REJECT NBR\' S 250 257"
\n6061 LPRINT
\n6070 LPRINT " NBR. REJECTS";TAB 21;T(X,1);TAB 27;T(X,4)
\n6071 LPRINT
\n6072 LPRINT " NBR. CLR CARDED";
\n6080 LPRINT TAB 21;T(X,2);TAB 27;T(X,5)
\n6081 LPRINT
\n6082 LPRINT " NBR. REPROCESSED";
\n6090 LPRINT TAB 21;T(X,3);TAB 27;T(X,6)
\n6091 LPRINT ,,,,,,
\n6100 LPRINT TAB 13;"DELINQUENT REJECTS"
\n6101 NEXT X
\n6102 LPRINT
\n6103 LPRINT "--------------------------------"
\n6120 IF B=19 THEN GOTO 6150
\n6121 LET A=A+4
\n6122 LET B=B+4
\n6130 IF B>19 THEN LET B=19
\n6140 GOTO 6040
\n6150 LET A=1
\n6151 LET B=4
\n6160 FOR X=A TO B
\n6170 LPRINT
\n6171 LPRINT TAB 22;"REJECT ANA"
\n6172 LPRINT
\n6173 LPRINT TAB 14;"MONTHLY TOTALS FOR"
\n6174 LPRINT
\n6175 LPRINT "260 263 289 290 295 31"
\n6176 LPRINT
\n6180 LPRINT T(X,7);TAB 6;T(X,10);TAB 12;T(X,13);TAB 18;T(X,16);TAB 24;T(X,19);TAB 30;T(X,22)
\n6181 LPRINT
\n6190 LPRINT T(X,8);TAB 6;T(X,11);TAB 12;T(X,14);TAB 18;T(X,17);TAB 24;T(X,20);TAB 30;T(X,23)
\n6191 LPRINT
\n6200 LPRINT T(X,9);TAB 6;T(X,12);TAB 12;T(X,15);TAB 18;T(X,18);TAB 24;T(X,21);TAB 30;T(X,24)
\n6201 LPRINT
\n6210 LPRINT "7-14 15-29 30+ TOTAL"
\n6211 LPRINT "DAYS DAYS DAYS DEL REJ"
\n6212 LPRINT TAB 1;T(X,53);TAB 8;T(X,54)\,,TAB 16;T(X,55);TAB 24;T(X,52)
\n6220 NEXT X
\n6221 LPRINT
\n6222 LPRINT "--------------------------------"
\n6230 IF B=19 THEN GOTO 6270
\n6240 LET A=A+4
\n6241 LET B=B+4
\n6250 IF B>19 THEN LET B=19
\n6260 GOTO 6160
\n6270 LET A=1
\n6271 LET B=4
\n6280 FOR X=A TO B
\n6290 LPRINT
\n6291 LPRINT "LYSIS PGM"
\n6292 LPRINT
\n6293 LPRINT "INPUT DEVICE ";V$(X)
\n6294 LPRINT
\n6295 LPRINT "6 329 356 429 469 492"
\n6296 LPRINT
\n6300 LPRINT TAB 4;T(X,25);TAB 10;T(X,28);TAB 16;T(X,31);TAB 22;T(X,34);TAB 28;T(X,37)
\n6301 LPRINT
\n6310 LPRINT TAB 4;T(X,26);TAB 10;T(X,29);TAB 16;T(X,32);TAB 22;T(X,35);TAB 28;T(X,38)
\n6311 LPRINT
\n6320 LPRINT TAB 4;T(X,27);TAB 10;T(X,30);TAB 16;T(X,33);TAB 22;T(X,36);TAB 28;T(X,39)
\n6321 LPRINT
\n6330 LPRINT TAB 29;"NBR"
\n6331 LPRINT TAB 29;"REP"
\n6332 LPRINT TAB 9;"REPROCESSED REJECTS"
\n6340 NEXT X
\n6341 LPRINT
\n6342 LPRINT "--------------------------------"
\n6350 IF B=19 THEN GOTO 6390
\n6360 LET A=A+4
\n6361 LET B=B+4
\n6370 IF B>19 THEN LET B=19
\n6380 GOTO 6280
\n6390 LET A=1
\n6391 LET B=4
\n6400 FOR X=A TO B
\n6420 LPRINT ,,,,,,,,,," 528 914 OTHER TOTAL"
\n6421 LPRINT
\n6430 LPRINT TAB 2;T(X,40);TAB 8;T(X,43);TAB 14;T(X,46);TAB 22;T(X,49)
\n6431 LPRINT
\n6440 LPRINT TAB 2;T(X,41);TAB 8;T(X,44);TAB 14;T(X,47);TAB 22;T(X,50)
\n6441 LPRINT
\n6450 LPRINT TAB 2;T(X,42);TAB 8;T(X,45);TAB 14;T(X,48);TAB 22;T(X,51)
\n6451 LPRINT
\n6460 LPRINT " REJECTS NBR TIMES"
\n6461 LPRINT "ROCESSED REJECTED"
\n6470 LPRINT TAB 1;T(X,56);TAB 13;T(X,57)
\n6480 NEXT X
\n6481 LPRINT
\n6482 LPRINT "--------------------------------"
\n6490 IF B=19 THEN RETURN
\n6500 LET A=A+4
\n6501 LET B=B+4
\n6510 IF B>19 THEN LET B=19
\n6520 GOTO 6400
\n7000 REM %S%A%V%E% %"%R%E%J%E%C%T%-%6%4%K%"% % % % % %
\n7010 CLS
\n7015 SLOW
\n7020 PRINT AT 12,0;"SAVE ""REJECT"" ANALYSIS PGM "
\n7030 PRINT AT 21,0;"START RECORDER PRESS ENTER"
\n7040 INPUT Z$
\n7050 CLS
\n7060 SAVE "REJECT-64%K"
\n7070 PRINT AT 12,0;"REJECT ANALYSIS PROGRAM"
\n7080 PRINT AT 14,0;"LAST UPDATED ON ";CD;" DATE."
\n7090 PRINT AT 21,0;"PLEASE ENTER CURRENT DATE"
\n7100 INPUT CD
\n7110 GOTO 0500
\n9000 FOR X=1 TO 57
\n9010 PRINT AT 12,0;T(4,X);" ";X
\n9020 INPUT W$
\n9030 NEXT X
\n9040 STOP
\n9050 CLEAR
\n9060 SAVE "1018%8"
\n9070 GOTO 500
