0010 BEGIN
0020 CALL "SYCHAN","AQWK01",A,T$,A$
0040 PRINT 'CS',@(5,21),"This program will find records in AQWK01 (the queue detail file) and ",@(5,22),"determine if the store number is blank.  If so, it will be deleted!",@(5,23),"Press [ENTER] to begin or CTRL-C to break out: ",; INPUT *
0050 READ RECORD(A,END=0200)A$
0060 IF CVS(A.STORE_NUMBER$,3)<>"" THEN GOTO 0050
0070 REMOVE(A,KEY=KEYP(A))
0100 LET I=I+1
0130 GOTO 0050
0200 IF I THEN IF I>1 THEN LET X$=STR(I)+" records were deleted.  " ELSE LET X$="1 record was deleted.  " ELSE LET X$="All records had a store number.  "
0205 LET X$=X$+"Press [ENTER] to run the menu. "
0210 PRINT @(0,20),'CE',X$,; INPUT *
0220 RUN "MENU"