.JUNK%=0
10577 SWAP SORTARRN#(III%),SORTARRN#(AR%-X%):JUNK%=0
10578 SWAP RECNUM%(III%),RECNUM%(AR%-X%):JUNK%=0
10579 X%=X%+1:FLAG2%=3:GOTO 10890
10580 SWAP RECNUMD&(
I%),RECNUMD&(A
):JUNK%=
.CTNSort Section 3 Completed -- Writing Pointer File*Sort Section 1 -- Sorting *2*** DATA FILE EMPTY ****** FILE TOO BIG - 8000 MAX ***Quick In Memory Sort -- Reading File    --- PRESS RETURN NOW ---    ADD MORE MEMORY TO YOUR COMPUTER.    REMOVE SOME MEMORY RESIDENT PROGRAMS, OR    AVAILABLE MEMORY.  DELETE SOME ACTIVITIES, OR*** YOUR FILE IS TOO BIG TO SORT IN THE ****** NO FILE OF THAT TYPE ON THAT DISK ****** MUST BE A LETTER 'A' THROUGH 'L' ******NO PERIODS ****** TOO LONG ***CKMMCKSORTSXRETURN  To PROCEEDX  EXIT To The Operating SystemS  SORT MenuM  MAIN Menu   Check NUMBERThis Is The Program To Sort Your Checks By*** NEED DATE IN THE FORM OF 2-15-82 ***ENDING DATE For This Report?STARTING DATE For This Report?*** YOUR DATES NOT FOUND ***:FILEDATE AT LINE NUMBER: *** ERROR NUMBER *** THAT FILE NOT ON THIS DISK ****** CAN'T FIND DRIVE NAME. PUT DISKDRVE ON THIS DISK ****** THAT DRIVE NOT AVAILABLE ****** THAT DRIVE NOT READY ***:*.CDE ARE: YOUR FILES ON  ***: *** CAN'T FIND CKNUMBR---REPORT PREPARED--- TOTAL OF ALL CHECKS LESS ALL DEPOSITS = $$######,.##    ***   TOTAL OF ALL DEPOSITS =(**$#####,.##)   TOTAL OF ALL CHECKS =   $$######,.##(**$####,.##) $$#####,.##  \      \ -######,.# ; \                       \- \     \No:######,.# ;  TO    FOR THE PERIOD OF      REPORT OF CHECKS SORTED BY CHECK NUMBER---SORT DONE, NOW WRITING YOUR REPORT---||||||||O:SPCDESC:NEWSORT:ACCTLST--BEGINNING SORT--.NBRReport Saved As DRIVE To Save Your NEW Sorted File?.CDEEXPENSE CATEGORY File Name?*.CKD Are:Your Files On *** FILE NOT FOUND ON THAT DRIVE ***.CKD:RDISK Drive Where You Saved These Checks?.0Checks To Sort By Check NUMBERNAME Of The File Where You Saved The DISKDRVEI
DO UNTIL INN%=I