************ ˆóü ( ŒŸő ŠiŽqˆĘ’u ) ************
****************  INJIGL.PRG  ****************
SET CONSOLE OFF
WAIT
SET CONSOLE ON
SET DEVICE TO PRINT

GOTO TOP
FIND &G
*SEEK DTOC(MDY)

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

DO WHILE .NOT. EOF() && *********************************1
  @ 1,2   SAY "ŠiŽqˆĘ’u"
    @ 1,15 SAY "ƒAƒ}ƒ`ƒ…ƒA –ł ü ‚p‚r‚n ƒƒO ŠÇ — ƒVƒXƒeƒ€    ˆóüG.PRG"
  @ 2,2   SAY G
    @ 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(G)
    FR=LEFT(GL,L)
  IF FR<>G .OR. LEN(TRIM(GL))<>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(G)
    FR=LEFT(GL,L)
  IF FR<>G .OR. LEN(TRIM(GL))<>L
    EXIT
  ENDIF

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

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