8e SORTNUM WRITTEN MAY 1983, SUE HAYDEN CHANGES ALL DATA POINTS TO LOWEST POSITIVE CONSECUTIVE INTEGER VALUES " PROGRAM - - - SORTNUM - - -"! "THIS PROGRAM SORTS NUMBERED DATA AND REASSIGNS NUMBER VALUES TO"j( "LOWEST POSITIVE INTEGER VALUES, FOR EFFICIENT USE OF MATRICES IN"2 "SEQUENC PROGRAM"< "ENTER NAME OF DATA FILE (DO NOT INCLUDE .TIM EXTENTION): ";A$F BASE 1K "IS THE NUMBER 25 AN END-OF-DATA INDICATOR (Y/N)";Y$8L Y$"Y" Y$"y" DONE : ZsP "ENTER NUMBER USED TO INDICATE END OF DATA SET";DONEZ "IF ANY NUMBER WAS USED TO INDICATE CHANGE IN PERIODS, ENTER THAT"d "NUMBER. OTHERWISE ENTER ZERO (0) ";CHANGE A$".TIM" AS #' A$".SRT" OUTPUT AS #-] "DATA INPUT FILE IS: ";A$;".TIM" "SORTED OUTPUT FILE WILL BE: ";A$;".SRT"COUNTPLACE SORTED (,) NEWASGN (2,) #,A,R ADONENEWASGN(COUNT,)DONENEWASGN(COUNT,)DONE( .">, K  2[6 ANEWASGN(K,) e@ KuJ ACHANGET NEWASGN(COUNT,)A^ NEWASGN(COUNT,)Ah SWITCHCOUNTr COUNTCOUNT |  PLACECOUNT NEWASGN(COUNT,)AQ COUNTCHANGE NEWASGN(COUNT,)SWITCH : NEWASGN(COUNT,)COUNTeCOUNTCOUNT o y # A$".TIM" AS # TOTALA ADONE D #,A,R K 2 ANEWASGN(K,) TOTALTOTAL * SORTED(TOTAL,)NEWASGN(K,)C SORTED(TOTAL,)RP& X0 a: KiDIN SORTED(I,)DONEX #,SORTED(I,),SORTED(I,)bIIlv #,SORTED(I,),SORTED(I,) "ASGNMNT" OUTPUT AS #= "THIS PROGRAM ALSO CREATES A FILE CALLED ASGNMNT THAT HELPS THE" "SEQUENC PROGRAM SORT OUT NUMBERS AND CODES. SO IT IS NECESSARY" "TO RUN SEQUENC RIGHT AFTER SORTNUM TO KEEP DATA SETS STRAIGHT." "ORIGINAL #","NEW # ASSIGNED"I  ICOUNT. #,NEWASGN(I,),NEWASGN(I,)P NEWASGN(I,),NEWASGN(I,)ZIIa : " PRESS ANY KEY TO RETURN TO MENU": AA$$()  "MENU"