*PROGRAM TO PRINT OUT CHANNELS PROGRAMED FOR SATTELITE
SET CONFIRM OFF
SET TALK OFF
USE CHANNELS
GOTO BOTT
STORE RECNO() TO CC
STORE RECNO() TO LL
SORT ON DESC TO LL
USE LL
COPY TO CHANNELS
USE CHANNELS
DELETE FOR PROGRAM = '  '
PACK
IF CC = 31 .OR.CC = 33 .OR.CC = 35 .OR.CC = 37 .OR.CC = 39 .OR.CC = 41 .OR.CC = 43 .OR.CC = 45
 APPEND BLANK
ENDIF
IF CC = 47 .OR.CC = 49 .OR.CC = 51 .OR.CC = 53 .OR.CC = 55 .OR.CC = 57 .OR.CC = 59 .OR.CC = 61
 APPEND BLANK
ENDIF
STORE LL/2 TO BB
STORE BB+1 TO BB
STORE 1 TO AA
SET PRINT ON
DO WHILE .T.
GOTO AA
STORE PROGRAM + '-' + DESC TO PLINE
GOTO BB
STORE PLINE + '   ' + PROGRAM + '-' + DESC TO PLINE 
? PLINE
STORE AA+1 TO AA
STORE BB+1 TO BB
IF BB > CC
 EXIT
ENDIF
ENDDO
? ' '
SET PRINT OFF