************ ˆσό ( ŒŸυ Žό”g” ) ************
**************** INJIFREQ.PRG ****************
SET CONSOLE OFF
WAIT
SET CONSOLE ON
SET DEVICE TO PRINT

GOTO TOP
FIND &F
*SEEK DTOC(MDY)

*IF EOF()
*GOTO TOP
*LOCATE FOR MMDDYY>MDY .AND. MMDDYY<=MDYE
*ENDIF

DO WHILE .NOT. EOF() && *********************************1
  @ 1,2   SAY "Žό”g”‘Ρ"
    @ 1,15 SAY "ƒAƒ}ƒ`ƒ…ƒA –³ ό ‚p‚r‚n ƒƒO ŠΗ — ƒVƒXƒeƒ€    ˆσόFREQ.PRG"
  @ 2,2   SAY F+" MHz"
    @ 2,15 SAY "===========================================   "
    @ 4,1 SAY "”N/ŒŽ/“ϊ  ŒΔo•„† “d”g Žό”g” Ž  –Ό     Z         Š              JCC_G QSL"
    @ 5,1 SAY "------------------------------------------------------------------------------"
 STORE 6 TO MGYOU
 DO WHILE MGYOU<56 .AND. .NOT. EOF() && *******************2

    L=LEN(F)
    FR=LEFT(FREQ,L)
  IF FR<>F .OR. LEN(TRIM(FREQ))<>L
    EXIT
  ENDIF

    @ MGYOU,1  SAY MMDDYY
    @ MGYOU,11 SAY CALL
    @ MGYOU,20 SAY WAVE
    @ MGYOU,26 SAY FREQ 
    @ MGYOU,32 SAY NAME 
    @ MGYOU,43 SAY ADDRES 
    @ MGYOU,70 SAY JCC_G
    @ MGYOU,76 SAY QSL 

    STORE MGYOU+1 TO MGYOU
   ENDIF
  SKIP
 LOOP
 
 ENDDO && **********************************************2

     L=LEN(F)
     FR=LEFT(FREQ,L)
  IF FR<>F .OR. LEN(TRIM(FREQ))<>L
    EXIT
  ENDIF

 ENDDO && **********************************************1

@ 1,1 SAY "    "
SET DEVICE TO SCREEN
RETURN